/usr/share/nrn/lib/hoc/single.hoc is in neuron 7.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | {load_file("stdgui.hoc")}
begintemplate SingleCompartment
public vbox, inserter, vbox
objref this, vbox, inserter
strdef tstr
proc init() {
if (!name_declared("soma")) {
execute("~create soma")
}else{
sprint(tstr, "%s warning: soma already exists at top level.", this)
continue_dialog(tstr)
}
execute("access soma")
diam=10 L=10/PI // area 100 um2 means mA/cm2 identical to nA
startbox()
if (numarg() == 0) {
inserter = new Inserter()
endbox()
vbox.map("SingleCompartment")
}
}
proc startbox() {
vbox = new VBox()
vbox.priority(1000)
vbox.save("save()")
vbox.ref(this)
vbox.intercept(1)
}
proc endbox() {
vbox.intercept(0)
}
proc save() {
vbox.save("load_file(\"single.hoc\")\n}")
vbox.save("ocbox_ = new SingleCompartment(0)")
vbox.save("ocbox_.inserter = new Inserter(0)")
vbox.save("{object_push(ocbox_.inserter)}\n{")
inserter.dsave(vbox)
vbox.save("{object_push(ocbox_)}")
vbox.save("{inserter.v1.map()}")
vbox.save("{endbox()}")
vbox.save("{object_pop() doNotify()}\n{")
vbox.save("ocbox_ = ocbox_.vbox")
}
endtemplate SingleCompartment
objref tobj
proc makesinglecompartment() {
tobj = new SingleCompartment()
objref tobj
}
|