2 * Simulator of microcontrollers (arg.cc)
4 * Copyright (C) 1999,99 Drotos Daniel, Talker Bt.
6 * To contact author send email to drdani@mazsola.iit.uni-miskolc.hu
10 /* This file is part of microcontroller simulator: ucsim.
12 UCSIM is free software; you can redistribute it and/or modify
13 it under the terms of the GNU General Public License as published by
14 the Free Software Foundation; either version 2 of the License, or
15 (at your option) any later version.
17 UCSIM is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 GNU General Public License for more details.
22 You should have received a copy of the GNU General Public License
23 along with UCSIM; see the file COPYING. If not, write to the Free
24 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
51 cl_arg::cl_arg(long lv):
58 cl_arg::cl_arg(char *sv):
61 s_value= sv?strdup(sv):0;
64 cl_arg::cl_arg(double fv):
71 cl_arg::cl_arg(void *pv):
86 * Getting value of the argument
90 cl_arg::get_ivalue(long *value)
98 cl_arg::get_svalue(void)
104 cl_arg::get_fvalue(void)
110 cl_arg::get_pvalue(void)
118 *----------------------------------------------------------------------------
121 cl_cmd_arg::~cl_cmd_arg(void)
123 if (interpreted_as_string)
125 if (value.string.string)
126 free(value.string.string);
131 cl_cmd_arg::as_address(class cl_uc *uc)
133 bool b= get_address(uc, &(value.address));
138 cl_cmd_arg::as_number(void)
140 return(get_ivalue(&(value.number)));
144 cl_cmd_arg::as_data(void)
147 bool ret= get_ivalue(&l);
153 cl_cmd_arg::as_memory(class cl_uc *uc)
155 value.memory= uc->mem(s_value);
156 return(value.memory != 0);
160 cl_cmd_arg::as_hw(class cl_uc *uc)
166 cl_cmd_arg::as_string(void)
168 char *s= get_svalue();
172 value.string.string= proc_escape(s, &value.string.len);
175 value.string.string= strdup(s);
176 value.string.len= strlen(s);
178 return(interpreted_as_string= value.string.string != NULL);
182 cl_cmd_arg::as_bit(class cl_uc *uc)
184 return(get_bit_address(uc,
186 &(value.bit.mem_address),
191 /* Interger number */
193 cl_cmd_int_arg::cl_cmd_int_arg(/*class cl_uc *iuc,*/ long addr):
194 cl_cmd_arg(/*iuc,*/ addr)
198 cl_cmd_int_arg::get_address(class cl_uc *uc, t_addr *addr)
202 bool b= get_ivalue(&iv);
209 cl_cmd_int_arg::get_bit_address(class cl_uc *uc, // input
210 class cl_mem **mem, // outputs
216 if (!get_address(uc, &bit_addr))
220 *mem= uc->bit2mem(bit_addr, mem_addr, bit_mask);
225 cl_cmd_int_arg::as_string(void)
227 value.string.string= (char*)malloc(100);
228 sprintf(value.string.string, "%ld", i_value);
229 value.string.len= strlen(value.string.string);
230 return(interpreted_as_string= value.string.string != NULL);
236 cl_cmd_sym_arg::cl_cmd_sym_arg(/*class cl_uc *iuc,*/ char *sym):
237 cl_cmd_arg(/*iuc,*/ sym)
241 cl_cmd_sym_arg::as_string(void)
243 char *s= get_svalue();
246 value.string.string= strdup(s);
247 value.string.len= strlen(s);
248 return(interpreted_as_string= value.string.string != NULL);
252 cl_cmd_sym_arg::get_address(class cl_uc *uc, t_addr *addr)
254 struct name_entry *ne;
256 if ((ne= get_name_entry(uc->sfr_tbl(),
268 cl_cmd_sym_arg::get_bit_address(class cl_uc *uc, // input
269 class cl_mem **mem, // outputs
273 struct name_entry *ne;
275 if ((ne= get_name_entry(uc->bit_tbl(),
280 *mem= uc->bit2mem(ne->addr, mem_addr, bit_mask);
285 cl_cmd_sym_arg::as_address(class cl_uc *uc)
287 struct name_entry *ne;
288 //printf("SYM %s as addr?\n",get_svalue());
289 if ((ne= get_name_entry(uc->sfr_tbl(), get_svalue(), uc)) != NULL)
291 value.address= ne->addr;
298 cl_cmd_sym_arg::as_hw(class cl_uc *uc)
303 hw= found= uc->get_hw(get_svalue(), &i);
307 found= uc->get_hw(get_svalue(), &i);
317 cl_cmd_str_arg::cl_cmd_str_arg(/*class cl_uc *iuc,*/ char *str):
318 cl_cmd_arg(/*iuc,*/ str)
324 cl_cmd_bit_arg::cl_cmd_bit_arg(/*class cl_uc *iuc,*/
325 class cl_cmd_arg *asfr, class cl_cmd_arg *abit):
326 cl_cmd_arg(/*iuc,*/ (long)0)
332 cl_cmd_bit_arg::~cl_cmd_bit_arg(void)
341 cl_cmd_bit_arg::get_address(class cl_uc *uc, t_addr *addr)
344 return(sfr->get_address(uc, addr));
349 cl_cmd_bit_arg::get_bit_address(class cl_uc *uc, // input
350 class cl_mem **mem, // outputs
355 *mem= uc->mem(MEM_SFR);
359 !sfr->get_address(uc, mem_addr))
367 if (!bit->get_ivalue(&l) ||
378 cl_cmd_array_arg::cl_cmd_array_arg(/*class cl_uc *iuc,*/
379 class cl_cmd_arg *aname,
380 class cl_cmd_arg *aindex):
381 cl_cmd_arg(/*iuc,*/ (long)0)
387 cl_cmd_array_arg::~cl_cmd_array_arg(void)
396 cl_cmd_array_arg::as_hw(class cl_uc *uc)
403 (n= name_arg->get_svalue()) == NULL ||
404 !index->get_address(uc, &a))
407 value.hw= uc->get_hw(n, a, NULL);
408 return(value.hw != NULL);
414 *----------------------------------------------------------------------------
417 cl_prg_arg::cl_prg_arg(char sn, char *ln, long lv):
421 long_name = ln?strdup(ln):0;
424 cl_prg_arg::cl_prg_arg(char sn, char *ln, char *sv):
428 long_name = ln?strdup(ln):0;
431 cl_prg_arg::cl_prg_arg(char sn, char *ln, double fv):
435 long_name = ln?strdup(ln):0;
438 cl_prg_arg::cl_prg_arg(char sn, char *ln, void *pv):
442 long_name = ln?strdup(ln):0;
445 cl_prg_arg::~cl_prg_arg(void)
454 *----------------------------------------------------------------------------
458 cl_arguments::arg_avail(char nam)
463 for (i= 0; i < count; i++)
465 a= (class cl_prg_arg *)(at(i));
466 if (a->short_name == nam)
473 cl_arguments::arg_avail(char *nam)
478 for (i= 0; i < count; i++)
480 a= (class cl_prg_arg *)(at(i));
482 strcmp(a->long_name, nam) == 0)
489 cl_arguments::get_iarg(char sname, char *lname)
494 for (i= 0; i < count; i++)
496 a= (class cl_prg_arg *)(at(i));
497 if ((sname && a->short_name == sname) ||
498 (lname && a->long_name && strcmp(a->long_name, lname) == 0))
501 if (a->get_ivalue(&iv))
512 cl_arguments::get_sarg(char sname, char *lname)
517 for (i= 0; i < count; i++)
519 a= (class cl_prg_arg *)(at(i));
520 if ((sname && a->short_name == sname) ||
521 (lname && a->long_name && strcmp(a->long_name, lname) == 0))
522 return(a->get_svalue());
529 cl_arguments::get_farg(char sname, char *lname)
534 for (i= 0; i < count; i++)
536 a= (class cl_prg_arg *)(at(i));
537 if ((sname && a->short_name == sname) ||
538 (lname && a->long_name && strcmp(a->long_name, lname) == 0))
539 return(a->get_fvalue());
545 cl_arguments::get_parg(char sname, char *lname)
550 for (i= 0; i < count; i++)
552 a= (class cl_prg_arg *)(at(i));
553 if ((sname && a->short_name == sname) ||
554 (lname && a->long_name && strcmp(a->long_name, lname) == 0))
555 return(a->get_pvalue());