src/print.c

   1 /*
   2 Copyright (C) 2017-2018 Keziah Wesley
   3
   4 You can redistribute and/or modify this file under the terms of the
   5 GNU Affero General Public License as published by the Free Software
   6 Foundation, either version 3 of the License, or (at your option) any
   7 later version.
   8
   9 This file 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 Affero General Public License for more details.
  13
  14 You should have received a copy of the GNU Affero General Public
  15 License along with this file. If not, see
  16 <http://www.gnu.org/licenses/>.
  17 */
  18
  19 #include "atom.h"
  20 #include "print.h"
  21 #include "object.h"
  22
  23 // TODO: "print" into buffer
  24 #include <stdio.h>
  25
  26 #include <stdint.h>
  27
  28 static void
  29 print_vector_body (const vector_object * o)
  30 {
  31   const object *p = HEAP_OBJECT (o->val.body);
  32   if (!p)
  33     return;
  34   if (o->val.len)
  35     print_object (&p[0]);
  36   for (uint32_t i = 1; i < o->val.len; i++)
  37     {
  38       printf (" ");
  39       print_object (&p[i]);
  40     }
  41 }
  42
  43 static void
  44 print_uvector_body (const uvector_object * o)
  45 {
  46   const uv_val *p = UV_VAL (o->val.body);
  47   if (!p)
  48     return;
  49   pool_object x;
  50   x.type = utype (o);
  51   x.rest = 0;
  52   if (o->val.len)
  53     {
  54       x.val = p[0];
  55       print_object ((object *) & x);
  56     }
  57   for (uint32_t i = 1; i < o->val.len; i++)
  58     {
  59       printf (" ");
  60       x.val = p[i];
  61       print_object ((object *) & x);
  62     }
  63 }
  64
  65 static void
  66 print_list_body (const list_object * o)
  67 {
  68   const pool_object *p = POOL_OBJECT (o->val.head);
  69   if (!p)
  70     return;
  71   print_object ((const object *) p);
  72   while ((p = POOL_OBJECT (p->rest)))
  73     {
  74       printf (" ");
  75       print_object ((const object *) p);
  76     }
  77 }
  78
  79 void
  80 print_object (const object * o)
  81 {
  82   switch (o->type)
  83     {
  84     case EVALTYPE_FIX32:
  85       printf ("%d", o->fix32.val.n);
  86       break;
  87     case EVALTYPE_FIX64:
  88       printf ("%ld", o->fix64.val.n);
  89       break;
  90     case EVALTYPE_LIST:
  91       printf ("(");
  92       print_list_body (&o->list);
  93       printf (")");
  94       break;
  95     case EVALTYPE_FORM:
  96       printf ("<");
  97       print_list_body (&o->list);
  98       printf (">");
  99       break;
 100     case EVALTYPE_VECTOR:
 101       printf ("[");
 102       print_vector_body (&o->vector);
 103       printf ("]");
 104       break;
 105     case EVALTYPE_OBLIST:
 106       // for now, handle non-primtype print as special case
 107       printf ("#OBLIST ");
 108       // FALLTHROUGH
 109     case EVALTYPE_UVECTOR:
 110       printf ("![");
 111       print_uvector_body (&o->uvector);
 112       printf ("!]");
 113       break;
 114     case EVALTYPE_ATOM:
 115       printf ("%s", atom_pname (o->atom));
 116       break;
 117     default:
 118       fprintf (stderr, "Tried to print the unprintable: 0x%x\n", o->type);
 119       assert (0 && "I don't know how to print that");
 120     }
 121 }