[BACK]Return to assert1.rr CVS log [TXT][DIR] Up to [local] / OpenXM / src / ox_python

Diff for /OpenXM/src/ox_python/assert1.rr between version 1.2 and 1.3

version 1.2, 2018/09/08 03:05:19 version 1.3, 2021/12/31 07:43:48
Line 2  pari(nextprime,10)$
Line 2  pari(nextprime,10)$
 if (Pid == 0) {  if (Pid == 0) {
   Pid=ox_launch(0,getenv("OpenXM_HOME")+"/src/ox_python/ox_python")$    Pid=ox_launch(0,getenv("OpenXM_HOME")+"/src/ox_python/ox_python")$
 }else{}$  }else{}$
 ox_execute_string(Pid,"from time import time,ctime\nprint 'Today is',ctime(time())\n")$  // It is executed by PyRun_SimpleString()  ox_execute_string(Pid,"from time import time,ctime\nprint('Today is',ctime(time()))\n")$  // It is executed by PyRun_SimpleString()
 printf("result of ox_execute_string = %a, see also server window\n",ox_pop_cmo(Pid))$  printf("result of ox_execute_string = %a, see also server window\n",ox_pop_cmo(Pid))$
 ox_cmo_rpc(Pid,"PyRun_String","str(eval('1+2'))")$  ox_cmo_rpc(Pid,"PyRun_String","str(eval('1+2'))")$
 printf("result of PyRun_String str(eval('1+2')) = %a\n",ox_pop_cmo(Pid))$  printf("result of PyRun_String str(eval('1+2')) = %a\n",ox_pop_cmo(Pid))$
Line 12  ox_cmo_rpc(Pid,"PyRun_String","1+2")$
Line 12  ox_cmo_rpc(Pid,"PyRun_String","1+2")$
 printf("result of PyRun_String 1+2= %a\n",ox_pop_cmo(Pid))$  printf("result of PyRun_String 1+2= %a\n",ox_pop_cmo(Pid))$
 ox_cmo_rpc(Pid,"eval","1+2")$  ox_cmo_rpc(Pid,"eval","1+2")$
 printf("result of eval 1+2= %a\n",ox_pop_cmo(Pid))$  printf("result of eval 1+2= %a\n",ox_pop_cmo(Pid))$
   
   ox_cmo_rpc(Pid,"PyRun_String","str(eval('1+2'))")$
   printf("result type of PyRun_String str(eval('1+2')) = %a\n",type(ox_pop_cmo(Pid)))$
   ox_cmo_rpc(Pid,"PyRun_String","print('Hello')")$
   printf("result type of PyRun_String print('Hello')= %a\n",type(ox_pop_cmo(Pid)))$
   ox_cmo_rpc(Pid,"PyRun_String","1+2")$
   printf("result type of PyRun_String 1+2= %a\n",type(ox_pop_cmo(Pid)))$
   ox_cmo_rpc(Pid,"eval","1+2")$
   printf("result type of eval 1+2= %a\n",type(ox_pop_cmo(Pid)))$
   printf("where type=7 string, type=10 int32\n");
 end$  end$
   

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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