Overview
| Artifact ID: | 5728a845224c0a82774187eb9f245291c37d1767 |
|---|---|
| Ticket: | 595240ffffffffffffffffffffffffffffffffff |
| Date: | 2002-08-15 03:51:18 |
| User: | mrose |
| Artifact Attached: | 67fc9573084b883222a644887b4bdeb88f41c624 |
| Filename: | diffs.txt |
| Description: | cvs diff -u |
Content:
? 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]} {