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