reduce-historical/psl-1983/3-1/doc/pslmac.lib

@Marker(Library,PSLMacrosNames)
@comment{ <GRISS>PSLMAC.LIB.2,  by Griss, from}
@comment{ <MAGUIRE>LOCALM.LIB.2, 13-May-82 05:46:06, Edit by MAGUIRE}
@comment{ Started by G. Q. Maguire Jr. on 13.5.82 }
@comment{ Various assorted commonly used macros for Local languages and
          papers, so they look consistent. }
@comment{ Commonly used and abused words}

@Commandstring(Dec20="DECSystem-20")
@Commandstring(VAX750="VAX 11/750")
@Commandstring(Apollo="Apollo DOMAIN")
@Commandstring(68000="Motorola MC68000")
@Commandstring(Wicat="Wicat System 100")
@Commandstring(PSL="@r[PSL]")

@comment{ The Short version of the names }
@Commandstring(sDec20="DEC-20")
@Commandstring(sVAX750="VAX 11/750")
@Commandstring(sApollo="Apollo")
@Commandstring(s68000="MC68000")
@Commandstring(sWicat="Wicat")

@comment[to be set spacially]
@Commandstring(cmacro="c-macro")
@Commandstring(anyreg="anyreg")

@TextForm(TM="@+[TM]@Foot[Trademark of @parm(text)]")

@comment{ Favorite Abbreviations and macros }

@Commandstring(xs = "s") @Comment{Plural for abbrevs}
@Commandstring(xlisp = "@r[L@c[isp]]")
@Commandstring(xlisps = "@xlisp systems")
@Commandstring(Franzlisp = "@r[F@c[ranz]]@xlisp")
@Commandstring(CommonLisp = "@r[C@c[ommon ]]@xlisp")
@Commandstring(lmlisp = "@r[Lisp Machine @xlisp]")
@Commandstring(newlisp = "@r[N@c[il]]")
@Commandstring(slisp = "@r[S@c[pice]] @xlisp")
@Commandstring(maclisp = "@r[M@c[ac]]@xlisp")
@Commandstring(interlisp = "@r[I@c[nter]]@xlisp")
@Commandstring(rlisp = "@r[R]@xlisp")
@Commandstring(picturerlisp = "@r[P@c[icture]]@rlisp")
@Commandstring(emode = "@r[E@c[mode]]")
@Commandstring(syslisp = "@r[S@c[ys]]@xlisp")
@Commandstring(stdlisp = "@r[S@c[tandard]] @xlisp")
@Commandstring(macsyma = "@r[MACSYMA]")
@Commandstring(reduce = "@r[REDUCE]")

@Commandstring(fortran = "@r[FORTRAN]")

@Comment[	Set Alpha_1 logo properly on the Omnitech	]
@Case(GenericDevice,
	Omnitech <
		@Define(FSS,Script -0.2 lines,Size 14)
		@CommandString(Alpha1="A@c(LPHA)@FSS(-)1")
		@commandstring(LTS="@value(LT)")
		@commandstring(EQS="@value(EQ)")
		@commandstring(PLS="@value(PLUSSIGN)")
		>,
	Else <
		@CommandString(Alpha1="Alpha_1")
                @commandString(PLS="+")
                @commandstring(EQS="=")
                @commandstring(LTS="<")
		>)

@comment{ Do the Ada, UNIX, etc. TradeMark stuff }
@Case(GenericDevice,
	Omnitech <
		@Define(Marks,Script +.5 lines, Size -5)
		@CommandString(TMS="@Marks(TM)")
		>,
	Else <
		@CommandString(TMS="@+(TM)")

		>)
@CommandString(ADA="Ada@TMS")
@CommandString(UNIX="UNIX@TMS")

@Case(GenericDevice, Omnitech {@TextForm<EI=[@i(@Parm(text))]>},
              else     {@TextForm<EI=[@DQ(@Parm(Text))]>}
     )