summaryrefslogtreecommitdiff
path: root/cmsmvs/zip.exec
blob: 0b9de97c5b7a89ab15ff1e79ba8ead8d60a41d20 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
/***********************************************************************/
/*                                                                     */
/* Front-end EXEC to set up linkage to the C runtime libraries         */
/* before executing a MODULE generated from C code.                    */
/*                                                                     */
/* Copy this file as an EXEC with a filename matching the C MODULE.    */
/*                                                                     */
/* Greg Hartwig (ghartwig@vnet.ibm.com)   7/31/97, 4/24/98.            */
/*                                                                     */
/***********************************************************************/
Address Command
Parse Arg argstring
Parse Source . . myname .

/* Set output and input character translation so brackets show up */
'SET OUTPUT AD' 'BA'x
'SET OUTPUT BD' 'BB'x
'SET INPUT  BA   AD'
'SET INPUT  BB   BD'

Call CLIB
If rc<>0 Then Do
   Say 'The required C runtime libraries don''t appear to be available.'
   Say myname 'can not run.'
   Exit 12
End

/* Run the command */
myname argstring
Exit rc




/* Contents of the CLIB EXEC, modified for RC checking.        */
/* Removed TXTLIB setting.  Only LOADLIB needed for execution. */
CLIB:
/***************************************************/
/*      SET UP LIBRARIES FOR LE for MVS & VM       */
/***************************************************/
Address COMMAND

loadlib  ='EDCLINK'               /* C/370 runtime                 */
loadlib  ='SCEERUN'               /* LE runtime                    */


theirs=queued()                           /* old stack contentsM068*/
 'QUERY LOADLIB ( LIFO'                   /* old setting       M068*/
 LoadlibList=''                           /* init list         M068*/
rc=0
 Do while queued()^=theirs                /* all lines from cmdM068*/
   Parse upper pull 'LOADLIB' '=' Ltemp   /* get one line      M068*/
   LoadlibList= Ltemp Loadliblist         /* was stacked LIFO  M068*/
 End                                                         /*M068*/
 If loadlibList='NONE' ,
 Then Do
  'GLOBAL LOADLIB' Loadlib          /* enforce what we need         */
 End
 Else Do
  Do xx=1 to Words(loadlib)
  If Find(loadliblist,word(loadlib,xx)) = 0 ,
   then loadliblist = loadliblist word(loadlib,xx)
  End
  'GLOBAL LOADLIB' loadliblist       /* enforce what we need         */
 End
Return