fix #571: Dictionaries and Symbolic Indexing

Author: tavmem

src/tests.c

@@ -313,6 +313,7 @@ Z I tests02()
   TC( -1, 4: (.((`a;1);(`b;2)))(,`a) )            // issue 561
   TC_( "1 2", "(1 2 1)\\1" )                      // issue 572
   TC_( "12 6 3", "0 1 1 3 2 5 3 7 4 9 5 11 6\\ 12" )       // issue 572
+  TC( 1, d:.((`a;0);(`b;1)); `d .`b )             // issue 571
 
   //Error trap: {[a;b][c;d] a+b} -> parse error ; { {[a][b] }} -> parse error
   TC(.[*; (3;4); :], (0;12) )

src/vd.c

@@ -118,6 +118,10 @@ K dot(K a, K b) //NB: b can be a cheating 0-type with NULLs .. ?
   //TODO: create dename without path-creation effect. will lookup correct handle or return a _n to use ... but won't create path. K at() also needs this.
   //if(4==a->t)a=retrieveByHandle(a);
 
+  if(4==a->t && 4==b->t)
+  { S s=(char*)malloc(2+strlen(*kS(a))+strlen(*kS(b)));
+    s=strcpy(s,*kS(a)); strcat(s,"."); strcat(s,*kS(b));
+    R *inKtree(&kK((kK(KTREE))[0])[1],s,0); }
   if(7==a->t) R vf_ex(&a,b); //Verb: "Apply" //TODO: my guess is this fails everywhere vf_ex does (derived verbs?) (|+) . (0;1) ???
   R of(a,b); //TODO: vf_ex might/could implement this itself ?
 }

src/vd.h

@@ -6,7 +6,8 @@ K kcloneI(K a,const char*f,int n);
 #define kclone(a) kcloneI(a,__FILE__,__LINE__)
 extern S d_;
 extern I fbs;
-K *denameS(S dir_string,S t,I create);
+extern K*inKtree(K*d, S t, I create);
+extern K *denameS(S dir_string,S t,I create);
 extern C errmsg[256];
 I isColonDyadic(K x);
 K dot_tetradic(K a,K b,K c,K y);