From 54fc83a7584cea4334d1796e206c59616c53de49 Mon Sep 17 00:00:00 2001
From: CaS <CaS@72102866-910b-0410-8b05-ffd578937521>
Date: Fri, 20 Aug 2004 14:23:32 +0000
Subject: [PATCH] Understand deprecation.

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

diff --git a/ChangeLog b/ChangeLog
index 319d6fcd5..a69e40ce6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,7 @@
 	* Tools/AGSParser.m: Destory comments after skipping units ...
 	we don't want them included as part of the documentation of the
 	next thing after the unit.
+	Recognize __attribute__((deprecated)) and add a comment.
 
 2004-08-20  David Ayers  <d.ayers@inode.at>
 
diff --git a/Tools/AGSParser.m b/Tools/AGSParser.m
index 4ff65bccf..142b95161 100644
--- a/Tools/AGSParser.m
+++ b/Tools/AGSParser.m
@@ -1397,7 +1397,19 @@
 		{
 		  if ([self skipSpaces] < length && buffer[pos] == '(')
 		    {
+		      unsigned	start = pos;
+		      NSString	*attr;
+
 		      [self skipBlock];	// Skip the attributes
+		      attr = [NSString stringWithCharacters: buffer + start
+						     length: pos - start];
+		      if ([attr rangeOfString: @"deprecated"].length > 0)
+			{
+			  [self appendComment: @"<em>Warning</em> this is "
+			    @"<em>deprecated</em> and may be removed in "
+			    @"future versions"
+			    to: nil];
+			}
 		    }
 		  else
 		    {
@@ -1419,7 +1431,19 @@
 		  [self skipSpaces];
 		  if (pos < length && buffer[pos] == '(')
 		    {
+		      unsigned	start = pos;
+		      NSString	*attr;
+
 		      [self skipBlock];
+		      attr = [NSString stringWithCharacters: buffer + start
+						     length: pos - start];
+		      if ([attr rangeOfString: @"deprecated"].length > 0)
+			{
+			  [self appendComment: @"<em>Warning</em> this is "
+			    @"<em>deprecated</em> and may be removed in "
+			    @"future versions"
+			    to: nil];
+			}
 		      [self skipSpaces];
 		    }
 		}
@@ -1634,7 +1658,15 @@ fail:
 		  }
 		else if ([token isEqual: @"implementation"] == YES)
 		  {
-		    [self parseImplementation];
+		    if (isSource == YES)
+		      {
+			[self parseImplementation];
+		      }
+		    else
+		      {
+			[self skipUnit];
+			DESTROY(comment);
+		      }
 		  }
 		else
 		  {
@@ -2637,6 +2669,7 @@ fail:
 		  }
 		[exist setObject: @"YES" forKey: @"Implemented"];
 	      }
+	    DESTROY(comment);	// Don't want this.
 	    break;
 
 	  case '@':
@@ -2663,6 +2696,7 @@ fail:
 		[self log: @"@method list with unknown directive '%@'", token];
 		[self skipStatementLine];
 	      }
+	    DESTROY(comment);	// Don't want this.
 	    break;
 
 	  case '#':
@@ -2688,6 +2722,7 @@ fail:
 		pos--;
 		[self parseDeclaration];
 	      }
+	    DESTROY(comment);	// Don't want this.
 	    break;
 	}
     }