Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

comment this file, typeit.hdr gives symbolic names to the various
         typeit codes. it is meant to be used as a required source file.
;
require "[][]" delimiters;
define !invalid!typeits = [(];

define !deleted _ 0;
define !untyped _ 1;
define !bracketed _ 2;
define !string _ 3;
define !real _ 4;
define !integer _ 5;
define !set _ 6;
define !list _ 7;
define !procedure _ 8;
define !process _ 9;
define !event _ 10;
define !context _ 11;
define !reference _ 12;
define !record!pointer _ 13;
define !array _ 20 ;

forc i _ 14 stepc 1 untilc !array + 2 doc
	[redefine !invalid!typeits = cvms(!invalid!typeits) & cvs(i) &[,]; ] 
 endc

define !string!array _ !array + !string;
define !real!array _ !array + !real;
define !integer!array _ !array + !integer;
define !set!array _ !array + !set;
define !list!array _ !array + !list;
define !context!array _ !array + !context;
define !record!pointer!array _ !array + !record!pointer;

forc i _ !list!array + 1 stepc 1 untilc !context!array - 1 doc
	[ ifcr i neq !record!pointer!array thenc
               redefine !invalid!typeits = cvms(!invalid!typeits) & cvs(i) &[,];
          endc
        ]
   endc

forc i _ !context!array +1 stepc 1 untilc 36 doc
	[redefine !invalid!typeits = cvms(!invalid!typeits)& cvs(i) & [,]; ]
   endc

redefine !invalid!typeits "{~" = cvms(!invalid!typeits)[1 to inf-1] & {)~;

require unstack!delimiters;