payment: note that Stripe has instituted an additional 1% fee for non-US cards

[hcoop/portal.git] / util.sig

diff --git a/util.sig b/util.sig
index 2c134b8..f8c38d4 100644 (file)
--- a/util.sig
+++ b/util.sig
@@ -1,5 +1,7 @@
 signature UTIL =
 sig
+    val init : unit -> unit
+
     datatype 'a flat_element =
             BEGIN
           | END
@@ -12,4 +14,28 @@ sig
     val id : 'a -> 'a
     val makeSet : ('a -> string) -> 'a list -> string
     val neg : real -> real
-end
\ No newline at end of file
+    val add : real * real -> real
+    val sub : real * real -> real
+    val mult : int * real -> real
+
+    val lt : real * real -> bool
+    val ge : real * real -> bool
+
+    val validHost : string -> bool
+    val validDomain : string -> bool
+    val validEmail : string -> bool
+    val whoisUrl : string -> string
+
+    val randomPassword : unit -> string
+
+    val domainDir : string -> string
+
+    val readFile : string -> string
+
+    val mem : ''a * ''a list -> bool
+
+    val allLower : string -> string
+    val normEmail : string -> string
+
+    val diffFromNow : Time.time -> string
+end