This file is indexed.

/usr/share/xcrysden/Tcl/undoAdvGeom.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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
#############################################################################
# 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/undoAdvGeom.tcl
# ------                                                                    #
# Copyright (c) 1996-2003 by Anton Kokalj                                   #
#############################################################################

proc UndoMenuMotion {menu y} {
    global undoMenu

    set n [$menu index $y]

    # it may easily happen that $n is not an integer
    if [catch {expr abs($n)}] {
	return
    }

    for {set i 0} {$i < $n} {incr i} {	
	$menu entryconfigure $i \
		-foreground $undoMenu(active_fg) \
		-background $undoMenu(active_bg)
    }
    set m [$menu yposition end]
    for {set i $n} {$i < $m} {incr i} {
	$menu entryconfigure $i \
		-foreground $undoMenu(default_fg) \
		-background $undoMenu(default_bg)
    }
}


proc Undo {menu redo index} {
    global undoAdvGeom

    set n $index

    set ld [expr $n - $undoAdvGeom(start_index)]    

    set undoAdvGeom(redo_list) \
	    [GetUndoRedoList [lrange $undoAdvGeom(list) 0 $ld] \
	    $undoAdvGeom(redo_list)]
    $undoAdvGeom(menu) entryconfigure "Redo ..." -state normal

    set undoAdvGeom(list) [lrange $undoAdvGeom(list) [expr $ld + 1] end]
    if { $undoAdvGeom(list) == {} } {
	$undoAdvGeom(menu) entryconfigure "Undo ..." -state disabled
    }
    CreateUndoRedoMenu $undoAdvGeom(list) $menu $redo Undo \
	    undoAdvGeom(start_index) undoAdvGeom(current_index)
    CreateUndoRedoMenu $undoAdvGeom(redo_list) $redo $menu Redo \
	    undoAdvGeom(redo_start_index) undoAdvGeom(redo_current_index)

    # insert the real UNDO command here !!!
    xcAdvGeomState undo [expr $ld + 1]
    CalStru
    ###
}


proc GetUndoRedoList {listnew listold} {
    #
    # we must revert the order of newlist
    #

    set n [llength $listnew]
    set redo_list {}
    for {set i $n} {$i > 0} {incr i -1} {
	set ii [expr $i - 1]
	lappend redo_list [lindex $listnew $ii]
    }
    return [concat $redo_list $listold]
}


proc Redo {redo menu index} {
    global undoAdvGeom

    set n $index

    set ld [expr $n - $undoAdvGeom(redo_start_index)]

    set undoAdvGeom(list) \
	    [GetUndoRedoList [lrange $undoAdvGeom(redo_list) 0 $ld] \
	    $undoAdvGeom(list)]
    $undoAdvGeom(menu) entryconfigure "Undo ..." -state normal

    set undoAdvGeom(redo_list) \
	    [lrange $undoAdvGeom(redo_list) [expr $ld + 1] end]
    if { $undoAdvGeom(redo_list) == {} } {
	$undoAdvGeom(menu) entryconfigure "Redo ..." -state disabled
    }
    CreateUndoRedoMenu $undoAdvGeom(list) $menu $redo Undo \
	    undoAdvGeom(start_index) undoAdvGeom(current_index)
    CreateUndoRedoMenu $undoAdvGeom(redo_list) $redo $menu Redo \
	    undoAdvGeom(redo_start_index) undoAdvGeom(redo_current_index)

    # insert the real REDO command here !!!
    xcAdvGeomState new [expr $ld + 1]
    CalStru

}


proc GenCommUndoRedo item {
    global undoAdvGeom undoMenu

    $undoAdvGeom(menu) entryconfigure "Undo ..." -state normal

    ##########################
    #generate command HERE !!!
    #^^^^^^^^^^^^^^^^^^^^^^^^^
    set item [list $item]
    set undo $undoMenu(undo)
    set redo $undoMenu(redo)
    #-----------
    set undoAdvGeom(list) [concat "$item" $undoAdvGeom(list)]
    CreateUndoRedoMenu $undoAdvGeom(list) $undo $redo Undo \
	    undoAdvGeom(start_index) undoAdvGeom(current_index)
    
    # delete redo-list
    $undoAdvGeom(menu) entryconfigure "Redo ..." -state disabled
    set undoAdvGeom(redo_list) {}
    $redo delete 0 end
}


proc CreateUndoRedoMenu {list menu1 menu2 command start_index current_index} {
    global undoMenu
    upvar #0 $start_index start $current_index current
    # first delete the whole list, then rebuilt
    $menu1 delete 0 end

    set start $current
    foreach item $list {
	$menu1 add command -label $item \
		-command [list $command $menu1 $menu2 $current] \
		-foreground $undoMenu(default_fg) \
		-background $undoMenu(default_bg) \
		-activeforeground $undoMenu(active_fg) \
		-activebackground $undoMenu(active_bg)
	
	incr current
    }
}

proc ClearUndoRedoBuffer {} {
    global undoAdvGeom
    
    set undoAdvGeom(start_index)        0
    set undoAdvGeom(current_index)      0
    set undoAdvGeom(list)               {}
    set undoAdvGeom(redo_start_index)   0
    set undoAdvGeom(redo_current_index) 0
    set undoAdvGeom(redo_list)          {}
}

#set m [menubutton .advgeom -text AdvGeom -menu .advgeom.ur]
#
#set menu [menu .advgeom.ur -tearoff 0]
#
#$menu add cascade -label Undo -menu $menu.undo
#$menu add cascade -label Redo -menu $menu.redo
#$menu entryconfig Undo -state disabled
#$menu entryconfig Redo -state disabled
#set undoAdvGeom(menu) $menu
#
#
#set undo  [menu $menu.undo -tearoff 0]
#set redo  [menu $menu.redo -tearoff 0]
#button .b -text "Generate Command" -command [list GenComm $undo $redo]
#pack $m .b -side left
#
#
#bind $undo <Motion> [list UndoMenuMotion $undo @%y]
#bind $redo <Motion> [list UndoMenuMotion $redo @%y]
#
#flush stdout