version 1.21, 2004/05/13 14:02:16 |
version 1.22, 2004/05/14 09:20:56 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* 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 "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
Obj *rp; |
Obj *rp; |
{ |
{ |
Q t; |
Q t; |
NODE opt,tt,p; |
NODE tt,p; |
NODE n,n0; |
NODE n,n0; |
char *key; |
char *key; |
P pp; |
P pp; |
|
|
asir_assert(ARG0(arg),O_P,"ptozp"); |
asir_assert(ARG0(arg),O_P,"ptozp"); |
|
|
/* analyze the option */ |
/* 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)); |
p = BDY((LIST)BDY(tt)); |
key = BDY((STRING)BDY(p)); |
key = BDY((STRING)BDY(p)); |
/* value = (Obj)BDY(NEXT(p)); */ |
/* value = (Obj)BDY(NEXT(p)); */ |