Changeset 1226


Ignore:
Timestamp:
2000-06-21T10:39:06+12:00 (24 years ago)
Author:
sjboddie
Message:

caught togb.pl touc.pl and toutf8.pl conversion programs up with changes
to multiread.pm. I guess I should create a toarabic.pl conversion program
sometime too.

Location:
trunk/gsdl/bin/script
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/bin/script/togb.pl

    r1213 r1226  
    3636if (!parsargv::parse(\@ARGV,
    3737             'unicode', \$unicode,
    38              'extended', \$extended,
     38             'latin1', \$latin1,
    3939             'gb', \$gb)) {
    4040    print STDERR "\n  usage: $0 [options]\n\n";
    4141    print STDERR "  options:\n";
    42     print STDERR "   -utf8     input is in utf-8 or unicode (default)\n";
    43     print STDERR "   -extended input is in extended ascii\n";
    44     print STDERR "   -gb       input is in GB or GBK\n\n";
     42    print STDERR "   -unicode    input is in utf-8 or unicode (default)\n";
     43    print STDERR "   -latin1     input is in extended ascii (ISO-8859-1)\n";
     44    print STDERR "   -gb         input is in GB or GBK (simplified Chinese)\n\n";
    4545    die "\n";
    4646}
    4747
    4848$encoding = "utf8" if $unicode;
    49 $encoding = "extended" if $extended;
     49$encoding = "latin1" if $latin1;
    5050$encoding = "gb" if $gb;
    5151

  • trunk/gsdl/bin/script/touc.pl

    r1213 r1226  
    3636if (!parsargv::parse(\@ARGV,
    3737             'unicode', \$unicode,
    38              'extended', \$extended,
     38             'latin1', \$latin1,
     39             'arabic', \$arabic,
    3940             'gb', \$gb)) {
    4041    print STDERR "\n  usage: $0 [options]\n\n";
    4142    print STDERR "  options:\n";
    42     print STDERR "   -utf8     input is in utf-8 or unicode (default)\n";
    43     print STDERR "   -extended input is in extended ascii\n";
    44     print STDERR "   -gb       input is in GB or GBK\n\n";
     43    print STDERR "   -unicode    input is in utf-8 or unicode (default)\n";
     44    print STDERR "   -latin1     input is in extended ascii (ISO-8859-1)\n";
     45    print STDERR "   -arabic     input is in 8 bit Arabic (ISO-8859-6)\n";
     46    print STDERR "   -gb         input is in GB or GBK (simplified Chinese)\n\n";
    4547    die "\n";
    4648}
    4749
    4850$encoding = "utf8" if $unicode;
    49 $encoding = "extended" if $extended;
     51$encoding = "latin1" if $latin1;
     52$encoding = "arabic" if $arabic;
    5053$encoding = "gb" if $gb;
    5154

  • trunk/gsdl/bin/script/toutf8.pl

    r1213 r1226  
    3636if (!parsargv::parse(\@ARGV,
    3737             'unicode', \$unicode,
    38              'extended', \$extended,
     38             'latin1', \$latin1,
     39             'arabic', \$arabic,
    3940             'gb', \$gb)) {
    4041    print STDERR "\n  usage: $0 [options]\n\n";
    4142    print STDERR "  options:\n";
    42     print STDERR "   -utf8     input is in utf-8 or unicode (default)\n";
    43     print STDERR "   -extended input is in extended ascii\n";
    44     print STDERR "   -gb       input is in GB or GBK\n\n";
     43    print STDERR "   -unicode    input is in utf-8 or unicode (default)\n";
     44    print STDERR "   -latin1     input is in extended ascii (ISO-8859-1)\n";
     45    print STDERR "   -arabic     input is in 8 bit Arabic (ISO-8859-6)\n";
     46    print STDERR "   -gb         input is in GB or GBK (simplified Chinese)\n\n";
    4547    die "\n";
    4648}
    4749
    4850$encoding = "utf8" if $unicode;
    49 $encoding = "extended" if $extended;
     51$encoding = "latin1" if $latin1;
     52$encoding = "arabic" if $arabic;
    5053$encoding = "gb" if $gb;
    5154
Note: See TracChangeset for help on using the changeset viewer.