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) 1997-2005 Jean-Luc Fontaine (mailto:jfontain@free.fr)
# this program is free software: please read the COPYRIGHT file enclosed in this package or use the Help Copyright menu
# $Id: modpython.tcl,v 1.8 2005/01/02 00:45:07 jfontain Exp $
namespace eval module::python { ;# indentation removed in some places since Python is quite sensitive about it
variable utilityFunctions {
import string
def columnstring(dictionary, index):
"return a Tcl array compatible initialization list for column data"
pairs = ''
for (key, value) in dictionary.items():
# embedded quotes allowed in message but must be escaped:
pairs = pairs + ' ' + str(index) + ',' + str(key) + ' "' + string.replace(str(value), '"', '\\"') + '"'
return pairs
def liststring(list):
"return a Tcl list from a python list (values must contain alphanumeric characters only)"
string = ''
for index in range(len(list)):
string = string + ' ' + str(list[index])
return string
def viewsstring(list):
"return a Tcl array compatible initialization list for views data"
pairs = ''
for index in range(len(list)):
pairs = pairs + ' {'
for (key, value) in list[index].items():
pairs = pairs + ' ' + str(key)
if key == 'swap': # simple boolean
pairs = pairs + ' ' + str(value)
elif key == 'sort':
for (column, direction) in value.items():
pairs = pairs + ' {' + str(column) + ' ' + str(direction) + '}'
break # keep first entry only
else: # indices list
pairs = pairs + ' {' + liststring(value) + '}'
pairs = pairs + '}'
return pairs
def dictionarystring(dictionary):
"return a Tcl array compatible initialization list from a python dictionary"
"(keys and values must contain alphanumeric characters only)"
pairs = ''
for (key, value) in dictionary.items():
pairs = pairs + ' ' + str(key) + ' ' + str(value)
return pairs
def formstring(dictionary):
"return a Tcl array compatible initialization list from module form dictionary"
pairs = ''
for (key, value) in dictionary.items():
if key == 'columns':
for index in range(len(value)):
pairs = pairs + columnstring(value[index], index)
elif re.match('^(indexColumns|indices|pollTimes)$', key):
pairs = pairs + ' ' + key + ' {' + liststring(value) + '}'
elif key == 'sort':
for (column, direction) in value.items():
pairs = pairs + ' sort {' + str(column) + ' ' + str(direction) + '}'
break # keep first entry only
elif key == 'switches':
pairs = pairs + ' ' + key + ' {' + dictionarystring(value) + '}'
elif key == 'views':
pairs = pairs + ' ' + key + ' {' + viewsstring(value) + '}'
else:
# embedded quotes allowed in value but must be escaped:
pairs = pairs + ' "' + str(key) + '" "' + string.replace(str(value), '"', '\\"') + '"'
return pairs
def datastring(list):
"return a Tcl array compatible initialization list from module data list of lists"
pairs = ''
for row in range(len(list)):
# empty rows are handled properly since their length is zero:
for column in range(len(list[row])):
pairs = pairs + ' ' + str(row) + ',' + str(column) + ' "' + string.replace(str(list[row][column]), '"', '\\"') + '"'
return pairs
}
}
|
