guile/guile-core/scripts PROGRAM README display...

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Thien-Thi Nguyen <address@hidden>       01/07/31 22:09:30

Modified files:
        guile-core/scripts: PROGRAM README display-commentary doc-snarf 
                            generate-autoload punify read-scheme-source 
                            snarf-check-and-output-texi use2dot 

Log message:
        In boilerplate, use -l$0.  Thanks to Daniel Skarda.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/PROGRAM.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/README.diff?cvsroot=OldCVS&tr1=1.1&tr2=1.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/display-commentary.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/doc-snarf.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/generate-autoload.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/punify.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/read-scheme-source.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/snarf-check-and-output-texi.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/scripts/use2dot.diff?cvsroot=OldCVS&tr1=1.4&tr2=1.5&r1=text&r2=text

Patches:
Index: guile/guile-core/scripts/PROGRAM
diff -u guile/guile-core/scripts/PROGRAM:1.4 
guile/guile-core/scripts/PROGRAM:1.5
--- guile/guile-core/scripts/PROGRAM:1.4        Sat Jul 14 02:40:10 2001
+++ guile/guile-core/scripts/PROGRAM    Tue Jul 31 22:09:30 2001
@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts PROGRAM)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; PROGRAM --- Does something
 
Index: guile/guile-core/scripts/README
diff -u guile/guile-core/scripts/README:1.1 guile/guile-core/scripts/README:1.2
--- guile/guile-core/scripts/README:1.1 Sun Apr 29 18:38:42 2001
+++ guile/guile-core/scripts/README     Tue Jul 31 22:09:30 2001
@@ -65,7 +65,7 @@
 
   #!/bin/sh
   main='(module-ref (resolve-module '\''(scripts PROGRAM)) '\'main')'
-  exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+  exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
   !#
 
 Following these conventions allows the program file to be used as module
Index: guile/guile-core/scripts/display-commentary
diff -u guile/guile-core/scripts/display-commentary:1.4 
guile/guile-core/scripts/display-commentary:1.5
--- guile/guile-core/scripts/display-commentary:1.4     Sat Jul 14 02:40:10 2001
+++ guile/guile-core/scripts/display-commentary Tue Jul 31 22:09:30 2001
@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts display-commentary)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; display-commentary --- As advertized
 
Index: guile/guile-core/scripts/doc-snarf
diff -u guile/guile-core/scripts/doc-snarf:1.4 
guile/guile-core/scripts/doc-snarf:1.5
--- guile/guile-core/scripts/doc-snarf:1.4      Sat Jul 14 02:40:10 2001
+++ guile/guile-core/scripts/doc-snarf  Tue Jul 31 22:09:30 2001
@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts doc-snarf)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; doc-snarf --- Extract documentation from source files
 
Index: guile/guile-core/scripts/generate-autoload
diff -u guile/guile-core/scripts/generate-autoload:1.5 
guile/guile-core/scripts/generate-autoload:1.6
--- guile/guile-core/scripts/generate-autoload:1.5      Sun Jul 22 04:08:18 2001
+++ guile/guile-core/scripts/generate-autoload  Tue Jul 31 22:09:30 2001
@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts generate-autoload)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; generate-autoload --- Display define-module form with autoload info
 
Index: guile/guile-core/scripts/punify
diff -u guile/guile-core/scripts/punify:1.4 guile/guile-core/scripts/punify:1.5
--- guile/guile-core/scripts/punify:1.4 Sat Jul 14 02:40:10 2001
+++ guile/guile-core/scripts/punify     Tue Jul 31 22:09:30 2001
@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts punify)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; punify --- Display Scheme code w/o unnecessary comments / whitespace
 
Index: guile/guile-core/scripts/read-scheme-source
diff -u guile/guile-core/scripts/read-scheme-source:1.4 
guile/guile-core/scripts/read-scheme-source:1.5
--- guile/guile-core/scripts/read-scheme-source:1.4     Sat Jul 14 02:40:10 2001
+++ guile/guile-core/scripts/read-scheme-source Tue Jul 31 22:09:30 2001
@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts read-scheme-source)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; read-scheme-source --- Read a file, recognizing scheme forms and comments
 
Index: guile/guile-core/scripts/snarf-check-and-output-texi
diff -u guile/guile-core/scripts/snarf-check-and-output-texi:1.5 
guile/guile-core/scripts/snarf-check-and-output-texi:1.6
--- guile/guile-core/scripts/snarf-check-and-output-texi:1.5    Sat Jul 14 
02:40:10 2001
+++ guile/guile-core/scripts/snarf-check-and-output-texi        Tue Jul 31 
22:09:30 2001
@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main="(module-ref (resolve-module '(scripts snarf-check-and-output-texi)) 
'main)"
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; snarf-check-and-output-texi --- called by the doc snarfer.
 
Index: guile/guile-core/scripts/use2dot
diff -u guile/guile-core/scripts/use2dot:1.4 
guile/guile-core/scripts/use2dot:1.5
--- guile/guile-core/scripts/use2dot:1.4        Sat Jul 14 02:40:10 2001
+++ guile/guile-core/scripts/use2dot    Tue Jul 31 22:09:30 2001
@@ -1,7 +1,7 @@
 #!/bin/sh
 # aside from this initial boilerplate, this is actually -*- scheme -*- code
 main='(module-ref (resolve-module '\''(scripts use2dot)) '\'main')'
-exec ${GUILE-guile} -c "(apply $main (cdr (command-line)))" "$@"
+exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
 !#
 ;;; use2dot --- Display module dependencies as a DOT specification