#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

#
# Usage:   update_gui_help module
#          ( module = pw, ph, pp, neb, projwfc, dos, bands, atomic, or d3 )
#
# Requirements: execute the check_gui first !!!
#             
# Purpose: updates the PWgui help file, i.e., moves the
#          module-help.tcl file that has been created by prior
#          execution of check_gui to $topdir/GUI/PWgui/modules/$module/
#

proc Usage {} {
    global argv0

    puts stderr [subst {
  Usage: $argv0 module
  
  Where module is one of:
  
  \tpw
  \tph 
  \tneb
  \tpp 
  \tprojwfc
  \tdos
  \tbands
  \tatomic
  \td3
    }]
    exit 1
}

if { $argc != 1 } {
    Usage
}

set module  [lindex $argv 0]
set basedir [file normalize [file dirname [info script]]]
set topdir  [file normalize [file join $basedir ..]]

# PWgui's modules dir 

set pwguidir  [file join $topdir GUI PWgui]
set moduledir [file join $pwguidir modules]

if { ! [file exists $module-help.tcl] } {
    puts stderr "ERROR: run the \"check_gui $module\" first ..."
    exit 1
}

puts "* moving $module-help.tcl --> [file join $moduledir $module $module-help.tcl]"

file rename -force $module-help.tcl [file join $moduledir $module $module-help.tcl]

if { [file exists [file join $moduledir $module $module-help.tcl.bak]] } {
    puts "* removing backup file: [file join $moduledir $module $module-help.tcl.bak]"
}

# ok, we are done; since we loaded Tk, we need an explicit exit !!!
exit 0
