src/word.c

   1 #include <stdio.h>
   2 #include <string.h>
   3 #include <assert.h>
   4 #include <stdlib.h>
   5 #include <ctype.h>
   6
   7 #include "word.h"
   8 #include "cerr.h"
   9
  10 /* wordのエラー定義 */
  11 static CERR cerr_word[] = {
  12     { 114, "not integer" },
  13     { 115, "not hex" },
  14     { 116, "out of hex range" },
  15 };
  16
  17 /* 10進数の文字列をWORD値に変換 */
  18 static WORD n2word(const char *str)
  19 {
  20     assert(isdigit(*str) || *str == '-');
  21
  22     char *check;
  23     int n;
  24     /* WORD値に変換 */
  25     n = strtol(str, &check, 10);
  26     if(*check != '\0') {
  27         setcerr(114, str);    /* not integer */
  28         return 0x0;
  29     }
  30     /* nが-32768から32767の範囲にないときは、その下位16ビットを格納 */
  31     if(n < -32768 || n > 32767) {
  32         n = n & 0xFFFF;
  33     }
  34     return (WORD)n;
  35 }
  36
  37 /* 16進数の文字列をWORD値に変換 */
  38 static WORD h2word(const char *str)
  39 {
  40     assert(*str == '#');
  41
  42     WORD word = 0x0;
  43     char *check;
  44     str++;
  45     if(*str == '-' || strlen(str) > 4) {
  46         setcerr(116, str-1);    /* out of hex range */
  47         return 0;
  48     }
  49     /* WORD値に変換 */
  50     word = (WORD)strtol(str, &check, 16);
  51     if(*check != '\0') {
  52         setcerr(115, str-1);    /* not hex */
  53         return 0x0;
  54     }
  55     return word;
  56 }
  57
  58 /* 10進数または16進数の文字列をWORD値に変換 */
  59 WORD nh2word(const char *str)
  60 {
  61     assert(sizeof(WORD)*8 == 16); /* WORD型のサイズが16ビットであることを確認 */
  62     addcerrlist(ARRAYSIZE(cerr_word), cerr_word); /* エラーの設定 */
  63
  64     WORD word;
  65
  66     if(!isdigit(*str) && *str != '-' && *str != '#') {
  67         setcerr(114, str);    /* not integer */
  68         return 0x0;
  69     }
  70     if(*str == '#') {
  71         word = h2word(str);
  72     } else {
  73         word = n2word(str);
  74     }
  75     return word;
  76 }
  77
  78 /* WORD値を10進数の文字列に変換 */
  79 char *word2n(WORD word)
  80 {
  81     enum {
  82         MAXLEN = 6,        /* WORD値を10進数で表したときの最大桁数 */
  83     };
  84     char *p = malloc_chk(MAXLEN, "word2n.p"), *digit = malloc_chk(MAXLEN, "word2n.digit");
  85     int i = 0, j;
  86
  87     do{
  88         *(p + i++) = word % 10 + '0';
  89     } while((word /= 10) > 0);
  90     for(j = 0; j < i; j++) {
  91         *(digit + j) = *(p + (i - 1) - j);
  92     }
  93     *(digit + j + 1) = '\0';
  94     free_chk(p, "word2n.p");
  95     return digit;
  96 }
  97
  98 /* WORD値を2進数の文字列に変換 */
  99 char *word2bit(const WORD word)
 100 {
 101     enum {
 102         MAXLEN = 16,        /* WORD値を2進数で表したときの最大桁数 */
 103     };
 104     WORD mask = 0x8000;
 105     char *bit, *p;
 106
 107     bit = p = malloc_chk(MAXLEN + 1, "word2bit.bit");
 108     do {
 109         *p++ = (word & mask) ? '1' : '0';
 110     } while((mask >>= 1) > 0);
 111     *p = '\0';
 112     return bit;
 113 }
 114
 115 /* WORD値を解析して表示 */
 116 void print_dumpword(WORD word, bool logicalmode)
 117 {
 118     if(logicalmode == true) {
 119         fprintf(stdout, "%6d", word);
 120     } else {
 121         fprintf(stdout, "%6d", (signed short)word);
 122     }
 123     fprintf(stdout, " = #%04X = %s", word, word2bit(word));
 124     /* 「文字の組」の符号表に記載された文字と、改行（CR）／タブを表示 */
 125     if(word >= 0x20 && word <= 0x7E) {
 126         fprintf(stdout, " = \'%c\'", word);
 127     } else if(word == 0xA) {
 128         fprintf(stdout, " = \'\\n\'");
 129     } else if(word == '\t') {
 130         fprintf(stdout, " = \'\\t\'");
 131     }
 132     fprintf(stdout, "\n");
 133 }