This file is indexed.

/usr/share/astk/init_asjob.tcl is in code-aster-gui 1.13.1-2.

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
#########################################################################
# COPYRIGHT (C) 2003         EDF R&D              WWW.CODE-ASTER.ORG    #
#                                                                       #
# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR         #
# MODIFY IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS        #
# PUBLISHED BY THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE    #
# LICENSE, OR (AT YOUR OPTION) ANY LATER VERSION.                       #
# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL,       #
# BUT WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF        #
# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU      #
# GENERAL PUBLIC LICENSE FOR MORE DETAILS.                              #
#                                                                       #
# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE     #
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO : EDF R&D CODE_ASTER,       #
#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        #
#########################################################################
# $Id: init_asjob.tcl 2075 2006-08-31 16:39:31Z courtois $

# définition et initialisation des srtuctures de données utilisées dans asjob
# Initialisations asjob
#
namespace eval asjob {
#
   variable NomSuivi
#
   variable fen_root
   variable window
   variable popup
   variable status ""
   variable Jobs
   variable TextJobs
   variable fmt
   variable maxarg
   variable paraJob
   variable actu
   variable size
}

#### =================
proc init_asjob {} {
#### =================
# initialisations
   set asjob::NomSuivi [file join $astk::rcdir asjob]
#
# géométrie initiale
#
   set asjob::size(h,f_tail) 8
   set asjob::size(w,f_tail) 90
   set zzz -1
   catch {set zzz $asjob::size(root)}
   if { $zzz == -1 } {
      set asjob::size(root) 100x10
   } else {
      set asjob::size(root) $zzz
   }

#
# structure des paramètres affichés dans le suivi d'exécution
#
   set asjob::maxarg 13

   array set asjob::paraJob {
      numero     { 0 "%16s"   }
      nom        { 1 "%-16s" }
       date       { 2 "%8s"  }
       heure      { 3 "%8s"   }
       etat       { 4 "%6s"   }
       diagnostic { 5 "%-18s"  }
       classe     { 6 "%16s"  }
       tcpu       { 7 "%8s"   }
       user       { 8 "%8s"   }
       machine    { 9 "%-24s" }
       noeud      {10 "%10s"  }
       interface  {11 "%16s"  }
       mode       {12 "%10s"  }
    }  
   set asjob::fmt [concat\
      "[lindex $asjob::paraJob(numero)     1]" "[lindex $asjob::paraJob(nom)        1]" \
      "[lindex $asjob::paraJob(date)       1]" "[lindex $asjob::paraJob(heure)      1]" \
      "[lindex $asjob::paraJob(etat)       1]" "[lindex $asjob::paraJob(diagnostic) 1]" \
        "[lindex $asjob::paraJob(classe)     1]" "[lindex $asjob::paraJob(tcpu)       1]" \
        "[lindex $asjob::paraJob(user)       1]" "[lindex $asjob::paraJob(machine)    1]" \
        "[lindex $asjob::paraJob(noeud)      1]" "[lindex $asjob::paraJob(interface)  1]" \
        "[lindex $asjob::paraJob(mode)       1]"  \
            ]
   return 1
}