/usr/share/xcrysden/Tcl/check_package.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 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | #############################################################################
# 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/check_package.tcl
# ------ #
# Copyright (c) 1996--2004 by Anton Kokalj #
#############################################################################
proc check_package_awk {} {
global system
if { ![info exists system(awk)] } {
# check first for GNU awk
set system(awk) [auto_execok gawk]
if { $system(awk) == "" } {
set system(awk) [auto_execok awk]
if { $system(awk) == "" } {
WarningDialog "couldn't find \"awk\" program" "some features will not work !!!"
}
}
}
}
proc check_package_terminal {} {
global system env
if { ! [info exists system(term)] } {
# check for env(TERM)
if { [info exists env(TERM)] } {
if { $env(TERM) != "dump" } {
set system(term) [auto_execok $env(TERM)]
if { $system(term) != "" } {
return
}
}
}
# now we check for these:
foreach term {xterm xvt rxvt eterm gnome-teminal konsole roxterm} {
set system(term) [auto_execok $term]
if { $system(term) != "" } {
break
}
}
}
}
proc check_package_crystal {} {
global system
if { $system(c95_exist) } {
if { [info exists system(c95_crystal)] } {
set system(c95_integrals) $system(c95_crystal)
}
#
# CRYSTAL-95/98/03/06
#
set crystal_module $system(c95_integrals)
set input "test\nMOLECULE\n1\n1\n1 0.0 0.0 0.0\nSTOP\nEND"
WriteFile xc_inp.$system(PID) $input w
set system(c95_integrals) [auto_execok $system(c95_integrals)]
set OK 1
if { ! [file exists $system(c95_integrals)] } {
set OK 0
ErrorDialog "File \"$crystal_module\" does not exists";
}
if { $OK && ! [file executable $system(c95_integrals)] } {
set OK 0
ErrorDialog "File \"$crystal_module\" is not executable";
}
if { $OK } {
set _status [catch {
exec $system(c95_integrals) < xc_inp.$system(PID) >& xc_tmp.$system(PID)
} _errMsg]
if { $_status } {
ErrorDialog \
"Couldn't run CRYSTAL package.\n\nError Message: $_errMsg"
set system(c95_version) none
}
if { [file exists xc_tmp.$system(PID)] } {
set file [ReadFile xc_tmp.$system(PID)]
foreach line [split $file \n] {
switch -glob -- $line {
"*C R Y S T A L*" {
set vf [expr [llength $line] - 2]
set system(c95_version) [lindex $line $vf]
break
}
"* CRYSTAL03 *" {
set system(c95_version) "03"
break
}
"* CRYSTAL06 *" {
set system(c95_version) "06"
break
}
"* CRYSTAL09 *" {
set system(c95_version) "09"
break
}
}
}
}
if { ! [info exists system(c95_version)] } {
set system(c95_version) "unknown -- version not recognized"
}
puts stderr "Package CRYSTAL: $system(c95_integrals) (version: $system(c95_version))"
if { ! [info exists system(c95_scf)] } {
set system(c95_scf) $system(c95_integrals)
}
} else {
# !!! OK == 0 !!!
set system(c95_exist) 0
set system(c95_version) none
}
} else {
set system(c95_version) none
}
}
|