cmanmac.gml

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

&*
.do end
.el .if |&*| eq |WATCOM| .do begin
&*
.do end
.el .if &'words(|&*|) gt 6 .do begin
&*
.do end
.el .do begin
.   &function. is &*
.   .if &*1 eq ISO OR &*1 eq TR .do begin
.   .   .sr *cls=&'strip(&*,'T',',')
.   .   .if |&*| eq |ISO C90| .do begin
.   .   .   .sr *wcls='ISO C95'
.   .   .do end
.   .   .el .do begin
.   .   .   .sr *wcls=&'strip(&*,'T',',')
.   .   .do end
.   .do end
.   .el .do begin
.   .   .sr *cls=&'strip(&*1,'T',',')
.   .   .sr *wcls=&'strip(&*1,'T',',')
.   .do end
.   .if &'length(&_func.) ne 0 .do begin
.   .   .ct , &_func. is not &*cls
.   .do end
.   .if &'length(&ffunc.) ne 0 .do begin
.   .   .ct , &ffunc. is not &*cls
.   .do end
.   .if &'length(&wfunc.) ne 0 .do begin
.   .   .if "&'substr(&wfunc.,1,1)" eq "_" .do begin
.   .   .   .ct , &wfunc. is not &*cls
.   .   .do end
.   .   .el .do begin
.   .   .   .if '&wfunc.' ne '&funcn.' .do begin
.   .   .   .   .ct , &wfunc. is &*wcls
.   .   .   .do end
.   .   .do end
.   .do end
.   .if &'length(&mfunc.) ne 0 .do begin
.   .   .ct , &mfunc. is not &*cls
.   .do end
.   .if &'length(&fmfunc.) ne 0 .do begin
.   .   .ct , &fmfunc. is not &*cls
.   .do end
.   .if &'length(&ufunc.) ne 0 .do begin
.   .   .ct , &ufunc. is not &*cls
.   .do end
.do end
.if &e'&dohelp eq 0 .do begin
:eDL.
.do end
.el .do begin
:ZeDL.
.do end
.in &INDlvl
.dm class end
.*
.dm system begin
.if '&machsys' eq 'PP' or '&__class' eq 'WIN386' .me
.if '&machsys' eq 'WIN32' .me
.in 0
.se *stm=0
.se *flg=0
...loopsys
.se *stm=&*stm.+1
.sysstr &$$fnc(&*stm.)
.if '&$$str' ne '' .do begin
.   .if &*flg. eq 0 .do begin
.   .   .se *flg=1
.   .   .if &e'&dohelp eq 0 .do begin
.   .   .   :DL &NTEphi..:DT.Systems::DD.
.   .   .do end
.   .   .el .do begin
.   .   .   :ZDL &NTEphi..:ZDT.Systems::ZDD.
:cmt.   .   .br
.   .   .do end
.   .do end
.   .if &__fnx. gt 1 .do begin
.   .   .mono &$$fnc(&*stm.) - &$$str
.   .   .br
.   .do end
.   .el .do begin
.   .    &$$str
.   .do end
.do end
.if &*stm. lt &__fnx. .go loopsys
.if &*flg. ne 0 .do begin
.   .if &e'&dohelp eq 0 .do begin
.   :eDL.
.   .do end
.   .el .do begin
.   :ZeDL.
.   .do end
.do end
.in &INDlvl
.dm system end
.*
.dm see begin
.se seecnt=0
.if '&*' eq 'begin' .newtext See Also:
.el .if '&*' eq 'end' .oldtext
.dm see end
.*
.dm seelist begin
.se *i=2
.se *j=3
.pe &*0.-1
.   .seekw &*1 &*&*i. &*&*j.;.se *i=&*i.+1;.se *j=&*i.+1
.dm seelist end
.*
.dm seekw begin
.if '&*2' ne '' .do begin
.   .if '&*2' ne 'Functions' .do begin
.   .   .if '&*1' ne '&*2' .do begin
.   .   .   .if &'vecpos(&*2,fnclst) ne 0 .do begin
.   .   .   .   .if &seecnt. ne 0 .ct,
.   .   .   .   .se seecnt=1
.   .   .   .   .if &e'&dohelp eq 0 .do begin
.   .   .   .   .   .mono &*2
.   .   .   .   .do end
.   .   .   .   .el .do begin
:QREF str='&*2'.
.   .   .   .   .do end
.   .   .   .   .if '&*3' eq 'Functions' .do begin
&*3
.   .   .   .   .do end
.   .   .   .do end
.   .   .do end
.   .do end
.do end
.dm seekw end
.*
.dm seeall begin
.newtext See also:
All functions starting with &mn.&*&emn.~...
.if &e'&dohelp eq 0 .do begin
:eDL.
.do end
.el .do begin
:ZeDL.
.do end
.in &INDlvl
.dm seeall end
.*
.dm blkcode begin
.if '&*' eq 'begin' .do begin
.   .if '&XMPset' eq 'of' .do begin
.   .   .xmpon
.   .   .sk 1 c
.   .do end
.do end
.el .if '&*' eq 'end' .do begin
.   .if '&XMPset' ne 'on' .er ***error*** blkcode misuse
.   .xmpoff
.do end
.dm blkcode end
.*
.dm blktext begin
.if '&*' eq 'begin' .do begin
.   .if '&XMPset' eq 'on' .do begin
.   .   .xmpoff
.   .do end
.   .se BLKlin=&sysfnum.-1
.   .if &BLKlin. eq &XMPlin.   .do begin
.   .   .sk -1
.   .do end
.   .el .do begin
.   .   .sk 1 c
.   .do end
.   .co on
.do end
.el .if '&*' eq 'end' .do begin
.do end
.el .er ***error*** blktext misuse
.dm blktext end
.*
.dm emp begin
.if '&*' eq 'begin' .empon
.el .if '&*' eq 'end' .empoff
.dm emp end
.*
.dm empon begin
:P.:SF font=2.
.dm empon end
.*
.dm empoff begin
:eSF.:P.
.dm empoff end
.*
.dm xmpon begin
:set symbol="XMPset" value="on".:SF font=4.
.co off
.dm xmpon end
.*
.dm xmpoff begin
.co on
:eSF.:set symbol="XMPset" value="of".
.dm xmpoff end
.*
.dm newtext begin
.cp 3
.in 0
.if &e'&dohelp eq 0 .do begin
:DL &NTEphi..:DT.&*:DD.
.do end
.el .do begin
:ZDL &NTEphi..:ZDT.&*:ZDD.
.do end
.dm newtext end
.*
.dm oldtext begin
.if &e'&dohelp eq 0 .do begin
:eDL.
.do end
.el .do begin
:ZeDL.
.do end
:cmt. .in &INDlvl
.in 0.76i
.dm oldtext end
.*
.dm doscmd begin
DOS
.mono &*
command
.ix 'DOS command' '&*'
.dm doscmd end
.*
.dm qnxcmd begin
QNX
.mono &*
command
.ix 'QNX command' '&*'
.dm qnxcmd end
.*
.*       describe functions for c library  2006-03-16
.*  new version with explicit type and classification
.*  if omitted, default classification is WATCOM
.*   .functinit
.*   .funct     norm              classification
.*   .funct_    _norm                  "
.*   .funct_f   farnorm                "
.*   .funct_m   multibytenorm          "
.*   .funct_fm  farmultibytenorm       "
.*   .funct_w   widenorm               "
.*   .funct_fw  farwidewnorm           "
.*   .funct_u   unicodenorm            "
.*
.*   .functm    doublemathfunc         "
.*   .functm_f  floatmathfunc          "
.*   .functm_l  longdoublemathfunc     "
.*
.*   .functgen
.*
.*   .functend
.*   .classt
.*
.*  .functinit
.*      init set symbols must be first call of functxxx macros
.*
.dm functinit begin
.sr function=''
.sr func=''
.sr _func=''
.sr ffunc=''
.sr fwfunc=''
.sr wfunc=''
.sr mfunc=''
.sr fmfunc=''
.sr ufunc=''
.*
.sr mathfunc=''
.sr fmathfunc=''
.sr lmathfunc=''
.*
.sr fncttl=''
.se __fnx=0
.se __cltxt=''
.dm functinit end
.*
.*
.*  functii internal macro for funct_xxx
.*
.dm functii begin
.se *fnd=&'vecpos(&*1,fnclst)
.if &*fnd. eq 0 .me
.if &__sysl(&*fnd.) eq 0 .ty ***WARNING*** &* not in library
.if |&fncttl.| eq || .do begin
.   .sr fncttl=&*1
.do end
.el .do begin
.   .sr fncttl=&fncttl., &*1
.do end
.se __fnx=&__fnx.+1
.se $$fnc(&__fnx.)=&*1
.if /&*2./ eq // .se __cl=WATCOM
.el .se __cl=&*2. &*3.
.if &__fnx. eq 1 .se __cltxt=&*1 is &__cl.
.el .se __cltxt=&__cltxt., &*1 is &__cl.
.dm functii end
.*
.*  macros for the different function types
.*
.dm funct  begin
.sr func=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm funct  end
.*
.dm funct_  begin
.sr _func=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm funct_  end
.*
.dm funct_f begin
.sr ffunc=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm funct_f end
.*
.dm funct_m begin
.sr mfunc=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm funct_m end
.*
.dm funct_w begin
.sr wfunc=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm funct_w end
.*
.dm funct_fm begin
.sr fmfunc=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm funct_fm end
.*
.dm funct_fw begin
.sr fwfunc=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm funct_fw end
.*
.dm funct_u begin
.sr ufunc=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm funct_u end
.*
.dm functm begin
.sr mathfunc=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm functm end
.*
.dm functm_f begin
.sr fmathfunc=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm functm_f end
.*
.dm functm_l begin
.sr lmathfunc=&*1
.if '&function' eq '' .sr function=&*1.
.functii &*
.dm functm_l end
.*
.*  .functgen
.*     generate title and start of code (declaration)
.*
.dm functgen begin
.sr funcn=&function.
.topsect &fncttl.
.cp 5
.newcode Synopsis:
.dm functgen end
.*
.*
.*  final processing for functions
.*
.dm functend begin
.endcode
.se *i=1
.pe &__fnx.
.   .funix &$$fnc(&*i.);.se *i=&*i.+1
.if &'length(&_func.) ne 0 .do begin
.   :set symbol="_func" value=";.sf4 &_func.;.esf ".
.do end
.if &'length(&ffunc.) ne 0 .do begin
.   :set symbol="ffunc" value=";.sf4 &ffunc.;.esf ".
.do end
.if &'length(&wfunc.) ne 0 .do begin
.   :set symbol="wfunc" value=";.sf4 &wfunc.;.esf ".
.do end
.if &'length(&fwfunc.) ne 0 .do begin
.   :set symbol="fwfunc" value=";.sf4 &fwfunc.;.esf ".
.do end
.if &'length(&mfunc.) ne 0 .do begin
.   :set symbol="mfunc" value=";.sf4 &mfunc.;.esf ".
.do end
.if &'length(&fmfunc.) ne 0 .do begin
.   :set symbol="fmfunc" value=";.sf4 &fmfunc.;.esf ".
.do end
.if &'length(&ufunc.) ne 0 .do begin
.   :set symbol="ufunc" value=";.sf4 &ufunc.;.esf ".
.do end
.if &'length(&mathfunc.) ne 0 .do begin
.   :set symbol="mathfunc" value=";.sf4 &mathfunc.;.esf ".
.do end
.if &'length(&fmathfunc.) ne 0 .do begin
.   :set symbol="fmathfunc" value=";.sf4 &fmathfunc.;.esf ".
.do end
.if &'length(&lmathfunc.) ne 0 .do begin
.   :set symbol="lmathfunc" value=";.sf4 &lmathfunc.;.esf ".
.do end
:set symbol="func" value=";.sf4 &function.;.esf ".
.dm functend end
.*
.*  classt
.*    output classifications for the defined functions
.*
.dm classt begin
.in 0
.sr __class=&*1
.if &e'&dohelp eq 0 .do begin
:DL &NTEphi..:DT.Classification::DD.
.do end
.el .do begin
:ZDL &NTEphi..:ZDT.Classification::ZDD.
.do end
:set symbol="*extr" value=0.
&__cltxt.
.if &e'&dohelp eq 0 .do begin
:eDL.
.do end
.el .do begin
:ZeDL.
.do end
.in &INDlvl
.dm classt end
.*
:cmt. include 'Safer C Library' related macros
:INCLUDE file='safecmac'.