1/**/ 2Parse Arg option 3'EDITV SETL SCM_ERROR_LINES 10' 4'EDITV SETL SCM_LOG_FILE build.log' 5vc_error = "!fn '(' !line ') :' . 'error' . ':' !msg" 6vc_warning = "!fn '(' !line ') : warning' . ':' !msg" 7wcc_error = "!fn '(' !line '): Error!' . ':' !msg" 8wcc_warning = " !fn '(' !line '): Warning!' . ':' !msg" 9gcc_error = "!fn ':' !line ':' !msg" 10gcc_warning = "!fn ':' !line ': warning:' !msg" 11'extract /version' 12Select 13 When version.3 = 'WIN32' Then 14 Do 15 machine = Value('COMPUTERNAME',,'ENVIRONMENT') 16 End 17 When version.3 = 'UNIX' | version.3 = 'QNX' Then 18 Do 19 machine = 'hostname'() 20 End 21 Otherwise machine = '?' 22End 23Select 24 When option = 'the-vc' Then 25 Do 26 If machine = 'SNARK' Then pth = 'e:\the' 27 Else pth = 'f:\the-2.8' 28 'EDITV SETL SCM_KEY_EXIT F3' 29 'EDITV SETL SCM_KEY_SHOW1 ENTER' 30 'EDITV SETL SCM_KEY_SHOW2 2LB in FILEAREA' 31 'EDITV SETL SCM_MAKE_COMMAND nmake -f' pth || '\vcwin32.mak INT=REXXTRANS the.exe' 32 'EDITV SETL SCM_MAKE_DIR' pth || '\vc-rexxtrans' 33 "EDITV SETL SCM_ERROR_FORMAT" vc_error 34 "EDITV SETL SCM_WARNING_FORMAT" vc_warning 35 End 36 When option = 'the-4r' Then 37 Do 38 If Value('COMPUTERNAME',,'ENVIRONMENT') = 'SNARK' Then pth = 'e:\the' 39 Else pth = 'f:\the-2.8' 40 'EDITV SETL SCM_KEY_EXIT F3' 41 'EDITV SETL SCM_KEY_SHOW1 ENTER' 42 'EDITV SETL SCM_KEY_SHOW2 2LB in FILEAREA' 43 'EDITV SETL SCM_MAKE_COMMAND wmake -e -f' pth || '\wccwin32.mak DEBUG=Y INT=REXXTRANS the.exe' 44 'EDITV SETL SCM_MAKE_DIR' pth || '\4r' 45 "EDITV SETL SCM_ERROR_FORMAT" wcc_error 46 "EDITV SETL SCM_WARNING_FORMAT" wcc_warning 47 End 48 When option = 'the-ncurses' Then 49 Do 50 'EDITV SETL SCM_KEY_EXIT F3' 51 'EDITV SETL SCM_KEY_SHOW1 ENTER' 52 'EDITV SETL SCM_KEY_SHOW2 2LB in FILEAREA' 53 'EDITV SETL SCM_MAKE_COMMAND make the' 54 'EDITV SETL SCM_MAKE_DIR /home/mark/THE-2.8/ncurses' 55 "EDITV SETL SCM_ERROR_FORMAT" gcc_error 56 "EDITV SETL SCM_WARNING_FORMAT" gcc_warning 57 End 58 When option = 'the-xcurses' Then 59 Do 60 'EDITV SETL SCM_KEY_EXIT F3' 61 'EDITV SETL SCM_KEY_SHOW1 ENTER' 62 'EDITV SETL SCM_KEY_SHOW2 2LB in FILEAREA' 63 'EDITV SETL SCM_MAKE_COMMAND make the' 64 'EDITV SETL SCM_MAKE_DIR /home/mark/THE-2.8/xcurses' 65 "EDITV SETL SCM_ERROR_FORMAT" gcc_error 66 "EDITV SETL SCM_WARNING_FORMAT" gcc_warning 67 End 68 When option = 'tos' Then 69 Do 70 'EDITV SETL SCM_KEY_EXIT F3' 71 'EDITV SETL SCM_KEY_SHOW1 ENTER' 72 'EDITV SETL SCM_KEY_SHOW2 2LB in FILEAREA' 73 'EDITV SETL SCM_MAKE_COMMAND nmake DEBUG=Y' 74 'EDITV SETL SCM_MAKE_DIR e:\tos\rel5\server\make' 75 "EDITV SETL SCM_ERROR_FORMAT" vc_error 76 "EDITV SETL SCM_WARNING_FORMAT" vc_warning 77 "EDITV SETL SCM_SOFTWARE vss" 78 End 79 When option = 'tos4' Then 80 Do 81 'EDITV SETL SCM_KEY_EXIT F3' 82 'EDITV SETL SCM_KEY_SHOW1 ENTER' 83 'EDITV SETL SCM_KEY_SHOW2 2LB in FILEAREA' 84 'EDITV SETL SCM_MAKE_COMMAND nmake DEBUG=Y' 85 'EDITV SETL SCM_MAKE_DIR e:\tos\rel4\server\make' 86 "EDITV SETL SCM_ERROR_FORMAT" vc_error 87 "EDITV SETL SCM_WARNING_FORMAT" vc_warning 88 "EDITV SETL SCM_SOFTWARE vss" 89 End 90 Otherwise 91 Do 92 'emsg Must supply an environment' 93 Return 1 94 End 95End 96Return 0 97