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