[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.52 and 1.53

version 1.52, 2016/08/26 04:56:07 version 1.53, 2017/08/31 02:36:20
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.51 2016/08/24 01:33:53 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.52 2016/08/26 04:56:07 takayama Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 161  static struct {
Line 161  static struct {
         {0,0},          {0,0},
 };  };
   
 void Pctrl(arg,rp)  void Pctrl(NODE arg,Q *rp)
 NODE arg;  
 Q *rp;  
 {  {
         int t,i,n;          int t,i,n;
         int nm,dv;          int nm,dv;
Line 243  Q *rp;
Line 241  Q *rp;
                                         MKNODE(node,s,p);                                          MKNODE(node,s,p);
                                 }                                  }
                                 MKLIST(list,node);                                  MKLIST(list,node);
                                 *rp = list;                                  *rp = (Q)list;
                         }                          }
                 } else {                  } else {
                         list = (LIST)ARG1(arg);                          list = (LIST)ARG1(arg);
Line 289  Q *rp;
Line 287  Q *rp;
                 return;                  return;
         } else if ( !strcmp(key,"oxpari_start") ) {          } else if ( !strcmp(key,"oxpari_start") ) {
         if ( argc(arg) == 1 ) {          if ( argc(arg) == 1 ) {
                         *rp = ox_pari_starting_function;                          *rp = (Q)ox_pari_starting_function;
                 } else {                  } else {
                         f = (Obj)ARG1(arg);                          f = (P)ARG1(arg);
                         if ( !f || OID(f) == O_P) {                          if ( !f || OID(f) == O_P) {
                                 ox_pari_starting_function = f;                                  ox_pari_starting_function = f;
                                 *rp = f;                                  *rp = (Q)f;
                         }else {                          }else {
                                 *rp = 0;                                  *rp = 0;
                         }                          }
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>