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