← Back to branch summary

~ubuntu-branches/ubuntu/karmic/coccinelle/karmic

« back to all changes in this revision

Viewing changes to parsing_cocci/parse_aux.ml

  • Committer: Bazaar Package Importer
  • Author(s): Євгеній Мещеряков
  • Date: 2009-05-11 15:32:24 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090511153224-1odv41d4dkr3y80v
Tags: 0.1.8.deb-2
Use common install Makefile target for both native and bytecode
build. This hopefully fixes FTBFS on bytecode archs 

Show diffs side-by-side

added added

removed removed

Lines of Context:
parsing_cocci/parse_aux.ml
44
44
  let new_pos_info =
45
45
    {Ast0.line_start = line; Ast0.line_end = line;
46
46
      Ast0.logical_start = logical_line; Ast0.logical_end = logical_line;
47
 
      Ast0.column = col; Ast0.offset = offset;} in
 
47
      Ast0.column = col; Ast0.offset = offset; } in
48
48
  { Ast0.pos_info = new_pos_info;
49
49
    Ast0.attachable_start = true; Ast0.attachable_end = true;
50
50
    Ast0.mcode_start = []; Ast0.mcode_end = [];
62
62
let clt2mcode str = function
63
63
    (Data.MINUS,line,lline,offset,col,strbef,straft,pos)       ->
64
64
      (str,Ast0.NONE,make_info line lline offset col strbef straft,
65
 
       Ast0.MINUS(ref([],Ast0.default_token_info)),ref pos)
 
65
       Ast0.MINUS(ref([],Ast0.default_token_info)),ref pos,-1)
66
66
  | (Data.OPTMINUS,line,lline,offset,col,strbef,straft,pos)    ->
67
67
      (str,Ast0.OPT,make_info line lline offset col strbef straft,
68
 
       Ast0.MINUS(ref([],Ast0.default_token_info)),ref pos)
 
68
       Ast0.MINUS(ref([],Ast0.default_token_info)),ref pos,-1)
69
69
  | (Data.UNIQUEMINUS,line,lline,offset,col,strbef,straft,pos) ->
70
70
      (str,Ast0.UNIQUE,make_info line lline offset col strbef straft,
71
 
       Ast0.MINUS(ref([],Ast0.default_token_info)),ref pos)
 
71
       Ast0.MINUS(ref([],Ast0.default_token_info)),ref pos,-1)
72
72
  | (Data.PLUS,line,lline,offset,col,strbef,straft,pos)        ->
73
73
      (str,Ast0.NONE,make_info line lline offset col strbef straft,Ast0.PLUS,
74
 
       ref pos)
 
74
       ref pos,-1)
75
75
  | (Data.CONTEXT,line,lline,offset,col,strbef,straft,pos)     ->
76
76
      (str,Ast0.NONE,make_info line lline offset col strbef straft,
77
77
       Ast0.CONTEXT(ref(Ast.NOTHING,
78
78
                        Ast0.default_token_info,Ast0.default_token_info)),
79
 
       ref pos)
 
79
       ref pos,-1)
80
80
  | (Data.OPT,line,lline,offset,col,strbef,straft,pos)         ->
81
81
      (str,Ast0.OPT,make_info line lline offset col strbef straft,
82
82
       Ast0.CONTEXT(ref(Ast.NOTHING,
83
83
                        Ast0.default_token_info,Ast0.default_token_info)),
84
 
       ref pos)
 
84
       ref pos,-1)
85
85
  | (Data.UNIQUE,line,lline,offset,col,strbef,straft,pos)      ->
86
86
      (str,Ast0.UNIQUE,make_info line lline offset col strbef straft,
87
87
       Ast0.CONTEXT(ref(Ast.NOTHING,
88
88
                        Ast0.default_token_info,Ast0.default_token_info)),
89
 
       ref pos)
 
89
       ref pos,-1)
90
90
 
91
91
let id2name   (name, clt) = name
92
92
let id2clt    (name, clt) = clt
494
494
 
495
495
let make_script_rule_name_result lang deps =
496
496
  let l = id2name lang in
497
 
        Ast.ScriptRulename (l,deps)
 
497
  Ast.ScriptRulename (l,deps)
498
498
 
499
499
let make_initial_script_rule_name_result lang =
500
500
  let l = id2name lang in