plugin tags-fix.shs: typos

diff --git a/src/blowfish/tags-fix.sh b/src/blowfish/tags-fix.sh
index 441c87fb64e6988692ffae74ec2a281d3dbbd120..ae5d023e63bb8e41802bf079224cdbf686498b37 100755 (executable)
--- a/src/blowfish/tags-fix.sh
+++ b/src/blowfish/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+            (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
        (let ((line (read-line in)))
-         #;(if (eof-object? line)
-             (begin (write-string ": <eof>") (newline))
-             (if (string=? line "\f")
-                 (begin (write-string ": <formfeed>") (newline))
-                 (begin (write-string ": ") (write-string line) (newline))))
          (cond ((eof-object? line)
                 unspecific)
                ((string=? line "\f")

diff --git a/src/gdbm/tags-fix.sh b/src/gdbm/tags-fix.sh
index 441c87fb64e6988692ffae74ec2a281d3dbbd120..ae5d023e63bb8e41802bf079224cdbf686498b37 100755 (executable)
--- a/src/gdbm/tags-fix.sh
+++ b/src/gdbm/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+            (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
        (let ((line (read-line in)))
-         #;(if (eof-object? line)
-             (begin (write-string ": <eof>") (newline))
-             (if (string=? line "\f")
-                 (begin (write-string ": <formfeed>") (newline))
-                 (begin (write-string ": ") (write-string line) (newline))))
          (cond ((eof-object? line)
                 unspecific)
                ((string=? line "\f")

diff --git a/src/mcrypt/tags-fix.sh b/src/mcrypt/tags-fix.sh
index 441c87fb64e6988692ffae74ec2a281d3dbbd120..ae5d023e63bb8e41802bf079224cdbf686498b37 100755 (executable)
--- a/src/mcrypt/tags-fix.sh
+++ b/src/mcrypt/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+            (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
        (let ((line (read-line in)))
-         #;(if (eof-object? line)
-             (begin (write-string ": <eof>") (newline))
-             (if (string=? line "\f")
-                 (begin (write-string ": <formfeed>") (newline))
-                 (begin (write-string ": ") (write-string line) (newline))))
          (cond ((eof-object? line)
                 unspecific)
                ((string=? line "\f")

diff --git a/src/md5/tags-fix.sh b/src/md5/tags-fix.sh
index 441c87fb64e6988692ffae74ec2a281d3dbbd120..ae5d023e63bb8e41802bf079224cdbf686498b37 100755 (executable)
--- a/src/md5/tags-fix.sh
+++ b/src/md5/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+            (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
        (let ((line (read-line in)))
-         #;(if (eof-object? line)
-             (begin (write-string ": <eof>") (newline))
-             (if (string=? line "\f")
-                 (begin (write-string ": <formfeed>") (newline))
-                 (begin (write-string ": ") (write-string line) (newline))))
          (cond ((eof-object? line)
                 unspecific)
                ((string=? line "\f")

diff --git a/src/mhash/tags-fix.sh b/src/mhash/tags-fix.sh
index 441c87fb64e6988692ffae74ec2a281d3dbbd120..ae5d023e63bb8e41802bf079224cdbf686498b37 100755 (executable)
--- a/src/mhash/tags-fix.sh
+++ b/src/mhash/tags-fix.sh
@@ -6,18 +6,14 @@
 set -e
 : ${MIT_SCHEME_EXE=mit-scheme}
 ${MIT_SCHEME_EXE} --batch-mode <<\EOF
-(let ((name "blowfish"))
+(let ((name (pathname-name
+            (directory-pathname-as-file (working-directory-pathname)))))
   (let ((shim.c-prefix (string-append name "-shim.c,"))
        (const.c-prefix (string-append name "-const.c,")))
 
     (define (rewriter in out)
       (let loop ((skipping? #f))
        (let ((line (read-line in)))
-         #;(if (eof-object? line)
-             (begin (write-string ": <eof>") (newline))
-             (if (string=? line "\f")
-                 (begin (write-string ": <formfeed>") (newline))
-                 (begin (write-string ": ") (write-string line) (newline))))
          (cond ((eof-object? line)
                 unspecific)
                ((string=? line "\f")