base.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include "base.h"
   5
   6 Type
   7 type_get_from_lexeme(const char *lexeme)
   8 {
   9     if (!strcasecmp (lexeme, "Integer"))
  10         return INTEGER;
  11     else if (!strcasecmp (lexeme, "Boolean"))
  12         return BOOLEAN;
  13     else if (!strcasecmp (lexeme, "Char"))
  14         return CHAR;
  15     else
  16         return VOID;
  17 }
  18
  19 char *
  20 type_get_lexeme(Type type)
  21 {
  22     switch (type) {
  23         case INTEGER:
  24             return "Integer";
  25         case BOOLEAN:
  26             return "Boolean";
  27         case CHAR:
  28             return "Char";
  29         default:
  30             return "NoneType";
  31     }
  32 }
  33
  34 void
  35 value_print(FILE *file, Value *value, Type type)
  36 {
  37     if (type == INTEGER) {
  38         fprintf(file, "%d", value->integer);
  39     } else if (type == BOOLEAN) {
  40         fprintf(file, "%s", value->boolean ? "true" : "false");
  41     } else if (type == CHAR) {
  42         fprintf(file, "'%c'", value->character);
  43     }
  44 }
  45
  46 void
  47 value_get(Value *value, Type type, void *val)
  48 {
  49     if (value == NULL) {
  50         fprintf(stderr, "base.c: value_get: value == NULL\n");
  51         exit(1);
  52     }
  53
  54     if (type == INTEGER) {
  55        *((int *) val) = value->integer;
  56     } else if (type == BOOLEAN) {
  57         *((bool *) val) = value->boolean;
  58     } else if (type == CHAR) {
  59         *((char *) val) = value->character;
  60     } else {
  61         fprintf(stderr, "base.c: value_get: unknow type\n");
  62         exit(1);
  63     }
  64 }
  65
  66 void
  67 value_set(Value *value, Type type, void *val)
  68 {
  69     if (value == NULL) {
  70         fprintf(stderr, "base.c: value_set: value == NULL\n");
  71         exit(1);
  72     }
  73
  74     if (type == VOID || val == NULL) {
  75         value->integer = 0;
  76     } else if (type == INTEGER) {
  77        value->integer = *((int *) val);
  78     } else if (type == BOOLEAN) {
  79        value->boolean = *((bool *) val);
  80     } else if (type == CHAR) {
  81        value->character = *((char *) val);
  82     } else {
  83        fprintf(stderr, "base.c: value_set: unknow type\n");
  84        exit(1);
  85     }
  86 }
  87
  88 void
  89 value_set_from_int(Value *value, int val)
  90 {
  91     value_set(value, INTEGER, VOID(val));
  92 }
  93
  94 void
  95 value_set_from_bool(Value *value, bool val)
  96 {
  97     value_set(value, BOOLEAN, VOID(val));
  98 }
  99
 100 void
 101 value_set_from_char(Value *value, char val)
 102 {
 103     value_set(value, CHAR, VOID(val));
 104 }
 105