whelp.gml

开放源码的编译器open watcom 1.6.0版的源代码

:CMT. *******************************************************************
:CMT.
:CMT.   WHP Help Tags File
:CMT.   ==================
:CMT.
:CMT.   This file redefines base GML tags to perform the necessary
:CMT.   operations for WHP Help processing. It also defines Help specific
:CMT.   tags used for help processing.
:CMT.
:CMT. *******************************************************************


:CMT. **** This list of characters is supported by WHPCVT. See its
:CMT. **** project for details.
:set symbol='rsxon'     value='&'d2c(195)'.
:set symbol='rsxoff'    value='&'d2c(180)'.
:set symbol='rsctx'     value='&'d2c(247)'.
:set symbol='rstpc'     value='&'d2c(238)'.
:set symbol='rslnk'     value='&'d2c(127)'.
:set symbol='rsdfn'     value='&'d2c(234)'.
:set symbol='rslsti'    value='&'d2c(211)'.
:set symbol='rslsts'    value='&'d2c(210)'.
:set symbol='rslste'    value='&'d2c(212)'.
:set symbol='rsslsts'   value='&'d2c(213)'.
:set symbol='rsslste'   value='&'d2c(214)'.
:set symbol='rsolsts'   value='&'d2c(200)'.
:set symbol='rsolste'   value='&'d2c(201)'.
:set symbol='rssdl'     value='&'d2c(202)'.
:set symbol='rsedl'     value='&'d2c(203)'.
:set symbol='rsdt'      value='&'d2c(204)'.
:set symbol='rskw'      value='&'d2c(236)'.
:set symbol='rshln'     value='&'d2c(167)'.
:set symbol='rshnln'    value='&'d2c(248)'.
:set symbol='rspar'     value='&'d2c(158)'.
:set symbol='rsxoffb'   value='&'d2c(159)'.
:set symbol='rsup'      value='&'d2c(160)'.
:set symbol='rsbmp'     value='&'d2c(176)'.
:set symbol='rsbxon'    value='&'d2c(219)'.
:set symbol='rsbxof'    value='&'d2c(254)'.
:set symbol='rsddesc'   value='&'d2c(185)'.
:set symbol='rsspace'   value='&'d2c(255)'.
:set symbol='rstbxmp'   value='&'d2c(170)'.
:set symbol='rsflnk'    value='&'d2c(232)'.

:set symbol='hlptype'   value=''.
:set symbol='hlvl'      value='0'.
:set symbol='stlst'     value=''.
:set symbol='headlvl'   value=4
:set symbol='hdpfx'     value=''.

