758d1d6d47
Signed-off-by: Izuru Yakumo <yakumo.izuru@chaotic.ninja> git-svn-id: file:///srv/svn/repo/kosuzu/trunk@73 eb64cd80-c68d-6f47-b6a3-0ada418499da
6 lines
234 B
OCaml
6 lines
234 B
OCaml
let validate_id_length s = String.length s <= 32
|
|
let validate_id_chars s = try
|
|
String.iter (function 'a'..'z'|'A'..'Z'|'0'..'9'-> () | _ -> raise (Invalid_argument "")) s;
|
|
true
|
|
with Invalid_argument _ -> false
|