InfixList (lines 929-949)
Back to List
Browsing infix.h
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 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.