BSD 4_1_snap development

Work on file usr/src/cmd/lisp/liszt/ltags
Work on file usr/src/cmd/lisp/liszt/uctolc.c

Synthesized-from: CSRG/cd1/4.1.snap

diff --git a/usr/src/cmd/lisp/liszt/ltags b/usr/src/cmd/lisp/liszt/ltags
new file mode 100644 (file)
index 0000000..0b0aa99
--- /dev/null
+++ b/usr/src/cmd/lisp/liszt/ltags
@@ -0,0 +1,2 @@
+/^\(DEF/       { print $2, FILENAME, "?^" $0 "$?" }
+/^\(def/       { print $2, FILENAME, "?^" $0 "$?" }

diff --git a/usr/src/cmd/lisp/liszt/uctolc.c b/usr/src/cmd/lisp/liszt/uctolc.c
new file mode 100644 (file)
index 0000000..f50e95e
--- /dev/null
+++ b/usr/src/cmd/lisp/liszt/uctolc.c
@@ -0,0 +1,30 @@
+#include <stdio.h>
+#include <ctype.h>
+/*   uctolc                                    j foderaro
+       convert upper case to lower case
+       in the first field of a tags file
+ */
+#define TRUE -1
+main()
+{
+       register char c;
+       while(TRUE)
+       {
+         pt1:
+               while( (c=getchar()) != EOF)
+               {       
+                   if(isupper(c))putchar( c + ('a' - 'A'));
+                   else if(c == ' ') goto pt2;
+                   else putchar(c);
+               }
+               exit();
+       pt2:
+               putchar(c);
+               while( (c=getchar()) != EOF)
+               {
+                   putchar(c);
+                   if(c == '\n') goto pt1;
+               }
+               exit();
+       }
+}