static struct ir_remote * read_config_recursive(FILE *f, const char *name, int depth) { char buf[LINE_LEN+1], *key, *val, *val2; int len,argc; struct ir_remote *top_rem=NULL,*rem=NULL; struct void_array codes_list,raw_codes,signals; struct ir_ncode raw_code={NULL,0,0,NULL}; struct ir_ncode name_code={NULL,0,0,NULL}; struct ir_ncode *code; int mode=ID_none; line=0; parse_error=0; LOGPRINTF(2, "parsing '%s'", name); while(fgets(buf,LINE_LEN,f)!=NULL) { line++; len=strlen(buf); if(len==LINE_LEN && buf[len-1]!='\n') { logprintf(LOG_ERR,"line %d too long in config file", line); parse_error=1; break; } if(len>0) { len--; if(buf[len]=='\n') buf[len]=0; } if(len>0) { len--; if(buf[len]=='\r') buf[len]=0; } /* ignore comments */ if(buf[0]=='#'){ continue; } key=strtok(buf, whitespace); /* ignore empty lines */ if(key==NULL) continue; val=strtok(NULL, whitespace); if(val!=NULL){ val2=strtok(NULL, whitespace); LOGPRINTF(3,"\"%s\" \"%s\"",key,val); if (strcasecmp("include",key)==0){ FILE* childFile; const char *childName; const char *fullPath; char result[FILENAME_MAX+1]; if (depth > MAX_INCLUDES) { logprintf(LOG_ERR,"error opening child file defined at %s:%d",name,line); logprintf(LOG_ERR,"too many files included"); parse_error=-1; break; } childName = lirc_parse_include(val); if (!childName){ logprintf(LOG_ERR,"error parsing child file value defined at line %d:",line); logprintf(LOG_ERR,"invalid quoting"); parse_error=-1; break; } fullPath = lirc_parse_relative(result, sizeof(result), childName, name); if (!fullPath) { logprintf(LOG_ERR,"error composing relative file path defined at line %d:",line); logprintf(LOG_ERR,"resulting path too long"); parse_error=-1; break; } childFile = fopen(fullPath, "r"); if (childFile == NULL){ logprintf(LOG_ERR,"error opening child file '%s' defined at line %d:",fullPath, line); logprintf(LOG_ERR,"ignoring this child file for now."); } else{ int save_line = line; if (!top_rem){ /* create first remote */ LOGPRINTF(2,"creating first remote"); rem = read_config_recursive(childFile, fullPath, depth + 1); if(rem != (void *) -1 && rem != NULL) { top_rem = rem; } else { rem = NULL; } }else{ /* create new remote */ LOGPRINTF(2,"creating next remote"); rem->next=read_config_recursive(childFile, fullPath, depth + 1); if(rem->next != (void *) -1 && rem->next != NULL) { rem=rem->next; } else { rem->next = NULL; } } fclose(childFile); line = save_line; } }else if (strcasecmp("begin",key)==0){ if (strcasecmp("codes", val)==0){ /* init codes mode */ LOGPRINTF(2," begin codes"); if (!checkMode(mode, ID_remote, "begin codes")) break; if (rem->codes){ logprintf(LOG_ERR,"error in configfile line %d:",line); logprintf(LOG_ERR,"codes are already defined"); parse_error=1; break; } init_void_array(&codes_list,30, sizeof(struct ir_ncode)); mode=ID_codes; }else if(strcasecmp("raw_codes",val)==0){ /* init raw_codes mode */ LOGPRINTF(2," begin raw_codes"); if(!checkMode(mode, ID_remote, "begin raw_codes")) break; if (rem->codes){ logprintf(LOG_ERR,"error in configfile line %d:",line); logprintf(LOG_ERR,"codes are already defined"); parse_error=1; break; } set_protocol(rem, RAW_CODES); raw_code.code=0; init_void_array(&raw_codes,30, sizeof(struct ir_ncode)); mode=ID_raw_codes; }else if(strcasecmp("remote",val)==0){ /* create new remote */ LOGPRINTF(1,"parsing remote"); if(!checkMode(mode, ID_none, "begin remote")) break; mode=ID_remote; if (!top_rem){ /* create first remote */ LOGPRINTF(2,"creating first remote"); rem=top_rem=s_malloc(sizeof(struct ir_remote)); }else{ /* create new remote */ LOGPRINTF(2,"creating next remote"); rem->next=s_malloc(sizeof(struct ir_remote));; rem=rem->next; } }else if(mode==ID_codes){ code=defineCode(key, val, &name_code); while(!parse_error && val2!=NULL) { struct ir_code_node *node; if(val2[0]=='#') break; /* comment */ node=defineNode(code, val2); val2=strtok(NULL, whitespace); } code->current=NULL; add_void_array(&codes_list, code); }else{ logprintf(LOG_ERR,"error in configfile line %d:",line); logprintf(LOG_ERR,"unknown section \"%s\"",val); parse_error=1; } if(!parse_error && val2!=NULL) { logprintf(LOG_WARNING,"garbage after " "'%s' token in line %d ignored", val,line); } }else if (strcasecmp("end",key)==0){ if (strcasecmp("codes", val)==0){ /* end Codes mode */ LOGPRINTF(2," end codes"); if (!checkMode(mode, ID_codes, "end codes")) break; rem->codes=get_void_array(&codes_list); mode=ID_remote; /* switch back */ }else if(strcasecmp("raw_codes",val)==0){ /* end raw codes mode */ LOGPRINTF(2," end raw_codes"); if(mode==ID_raw_name){ raw_code.signals=get_void_array(&signals); raw_code.length=signals.nr_items; if(raw_code.length%2==0) { logprintf(LOG_ERR,"error in configfile line %d:",line); logprintf(LOG_ERR,"bad signal length"); parse_error=1; } if(!add_void_array(&raw_codes, &raw_code)) break; mode=ID_raw_codes; } if(!checkMode(mode,ID_raw_codes, "end raw_codes")) break; rem->codes=get_void_array(&raw_codes); mode=ID_remote; /* switch back */ }else if(strcasecmp("remote",val)==0){ /* end remote mode */ LOGPRINTF(2,"end remote"); /* print_remote(rem); */ if (!checkMode(mode,ID_remote, "end remote")) break; if(!sanityChecks(rem)) { parse_error=1; break; } # ifdef DYNCODES if(rem->dyncodes_name==NULL) { rem->dyncodes_name=s_strdup("unknown"); } rem->dyncodes[0].name=rem->dyncodes_name; rem->dyncodes[1].name=rem->dyncodes_name; # endif /* not really necessary because we clear the alloced memory */ rem->next=NULL; rem->last_code=NULL; mode=ID_none; /* switch back */ }else if(mode==ID_codes){ code=defineCode(key, val, &name_code); while(!parse_error && val2!=NULL) { struct ir_code_node *node; if(val2[0]=='#') break; /* comment */ node=defineNode(code, val2); val2=strtok(NULL, whitespace); } code->current=NULL; add_void_array(&codes_list, code); }else{ logprintf(LOG_ERR,"error in configfile line %d:",line); logprintf(LOG_ERR,"unknown section %s",val); parse_error=1; } if(!parse_error && val2!=NULL) { logprintf(LOG_WARNING,"garbage after '%s'" " token in line %d ignored", val,line); } } else { switch (mode){ case ID_remote: argc=defineRemote(key, val, val2, rem); if(!parse_error && ((argc==1 && val2!=NULL) || (argc==2 && val2!=NULL && strtok(NULL, whitespace)!=NULL))) { logprintf(LOG_WARNING,"garbage after '%s'" " token in line %d ignored", key,line); } break; case ID_codes: code=defineCode(key, val, &name_code); while(!parse_error && val2!=NULL) { struct ir_code_node *node; if(val2[0]=='#') break; /* comment */ node=defineNode(code, val2); val2=strtok(NULL, whitespace); } code->current=NULL; add_void_array(&codes_list, code); break; case ID_raw_codes: case ID_raw_name: if(strcasecmp("name",key)==0){ LOGPRINTF(3,"Button: \"%s\"",val); if(mode==ID_raw_name) { raw_code.signals=get_void_array(&signals); raw_code.length=signals.nr_items; if(raw_code.length%2==0) { logprintf(LOG_ERR,"error in configfile line %d:",line); logprintf(LOG_ERR,"bad signal length"); parse_error=1; } if(!add_void_array(&raw_codes, &raw_code)) break; } if(!(raw_code.name=s_strdup(val))){ break; } raw_code.code++; init_void_array(&signals,50,sizeof(lirc_t)); mode=ID_raw_name; if(!parse_error && val2!=NULL) { logprintf(LOG_WARNING,"garbage after '%s'" " token in line %d ignored", key,line); } }else{ if(mode==ID_raw_codes) { logprintf(LOG_ERR,"no name for signal defined at line %d",line); parse_error=1; break; } if(!addSignal(&signals, key)) break; if(!addSignal(&signals, val)) break; if (val2){ if (!addSignal(&signals, val2)){ break; } } while ((val=strtok(NULL, whitespace))){ if (!addSignal(&signals, val)) break; } } break; } } }else if(mode==ID_raw_name){ if(!addSignal(&signals, key)){ break; } }else{ logprintf(LOG_ERR,"error in configfile line %d", line); parse_error=1; break; } if (parse_error){ break; } } if(mode!=ID_none) { switch(mode) { case ID_raw_name: if(raw_code.name!=NULL) { free(raw_code.name); if(get_void_array(&signals)!=NULL) free(get_void_array(&signals)); } case ID_raw_codes: rem->codes=get_void_array(&raw_codes); break; case ID_codes: rem->codes=get_void_array(&codes_list); break; } if(!parse_error) { logprintf(LOG_ERR,"unexpected end of file"); parse_error=1; } } if (parse_error){ static int print_error = 1; if(print_error) { logprintf(LOG_ERR, "reading of file '%s' failed", name); print_error = 0; } free_config(top_rem); if(depth == 0) print_error = 1; return((void *) -1); } /* kick reverse flag */ /* handle RC6 flag to be backwards compatible: previous RC-6 config files did not set rc6_mask */ rem=top_rem; while(rem!=NULL) { if((!is_raw(rem)) && rem->flags&REVERSE) { struct ir_ncode *codes; if(has_pre(rem)) { rem->pre_data=reverse(rem->pre_data, rem->pre_data_bits); } if(has_post(rem)) { rem->post_data=reverse(rem->post_data, rem->post_data_bits); } codes=rem->codes; while(codes->name!=NULL) { codes->code=reverse(codes->code,rem->bits); codes++; } rem->flags=rem->flags&(~REVERSE); rem->flags=rem->flags|COMPAT_REVERSE; /* don't delete the flag because we still need it to remain compatible with older versions */ } if(rem->flags&RC6 && rem->rc6_mask==0 && rem->toggle_bit>0) { int all_bits=bit_count(rem); rem->rc6_mask=((ir_code) 1)<<(all_bits-rem->toggle_bit); } if(rem->toggle_bit > 0) { int all_bits=bit_count(rem); if(has_toggle_bit_mask(rem)) { logprintf(LOG_WARNING, "%s uses both toggle_bit and " "toggle_bit_mask", rem->name); } else { rem->toggle_bit_mask=((ir_code) 1)<<(all_bits-rem->toggle_bit); } rem->toggle_bit = 0; } if(has_toggle_bit_mask(rem)) { if(!is_raw(rem) && rem->codes) { rem->toggle_bit_mask_state = (rem->codes->code & rem->toggle_bit_mask); if(rem->toggle_bit_mask_state) { /* start with state set to 0 for backwards compatibility */ rem->toggle_bit_mask_state ^= rem->toggle_bit_mask; } } } if(is_serial(rem)) { lirc_t base; if(rem->baud>0) { base=1000000/rem->baud; if(rem->pzero==0 && rem->szero==0) { rem->pzero=base; } if(rem->pone==0 && rem->sone==0) { rem->sone=base; } } if(rem->bits_in_byte==0) { rem->bits_in_byte=8; } } if(rem->min_code_repeat>0) { if(!has_repeat(rem) || rem->min_code_repeat>rem->min_repeat) { logprintf(LOG_WARNING, "invalid min_code_repeat value"); rem->min_code_repeat = 0; } } calculate_signal_lengths(rem); rem=rem->next; } top_rem = sort_by_bit_count(top_rem); # if defined(DEBUG) && !defined(DAEMONIZE) /*fprint_remotes(stderr, top_rem);*/ # endif return (top_rem); }
static int lirc_readconfig_only_internal(const struct lirc_state *state, const char *file, struct lirc_config **config, int (check)(char *s), char **full_name, char **sha_bang) { char *string,*eq,*token,*token2,*token3; struct filestack_t *filestack, *stack_tmp; int open_files; struct lirc_config_entry *new_entry,*first,*last; char *mode,*remote; int ret=0; int firstline=1; char *save_full_name = NULL; filestack = stack_push(state, NULL); if (filestack == NULL) { return -1; } filestack->file = lirc_open(state, file, NULL, &(filestack->name)); if (filestack->file == NULL) { stack_free(filestack); return -1; } filestack->line = 0; open_files = 1; first=new_entry=last=NULL; mode=NULL; remote=LIRC_ALL; while (filestack) { if((ret=lirc_readline(state,&string,filestack->file))==-1 || string==NULL) { fclose(filestack->file); if(open_files == 1 && full_name != NULL) { save_full_name = filestack->name; filestack->name = NULL; } filestack = stack_pop(filestack); open_files--; continue; } /* check for sha-bang */ if(firstline && sha_bang) { firstline = 0; if(strncmp(string, "#!", 2)==0) { *sha_bang=strdup(string+2); if(*sha_bang==NULL) { lirc_printf(state, "%s: out of memory\n", state->lirc_prog); ret=-1; free(string); break; } } } filestack->line++; eq=strchr(string,'='); if(eq==NULL) { token=strtok(string," \t"); if(token==NULL) { /* ignore empty line */ } else if(token[0]=='#') { /* ignore comment */ } else if(strcasecmp(token, "include") == 0) { if (open_files >= MAX_INCLUDES) { lirc_printf(state, "%s: too many files " "included at %s:%d\n", state->lirc_prog, filestack->name, filestack->line); ret=-1; } else { token2 = strtok(NULL, ""); token2 = lirc_trim(token2); lirc_parse_include (token2, filestack->name, filestack->line); stack_tmp = stack_push(state, filestack); if (stack_tmp == NULL) { ret=-1; } else { stack_tmp->file = lirc_open(state, token2, filestack->name, &(stack_tmp->name)); stack_tmp->line = 0; if (stack_tmp->file) { open_files++; filestack = stack_tmp; } else { stack_pop(stack_tmp); ret=-1; } } } } else { token2=strtok(NULL," \t"); if(token2!=NULL && (token3=strtok(NULL," \t"))!=NULL) { lirc_printf(state, "%s: unexpected token in line %s:%d\n", state->lirc_prog,filestack->name,filestack->line); } else { ret=lirc_mode(state, token,token2,&mode, &new_entry,&first,&last, check, filestack->name, filestack->line); if(ret==0) { if(remote!=LIRC_ALL) free(remote); remote=LIRC_ALL; } else { if(mode!=NULL) { free(mode); mode=NULL; } if(new_entry!=NULL) { lirc_freeconfigentries (new_entry); new_entry=NULL; } } } } } else { eq[0]=0; token=lirc_trim(string); token2=lirc_trim(eq+1); if(token[0]=='#') { /* ignore comment */ } else if(new_entry==NULL) { lirc_printf(state, "%s: bad file format, %s:%d\n", state->lirc_prog,filestack->name,filestack->line); ret=-1; } else { token2=strdup(token2); if(token2==NULL) { lirc_printf(state, "%s: out of memory\n", state->lirc_prog); ret=-1; } else if(strcasecmp(token,"prog")==0) { if(new_entry->prog!=NULL) free(new_entry->prog); new_entry->prog=token2; } else if(strcasecmp(token,"remote")==0) { if(remote!=LIRC_ALL) free(remote); if(strcasecmp("*",token2)==0) { remote=LIRC_ALL; free(token2); } else { remote=token2; } } else if(strcasecmp(token,"button")==0) { struct lirc_code *code; code=(struct lirc_code *) malloc(sizeof(struct lirc_code)); if(code==NULL) { free(token2); lirc_printf(state, "%s: out of " "memory\n", state->lirc_prog); ret=-1; } else { code->remote=remote; if(strcasecmp("*",token2)==0) { code->button=LIRC_ALL; free(token2); } else { code->button=token2; } code->next=NULL; if(new_entry->code==NULL) { new_entry->code=code; } else { new_entry->next_code->next =code; } new_entry->next_code=code; if(remote!=LIRC_ALL) { remote=strdup(remote); if(remote==NULL) { lirc_printf(state, "%s: out of memory\n",state->lirc_prog); ret=-1; } } } } else if(strcasecmp(token,"delay")==0) { char *end; errno=ERANGE+1; new_entry->rep_delay=strtoul(token2,&end,0); if((new_entry->rep_delay==UINT_MAX && errno==ERANGE) || end[0]!=0 || strlen(token2)==0) { lirc_printf(state, "%s: \"%s\" not" " a valid number for " "delay\n",state->lirc_prog, token2); } free(token2); } else if(strcasecmp(token,"repeat")==0) { char *end; errno=ERANGE+1; new_entry->rep=strtoul(token2,&end,0); if((new_entry->rep==UINT_MAX && errno==ERANGE) || end[0]!=0 || strlen(token2)==0) { lirc_printf(state, "%s: \"%s\" not" " a valid number for " "repeat\n",state->lirc_prog, token2); } free(token2); } else if(strcasecmp(token,"config")==0) { struct lirc_list *new_list; new_list=(struct lirc_list *) malloc(sizeof(struct lirc_list)); if(new_list==NULL) { free(token2); lirc_printf(state, "%s: out of " "memory\n", state->lirc_prog); ret=-1; } else { lirc_parse_string(state,token2,filestack->name,filestack->line); new_list->string=token2; new_list->next=NULL; if(new_entry->config==NULL) { new_entry->config=new_list; } else { new_entry->next_config->next =new_list; } new_entry->next_config=new_list; } } else if(strcasecmp(token,"mode")==0) { if(new_entry->change_mode!=NULL) free(new_entry->change_mode); new_entry->change_mode=token2; } else if(strcasecmp(token,"flags")==0) { new_entry->flags=lirc_flags(state, token2); free(token2); } else { free(token2); lirc_printf(state, "%s: unknown token \"%s\" in %s:%d ignored\n", state->lirc_prog,token,filestack->name,filestack->line); } } } free(string); if(ret==-1) break; } if(remote!=LIRC_ALL) free(remote); if(new_entry!=NULL) { if(ret==0) { ret=lirc_mode(state, "end",NULL,&mode,&new_entry, &first,&last,check,"",0); lirc_printf(state, "%s: warning: end token missing at end " "of file\n",state->lirc_prog); } else { lirc_freeconfigentries(new_entry); new_entry=NULL; } } if(mode!=NULL) { if(ret==0) { lirc_printf(state, "%s: warning: no end token found for mode " "\"%s\"\n",state->lirc_prog,mode); } free(mode); } if(ret==0) { char *startupmode; *config=(struct lirc_config *) malloc(sizeof(struct lirc_config)); if(*config==NULL) { lirc_printf(state, "%s: out of memory\n",state->lirc_prog); lirc_freeconfigentries(first); return(-1); } (*config)->first=first; (*config)->next=first; startupmode = lirc_startupmode(state, (*config)->first); (*config)->current_mode=startupmode ? strdup(startupmode):NULL; (*config)->sockfd=-1; if(full_name != NULL) { *full_name = save_full_name; save_full_name = NULL; } } else { *config=NULL; lirc_freeconfigentries(first); if(sha_bang && *sha_bang!=NULL) { free(*sha_bang); *sha_bang=NULL; } } if(filestack) { stack_free(filestack); } if(save_full_name) { free(save_full_name); } return(ret); }