2 $! build procedure for regina on vms
3 $! - sample environment and invoke mmk/mms
9 $ DELETE/NOLOG *.OBJ;*,*.EXE;*
24 $ IF F$GETSYI("VERSION") .GTS. "V5.2"
27 $ IF F$EDIT(F$GETSYI("ARCH_NAME"),"UPCASE") .EQS. "ALPHA"
34 $ IF F$GETSYI("VERSION") .LTS. "V6.2"
36 $ MACRO2 = "DOESNT_HAVE_UNAME"
38 $ IF F$GETSYI("VERSION") .LES. "V7.0"
40 $ MACRO2 = "DOESNT_HAVE_UNAME"
45 $ MACRO1 = "VAX" ! accounts for early versions of vms
48 $ ! double quote character
50 $ _MAKE="MMK /DESCRIP=DESCRIP.MMS /OUTPUT=''MACRO1'_BUILD.LOG"
51 $ IF MACRO3 .NES. "UNDEF"
53 $ _MACRO = DQ + MACRO1 + DQ + "," + DQ + MACRO2 + DQ + "," + DQ + MACRO3 + DQ
55 $ IF MACRO2 .NES. "UNDEF"
57 $ _MACRO = DQ + MACRO1 + DQ + "," + DQ + MACRO2 + DQ
59 $ _MACRO = DQ + MACRO1 + DQ
63 $ IF DEBUG THEN _MACRO = _MACRO + "," + DQ + "DEBUG" + DQ
65 $ '_MAKE' /MACRO=('_MACRO')
67 $! IF F$SEARCH("REXX.EXE") .NES. "" THEN COPY REXX.EXE REXX.EXE_'MACRO1'
68 $! IF F$SEARCH("REGINA.EXE") .NES. "" THEN COPY REGINA.EXE REGINA.EXE_'MACRO1'
69 $! IF F$SEARCH("EXERCISER.EXE") .NES. "" THEN COPY EXERCISER.EXE EXERCISER.EXE_'MACRO1'
71 $ _V = F$VERIFY(_V) ! reset