updated

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@398 8e941d3f-bd1b-0410-a28a-d453659cc2b4

bindings/pascocoa/parser/objcparser.pas

@@ -5,11 +5,13 @@
  
  main parser unit
 }
-
-
 program Project1;
 
-{$mode delphi}{$H+}
+{$ifdef fpc}
+  {$mode delphi}{$H+}
+{$else}
+  {$APPTYPE CONSOLE}
+{$endif}
 
 uses
   Classes, SysUtils, ObjCParserUtils, ObjCParserTypes;
@@ -46,10 +48,7 @@ begin
 
     preEntity := TPrecompiler.Create(lst);
     preEntity.Parse(parser);
-    //writeln('added to: ', lst.ClassName, ' ', preEntity._Directive + preEntity._Params);
     lst.Items.Add(preEntity);
-    //write('// debug: ');
-    //writeln('precompile: ', preEntity._Directive, ', params:', preEntity._Params);
   finally
     parser.OnPrecompile := prc;
   end;
@@ -63,7 +62,6 @@ var
 begin
   if length(Comment) < 2 then Exit;
   parser := TTextParser(Sender);
-  //writeln(' > ', Comment);
 
   if parser.Stack.Count > 0
     then ent := TEntity(parser.Stack[parser.Stack.Count-1])
@@ -122,11 +120,10 @@ end;
 
 var
   inpf  : AnsiString;
-  f  : Text;
   st    : TStrings;
-  fn : AnsiString;
   i     : integer;
 begin
+  try
     inpf := ParamStr(1);
     if not FileExists(inpf) then begin
       Exit;
@@ -140,6 +137,9 @@ begin
     except
     end;
     st.Free;
-
+  except
+    on e: exception do
+      writeln(e.Message);
+  end;
 end.