Lines Matching refs:type

649 	my $type = '';
681 				$type = '#';
692 			push(@stack, [ $type, $level ]);
694 			($type, $level) = @{$stack[$#stack - 1]};
696 			($type, $level) = @{pop(@stack)};
716 		if (($type eq '' || $type eq '(') && $c eq '(') {
718 			$type = '(';
720 		if ($type eq '(' && $c eq ')') {
722 			$type = ($level != 0)? '(' : '';
730 		if (($type eq '' || $type eq '{') && $c eq '{') {
732 			$type = '{';
734 		if ($type eq '{' && $c eq '}') {
736 			$type = ($level != 0)? '{' : '';
746 		if ($type eq '#' && $c eq "\n" && $p ne "\\") {
748 			$type = '';
1012 	my ($stream, $type) = @_;
1023 				"> <$type> <$av_pending>" if ($dbg_values > 1);
1027 				$type = pop(@av_paren_type);
1033 			push(@av_paren_type, $type);
1034 			$type = 'c';
1038 			$type = 'T';
1042 			$type = 'T';
1047 			push(@av_paren_type, $type);
1051 			$type = 'E';
1056 			push(@av_paren_type, $type);
1062 			push(@av_paren_type, $type);
1063 			push(@av_paren_type, $type);
1064 			$type = 'E';
1072 			$type = 'E';
1082 			push(@av_paren_type, $type);
1083 			$type = 'E';
1090 			$av_pending = $type;
1091 			$type = 'N';
1098 			$type = 'N';
1103 			$type = 'N';
1108 			$type = 'N';
1112 			$type = 'N';
1118 			$type = 'N';
1123 				$type = $new_type;
1124 				print "PAREN('$1') -> $type\n"
1132 			$type = 'V';
1136 			if (defined $2 && $type eq 'C' || $type eq 'T') {
1138 			} elsif ($type eq 'E') {
1141 			print "IDENT_COLON($1,$type>$av_pend_colon)\n" if ($dbg_values > 1);
1142 			$type = 'V';
1146 			$type = 'V';
1150 			$type = 'N';
1154 			$type = 'E';
1159 			$type = 'C';
1163 			$type = 'N';
1170 				$type = 'E';
1172 				$type = 'N';
1178 			$type = 'N';
1184 			if ($type eq 'V') {
1191 			$type = 'N';
1196 				$type = 'N';
1204 			$res .= $type x length($1);
1991 				my $type = $1;
1992 				$type =~ s/\s+/ /g;
1993 				possible($type, "A:" . $s);