mirror of
https://github.com/natnat-mc/moonbuild
synced 2026-05-28 19:59:40 +02:00
Nathan DECHER
26 lines
618 B
MoonScript
26 lines
618 B
MoonScript
import match, gmatch, sub from string
|
|
import upper, lower from string
|
|
|
|
GLOB_PATT='^([^%%]*)%%([^%%]*)$'
|
|
|
|
patsubst = (str, pattern, replacement) ->
|
|
return [patsubst s, pattern, replacement for s in *str] if (type str)=='table'
|
|
prefix, suffix = match pattern, GLOB_PATT
|
|
return str unless prefix
|
|
reprefix, resuffix = match replacement, GLOB_PATT
|
|
return replacement unless reprefix
|
|
|
|
if (sub str, 1, #prefix)==prefix and (sub str, -#suffix)==suffix
|
|
return reprefix..(sub str, #prefix+1, -#suffix-1)..resuffix
|
|
str
|
|
|
|
splitsp = (str) ->
|
|
[elem for elem in gmatch str, '%S+']
|
|
|
|
{
|
|
:patsubst
|
|
:splitsp
|
|
|
|
:upper, :lower
|
|
}
|