From:	SMTP%"chris@ccastat.demon.co.uk" 23-MAY-1996 12:55:10.81
To:	everhart@star.zko.dec.com, ARNE@ko.hhs.dk, canellis@apache.brooks.af.mil,        SCANDORA@cmt.anl.gov
CC:	
Subj:	SDLIFDL.7-OF-8  

-+-+-+-+-+-+-+-+ START OF PART 7 -+-+-+-+-+-+-+-+
V`00`F2`0C`00WORD`20INTEGERQ`14`00`00`00`EE`10`00LONGWORD`20INTEGERQ`10`00`00
V`00`EE`10`00QUADWORD`20INTEGERQ`10`00`00`00`EE`10`00LONGWORD`20INTEGER`05`00
V`93`02P`FF`02Q`12`00`00`00`FF"Q`26`00`00`00`FF"Q`26`00`00`00`FF`04Q(`00`00`00
V`FFVQ`04`00`00`00`FF`02Q`04`00`00`00`FFLQ`08`00`00`00`FF`02Q!`00`00`00`FF`02Q
V`07`00`00`00`FF`02Q`17`00`00`00`FFkQ`05`00`00`00`FF`5BQ`04`00`00`00`FF`02Q`0E
V`00`00`00`FFGQ`04`00`00`00`FF`02Q`15`00`00`00`FF`02Q`19`00`00`00`FF`02Q`0E`00
V`00`00`FF`0DQ`15`00`00`00`FF`02Q`8A`00`00`00
X`02`FF`02QZ`00`00`00`FF0Q`04`00`00`00`FF`02Q`04`00`00`00`FF`26Q`08`00`00`00`FF
V`02QG`00`00`00`FF`02Q-`00`00`00`FF`02Q#`00`00`00`FF`02Q`5D`00`00`00`FE`BF`00Q
V`02`00`00`00`FFUQ`DF`00`00`00`FF`06Q`05`00`00`00`FFNQJ`00`00`00`FEE`01Q`0E`00
V`00`00`FF`08Q`07`00`00`00`FF#Q`20`00`00`00`FE`0C`01Q`05`00`00`00`FF`0AQ`09`00
V`00`00`FFIQ"`00`00`00`FF`02Q"`00`00`00`FFtQx`00`00`00`FF=Q`11`00`00`00`FF`02Q
V`1D`00`00`00`FF`02Q,`00`00`00`FFIQ`04`00`00`00`FFDQ`02`00`00`00`FF`15Q=`00`00
V`00`FF`1BQ`05`00`00`00`FF`15QB`00`00`00`FF`12Q`10`00`00`00`FE`AF`00Q`08`00`00
V`00`FE`A5`00Q`05`00`00`00`FFlQi`00`00`00`FF5Q_`00`00`00`FF`05Q`04`00`00`00`FFm
VQ`20`00`00`00`FF`02Q"`00`00`00`FF`02Q`18`00`00`00`FF`02Q`0E`00`00`00`FF`1FQ3
V`00`00`00`FF`04Q`07`00`00`00`FF`17Q`05`00`00`00`FF`11Q`14`00`00`00`FF`1EQ`05
V`00`00`00`FF`18Q`16`00`00`00`FE`E0`00Q`1F`00`00`00`FF`02Q`18`00`00`00`FF`02Q
V`1A`00`00`00`FF`06Q`05`00`00`00`FF`0FQv`00`00`00`FF`0FQC`00`00`00`FE`B0`03Q`16
V`00`00`00`FC`1F`00`1F`00Q`04`00`00`00`FCS`00`1F`00Q`06`00`00`00`FE`1F`00Q`04
V`00`00`00`FC`A7`02`BE`02Q`01`00`00`00`FE`B7`02Q/`00`00`00`FE`5C`03Q`01`00`00
V`00`FE`8B`02Q`04`00`00`00`FF<Q4`00`00`00`FE`F6`03Q`01`00`00`00`FE`14`02Q`07`00
V`00`00`FF;Q4`00`00`00`FE`B5`03Q`01`00`00`00`FE`D3`01Q`09`00`00`00`FE`1C`01Q`13
V`00`00`00`FF`02Q`26`00`00`00`FF`02Q%`00`00`00`FF`02Q`1E`00`00`00`FF`02Q8`00`00
V`00
X`02`FE`15`02Q`0C`00`00`00`FF`03Q`1B`00`00`00`FF`02QL`00`00`00`FE`7E`03Q`07`00
V`00`00`FE`8E`00Q`09`00`00`00`FFwQ`85`00`00`00`FF7Q`16`00`00`00`FF`20Q`17`00`00
V`00`FF`08Q`06`00`00`00`FE`A6`01Q`0C`00`00`00`FFvQ`07`00`00`00`FFnQ`13`00`00`00
V`FFMQ`08`00`00`00`FFDQU`00`00`00`FF0Q`0C`00`00`00`FF#Q`07`00`00`00`FF`1BQ#`00
V`00`00`FF`0AQ`FE`00`00`00`FF"Q`87`00`00`00`FFCQ`19`00`00`00`FF`02Qe`00`00`00
V`FE!`02Q`04`00`00`00`FF`15Q#`00`00`00`FE`BB`04QD`00`00`00`FF%Q0`00`00`00`FF`05
VQ`04`00`00`00`FF`02Q`05`00`00`00`FFJQ`04`00`00`00`FFEQ`02`00`00`00`FF`15QA`00
V`00`00`FF`18Q`02`00`00`00`FF`15Q'`00`00`00`FF`06Q`05`00`00`00`FFQQ`05`00`00`00
V`FF`1BQ`04`00`00`00`FF`16Q`04`00`00`00`FF`11Q`08`00`00`00`FF`08Q`0B`00`00`00
V`FF,Q`04`00`00`00`FF`1EQ!`00`00`00`FF`05Q`09`00`00`00`FF`15Q#`00`00`00`FED`03Q
V.`00`00`00`FF`15QN`00`00`00`FE`C1`02Q`08`00`00`00`FE`A7`00Q8`00`00`00`FF2Q`04
V`00`00`00`FF-Q,`00`00`00`FF`15Q8`00`00`00`FE`12`02Q`08`00`00`00`FE`80`01Q`0E
V`00`00`00`FE`FC`01Q`9D`00`00`00`FE`5D`01Qj`00`00`00`FE`F1`00Qc`00`00`00`FE`88
V`00Q`0E`00`00`00`FF`7DQ`A9`00`00`00`FF`02Q`1F`00`00`00`FF`02Q`20`00`00`00`FF
V`02Q`17`00`00`00`FF`02
X`01`01`17`08`00`0BPAS$HANDLER`01`17`08`00`0ASYS$ASCTIM`01`17`08`00`10PAS$WRITE
V_STRING`01`17`08`00`0CPAS$WRITELN2`01`17`08`00`09PAS$OPEN2`01`17`08`00`0CPAS$R
VEWRITE2`01`17`08`00`11PAS$WRITEV_STRING`01`17`08`00`12PAS$WRITEV_INTEGER`01`17
V`08`00`0FPAS$WRITEV_CHAR`01`17`08`00`07PAS$DEC`02`17`0A`00`00`D8`0A`00`00`7C
V`00`0ASDL$OUTPUT`01`00`00`00`0DSDL$_REVCHECK`01`17`08`00`08LIB$STOP`01`17`08
V`00`0APAS$CLOSE2`01`17`08`00`0EPAS$WRITE_CHAR`00`02`E9`00`20`17`00`00`05$CODE
V`00`02`89`01`F8`06`00`00`06$LOCAL`07`00`00`06SDLSHR`1423-May-1996`2012:55:04
V`14PAS$ENVIRONMENT_TIME`07`00`00`09SDLTYPDEF`1423-May-1996`2012:55:04`14PAS$EN
VVIRONMENT_TIME`07`00`00`08SDLNODEF`1423-May-1996`2012:55:03`14PAS$ENVIRONMENT_
VTIME
X`05`FD`06`B9`10`05`00v`02`1B`80`FF`B9`09`00`00`02`AC`FC`02`08`01`82`00`E3`02
V`01`F1`DA`E7`02`01`F3`E7`02`01`B9`F6`02`01`01`8B`00`A1`CB`F3`0E`01`02`01`FD`02
V`04`D1`02`03`01`87`00`F6`FC`02`01`F9`FD`02`01`AB`02`01`99`0E`01`14`93`00`00`00
V`FB`02`03`EA`02`01`FD`02`01`F5`B2`EB`02`02`DD`F1`02`01`B7`02`01`8F`02`03`BE`F1
V`0E`01`023`FD`02`04`F8`02`01`F6`E8`02`01`D4`FD`EB`F3`0E`01`14`81`00`00`00`FC
V`02`04`E9`FB`EE`02`01`F6`FA`80`02`02`94`02`01`CD`F1`0E`01`14y`00`00`00`FD`02
V`01`EC`F7`02`01`93`E2`0E`01`02m`FD`02`03`F1`02`02`FD`E2`F6`E8`0E`01`02`7D`FB
V`02`04`BC`FC`02`01`F4`F1`EE`EE`D3`FC`ED`F3`0E`01`14`DB`00`00`00`FD`02l`CF`FB
V`02`01`F4`02`01`D9`02`01`CC`FB`C4`FB`02`02`C5`02`01`F7`01`BA`00`02`02`9E`EB`02
V`01`F7`F6`02`01`89`02`02`F1`02`02`E9`02`01`E8`02`01`F8`EB`92`E6`02`01`E5`02`02
V`ED`0E`01`14`F9`00`00`00`92j`B9`FC`02`01`D5`02`01`01`A8`00`0E`01`02`01`FC`02
V`01`C6`02`01`9F`B8`DE`0E`01`02`01`FE`02`09`F0`02`02`F7`E6`B0`D6`01`86`00`02`02
V`F4`FC`02`02`EB`F8`02`01`FC`FD`02`01`FD`E6`02`03`F4`E6`C6`E6`02`01`C4`02`01`F7
V`D5`9E`02`01`E6`02`01`F8`02`01`01`86`00`E8`93`02`03`8B`90`02`01`E8`0E`01`14`0A
V`01`00`00`FB`02`01`EC`02`01`83`0E`01`10`B8`00`04`00`00`1B`F3`05$CODE`20`17`00
V`00`11`B8`00`04`01`00`1B`F5`06$LOCAL`F8`06`00`00
X`05`FD`11`BE`00`05`00`D4`09`1B`F5`0ANODTYPNAME
X`05`F9`06`BF`00`AC`00`00`00
X`05`FD`12`BE`00`05`00`E4`08`1B`F4`0BDATATYPQUAL
X`05`F9`06`BF`00`F0`00`00`00
X`05`FD`12`BE`00`05`00`9C`06`1B`F4`0BDATATYPNAME
X`05`F9`06`BF`00`C8`01`00`00
X`05`FD`0E`BE`00`05`00x`02`1B`F8`07_HEADER
X`05`F9`06`BF`00`94`02`00`00
X`05`FD`0C`BE`00`05`00`0C`05`1B`FA`05OPEN1
X`05`F9`06`BF`00`90`01`00`00
X`05`FD`11`BE`00`05`00`B4`0B`1B`F5`0AOUTPUTNODE
X`05`FD`11`BE`00`05`00d`08`1B`F5`0ADO_COMMENT
X`05`F9`06`BF`00`80`00`00`00
X`05`FD`0E`BE`00`05`00`80`0A`1B`F8`07DO_COND
X`05`F9`06`BF`00X`00`00`00
X`05`FD`0D`BE`00`05`00`AC`0F`1B`F9`06DO_LOG
X`05`F9`06`BF`00`D8`00`00`00
X`05`FD`0F`BE`00`05`00`84`10`1B`F7`08DO_UNSUP
X`05`F9`06`BF`00`08`01`00`00
X`05`FD`0E`BE`00`05`00`8C`11`1B`F8`07DO_ITEM
X`05`FD`0D`BE`00`05`00`8C`16`1B`F9`06INDENT
X`05`F9`06`BF`00`94`00`00`00
X`05`F9`06`BF`00`00`05`00`00
X`05`F9`06`BF`00`F8`03`00`00
X`05`FD`11`BE`00`05`00`D8`0A`1B`F5`0ASDL$OUTPUT
X`05`F9`06`BF`00`DC`00`00`00
X`05`FE`01`BD
X`03`00
$ call unpack SDLIFDL.OBJ;1 -
 3010433407 "FORMAT VARIABLE;CARRIAGE_CONTROL NONE" 22 5 6 
$!
$ create 'f'
X`5BIDENT('V1.00-01'),
X`20INHERIT('sys$share:starlet',
X`09`20'sys$share:pascal$lib_routines',
X`09`20'sdlnodef',`20'sdltypdef',`20'sdlshr')`5D
XMODULE`20sdlifdl;
X
X`7B
XPROGRAM`20DESCRIPTION:
X
X`20`20`20`20SDL`20back`20end`20modelled`20on`20sdlpli.pli`20from`20Freeware`20
VV2.0`20CD
X
X+++
X`20This`20software`20may`20be`20copied`20and`20distributed`20provided`20that
V`20this`20notice`20is
X`20included`20and`20no`20charge`20is`20made`20other`20than`20reasonable`20medi
Va`20costs.`20The`20source
X`20is`20provided`20on`20an`20'as`20is'`20basis,`20and`20no`20warranty`20is`20e
Vither`20given`20or`20implied.`20
X`20
X`20No`20responsibility`20is`20accepted`20for`20any`20damage`20done`20to`20prog
Vrams`20or`20data`20or`20any
X`20other`20consequential`20loss`20caused`20either`20directly`20or`20indirectly
V`20as`20a`20result`20of
X`20using`20this`20software.`20
X`20
X`20I`20would`20be`20pleased`20to`20hear`20of`20any`20bugs,`20solutions,`20or
V`20suggested`20enhancements
X`20at`20the`20address`20below.`20
X`20
X`20Chris`20Sharman,`20CCA`20Stationery,`20Eastway,`20Fulwood,`20Preston,`20PR2
V`209WS,`20ENGLAND
X`20email`20chris@ccagroup.co.uk
X---
X
XCREATION`20DATE:`2028-FEB-1996
X
XMODIFICATION`20HISTORY:
X
XDate`20`20`20`20`20`20`20`20`20`20Name
X`20`20`20`20`20`20`20`20Description
X------------------------------------------------------------------------------
V--
X23-MAY-1996`20`20`20Chris`20`20
X`20`20`20`20V1.00-01
X`09Add`20###Module`20`26`20EndModule`20comments`20to`20facilitate`20removal`20
Vafter
X`09`09DECforms`20embeds`20the`20file
X`09Add`20subfilename`20to`20comment`20in`20header`20file
X`09Invent`20group`20`26`20"subfield"`20when`20we`20have:`20eg`20addr`20charact
Ver(25)`20occurs`204
X`09`09because`20DECforms`20can't`20handle`20it.
X`09Try`20to`20standardise`20structure`20`26`20remove`20site-specific`20odditie
Vs
X%`5Bchange_entry`5D%...
X`7D
X
X`5BHIDDEN`5D`20CONST
X`20`20`20`20lang_name`20=`20'IFDL';
X`20`20`20`20myver`20=`20lang_name`20+`20'`20V1.00-01';
X
X`5BHIDDEN`5D`20TYPE
X`20`20`20`20pnod`20=`20`5BUNSAFE`5D`20`5Enod$_node;
X`20`20`20`20vs`20=`20VARYING`20`5B255`5D`20OF`20CHAR;
X`20`20`20`20pvs`20=`20`5BUNSAFE`5D`20`5Evs;
X
X`5BHIDDEN`5D`20VAR
X`20`20`20`20outf,`20outf1:`20TEXT;
X`20`20`20`20specname,`20prefname:`20vs;
X
X`20`20`20`20nodtypnames:`20`5BSTATIC,READONLY`5D`20ARRAY`20`5B1..15`5D`20OF`20
VVARYING`20`5B8`5D`20OF`20CHAR`20VALUE`20`5B
X`09nod$k_rootnode:`20'root';
X`09nod$k_commnode:`20'comment';
X`09nod$k_constnode:`20'const';
X`09nod$k_entrynode:`20'entry';
X`09nod$k_itemnode:`20'item';
X`09nod$k_modulnode:`20'module';
X`09nod$k_parmnode:`20'parm';
X`09nod$k_dummynode:`20'dummy';
X`09nod$k_objnode:`20'obj';
X`09nod$k_headnode:`20'head';
X`09nod$k_typnode:`20'type';
X`09nod$k_endnode:`20'end';
X`09nod$k_condnode:`20'cond';
X`09nod$k_litnode:`20'literal';
X`09nod$k_symbnode:`20'symb'`5D;
X
X`20`20`20`20datatypnames:`20ARRAY`20`5B1..36`5D`20OF`20VARYING`20`5B32`5D`20OF
V`20CHAR`20VALUE`20`5B
X`09typ$k_byte:`20'UNSIGNED`20BYTE';
X`09typ$k_integer_byte:`20'BYTE`20INTEGER';
X`09typ$k_word:`20'UNSIGNED`20WORD';
X`09typ$k_integer_word:`20'WORD`20INTEGER';
X`09typ$k_longword:`20'UNSIGNED`20LONGWORD';
X`09typ$k_integer_long:`20'LONGWORD`20INTEGER';
X`09typ$k_quadword:`20'ADT';!`20VMSdate
X`09typ$k_integer_quad:`20'QUADWORD`20INTEGER';
X`09typ$k_octaword:`20'UNSIGNED`20OCTAWORD';!`20unsupported
X
X`09typ$k_integer:`20'LONGWORD`20INTEGER';
X`09typ$k_hardware_integer:`20'LONGWORD`20INTEGER';
X`09typ$k_integer_hw:`20'LONGWORD`20INTEGER';
X
X`09typ$k_double:`20'DFLOATING';
X`09typ$k_float:`20'SHORT`20FLOAT';
X`09typ$k_grand:`20'LONG`20FLOAT';
X`09typ$k_huge:`20'HFLOATING';
X
X`09typ$k_char:`20'CHARACTER';
X`09typ$k_decimal:`20'CHARACTER';
X
X`09typ$k_structure:`20'structure';
X`09typ$k_union:`20'union';
X
X`09typ$k_address:`20'POINTER';
X`09typ$k_boolean:`20'BOOLEAN';
X`09typ$k_vield:`20'vield';
X`09typ$k_any:`20'any';
X`09typ$k_entry:`20'entry';
X`09typ$k_double_complex:`20'DCOMPLEX';
X`09typ$k_float_complex:`20'COMPLEX';
X`09typ$k_grand_complex:`20'GCOMPLEX';
X`09typ$k_huge_complex:`20'HCOMPLEX';
X`09typ$k_user:`20'user';
X`09typ$k_void:`20'void';
X`09typ$k_hardware_address:`20'POINTER';
X`09typ$k_pointer_hw:`20'POINTER';
X`09typ$k_pointer_long:`20'POINTER';
X`09typ$k_pointer:`20'POINTER';
X`09typ$k_pointer_quad:`20'POINTER'`5D;
X
X`5BHIDDEN`5D`20CONST
X`20`20`20`20dimtypes`20=`20`5Btyp$k_char,`20typ$k_decimal`5D;
X
X`5BHIDDEN`5D`20FUNCTION`20nodtypname(`20t:`20INTEGER8`20):`20vs;
X`20`20`20`20BEGIN
X`20`20`20`20IF`20(t<LOWER(nodtypnames))`20OR_ELSE`20(t>UPPER(nodtypnames))`20T
VHEN
X`09nodtypname`20:=`20'*Unk'+DEC(t,4)+'*'
X`20`20`20`20ELSE
X`09nodtypname`20:=`20nodtypnames`5Bt`5D;
X`20`20`20`20END;
X
X`5BHIDDEN`5D`20FUNCTION`20datatypqual(`20this:`20pnod`20):`20vs;
X`20`20`20`20VAR
X`09s:`20vs`20VALUE`20'';
X`20`20`20`20BEGIN
X`20`20`20`20WITH`20this`5E`20DO
X`09IF`20nod$v_vardim`20THEN
X`09`20`20`20`20s`20:=`20'`20Occurs`20*Var*'
X`09ELSE`20IF`20(nod$l_hidim<>nod$l_lodim)`20THEN
X`09`20`20`20`20BEGIN
X`09`20`20`20`20IF`20(nod$l_lodim<>1)`20THEN
X`09`09WRITEV(s,`20'`20Occurs`20',`20nod$l_hidim+1-nod$l_lodim:1,
X`09`09`09`20`20`20`20'`20Base`20',`20nod$l_lodim:1)
X`09`20`20`20`20ELSE
X`09`09WRITEV(s,`20'`20Occurs`20',`20nod$l_hidim:1);
X`09`20`20`20`20END;
X`20`20`20`20datatypqual`20:=`20s;
X`20`20`20`20END;
X
X`5BHIDDEN`5D`20FUNCTION`20datatypname(`20this:`20pnod`20):`20vs;
X`20`20`20`20VAR
X`09s:`20vs;
X`20`20`20`20BEGIN
X`20`20`20`20WITH`20this`5E`20DO
X`09BEGIN
X`09IF`20(nod$w_datatype<LOWER(datatypnames))`20OR_ELSE
X`09`09(nod$w_datatype>UPPER(datatypnames))`20THEN
X`09`20`20`20`20WRITEV(s,`20'*Unk',`20nod$w_datatype:1,`20'*')
X`09ELSE`20IF`20NOT`20(nod$w_datatype`20IN`20dimtypes)`20THEN
X`09`20`20`20`20s`20:=`20datatypnames`5Bnod$w_datatype`5D
X`09ELSE
X`09`20`20`20`20BEGIN
X`09`20`20`20`20IF`20nod$v_desc`20OR_ELSE`20(nod$l_typeinfo=sdl$k_unknown_lengt
Vh)`20THEN
X`09`09s`20:=`20datatypnames`5Bnod$w_datatype`5D`20+`20'`20(*unknown*)'
X`09`20`20`20`20ELSE
X`09`09WRITEV(s,`20datatypnames`5Bnod$w_datatype`5D,`20'`20(',`20nod$l_typeinfo
V:1,
X`09`09`09')');
X`09`20`20`20`20IF`20nod$v_varying`20THEN`20s`20:=`20s`20+`20'`20Varying';
X`09`20`20`20`20END;
X!`09IF`20nod$v_dimen`20THEN`20s`20:=`20s`20+`20datatypqual(this);
X`09END;
X`20`20`20`20datatypname`20:=`20s;
X`20`20`20`20END;
X
X`5BHIDDEN`5D`20PROCEDURE`20_header(`20VAR`20outf:`20TEXT;
X`09`09`09`20`20`20`20VAR`20shr:`20sdl$_shr_data;`20name:`20vs;
X`09`09`09`20`20`20`20intro:`20`5BTRUNCATE`5D`20VARYING`20`5Bu`5D`20OF`20CHAR;
V
X`09`09`09`20`20`20`20term:`20`5BTRUNCATE`5D`20VARYING`20`5Bv`5D`20OF`20CHAR;
X`09`09`09`20`20`20`20multiline:`20`5BTRUNCATE`5D`20BOOLEAN`20);
X`20`20`20`20VAR
X`09dt:`20PACKED`20ARRAY`20`5B1..17`5D`20OF`20CHAR;
X`09lterm:`20vs;
X`20`20`20`20BEGIN
X`20`20`20`20$asctim`20(timbuf`20:=`20dt);
X`20`20`20`20IF`20PRESENT(multiline)`20AND_THEN`20multiline`20THEN
X`09BEGIN
X`09WRITELN(outf,`20intro);
X`09intro`20:=`20'';
X`09lterm`20:=`20'';
X`09END
X`20`20`20`20ELSE`20IF`20PRESENT(term)`20AND_THEN`20(term<>'')`20THEN
X`09lterm`20:=`20'`20'`20+`20term
X`20`20`20`20ELSE
X`09lterm`20:=`20'';
X`20`20`20`20WRITELN(outf,`20intro,`20'`20Created`20',`20dt,`20'`20by`20OpenVMS
V`20SDL`20',`20shr.sdl_version,
X`09myver,`20lterm);
X`20`20`20`20WRITELN(outf,`20intro,`20'`20Source:`20',`20shr.full_source,`20lte
Vrm);
X`20`20`20`20IF`20PRESENT(multiline)`20AND_THEN`20multiline`20THEN`20WRITELN(ou
Vtf,`20term);
X`20`20`20`20WRITELN(outf);
X`20`20`20`20END;
X
X`5BHIDDEN`5D`20PROCEDURE`20open1(`20VAR`20outf:`20TEXT;
X`09`09`09`20`20VAR`20shr:`20sdl$_shr_data;
X`09`09`09`20`20suf:`20vs;
X`09`09`09`20`20modheader:`20BOOLEAN`20);
X`20`20`20`20BEGIN
X`20`20`20`20OPEN(`20FILE_VARIABLE`20`20`20`20`20:=`20outf,
X`20`20`20`20`09`20`20FILE_NAME`20`20`20`20`20`20`20`20`20:=`20specname,
X`20`20`20`20`09`20`20HISTORY`20`20`20`20`20`20`20`20`20`20`20:=`20NEW,
X`20`20`20`20`09`20`20DEFAULT`20`20`20`20`20`20`20`20`20`20`20:=`20prefname`20+
V`20suf`20+`20'.IFDL'`20);
X`20`20`20`20REWRITE(outf);
X`20`20`20`20WITH`20shr`20DO
X`09IF`20NOT`20sdl$v_noheader_opt`20THEN
X`09`20`20`20`20BEGIN
X`09`20`20`20`20IF`20modheader`20THEN
X`09`09WRITELN(outf,`20'`7B###Module/0/SDL_Include:',`20prefname,`20suf,
X`09`09`09'###`7D');
X`09`20`20`20`20_header(outf,`20shr,`20prefname,`20'`7B',`20'`7D',`20TRUE);
X`09`20`20`20`20END;
X`20`20`20`20END;
X
X`5BHIDDEN`5D`20PROCEDURE`20outputnode`20(`20VAR`20shr:`20sdl$_shr_data;
X`09`09`09`09this,`20finish:`20pnod;`20lvl:`20INTEGER);
X
X`20`20`20`20PROCEDURE`20do_comment(VAR`20outf:`20TEXT;
X`09`09`09`20VAR`20shr:`20sdl$_shr_data;
X`09`09`09`20this:`20pnod;
X`09`09`09`20incomment:`20BOOLEAN`20:=`20FALSE);
X`09BEGIN
X`09IF`20shr.sdl$v_comment_opt`20AND_THEN`20(this`5E.nod$a_comment<>NIL)`20THEN
V
X`09`20`20`20`20BEGIN
X`09`20`20`20`20IF`20NOT`20incomment`20THEN`20WRITE(outf,`20'`20`7B');
X`09`20`20`20`20WRITE(outf,`20this`5E.nod$a_comment::pvs`5E,`20'`20`7D');
X`09`20`20`20`20END
X`09ELSE`20IF`20incomment`20THEN
X`09`20`20`20`20WRITE(outf,`20'`20`7D');
+-+-+-+-+-+-+-+-  END  OF PART 7 +-+-+-+-+-+-+-+-
================== RFC 822 Headers ==================
Return-Path: chris@ccastat.demon.co.uk
Received: by dimond.zko.dec.com (UCX V4.0-10B, OpenVMS V6.2 VAX);
	Thu, 23 May 1996 12:55:04 -0400
Received: from relay-2.mail.demon.net by mail11.digital.com (8.7.5/UNX 1.2/1.0/WV)
	id MAA13919; Thu, 23 May 1996 12:48:42 -0400 (EDT)
Received: from post.demon.co.uk ([158.152.1.72]) by relay-2.mail.demon.net
          id am01630; 23 May 96 16:17 +0100
Received: from ccastat.demon.co.uk ([158.152.158.126]) by relay-3.mail.demon.net
          id aa21510; 23 May 96 16:08 +0100
Received: by ccastat.demon.co.uk (MX V4.1 VAX) id 15; Thu, 23 May 1996 13:25:06
          GMT
Sender: chris@ccastat.demon.co.uk
Date: Thu, 23 May 1996 13:25:04 GMT
From: chris@ccagroup.co.uk
Reply-To: chris@ccastat.demon.co.uk
To: everhart@star.zko.dec.com, ARNE@ko.hhs.dk, canellis@apache.brooks.af.mil,
        SCANDORA@cmt.anl.gov
Message-ID: <009A2C33.B77FC7C0.15@ccastat.demon.co.uk>
Subject: SDLIFDL.7-OF-8