← Back to branch summary

~ubuntu-branches/ubuntu/maverick/coccinelle/maverick

« back to all changes in this revision

Viewing changes to parsing_c/unparse_hrule.ml

  • Committer: Bazaar Package Importer
  • Author(s): Daniel T Chen
  • Date: 2009-08-10 01:01:24 UTC
  • mfrom: (7.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20090810010124-9fn4c8m93ic60fqx
Tags: 0.1.9.deb-1ubuntu1
https://launchpad.net/bugs/410907
* Merge from Debian unstable, remaining changes:
  - debian/control: build-depend on python2.6-dev,
    set XB-Python-Version to 2.6
* New upstream (Debian) packaging applied fix for
  LP: #410907 (see changelog entry below)

Show diffs side-by-side

added added

removed removed

Lines of Context:
parsing_c/unparse_hrule.ml
 
1
(* Copyright (C) 2006, 2007 Julia Lawall
 
2
 *
 
3
 * This program is free software; you can redistribute it and/or
 
4
 * modify it under the terms of the GNU General Public License (GPL)
 
5
 * version 2 as published by the Free Software Foundation.
 
6
 * 
 
7
 * This program is distributed in the hope that it will be useful,
 
8
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 
9
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
10
 * file license.txt for more details.
 
11
 * 
 
12
 * This file was part of Coccinelle.
 
13
 *)
 
14
 
1
15
module Ast = Ast_cocci
2
16
module V = Visitor_ast
3
17
 
295
309
  match decl with
296
310
    Ast.MetaIdDecl(ar, name) ->
297
311
      no_arity ar; pr "identifier "; pp_name name; pr ";\n"
298
 
  | Ast.MetaFreshIdDecl(name, None) ->
 
312
  | Ast.MetaFreshIdDecl(name, Ast.NoVal) ->
299
313
      pr "fresh identifier "; pp_name name; pr ";\n"
300
 
  | Ast.MetaFreshIdDecl(name, Some x) ->
 
314
  | Ast.MetaFreshIdDecl(name, Ast.StringSeed x) ->
301
315
      pr "fresh identifier "; pp_name name; pr " = \""; pr x; pr "\";\n"
 
316
  | Ast.MetaFreshIdDecl(name, Ast.ListSeed x) ->
 
317
      failwith "unparse_hrule: not supported"
302
318
  | Ast.MetaTypeDecl(ar, name) ->
303
319
      no_arity ar; pr "type "; pp_name name; pr ";\n"
304
320
  | Ast.MetaInitDecl(ar, name) ->