git.gag.com Git - fw/altos/blob - src/telelco-v0.1/ao_lco.c

   1 /*
   2  * Copyright © 2012 Keith Packard <keithp@keithp.com>
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License as published by
   6  * the Free Software Foundation; version 2 of the License.
   7  *
   8  * This program is distributed in the hope that it will be useful, but
   9  * WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11  * General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License along
  14  * with this program; if not, write to the Free Software Foundation, Inc.,
  15  * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  16  */
  17
  18 #include <ao.h>
  19 #include <ao_lco.h>
  20 #include <ao_event.h>
  21 #include <ao_seven_segment.h>
  22 #include <ao_quadrature.h>
  23 #include <ao_lco_func.h>
  24 #include <ao_radio_cmac.h>
  25
  26 #define DEBUG   1
  27
  28 #if DEBUG
  29 static uint8_t  ao_lco_debug;
  30 #define PRINTD(...) do { if (!ao_lco_debug) break; printf ("\r%5u %s: ", ao_tick_count, __func__); printf(__VA_ARGS__); flush(); } while(0)
  31 #else
  32 #define PRINTD(...)
  33 #endif
  34
  35 #define AO_LCO_PAD_DIGIT        0
  36 #define AO_LCO_BOX_DIGIT_1      1
  37 #define AO_LCO_BOX_DIGIT_10     2
  38
  39 static uint8_t  ao_lco_min_box, ao_lco_max_box;
  40 static uint8_t  ao_lco_mutex;
  41 static uint8_t  ao_lco_pad;
  42 static uint8_t  ao_lco_box;
  43 static uint8_t  ao_lco_armed;
  44 static uint8_t  ao_lco_firing;
  45 static uint8_t  ao_lco_valid;
  46 static uint16_t ao_lco_tick_offset;
  47
  48 static struct ao_pad_query      ao_pad_query;
  49
  50 static void
  51 ao_lco_set_pad(void)
  52 {
  53         ao_seven_segment_set(AO_LCO_PAD_DIGIT, ao_lco_pad + 1);
  54 }
  55
  56 static void
  57 ao_lco_set_box(void)
  58 {
  59         ao_seven_segment_set(AO_LCO_BOX_DIGIT_1, ao_lco_box % 10);
  60         ao_seven_segment_set(AO_LCO_BOX_DIGIT_10, ao_lco_box / 10);
  61 }
  62
  63 #define MASK_SIZE(n)    (((n) + 7) >> 3)
  64 #define MASK_ID(n)      ((n) >> 3)
  65 #define MASK_SHIFT(n)   ((n) & 7)
  66
  67 static uint8_t  ao_lco_box_mask[MASK_SIZE(AO_PAD_MAX_BOXES)];
  68
  69 static uint8_t
  70 ao_lco_box_present(uint8_t box)
  71 {
  72         if (box >= AO_PAD_MAX_BOXES)
  73                 return 0;
  74         return (ao_lco_box_mask[MASK_ID(box)] >> MASK_SHIFT(box)) & 1;
  75 }
  76
  77 static uint8_t
  78 ao_lco_pad_present(uint8_t pad)
  79 {
  80         if (!ao_lco_valid || !ao_pad_query.channels)
  81                 return pad == 0;
  82         if (pad >= AO_PAD_MAX_CHANNELS)
  83                 return 0;
  84         return (ao_pad_query.channels >> pad) & 1;
  85 }
  86
  87 static uint8_t
  88 ao_lco_pad_first(void)
  89 {
  90         uint8_t pad;
  91
  92         for (pad = 0; pad < AO_PAD_MAX_CHANNELS; pad++)
  93                 if (ao_lco_pad_present(pad))
  94                         return pad;
  95         return 0;
  96 }
  97
  98 static void
  99 ao_lco_input(void)
 100 {
 101         static struct ao_event  event;
 102         int8_t  dir, new_box, new_pad;
 103
 104         ao_beep_for(AO_BEEP_MID, AO_MS_TO_TICKS(200));
 105         ao_lco_set_pad();
 106         ao_lco_set_box();
 107         for (;;) {
 108                 ao_event_get(&event);
 109                 PRINTD("event type %d unit %d value %d\n",
 110                        event.type, event.unit, event.value);
 111                 switch (event.type) {
 112                 case AO_EVENT_QUADRATURE:
 113                         switch (event.unit) {
 114                         case AO_QUADRATURE_PAD:
 115                                 if (!ao_lco_armed) {
 116                                         if (event.value == ao_lco_pad)
 117                                                 break;
 118                                         dir = ((int8_t) event.value - (int8_t) ao_lco_pad) > 0 ? 1 : -1;
 119                                         new_pad = event.value;
 120                                         while (!ao_lco_pad_present(new_pad)) {
 121                                                 new_pad += dir;
 122                                                 if (new_pad > AO_PAD_MAX_CHANNELS)
 123                                                         new_pad = 0;
 124                                                 else if (new_pad < 0)
 125                                                         new_pad = AO_PAD_MAX_CHANNELS - 1;
 126                                                 if (new_pad == ao_lco_pad)
 127                                                         break;
 128                                         }
 129                                         if (new_pad != ao_lco_pad) {
 130                                                 ao_lco_pad = new_pad;
 131                                                 ao_quadrature_count[AO_QUADRATURE_PAD] = ao_lco_pad;
 132                                                 ao_lco_set_pad();
 133                                         }
 134                                 }
 135                                 break;
 136                         case AO_QUADRATURE_BOX:
 137                                 if (!ao_lco_armed) {
 138                                         if (event.value == ao_lco_box)
 139                                                 break;
 140                                         dir = ((int8_t) event.value - (int8_t) ao_lco_box) > 0 ? 1 : -1;
 141                                         new_box = event.value;
 142                                         while (!ao_lco_box_present(new_box)) {
 143                                                 new_box += dir;
 144                                                 if (new_box > ao_lco_max_box)
 145                                                         new_box = ao_lco_min_box;
 146                                                 else if (new_box < ao_lco_min_box)
 147                                                         new_box = ao_lco_min_box;
 148                                                 if (new_box == ao_lco_box)
 149                                                         break;
 150                                         }
 151                                         ao_quadrature_count[AO_QUADRATURE_PAD] = new_box;
 152                                         if (ao_lco_box != new_box) {
 153                                                 ao_lco_box = new_box;
 154                                                 ao_lco_valid = 0;
 155                                                 ao_lco_set_box();
 156                                         }
 157                                 }
 158                                 break;
 159                         }
 160                         break;
 161                 case AO_EVENT_BUTTON:
 162                         switch (event.unit) {
 163                         case AO_BUTTON_ARM:
 164                                 ao_lco_armed = event.value;
 165                                 PRINTD("Armed %d\n", ao_lco_armed);
 166                                 ao_wakeup(&ao_lco_armed);
 167                                 break;
 168                         case AO_BUTTON_FIRE:
 169                                 if (ao_lco_armed) {
 170                                         ao_lco_firing = event.value;
 171                                         PRINTD("Firing %d\n", ao_lco_firing);
 172                                         ao_wakeup(&ao_lco_armed);
 173                                 }
 174                                 break;
 175                         }
 176                         break;
 177                 }
 178         }
 179 }
 180
 181 static AO_LED_TYPE      continuity_led[AO_LED_CONTINUITY_NUM] = {
 182 #ifdef AO_LED_CONTINUITY_0
 183         AO_LED_CONTINUITY_0,
 184 #endif
 185 #ifdef AO_LED_CONTINUITY_1
 186         AO_LED_CONTINUITY_1,
 187 #endif
 188 #ifdef AO_LED_CONTINUITY_2
 189         AO_LED_CONTINUITY_2,
 190 #endif
 191 #ifdef AO_LED_CONTINUITY_3
 192         AO_LED_CONTINUITY_3,
 193 #endif
 194 #ifdef AO_LED_CONTINUITY_4
 195         AO_LED_CONTINUITY_4,
 196 #endif
 197 #ifdef AO_LED_CONTINUITY_5
 198         AO_LED_CONTINUITY_5,
 199 #endif
 200 #ifdef AO_LED_CONTINUITY_6
 201         AO_LED_CONTINUITY_6,
 202 #endif
 203 #ifdef AO_LED_CONTINUITY_7
 204         AO_LED_CONTINUITY_7,
 205 #endif
 206 };
 207
 208 static void
 209 ao_lco_update(void)
 210 {
 211         int8_t                  r;
 212         uint8_t                 c;
 213
 214         r = ao_lco_query(ao_lco_box, &ao_pad_query, &ao_lco_tick_offset);
 215         if (r == AO_RADIO_CMAC_OK) {
 216                 c = ao_lco_valid;
 217                 ao_lco_valid = 1;
 218                 if (!c) {
 219                         ao_lco_pad = ao_lco_pad_first();
 220                         ao_lco_set_pad();
 221                 }
 222         }
 223
 224 #if 0
 225         PRINTD("lco_query success arm_status %d i0 %d i1 %d i2 %d i3 %d\n",
 226                query.arm_status,
 227                query.igniter_status[0],
 228                query.igniter_status[1],
 229                query.igniter_status[2],
 230                query.igniter_status[3]);
 231 #endif
 232
 233         ao_wakeup(&ao_pad_query);
 234 }
 235
 236 static void
 237 ao_lco_box_set_present(uint8_t box)
 238 {
 239         if (box >= AO_PAD_MAX_BOXES)
 240                 return;
 241         ao_lco_box_mask[MASK_ID(box)] |= 1 << MASK_SHIFT(box);
 242 }
 243
 244 static void
 245 ao_lco_search(void)
 246 {
 247         uint16_t        tick_offset;
 248         int8_t          r;
 249
 250         ao_lco_min_box = 0xff;
 251         ao_lco_max_box = 0x00;
 252         for (ao_lco_box = 0; ao_lco_box < AO_PAD_MAX_BOXES; ao_lco_box++) {
 253                 ao_lco_set_box();
 254                 r = ao_lco_query(ao_lco_box, &ao_pad_query, &ao_lco_tick_offset);
 255                 if (r == AO_RADIO_CMAC_OK) {
 256                         if (ao_lco_box < ao_lco_min_box)
 257                                 ao_lco_min_box = ao_lco_box;
 258                         if (ao_lco_box > ao_lco_max_box)
 259                                 ao_lco_max_box = ao_lco_box;
 260                         ao_lco_box_set_present(ao_lco_box);
 261                 }
 262         }
 263         if (ao_lco_min_box <= ao_lco_max_box)
 264                 ao_lco_box = ao_lco_min_box;
 265         else
 266                 ao_lco_min_box = ao_lco_max_box = ao_lco_box = 0;
 267         ao_lco_valid = 0;
 268         ao_lco_pad = 0;
 269 }
 270
 271 static void
 272 ao_lco_igniter_status(void)
 273 {
 274         uint8_t         c;
 275         uint16_t        delay;
 276
 277         for (;;) {
 278 //              ao_alarm(delay);
 279                 ao_sleep(&ao_pad_query);
 280 //              ao_clear_alarm();
 281                 if (!ao_lco_valid) {
 282                         ao_led_on(AO_LED_RED);
 283                         ao_led_off(AO_LED_GREEN);
 284                         continue;
 285                 }
 286                 PRINTD("RSSI %d\n", ao_radio_cmac_rssi);
 287                 if (ao_radio_cmac_rssi < -90)
 288                         ao_led_on(AO_LED_RED|AO_LED_GREEN);
 289                 else {
 290                         ao_led_on(AO_LED_GREEN);
 291                         ao_led_off(AO_LED_RED);
 292                 }
 293                 if (ao_pad_query.arm_status)
 294                         ao_led_on(AO_LED_REMOTE_ARM);
 295                 else
 296                         ao_led_off(AO_LED_REMOTE_ARM);
 297                 for (c = 0; c < AO_LED_CONTINUITY_NUM; c++) {
 298                         uint8_t status;
 299
 300                         if (ao_pad_query.channels & (1 << c))
 301                                 status = ao_pad_query.igniter_status[c];
 302                         else
 303                                 status = AO_PAD_IGNITER_STATUS_NO_IGNITER_RELAY_OPEN;
 304                         if (status == AO_PAD_IGNITER_STATUS_GOOD_IGNITER_RELAY_OPEN)
 305                                 ao_led_on(continuity_led[c]);
 306                         else
 307                                 ao_led_off(continuity_led[c]);
 308                 }
 309         }
 310 }
 311
 312 static void
 313 ao_lco_arm_warn(void)
 314 {
 315         for (;;) {
 316                 while (!ao_lco_armed)
 317                         ao_sleep(&ao_lco_armed);
 318                 ao_beep_for(AO_BEEP_MID, AO_MS_TO_TICKS(200));
 319                 ao_delay(AO_MS_TO_TICKS(200));
 320         }
 321 }
 322
 323 static struct ao_task ao_lco_input_task;
 324 static struct ao_task ao_lco_monitor_task;
 325 static struct ao_task ao_lco_arm_warn_task;
 326 static struct ao_task ao_lco_igniter_status_task;
 327
 328 static void
 329 ao_lco_monitor(void)
 330 {
 331         uint16_t                delay;
 332
 333         ao_lco_search();
 334         ao_add_task(&ao_lco_input_task, ao_lco_input, "lco input");
 335         ao_add_task(&ao_lco_arm_warn_task, ao_lco_arm_warn, "lco arm warn");
 336         ao_add_task(&ao_lco_igniter_status_task, ao_lco_igniter_status, "lco igniter status");
 337         for (;;) {
 338                 PRINTD("monitor armed %d firing %d offset %d\n",
 339                        ao_lco_armed, ao_lco_firing, ao_lco_tick_offset);
 340
 341                 if (ao_lco_armed && ao_lco_firing) {
 342                         PRINTD("Firing box %d pad %d: valid %d\n",
 343                                ao_lco_box, ao_lco_pad, ao_lco_valid);
 344                         if (!ao_lco_valid)
 345                                 ao_lco_update();
 346                         if (ao_lco_valid)
 347                                 ao_lco_ignite(ao_lco_box, 1 << ao_lco_pad, ao_lco_tick_offset);
 348                 } else if (ao_lco_armed) {
 349                         PRINTD("Arming box %d pad %d\n",
 350                                ao_lco_box, ao_lco_pad);
 351                         if (!ao_lco_valid)
 352                                 ao_lco_update();
 353                         ao_lco_arm(ao_lco_box, 1 << ao_lco_pad, ao_lco_tick_offset);
 354                         ao_lco_update();
 355                 } else {
 356                         ao_lco_update();
 357                 }
 358                 if (ao_lco_armed && ao_lco_firing)
 359                         delay = AO_MS_TO_TICKS(100);
 360                 else
 361                         delay = AO_SEC_TO_TICKS(1);
 362                 ao_alarm(delay);
 363                 ao_sleep(&ao_lco_armed);
 364                 ao_clear_alarm();
 365         }
 366 }
 367
 368 #if DEBUG
 369 void
 370 ao_lco_set_debug(void)
 371 {
 372         ao_cmd_decimal();
 373         if (ao_cmd_status == ao_cmd_success)
 374                 ao_lco_debug = ao_cmd_lex_i != 0;
 375 }
 376
 377 __code struct ao_cmds ao_lco_cmds[] = {
 378         { ao_lco_set_debug,     "D <0 off, 1 on>\0Debug" },
 379         { 0, NULL }
 380 };
 381 #endif
 382
 383 void
 384 ao_lco_init(void)
 385 {
 386         ao_add_task(&ao_lco_monitor_task, ao_lco_monitor, "lco monitor");
 387 #if DEBUG
 388         ao_cmd_register(&ao_lco_cmds[0]);
 389 #endif
 390 }