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 return(get_address(uc, &(value.address)));
137 cl_cmd_arg::as_number(void)
139 return(get_ivalue(&(value.number)));
143 cl_cmd_arg::as_data(void)
146 bool ret= get_ivalue(&l);
152 cl_cmd_arg::as_memory(class cl_uc *uc)
154 value.memory= uc->mem(s_value);
155 return(value.memory != 0);
159 cl_cmd_arg::as_hw(class cl_uc *uc)
165 cl_cmd_arg::as_string(void)
167 char *s= get_svalue();
171 value.string.string= proc_escape(s, &value.string.len);
174 value.string.string= strdup(s);
175 value.string.len= strlen(s);
177 return(interpreted_as_string= value.string.string != NULL);
181 cl_cmd_arg::as_bit(class cl_uc *uc)
183 return(get_bit_address(uc,
185 &(value.bit.mem_address),
190 /* Interger number */
192 cl_cmd_int_arg::cl_cmd_int_arg(/*class cl_uc *iuc,*/ long addr):
193 cl_cmd_arg(/*iuc,*/ addr)
197 cl_cmd_int_arg::get_address(class cl_uc *uc, t_addr *addr)
201 bool b= get_ivalue(&iv);
208 cl_cmd_int_arg::get_bit_address(class cl_uc *uc, // input
209 class cl_mem **mem, // outputs
215 if (!get_address(uc, &bit_addr))
219 *mem= uc->bit2mem(bit_addr, mem_addr, bit_mask);
224 cl_cmd_int_arg::as_string(void)
226 value.string.string= (char*)malloc(100);
227 sprintf(value.string.string, "%ld", i_value);
228 value.string.len= strlen(value.string.string);
229 return(interpreted_as_string= value.string.string != NULL);
235 cl_cmd_sym_arg::cl_cmd_sym_arg(/*class cl_uc *iuc,*/ char *sym):
236 cl_cmd_arg(/*iuc,*/ sym)
240 cl_cmd_sym_arg::as_string(void)
242 char *s= get_svalue();
245 value.string.string= strdup(s);
246 value.string.len= strlen(s);
247 return(interpreted_as_string= value.string.string != NULL);
251 cl_cmd_sym_arg::get_address(class cl_uc *uc, t_addr *addr)
253 struct name_entry *ne;
255 if ((ne= get_name_entry(uc->sfr_tbl(),
267 cl_cmd_sym_arg::get_bit_address(class cl_uc *uc, // input
268 class cl_mem **mem, // outputs
272 struct name_entry *ne;
274 if ((ne= get_name_entry(uc->bit_tbl(),
279 *mem= uc->bit2mem(ne->addr, mem_addr, bit_mask);
284 cl_cmd_sym_arg::as_address(class cl_uc *uc)
286 struct name_entry *ne;
287 //printf("SYM %s as addr?\n",get_svalue());
288 if ((ne= get_name_entry(uc->sfr_tbl(), get_svalue(), uc)) != NULL)
290 value.address= ne->addr;
297 cl_cmd_sym_arg::as_hw(class cl_uc *uc)
302 hw= found= uc->get_hw(get_svalue(), &i);
306 found= uc->get_hw(get_svalue(), &i);
316 cl_cmd_str_arg::cl_cmd_str_arg(/*class cl_uc *iuc,*/ char *str):
317 cl_cmd_arg(/*iuc,*/ str)
323 cl_cmd_bit_arg::cl_cmd_bit_arg(/*class cl_uc *iuc,*/
324 class cl_cmd_arg *asfr, class cl_cmd_arg *abit):
325 cl_cmd_arg(/*iuc,*/ (long)0)
331 cl_cmd_bit_arg::~cl_cmd_bit_arg(void)
340 cl_cmd_bit_arg::get_address(class cl_uc *uc, t_addr *addr)
343 return(sfr->get_address(uc, addr));
348 cl_cmd_bit_arg::get_bit_address(class cl_uc *uc, // input
349 class cl_mem **mem, // outputs
354 *mem= uc->mem(MEM_SFR);
358 !sfr->get_address(uc, mem_addr))
366 if (!bit->get_ivalue(&l) ||
377 cl_cmd_array_arg::cl_cmd_array_arg(/*class cl_uc *iuc,*/
378 class cl_cmd_arg *aname,
379 class cl_cmd_arg *aindex):
380 cl_cmd_arg(/*iuc,*/ (long)0)
386 cl_cmd_array_arg::~cl_cmd_array_arg(void)
395 cl_cmd_array_arg::as_hw(class cl_uc *uc)
402 (n= name->get_svalue()) == NULL ||
403 !index->get_address(uc, &a))
406 value.hw= uc->get_hw(n, a, NULL);
407 return(value.hw != NULL);
413 *----------------------------------------------------------------------------
416 cl_prg_arg::cl_prg_arg(char sn, char *ln, long lv):
420 long_name = ln?strdup(ln):0;
423 cl_prg_arg::cl_prg_arg(char sn, char *ln, char *sv):
427 long_name = ln?strdup(ln):0;
430 cl_prg_arg::cl_prg_arg(char sn, char *ln, double fv):
434 long_name = ln?strdup(ln):0;
437 cl_prg_arg::cl_prg_arg(char sn, char *ln, void *pv):
441 long_name = ln?strdup(ln):0;
444 cl_prg_arg::~cl_prg_arg(void)
453 *----------------------------------------------------------------------------
457 cl_arguments::arg_avail(char name)
462 for (i= 0; i < count; i++)
464 a= (class cl_prg_arg *)(at(i));
465 if (a->short_name == name)
472 cl_arguments::arg_avail(char *name)
477 for (i= 0; i < count; i++)
479 a= (class cl_prg_arg *)(at(i));
481 strcmp(a->long_name, name) == 0)
488 cl_arguments::get_iarg(char sname, char *lname)
493 for (i= 0; i < count; i++)
495 a= (class cl_prg_arg *)(at(i));
496 if ((sname && a->short_name == sname) ||
497 (lname && a->long_name && strcmp(a->long_name, lname) == 0))
500 if (a->get_ivalue(&iv))
511 cl_arguments::get_sarg(char sname, char *lname)
516 for (i= 0; i < count; i++)
518 a= (class cl_prg_arg *)(at(i));
519 if ((sname && a->short_name == sname) ||
520 (lname && a->long_name && strcmp(a->long_name, lname) == 0))
521 return(a->get_svalue());
528 cl_arguments::get_farg(char sname, char *lname)
533 for (i= 0; i < count; i++)
535 a= (class cl_prg_arg *)(at(i));
536 if ((sname && a->short_name == sname) ||
537 (lname && a->long_name && strcmp(a->long_name, lname) == 0))
538 return(a->get_fvalue());
544 cl_arguments::get_parg(char sname, char *lname)
549 for (i= 0; i < count; i++)
551 a= (class cl_prg_arg *)(at(i));
552 if ((sname && a->short_name == sname) ||
553 (lname && a->long_name && strcmp(a->long_name, lname) == 0))
554 return(a->get_pvalue());