From b26f86d14629e1bfcf5b27881af54ce940c825f9 Mon Sep 17 00:00:00 2001
From: CaS <CaS@72102866-910b-0410-8b05-ffd578937521>
Date: Mon, 17 Dec 2001 12:26:46 +0000
Subject: [PATCH] Handle @class statements

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@11786 72102866-910b-0410-8b05-ffd578937521
---
 ChangeLog         | 1 +
 Tools/AGSParser.m | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 55b931091..2508cfd52 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -6,6 +6,7 @@
 	* Tools/AGSOutput.m: Support (name) syntax for specifying a protocol
 	cross reference using [(name)-method]
 	* Tools/autogsdoc.m: Improve documentation of method references.
+	* Tools/AGSparser.m: Handle @class statements.
 
 2001-12-16  Richard Frith-Macdonald <rfm@gnu.org>
 
diff --git a/Tools/AGSParser.m b/Tools/AGSParser.m
index 117aace87..728a4729f 100644
--- a/Tools/AGSParser.m
+++ b/Tools/AGSParser.m
@@ -878,6 +878,15 @@ fail:
 	      {
 		return methods;
 	      }
+	    else if ([token isEqual: @"class"] == YES)
+	      {
+		/*
+		 * Pre-declaration of one or more classes ... rather like a
+		 * normal C statement, it ends with a semicolon.
+		 */
+		[self skipStatementLine];
+		return nil;
+	      }
 	    else
 	      {
 		[self log: @"@method list with unknown directive '%@'", token];