1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
\ (C) Copyright 2005-2006 IBM Corporation. All Rights Reserved.
\ Licensed under the Common Public License (CPL) version 1.0
\ for full details see:
\ http://www.opensource.org/licenses/cpl1.0.php
\
\ Module Author: David L. Paktor dlpaktor@us.ibm.com
\ Control file for loading of Local Values Support file with variants.
\ Command-line Symbol-definitions select whether the support will
\ be under Global-Definitions, and whether to include the extra
\ Development-time support features.
\
\ The command-line symbols are:
\ Global-Locals
\ and
\ Locals-Release
\
\ The default is device-node-specific support in a Development-time setting.
\
\ If Global-Locals is defined, support will be under Global-Definitions
\ If Locals-Release is defined, this is a final production release run,
\ and the Development-time support features will be removed.
\ Make sure this option is turned on.
[flag] Local-Values
[ifdef] Global-Locals
\ Load Support file under Global-Definitions.
global-definitions
\ Bypass warning about Instance without altering LocalValuesSupport file
alias generic-instance instance
[macro] bypass-instance f[ noop .( Bypassed instance!) f]
overload alias instance bypass-instance
[endif] \ Global-Locals
fload LocalValuesSupport.fth
[ifndef] Locals-Release
\ Load Development-time support features
fload LocalValuesDevelSupport.fth
[endif] \ not Locals-Release
[ifdef] Global-Locals
\ Replace normal meaning of Instance, still in Global scope.
overload alias instance generic-instance
\ Restore Device-Definitions scope.
device-definitions
[endif] \ Global-Locals
|
