Changeset 40652 for trunk/Ohana/src/opihi/lib.shell/string.c

Timestamp:

Mar 29, 2019, 5:05:27 AM (7 years ago)

Author:

eugene

Message:

allow nested variables in lists (e.g., $ref = foo, $foo:n = a, $$ref:n = a); add list -file option

File:

• trunk/Ohana/src/opihi/lib.shell/string.c (modified) (1 diff)

trunk/Ohana/src/opihi/lib.shell/string.c

@@ -114 +114 @@
 }
 
+/* take a pointer to the beginning of a variable (ie $foo)
+and extract only the variable name (eg, foo) */
+
+char *thisref (char *string) {
+
+  int i, start;
+  char *word;
+
+  if (string == (char *) NULL) return ((char *) NULL);
+  if (string[0] != '$') return ((char *) NULL);
+
+  /* special case $?name : check that name is valid */
+  start = 1;
+  if (string[1] == '?') start = 2;
+
+  for (i = start; ISREF(string[i]); i++);
+  if (i == start) return ((char *) NULL);
+
+  /* the ? is part of the variable */
+  word = strncreate (&string[1], i - 1);
+  return (word);
+
+}
 
 /**********************************************************************/