InfixWatchOnSub (lines 897-912)
Back to List
Browsing infix.h
0897 [ InfixWatchOnSub i j k l;
0898 if (noun == 0) return InfixDescribeWatchSub();
0899 if (infix_term_type == INFIXTT_ROUTINE)
0900 { i = infix_parsed_lvalue/8;
0901 for (j=0,k=1:j<infix_parsed_lvalue%8:j++) k=k*2;
0902 l = #routine_flags_array->i;
0903 l = l | k;
0904 @storeb #routine_flags_array i l;
0905 "; Watching routine ", (InfixPrintRoutine) infix_parsed_lvalue, ".";
0906 }
0907 if (metaclass(noun) == Object)
0908 { give noun infix__watching;
0909 "; Watching object ~", (name) noun, "~ (", noun, ").";
0910 }
0911 InfixDescribeWatchSub();
0912 ];
Last updated 27 February 2004.
This site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation.
Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.