| $! make libpng under VMS |
| $! |
| $! |
| $! Check for MMK/MMS |
| $! |
| $! This procedure accepts one parameter (contrib), which causes it to build |
| $! the programs from the contrib directory instead of libpng. |
| $! |
| $ p1 = f$edit(p1,"UPCASE") |
| $ if p1 .eqs. "CONTRIB" |
| $ then |
| $ set def [.contrib.gregbook] |
| $ @makevms |
| $ set def [-.pngminus] |
| $ @makevms |
| $ set def [--] |
| $ exit |
| $ endif |
| $ Make = "" |
| $ If F$Search ("Sys$System:MMS.EXE") .nes. "" Then Make = "MMS" |
| $ If F$Type (MMK) .eqs. "STRING" Then Make = "MMK" |
| $! |
| $! 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 |
| $! |
| $! Build the thing plain or with mms/mmk |
| $! |
| $ write sys$output "Compiling Libpng sources ..." |
| $ if make.eqs."" |
| $ then |
| $ dele pngtest.obj;* |
| $ CALL MAKE png.OBJ "cc ''CCOPT' png" - |
| png.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngset.OBJ "cc ''CCOPT' pngset" - |
| pngset.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngget.OBJ "cc ''CCOPT' pngget" - |
| pngget.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngread.OBJ "cc ''CCOPT' pngread" - |
| pngread.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngpread.OBJ "cc ''CCOPT' pngpread" - |
| pngpread.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngrtran.OBJ "cc ''CCOPT' pngrtran" - |
| pngrtran.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngrutil.OBJ "cc ''CCOPT' pngrutil" - |
| pngrutil.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngerror.OBJ "cc ''CCOPT' pngerror" - |
| pngerror.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngmem.OBJ "cc ''CCOPT' pngmem" - |
| pngmem.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngrio.OBJ "cc ''CCOPT' pngrio" - |
| pngrio.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngwio.OBJ "cc ''CCOPT' pngwio" - |
| pngwio.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngtrans.OBJ "cc ''CCOPT' pngtrans" - |
| pngtrans.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngwrite.OBJ "cc ''CCOPT' pngwrite" - |
| pngwrite.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngwtran.OBJ "cc ''CCOPT' pngwtran" - |
| pngwtran.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ CALL MAKE pngwutil.OBJ "cc ''CCOPT' pngwutil" - |
| pngwutil.c png.h pngconf.h pnglibconf.h pngpriv.h pngstruct.h pnginfo.h pngdebug.h |
| $ write sys$output "Building Libpng ..." |
| $ CALL MAKE libpng.OLB "lib/crea libpng.olb *.obj" *.OBJ |
| $ write sys$output "Building pngtest..." |
| $ CALL MAKE pngtest.OBJ "cc ''CCOPT' pngtest" - |
| pngtest.c png.h pngconf.h pnglibconf.h |
| $ call make pngtest.exe - |
| "LINK pngtest,libpng.olb/lib,''zlibsrc'libz.olb/lib" - |
| pngtest.obj libpng.olb |
| $ write sys$output "Testing Libpng..." |
| $ run pngtest |
| $ else |
| $ if f$search("DESCRIP.MMS") .eqs. "" then copy/nolog [.SCRIPTS]DESCRIP.MMS [] |
| $ 'make'/macro=('comp',zlibsrc='zlibsrc') |
| $ endif |
| $ write sys$output "Libpng build completed" |
| $ 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 |
