[BACK]Return to ctrl.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/ctrl.c between version 1.49 and 1.50

version 1.49, 2016/03/31 06:41:20 version 1.50, 2016/04/01 03:04:35
Line 45 
Line 45 
  * 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.48 2015/08/14 13:51:54 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"
Line 172  Q *rp;
Line 172  Q *rp;
         STRING s;          STRING s;
         NODE node,p;          NODE node,p;
         LIST list;          LIST list;
           P f;
         extern Q ox_pari_stream;          extern Q ox_pari_stream;
         extern int ox_pari_stream_initialized;          extern int ox_pari_stream_initialized;
           extern P ox_pari_starting_function;
   
         if ( !arg ) {          if ( !arg ) {
                 *rp = 0;                  *rp = 0;
Line 263  Q *rp;
Line 265  Q *rp;
                 }                  }
                 return;                  return;
         } else if ( !strcmp(key,"oxpari_id") ) {          } else if ( !strcmp(key,"oxpari_id") ) {
         *rp = 0;  
         if ( argc(arg) == 1 ) {          if ( argc(arg) == 1 ) {
             if(!ox_pari_stream_initialized) {              if(!ox_pari_stream_initialized) {
                 t=-1;                  t=-1;
Line 280  Q *rp;
Line 281  Q *rp;
                         }else {                          }else {
                 t=-1;                  t=-1;
                 STOQ(t,*rp);                  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;
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>