[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.47 and 1.49

version 1.47, 2015/08/06 10:01:51 version 1.49, 2016/03/31 06:41: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.46 2015/08/04 06:20:44 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/ctrl.c,v 1.48 2015/08/14 13:51:54 fujimoto Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
 #include <string.h>  #include <string.h>
 #if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__)  #if defined(VISUAL) || defined(__MINGW32__)
 #include <windows.h>  #include <windows.h>
 #include <winnls.h>  #include <winnls.h>
 #else  #else
Line 172  Q *rp;
Line 172  Q *rp;
         STRING s;          STRING s;
         NODE node,p;          NODE node,p;
         LIST list;          LIST list;
           extern Q ox_pari_stream;
           extern int ox_pari_stream_initialized;
   
         if ( !arg ) {          if ( !arg ) {
                 *rp = 0;                  *rp = 0;
Line 260  Q *rp;
Line 262  Q *rp;
                         }                          }
                 }                  }
                 return;                  return;
           } else if ( !strcmp(key,"oxpari_id") ) {
           *rp = 0;
           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;
         }          }
         for ( i = 0; ctrls[i].key; i++ )          for ( i = 0; ctrls[i].key; i++ )
                 if ( !strcmp(key,ctrls[i].key) )                  if ( !strcmp(key,ctrls[i].key) )
Line 292  void Psysinfo(LIST *rp)
Line 315  void Psysinfo(LIST *rp)
     MKLIST(*rp,n);      MKLIST(*rp,n);
 }  }
   
 #if !defined(VISUAL) && !defined(__MINGW32__) && !defined(__MINGW64__)  #if !defined(VISUAL) && !defined(__MINGW32__)
   
 static char *get_lang()  static char *get_lang()
 {  {
Legend:
Removed from v.1.47  
changed lines
  Added in v.1.49
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>