Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing infix.h

InfixWatchOffSub (lines 913-928)

0913  [ InfixWatchOffSub i j k l;
0914    if (noun == 0) return InfixDescribeWatchSub();
0915    if (infix_term_type == INFIXTT_ROUTINE)
0916    {   i = infix_parsed_lvalue/8;
0917        for (j=0,k=1:j<infix_parsed_lvalue%8:j++) k=k*2;
0918        l = #routine_flags_array->i;
0919        l = l & (~k);
0920        @storeb #routine_flags_array i l;
0921       "; Not watching ", (InfixPrintRoutine) infix_parsed_lvalue, ".";
0922    }
0923    if (metaclass(noun) == Object)
0924    {   @clear_attr noun infix__watching;
0925       "; Not watching object ~", (name) noun, "~ (", noun, ").";  
0926    }
0927    InfixDescribeWatchSub();
0928  ];


Last updated 27 February 2004. This web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.