Smart pascal source code


  procedure Test(s: String);
  begin
    case s of
      't':
        begin
          WriteLn('here');
          exit;
        end;
      'r':  ;
    else
      WriteLn('there');
      exit;
    end;
    WriteLn('done');
  end;

  Test('a');
  Test('r');
  Test('t');

  { <<< CONSOLE OUTPUTS >>>
    there
    done
    here
  }

      function Test(s) {
         switch (s) {
            case "t" :
               WriteLn("here");
               return;
               break;
            case "r" :
               /* null */
                break;
            default :
               WriteLn("there");
               return;
         }
         WriteLn("done");
      };
      Test("a");
      Test("r");
      Test("t");