Index: /trunk/doc/pslib/pslib-delta
===================================================================
--- /trunk/doc/pslib/pslib-delta	(revision 4412)
+++ /trunk/doc/pslib/pslib-delta	(revision 4413)
@@ -3,14 +3,15 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: pslib-delta,v 1.5 2005-06-28 21:31:54 jhoblitt Exp $
+# $Id: pslib-delta,v 1.6 2005-06-28 21:52:28 jhoblitt Exp $
 
 MODULE=pslib
+UTIL_MODULE=utils
 ROOTDIR=$HOME/tmp/$0
 WORKDIR=$ROOTDIR/work
+UTILDIR=$ROOTDIR/$UTIL_MODULE
+TEXBLOCK=$UTILDIR/texblock.pl
+APIDELTA=$UTILDIR/apidelta.pl
 CVS=/usr/bin/cvs
 SSH=/usr/bin/ssh
-SCRAPECODE="./scrapecode.pl"
-TEXBLOCK="./texblock.pl"
-APIDELTA="./apidelta.pl"
 
 CVS_RSH=$SSH
@@ -18,5 +19,10 @@
 export CVS_RSH CVSROOT
 
+PERL5LIB=$UTILDIR
+export PERL5LIB
+
 STARTDIR=`pwd`
+
+# checkout pslib sources
 
 CVS_ERROR=0
@@ -36,7 +42,27 @@
 fi
 
+# checkout utils
+
+CVS_ERROR=0
+
+if [ ! -d "$ROOTDIR/$UTIL_MODULE" ] ; then
+    mkdir -p $ROOTDIR
+    cd $ROOTDIR
+    $CVS co $UTIL_MODULE > /dev/null 2>&1 || CVS_ERROR=1
+else
+    cd "$ROOTDIR/$UTIL_MODULE"
+    $CVS up -dP > /dev/null 2>&1 || CVS_ERROR=1
+fi
+
+if [ $CVS_ERROR -eq 1 ] ; then
+    echo "CVS error from utils"
+    exit 1;
+fi
+
 if [ ! -d "$WORKDIR" ] ; then
     mkdir -p $WORKDIR
 fi
+
+# compare sources
 
 cd $STARTDIR
@@ -47,4 +73,6 @@
 $APIDELTA --color=always --spec $WORKDIR/sdrs.txt --code $WORKDIR/pslib.txt
 
+# cleanup
+
 if [ -d "$WORKDIR" ] ; then
     rm -rf $WORKDIR