[Flexml-commits] flexml flexml.pl,1.66,1.67

[Martin Q. <mqu...@us...>]

Update of /cvsroot/flexml/flexml
In directory vz-cvs-3.sog:/tmp/cvs-serv12251

Modified Files:
	flexml.pl 
Log Message:
update copyright notice, and improve a message

Index: flexml.pl
===================================================================
RCS file: /cvsroot/flexml/flexml/flexml.pl,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -d -r1.66 -r1.67
--- flexml.pl	30 Oct 2011 21:03:48 -0000	1.66
+++ flexml.pl	1 Nov 2011 20:49:21 -0000	1.67
@@ -5,7 +5,7 @@
 #
 # This file is part of the FleXML XML processor generator system.
 # Copyright (C) 1999 Kristoffer Rose.  All rights reserved.
-# Copyright (C) 2003-2006 Martin Quinson.  All rights reserved.
+# Copyright (C) 2003-2011 Martin Quinson.  All rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License as published by the Free
@@ -180,7 +180,7 @@
   print <<EOT;
 $pre This program was generated with the FleXML XML processor generator.
 $pre FleXML is Copyright (C) 1999-2005 Kristoffer Rose.  All rights reserved.
-$pre FleXML is Copyright (C) 2003-2006 Martin Quinson.  All rights reserved.
+$pre FleXML is Copyright (C) 2003-2011 Martin Quinson.  All rights reserved.
 $pre ($Id).
 $pre 
 $pre There are two, intertwined parts to this program, part A and part B.
@@ -190,7 +190,7 @@
 $pre 
 $pre Some parts, here collectively called "Part A", are found in the 
 $pre FleXML package.  They are Copyright (C) 1999-2005 Kristoffer Rose
-$pre and Copyright (C) 2003-2006 Martin Quinson. All rights reserved.
+$pre and Copyright (C) 2003-2011 Martin Quinson. All rights reserved.
 $pre
 $pre You can redistribute, use, perform, display and/or modify "Part A"
 $pre provided the following two conditions hold:
@@ -886,11 +886,11 @@
 	    # Special treatment of token types.
 	    if ( $type eq 'ID' or $type eq 'IDREF' ) {
 	      $literaltype{"$tag/$attribute"} = '{Name}';
-	      print STDERR place()."Warning: attribute type `$type' not validated.\n";
+	      print STDERR place()."Warning: cannot validate attribute type `$type' (yet).\n";
 	    }
 	    elsif ( $type eq 'IDREFS' ) {
 	      $literaltype{"$tag/$attribute"} = '{Names}';
-	      print STDERR place()."Warning: attribute type `$type' not validated.\n";
+	      print STDERR place()."Warning: cannot validate attribute type `$type' (yet).\n";
 	    }
 	    elsif ( $type eq 'NMTOKEN' ) {
 	      $literaltype{"$tag/$attribute"} = '{Nmtoken}';
@@ -901,12 +901,12 @@
 	    elsif ( $type eq 'ENTITY' ) {
 	      #die place()."ENTITY attribute type unimplemented.\n";
 	      $literaltype{"$tag/$attribute"} = '{Name}';
-	      print STDERR place()."Warning: attribute type `$type' not validated.\n";
+	      print STDERR place()."Warning: cannote validate attribute type `$type' (yet).\n";
 	    }
 	    elsif ( $type eq 'ENTITIES' ) {
 	      #die place()."ENTITIES attribute type unimplemented.\n";
 	      $literaltype{"$tag/$attribute"} = '{Names}';
-	      print STDERR place()."Warning: attribute type `$type' not validated.\n";
+	      print STDERR place()."Warning: cannot validate attribute type `$type' (yet).\n";
 
 	    }
 	    elsif ( $type ne 'CDATA' ) {
@@ -923,7 +923,7 @@
     }
 
     $orig = '';			# in case there were no attributes...
-  }
+  } # end of a <!ATTLIST> block
 
   # Parse internal parameter entity declaration.
   elsif ( m/^\s*<!ENTITY\s+%\s+($Name)\s+'([^'']*)'\s*>\s*/xo