array parameters also accept pointers

[clinton/guile-figl.git] / maint / update-low-level-bindings

diff --git a/maint/update-low-level-bindings b/maint/update-low-level-bindings
index a023ec5..5764bc2 100755 (executable)
--- a/maint/update-low-level-bindings
+++ b/maint/update-low-level-bindings
@@ -21,16 +21,16 @@
             (loop (cdr l) (cons (car l) (cons elem dest)))))))
 
 (define (module-name->scm-name mod-name)
-  (in-vicinity
-   (abs-top-srcdir)
-   (string-append (string-join (map symbol->string mod-name) "/")
-                  ".scm")))
+  (string-join (list (abs-top-srcdir)
+                     "figl"
+                     (symbol->string mod-name)
+                     "low-level.scm")
+               "/"))
 
 (define (module-name->texi-name mod-name)
   (in-vicinity
    (in-vicinity (abs-top-srcdir) "doc")
-   (string-append (string-join (map symbol->string (cdr mod-name)) "-")
-                  ".texi")))
+   (string-append "low-level-" (symbol->string mod-name) ".texi")))
 
 (define (unique-copyrights defs)
   (let lp ((in defs) (out '()))
@@ -83,8 +83,9 @@
 " port)
   (newline port)
   (pretty-print
-   `(define-module ,mod-name
-      #:use-module (figl low-level support)
+   `(define-module (figl ,mod-name low-level)
+      #:use-module (figl ,mod-name runtime)
+      #:use-module (figl ,mod-name types)
       #:export ,(append-map (lambda (def)
                               (map car (gl-definition-prototypes def)))
                             defs))
@@ -93,10 +94,11 @@
   (for-each
    (lambda (def)
      (pretty-print
-      `(define-gl-procedure ,(gl-definition-prototypes def)
-         ,(string-trim-both
-           (stexi->plain-text
-            (gl-definition-documentation def))))
+      `(,(symbol-append 'define- mod-name '-procedures)
+        ,(gl-definition-prototypes def)
+        ,(string-trim-both
+          (stexi->plain-text
+           (gl-definition-documentation def))))
       port)
      (newline port))
    defs))
@@ -107,7 +109,7 @@
     `(*fragment*
       (para "The functions from this section may be had by loading "
             "the module:")
-      (example "(use-modules " ,(object->string mod-name) ")")
+      (example "(use-modules (figl " ,(object->string mod-name) " low-level)")
       (copying
        (para
         "This section of the manual was derived from the upstream "
@@ -166,9 +168,9 @@
   (call-with-values
       (lambda () (partition-definitions version))
     (lambda (gl glu glx)
-      (write-bindings '(figl low-level gl) (reverse gl))
-      (write-bindings '(figl low-level glu) (reverse glu))
-      (write-bindings '(figl low-level glx) (reverse glx)))))
+      (write-bindings 'gl (reverse gl))
+      (write-bindings 'glu (reverse glu))
+      (write-bindings 'glx (reverse glx)))))
 
 (when (batch-mode?)
   (apply main (command-line)))