Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Str("int result = (x + 3) * 2 - (y - 7 / z) * (5 ^ a + 10); /* (x + y) */")
      
      '// Capture standard blocks surrounded by parentheses
      t.Pattern("({expr})")
      
      '// Instruct the transformer to ignore any text inside C-style block comments.
      '// This prevents the commented "(x + y)" from being falsely counted as a match.
      t.SkipOver("/* {etc} */") '// commented text between /* */ is skipped
      
      t.Find()
      Console.WriteLine(t.Matches.Count())
   End Sub
End Module