Mercurial > fife-parpg
view ext/libpng-1.2.29/contrib/pngminus/makevms.com @ 346:66db8ce5dfa2
Removed some leftover print statement.
author | phoku@33b003aa-7bff-0310-803a-e67f0ece8222 |
---|---|
date | Tue, 25 Aug 2009 14:45:14 +0000 |
parents | 4a0efb7baf70 |
children |
line wrap: on
line source
$!------------------------------------------------------------------------------ $! make Contrib programs of libpng under OpenVMS $! $! $! Look for the compiler used $! $ zlibsrc = "[---.zlib]" $ ccopt="/include=(''zlibsrc',[--])" $ if f$getsyi("HW_MODEL").ge.1024 $ then $ ccopt = "/prefix=all"+ccopt $ comp = "__decc__=1" $ if f$trnlnm("SYS").eqs."" then define sys sys$library: $ else $ if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs."" $ then $ if f$trnlnm("SYS").eqs."" then define sys sys$library: $ if f$search("SYS$SYSTEM:VAXC.EXE").eqs."" $ then $ comp = "__gcc__=1" $ CC :== GCC $ else $ comp = "__vaxc__=1" $ endif $ else $ if f$trnlnm("SYS").eqs."" then define sys decc$library_include: $ ccopt = "/decc/prefix=all"+ccopt $ comp = "__decc__=1" $ endif $ endif $ open/write lopt lib.opt $ write lopt "[--]libpng.olb/lib" $ write lopt "''zlibsrc'libz.olb/lib" $ close lopt $ open/write xopt x11.opt $ write xopt "sys$library:decw$xlibshr.exe/share" $ close xopt $ write sys$output "Compiling PNG contrib programs ..." $ write sys$output "Building pnm2png..." $ CALL MAKE pnm2png.OBJ "cc ''CCOPT' pnm2png" - pnm2png.c $ call make pnm2png.exe - "LINK pnm2png,lib.opt/opt" - pnm2png.obj $ write sys$output "Building png2pnm..." $ CALL MAKE png2pnm.OBJ "cc ''CCOPT' png2pnm" - png2pnm.c $ call make png2pnm.exe - "LINK png2pnm,lib.opt/opt" - png2pnm.obj $ exit $! $! $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES $ V = 'F$Verify(0) $! P1 = What we are trying to make $! P2 = Command to make it $! P3 - P8 What it depends on $ $ If F$Search(P1) .Eqs. "" Then Goto Makeit $ Time = F$CvTime(F$File(P1,"RDT")) $arg=3 $Loop: $ Argument = P'arg $ If Argument .Eqs. "" Then Goto Exit $ El=0 $Loop2: $ File = F$Element(El," ",Argument) $ If File .Eqs. " " Then Goto Endl $ AFile = "" $Loop3: $ OFile = AFile $ AFile = F$Search(File) $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit $ Goto Loop3 $NextEL: $ El = El + 1 $ Goto Loop2 $EndL: $ arg=arg+1 $ If arg .Le. 8 Then Goto Loop $ Goto Exit $ $Makeit: $ VV=F$VERIFY(0) $ write sys$output P2 $ 'P2 $ VV='F$Verify(VV) $Exit: $ If V Then Set Verify $ENDSUBROUTINE