From: SMTP%"chris@ccastat.demon.co.uk" 23-MAY-1996 11:25:17.22 To: everhart@star.zko.dec.com, ARNE@ko.hhs.dk, canellis@apache.brooks.af.mil, SCANDORA@cmt.anl.gov CC: Subj: SDLIFDL.1-OF-8 $! ------------------ CUT HERE ----------------------- $ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))' $! $! This archive created: $! Name : SDLIFDL $! By : chris@ccastat.demon.co.uk $! Date : 23-MAY-1996 13:15:50.66 $! Using: VMS_SHARE 8.4, (C) 1993 Andy Harper, Kings College London UK $! $! Credit is due to these people for their original ideas: $! James Gray, Michael Bednarek $! $!+ THIS PACKAGE DISTRIBUTED IN 8 PARTS, TO KEEP EACH PART $! BELOW 30 BLOCKS $! $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER $! AND EXECUTE AS A COMMAND PROCEDURE ( @name ) $! $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING: $! 1. ALPHA_SDLIFDL.EXE;1 $! 2. ALPHA_SDLIFDL.OPT;2 $! 3. BUILD_SDLIFDL.COM;2 $! 4. IFDL.TPU;28 $! 5. SDLIFDL.OBJ;1 $! 6. SDLIFDL.PAS;3 $! $ set="set" $ set symbol/scope=(nolocal,noglobal) $ f=f$parse("SHARE_UNPACK_TEMP","SYS$SCRATCH:."+f$getjpi("","PID")) $ e="write sys$error ""%UNPACK"", " $ w="write sys$output ""%UNPACK"", " $ if .not. f$trnlnm("SHARE_UNPACK_LOG") then $ w = "!" $ if f$getsyi("CPU") .gt. 127 then $ goto start $ ve=f$getsyi("version") $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto start $ e "-E-OLDVER, Must run at least VMS 4.4" $ v=f$verify(v) $ exit 44 $unpack: subroutine ! P1=filename, P2=checksum, P3=attributes,P4=size $ if f$parse(P1) .nes. "" then $ goto dirok $ dn=f$parse(P1,,,"DIRECTORY") $ w "-I-CREDIR, Creating directory ''dn'" $ create/dir 'dn' $ if $status then $ goto dirok $ e "-E-CREDIRFAIL, Unable to create ''dn' File skipped" $ delete 'f'* $ exit $dirok: $ x=f$search(P1) $ if x .eqs. "" then $ goto file_absent $ e "-W-EXISTS, File ''P1' exists. Skipped" $ delete 'f'* $ exit $file_absent: $ w "-I-UNPACK, Unpacking ", P5, " of ", P6, " - ", P1, " - ", P4, " Blocks" $ n=P1 $ if P3 .nes. "" then $ n=f $ if .not. f$verify() then $ define/user sys$output nl: $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT/NOJOURNAL 'f'/OUT='n' PROCEDURE GetHex(s,p)LOCAL x1,x2;x1:=INDEX(t,SUBSTR(s,p,1))-1;x2:=INDEX(t, SUBSTR(s,p+1,1))-1;RETURN 16*x1+x2;ENDPROCEDURE;PROCEDURE SkipPartsep LOCAL m; LOOP m:=MARK(NONE);EXITIF m=END_OF(b);DELETE(m);EXITIF INDEX(ERASE_LINE, "-+-+-+-+-+-+-+-+")=1;ENDLOOP;ENDPROCEDURE;PROCEDURE ProcessLine LOCAL c,s,l,b, n,p;c := ERASE_CHARACTER(1);s := ERASE_LINE;IF c = "X" THEN SPLIT_LINE; ENDIF; MOVE_HORIZONTAL(-1);l := LENGTH(s);p := 1;LOOP EXITIF p > l;c := SUBSTR(s,p,1); p := p+1;CASE c FROM ' ' TO '`' ['`']: COPY_TEXT(ASCII(GetHex(s,p))); p:=p+2;[ ' ']: p:=p+1;[INRANGE,OUTRANGE]: COPY_TEXT(c);ENDCASE;ENDLOOP;ENDPROCEDURE; PROCEDURE Decode LOCAL m;POSITION(BEGINNING_OF(b));LOOP m:=MARK(NONE);EXITIF m= END_OF(b);DELETE(m);IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+-")= 1 THEN SkipPartSep;ELSE ProcessLine;MOVE_HORIZONTAL(1);ENDIF;ENDLOOP; ENDPROCEDURE;SET(FACILITY_NAME,"UNPACK");SET(SUCCESS,OFF);SET(INFORMATIONAL, OFF);t:="0123456789ABCDEF";f:=GET_INFO(COMMAND_LINE,"file_name");b:= CREATE_BUFFER(f,f);Decode;WRITE_FILE(b,GET_INFO(COMMAND_LINE,"output_file")); QUIT; $ if p3 .eqs. "" then $ goto dl $ open/write fdl &f $ write fdl "RECORD" $ write fdl P3 $ close fdl $ w "-I-CONVRFM, Converting record format to ", P3 $ convert/fdl=&f &f-1 &P1 $dl: delete 'f'* $ checksum 'P1' $ if checksum$checksum .nes. P2 then $ - e "-E-CHKSMFAIL, Checksum of ''P1' failed." $ exit $ endsubroutine $start: $! $ create 'f' X`B0`000`00D`00`60`00`00`00`00`000205`01`02`00`00`FF`FF`FF`FF`FF`FF`FF`FF`00`00 V`00`00`AA`00`00`013`90/,`00`00`00`00`006`00`00h`DF`FE`7F`00`00`00`00`00`00`00 V`00`00`00`00`00`00`00`00`00`1E`00`00`00!`00`00`00`03`00`05`00`00`00`00`00`00 V`00`00`00`03`00`00`00`05`00`00`00`0DALPHA_SDLIFDL`00`00`00`00`00`00`00`00`00 V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`08V1.00-01`00`00`00`00`00 V`00`00`C003`90/,`9A`00`0505-13`00`00`00`00`00`00`00`00`00`00`10`00`0C`00`00`00 V`00`00`00`00`00`03`02`00`00`00`10`00`04`00`0C`00`00`00`0A`00`00`04`0E`00`00`00 V`10`00`0B`00`10`00`00`00`00`00`06`04`12`00`00`00`10`00`01`00`1B`00`00`00`0A`04 V`00`02`1D`00`00`00`1F`00`F1`00`00`00`00`00!`00`00`03`00`00`00`00`0E`00`00`01 V`0ALIBRTL_001`1F`00`01`00`00`00`00`00+`00`00`04`00`00`00`00g`00`00`01`0APASRTL V_001`00`00`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF V`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF`FF V`FF`FF`FF`FF X`00`00`00`00A`00`00`00`01`00`00`00`04OUTF`00`00`00`00`00`00`00A`00`00`00`01`00 V`00`00`05OUTF1`00`00`04`00root`00`00`00`00`07`00comment`00`05`00const`00`00`00 V`05`00entry`00`00`00`04`00item`00`00`00`00`06`00module`00`00`04`00parm`00`00 V`00`00`05`00dummy`00`00`00`03`00obj`00`00`00`00`00`04`00head`00`00`00`00`04`00 Vtype`00`00`00`00`03`00end`00`00`00`00`00`04`00cond`00`00`00`00`07`00literal`00 V`04`00symb`00`00`00`00`00`00`20Created`20`00`00`00`20by`20OpenVMS`20SDL`20IFDL V`20V1.00-01`00`00`00`20Source:`20`00`00`00.IFDL`00`00`00`7B###Module/0/SDL_Inc Vlude:`00`00`00###`7D*Unk(`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00 V`00`00`00`00`00`00`00`00`00`00`00`00`00`00`20(*unknown*)`20(`00`00`20Varying V`20`7B`20`7D`20`7D`00`00`20Occurs`20*Var*`00`00`00`20Occurs`20`20Base`20`00`00 V`20Occurs`20*UnkIFDLdeclaredforward`00see`20`7B###End_Module/0/SDL_Include:`00 V`00`00###`7D`04@`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00 V`00`00`00`00`00`00`00`00`00`00FD`00`00`00`00`00`00`00`00`00`00`00`00`00`00`00 V`00`00`00 X`00`00`00`00`00`00`00`00`00`00`00`00`7B`20`00`00`20node`20`00`00`7B`20*Unsuppo Vrted*`20`20node`20`20(`20`7D`7B`20Group`20`7B`20End`20Group`20`7B`20`20`7D`00 V`00`7B`20Union`20Group`20`00`00subfield`20`00`00`00End`20Group`20`7B`20`20`7D V`01`01`FC`07`9E`CE`C8`FE`5E`D4`AD`F8`9E`FF`F43`00`00m`D0`AC`0CP`B1`60`8F`FF`00 V`1B`02`00`09`B0`60`CD`C8`FE(`60`A0`02`CD`CA`FE`D1l`04`1F"`7D`BC`10`AD`F0<`AD V`F0P`C0`02P`C2P`5E`D0`AD`F4P`D0`5EQ`B0`60a(`81`A0`02a`D0`5E`AD`F4`D1l`05`1F" V`7D`BC`14`AD`E8<`AD`E8P`C0`02P`C2P`5E`D0`AD`ECP`D0`5EQ`B0`60a(`81`A0`02a`D0`5E V`AD`EC`D1l`06`1F`04`90`BC`18V`D0`5EW`DD`00`DD`00`D0`8F`11`00`0E`01`AD`E0`9E`AD V`CC`AD`E4`9F`AD`E0`DD`00`FB`04`9FH`DE`FE`7F`D1l`06`1FV`D1`06l`1B`02`00`0F`E9VL V`D0`AC`04R`D1`04l`1B`02`00`0F`D0`AD`F4P`9F`A0`02`DD`60`DDR`FB`03`FF/3`00`00`DD VR`FB`01`FF`123`00`00`D1`04l`1B`02`00`0F`B1`00`AD`F0`1B`02`00`09`D0`AD`F4P`B4 V`60(`80n`60`B4`CD`C8`FE(`00n`CD`CA`FE`11k`01`D1l`05`1F`5B`D1`05l`1B`02`00`0F V`D0`AD`ECP-`60`A0`02`20`00n`13G`D1`05l`1B`02`00`0F`D0`AD`ECX`A78;`C3`07`AD`E4`5E`B0`07`7E(n`EF`F4`F4`FF`FF`AE`02 V`B0n`AD`D4`B0`8F%`0B`AD`D6`D0`5E`AD`D8`9E`AD`D4`AD`D0`D0`5EP`9E`AD`F0`AD`CC`9A V`02`AD`C8`FA`AD`C8`CF`B5`031`D3`01`01`01`D1`AD`E8`01`13`031`1C`01<`EFI`0C`00 V`00`5B`C1`04`5BY`D1Y`8F`FF`FF`00`00`1B`02`00`04`C3Y`AD`E4`5E`D0`5EX(`04`EF`A2 V`F4`FF`FFn(`5B`EF$`0C`00`00c`C1Y`01`5B`D1`5B`8F`FF`FF`00`00`1B`02`00`04`C3`5BX V`5E`D0`5EZ(Yhn(`01`8F-c`9E`A7hX(`00`00`9F`EF V`F2`0A`00`00`DD`EF`EA`0A`00`00`9F`EF`CC`09`00`00`FB`03`FF%(`00`00`DD`01`DD-`9F V`EF`BB`09`00`00`FB`03`FF`08(`00`00`9E`A7hP`9F`A0`02`DD`60`9F`EF`A5`09`00`00`FB V`03`FF`FE'`00`00`9F`EFL`F3`FF`FF`DD`04`9F`EF`90`09`00`00`FB`03`FF`E9'`00`00`9F V`EF`83`09`00`00`FB`01`FF`C8'`00`00`9F`EFv`09`00`00`FB`01`FF`B7'`00`00`117`9F V`B7`18`9F`A7`0C`9F`AD`E8`C1`04`AD`F4P`DD`60`FB`04`CF`C4`FB`11`20`D0`A7`14P`9F V`A0`02`DD`60`9F`EF3`09`00`00`FB`03`FF`A0'`00`00`11`08`9F`AD`F0`FB`01`CF`A6`01 V`98`A7`1CP`D1P`8F`00`01`00`00`1Ev`E1P`EF`DA`F2`FF`FFn`C1`04`AD`F4P`D0`60P`D0 V`AD`F0`AD`E0`94`AD`DC`E1`09`60M`C1`10`AD`E0P`D5`60`13D`9F`EFF`F2`FF`FF`DD`02 V`9F`EF`E2`08`00`00`FB`03`FFO'`00`00`D0`AD`E0P`D0`A0`10P`9F`A0`02`DD`60`9F`EF V`C8`08`00`00`FB`03`FF5'`00`00`9F`EF`19`F2`FF`FF`DD`02`9F`EF`B3`08`00`00`FB`03 V`FF`20'`00`00`9F`EF`A6`08`00`00`FB`01`FF`FF`26`00`00`D5`A7`0C`130`98`A7`1CP`D1 +-+-+-+-+-+-+-+- END OF PART 1 +-+-+-+-+-+-+-+- ================== 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 11:25:04 -0400 Received: from relay-1.mail.demon.net by mail11.digital.com (8.7.5/UNX 1.2/1.0/WV) id LAA05183; Thu, 23 May 1996 11:18:17 -0400 (EDT) Received: from ccastat.demon.co.uk ([158.152.158.126]) by relay-1.mail.demon.net id aa26874; 23 May 96 16:10 +0100 Received: by ccastat.demon.co.uk (MX V4.1 VAX) id 2; Thu, 23 May 1996 13:24:39 GMT Sender: chris@ccastat.demon.co.uk Date: Thu, 23 May 1996 13:24:37 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.A72DEC80.2@ccastat.demon.co.uk> Subject: SDLIFDL.1-OF-8