Changeset 333 for cpp/frams/param/param.cpp

Timestamp:

03/01/15 01:19:56 (9 years ago)

Author:

Maciej Komosinski

Message:

• use source/code mapping for line number and file information in vm error messages
• enum ExtValue::CompareResult? instead of int

File:

• cpp/frams/param/param.cpp (modified) (11 diffs)

cpp/frams/param/param.cpp

@@ -37 +37 @@
 static const char *strchrlimit(const char *t, int ch, const char *limit)
 {
-        if (limit<t) return NULL;
-        return (const char*)memchr((const void*)t,ch,limit-t);
+        if (limit < t) return NULL;
+        return (const char*)memchr((const void*)t, ch, limit - t);
 }
 
@@ -392 +392 @@
 }
 
-int ParamInterface::load(VirtFILE* f, bool warn_unknown_fields, bool *abortable)
+int ParamInterface::load(VirtFILE* f, bool warn_unknown_fields, bool *abortable, int *linenum)
 {
         SString buf;
@@ -402 +402 @@
         while (((!abortable) || (!*abortable)) && loadSStringLine(f, buf))
         {
+                if (linenum) (*linenum)++;
                 const char* t = (const char*)buf;
                 p0 = t; while ((*p0 == ' ') || (*p0 == '\t')) p0++;
@@ -417 +418 @@
                                         SString s;
                                         czytdotyldy(f, s);
+                                        int lfcount = 1;
+                                        const char* tmp = s;
+                                        while (tmp)
+                                                if ((tmp = strchr(tmp, '\n')))
+                                                {
+                                                lfcount++; tmp++;
+                                                }
                                         removeCR(s);
                                         int ch; while ((ch = fgetc(f)) != EOF) if (ch == '\n') break;
                                         unquoteTilde(s);
+                                        if (linenum && (flags(i)&PARAM_LINECOMMENT))
+                                                s = SString::sprintf("@line %d\n", *linenum + 1) + s;
                                         set(i, (const char*)s);
+                                        if (linenum)
+                                                (*linenum) += lfcount;
                                 }
                                 else
@@ -440 +452 @@
                         SString s;
                         czytdotyldy(f, s);
+                        if (linenum)
+                        {
+                                const char* tmp = s;
+                                int lfcount = 1;
+                                while (tmp)
+                                        if ((tmp = strchr(tmp, '\n')))
+                                        {
+                                        lfcount++; tmp++;
+                                        }
+                                (*linenum) += lfcount;
+                        }
                         int ch; while ((ch = fgetc(f)) != EOF) if (ch == '\n') break;
                 }
@@ -453 +476 @@
 switch (*(t=type(i)))
 {
-        case 'd':
-        {
-                for (i=atol(get(i));i>=0;i--) if (t) t=strchr(t+1,'~');
-                if (t)
-                {
-                        t++;
-                        char *t2=strchr(t,'~');
-                        if (!t2) t2=t+strlen(t);
-                        SString str;
-                        strncpy(str.directWrite(t2-t),t,t2-t);
-                        str.endWrite(t2-t);
-                        return str;
-                }
-        }
+case 'd':
+{
+for (i=atol(get(i));i>=0;i--) if (t) t=strchr(t+1,'~');
+if (t)
+{
+t++;
+char *t2=strchr(t,'~');
+if (!t2) t2=t+strlen(t);
+SString str;
+strncpy(str.directWrite(t2-t),t,t2-t);
+str.endWrite(t2-t);
+return str;
+}
+}
 }
 return get(i);
@@ -502 +525 @@
 {
         paInt value;
-        if (!ExtValue::parseInt(str,value,false,true))
+        if (!ExtValue::parseInt(str, value, false, true))
         {
                 paInt mn, mx, def;
@@ -517 +540 @@
 {
         double value;
-        if (!ExtValue::parseDouble(str,value,true))
+        if (!ExtValue::parseDouble(str, value, true))
         {
                 double mn, mx, def;
@@ -538 +561 @@
                 {
                         if (v.type == TObj)
+                        {
                                 FMprintf("ParamInterface", "set", FMLV_WARN, "Getting integer value from object reference (%s)", (const char*)v.getString());
-                        return setInt(i, (const char*)v.getString());
+                                return 0;
+                        }
+                        else
+                                return setInt(i, (const char*)v.getString());
                 }
         case 'f':
@@ -546 +573 @@
                 {
                         if (v.type == TObj)
+                        {
                                 FMprintf("ParamInterface", "set", FMLV_WARN, "Getting floating point value from object reference (%s)", (const char*)v.getString());
-                        return setDouble(i, (const char*)v.getString());
+                                return 0;
+                        }
+                        else
+                                return setDouble(i, (const char*)v.getString());
                 }
         case 's': { SString t = v.getString(); return setString(i, t); }
@@ -995 +1026 @@
 
                 field_end = strchrlimit(t, ',', end); if (!field_end) field_end = end;
-                next_field=field_end;
+                next_field = field_end;
                 while ((field_end>t) && isblank(field_end[-1])) field_end--;
                 quote = strchrlimit(t, '\"', field_end);