Camlp4.Struct.Camlp4Ast.Make.fold.class_str

method class_str_item : class_str_item -> 'self_type =

                  function

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

                  | CrSem (_x, _x_i1, _x_i2) ->

                      let o = o#loc _x in

                      let o = o#class_str_item _x_i1 in

                      let o = o#class_str_item _x_i2 in o

                  | CrCtr (_x, _x_i1, _x_i2) ->

                      let o = o#loc _x in

                      let o = o#ctyp _x_i1 in let o = o#ctyp _x_i2 in o

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

                      let o = o#loc _x in

                      let o = o#override_flag _x_i1 in

                      let o = o#class_expr _x_i2 in

                      let o = o#string _x_i3 in o

                  | CrIni (_x, _x_i1) ->

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

                  | CrMth (_x, _x_i1, _x_i2, _x_i3, _x_i4, _x_i5) ->

                      let o = o#loc _x in

                      let o = o#string _x_i1 in

                      let o = o#override_flag _x_i2 in

                      let o = o#private_flag _x_i3 in

                      let o = o#expr _x_i4 in let o = o#ctyp _x_i5 in o

                  | CrVal (_x, _x_i1, _x_i2, _x_i3, _x_i4) ->

                      let o = o#loc _x in

                      let o = o#string _x_i1 in

                      let o = o#override_flag _x_i2 in

                      let o = o#mutable_flag _x_i3 in

                      let o = o#expr _x_i4 in o

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

                      let o = o#loc _x in

                      let o = o#string _x_i1 in

                      let o = o#private_flag _x_i2 in

                      let o = o#ctyp _x_i3 in o

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

                      let o = o#loc _x in

                      let o = o#string _x_i1 in

                      let o = o#mutable_flag _x_i2 in

                      let o = o#ctyp _x_i3 in o

                  | CrAnt (_x, _x_i1) ->

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