rom/filesys/fat/charset.c

   1 #include <dos/dosextens.h>
   2 #include <dos/dostags.h>
   3 #include <proto/dos.h>
   4 #include <proto/exec.h>
   5 #include <ctype.h>
   6 #include <stdlib.h>
   7 #include <string.h>
   8
   9 #include "fat_fs.h"
  10 #include "charset.h"
  11
  12 #undef DOSBase
  13
  14 static ULONG readLine(struct Library *DOSBase, BPTR fh, char *buf, ULONG size)
  15 {
  16   char *c;
  17
  18   if((c = FGets(fh, buf, size)) == NULL)
  19     return FALSE;
  20
  21   for(; *c; c++)
  22   {
  23     if(*c == '\n' || *c == '\r')
  24     {
  25       *c = '\0';
  26       break;
  27     }
  28   }
  29
  30   return TRUE;
  31 }
  32
  33 void InitCharsetTables(struct Globals *glob)
  34 {
  35         int i;
  36
  37         for (i = 0; i < 65536; i++)
  38         if (i < 256) {
  39                 glob->from_unicode[i] = i;
  40                 glob->to_unicode[i] = i;
  41         } else
  42                 glob->from_unicode[i] = '_';
  43 }
  44
  45 // Reads a coding table
  46 BOOL ReadUnicodeTable(struct Globals *glob, STRPTR name)
  47 {
  48   BPTR fh;
  49   struct Library *DOSBase;
  50
  51   if (!(DOSBase = OpenLibrary("dos.library", 0)))
  52       return FALSE;
  53
  54   fh = Open(name, MODE_OLDFILE);
  55   if (fh)
  56   {
  57       int i, n;
  58       char buf[512];
  59
  60       while(readLine(DOSBase, fh, buf, 512*sizeof(char)))
  61       {
  62         if(!isdigit(*buf))
  63           continue;
  64         else
  65         {
  66           char *p = buf;
  67           int fmt2 = 0;
  68
  69           if((*p=='=') || (fmt2 = ((*p=='0') || (*(p+1)=='x'))))
  70           {
  71             p++;
  72             p += fmt2;
  73
  74             i = strtol((const char *)p,(char **)&p,16);
  75             if(i>=0 && i<256)
  76             {
  77               while(isspace(*p)) p++;
  78
  79               if(!strnicmp(p, "U+", 2))
  80               {
  81                 p += 2;
  82                 n = strtol((const char *)p,(char **)&p,16);
  83               }
  84               else
  85               {
  86                 if(*p!='#')
  87                   n = strtol((const char *)p,(char **)&p,0);
  88                 else
  89                   n = -1;
  90               }
  91               if (n >= 0 && n < 65536) {
  92                 glob->from_unicode[n] = i;
  93                 glob->to_unicode[i] = n;
  94               }
  95             }
  96           }
  97         }
  98       }
  99       Close(fh);
 100   }
 101
 102   CloseLibrary(DOSBase);
 103
 104   return fh ? TRUE : FALSE;
 105 }
 106