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

-+-+-+-+-+-+-+-+ START OF PART 4 -+-+-+-+-+-+-+-+
X`09`20`20`20`20IF`20(lvl<>1)`20THEN`20WRITE(outf1,`20'`7B`20');
X`09`20`20`20`20WRITELN(outf1,`20this`5E.nod$t_name,`20'`20`7D');
X`09`20`20`20`20END
X`09ELSE`20IF`20(this`5E.nod$w_datatype=typ$k_union)`20THEN
X`09`20`20`20`20BEGIN
X`09`20`20`20`20WRITE(outf1,`20'`7B`20Union`20',`20this`5E.nod$t_name);
X`09`20`20`20`20do_comment(outf1,`20shr,`20this,`20TRUE);
X`09`20`20`20`20do_item(shr,`20this`5E.nod$a_child::pnod`5E.nod$a_flink,`20lvl)
V;
X`09`20`20`20`20END
X`09ELSE`20IF`20this`5E.nod$v_dimen`20THEN
X`09`20`20`20`20BEGIN
X`09`20`20`20`20WRITE(outf1,`20indent(lvl),`20'Group`20',`20this`5E.nod$t_name,
V`20'`20',
X`09`09`09datatypqual(this));
X`09`20`20`20`20do_comment(outf1,`20shr,`20this);
X`09`20`20`20`20WRITELN(outf1,`20indent(lvl+1),`20'subfield`20',`20datatypname(
Vthis));
X`09`20`20`20`20WRITELN(outf1,`20indent(lvl),`20'End`20Group`20`7B`20',`20this
V`5E.nod$t_name,`20'`20`7D');
X`09`20`20`20`20END
X`09ELSE
X`09`20`20`20`20BEGIN
X`09`20`20`20`20WRITE(outf1,`20indent(lvl),`20this`5E.nod$t_name,`20'`20',`20da
Vtatypname(this));
X`09`20`20`20`20do_comment(outf1,`20shr,`20this);
X`09`20`20`20`20END;
X`09END;
X`20`20`20`20CONST
X`09commentset`20=`20`5Bnod$k_commnode,`20nod$k_litnode`7B,`20nod$k_constnode
V`7D`5D;
X`09childset`20=`20commentset`20+
X`09`20`20`20`20`5Bnod$k_headnode,`20nod$k_rootnode,`20nod$k_modulnode`7B,`20no
Vd$k_parmnode`7D`5D;
X`20`20`20`20BEGIN
X`20`20`20`20WHILE`20(this<>NIL)`20AND_THEN`20(this<>finish)`20DO
X`09WITH`20shr,`20this`5E`20DO
X`09`20`20`20`20BEGIN
X`09`20`20`20`20CASE`20nod$b_type`20OF
X`09`09nod$k_rootnode,`20nod$k_commnode,`20nod$k_headnode,
X`09`09`20`20`20`20nod$k_modulnode:`20do_log(this,`20'');
X`09`09nod$k_itemnode:
X`09`09`20`20`20`20IF`20nod$v_declared`20THEN
X`09`09`09do_unsup(this,`20'declared')
X`09`09`20`20`20`20ELSE`20IF`20nod$v_forward`20THEN
X`09`09`09do_unsup(this,`20'forward')
X`09`09`20`20`20`20ELSE
X`09`09`09BEGIN
X`09`09`09IF`20(lvl=1)`20THEN
X`09`09`09`20`20`20`20BEGIN
X`09`09`09`20`20`20`20do_log(this,`20'see`20'+prefname+'-'+nod$t_name+'`20');
X`09`09`09`20`20`20`20open1(outf1,`20shr,`20'-'`20+`20nod$t_name,
X`09`09`09`09`20`20`20`20(this`5E.nod$w_datatype=typ$k_structure));
X`09`09`09`20`20`20`20END;
X`09`09`09do_item(shr,`20this,`20lvl);
X`09`09`09IF`20(lvl=1)`20THEN
X`09`09`09`20`20`20`20BEGIN
X`09`09`09`20`20`20`20IF`20(this`5E.nod$w_datatype=typ$k_structure)`20THEN
X`09`09`09`09WRITELN(outf1,`20'`7B###End_Module/0/SDL_Include:',
X`09`09`09`09`09prefname,`20'-',`20nod$t_name,`20'###`7D');
X`09`09`09`20`20`20`20CLOSE(outf1);
X`09`09`09`20`20`20`20END;
X`09`09`09END;
X`09`09nod$k_condnode:`20do_cond(shr,`20lvl,`20nod$a_child,
X`09`09`09`09`09nod$a_typeinfo2::pnod`5E.nod$a_flink);
X`09`09nod$k_litnode:
X`09`09`20`20`20`20WRITE(outf,`20nod$a_typeinfo::pvs`5E);
X`09`09OTHERWISE
X`09`09`20`20`20`20do_unsup(this);
X`09`09END;
X`09`20`20`20`20IF`20(nod$b_type`20IN`20commentset)`20THEN
X`09`09do_comment(outf,`20shr,`20this);
X`09`20`20`20`20IF`20(nod$a_child<>NIL)`20AND_THEN`20(nod$b_type`20IN`20childse
Vt)`20THEN
X`09`09outputnode(shr,`20nod$a_child::pnod`5E.nod$a_flink,
X`09`09`09`09`09nod$a_child,`20lvl`20+`201);
X`09`20`20`20`20this`20:=`20nod$a_flink;
X`09`20`20`20`20END;
X
X`20`20`20`20END;
X
X`5BGLOBAL`5D`20PROCEDURE`20sdl$output`20(`20out_file,`20def_filename:`20vs;
X`09`09`09`09VAR`20shr:`20sdl$_shr_data`20);
X`20`20`20`20VAR
X`09sdl$_revcheck:`20`5BVALUE,EXTERNAL,READONLY`5D`20INTEGER;
X`20`20`20`20BEGIN
X`20`20`20`20WITH`20shr`20DO
X`09IF`20(shrdata_version<>sdl$k_shrdata_rev)`20OR_ELSE
X`09`09(node_version<>sdl$k_node_rev)`20THEN
X`09`20`20`20`20lib$stop(sdl$_revcheck);
X!`20`20`20`20lib$signal(ss$_debug);
X`20`20`20`20specname`20:=`20out_file;
X`20`20`20`20prefname`20:=`20def_filename;
X`20`20`20`20open1(outf,`20shr,`20'',`20FALSE);
X`20`20`20`20WITH`20shr`20DO
X`09outputnode(shr,`20tree_root::pnod`5E.nod$a_flink,`20tree_root,`200);
X`20`20`20`20CLOSE(outf);
X`20`20`20`20END;
X
XEND.
$ call unpack SDLIFDL.PAS;7 225856163 "" 24 4 4 
$ v=f$verify(v)
$ exit
================== 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 11:48:45 -0400
Received: from relay-2.mail.demon.net by mail11.digital.com (8.7.5/UNX 1.2/1.0/WV)
	id LAA15499; Wed, 24 Jul 1996 11:35:24 -0400 (EDT)
Received: from post.demon.co.uk ([158.152.1.72]) by relay-2.mail.demon.net
           id aq27760; 24 Jul 96 16:34 +0100
Received: from ccastat.demon.co.uk ([158.152.158.126]) by relay-3.mail.demon.net
          id aa06644; 24 Jul 96 16:08 +0100
Received: by ccastat.demon.co.uk (MX V4.1 VAX) id 4; Wed, 24 Jul 1996 16:06:47
          GMT
Sender: chris@ccastat.demon.co.uk
Date: Wed, 24 Jul 1996 15:36:22 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.54E84DC0.4@ccastat.demon.co.uk>
Subject: SDLIFDL.4-OF-4