tecs_plot.f is now ext. f77

2002-10-16 11:35:40 +00:00
parent f514cf51e9
commit a14b12b726
12 changed files with 860 additions and 756 deletions
--- a/tecs/coc_server.c
+++ b/tecs/coc_server.c
@@ -288,12 +288,19 @@ char *CocReadVars(char *str, char stop){
      if (cr==NULL) return strchr(str, '\0');
      str=cr+1;
    } else {
-      str+=l;
      eql=strchr(buf,'=');
      if (eql==NULL) ERR_MSG("syntax error");
      *eql='\0';
-      StrLink(&sbuf, eql+1);
-      ERR_I(CocGetVar(buf, &sbuf, ' '));
+      if (eql[1] == '\'' || eql[1]== '"') {
+        eql=strchr(str, '=');
+        StrNLink(&sbuf, eql+1, 80);
+        ERR_I(CocGetVar(buf, &sbuf, StrNONE));
+        str = sbuf.buf + sbuf.rdpos;
+      } else {
+        str+=l;
+        StrLink(&sbuf, eql+1);
+        ERR_I(CocGetVar(buf, &sbuf, ' '));
+      }
    }
    i=sscanf(str, "%79s%n", buf, &l);
  }