[xml2rfc] xml2rfc 1.31 released

[julian.reschke at gmx.de (Julian Reschke)]

Marshall Rose schrieb:
> 'nuff said:
> 
>     http://xml.resource.org/
> 
> enjoy!

Hi,

I noticed that the year attribute on date finally is optional, and was 
cleaning up source files that said "year=''" before. xml2rfc now complains:

an't read "dv(year)": no such element in array around input line 1010
can't read "dv(year)": no such element in array
     while executing
"set date $dv(year)"
     (procedure "ref_date" line 17)
     invoked from within
"ref_date $elemX"
     (procedure "pass2end_reference" line 30)
     invoked from within
"pass2end_reference $child"
     (procedure "pass2end_references" line 32)
     invoked from within
"pass2end_$name $elemX"
     ("references" arm line 2)
     invoked from within
"switch -- $name {
         rfc - front - t - list - figure - artwork
             - preamble - postamble - texttable - c - back {
             if {[lsear..."
     (procedure "end" line 51)
     invoked from within
"end references"
     ("uplevel" body line 1)
     invoked from within
"uplevel #0 { end                 } references {}"
     ("eval" body line 1)
     invoked from within
"eval uplevel #0 $args "
     invoked from within
"sgml::callback $state(lineo)  $options(-elementendcommand) [list $tag] 
$empty"
     (procedure "ParseEvent:ElementClose" line 23)
     invoked from within
"ParseEvent:ElementClose $tag options"
     ("*,0,/," arm line 5)
     invoked from within
"switch -glob -- [string length $tag],[regexp {^\?|!.*} 
$tag],$close,$empty {

             0,0,, {
                 # Ignore empty tag - dealt with non-..."
     (procedure "::sgml::parseEvent" line 124)
     invoked from within
"::sgml::parseEvent {?xml {} {} { version="1.0" encoding="UTF-8"?} {} 
?rfc {} {} { linefile="1:rfc2774.txt.tmp"?} {
} !-- {} {} {
     This XML document..."
     ("eval" body line 1)
     invoked from within
"eval ${parent}::sgml::parseEvent  [list $tokenised  -emptyelement 
[namespace code ParseEmpty]  -parseattributelistcommand [namespace code 
ParseAttrs]]..."
     (procedure "ParseCommand_parse" line 14)
     invoked from within
"ParseCommand_parse $parser [lindex $args 0]"
     ("parse" arm line 2)
     invoked from within
"switch -- $method {
         cget {
             return $state([lindex $args 0])
         }
         configure {
             foreach {opt value} $args {
  ..."
     (procedure "ParseCommand" line 4)
     invoked from within
"ParseCommand parser2 parse {<?xml version="1.0" encoding="UTF-8"?><?rfc 
linefile="1:rfc2774.txt.tmp"?>
<!--
     This XML document is the output of cle..."
     ("eval" body line 1)
     invoked from within
"eval ParseCommand parser2 $method $args"
     (procedure "::xml::parser2" line 1)
     invoked from within
"$parser parse $data"
     invoked from within
"xml2rfc [lindex $argv 1] [lindex $argv 2] "
     ("3" arm line 1)
     invoked from within
"switch -- [llength $argv] {
             2 {
                 set file [lindex $argv 1]
                 if {![string compare $tcl_platform(platform)  wi..."


Best regards, Julian
>From mrose at dbc.mtview.ca.us  Thu Jul 27 11:37:27 2006
From: mrose at dbc.mtview.ca.us (Marshall Rose)
Date: Thu Jul 27 00:37:39 2006
Subject: [xml2rfc] xml2rfc 1.31 released
In-Reply-To: <[e-mail]>
References: <[e-mail]>
	<[e-mail]>
Message-ID: <[e-mail]>

> I noticed that the year attribute on date finally is optional, and  
> was cleaning up source files that said "year=''" before. xml2rfc  
> now complains:

and this is why i didn't like allowing an optional year: they pop up  
in <reference/>...

see if this patch fixes it.

--- _xml2rfc.tcl	2006-07-22 01:52:41.000000000 +0300
+++ xml2rfc.tcl	2006-07-27 10:35:34.000000000 +0300
@@ -6925,6 +6925,7 @@
      array set fv $elem($front)
      set date [find_element date $fv(.CHILDREN)]
+    array set dv [list year "" month ""]
      if {[catch { array set dv $elem($date) }]} {
          return ""
      }

/mtr