/
jswrap_onewire.c
511 lines (449 loc) · 15 KB
/
jswrap_onewire.c
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
/*
* This file is part of Espruino, a JavaScript interpreter for Microcontrollers
*
* Copyright (C) 2013 Gordon Williams <gw@pur3.co.uk>
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* ----------------------------------------------------------------------------
* This file is designed to be parsed during the build process
*
* JavaScript OneWire Functions
* ----------------------------------------------------------------------------
*/
#include "jswrap_onewire.h"
#include "jsdevices.h"
#include "jsinteractive.h"
#if defined(BLUETOOTH) && defined(NRF52_SERIES)
#define ESPR_ONEWIRE_IN_TIMESLOT
#endif
#ifdef ESPR_ONEWIRE_IN_TIMESLOT
#include "bluetooth.h"
#include "nrf_soc.h"
#define ONEWIREREAD_FN _OneWireRead
#define ONEWIREWRITE_FN _OneWireWrite
#else
#define ONEWIREREAD_FN OneWireRead
#define ONEWIREWRITE_FN OneWireWrite
#endif
/*JSON{
"type" : "class",
"class" : "OneWire"
}
This class provides a software-defined OneWire master. It is designed to be
similar to Arduino's OneWire library.
**Note:** OneWire commands are very timing-sensitive, and on nRF52 devices
(Bluetooth LE Espruino boards) the bluetooth stack can get in the way. Before
version 2v18 of Espruino OneWire could be unreliable, but as of firmware 2v18
Espruino now schedules OneWire accesses with the bluetooth stack to ensure it doesn't interfere.
OneWire is now reliable but some functions such as `OneWire.search` can now take
a while to execute (around 1 second).
*/
static Pin onewire_getpin(JsVar *parent) {
return jshGetPinFromVarAndUnLock(jsvObjectGetChildIfExists(parent, "pin"));
}
/** Reset one-wire, return true if a device was present */
static bool NO_INLINE OneWireReset(Pin pin) {
jshPinSetState(pin, JSHPINSTATE_GPIO_OUT_OPENDRAIN_PULLUP);
//jshInterruptOff();
jshPinSetValue(pin, 0);
jshDelayMicroseconds(500);
jshPinSetValue(pin, 1);
jshDelayMicroseconds(80);
bool hasDevice = !jshPinGetValue(pin);
//jshInterruptOn();
jshDelayMicroseconds(420);
return hasDevice;
}
/** Write 'bits' bits, and return what was read (to read, you must send all 1s) */
static JsVarInt NO_INLINE ONEWIREREAD_FN(Pin pin, int bits) {
jshPinSetState(pin, JSHPINSTATE_GPIO_OUT_OPENDRAIN_PULLUP);
JsVarInt result = 0;
JsVarInt mask = 1;
while (bits-- > 0) {
jshInterruptOff();
jshPinSetValue(pin, 0);
jshDelayMicroseconds(3);
jshPinSetValue(pin, 1);
jshDelayMicroseconds(10); // leave time to let it rise
if (jshPinGetValue(pin))
result = result | mask;
jshInterruptOn();
jshDelayMicroseconds(53);
mask = mask << 1;
}
return result;
}
/** Write 'bits' bits, and return what was read (to read, you must send all 1s) */
static void NO_INLINE ONEWIREWRITE_FN(Pin pin, int bits, unsigned long long data) {
jshPinSetState(pin, JSHPINSTATE_GPIO_OUT_OPENDRAIN_PULLUP);
unsigned long long mask = 1;
while (bits-- > 0) {
if (data & mask) { // short pulse
jshInterruptOff();
jshPinSetValue(pin, 0);
jshDelayMicroseconds(10);
jshPinSetValue(pin, 1);
jshInterruptOn();
jshDelayMicroseconds(55);
} else { // long pulse
jshInterruptOff();
jshPinSetValue(pin, 0);
jshDelayMicroseconds(65);
jshPinSetValue(pin, 1);
jshInterruptOn();
jshDelayMicroseconds(5);
}
mask = mask << 1;
}
}
#ifdef ESPR_ONEWIRE_IN_TIMESLOT
// Timeslot event handler
static bool m_onewire_timeslot_busy = false;
static Pin m_onewire_timeslot_pin;
static int m_onewire_timeslot_bits; // negative value means a read, positive is write
static unsigned long long m_onewire_timeslot_data;
static nrf_radio_signal_callback_return_param_t m_signal_callback_return_param;
nrf_radio_signal_callback_return_param_t * radio_callback(uint8_t signal_type) {
switch(signal_type) {
case NRF_RADIO_CALLBACK_SIGNAL_TYPE_START:
// now perform the command
if (m_onewire_timeslot_bits < 0) { // read
m_onewire_timeslot_data = _OneWireRead(m_onewire_timeslot_pin, -m_onewire_timeslot_bits);
} else { // write
_OneWireWrite(m_onewire_timeslot_pin, m_onewire_timeslot_bits, m_onewire_timeslot_data);
}
m_onewire_timeslot_busy = false;
// request a timeslot end
m_signal_callback_return_param.params.request.p_next = NULL;
m_signal_callback_return_param.callback_action = NRF_RADIO_SIGNAL_CALLBACK_ACTION_END;
break;
default:
break;
}
return (&m_signal_callback_return_param);
}
JsVarInt OneWirePerformInTimeSlot(Pin pin, int bits, unsigned long long data) {
uint32_t err_code;
err_code = sd_radio_session_open(radio_callback);
if (jsble_check_error(err_code)) return 0;
m_onewire_timeslot_pin = pin;
m_onewire_timeslot_bits = bits;
m_onewire_timeslot_data = data;
m_onewire_timeslot_busy = true;
// work out how much time we need - very pessimistic here!
uint32_t time_us;
if (bits<0) { // a read
time_us = 100 - bits*100;
} else { // a write
time_us = 100 + bits*100;
}
static nrf_radio_request_t m_timeslot_request;
memset(&m_timeslot_request, 0, sizeof(m_timeslot_request));
m_timeslot_request.request_type = NRF_RADIO_REQ_TYPE_EARLIEST;
m_timeslot_request.params.earliest.hfclk = NRF_RADIO_HFCLK_CFG_XTAL_GUARANTEED;
m_timeslot_request.params.earliest.priority = NRF_RADIO_PRIORITY_HIGH;
m_timeslot_request.params.earliest.timeout_us = NRF_RADIO_EARLIEST_TIMEOUT_MAX_US;
m_timeslot_request.params.earliest.length_us = time_us;
err_code = sd_radio_request(&m_timeslot_request);
if (!jsble_check_error(err_code)) {
WAIT_UNTIL(!m_onewire_timeslot_busy, "OneWire timeslot");
}
m_onewire_timeslot_busy = false;
err_code = sd_radio_session_close();
if (jsble_check_error(err_code)) return 0;
return m_onewire_timeslot_data;
}
static JsVarInt NO_INLINE OneWireRead(Pin pin, int bits) {
return OneWirePerformInTimeSlot(pin, -bits, 0);
}
/** Write 'bits' bits, and return what was read (to read, you must send all 1s) */
static void NO_INLINE OneWireWrite(Pin pin, int bits, unsigned long long data) {
OneWirePerformInTimeSlot(pin, bits, data);
}
#endif
/*JSON{
"type" : "constructor",
"class" : "OneWire",
"name" : "OneWire",
"generate" : "jswrap_onewire_constructor",
"params" : [
["pin","pin","The pin to implement OneWire on"]
],
"return" : ["JsVar","A OneWire object"]
}
Create a software OneWire implementation on the given pin
*/
JsVar *jswrap_onewire_constructor(Pin pin) {
JsVar *ow = jspNewObject(0, "OneWire");
if (!ow) return 0;
jsvObjectSetChildAndUnLock(ow, "pin", jsvNewFromPin(pin));
return ow;
}
/*JSON{
"type" : "method",
"class" : "OneWire",
"name" : "reset",
"generate" : "jswrap_onewire_reset",
"return" : ["bool","True is a device was present (it held the bus low)"]
}
Perform a reset cycle
*/
bool jswrap_onewire_reset(JsVar *parent) {
Pin pin = onewire_getpin(parent);
if (!jshIsPinValid(pin)) return 0;
return OneWireReset(pin);
}
/*JSON{
"type" : "method",
"class" : "OneWire",
"name" : "select",
"generate" : "jswrap_onewire_select",
"params" : [
["rom","JsVar","The device to select (get this using `OneWire.search()`)"]
]
}
Select a ROM - always performs a reset first
*/
void jswrap_onewire_select(JsVar *parent, JsVar *rom) {
Pin pin = onewire_getpin(parent);
if (!jshIsPinValid(pin)) return;
if (!jsvIsString(rom) || jsvGetStringLength(rom)!=16) {
jsExceptionHere(JSET_TYPEERROR, "Invalid OneWire device address %q", rom);
return;
}
// perform a reset
OneWireReset(pin);
// decode the address
unsigned long long romdata = 0;
JsvStringIterator it;
jsvStringIteratorNew(&it, rom, 0);
int i;
for (i=0;i<8;i++) {
char b[3];
b[0] = jsvStringIteratorGetCharAndNext(&it);
b[1] = jsvStringIteratorGetCharAndNext(&it);
b[2] = 0;
romdata = romdata | (((unsigned long long)stringToIntWithRadix(b,16,NULL,NULL)) << (i*8));
}
jsvStringIteratorFree(&it);
// finally write data out
OneWireWrite(pin, 8, 0x55);
OneWireWrite(pin, 64, romdata);
}
/*JSON{
"type" : "method",
"class" : "OneWire",
"name" : "skip",
"generate" : "jswrap_onewire_skip"
}
Skip a ROM
*/
void jswrap_onewire_skip(JsVar *parent) {
Pin pin = onewire_getpin(parent);
if (!jshIsPinValid(pin)) return;
OneWireWrite(pin, 8, 0xCC);
}
/*JSON{
"type" : "method",
"class" : "OneWire",
"name" : "write",
"generate" : "jswrap_onewire_write",
"params" : [
["data","JsVar","A byte (or array of bytes) to write"],
["power","bool","Whether to leave power on after write (default is false)"]
]
}
Write one or more bytes
*/
void _jswrap_onewire_write_cb(int data, Pin *pin) {
OneWireWrite(*pin, 8, (unsigned int)data);
}
void jswrap_onewire_write(JsVar *parent, JsVar *data, bool leavePowerOn) {
Pin pin = onewire_getpin(parent);
if (!jshIsPinValid(pin)) return;
jsvIterateCallback(data, (void (*)(int, void *))_jswrap_onewire_write_cb, (void*)&pin);
if (leavePowerOn) {
// We're asked to leave power on for parasitically powered devices, to do that properly we
// need to actively pull the line high. This is required, for example, for parasitically
// powered DS18B20 temperature sensors.
jshPinSetValue(pin, 1);
jshPinSetState(pin, JSHPINSTATE_GPIO_OUT);
} else {
// We don't need to leave power on, so just tri-state the pin
jshPinSetState(pin, JSHPINSTATE_GPIO_IN);
jshPinSetValue(pin, 1);
}
}
/*JSON{
"type" : "method",
"class" : "OneWire",
"name" : "read",
"generate" : "jswrap_onewire_read",
"params" : [["count","JsVar","[optional] The amount of bytes to read"]],
"return" : ["JsVar","The byte that was read, or a Uint8Array if count was specified and >=0"]
}
Read a byte
*/
JsVar *jswrap_onewire_read(JsVar *parent, JsVar *count) {
Pin pin = onewire_getpin(parent);
if (!jshIsPinValid(pin)) return 0;
if (jsvIsNumeric(count)) {
JsVarInt c = jsvGetInteger(count);
JsVar *arr = jsvNewTypedArray(ARRAYBUFFERVIEW_UINT8, c);
if (!arr) return 0;
JsvArrayBufferIterator it;
jsvArrayBufferIteratorNew(&it, arr, 0);
while (c--) {
jsvArrayBufferIteratorSetByteValue(&it, (char)OneWireRead(pin, 8));
jsvArrayBufferIteratorNext(&it);
}
jsvArrayBufferIteratorFree(&it);
return arr;
} else {
return jsvNewFromInteger(OneWireRead(pin, 8));
}
}
/*JSON{
"type" : "method",
"class" : "OneWire",
"name" : "search",
"generate" : "jswrap_onewire_search",
"params" : [
["command","int32","(Optional) command byte. If not specified (or zero), this defaults to 0xF0. This can could be set to 0xEC to perform a DS18B20 'Alarm Search Command'"]
],
"return" : ["JsVar","An array of devices that were found"]
}
Search for devices
*/
JsVar *jswrap_onewire_search(JsVar *parent, int command) {
// search - code from http://www.maximintegrated.com/app-notes/index.mvp/id/187
Pin pin = onewire_getpin(parent);
if (!jshIsPinValid(pin)) return 0;
JsVar *array = jsvNewEmptyArray();
if (!array) return 0;
if (command<=0 || command>255)
command = 0xF0; // normal search command
// global search state
unsigned char ROM_NO[8];
int LastDiscrepancy;
int LastFamilyDiscrepancy;
int LastDeviceFlag;
// reset the search state
LastDiscrepancy = 0;
LastDeviceFlag = FALSE;
LastFamilyDiscrepancy = 0;
int search_result = true;
while (search_result) {
int id_bit_number;
int last_zero, rom_byte_number;
unsigned char id_bit, cmp_id_bit;
unsigned char rom_byte_mask, search_direction;
// initialize for search
id_bit_number = 1;
last_zero = 0;
rom_byte_number = 0;
rom_byte_mask = 1;
search_result = 0;
// if the last call was not the last one
if (!LastDeviceFlag)
{
// 1-Wire reset
if (!OneWireReset(pin))
{
// reset the search
LastDiscrepancy = 0;
LastDeviceFlag = FALSE;
LastFamilyDiscrepancy = 0;
return array;
}
// issue the search command
OneWireWrite(pin, 8, (unsigned long long)command);
// loop to do the search
do
{
// read a bit and its complement
id_bit = (unsigned char)OneWireRead(pin, 1);
cmp_id_bit = (unsigned char)OneWireRead(pin, 1);
// check for no devices on 1-wire
if ((id_bit == 1) && (cmp_id_bit == 1))
break;
else
{
// all devices coupled have 0 or 1
if (id_bit != cmp_id_bit)
search_direction = id_bit; // bit write value for search
else
{
// if this discrepancy if before the Last Discrepancy
// on a previous next then pick the same as last time
if (id_bit_number < LastDiscrepancy)
search_direction = ((ROM_NO[rom_byte_number] & rom_byte_mask) > 0);
else
// if equal to last pick 1, if not then pick 0
search_direction = (id_bit_number == LastDiscrepancy);
// if 0 was picked then record its position in LastZero
if (search_direction == 0)
{
last_zero = id_bit_number;
// check for Last discrepancy in family
if (last_zero < 9)
LastFamilyDiscrepancy = last_zero;
}
}
// set or clear the bit in the ROM byte rom_byte_number
// with mask rom_byte_mask
if (search_direction == 1)
ROM_NO[rom_byte_number] |= rom_byte_mask;
else
ROM_NO[rom_byte_number] &= (unsigned char)~rom_byte_mask;
// serial number search direction write bit
OneWireWrite(pin, 1, search_direction);
// increment the byte counter id_bit_number
// and shift the mask rom_byte_mask
id_bit_number++;
rom_byte_mask = (unsigned char)(rom_byte_mask << 1);
// if the mask is 0 then go to new SerialNum byte rom_byte_number and reset mask
if (rom_byte_mask == 0)
{
rom_byte_number++;
rom_byte_mask = 1;
}
}
}
while(rom_byte_number < 8); // loop until through all ROM bytes 0-7
// if the search was successful then
if (!((id_bit_number < 65)))
{
// search successful so set LastDiscrepancy,LastDeviceFlag,search_result
LastDiscrepancy = last_zero;
// check for last device
if (LastDiscrepancy == 0)
LastDeviceFlag = TRUE;
search_result = TRUE;
}
}
// if no device found then reset counters so next 'search' will be like a first
if (!search_result || !ROM_NO[0])
{
LastDiscrepancy = 0;
LastDeviceFlag = FALSE;
LastFamilyDiscrepancy = 0;
search_result = FALSE;
}
if (search_result) {
int i;
char buf[17];
for (i=0;i<8;i++) {
buf[i*2] = itoch((ROM_NO[i]>>4) & 15);
buf[i*2+1] = itoch(ROM_NO[i] & 15);
}
buf[16]=0;
jsvArrayPushString(array, buf);
}
NOT_USED(LastFamilyDiscrepancy);
}
return array;
}