diff options
Diffstat (limited to 'libraries/irrlicht-1.8/source/Irrlicht/libpng/contrib/gregbook/makevms.com')
-rw-r--r-- | libraries/irrlicht-1.8/source/Irrlicht/libpng/contrib/gregbook/makevms.com | 132 |
1 files changed, 132 insertions, 0 deletions
diff --git a/libraries/irrlicht-1.8/source/Irrlicht/libpng/contrib/gregbook/makevms.com b/libraries/irrlicht-1.8/source/Irrlicht/libpng/contrib/gregbook/makevms.com new file mode 100644 index 0000000..29a5727 --- /dev/null +++ b/libraries/irrlicht-1.8/source/Irrlicht/libpng/contrib/gregbook/makevms.com | |||
@@ -0,0 +1,132 @@ | |||
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 | ||