cnc-club.ru

Код: Выделить всё

/* sudo halcompile --install kl.comp */
component kl;

pin out  s32  inspection0;
pin out  s32  inspection1;
pin out  s32  inspection2;
pin out  s32  inspection3;
                          
pin in  s32 insreamer ;    //streamer.0.pin.0
pin in  u32 arr_len;   

pin in   bit empty ;        //streamer.0.empty 
pin out  bit clock ;       //streamer.0.clock

pin in  s32 pin_len ;        // arr len

variable int  i = 0;
variable int  tt = 0;

int *arr_line = 0;
unsigned arr_len_old = 0;
// статик не нужно юзать - в случае двух и более компонентов будет засада

function _;
license "GPL";
;;
FUNCTION(_) {

if(!arr_line) {
  arr_line = (int *)hal_malloc(arr_len * sizeof(streamer_t));
}

if (empty == 0) {       //streamer.0.empty 
    if (tt % 2 != 0) { 
        clock = 0;                //streamer.0.clock (streamer.0.clock-mode 2)
        arr_line[i] = insreamer;  //streamer.0.pin.0
        i++;
    } else {
        clock = 1;
    }
    tt++;
} else {
    i=0;
if(arr_line != arr_line_old) {
// realloc
// todo release pointer
  arr_line = (int *)hal_malloc(arr_len * sizeof(streamer_t));
  all_line_old = arr_line;
}

}
inspection0 = arr_line[0];
inspection1 = arr_line[1];
inspection2 = arr_line[2];
inspection3 = arr_line[3];
}