ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/DBS/Servers/AppServer/test/SWIGPyTestIncludes.py
Revision: 1.1.2.1
Committed: Thu Feb 23 22:54:08 2006 UTC (19 years, 2 months ago) by afaq
Content type: text/x-python
Branch: BranchForCPPWebServiceTesting
Changes since 1.1: +42 -0 lines
Log Message:
Work on more Code generation (including tests etc) is underway

File Contents

# User Rev Content
1 afaq 1.1.2.1 import dbsclient
2    
3     client = dbsclient.DBSClient()
4     def stringp(inStr) :
5     return client.str(inStr)
6    
7     def delStringp(inStr) :
8     dbsclient.delete_stringp(inStr)
9    
10     def string(key) :
11     return dbsclient.ASTR(key)
12    
13     def integer(key) :
14     return dbsclient.AINT(key)
15    
16     def character(key) :
17     return dbsclient.ACHR(key)
18    
19     def setStrValue(aRow, key, value) :
20     if(value != None and key != None):
21     key = stringp(key)
22     aRow.setValue(key, string(value))
23     delStringp(key)
24    
25     def setIntValue(aRow, key, value) :
26     key = stringp(key)
27     aRow.setValue(key, integer(int(value)))
28     delStringp(key)
29    
30     def setChrValue(aRow, key, value) :
31     key = stringp(key)
32     aRow.setValue(key, character(value))
33     delStringp(key)
34    
35     def getStrValue(table, key, index) :
36     if(index != None and key != None):
37     if(index > -1) :
38     key = stringp(key)
39     value = table.getStrValue(index, key)
40     delStringp(key)
41     return value
42