OpenXM_contrib2/asir2000/builtin/fctr.c - diff

Return to fctr.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.21, 2004/05/13 14:02:16

version 1.22, 2004/05/14 09:20:56

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/fctr.c,v 1.20 2004/05/13 12:12:43 takayama Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/fctr.c,v 1.21 2004/05/13 14:02:16 noro Exp $

#include "ca.h"

#include "parse.h"

Line 341 NODE arg;

Obj *rp;

{

Q t;

NODE opt,tt,p;

NODE tt,p;

NODE n,n0;

char *key;

P pp;

Line 351 Obj *rp;

asir_assert(ARG0(arg),O_P,"ptozp");

/* analyze the option */

if ( argc(arg) == 2 && OID(ARG1(arg)) == O_OPTLIST ) {

if ( current_option ) {

opt = BDY((OPTLIST)ARG1(arg));

for ( tt = current_option; tt; tt = NEXT(tt) ) {

for ( tt = opt; tt; tt = NEXT(tt) ) {

p = BDY((LIST)BDY(tt));

key = BDY((STRING)BDY(p));

/* value = (Obj)BDY(NEXT(p)); */