OLD | NEW |
1 #!/usr/bin/perl | 1 #!/usr/bin/perl |
2 # ******************************************************************** | 2 # ******************************************************************** |
3 # * COPYRIGHT: | 3 # * COPYRIGHT: |
4 # * Copyright (c) 2002-2007, International Business Machines Corporation and | 4 # * Copyright (c) 2002-2015, International Business Machines Corporation and |
5 # * others. All Rights Reserved. | 5 # * others. All Rights Reserved. |
6 # ******************************************************************** | 6 # ******************************************************************** |
7 # | 7 # |
8 # regexcst.pl | 8 # regexcst.pl |
9 # Compile the regular expression paser state table data into initiali
zed C data. | 9 # Compile the regular expression paser state table data into initiali
zed C data. |
10 # Usage: | 10 # Usage: |
11 # cd icu/source/i18n | 11 # cd icu/source/i18n |
12 # perl regexcst.pl < regexcst.txt > regexcst.h | 12 # perl regexcst.pl < regexcst.txt > regexcst.h |
13 # | 13 # |
14 # The output file, regexcst.h, is included by some of the .cpp regex | 14 # The output file, regexcst.h, is included by some of the .cpp regex |
(...skipping 184 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
199 | 199 |
200 die if ($errors>0); | 200 die if ($errors>0); |
201 | 201 |
202 print "//-----------------------------------------------------------------------
----------\n"; | 202 print "//-----------------------------------------------------------------------
----------\n"; |
203 print "//\n"; | 203 print "//\n"; |
204 print "// Generated Header File. Do not edit by hand.\n"; | 204 print "// Generated Header File. Do not edit by hand.\n"; |
205 print "// This file contains the state table for the ICU Regular Expression P
attern Parser\n"; | 205 print "// This file contains the state table for the ICU Regular Expression P
attern Parser\n"; |
206 print "// It is generated by the Perl script \"regexcst.pl\" from\n"; | 206 print "// It is generated by the Perl script \"regexcst.pl\" from\n"; |
207 print "// the rule parser state definitions file \"regexcst.txt\".\n"; | 207 print "// the rule parser state definitions file \"regexcst.txt\".\n"; |
208 print "//\n"; | 208 print "//\n"; |
209 print "// Copyright (C) 2002-2007 International Business Machines Corporation
\n"; | 209 print "// Copyright (C) 2002-2015 International Business Machines Corporation
\n"; |
210 print "// and others. All rights reserved. \n"; | 210 print "// and others. All rights reserved. \n"; |
211 print "//\n"; | 211 print "//\n"; |
212 print "//-----------------------------------------------------------------------
----------\n"; | 212 print "//-----------------------------------------------------------------------
----------\n"; |
213 print "#ifndef RBBIRPT_H\n"; | 213 print "#ifndef RBBIRPT_H\n"; |
214 print "#define RBBIRPT_H\n"; | 214 print "#define RBBIRPT_H\n"; |
215 print "\n"; | 215 print "\n"; |
216 print "U_NAMESPACE_BEGIN\n"; | 216 print "U_NAMESPACE_BEGIN\n"; |
217 | 217 |
218 # | 218 # |
219 # Emit the constants for indicies of Unicode Sets | 219 # Emit the constants for indicies of Unicode Sets |
(...skipping 99 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
319 print " 0,\n"; | 319 print " 0,\n"; |
320 } | 320 } |
321 } | 321 } |
322 print " 0};\n\n"; | 322 print " 0};\n\n"; |
323 | 323 |
324 print "U_NAMESPACE_END\n"; | 324 print "U_NAMESPACE_END\n"; |
325 print "#endif\n"; | 325 print "#endif\n"; |
326 | 326 |
327 | 327 |
328 | 328 |
OLD | NEW |