msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

toUpperFirst and toLowerFirst in Prelude

Browse Source
This commit is contained in:
aarne
2013-08-01 15:42:37 +00:00
parent f1d407de09
commit ea65882c53
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/prelude/Prelude.gf
View File

@@ -138,5 +138,17 @@ oper
eNext : ENumber -> ENumber = \e -> case e of { eNext : ENumber -> ENumber = \e -> case e of {
E0 => E1 ; E1 => E2 ; _ => Emore} ; E0 => E1 ; E1 => E2 ; _ => Emore} ;
-- convert initial to upper/lower
toUpperFirst : Str -> Str = \s -> case s of {
x@? + xs => Predef.toUpper x + xs ;
_ => s
} ;
toLowerFirst : Str -> Str = \s -> case s of {
x@? + xs => Predef.toLower x + xs ;
_ => s
} ;
} }