method patt : patt -> 'self_type =
function
| PaNil _x -> let o = o#loc _x in o
| PaId (_x, _x_i1) ->
let o = o#loc _x in let o = o#ident _x_i1 in o
| PaAli (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#patt _x_i1 in let o = o#patt _x_i2 in o
| PaAnt (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| PaAny _x -> let o = o#loc _x in o
| PaApp (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#patt _x_i1 in let o = o#patt _x_i2 in o
| PaArr (_x, _x_i1) ->
let o = o#loc _x in let o = o#patt _x_i1 in o
| PaCom (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#patt _x_i1 in let o = o#patt _x_i2 in o
| PaSem (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#patt _x_i1 in let o = o#patt _x_i2 in o
| PaChr (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| PaInt (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| PaInt32 (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| PaInt64 (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| PaNativeInt (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| PaFlo (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| PaLab (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#string _x_i1 in let o = o#patt _x_i2 in o
| PaOlb (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#string _x_i1 in let o = o#patt _x_i2 in o
| PaOlbi (_x, _x_i1, _x_i2, _x_i3) ->
let o = o#loc _x in
let o = o#string _x_i1 in
let o = o#patt _x_i2 in let o = o#expr _x_i3 in o
| PaOrp (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#patt _x_i1 in let o = o#patt _x_i2 in o
| PaRng (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#patt _x_i1 in let o = o#patt _x_i2 in o
| PaRec (_x, _x_i1) ->
let o = o#loc _x in let o = o#patt _x_i1 in o
| PaEq (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#ident _x_i1 in let o = o#patt _x_i2 in o
| PaStr (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| PaTup (_x, _x_i1) ->
let o = o#loc _x in let o = o#patt _x_i1 in o
| PaTyc (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#patt _x_i1 in let o = o#ctyp _x_i2 in o
| PaTyp (_x, _x_i1) ->
let o = o#loc _x in let o = o#ident _x_i1 in o
| PaVrn (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| PaLaz (_x, _x_i1) ->
let o = o#loc _x in let o = o#patt _x_i1 in o