Rem
bbdoc: shaman\Result
about: Simple Result Typ

Initialised with Init()
EndRem
Module shaman.Result

Rem
bbdoc: Used to define a Result
about: Example: <br><br>
Function Test:TResult() <br>
   Return TResult.OK <br>
end function <br>
If Test()=TResult.OK then Print "OK"
EndRem
Type TResult
   Rem
   bbdoc: Shows "OK"
   EndRem
   Global OK:TResult
   
   Rem
   bbdoc: Shows "Time out"
   EndRem
   Global TIME_OUT:TResult
   
   Rem
   bbdoc: Shows "Fail"
   EndRem
   Global FAIL:TResult
   
   Rem
   bbdoc: Shows "Error"
   EndRem
   Global ERROR:TResult
   
   Rem
   bbdoc: Shows "Out of Border"
   EndRem
   Global OUT_OF_BORDER:TResult
   
   Field name:String
   Method ToString:String()
      Return Self.name
   End Method
   
   Rem
   bbdoc: Initialize The Result System
   End Rem
   Function Init()
      TResult.OK=New TResult
      TResult.OK.name="OK"
      
      TResult.TIME_OUT=New TResult
      TResult.TIME_OUT.name="Time out"
      
      TResult.FAIL=New TResult
      TResult.FAIL.name="Fail"
      
      TResult.ERROR=New TResult
      TResult.ERROR.name="Error"
      
      TResult.OUT_OF_BORDER=New TResult
      TResult.OUT_OF_BORDER.name="Out of Border"
   End Function
End Type

Import shaman.Result

TResult.Init()

If TestFunc("blab")=TResult.OK Then
   Print "Success"
Else
   Print "Error"
Endif

If TestFunc("")=TResult.OK Then
   Print "Success"
Else
   Print "Error"
Endif

End

Function TestFunc:TResult(text:String)
   If text=null Or text="" Then Return TResult.ERROR
   Print text
   Return TResult.OK
End Function