HJSMath.hs

----------------------------------------------------------------
-- Модуль приложения
-- Скрипты графического интерфейса (HScript)
-- Математические операции для языка JavaScript 
----------------------------------------------------------------

module WebUI.Scripts.JavaScript.HJSMath
    ( mathAbs
    , mathACos
    , mathACosh  
    , mathASin   
    , mathASinh  
    , mathAtan   
    , mathAtan2  
    , mathAtanh  
    , mathCbrt   
    , mathCeil   
    , mathClz32  
    , mathCos    
    , mathCosH   
    , mathExp    
    , mathExpm1  
    , mathFloor  
    , mathFround 
    , mathHypot  
    , mathImul   
    , mathLog    
    , mathLog10  
    , mathLog1p  
    , mathLog2   
    , mathMax    
    , mathMin    
    , mathPow    
    , mathRandom 
    , mathRound  
    , mathSign   
    , mathSin    
    , mathSinh   
    , mathSqrt   
    , mathTan    
    , mathTanh   
    , mathTrunc  
    ) where

-- Импорт модулей
import           Prelude                                     as PRL

import           Data.Char                                      (toLower)
import           Data.String.Utils                              (strip)

import           WebUI.Scripts.HScript
import           WebUI.Scripts.JavaScript.HJSTypes
import           WebUI.Scripts.JavaScript.HJSBuilder

    

hbConf = defaultHBConfig



mathAbs = abs

mathACos   x = HL $ "Math.acos("    ++ (buildHSL_L hbConf x) ++ ")"
mathACosh  x = HL $ "Math.acosh()"  ++ (buildHSL_L hbConf x) ++ ")"
mathASin   x = HL $ "Math.asin()"   ++ (buildHSL_L hbConf x) ++ ")"
mathASinh  x = HL $ "Math.asinh()"  ++ (buildHSL_L hbConf x) ++ ")"
mathAtan   x = HL $ "Math.atan()"   ++ (buildHSL_L hbConf x) ++ ")"
mathAtan2  x = HL $ "Math.atan2()"  ++ (buildHSL_L hbConf x) ++ ")"
mathAtanh  x = HL $ "Math.atanh()"  ++ (buildHSL_L hbConf x) ++ ")"
mathCbrt   x = HL $ "Math.cbrt()"   ++ (buildHSL_L hbConf x) ++ ")"
mathCeil   x = HL $ "Math.ceil()"   ++ (buildHSL_L hbConf x) ++ ")"
mathClz32  x = HL $ "Math.clz32()"  ++ (buildHSL_L hbConf x) ++ ")"
mathCos    x = HL $ "Math.cos()"    ++ (buildHSL_L hbConf x) ++ ")"
mathCosH   x = HL $ "Math.cosh()"   ++ (buildHSL_L hbConf x) ++ ")"
mathExp    x = HL $ "Math.exp()"    ++ (buildHSL_L hbConf x) ++ ")"
mathExpm1  x = HL $ "Math.expm1()"  ++ (buildHSL_L hbConf x) ++ ")"
mathFloor  x = HL $ "Math.floor()"  ++ (buildHSL_L hbConf x) ++ ")"
mathFround x = HL $ "Math.fround()" ++ (buildHSL_L hbConf x) ++ ")"
mathHypot  x = HL $ "Math.hypot()"  ++ (buildHSL_L hbConf x) ++ ")"
mathImul   x = HL $ "Math.imul()"   ++ (buildHSL_L hbConf x) ++ ")"
mathLog    x = HL $ "Math.log()"    ++ (buildHSL_L hbConf x) ++ ")"
mathLog10  x = HL $ "Math.log10()"  ++ (buildHSL_L hbConf x) ++ ")"
mathLog1p  x = HL $ "Math.log1p()"  ++ (buildHSL_L hbConf x) ++ ")"
mathLog2   x = HL $ "Math.log2()"   ++ (buildHSL_L hbConf x) ++ ")"
mathMax    x = HL $ "Math.max()"    ++ (buildHSL_L hbConf x) ++ ")"
mathMin    x = HL $ "Math.min()"    ++ (buildHSL_L hbConf x) ++ ")"
mathPow    x = HL $ "Math.pow()"    ++ (buildHSL_L hbConf x) ++ ")"
mathRandom x = HL $ "Math.random()" ++ (buildHSL_L hbConf x) ++ ")" 
mathRound  x = HL $ "Math.round()"  ++ (buildHSL_L hbConf x) ++ ")"
mathSign   x = HL $ "Math.sign()"   ++ (buildHSL_L hbConf x) ++ ")" 
mathSin    x = HL $ "Math.sin()"    ++ (buildHSL_L hbConf x) ++ ")"
mathSinh   x = HL $ "Math.sinh()"   ++ (buildHSL_L hbConf x) ++ ")" 
mathSqrt   x = HL $ "Math.sqrt()"   ++ (buildHSL_L hbConf x) ++ ")"  
mathTan    x = HL $ "Math.tan()"    ++ (buildHSL_L hbConf x) ++ ")" 
mathTanh   x = HL $ "Math.tanh()"   ++ (buildHSL_L hbConf x) ++ ")"  
mathTrunc  x = HL $ "Math.trunc()"  ++ (buildHSL_L hbConf x) ++ ")"