pdf/xpdf/vms_make.com

   1 $!========================================================================
   2 $!
   3 $! Xpdf compile script for VMS.
   4 $!
   5 $! Written by Patrick Moreau, Martin P.J. Zinser.
   6 $!
   7 $! Copyright 1996-2002 Glyph & Cog, LLC
   8 $!
   9 $!========================================================================
  10 $!
  11 $ i = 0
  12 $ j = 0
  13 $ APPS = "XPDF,PDFTOPS,PDFTOTEXT,PDFINFO,PDFTOPBM,PDFIMAGES,PDFFONTS"
  14 $ if f$search("COMMON.OLB").eqs."" then lib/create common.olb
  15 $!
  16 $ COMMON_OBJS = "Annot.obj,Array.obj,BuiltinFont.obj," + -
  17                 "BuiltinFontTables.obj,Catalog.obj,CharCodeToUnicode.obj," + -
  18                 "CMap.obj,Decrypt.obj,Dict.obj,Error.obj," + -
  19                 "FontEncodingTables.obj,FontFile.obj," + -
  20                 "Function.obj,Gfx.obj,GfxFont.obj,GfxState.obj,"+ -
  21                 "GlobalParams.obj,JBIG2Stream.obj,Lexer.obj," + -
  22                 "Link.obj,NameToCharCode.obj,Object.obj,Outline.obj,"+ -
  23                 "OutputDev.obj,Page.obj,Parser.obj,PDFdoc.obj," + -
  24                 "PDFDocEncoding.obj,PSTokenizer.obj,Stream.obj," + -
  25                 "UnicodeMap.obj,XRef.obj"
  26 $ COMMON_LIBS = "[]common.olb/lib,[-.goo]libgoo.olb/lib"
  27 $!
  28 $ XPDF_OBJS = "xpdf.obj,FTFont.obj,PSOutputDev.obj," + -
  29               "SFont.obj,T1Font.obj,TextOutputDev.obj,TTFont.obj," + -
  30               "XOutputDev.obj,XPDFApp.o,XPDFCore.o,XPDFTree.o," + -
  31               "XPDFViewer.o,XPixmapOutputDev.o"
  32 $ XPDF_LIBS = ""
  33 $!
  34 $ PDFTOPS_OBJS   = "pdftops.obj,PSOutputDev.obj"
  35 $ PDFTOPS_LIBS   = ""
  36 $!
  37 $ PDFTOTEXT_OBJS = "pdftotext.obj,TextOutputDev.obj"
  38 $ PDFTOTEXT_LIBS = ""
  39 $!
  40 $ PDFINFO_OBJS   =  "pdfinfo.obj"
  41 $ PDFINFO_LIBS   = ""
  42 $!
  43 $ PDFTOPBM_OBJS  = "pdftopbm.obj,FTFont.obj,PBMOutputDev.obj,SFont.obj," + -
  44                    "T1Font.obj,TextOutputDev.obj,TTFont.obj,XOutputDev.obj"
  45 $ PDFTOPBM_LIBS  = ""
  46 $!
  47 $ PDFIMAGES_OBJS = "pdfimages.obj,ImageOutputDev.obj"
  48 $ PDFIMAGES_LIBS = ""
  49 $!
  50 $ PDFFONTS_OBJS  = "pdffonts.obj"
  51 $ PDFFONTS_LIBS  = ""
  52 $!
  53 $COMPILE_CXX_LOOP:
  54 $ file = f$element(i, ",",COMMON_OBJS)
  55 $ if file .eqs. "," then goto BUILD_APPS
  56 $ i = i + 1
  57 $ name = f$parse(file,,,"NAME")
  58 $ call make 'file "CXXCOMP ''name'.cc" -
  59        'name'.cc
  60 $ call make common.olb "lib/replace common.olb ''name'.obj" -
  61        'name'.obj
  62 $ goto COMPILE_CXX_LOOP
  63 $!
  64 $BUILD_APPS:
  65 $ curr_app = f$element(j,",",APPS)
  66 $ if curr_app .eqs. "," then exit
  67 $ j = j + 1
  68 $ i = 0
  69 $COMPILE_APP:
  70 $ file = f$element(i,",",'curr_app'_OBJS)
  71 $ if file .eqs. "," then goto LINK_APP
  72 $ i = i + 1
  73 $ name = f$parse(file,,,"NAME")
  74 $ call make 'file "CXXCOMP ''name'.cc" -
  75        'name'.cc
  76 $ goto COMPILE_APP
  77 $LINK_APP:
  78 $ if 'curr_app'_LIBS .nes. ""
  79 $ then
  80 $   LIBS = 'curr_app'_LIBS + "," + COMMON_LIBS
  81 $ else
  82 $   LIBS = COMMON_LIBS
  83 $ endif
  84 $ OBJS = 'curr_app'_OBJS
  85 $ write sys$output "Linking ''curr_app'..."
  86 $ xpdf_link/exe='curr_app'.exe 'OBJS','libs',[-]xpdf.opt/opt
  87 $!
  88 $ goto BUILD_APPS
  89 $ exit
  90 $!
  91 $MAKE: SUBROUTINE   !SUBROUTINE TO CHECK DEPENDENCIES
  92 $ V = 'F$Verify(0)
  93 $! P1 = What we are trying to make
  94 $! P2 = Command to make it
  95 $! P3 - P8  What it depends on
  96 $
  97 $ If F$Search(P1) .Eqs. "" Then Goto Makeit
  98 $ Time = F$CvTime(F$File(P1,"RDT"))
  99 $arg=3
 100 $Loop:
 101 $       Argument = P'arg
 102 $       If Argument .Eqs. "" Then Goto Exit
 103 $       El=0
 104 $Loop2:
 105 $       File = F$Element(El," ",Argument)
 106 $       If File .Eqs. " " Then Goto Endl
 107 $       AFile = ""
 108 $Loop3:
 109 $       OFile = AFile
 110 $       AFile = F$Search(File)
 111 $       If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
 112 $       If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
 113 $       Goto Loop3
 114 $NextEL:
 115 $       El = El + 1
 116 $       Goto Loop2
 117 $EndL:
 118 $ arg=arg+1
 119 $ If arg .Le. 8 Then Goto Loop
 120 $ Goto Exit
 121 $
 122 $Makeit:
 123 $ VV=F$VERIFY(0)
 124 $ write sys$output P2
 125 $ 'P2
 126 $ VV='F$Verify(VV)
 127 $Exit:
 128 $ If V Then Set Verify
 129 $ENDSUBROUTINE