~ubuntu-branches/ubuntu/oneiric/libmoe/oneiric

« back to all changes in this revision

Viewing changes to ucs-to-iso-lib.pl

  • Committer: Bazaar Package Importer
  • Author(s): Fumitoshi UKAI
  • Date: 2004-10-30 01:46:47 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20041030014647-y8o4ik8p7niv8u55
Tags: 1.5.7-1
* New upstream release
* fix FTBFS with gcc-3.4: label at end of compound statement
  closes: Bug#260430.

Show diffs side-by-side

added added

removed removed

Lines of Context:
238
238
 
239
239
  $ucs = hex($ucs);
240
240
 
241
 
  if ($which eq 'kIRG_JSource') {
 
241
  if ($which eq 'kJIS0213') {
 
242
    if ($code =~ /^([12]),(\d{2}),(\d{2})/) {
 
243
      if ($1 eq '1') {
 
244
        &jis1reg(MB_IN_JISX0213_1, $2 - 1, $3 - 1, $ucs);
 
245
      }
 
246
      else {
 
247
        &set_map($ucs, mb_94x94, 0x50, $2 - 1, $3 - 1, 'jisx0213-2');
 
248
      }
 
249
    }
 
250
  }
 
251
  elsif ($which eq 'kIRG_JSource') {
242
252
    if ($code =~ /^([34])-([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})/) {
243
253
      if ($1 eq '3') {
244
 
        &jis1reg(MB_IN_JISX0213_1, hex($2) - 1, hex($3) - 1, $ucs);
 
254
        &jis1reg(MB_IN_JISX0213_1, hex($2) - 0x21, hex($3) - 0x21, $ucs);
245
255
      }
246
256
      else {
247
 
        &set_map($ucs, mb_94x94, 0x50, hex($2) - 1, hex($3) - 1, 'jisx0213-2');
 
257
        &set_map($ucs, mb_94x94, 0x50, hex($2) - 0x21, hex($3) - 0x21, 'jisx0213-2');
248
258
      }
249
259
    }
250
260
  }