diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-30 09:59:10 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-30 09:59:10 -0400 |
| commit | 581a2290590268039cacfbe0762b343f710c3116 (patch) | |
| tree | a464f8a46243a2a77f37e93ab8934b1d7d11f0fc /lib/ur | |
| parent | 62c7b094ecf7e618a2e31658994bf648e1b36819 (diff) | |
String.length
Diffstat (limited to 'lib/ur')
| -rw-r--r-- | lib/ur/basis.urs | 1 | ||||
| -rw-r--r-- | lib/ur/string.ur | 3 | ||||
| -rw-r--r-- | lib/ur/string.urs | 4 |
3 files changed, 8 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 1209d265..c63c5ed4 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -53,6 +53,7 @@ val ord_time : ord time (** String operations *) +val strlen : string -> int val strcat : string -> string -> string val strsub : string -> int -> char val strsuffix : string -> int -> string diff --git a/lib/ur/string.ur b/lib/ur/string.ur index 5362805b..23670966 100644 --- a/lib/ur/string.ur +++ b/lib/ur/string.ur @@ -1,4 +1,7 @@ type t = Basis.string +val length = Basis.strlen +val append = Basis.strcat + val sub = Basis.strsub val suffix = Basis.strsuffix diff --git a/lib/ur/string.urs b/lib/ur/string.urs index 524e002d..ef522387 100644 --- a/lib/ur/string.urs +++ b/lib/ur/string.urs @@ -1,4 +1,8 @@ type t = string +val length : t -> int + +val append : t -> t -> t + val sub : t -> int -> char val suffix : t -> int -> string |