:cmt. **** the "A" in the next string is really supposed to be an "A"
:set symbol='trto1'     value='_MPTDB_XYUVLR__E__A_________'.
:set symbol='trfrom1'   value=" -+*/\%<>[](){}=#~@$,.&|':?!".
:set symbol='trto2'     value='_'.
:set symbol='trfrom2'   value='"'.
:cmt. **** these two are done with '.sr' to get around a wierd GML problem
.cw `
.sr  trto  ='&trto1.&trto2.S'
.sr  trfrom='&trfrom1.&trfrom2.;'
.cw ;

:CMT.*******************************************************************
:CMT.**** ctxstr macro for those who want the translated ctx string ****
:CMT.*******************************************************************

.dm ctxstr begin
.se ctx_str=&'translate(`&*`,`&trto.`,`&trfrom.`)
.dm ctxstr end

:CMT.*******************************************************************
:CMT.******** Redefinitions of base GML Tags for help stuff ************
:CMT.*******************************************************************

:cmt. **** :NOTE ****
.dm znote begin
:p.
.bd NOTE:
.dm znote end
.gt note add znote att nocont
.gt znote add znote att nocont

:cmt. **** :FIGREF ****
.dm zfigref begin
:figref refid=&*refid page=no.&*
.dm zfigref end
.gt figref add zfigref att nocont
.ga * refid
.ga * * any
.ga * page
.ga * * value '' default
.ga * * any
.gt zfigref add zfigref att nocont
.ga * refid
.ga * * any
.ga * page
.ga * * value '' default
.ga * * any

:cmt. **** :FIGCAP ****
.dm zfigcap begin
:figcap.&*
.dm zfigcap end
.gt figcap add zfigcap cont
.gt zfigcap add zfigcap cont

:cmt. **** :FIG ****
.dm zfig begin
.if '&*id.' eq '' .do begin
.   :fig.&*
.do end
.el .do begin
.   :fig id='&*id'.&*
.do end
.dm zfig end
.gt fig add zfig att nocont
.ga * depth range 0 32000 0
.ga * frame value none default
.ga * * value box
.ga * * value rule
.ga * id length 8
.ga * place value inline default
.ga * * value top
.ga * * value bottom
.gt zfig add zfig att nocont
.ga * depth range 0 32000 0
.ga * frame value none default
.ga * * value box
.ga * * value rule
.ga * id length 8
.ga * place value inline default
.ga * * value top
.ga * * value bottom

:cmt. **** :EFIG ****
.dm zefig begin
:efig.&*
.dm zefig end
.gt efig add zefig att nocont
.gt zefig add zefig att nocont

:cmt. **** :UL ****
.dm zul begin
:sl
.se stlst=`&rslsts.c`
.dm zul end
.gt ul add zul
.gt zul add zul

:cmt. **** :LI ****
:cmt. The first ':li.' will put out the list start character before the
:cmt. list item character, resetting '&stlst.' to an empty string.
:cmt. There is a problem with lists, which cannot be fixed, so
:cmt. beware: a ':li:p' combo will generate an extra blank line.
:cmt. All attempts to fix this have been tried, but they result
:cmt. in multi-paragraph list items being screwed. So, don't
:cmt. bother trying to fix this for that bug because its been
:cmt. tried extensively! (djp).
.dm zli begin
.if '&stlst.' eq '' .do begin
.   :li.
.do end
.el .do begin
.   :li.&stlst.
.   :pb.
.   .se stlst=''
.do end
:p.&rslsti.&*
.dm zli end
.gt li add zli
.gt zli add zli

:cmt. **** :EUL ****
.dm zeul begin
:pb.&rslste.
:esl
.dm zeul end
.gt eul add zeul
.gt zeul add zeul

:cmt. **** :OL ****
.dm zol begin
:sl
.se stlst=`&rsolsts`
.dm zol end
.gt ol add zol
.gt zol add zol

:cmt. **** :EOL ****
.dm zeol begin
:pb.&rsolste
:esl
.dm zeol end
.gt eol add zeol
.gt zeol add zeol

:cmt. **** :SL ****
.dm zsl begin
:sl
.se stlst=`&rsslsts.c`
.dm zsl end
.gt sl add zsl
.gt zsl add zsl

:cmt. **** :ESL ****
.dm zesl begin
:pb.&rsslste
:esl
.dm zesl end
.gt esl add zesl
.gt zesl add zesl

:cmt. **** :DL ****
:cmt. *** DL cannot be done with real DL, since tags are used in the DT
:cmt. *** for indexes and elsewhere (namely, hyperlinks).
.dm zdl begin
.se dfnst='first'
.dm zdl end
.gt dl add zdl
.gt zdl add zdl

:cmt. **** :EDL ****
.dm zedl begin
:pb.&rsedl.
.sk 1
.dm zedl end
.gt edl add zedl
.gt zedl add zedl

:cmt. **** :DD ****
.dm zdd begin
:p.&rsddesc.&*
.dm zdd end
.gt dd add zdd
.gt zdd add zdd

:cmt. **** :DT ****
.dm zdt begin
.sk 1
.if '&dfnst.' eq 'first' .do begin
&rssdl.
.   :pb.
.   .se dfnst=''
.do end
&rsdt.&*.
.dm zdt end
.gt dt add zdt
.gt zdt add zdt

:cmt. **** :DTHD ****
.dm zdthd begin
:ZDT.:SF font=3.&*.:eSF.
.dm zdthd end
.gt dthd add zdthd cont
.gt zdthd add zdthd cont

:cmt. **** :DDHD ****
.dm zddhd begin
:ZDD.:SF font=3.&*.:eSF.
.dm zddhd end
.gt ddhd add zddhd cont
.gt zddhd add zddhd cont

:cmt. **** :HDREF ****
.dm zhdref begin
:hlink ctx='&'translate(&&*refid..,`&trto.`,`&trfrom.`)'.&&*refid..:ehlink.&*.
.dm zhdref end
.gt HDREF add ZHDREF att nocont
.ga * REFID
.ga * * ANY
.ga * PAGE
.ga * * VALUE '' DEFAULT
.ga * * ANY
.gt ZHDREF add ZHDREF att nocont
.ga * REFID
.ga * * ANY
.ga * PAGE
.ga * * VALUE '' DEFAULT
.ga * * ANY

:cmt. **** .HELPHD ****
.dm helphd begin
.if '&*ctx' eq '' .do begin
.   .defhelp &'translate(`&*`,`&trto.`,`&trfrom.`) `&*` `&hdtxt`
.do end
.el .do begin
.   .defhelp &*ctx `&*` `&hdtxt`
.do end
.dm helphd end
.gt HELPHD add HELPHD att cont
.ga * CTX
.ga * * VALUE '' DEFAULT
.ga * * ANY


:cmt. **** .HINLINE ****
.dm hinline begin
.br
&rsspace
:pb
:SF font=15.&*.:eSF.
:p.
.dm hinline end

:cmt. **** :H0 ****
.dm ZH0 begin
.se title=`&hdpfx.&*.`
.if '&*id.' eq '' .do begin
.   :H0.&title.
.do end
.el .do begin
.   .se &*id.=`&title.`
.   :H0 id='&*id.'.&title.
.do end
.se hlvl='0'
:helphd.&title.
.dm ZH0 end
.gt H0 add ZH0 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * STITLE any
.gt ZH0 add ZH0 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * STITLE any

:cmt. **** :H1 ****
.dm ZH1 begin
.se hdtxt=`&hdpfx.&*.`
.if `&*id.` eq `` .do begin
.   :H1.&hdtxt.
.do end
.el .do begin
.   .se &*id.=`&hdtxt.`
.   :H1 id=`&*id.`.&hdtxt.
.do end
.if &headlvl. >= 1 .do begin
.   .se hlvl='1'
.   :helphd ctx='&*ctx.'.&hdtxt.
.do end
.el .do begin
.   .hinline &hdtxt.
.do end
.dm ZH1 end
.gt H1 add ZH1 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * BRIEF
.ga * * VALUE 'no' DEFAULT
.ga * * ANY
.ga * STITLE any
.gt ZH1 add ZH1 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * BRIEF
.ga * * VALUE 'no' DEFAULT
.ga * * ANY
.ga * STITLE any
.ga * CTX
.ga * * VALUE '' DEFAULT
.ga * * ANY

:cmt. **** :H2 ****
.dm ZH2 begin
.se title=`&hdpfx.&*.`
.if `&*id.` eq `` .do begin
.   :H2.&title.
.do end
.el .do begin
.   .se &*id.=`&title.`
.   :H2 id=`&*id.`.&title.
.do end
.if &headlvl. >= 2 .do begin
.   .se hlvl='2'
.   :helphd ctx='&*ctx.'.&title.
.do end
.el .do begin
.   .hinline &title.
.do end
.dm ZH2 end