|
Revision 102, 1.0 KB
(checked in by stepan, 2 years ago)
|
|
localvalues support, contributed by David Paktor <dlpaktor@…>
|
| Line | |
|---|
| 1 | \ (C) Copyright 2005 IBM Corporation. All Rights Reserved. |
|---|
| 2 | \ Licensed under the Common Public License (CPL) version 1.0 |
|---|
| 3 | \ for full details see: |
|---|
| 4 | \ http://www.opensource.org/licenses/cpl1.0.php |
|---|
| 5 | \ |
|---|
| 6 | \ Module Author: David L. Paktor dlpaktor@us.ibm.com |
|---|
| 7 | |
|---|
| 8 | \ Load Support file for development of FCode that uses Local Values |
|---|
| 9 | \ under Global-Definitions. Bypass Instance warning. |
|---|
| 10 | \ Replace this with GlobalLocalValues.fth in your final product. |
|---|
| 11 | |
|---|
| 12 | \ Make sure this option is turned on. |
|---|
| 13 | [flag] Local-Values |
|---|
| 14 | |
|---|
| 15 | global-definitions |
|---|
| 16 | |
|---|
| 17 | \ Bypass warning about Instance without altering LocalValuesSupport file |
|---|
| 18 | alias generic-instance instance |
|---|
| 19 | [macro] bypass-instance f[ noop .( Bypassed instance!) f] |
|---|
| 20 | |
|---|
| 21 | overload alias instance bypass-instance |
|---|
| 22 | |
|---|
| 23 | fload LocalValuesSupport.fth |
|---|
| 24 | fload LocalValuesDevelSupport.fth |
|---|
| 25 | |
|---|
| 26 | \ Replace normal meaning of Instance, still in Global scope. |
|---|
| 27 | overload alias instance generic-instance |
|---|
| 28 | |
|---|
| 29 | \ Restore Device-Definitions scope. |
|---|
| 30 | device-definitions |
|---|
