home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari FTP
/
ATARI_FTP_0693.zip
/
ATARI_FTP_0693
/
Tex
/
texsrc.arc
/
COERCE.H
< prev
next >
Wrap
Text File
|
1988-09-14
|
25KB
|
566 lines
#define zmem (zzzaa - memmin)
#define r_initialize register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_println
#define printchar(a) zprintchar((int)(a))
#define r_printchar register memoryword *eqtb=zeqtb;
#define print(a) zprint((integer)(a))
#define r_print register memoryword *eqtb=zeqtb;
#define slowprint(a) zslowprint((integer)(a))
#define r_slowprint register memoryword *eqtb=zeqtb;
#define printnl(a) zprintnl((strnumber)(a))
#define r_printnl
#define printesc(a) zprintesc((strnumber)(a))
#define r_printesc register memoryword *eqtb=zeqtb;
#define printthedigs(a) zprintthedigs((int)(a))
#define r_printthedigs
#define printint(a) zprintint((integer)(a))
#define r_printint
#define printcs(a) zprintcs((integer)(a))
#define r_printcs register memoryword *eqtb=zeqtb;
#define sprintcs(a) zsprintcs((halfword)(a))
#define r_sprintcs
#define printfilenam(a,b,c) zprintfilenam((integer)(a),(integer)(b),(integer)(c))
#define r_printfilenam
#define printsize(a) zprintsize((integer)(a))
#define r_printsize
#define printwritewh(a,b) zprintwritewh((strnumber)(a),(halfword)(b))
#define r_printwritewh register memoryword *mem=zmem;
#define r_jumpout
#define r_error
#define fatalerror(a) zfatalerror((strnumber)(a))
#define r_fatalerror
#define overflow(a,b) zoverflow((strnumber)(a),(integer)(b))
#define r_overflow
#define confusion(a) zconfusion((strnumber)(a))
#define r_confusion
boolean initterminal();
#define r_initterminal
strnumber makestring();
#define r_makestring
#define streqbuf(a,b) zstreqbuf((strnumber)(a),(integer)(b))
boolean zstreqbuf();
#define r_streqbuf
#define streqstr(a,b) zstreqstr((strnumber)(a),(strnumber)(b))
boolean zstreqstr();
#define r_streqstr
boolean getstringsst();
#define r_getstringsst
#define printtwo(a) zprinttwo((integer)(a))
#define r_printtwo
#define printhex(a) zprinthex((integer)(a))
#define r_printhex
#define printASCII(a) zprintASCII((integer)(a))
#define r_printASCII
#define printromanin(a) zprintromanin((integer)(a))
#define r_printromanin
#define r_printcurrent
#define r_terminput
#define interror(a) zinterror((integer)(a))
#define r_interror
#define r_normalizesel
#define r_pauseforinst
#define half(a) zhalf((integer)(a))
integer zhalf();
#define r_half
#define rounddecimal(a) zrounddecimal((int)(a))
scaled zrounddecimal();
#define r_rounddecimal
#define printscaled(a) zprintscaled((scaled)(a))
#define r_printscaled
#define nxplusy(a,b,c) znxplusy((integer)(a),(scaled)(b),(scaled)(c))
scaled znxplusy();
#define r_nxplusy
#define xovern(a,b) zxovern((scaled)(a),(integer)(b))
scaled zxovern();
#define r_xovern
#define xnoverd(a,b,c) zxnoverd((scaled)(a),(integer)(b),(integer)(c))
scaled zxnoverd();
#define r_xnoverd
#define badness(a,b) zbadness((scaled)(a),(scaled)(b))
halfword zbadness();
#define r_badness
#define printword(a) zprintword((memoryword)(a))
#define r_printword
#define showtokenlis(a,b,c) zshowtokenlis((integer)(a),(integer)(b),(integer)(c))
#define r_showtokenlis register memoryword *mem=zmem;
#define r_runaway register memoryword *mem=zmem;
halfword getavail();
#define r_getavail register memoryword *mem=zmem;
#define flushlist(a) zflushlist((halfword)(a))
#define r_flushlist register memoryword *mem=zmem;
#define getnode(a) zgetnode((integer)(a))
halfword zgetnode();
#define r_getnode register memoryword *mem=zmem;
#define freenode(a,b) zfreenode((halfword)(a),(halfword)(b))
#define r_freenode register memoryword *mem=zmem;
#define r_sortavail register memoryword *mem=zmem;
halfword newnullbox();
#define r_newnullbox register memoryword *mem=zmem;
halfword newrule();
#define r_newrule register memoryword *mem=zmem;
#define newligature(a,b,c) znewligature((int)(a),(int)(b),(halfword)(c))
halfword znewligature();
#define r_newligature register memoryword *mem=zmem;
halfword newdisc();
#define r_newdisc register memoryword *mem=zmem;
#define newmath(a,b) znewmath((scaled)(a),(int)(b))
halfword znewmath();
#define r_newmath register memoryword *mem=zmem;
#define newspec(a) znewspec((halfword)(a))
halfword znewspec();
#define r_newspec register memoryword *mem=zmem;
#define newparamglue(a) znewparamglue((int)(a))
halfword znewparamglue();
#define r_newparamglue register memoryword *mem=zmem, *eqtb=zeqtb;
#define newglue(a) znewglue((halfword)(a))
halfword znewglue();
#define r_newglue register memoryword *mem=zmem;
#define newskipparam(a) znewskipparam((int)(a))
halfword znewskipparam();
#define r_newskipparam register memoryword *mem=zmem, *eqtb=zeqtb;
#define newkern(a) znewkern((scaled)(a))
halfword znewkern();
#define r_newkern register memoryword *mem=zmem;
#define newpenalty(a) znewpenalty((integer)(a))
halfword znewpenalty();
#define r_newpenalty register memoryword *mem=zmem;
#define checkmem(a) zcheckmem((int)(a))
#define r_checkmem register memoryword *mem=zmem;
#define searchmem(a) zsearchmem((halfword)(a))
#define r_searchmem register memoryword *mem=zmem, *eqtb=zeqtb;
#define shortdisplay(a) zshortdisplay((integer)(a))
#define r_shortdisplay register memoryword *mem=zmem;
#define printfontand(a) zprintfontand((integer)(a))
#define r_printfontand register memoryword *mem=zmem;
#define printmark(a) zprintmark((integer)(a))
#define r_printmark register memoryword *mem=zmem;
#define printruledim(a) zprintruledim((scaled)(a))
#define r_printruledim
#define printglue(a,b,c) zprintglue((scaled)(a),(integer)(b),(strnumber)(c))
#define r_printglue
#define printspec(a,b) zprintspec((integer)(a),(strnumber)(b))
#define r_printspec register memoryword *mem=zmem;
#define printfamandc(a) zprintfamandc((halfword)(a))
#define r_printfamandc register memoryword *mem=zmem;
#define printdelimit(a) zprintdelimit((halfword)(a))
#define r_printdelimit register memoryword *mem=zmem;
#define printsubsidi(a,b) zprintsubsidi((halfword)(a),(int)(b))
#define r_printsubsidi register memoryword *mem=zmem;
#define printstyle(a) zprintstyle((integer)(a))
#define r_printstyle
#define printskippar(a) zprintskippar((integer)(a))
#define r_printskippar
#define shownodelist(a) zshownodelist((integer)(a))
#define r_shownodelist register memoryword *mem=zmem;
#define showbox(a) zshowbox((halfword)(a))
#define r_showbox register memoryword *eqtb=zeqtb;
#define deletetokenr(a) zdeletetokenr((halfword)(a))
#define r_deletetokenr register memoryword *mem=zmem;
#define deletegluere(a) zdeletegluere((halfword)(a))
#define r_deletegluere register memoryword *mem=zmem;
#define flushnodelis(a) zflushnodelis((halfword)(a))
#define r_flushnodelis register memoryword *mem=zmem;
#define copynodelist(a) zcopynodelist((halfword)(a))
halfword zcopynodelist();
#define r_copynodelist register memoryword *mem=zmem;
#define printmode(a) zprintmode((integer)(a))
#define r_printmode
#define r_pushnest
#define r_popnest register memoryword *mem=zmem;
#define r_showactiviti register memoryword *mem=zmem, *eqtb=zeqtb;
#define printparam(a) zprintparam((integer)(a))
#define r_printparam
#define r_begindiagnos register memoryword *eqtb=zeqtb;
#define enddiagnosti(a) zenddiagnosti((int)(a))
#define r_enddiagnosti
#define printlengthp(a) zprintlengthp((integer)(a))
#define r_printlengthp
#define printcmdchr(a,b) zprintcmdchr((int)(a),(halfword)(b))
#define r_printcmdchr
#define showeqtb(a) zshoweqtb((halfword)(a))
#define r_showeqtb register memoryword *mem=zmem, *eqtb=zeqtb;
#define idlookup(a,b) zidlookup((integer)(a),(integer)(b))
halfword zidlookup();
#define r_idlookup
#define primitive(a,b,c) zprimitive((strnumber)(a),(int)(b),(halfword)(c))
#define r_primitive register memoryword *eqtb=zeqtb;
#define newsavelevel(a) znewsavelevel((int)(a))
#define r_newsavelevel
#define eqdestroy(a) zeqdestroy((memoryword)(a))
#define r_eqdestroy register memoryword *mem=zmem;
#define eqsave(a,b) zeqsave((halfword)(a),(int)(b))
#define r_eqsave register memoryword *eqtb=zeqtb;
#define eqdefine(a,b,c) zeqdefine((halfword)(a),(int)(b),(halfword)(c))
#define r_eqdefine register memoryword *eqtb=zeqtb;
#define eqworddefine(a,b) zeqworddefine((halfword)(a),(integer)(b))
#define r_eqworddefine register memoryword *eqtb=zeqtb;
#define geqdefine(a,b,c) zgeqdefine((halfword)(a),(int)(b),(halfword)(c))
#define r_geqdefine register memoryword *eqtb=zeqtb;
#define geqworddefin(a,b) zgeqworddefin((halfword)(a),(integer)(b))
#define r_geqworddefin register memoryword *eqtb=zeqtb;
#define saveforafter(a) zsaveforafter((halfword)(a))
#define r_saveforafter
#define restoretrace(a,b) zrestoretrace((halfword)(a),(strnumber)(b))
#define r_restoretrace
#define r_unsave register memoryword *eqtb=zeqtb;
#define r_preparemag register memoryword *eqtb=zeqtb;
#define tokenshow(a) ztokenshow((halfword)(a))
#define r_tokenshow register memoryword *mem=zmem;
#define r_printmeaning
#define r_showcurcmdch
#define r_showcontext register memoryword *mem=zmem, *eqtb=zeqtb;
#define begintokenli(a,b) zbegintokenli((halfword)(a),(int)(b))
#define r_begintokenli register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_endtokenlist
#define r_backinput register memoryword *mem=zmem;
#define r_backerror
#define r_inserror
#define r_beginfilerea
#define r_endfilereadi
#define r_clearforerro
#define r_checkouterva register memoryword *mem=zmem;
#define r_getnext register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_firmupthelin register memoryword *eqtb=zeqtb;
#define r_gettoken
#define r_macrocall register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_insertrelax
#define r_expand register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_getxtoken
#define r_xtoken
#define r_scanleftbrac
#define r_scanoptional
#define scankeyword(a) zscankeyword((strnumber)(a))
boolean zscankeyword();
#define r_scankeyword register memoryword *mem=zmem;
#define r_muerror
#define r_scansevenbit
#define r_scaneightbit
#define r_scanfourbiti
#define r_scancharnum
#define r_scanfifteenb
#define r_scantwentyse
#define r_scanfontiden register memoryword *eqtb=zeqtb;
#define findfontdime(a) zfindfontdime((int)(a))
#define r_findfontdime
#define scansomethin(a,b) zscansomethin((int)(a),(int)(b))
#define r_scansomethin register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_scanint
#define scandimen(a,b,c) zscandimen((int)(a),(int)(b),(int)(c))
#define r_scandimen register memoryword *mem=zmem, *eqtb=zeqtb;
#define scanglue(a) zscanglue((int)(a))
#define r_scanglue register memoryword *mem=zmem;
halfword scanrulespec();
#define r_scanrulespec register memoryword *mem=zmem;
halfword strtoks();
#define r_strtoks register memoryword *mem=zmem;
halfword thetoks();
#define r_thetoks register memoryword *mem=zmem;
#define r_insthetoks register memoryword *mem=zmem;
#define r_convtoks register memoryword *mem=zmem;
#define scantoks(a,b) zscantoks((int)(a),(int)(b))
halfword zscantoks();
#define r_scantoks register memoryword *mem=zmem;
#define readtoks(a,b) zreadtoks((integer)(a),(halfword)(b))
#define r_readtoks register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_passtext
#define changeiflimi(a,b) zchangeiflimi((int)(a),(halfword)(b))
#define r_changeiflimi register memoryword *mem=zmem;
#define r_conditional register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_beginname
#define morename(a) zmorename((int)(a))
boolean zmorename();
#define r_morename
#define r_endname
#define packfilename(a,b,c) zpackfilename((strnumber)(a),(strnumber)(b),(strnumber)(c))
#define r_packfilename
#define packbuffered(a,b,c) zpackbuffered((int)(a),(integer)(b),(integer)(c))
#define r_packbuffered
strnumber makenamestri();
#define r_makenamestri
#define amakenamestr(a) zamakenamestr((alphafile)(a))
strnumber zamakenamestr();
#define r_amakenamestr
#define bmakenamestr(a) zbmakenamestr((bytefile)(a))
strnumber zbmakenamestr();
#define r_bmakenamestr
#define wmakenamestr(a) zwmakenamestr((wordfile)(a))
strnumber zwmakenamestr();
#define r_wmakenamestr
#define r_scanfilename
#define packjobname(a) zpackjobname((strnumber)(a))
#define r_packjobname
#define promptfilena(a,b) zpromptfilena((strnumber)(a),(strnumber)(b))
#define r_promptfilena
#define r_openlogfile register memoryword *eqtb=zeqtb;
#define r_startinput register memoryword *eqtb=zeqtb;
#define readfontinfo(a,b,c,d) zreadfontinfo((halfword)(a),(strnumber)(b),(strnumber)(c),(scaled)(d))
internalfont zreadfontinfo();
#define r_readfontinfo register memoryword *eqtb=zeqtb;
#define charwarning(a,b) zcharwarning((internalfont)(a),(int)(b))
#define r_charwarning register memoryword *eqtb=zeqtb;
#define newcharacter(a,b) znewcharacter((internalfont)(a),(int)(b))
halfword znewcharacter();
#define r_newcharacter register memoryword *mem=zmem;
#define r_dviswap
#define dvifour(a) zdvifour((integer)(a))
#define r_dvifour
#define dvipop(a) zdvipop((integer)(a))
#define r_dvipop
#define dvifontdef(a) zdvifontdef((internalfont)(a))
#define r_dvifontdef
#define movement(a,b) zmovement((scaled)(a),(int)(b))
#define r_movement register memoryword *mem=zmem;
#define prunemovemen(a) zprunemovemen((integer)(a))
#define r_prunemovemen register memoryword *mem=zmem;
#define specialout(a) zspecialout((halfword)(a))
#define r_specialout register memoryword *mem=zmem;
#define writeout(a) zwriteout((halfword)(a))
#define r_writeout register memoryword *mem=zmem;
#define outwhat(a) zoutwhat((halfword)(a))
#define r_outwhat register memoryword *mem=zmem;
#define r_hlistout register memoryword *mem=zmem;
#define r_vlistout register memoryword *mem=zmem;
#define shipout(a) zshipout((halfword)(a))
#define r_shipout register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_scanspec
#define hpack(a,b,c) zhpack((halfword)(a),(scaled)(b),(int)(c))
halfword zhpack();
#define r_hpack register memoryword *mem=zmem, *eqtb=zeqtb;
#define vpackage(a,b,c,d) zvpackage((halfword)(a),(scaled)(b),(int)(c),(scaled)(d))
halfword zvpackage();
#define r_vpackage register memoryword *mem=zmem, *eqtb=zeqtb;
#define appendtovlis(a) zappendtovlis((halfword)(a))
#define r_appendtovlis register memoryword *mem=zmem, *eqtb=zeqtb;
halfword newnoad();
#define r_newnoad register memoryword *mem=zmem;
#define newstyle(a) znewstyle((int)(a))
halfword znewstyle();
#define r_newstyle register memoryword *mem=zmem;
halfword newchoice();
#define r_newchoice register memoryword *mem=zmem;
#define r_showinfo register memoryword *mem=zmem;
#define fractionrule(a) zfractionrule((scaled)(a))
halfword zfractionrule();
#define r_fractionrule register memoryword *mem=zmem;
#define overbar(a,b,c) zoverbar((halfword)(a),(scaled)(b),(scaled)(c))
halfword zoverbar();
#define r_overbar register memoryword *mem=zmem;
#define charbox(a,b) zcharbox((internalfont)(a),(int)(b))
halfword zcharbox();
#define r_charbox register memoryword *mem=zmem;
#define stackintobox(a,b,c) zstackintobox((halfword)(a),(internalfont)(b),(int)(c))
#define r_stackintobox register memoryword *mem=zmem;
#define heightplusde(a,b) zheightplusde((internalfont)(a),(int)(b))
scaled zheightplusde();
#define r_heightplusde
#define vardelimiter(a,b,c) zvardelimiter((halfword)(a),(int)(b),(scaled)(c))
halfword zvardelimiter();
#define r_vardelimiter register memoryword *mem=zmem, *eqtb=zeqtb;
#define rebox(a,b) zrebox((halfword)(a),(scaled)(b))
halfword zrebox();
#define r_rebox register memoryword *mem=zmem;
#define mathglue(a,b) zmathglue((halfword)(a),(scaled)(b))
halfword zmathglue();
#define r_mathglue register memoryword *mem=zmem;
#define mathkern(a,b) zmathkern((halfword)(a),(scaled)(b))
#define r_mathkern register memoryword *mem=zmem;
#define r_flushmath register memoryword *mem=zmem;
#define cleanbox(a,b) zcleanbox((halfword)(a),(int)(b))
halfword zcleanbox();
#define r_cleanbox register memoryword *mem=zmem, *eqtb=zeqtb;
#define fetch(a) zfetch((halfword)(a))
#define r_fetch register memoryword *mem=zmem, *eqtb=zeqtb;
#define makeover(a) zmakeover((halfword)(a))
#define r_makeover register memoryword *mem=zmem, *eqtb=zeqtb;
#define makeunder(a) zmakeunder((halfword)(a))
#define r_makeunder register memoryword *mem=zmem, *eqtb=zeqtb;
#define makevcenter(a) zmakevcenter((halfword)(a))
#define r_makevcenter register memoryword *mem=zmem, *eqtb=zeqtb;
#define makeradical(a) zmakeradical((halfword)(a))
#define r_makeradical register memoryword *mem=zmem, *eqtb=zeqtb;
#define makemathacce(a) zmakemathacce((halfword)(a))
#define r_makemathacce register memoryword *mem=zmem;
#define makefraction(a) zmakefraction((halfword)(a))
#define r_makefraction register memoryword *mem=zmem, *eqtb=zeqtb;
#define makeop(a) zmakeop((halfword)(a))
scaled zmakeop();
#define r_makeop register memoryword *mem=zmem, *eqtb=zeqtb;
#define makeord(a) zmakeord((halfword)(a))
#define r_makeord register memoryword *mem=zmem;
#define makescripts(a,b) zmakescripts((halfword)(a),(scaled)(b))
#define r_makescripts register memoryword *mem=zmem, *eqtb=zeqtb;
#define makeleftrigh(a,b,c,d) zmakeleftrigh((halfword)(a),(int)(b),(scaled)(c),(scaled)(d))
smallnumber zmakeleftrigh();
#define r_makeleftrigh register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_mlisttohlist register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_pushalignmen register memoryword *mem=zmem;
#define r_popalignment register memoryword *mem=zmem;
#define r_getpreamblet register memoryword *eqtb=zeqtb;
#define r_initalign register memoryword *mem=zmem, *eqtb=zeqtb;
#define initspan(a) zinitspan((halfword)(a))
#define r_initspan
#define r_initrow register memoryword *mem=zmem;
#define r_initcol register memoryword *mem=zmem;
boolean fincol();
#define r_fincol register memoryword *mem=zmem;
#define r_finrow register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_finalign register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_alignpeek
#define finiteshrink(a) zfiniteshrink((halfword)(a))
halfword zfiniteshrink();
#define r_finiteshrink register memoryword *mem=zmem;
#define trybreak(a,b) ztrybreak((integer)(a),(int)(b))
#define r_trybreak register memoryword *mem=zmem, *eqtb=zeqtb;
#define postlinebrea(a) zpostlinebrea((integer)(a))
#define r_postlinebrea register memoryword *mem=zmem, *eqtb=zeqtb;
#define reconstitute(a,b) zreconstitute((int)(a),(int)(b))
smallnumber zreconstitute();
#define r_reconstitute register memoryword *mem=zmem;
#define r_hyphenate register memoryword *mem=zmem;
#define linebreak(a) zlinebreak((integer)(a))
#define r_linebreak register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_newhyphexcep register memoryword *mem=zmem, *eqtb=zeqtb;
#define newtrieop(a,b,c) znewtrieop((int)(a),(int)(b),(int)(c))
quarterword znewtrieop();
#define r_newtrieop
#define trienode(a) ztrienode((triepointer)(a))
triepointer ztrienode();
#define r_trienode
#define compresstrie(a) zcompresstrie((triepointer)(a))
triepointer zcompresstrie();
#define r_compresstrie
#define r_initpatternm
#define r_inittriememo
#define firstfit(a) zfirstfit((triepointer)(a))
#define r_firstfit
#define triepack(a) ztriepack((triepointer)(a))
#define r_triepack
#define triefix(a) ztriefix((triepointer)(a))
#define r_triefix
#define r_newpatterns register memoryword *eqtb=zeqtb;
#define prunepagetop(a) zprunepagetop((halfword)(a))
halfword zprunepagetop();
#define r_prunepagetop register memoryword *mem=zmem;
#define vertbreak(a,b,c) zvertbreak((halfword)(a),(scaled)(b),(scaled)(c))
halfword zvertbreak();
#define r_vertbreak register memoryword *mem=zmem;
#define vsplit(a,b) zvsplit((int)(a),(scaled)(b))
halfword zvsplit();
#define r_vsplit register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_printtotals
#define freezepagesp(a) zfreezepagesp((int)(a))
#define r_freezepagesp register memoryword *eqtb=zeqtb;
#define boxerror(a) zboxerror((int)(a))
#define r_boxerror register memoryword *eqtb=zeqtb;
#define ensurevbox(a) zensurevbox((int)(a))
#define r_ensurevbox register memoryword *mem=zmem, *eqtb=zeqtb;
#define fireup(a) zfireup((halfword)(a))
#define r_fireup register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_buildpage register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_appspace register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_insertdollar
#define r_youcant
#define r_reportillega
boolean privileged();
#define r_privileged
boolean itsallover();
#define r_itsallover register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_appendglue register memoryword *mem=zmem;
#define r_appendkern register memoryword *mem=zmem;
#define r_offsave register memoryword *mem=zmem;
#define r_extrarightbr
#define r_normalparagr register memoryword *eqtb=zeqtb;
#define r_boxend register memoryword *mem=zmem;
#define r_beginbox register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_scanbox
#define package(a) zpackage((int)(a))
#define r_package register memoryword *mem=zmem, *eqtb=zeqtb;
#define newgraf(a) znewgraf((int)(a))
#define r_newgraf register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_indentinhmod register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_headforvmode
#define r_endgraf register memoryword *eqtb=zeqtb;
#define r_begininserto
#define r_makemark register memoryword *mem=zmem;
#define r_appendpenalt register memoryword *mem=zmem;
#define r_deletelast register memoryword *mem=zmem;
#define r_unpackage register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_appenditalic register memoryword *mem=zmem;
#define r_appenddiscre register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_builddiscret register memoryword *mem=zmem;
#define r_makeaccent register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_alignerror
#define r_noalignerror
#define r_omiterror
#define r_doendv
#define r_cserror
#define pushmath(a) zpushmath((int)(a))
#define r_pushmath
#define r_initmath register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_starteqno register memoryword *eqtb=zeqtb;
#define scanmath(a) zscanmath((halfword)(a))
#define r_scanmath register memoryword *mem=zmem, *eqtb=zeqtb;
#define setmathchar(a) zsetmathchar((integer)(a))
#define r_setmathchar register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_mathlimitswi register memoryword *mem=zmem;
#define scandelimite(a,b) zscandelimite((halfword)(a),(int)(b))
#define r_scandelimite register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_mathradical register memoryword *mem=zmem;
#define r_mathac register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_appendchoice register memoryword *mem=zmem;
#define finmlist(a) zfinmlist((halfword)(a))
halfword zfinmlist();
#define r_finmlist register memoryword *mem=zmem;
#define r_buildchoices register memoryword *mem=zmem;
#define r_subsup register memoryword *mem=zmem;
#define r_mathfraction register memoryword *mem=zmem;
#define r_mathleftrigh register memoryword *mem=zmem;
#define r_aftermath register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_resumeafterd
#define r_getrtoken
#define r_trapzeroglue register memoryword *mem=zmem;
#define doregisterco(a) zdoregisterco((int)(a))
#define r_doregisterco register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_alteraux
#define r_alterprevgra
#define r_alterpagesof
#define r_alterinteger
#define r_alterboxdime register memoryword *mem=zmem, *eqtb=zeqtb;
#define newfont(a) znewfont((int)(a))
#define r_newfont register memoryword *eqtb=zeqtb;
#define r_newinteracti
#define r_prefixedcomm register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_doassignment
#define r_openorclosei
#define r_issuemessage register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_shiftcase register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_showwhatever register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_storefmtfile register memoryword *mem=zmem, *eqtb=zeqtb;
#define newwhatsit(a,b) znewwhatsit((int)(a),(int)(b))
#define r_newwhatsit register memoryword *mem=zmem;
#define newwritewhat(a) znewwritewhat((int)(a))
#define r_newwritewhat register memoryword *mem=zmem;
#define r_doextension register memoryword *mem=zmem;
#define r_handlerightb register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_maincontrol register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_giveerrhelp register memoryword *eqtb=zeqtb;
boolean openfmtfile();
#define r_openfmtfile
boolean loadfmtfile();
#define r_loadfmtfile register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_closefilesan register memoryword *eqtb=zeqtb;
#define r_finalcleanup register memoryword *mem=zmem;
#define r_initprim register memoryword *eqtb=zeqtb;
#define r_debughelp register memoryword *mem=zmem, *eqtb=zeqtb;
#define r_texbody memoryword *eqtb=zeqtb;
/*
* The C compiler ignores most unnecessary casts (i.e., casts of something
* to its own type). However, for structures, it doesn't. Therefore,
* we have to redefine these two macros so that they don't try to cast
* the argument (a memoryword) as a memoryword.
*/
#undef eqdestroy
#define eqdestroy(x) zeqdestroy(x)
#undef printword
#define printword(x) zprintword(x)