OpenXM_contrib2/asir2000/builtin/ctrl.c - diff

Return to ctrl.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/ctrl.c between version 1.24 and 1.27

version 1.24, 2003/10/20 09:17:52

version 1.27, 2003/12/02 06:56:47

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.23 2003/10/19 02:54:41 ohara Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.26 2003/10/21 04:28:48 takayama Exp $

#include "ca.h"

#include "parse.h"

Line 67 extern int StrassenSize;

extern int outputstyle;

extern int fortran_output;

extern int real_digit;

extern int real_binary;

#if defined(INTERVAL)

extern int zerorewrite;

#endif

Line 102 static struct {

Line 103 static struct {

{"outputstyle",&outputstyle},

{"double_output",&double_output},

{"real_digit",&real_digit},

{"real_binary",&real_binary},

{"fortran_output",&fortran_output},

{"new_hensel",&use_new_hensel},

{"print_quote",&print_quote},

Line 147 Q *rp;

Line 149 Q *rp;

} else if ( !strcmp(key,"prompt") ) {

/* special treatment is necessary for "prompt" */

if ( argc(arg) == 1 ) {

*rp = (Q)user_defined_prompt;

if ((!do_quiet) && (user_defined_prompt == (Obj)0)) *rp=ONE;

else *rp = (Q)user_defined_prompt;

} else {

c = (Q)ARG1(arg);

if ( !c || OID(c) == O_STR ) {

if ( !c ) {

if ( OID(c) == O_STR ) {

do_quiet = 1;

str = BDY((STRING)c);

user_defined_prompt = 0;

for ( i = 0, n = 0; str[i]; i++ )

*rp = 0;

if ( str[i] == '%' )

} else if ( OID(c) == O_STR ) {

n++;

str = BDY((STRING)c);

if ( n >= 2 )

for ( i = 0, n = 0; str[i]; i++ )

error("ctrl : prompt : invalid prompt specification");

if ( str[i] == '%' )

}

n++;

if ( n >= 2 )

error("ctrl : prompt : invalid prompt specification");

do_quiet = 1;

user_defined_prompt = (Obj)c;

*rp = c;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>