swank-picolisp

commit f949275909b39a3e264b1a07381012e75955951c
parent 6426dd4f76bde8f0443958e35635e99d53cd7934
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 30 Apr 2011 15:53:35 +0200

use ^ in %swank:ensure-autodoc-built-in regexp

Diffstat:
M
swank-picolisp.l
 | 
7
+++----

1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/swank-picolisp.l b/swank-picolisp.l
@@ -138,13 +138,12 @@
 
 (de %swank:ensure-autodoc-built-in ()
    (unless *Swank:autodoc-built-in
-      ## TODO use ^ in regexp!
       (if (== 64 64)
          (in (list "sh"
                 "-c"
-                (pack "grep -n '# (' "
+                (pack "grep -n '\^# (' "
                    (path "@src64")
-                   "/*.l | grep -v '# (c)'" ) )
+                   "/*.l | grep -v '\^# (c)'" ) )
             (use (@F @N @A @Z)
                (until (eof)
                   (when (match '(@F ":" @N ":" "#" " " "(" @A " " @Z) (line))
@@ -155,7 +154,7 @@
                            (pack @Z)
                            (pack @F)
                            (format (pack @N)) ) ) ) ) ) )
-         (in (list "sh" "-c" (pack "grep -n '// (' " (path "@src") "/*.c" ))
+         (in (list "sh" "-c" (pack "grep -n '\^// (' " (path "@src") "/*.c" ))
             (use (@F @N @A @Z)
                (until (eof)
                   (when (match '(@F ":" @N ":" "/" "/" " " "(" @A " " @Z) (line))