home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / SREFPRC1 / MAKELIB.CMD < prev    next >
OS/2 REXX Batch file  |  1997-07-13  |  4KB  |  116 lines
  1. /* This will create SREFLIB.RXF : a set of  SRE-FILTER
  2. functions to be loaded into MacroSpace.  Run this if
  3. you modify the source code (the .SRF files).
  4. */
  5.  
  6.  
  7.  
  8.  
  9. foo=rxfuncquery('rexxlibregister')
  10. if foo=1 then do
  11.  say ' loading REXXLIB '
  12.  call rxfuncadd 'rexxlibregister','rexxlib', 'rexxlibregister'
  13.  call rexxlibregister
  14. end
  15. /*--------------   Load REXX libraries ----- */
  16. /* Load up advanced REXX functions */
  17. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  18. call SysLoadFuncs
  19.  
  20.  
  21.  
  22. say " saving old macrospace "
  23. sstat=macrosave('tmp.rxl')
  24. if sstat=0 then
  25.  say " .. macrospace is empty ?! "
  26. goo=macroclear()
  27.  
  28. say " Adding srefilter procs to macrospace "
  29. retc=amacro('OPENREAD.SRF','SREF_OPEN_READ','Before')
  30. retc=amacro('GRABFIL1.SRF','SREF_GRAB_FILE','Before')
  31. retc=amacro('REPSTRG.SRF','SREF_REPLACESTRG','Before')
  32. retc=amacro('MEDIATYP.SRF','SREF_MEDIATYPE','Before')
  33. retc=amacro('HOST.SRF','SREF_HOST','Before')
  34. retc=amacro('LOOKUP.SRF','SREF_LOOKUP_COUNT','Before')
  35. retc=amacro('EXTRACTB.SRF','SREF_EXTRACT_BLOCK','Before')
  36. retc=amacro('INSERTB.SRF','SREF_INSERT_BLOCK','Before')
  37. retc=amacro('MAKEB.SRF','SREF_MAKE_BLOCK','Before')
  38. retc=amacro('FIX_URL.SRF','SREF_FIX_URL','Before')
  39. retc=amacro('GET_URL.SRF','SREF_GET_URL','Before')
  40. retc=amacro('GMTTIME.SRF','SREF_NEW_GMT','Before')
  41. retc=amacro('EXPIRE.SRF','SREF_EXPIRE_RESPONSE','Before')
  42. retc=amacro('SPECIAL.SRF','SREF_SPECIAL_REQUEST','Before')
  43. retc=amacro('RANGE.SRF','SREF_PROCESS_RANGE','Before')
  44. retc=amacro('AUTOHEAD.SRF','SREF_DO_AUTO_HEADER','Before')
  45. retc=amacro('DOPUT.SRF','SREF_DO_PUT','Before')
  46. retc=amacro('GETREMOT.SRF','SREF_GET_REMOTE','Before')
  47. retc=amacro('HOSTINFO.SRF','SREF_HOST_INFO','Before')
  48. retc=amacro('BADIPS.SRF','SREF_BADIPS','Before')
  49. retc=amacro('CGIVARS.SRF','SREF_CGIVARS','Before')
  50. retc=amacro('GTCOOKIE.SRF','SREF_GET_COOKIE','Before')
  51. retc=amacro('DOVIRT.SRF','SREF_DO_VIRTUAL','Before') 
  52. retc=amacro('HTACCESS.SRF','SREF_HTACCESS','Before')
  53. retc=amacro('DATEFMT.SRF','SREF_DATETIME_CONVERT','Before')
  54. retc=amacro('NOTFOUND.SRF','SREF_NOT_FOUND_RESPONSE','Before')
  55. retc=amacro('RESPONSE.SRF','SREF_RESPONSE','Before')
  56. retc=amacro('PUBURLS.SRF','SREF_PUBLIC_URLS','Before')
  57. retc=amacro('ISAMOVE.SRF','SREF_ISA_MOVE','Before')
  58. /*retc=amacro('ADDHITC.SRF','SREF_ADD_HIT_CACHE','Before') */
  59. /*retc=amacro('LOOKHITC.SRF','SREF_LOOK_HIT_CACHE','Before')*/
  60. retc=amacro('CLIENTNM.SRF','SREF_CLIENTNAME','Before')
  61. retc=amacro('PMPRINTF.SRF','PMPRINTF_SREF','Before')
  62.  
  63. retc=amacro('ADDPRIVS.SRF','SREF_ADD_PRIVS','Before')
  64. RETC=AMACRO('GETPRIVS.SRF','SREF_GET_ADD_PRIVS','Before')
  65. retc=amacro('SAVESTAT.SRF','SREF_SAVE_STATE','Before')
  66. retc=amacro('READSTAT.SRF','SREF_READ_STATE','Before')
  67. retc=amacro('WRTESTAT.SRF','SREF_WRITE_STATE','Before')
  68. retc=amacro('HOMEDIR.SRF','SREF_HOME_DIR','Before')
  69. retc=amacro('DIR.SRF','SREF_DIR','Before')
  70. retc=amacro('AUTODESC.SRF','SREF_AUTO_DESCRIBE','Before')
  71. retc=amacro('CHKBROWS.SRF','SREF_BROWSER_INFO','Before')
  72. retc=amacro('MULTSEND.SRF','SREF_MULTI_SEND','Before')
  73.  
  74. retc=amacro('INI_CNTR.SRF','SREF_INIT_COUNTER','Before')
  75. retc=amacro('WILDCARD.SRF','SREF_WILDCARD','Before')
  76. retc=amacro('JULDATE.SRF','SREF_JULDATE','Before')
  77. retc=amacro('SREFVER.SRF','SREF_VERSION','Before')
  78.  
  79. retc=amacro('ADVOPTH.SRF','sref_adv_opts_header','Before')
  80. retc=amacro('ADVOPTE.SRF','sref_adv_opts_exec','Before')
  81.  
  82.  
  83. retc=amacro('CONJUREF.srf','SREF_CONJUREF','Before')
  84. retc=amacro('DOCGI.srf','SREF_DOCGI','Before')
  85. retc=amacro('DOCGI2.srf','SREF_DOCGI_PIECES','Before')
  86. retc=amacro('DOCGI3.srf','SREF_DOCGI_PIECES_2','Before')
  87.  
  88. /* retc=amacro('CHK_PRIV.srf','SREF_CHK_PRIV','Before') */
  89. retc=amacro('GETPOST.srf','SREF_GETPOST','Before')
  90. retc=amacro('MAPIMAGE.srf','SREF_MAPIMAGE','Before')
  91. retc=amacro('MAILIT.srf','SREF_MAILIT','Before')
  92. retc=amacro('SSI.SRF','SREF_DO_SSI','Before')
  93.  
  94.  
  95.  
  96. say " Creating macrospace library for SRE-FILTER "
  97. foo=macrosave('srefprc1.rxl')
  98. say " save status " foo
  99. /*aa=dirfile('srefprc1.rxl')*/
  100.  
  101. goo=macroclear()
  102. if sstat=0 then do
  103.   say " restoring old macrospace "
  104.   aa=macroload('tmp.rxl')
  105. end
  106. a=sysfiledelete('tmp.rxl')
  107.  
  108. exit
  109.  
  110. amacro:
  111. parse arg v1,v2,v3
  112. v3=left(v3,1)
  113. foo=macroadd(v2,v1,v3)
  114. return foo
  115.  
  116.