Changeset 1181 for trunk/src/kmk/read.c

Timestamp:

Oct 5, 2007, 10:22:50 PM (18 years ago)

Author:

bird

Message:

added variable assignment to the includedep parser.

File:

• trunk/src/kmk/read.c (modified) (4 diffs)

trunk/src/kmk/read.c

@@ -477 +477 @@
    use the normal eval routine but does all the parsing itself. This isn't,
    as much work as it sounds, because the necessary feature set is very
-   limited. */
+   limited.
+
+   eval_include_dep groks:
+
+   define var
+   endef
+
+   var [|:|?|>]= value [\]
+
+   [\]
+   file: [deps] [\]
+
+   */
 void
 eval_include_dep (const char *name, struct floc *f)
@@ -556 +568 @@
         }
 
-      /* define var ... endef for command tracking. */
+      /* define var
+         ...
+         endef */
       if (strneq (cur, "define ", 7))
         {
@@ -652 +666 @@
                                   NULL /* global set */, f);
         }
-      /* file: deps */
+
+      /* file: deps
+         OR
+         variable [:]= value */
       else
         {
-          struct nameseq *filenames = 0;
-          struct dep *deps = 0;
-          struct dep **nextdep = &deps;
-          struct dep *dep;
-          int next_line = 1;
-          char *colonp;
-
-          /* look for a colon, ASSUME it's on the same line. */
+          const char *colonp;
+          const char *equalp;
+
+          /* Look for a colon and an equal sign, optimize for colon.
+             Only one file is support and the colon / equal must be on
+             the same line. */
           colonp = memchr (cur, ':', file_end - cur);
 #ifdef HAVE_DOS_PATHS
           while (   colonp
+                 && colonp + 1 < file_end
                  && (colonp[1] == '/' || colonp[1] == '\\')
                  && colonp > cur
@@ -673 +689 @@
               colonp = memchr (colonp + 1, ':', file_end - (colonp + 1));
 #endif
-          if (!colonp || memchr (cur, '\n', colonp - cur))
+          endp = NULL;
+          if (   !colonp
+              ||  (endp = memchr (cur, '\n', colonp - cur)))
             {
-              error (f, "%s(%d): no colon.", name, line_no);
-              break;
-            }
-
-          /* extract the filename, ASSUME a single one. */
-          endp = colonp;
-          while (endp > cur && isblank ((unsigned char)endp[-1]))
-            --endp;
-          if (cur == endp)
-            {
-              error (f, "%s(%d): empty filename.", name, line_no);
-              break;
-            }
-          filenames = xmalloc (sizeof (struct nameseq));
-          memset (filenames, 0, sizeof (*filenames));
-          filenames->name = strcache_add_len (cur, endp - cur);
-
-          /* parse any dependencies. */
-          cur = colonp + 1;
-          while (cur < file_end)
-            {
-              /* skip blanks and count lines. */
-              while (cur < file_end && isspace ((unsigned char)*cur) && *cur != '\n')
-                ++cur;
-              if (cur >= file_end)
-                break;
-              if (*cur == '\n')
+              colonp = NULL;
+              equalp = memchr (cur, '=', (endp ? endp : file_end) - cur);
+              if (   !equalp
+                  || (!endp && memchr (cur, '\n', equalp - cur)))
                 {
-                  cur++;
-                  line_no++;
+                  error (f, "%s(%d): no colon.", name, line_no);
                   break;
                 }
-
-              /* continuation + eol? */
-              if (*cur == '\\')
+            }
+          else
+            equalp = memchr (cur, '=', (colonp + 2 <= file_end
+                                        ? colonp + 2 : file_end) - cur);
+          if (equalp)
+            {
+              /* An assignment of some sort. */
+              const char *var;
+              unsigned var_len;
+              const char *value_start;
+              const char *value_end;
+              char *value;
+              unsigned value_len;
+              unsigned multi_line = 0;
+              enum variable_flavor flavor;
+
+              /* figure the flavor first. */
+              flavor = f_recursive;
+              if (equalp > cur)
                 {
-                  unsigned eol_len = (file_end - cur > 1 && cur[1] == '\n') ? 2
-                                   : (file_end - cur > 2 && cur[1] == '\r' && cur[2] == '\n') ? 3
-                                   : (file_end - cur == 1) ? 1 : 0;
-                  if (eol_len)
+                  if (equalp[-1] == ':')
+                    flavor = f_simple;
+                  else if (equalp[-1] == '?')
+                    flavor = f_conditional;
+                  else if (equalp[-1] == '+')
+                    flavor = f_append;
+                  else if (equalp[-1] == '>')
+                    flavor = f_prepend;
+                }
+
+              /* extract the variable name. */
+              endp = flavor == f_recursive ? equalp : equalp - 1;
+              while (endp > cur && isblank ((unsigned char)endp[-1]))
+                --endp;
+              var_len = endp - cur;
+              if (!var_len)
+                {
+                  error (f, "%s(%d): empty variable. (includedep)", name, line_no);
+                  break;
+                }
+              if (   memchr (cur, '$', var_len)
+                  || memchr (cur, ' ', var_len)
+                  || memchr (cur, '\t', var_len))
+                {
+                  error (f, "%s(%d): fancy variable name. (includedep)", name, line_no);
+                  break;
+                }
+              var = strcache_add_len (cur, var_len);
+
+              /* find the start of the value. */
+              cur = equalp + 1;
+              while (cur < file_end && isblank ((unsigned char)*cur))
+                cur++;
+              value_start = cur;
+
+              /* find the end of the value / line (this isn't 101% correct). */
+              value_end = cur;
+              while (cur < file_end)
+                {
+                  endp = value_end = memchr (cur, '\n', file_end - cur);
+                  if (!value_end)
+                    value_end = file_end;
+                  if (value_end - 1 >= cur && value_end[-1] == '\r')
+                    --value_end;
+                  if (value_end - 1 < cur || value_end[-1] != '\\')
                     {
-                      cur += eol_len;
+                      cur = endp ? endp + 1 : file_end;
+                      break;
+                    }
+                  --value_end;
+                  if (value_end - 1 >= cur && value_end[-1] == '\\')
+                    {
+                      error (f, "%s(%d): fancy escaping! (includedep)", name, line_no);
+                      cur = NULL;
+                      break;
+                    }
+                  if (!endp)
+                    {
+                      cur = file_end;
+                      break;
+                    }
+
+                  cur = endp + 1;
+                  ++multi_line;
+                  ++line_no;
+                }
+              if (!cur)
+                break;
+              ++line_no;
+
+              /* make a copy of the value, converting \r\n to \n, and define it. */
+              value_len = value_end - value_start;
+              value = xmalloc (value_len + 1);
+              if (!multi_line)
+                  memcpy (value, value_start, value_len);
+              else
+                {
+                  /* unescape it */
+                  const char *src = value_start;
+                  char *dst = value;
+                  while (src < value_end)
+                    {
+                      const char *nextp;
+
+                      endp = memchr (src, '\n', value_end - src);
+                      if (!endp)
+                        nextp = endp = value_end;
+                      else
+                        nextp = endp + 1;
+                      if (endp > src && endp[-1] == '\r')
+                        --endp;
+                      if (endp > src && endp[-1] == '\\')
+                        --endp;
+
+                      if (src != value_start)
+                        *dst++ = '\n';
+                      memcpy (dst, src, endp - src);
+                      dst += endp - src;
+                      src = nextp;
+                    }
+                  value_len = dst - value;
+                }
+              value [value_len] = '\0';
+
+              /* do the definition */
+              if (flavor == f_recursive
+               || (   flavor == f_simple
+                   && !memchr (value, '$', value_len)))
+                define_variable_in_set (var, var_len, value, value_len,
+                                        0 /* don't duplicate */, o_file,
+                                        flavor == f_recursive /* recursive */,
+                                        NULL /* global set */, f);
+              else
+                {
+                  do_variable_definition (f, var, value, o_file, flavor,
+                                          0 /* not target var */);
+                  free (value);
+                }
+            }
+          else
+            {
+              /* file: dependencies */
+
+              struct nameseq *filenames = 0;
+              struct dep *deps = 0;
+              struct dep **nextdep = &deps;
+              struct dep *dep;
+              int next_line = 1;
+
+              /* extract the filename, ASSUME a single one. */
+              endp = colonp;
+              while (endp > cur && isblank ((unsigned char)endp[-1]))
+                --endp;
+              if (cur == endp)
+                {
+                  error (f, "%s(%d): empty filename.", name, line_no);
+                  break;
+                }
+              if (   memchr (cur, '$', endp - cur)
+                  || memchr (cur, ' ', endp - cur)
+                  || memchr (cur, '\t', endp - cur))
+                {
+                  error (f, "%s(%d): multiple / fancy file name. (includedep)", name, line_no);
+                  break;
+                }
+              filenames = xmalloc (sizeof (struct nameseq));
+              memset (filenames, 0, sizeof (*filenames));
+              filenames->name = strcache_add_len (cur, endp - cur);
+
+              /* parse any dependencies. */
+              cur = colonp + 1;
+              while (cur < file_end)
+                {
+                  /* skip blanks and count lines. */
+                  while (cur < file_end && isspace ((unsigned char)*cur) && *cur != '\n')
+                    ++cur;
+                  if (cur >= file_end)
+                    break;
+                  if (*cur == '\n')
+                    {
+                      cur++;
                       line_no++;
-                      continue;
+                      break;
                     }
+
+                  /* continuation + eol? */
+                  if (*cur == '\\')
+                    {
+                      unsigned eol_len = (file_end - cur > 1 && cur[1] == '\n') ? 2
+                                       : (file_end - cur > 2 && cur[1] == '\r' && cur[2] == '\n') ? 3
+                                       : (file_end - cur == 1) ? 1 : 0;
+                      if (eol_len)
+                        {
+                          cur += eol_len;
+                          line_no++;
+                          continue;
+                        }
+                    }
+
+                  /* find the end of the filename */
+                  endp = cur;
+                  while (endp < file_end && !isspace ((unsigned char)*endp))
+                    ++endp;
+
+                  /* add it to the list. */
+                  *nextdep = dep = alloc_dep ();
+                  dep->name = strcache_add_len (cur, endp - cur);
+                  nextdep = &dep->next;
+
+                  cur = endp;
                 }
 
-              /* find the end of the filename */
-              endp = cur;
-              while (endp < file_end && !isspace ((unsigned char)*endp))
-                ++endp;
-
-              /* add it to the list. */
-              *nextdep = dep = alloc_dep ();
-              dep->name = strcache_add_len (cur, endp - cur);
-              nextdep = &dep->next;
-
-              cur = endp;
+              /* enter the file with its dependencies. */
+              record_files (filenames, NULL, NULL, deps, 0, NULL, 0, 0, f);
             }
-
-          /* enter the file with its dependencies. */
-          record_files (filenames, NULL, NULL, deps, 0, NULL, 0, 0, f);
         }
     }