View/Edit #29:star_list

Name(s): star_list

1:  "Copied from Picard (#7153):star_list Aug 26 20:35:50 1997"
2:  "$string_utils:star_list(STR)"
3:  "     -=>  Views the string to weed out all the asterix's (*)."
4:  "          It returns a list composed of the original string, "
5:  "          and any occurence from the first character to the *."
6:  "            Programed by Picard (#7153) on August 26, 1997."
7:  if (!args)
8:    return raise(E_ARGS, "... no verb specified ...")
9:  endif
10: {v} = args
11: if (!index(v, "*"))
12:   return {v}
13: endif
14: vlist = {}
15: while (index(v, "*"))
16:   x = index(v, "*")
17:   vlist = {@vlist, v[1..x - 1]}
18:   if (x == length(v))
19:     v = v[1..x - 1]
20:   else
21:     v = v[1..x - 1] + v[x + 1..$]
22:   endif
23: endwhile
24: vlist = {@vlist, v}
25: return vlist

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Hacker (#60)

You are not logged in.