let full_select (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) = (Parsing.yyparse yytables 4 lexfun lexbuf : Sqml_sqlstx.select * Sqml_sqlstx.ordering list )