[ViewVC] Diff of: cvs/cvsroot/microscheme/scheme.c

Comparing cvsroot/microscheme/scheme.c (file contents):
Revision 1.35 by root, Sun Nov 29 00:02:21 2015 UTC vs.
Revision 1.37 by root, Sun Nov 29 05:09:24 2015 UTC

   for (i = start; i < veclength (vec); i++)
     vecvalue (vec)[i] = obj;
 }
+INTERFACE void
+vector_resize (pointer vec, uint32_t newsize, pointer fill)
+{
+  uint32_t oldsize = veclength (vec);
+  vecvalue (vec) = realloc (vecvalue (vec), newsize * sizeof (pointer));
+  veclength (vec) = newsize;
+  fill_vector (vec, oldsize, fill);
+}
 INTERFACE pointer
 vector_get (pointer vec, uint32_t ielem)
 {
   return vecvalue(vec)[ielem];
 }
         }
       case OP_VECLEN:          /* vector-length */
         s_return (mk_integer (SCHEME_A_ veclength (x)));
+      case OP_VECRESIZE:
+        vector_resize (x, ivalue_unchecked (cadr (args)), caddr (args));
+        s_return (x);
       case OP_VECREF:          /* vector-ref */
         {
           int index = ivalue_unchecked (cadr (args));
           if (index >= veclength (car (args)) && USE_ERROR_CHECKING)
               s_return (mk_atom (SCHEME_A_ readstr_upto (SCHEME_A_ 0, DELIMITERS)));
             case TOK_DOTATOM:
               SCHEME_V->strbuff[0] = '.';
               s_return (mk_atom (SCHEME_A_ readstr_upto (SCHEME_A_ 1, DELIMITERS)));
+            case TOK_STRATOM:
+              x = readstrexp (SCHEME_A_ '|');
+              //TODO: haven't checked whether the garbage collector could interfere
+              s_return (mk_atom (SCHEME_A_ strvalue (x)));
             case TOK_DQUOTE:
               x = readstrexp (SCHEME_A_ '"');
               if (x == S_F)

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines