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
|
