[comp.os.vms] ARC_COM.SHAR

ewilts%Ins.MRC.AdhocNet.CA%Stasis.MRC.AdhocNet.CA%UNCAEDU.@CORNELLC.CCS.CORNELL.EDU.BITNET (Ed Wilts) (06/24/88)

....................... Cut between dotted lines and save .....................
.
$!..............................................................................
$! VAX/VMS archive file created by VMS_SHAR V-5.01 01-Oct-1987
$! which was written by Michael Bednarek (U3369429@ucsvc.dn.mu.oz.au)
$! To unpack, simply save and execute (@) this file.
$!
$! This archive was created by EWILTS
$! on Friday 24-JUN-1988 08:04:03.21
$!
$! It contains the following 3 files:
$! ARC.COM ARCLINK.COM ARCLINK_CSHARE.COM
$!==============================================================================
$ Set Symbol/Scope=(NoLocal,NoGlobal)
$ Version=F$GetSYI("VERSION") ! See what VMS version we have here:
$ If Version.ges."V4.4" then goto Version_OK
$ Write SYS$Output "Sorry, you are running VMS ",Version, -
                ", but this procedure requires V4.4 or higher."
$ Exit 44
$Version_OK: CR[0,8]=13
$ Pass_or_Failed="failed!,passed."
$ Goto Start
$Convert_File:
$ Read/Time_Out=0/Error=No_Error1/Prompt="creating ''File_is'" SYS$Command ddd
$No_Error1: Define/User_Mode SYS$Output NL:
$ Edit/TPU/NoSection/NoDisplay/Command=SYS$Input/Output='File_is' -
        VMS_SHAR_DUMMY.DUMMY
f:=Get_Info(Command_Line,"File_Name");b:=Create_Buffer("",f);
o:=Get_Info(Command_Line,"Output_File");Set(Output_File,b,o);
Position(Beginning_of(b));Loop x:=Erase_Character(1);Loop ExitIf x<>"V";
Move_Vertical(1);x:=Erase_Character(1);Append_Line;
Move_Horizontal(-Current_Offset);EndLoop;Move_Vertical(1);
ExitIf Mark(None)=End_of(b) EndLoop;Position(Beginning_of(b));Loop
x:=Search("`",Forward,Exact);ExitIf x=0;Position(x);Erase_Character(1);
If Current_Character='`' then Move_Horizontal(1);else
Copy_Text(ASCII(INT(Erase_Character(3))));EndIf;EndLoop;Exit;
$ Delete VMS_SHAR_DUMMY.DUMMY;*
$ Checksum 'File_is
$ Success=F$Element(Check_Sum_is.eq.CHECKSUM$CHECKSUM,",",Pass_or_Failed)+CR
$ Read/Time_Out=0/Error=No_Error2/Prompt=" CHECKSUM ''Success'" SYS$Command ddd
$No_Error2: Return
$Start:
$ File_is="ARC.COM"
$ Check_Sum_is=556420740
$ Copy SYS$Input VMS_SHAR_DUMMY.DUMMY
X$!Last Modified:   5-MAY-1988 11:52:30.36
X$ v = f$verify(1)
X$ status = 1
X$ on error then goto error
X$ define sys cx0:[ecs.c]/nolog
X$ define out ewsub:[arc]
X$ define in ewsub:[arc]
X$ set def in
X$!
X$ libr/cre arc.olb
X$!
X$! cc :== cc/list/debug=all/opt
X$ cc :== cc/opt/nolist/nodeb
X$ call ccompile arc
X$ call ccompile arcadd
X$ call ccompile arccode
X$ call ccompile arccvt
X$ call ccompile arcdel
X$ call ccompile arcdir
X$ call ccompile arcdos
X$ call ccompile arcext
X$ call ccompile arcio
X$ call ccompile arclst
X$ call ccompile arclzw
X$ call ccompile arcmatch
X$ call ccompile arcmisc
X$ call ccompile arcpack
X$ call ccompile arcrun
X$! call ccompile arcs
X$ call ccompile arcsq
X$ call ccompile arcsvc
X$ call ccompile arctst
X$ call ccompile arcunp
X$ call ccompile arcusq
X$ call ccompile arcvax
X$ call ccompile squash
X$ goto exit
X$!
X$!
X$!
X$ccompile: subroutine
X$ set noon
X$ cc 'p1'
X$ if $severity.ge.2 then goto cexit
X$ library/replace out:arc 'p1'.obj
X$ if $severity.ge.2 then goto cexit
X$ delete/nolog 'p1'.obj;*
X$cexit:
X$ exit $status
X$ endsubroutine
X$!
X$!
X$!
X$error:
X$ write sys$output "Fatal error"
X$ status = $status
X$ goto exit
X$!
X$!
X$!
X$exit:
X$ v = f$verify(v)
X$ exit status
$ GoSub Convert_File
$ File_is="ARCLINK.COM"
$ Check_Sum_is=1248142241
$ Copy SYS$Input VMS_SHAR_DUMMY.DUMMY
X$!Last Modified:   5-MAY-1988 13:42:02.68
X$ v = f$verify(1)`009`009`009`009`009!CLINK.COM
X$ link/map=arc/exe=arc/nodebug'p1' arc.olb/include=arc,sys$input:/options
Xsys$disk:arc.olb/library
Xsys$library:vaxcrtl.olb/library
X!sys$share:vaxcrtlg.exe/share
X$ eod
X$ goto exit
X$!
X$nofile:
X$ write sys$error "%CLINK-F-FILNTFND, File not found ''p1'"
X$exit:
X$ v = f$verify(v)
X$ exit
$ GoSub Convert_File
$ File_is="ARCLINK_CSHARE.COM"
$ Check_Sum_is=1281372613
$ Copy SYS$Input VMS_SHAR_DUMMY.DUMMY
X$!Last Modified:   5-MAY-1988 12:03:10.11
X$ v = f$verify(1)`009`009`009`009`009!CLINK.COM
X$ link/map=arc/exe=arc/nodebug'p1' arc.olb/include=arc,sys$input:/options
Xsys$disk:arc.olb/library
Xsys$library:vaxcrtl.exe/share
X!sys$share:vaxcrtlg.exe/share
X$ eod
X$ goto exit
X$!
X$nofile:
X$ write sys$error "%CLINK-F-FILNTFND, File not found ''p1'"
X$exit:
X$ v = f$verify(v)
X$ exit
$ GoSub Convert_File
$ Exit