← Back to branch summary

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

« back to all changes in this revision

Viewing changes to ocamlbuild/glob_lexer.mll

  • 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:
ocamlbuild/glob_lexer.mll
60
60
 
61
61
and parse_pattern eof_chars p = parse
62
62
| (pattern_chars+ as u) { parse_pattern eof_chars (concat_patterns p (Word u)) lexbuf }
63
 
| '{'                   
 
63
| '{'
64
64
  {
65
65
    let rec loop pl =
66
66
      let (p',c) = parse_pattern ['}';','] Epsilon lexbuf in
77
77
    let cl = Not(Or(parse_class [] lexbuf)) in
78
78
    parse_pattern eof_chars (concat_patterns p (Class cl)) lexbuf
79
79
  }
80
 
| '['                   
 
80
| '['
81
81
  {
82
82
    let cl = Or(parse_class [] lexbuf) in
83
83
    parse_pattern eof_chars (concat_patterns p (Class cl)) lexbuf
97
97
| '/' { parse_pattern eof_chars (concat_patterns p slash) lexbuf }
98
98
| '?' { parse_pattern eof_chars (concat_patterns p not_slash) lexbuf }
99
99
| _ as c
100
 
  { if List.mem c eof_chars then 
 
100
  { if List.mem c eof_chars then
101
101
      (p,c)
102
102
    else
103
103
      raise (Parse_error(sf "Unexpected character %C in glob pattern" c))