Commit | Line | Data |
---|---|---|
970ed795 | 1 | ############################################################################### |
d44e3c4f | 2 | # Copyright (c) 2000-2016 Ericsson Telecom AB |
970ed795 EL |
3 | # All rights reserved. This program and the accompanying materials |
4 | # are made available under the terms of the Eclipse Public License v1.0 | |
5 | # which accompanies this distribution, and is available at | |
6 | # http://www.eclipse.org/legal/epl-v10.html | |
d44e3c4f | 7 | # |
8 | # Contributors: | |
9 | # Balasko, Jeno | |
10 | # Raduly, Csaba | |
11 | # | |
970ed795 EL |
12 | ############################################################################### |
13 | #! /usr/bin/perl -w | |
14 | use strict; | |
15 | ||
16 | my $is_enum = 0; | |
17 | ||
18 | print <<HEAD; | |
19 | #ifndef TITAN_LOGGER_API_SIMPLE_HH | |
20 | #define TITAN_LOGGER_API_SIMPLE_HH | |
21 | namespace TitanLoggerApiSimple { | |
22 | ||
23 | HEAD | |
24 | ||
25 | while (<>) { | |
26 | if ($is_enum) { # already found the start of an enum | |
27 | if (/enum\s*enum_type\s*{\s*([^}]+)};/) { | |
28 | print $_; # copy enum_type | |
29 | } | |
30 | elsif (/^};$/) { | |
31 | print $_; # copy the closing brace | |
32 | $is_enum = 0; | |
33 | } | |
34 | } | |
35 | else { | |
36 | if (my ($class, $base) = /class\s*(\w+)\s*:\s*public\s*(\w+)\s*{\s*\/\/\s*enum/) { | |
37 | print "\nclass $class {\npublic:\n"; | |
38 | $is_enum = 1; | |
39 | } | |
40 | } | |
41 | } | |
42 | ||
43 | print <<TAIL; | |
44 | } // end namespace | |
45 | #endif | |
46 | TAIL |