You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
92 lines
2.3 KiB
92 lines
2.3 KiB
$!------------------------------------------------------------------------------ |
|
$! 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
|
|
|