ref: c5a081872fe23806498b05fc8cb72261aaf0d007
parent: 009e8c6ac15f56f0f57815c9e3c05da36dea5a3b
author: Sigrid Solveig Haflínudóttir <ftrvxmtrx@gmail.com>
date: Thu Jun 3 02:22:49 EDT 2021
merge AGAIN???
--- /dev/null
+++ b/pdfpages.rc
@@ -1,0 +1,34 @@
+#!/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