libs/charmap.c

   1 /* -*-c-*- */
   2 /* This program is free software; you can redistribute it and/or modify
   3  * it under the terms of the GNU General Public License as published by
   4  * the Free Software Foundation; either version 2 of the License, or
   5  * (at your option) any later version.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program; if not, write to the Free Software
  14  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  15  */
  16
  17 /* ---------------------------- included header files ---------------------- */
  18
  19 #include "config.h"
  20 #include <stdio.h>
  21 #include <ctype.h>
  22 #include <string.h>
  23
  24 #include "charmap.h"
  25 #include "safemalloc.h"
  26
  27 /* ---------------------------- local definitions -------------------------- */
  28
  29 /* ---------------------------- local macros ------------------------------- */
  30
  31 /* ---------------------------- imports ------------------------------------ */
  32
  33 /* ---------------------------- included code files ------------------------ */
  34
  35 /* ---------------------------- local types -------------------------------- */
  36
  37 /* ---------------------------- forward declarations ----------------------- */
  38
  39 /* ---------------------------- local variables ---------------------------- */
  40
  41 /* ---------------------------- exported variables (globals) --------------- */
  42
  43 /* ---------------------------- local functions ---------------------------- */
  44
  45 /* ---------------------------- interface functions ------------------------ */
  46
  47 /* Turns a  string context of context or modifier values into an array of
  48  * true/false values (bits). */
  49 int charmap_string_to_mask(
  50         int *ret, const char *string, charmap_t *table, char *errstring)
  51 {
  52         int len = strlen(string);
  53         int error = 0;
  54         int i;
  55
  56         *ret = 0;
  57         for (i = 0; i < len; ++i)
  58         {
  59                 int found_match;
  60                 int j;
  61                 char c;
  62
  63                 c = tolower(string[i]);
  64                 for (j = 0, found_match = 0; table[j].key != 0; j++)
  65                 {
  66                         if (table[j].key == c)
  67                         {
  68                                 *ret |= table[j].value;
  69                                 found_match = 1;
  70                                 break;
  71                         }
  72                 }
  73                 if (!found_match)
  74                 {
  75                         fputs("charmap_string_to_mask: ", stderr);
  76                         if (errstring != NULL)
  77                         {
  78                                 fputs(errstring, stderr);
  79                         }
  80                         fputc(' ', stderr);
  81                         fputc(c, stderr);
  82                         fputc('\n', stderr);
  83                         error = 1;
  84                 }
  85         }
  86
  87         return error;
  88 }
  89
  90 /* Reverse function of above.  Returns zero if no matching mask is found in the
  91  * table. */
  92 char charmap_mask_to_char(int mask, charmap_t *table)
  93 {
  94         char c;
  95
  96         for (c = 0; table->key != 0; table++)
  97         {
  98                 if (mask == table->value)
  99                 {
 100                         c = table->key;
 101                         break;
 102                 }
 103         }
 104
 105         return c;
 106 }
 107
 108 /* Used from "PrintInfo Bindings". */
 109 char *charmap_table_to_string(int mask, charmap_t *table)
 110 {
 111         char *allmods;
 112         int modmask;
 113         char c[2];
 114
 115         c[1] = 0;
 116         modmask = mask;
 117         allmods = safemalloc(sizeof(table->value) * 8 + 1);
 118         *allmods = 0;
 119         for (; table->key !=0; table++)
 120         {
 121                 c[0] = toupper(table->key);
 122                 if (mask == table->value)
 123                 {
 124                         /* exact match */
 125                         strcpy(allmods, c);
 126                         break;
 127                 }
 128                 else if (modmask & table->value)
 129                 {
 130                         /* incremental match */
 131                         strcat(allmods, c);
 132                         modmask &= ~table->value;
 133                 }
 134         }
 135
 136         return allmods;
 137 }