#!/usr/bin/tclsh

#
# pui-appinfo: dump the "appinfo" fields from a .pui file
#
# THIS IS SAMPLE CODE ONLY
#
# Copyright (c) 1996, Scotter <scotter@iname.com>
#
# This is free software, licensed under the GNU Public License V2.
#

if [llength $argv] {

  set filename [lindex $argv 0]

  load tclpui.so

  set puidb [puiOpen $filename]

  puiRead $puidb AppInfo appinfo
  foreach elem [array names appinfo] {
    puts "$elem: $appinfo($elem)"
  }
  puiClose $puidb

}

exit 0
