regen/mk_invlists.pl: Use INIT(), not DOINIT

There are no tables currently generated by this file that are affected,
however.

Author: khwilliamson

charclass_invlists.inc

@@ -492662,5 +492662,5 @@ static const U8 WB_dfa_table[] = {
  * 8c30575264b2772c7a69c5bb6069a28f0e0a7a0df735871bde2d99ee674316ac lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
  * c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
- * 33a5e583d836b8bb97b6b1d1c6d1766defe4cbdeb8bcbe865d76f71206762be9 regen/mk_invlists.pl
+ * 20a6e3d507a66f4594586485568134873485b08e23383f3dc4e6b3047569267b regen/mk_invlists.pl
  * ex: set ro ft=c: */

lib/unicore/uni_keywords.pl

@@ -348,13 +348,7 @@ ($charset, $indent_level=undef)
             $in_doinit = 1;
             print $fh <<EOF;
 
-#    ifndef DOINIT
-
-EXTCONST $declaration;
-
-#    else
-
-EXTCONST $declaration = {$comment
+EXTCONST $declaration  INIT( {$comment
 EOF
         }
     }
@@ -363,11 +357,12 @@ ($charset, $indent_level=undef)
 
         # Close out a table started by output_table_header()
 
-        print $fh "};\n";
+        print $fh "}";
         if ($in_doinit) {
-            print $fh "\n#    endif  /* DOINIT */\n\n";
+            print $fh ")";
             $in_doinit = 0;
         }
+        print $fh ";\n";
     }
 } # End closure
 

regen/mk_invlists.pl

@@ -83,5 +83,5 @@
  * 8c30575264b2772c7a69c5bb6069a28f0e0a7a0df735871bde2d99ee674316ac lib/unicore/version
  * 0a6b5ab33bb1026531f816efe81aea1a8ffcd34a27cbea37dd6a70a63d73c844 regen/charset_translations.pl
  * c7ff8e0d207d3538c7feb4a1a152b159e5e902d20293b303569ea8323e84633e regen/mk_PL_charclass.pl
- * 33a5e583d836b8bb97b6b1d1c6d1766defe4cbdeb8bcbe865d76f71206762be9 regen/mk_invlists.pl
+ * 20a6e3d507a66f4594586485568134873485b08e23383f3dc4e6b3047569267b regen/mk_invlists.pl
  * ex: set ro ft=c: */