diff options
Diffstat (limited to 'mods/src/em_erlang_scan.erl')
| -rw-r--r-- | mods/src/em_erlang_scan.erl | 780 |
1 files changed, 780 insertions, 0 deletions
diff --git a/mods/src/em_erlang_scan.erl b/mods/src/em_erlang_scan.erl new file mode 100644 index 0000000..46ddba3 --- /dev/null +++ b/mods/src/em_erlang_scan.erl @@ -0,0 +1,780 @@ +%% THIS IS A PRE-RELEASE OF LEEX - RELEASED ONLY BECAUSE MANY PEOPLE +%% WANTED IT - THE OFFICIAL RELEASE WILL PROVIDE A DIFFERENT INCOMPATIBLE +%% AND BETTER INTERFACE - BE WARNED +%% PLEASE REPORT ALL BUGS TO THE AUTHOR. + +-module('em_erlang_scan'). + +-export([string/1,string/2,token/2,token/3,tokens/2,tokens/3]). +-export([format_error/1]). + +%% luke +-export([yystate/0, yystate/6, yyaction/4]). + +%% User code. This is placed here to allow extra attributes. + +-author('rv@cslab.ericsson.se'). +-copyright('Copyright (c) 1996 Ericsson Telecommunications AB'). + +-export([reserved_word/1]). + +reserved_word('after') -> true; +reserved_word('begin') -> true; +reserved_word('case') -> true; +reserved_word('catch') -> true; +reserved_word('end') -> true; +reserved_word('fun') -> true; +reserved_word('if') -> true; +reserved_word('let') -> true; +reserved_word('of') -> true; +reserved_word('query') -> true; +reserved_word('receive') -> true; +reserved_word('when') -> true; +reserved_word('bnot') -> true; +reserved_word('not') -> true; +reserved_word('div') -> true; +reserved_word('rem') -> true; +reserved_word('band') -> true; +reserved_word('and') -> true; +reserved_word('bor') -> true; +reserved_word('bxor') -> true; +reserved_word('bsl') -> true; +reserved_word('bsr') -> true; +reserved_word('or') -> true; +reserved_word('xor') -> true; +reserved_word(_) -> false. + +base(L, Cs) -> + H = string:chr(Cs, $#), + case list_to_integer(string:substr(Cs, 1, H-1)) of + B when B > 16 -> {error,"illegal base"}; + B -> + case base(string:substr(Cs, H+1), B, 0) of + error -> {error,"illegal based number"}; + N -> {token,{integer,L,N}} + end + end. + +base([C|Cs], Base, SoFar) when C >= $0, C =< $9, C < Base + $0 -> + Next = SoFar * Base + (C - $0), + base(Cs, Base, Next); +base([C|Cs], Base, SoFar) when C >= $a, C =< $f, C < Base + $a - 10 -> + Next = SoFar * Base + (C - $a + 10), + base(Cs, Base, Next); +base([C|Cs], Base, SoFar) when C >= $A, C =< $F, C < Base + $A - 10 -> + Next = SoFar * Base + (C - $A + 10), + base(Cs, Base, Next); +base([C|Cs], Base, SoFar) -> error; +base([], Base, N) -> N. + +cc_convert([$$,$\\|Cs]) -> + hd(string_escape(Cs)); +cc_convert([$$,C]) -> C. + +string_gen([$\\|Cs]) -> + string_escape(Cs); +string_gen([C|Cs]) -> + [C|string_gen(Cs)]; +string_gen([]) -> []. + +string_escape([O1,O2,O3|S]) when + O1 >= $0, O1 =< $7, O2 >= $0, O2 =< $7, O3 >= $0, O3 =< $7 -> + [(O1*8 + O2)*8 + O3 - 73*$0|string_gen(S)]; +string_escape([$^,C|Cs]) -> + [C band 31|string_gen(Cs)]; +string_escape([C|Cs]) when C >= 0, C =< $ -> + string_gen(Cs); +string_escape([C|Cs]) -> + [escape_char(C)|string_gen(Cs)]. + +escape_char($n) -> $\n; %\n = LF +escape_char($r) -> $\r; %\r = CR +escape_char($t) -> $\t; %\t = TAB +escape_char($v) -> $\v; %\v = VT +escape_char($b) -> $\b; %\b = BS +escape_char($f) -> $\f; %\f = FF +escape_char($e) -> $\e; %\e = ESC +escape_char($s) -> $ ; %\s = SPC +escape_char($d) -> $\d; %\d = DEL +escape_char(C) -> C. + + +format_error({illegal,S}) -> ["illegal characters ",io_lib:write_string(S)]; +format_error({user,S}) -> S. + +string(String) -> string(String, 1). + +string(String, Line) -> string(String, Line, String, []). + +%% string(InChars, Line, TokenChars, Tokens) -> +%% {ok,Tokens,Line} | {error,ErrorInfo,Line}. + +string([], L, [], Ts) -> %No partial tokens! + {ok,yyrev(Ts),L}; +string(Ics0, L0, Tcs, Ts) -> + case yystate(yystate(), Ics0, L0, 0, reject, 0) of + {A,Alen,Ics1,L1} -> %Accepting end state + string_cont(Ics1, L1, yyaction(A, Alen, Tcs, L1), Ts); + {A,Alen,Ics1,L1,S1} -> %After an accepting state + string_cont(Ics1, L1, yyaction(A, Alen, Tcs, L1), Ts); + {reject,Alen,Tlen,Ics1,L1,S1} -> + {error,{L1,?MODULE,{illegal,yypre(Tcs, Tlen+1)}},L1}; + {A,Alen,Tlen,Ics1,L1,S1} -> + string_cont(yysuf(Tcs, Alen), L1, yyaction(A, Alen, Tcs, L1), Ts) + end. + +%% string_cont(RestChars, Line, Token, Tokens) +%% Test for and remove the end token wrapper. + +string_cont(Rest, Line, {token,T}, Ts) -> + string(Rest, Line, Rest, [T|Ts]); +string_cont(Rest, Line, {end_token,T}, Ts) -> + string(Rest, Line, Rest, [T|Ts]); +string_cont(Rest, Line, skip_token, Ts) -> + string(Rest, Line, Rest, Ts); +string_cont(Rest, Line, {error,S}, Ts) -> + {error,{Line,?MODULE,{user,S}},Line}. + +%% token(Continuation, Chars, Line) -> +%% {more,Continuation} | {done,ReturnVal,RestChars}. +%% Must be careful when re-entering to append the latest characters to the +%% after characters in an accept. + +token(Cont, Chars) -> token(Cont, Chars, 1). + +token([], Chars, Line) -> + token(Chars, Line, yystate(), Chars, 0, reject, 0); +token({Line,State,Tcs,Tlen,Action,Alen}, Chars, _) -> + token(Chars, Line, State, Tcs ++ Chars, Tlen, Action, Alen). + +%% token(InChars, Line, State, TokenChars, TokenLen, Accept) -> +%% {more,Continuation} | {done,ReturnVal,RestChars}. + +token(Ics0, L0, S0, Tcs, Tlen0, A0, Alen0) -> + case yystate(S0, Ics0, L0, Tlen0, A0, Alen0) of + {A1,Alen1,Ics1,L1} -> %Accepting end state + token_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, L1)); + {A1,Alen1,[],L1,S1} -> %After an accepting state + {more,{L1,S1,Tcs,Alen1,A1,Alen1}}; + {A1,Alen1,Ics1,L1,S1} -> + token_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, L1)); + {A1,Alen1,Tlen1,[],L1,S1} -> %After a non-accepting state + {more,{L1,S1,Tcs,Tlen1,A1,Alen1}}; + {reject,Alen1,Tlen1,eof,L1,S1} -> + {done,{eof,L1},[]}; + {reject,Alen1,Tlen1,Ics1,L1,S1} -> + {done,{error,{L1,?MODULE,{illegal,yypre(Tcs, Tlen1+1)}},L1},Ics1}; + {A1,Alen1,Tlen1,Ics1,L1,S1} -> + token_cont(yysuf(Tcs, Alen1), L1, yyaction(A1, Alen1, Tcs, L1)) + end. + +%% tokens_cont(RestChars, Line, Token) +%% Test if we have detected the end token, if so return done else continue. + +token_cont(Rest, Line, {token,T}) -> + {done,{ok,T,Line},Rest}; +token_cont(Rest, Line, {end_token,T}) -> + {done,{ok,T,Line},Rest}; +token_cont(Rest, Line, skip_token) -> + token(Rest, Line, yystate(), Rest, 0, reject, 0); +token_cont(Rest, Line, {error,S}) -> + {done,{error,{Line,?MODULE,{user,S}},Line},Rest}. + +%% tokens(Continuation, Chars, Line) -> +%% {more,Continuation} | {done,ReturnVal,RestChars}. +%% Must be careful when re-entering to append the latest characters to the +%% after characters in an accept. + +tokens(Cont, Chars) -> tokens(Cont, Chars, 1). + +tokens([], Chars, Line) -> + tokens(Chars, Line, yystate(), Chars, 0, [], reject, 0); +tokens({tokens,Line,State,Tcs,Tlen,Ts,Action,Alen}, Chars, _) -> + tokens(Chars, Line, State, Tcs ++ Chars, Tlen, Ts, Action, Alen); +tokens({skip_tokens,Line,State,Tcs,Tlen,Error,Action,Alen}, Chars, _) -> + skip_tokens(Chars, Line, State, Tcs ++ Chars, Tlen, Error, Action, Alen). + +%% tokens(InChars, Line, State, TokenChars, TokenLen, Tokens, Accept) -> +%% {more,Continuation} | {done,ReturnVal,RestChars}. + +tokens(Ics0, L0, S0, Tcs, Tlen0, Ts, A0, Alen0) -> + case yystate(S0, Ics0, L0, Tlen0, A0, Alen0) of + {A1,Alen1,Ics1,L1} -> %Accepting end state + tokens_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, L1), Ts); + {A1,Alen1,[],L1,S1} -> %After an accepting state + {more,{tokens,L1,S1,Tcs,Alen1,Ts,A1,Alen1}}; + {A1,Alen1,Ics1,L1,S1} -> + tokens_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, L1), Ts); + {A1,Alen1,Tlen1,[],L1,S1} -> %After a non-accepting state + {more,{tokens,L1,S1,Tcs,Tlen1,Ts,A1,Alen1}}; + {reject,Alen1,Tlen1,eof,L1,S1} -> + {done,if Ts == [] -> {eof,L1}; + true -> {ok,yyrev(Ts),L1} end,[]}; + {reject,Alen1,Tlen1,Ics1,L1,S1} -> + skip_tokens(yysuf(Tcs, Tlen1+1), L1, + {L1,?MODULE,{illegal,yypre(Tcs, Tlen1+1)}}); + {A1,Alen1,Tlen1,Ics1,L1,S1} -> + tokens_cont(yysuf(Tcs, Alen1), L1, yyaction(A1, Alen1, Tcs, L1), Ts) + end. + +%% tokens_cont(RestChars, Line, Token, Tokens) +%% Test if we have detected the end token, if so return done else continue. + +tokens_cont(Rest, Line, {token,T}, Ts) -> + tokens(Rest, Line, yystate(), Rest, 0, [T|Ts], reject, 0); +tokens_cont(Rest, Line, {end_token,T}, Ts) -> + {done,{ok,yyrev(Ts, [T]),Line},Rest}; +tokens_cont(Rest, Line, skip_token, Ts) -> + tokens(Rest, Line, yystate(), Rest, 0, Ts, reject, 0); +tokens_cont(Rest, Line, {error,S}, Ts) -> + skip_tokens(Rest, Line, {Line,?MODULE,{user,S}}). + +%% token_skip(InChars, Line, Error) -> {done,ReturnVal,RestChars}. +%% Skip tokens until an end token, junk everything and return the error. + +%%skip_tokens(Ics, Line, Error) -> {done,{error,Error,Line},Ics}. + +skip_tokens(Ics, Line, Error) -> + skip_tokens(Ics, Line, yystate(), Ics, 0, Error, reject, 0). + +%% skip_tokens(InChars, Line, State, TokenChars, TokenLen, Tokens, Accept) -> +%% {more,Continuation} | {done,ReturnVal,RestChars}. + +skip_tokens(Ics0, L0, S0, Tcs, Tlen0, Error, A0, Alen0) -> + case yystate(S0, Ics0, L0, Tlen0, A0, Alen0) of + {A1,Alen1,Ics1,L1} -> %Accepting end state + skip_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, L1), Error); + {A1,Alen1,[],L1,S1} -> %After an accepting state + {more,{skip_tokens,L1,S1,Tcs,Alen1,Error,A1,Alen1}}; + {A1,Alen1,Ics1,L1,S1} -> + skip_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, L1), Error); + {A1,Alen1,Tlen1,[],L1,S1} -> %After a non-accepting state + {more,{skip_tokens,L1,S1,Tcs,Tlen1,Error,A1,Alen1}}; + {reject,Alen1,Tlen1,eof,L1,S1} -> + {done,{error,Error,L1},[]}; + {reject,Alen1,Tlen1,Ics1,L1,S1} -> + skip_tokens(yysuf(Tcs, Tlen1), L1, Error); + {A1,Alen1,Tlen1,Ics1,L1,S1} -> + skip_cont(yysuf(Tcs, Alen1), L1, yyaction(A1, Alen1, Tcs, L1), Error) + end. + +%% skip_cont(RestChars, Line, Token, Error) +%% Test if we have detected the end token, if so return done else continue. + +skip_cont(Rest, Line, {token,T}, Error) -> + skip_tokens(Rest, Line, yystate(), Rest, 0, Error, reject, 0); +skip_cont(Rest, Line, {end_token,T}, Error) -> + {done,{error,Error,Line},Rest}; +skip_cont(Rest, Line, {error,S}, Error) -> + skip_tokens(Rest, Line, yystate(), Rest, 0, Error, reject, 0); +skip_cont(Rest, Line, skip_token, Error) -> + skip_tokens(Rest, Line, yystate(), Rest, 0, Error, reject, 0). + +yyrev(L) -> yyrev(L, []). + +yyrev([H|T], Acc) -> yyrev(T, [H|Acc]); +yyrev([], Acc) -> Acc. + +yypre([H|T], N) when N > 0 -> [H|yypre(T, N-1)]; +yypre(L, N) -> []. + +yysuf([H|T], N) when N > 0 -> yysuf(T, N-1); +yysuf(L, 0) -> L. + +yysplit(L, N) -> yysplit(L, N, []). +yysplit([H|T], N, Acc) when N > 0 -> yysplit(T, N-1, [H|Acc]); +yysplit(L, 0, Acc) -> {lists:reverse(Acc), L}. + +%% yystate() -> InitialState. +%% yystate(State, InChars, Line, Token, ) -> +%% {Action, AcceptLength, RestChars, Line} | Accepting end state +%% {Action, AcceptLength, RestChars, Line, State} | Accepting state +%% {Action, AcceptLength, TokLength, RestChars, Line, State} | +%% {reject, AcceptLength, TokLength, RestChars, Line, State}. +%% Generated state transition functions. + +yystate() -> 49. + +yystate(52, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(52, Ics, Line, Tlen+1, 21, Tlen); +yystate(52, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $ÿ -> + yystate(52, Ics, Line, Tlen+1, 21, Tlen); +yystate(52, Ics, Line, Tlen, Action, Alen) -> + {21,Tlen,Ics,Line,52}; +yystate(51, Ics, Line, Tlen, Action, Alen) -> + {19,Tlen,Ics,Line}; +yystate(50, Ics, Line, Tlen, Action, Alen) -> + {20,Tlen,Ics,Line}; +yystate(49, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(45, Ics, Line+1, Tlen+1, Action, Alen); +yystate(49, [$!|Ics], Line, Tlen, Action, Alen) -> + yystate(51, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$"|Ics], Line, Tlen, Action, Alen) -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$#|Ics], Line, Tlen, Action, Alen) -> + yystate(51, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$$|Ics], Line, Tlen, Action, Alen) -> + yystate(21, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$%|Ics], Line, Tlen, Action, Alen) -> + yystate(2, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$'|Ics], Line, Tlen, Action, Alen) -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$+|Ics], Line, Tlen, Action, Alen) -> + yystate(26, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$,|Ics], Line, Tlen, Action, Alen) -> + yystate(51, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$-|Ics], Line, Tlen, Action, Alen) -> + yystate(34, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$.|Ics], Line, Tlen, Action, Alen) -> + yystate(46, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$/|Ics], Line, Tlen, Action, Alen) -> + yystate(48, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$:|Ics], Line, Tlen, Action, Alen) -> + yystate(8, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$;|Ics], Line, Tlen, Action, Alen) -> + yystate(51, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$<|Ics], Line, Tlen, Action, Alen) -> + yystate(0, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$=|Ics], Line, Tlen, Action, Alen) -> + yystate(7, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$>|Ics], Line, Tlen, Action, Alen) -> + yystate(35, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$?|Ics], Line, Tlen, Action, Alen) -> + yystate(51, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$[|Ics], Line, Tlen, Action, Alen) -> + yystate(51, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$]|Ics], Line, Tlen, Action, Alen) -> + yystate(51, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [$_|Ics], Line, Tlen, Action, Alen) -> + yystate(43, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(45, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $\s -> + yystate(45, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [C|Ics], Line, Tlen, Action, Alen) when C >= $(, C =< $* -> + yystate(51, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(40, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [C|Ics], Line, Tlen, Action, Alen) when C >= $A, C =< $Z -> + yystate(43, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [C|Ics], Line, Tlen, Action, Alen) when C >= $a, C =< $z -> + yystate(47, Ics, Line, Tlen+1, Action, Alen); +yystate(49, [C|Ics], Line, Tlen, Action, Alen) when C >= ${, C =< $} -> + yystate(51, Ics, Line, Tlen+1, Action, Alen); +yystate(49, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,49}; +yystate(48, [$=|Ics], Line, Tlen, Action, Alen) -> + yystate(44, Ics, Line, Tlen+1, 19, Tlen); +yystate(48, Ics, Line, Tlen, Action, Alen) -> + {19,Tlen,Ics,Line,48}; +yystate(47, [$_|Ics], Line, Tlen, Action, Alen) -> + yystate(47, Ics, Line, Tlen+1, 3, Tlen); +yystate(47, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(47, Ics, Line, Tlen+1, 3, Tlen); +yystate(47, [C|Ics], Line, Tlen, Action, Alen) when C >= $@, C =< $Z -> + yystate(47, Ics, Line, Tlen+1, 3, Tlen); +yystate(47, [C|Ics], Line, Tlen, Action, Alen) when C >= $a, C =< $z -> + yystate(47, Ics, Line, Tlen+1, 3, Tlen); +yystate(47, Ics, Line, Tlen, Action, Alen) -> + {3,Tlen,Ics,Line,47}; +yystate(46, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(50, Ics, Line+1, Tlen+1, 19, Tlen); +yystate(46, [$%|Ics], Line, Tlen, Action, Alen) -> + yystate(52, Ics, Line, Tlen+1, 19, Tlen); +yystate(46, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(50, Ics, Line, Tlen+1, 19, Tlen); +yystate(46, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $\s -> + yystate(50, Ics, Line, Tlen+1, 19, Tlen); +yystate(46, Ics, Line, Tlen, Action, Alen) -> + {19,Tlen,Ics,Line,46}; +yystate(45, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(45, Ics, Line+1, Tlen+1, 22, Tlen); +yystate(45, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(45, Ics, Line, Tlen+1, 22, Tlen); +yystate(45, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $\s -> + yystate(45, Ics, Line, Tlen+1, 22, Tlen); +yystate(45, Ics, Line, Tlen, Action, Alen) -> + {22,Tlen,Ics,Line,45}; +yystate(44, Ics, Line, Tlen, Action, Alen) -> + {13,Tlen,Ics,Line}; +yystate(43, [$_|Ics], Line, Tlen, Action, Alen) -> + yystate(43, Ics, Line, Tlen+1, 4, Tlen); +yystate(43, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(43, Ics, Line, Tlen+1, 4, Tlen); +yystate(43, [C|Ics], Line, Tlen, Action, Alen) when C >= $@, C =< $Z -> + yystate(43, Ics, Line, Tlen+1, 4, Tlen); +yystate(43, [C|Ics], Line, Tlen, Action, Alen) when C >= $a, C =< $z -> + yystate(43, Ics, Line, Tlen+1, 4, Tlen); +yystate(43, Ics, Line, Tlen, Action, Alen) -> + {4,Tlen,Ics,Line,43}; +yystate(42, Ics, Line, Tlen, Action, Alen) -> + {8,Tlen,Ics,Line}; +yystate(41, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(41, Ics, Line+1, Tlen+1, Action, Alen); +yystate(41, [$"|Ics], Line, Tlen, Action, Alen) -> + yystate(37, Ics, Line, Tlen+1, Action, Alen); +yystate(41, [$\\|Ics], Line, Tlen, Action, Alen) -> + yystate(33, Ics, Line, Tlen+1, Action, Alen); +yystate(41, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(41, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $! -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(41, [C|Ics], Line, Tlen, Action, Alen) when C >= $#, C =< $[ -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(41, [C|Ics], Line, Tlen, Action, Alen) when C >= $], C =< $ÿ -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(41, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,41}; +yystate(40, [$#|Ics], Line, Tlen, Action, Alen) -> + yystate(36, Ics, Line, Tlen+1, 2, Tlen); +yystate(40, [$.|Ics], Line, Tlen, Action, Alen) -> + yystate(28, Ics, Line, Tlen+1, 2, Tlen); +yystate(40, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(40, Ics, Line, Tlen+1, 2, Tlen); +yystate(40, Ics, Line, Tlen, Action, Alen) -> + {2,Tlen,Ics,Line,40}; +yystate(39, Ics, Line, Tlen, Action, Alen) -> + {14,Tlen,Ics,Line}; +yystate(38, Ics, Line, Tlen, Action, Alen) -> + {18,Tlen,Ics,Line}; +yystate(37, Ics, Line, Tlen, Action, Alen) -> + {5,Tlen,Ics,Line}; +yystate(36, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(32, Ics, Line, Tlen+1, Action, Alen); +yystate(36, [C|Ics], Line, Tlen, Action, Alen) when C >= $A, C =< $F -> + yystate(32, Ics, Line, Tlen+1, Action, Alen); +yystate(36, [C|Ics], Line, Tlen, Action, Alen) when C >= $a, C =< $f -> + yystate(32, Ics, Line, Tlen+1, Action, Alen); +yystate(36, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,36}; +yystate(35, [$=|Ics], Line, Tlen, Action, Alen) -> + yystate(39, Ics, Line, Tlen+1, 19, Tlen); +yystate(35, Ics, Line, Tlen, Action, Alen) -> + {19,Tlen,Ics,Line,35}; +yystate(34, [$-|Ics], Line, Tlen, Action, Alen) -> + yystate(38, Ics, Line, Tlen+1, 19, Tlen); +yystate(34, [$>|Ics], Line, Tlen, Action, Alen) -> + yystate(42, Ics, Line, Tlen+1, 19, Tlen); +yystate(34, Ics, Line, Tlen, Action, Alen) -> + {19,Tlen,Ics,Line,34}; +yystate(33, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(41, Ics, Line+1, Tlen+1, Action, Alen); +yystate(33, [$"|Ics], Line, Tlen, Action, Alen) -> + yystate(29, Ics, Line, Tlen+1, Action, Alen); +yystate(33, [$\\|Ics], Line, Tlen, Action, Alen) -> + yystate(33, Ics, Line, Tlen+1, Action, Alen); +yystate(33, [$]|Ics], Line, Tlen, Action, Alen) -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(33, [$^|Ics], Line, Tlen, Action, Alen) -> + yystate(25, Ics, Line, Tlen+1, Action, Alen); +yystate(33, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(33, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $! -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(33, [C|Ics], Line, Tlen, Action, Alen) when C >= $#, C =< $[ -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(33, [C|Ics], Line, Tlen, Action, Alen) when C >= $_, C =< $ÿ -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(33, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,33}; +yystate(32, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(32, Ics, Line, Tlen+1, 1, Tlen); +yystate(32, [C|Ics], Line, Tlen, Action, Alen) when C >= $A, C =< $F -> + yystate(32, Ics, Line, Tlen+1, 1, Tlen); +yystate(32, [C|Ics], Line, Tlen, Action, Alen) when C >= $a, C =< $f -> + yystate(32, Ics, Line, Tlen+1, 1, Tlen); +yystate(32, Ics, Line, Tlen, Action, Alen) -> + {1,Tlen,Ics,Line,32}; +yystate(31, Ics, Line, Tlen, Action, Alen) -> + {11,Tlen,Ics,Line}; +yystate(30, Ics, Line, Tlen, Action, Alen) -> + {17,Tlen,Ics,Line}; +yystate(29, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(41, Ics, Line+1, Tlen+1, 5, Tlen); +yystate(29, [$"|Ics], Line, Tlen, Action, Alen) -> + yystate(37, Ics, Line, Tlen+1, 5, Tlen); +yystate(29, [$\\|Ics], Line, Tlen, Action, Alen) -> + yystate(33, Ics, Line, Tlen+1, 5, Tlen); +yystate(29, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(41, Ics, Line, Tlen+1, 5, Tlen); +yystate(29, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $! -> + yystate(41, Ics, Line, Tlen+1, 5, Tlen); +yystate(29, [C|Ics], Line, Tlen, Action, Alen) when C >= $#, C =< $[ -> + yystate(41, Ics, Line, Tlen+1, 5, Tlen); +yystate(29, [C|Ics], Line, Tlen, Action, Alen) when C >= $], C =< $ÿ -> + yystate(41, Ics, Line, Tlen+1, 5, Tlen); +yystate(29, Ics, Line, Tlen, Action, Alen) -> + {5,Tlen,Ics,Line,29}; +yystate(28, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(24, Ics, Line, Tlen+1, Action, Alen); +yystate(28, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,28}; +yystate(27, Ics, Line, Tlen, Action, Alen) -> + {15,Tlen,Ics,Line}; +yystate(26, [$+|Ics], Line, Tlen, Action, Alen) -> + yystate(30, Ics, Line, Tlen+1, 19, Tlen); +yystate(26, Ics, Line, Tlen, Action, Alen) -> + {19,Tlen,Ics,Line,26}; +yystate(25, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(41, Ics, Line+1, Tlen+1, Action, Alen); +yystate(25, [$"|Ics], Line, Tlen, Action, Alen) -> + yystate(29, Ics, Line, Tlen+1, Action, Alen); +yystate(25, [$\\|Ics], Line, Tlen, Action, Alen) -> + yystate(33, Ics, Line, Tlen+1, Action, Alen); +yystate(25, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(25, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $! -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(25, [C|Ics], Line, Tlen, Action, Alen) when C >= $#, C =< $[ -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(25, [C|Ics], Line, Tlen, Action, Alen) when C >= $], C =< $ÿ -> + yystate(41, Ics, Line, Tlen+1, Action, Alen); +yystate(25, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,25}; +yystate(24, [$E|Ics], Line, Tlen, Action, Alen) -> + yystate(12, Ics, Line, Tlen+1, 0, Tlen); +yystate(24, [$e|Ics], Line, Tlen, Action, Alen) -> + yystate(12, Ics, Line, Tlen+1, 0, Tlen); +yystate(24, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(24, Ics, Line, Tlen+1, 0, Tlen); +yystate(24, Ics, Line, Tlen, Action, Alen) -> + {0,Tlen,Ics,Line,24}; +yystate(23, Ics, Line, Tlen, Action, Alen) -> + {12,Tlen,Ics,Line}; +yystate(22, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(6, Ics, Line+1, Tlen+1, Action, Alen); +yystate(22, [$'|Ics], Line, Tlen, Action, Alen) -> + yystate(18, Ics, Line, Tlen+1, Action, Alen); +yystate(22, [$\\|Ics], Line, Tlen, Action, Alen) -> + yystate(14, Ics, Line, Tlen+1, Action, Alen); +yystate(22, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(22, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $& -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(22, [C|Ics], Line, Tlen, Action, Alen) when C >= $(, C =< $[ -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(22, [C|Ics], Line, Tlen, Action, Alen) when C >= $], C =< $ÿ -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(22, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,22}; +yystate(21, [$\\|Ics], Line, Tlen, Action, Alen) -> + yystate(17, Ics, Line, Tlen+1, Action, Alen); +yystate(21, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(5, Ics, Line, Tlen+1, Action, Alen); +yystate(21, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $[ -> + yystate(5, Ics, Line, Tlen+1, Action, Alen); +yystate(21, [C|Ics], Line, Tlen, Action, Alen) when C >= $], C =< $ÿ -> + yystate(5, Ics, Line, Tlen+1, Action, Alen); +yystate(21, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,21}; +yystate(20, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(16, Ics, Line, Tlen+1, Action, Alen); +yystate(20, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,20}; +yystate(19, [$=|Ics], Line, Tlen, Action, Alen) -> + yystate(23, Ics, Line, Tlen+1, Action, Alen); +yystate(19, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,19}; +yystate(18, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(6, Ics, Line+1, Tlen+1, 6, Tlen); +yystate(18, [$'|Ics], Line, Tlen, Action, Alen) -> + yystate(10, Ics, Line, Tlen+1, 6, Tlen); +yystate(18, [$\\|Ics], Line, Tlen, Action, Alen) -> + yystate(14, Ics, Line, Tlen+1, 6, Tlen); +yystate(18, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(6, Ics, Line, Tlen+1, 6, Tlen); +yystate(18, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $& -> + yystate(6, Ics, Line, Tlen+1, 6, Tlen); +yystate(18, [C|Ics], Line, Tlen, Action, Alen) when C >= $(, C =< $[ -> + yystate(6, Ics, Line, Tlen+1, 6, Tlen); +yystate(18, [C|Ics], Line, Tlen, Action, Alen) when C >= $], C =< $ÿ -> + yystate(6, Ics, Line, Tlen+1, 6, Tlen); +yystate(18, Ics, Line, Tlen, Action, Alen) -> + {6,Tlen,Ics,Line,18}; +yystate(17, [$^|Ics], Line, Tlen, Action, Alen) -> + yystate(1, Ics, Line, Tlen+1, 7, Tlen); +yystate(17, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(5, Ics, Line, Tlen+1, 7, Tlen); +yystate(17, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $/ -> + yystate(5, Ics, Line, Tlen+1, 7, Tlen); +yystate(17, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $7 -> + yystate(13, Ics, Line, Tlen+1, 7, Tlen); +yystate(17, [C|Ics], Line, Tlen, Action, Alen) when C >= $8, C =< $] -> + yystate(5, Ics, Line, Tlen+1, 7, Tlen); +yystate(17, [C|Ics], Line, Tlen, Action, Alen) when C >= $_, C =< $ÿ -> + yystate(5, Ics, Line, Tlen+1, 7, Tlen); +yystate(17, Ics, Line, Tlen, Action, Alen) -> + {7,Tlen,Ics,Line,17}; +yystate(16, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(16, Ics, Line, Tlen+1, 0, Tlen); +yystate(16, Ics, Line, Tlen, Action, Alen) -> + {0,Tlen,Ics,Line,16}; +yystate(15, Ics, Line, Tlen, Action, Alen) -> + {10,Tlen,Ics,Line}; +yystate(14, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(6, Ics, Line+1, Tlen+1, Action, Alen); +yystate(14, [$'|Ics], Line, Tlen, Action, Alen) -> + yystate(18, Ics, Line, Tlen+1, Action, Alen); +yystate(14, [$\\|Ics], Line, Tlen, Action, Alen) -> + yystate(14, Ics, Line, Tlen+1, Action, Alen); +yystate(14, [$]|Ics], Line, Tlen, Action, Alen) -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(14, [$^|Ics], Line, Tlen, Action, Alen) -> + yystate(22, Ics, Line, Tlen+1, Action, Alen); +yystate(14, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(14, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $& -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(14, [C|Ics], Line, Tlen, Action, Alen) when C >= $(, C =< $[ -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(14, [C|Ics], Line, Tlen, Action, Alen) when C >= $_, C =< $ÿ -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(14, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,14}; +yystate(13, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $7 -> + yystate(9, Ics, Line, Tlen+1, 7, Tlen); +yystate(13, Ics, Line, Tlen, Action, Alen) -> + {7,Tlen,Ics,Line,13}; +yystate(12, [$+|Ics], Line, Tlen, Action, Alen) -> + yystate(20, Ics, Line, Tlen+1, Action, Alen); +yystate(12, [$-|Ics], Line, Tlen, Action, Alen) -> + yystate(20, Ics, Line, Tlen+1, Action, Alen); +yystate(12, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $9 -> + yystate(16, Ics, Line, Tlen+1, Action, Alen); +yystate(12, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,12}; +yystate(11, [$=|Ics], Line, Tlen, Action, Alen) -> + yystate(15, Ics, Line, Tlen+1, Action, Alen); +yystate(11, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,11}; +yystate(10, Ics, Line, Tlen, Action, Alen) -> + {6,Tlen,Ics,Line}; +yystate(9, [C|Ics], Line, Tlen, Action, Alen) when C >= $0, C =< $7 -> + yystate(5, Ics, Line, Tlen+1, Action, Alen); +yystate(9, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,9}; +yystate(8, [$-|Ics], Line, Tlen, Action, Alen) -> + yystate(4, Ics, Line, Tlen+1, 19, Tlen); +yystate(8, Ics, Line, Tlen, Action, Alen) -> + {19,Tlen,Ics,Line,8}; +yystate(7, [$/|Ics], Line, Tlen, Action, Alen) -> + yystate(11, Ics, Line, Tlen+1, 19, Tlen); +yystate(7, [$:|Ics], Line, Tlen, Action, Alen) -> + yystate(19, Ics, Line, Tlen+1, 19, Tlen); +yystate(7, [$<|Ics], Line, Tlen, Action, Alen) -> + yystate(27, Ics, Line, Tlen+1, 19, Tlen); +yystate(7, [$=|Ics], Line, Tlen, Action, Alen) -> + yystate(31, Ics, Line, Tlen+1, 19, Tlen); +yystate(7, Ics, Line, Tlen, Action, Alen) -> + {19,Tlen,Ics,Line,7}; +yystate(6, [$\n|Ics], Line, Tlen, Action, Alen) -> + yystate(6, Ics, Line+1, Tlen+1, Action, Alen); +yystate(6, [$'|Ics], Line, Tlen, Action, Alen) -> + yystate(10, Ics, Line, Tlen+1, Action, Alen); +yystate(6, [$\\|Ics], Line, Tlen, Action, Alen) -> + yystate(14, Ics, Line, Tlen+1, Action, Alen); +yystate(6, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(6, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $& -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(6, [C|Ics], Line, Tlen, Action, Alen) when C >= $(, C =< $[ -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(6, [C|Ics], Line, Tlen, Action, Alen) when C >= $], C =< $ÿ -> + yystate(6, Ics, Line, Tlen+1, Action, Alen); +yystate(6, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,6}; +yystate(5, Ics, Line, Tlen, Action, Alen) -> + {7,Tlen,Ics,Line}; +yystate(4, Ics, Line, Tlen, Action, Alen) -> + {9,Tlen,Ics,Line}; +yystate(3, Ics, Line, Tlen, Action, Alen) -> + {16,Tlen,Ics,Line}; +yystate(2, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(2, Ics, Line, Tlen+1, 23, Tlen); +yystate(2, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $ÿ -> + yystate(2, Ics, Line, Tlen+1, 23, Tlen); +yystate(2, Ics, Line, Tlen, Action, Alen) -> + {23,Tlen,Ics,Line,2}; +yystate(1, [C|Ics], Line, Tlen, Action, Alen) when C >= $\000, C =< $\t -> + yystate(5, Ics, Line, Tlen+1, 7, Tlen); +yystate(1, [C|Ics], Line, Tlen, Action, Alen) when C >= $\v, C =< $ÿ -> + yystate(5, Ics, Line, Tlen+1, 7, Tlen); +yystate(1, Ics, Line, Tlen, Action, Alen) -> + {7,Tlen,Ics,Line,1}; +yystate(0, [$=|Ics], Line, Tlen, Action, Alen) -> + yystate(3, Ics, Line, Tlen+1, 19, Tlen); +yystate(0, Ics, Line, Tlen, Action, Alen) -> + {19,Tlen,Ics,Line,0}; +yystate(S, Ics, Line, Tlen, Action, Alen) -> + {Action,Alen,Tlen,Ics,Line,S}. + + +%% yyaction(Action, TokenLength, TokenChars, Line) -> +%% {token,Token} | {end_token, Token} | skip_token | {error,String}. +%% Generated action function. + +yyaction(0, YYlen, YYtcs, YYline) -> + YYtext = yypre(YYtcs, YYlen), + {token,{float,YYline,list_to_float(YYtext)}}; +yyaction(1, YYlen, YYtcs, YYline) -> + YYtext = yypre(YYtcs, YYlen), + base(YYline,YYtext); +yyaction(2, YYlen, YYtcs, YYline) -> + YYtext = yypre(YYtcs, YYlen), + {token,{integer,YYline,list_to_integer(YYtext)}}; +yyaction(3, YYlen, YYtcs, YYline) -> + YYtext = yypre(YYtcs, YYlen), + Atom = list_to_atom(YYtext), + {token,case reserved_word(Atom) of + true -> + {Atom,YYline}; + false -> + {atom,YYline,Atom} + end}; +yyaction(4, YYlen, YYtcs, YYline) -> + YYtext = yypre(YYtcs, YYlen), + {token,{var,YYline,list_to_atom(YYtext)}}; +yyaction(5, YYlen, YYtcs, YYline) -> + YYtext = yypre(YYtcs, YYlen), + S = lists:sublist(YYtext,2,length(YYtext) - 2), + {token,{string,YYline,string_gen(S)}}; +yyaction(6, YYlen, YYtcs, YYline) -> + YYtext = yypre(YYtcs, YYlen), + S = lists:sublist(YYtext,2,length(YYtext) - 2), + {token,{atom,YYline,list_to_atom(string_gen(S))}}; +yyaction(7, YYlen, YYtcs, YYline) -> + YYtext = yypre(YYtcs, YYlen), + {token,{integer,YYline,cc_convert(YYtext)}}; +yyaction(8, YYlen, YYtcs, YYline) -> + {token,{'->',YYline}}; +yyaction(9, YYlen, YYtcs, YYline) -> + {token,{':-',YYline}}; +yyaction(10, YYlen, YYtcs, YYline) -> + {token,{'=/=',YYline}}; +yyaction(11, YYlen, YYtcs, YYline) -> + {token,{'==',YYline}}; +yyaction(12, YYlen, YYtcs, YYline) -> + {token,{'=:=',YYline}}; +yyaction(13, YYlen, YYtcs, YYline) -> + {token,{'/=',YYline}}; +yyaction(14, YYlen, YYtcs, YYline) -> + {token,{'>=',YYline}}; +yyaction(15, YYlen, YYtcs, YYline) -> + {token,{'=<',YYline}}; +yyaction(16, YYlen, YYtcs, YYline) -> + {token,{'<=',YYline}}; +yyaction(17, YYlen, YYtcs, YYline) -> + {token,{'++',YYline}}; +yyaction(18, YYlen, YYtcs, YYline) -> + {token,{'--',YYline}}; +yyaction(19, YYlen, YYtcs, YYline) -> + YYtext = yypre(YYtcs, YYlen), + {token,{list_to_atom(YYtext),YYline}}; +yyaction(20, YYlen, YYtcs, YYline) -> + {end_token,{dot,YYline}}; +yyaction(21, YYlen, YYtcs, YYline) -> + {end_token,{dot,YYline}}; +yyaction(22, YYlen, YYtcs, YYline) -> skip_token; +yyaction(23, YYlen, YYtcs, YYline) -> + skip_token; +yyaction(_, _, _, _) -> error. |