The Tor Browser / file comparison
comparison: config/make-atom-strings.pl
config/make-atom-strings.pl
- branch
- TOR_BUG_9701
- changeset 15
- b8a032363ba2
equal
deleted
inserted
replaced
| -1:000000000000 | 0:48f262b41d74 |
|---|---|
| 1 #! perl | |
| 2 # This Source Code Form is subject to the terms of the Mozilla Public | |
| 3 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 4 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
| 5 | |
| 6 | |
| 7 # Converts a list of atoms in the form: | |
| 8 # // OUTPUT_CLASS=<classname> | |
| 9 # // MACRO_NAME=<macro> | |
| 10 # <macroname>(atomName, "String") | |
| 11 # <macroname>(atomName2, "String2") | |
| 12 # | |
| 13 # into a file suitable for gperf using static atoms | |
| 14 # | |
| 15 # usage: | |
| 16 # make-atom-strings < file.h > file.gperf | |
| 17 # | |
| 18 # the lines in the C++ comments define two variables: | |
| 19 # OUTPUT_CLASS is the class who has all the atoms as members | |
| 20 # MACRO_NAME is the macro to look for in the rest of the file | |
| 21 # | |
| 22 # for example | |
| 23 # // OUTPUT_CLASS=nsHTMLAtoms | |
| 24 # // MACRO_NAME=HTML_ATOM | |
| 25 # HTML_ATOM(a, "a") | |
| 26 # HTML_ATOM(body, "body") | |
| 27 # | |
| 28 # etc... | |
| 29 # | |
| 30 # this will generate a file that looks like: | |
| 31 # struct nsStaticAtom ( const char* mValue; nsIAtom** aAtom; } | |
| 32 # %% | |
| 33 # "a", &nsHTMLAtoms::a | |
| 34 # "body", &nsHTMLAtoms::body | |
| 35 # | |
| 36 # etc... | |
| 37 # | |
| 38 # the output can be plugged into gperf to generate a perfect hash | |
| 39 | |
| 40 print "struct nsStaticAtom {const char* mValue; nsIAtom** aAtom; };\n"; | |
| 41 print "%%\n"; | |
| 42 | |
| 43 my $classname, $macroname; | |
| 44 | |
| 45 while (<>) { | |
| 46 chop; | |
| 47 if (/OUTPUT_CLASS=(\S+)/) { | |
| 48 $classname=$1; | |
| 49 } elsif (/MACRO_NAME=(\S+)/) { | |
| 50 $macroname=$1; | |
| 51 } | |
| 52 elsif ($classname && $macroname && | |
| 53 /$macroname\((\S+),\s*\"(.*?)\"\s*\)/) { | |
| 54 my ($str, $atom) = ($2, $1); | |
| 55 print "\"$str\", (nsIAtom**)&${classname}::$atom\n"; | |
| 56 } | |
| 57 } |
