211{
212 int bp=0;
213 if ((len>1)
216 )
217 {
219 {
220 char gdb[80];
221 char *
p=(
char *)currLine+len-1;
222 while ((*
p<=
' ') && (
p!=currLine))
223 {
225 }
226 if (
p==currLine)
return;
227
230 fwrite(currLine,1,len,stdout);
231 Print(
"<<\nbreakpoint %d (press ? for list of commands)\n",bp);
235 {
237 }
240 {
241 case '?':
242 case 'h':
243 {
245 "b - print backtrace of calling stack\n"
246 "B <proc> [<line>] - define breakpoint\n"
247 "c - continue\n"
248 "d - delete current breakpoint\n"
249 "D - show all breakpoints\n"
250 "e - edit the current procedure (current call will be aborted)\n"
251 "h,? - display this help screen\n"
252 "n - execute current line, break at next line\n"
253 "p <var> - display type and value of the variable <var>\n"
254 "q <flags> - quit debugger, set debugger flags(0,1,2)\n"
255 " 0: stop debug, 1:continue, 2: throw an error, return to toplevel\n"
256 "Q - quit Singular\n");
259 {
261 Print(
"breakpoint %d at line %d in %s\n",
263 }
264 break;
265 }
266 case 'd':
267 {
268 Print(
"delete break point %d\n",bp);
270 if (bp!=0)
271 {
273 }
274 break;
275 }
276 case 'D':
278 break;
279 #if 0
280 case 'l':
281 {
282 extern void listall(int showproc);
284 break;
285 }
286 #endif
287 case 'n':
289 return;
290 case 'e':
291 {
294 return;
295 }
296 case 'p':
297 {
304 else
305 {
307 memset(&tmp,0,sizeof(tmp));
312 }
313 break;
314 }
315 case 'b':
317 break;
318 case 'B':
319 {
321 Print(
"procedure `%s` ",
p);
323 break;
324 }
325 case 'q':
326 {
329 {
332 }
333 return;
334 }
335 case 'Q':
337 case 'c':
338 default:
339 return;
340 }
341 }
342 }
343}
Class used for (list of) interpreter objects.
void Print(leftv store=NULL, int spaces=0)
Called by type_cmd (e.g. "r;") or as default in jPRINT.
char *(* fe_fgets_stdin)(const char *pr, char *s, int size)
const char * Tok2Cmdname(int tok)
idhdl ggetid(const char *n)
void PrintS(const char *s)
BOOLEAN sdb_set_breakpoint(const char *pp, int given_lineno)
void sdb_edit(procinfo *pi)
static char * sdb_find_arg(char *p)
int sdb_checkline(char f)
STATIC_VAR char sdb_lastcmd