$! ------------------ CUT HERE ----------------------- $ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))' $! $! This archive created: $! Name : PATHWAY_SUPPORT $! By : larry@TAO.ECO.TWG.COM $! Date : 17-FEB-1994 16:16:18.45 $! 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 9 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. DEF.COM;10 $! 2. AXP_PREFIX_RULES.MMS;1 $! 3. MAKE_MOSAIC.COM;2 $! 4. README_PATHWAY.TXT;1 $! 5. DESCRIP.MMS;4 $! 6. [.LIBHTMLW]DESCRIP.MMS;5 $! 7. [.LIBWWW2]DESCRIP.MMS;7 $! 8. [.LIBXMX]DESCRIP.MMS;5 $! 9. [.SRC]DESCRIP.MMS;16 $! 10. [.LIBWWW2]TCP.H;5 $! 11. [.SRC]MOSAIC.H;5 $! 12. [.SRC]XRESOURCES.H;2 $! 13. [.SRC]PATHWAY.OPT;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$!---------------------------------------------------------------------------- V-- X$!`20Copyright`201983,`201984,`201985,`201986,`201987,`201988,`201989,`201990, V`201991,`201992,`201993 X$!`20The`20Wollongong`20Group,`20Inc.`20All`20Rights`20Reserved.`20`20This`20p Vrogram`20 X$!`20contains`20confidential`20and`20trade`20secret`20information`20of`20The V`20Wollongong`20 X$!`20Group,`20Inc.`20`20Copyright`20notice`20is`20precautionary`20only`20and V`20does`20not`20imply`20 X$!`20publication. X$!---------------------------------------------------------------------------- V-- X$!+`20--- X$!`20DEF.COM X$! X$!`20Defines`20the`20location`20of`20each`20include`20directory`20provided`20w Vith`20PathWay`20API X$!-`20--- X$! X$`20define/nolog`20arpa`09`09twg$tcp:`5Bnetdist.include.arpa`5D X$`20define/nolog`20machine`09`09twg$tcp:`5Bnetdist.include.machine`5D X$`20define/nolog`20net`09`09twg$tcp:`5Bnetdist.include.net`5D X$`20define/nolog`20netdist`09`09twg$tcp:`5Bnetdist.include`5D X$`20define/nolog`20netimp`09`09twg$tcp:`5Bnetdist.include.netimp`5D X$`20define/nolog`20netinet`09`09twg$tcp:`5Bnetdist.include.netinet`5D X$`20define/nolog`20netns`09`09twg$tcp:`5Bnetdist.include.netns`5D X$`20define/nolog`20nfs`09`09twg$tcp:`5Bnetdist.include.nfs`5D X$`20define/nolog`20protocols`09twg$tcp:`5Bnetdist.include.protocols`5D X$`20define/nolog`20sys`09`09twg$tcp:`5Bnetdist.include.sys`5D X$`20define/nolog`20vaxif`09`09twg$tcp:`5Bnetdist.include.vaxif`5D X$`20define/nolog`20vms`09`09twg$tcp:`5Bnetdist.include.vms`5D X$`20define/nolog`20rpc`09`09twg$tcp:`5Bnetdist.include.rpc`5D X$`20define/nolog`20nb`09`09twg$tcp:`5Bnetdist.include.netbios`5D X$! X$!`20The`20next`20definition`20sets`20up`20a`20default`20search`20order`20whic Vh`20favors`20common X$!`20PathWay`20API`20include`20files`20over`20those`20provided`20with`20the`20 VDEC`20C`20compiler X$! X$ X$`20IF`20F$GETSYI("Arch_Name")`20.eqs.`20"Alpha"`20 X$`20THEN X$`20define`20decc$system_include`09twg$tcp:`5Bnetdist.include`5D,`20`09- X`09`09`09`09twg$tcp:`5Bnetdist.include.sys`5D,`20`20- X`09`09`09`09twg$tcp:`5Bnetdist.include.netinet`5D X$! X$`20ELSE X$`20DEFINE`20VAXC$INCLUDE`09`09twg$tcp:`5Bnetdist.include`5D,`20`09- X`09`09`09`09twg$tcp:`5Bnetdist.include.sys`5D,`20`20- X`09`09`09`09twg$tcp:`5Bnetdist.include.netinet`5D,`20- X`09`09`09`09SYS$LIBRARY X$`20ENDIF X$! X$`20exit`201 $ call unpack DEF.COM;10 1819889689 "" 4 1 13 $! $ create 'f' X! X!`20Setup`20some`20common`20prefixing`20needs`20to`20building`20againsts`20NAT VIVE`20routines`20on X!`20AXP`20platforms. X! X.IFDEF`20AXP X XCC_ALL`20=`20ALL_ENTRIES X! X!`20Don't`20prefix`20these X! XCC_SOCKET_ACTIONS`09=`20"accept","bind","connect","listen","select","shutdown" V,"socket" XCC_SOCKET_IO`09`09=`20"recv","send","recvfrom","recvmsg","sendto","sendmsg","r Veadv","writev" XCC_SOCKET_GETSET`09=`20"gethostname","sethostname","getpeername","getsockname" V,"getsockopt","setsockopt" XCC_SOCKET`09`09=`20$(CC_SOCKET_ACTIONS),$(CC_SOCKET_IO),$(CC_SOCKET_GETSET) X! XCC_COMMON_NET`09`09=`20"getnetbyaddr","getnetbyname","getnetent","setnetent"," Vendnetent" XCC_COMMON_PROTO`09`09=`20"getprotobyname","getprotobynumber","getprotoent","se Vtprotoent","endprotoent" XCC_COMMON_SERV`09`09=`20"getservbyname","getservbyport","getservent","setserve Vnt","endservent" XCC_COMMON_HOST`09`09=`20"gethostbyname","gethostbyaddr","gethostent","sethoste Vnt","endhostent" XCC_COMMON`09`09=`20$(CC_COMMON_NET),$(CC_COMMON_PROTO),$(CC_COMMON_SERV),$(CC_ VCOMMON_HOST) X! XCC_INET`09`09`09=`20"inet_addr","inet_lnaof","inet_makeaddr","inet_netof","ine Vt_ntoa","inet_network" XCC_MISC`09`09`09=`20"htonl","htons","ntohl","ntohs" X! XCC_SIN`09`09`09=`20"sin" X! XCC_TWG`09`09`09=`20$(CC_SOCKET),$(CC_COMMON),$(CC_INET),$(CC_MISC),$(CC_SIN) XCC_TWG_NO_SIN`09`09=`20$(CC_SOCKET),$(CC_COMMON),$(CC_INET),$(CC_MISC) X! XCC_PREFIX`09`09=`20/PREFIX=($(CC_ALL),`20EXCEPT=($(CC_TWG))) XCC_PREFIX_NO_SIN`09=`20/PREFIX=($(CC_ALL),`20EXCEPT=($(CC_TWG_NO_SIN))) X X.ENDIF $ call unpack AXP_PREFIX_RULES.MMS;1 1646947194 "" 3 2 13 $! $ create 'f' X$!`20Create`20Mosaic`20version`202.0`20on`20VMS. X$!`20This`20command`20procedure`20compiles`20and`20links`20Mosaic`202.0`20in V`20one`20go. X$!`20For`20a`20more`20controlled`20build`20you`20can`20use`20MMS. X$!`20Options:`20DEBUG,`20LUCIDA,`2017_PT X$!`20Bj`F6rn`20S.`20Nilsson,`2025-Nov-1993 X$! X$`20On`20Error`20Then`20GoTo`20The_End X$`20On`20Control_Y`20Then`20GoTo`20The_End X$`20Set`20Symbol/Scope=(NoGlobal,NoLocal) X$`20Platform`20=`20F$GetSYI("Arch_Name") X$`20pwd`20=`20F$Environment("Default") X$`20Args`20=`20P1`20+`20","`20+`20P2`20+`20","`20+`20P3`20+`20","`20+`20P4`20+ V`20","`20+`20P5`20+`20","`20+`20P6`20+`20","`20+- X`20`20`20P7`20+`20","`20+`20P8 X$`20Args`20=`20F$Edit(Args,"Collapse,UPCase") X$`20If`20F$Locate("DEB",Args)`20.EQ.`20F$Length(Args) X$`20`20Then X$`20`20`20COpt`20=`20"/Optim" X$`20`20`20LOpt`20=`20"/NoTrace" X$`20`20Else X$`20`20`20COpt`20=`20"/NoOptim/Debug" X$`20`20`20LOpt`20=`20"/Debug" X$`20`20EndIf X$! X$`20VMS_Extra`20=`20"NO_17_PT,NO_LUCIDA," X$`20If`20F$Locate("NO_17_PT",Args)`20.EQ.`20F$Length(Args) X$`20`20Then X$`20`20`20If`20F$Locate("17_PT",Args)`20.NE.`20F$Length(Args)`20Then`20VMS_Ext Vra`20=`20- X`20`20`20`20`20VMS_Extra`20-`20"NO_17_PT," X$`20`20EndIf X$`20If`20F$Locate("NO_LUCIDA",Args)`20.EQ.`20F$Length(Args) X$`20`20Then X$`20`20`20If`20F$Locate("LUCIDA",Args)`20.NE.`20F$Length(Args)`20Then`20VMS_Ex Vtra`20=`20- X`20`20`20`20`20VMS_Extra`20-`20"NO_LUCIDA," X$`20`20EndIf X$`20IP`20=`20"UCX" X$`20If`20F$Trnlnm("MULTINET")`20.NES.`20""`20Then`20IP`20=`20"MULTINET" X$`20If`20F$Trnlnm("TWG$TCP")`20`20.NES.`20""`20 X$`20Then`20 X$`20`09IP`20`20`20`20`20=`20"WIN_TCP"`09!`20let`20WIN_TCP`20be`20--`20really V`20PathWay X$`09@`5B`5Ddef.com`09`09!define`20the`20location`20of`20PathWay`20include`20fi Vles X$`20Endif X$! X$!`20Do`20ALPHA`20specific`20stuff`20here.. X$! X$`20If`20Platform`20.EQS.`20"Alpha"`20 X$`20Then`20 X$`20`20`20COpt`20=`20COpt`20+`20"/Standard=VAXC" X$`20`20`20If`20IP`20.EQS.`20"WIN_TCP"`20 X$`20`20`20Then X$`20`20`20COpt`20=`20COpt`20+`20"/prefix=(all_entries,`20except=(" X$`20`20`20axp_except_1`20=`20"accept,bind,connect,listen,select,shutdown,socke Vt,"`20`20+`20- X"recv,send,recvfrom,recvmsg,sendto,sendmsg,readv,writev,"`20`20+`20- X"gethostname,sethostname,getpeername,getsockname,getsockopt,setsockopt,"`20`20 V+`20- X"getnetbyaddr,getnetbyname,getnetent,setnetent,endnetent," X$`20`20`20axp_except_2`20=`20"getprotobyname,getprotobynumber,getprotoent,setp Vrotoent,endprotoent,"`20`20+`20- X"getservbyname,getservbyport,getservent,setservent,endservent,"`20`20+`20- X"gethostbyname,gethostbyaddr,gethostent,sethostent,endhostent,"`20`20+`20- X"inet_addr,inet_lnaof,inet_makeaddr,inet_netof,inet_ntoa,inet_network,"`20`20+ V`20- X"htonl,htons,ntohl,ntohs,"`20+`20- X"sin))" X$`20`20`20Else X$`20`20`20`20`20axp_except_1`20=`20"" X$`20`20`20`20`20axp_except_2`20=`20"" X$`20`20`20Endif X$`20Endif X$`20If`20F$Locate("DEB",Args)`20.NE.`20F$Length(Args)`20Then`20Show`20Symbol/L Vocal`20* X$`20Verify`20=`20F$Verify(1) X$! X$!`20Create`20`5B.libwww2`5Dlibwww.olb X$! X$`20Set`20Default`20`5B.libwww2`5D X$`20If`20F$Search("libwww.olb")`20.EQS.`20""`20Then`20Library/Create/Log`20lib Vwww.olb X$`20If`20Platform`20.eqs.`20"Alpha"`20 X$`20Then`20 X$`20`20`20Comp`20=`20"CC"`20+`20COpt`20+`20axp_except_1`20+`20axp_except_2`20+ V`20"/Define=''IP'" X$`20Else X$`20`20`20Comp`20=`20"CC"`20+`20COpt`20+`20"/Define=''IP'" X$`20Endif X$`20'Comp'`20HTAccess.c X$`20'Comp'`20HTAlert.c X$`20'Comp'`20HTAnchor.c X$`20'Comp'`20HTAtom.c X$`20'Comp'`20HTSort.c X$`20'Comp'`20HTChunk.c X$`20'Comp'`20HTFTP.c X$`20'Comp'`20HTFWriter X$`20'Comp'`20HTFile.c X$`20'Comp'`20HTFormat.c X$`20'Comp'`20HTGopher.c X$`20'Comp'`20HTInit.c X$`20'Comp'`20HTList.c X$`20'Comp'`20HTMIME.c X$`20'Comp'`20HTML.c X$`20'Comp'`20HTMLDTD.c X$`20'Comp'`20HTMLGen X$`20'Comp'`20HTNews.c X$`20'Comp'`20HTParse.c X$`20'Comp'`20HTPlain.c X$`20'Comp'`20HTMosaicHTML.c X$`20'Comp'`20HTString.c X$`20'Comp'`20HTTCP.c X$`20'Comp'`20HTTP.c X$`20'Comp'`20HTTelnet.c X$`20'Comp'`20HTWSRC.c X$`20'Comp'`20HTWriter.c X$`20'Comp'`20SGML.c X$`20'Comp'`20HTIcon.c X$`20'Comp'`20HTCompressed.c X$`20'Comp'`20HTAAUtil.c X$`20'Comp'`20HTAssoc.c X$`20'Comp'`20HTUU.c X$`20'Comp'`20HTAABrow.c X$`20Library/Replace/Log`20libwww.olb`20*.obj X$! X$!`20Create`20`5B.libhtmlw`5Dlibhtmlw.olb X$! X$`20Set`20Default`20`5B-.libhtmlw`5D X$`20If`20F$Search("libhtmlw.olb")`20.EQS.`20""`20Then`20Library/Create/Log`20l Vibhtmlw.olb X$`20If`20Platform`20.eqs.`20"Alpha"`20 X$`20Then`20 X$`20`20`20Comp`20=`20"CC"`20+`20COpt`20+`20axp_except_1`20+`20axp_except_2`20+ V`20"/Define=(MOTIF,XMOSAIC,''IP')" X$`20Else X$`20`20`20Comp`20=`20"CC"`20+`20COpt`20+`20"/Define=(MOTIF,XMOSAIC,''IP')" X$`20Endif X$`20'Comp'`20HTML.c X$`20'Comp'`20HTMLlists.c X$`20'Comp'`20HTMLformat.c X$`20'Comp'`20HTMLparse.c X$`20'Comp'`20HTMLimages.c X$`20'Comp'`20HTMLwidgets.c X$`20'Comp'`20HTML-PSformat.c X$`20'Comp'`20HTMLjot.c X$`20Library/Replace/Log`20libhtmlw.olb`20*.obj X$! X$!`20Create`20`5B.libxmx`5Dlibxmx.olb X$! X$`20Set`20Default`20`5B-.libXmx`5D X$`20If`20F$Search("libXmx.olb")`20.EQS.`20""`20Then`20Library/Create/Log`20lib VXmx.olb X$`20If`20Platform`20.eqs.`20"Alpha"`20 X$`20Then`20 X$`20`20`20Comp`20=`20"CC"`20+`20COpt`20+`20axp_except_1`20+`20axp_except_2`20+ V`20"/Define=''IP'" X$`20Else X$`20`20`20Comp`20=`20"CC"`20+`20COpt`20+`20"/Define=''IP'" X$`20Endif X$`20'Comp'`20Xmx.c X$`20'Comp'`20Xmx2.c X$`20Library/Replace/Log`20libXmx.olb`20*.obj X$! X$!`20Compile`20the`20`5B.src`5D`20modules. X$! X$`20Set`20Default`20`5B-.src`5D X$`20If`20Platform`20.eqs.`20"Alpha"`20 X$`20Then`20 X$`20`20`20Comp`20=`20"CC"`20+`20COpt`20+`20axp_except_1`20+`20axp_except_2`20+ V`20"/Define=(''VMS_Extra'''IP')" X$`20Else X$`20`20`20Comp`20=`20"CC"`20+`20COpt`20+`20"/Define=(''VMS_Extra'''IP')" X$`20Endif X$`20If`20IP`20.NES.`20"WIN_TCP" X$`20Then X$`20`20`20Define`20Sys`20`20`20`20`20SYS$Library X$`20`20`20Define`20Netinet`20SYS$Library X$`20Endif X$`20Topdir`20=`20F$Environment("Default")-"SRC`5D" X$`20Define`20LIBWWW2`20`20`20'Topdir'LIBWWW2`5D X$`20Define`20LIBXMX`20`20`20`20'Topdir'LIBXMX`5D X$`20Define`20LIBHTMLW`20`20'Topdir'LIBHTMLW`5D X$`20If`20Platform`20.EQS.`20"Alpha" X$`20`20Then X$`20`20`20`20Define`20DECC$User_Include`20'F$Environment("Default")',LIBWWW2,L VIBHTMLW,LIBXMX,SYS$Library X$`20`20`20`20If`20IP`20.NES.`20"WIN_TCP"`20Then`20Define`20DECC$System_Include V`20'F$Environment("Default")',LIBWWW2,LIBHTMLW,LIBXMX,SYS$Library X$`20`20Else X$`20`20`20`20Define`20VAXC$Include`20'F$Environment("Default")',LIBWWW2,LIBHTM VLW,LIBXMX,SYS$Library X$`20`20`20`20Define`20C$Include`20'F$Environment("Default")',LIBWWW2,LIBHTMLW, VLIBXMX,SYS$Library X$`20`20EndIf X$`20'Comp'`20main.c X$`20'Comp'`20gui.c X$`20'Comp'`20gui-dialogs.c X$`20'Comp'`20gui-menubar.c X$`20'Comp'`20gui-documents.c X$`20'Comp'`20mo-www.c X$`20'Comp'`20mo-dtm.c X$`20'Comp'`20hotlist.c X$`20'Comp'`20whine.c X$`20'Comp'`20history.c X$`20'Comp'`20annotate.c X$`20'Comp'`20pan.c X$`20'Comp'`20grpan.c X$`20'Comp'`20grpan-www.c X$`20'Comp'`20audan.c X$`20'Comp'`20globalhist.c X$`20'Comp'`20img.c X$`20'Comp'`20picread.c X$`20'Comp'`20xpmhash.c X$`20'Comp'`20xpmread.c X$`20'Comp'`20gifread.c X$`20'Comp'`20pixmaps.c +-+-+-+-+-+-+-+- END OF PART 1 +-+-+-+-+-+-+-+-