| 1 | $! make libpng under VMS
|
|---|
| 2 | $!
|
|---|
| 3 | $!
|
|---|
| 4 | $! Check for MMK/MMS
|
|---|
| 5 | $!
|
|---|
| 6 | $! This procedure accepts one parameter (contrib), which causes it to build
|
|---|
| 7 | $! the programs from the contrib directory instead of libpng.
|
|---|
| 8 | $!
|
|---|
| 9 | $ p1 = f$edit(p1,"UPCASE")
|
|---|
| 10 | $ if p1 .eqs. "CONTRIB"
|
|---|
| 11 | $ then
|
|---|
| 12 | $ set def [.contrib.gregbook]
|
|---|
| 13 | $ @makevms
|
|---|
| 14 | $ set def [-.pngminus]
|
|---|
| 15 | $ @makevms
|
|---|
| 16 | $ set def [--]
|
|---|
| 17 | $ exit
|
|---|
| 18 | $ endif
|
|---|
| 19 | $ Make = ""
|
|---|
| 20 | $ If F$Search ("Sys$System:MMS.EXE") .nes. "" Then Make = "MMS"
|
|---|
| 21 | $ If F$Type (MMK) .eqs. "STRING" Then Make = "MMK"
|
|---|
| 22 | $!
|
|---|
| 23 | $! Look for the compiler used
|
|---|
| 24 | $!
|
|---|
| 25 | $ zlibsrc = "[-.zlib]"
|
|---|
| 26 | $ ccopt="/include=''zlibsrc'"
|
|---|
| 27 | $ if f$getsyi("HW_MODEL").ge.1024
|
|---|
| 28 | $ then
|
|---|
| 29 | $ ccopt = "/prefix=all"+ccopt
|
|---|
| 30 | $ comp = "__decc__=1"
|
|---|
| 31 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library:
|
|---|
| 32 | $ else
|
|---|
| 33 | $ if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs.""
|
|---|
| 34 | $ then
|
|---|
| 35 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library:
|
|---|
| 36 | $ if f$search("SYS$SYSTEM:VAXC.EXE").eqs.""
|
|---|
| 37 | $ then
|
|---|
| 38 | $ comp = "__gcc__=1"
|
|---|
| 39 | $ CC :== GCC
|
|---|
| 40 | $ else
|
|---|
| 41 | $ comp = "__vaxc__=1"
|
|---|
| 42 | $ endif
|
|---|
| 43 | $ else
|
|---|
| 44 | $ if f$trnlnm("SYS").eqs."" then define sys decc$library_include:
|
|---|
| 45 | $ ccopt = "/decc/prefix=all"+ccopt
|
|---|
| 46 | $ comp = "__decc__=1"
|
|---|
| 47 | $ endif
|
|---|
| 48 | $ endif
|
|---|
| 49 | $!
|
|---|
| 50 | $! Build the thing plain or with mms/mmk
|
|---|
| 51 | $!
|
|---|
| 52 | $ write sys$output "Compiling Libpng sources ..."
|
|---|
| 53 | $ if make.eqs.""
|
|---|
| 54 | $ then
|
|---|
| 55 | $ dele pngtest.obj;*
|
|---|
| 56 | $ CALL MAKE png.OBJ "cc ''CCOPT' png" -
|
|---|
| 57 | png.c png.h pngconf.h
|
|---|
| 58 | $ CALL MAKE pngpread.OBJ "cc ''CCOPT' pngpread" -
|
|---|
| 59 | pngpread.c png.h pngconf.h
|
|---|
| 60 | $ CALL MAKE pngset.OBJ "cc ''CCOPT' pngset" -
|
|---|
| 61 | pngset.c png.h pngconf.h
|
|---|
| 62 | $ CALL MAKE pngget.OBJ "cc ''CCOPT' pngget" -
|
|---|
| 63 | pngget.c png.h pngconf.h
|
|---|
| 64 | $ CALL MAKE pngread.OBJ "cc ''CCOPT' pngread" -
|
|---|
| 65 | pngread.c png.h pngconf.h
|
|---|
| 66 | $ CALL MAKE pngpread.OBJ "cc ''CCOPT' pngpread" -
|
|---|
| 67 | pngpread.c png.h pngconf.h
|
|---|
| 68 | $ CALL MAKE pngrtran.OBJ "cc ''CCOPT' pngrtran" -
|
|---|
| 69 | pngrtran.c png.h pngconf.h
|
|---|
| 70 | $ CALL MAKE pngrutil.OBJ "cc ''CCOPT' pngrutil" -
|
|---|
| 71 | pngrutil.c png.h pngconf.h
|
|---|
| 72 | $ CALL MAKE pngerror.OBJ "cc ''CCOPT' pngerror" -
|
|---|
| 73 | pngerror.c png.h pngconf.h
|
|---|
| 74 | $ CALL MAKE pngmem.OBJ "cc ''CCOPT' pngmem" -
|
|---|
| 75 | pngmem.c png.h pngconf.h
|
|---|
| 76 | $ CALL MAKE pngrio.OBJ "cc ''CCOPT' pngrio" -
|
|---|
| 77 | pngrio.c png.h pngconf.h
|
|---|
| 78 | $ CALL MAKE pngwio.OBJ "cc ''CCOPT' pngwio" -
|
|---|
| 79 | pngwio.c png.h pngconf.h
|
|---|
| 80 | $ CALL MAKE pngtrans.OBJ "cc ''CCOPT' pngtrans" -
|
|---|
| 81 | pngtrans.c png.h pngconf.h
|
|---|
| 82 | $ CALL MAKE pngwrite.OBJ "cc ''CCOPT' pngwrite" -
|
|---|
| 83 | pngwrite.c png.h pngconf.h
|
|---|
| 84 | $ CALL MAKE pngwtran.OBJ "cc ''CCOPT' pngwtran" -
|
|---|
| 85 | pngwtran.c png.h pngconf.h
|
|---|
| 86 | $ CALL MAKE pngwutil.OBJ "cc ''CCOPT' pngwutil" -
|
|---|
| 87 | pngwutil.c png.h pngconf.h
|
|---|
| 88 | $ write sys$output "Building Libpng ..."
|
|---|
| 89 | $ CALL MAKE libpng.OLB "lib/crea libpng.olb *.obj" *.OBJ
|
|---|
| 90 | $ write sys$output "Building pngtest..."
|
|---|
| 91 | $ CALL MAKE pngtest.OBJ "cc ''CCOPT' pngtest" -
|
|---|
| 92 | pngtest.c png.h pngconf.h
|
|---|
| 93 | $ call make pngtest.exe -
|
|---|
| 94 | "LINK pngtest,libpng.olb/lib,''zlibsrc'libz.olb/lib" -
|
|---|
| 95 | pngtest.obj libpng.olb
|
|---|
| 96 | $ write sys$output "Testing Libpng..."
|
|---|
| 97 | $ run pngtest
|
|---|
| 98 | $ else
|
|---|
| 99 | $ if f$search("DESCRIP.MMS") .eqs. "" then copy/nolog [.SCRIPTS]DESCRIP.MMS []
|
|---|
| 100 | $ 'make'/macro=('comp',zlibsrc='zlibsrc')
|
|---|
| 101 | $ endif
|
|---|
| 102 | $ write sys$output "Libpng build completed"
|
|---|
| 103 | $ exit
|
|---|
| 104 | $!
|
|---|
| 105 | $!
|
|---|
| 106 | $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
|
|---|
| 107 | $ V = 'F$Verify(0)
|
|---|
| 108 | $! P1 = What we are trying to make
|
|---|
| 109 | $! P2 = Command to make it
|
|---|
| 110 | $! P3 - P8 What it depends on
|
|---|
| 111 | $
|
|---|
| 112 | $ If F$Search(P1) .Eqs. "" Then Goto Makeit
|
|---|
| 113 | $ Time = F$CvTime(F$File(P1,"RDT"))
|
|---|
| 114 | $arg=3
|
|---|
| 115 | $Loop:
|
|---|
| 116 | $ Argument = P'arg
|
|---|
| 117 | $ If Argument .Eqs. "" Then Goto Exit
|
|---|
| 118 | $ El=0
|
|---|
| 119 | $Loop2:
|
|---|
| 120 | $ File = F$Element(El," ",Argument)
|
|---|
| 121 | $ If File .Eqs. " " Then Goto Endl
|
|---|
| 122 | $ AFile = ""
|
|---|
| 123 | $Loop3:
|
|---|
| 124 | $ OFile = AFile
|
|---|
| 125 | $ AFile = F$Search(File)
|
|---|
| 126 | $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
|
|---|
| 127 | $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
|
|---|
| 128 | $ Goto Loop3
|
|---|
| 129 | $NextEL:
|
|---|
| 130 | $ El = El + 1
|
|---|
| 131 | $ Goto Loop2
|
|---|
| 132 | $EndL:
|
|---|
| 133 | $ arg=arg+1
|
|---|
| 134 | $ If arg .Le. 8 Then Goto Loop
|
|---|
| 135 | $ Goto Exit
|
|---|
| 136 | $
|
|---|
| 137 | $Makeit:
|
|---|
| 138 | $ VV=F$VERIFY(0)
|
|---|
| 139 | $ write sys$output P2
|
|---|
| 140 | $ 'P2
|
|---|
| 141 | $ VV='F$Verify(VV)
|
|---|
| 142 | $Exit:
|
|---|
| 143 | $ If V Then Set Verify
|
|---|
| 144 | $ENDSUBROUTINE
|
|---|
