$!---------------make.com for xpmlib----------------------------------------
$! make xpmlib under VMS
$!
$ Make = ""
$!
$! Where are we?
$!
$ here = f$directory()
$ disk = f$trnlnm("SYS$DISK")
$ path = "''disk'"+ "''here'"
$ xpath = "''path'" - "SXPM]" + "lib]"
$ if f$trnlnm("X11").eqs."" then define x11 decw$include,'xpath
$!
$! Check for MMK/MMS
$!
$ 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
$!
$ ccopt = "/define=(NEED_STRCASECMP,NEED_STRDUP,NO_ZPIPE)"
$ 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
$ comp = "__vaxc__=1"
$ if f$trnlnm("SYS").eqs."" then define sys sys$library:
$ else
$ if f$trnlnm("SYS").eqs."" then define sys decc$library_include:
$ ccopt = "/decc/prefix=all"+ccopt
$ comp = "__decc__=1"
$ endif
$ endif
$!
$! Produce linker-options file according to X-Release and compiler used
$!
$ open/write optf sxpm.opt
$ write optf "libxpm.olb/lib"
$ write optf "sys$share:decw$xextlibshr.exe/share"
$ write optf "sys$share:decw$xlibshr.exe/share"
$ @sys$update:decw$get_image_version sys$share:decw$xlibshr.exe decw$version
$ if f$extract(4,3,decw$version).eqs."1.1"
$ then
$ write optf "sys$share:decw$xtshr.exe/share"
$ endif
$ if f$extract(4,3,decw$version).eqs."1.2"
$ then
$ write optf "sys$share:decw$xtlibshrr5.exe/share"
$ endif
$ close optf
$!
$! Build the thing plain or with 'Make'
$!
$ write sys$output "Compiling XPMlib sources ..."
$ if (Make .eqs. "")
$ then
$ 'Make'/Macro = ('comp')
$ else
$ CALL MAKE CrBufFrI.OBJ "CC ''CCOPT' CrBufFrI" -
CrBufFrI.c XpmI.h xpm.h
$ CALL MAKE CrBufFrP.OBJ "CC ''CCOPT' CrBufFrP" -
CrBufFrP.c XpmI.h xpm.h
$ CALL MAKE CrDatFI.OBJ "CC ''CCOPT' CrDatFrI" -
CrDatFrI.c XpmI.h xpm.h
$ CALL MAKE CrDatFP.OBJ "CC ''CCOPT' CrDatFrP" -
CrDatFrP.c XpmI.h xpm.h
$ CALL MAKE CrIFrBuf.OBJ "CC ''CCOPT' CrIFrBuf" -
CrIFrBuf.c XpmI.h xpm.h
$ CALL MAKE CrIFrDat.OBJ "CC ''CCOPT' CrIFrDat" -
CrIFrDat.c XpmI.h xpm.h
$ CALL MAKE CrPFrBuf.OBJ "CC ''CCOPT' CrPFrBuf" -
CrPFrBuf.c XpmI.h xpm.h
$ CALL MAKE CrPFrDat.OBJ "CC ''CCOPT' CrPFrDat" -
CrPFrDat.c XpmI.h xpm.h
$ CALL MAKE RdFToDat.OBJ "CC ''CCOPT' RdFToDat" -
RdFToDat.c XpmI.h xpm.h
$ CALL MAKE RdFToI.OBJ "CC ''CCOPT' RdFToI" -
RdFToI.c XpmI.h xpm.h
$ CALL MAKE RdFToP.OBJ "CC ''CCOPT' RdFToP" -
RdFToP.c XpmI.h xpm.h
$ CALL MAKE WrFFrDat.OBJ "CC ''CCOPT' WrFFrDat" -
WrFFrDat.c XpmI.h xpm.h
$ CALL MAKE WrFFrI.OBJ "CC ''CCOPT' WrFFrI" -
WrFFrI.c XpmI.h xpm.h
$ CALL MAKE WrFFrP.OBJ "CC ''CCOPT' WrFFrP" -
WrFFrP.c XpmI.h xpm.h
$ CALL MAKE create.OBJ "CC ''CCOPT' create" -
create.c XpmI.h xpm.h
$ CALL MAKE data.OBJ "CC ''CCOPT' data" -
data.c XpmI.h xpm.h
$ CALL MAKE hashtab.OBJ "CC ''CCOPT' hashtab" -
hashtab.c XpmI.h xpm.h
$ CALL MAKE misc.OBJ "CC ''CCOPT' misc" -
misc.c XpmI.h xpm.h
$ CALL MAKE parse.OBJ "CC ''CCOPT' parse" -
parse.c XpmI.h xpm.h
$ CALL MAKE rgb.OBJ "CC ''CCOPT' rgb" -
rgb.c XpmI.h xpm.h
$ CALL MAKE scan.OBJ "CC ''CCOPT' scan" -
scan.c XpmI.h xpm.h
$ CALL MAKE Attrib.OBJ "CC ''CCOPT' Attrib" -
Attrib.c XpmI.h xpm.h
$ CALL MAKE CrIFrP.OBJ "CC ''CCOPT' CrIFrP" -
CrIFrP.c XpmI.h xpm.h
$ CALL MAKE CrPFrI.OBJ "CC ''CCOPT' CrPFrI" -
CrPFrI.c XpmI.h xpm.h
$ CALL MAKE Image.OBJ "CC ''CCOPT' Image" -
Image.c XpmI.h xpm.h
$ CALL MAKE Info.OBJ "CC ''CCOPT' Info" -
Info.c XpmI.h xpm.h
$ CALL MAKE RdFToBuf.OBJ "CC ''CCOPT' RdFToBuf" -
RdFToBuf.c XpmI.h xpm.h
$ CALL MAKE WrFFrBuf.OBJ "CC ''CCOPT' WrFFrBuf" -
WrFFrBuf.c XpmI.h xpm.h
$ write sys$output "Building XPMlib ..."
$ CALL MAKE LIBXPM.OLB "lib/crea libxpm.olb *.obj" *.OBJ
$ CALL MAKE SXPM.OBJ "CC ''CCOPT' [-.sxpm]sxpm" -
[-.sxpm]sxpm.c xpm.h
$ write sys$output "Linking SXPM ..."
$ CALL MAKE SXPM.EXE "LINK sxpm,sxpm.opt/OPT" sxpm.OBJ
$ endif
$ write sys$output "XPMlib build completed"
$ sxpm :=="$''path'sxpm.exe"
$ 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