icuSources/tools/genpname/gensvpa.pl

   1 #!/usr/bin/perl
   2 #*
   3 #*******************************************************************************
   4 #*   Copyright (C) 2006, International Business Machines
   5 #*   Corporation and others.  All Rights Reserved.
   6 #*******************************************************************************
   7 #*
   8 #*   file name:  genspva.pl
   9 #*   encoding:   US-ASCII
  10 #*   tab size:   8 (not used)
  11 #*   indentation:4
  12 #*
  13 #*   Created by: Ram Viswanadha
  14 #*
  15 #* This file filters iso15924-utf8-<date>.txt
  16 #*
  17
  18 use File::Find;
  19 use File::Basename;
  20 use IO::File;
  21 use Cwd;
  22 use File::Copy;
  23 use Getopt::Long;
  24 use File::Path;
  25 use File::Copy;
  26
  27 #run the program
  28 main();
  29
  30 #---------------------------------------------------------------------
  31 # The main program
  32
  33 sub main(){
  34     GetOptions(
  35            "--destdir=s" => \$destdir,
  36            "--iso15924=s"  => \$iso,
  37            "--prop=s"  => \$prop,
  38            "--code-start=s"  => \$code,
  39            );
  40     usage() unless defined $destdir;
  41     usage() unless defined $iso;
  42     usage() unless defined $prop;
  43
  44     $outfile = "$destdir/SyntheticPropertyValueAliases.txt";
  45     $propFH = IO::File->new($prop,"r")
  46             or die  "could not open the file $prop for reading: $! \n";
  47     $isoFH = IO::File->new($iso,"r")
  48             or die  "could not open the file $iso for reading: $! \n";
  49     $outFH = IO::File->new($outfile,"w")
  50             or die  "could not open the file $outfile for reading: $! \n";
  51     my @propLines;
  52     while (<$propFH>) {
  53         next if(!($_ =~/sc ; /));
  54         push(@propLines, $_);
  55     }
  56     printHeader($outFH);
  57     if(defined $code){
  58         print "Please add the following to UScriptCode enum in uscript.h.\n";
  59         print "#ifndef U_HIDE_DRAFT_API\n";
  60     }
  61     while (<$isoFH>) {
  62         next if($_=~/^#/);#skip if the line starts with a comment char
  63         ($script, $t, $name, $rest) = split(/;/,$_,4);
  64         #sc ; Arab
  65         $outstr = "sc ; $script";
  66         $encoded = 0; #false
  67
  68         # seach the propLines to make sure that this scipt code is not
  69         # encoded in Unicode
  70         foreach $key (@propLines){
  71             if($key =~ /$outstr/){
  72                 $encoded = 1;
  73             }
  74         }
  75         next if($encoded == 1);
  76         #ignore private use codes
  77         next if($script =~ /Qa[ab][a-z]/);
  78
  79         #if($script eq "Qaaa"){
  80         #    $outstr = $outstr." ; Private_Use_Start\n";
  81         #}elsif($script eq  "Qabx"){
  82         #    $outstr = $outstr." ; Private_Use_End\n";
  83         #}else{
  84         #    $outstr = $outstr." ; $script \n";
  85         #}
  86
  87         $outstr = $outstr." ; $script \n";
  88         print $outFH $outstr;
  89
  90         #print to console
  91         if(defined $code){
  92             if($name =~ /[(\s,\x80-\xFF]/){
  93                 $name = $script;
  94             }
  95             $name =~s/-/_/g;
  96
  97             $scriptcode =  "USCRIPT_".uc($name);
  98             print "      $scriptcode          = $code, /* $script */\n";
  99             $code++;
 100         }
 101
 102     }
 103     if(defined $code){
 104         print "#endif /* U_HIDE_DRAFT_API */\n";
 105     }
 106     for($i=0; $i<2; $i++){
 107
 108     }
 109     close($isoFH);
 110     close($propFH);
 111     close($outFH);
 112 }
 113 #-----------------------------------------------------------------------
 114 sub printHeader{
 115     ($outFH) = @_;
 116     ($DAY, $MONTH, $YEAR) = (localtime)[3,4,5];
 117     $YEAR += 1900;
 118     #We will print our copyright here + warnings
 119 print $outFH <<END_HEADER_COMMENT;
 120 ########################################################################
 121 # Copyright (c) 2006-$YEAR, International Business Machines
 122 # Corporation and others.  All Rights Reserved.
 123 ########################################################################
 124 #   file name:      SyntheticPropertyValueAliases.txt
 125 #   encoding:       US-ASCII
 126 #   tab size:       8 (not used)
 127 #   indentation:    4
 128 #   created by:     gensvpa.pl
 129 ########################################################################
 130
 131 # This file follows the format of PropertyValueAliases.txt
 132 # It contains synthetic property value aliases not present
 133 # in the UCD.  Unlike PropertyValueAliases.txt, it should
 134 # NOT contain a version number.
 135
 136 ########################################################################
 137 #  THIS FILE IS MACHINE-GENERATED, DON'T PLAY WITH IT IF YOU DON'T KNOW
 138 #  WHAT YOU ARE DOING, OTHERWISE VERY BAD THINGS WILL HAPPEN!
 139 ########################################################################
 140
 141 # set the same names as short and long names to fit the syntax without
 142 # inventing names that we would have to support forever
 143
 144 # Script (sc)
 145
 146 END_HEADER_COMMENT
 147 }
 148 #-----------------------------------------------------------------------
 149 sub usage {
 150     print << "END";
 151 Usage:
 152 gensvpa.pl
 153 Options:
 154         --destdir=<directory>
 155         --iso15924=<file name>
 156         --prop=<PropertyValueAliases.txt>
 157         --code-start=s
 158 e.g.: gensvpa.pl  --destdir=<icu>/source/tools/genpname --iso15924=iso15924-utf8-20041025.txt --prop=<icu>/source/data/unidata --code-start=60
 159 END
 160     exit(0);
 161 }