PPWIZARD Manual
[Bottom][Contents][Search][Prev]: #Unknown Commands[Next]: <??RexxVariable>

Standard Definitions

There are a number of "standard" definitions which have been predefined and can be placed almost anywhere in your source code. The variables can be in any case, they are:

Note that you can define your own variations of "standard" variables with the "#evaluate" command, for example to create an alternative way to display the Compile Time.

EXAMPLES OF CREATING VARIABLES

    ;--- Capture some HTML information ------------------------------------------
    #evaluate ShortNameHtml            "_filespec('name', '<?OutputFile>')"
    #evaluate ShortNameHtmlLowerCase   "translate('<$ShortNameHtml>', 'abcdefghijklmnopqrstuvwxyz', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ')"
    
    ;--- Capture date/time information (<$DateTime> --> Friday March 27 1998 at 7<$colon>46pm ---
    #evaluate DateTime @date('WeekDay') || ' ' || date('Month') || ' ' || substr(date('Sorted'), 7, 2) || ' ' || left(date('Sorted'), 4) || ' at ' || time('Civil')@
    
    ;--- Determine the current directory ----------------------------------------
    The current directory is "<?=directory()>".
    
    ;--- Create YY.DDD Version # (example "98.107") --------------------------------------
    #evaluate YYDDD    ~substr(date('Sorted'),3,2) || '.' || date('Days')~
    
   ;--- Outputs the size of a file (takes parameter "File") --------------------
   #define SizeOfFile                                                                                                         \
           #evaluate+  LocalFileName    ^ReplaceString("../{$File}", "/", "\")^                                               \
           #DependsOn  INPUT            "<$LocalFileName>"                                                                    \
           #evaluate+  TmpFileSize      ^AddCommasToDecimalNumber(stream("<$LocalFileName>", "c", "query size"))^             \
           #if "<$TmpFileSize>" = ""                                                                                          \
               #error $Failed getting size of "<$LocalFileName>"$                                                             \
           #endif                                                                                                             \
           <$TmpFileSize>
   #define SizeOfFileInSmallFont   <FONT SIZE=-1>{$Before=""}<$SizeOfFile File=*{$File}*> bytes{$After=""}</FONT>
   #define (SizeOfFileInSmallFont) <$SizeOfFileInSmallFont File=*{$File}* Before='(' After=')'>
   ;--- Outputs the date (Ausi format... YES!) (takes parameter "File") --------
   #define DateOfFile                                                                                                                                \
           #evaluate+  LocalFileName    ^ReplaceString("../{$File}", "/", "\")^                                                                      \
           #DependsOn  INPUT            "<$LocalFileName>"                                                                                           \
           #evaluate+  TmpFileTime      ^stream("<$LocalFileName>", "c", "query datetime")^                                                          \
           #if "<$TmpFileTime>" = ""                                                                                                                 \
               #error $Failed getting date/time of "<$LocalFileName>"$                                                                               \
           #endif                                                                                                                                    \
           #evaluate+ TmpFileDate       ~substr('<$TmpFileTime>', 4, 2) || '/' || left('<$TmpFileTime>', 2) || '/' || substr('<$TmpFileTime>', 7,2)~ \
           <$TmpFileDate>
   #define DateOfFileInSmallFont   <FONT SIZE=-1>{$Before=""}<$DateOfFile File=*{$File}*>{$After=""}</FONT>


[Top][Contents][Search][Prev]: #Unknown Commands[Next]: <??RexxVariable>

PPWIZARD Manual
My whole website and this manual itself was developed using PPWIZARD (free preprocessor written by Dennis Bareis)
Tuesday January 02 2001 at 7:37am