SPI_Example/FSTD_Dict.tcl at main · kuohsienchang/SPI_Example · GitHub

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
#!/bin/sh
# the next line restarts using tclsh \
exec $SPI_PATH/tclsh "$0" "$@"
#============================================================================
# Environnement Canada
# Centre Meteorologique Canadien
# 2100 Trans-Canadienne
# Dorval, Quebec
#
# Projet     : Exemple de scripts.
# Fichier    : FSTD_Dict.tcl
# Creation   : Juillet 2009 - J.P. Gauthier - CMC/CMOE
# Description: Test de fonctions d'acces au dictionnaire des variables RPN
#
# Parametres :
#
# Retour:
#
# Remarques  :
#
#============================================================================

package require TclData
#package require TclGeoEER
package require Logger

Log::Start [info script] 0.1

fstddict load $env(AFSISIO)/datafiles/constants/ops.variable_dictionary.xml
fstddict load $env(CI_DATA_IN)/eer.variable_dictionary.xml

puts "Variables (All) : [fstddict var]"
puts "Variables:(TT*) : [fstddict var TT]"
puts "Variables:(CMOE): [fstddict var -searchorigin CMOE]"
puts "Variables:(CV CMOE): [fstddict var CV -searchorigin CMOE]"
puts "Types    : [fstddict type]\n"

puts "Var TT        : [fstddict varinfo TT]"
puts "Var TT        : [fstddict varinfo TT -lang fr -short -units]"
puts "Var FM        : [fstddict varinfo FM]"
puts "Var FM        : [fstddict varinfo FM -lang fr -short -units]"
puts "Var FM        : [fstddict varinfo FM -lang fr -units -short -origin -nature]"
puts "Var CV        : [fstddict varinfo CV -searchorigin CMOE]"
puts "Var VF (1199) : [fstddict varinfo VF -lang fr -searchip1 1199 -short -units]"
puts "Var VF (33)   : [fstddict varinfo VF -lang fr -searchip1 33 -short -units]"
puts "Var VFDGD     : [fstddict varinfo VFDGD -lang fr -short -units]"
puts "Var PR (ERC25___NALL): [fstddict varinfo PR -lang fr -all -modifier ERC25___NALL -short -units]"
puts "Var TT (ERGE1___D010): [fstddict varinfo TT -lang fr -modifier ERGE1___NALL -short -units]"

fstddict varinfo TT -lang en -short "tototo tititi"
puts "Var TT new  : [fstddict varinfo TT -lang en -short]"

fstddict varinfo XXXX -lang en -short "toxxxxxx tixxxxx"
puts "Var XXXX new: [fstddict varinfo XXXX -lang en -short]"

puts "Type C      : [fstddict typeinfo C]"
puts "Type A      : [fstddict typeinfo A -lang fr -short]"

fstddict typeinfo XX -lang en -short "toxxxxxx tixxxxx"
puts "Type XX new : [fstddict typeinfo XX -lang en -short]"

puts -nonewline "Time of 100000 iterations: "
puts [time {
for { set n 0 } { $n < 100000 } { incr n } {
   fstddict varinfo TT -lang en -short -units
}
}]

Log::End 0