PPWIZARD is a free preprocessor for HTML, REXX, Visual Basic or any text files.
This is a rexx function provided by
PPWIZARD.
This routine (like all PPWIZARD extensions) can be used with any operating system supported by PPWIZARD.
This function returns the value of an operating system environment
variable.
An empty string is returned if the variable is unknown.
The parameters are as follows:
- Variable Name
This is the name of the environment variable.
- Die if Missing?
This optional variable is used to tell ppwizard to abort if the
variable could not be found.
To tell PPWIZARD to abort pass upper case 'Y'.
;--- Lets keep all WORK/HOME conditional logic here -------------------------
#define AtHome translate(GetEnv("PRJSRCDIR", 'Y')) = "E:\DB\PROJECTS\HOMEPAGE\HTML"
#define AtWork translate(GetEnv("PRJSRCDIR", 'Y')) <> "E:\DB\PROJECTS\HOMEPAGE\HTML"
...
...
;--- External Links ---------------------------------------------------------
#if <$AtHome>
#define ExtLink <A TARGET=_top HREF="{$URL}">{$VISIBLE=`{$URL}`}</A>
#elseif
#define ExtLink {$VISIBLE=`{$URL}`}{$URL-}
#endif
PPWIZARD Manual

Thursday January 17 2002 at 6:27pm