diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-01-11 14:03:54 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-01-11 14:03:54 -0500 |
| commit | b6c2ebc6168eea0f7bdd203dd85cb87eeab5f293 (patch) | |
| tree | 07c262b05b9acf20fbb9aaaef74b8a2b300ad330 /lib | |
| parent | fb8539bea137355f9a7891bb8e4a775512971d5e (diff) | |
String processing optimizations
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ur/basis.urs | 1 | ||||
| -rw-r--r-- | lib/ur/string.ur | 1 | ||||
| -rw-r--r-- | lib/ur/string.urs | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 0938096b..727f2e39 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -81,6 +81,7 @@ val chr : int -> char (** String operations *) val strlen : string -> int +val strlenGe : string -> int -> bool 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 6a269373..235e5939 100644 --- a/lib/ur/string.ur +++ b/lib/ur/string.ur @@ -3,6 +3,7 @@ type t = Basis.string val str = Basis.str1 val length = Basis.strlen +val lengthGe = Basis.strlenGe val append = Basis.strcat val sub = Basis.strsub diff --git a/lib/ur/string.urs b/lib/ur/string.urs index 552da557..52aa27b6 100644 --- a/lib/ur/string.urs +++ b/lib/ur/string.urs @@ -3,6 +3,7 @@ type t = string val str : char -> t val length : t -> int +val lengthGe : t -> int -> bool val append : t -> t -> t |