Adding new script as a possible new tool

2025-05-23 20:15:05 +02:00 · 2016-01-13 23:28:10 -05:00 · 2016-01-13 23:28:10 -05:00 · 964ccfc361
commit 964ccfc361
parent 678d84e358
1 changed files with 40 additions and 0 deletions
--- a/api-testing.scm
+++ b/api-testing.scm
@ -0,0 +1,40 @@
+(import 
+  (scheme base)
+  (scheme file)
+  (scheme read)
+  (scheme write)
+  (scheme cyclone util)
+)
+
+;; TODO: this was not working in icyc - wtf?
+;(let ((tmp (call-with-input-file "../scheme/base.sld" 
+;                                (lambda (fp) 
+;                                  (read-all fp)))))
+;  (write
+;   (cdar 
+;    (filter 
+;      (lambda (l) 
+;        (tagged-list? 'export l)) 
+;      (car tmp)))))
+
+(define (read-exports filename)
+  (let* ((tmp (call-with-input-file filename
+                                  (lambda (fp) 
+                                    (read-all fp))))
+         (exports (cdar 
+                    (filter 
+                      (lambda (l) 
+                        (tagged-list? 'export l)) 
+                      (car tmp)))))
+    (write
+    (map
+      (lambda (e)
+        (system 
+          (string-append
+          ;; TODO: not good enough, what about define-syntax?
+            "grep -n \"define[ ]*[ \\(]"
+            (symbol->string e)
+            " \" " filename)))
+      exports)))
+)
+(read-exports "../scheme/file.sld")