← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to libsrc/os/vms/make.com

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
libsrc/os/vms/make.com
 
1
$ ! @(#)make.com        19.1 (ESO-IPG) 02/25/03 13:56:10 
 
2
$ ver=f$verify(0)
 
3
$ set verify
 
4
$!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
5
$!.IDENTIFICATION       make.COM
 
6
$!.LANGUAGE             DCL
 
7
$!.AUTHOR               Francois Ochsenbein ESO-IPG
 
8
$!.PURPOSE              Compile and create OSLIB
 
9
$!.VERSION  3.0         06-Jul-1988
 
10
$!.P1                   D for debug version, S for Shareable Version
 
11
$!.P2                   NAME OF FILE(s), or TEST
 
12
$!-----------------------------------------------------------------------
 
13
$ set nover
 
14
$ ON CONTROL_Y then goto FIN
 
15
$ ON CONTROL_C then goto FIN
 
16
$! 
 
17
$!      Definition of Symbols
 
18
$!
 
19
$ OP = "/INCL=[---.incl]"       ! CC options
 
20
$ FLIB = "[--]OSLIB"            ! Library Name
 
21
$ IF (P1.eqs."D")       then OP = OP + "/deb/noop"
 
22
$ OPL = ""                              ! Link Options
 
23
$ IF (P1.eqs."D")       then OPL = "/deb"
 
24
$ OPB = "/lib"
 
25
$ if (F$SEARCH(FLIB+".OLB") .nes. "") then goto LIB_EXISTS
 
26
$!
 
27
$!      Create the Library
 
28
$!
 
29
$ set ver
 
30
$ LIB/CREATE    'FLIB'
 
31
$ set nover
 
32
$!
 
33
$LIB_EXISTS:
 
34
$!
 
35
$!========================================================================
 
36
$!              List of Files to Process
 
37
$!========================================================================
 
38
$!
 
39
$ MODULES = "osa,osd,osc,osf,osfvms,osfparse,osh,oshproc,osmemory,osmessage,"
 
40
$ MODULES = MODULES + "ospwait,osr,ost,osu,iodev,iodev0,iodev1,iodev2"
 
41
$!
 
42
$ if (P2 .nes. "") then MODULES = P2
 
43
$!
 
44
$!========================================================================
 
45
$!
 
46
$ I = 0
 
47
$ MODIF = 0
 
48
$!
 
49
$!
 
50
$MODU_LOOP:
 
51
$ ver=f$verify(0)
 
52
$ LMODU = F$LENGTH(MODULES)
 
53
$ if (I .ge. LMODU)     then goto MODU_END
 
54
$ LIST   = F$EXTRACT(I, LMODU-I, MODULES)
 
55
$ comma  = F$LOCATE(",",LIST)
 
56
$ source = F$EXTRACT(0,comma,LIST)
 
57
$ I = I + comma + 1
 
58
$ tojb = "0"
 
59
$ tsource = "9"
 
60
$ if (F$SEARCH(source+".obj") .eqs. "") then goto MODU_COMPILE
 
61
$ tsource = F$CVTIME(F$FILE_ATTRIBUTES(source+".C","CDT"))
 
62
$ tobj    = F$CVTIME(F$FILE_ATTRIBUTES(source+".OBJ","CDT"))
 
63
$ if (tobj .gts. tsource) then goto MODU_LOOP
 
64
$MODU_COMPILE:
 
65
$ set verify
 
66
$ cc'OP' 'source'.C
 
67
$ MODIF = MODIF + 1             ! At least 1 module was modified...
 
68
$ ver = f$verify(ver)
 
69
$goto MODU_LOOP
 
70
$!
 
71
$MODU_END:
 
72
$ if (F$LOCATE("TEST",P2) .lt. F$LENGTH(P2))    then goto PGM_LINK
 
73
$ set ver
 
74
$ LIB 'FLIB' 'MODULES'
 
75
$ set nover
 
76
$ if (P1 .nes. "S")     then goto DEL_LIS
 
77
$!
 
78
$! Creation of Shareable Library
 
79
$!
 
80
$ if (MODIF .eq. 0)     then goto DEL_LIS
 
81
$ set ver
 
82
$ WRITE SYS$OUTPUT "....Creating the Shareable Library"
 
83
$ MAC 'FLIB'/obj='FLIB'
 
84
$ LINK/SHARE='FLIB' 'FLIB'.opl/opt
 
85
$ @'FLIB'.inst
 
86
$ set nover
 
87
$ goto DEL_LIS
 
88
$!
 
89
$!=============================================================
 
90
$!              Link Test Program
 
91
$!=============================================================
 
92
$!
 
93
$PGM_LINK:
 
94
$ set verify
 
95
$ LIN'OPL' 'P2','FLIB''OPB'
 
96
$ ver = f$verify(ver)
 
97
$ goto DEL_LIS
 
98
$!
 
99
$!-------------------------------------------------------------
 
100
$!
 
101
$DEL_LIS:
 
102
$ DELETE *.LIS;*/lo
 
103
$ I = 0
 
104
$!-------------------------------------------------------------
 
105
$FIN:
 
106
$ ver = f$verify(ver)
 
107
$ EXIT