Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing infix.h

InfixList (lines 929-949)

0929  [ InfixList from to tab filter i flag;
0930    print "^    ";
0931    for (i=from:i<=to:i++)
0932        if (tab-->(i-from))
0933        {   flag = true;
0934            if (tab == #array_names_array)
0935            {   Symb__Tab(INFIXTT_ARRAY, i);
0936                flag = ~~(temp__global3 & 16);
0937            }
0938            if (tab == #routine_names_array)
0939            {   Symb__Tab(INFIXTT_ROUTINE,i);
0940                flag = ~~(temp__global3 & 16);
0941            }
0942            if (tab == #constant_names_array)
0943            {   Symb__Tab(INFIXTT_CONSTANT,i);
0944                flag = (~~(temp__global3 & 16)) && (temp__global3 % 16 == filter);
0945            }
0946            if (flag) print (string) tab-->(i-from), " ";
0947        }
0948    new_line;
0949  ];


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.