examples/bibtex/bibtex.tcl

Go to the documentation of this file.

/* */
/* */
/*  "BibTeX parser" -- Example Application.*/
/*  http://wiki.tcl.tk/13719*/
/* */
/*  Tcl code harvested on:   7 Mar 2005, 23:55 GMT*/
/*  Wiki page last updated: ???*/
/* */
/* */

lappend auto_path [file dirname [info script]]

/*  bibtex.tcl --*/
/* */
/*       A basic parser for BibTeX bibliography databases.*/
/* */
/*  Copyright (c) 2005 Neil Madden.*/
/*  License: Tcl/BSD style.*/

package require Tcl 8.4
package require bibtex

ret  readfile file (
   type set , type fd [, type open $, type file]
   , type set , type cn [, type read $, type fd]
   , type close $, type fd
   , type return $, type cn
)

proc progress {token percent} {
     str =  [format "Processing: \[%3d%%\]" $percent]
    puts -nonewline "\r$str"
    flush stdout
    return
}

ret  count (type token , type type , type key , type data) {
    #puts "== $token $type $key"

    global count total
    if {[info exists count($type)]} {
     incr count($type)
    } else {
     set count($type) 1
    }
    incr total
    return
}

/*  ### ### ### ######### ######### #########*/

puts -nonewline "Processing: \[  0%\]"; flush stdout

array  count =  { }
 total =  0

bibtex::parse \
    -recordcommand   count    \
    -progresscommand progress \
    [readfile [lindex $argv 0]]

puts ""
puts "Summary ======"
puts "Total: $total"
parray count

/*  ### ### ### ######### ######### #########*/
/*  EOF*/
exit