! ==============================================================================
! INFIX: Support for the optional library debugger extension "Infix".
!
-! Supplied for use with Inform 6 -- Release 6.12.1 -- Serial number 160605
+! Supplied for use with Inform 6 -- Release 6.12.4 -- Serial number 200718
!
-! Copyright Graham Nelson 1993-2004 and David Griffith 2012-2016
+! Copyright Graham Nelson 1993-2004 and David Griffith 2012-2020
!
! This file is free software: you can redistribute it and/or modify
! it under the terms of the GNU Affero General Public License as
i2 = range2-range1; it2 = infix_text+WORDSIZE;
for (i=0 : i<=i2 : i++) {
- #ifdef TARGET_ZCODE;
+ #Ifdef TARGET_ZCODE;
infix_text-->0 = 62; @output_stream 3 infix_text;
if (t) print (string) t-->i; else PrintingRule(i+range1);
@output_stream -3;
- #ifnot; ! TARGET_GLULX
+ #Ifnot; ! TARGET_GLULX
if (t) PrintToBuffer(infix_text, 62, t-->i);
else PrintToBuffer(infix_text, 62, PrintingRule, i+range1);
- #endif; ! TARGET_
+ #Endif; ! TARGET_
k = infix_text-->0;
if (k ~= wl) jump XL;
if (itlc->(it2->0) ~= itlc->(wa->0)) jump XL;
(InfixRV_lop-->lvalside)-->(InfixRV_rop-->lvalside) = acc;
default:
w = InfixRV_lvals-->lvalside; if (w == -1) return -1;
- #ifdef TARGET_ZCODE;
+ #Ifdef TARGET_ZCODE;
@storew #globals_array w acc;
- #ifnot;
+ #Ifnot;
@astore #globals_array w acc;
- #endif;
+ #Endif;
}
switch(InfixRV_rvals-->maxi) {
'post++': acc--;
new_line;
INFIXTT_NAMEDOBJECT:
print "~", (name) noun, "~ (", noun, ")^"; if (brief) return;
- <<Showobj noun>>;
+ <<ShowObj noun>>;
INFIXTT_CONSTANT:
if (brief) "; == ", noun;
switch (infix_data1 & 15) {
nothing:
print "; Constant ", (InfixPrintConstant) infix_parsed_lvalue,
" == ", noun, "^";
- 2: <<Showobj noun>>;
+ 2: <<ShowObj noun>>;
1:
print "Class ", (name) noun, "^";
objectloop (a ofclass noun) {
if (a & 128) print "noun ";
}
new_line;
- if (a & 1) <<Showverb noun>>;
+ if (a & 1) <<ShowVerb noun>>;
INFIXTT_ROUTINE:
if (brief) "; == ", noun;
print "; Routine ", (InfixPrintRoutine) infix_parsed_lvalue, " (number ",
for (b=0 : b < #dictionary_table-->0 : b++) {
w = #dictionary_table + WORDSIZE + b*(DICT_WORD_SIZE + 7);
if ((w->#dict_par1) & 1) {
- a = (#grammar_table)-->($100-(w->#dict_par2));
+ a = (#grammar_table)-->(DictionaryWordToVerbNum(w) + 1);
lines = a->0; a++;
for (: lines>0 : lines--) {
a = UnpackGrammarLine(a);
for (j=0,k=1 : j<infix_parsed_lvalue%8 : j++) k=k*2;
l = #routine_flags_array->i;
l = l | k;
- #ifdef TARGET_ZCODE;
+ #Ifdef TARGET_ZCODE;
@storeb #routine_flags_array i l;
- #ifnot; ! TARGET_GLULX
+ #Ifnot; ! TARGET_GLULX
@astoreb #routine_flags_array i l;
- #endif; ! TARGET_
+ #Endif; ! TARGET_
"; Watching routine ", (InfixPrintRoutine) infix_parsed_lvalue, ".";
}
if (metaclass(noun) == Object) {
for (j=0,k=1 : j<infix_parsed_lvalue%8 : j++) k=k*2;
l = #routine_flags_array->i;
l = l & (~k);
- #ifdef TARGET_ZCODE;
+ #Ifdef TARGET_ZCODE;
@storeb #routine_flags_array i l;
- #ifnot; ! TARGET_GLULX
+ #Ifnot; ! TARGET_GLULX
@astoreb #routine_flags_array i l;
- #endif; ! TARGET
+ #Endif; ! TARGET
"; Not watching ", (InfixPrintRoutine) infix_parsed_lvalue, ".";
}
if (metaclass(noun) == Object) {
- #ifdef TARGET_ZCODE;
+ #Ifdef TARGET_ZCODE;
@clear_attr noun infix__watching;
- #ifnot; ! TARGET_GLULX
+ #Ifnot; ! TARGET_GLULX
@astorebit noun (infix__watching+8) 0;
- #endif; ! TARGET_
+ #Endif; ! TARGET_
"; Not watching object ~", (name) noun, "~ (", noun, ").";
}
InfixDescribeWatchSub();