Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Define '##' with the same precedence as 'And'. 'And' binds tighter than 'Or'.
      Dim and_prec = uc.ItemOf("And", uCalc.Properties(ItemIs.Infix)).Precedence
      Dim op_handle = uc.DefineOperator("{a} ## {b} As Boolean = a and b", and_prec)
      
      Console.WriteLine("--- Initial Precedence (like 'And') ---")
      '// Evaluation is like: true or (false and false) -> true or false -> true
      Console.WriteLine(uc.EvalStr("true or false ## 1 == 2"))
      
      '// Now, change the precedence to be lower than 'Or'.
      Dim or_prec = uc.ItemOf("Or", uCalc.Properties(ItemIs.Infix)).Precedence
      op_handle.Precedence = or_prec - 10
      
      Console.WriteLine("")
      Console.WriteLine("--- Changed Precedence (lower than 'Or') ---")
      '// Evaluation is like: (true or false) and false -> true and false -> false
      Console.WriteLine(uc.EvalStr("true or false ## 1 == 2"))
   End Sub
End Module