Tcl Requires Chilkat v11.7.0+

Why a PDF Optimization Was Skipped

See more PDF Optimization Examples

Demonstrates the "skipped" array, which lists the options that were asked for but not applied, each with a reason and, where it is page-specific, the pages. An option is skipped when it is reserved for a later release (mergeFontSubsets, compactType1Fonts), when the rules of the file forbid it (objectStreams in a PDF/A-1 file), or when the content could not be parsed safely (tidyContent and coalesceContent on a page whose content stream the parser does not understand). Nothing is ever changed on a guess: an option that cannot be applied safely is skipped and reported. Tcl

load ./chilkat.dll

set success 0

#  This example requires the Chilkat API to have been previously unlocked.
#  See Global Unlock Sample for sample code.

#  The PDF used in this example is available at grand_canyon_hiking_guide.pdf

set pdf [new_CkPdf]

set success [CkPdf_LoadFile $pdf "qa_data/pdf/grand_canyon_hiking_guide.pdf"]
if {$success == 0} then {
    puts [CkPdf_lastErrorText $pdf]
    delete_CkPdf $pdf
    exit
}

#  Ask for the two options that are reserved for a later release.
set json [new_CkJsonObject]

CkJsonObject_UpdateBool $json "mergeFontSubsets" 1
CkJsonObject_UpdateBool $json "compactType1Fonts" 1

set jsonOut [new_CkJsonObject]

set success [CkPdf_Optimize $pdf "audit" $json $jsonOut]
if {$success == 0} then {
    puts [CkPdf_lastErrorText $pdf]
    delete_CkPdf $pdf
    delete_CkJsonObject $json
    delete_CkJsonObject $jsonOut
    exit
}

set i 0
set numSkipped [CkJsonObject_SizeOfArray $jsonOut "skipped"]
puts "skipped: $numSkipped"
while {$i < $numSkipped} {
    CkJsonObject_put_I $jsonOut $i
    puts "   [CkJsonObject_stringOf $jsonOut {skipped[i].option}] - [CkJsonObject_stringOf $jsonOut {skipped[i].reason}]"
    set i [expr $i + 1]
}

#  A skipped option is not a failure: Optimize returns true, the other options are applied, and the
#  report says exactly what was left undone.

delete_CkPdf $pdf
delete_CkJsonObject $json
delete_CkJsonObject $jsonOut