#!/usr/bin/tclsh
# (find-es "x" "font2bdf")
# (find-xcfile "programs/Xserver/hw/xfree86/etc/vga.bdf")
# (find-es "tcl" "environment")

proc e {word args} {
  global env
  if {[info exists env($word)]} {
    return "$word $env($word)"
  } else {
    return "$word $args"
  }
}

proc e0 {word args} {
  global env
  if {[info exists env($word)]} {
    return $env($word)
  } else {
    return $args
  }
}

proc CHAR {n} {
  global hexchars
  return "STARTCHAR C00[format %02x $n]
ENCODING $n
[e SWIDTH 666 0]
[e DWIDTH 8 0]
[e BBX 8 16 0 -4]
BITMAP
[join $hexchars($n) "\n"]
ENDCHAR"
}

proc chars {fname} {
  global hexchars
  set i 0
  foreach li [split [exec cat $fname] "\n"] {
    set hexchars($i) [format [e0 BITMAPFORMAT 00 00 %s 00 00 00 00 00 00] $li]
    incr i
  }
  set CHARS {}
  for {set i 0} {$i<=255} {incr i} {
    lappend CHARS [CHAR $i]
  }
  return [join $CHARS "\n"]
}


puts \
"COMMENT \$XFree86: xc/programs/Xserver/hw/xfree86/etc/vga.bdf,v 3.2 1996/12/23 06:47:25 dawes Exp \$
COMMENT
COMMENT
[e COMMENT vga]
COMMENT
COMMENT
COMMENT \$XConsortium: vga.bdf /main/4 1996/02/21 17:48:43 kaleb \$
STARTFONT 2.1
[e FONT vga]
[e SIZE 16 75 75]
[e FONTBOUNDINGBOX 8 16 0 -4]
STARTPROPERTIES 3
[e FONT_DESCENT 4]
[e FONT_ASCENT 12]
[e DEFAULT_CHAR 0]
ENDPROPERTIES
CHARS 256
[chars [lindex $argv 0]]
ENDFONT"