version 1.48, 2015/08/14 13:51:54 |
version 1.50, 2016/04/01 03:04:35 |
|
|
* 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/ctrl.c,v 1.47 2015/08/06 10:01:51 fujimoto Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.49 2016/03/31 06:41:20 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
STRING s; |
STRING s; |
NODE node,p; |
NODE node,p; |
LIST list; |
LIST list; |
|
P f; |
|
extern Q ox_pari_stream; |
|
extern int ox_pari_stream_initialized; |
|
extern P ox_pari_starting_function; |
|
|
if ( !arg ) { |
if ( !arg ) { |
*rp = 0; |
*rp = 0; |
|
|
ASIRLOADPATH[i] = NULL; |
ASIRLOADPATH[i] = NULL; |
}else { |
}else { |
error("ctrl : loadpath : invalid argument"); |
error("ctrl : loadpath : invalid argument"); |
|
} |
|
} |
|
return; |
|
} else if ( !strcmp(key,"oxpari_id") ) { |
|
if ( argc(arg) == 1 ) { |
|
if(!ox_pari_stream_initialized) { |
|
t=-1; |
|
STOQ(t,*rp); |
|
}else { |
|
*rp = ox_pari_stream; |
|
} |
|
}else { |
|
c = (Q)ARG1(arg); |
|
if ( !c || ( NUM(c) && INT(c) && SGN(c)>0 ) ) { |
|
ox_pari_stream_initialized = 1; |
|
ox_pari_stream = c; |
|
*rp = c; |
|
}else { |
|
t=-1; |
|
STOQ(t,*rp); |
|
} |
|
} |
|
return; |
|
} else if ( !strcmp(key,"oxpari_start") ) { |
|
if ( argc(arg) == 1 ) { |
|
*rp = ox_pari_starting_function; |
|
} else { |
|
f = (Obj)ARG1(arg); |
|
if ( !f || OID(f) == O_P) { |
|
ox_pari_starting_function = f; |
|
*rp = f; |
|
}else { |
|
*rp = 0; |
} |
} |
} |
} |
return; |
return; |