From 4de3c3da5fd55bb91e948d4728784ccaf870ab78 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 10 Apr 2016 12:52:09 -0700 Subject: [PATCH] plugin tags-fix.shs: typos --- src/blowfish/tags-fix.sh | 8 ++------ src/gdbm/tags-fix.sh | 8 ++------ src/mcrypt/tags-fix.sh | 8 ++------ src/md5/tags-fix.sh | 8 ++------ src/mhash/tags-fix.sh | 8 ++------ 5 files changed, 10 insertions(+), 30 deletions(-) diff --git a/src/blowfish/tags-fix.sh b/src/blowfish/tags-fix.sh index 441c87fb6..ae5d023e6 100755 --- 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 ": ") (newline)) - (if (string=? line "\f") - (begin (write-string ": ") (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 441c87fb6..ae5d023e6 100755 --- 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 ": ") (newline)) - (if (string=? line "\f") - (begin (write-string ": ") (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 441c87fb6..ae5d023e6 100755 --- 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 ": ") (newline)) - (if (string=? line "\f") - (begin (write-string ": ") (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 441c87fb6..ae5d023e6 100755 --- 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 ": ") (newline)) - (if (string=? line "\f") - (begin (write-string ": ") (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 441c87fb6..ae5d023e6 100755 --- 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 ": ") (newline)) - (if (string=? line "\f") - (begin (write-string ": ") (newline)) - (begin (write-string ": ") (write-string line) (newline)))) (cond ((eof-object? line) unspecific) ((string=? line "\f") -- 2.25.1