Hash :
ed679850
Author :
Date :
2006-10-30T17:01:46
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 52
\ %Z%%M% %I% %W% %G% %U%
\ (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