A couple comments to clarify make-uffi-for-files
Thu Aug 10 07:32:05 PDT 2006 Daniel Dickison (danieldickison@gmail.com)
* A couple comments to clarify make-uffi-for-files
diff -rN -u old-c2ffi/C-to-FFI.lisp new-c2ffi/C-to-FFI.lisp
--- old-c2ffi/C-to-FFI.lisp 2014-07-28 15:33:43.000000000 -0700
+++ new-c2ffi/C-to-FFI.lisp 2014-07-28 15:33:43.000000000 -0700
@@ -21,6 +21,8 @@
(ensure-directories-exist xmlfile)
(ensure-directories-exist lispfile)
(format *terminal-io* "~&~%Input: ~S~%XML: ~S~%UFFI: ~S~%" infile xmlfile lispfile)
+
+ ;; Run GCC-XML.
(ccl:run-program (namestring *gccxml-command-path*)
(list* (namestring infile)
(namestring xmlfile)
@@ -28,6 +30,8 @@
(list (namestring (truename gcc-opts-file)))))
:output *terminal-io*
:error *terminal-io*)
+
+ ;; Run the XML parser and UFFI generator.
(let ((xml (parse-header-xml xmlfile)))
(write-defs (make-uffi-defs xml)
lispfile)))))