/usr/share/xcrysden/Tcl/gzmat.tcl is in xcrysden-data 1.5.53-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | #############################################################################
# Author: #
# ------ #
# Anton Kokalj Email: Tone.Kokalj@ijs.si #
# Department of Physical and Organic Chemistry Phone: x 386 1 477 3523 #
# Jozef Stefan Institute Fax: x 386 1 477 3811 #
# Jamova 39, SI-1000 Ljubljana #
# SLOVENIA #
# #
# Source: $XCRYSDEN_TOPDIR/Tcl/gzmat.tcl
# ------ #
# Copyright (c) 1996-2003 by Anton Kokalj #
#############################################################################
# ------------------------------------------------------------------------
# loads structure from Gaussian input file (requires babel)
# ------------------------------------------------------------------------
proc gzmat {filedir {viewmol_exists {}}} {
global xcMisc env system
if { ! [info exists xcMisc(babel)] } {
if [winfo exists .title] {
destroy .title
}
ErrorDialog "--gzmat option requires the definition of xcMisc(babel) in the ~/.xcrysden/custom-definitions"
exit
} else {
set env(BABEL) $xcMisc(babel)
}
# OpenBabel seems not to need BABEL_DIR variable !!!
#if { ! [info exists xcMisc(babel_dir)] && ! [info exists env(BABEL_DIR)] } {
# if [winfo exists .title] {
# destroy .title
# }
# ErrorDialog "neither xcMisc(babel_dir) nor environmental BABEL_DIR variables defined. Can't run BABEL."
# exit
#}
# xcMisc(babel_dir) has priority over env(BABEL_DIR)
if { [info exists xcMisc(babel_dir)] } {
set env(BABEL_DIR) $xcMisc(babel_dir)
}
set head [file rootname [file tail $filedir]]
puts stderr "Executing babel ..."
xcCatchExecReturnRedirectStdErr sh $system(TOPDIR)/scripts/gzmat2xsf.sh $filedir > $system(SCRDIR)/$head.xsf
if { ![file exists $system(SCRDIR)/$head.xsf] \
|| [file size $system(SCRDIR)/$head.xsf] == 0 } {
if [winfo exists .title] {
destroy .title
}
ErrorDialog "an error occured while executing BABEL program."
exit
}
if { $viewmol_exists == "" } {
ViewMol .
}
xsfOpen $system(SCRDIR)/$head.xsf
}
proc gzmat_menu {openwhat} {
global system
set filedir [tk_getOpenFile -defaultextension .xsf \
-filetypes {
{ {All Files} {.*} }
} -initialdir $system(PWD) -title $openwhat]
if { $filedir == "" } {
return
}
gzmat $filedir viewmol_exists
}
|