#include <../../nrnconf.h>
/* /local/src/master/nrn/src/oc/debug.c,v 1.7 1996/04/09 16:39:14 hines Exp */
#include "hoc.h"
#include "code.h"
#include "equation.h"
#include <stdio.h>
int zzdebug;

#if	DOS
#define prcod(c1,c2)	else if (p->pf == c1) Printf("%p %p %s", p, p->pf, c2);
#else
#define prcod(c1,c2)	else if (p->pf == c1) Printf("%lx %lx %s", (long)p, (long)p->pf, c2);
#endif

debug()		/* print the machine */
{
	if (zzdebug == 0)
		zzdebug = 1;
	else
		zzdebug = 0;
	return;
}

debugzz(p)	/* running copy of calls to execute */
	Inst *p;
{
#if !OCSMALL
	int pushx();
	{
		if(p->in == STOP) Printf("STOP\n");
		prcod(pushx, "PUSH\n")
		prcod(nopop, "POP\n")
		prcod(eval, "EVAL\n")
		prcod(add, "ADD\n")
		prcod(sub, "SUB\n")
		prcod(mul, "MUL\n")
		prcod(hoc_div, "DIV\n")
		prcod(negate, "NEGATE\n")
		prcod(power, "POWER\n")
		prcod(assign, "ASSIGN\n")
		prcod(bltin, "BLTIN\n")
		prcod(varpush, "VARPUSH\n")
		prcod(constpush, "CONSTPUSH\n")
		prcod(pushzero, "PUSHZERO\n")
		prcod(print, "PRINT\n")
		prcod(varread, "VARREAD\n")
		prcod(prexpr, "PREXPR\n")
		prcod(prstr,"PRSTR\n")
		prcod(gt, "GT\n")
		prcod(lt, "LT\n")
		prcod(eq, "EQ\n")
		prcod(ge, "GE\n")
		prcod(le, "LE\n")
		prcod(ne, "NE\n")
		prcod(hoc_and, "AND\n")
		prcod(hoc_or, "OR\n")
		prcod(hoc_not, "NOT\n")
		prcod(ifcode, "IFCODE\n")
		prcod(forcode, "FORCODE\n")
		prcod(shortfor, "SHORTFOR\n")
		prcod(call, "CALL\n")
		prcod(arg, "ARG\n")
		prcod(argassign, "ARGASSIGN\n")
		prcod(funcret, "FUNCRET\n")
		prcod(procret, "PROCRET\n")
		prcod(hocobjret, "HOCOBJRET\n")
#if DOS
/* no room for all this stuff */
#else
		prcod(hoc_iterator_stmt, "hoc_iterator_stmt\n")
		prcod(hoc_iterator, "hoc_iterator\n")
		prcod(hoc_argrefasgn, "ARGREFASSIGN\n")
		prcod(hoc_argref, "ARGREF\n")
		prcod(hoc_stringarg, "STRINGARG\n")
		prcod(hoc_push_string, "push_string\n")
		prcod(Break, "Break\n")
		prcod(Continue, "Continue\n")
		prcod(Stop, "Stop()\n")
		prcod(assstr, "assstr\n")
		prcod(hoc_evalpointer, "evalpointer\n")
		prcod(hoc_newline, "newline\n")
		prcod(hoc_delete_symbol, "delete_symbol\n")
		prcod(hoc_cyclic, "cyclic\n")
		prcod(hoc_parallel_begin, "parallel_begin\n")
		prcod(hoc_parallel_end, "parallel_end\n")

		prcod(dep_make, "DEPENDENT\n")
		prcod(eqn_name, "EQUATION\n")
		prcod(eqn_init, "eqn_init()\n")
		prcod(eqn_lhs, "eqn_lhs()\n")
		prcod(eqn_rhs, "eqn_rhs()\n")
/*OOP*/
		prcod(hoc_push_current_object, "hoc_push_current_object\n")
		prcod(hoc_objectvar, "objectvar\n")
		prcod(hoc_object_component, "objectcomponent()\n")
		prcod(hoc_object_eval, "objecteval\n")
		prcod(hoc_object_asgn, "objectasgn\n")
		prcod(hoc_objvardecl, "objvardecl\n")
		prcod(hoc_cmp_otype, "cmp_otype\n")
		prcod(hoc_newobj, "newobject\n")
		prcod(hoc_asgn_obj_to_str, "assignobj2str\n")
		prcod(hoc_known_type, "known_type\n")
		prcod(hoc_push_string, "push_string\n")
		prcod(hoc_objectarg, "hoc_objectarg\n")
		prcod(hoc_ob_pointer, "hoc_ob_pointer\n")
		prcod(hoc_constobject, "hoc_constobject\n")

/*NEWCABLE*/
		prcod(connect_obsec_syntax, "connect_obsec_syntax()\n")
		prcod(connectsection, "connectsection()\n")
		prcod(simpleconnectsection, "simpleconnectsection()\n")
		prcod(connectpointer, "connectpointer()\n")
		prcod(add_section, "add_section()\n")
		prcod(range_const, "range_const()\n")
		prcod(range_interpolate, "range_interpolate()\n")
		prcod(range_interpolate_single, "range_interpolate_single()\n")
		prcod(rangevareval, "rangevareval()\n")
		prcod(rangepoint, "rangepoint()\n")
		prcod(sec_access, "sec_access()\n")
		prcod(ob_sec_access, "ob_sec_access()\n")
		prcod(mech_access, "mech_access()\n")
		prcod(for_segment, "forsegment()\n")
		prcod(sec_access_push, "sec_access_push()\n")
		prcod(sec_access_pop, "sec_access_pop()\n")
		prcod(forall_section, "forall_section()\n")
		prcod(hoc_ifsec, "hoc_ifsec()\n")
		prcod(hoc_ifseclist, "hocifseclist()\n")
		prcod(forall_sectionlist, "forall_sectionlist()\n")
		prcod(connect_point_process_pointer, "connect_point_process_pointer\n")
		prcod(nrn_cppp, "nrn_cppp()\n")
		prcod(rangevarevalpointer, "rangevarevalpointer\n")
		prcod(sec_access_object, "sec_access_object\n")
		prcod(mech_uninsert, "mech_uninsert\n")
#endif
		else
		{
			long offset = (long)p->in;
			if (offset < 1000)
				Printf("relative %ld\n", p->i);
			else {
			offset = (long)(p->in) - (long)p;
			if (offset > (long)prog - (long)p
			&& offset < (long)(&prog[2000]) - (long)p )
				Printf("relative %ld\n", p->in - p);
			else if (p->sym->name != (char *) 0)
				{
				if (p->sym->name[0] == '\0') {
					Printf("constant or string pointer\n");
/*Printf("value=%g\n", p->sym->u.val);*/
				}
				else
					Printf("%s\n", p->sym->name);
				}
			else
				Printf("symbol without name\n");
			}
		}
		p++;
	}
#endif /*OCSMALL*/
}