This file is indexed.

/usr/share/xcrysden/Tcl/sInfo.tcl is in xcrysden-data 1.5.60-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
#############################################################################
# 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/sInfo.tcl                                       
# ------                                                                    #
# Copyright (c) 1996-2003 by Anton Kokalj                                   #
#############################################################################

# Tools menu path is is .menu.vmdat
proc Get_sInfoArray {} {
    global sInfo periodic

    xcDebug "######################################"
    if { [array exists sInfo] } {
	xcDebug -debug [array get sInfo *]
    } else {
	xcDebug "array s Info does not EXISTS"
    }
    xcDebug "######################################"
    
    set m .menu.vmdat
    if { $sInfo(ldatagrid2D) || $sInfo(ldatagrid3D) } {
	$m.menu entryconfig "Data Grid" -state normal
    } else {
	$m.menu entryconfig "Data Grid" -state disabled
    }

    if { $sInfo(lprimvec) || $sInfo(lconvvec) } {
	set periodic(igroup) $sInfo(groupn)
    }

    set periodic(dim) $sInfo(dim)
    
    if { !$sInfo(lprimvec) && !$sInfo(lconvvec) } {
	set periodic(dim) 0
    }

    if { $periodic(dim) == 0 } {
	$m.menu entryconfig {k-path Selection} -state disabled
    } else {
	$m.menu entryconfig {k-path Selection} -state normal
    }
    xcDebug -stderr "sInfo(dim) = $sInfo(dim); periodic(dim) = $periodic(dim)"
    
    if { $sInfo(lforce) } {
	.menu.vmdis.menu entryconfig {Forces} -state normal
	.menu.vmmod.menu entryconfig {Force Settings} -state normal
    } else {
	.menu.vmdis.menu entryconfig {Forces} -state disabled
	.menu.vmmod.menu entryconfig {Force Settings} -state disabled
    }

    # initialize WignerSeitz
    WignerSeitzInit
}