OpenXM_contrib2/asir2000/builtin/ctrl.c - diff

Return to ctrl.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

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

version 1.25, 2003/10/20 09:20:14

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.24 2003/10/20 09:17:52 noro Exp $

#include "ca.h"

#include "parse.h"

Line 150 Q *rp;

*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;