src/png/scripts/makevms.com

   1 $! make libpng under VMS
   2 $!
   3 $!
   4 $! Look for the compiler used
   5 $!
   6 $ zlibsrc = "[-.zlib]"
   7 $ ccopt="/include=''zlibsrc'"
   8 $ if f$getsyi("HW_MODEL").ge.1024
   9 $ then
  10 $  ccopt = "/prefix=all"+ccopt
  11 $  comp  = "__decc__=1"
  12 $  if f$trnlnm("SYS").eqs."" then define sys sys$library:
  13 $ else
  14 $  if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs.""
  15 $   then
  16 $    if f$trnlnm("SYS").eqs."" then define sys sys$library:
  17 $    if f$search("SYS$SYSTEM:VAXC.EXE").eqs.""
  18 $     then
  19 $      comp  = "__gcc__=1"
  20 $      CC :== GCC
  21 $     else
  22 $      comp = "__vaxc__=1"
  23 $     endif
  24 $   else
  25 $    if f$trnlnm("SYS").eqs."" then define sys decc$library_include:
  26 $    ccopt = "/decc/prefix=all"+ccopt
  27 $    comp  = "__decc__=1"
  28 $  endif
  29 $ endif
  30 $!
  31 $! Build the thing plain or with mms
  32 $!
  33 $ write sys$output "Compiling Libpng sources ..."
  34 $ if f$search("SYS$SYSTEM:MMS.EXE").eqs.""
  35 $  then
  36 $   dele pngtest.obj;*
  37 $   CALL MAKE png.OBJ "cc ''CCOPT' png" -
  38                 png.c png.h pngconf.h
  39 $   CALL MAKE pngpread.OBJ "cc ''CCOPT' pngpread" -
  40                                          pngpread.c png.h pngconf.h
  41 $   CALL MAKE pngset.OBJ "cc ''CCOPT' pngset" -
  42                 pngset.c png.h pngconf.h
  43 $   CALL MAKE pngget.OBJ "cc ''CCOPT' pngget" -
  44                 pngget.c png.h pngconf.h
  45 $   CALL MAKE pngread.OBJ "cc ''CCOPT' pngread" -
  46                 pngread.c png.h pngconf.h
  47 $   CALL MAKE pngpread.OBJ "cc ''CCOPT' pngpread" -
  48                                          pngpread.c png.h pngconf.h
  49 $   CALL MAKE pngrtran.OBJ "cc ''CCOPT' pngrtran" -
  50                 pngrtran.c png.h pngconf.h
  51 $   CALL MAKE pngrutil.OBJ "cc ''CCOPT' pngrutil" -
  52                 pngrutil.c png.h pngconf.h
  53 $   CALL MAKE pngerror.OBJ "cc ''CCOPT' pngerror" -
  54                 pngerror.c png.h pngconf.h
  55 $   CALL MAKE pngmem.OBJ "cc ''CCOPT' pngmem" -
  56                 pngmem.c png.h pngconf.h
  57 $   CALL MAKE pngrio.OBJ "cc ''CCOPT' pngrio" -
  58                 pngrio.c png.h pngconf.h
  59 $   CALL MAKE pngwio.OBJ "cc ''CCOPT' pngwio" -
  60                 pngwio.c png.h pngconf.h
  61 $   CALL MAKE pngtrans.OBJ "cc ''CCOPT' pngtrans" -
  62                 pngtrans.c png.h pngconf.h
  63 $   CALL MAKE pngwrite.OBJ "cc ''CCOPT' pngwrite" -
  64                 pngwrite.c png.h pngconf.h
  65 $   CALL MAKE pngwtran.OBJ "cc ''CCOPT' pngwtran" -
  66                 pngwtran.c png.h pngconf.h
  67 $   CALL MAKE pngwutil.OBJ "cc ''CCOPT' pngwutil" -
  68                 pngwutil.c png.h pngconf.h
  69 $   write sys$output "Building Libpng ..."
  70 $   CALL MAKE libpng.OLB "lib/crea libpng.olb *.obj" *.OBJ
  71 $   write sys$output "Building pngtest..."
  72 $   CALL MAKE pngtest.OBJ "cc ''CCOPT' pngtest" -
  73                 pngtest.c png.h pngconf.h
  74 $   call make pngtest.exe -
  75                 "LINK pngtest,libpng.olb/lib,''zlibsrc'libgz.olb/lib" -
  76                 pngtest.obj libpng.olb
  77 $   write sys$output "Testing Libpng..."
  78 $   run pngtest
  79 $  else
  80 $   mms/macro=('comp',zlibsrc='zlibsrc')
  81 $  endif
  82 $ write sys$output "Libpng build completed"
  83 $ exit
  84 $!
  85 $!
  86 $MAKE: SUBROUTINE   !SUBROUTINE TO CHECK DEPENDENCIES
  87 $ V = 'F$Verify(0)
  88 $! P1 = What we are trying to make
  89 $! P2 = Command to make it
  90 $! P3 - P8  What it depends on
  91 $
  92 $ If F$Search(P1) .Eqs. "" Then Goto Makeit
  93 $ Time = F$CvTime(F$File(P1,"RDT"))
  94 $arg=3
  95 $Loop:
  96 $       Argument = P'arg
  97 $       If Argument .Eqs. "" Then Goto Exit
  98 $       El=0
  99 $Loop2:
 100 $       File = F$Element(El," ",Argument)
 101 $       If File .Eqs. " " Then Goto Endl
 102 $       AFile = ""
 103 $Loop3:
 104 $       OFile = AFile
 105 $       AFile = F$Search(File)
 106 $       If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
 107 $       If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
 108 $       Goto Loop3
 109 $NextEL:
 110 $       El = El + 1
 111 $       Goto Loop2
 112 $EndL:
 113 $ arg=arg+1
 114 $ If arg .Le. 8 Then Goto Loop
 115 $ Goto Exit
 116 $
 117 $Makeit:
 118 $ VV=F$VERIFY(0)
 119 $ write sys$output P2
 120 $ 'P2
 121 $ VV='F$Verify(VV)
 122 $Exit:
 123 $ If V Then Set Verify
 124 $ENDSUBROUTINE
 125