zipnote.exec

infozip2.2源码

/***********************************************************************/
/*                                                                     */
/* 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 ([e-mail])   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