#!/usr/bin/env tclsh8.4

set root [pwd]

set ::package_list [list \
 archivers/unzip \
 audio/abcde \
 audio/audacity \
 audio/csound4 \
 audio/esound \
 audio/gnome-audio \
 audio/musicbrainz \
 audio/nas \
 audio/rhythmbox \
 audio/sox \
 audio/streamtuner \
 audio/vorbis-tools \
 audio/xmix \
 audio/xmms \
 audio/xmms-arts \
 audio/xmms-esound \
 audio/xmms-neato \
 audio/xmms-paranormal \
 audio/xmms-synaesthesia \
 audio/xmp \
 converters/doc2html \
 devel/electricfence \
 devel/lcc \
 editors/leafpad \
 emulators/bochs \
 emulators/dosbox \
 emulators/hercules \
 emulators/hercules-images \
 emulators/qemu \
 emulators/simh \
 games/criticalmass \
 games/battleball \
 games/bomberclone \
 games/d2x \
 games/finalbattle \
 games/imaze \
 games/netmaj \
 games/netris \
 games/netmaze \
 games/kdegames3 \
 games/scummvm \
 games/xboing \
 games/xbomber \
 games/xmahjongg \
 games/xsoldier \
 games/xpilot \
 graphics/gimp \
 graphics/gqview \
 graphics/kdegraphics3 \
 graphics/qcamview \
 graphics/scigraphica \
 lang/cim \
 lang/hugs \
 lang/jdk \
 lang/swi-prolog \
 mail/pine \
 meta-pkgs/xfce4 \
 meta-pkgs/xfce4-extras \
 misc/koffice \
 #misc/openoffice \
 multimedia/kdemultimedia3 \
 multimedia/libdvdcss \
 multimedia/mencoder \
 multimedia/mplayer \
 news/slrn \
 #net/samba \
 print/ggv \
 print/gv \
 print/ghostscript-gnu \
 print/hpijs \
 print/pnm2ppa \
 print/xpdf \
 sysutils/xcdroast \
 sysutils/smartmontools \
 textproc/aspell \
 textproc/expat \
 textproc/libxml2 \
 textproc/raptor \
 textproc/xerces-c \
 www/firefox \
 www/w3m \
 x11/xscreensaver \
 x11/xscreensaver-demo]


proc install.packages {} {
 foreach pkg $::package_list {
  if {"#" eq [string index $pkg 0]} continue
  puts "STARTING $pkg"
  cd $pkg
  if {[catch {exec make package} res] && "NONE" ne $::errorCode} {
   puts stderr "ERROR: $res"
  } else {
   puts "BUILT $pkg"
  }
  cd $::root
 }
}

proc main {} {
 install.packages
}
main