htmlmacs.gml

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

.*
.if '&format' eq '7x9' .do begin
:set symbol='rmargin' value='60'.
.do end
.el .if '&format' eq '8.5x11' .do begin
:set symbol='rmargin' value='60'.
.do end
.el .if '&format' eq '8.5x11a' .do begin
:set symbol='rmargin' value='78'.
.do end
.el .if '&format' eq 'help' .do begin
:set symbol='rmargin' value='78'.
.do end
.el .do begin
:set symbol='rmargin' value='60'.
.do end
.*
.dm sy begin
<VAR>&*</EVAR>
.dm sy end
.*
.dm ev begin
<DFN>&*</DFN>
.ix 'environment variables' '&*'
.ix '&* environment variable'
.dm ev end
.*
.dm kw begin
<DFN>&*</DFN>
.ix '&*'
.dm kw end
.*
.dm kwm begin
<KBD>&*</KBD>
.ix '&*'
.dm kwm end
.*
.dm id begin
<CODE>&*</CODE>
.dm id end
.*
.dm book begin
<CITE>&*</CITE>
.dm book end
.*
.dm fie begin
<CODE>&*
.dm fie end
.*
.dm fi begin
.fie &*.
</CODE>
.dm fi end
.*
.dm fname begin
.fie &*.
.dm fname end
.*
.dm efname begin
.if &l'&*. eq 0 .do begin
.   ..ct
</CODE>
.do end
.el .do begin
</CODE>&*.
.do end
.dm efname end
.*
.gt fname add fname cont
.gt efname add efname cont
.*
.dm uindex begin
.ix '&*'
.dm uindex end
.*
.dm figure begin
.se *figttl=&*
.if '&*depth.' eq '' or '&*depth.' eq '1.xx' .do begin
.   .ty *** Missing picture file '&*figttl.'
.   .me
.do end
.se *figttl=&'substr(&*,&'pos(&*file.,&*)+&'length(&*file.)+1)
:P.
<IMG ALIGN=MIDDLE SRC="&*file..bmp" ALT="&*figttl.">
:P.
<P>&*figttl.
.dm figure end
.gt figure add figure att
.ga * depth any
.ga * file any
.*
.dm pict begin
:P.
<IMG ALIGN=MIDDLE SRC="&*file..bmp" ALT="&*text.">
:P.
<P>&*text.
.dm pict end
.if &$cmacpass. eq 'ugh' .do begin
.gt picture delete
.do end
.gt picture add pict att
.ga * depth any
.ga * file any
.ga * text any
.*
.dm image begin
:P.
<IMG ALIGN=MIDDLE SRC="&*file..bmp" ALT="&*text.">
:P.
<P>&*text.
.dm image end
.if &$cmacpass. eq 'ugh' .do begin
.gt image delete
.do end
.gt image add image att
.ga * xoff any
.ga * depth any
.ga * file any
.ga * text any
.*
.dm @hdref begin
<A HREF="#&*refid.">:HDREF refid='&*refid.' page=no.</A>&*
.dm @hdref end
.gt HDREF add @HDREF continue attributes
.ga * REFID any
.ga * PAGE uppercase value NO
.ga * *    value YES
.*
.dm box begin
.if '&*' eq 'begin' .do begin
.   :P.
.   <P>
.   <HR>
.   :P.
.do end
.el .if '&*' eq 'end' .do begin
.   :P.
.   <P>
.   <HR>
.   :P.
.do end
.el .do begin
.   :P.
.   <P>
.   <HR>
.   :P.
.do end
.dm box end
.*
.dm mbox begin
.if '&*1' eq 'on' .do begin
.   :XMP.
.   <P>
.   <HR>
.   <PRE>
.do end
.el .if '&*' eq 'off' .do begin
.   </PRE>
.   <HR>
.   :eXMP.
.do end
.el .if '&*' eq 'begin' .do begin
.   :XMP.
.   <P>
.   <HR>
.   <PRE>
.do end
.el .if '&*' eq 'end' .do begin
.   </PRE>
.   <HR>
.   :eXMP.
.do end
.el .do begin
.   <HR>
.do end
.dm mbox end
.*
.dm cbox begin
.mbox &*
.dm cbox end
.*
.dm mbigbox begin
:XMP.
<P>
<HR>
<PRE>
.dm mbigbox end
.*
.dm embigbox begin
</PRE>
<HR>
:eXMP.
.dm embigbox end
.*
.dm syntax begin
:XMP.
<P><PRE>
.dm syntax end
.*
.dm esyntax begin
</PRE>
:eXMP.
.dm esyntax end
.*
.dm syntaxbrk begin
.esyntax
.syntax
.dm syntaxbrk end
.*
.dm list begin
:XMP.
<P><PRE>
.dm list end
.*
.dm elist begin
</PRE>
:eXMP.
.dm elist end
.*
.dm synote begin
.begnote
:P.
<DT>where:
<DD>description:
..br
.dm synote end
.*
.dm esynote begin
.endnote
.dm esynote end
.*
.dm mnote begin
.note &*
.dm mnote end
.*
.dm optlist begin
.sr OLDlvl=&SCTlvl.
.sr SCTlvl=3
.dm optlist end
.gt optlist add optlist
.*
.dm opt begin
.if '&*refid.' ne '' .do begin
.section *refid=&*refid. &*name.&*
.do end
.el .do begin
.section &*name.&*
.do end
.dm opt end
.gt opt add opt attr
.ga * refid any
.ga * name any
.*
.dm eoptlist begin
.sr SCTlvl=&OLDlvl.
.dm eoptlist end
.gt eoptlist add eoptlist
.*
.dm optref begin
:P.
(see <A HREF="#&*refid.">:HDREF refid='&*refid.' page=no.</A>)
.dm optref end
.gt optref add optref attr
.ga * refid any
.*
.dm contents begin
:P.
<P>
..br
<PRE>
.dm contents end
.*
.dm econtents begin
..br
</PRE>
.dm econtents end
.*
.dm hint begin
:P.
<BLOCKQUOTE>
<STRONG>Hint:</STRONG>
.dm hint end
.*
.dm ehint begin
..br
</BLOCKQUOTE>
.dm ehint end
.*
.dm remark begin
:P.
<BLOCKQUOTE>
<STRONG>Note:</STRONG>
.dm remark end
.*
.dm eremark begin
..br
</BLOCKQUOTE>
.dm eremark end
.*
.dm warn begin
:P.
<BLOCKQUOTE>
<STRONG>WARNING!</STRONG>
.dm warn end
.*
.dm ewarn begin
..br
</BLOCKQUOTE>
.dm ewarn end
.*
.dm exam begin
.  .if '&*1' eq 'begin' .do begin
.  .  :P.
.  .  <P><I>Example:</I>
.  .  :XMP.
.  .  <PRE>
.  .do end
.  .el .if '&*1' eq 'end' .do begin
.  .  </PRE>
.  .  :eXMP.
.  .do end
.  .el .if '&*1' eq 'break' .do begin
.  .  </PRE>
.  .  :eXMP.
.  .  :XMP.
.  .  <PRE>
.  .do end
.  .el .do begin
.  .  :P.
.  .  <P><I>Example:</I>
.  .  :XMP.
.  .  <PRE>
.  .  &*
.  .  </PRE>
.  .  :eXMP.:P.<P>
.  .do end
.dm exam end
.*
.dm tinyexam begin
.  .if '&*1' eq 'begin' .do begin
.  .  :P.
.  .  <P><I>Example:</I>
.  .  :XMP.
.  .  <PRE>
.  .do end
.  .el .if '&*1' eq 'end' .do begin
.  .  </PRE>
.  .  :eXMP.
.  .do end
.  .el .if '&*1' eq 'break' .do begin
.  .  </PRE>
.  .  :eXMP.
.  .  :XMP.
.  .  <PRE>
.  .do end
.  .el .do begin
.  .  :P.
.  .  <P><I>Example:</I>
.  .  :XMP.
.  .  <PRE>
.  .  &*
.  .  </PRE>
.  .  :eXMP.:P.<P>
.  .do end
.dm tinyexam end
.*
.* for a sequence of steps in which there is only one step
.*
.dm onestep begin
.initstep &*
.sr stplvl=-1
.dm onestep end
.*
.* for a sequence of steps in which there are more than one step
.*
.dm begstep begin
.initstep &*
.sr stplvl=0
.dm begstep end
.*
.dm initstep begin
:P.<DL>
.if '&*1' ne '' .do begin
:P.<DT>&*<DD>
.do end
.dm initstep end
.*
.dm step begin
.sr stplvl=&stplvl.+1
.if &stplvl. eq 0 .do begin
:P.<DT>
.do end
.el .do begin
:P.<DT>(&stplvl.)
.do end
<DD>
<B>&*</B>
.dm step end
.*
.dm orstep begin
:P.<P>
or
:P.<DT>
<DD>
<B>&*</B>
.dm orstep end
.*
.dm result begin
:P.
<P>
.dm result end
.*
.dm endstep begin
..br
</DL>
.dm endstep end
.*
.dm topsect begin
.pa
.sect &*
.dm topsect end
.*
.dm helppref begin
.if &e'&dohelp eq 1 .do begin
.if '&*' ne '' .do begin
:helppfx pfx='&* '.
.se pfx$='&* '
.do end
.el .do begin
:helppfx.
.se pfx$=''
.do end
.pu 1 .helppref &*
.do end
.dm helppref end
.*
.dm ixbook begin
.ty ***We don't do ixbook
.dm ixbook end
.*
.dm ixhelp begin
.ty ***We don't do ixhelp
.dm ixhelp end
.*
.dm ixchap begin
.ty ***We don't do ixchap
.dm ixchap end
.*
.dm ixsect begin
.ty ***We don't do ixsect
.dm ixsect end
.*
.dm ixline begin
.ty ***We don't do ixline
.dm ixline end
.*
.* The following symbol set corrects a macro definition problem
.*
:SET symbol='$cmacpass' value='ugh'.
.*
.* Start Useful macros created by John for the debugger book.
.*
.dm begmenu begin
.begnote $break
.sr currmenu='&*'
.dm begmenu end

.dm menuitem begin
.ix '&currmenu. menu' '&*'
.ix '&* menu item'
.note &*
.dm menuitem end

.dm endmenu begin
.endnote
.dm endmenu end
.*
.dm seealso begin
See <A HREF="#&*">:HDREF refid='&*' page=no.</A>
.dm seealso end
.*
.dm mi begin
<B><I>&*</I></B>
.dm mi end
.*
.dm mm begin
<B><I>&*</I></B>
.ix '&* menu'
.dm mm end
.*
.dm menuref begin
.mi &*1
from the
.mi &*2
menu
.dm menuref end
.*
.dm popref begin
.mi &*
.ix '&* menu item'
from the pop-up menu
.dm popref end
.*
.dm dot begin
.ct .li .
.dm dot end
.*
.dm cmddef begin
.section &*
.ix 'command' '&*'
.ix '&* command'
.dm cmddef end
.*
.dm wnddef begin
&*
.ix 'window' '&*'
.ix '&*' 'window'
.dm wnddef end
.*
.dm optdef begin
.note &*
.ix 'options' '&*'
.ix '&* option'
.dm optdef end
.*
.* End Useful macros created by John for the debugger book.
.*