shithub: pdffs

ref: 488ad626470fd67f028be2b04d515732ebcb9b5c
dir: /pdfpages.rc/

#!/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