commit 6426dd4f76bde8f0443958e35635e99d53cd7934 parent c282a12e0fa704ffa396ffeef44fdca5c1a17c61 Author: Tomas Hlavaty <tom@logand.com> Date: Sat, 30 Apr 2011 14:49:16 +0200 %swank:ensure-autodoc-built-in works with 32bit picolisp Diffstat:
| M | swank-picolisp.l | | | 45 | ++++++++++++++++++++++++++++----------------- |
1 file changed, 28 insertions(+), 17 deletions(-)
diff --git a/swank-picolisp.l b/swank-picolisp.l @@ -138,23 +138,34 @@ (de %swank:ensure-autodoc-built-in () (unless *Swank:autodoc-built-in - (in (list "sh" - "-c" - (pack - "grep -n '# (' " - (path "@") - (if (== 64 64) "src64" "src") - "/*.l | grep -v '# (c)'" ) ) - (use (@A @B) - (until (eof) - (when (match '(@F ":" @N ":" "#" " " "(" @A " " @Z) (line)) - ## TODO multiple lines, e.g.'for' - (push '*Swank:autodoc-built-in - (list - (pack @A) - (pack @Z) - (pack @F) - (format (pack @N)) ) ) ) ) ) ) ) + ## TODO use ^ in regexp! + (if (== 64 64) + (in (list "sh" + "-c" + (pack "grep -n '# (' " + (path "@src64") + "/*.l | grep -v '# (c)'" ) ) + (use (@F @N @A @Z) + (until (eof) + (when (match '(@F ":" @N ":" "#" " " "(" @A " " @Z) (line)) + ## TODO multiple lines, e.g.'for' + (push '*Swank:autodoc-built-in + (list + (pack @A) + (pack @Z) + (pack @F) + (format (pack @N)) ) ) ) ) ) ) + (in (list "sh" "-c" (pack "grep -n '// (' " (path "@src") "/*.c" )) + (use (@F @N @A @Z) + (until (eof) + (when (match '(@F ":" @N ":" "/" "/" " " "(" @A " " @Z) (line)) + ## TODO multiple lines, e.g.'for' + (push '*Swank:autodoc-built-in + (list + (pack @A) + (pack @Z) + (pack @F) + (format (pack @N)) ) ) ) ) ) ) ) ) *Swank:autodoc-built-in ) (de %swank:autodoc-built-in (Nm)