home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 9 Archive
/
09-Archive.zip
/
zip22.zip
/
cmsmvs
/
zipsplit.exec
< prev
next >
Wrap
Text File
|
1997-08-17
|
4KB
|
94 lines
/***********************************************************************/
/* */
/* 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. */
/* */
/***********************************************************************/
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 */
CLIB:
/* Rexx ********************************************/
/* */
/* C/370 */
/* Release 2.0 */
/* */
/* 5688-040 (C) Copyright IBM Corp. 1989 */
/* */
/***************************************************/
/* Set up libraries for C/370 */
/***************************************************/
Address COMMAND
Txtlib ='EDCBASE IBMLIB CMSLIB' /* required txtlibs */
loadlib ='EDCLINK' /* required Loadlib */
theirs=queued() /* old stack contentsM068*/
'QUERY TXTLIB ( LIFO' /* old setting M068*/
TxtlibList='' /* init list M068*/
rc=0
Do while queued()^=theirs /* all lines from cmdM068*/
Parse upper pull 'TXTLIB' '=' temp /* get one line M068*/
TxtlibList= temp Txtliblist /* was stacked LIFO M068*/
End /*M068*/
If TxtlibList='NONE' ,
Then Do
'GLOBAL TXTLIB' Txtlib /* enforce what we need */
End
Else Do
Do xx=1 to Words(txtlib)
If Find(txtliblist,word(txtlib,xx)) = 0 ,
then txtliblist = txtliblist word(txtlib,xx)
End
'GLOBAL TXTLIB' Txtliblist /* enforce what we need */
End
If rc<>0 Then Return
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