simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-08 04:05:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ocp-indent all the files, for the greater good!

Browse source
This commit is contained in:
Simon Cruanes 2015-11-25 10:04:01 +01:00
parent a729d2dafb
commit 15e5a4224d
21 changed files with 647 additions and 647 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
smt/expr.ml
View file

@ -42,7 +42,7 @@ let norm = function
| Equal (a, b) -> Equal (a, b), false | Equal (a, b) -> Equal (a, b), false
| Distinct (a, b) -> Equal (a, b), true | Distinct (a, b) -> Equal (a, b), true
(* Only used after normalisation, so usual functions should work *) (* Only used after normalisation, so usual functions should work *)
let hash = Hashtbl.hash let hash = Hashtbl.hash
let equal = (=) let equal = (=)
let compare = Pervasives.compare let compare = Pervasives.compare

24
smt/unionfind.ml
View file

@ -11,25 +11,25 @@ module Make(T : Sig.OrderedType) = struct
type var = T.t type var = T.t
module M = Map.Make(T) module M = Map.Make(T)
type t = { type t = {
rank : int M.t; rank : int M.t;
forbid : ((var * var) list); forbid : ((var * var) list);
mutable parent : var M.t; mutable parent : var M.t;
} }
let empty = { let empty = {
rank = M.empty; rank = M.empty;
forbid = []; forbid = [];
parent = M.empty; parent = M.empty;
} }
let find_map m i default = let find_map m i default =
try try
M.find i m M.find i m
with Not_found -> with Not_found ->
default default
let rec find_aux f i = let rec find_aux f i =
let fi = find_map f i i in let fi = find_map f i i in
if fi = i then if fi = i then
(f, i) (f, i)
@ -38,13 +38,13 @@ let rec find_aux f i =
let f = M.add i r f in let f = M.add i r f in
(f, r) (f, r)
let find h x = let find h x =
let f, cx = find_aux h.parent x in let f, cx = find_aux h.parent x in
h.parent <- f; h.parent <- f;
cx cx
(* Highly ineficient treatment of inequalities *) (* Highly ineficient treatment of inequalities *)
let possible h = let possible h =
let aux (a, b) = let aux (a, b) =
let ca = find h a in let ca = find h a in
let cb = find h b in let cb = find h b in
@ -54,7 +54,7 @@ let possible h =
List.iter aux h.forbid; List.iter aux h.forbid;
h h
let union_aux h x y = let union_aux h x y =
let cx = find h x in let cx = find h x in
let cy = find h y in let cy = find h y in
if cx != cy then begin if cx != cy then begin
@ -71,9 +71,9 @@ let union_aux h x y =
end else end else
h h
let union h x y = possible (union_aux h x y) let union h x y = possible (union_aux h x y)
let forbid h x y = let forbid h x y =
let cx = find h x in let cx = find h x in
let cy = find h y in let cy = find h y in
if cx = cy then if cx = cy then

2
util/smtlib/lexsmtlib.mll
View file

@ -45,4 +45,4 @@ rule token = parse
| ( '0' | ['1'-'9'] ['0'-'9']* ) '.' ['0'-'9']+ as str { DECIMAL(str) } | ( '0' | ['1'-'9'] ['0'-'9']* ) '.' ['0'-'9']+ as str { DECIMAL(str) }
| eof { EOF } | eof { EOF }
| _ {failwith((Lexing.lexeme lexbuf) ^ | _ {failwith((Lexing.lexeme lexbuf) ^
": lexing error on line "^(string_of_int !Smtlib_util.line))}{} ": lexing error on line "^(string_of_int !Smtlib_util.line))}{}

402
util/smtlib/parsesmtlib.mly
View file

