git.gag.com Git - fw/altos/blob - src/telelco-v0.2/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 uint8_t  ao_lco_got_channels;
  47 static uint16_t ao_lco_tick_offset;
  48
  49 static struct ao_pad_query      ao_pad_query;
  50
  51 static void
  52 ao_lco_set_pad(uint8_t pad)
  53 {
  54         ao_seven_segment_set(AO_LCO_PAD_DIGIT, pad + 1);
  55 }
  56
  57 static void
  58 ao_lco_set_box(uint8_t box)
  59 {
  60         ao_seven_segment_set(AO_LCO_BOX_DIGIT_1, box % 10);
  61         ao_seven_segment_set(AO_LCO_BOX_DIGIT_10, box / 10);
  62 }
  63
  64 #define MASK_SIZE(n)    (((n) + 7) >> 3)
  65 #define MASK_ID(n)      ((n) >> 3)
  66 #define MASK_SHIFT(n)   ((n) & 7)
  67
  68 static uint8_t  ao_lco_box_mask[MASK_SIZE(AO_PAD_MAX_BOXES)];
  69
  70 static uint8_t
  71 ao_lco_box_present(uint8_t box)
  72 {
  73         if (box >= AO_PAD_MAX_BOXES)
  74                 return 0;
  75         return (ao_lco_box_mask[MASK_ID(box)] >> MASK_SHIFT(box)) & 1;
  76 }
  77
  78 static uint8_t
  79 ao_lco_pad_present(uint8_t pad)
  80 {
  81         if (!ao_lco_got_channels || !ao_pad_query.channels)
  82                 return pad == 0;
  83         if (pad >= AO_PAD_MAX_CHANNELS)
  84                 return 0;
  85         return (ao_pad_query.channels >> pad) & 1;
  86 }
  87
  88 static uint8_t
  89 ao_lco_pad_first(void)
  90 {
  91         uint8_t pad;
  92
  93         for (pad = 0; pad < AO_PAD_MAX_CHANNELS; pad++)
  94                 if (ao_lco_pad_present(pad))
  95                         return pad;
  96         return 0;
  97 }
  98
  99 static void
 100 ao_lco_input(void)
 101 {
 102         static struct ao_event  event;
 103         int8_t  dir, new_box, new_pad;
 104
 105         ao_beep_for(AO_BEEP_MID, AO_MS_TO_TICKS(200));
 106         for (;;) {
 107                 ao_event_get(&event);
 108                 PRINTD("event type %d unit %d value %d\n",
 109                        event.type, event.unit, event.value);
 110                 switch (event.type) {
 111                 case AO_EVENT_QUADRATURE:
 112                         switch (event.unit) {
 113                         case AO_QUADRATURE_PAD:
 114                                 if (!ao_lco_armed) {
 115                                         dir = (int8_t) event.value;
 116                                         new_pad = ao_lco_pad;
 117                                         do {
 118                                                 new_pad += dir;
 119                                                 if (new_pad > AO_PAD_MAX_CHANNELS)
 120                                                         new_pad = 0;
 121                                                 else if (new_pad < 0)
 122                                                         new_pad = AO_PAD_MAX_CHANNELS - 1;
 123                                                 if (new_pad == ao_lco_pad)
 124                                                         break;
 125                                         } while (!ao_lco_pad_present(new_pad));
 126                                         if (new_pad != ao_lco_pad) {
 127                                                 ao_lco_pad = new_pad;
 128                                                 ao_lco_set_pad(ao_lco_pad);
 129                                         }
 130                                 }
 131                                 break;
 132                         case AO_QUADRATURE_BOX:
 133                                 if (!ao_lco_armed) {
 134                                         dir = (int8_t) event.value;
 135                                         new_box = ao_lco_box;
 136                                         do {
 137                                                 new_box += dir;
 138                                                 if (new_box > ao_lco_max_box)
 139                                                         new_box = ao_lco_min_box;
 140                                                 else if (new_box < ao_lco_min_box)
 141                                                         new_box = ao_lco_max_box;
 142                                                 if (new_box == ao_lco_box)
 143                                                         break;
 144                                         } while (!ao_lco_box_present(new_box));
 145                                         if (ao_lco_box != new_box) {
 146                                                 ao_lco_box = new_box;
 147                                                 ao_lco_got_channels = 0;
 148                                                 ao_lco_set_box(ao_lco_box);
 149                                         }
 150                                 }
 151                                 break;
 152                         }
 153                         break;
 154                 case AO_EVENT_BUTTON:
 155                         switch (event.unit) {
 156                         case AO_BUTTON_ARM:
 157                                 ao_lco_armed = event.value;
 158                                 PRINTD("Armed %d\n", ao_lco_armed);
 159                                 ao_wakeup(&ao_lco_armed);
 160                                 break;
 161                         case AO_BUTTON_FIRE:
 162                                 if (ao_lco_armed) {
 163                                         ao_lco_firing = event.value;
 164                                         PRINTD("Firing %d\n", ao_lco_firing);
 165                                         ao_wakeup(&ao_lco_armed);
 166                                 }
 167                                 break;
 168                         }
 169                         break;
 170                 }
 171         }
 172 }
 173
 174 static AO_LED_TYPE      continuity_led[AO_LED_CONTINUITY_NUM] = {
 175 #ifdef AO_LED_CONTINUITY_0
 176         AO_LED_CONTINUITY_0,
 177 #endif
 178 #ifdef AO_LED_CONTINUITY_1
 179         AO_LED_CONTINUITY_1,
 180 #endif
 181 #ifdef AO_LED_CONTINUITY_2
 182         AO_LED_CONTINUITY_2,
 183 #endif
 184 #ifdef AO_LED_CONTINUITY_3
 185         AO_LED_CONTINUITY_3,
 186 #endif
 187 #ifdef AO_LED_CONTINUITY_4
 188         AO_LED_CONTINUITY_4,
 189 #endif
 190 #ifdef AO_LED_CONTINUITY_5
 191         AO_LED_CONTINUITY_5,
 192 #endif
 193 #ifdef AO_LED_CONTINUITY_6
 194         AO_LED_CONTINUITY_6,
 195 #endif
 196 #ifdef AO_LED_CONTINUITY_7
 197         AO_LED_CONTINUITY_7,
 198 #endif
 199 };
 200
 201 static void
 202 ao_lco_update(void)
 203 {
 204         int8_t                  r;
 205         uint8_t                 c;
 206
 207         r = ao_lco_query(ao_lco_box, &ao_pad_query, &ao_lco_tick_offset);
 208         if (r == AO_RADIO_CMAC_OK) {
 209                 c = ao_lco_got_channels;
 210                 ao_lco_got_channels = 1;
 211                 ao_lco_valid = 1;
 212                 if (!c) {
 213                         ao_lco_pad = ao_lco_pad_first();
 214                         ao_lco_set_pad(ao_lco_pad);
 215                 }
 216         } else
 217                 ao_lco_valid = 0;
 218
 219 #if 0
 220         PRINTD("lco_query success arm_status %d i0 %d i1 %d i2 %d i3 %d\n",
 221                query.arm_status,
 222                query.igniter_status[0],
 223                query.igniter_status[1],
 224                query.igniter_status[2],
 225                query.igniter_status[3]);
 226 #endif
 227         ao_wakeup(&ao_pad_query);
 228 }
 229
 230 static void
 231 ao_lco_box_reset_present(void)
 232 {
 233         ao_lco_min_box = 0xff;
 234         ao_lco_max_box = 0x00;
 235         memset(ao_lco_box_mask, 0, sizeof (ao_lco_box_mask));
 236 }
 237
 238 static void
 239 ao_lco_box_set_present(uint8_t box)
 240 {
 241         if (box < ao_lco_min_box)
 242                 ao_lco_min_box = box;
 243         if (box > ao_lco_max_box)
 244                 ao_lco_max_box = box;
 245         if (box >= AO_PAD_MAX_BOXES)
 246                 return;
 247         ao_lco_box_mask[MASK_ID(box)] |= 1 << MASK_SHIFT(box);
 248 }
 249
 250 static void
 251 ao_lco_search(void)
 252 {
 253         uint16_t        tick_offset;
 254         int8_t          r;
 255         uint8_t         box;
 256
 257         ao_lco_box_reset_present();
 258         for (box = 0; box < AO_PAD_MAX_BOXES; box++) {
 259                 if ((box % 10) == 0)
 260                         ao_lco_set_box(box);
 261                 tick_offset = 0;
 262                 r = ao_lco_query(box, &ao_pad_query, &tick_offset);
 263                 PRINTD("box %d result %d\n", box, r);
 264                 if (r == AO_RADIO_CMAC_OK) {
 265                         ao_lco_box_set_present(box);
 266                         ao_delay(AO_MS_TO_TICKS(30));
 267                 }
 268         }
 269         if (ao_lco_min_box <= ao_lco_max_box)
 270                 ao_lco_box = ao_lco_min_box;
 271         else
 272                 ao_lco_min_box = ao_lco_max_box = ao_lco_box = 0;
 273         ao_lco_valid = 0;
 274         ao_lco_got_channels = 0;
 275         ao_lco_pad = 0;
 276         ao_lco_set_pad(ao_lco_pad);
 277         ao_lco_set_box(ao_lco_box);
 278 }
 279
 280 static void
 281 ao_lco_igniter_status(void)
 282 {
 283         uint8_t         c;
 284         uint16_t        delay;
 285
 286         for (;;) {
 287 //              ao_alarm(delay);
 288                 ao_sleep(&ao_pad_query);
 289 //              ao_clear_alarm();
 290                 if (!ao_lco_valid) {
 291                         ao_led_on(AO_LED_RED);
 292                         ao_led_off(AO_LED_GREEN|AO_LED_AMBER);
 293                         continue;
 294                 }
 295                 PRINTD("RSSI %d\n", ao_radio_cmac_rssi);
 296                 if (ao_radio_cmac_rssi < -90) {
 297                         ao_led_on(AO_LED_AMBER);
 298                         ao_led_off(AO_LED_RED|AO_LED_GREEN);
 299                 } else {
 300                         ao_led_on(AO_LED_GREEN);
 301                         ao_led_off(AO_LED_RED|AO_LED_AMBER);
 302                 }
 303                 if (ao_pad_query.arm_status)
 304                         ao_led_on(AO_LED_REMOTE_ARM);
 305                 else
 306                         ao_led_off(AO_LED_REMOTE_ARM);
 307                 for (c = 0; c < AO_LED_CONTINUITY_NUM; c++) {
 308                         uint8_t status;
 309
 310                         if (ao_pad_query.channels & (1 << c))
 311                                 status = ao_pad_query.igniter_status[c];
 312                         else
 313                                 status = AO_PAD_IGNITER_STATUS_NO_IGNITER_RELAY_OPEN;
 314                         if (status == AO_PAD_IGNITER_STATUS_GOOD_IGNITER_RELAY_OPEN)
 315                                 ao_led_on(continuity_led[c]);
 316                         else
 317                                 ao_led_off(continuity_led[c]);
 318                 }
 319         }
 320 }
 321
 322 static void
 323 ao_lco_arm_warn(void)
 324 {
 325         for (;;) {
 326                 while (!ao_lco_armed)
 327                         ao_sleep(&ao_lco_armed);
 328                 ao_beep_for(AO_BEEP_MID, AO_MS_TO_TICKS(200));
 329                 ao_delay(AO_MS_TO_TICKS(200));
 330         }
 331 }
 332
 333 static struct ao_task ao_lco_input_task;
 334 static struct ao_task ao_lco_monitor_task;
 335 static struct ao_task ao_lco_arm_warn_task;
 336 static struct ao_task ao_lco_igniter_status_task;
 337
 338 static void
 339 ao_lco_monitor(void)
 340 {
 341         uint16_t                delay;
 342
 343         ao_lco_search();
 344         ao_add_task(&ao_lco_input_task, ao_lco_input, "lco input");
 345         ao_add_task(&ao_lco_arm_warn_task, ao_lco_arm_warn, "lco arm warn");
 346         ao_add_task(&ao_lco_igniter_status_task, ao_lco_igniter_status, "lco igniter status");
 347         for (;;) {
 348                 PRINTD("monitor armed %d firing %d offset %d\n",
 349                        ao_lco_armed, ao_lco_firing, ao_lco_tick_offset);
 350
 351                 if (ao_lco_armed && ao_lco_firing) {
 352                         PRINTD("Firing box %d pad %d: valid %d\n",
 353                                ao_lco_box, ao_lco_pad, ao_lco_valid);
 354                         if (!ao_lco_valid)
 355                                 ao_lco_update();
 356                         if (ao_lco_valid)
 357                                 ao_lco_ignite(ao_lco_box, 1 << ao_lco_pad, ao_lco_tick_offset);
 358                 } else if (ao_lco_armed) {
 359                         PRINTD("Arming box %d pad %d\n",
 360                                ao_lco_box, ao_lco_pad);
 361                         if (!ao_lco_valid)
 362                                 ao_lco_update();
 363                         ao_lco_arm(ao_lco_box, 1 << ao_lco_pad, ao_lco_tick_offset);
 364                         ao_lco_update();
 365                 } else {
 366                         ao_lco_update();
 367                 }
 368                 if (ao_lco_armed && ao_lco_firing)
 369                         delay = AO_MS_TO_TICKS(100);
 370                 else
 371                         delay = AO_SEC_TO_TICKS(1);
 372                 ao_alarm(delay);
 373                 ao_sleep(&ao_lco_armed);
 374                 ao_clear_alarm();
 375         }
 376 }
 377
 378 #if DEBUG
 379 void
 380 ao_lco_set_debug(void)
 381 {
 382         ao_cmd_decimal();
 383         if (ao_cmd_status == ao_cmd_success)
 384                 ao_lco_debug = ao_cmd_lex_i != 0;
 385 }
 386
 387 __code struct ao_cmds ao_lco_cmds[] = {
 388         { ao_lco_set_debug,     "D <0 off, 1 on>\0Debug" },
 389         { ao_lco_search,        "s\0Search for pad boxes" },
 390         { 0, NULL }
 391 };
 392 #endif
 393
 394 void
 395 ao_lco_init(void)
 396 {
 397         ao_add_task(&ao_lco_monitor_task, ao_lco_monitor, "lco monitor");
 398 #if DEBUG
 399         ao_cmd_register(&ao_lco_cmds[0]);
 400 #endif
 401 }