Remove duplicate junk.

1 files changed, 0 insertions, 135 deletions

diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot
index 7a6a44b1..ded0a051 100644
--- a/src/interp/ht-util.boot
+++ b/src/interp/ht-util.boot
@@ -139,7 +139,6 @@ replacePercentByDollar s == fn(s,0,MAXINDEX s) where
     STRCONC(SUBSTRING(s,i,m - i),'"$",fn(s,m + 1,n))
 
 htpSetLabelInputString(htPage, label, val) ==
-------------------> OBSELETE
 -- value user typed as input string on page
   props := LASSOC(label, htpInputAreaAlist htPage)
   props => SETELT(props, 0, STRINGIMAGE val)
@@ -206,10 +205,6 @@ htpPageDescription htPage ==
 htpSetPageDescription(htPage, pageDescription) ==
   SETELT(htPage, 7, pageDescription)
 
-htpAddToPageDescription(htPage, pageDescrip) ==
--------------> OBSELETE <-----------
-  SETELT(htPage, 7, nconc(nreverse COPY_-LIST pageDescrip, ELT(htPage, 7)))
-
 iht line ==
 -- issue a single hyperteTeX line, or a group of lines
   $newPage => nil
@@ -217,13 +212,6 @@ iht line ==
     $htLineList := NCONC(nreverse mapStringize COPY_-LIST line, $htLineList)
   $htLineList := [basicStringize line, :$htLineList]
 
-bcHt line ==
---line = '"\##1" => harharhar()
-  iht line
-  PAIRP line =>
-    if $newPage then htpAddToPageDescription($curPage, [['text, :line]])
-  if $newPage then htpAddToPageDescription($curPage, [['text, line]])
-
 bcIssueHt line ==
   PAIRP line => htMakePage1 line
   iht line
@@ -246,14 +234,6 @@ stringize s ==
   STRINGP s => s
   PRINC_-TO_-STRING s
 
-htInitPage(title, propList) ==
-----------------------------> OBSELETE---cannot return $curPage
--- start defining a hyperTeX page
-  htInitPageNoScroll(propList, title)
-  htSayStandard '"\beginscroll "
-  $curPage
-
-
 --htInitPageNoHeading(propList) ==
 -----------------------> replaced by htInitPageNoScroll
 -- start defining a hyperTeX page
@@ -263,64 +243,6 @@ htInitPage(title, propList) ==
 --  $htLineList := nil
 --  $curPage
 
-htAddHeading(title) ==
-------------------------> OBSELETE
-  htNewPage title
-  $curPage
-
-htShowPage() ==
--- show the page which has been computed
-  htSayStandard '"\endscroll"
-  htShowPageNoScroll()
-
-htShowPageNoScroll() ==
-------------------------> OBSELETE
--- show the page which has been computed
-  htSayStandard '"\autobuttons"
-  htpSetPageDescription($curPage, nreverse htpPageDescription $curPage)
-  $newPage := false
-  $htLineList := nil
-  htMakePage htpPageDescription $curPage
-  line := APPLY(function CONCAT, nreverse $htLineList)
-  issueHT line
-  endHTPage()
-
-htMakePage itemList ==
-------------------------> OBSELETE
--- make a page given the description in itemList
-  if $newPage then htpAddToPageDescription($curPage, itemList)
-  htMakePage1 itemList
-
-htMakePage1 itemList ==
--- make a page given the description in itemList
-  for [itemType, :items] in itemList repeat
-    itemType = 'text              => iht items
-    itemType = 'lispLinks         => htLispLinks items
-    itemType = 'lispmemoLinks     => htLispMemoLinks items
-    itemType = 'bcLinks           => htBcLinks items               --->
-    itemType = 'bcLinksNS         => htBcLinks(items,true)
-    itemType = 'bcLispLinks       => htBcLispLinks items           --->
-    itemType = 'radioButtons      => htRadioButtons items
-    itemType = 'bcRadioButtons    => htBcRadioButtons items
-    itemType = 'inputStrings      => htInputStrings items
-    itemType = 'domainConditions  => htProcessDomainConditions items
-    itemType = 'bcStrings         => htProcessBcStrings items
-    itemType = 'toggleButtons     => htProcessToggleButtons items
-    itemType = 'bcButtons         => htProcessBcButtons items
-    itemType = 'doneButton        => htProcessDoneButton items
-    itemType = 'doitButton        => htProcessDoitButton items
-    systemError ['"unknown itemType", itemType]
-
-htMakeErrorPage htPage ==
-------------------> OBSELETE
-  $newPage := false
-  $htLineList := nil
-  $curPage := htPage
-  htMakePage htpPageDescription htPage
-  line := APPLY(function CONCAT, nreverse $htLineList)
-  issueHT line
-  endHTPage()
-
 htQuote s ==
 -- wrap quotes around a piece of hyperTeX
   iht '"_""
@@ -349,19 +271,6 @@ htProcessBcButtons buttons ==
     iht ['"\inputbox[", htpLabelDefault($curPage, buttonName), '"]{",
          buttonName, '"}{\htbmfile{pick}}{\htbmfile{unpick}}"]
 
-htProcessBcStrings strings ==
----------------------> OBSELETE <------------------------
-  for [numChars, default, stringName, spadType, :filter] in strings repeat
-    mess2 := '""
-    if NULL LASSOC(stringName, htpInputAreaAlist $curPage) then
-      setUpDefault(stringName, ['string, default, spadType, filter])
-    if htpLabelErrorMsg($curPage, stringName) then
-      iht ['"\centerline{{\em ", htpLabelErrorMsg($curPage, stringName), '"}}"]
-      mess2 := CONCAT(mess2, bcSadFaces())
-      htpSetLabelErrorMsg($curPage, stringName, nil)
-    iht ['"\inputstring{", stringName, '"}{",
-         numChars, '"}{", htpLabelDefault($curPage,stringName), '"} ", mess2]
-
 bcSadFaces() ==
   '"\space{1}{\em\htbitmap{error}\htbitmap{error}\htbitmap{error}}"
 
@@ -381,22 +290,6 @@ htLispLinks(links,:option) ==
 
 htLispMemoLinks(links) == htLispLinks(links,true)
 
-htBcLinks(links,:options) ==
--------------------------> OBSELETE
-  skipStateInfo? := IFCAR options
-  [links,options] := beforeAfter('options,links)
-  for [message, info, func, :value] in links repeat
-    htMakeButton('"\lispdownlink",message,
-                   mkCurryFun(func, value),skipStateInfo?)
-    bcIssueHt info
-
-htBcLispLinks links ==
--------------------------> OBSELETE
-  [links,options] := beforeAfter('options,links)
-  for [message, info, func, :value] in links repeat
-    htMakeButton('"\lisplink",message, mkCurryFun(func, value))
-    bcIssueHt info
-
 beforeAfter(x,u) == [[y for [y,:r] in tails u while x ^= y],r]
 
 mkCurryFun(fun, val) ==
@@ -441,10 +334,6 @@ htBcRadioButtons [groupName, :buttons] ==
     iht '"\space{}}"
     bcIssueHt info
 
-setUpDefault(name, props) ==
----------------> OBSELETE <----------------
-  htpAddInputAreaProp($curPage, name, props)
-
 buttonNames buttons ==
   [buttonName for [.,., buttonName] in buttons]
 
@@ -543,23 +432,6 @@ htProcessDoneButton [label , func] ==
 
   iht '"} "
 
-htMakeButton(htCommand, message, func,:options) ==
-----------> OBSELETE <----------------------------------
-  skipStateInfo? := IFCAR options
-  iht [htCommand, '"{"]
-  bcIssueHt message
-  skipStateInfo? =>
-    iht ['"}{(|htDoneButton| '|", func, '"| ",htpName $curPage, '")}"]
-  iht ['"}{(|htDoneButton| '|", func, '"| (PROGN "]
-  for [id, ., ., ., type, :.] in htpInputAreaAlist $curPage repeat
-    iht ['"(|htpSetLabelInputString| ", htpName $curPage, '"'|", id, '"| "]
-    if type = 'string then
-      iht ['"_"\stringvalue{", id, '"}_""]
-    else
-      iht ['"_"\boxvalue{", id, '"}_""]
-    iht '") "
-  iht [htpName $curPage, '"))}"]
-
 bchtMakeButton(htCommand, message, func) ==
   bcHt [htCommand, '"{", message,
        '"}{(|htDoneButton| '|", func, '"| (PROGN "]
@@ -605,13 +477,6 @@ executeInterpreterCommand command ==
   PRINC MKPROMPT()
   FINISH_-OUTPUT()
 
-htDoneButton(func, htPage) ==
-  typeCheckInputAreas htPage =>
-    htMakeErrorPage htPage
-  NULL FBOUNDP func =>
-    systemError ['"unknown function", func]
-  FUNCALL(SYMBOL_-FUNCTION func, htPage)
-
 typeCheckInputAreas htPage ==
   -- This needs to be severly beefed up
   inputAlist := nil