Mercurial > ~darius > hgwebdir.cgi > iec1107

annotate iec1107.py @ 1:99f25c8ab92f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make class version actually work, remove procedure. Rename as it doesn't get continuous results, just one shot.
author Daniel O'Connor <darius@dons.net.au>
date Wed, 20 Nov 2013 12:46:59 +1030
parents fd8520d969c4
children 8f1a773a3cd5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
1 #!/usr/bin/env python
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
2
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
3 #
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
4 # http://www.domoticaforum.eu/viewtopic.php?f=71&t=7489
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
5 #
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
6
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
7 import exceptions
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
8 import serial
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
9 import sys
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
10 import time
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
11
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
12 baudtable = {'0' : 300, '1' : 600, '2' : 1200, '3' : 2400, '4' : 4800, '5' : 9600, '6' : 19200}
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
13
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
14 class Error(exceptions.BaseException):
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
15 pass
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
16
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
17 class IEC1107Reading(object):
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
18 def __init__(self, port, force300bps = True):
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
19 # Open port
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
20 s = serial.Serial(port, baudrate = 300, bytesize = 7, parity = 'E', stopbits = 1)
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
21 s.timeout = 2.5
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
22
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
23 # Send ident message
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
24 s.write('/?!\r\n')
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
25 rtn = s.readline()
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
26 if len(rtn) == 0:
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
27 raise Error('No reply to probe')
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
28 if len(rtn) < 6 or rtn[0] != '/' or rtn[-1] != '\n' or rtn[-2] != '\r':
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
29 raise Error('Invalid line "%s"' % (rtn))
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
30
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
31 rtn = rtn.strip()
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
32 self.mfg = rtn[1:4]
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
33
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
34 if self.mfg[2].isupper():
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
35 self.restime = 0.2
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
36 else:
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
37 self.restime = 0.02
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
38
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
39 if force300bps:
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
40 self.baudid = '0'
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
41 else:
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
42 self.baudid = rtn[4]
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
43 if self.baudid not in baudtable:
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
44 raise Error('Invalid baud rate %c from "%s"' % (selfbaudid, rtn))
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
45 else:
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
46 self.baud = baudtable[self.baudid]
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
47
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
48 if rtn[5] == '/':
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
49 self.mode = rtn[6]
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
50 self.mfg = rtn[7:]
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
51 else:
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
52 self.mode = None
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
53 self.mfg = rtn[5:]
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
54
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
55 # Send ACK/option message
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
56 # Byte Meaning
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
57 # 0 ACK (0x06)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
58 # 1 Protocol character ('0' = normal, '1' = secondary, '2' = HDLC protocol)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
59 # 2 Baud rate ID ('0', '1', etc)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
60 # 3 Mode control('0' = read data, '1' = device prog)
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
61 s.write('\x060%c0\r\n' % (self.baudid))
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
62
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
63 time.sleep(self.restime)
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
64 s.setBaudrate(self.baud)
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
65
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
66 lines = []
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
67 cksum = 0
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
68
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
69 # Read STX
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
70 head = s.read(1)
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
71 if len(head) == 0:
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
72 raise Error('No reply to query')
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
73 if head != '\x02':
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
74 raise Error('Invalid reply header 0x%02x' % (ord(head)))
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
75
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
76 # Read result lines
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
77 while True:
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
78 line = s.readline()
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
79 cksum ^= reduce(lambda x, y: x ^ y, map(ord, line))
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
80 line = line.strip()
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
81 if len(line) == 0:
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
82 raise Error('Timeout during message')
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
83 if line == '!':
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
84 break
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
85 lines.append(line)
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
86
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
87 # Read trailer
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
88 fin = s.read(2)
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
89 if len(fin) != 2:
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
90 raise Error('Timeout reading trailer')
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
91 if fin[0] != '\x03':
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
92 raise Error('Trailer malformed, expected 0x03, got 0x%02x' % (ord(fin[0])))
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
93
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
94 # Validate checksum
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
95 cksum ^= ord(fin[0])
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
96 if cksum != ord(fin[1]):
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
97 raise Error('Checksum mismatch, expected 0x%02x, got 0x%02x' % (cksum, ord(fin[1])))
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
98 self.reading = lines
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
99 del s
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
100
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
101 def main():
1
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
102 if len(sys.argv) != 2:
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
103 print 'Bad usage'
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
104 print '\t%s portname' % (sys.argv[0])
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
105 sys.exit(1)
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
106
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
107 res = IEC1107Reading(sys.argv[1])
99f25c8ab92f Make class version actually work, remove procedure.
Daniel O'Connor <darius@dons.net.au>
parents: 0
diff changeset
108 print res.reading
0
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
109
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
110 if __name__ == '__main__':
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
111 main()
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
112
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
113 # Meter number is 1288004
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
114 # 1.8.0 is import
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
115 # 1.8.1 is ??
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
116 # 1.8.2 is ??
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
117 # 1.8.3 is ??
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
118 # 2.8.0 is export
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
119
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
120 # C.1(12880041.0(22:25 18-11-13)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
121 # 1.8.1(0000000597*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
122 # 1.8.2(0000000000*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
123 # 1.8.3(0000264238*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
124 # 1.8.0(0000264835*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
125 # 2.8.0(0000511354*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
126
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
127 # ==> /?!<0D><0A>
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
128 # <== /ACE5SMLCD
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
129 # ==> <06>050<0D><0A>
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
130 # <== -- STX --
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
131 # <== C.1(12880041.0(22:48 18-11-13)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
132 # <== 1.8.1(0000000597*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
133 # <== 1.8.2(0000000000*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
134 # <== 1.8.3(0000264460*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
135 # <== 1.8.0(0000265057*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
136 # <== 2.8.0(0000511354*Wh)
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
137 # <== !
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
138 # <== -- ETX --
fd8520d969c4 Initial commit, only readmeter function works
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
139 # <== -- BCC --