|
Revision 102, 0.8 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 Locals Support under Global-Definitions. Bypass Instance warning |
|---|
| 9 | |
|---|
| 10 | \ Make sure this option is turned on. |
|---|
| 11 | [flag] Local-Values |
|---|
| 12 | |
|---|
| 13 | global-definitions |
|---|
| 14 | |
|---|
| 15 | \ Bypass warning about Instance without altering LocalValuesSupport file |
|---|
| 16 | alias generic-instance instance |
|---|
| 17 | [macro] bypass-instance f[ noop .( Bypassed instance!) f] |
|---|
| 18 | |
|---|
| 19 | overload alias instance bypass-instance |
|---|
| 20 | |
|---|
| 21 | fload LocalValuesSupport.fth |
|---|
| 22 | |
|---|
| 23 | \ Replace normal meaning of Instance, still in Global scope. |
|---|
| 24 | overload alias instance generic-instance |
|---|
| 25 | |
|---|
| 26 | \ Restore Device-Definitions scope. |
|---|
| 27 | device-definitions |
|---|
