! ---------------------------------------------------------------------------- ! INFIX: Support for the optional library extension "Infix". ! ! Supplied for use with Inform 6 Serial number 991113 ! Release 6/10 ! (c) Graham Nelson 1999 ! but freely usable (see manuals) ! ---------------------------------------------------------------------------- System_file; Ifdef DEBUG; Constant INFIXTT_NUMBER 0; Constant INFIXTT_ARRAY 1; Constant INFIXTT_ROUTINE 2; Constant INFIXTT_CONSTANT 3; Constant INFIXTT_DWORD 4; Constant INFIXTT_ACTION 5; Constant INFIXTT_ATTRIBUTE 6; Constant INFIXTT_PROPERTY 7; Constant INFIXTT_GLOBAL 8; Constant INFIXTT_NAMEDOBJECT 9; Constant INFIXTT_SYSFUN 10; Constant INFIXTT_STATICSTRING 11; Constant INFIXTT_LOGICAL 12; Global infix_term_type; Global infix_data1; Global infix_data2; Global infix_lvalue; Global infix_parsed_lvalue; Array infix_tolowercase -> 256; Array infix_text -> 128; [ InfixPrintAttribute x; print (string) #attribute_names_array-->x; ];