17 lines
369 B
Plaintext
Executable File
17 lines
369 B
Plaintext
Executable File
-- array related function
|
|
-- @author Gunnar Droege
|
|
|
|
fn RsArrayJoin thearray token:"," property: =
|
|
(
|
|
local str = ""
|
|
for item in thearray do
|
|
(
|
|
if ""!=str then
|
|
append str token
|
|
if unsupplied!=property and hasProperty item property then
|
|
append str ((getProperty item property) as string)
|
|
else
|
|
append str (item as string)
|
|
)
|
|
return str
|
|
) |