← Back to branch summary

~ubuntu-branches/ubuntu/wily/ntop/wily-proposed

« back to all changes in this revision

Viewing changes to gdchart0.94c/zlib-1.1.3/Make_vms.com

  • Committer: Bazaar Package Importer
  • Author(s): Dennis Schoen
  • Date: 2002-04-12 11:38:47 UTC
  • Revision ID: james.westby@ubuntu.com-20020412113847-4k4yydw0pzybc6g8
Tags: upstream-2.0.0
Import upstream version 2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
gdchart0.94c/zlib-1.1.3/Make_vms.com
 
1
$! make libz under VMS
 
2
$! written by Martin P.J. Zinser <m.zinser@gsi.de>
 
3
$!
 
4
$! Look for the compiler used
 
5
$!
 
6
$ ccopt = ""
 
7
$ if f$getsyi("HW_MODEL").ge.1024
 
8
$ then
 
9
$  ccopt = "/prefix=all"+ccopt
 
10
$  comp  = "__decc__=1"
 
11
$  if f$trnlnm("SYS").eqs."" then define sys sys$library:
 
12
$ else
 
13
$  if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs.""
 
14
$   then
 
15
$    comp  = "__vaxc__=1"
 
16
$    if f$trnlnm("SYS").eqs."" then define sys sys$library:
 
17
$   else
 
18
$    if f$trnlnm("SYS").eqs."" then define sys decc$library_include:
 
19
$    ccopt = "/decc/prefix=all"+ccopt
 
20
$    comp  = "__decc__=1"
 
21
$  endif
 
22
$ endif
 
23
$!
 
24
$! Build the thing plain or with mms
 
25
$!
 
26
$ write sys$output "Compiling Zlib sources ..."
 
27
$ if f$search("SYS$SYSTEM:MMS.EXE").eqs.""
 
28
$  then
 
29
$   dele example.obj;*,minigzip.obj;*
 
30
$   CALL MAKE adler32.OBJ "CC ''CCOPT' adler32" -
 
31
                adler32.c zlib.h zconf.h
 
32
$   CALL MAKE compress.OBJ "CC ''CCOPT' compress" -
 
33
                compress.c zlib.h zconf.h
 
34
$   CALL MAKE crc32.OBJ "CC ''CCOPT' crc32" -
 
35
                crc32.c zlib.h zconf.h
 
36
$   CALL MAKE deflate.OBJ "CC ''CCOPT' deflate" -
 
37
                deflate.c deflate.h zutil.h zlib.h zconf.h
 
38
$   CALL MAKE gzio.OBJ "CC ''CCOPT' gzio" -
 
39
                gzio.c zutil.h zlib.h zconf.h
 
40
$   CALL MAKE infblock.OBJ "CC ''CCOPT' infblock" -
 
41
                infblock.c zutil.h zlib.h zconf.h infblock.h
 
42
$   CALL MAKE infcodes.OBJ "CC ''CCOPT' infcodes" -
 
43
                infcodes.c zutil.h zlib.h zconf.h inftrees.h
 
44
$   CALL MAKE inffast.OBJ "CC ''CCOPT' inffast" -
 
45
                inffast.c zutil.h zlib.h zconf.h inffast.h
 
46
$   CALL MAKE inflate.OBJ "CC ''CCOPT' inflate" -
 
47
                inflate.c zutil.h zlib.h zconf.h infblock.h
 
48
$   CALL MAKE inftrees.OBJ "CC ''CCOPT' inftrees" -
 
49
                inftrees.c zutil.h zlib.h zconf.h inftrees.h
 
50
$   CALL MAKE infutil.OBJ "CC ''CCOPT' infutil" -
 
51
                infutil.c zutil.h zlib.h zconf.h inftrees.h infutil.h
 
52
$   CALL MAKE trees.OBJ "CC ''CCOPT' trees" -
 
53
                trees.c deflate.h zutil.h zlib.h zconf.h
 
54
$   CALL MAKE uncompr.OBJ "CC ''CCOPT' uncompr" -
 
55
                uncompr.c zlib.h zconf.h
 
56
$   CALL MAKE zutil.OBJ "CC ''CCOPT' zutil" -
 
57
                zutil.c zutil.h zlib.h zconf.h
 
58
$   write sys$output "Building Zlib ..."
 
59
$   CALL MAKE libz.OLB "lib/crea libz.olb *.obj" *.OBJ
 
60
$   write sys$output "Building example..."
 
61
$   CALL MAKE example.OBJ "CC ''CCOPT' example" -
 
62
                example.c zlib.h zconf.h
 
63
$   call make example.exe "LINK example,libz.olb/lib" example.obj libz.olb
 
64
$   write sys$output "Building minigzip..."
 
65
$   CALL MAKE minigzip.OBJ "CC ''CCOPT' minigzip" -
 
66
                minigzip.c zlib.h zconf.h
 
67
$   call make minigzip.exe - 
 
68
                "LINK minigzip,libz.olb/lib,x11vms:xvmsutils.olb/lib" - 
 
69
                minigzip.obj libz.olb
 
70
$  else
 
71
$   mms/macro=('comp')
 
72
$  endif
 
73
$ write sys$output "Zlib build completed"
 
74
$ exit
 
75
$!
 
76
$!
 
77
$MAKE: SUBROUTINE   !SUBROUTINE TO CHECK DEPENDENCIES
 
78
$ V = 'F$Verify(0)
 
79
$! P1 = What we are trying to make
 
80
$! P2 = Command to make it
 
81
$! P3 - P8  What it depends on
 
82
$
 
83
$ If F$Search(P1) .Eqs. "" Then Goto Makeit
 
84
$ Time = F$CvTime(F$File(P1,"RDT"))
 
85
$arg=3
 
86
$Loop:
 
87
$       Argument = P'arg
 
88
$       If Argument .Eqs. "" Then Goto Exit
 
89
$       El=0
 
90
$Loop2:
 
91
$       File = F$Element(El," ",Argument)
 
92
$       If File .Eqs. " " Then Goto Endl
 
93
$       AFile = ""
 
94
$Loop3:
 
95
$       OFile = AFile
 
96
$       AFile = F$Search(File)
 
97
$       If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
 
98
$       If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
 
99
$       Goto Loop3
 
100
$NextEL:
 
101
$       El = El + 1
 
102
$       Goto Loop2
 
103
$EndL:
 
104
$ arg=arg+1
 
105
$ If arg .Le. 8 Then Goto Loop
 
106
$ Goto Exit
 
107
$
 
108
$Makeit:
 
109
$ VV=F$VERIFY(0)
 
110
$ write sys$output P2
 
111
$ 'P2
 
112
$ VV='F$Verify(VV)
 
113
$Exit:
 
114
$ If V Then Set Verify
 
115
$ENDSUBROUTINE