Camlp4.Struct.Camlp4Ast.Make.fold.str

method str_item : str_item -> 'self_type =

                  function

                  | StNil _x -> let o = o#loc _x in o

                  | StCls (_x, _x_i1) ->

                      let o = o#loc _x in let o = o#class_expr _x_i1 in o

                  | StClt (_x, _x_i1) ->

                      let o = o#loc _x in let o = o#class_type _x_i1 in o

                  | StSem (_x, _x_i1, _x_i2) ->

                      let o = o#loc _x in

                      let o = o#str_item _x_i1 in

                      let o = o#str_item _x_i2 in o

                  | StDir (_x, _x_i1, _x_i2) ->

                      let o = o#loc _x in

                      let o = o#string _x_i1 in let o = o#expr _x_i2 in o

                  | StExc (_x, _x_i1, _x_i2) ->

                      let o = o#loc _x in

                      let o = o#ctyp _x_i1 in

                      let o = o#meta_option (fun o -> o#ident) _x_i2 in o

                  | StExp (_x, _x_i1) ->

                      let o = o#loc _x in let o = o#expr _x_i1 in o

                  | StExt (_x, _x_i1, _x_i2, _x_i3) ->

                      let o = o#loc _x in

                      let o = o#string _x_i1 in

                      let o = o#ctyp _x_i2 in

                      let o = o#meta_list (fun o -> o#string) _x_i3 in o

                  | StInc (_x, _x_i1) ->

                      let o = o#loc _x in let o = o#module_expr _x_i1 in o

                  | StMod (_x, _x_i1, _x_i2) ->

                      let o = o#loc _x in

                      let o = o#string _x_i1 in

                      let o = o#module_expr _x_i2 in o

                  | StRecMod (_x, _x_i1) ->

                      let o = o#loc _x in let o = o#module_binding _x_i1 in o

                  | StMty (_x, _x_i1, _x_i2) ->

                      let o = o#loc _x in

                      let o = o#string _x_i1 in

                      let o = o#module_type _x_i2 in o

                  | StOpn (_x, _x_i1) ->

                      let o = o#loc _x in let o = o#ident _x_i1 in o

                  | StTyp (_x, _x_i1) ->

                      let o = o#loc _x in let o = o#ctyp _x_i1 in o

                  | StVal (_x, _x_i1, _x_i2) ->

                      let o = o#loc _x in

                      let o = o#rec_flag _x_i1 in

                      let o = o#binding _x_i2 in o

                  | StAnt (_x, _x_i1) ->

                      let o = o#loc _x in let o = o#string _x_i1 in o