Remove hypertex.boot

hemmecke · Apr 17, 2024 · 14ec066 · 14ec066
1 parent b0fd15c
commit 14ec066
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 123 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,9 @@
+2024-04-17  Waldek Hebisch  <cas@fricas.org>
+
+	* src/interp/hypertex.boot: Remove
+	src/interp/br-saturn.boot: Move needed part here
+        src/interp/htsetvar.boot: Remove 'htsv'
+
 2024-04-17  Waldek Hebisch  <cas@fricas.org>
 
 	* src/doc/ht/gloss.text, src/doc/ht/util.ht,

diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in
@@ -27,7 +27,7 @@ OBJ_files= macros setq \
 	buildom cattable clam clammed \
 	compat compress cparse cstream database \
 	format g-boot g-cndata g-error g-opt \
-	g-timer	g-util hypertex i-analy \
+	g-timer	g-util i-analy \
 	i-coerce i-coerfn i-eval i-funsel i-intern \
 	i-map i-output i-resolv	i-spec1 i-spec2 i-syscmd \
 	i-toplev incl interop int-top lisplib macex match \

diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot
@@ -92,6 +92,12 @@ htShowPageNoScroll() ==
   issueHTStandard line
   endHTPage()
 
+DEFCONSTANT($SendLine, 98)
+DEFCONSTANT($EndOfPage, 99)
+DEFCONSTANT($SpadError, 90)
+
+sendHTErrorSignal() ==
+    sockSendInt($MenuServer, $SpadError)
 
 issueHTStandard line == --called by htMakePageNoScroll and htMakeErrorPage
     sockSendInt($MenuServer, $SendLine)
@@ -104,7 +110,7 @@ htMakeErrorPage htPage ==
   $curPage := htPage
   htMakePage htpPageDescription htPage
   line := concatenateStringList(nreverse $htLineList)
-  issueHT line
+  issueHTStandard(line)
   endHTPage()
 
 --=======================================================================

diff --git a/src/interp/htsetvar.boot b/src/interp/htsetvar.boot
@@ -31,10 +31,6 @@
 
 )package "BOOT"
 
-htsv() ==
-  startHTPage(50)
-  htSetVars()
-
 htSetVars() ==
   $path := nil
   $lastTree := nil

diff --git a/src/interp/hypertex.boot b/src/interp/hypertex.boot