Smart pascal source code


  type
    MyEnum = enum(a, b, c = 255);

  type
    MyEnum2 = enum(High, Low, a, b, c = 255);

  type
    MyFlags = flags(a, b, c);

  WriteLn(MyEnum.Low);
  WriteLn(MyEnum.High);

  WriteLn(MyEnum2.Low);
  WriteLn(MyEnum2.Low());
  WriteLn(MyEnum2.High);
  WriteLn(MyEnum2.High());

  WriteLn(MyFlags.Low);
  WriteLn(MyFlags.High);

  { <<< CONSOLE OUTPUTS >>>
    0
    255
    1
    0
    0
    255
    1
    4
  }

      /// MyFlags enumeration
      ///  [line: 41, column: 6, file: uMain]
      var MyFlags = { 1:"a", 2:"b", 4:"c" };
      /// MyEnum2 enumeration
      ///  [line: 40, column: 6, file: uMain]
      var MyEnum2 = { 0:"High", 1:"Low", 2:"a", 3:"b", 255:"c" };
      /// MyEnum enumeration
      ///  [line: 39, column: 6, file: uMain]
      var MyEnum = { 0:"a", 1:"b", 255:"c" };
      WriteLn(0);
      WriteLn(255);
      WriteLn(1);
      WriteLn(0);
      WriteLn(0);
      WriteLn(255);
      WriteLn(1);
      WriteLn(4);