git.gag.com Git - fw/altos/blob - src/scheme/ao_scheme_save.c

   1 /*
   2  * Copyright © 2016 Keith Packard <keithp@keithp.com>
   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 of the License, or
   7  * (at your option) any later version.
   8  *
   9  * This program is distributed in the hope that it will be useful, but
  10  * WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * General Public License for more details.
  13  */
  14
  15 #include "ao_scheme.h"
  16
  17 ao_poly
  18 ao_scheme_do_save(struct ao_scheme_cons *cons)
  19 {
  20         if (!ao_scheme_check_argc(_ao_scheme_atom_save, cons, 0, 0))
  21                 return AO_SCHEME_NIL;
  22
  23 #ifdef AO_SCHEME_SAVE
  24         struct ao_scheme_os_save *os = (struct ao_scheme_os_save *) (void *) &ao_scheme_pool[AO_SCHEME_POOL];
  25
  26         ao_scheme_collect(AO_SCHEME_COLLECT_FULL);
  27         os->atoms = ao_scheme_atom_poly(ao_scheme_atoms);
  28         os->globals = ao_scheme_frame_poly(ao_scheme_frame_global);
  29         os->const_checksum = ao_scheme_const_checksum;
  30         os->const_checksum_inv = (uint16_t) ~ao_scheme_const_checksum;
  31
  32         if (ao_scheme_os_save())
  33                 return _ao_scheme_bool_true;
  34 #endif
  35         return _ao_scheme_bool_false;
  36 }
  37
  38 ao_poly
  39 ao_scheme_do_restore(struct ao_scheme_cons *cons)
  40 {
  41         if (!ao_scheme_check_argc(_ao_scheme_atom_save, cons, 0, 0))
  42                 return AO_SCHEME_NIL;
  43
  44 #ifdef AO_SCHEME_SAVE
  45         struct ao_scheme_os_save save;
  46         struct ao_scheme_os_save *os = (struct ao_scheme_os_save *) (void *) &ao_scheme_pool[AO_SCHEME_POOL];
  47
  48         if (!ao_scheme_os_restore_save(&save, AO_SCHEME_POOL))
  49                 return ao_scheme_error(AO_SCHEME_INVALID, "header restore failed");
  50
  51         if (save.const_checksum != ao_scheme_const_checksum ||
  52             save.const_checksum_inv != (uint16_t) ~ao_scheme_const_checksum)
  53         {
  54                 return ao_scheme_error(AO_SCHEME_INVALID, "image is corrupted or stale");
  55         }
  56
  57         if (ao_scheme_os_restore()) {
  58
  59                 ao_scheme_atoms = ao_scheme_poly_atom(os->atoms);
  60                 ao_scheme_frame_global = ao_scheme_poly_frame(os->globals);
  61
  62                 /* Clear the eval global variabls */
  63                 ao_scheme_eval_clear_globals();
  64
  65                 /* Reset the allocator */
  66                 ao_scheme_top = AO_SCHEME_POOL;
  67                 ao_scheme_collect(AO_SCHEME_COLLECT_FULL);
  68
  69                 /* Re-create the evaluator stack */
  70                 if (!ao_scheme_eval_restart())
  71                         return _ao_scheme_bool_false;
  72
  73                 return _ao_scheme_bool_true;
  74         }
  75 #endif
  76         return _ao_scheme_bool_false;
  77 }