Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing infix.h

InfixWatchOnSub (lines 897-912)

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.