add support of the float in get web argument

totoro
1 parent eb2fde09
Showing 1 changed file with 29 additions and 0 deletions Show diff stats
web/CXM_web_arg_utils.anubis
@@ -217,6 +217,35 @@ public define List(Int)
   }
 .
  
+public define Maybe(Float)
+  get_Float
+  (
+    List(Web_arg) lwa,
+    String        name
+  ) =
+  if web_arg_value(lwa, name) is
+  {
+    not_found   then /*logDebug(debug_log, "Can't find argument '" + name + "'");*/ failure
+    found(str)  then
+      if str = "" then 
+        failure
+      else
+        string_to_float(str)
+  }.
+  
+public define Float
+  get_Float
+  (
+    List(Web_arg) lwa,
+    String        name,
+    Float         default_value
+  ) =
+  if get_Float(lwa, name) is
+  {
+    failure         then default_value,
+    success(value)  then value
+  }.
+  
 public define Maybe(Word32)
   get_Word32
   (