| 1 | $!------------------------------------------------------------------------------
|
|---|
| 2 | $! make "PNG: The Definitive Guide" demo programs (for X) under OpenVMS
|
|---|
| 3 | $!
|
|---|
| 4 | $! Script created by Martin Zinser for libpng; modified by Greg Roelofs
|
|---|
| 5 | $! for standalone pngbook source distribution.
|
|---|
| 6 | $!
|
|---|
| 7 | $!
|
|---|
| 8 | $! Set locations where zlib and libpng sources live.
|
|---|
| 9 | $!
|
|---|
| 10 | $ zpath = ""
|
|---|
| 11 | $ pngpath = ""
|
|---|
| 12 | $!
|
|---|
| 13 | $ if f$search("[---.zlib]zlib.h").nes."" then zpath = "[---.zlib]"
|
|---|
| 14 | $ if f$search("[--]png.h").nes."" then pngpath = "[--]"
|
|---|
| 15 | $!
|
|---|
| 16 | $ if f$search("[-.zlib]zlib.h").nes."" then zpath = "[-.zlib]"
|
|---|
| 17 | $ if f$search("[-.libpng]png.h").nes."" then pngpath = "[-.libpng]"
|
|---|
| 18 | $!
|
|---|
| 19 | $ if zpath .eqs. ""
|
|---|
| 20 | $ then
|
|---|
| 21 | $ write sys$output "zlib include not found. Exiting..."
|
|---|
| 22 | $ exit 2
|
|---|
| 23 | $ endif
|
|---|
| 24 | $!
|
|---|
| 25 | $ if pngpath .eqs. ""
|
|---|
| 26 | $ then
|
|---|
| 27 | $ write sys$output "libpng include not found. Exiting..."
|
|---|
| 28 | $ exit 2
|
|---|
| 29 | $ endif
|
|---|
| 30 | $!
|
|---|
| 31 | $! Look for the compiler used.
|
|---|
| 32 | $!
|
|---|
| 33 | $ ccopt="/include=(''zpath',''pngpath')"
|
|---|
| 34 | $ if f$getsyi("HW_MODEL").ge.1024
|
|---|
| 35 | $ then
|
|---|
| 36 | $ ccopt = "/prefix=all"+ccopt
|
|---|
| 37 | $ comp = "__decc__=1"
|
|---|
| 38 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library:
|
|---|
| 39 | $ else
|
|---|
| 40 | $ if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs.""
|
|---|
| 41 | $ then
|
|---|
| 42 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library:
|
|---|
| 43 | $ if f$search("SYS$SYSTEM:VAXC.EXE").eqs.""
|
|---|
| 44 | $ then
|
|---|
| 45 | $ comp = "__gcc__=1"
|
|---|
| 46 | $ CC :== GCC
|
|---|
| 47 | $ else
|
|---|
| 48 | $ comp = "__vaxc__=1"
|
|---|
| 49 | $ endif
|
|---|
| 50 | $ else
|
|---|
| 51 | $ if f$trnlnm("SYS").eqs."" then define sys decc$library_include:
|
|---|
| 52 | $ ccopt = "/decc/prefix=all"+ccopt
|
|---|
| 53 | $ comp = "__decc__=1"
|
|---|
| 54 | $ endif
|
|---|
| 55 | $ endif
|
|---|
| 56 | $ open/write lopt lib.opt
|
|---|
| 57 | $ write lopt "''pngpath'libpng.olb/lib"
|
|---|
| 58 | $ write lopt "''zpath'libz.olb/lib"
|
|---|
| 59 | $ close lopt
|
|---|
| 60 | $ open/write xopt x11.opt
|
|---|
| 61 | $ write xopt "sys$library:decw$xlibshr.exe/share"
|
|---|
| 62 | $ close xopt
|
|---|
| 63 | $!
|
|---|
| 64 | $! Build 'em.
|
|---|
| 65 | $!
|
|---|
| 66 | $ write sys$output "Compiling PNG book programs ..."
|
|---|
| 67 | $ CALL MAKE readpng.OBJ "cc ''CCOPT' readpng" -
|
|---|
| 68 | readpng.c readpng.h
|
|---|
| 69 | $ CALL MAKE readpng2.OBJ "cc ''CCOPT' readpng2" -
|
|---|
| 70 | readpng2.c readpng2.h
|
|---|
| 71 | $ CALL MAKE writepng.OBJ "cc ''CCOPT' writepng" -
|
|---|
| 72 | writepng.c writepng.h
|
|---|
| 73 | $ write sys$output "Building rpng-x..."
|
|---|
| 74 | $ CALL MAKE rpng-x.OBJ "cc ''CCOPT' rpng-x" -
|
|---|
| 75 | rpng-x.c readpng.h
|
|---|
| 76 | $ call make rpng-x.exe -
|
|---|
| 77 | "LINK rpng-x,readpng,lib.opt/opt,x11.opt/opt" -
|
|---|
| 78 | rpng-x.obj readpng.obj
|
|---|
| 79 | $ write sys$output "Building rpng2-x..."
|
|---|
| 80 | $ CALL MAKE rpng2-x.OBJ "cc ''CCOPT' rpng2-x" -
|
|---|
| 81 | rpng2-x.c readpng2.h
|
|---|
| 82 | $ call make rpng2-x.exe -
|
|---|
| 83 | "LINK rpng2-x,readpng2,lib.opt/opt,x11.opt/opt" -
|
|---|
| 84 | rpng2-x.obj readpng2.obj
|
|---|
| 85 | $ write sys$output "Building wpng..."
|
|---|
| 86 | $ CALL MAKE wpng.OBJ "cc ''CCOPT' wpng" -
|
|---|
| 87 | wpng.c writepng.h
|
|---|
| 88 | $ call make wpng.exe -
|
|---|
| 89 | "LINK wpng,writepng,lib.opt/opt" -
|
|---|
| 90 | wpng.obj writepng.obj
|
|---|
| 91 | $ exit
|
|---|
| 92 | $!
|
|---|
| 93 | $!
|
|---|
| 94 | $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
|
|---|
| 95 | $ V = 'F$Verify(0)
|
|---|
| 96 | $! P1 = What we are trying to make
|
|---|
| 97 | $! P2 = Command to make it
|
|---|
| 98 | $! P3 - P8 What it depends on
|
|---|
| 99 | $
|
|---|
| 100 | $ If F$Search(P1) .Eqs. "" Then Goto Makeit
|
|---|
| 101 | $ Time = F$CvTime(F$File(P1,"RDT"))
|
|---|
| 102 | $arg=3
|
|---|
| 103 | $Loop:
|
|---|
| 104 | $ Argument = P'arg
|
|---|
| 105 | $ If Argument .Eqs. "" Then Goto Exit
|
|---|
| 106 | $ El=0
|
|---|
| 107 | $Loop2:
|
|---|
| 108 | $ File = F$Element(El," ",Argument)
|
|---|
| 109 | $ If File .Eqs. " " Then Goto Endl
|
|---|
| 110 | $ AFile = ""
|
|---|
| 111 | $Loop3:
|
|---|
| 112 | $ OFile = AFile
|
|---|
| 113 | $ AFile = F$Search(File)
|
|---|
| 114 | $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
|
|---|
| 115 | $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
|
|---|
| 116 | $ Goto Loop3
|
|---|
| 117 | $NextEL:
|
|---|
| 118 | $ El = El + 1
|
|---|
| 119 | $ Goto Loop2
|
|---|
| 120 | $EndL:
|
|---|
| 121 | $ arg=arg+1
|
|---|
| 122 | $ If arg .Le. 8 Then Goto Loop
|
|---|
| 123 | $ Goto Exit
|
|---|
| 124 | $
|
|---|
| 125 | $Makeit:
|
|---|
| 126 | $ VV=F$VERIFY(0)
|
|---|
| 127 | $ write sys$output P2
|
|---|
| 128 | $ 'P2
|
|---|
| 129 | $ VV='F$Verify(VV)
|
|---|
| 130 | $Exit:
|
|---|
| 131 | $ If V Then Set Verify
|
|---|
| 132 | $ENDSUBROUTINE
|
|---|
