[brlcad-commits] CVS: brlcad/src/tclscripts ampi.tcl,14.11,14.12

[Sean M. <br...@us...>]

Update of /cvsroot/brlcad/brlcad/src/tclscripts
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv10521

Modified Files:
	ampi.tcl 
Log Message:
abort with a clean message if a pkgIndex.tcl file does not exist since open's failure message is less than ideal

Index: ampi.tcl
===================================================================
RCS file: /cvsroot/brlcad/brlcad/src/tclscripts/ampi.tcl,v
retrieving revision 14.11
retrieving revision 14.12
diff -w -u -r14.11 -r14.12
--- ampi.tcl	20 Feb 2007 03:10:30 -0000	14.11
+++ ampi.tcl	2 Mar 2007 01:30:43 -0000	14.12
@@ -25,12 +25,18 @@
 exit
 
 if {[info exists $argv]} {
+    puts $argv
     foreach arg $argv {
 	catch {pkg_mkIndex -verbose $arg *.tcl *.itcl *.itk *.sh}
 	puts $arg
     }
 }
 
+if {![file exists pkgIndex.tcl]} {
+    puts "ERROR: pkgIndex.tcl does not exist in [pwd]"
+    exit 1
+}
+
 lappend pkgIndex
 lappend header