git.gag.com Git - fw/sdcc/blob - sim/ucsim/cmd.src/cmdutil.cc

   1 /*
   2  * Simulator of microcontrollers (cmd.src/cmdutil.cc)
   3  *
   4  * Copyright (C) 1999,99 Drotos Daniel, Talker Bt.
   5  *
   6  * To contact author send email to drdani@mazsola.iit.uni-miskolc.hu
   7  *
   8  */
   9
  10 /* This file is part of microcontroller simulator: ucsim.
  11
  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.
  16
  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.
  21
  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
  25 02111-1307, USA. */
  26 /*@1@*/
  27
  28 #include "ddconfig.h"
  29
  30 #include <stdio.h>
  31 #include <stdlib.h>
  32 #include <ctype.h>
  33 #include <sys/types.h>
  34 #ifdef HAVE_SYS_SOCKET_H
  35 # include <sys/socket.h>
  36 # include <netinet/in.h>
  37 # include <arpa/inet.h>
  38 #endif
  39 #include "i_string.h"
  40
  41 #include "stypes.h"
  42 #include "globals.h"
  43 #include "uccl.h"
  44
  45
  46 /*
  47  * Making a socket which can be used to listen for a specified port
  48  */
  49
  50 #ifdef SOCKET_AVAIL
  51 int
  52 make_server_socket(unsigned short int port)
  53 {
  54   int sock, i;
  55   struct sockaddr_in name;
  56
  57   /* Create the socket. */
  58   sock= socket(PF_INET, SOCK_STREAM, 0);
  59   if (sock < 0)
  60     {
  61       perror("socket");
  62       return(0);
  63     }
  64
  65   /* Give the socket a name. */
  66   i= 1;
  67   if (setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, (char*)&i, sizeof(i)) < 0)
  68     {
  69       perror("setsockopt");
  70     }
  71   name.sin_family     = AF_INET;
  72   name.sin_port       = htons(port);
  73   name.sin_addr.s_addr= htonl(INADDR_ANY);
  74   if (bind(sock, (struct sockaddr *)&name, sizeof(name)) < 0)
  75     {
  76       perror("bind");
  77       return(0);
  78     }
  79
  80   return(sock);
  81 }
  82 #endif
  83
  84
  85 /*
  86  * Printing out an integer in binary format
  87  */
  88
  89 /*void
  90 print_bin(long data, int bits, class cl_console *con)
  91 {
  92   long mask= 1;
  93
  94   mask= mask << ((bits >= 1)?(bits-1):0);
  95   while (bits--)
  96     {
  97       con->printf("%c", (data&mask)?'1':'0');
  98       mask>>= 1;
  99     }
 100 }*/
 101
 102
 103 /*
 104  * Searching for a name in the specified table
 105  */
 106
 107 struct name_entry *
 108 get_name_entry(struct name_entry tabl[], char *name, class cl_uc *uc)
 109 {
 110   int i= 0;
 111   char *p;
 112
 113   if (!tabl ||
 114       !name ||
 115       !(*name))
 116     return(0);
 117   for (p= name; *p; *p= toupper(*p), p++);
 118   while (tabl[i].name &&
 119          (!(tabl[i].cpu_type & uc->type) ||
 120          (strcmp(tabl[i].name, name) != 0)))
 121     i++;
 122   if (tabl[i].name != NULL)
 123     return(&tabl[i]);
 124   else
 125     return(0);
 126 }
 127
 128
 129 /*
 130  * Interpreting a bitname
 131  */
 132
 133 /*bool
 134 interpret_bitname(char *name, class cl_uc *uc,
 135                   uchar **cell, uchar *celladdr,
 136                   uchar *bitaddr, uchar *bitmask,
 137                   char **symname)
 138 {
 139   char *dot, *p;
 140   char *sym, bitnumstr[2];
 141   struct name_entry *ne;
 142   int bitnum, i;
 143
 144   if ((dot= strchr(name, '.')) != NULL)
 145     {
 146       *dot++= '\0';
 147       if ((ne= get_name_entry(uc->sfr_tbl(), name, uc)) == NULL)
 148         {
 149           *celladdr= strtol(name, &p, 0);
 150           if (p && *p)
 151             {
 152               dot--;
 153               *dot= '.';
 154               return(DD_FALSE);
 155             }
 156         }
 157       else
 158         *celladdr= ne->addr;
 159       if ((*celladdr < 0x20) ||
 160           ((*celladdr > 0x2f) && (*celladdr < 0x80)) ||
 161           ((*celladdr > 0x7f) && (*celladdr & 0x07)))
 162         return(DD_FALSE);
 163       bitnum= strtol(dot, &p, 0);
 164       if ((p && *p) ||
 165           (bitnum < 0) ||
 166           (bitnum > 7))
 167         return(DD_FALSE);
 168       if (*celladdr > 0x7f)
 169         *bitaddr= *celladdr + bitnum;
 170       else
 171         *bitaddr= (*celladdr - 0x20)*8 + bitnum;
 172       dot--;
 173       *dot= '.';
 174     }
 175   else
 176     {
 177       if ((ne= get_name_entry(uc->bit_tbl(), name, uc)) == NULL)
 178         {
 179           *bitaddr= strtol(name, &p, 0);
 180           if ((p && *p) ||
 181               (*bitaddr > 0xff))
 182             return(DD_FALSE);
 183         }
 184       else
 185         *bitaddr= ne->addr;
 186       if (*bitaddr > 0x7f)
 187         *celladdr= *bitaddr & 0xf8;
 188       else
 189         *celladdr= (*bitaddr >> 3) + 0x20;
 190     }
 191   // *bitaddr, *celladdr now OK
 192   *cell= uc->get_bit//FIXME
 193     (*bitaddr);
 194   *bitmask= BIT_MASK(*bitaddr);
 195   // making symbolic name
 196   if (!symname)
 197     return(DD_TRUE);
 198   i= 0;
 199   while (uc->bit_tbl()[i].name &&
 200          (uc->bit_tbl()[i].addr != *bitaddr))
 201     i++;
 202   if (uc->bit_tbl()[i].name)
 203     {
 204       sym= strdup(uc->bit_tbl()[i].name);
 205       *symname= sym;
 206       return(DD_TRUE);
 207     }
 208   i= 0;
 209   while (uc->sfr_tbl()[i].name &&
 210          (uc->sfr_tbl()[i].addr != *celladdr))
 211     i++;
 212   if (uc->sfr_tbl()[i].name)
 213     sym= strdup(uc->sfr_tbl()[i].name);
 214   else
 215     {
 216       sym= (char *)malloc(3);
 217       sprintf(sym, "%02x", *celladdr);
 218     }
 219   sym= (char *)realloc(sym, strlen(sym)+2);
 220   strcat(sym, ".");
 221   sprintf(bitnumstr, "%1d", *bitaddr & 0x07);
 222   strcat(sym, bitnumstr);
 223   *symname= sym;
 224   return(DD_TRUE);
 225 }*/
 226
 227
 228 /*
 229  * Processing escape sequencies in a string
 230  */
 231
 232 char *
 233 proc_escape(char *string, int *len)
 234 {
 235   char  spec_chars[]= "fnrtvab\"";
 236   char  spec[]= "\f\n\r\t\v\a\b\"";
 237   char  *s, *str, *p;
 238
 239   s  = string;
 240   str= (char *)malloc(strlen(string)+1);
 241   p  = str;
 242   while (*s)
 243     {
 244       char *spec_c;
 245
 246       if (*s == '\\' &&
 247           *(s+1))
 248         {
 249           s++;
 250           if (*s == '0')
 251             {
 252               if (!isdigit(*(s+1)))
 253                 {
 254                   *p++= '\0';
 255                   s++;
 256                 }
 257               else
 258                 {
 259                   char *octal, *chk, data;
 260                   int i, j;
 261                   i= strspn(s, "01234567");
 262                   octal= (char *)malloc(i+1);
 263                   j= 0;
 264                   while (*s &&
 265                          (j < i))
 266                     octal[j++]= *s++;
 267                   octal[j]= '\0';
 268                   data= strtol(octal, &chk, 8);
 269                   if (!chk || !(*chk))
 270                     *p++= data;
 271                 }
 272             }
 273           else
 274             if ((spec_c= strchr(spec_chars, *s)) != NULL)
 275               {
 276                 *p++= spec[spec_c-spec_chars];
 277                 s++;
 278               }
 279             else
 280               *p++= *s++;
 281         }
 282       else
 283         *p++= *s++;
 284     }
 285   *p= '\0';
 286   *len= p-str;
 287   return(str);
 288 }
 289
 290
 291 /* End of cmd.src/cmdutil.cc */