Release-1.2.13-20020203

1 files changed, 20 insertions, 7 deletions

diff --git a/doc/translator.pl b/doc/translator.pl
index 5efecc0..170c7c5 100644
--- a/doc/translator.pl
+++ b/doc/translator.pl
@@ -110,6 +110,14 @@
 #    The older translator adapters are derived from newer ones.
 #    The mistaken comment said the opposite.
 #
+# 2002/01/23
+#  - The nasty bug corrected.  GetAdapterClassesInfo() did not 
+#    strip trailing blanks from the method prototype; consequently,
+#    the required methods implemented by a translator adapter was
+#    not recognized as the required one (i.e. not listed).
+#  - Some defined() operators used on hash elements were replaced
+#    by exists() operators where appropriate.
+#
 ################################################################
 
 use 5.005;
@@ -421,10 +429,15 @@ sub GetAdapterClassesInfo ##{{{
     #
     $cont =~ s{\n\s*\n}{\n}sg;
 
+    # Trim the spaces.
+    #
+    $cont =~ s{^\s+}{}mg;
+    $cont =~ s{\s+$}{}mg;
+    
     # Split the string into the lines again.
     #
     @content = split(/\n/, $cont);
-    
+
     # Now the list contains only two kinds of lines.  The first
     # kind of lines starts with the <class> tag and contains the
     # identifier of the class.  The following lines list the
@@ -474,8 +487,8 @@ sub GetAdapterClassesInfo ##{{{
             # string of methods.
             #
             my $stripped_prototype = StripArgIdentifiers($line);
-            
-            if (defined $$reqref{$stripped_prototype}) 
+
+            if (exists($$reqref{$stripped_prototype})) 
             {
                 ++$cnt;
                 $methods .= "    $line\n";
@@ -498,11 +511,11 @@ sub GetAdapterClassesInfo ##{{{
     
     # Return the result list.
     #
-    # push @result, $cont; # ???
     return @result;
 }
 ##}}}  
 
+
 ################################################################
 # GenerateLanguageDoc takes document templates and code sources
 # generates the content as expected in the $flangdoc file (the
@@ -656,7 +669,7 @@ xxxTABLE_FOOTxxx
         # was not defined in sources, add the question mark to the
         # language identifier.
         # 
-        if (defined $language{$lang}) { 
+        if (exists($language{$lang})) { 
             $language{$lang} = $$rcb{"Translator$lang"} . '<msep/>' 
                                . join("<sep/>", @info);
         }
@@ -1053,8 +1066,8 @@ print STDERR "\n\n";
             # Otherwise, remember it as old method which is
             # implemented, but not required.
             #
-            if (defined $required{$prototype}) { 
-                $required{$prototype} = 0; 
+            if (exists($required{$prototype})) { 
+                $required{$prototype} = 0;       # satisfaction
             }
             else {
                 push(@old_methods, $implemented);