From:	SMTP%"chris@ccastat.demon.co.uk" 24-JUL-1996 12:38:39.09
To:	everhart@star.zko.dec.com, ARNE@ko.hhs.dk, canellis@apache.brooks.af.mil,        SCANDORA@cmt.anl.gov
CC:	
Subj:	SDLIFDL.3-OF-4  

-+-+-+-+-+-+-+-+ START OF PART 3 -+-+-+-+-+-+-+-+
V`02`80`FD`02`03`F1`02`02`FD`E2`F6`E8`0E`01`02`82`FB`02`04`BC`FC`02`01`F4`02`01
V`F1`EE`EE`D3`FC`ED`F3`0E`01`14`FA`00`00`00`FD`02q`CF`FB`02`01`F4`02`01`D9`02
V`01`CC`FB`C4`FB`02`02`C5`02`01`F7`01`BA`00`02`02`9E`EB`02`01`F7`F6`02`01`89`02
V`02`F1`02`02`E9`02`01`E8`80`82`B9`02`01`F8`EB`92`E6`02`01`E5`02`02`ED`0E`01`14
V`18`01`00`00`FC`02`01`D5`02`01`01`A8`00`0E`01`02`01`FC`02`01`C6`02`01`9F`B8`DE
V`0E`01`02`01`FE`02`09`E1`FD`02`02`CD`C7`02`02`F7`E5`B4`D6`01`87`00`02`02`F4`FC
V`02`02`EA`F8`02`01`FC`FD`02`01`FE`E4`02`03`F4`E5`CA`E5`02`01`C4`02`01`FA`D5`E8
V`02`01`E9`02`01`F8`02`01`01`82`00`E8`92`02`03`8C`94`02`01`E8`0E`01`14)`01`00
V`00`FB`02`01`EC`02`01`FA`83`0E`01`10`B8`00`04`00`00`1B`F3`05$CODE`10`18`00`00
V`11`B8`00`04`01`00`1B`F5`06$LOCAL`F8`06`00`00
X`05`FD`11`BE`00`05`00`A0`0A`1B`F5`0ANODTYPNAME
X`05`F9`06`BF`00`AC`00`00`00
X`05`FD`12`BE`00`05`00`B0`09`1B`F4`0BDATATYPQUAL
X`05`F9`06`BF`00`F0`00`00`00
X`05`FD`12`BE`00`05`00`18`07`1B`F4`0BDATATYPNAME
X`05`F9`06`BF`00`18`02`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`0C`02`00`00
X`05`FD`11`BE`00`05`00`80`0C`1B`F5`0AOUTPUTNODE
X`05`FD`11`BE`00`05`000`09`1B`F5`0ADO_COMMENT
X`05`F9`06`BF`00`80`00`00`00
X`05`FD`0E`BE`00`05`00L`0B`1B`F8`07DO_COND
X`05`F9`06`BF`00X`00`00`00
X`05`FD`0D`BE`00`05`00x`10`1B`F9`06DO_LOG
X`05`F9`06`BF`00`D8`00`00`00
X`05`FD`0F`BE`00`05`00P`11`1B`F7`08DO_UNSUP
X`05`F9`06`BF`00`08`01`00`00
X`05`FD`0E`BE`00`05`00X`12`1B`F8`07DO_ITEM
X`05`FD`0D`BE`00`05`00`7C`17`1B`F9`06INDENT
X`05`F9`06`BF`00`94`00`00`00
X`05`F9`06`BF`00$`05`00`00
X`05`F9`06`BF`00`F8`03`00`00
X`05`FD`11`BE`00`05`00`A4`0B`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;10 -
 309977386 "FORMAT VARIABLE;CARRIAGE_CONTROL NONE" 23 3 4 
$!
$ create 'f'
X`5BIDENT('V1.01-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------------------------------------------------------------------------------
V--
X`204-JUN-1996`20`20Martin`20`20
X`20`20`20`20V1.01
X`09Add`20an`20'X'`20before`20any`20field`20or`20group`20name`20begining`20with
V`20'_'`20to`20prevent
X`09forms`20throwing`20it`20out`20as`20an`20illegal`20identifier.
X------------------------------------------------------------------------------
V--
X24-JUL-1996`20`20`20Chris`20`20
X`20`20`20`20V1.01-01
X`09Correct`20sign`20of`20integer`20types
X`09Make`20signed`20quadword`20ADT
X`09Handle`20unnamed`20variant`20introducer
X`09Truncate`20illegally`20long`20filenames
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.01-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'UNSIGNED`20QUADWORD';
X`09typ$k_integer_quad:`20'ADT';!`20VMSdate
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`09dt:`20INTEGER;
X`20`20`20`20BEGIN
X`20`20`20`20WITH`20this`5E`20DO
X`09BEGIN
X`09IF`20nod$v_unsigned`20THEN
X`09`20`20`20`20dt`20:=`20nod$w_datatype
X`09ELSE
X`09`20`20`20`20CASE`20nod$w_datatype`20OF
X`09`09typ$k_byte:`20dt`20:=`20typ$k_integer_byte;
X`09`09typ$k_word:`20dt`20:=`20typ$k_integer_word;
X`09`09typ$k_longword:`20dt`20:=`20typ$k_integer_long;
X`09`09typ$k_quadword:`20dt`20:=`20typ$k_integer_quad;
X`09`09OTHERWISE`20dt`20:=`20nod$w_datatype;
X`09`09END;
X`09IF`20(dt<LOWER(datatypnames))`20OR_ELSE`20(dt>UPPER(datatypnames))`20THEN
X`09`20`20`20`20IF`20nod$t_name=''`20THEN
X`09`09s`20:=`20''
X`09`20`20`20`20ELSE
X`09`09WRITEV(s,`20'*Unk',`20dt:1,`20'*')
X`09ELSE`20IF`20NOT`20(dt`20IN`20dimtypes)`20THEN
X`09`20`20`20`20s`20:=`20datatypnames`5Bdt`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`5Bdt`5D`20+`20'`20(*unknown*)'
X`09`20`20`20`20ELSE
X`09`09WRITEV(s,`20datatypnames`5Bdt`5D,`20'`20(',`20nod$l_typeinfo: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`20VAR
X`09nm:`20VARYING`20`5B39`5D`20OF`20CHAR;
X`20`20`20`20BEGIN
X`20`20`20`20IF`20(LENGTH(prefname)+LENGTH(suf)>39)`20THEN
X`09nm`20:=`20prefname`20+`20suf`5B1..(39`20-`20LENGTH(prefname))`5D
X`20`20`20`20ELSE
X`09nm`20:=`20prefname`20+`20suf;
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:=`20nm`20+`20'.I
VFDL'`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:',`20nm,
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');
X`09WRITELN(outf);
X`09END;
X
X`20`20`20`20PROCEDURE`20do_cond(`20VAR`20shr:`20sdl$_shr_data;
X`09`09`09lvl:`20INTEGER;
X`09`09`09ccode,`20langs:`20pnod`20);
X`09BEGIN
X`09WHILE`20(langs<>NIL)`20AND_THEN
X`09`09(langs`5E.nod$b_type=nod$k_objnode)`20AND_THEN
X`09`09(langs`5E.nod$t_name<>lang_name)`20DO
X`09`20`20`20`20langs`20:=`20langs`5E.nod$a_flink;
X`09IF`20(langs<>NIL)`20AND_THEN`20(langs`5E.nod$b_type=nod$k_objnode)`20THEN
X`09`20`20`20`20outputnode(shr,`20ccode`5E.nod$a_flink,`20ccode,`20lvl);
X`09END;
X
X`20`20`20`20PROCEDURE`20do_log(this:`20pnod;`20s:`20VARYING`20`5Bu`5D`20OF`20C
VHAR`20);
X`09BEGIN
X`09WRITELN(outf,`20'`7B`20',`20nodtypname(this`5E.nod$b_type),`20'`20node`20',
V
X`09`09this`5E.nod$t_name,`20'`20',`20s,`20'`7D');
X`09END;
X
X`20`20`20`20PROCEDURE`20do_unsup(this:`20pnod;`20s:`20`5BTRUNCATE`5D`20VARYING
V`20`5Bu`5D`20OF`20CHAR);
X`09BEGIN
X`09WRITE(outf,`20'`7B`20*Unsupported*`20',`20nodtypname(this`5E.nod$b_type),
V`20'`20node`20',
X`09`09this`5E.nod$t_name);
X`09IF`20PRESENT(s)`20THEN`20WRITE(outf,`20'`20(',`20s,`20')');
X`09WRITELN(outf,`20'`20`7D');
X`09END;
X
X`20`20`20`20PROCEDURE`20do_item(`20VAR`20shr:`20sdl$_shr_data;`20this:`20pnod;
V`20lvl:`20INTEGER);
X`09VAR
X`09`20`20`20`20p,`20pe:`20pnod;
X`09FUNCTION`20indent(`20lvl:`20INTEGER`20):`20vs;
X`09`20`20`20`20BEGIN
X`09`20`20`20`20indent`20:=`20PAD('',`20CHR(9),`20(lvl-1)`20DIV`202)`20+
X`09`09`09PAD('',`20'`20',`204*((lvl-1)`20MOD`202));
X`09`20`20`20`20END;
X
X`09BEGIN
X`09WITH`20this`5E`20DO
X`09`20`20`20`20IF`20(LENGTH(nod$t_name)>=1)`20AND_THEN`20(nod$t_name`5B1`5D='_
V')`20AND_THEN
X`09`09`20`20`20`20(nod$w_datatype<>typ$k_union)`20AND_THEN
X`09`09`20`20`20`20((nod$w_datatype<>typ$k_structure)`20OR_ELSE`20(lvl=1))`20TH
VEN
X`09`09nod$t_name`20:=`20'X'`20+`20nod$t_name;
X`09IF`20(this`5E.nod$w_datatype=typ$k_structure)`20THEN
X`09`20`20`20`20BEGIN
X!`09`20`20`20`20lib$signal(ss$_debug);
X`09`20`20`20`20IF`20(lvl=1)`20THEN`20WRITE(outf1,`20'`7B`20');
X`09`20`20`20`20WRITE(outf1,`20indent(lvl),`20'Group`20',`20this`5E.nod$t_name)
V;
X`09`20`20`20`20IF`20this`5E.nod$v_dimen`20THEN`20WRITE(outf1,`20datatypqual(th
Vis));
X`09`20`20`20`20do_comment(outf1,`20shr,`20this,`20(lvl=1));
X`09`20`20`20`20IF`20((this`5E.nod$w_datatype=typ$k_structure)`20OR_ELSE
X`09`09`20`20`20`20`20(this`5E.nod$w_datatype=typ$k_union))`20THEN
X`09`09BEGIN
X`09`09pe`20:=`20this`5E.nod$a_child;
X`09`09IF`20(pe=NIL)`20AND_THEN`20(lvl>1)`20AND_THEN
X`09`09`09(this`5E.nod$a_typeinfo2<>NIL)`20AND_THEN
X`09`09`09(this`5E.nod$a_typeinfo2::pnod`5E.nod$a_child<>NIL)`20THEN
X`09`09`20`20`20`20pe`20:=`20this`5E.nod$a_typeinfo2::pnod`5E.nod$a_child;
X`09`09IF`20(pe<>NIL)`20THEN
X`09`09`20`20`20`20BEGIN
X`09`09`20`20`20`20p`20:=`20pe`5E.nod$a_flink;
X`09`09`20`20`20`20WHILE`20(p<>NIL)`20AND_THEN`20(p<>pe)`20DO
X`09`09`09BEGIN
X`09`09`09do_item(shr,`20p,`20lvl+1);
X`09`09`09p`20:=`20p`5E.nod$a_flink;
X`09`09`09END;
X`09`09`20`20`20`20END;
X`09`09END;
X`09`20`20`20`20IF`20(lvl=1)`20THEN`20WRITE(outf1,`20'`7B`20');
X`09`20`20`20`20WRITE(outf1,`20indent(lvl),`20'End`20Group`20');
+-+-+-+-+-+-+-+-  END  OF PART 3 +-+-+-+-+-+-+-+-
================== RFC 822 Headers ==================
Return-Path: chris@ccastat.demon.co.uk
Received: by galaxy.zko.dec.com (UCX V4.0-10B, OpenVMS V6.2 VAX);
	Wed, 24 Jul 1996 12:38:22 -0400
Received: from relay-5.mail.demon.net by mail11.digital.com (8.7.5/UNX 1.2/1.0/WV)
	id MAA18051; Wed, 24 Jul 1996 12:29:42 -0400 (EDT)
Received: from post.demon.co.uk by relay-5.mail.demon.net  id ax00562;
          24 Jul 96 16:46 +0100
Received: from ccastat.demon.co.uk ([158.152.158.126]) by relay-3.mail.demon.net
          id aa06850; 24 Jul 96 16:09 +0100
Received: by ccastat.demon.co.uk (MX V4.1 VAX) id 3; Wed, 24 Jul 1996 16:06:51
          GMT
Sender: chris@ccastat.demon.co.uk
Date: Wed, 24 Jul 1996 15:36:19 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: <009A5CFE.52DCED60.3@ccastat.demon.co.uk>
Subject: SDLIFDL.3-OF-4