@ -1,7 +1,7 @@
%{ %{
(* auto-generated by gt *) (* auto-generated by gt *)
open Smtlib_syntax;; open Smtlib_syntax;;
let parse_error s = let parse_error s =
print_string s; print_string s;
print_string " on line "; print_string " on line ";
@ -15,316 +15,316 @@ let parse_error s =
%token EOF AS ASSERT CHECKSAT DECLAREFUN DECLARESORT DEFINEFUN DEFINESORT EXCLIMATIONPT EXISTS EXIT FORALL GETASSERT GETASSIGN GETINFO GETOPTION GETPROOF GETUNSATCORE GETVALUE LET LPAREN POP PUSH RPAREN SETINFO SETLOGIC SETOPTION UNDERSCORE %token EOF AS ASSERT CHECKSAT DECLAREFUN DECLARESORT DEFINEFUN DEFINESORT EXCLIMATIONPT EXISTS EXIT FORALL GETASSERT GETASSIGN GETINFO GETOPTION GETPROOF GETUNSATCORE GETVALUE LET LPAREN POP PUSH RPAREN SETINFO SETLOGIC SETOPTION UNDERSCORE
%token <string> ASCIIWOR BINARY DECIMAL HEXADECIMAL KEYWORD NUMERAL STRINGLIT SYMBOL %token <string> ASCIIWOR BINARY DECIMAL HEXADECIMAL KEYWORD NUMERAL STRINGLIT SYMBOL
%type <Smtlib_syntax.commands option> main %type <Smtlib_syntax.commands option> main
%type <Smtlib_syntax.an_option> an_option %type <Smtlib_syntax.an_option> an_option
%type <Smtlib_syntax.attribute> attribute %type <Smtlib_syntax.attribute> attribute
%type <Smtlib_syntax.attributevalsexpr_attributevalue_sexpr5> attributevalsexpr_attributevalue_sexpr5 %type <Smtlib_syntax.attributevalsexpr_attributevalue_sexpr5> attributevalsexpr_attributevalue_sexpr5
%type <Smtlib_syntax.attributevalue> attributevalue %type <Smtlib_syntax.attributevalue> attributevalue
%type <Smtlib_syntax.command> command %type <Smtlib_syntax.command> command
%type <Smtlib_syntax.commanddeclarefun_command_sort13> commanddeclarefun_command_sort13 %type <Smtlib_syntax.commanddeclarefun_command_sort13> commanddeclarefun_command_sort13
%type <Smtlib_syntax.commanddefinefun_command_sortedvar15> commanddefinefun_command_sortedvar15 %type <Smtlib_syntax.commanddefinefun_command_sortedvar15> commanddefinefun_command_sortedvar15
%type <Smtlib_syntax.commanddefinesort_command_symbol11> commanddefinesort_command_symbol11 %type <Smtlib_syntax.commanddefinesort_command_symbol11> commanddefinesort_command_symbol11
%type <Smtlib_syntax.commandgetvalue_command_term24> commandgetvalue_command_term24 %type <Smtlib_syntax.commandgetvalue_command_term24> commandgetvalue_command_term24
%type <Smtlib_syntax.commands> commands %type <Smtlib_syntax.commands> commands
%type <Smtlib_syntax.commands_commands_command30> commands_commands_command30 %type <Smtlib_syntax.commands_commands_command30> commands_commands_command30
%type <Smtlib_syntax.identifier> identifier %type <Smtlib_syntax.identifier> identifier
%type <Smtlib_syntax.idunderscoresymnum_identifier_numeral33> idunderscoresymnum_identifier_numeral33 %type <Smtlib_syntax.idunderscoresymnum_identifier_numeral33> idunderscoresymnum_identifier_numeral33
%type <Smtlib_syntax.infoflag> infoflag %type <Smtlib_syntax.infoflag> infoflag
%type <Smtlib_syntax.qualidentifier> qualidentifier %type <Smtlib_syntax.qualidentifier> qualidentifier
%type <Smtlib_syntax.sexpr> sexpr %type <Smtlib_syntax.sexpr> sexpr
%type <Smtlib_syntax.sexprinparen_sexpr_sexpr41> sexprinparen_sexpr_sexpr41 %type <Smtlib_syntax.sexprinparen_sexpr_sexpr41> sexprinparen_sexpr_sexpr41
%type <Smtlib_syntax.sort> sort %type <Smtlib_syntax.sort> sort
%type <Smtlib_syntax.sortedvar> sortedvar %type <Smtlib_syntax.sortedvar> sortedvar
%type <Smtlib_syntax.sortidsortmulti_sort_sort44> sortidsortmulti_sort_sort44 %type <Smtlib_syntax.sortidsortmulti_sort_sort44> sortidsortmulti_sort_sort44
%type <Smtlib_syntax.specconstant> specconstant %type <Smtlib_syntax.specconstant> specconstant
%type <Smtlib_syntax.symbol> symbol %type <Smtlib_syntax.symbol> symbol
%type <Smtlib_syntax.term> term %type <Smtlib_syntax.term> term
%type <Smtlib_syntax.termexclimationpt_term_attribute64> termexclimationpt_term_attribute64 %type <Smtlib_syntax.termexclimationpt_term_attribute64> termexclimationpt_term_attribute64
%type <Smtlib_syntax.termexiststerm_term_sortedvar62> termexiststerm_term_sortedvar62 %type <Smtlib_syntax.termexiststerm_term_sortedvar62> termexiststerm_term_sortedvar62
%type <Smtlib_syntax.termforallterm_term_sortedvar60> termforallterm_term_sortedvar60 %type <Smtlib_syntax.termforallterm_term_sortedvar60> termforallterm_term_sortedvar60
%type <Smtlib_syntax.termletterm_term_varbinding58> termletterm_term_varbinding58 %type <Smtlib_syntax.termletterm_term_varbinding58> termletterm_term_varbinding58
%type <Smtlib_syntax.termqualidterm_term_term56> termqualidterm_term_term56 %type <Smtlib_syntax.termqualidterm_term_term56> termqualidterm_term_term56
%type <Smtlib_syntax.varbinding> varbinding %type <Smtlib_syntax.varbinding> varbinding
%type <Smtlib_util.pd> cur_position %type <Smtlib_util.pd> cur_position
%% %%
main: main:
| commands { Some($1) } | commands { Some($1) }
| EOF { None } | EOF { None }
cur_position: cur_position:
| { Smtlib_util.cur_pd() } | { Smtlib_util.cur_pd() }
an_option: an_option:
| attribute { AnOptionAttribute(pd_attribute $1, $1) } | attribute { AnOptionAttribute(pd_attribute $1, $1) }
attribute: attribute:
| cur_position KEYWORD { AttributeKeyword($1, $2) } | cur_position KEYWORD { AttributeKeyword($1, $2) }
attribute: attribute:
| cur_position KEYWORD attributevalue { AttributeKeywordValue($1, $2, $3) } | cur_position KEYWORD attributevalue { AttributeKeywordValue($1, $2, $3) }
attributevalue: attributevalue:
| specconstant { AttributeValSpecConst(pd_specconstant $1, $1) } | specconstant { AttributeValSpecConst(pd_specconstant $1, $1) }
attributevalue: attributevalue:
| symbol { AttributeValSymbol(pd_symbol $1, $1) } | symbol { AttributeValSymbol(pd_symbol $1, $1) }
attributevalue: attributevalue:
| cur_position LPAREN attributevalsexpr_attributevalue_sexpr5 RPAREN { AttributeValSexpr($1, $3) } | cur_position LPAREN attributevalsexpr_attributevalue_sexpr5 RPAREN { AttributeValSexpr($1, $3) }
command: command:
| cur_position LPAREN SETLOGIC symbol RPAREN { CommandSetLogic($1, $4) } | cur_position LPAREN SETLOGIC symbol RPAREN { CommandSetLogic($1, $4) }
command: command:
| cur_position LPAREN SETOPTION an_option RPAREN { CommandSetOption($1, $4) } | cur_position LPAREN SETOPTION an_option RPAREN { CommandSetOption($1, $4) }
command: command:
| cur_position LPAREN SETINFO attribute RPAREN { CommandSetInfo($1, $4) } | cur_position LPAREN SETINFO attribute RPAREN { CommandSetInfo($1, $4) }
command: command:
| cur_position LPAREN DECLARESORT symbol NUMERAL RPAREN { CommandDeclareSort($1, $4, $5) } | cur_position LPAREN DECLARESORT symbol NUMERAL RPAREN { CommandDeclareSort($1, $4, $5) }
command: command:
| cur_position LPAREN DEFINESORT symbol LPAREN commanddefinesort_command_symbol11 RPAREN sort RPAREN { CommandDefineSort($1, $4, $6, $8) } | cur_position LPAREN DEFINESORT symbol LPAREN commanddefinesort_command_symbol11 RPAREN sort RPAREN { CommandDefineSort($1, $4, $6, $8) }
command: command:
| cur_position LPAREN DECLAREFUN symbol LPAREN commanddeclarefun_command_sort13 RPAREN sort RPAREN { CommandDeclareFun($1, $4, $6, $8) } | cur_position LPAREN DECLAREFUN symbol LPAREN commanddeclarefun_command_sort13 RPAREN sort RPAREN { CommandDeclareFun($1, $4, $6, $8) }
command: command:
| cur_position LPAREN DEFINEFUN symbol LPAREN commanddefinefun_command_sortedvar15 RPAREN sort term RPAREN { CommandDefineFun($1, $4, $6, $8, $9) } | cur_position LPAREN DEFINEFUN symbol LPAREN commanddefinefun_command_sortedvar15 RPAREN sort term RPAREN { CommandDefineFun($1, $4, $6, $8, $9) }
command: command:
| cur_position LPAREN PUSH NUMERAL RPAREN { CommandPush($1, $4) } | cur_position LPAREN PUSH NUMERAL RPAREN { CommandPush($1, $4) }
command: command:
| cur_position LPAREN POP NUMERAL RPAREN { CommandPop($1, $4) } | cur_position LPAREN POP NUMERAL RPAREN { CommandPop($1, $4) }
command: command:
| cur_position LPAREN ASSERT term RPAREN { CommandAssert($1, $4) } | cur_position LPAREN ASSERT term RPAREN { CommandAssert($1, $4) }
command: command:
| cur_position LPAREN CHECKSAT RPAREN { CommandCheckSat($1) } | cur_position LPAREN CHECKSAT RPAREN { CommandCheckSat($1) }
command: command:
| cur_position LPAREN GETASSERT RPAREN { CommandGetAssert($1) } | cur_position LPAREN GETASSERT RPAREN { CommandGetAssert($1) }
command: command:
| cur_position LPAREN GETPROOF RPAREN { CommandGetProof($1) } | cur_position LPAREN GETPROOF RPAREN { CommandGetProof($1) }
command: command:
| cur_position LPAREN GETUNSATCORE RPAREN { CommandGetUnsatCore($1) } | cur_position LPAREN GETUNSATCORE RPAREN { CommandGetUnsatCore($1) }
command: command:
| cur_position LPAREN GETVALUE LPAREN commandgetvalue_command_term24 RPAREN RPAREN { CommandGetValue($1, $5) } | cur_position LPAREN GETVALUE LPAREN commandgetvalue_command_term24 RPAREN RPAREN { CommandGetValue($1, $5) }
command: command:
| cur_position LPAREN GETASSIGN RPAREN { CommandGetAssign($1) } | cur_position LPAREN GETASSIGN RPAREN { CommandGetAssign($1) }
command: command:
| cur_position LPAREN GETOPTION KEYWORD RPAREN { CommandGetOption($1, $4) } | cur_position LPAREN GETOPTION KEYWORD RPAREN { CommandGetOption($1, $4) }
command: command:
| cur_position LPAREN GETINFO infoflag RPAREN { CommandGetInfo($1, $4) } | cur_position LPAREN GETINFO infoflag RPAREN { CommandGetInfo($1, $4) }
command: command:
| cur_position LPAREN EXIT RPAREN { CommandExit($1) } | cur_position LPAREN EXIT RPAREN { CommandExit($1) }
commands: commands:
| commands_commands_command30 { Commands(pd_commands_commands_command30 $1, $1) } | commands_commands_command30 { Commands(pd_commands_commands_command30 $1, $1) }
identifier: identifier:
| symbol { IdSymbol(pd_symbol $1, $1) } | symbol { IdSymbol(pd_symbol $1, $1) }
identifier: identifier:
| cur_position LPAREN UNDERSCORE symbol idunderscoresymnum_identifier_numeral33 RPAREN { IdUnderscoreSymNum($1, $4, $5) } | cur_position LPAREN UNDERSCORE symbol idunderscoresymnum_identifier_numeral33 RPAREN { IdUnderscoreSymNum($1, $4, $5) }
infoflag: infoflag:
| cur_position KEYWORD { InfoFlagKeyword($1, $2) } | cur_position KEYWORD { InfoFlagKeyword($1, $2) }
qualidentifier: qualidentifier:
| identifier { QualIdentifierId(pd_identifier $1, $1) } | identifier { QualIdentifierId(pd_identifier $1, $1) }
qualidentifier: qualidentifier:
| cur_position LPAREN AS identifier sort RPAREN { QualIdentifierAs($1, $4, $5) } | cur_position LPAREN AS identifier sort RPAREN { QualIdentifierAs($1, $4, $5) }
sexpr: sexpr:
| specconstant { SexprSpecConst(pd_specconstant $1, $1) } | specconstant { SexprSpecConst(pd_specconstant $1, $1) }
sexpr: sexpr:
| symbol { SexprSymbol(pd_symbol $1, $1) } | symbol { SexprSymbol(pd_symbol $1, $1) }
sexpr: sexpr:
| cur_position KEYWORD { SexprKeyword($1, $2) } | cur_position KEYWORD { SexprKeyword($1, $2) }
sexpr: sexpr:
| cur_position LPAREN sexprinparen_sexpr_sexpr41 RPAREN { SexprInParen($1, $3) } | cur_position LPAREN sexprinparen_sexpr_sexpr41 RPAREN { SexprInParen($1, $3) }
sort: sort:
| identifier { SortIdentifier(pd_identifier $1, $1) } | identifier { SortIdentifier(pd_identifier $1, $1) }
sort: sort:
| cur_position LPAREN identifier sortidsortmulti_sort_sort44 RPAREN { SortIdSortMulti($1, $3, $4) } | cur_position LPAREN identifier sortidsortmulti_sort_sort44 RPAREN { SortIdSortMulti($1, $3, $4) }
sortedvar: sortedvar:
| cur_position LPAREN symbol sort RPAREN { SortedVarSymSort($1, $3, $4) } | cur_position LPAREN symbol sort RPAREN { SortedVarSymSort($1, $3, $4) }
specconstant: specconstant:
| cur_position DECIMAL { SpecConstsDec($1, $2) } | cur_position DECIMAL { SpecConstsDec($1, $2) }
specconstant: specconstant:
| cur_position NUMERAL { SpecConstNum($1, $2) } | cur_position NUMERAL { SpecConstNum($1, $2) }
specconstant: specconstant:
| cur_position STRINGLIT { SpecConstString($1, $2) } | cur_position STRINGLIT { SpecConstString($1, $2) }
specconstant: specconstant:
| cur_position HEXADECIMAL { SpecConstsHex($1, $2) } | cur_position HEXADECIMAL { SpecConstsHex($1, $2) }
specconstant: specconstant:
| cur_position BINARY { SpecConstsBinary($1, $2) } | cur_position BINARY { SpecConstsBinary($1, $2) }
symbol: symbol:
| cur_position SYMBOL { Symbol($1, $2) } | cur_position SYMBOL { Symbol($1, $2) }
symbol: symbol:
| cur_position ASCIIWOR { SymbolWithOr($1, $2) } | cur_position ASCIIWOR { SymbolWithOr($1, $2) }
term: term:
| specconstant { TermSpecConst(pd_specconstant $1, $1) } | specconstant { TermSpecConst(pd_specconstant $1, $1) }
term: term:
| qualidentifier { TermQualIdentifier(pd_qualidentifier $1, $1) } | qualidentifier { TermQualIdentifier(pd_qualidentifier $1, $1) }
term: term:
| cur_position LPAREN qualidentifier termqualidterm_term_term56 RPAREN { TermQualIdTerm($1, $3, $4) } | cur_position LPAREN qualidentifier termqualidterm_term_term56 RPAREN { TermQualIdTerm($1, $3, $4) }
term: term:
| cur_position LPAREN LET LPAREN termletterm_term_varbinding58 RPAREN term RPAREN { TermLetTerm($1, $5, $7) } | cur_position LPAREN LET LPAREN termletterm_term_varbinding58 RPAREN term RPAREN { TermLetTerm($1, $5, $7) }
term: term:
| cur_position LPAREN FORALL LPAREN termforallterm_term_sortedvar60 RPAREN term RPAREN { TermForAllTerm($1, $5, $7) } | cur_position LPAREN FORALL LPAREN termforallterm_term_sortedvar60 RPAREN term RPAREN { TermForAllTerm($1, $5, $7) }
term: term:
| cur_position LPAREN EXISTS LPAREN termexiststerm_term_sortedvar62 RPAREN term RPAREN { TermExistsTerm($1, $5, $7) } | cur_position LPAREN EXISTS LPAREN termexiststerm_term_sortedvar62 RPAREN term RPAREN { TermExistsTerm($1, $5, $7) }
term: term:
| cur_position LPAREN EXCLIMATIONPT term termexclimationpt_term_attribute64 RPAREN { TermExclimationPt($1, $4, $5) } | cur_position LPAREN EXCLIMATIONPT term termexclimationpt_term_attribute64 RPAREN { TermExclimationPt($1, $4, $5) }
varbinding: varbinding:
| cur_position LPAREN symbol term RPAREN { VarBindingSymTerm($1, $3, $4) } | cur_position LPAREN symbol term RPAREN { VarBindingSymTerm($1, $3, $4) }
termexclimationpt_term_attribute64: termexclimationpt_term_attribute64:
| attribute { (pd_attribute $1, ($1)::[]) } | attribute { (pd_attribute $1, ($1)::[]) }
termexclimationpt_term_attribute64: termexclimationpt_term_attribute64:
| attribute termexclimationpt_term_attribute64 { let (p, ( l1 )) = $2 in (pd_attribute $1, ($1)::(l1)) } | attribute termexclimationpt_term_attribute64 { let (p, ( l1 )) = $2 in (pd_attribute $1, ($1)::(l1)) }
termexiststerm_term_sortedvar62: termexiststerm_term_sortedvar62:
| sortedvar { (pd_sortedvar $1, ($1)::[]) } | sortedvar { (pd_sortedvar $1, ($1)::[]) }
termexiststerm_term_sortedvar62: termexiststerm_term_sortedvar62:
| sortedvar termexiststerm_term_sortedvar62 { let (p, ( l1 )) = $2 in (pd_sortedvar $1, ($1)::(l1)) } | sortedvar termexiststerm_term_sortedvar62 { let (p, ( l1 )) = $2 in (pd_sortedvar $1, ($1)::(l1)) }
termforallterm_term_sortedvar60: termforallterm_term_sortedvar60:
| sortedvar { (pd_sortedvar $1, ($1)::[]) } | sortedvar { (pd_sortedvar $1, ($1)::[]) }
termforallterm_term_sortedvar60: termforallterm_term_sortedvar60:
| sortedvar termforallterm_term_sortedvar60 { let (p, ( l1 )) = $2 in (pd_sortedvar $1, ($1)::(l1)) } | sortedvar termforallterm_term_sortedvar60 { let (p, ( l1 )) = $2 in (pd_sortedvar $1, ($1)::(l1)) }
termletterm_term_varbinding58: termletterm_term_varbinding58:
| varbinding { (pd_varbinding $1, ($1)::[]) } | varbinding { (pd_varbinding $1, ($1)::[]) }
termletterm_term_varbinding58: termletterm_term_varbinding58:
| varbinding termletterm_term_varbinding58 { let (p, ( l1 )) = $2 in (pd_varbinding $1, ($1)::(l1)) } | varbinding termletterm_term_varbinding58 { let (p, ( l1 )) = $2 in (pd_varbinding $1, ($1)::(l1)) }
termqualidterm_term_term56: termqualidterm_term_term56:
| term { (pd_term $1, ($1)::[]) } | term { (pd_term $1, ($1)::[]) }
termqualidterm_term_term56: termqualidterm_term_term56:
| term termqualidterm_term_term56 { let (p, ( l1 )) = $2 in (pd_term $1, ($1)::(l1)) } | term termqualidterm_term_term56 { let (p, ( l1 )) = $2 in (pd_term $1, ($1)::(l1)) }
sortidsortmulti_sort_sort44: sortidsortmulti_sort_sort44:
| sort { (pd_sort $1, ($1)::[]) } | sort { (pd_sort $1, ($1)::[]) }
sortidsortmulti_sort_sort44: sortidsortmulti_sort_sort44:
| sort sortidsortmulti_sort_sort44 { let (p, ( l1 )) = $2 in (pd_sort $1, ($1)::(l1)) } | sort sortidsortmulti_sort_sort44 { let (p, ( l1 )) = $2 in (pd_sort $1, ($1)::(l1)) }
sexprinparen_sexpr_sexpr41: sexprinparen_sexpr_sexpr41:
| cur_position { ($1, []) } | cur_position { ($1, []) }
sexprinparen_sexpr_sexpr41: sexprinparen_sexpr_sexpr41:
| sexpr sexprinparen_sexpr_sexpr41 { let (p, ( l1 )) = $2 in (pd_sexpr $1, ($1)::(l1)) } | sexpr sexprinparen_sexpr_sexpr41 { let (p, ( l1 )) = $2 in (pd_sexpr $1, ($1)::(l1)) }
idunderscoresymnum_identifier_numeral33: idunderscoresymnum_identifier_numeral33:
| cur_position NUMERAL { ($1, ($2)::[]) } | cur_position NUMERAL { ($1, ($2)::[]) }
idunderscoresymnum_identifier_numeral33: idunderscoresymnum_identifier_numeral33:
| cur_position NUMERAL idunderscoresymnum_identifier_numeral33 { let (p, ( l1 )) = $3 in ($1, ($2)::(l1)) } | cur_position NUMERAL idunderscoresymnum_identifier_numeral33 { let (p, ( l1 )) = $3 in ($1, ($2)::(l1)) }
commands_commands_command30: commands_commands_command30:
| cur_position { ($1, []) } | cur_position { ($1, []) }
commands_commands_command30: commands_commands_command30:
| command commands_commands_command30 { let (p, ( l1 )) = $2 in (pd_command $1, ($1)::(l1)) } | command commands_commands_command30 { let (p, ( l1 )) = $2 in (pd_command $1, ($1)::(l1)) }
commandgetvalue_command_term24: commandgetvalue_command_term24:
| term { (pd_term $1, ($1)::[]) } | term { (pd_term $1, ($1)::[]) }
commandgetvalue_command_term24: commandgetvalue_command_term24:
| term commandgetvalue_command_term24 { let (p, ( l1 )) = $2 in (pd_term $1, ($1)::(l1)) } | term commandgetvalue_command_term24 { let (p, ( l1 )) = $2 in (pd_term $1, ($1)::(l1)) }
commanddefinefun_command_sortedvar15: commanddefinefun_command_sortedvar15:
| cur_position { ($1, []) } | cur_position { ($1, []) }
commanddefinefun_command_sortedvar15: commanddefinefun_command_sortedvar15:
| sortedvar commanddefinefun_command_sortedvar15 { let (p, ( l1 )) = $2 in (pd_sortedvar $1, ($1)::(l1)) } | sortedvar commanddefinefun_command_sortedvar15 { let (p, ( l1 )) = $2 in (pd_sortedvar $1, ($1)::(l1)) }
commanddeclarefun_command_sort13: commanddeclarefun_command_sort13:
| cur_position { ($1, []) } | cur_position { ($1, []) }
commanddeclarefun_command_sort13: commanddeclarefun_command_sort13:
| sort commanddeclarefun_command_sort13 { let (p, ( l1 )) = $2 in (pd_sort $1, ($1)::(l1)) } | sort commanddeclarefun_command_sort13 { let (p, ( l1 )) = $2 in (pd_sort $1, ($1)::(l1)) }
commanddefinesort_command_symbol11: commanddefinesort_command_symbol11:
| cur_position { ($1, []) } | cur_position { ($1, []) }
commanddefinesort_command_symbol11: commanddefinesort_command_symbol11:
| symbol commanddefinesort_command_symbol11 { let (p, ( l1 )) = $2 in (pd_symbol $1, ($1)::(l1)) } | symbol commanddefinesort_command_symbol11 { let (p, ( l1 )) = $2 in (pd_symbol $1, ($1)::(l1)) }
attributevalsexpr_attributevalue_sexpr5: attributevalsexpr_attributevalue_sexpr5:
| cur_position { ($1, []) } | cur_position { ($1, []) }
attributevalsexpr_attributevalue_sexpr5: attributevalsexpr_attributevalue_sexpr5:
| sexpr attributevalsexpr_attributevalue_sexpr5 { let (p, ( l1 )) = $2 in (pd_sexpr $1, ($1)::(l1)) } | sexpr attributevalsexpr_attributevalue_sexpr5 { let (p, ( l1 )) = $2 in (pd_sexpr $1, ($1)::(l1)) }