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