mirror of https://gitlab.com/QEF/q-e.git
65 lines
1.4 KiB
Tcl
Executable File
65 lines
1.4 KiB
Tcl
Executable File
#!/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
|