← Back to branch summary

~ubuntu-branches/debian/sid/ocaml/sid

« back to all changes in this revision

Viewing changes to camlp4/Camlp4/Struct/Grammar/Delete.ml

  • Committer: Bazaar Package Importer
  • Author(s): Stéphane Glondu
  • Date: 2011-04-21 21:35:08 UTC
  • mfrom: (1.1.11 upstream) (12.1.14 sid)
  • Revision ID: james.westby@ubuntu.com-20110421213508-kg34453aqmb0moha
* Fixes related to -output-obj with g++ (in debian/patches):
  - add Declare-primitive-name-table-as-const-char
  - add Avoid-multiple-declarations-in-generated-.c-files-in
  - fix Embed-bytecode-in-C-object-when-using-custom: the closing
    brace for extern "C" { ... } was missing in some cases

Show diffs side-by-side

added added

removed removed

Lines of Context:
camlp4/Camlp4/Struct/Grammar/Delete.ml
68
68
  fun
69
69
  [ Skeyword kwd -> removing gram kwd
70
70
  | Smeta _ sl _ -> List.iter (decr_keyw_use gram) sl
71
 
  | Slist0 s -> decr_keyw_use gram s
72
 
  | Slist1 s -> decr_keyw_use gram s
 
71
  | Slist0 s | Slist1 s | Sopt s | Stry s -> decr_keyw_use gram s
73
72
  | Slist0sep s1 s2 -> do { decr_keyw_use gram s1; decr_keyw_use gram s2 }
74
73
  | Slist1sep s1 s2 -> do { decr_keyw_use gram s1; decr_keyw_use gram s2 }
75
 
  | Sopt s -> decr_keyw_use gram s
76
74
  | Stree t -> decr_keyw_use_in_tree gram t
77
75
  | Sself | Snext | Snterm _ | Snterml _ _ | Stoken _ -> () ]
78
76
and decr_keyw_use_in_tree gram =
149
147
      do {
150
148
        entry.edesc := Dlevels levs;
151
149
        entry.estart :=
152
 
          fun lev c strm ->
 
150
          fun lev strm ->
153
151
            let f = Parser.start_parser_of_entry entry in
154
 
            do { entry.estart := f; f lev c strm };
 
152
            do { entry.estart := f; f lev strm };
155
153
        entry.econtinue :=
156
 
          fun lev bp a c strm ->
 
154
          fun lev bp a strm ->
157
155
            let f = Parser.continue_parser_of_entry entry in
158
 
            do { entry.econtinue := f; f lev bp a c strm }
 
156
            do { entry.econtinue := f; f lev bp a strm }
159
157
      }
160
158
  | Dparser _ -> () ]
161
159
;