tweag/nickel
1
1
Fork 0
mirror of https://github.com/tweag/nickel.git synced 2024-09-20 08:05:15 +03:00
Code Issues Projects Releases Wiki Activity

Implement the Ident contract

Browse Source
This commit is contained in:
Yann Hamdaoui 2021-02-15 14:36:06 +01:00
parent be8ce6f49e
commit 64312104ce
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
stdlib/strings.ncl
View File

@ -33,9 +33,12 @@
%blame% (%tag% "not a string" l);
Ident = fun l s =>
let pattern = m#"_?[a-zA-Z][_a-zA-Z0-9]*"#m in
if %isStr% s then
//use regex here
if (%strMatch% s pattern).index > -1 then
s
else
%blame% (%tag% "invalid enum tag" l)
else
%blame% (%tag% "not a string" l);