Custom Library Messages

version 4/120212 by Ron Newcomb

  • Home page
  • Beginning
  • Previous
  • Next



  • Chapter - Miscellaneous Fixes - unindexed

    To say #if American dialect: (- #ifdef DIALECT_US; -).
    To say #if Z-machine: (- #ifdef TARGET_ZCODE; -).
    To say #otherwise: (- #Ifnot; -).
    To say #end if: (- #endif; -).

    [ The list writer has these linking verbs hard-coded as print (string), so we replace them just-in-time. ]
    Include (-
    [ Switch__TX t;
        if (((t - 1) & 1) == 0) { IS__TX = " is"; ARE__TX = " are"; IS2__TX = "is "; ARE2__TX = "are "; IS3__TX = "is"; ARE3__TX = "are"; }
        else { IS__TX = " was"; ARE__TX = " were"; IS2__TX = "was "; ARE2__TX = "were "; IS3__TX = "was"; ARE3__TX = "were"; }
    ];-).

    [ Overrides the one in the Standard Rules to call the above. ]
    To list the contents of (O - an object), with newlines, indented, giving inventory information, as a sentence, including contents, including all contents, tersely, giving brief inventory information, using the definite article, listing marked items only, prefacing with is/are, not listing concealed items, suppressing all articles and/or with extra indentation: (- Switch__TX((+ story tense +)); WriteListFrom(child({O}), {phrase options}); -).