psection.cpp

Go to the documentation of this file.

#include <../../nrnconf.h>

#include <stdio.h>
#include "section.h"
#include "parse.hpp"
#include "membfunc.h"

extern void verify_structure(void);

static void pnode(Prop*);

void psection(void)
{
    Section *sec;
    Prop *p, *p1;
    
    verify_structure();
    sec = chk_access();
    p = sec->prop;
    Printf("%s {", secname(sec));
    Printf(" nseg=%d  L=%g  Ra=%g", sec->nnode - 1, section_length(sec),
        nrn_ra(sec));
    if (p->dparam[4].val != 1) {
        Printf(" rallbranch=%g", p->dparam[4].val);
    }
    Printf("\n");
    if (sec->parentsec) {
        Printf("    %s ",secname(sec->parentsec));
        Printf("connect %s (%g), %g\n", secname(sec),
            p->dparam[3].val, p->dparam[1].val);
    } else {
        v_setup_vectors();
        /*SUPPRESS 440*/
        Printf("    /*location %g attached to cell %d*/\n",
            p->dparam[3].val, sec->parentnode->v_node_index);
    }
    if (sec->nnode) {
        /*SUPPRESS 440*/
        Printf("    /* First segment only */\n");
        p1 = sec->pnode[0]->prop;
        pnode(p1);
    }
    Printf("}\n");
    hoc_retpushx(1.);
}

static void pnode(Prop* p1)
{
    Symbol *sym;
    int j;
    
    if (!p1) {
        return;
    }
    pnode(p1->next);    /*print in insert order*/
    sym = memb_func[p1->type].sym;
    Printf("    insert %s {", sym->name);
    if (sym->s_varn) {
        for (j=0; j < sym->s_varn; j++ ) {
            Symbol* s = sym->u.ppsym[j];
            if (nrn_vartype(s) == nrnocCONST) {
                if (p1->ob) {
printf(" %s=%g", s->name, p1->ob->u.dataspace[s->u.rng.index].pval[0]);
                }else{
Printf(" %s=%g", s->name, p1->param[s->u.rng.index]);
                }
            }
        }
    }
    Printf("}\n");
}

extern void print_stim(void);
extern void print_clamp(void);
extern void print_syn(void);

void prstim(void) {
    print_stim();
    print_clamp();
    print_syn();
    hoc_retpushx(1.);
}