vm/utilities.c

   1 #include "master.h"
   2
   3 /* If memory allocation fails, bail out */
   4 void *safe_malloc(size_t size)
   5 {
   6         void *ptr = malloc(size);
   7         if(!ptr) fatal_error("Out of memory in safe_malloc", 0);
   8         return ptr;
   9 }
  10
  11 F_CHAR *safe_strdup(const F_CHAR *str)
  12 {
  13         F_CHAR *ptr = STRDUP(str);
  14         if(!ptr) fatal_error("Out of memory in safe_strdup", 0);
  15         return ptr;
  16 }
  17
  18 /* We don't use printf directly, because format directives are not portable.
  19 Instead we define the common cases here. */
  20 void nl(void)
  21 {
  22         fputs("\n",stdout);
  23 }
  24
  25 void print_string(const char *str)
  26 {
  27         fputs(str,stdout);
  28 }
  29
  30 void print_cell(CELL x)
  31 {
  32         printf(CELL_FORMAT,x);
  33 }
  34
  35 void print_cell_hex(CELL x)
  36 {
  37         printf(CELL_HEX_FORMAT,x);
  38 }
  39
  40 void print_cell_hex_pad(CELL x)
  41 {
  42         printf(CELL_HEX_PAD_FORMAT,x);
  43 }
  44
  45 void print_fixnum(F_FIXNUM x)
  46 {
  47         printf(FIXNUM_FORMAT,x);
  48 }
  49
  50 CELL read_cell_hex(void)
  51 {
  52         CELL cell;
  53         scanf(CELL_HEX_FORMAT,&cell);
  54         return cell;
  55 };