#!/bin/rcfile=$1target=$2if(~ $#file 0 || ~ $#target 0){ echo Usage: pdfpages.rc file.pdf '''search string''' exit}if(! test -f $file){ echo $file does not exist exit}current=0fn checkpage{ if(pdffs $file $* " | grep -s $target) echo $current}fn checkpages{ count=`{pdffs $file $* Count} i=0 while(! ~ $i $count){ current=`{echo $current '+ 1' | bc} type=`{pdffs $file $* Kids $i Type} if(~ $type /Page) checkpage $* Kids $i if not if(~ $type /Pages) checkpages $* Kids $i if not{ echo Invalid type $type exit } i=`{echo $i '+ 1' | bc} }}checkpages Root Pages
#!/bin/rc
file=$1
target=$2
if(~ $#file 0 || ~ $#target 0){
echo Usage: pdfpages.rc file.pdf '''search string'''
exit
}
if(! test -f $file){
echo $file does not exist
exit
}
current=0
fn checkpage{
if(pdffs $file $* " | grep -s $target)
echo $current
}
fn checkpages{
count=`{pdffs $file $* Count}
i=0
while(! ~ $i $count){
current=`{echo $current '+ 1' | bc}
type=`{pdffs $file $* Kids $i Type}
if(~ $type /Page)
checkpage $* Kids $i
if not if(~ $type /Pages)
checkpages $* Kids $i
if not{
echo Invalid type $type
exit
}
i=`{echo $i '+ 1' | bc}
}
}
checkpages Root Pages