InfixWatchOnSub (lines 949-964)
Back to List
Browsing infix.h
0949 [ InfixWatchOnSub i j k l;
0950 if (noun == 0) return InfixDescribeWatchSub();
0951 if (infix_term_type == INFIXTT_ROUTINE) {
0952 i = infix_parsed_lvalue/8;
0953 for (j=0,k=1 : j<infix_parsed_lvalue%8 : j++) k=k*2;
0954 l = #routine_flags_array->i;
0955 l = l | k;
0956 @storeb #routine_flags_array i l;
0957 "; Watching routine ", (InfixPrintRoutine) infix_parsed_lvalue, ".";
0958 }
0959 if (metaclass(noun) == Object) {
0960 give noun infix__watching;
0961 "; Watching object ~", (name) noun, "~ (", noun, ").";
0962 }
0963 InfixDescribeWatchSub();
0964 ];
Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.