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