<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of class methods" rel=Appendix href="index_methods.html"> <link title="Index of classes" rel=Appendix href="index_classes.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Index of module types" rel=Appendix href="index_module_types.html"> <link title="BatArray" rel="Chapter" href="BatArray.html"> <link title="BatAvlTree" rel="Chapter" href="BatAvlTree.html"> <link title="BatBase64" rel="Chapter" href="BatBase64.html"> <link title="BatBig_int" rel="Chapter" href="BatBig_int.html"> <link title="BatBigarray" rel="Chapter" href="BatBigarray.html"> <link title="BatBitSet" rel="Chapter" href="BatBitSet.html"> <link title="BatBool" rel="Chapter" href="BatBool.html"> <link title="BatBounded" rel="Chapter" href="BatBounded.html"> <link title="BatBuffer" rel="Chapter" href="BatBuffer.html"> <link title="BatCache" rel="Chapter" href="BatCache.html"> <link title="BatChar" rel="Chapter" href="BatChar.html"> <link title="BatCharParser" rel="Chapter" href="BatCharParser.html"> <link title="BatComplex" rel="Chapter" href="BatComplex.html"> <link title="BatConcurrent" rel="Chapter" href="BatConcurrent.html"> <link title="BatDeque" rel="Chapter" href="BatDeque.html"> <link title="BatDigest" rel="Chapter" href="BatDigest.html"> <link title="BatDllist" rel="Chapter" href="BatDllist.html"> <link title="BatDynArray" rel="Chapter" href="BatDynArray.html"> <link title="BatEnum" rel="Chapter" href="BatEnum.html"> <link title="BatFile" rel="Chapter" href="BatFile.html"> <link title="BatFingerTree" rel="Chapter" href="BatFingerTree.html"> <link title="BatFloat" rel="Chapter" href="BatFloat.html"> <link title="BatFormat" rel="Chapter" href="BatFormat.html"> <link title="BatGc" rel="Chapter" href="BatGc.html"> <link title="BatGenlex" rel="Chapter" href="BatGenlex.html"> <link title="BatGlobal" rel="Chapter" href="BatGlobal.html"> <link title="BatHashcons" rel="Chapter" href="BatHashcons.html"> <link title="BatHashtbl" rel="Chapter" href="BatHashtbl.html"> <link title="BatHeap" rel="Chapter" href="BatHeap.html"> <link title="BatIMap" rel="Chapter" href="BatIMap.html"> <link title="BatIO" rel="Chapter" href="BatIO.html"> <link title="BatISet" rel="Chapter" href="BatISet.html"> <link title="BatInnerIO" rel="Chapter" href="BatInnerIO.html"> <link title="BatInnerPervasives" rel="Chapter" href="BatInnerPervasives.html"> <link title="BatInnerWeaktbl" rel="Chapter" href="BatInnerWeaktbl.html"> <link title="BatInt" rel="Chapter" href="BatInt.html"> <link title="BatInt32" rel="Chapter" href="BatInt32.html"> <link title="BatInt64" rel="Chapter" href="BatInt64.html"> <link title="BatInterfaces" rel="Chapter" href="BatInterfaces.html"> <link title="BatLazyList" rel="Chapter" href="BatLazyList.html"> <link title="BatLexing" rel="Chapter" href="BatLexing.html"> <link title="BatList" rel="Chapter" href="BatList.html"> <link title="BatLog" rel="Chapter" href="BatLog.html"> <link title="BatLogger" rel="Chapter" href="BatLogger.html"> <link title="BatMap" rel="Chapter" href="BatMap.html"> <link title="BatMarshal" rel="Chapter" href="BatMarshal.html"> <link title="BatMultiMap" rel="Chapter" href="BatMultiMap.html"> <link title="BatMultiPMap" rel="Chapter" href="BatMultiPMap.html"> <link title="BatMutex" rel="Chapter" href="BatMutex.html"> <link title="BatNativeint" rel="Chapter" href="BatNativeint.html"> <link title="BatNum" rel="Chapter" href="BatNum.html"> <link title="BatNumber" rel="Chapter" href="BatNumber.html"> <link title="BatOo" rel="Chapter" href="BatOo.html"> <link title="BatOptParse" rel="Chapter" href="BatOptParse.html"> <link title="BatOption" rel="Chapter" href="BatOption.html"> <link title="BatOrd" rel="Chapter" href="BatOrd.html"> <link title="BatParserCo" rel="Chapter" href="BatParserCo.html"> <link title="BatPathGen" rel="Chapter" href="BatPathGen.html"> <link title="BatPervasives" rel="Chapter" href="BatPervasives.html"> <link title="BatPrintexc" rel="Chapter" href="BatPrintexc.html"> <link title="BatPrintf" rel="Chapter" href="BatPrintf.html"> <link title="BatQueue" rel="Chapter" href="BatQueue.html"> <link title="BatRMutex" rel="Chapter" href="BatRMutex.html"> <link title="BatRandom" rel="Chapter" href="BatRandom.html"> <link title="BatRef" rel="Chapter" href="BatRef.html"> <link title="BatRefList" rel="Chapter" href="BatRefList.html"> <link title="BatResult" rel="Chapter" href="BatResult.html"> <link title="BatReturn" rel="Chapter" href="BatReturn.html"> <link title="BatScanf" rel="Chapter" href="BatScanf.html"> <link title="BatSeq" rel="Chapter" href="BatSeq.html"> <link title="BatSet" rel="Chapter" href="BatSet.html"> <link title="BatSplay" rel="Chapter" href="BatSplay.html"> <link title="BatStack" rel="Chapter" href="BatStack.html"> <link title="BatStream" rel="Chapter" href="BatStream.html"> <link title="BatString" rel="Chapter" href="BatString.html"> <link title="BatSubstring" rel="Chapter" href="BatSubstring.html"> <link title="BatSys" rel="Chapter" href="BatSys.html"> <link title="BatText" rel="Chapter" href="BatText.html"> <link title="BatTuple" rel="Chapter" href="BatTuple.html"> <link title="BatUChar" rel="Chapter" href="BatUChar.html"> <link title="BatUTF8" rel="Chapter" href="BatUTF8.html"> <link title="BatUnit" rel="Chapter" href="BatUnit.html"> <link title="BatUnix" rel="Chapter" href="BatUnix.html"> <link title="BatUref" rel="Chapter" href="BatUref.html"> <link title="BatVect" rel="Chapter" href="BatVect.html"> <link title="Batteries" rel="Chapter" href="Batteries.html"> <link title="BatteriesConfig" rel="Chapter" href="BatteriesConfig.html"> <link title="BatteriesPrint" rel="Chapter" href="BatteriesPrint.html"> <link title="BatteriesThread" rel="Chapter" href="BatteriesThread.html"> <link title="Extlib" rel="Chapter" href="Extlib.html"><title>Batteries user guide : Batteries.Incubator.Bounded</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> <span class="keywordsign">'</span>a bound_t = [ <span class="keywordsign">`</span>c <span class="keyword">of</span> <span class="keywordsign">'</span>a <span class="keywordsign">|</span> <span class="keywordsign">`</span>o <span class="keyword">of</span> <span class="keywordsign">'</span>a <span class="keywordsign">|</span> <span class="keywordsign">`</span>u ]<br> <span class="keyword">type</span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) bounding_f = bounds:<span class="keywordsign">'</span>a bound_t * <span class="keywordsign">'</span>a bound_t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>b<br> <span class="keyword">val</span> bounding_of_ord :<br> default_low:<span class="keywordsign">'</span>b <span class="keywordsign">-></span><br> default_high:<span class="keywordsign">'</span>b <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="constructor">BatOrd</span>.order) <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) bounding_f<br> <span class="keyword">val</span> bounding_of_ord_chain :<br> low:(<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span><br> high:(<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="constructor">BatOrd</span>.order) <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) bounding_f<br> <span class="keyword">val</span> saturate_of_ord :<br> bounds:<span class="keywordsign">'</span>a bound_t * <span class="keywordsign">'</span>a bound_t <span class="keywordsign">-></span> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="constructor">BatOrd</span>.order) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>a<br> <span class="keyword">val</span> opt_of_ord :<br> bounds:<span class="keywordsign">'</span>a bound_t * <span class="keywordsign">'</span>a bound_t <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="constructor">BatOrd</span>.order) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>a option<br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">BoundedType</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> base_t<br> <span class="keyword">type</span> t<br> <span class="keyword">val</span> bounds : base_t bound_t * base_t bound_t<br> <span class="keyword">val</span> bounded : (base_t, t) bounding_f<br> <span class="keyword">val</span> base_of_t : t <span class="keywordsign">-></span> base_t option<br> <span class="keyword">val</span> base_of_t_exn : t <span class="keywordsign">-></span> base_t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">BoundedNumericType</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> base_t<br> <span class="keyword">type</span> t<br> <span class="keyword">val</span> bounds : base_t bound_t * base_t bound_t<br> <span class="keyword">val</span> bounded : (base_t, t) bounding_f<br> <span class="keyword">val</span> base_of_t : t <span class="keywordsign">-></span> base_t option<br> <span class="keyword">val</span> base_of_t_exn : t <span class="keywordsign">-></span> base_t<br> <span class="keyword">module</span> <span class="constructor">Infix</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">val</span> ( + ) : base_t <span class="keywordsign">-></span> base_t <span class="keywordsign">-></span> base_t<br> <span class="keyword">val</span> ( - ) : base_t <span class="keywordsign">-></span> base_t <span class="keywordsign">-></span> base_t<br> <span class="keyword">val</span> ( * ) : base_t <span class="keywordsign">-></span> base_t <span class="keywordsign">-></span> base_t<br> <span class="keyword">val</span> ( / ) : base_t <span class="keywordsign">-></span> base_t <span class="keywordsign">-></span> base_t<br> <span class="keyword">val</span> ( ** ) : base_t <span class="keywordsign">-></span> base_t <span class="keywordsign">-></span> base_t<br> <span class="keyword">val</span> ( -- ) : base_t <span class="keywordsign">-></span> base_t <span class="keywordsign">-></span> base_t <span class="constructor">BatEnum</span>.t<br> <span class="keyword">val</span> ( --- ) : base_t <span class="keywordsign">-></span> base_t <span class="keywordsign">-></span> base_t <span class="constructor">BatEnum</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">S</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> base_u<br> <span class="keyword">type</span> u<br> <span class="keyword">type</span> t = <span class="keyword">private</span> u<br> <span class="keyword">val</span> bounds : base_u bound_t * base_u bound_t<br> <span class="keyword">val</span> make : base_u <span class="keywordsign">-></span> t<br> <span class="keyword">external</span> extract : t <span class="keywordsign">-></span> u = <span class="string">"%identity"</span><br> <span class="keyword">val</span> map : (base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t option<br> <span class="keyword">val</span> map2 : (base_u <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t option<br> <span class="keyword">val</span> map_exn : (base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> map2_exn : (base_u <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="keyword">type</span> <span class="constructor">NumericSig</span> =<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> base_u<br> <span class="keyword">type</span> u<br> <span class="keyword">type</span> t = <span class="keyword">private</span> u<br> <span class="keyword">val</span> bounds : base_u bound_t * base_u bound_t<br> <span class="keyword">val</span> make : base_u <span class="keywordsign">-></span> t<br> <span class="keyword">external</span> extract : t <span class="keywordsign">-></span> u = <span class="string">"%identity"</span><br> <span class="keyword">val</span> map : (base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t option<br> <span class="keyword">val</span> map2 : (base_u <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t option<br> <span class="keyword">val</span> map_exn : (base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> map2_exn : (base_u <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( + ) : t <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( - ) : t <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( * ) : t <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( / ) : t <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( +: ) : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( -: ) : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( *: ) : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( /: ) : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Make</span> :<br> <span class="keyword">functor</span> (<span class="constructor">M</span> : <span class="constructor">BoundedType</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> base_u = <span class="constructor">M</span>.base_t<br> <span class="keyword">type</span> u = <span class="constructor">M</span>.t<br> <span class="keyword">type</span> t = <span class="constructor">BatBounded</span>.<span class="constructor">Make</span>(<span class="constructor">M</span>).t<br> <span class="keyword">val</span> bounds : base_u bound_t * base_u bound_t<br> <span class="keyword">val</span> make : base_u <span class="keywordsign">-></span> t<br> <span class="keyword">external</span> extract : t <span class="keywordsign">-></span> u = <span class="string">"%identity"</span><br> <span class="keyword">val</span> map : (base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t option<br> <span class="keyword">val</span> map2 : (base_u <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t option<br> <span class="keyword">val</span> map_exn : (base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> map2_exn : (base_u <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">MakeNumeric</span> :<br> <span class="keyword">functor</span> (<span class="constructor">M</span> : <span class="constructor">BoundedNumericType</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> base_u = <span class="constructor">M</span>.base_t<br> <span class="keyword">type</span> u = <span class="constructor">M</span>.t<br> <span class="keyword">type</span> t = <span class="constructor">BatBounded</span>.<span class="constructor">MakeNumeric</span>(<span class="constructor">M</span>).t<br> <span class="keyword">val</span> bounds : base_u bound_t * base_u bound_t<br> <span class="keyword">val</span> make : base_u <span class="keywordsign">-></span> t<br> <span class="keyword">external</span> extract : t <span class="keywordsign">-></span> u = <span class="string">"%identity"</span><br> <span class="keyword">val</span> map : (base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t option<br> <span class="keyword">val</span> map2 : (base_u <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t option<br> <span class="keyword">val</span> map_exn : (base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> map2_exn : (base_u <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> base_u) <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( + ) : t <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( - ) : t <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( * ) : t <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( / ) : t <span class="keywordsign">-></span> base_u <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( +: ) : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( -: ) : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( *: ) : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">val</span> ( /: ) : t <span class="keywordsign">-></span> t <span class="keywordsign">-></span> t<br> <span class="keyword">end</span><br> <span class="keyword">end</span></code></body></html>