如何執行程序，並可以將宏包含在tcl腳本中

Question

我今天在配置文件中遇到以下程序.......它是一個用偉大的智慧編寫的好程序....但是我沒有能力運行它.......

proc parseFileContents {contents infoVar} { 
    upvar 1 $infoVar inf 
    set lineNum 0 
    foreach line [split $contents "\n"] { 
     incr lineNum   # Skip comment lines (?) 
     if {[string match {$*} $line} continue   # Skip blank lines 
     if {[string trim $line] eq ""} continue  # Parse a "real" line  
     if {[scan $line "%s%s%s%s%s%s%f%f%s%s" a b c name d e value f g h] == 10} {    
      set inf($name) $value 
     } else { 
      # Oh dear, didn't work! 
      puts "warning: did not understand line $lineNum\n$line" 
     } 
    } 
} 

使用它：

parseFileContents $theContentsOfTheFile data 
puts "Keys: [array names data]" 
puts "VSS: $data(vss)" puts "VCC: $data(vcc)" 

Answer 1

我相信這個問題是不存在;在線條與他們意見（#）結束。 Tcl使用換行符或半列作爲行分隔符，並且註釋本身是一行代碼。嘗試使用這個：

proc parseFileContents {contents infoVar} { 
    upvar 1 $infoVar inf 
    set lineNum 0 
    foreach line [split $contents "\n"] { 
     incr lineNum;   # Skip comment lines (?) 
     if {[string match {$*} $line]} continue;   # Skip blank lines 
     if {[string trim $line] eq ""} continue;  # Parse a "real" line  
     if {[scan $line "%s%s%s%s%s%s%f%f%s%s" a b c name d e value f g h] == 10} {    
      set inf($name) $value 
     } else { 
      # Oh dear, didn't work! 
      puts "warning: did not understand line $lineNum\n$line" 
     } 
    } 
} 

請注意，我沒有測試這個新的代碼，只有固定的語法錯誤......

Answer 2

還要檢查

if {[string match {$*} $line} 

缺少一個右括號

if {[string match {$*} $line]} 

最終的代碼應該是這樣的。

proc parseFileContents {contents infoVar} { 
    upvar 1 $infoVar inf 
    set lineNum 0 
    foreach line [split $contents "\n"] { 
     incr lineNum;   # Skip comment lines (?) 
     if {[string match {$*} $line]} continue;   # Skip blank lines 
     if {[string trim $line] eq ""} continue;  # Parse a "real" line  
     if {[scan $line "%s%s%s%s%s%s%f%f%s%s" a b c name d e value f g h] == 10} {    
      set inf($name) $value 
     } else { 
      # Oh dear, didn't work! 
      puts "warning: did not understand line $lineNum\n$line" 
     } 
    } 
} 

如果仍然無法放入您的內容文件的副本。請記住，「infoVar」應該是現有數組的名稱。