mirror of https://gitlab.com/QEF/q-e.git
*** empty log message ***
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@632 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
626707d4ed
commit
e1739befad
|
@ -1,55 +0,0 @@
|
||||||
#!/bin/sh
|
|
||||||
# ----------------------------------------------------------------------
|
|
||||||
# PROGRAM: TkPWscf
|
|
||||||
# PURPOSE: tries to be a GUI for the PWscf
|
|
||||||
# ----------------------------------------------------------------------
|
|
||||||
# Anton Kokalj
|
|
||||||
# Jozef Stefan Institute, Ljubljana, Slovenia
|
|
||||||
# INFM DEMOCRITOS National Simulation Center, Trieste, Italy
|
|
||||||
# Email: Tone.Kokalj@ijs.si
|
|
||||||
# ======================================================================
|
|
||||||
# Copyright (c) 2003--2004 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 [ -z "$TKPWSCF" ]; then
|
|
||||||
echo "
|
|
||||||
|
|
||||||
Please define the TKPWSCF enviromental variable !!!
|
|
||||||
TKPWSCF should point to the TkPWscf package root directory.
|
|
||||||
|
|
||||||
"
|
|
||||||
exit 1
|
|
||||||
fi
|
|
||||||
|
|
||||||
|
|
||||||
echo "
|
|
||||||
==================================================
|
|
||||||
This is TKPWSCF version: `cat $TKPWSCF/VERSION`
|
|
||||||
--------------------------------------------------
|
|
||||||
"
|
|
||||||
if [ -d $TKPWSCF/bin ]; then
|
|
||||||
echo "
|
|
||||||
TKPWSCF: using the \"$TKPWSCF/bin/itkwish\" interpreter
|
|
||||||
"
|
|
||||||
$TKPWSCF/bin/itkwish $TKPWSCF/tkpwscf.tcl
|
|
||||||
else
|
|
||||||
echo "
|
|
||||||
TKPWSCF: using the \"/usr/local/ActiveTcl/bin/wish\" interpreter
|
|
||||||
"
|
|
||||||
/usr/local/ActiveTcl/bin/wish8.4 $TKPWSCF/tkpwscf.tcl
|
|
||||||
fi
|
|
|
@ -1,10 +0,0 @@
|
||||||
@echo off
|
|
||||||
|
|
||||||
rem ***
|
|
||||||
rem *** This is a template Batch file for MS-Windows (edit to suit your needs)
|
|
||||||
rem ***
|
|
||||||
rem *** EDIT: set the TKWSCF variable to point to correct directory !!!
|
|
||||||
|
|
||||||
set TKPWSCF=c:\Tone\GUI\TkPWscf
|
|
||||||
|
|
||||||
wish %TKPWSCF%\tkpwscf.tcl
|
|
|
@ -1,56 +0,0 @@
|
||||||
# ------------------------------------------------------------------------
|
|
||||||
# DEBUGGING ...
|
|
||||||
# ------------------------------------------------------------------------
|
|
||||||
|
|
||||||
set ::tclu::DEBUG 0
|
|
||||||
set ::tclu::DEBUG_FILE 0
|
|
||||||
|
|
||||||
|
|
||||||
# ------------------------------------------------------------------------
|
|
||||||
# GUIB settings ...
|
|
||||||
# ------------------------------------------------------------------------
|
|
||||||
|
|
||||||
# regular expresion for the for the endlist-string
|
|
||||||
set ::guib::settings(NAMELIST.end_regexp) {^ &end|^/|^ /}
|
|
||||||
|
|
||||||
# string to write for the end-of-namelist
|
|
||||||
set ::guib::settings(NAMELIST.end_string) { /}
|
|
||||||
|
|
||||||
# case-sensitivity of namelists variable names (allowed-values: 0|1)
|
|
||||||
set ::guib::settings(NAMELIST.varname_nocase) 1
|
|
||||||
|
|
||||||
# format for printing namelist's variables names
|
|
||||||
set ::guib::settings(NAMELIST.varname_format) { %25s}
|
|
||||||
|
|
||||||
# support for undefined namelist variables
|
|
||||||
set ::guib::settings(NAMELIST.variable_support_undefined) 0
|
|
||||||
|
|
||||||
# case-sensitivity of input (allowed-values: 0|1)
|
|
||||||
set ::guib::settings(INPUT.nocase) 0
|
|
||||||
|
|
||||||
# add a trailing slash to dinames (allowed-values: 0|1)
|
|
||||||
set ::guib::settings(DIRNAME.trailing_slash) 1
|
|
||||||
|
|
||||||
# whether to use only file-tail for filenames (allowed-values: 0|1)
|
|
||||||
set ::guib::settings(FILENAME.only_tail) 0
|
|
||||||
|
|
||||||
|
|
||||||
# ------------------------------------------------------------------------
|
|
||||||
# (Tk)PWscf settings ...
|
|
||||||
# ------------------------------------------------------------------------
|
|
||||||
|
|
||||||
set ::pwscf::settings(EDITOR) emacs
|
|
||||||
set ::pwscf::settings(PAGER) {xterm -e less}
|
|
||||||
set ::pwscf::settings(HTMLVIEWER) TkPWscf
|
|
||||||
|
|
||||||
set ::pwscf::settings(EDITOR.list) {emacs gedit nedit {xterm -e vi}}
|
|
||||||
set ::pwscf::settings(PAGER.list) {{xterm -e less} {xterm -e more}}
|
|
||||||
set ::pwscf::settings(HTMLVIEWER.list) {TkPWscf}
|
|
||||||
|
|
||||||
|
|
||||||
# launch XCRYSDEN as (allowed-values: standalone|notebook-page)
|
|
||||||
set ::pwscf::settings(XCRYSDEN.openAs) standalone
|
|
||||||
|
|
||||||
# not yet used ...
|
|
||||||
set ::pwscf::settings(TKPWSCF.geometry.remember) 0
|
|
||||||
set ::pwscf::settings(TKPWSCF.geometry) {}
|
|
|
@ -1,70 +0,0 @@
|
||||||
# ----------------------------------------------------------------------
|
|
||||||
# PROGRAM: TkPWscf
|
|
||||||
# PURPOSE: tries to be a GUI for the PWscf
|
|
||||||
# ----------------------------------------------------------------------
|
|
||||||
# Anton Kokalj
|
|
||||||
# Jozef Stefan Institute, Ljubljana, Slovenia
|
|
||||||
# INFM DEMOCRITOS National Simulation Center, Trieste, Italy
|
|
||||||
# Email: Tone.Kokalj@ijs.si
|
|
||||||
# ======================================================================
|
|
||||||
# Copyright (c) 2003--2004 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(TKPWSCF)] } {
|
|
||||||
puts " TkPWscf GUI: $env(TKPWSCF)"
|
|
||||||
set guib_dir [glob -nocomplain -directory [file join $env(TKPWSCF) lib] Guib-*]
|
|
||||||
if { $guib_dir != "" } {
|
|
||||||
set env(GUIB) $guib_dir
|
|
||||||
}
|
|
||||||
if { [info exists env(GUIB)] } {
|
|
||||||
lappend auto_path $env(GUIB)
|
|
||||||
puts " GUIB engine: $env(GUIB)\n"
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
puts stderr " "
|
|
||||||
puts stderr " Please define the TKPWSCF enviromental variable !!!"
|
|
||||||
puts stderr " TKPWSCF should point to the package root directory."
|
|
||||||
puts stderr " "
|
|
||||||
exit
|
|
||||||
}
|
|
||||||
|
|
||||||
package require Guib 0.2.0
|
|
||||||
wm withdraw .
|
|
||||||
bind . <Destroy> ::guib::exitApp
|
|
||||||
|
|
||||||
namespace eval ::pwscf {
|
|
||||||
variable pwscf
|
|
||||||
variable settings
|
|
||||||
|
|
||||||
set pwscf(PWD) [pwd]
|
|
||||||
}
|
|
||||||
|
|
||||||
# define here all pwscf's namespaces ...
|
|
||||||
namespace eval ::pwscf::edit {}
|
|
||||||
namespace eval ::pwscf::menustate {}
|
|
||||||
namespace eval ::pwscf::view {}
|
|
||||||
|
|
||||||
# load settings file ...
|
|
||||||
source $env(TKPWSCF)/tkpwscf.settings
|
|
||||||
if { [file exists $env(HOME)/.tkpwscf/tkpwscf.settings] } {
|
|
||||||
# overwritte default settings by user-settings
|
|
||||||
source $env(HOME)/.tkpwscf/tkpwscf.settings
|
|
||||||
}
|
|
||||||
|
|
||||||
lappend auto_path [file join $env(TKPWSCF) src]
|
|
||||||
source [file join $env(TKPWSCF) src pwscf.itcl]
|
|
Loading…
Reference in New Issue