whelp.gml

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

.gt H2 add ZH2 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * STITLE any
.gt ZH2 add ZH2 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * STITLE any
.ga * CTX
.ga * * VALUE '' DEFAULT
.ga * * ANY

:cmt. **** :H3 ****
.dm ZH3 begin
.se title=`&hdpfx.&*.`
.if `&*id.` eq `` .do begin
.   :H3.&title.
.do end
.el .do begin
.   .se &*id.=`&title.`
.   :H3 id=`&*id.`.&title.
.do end
.if &headlvl. >= 3 .do begin
.   .se hlvl='3'
.   :helphd ctx='&*ctx.'.&title.
.do end
.el .do begin
.   .hinline &title.
.do end
.dm ZH3 end
.gt H3 add ZH3 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * STITLE any
.gt ZH3 add ZH3 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * STITLE any
.ga * CTX
.ga * * VALUE '' DEFAULT
.ga * * ANY

:cmt. **** :H4 ****
.dm ZH4 begin
.se title=`&hdpfx.&*.`
.if `&*id.` eq `` .do begin
.   :H4.&title.
.do end
.el .do begin
.   .se &*id.=`&title.`
.   :H4 id=`&*id.`.&title.
.do end
.if &headlvl. >= 4 .do begin
.   .se hlvl='4'
.   :helphd ctx='&*ctx'.&title.
.do end
.el .do begin
.   .hinline &title.
.do end
.dm ZH4 end
.gt H4 add ZH4 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * STITLE any
.gt ZH4 add ZH4 att nocont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * STITLE any
.ga * CTX
.ga * * VALUE '' DEFAULT
.ga * * ANY

:cmt. **** :I1 ****
.dm ZI1 begin
.if '&*id.' eq '' .do begin
:I1.&*.
.do end
.el .do begin
:I1 id='&*id.'.&*.
.do end
.ctxkw1 &*.
.dm ZI1 end
.gt I1 add ZI1 att cont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * PG ANY
.gt ZI1 add ZI1 att cont
.ga * ID
.ga * * VALUE '' DEFAULT
.ga * * ANY
.ga * PG ANY

:cmt. ************************
:cmt. New Help Processing Tags
:cmt. ************************

:cmt. **** :HELPPFX ****
.dm helppfx begin
.se hdpfx=`&*pfx.`
.dm helppfx end
.gt helppfx add helppfx cont attr
.ga * pfx ANY
.ga * * value '' default

:cmt. **** :HELPLVL ****
.dm helplvl begin
.se headlvl=&*level.
.dm helplvl end
.gt helplvl add helplvl cont attr
.ga * level RANGE 0 4 4 4

:cmt. **** .DEFHELP ****
.dm defhelp begin
:p.&rsxoff.
:pb.&rsctx.&hlvl.&rsctx.&hlptype.&*1.&rsctx.&*2
.if &*0 ne 2 .ct &rsctx.&*3
.if &*0 ne 3 .ct &rsctx.&*4
:pb.&rstpc.&*1
:pb.
.dm defhelp end
.dm xdefhelp begin
.defhelp &*
.dm xdefhelp end
.gt defhelp add xdefhelp cont

:cmt. **** .ADDHELP ****
.dm addhelp begin
:p.&rsxoff.
:pb.&rstpc.&*1
.if &*0 eq 2 .ct &rstpc.&*2
:pb.
.dm addhelp end
.dm xaddhelp begin
.addhelp &*
.dm xaddhelp end
.gt addhelp add xaddhelp cont

:cmt. **** .EHELP ****
.dm ehelp begin
:p.&rsxon
:pb.
.dm ehelp end
.gt ehelp add ehelp cont

:cmt. **** :EXHELP ****
.dm exhelp begin
.ehelp
.dm exhelp end
.gt exhelp add exhelp cont

:cmt. **** :HLINK ****
.dm hlink begin
.if '&*hd' ne '' .do begin
.se ctx=&'translate(`&*hd.`,`&trto.`,`&trfrom.`)
.do end
.el .do begin
.se ctx=`&*ctx.`
.do end
&rslnk.&ctx.&rslnk.&*.
.dm hlink end
.gt hlink add hlink cont att
.ga * ctx ANY
.ga * * VALUE '' DEFAULT
.ga * hd ANY
.ga * * VALUE '' DEFAULT

:cmt. **** :EHLINK ****
.dm ehlink begin
&rslnk.&*.
.dm ehlink end
.gt ehlink add ehlink cont att

:cmt. **** :FLINK ****
.dm flink begin
&rsflnk.&*file.&rsflnk.&*hd.&rsflnk.&*.
.dm flink end
.gt flink add flink cont att
.ga * file ANY
.ga * * VALUE '' DEFAULT
.ga * hd ANY
.ga * * VALUE '' DEFAULT

:cmt. **** :EfLINK ****
.dm eflink begin
&rsflnk.&*.
.dm eflink end
.gt eflink add eflink cont att

:cmt. **** :HDFN ****
.dm hdfn begin
.if '&*hd' ne '' .do begin
.   .se ctx=&'translate(`&*hd.`,`&trto.`,`&trfrom.`)
.do end
.el .do begin
.   .se ctx=`&*ctx.`
.do end
&rsdfn.&ctx.&rsdfn.&*.
.dm hdfn end
.gt hdfn add hdfn cont att
.ga * ctx ANY
.ga * * VALUE '' DEFAULT
.ga * hd ANY
.ga * * VALUE '' DEFAULT

