diff options
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 165 |
1 files changed, 165 insertions, 0 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index a9a26e81..e7c1d62b 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -215,6 +215,171 @@ _*TALLPAR := false $collectOutput := false +--% Output functions dispatch tables. + +for x in '((+ WIDTH sumWidth) + (_- APP appneg) + (_- WIDTH minusWidth) + (_/ APP appfrac) + (_/ SUBSPAN fracsub) + (_/ SUPERSPAN fracsuper) + (_/ WIDTH fracwidth) + (AGGSET APP argsapp) + (AGGSET SUBSPAN agggsub) + (AGGSET SUPERSPAN agggsuper) + (AGGSET WIDTH agggwidth) + (binom APP binomApp) + (binomSUBSPAN binomSub) + (binom SUPERSPAN binomSuper) + (binom WIDTH binomWidth) + (ALTSUPERSUB APP altSuperSubApp) + (ALTSUPERSUB SUBSPAN altSuperSubSub) + (ALTSUPERSUB SUPERSPAN altSuperSubSuper) + (ALTSUPERSUB WIDTH altSuperSubWidth) + (BOX APP boxApp) + (BOX SUBSPAN boxSub) + (BOX SUPERSPAN boxSuper) + (BOX WIDTH boxWidth) + (BRACKET SUBSPAN qTSub) + (BRACKET SUPERSPAN qTSuper) + (BRACKET WIDTH qTWidth) + (CENTER APP centerApp) + (EXT APP appext) + (EXT SUBSPAN extsub) + (EXT SUPERSPAN extsuper) + (EXT WIDTH extwidth) + (MATRIX APP appmat) + (MATRIX SUBSPAN matSub) + (MATRIX SUPERSPAN matSuper) + (MATRIX WIDTH matWidth) + (NOTHING APP nothingApp) + (NOTHING SUPERSPAN nothingSuper) + (NOTHING SUBSPAN nothingSub) + (NOTHING WIDTH nothingWidth) + (OVER APP appfrac) + (OVER SUBSPAN fracsub) + (OVER SUPERSPAN fracsuper) + (OVER WIDTH fracwidth) + (OVERLABEL APP overlabelApp) + (OVERLABEL SUPERSPAN overlabelSuper) + (OVERLABEL WIDTH overlabelWidth) + (OVERBAR APP overbarApp) + (OVERBAR SUPERSPAN overbarSuper) + (OVERBAR WIDTH overbarWidth) + (PAREN APP appparu1) + (PAREN SUBSPAN qTSub) + (PAREN SUPERSPAN qTSuper) + (PAREN WIDTH qTWidth) + (ROOT APP rootApp) + (ROOT SUBSPAN rootSub) + (ROOT SUPERSPAN rootSuper) + (ROOT WIDTH rootWidth) + (ROW WIDTH eq0) + (SC APP appsc) + (SC SUBSPAN agggsub) + (SC SUPERSPAN agggsuper) + (SC WIDTH widthSC) + (SETQ APP appsetq) + (SETQ WIDTH letWidth) + (SLASH APP slashApp) + (SLASH SUBSPAN slashSub) + (SLASH SUPERSPAN slashSuper) + (SLASH WIDTH slashWidth) + (SUB APP appsub) + (SUB SUBSPAN subSub) + (SUB SUPERSPAN subSuper) + (SUB WIDTH suScWidth) + (SUPERSUB APP superSubApp) + (SUPERSUB SUBSPAN superSubSub) + (SUPERSUB SUPERSPAN superSubSuper) + (SUPERSUB WIDTH superSubWidth) + (VCONCAT APP vconcatapp) + (VCONCAT SUBSPAN vConcatSub) + (VCONCAT SUPERSPAN vConcatSuper) + (VCONCAT WIDTH vConcatWidth) + (BINOMIAL APP binomialApp) + (BINOMIAL SUBSPAN binomialSub) + (BINOMIAL SUPERSPAN binomialSuper) + (BINOMIAL WIDTH binomialWidth) + (ZAG APP zagApp) + (ZAG SUBSPAN zagSub) + (ZAG SUPERSPAN zagSuper) + (ZAG WIDTH zagWidth)) + repeat + MAKEPROP(first x, second x, third x) + + +for x in '((+ APP plusApp) + (* APP timesApp) + (* WIDTH timesWidth) + (** APP exptApp) + (** WIDTH exptWidth) + (** SUBSPAN exptSub) + (** SUPERSPAN exptSuper) + (^ APP exptApp) + (^ WIDTH exptWidth) + (^ SUBSPAN exptSub) + (^ SUPERSPAN exptSuper) + (STEP APP stepApp) + (STEP WIDTH stepWidth) + (STEP SUBSPAN stepSub) + (STEP SUPERSPAN stepSuper) + (IN APP inApp) + (IN WIDTH inWidth) + (IN SUBSPAN inSub) + (IN SUPERSPAN inSuper) + (AGGLST APP aggApp) + (AGGLST SUBSPAN aggSub) + (AGGLST SUPERSPAN aggSuper) + (CONCATB APP concatbApp) + (CONCATB SUBSPAN concatSub) + (CONCATB SUPERSPAN concatSuper) + (CONCATB WIDTH concatbWidth) + (CONCAT APP concatApp) + (CONCAT SUBSPAN concatSub) + (CONCAT SUPERSPAN concatSuper) + (CONCAT WIDTH concatWidth) + (QUOTE APP quoteApp) + (QUOTE SUBSPAN quoteSub) + (QUOTE SUPERSPAN quoteSuper) + (QUOTE WIDTH quoteWidth) + (STRING APP stringApp) + (STRING SUBSPAN eq0) + (STRING SUPERSPAN eq0) + (STRING WIDTH stringWidth) + (SIGMA APP sigmaApp) + (SIGMA SUBSPAN sigmaSub) + (SIGMA SUPERSPAN sigmaSup) + (SIGMA WIDTH sigmaWidth) + (SIGMA2 APP sigma2App) + (SIGMA2 SUBSPAN sigma2Sub) + (SIGMA2 SUPERSPAN sigma2Sup) + (SIGMA2 WIDTH sigma2Width) + (INTSIGN APP intApp) + (INTSIGN SUBSPAN intSub) + (INTSIGN SUPERSPAN intSup) + (INTSIGN WIDTH intWidth) + (INDEFINTEGRAL APP indefIntegralApp) + (INDEFINTEGRAL SUBSPAN indefIntegralSub) + (INDEFINTEGRAL SUPERSPAN indefIntegralSup) + (INDEFINTEGRAL WIDTH indefIntegralWidth) + (PI APP piApp) + (PI SUBSPAN piSub) + (PI SUPERSPAN piSup) + (PI WIDTH piWidth) + (PI2 APP pi2App) + (PI2 SUBSPAN pi2Sub) + (PI2 SUPERSPAN pi2Sup) + (PI2 WIDTH pi2Width) + (AGGLST WIDTH aggWidth) + (BRACKET APP bracketApp) + (BRACE APP braceApp) + (BRACE WIDTH qTWidth)) + repeat + MAKEPROP(first x, second x, third x) + +--% + specialChar(symbol) == -- looks up symbol in $specialCharacterAlist, gets the index -- into the EBCDIC table, and returns the appropriate character |