From 748d4b3a26a0af6b66b3794fec69b125593bd72c Mon Sep 17 00:00:00 2001 From: garland <garland> Date: Tue, 2 Feb 1993 20:58:28 +0000 Subject: [PATCH] Fixed things up so that the StringTable.h file gets written out properly with all the other header files. --- motif/lisp/interface-build.lisp | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/motif/lisp/interface-build.lisp b/motif/lisp/interface-build.lisp index e1578e232..28009ee17 100644 --- a/motif/lisp/interface-build.lisp +++ b/motif/lisp/interface-build.lisp @@ -61,6 +61,16 @@ (format out " ~a,~%" (aref *request-table* index))) (format out " NULL~%};~%")) +(defun build-string-table (out) + (declare (stream out)) + (let ((table xti::*toolkit-string-table*)) + (declare (simple-vector table)) + (write-line "String string_table[] = {" out) + (dotimes (index (length table)) + (format out " \"~a\",~%" (svref table index))) + (format out " NULL~%};~%~%") + (format out "#define STRING_TABLE_SIZE ~a~%" (length table)))) + (defun build-toolkit-interface () (with-open-file (out *class-file* :direction :output :if-exists :supersede @@ -73,17 +83,8 @@ (with-open-file (out *interface-file* :direction :output :if-exists :supersede :if-does-not-exist :create) - (build-interface-file out))) - -(defun build-string-table () + (build-interface-file out)) (with-open-file (out *string-table-file* :direction :output :if-exists :supersede :if-does-not-exist :create) - (declare (stream out)) - (let ((table xti::*toolkit-string-table*)) - (declare (simple-vector table)) - (write-line "String string_table[] = {" out) - (dotimes (index (length table)) - (format out " \"~a\",~%" (svref table index))) - (format out " NULL~%};~%~%") - (format out "#define STRING_TABLE_SIZE ~a~%" (length table))))) + (build-string-table out))) -- GitLab