:cmt. **** :EHDFN ****
.dm ehdfn begin
.ct &rsdfn.&*.
.dm ehdfn end
.gt ehdfn add ehdfn cont

:cmt. **** :HBMP ****
.dm hbmp begin
&rsbmp.&*2.&rsbmp.&*1.&rsbmp
.dm hbmp end
.dm zhbmp begin
.hbmp &*
.dm zhbmp end
.gt hbmp add zhbmp cont

:cmt. **** :CTXKW ****
.dm ctxkw1 begin
&rskw.&*.&rskw.
.dm ctxkw1 end
.dm ctxkw begin
.if &*0 >= 1 .do begin
.   .ctxkw1 &*1
.do end
.if &*0 >= 2 .do begin
.   .ctxkw1 &*2
.do end
.if &*0 >= 3 .do begin
.   .ctxkw1 &*3
.do end
.if &*0 >= 4 .do begin
.   .ctxkw1 &*4
.do end
.if &*0 >= 5 .do begin
.   .ctxkw1 &*5
.do end
.if &*0 >= 6 .do begin
.   .ctxkw1 &*6
.do end
.if &*0 >= 7 .do begin
.   .ctxkw1 &*7
.do end
.if &*0 >= 8 .do begin
.   .ctxkw1 &*8
.do end
.if &*0 >= 9 .do begin
.   .ctxkw1 &*9
.do end
.dm ctxkw end
.dm xctxkw begin
.ctxkw &*
.dm xctxkw end
.gt ctxkw add xctxkw cont

:cmt. **** :QREF ****
.dm qref begin
:hlink ctx='&'translate(&*pfx.&*str.,`&trto.`,`&trfrom.`)'.&*pfx.&*str.:ehlink.&*.
.dm qref end
.gt qref add qref cont att
.ga * str REQ ANY
.ga * pfx ANY
.ga * * value '' default

:cmt. **** :POPREF ****
.dm popref begin
:hdfn ctx='&'translate(&*pfx.&*str.,`&trto.`,`&trfrom.`)'.&*pfx.&*str.:ehdfn.&*.
.dm popref end
.gt popref add popref cont att
.ga * str REQ ANY
.ga * pfx ANY
.ga * * value '' default

:cmt. **** :SEEALSO ****
.dm seealso begin
:H6.See Also
:zsl.
.if &*0 >= 1 .do begin
.   :zli. :qref str='&*1'.
.do end
.if &*0 >= 2 .do begin
.   :zli. :qref str='&*2'.
.do end
.if &*0 >= 3 .do begin
.   :zli. :qref str='&*3'.
.do end
.if &*0 >= 4 .do begin
.   :zli. :qref str='&*4'.
.do end
.if &*0 >= 5 .do begin
.   :zli. :qref str='&*5'.
.do end
.if &*0 >= 6 .do begin
.   :zli. :qref str='&*6'.
.do end
.if &*0 >= 7 .do begin
.   :zli. :qref str='&*7'.
.do end
.if &*0 >= 8 .do begin
.   :zli. :qref str='&*8'.
.do end
.if &*0 >= 9 .do begin
.   :zli. :qref str='&*9'.
.do end
:zesl.
.dm seealso end
.dm xseealso begin
.seealso &*
.dm xseealso end
.gt seealso add xseealso cont

:cmt. **** :CONTPC ****
.dm conttpc begin
.if &*0 eq 1 .do begin
.   :addhelp &'translate(`&*1.`,`&trto.`,`&trfrom.`)
.do end
.if &*0 eq 2 .do begin
.   :addhelp &'translate(`&*1.`,`&trto.`,`&trfrom.`) &*2
.do end
.dm conttpc end
.dm xconttpc begin
.conttpc &*
.dm xconttpc end
.gt conttpc add xconttpc cont

:cmt. **** :POPHELP ****
.dm pophelp begin
.if &*cnt eq 'yes' :h4.&*pfx.&*
.se hlptype=`&rshnln`
.se hlvl='4'
.helphd &*pfx.&*
.se hlptype=''
.dm pophelp end
.gt pophelp add pophelp att nocont
.ga * cnt
.ga * * VALUE 'yes' DEFAULT
.ga * * VALUE 'no'
.ga * pfx ANY
.ga * * value '' default

:cmt. **** :BOX ****
.dm box begin
:pb.&rsbxon
:pb.
.dm box end
.gt box add box cont

:cmt. **** :EBOX ****
.dm ebox begin
:pb.&rsbxof
.dm ebox end
.gt ebox add ebox cont

:cmt. **** :TABXMP ****
.dm tabxmp begin
.co off
:p.&rstbxmp.&*1 &'subword( &*, 2 )
:pb.
.dm tabxmp end
.dm xtabxmp begin
.tabxmp &*
.dm xtabxmp end
.gt tabxmp add xtabxmp cont

:cmt. **** :ETABXMP ****
.dm etabxmp begin
:pb.&rstbxmp.
:p.
.co on
.dm etabxmp end
.gt etabxmp add etabxmp cont

.dc STOP OFF