blob: 79194e218390eed6d8ff1f979cc95b11a480e610 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
$!
$! Patch the Macro32 compiler and optional assemble
$!-----------------------------------------------------
$ patched_macro = "sys$disk:[]macro32_exactcase.exe"
$ if f$search(patched_macro) .eqs. ""
$ then
$ copy sys$system:macro32.exe 'patched_macro'
$ patch @[.vms]macro32_exactcase.patch
$ endif
$! Usage:
$ xfer_file_source = p1
$ if f$search(p1) .nes. ""
$ then
$ define/user macro32 'patched_macro'
$ macro/lis 'p1'
$ endif
|
