Artifact
67fc9573084b883222a644887b4bdeb88f41c624:
Attachment "diffs.txt" to
ticket [595240ffff]
added by
mrose
2002-08-15 03:51:18.
? modules/mime/examples
Index: modules/mime/mime.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.tcl,v
retrieving revision 1.25
diff -u -r1.25 mime.tcl
--- modules/mime/mime.tcl 25 Jul 2002 18:28:37 -0000 1.25
+++ modules/mime/mime.tcl 14 Aug 2002 20:48:58 -0000
@@ -863,9 +863,19 @@
}
}
- if {[string compare [mime::parselexeme $token] LX_ATOM]} {
- error [format "expecting attribute (found %s)" $state(buffer)]
+ switch -- [mime::parselexeme $token] {
+ LX_END {
+ return [list $type [array get params]]
+ }
+
+ LX_ATOM {
+ }
+
+ default {
+ error [format "expecting attribute (found %s)" $state(buffer)]
+ }
}
+
set attribute [string tolower $state(buffer)]
if {[string compare [mime::parselexeme $token] LX_EQUALS]} {
