75 #define evalcmd(cmd) eval(cmd)  argument
76 #define cmdlist_append(cmd, cl) list_append(list_item(cmd), nil, cl)  argument
305 public Cmdlist buildcmdlist(cmd)  in buildcmdlist()  argument
306 Command cmd;  in buildcmdlist()
311     cmdlist_append(cmd, cmdlist);
319 public printcmd(f, cmd)  in printcmd()  argument
321 Command cmd;
327     switch (cmd->op) {
335 	    if (cmd->value.step.skipcalls) {
340 	    if (not cmd->value.step.source) {
346 	    fprintf(f, "%s", opinfo[ord(cmd->op)].opstring);
347 	    if (nargs(cmd->op) != 0) {
352     switch (cmd->op) {
356 	    fprintf(f, "%s", symname(cmd->value.sym));
360 	    p = cmd->value.arg[0];
370 	    fprintf(f, "%s", cmd->value.scon);
376 	    fprintf(f, "%d", cmd->value.lcon);
383 	    prtree(f, cmd->value.event.cond);
385 	    foreach (Command, c, cmd->value.event.actions)
391 	    fprintf(f, "%s }", opinfo[ord(cmd->op)].opstring);
395 	    print_tracestop(f, cmd);
399 	    prtree(f, cmd->value.examine.beginaddr);
400 	    if (cmd->value.examine.endaddr != nil) {
402 		prtree(f, cmd->value.examine.endaddr);
405 	    if (cmd->value.examine.count > 1) {
406 		fprintf(f, "%d", cmd->value.examine.count);
408 	    fprintf("%s", cmd->value.examine.mode);
412 	    if (nargs(cmd->op) != 0) {
415 		    prtree(f, cmd->value.arg[i]);
417 		if (i >= nargs(cmd->op)) break;
431 private print_tracestop(f, cmd)  in print_tracestop()  argument
433 Command cmd;
439     ifcmd = list_element(Command, list_head(cmd->value.trace.actions));
446 	    fprintI(f, cmd->value.trace.inst);
453 	fprintI(f, cmd->value.trace.inst);
459 	fprintf(f, "%s ", cmd->value.trace.inst ? "tracei" : "trace");
460 	foreach (Command, c, cmd->value.trace.actions)