mirror of https://gitlab.com/QEF/q-e.git
43 lines
1.5 KiB
Tcl
Executable File
43 lines
1.5 KiB
Tcl
Executable File
#!/bin/sh
|
|
# \
|
|
exec tclsh "$0" "$@"
|
|
|
|
# ----------------------------------------------------------------------
|
|
# PROGRAM: PWgui
|
|
# PURPOSE: A GUI input builder for PWscf / Quantum ESPRESSO
|
|
# ----------------------------------------------------------------------
|
|
# Anton Kokalj
|
|
# Jozef Stefan Institute, Ljubljana, Slovenia
|
|
# Email: tone.kokalj@ijs.si
|
|
# ======================================================================
|
|
# Copyright (c) 2003--2023 Anton Kokalj
|
|
# ======================================================================
|
|
#
|
|
#
|
|
# This file is distributed under the terms of the GNU General Public
|
|
# License. See the file `COPYING' in the root directory of the present
|
|
# distribution, or http://www.gnu.org/copyleft/gpl.txt .
|
|
#
|
|
#
|
|
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
|
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
|
# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
|
# NONINFRINGEMENT. IN NO EVENT SHALL ANTON KOKALJ BE LIABLE FOR ANY
|
|
# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
|
|
# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
|
|
# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
#
|
|
|
|
if { ! [info exists env(PWGUI)] } {
|
|
set _file $argv0
|
|
while { [file type $_file] == "link" } {
|
|
set dir [file dirname $_file]
|
|
set _file [file join $dir [file readlink $_file]]
|
|
}
|
|
set _pwguipath [auto_execok [file normalize $_file]]
|
|
set env(PWGUI) [file dirname $_pwguipath]
|
|
}
|
|
|
|
source $env(PWGUI)/pwgui.tcl
|
|
|