Splitting list of symbols

This is macro which may become useful for those, who write some complex macroinstructions. It may be used just as is, but it can also serve as a reference.

It's purpose is to split given sequence of symbols on boundaries defined by specified separator, and then call the specified macroinstruction with multiple parameters, each being one of the splitted chunks.
For example:

Code:

split mymacro,+, 1+2+3*3

will cause this operation to be performed:

Code:

mymacro 1,2,3*3

When no separator is specified, the sequence is splitted to the single symbols, so this:

Code:

split mymacro,, 1+2+3*3

will be unrolled to:

Code:

mymacro 1,+,2,+,3,*,3

The sequence of symbols can also be the value of symbolic constant, so the above sample is eqivalent to:

Code:

myexpr equ 1+2+3*3
split mymacro,,myexpr

And here is the macro:

Code:

macro split macroname,separator,[items]
{ common local list
   list equ
   defsplitter
   splitter list,separator,<items>
   purge splitter
   match splitted, list \{ macroname splitted \} }

macro listattach list,item
{ match any,list \{ list equ list,item \}
  match ,list \{ list equ item \} }

macro defsplitter
{ local splitted
  macro splitter list,separator,items
  \{ splitted equ
     match first separator rest, items \\{ listattach list,<first>
                                           defsplitter
                                           splitter list,separator,<rest>
                                           restore splitted \\}
     match ,splitted \\{ listattach list,<items>
                         restore splitted \\} \} }

macro split macroname*,separator*,items { local list,continue list equ irps sym, items \{ match separator,sym \\{ list equ list>,< continue equ \\} match =continue s, continue sym \\{ list equ list s continue equ \\} restore continue \} match params, <list> \{ macroname params \} }