Return to ndbf.rr CVS log | Up to [local] / OpenXM / src / asir-contrib / testing / noro |
version 1.13, 2010/06/16 08:57:40 | version 1.14, 2010/06/19 06:17:34 | ||
---|---|---|---|
|
|
||
def action_on_gfs(P,V,GFS) | def action_on_gfs(P,V,GFS) | ||
{ | { | ||
for ( T = V, DV = []; T != []; T = cdr(T) ) | |||
DV = cons(strtov("d"+rtostr(car(T))),DV); | |||
V = append(append(V,[s]),reverse(cons(ds,DV))); | |||
DP = dp_ptod(P,V); | DP = dp_ptod(P,V); | ||
N = length(V)/2; | N = length(V)/2; | ||
for ( I = N-1, V0 = []; I >= 0; I-- ) | for ( I = N-1, V0 = []; I >= 0; I-- ) |