misc.c

   1 /* hexedit -- Hexadecimal Editor for Binary Files
   2    Copyright (C) 1998 Pixel (Pascal Rigaux)
   3
   4    This program is free software; you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation; either version 2, or (at your option)
   7    any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software
  16    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.*/
  17 #include "hexedit.h"
  18
  19
  20 int LSEEK_(int fd, INT where)
  21 {
  22   INT result;
  23
  24   result = lseek(fd, where, SEEK_SET);
  25   return (result == where) ? 1 : -1;
  26 }
  27
  28 void LSEEK(int fd, INT where)
  29 {
  30   INT result;
  31
  32   result = lseek(fd, where, SEEK_SET);
  33   if (result != where) {
  34     exitCurses();
  35     fprintf(stderr, "the long seek failed (%lld instead of %lld), leaving :(\n", (long long) result, (long long) where);
  36     exit(1);
  37   }
  38 }
  39
  40 /*******************************************************************************/
  41 /* Small common functions */
  42 /*******************************************************************************/
  43 int streq(const char *s1, const char *s2) { return strcmp(s1, s2) == 0; }
  44 INT myfloor(INT a, INT b) { return a - a % b; }
  45 int setLowBits(int p, int val) { return (p & 0xF0) + val; }
  46 int setHighBits(int p, int val) { return (p & 0x0F) + val * 0x10; }
  47
  48 int strbeginswith(const char *a, const char *prefix)
  49 {
  50   return strncmp(a, prefix, strlen(prefix)) == 0;
  51 }
  52
  53 char *strconcat3(char *a, char *b, char *c)
  54 {
  55   size_t la = a ? strlen(a) : 0;
  56   size_t lb = b ? strlen(b) : 0;
  57   size_t lc = c ? strlen(c) : 0;
  58   char *p = malloc(la + lb + lc + 1);
  59   if (a) memcpy(p, a, la);
  60   if (b) memcpy(p + la, b, lb);
  61   if (c) memcpy(p + la + lb, c, lc);
  62   p[la + lb + lc] = '\0';
  63   return p;
  64 }
  65
  66 int hexCharToInt(int c)
  67 {
  68   if (isdigit(c)) return c - '0';
  69   return tolower(c) - 'a' + 10;
  70 }
  71
  72 int not(int b) { return b ? FALSE: TRUE; }
  73
  74 #ifndef HAVE_MEMRCHR
  75 void *memrchr(const void *s, int c, size_t n)
  76 {
  77   int i;
  78   const char *cs = s;
  79   for (i = n - 1; i >= 0; i--) if (cs[i] == c) return (void *) &cs[i];
  80   return NULL;
  81 }
  82 #endif
  83
  84 char *mymemmem(char *a, int sizea, char *b, int sizeb)
  85 {
  86 #ifdef HAVE_MEMMEM
  87   return memmem(a, sizea, b, sizeb);
  88 #else
  89   char *p;
  90   int i = sizea - sizeb + 1;
  91
  92   for (; (p = memchr(a, b[0], i)); i -= p - a + 1, a = p + 1)
  93   {
  94     if ((memcmp(p + 1, b + 1, sizeb - 1)) == 0) {
  95          return p;
  96     }
  97   }
  98   return NULL;
  99 #endif
 100 }
 101
 102 char *mymemrmem(char *a, int sizea, char *b, int sizeb)
 103 {
 104 #ifdef HAVE_MEMRMEM
 105   return memrmem(a, sizea, b, sizeb);
 106 #else
 107   char *p;
 108   int i = sizea - sizeb + 1;
 109
 110   a += sizea - 1;
 111   for (; (p = memrchr(a - i + 1, b[sizeb - 1], i)); i -= a - p + 1, a = p - 1)
 112   {
 113     if ((memcmp(p - sizeb + 1, b, sizeb - 1)) == 0) return p;
 114   }
 115   return NULL;
 116 #endif
 117 }
 118
 119
 120 int hexStringToBinString(char *p, int *l)
 121 {
 122   int i;
 123
 124   for (i = 0; i < *l; i++) {
 125     if (!isxdigit(p[i])) {
 126       displayMessageAndWaitForKey("Invalid hexa string");
 127       return FALSE;
 128     }
 129     p[i / 2] = ((i % 2) ? setLowBits : setHighBits)(p[i / 2], hexCharToInt(p[i]));
 130   }
 131
 132   if ((*l % 2)) {
 133     displayMessageAndWaitForKey("Must be an even number of chars");
 134     return FALSE;
 135   }
 136   *l /= 2;
 137   return TRUE;
 138 }
 139