OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [gdb/] [kod-cisco.c] - Blame information for rev 1774

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
/* Kernel Object Display facility for Cisco
2
   Copyright 1999, 2000 Free Software Foundation, Inc.
3
 
4
   Written by Tom Tromey <tromey@cygnus.com>.
5
 
6
This file is part of GDB.
7
 
8
This program is free software; you can redistribute it and/or modify
9
it under the terms of the GNU General Public License as published by
10
the Free Software Foundation; either version 2 of the License, or
11
(at your option) any later version.
12
 
13
This program is distributed in the hope that it will be useful,
14
but WITHOUT ANY WARRANTY; without even the implied warranty of
15
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16
GNU General Public License for more details.
17
 
18
You should have received a copy of the GNU General Public License
19
along with this program; if not, write to the Free Software
20
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
21
 
22
#include "defs.h"
23
#include "gdb_string.h"
24
#include "kod.h"
25
 
26
#ifdef HAVE_STDLIB_H
27
#include <stdlib.h>
28
#endif
29
 
30
/* Define this to turn off communication with target.  */
31
/* #define FAKE_PACKET */
32
 
33
/* Size of buffer used for remote communication.  */
34
#define PBUFSIZ 400
35
 
36
/* Pointers to gdb callbacks.  */
37
static void (*gdb_kod_display) (char *);
38
static void (*gdb_kod_query) (char *, char *, int *);
39
 
40
 
41
 
42
/* Initialize and return library name and version.
43
   The gdb side of KOD, kod.c, passes us two functions: one for
44
   displaying output (presumably to the user) and the other for
45
   querying the target.  */
46
char *
47
cisco_kod_open (kod_display_callback_ftype *display_func,
48
                kod_query_callback_ftype *query_func)
49
{
50
  char buffer[PBUFSIZ];
51
  int bufsiz = PBUFSIZ;
52
  int i, count;
53
 
54
  gdb_kod_display = display_func;
55
  gdb_kod_query = query_func;
56
 
57
  /* Get the OS info, and check the version field.  This is the stub
58
     version, which we use to see whether we will understand what
59
     comes back.  This is lame, but the `qKoL' request doesn't
60
     actually provide enough configurability.
61
 
62
     Right now the only defined version number is `0.0.0'.
63
     This stub supports qKoI and the `a' (any) object requests qKaL
64
     and qKaI.  Each `a' object is returned as a 4-byte integer ID.
65
     An info request on an object returns a pair of 4-byte integers;
66
     the first is the object pointer and the second is the thread ID.  */
67
 
68
#ifndef FAKE_PACKET
69
  (*gdb_kod_query) ("oI;", buffer, &bufsiz);
70
#else
71
  strcpy (buffer, "Cisco IOS/Classic/13.4 0.0.0");
72
#endif
73
 
74
  count = 2;
75
  for (i = 0; count && buffer[i] != '\0'; ++i)
76
    {
77
      if (buffer[i] == ' ')
78
        --count;
79
    }
80
 
81
  if (buffer[i] == '\0')
82
    error ("Remote returned malformed packet\n");
83
  if (strcmp (&buffer[i], "0.0.0"))
84
    error ("Remote returned unknown stub version: %s\n", &buffer[i]);
85
 
86
  /* Return name, version, and description.  I hope we have enough
87
     space.  */
88
  return (xstrdup ("gdbkodcisco v0.0.0 - Cisco Kernel Object Display"));
89
}
90
 
91
/* Close the connection.  */
92
void
93
cisco_kod_close (void)
94
{
95
}
96
 
97
/* Print a "bad packet" message.  */
98
static void
99
bad_packet (void)
100
{
101
  (*gdb_kod_display) ("Remote target returned malformed packet.\n");
102
}
103
 
104
/* Print information about currently known kernel objects.
105
   We currently ignore the argument.  There is only one mode of
106
   querying the Cisco kernel: we ask for a dump of everything, and
107
   it returns it.  */
