namespace eval tag_map {
# ----------------------------------------
proc RECIPE {attr content} {
process $content
}
proc NAME {attr content} {
puts "
"
process $content
puts "
"
}
proc DESCRIPTION {attr content} {
puts ""
process $content
puts "
"
}
proc NOTE {attr content} {
if {$attr == ""} {
puts ""
process $content
puts ""
return
}
# Attributes exist
set attribute [lindex $attr 0]
set value [lindex $attr 1]
switch $value {
credit {
puts "
From: "
process $content
puts "
"
}
default { }
}
}
proc INGREDIENT-LIST {attr content} {
puts ""
puts "Ingredients:"
process $content
puts " |
"
}
proc INGREDIENT {attr content} {
puts ""
process $content
puts "[lindex $attr 1]
"
}
proc PREPARATION {attr content} {
puts ""
puts "Preparation:"
process $content
puts " |
"
}
proc STEP {attr content} {
puts ""
process $content
}
# End tag_map namespace
}