diff options
Diffstat (limited to 'xc/extras/Xpm/lib/make.com')
| -rw-r--r-- | xc/extras/Xpm/lib/make.com | 169 |
1 files changed, 169 insertions, 0 deletions
diff --git a/xc/extras/Xpm/lib/make.com b/xc/extras/Xpm/lib/make.com new file mode 100644 index 000000000..db70cc2c0 --- /dev/null +++ b/xc/extras/Xpm/lib/make.com @@ -0,0 +1,169 @@ +$!---------------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 |