108
void
109
cisco_kod_request (char *arg, int from_tty)
110
{
111
  char buffer[PBUFSIZ], command[PBUFSIZ];
112
  int done = 0, i;
113
  int fail = 0;
114
 
115
  char **sync_ids = NULL;
116
  int sync_len = 0;
117
  int sync_next = 0;
118
  char *prev_id = NULL;
119
 
120
  if (! arg || strcmp (arg, "any"))
121
    {
122
      /* "Top-level" command.  This is really silly, but it also seems
123
         to be how KOD is defined.  */
124
      /* Even sillier is the fact that this first line must start
125
         with the word "List".  See kod.tcl.  */
126
      (*gdb_kod_display) ("List of Cisco Kernel Objects\n");
127
      (*gdb_kod_display) ("Object\tDescription\n");
128
      (*gdb_kod_display) ("any\tAny and all objects\n");
129
      return;
130
    }
131
 
132
  while (! done)
133
    {
134
      int off = 0;               /* Where we are in the string.  */
135
      long count;               /* Number of objects in this packet.  */
136
      int bufsiz = PBUFSIZ;
137
      char *s_end;
138
 
139
      strcpy (command, "aL");
140
      if (prev_id)
141
        {
142
          strcat (command, ",");
143
          strcat (command, prev_id);
144
        }
145
      strcat (command, ";");
146
 
147
#ifndef FAKE_PACKET
148
      /* We talk to the target by calling through the query function
149
         passed to us when we were initialized.  */
150
      (*gdb_kod_query) (command, buffer, &bufsiz);
151
#else
152
      /* Fake up a multi-part packet.  */
153
      if (! strncmp (&command[3], "a500005a", 8))
154
        strcpy (buffer, "KAL,01,1,f500005f;f500005f;");
155
      else
156
        strcpy (buffer, "KAL,02,0,a500005a;a500005a;de02869f;");
157
#endif
158
 
159
      /* Empty response is an error.  */
160
      if (strlen (buffer) == 0)
161
        {
162
          (*gdb_kod_display) ("Remote target did not recognize kernel object query command.\n");
163
          fail = 1;
164
          break;
165
        }
166
 
167
      /* If we don't get a `K' response then the buffer holds the
168
         target's error message.  */
169
      if (buffer[0] != 'K')
170
        {
171
          (*gdb_kod_display) (buffer);
172
          fail = 1;
173
          break;
174
        }
175
 
176
      /* Make sure we get the response we expect.  */
177
      if (strncmp (buffer, "KAL,", 4))
178
        {
179
          bad_packet ();
180
          fail = 1;
181
          break;
182
        }
183
      off += 4;
184
 
185
      /* Parse out the count.  We expect to convert exactly two
186
         characters followed by a comma.  */
187
      count = strtol (&buffer[off], &s_end, 16);
188
      if (s_end - &buffer[off] != 2 || buffer[off + 2] != ',')
189
        {
190
          bad_packet ();
191
          fail = 1;
192
          break;
193
        }
194
      off += 3;
195
 
196
      /* Parse out the `done' flag.  */
197
      if ((buffer[off] != '0' && buffer[off] != '1')
198
          || buffer[off + 1] != ',')
199
        {
200
          bad_packet ();
201
          fail = 1;
202
          break;
203
        }
204
      done = buffer[off] == '1';
205
      off += 2;
206
 
207
      /* Id of the last item; we might this to construct the next
208
         request.  */
209
      prev_id = &buffer[off];
210
      if (strlen (prev_id) < 8 || buffer[off + 8] != ';')
211
        {
212
          bad_packet ();
213
          fail = 1;
214
          break;
215
        }
216
      buffer[off + 8] = '\0';
217
      off += 9;
218
 
219
      sync_len += count;
220
      sync_ids = (char **) xrealloc (sync_ids, sync_len * sizeof (char *));
221
 
222
      for (i = 0; i < count; ++i)
223
        {
224
          if (strlen (&buffer[off]) < 8 || buffer[off + 8] != ';')
225
            {
226
              bad_packet ();
227
              fail = 1;
228
              break;
229
            }
230
          buffer[off + 8] = '\0';
231
          sync_ids[sync_next++] = xstrdup (&buffer[off]);
232
          off += 9;
233
        }
234
 
235
      if (buffer[off] != '\0')
236
        {
237
          bad_packet ();
238
          fail = 1;
239
          break;
240
        }
241
    }
242
 
243
  /* We've collected all the sync object IDs.  Now query to get the
244
     specific information, and arrange to print this info.  */
245
  if (! fail)
246
    {
247
      (*gdb_kod_display) ("Object ID\tObject Pointer\tThread ID\n");
248
 
249
      for (i = 0; i < sync_next; ++i)
250
        {
251
          int off = 0;
252
          int bufsiz = PBUFSIZ;
253
 
254
          /* For now assume a query can be accomplished in a single
255
             transaction.  This is implied in the protocol document.
256
             See comments above, and the KOD protocol document, to
257
             understand the parsing of the return value.  */
258
          strcpy (command, "aI,");
259
          strcat (command, sync_ids[i]);
260
          strcat (command, ";");
261
 
262
#ifndef FAKE_PACKET
263
          (*gdb_kod_query) (command, buffer, &bufsiz);
264
#else
265
          strcpy (buffer, "KAI,");
266
          strcat (buffer, sync_ids[i]);
267
          strcat (buffer, ",ffef00a0,cd00123d;");
268
#endif
269
 
270
          if (strlen (buffer) == 0)
271
            {
272
              (*gdb_kod_display) ("Remote target did not recognize KOD command.\n");
273
              break;
274
            }
275
 
276
          if (strncmp (buffer, "KAI,", 4))
277
            {
278
              bad_packet ();
279
              break;
280
            }
281
          off += 4;
282
 
283
          if (strncmp (&buffer[off], sync_ids[i], 8)
284
              || buffer[off + 8] != ',')
285
            {
286
              bad_packet ();
287
              break;
288
            }
289
          off += 9;
290
 
291
          /* Extract thread id and sync object pointer.  */
292
          if (strlen (&buffer[off]) != 2 * 8 + 2
293
              || buffer[off + 8] != ','
294
              || buffer[off + 17] != ';')
295
            {
296
              bad_packet ();
297
              break;
298
            }
299
 
300
          buffer[off + 8] = '\0';
301
          buffer[off + 17] = '\0';
302
 
303
          /* Display the result.  */
304
          (*gdb_kod_display) (sync_ids[i]);
305
          (*gdb_kod_display) ("\t");
306
          (*gdb_kod_display) (&buffer[off]);
307
          (*gdb_kod_display) ("\t");
308
          (*gdb_kod_display) (&buffer[off + 9]);
309
          (*gdb_kod_display) ("\n");
310
        }
311
    }
312
 
313
  /* Free memory.  */
314
  for (i = 0; i < sync_next; ++i)
315
    xfree (sync_ids[i]);
316
  xfree (sync_ids);
317
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.