![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ndbf.rr CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / asir-contrib / testing / noro|
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-- ) |