Return to bench-1.rr CVS log

Up to [local] / OpenXM / src / asir-contrib / packages / src

Renaming:
 bench-1 --> bench-1.rr
 beta    --> beta.rr
 fourier-0 --> edu_fourier_0.rr
 hg21 --> taka_hg21.rr
 igraph --> igraph.rr
 sets --> oh_sets.rr
 uldet --> uldet.rr

/*$OpenXM: OpenXM/src/asir-contrib/packages/src/bench-1.rr,v 1.1 2005/04/08 06:25:12 takayama Exp $ */
/* Old: bench-1, see Attic */

/* Comparison between string data and CMO_ZZ */

def zz1(P,A) {
  M = ox_get_serverinfo(P);
  if (M[0][1] == "ox_asir") {
     Asir = 1 ;  print("Your peer is ox_asir.");
  }else{
     Asir = 0;   print("We assume that your peer is ox_sm1.");
  }
  C = 2^A;
  print("Checking ",0);
  print(C);
  print("----------------------------------------------------");
  for (I=C; I<C+3; I++) {
    if (Asir == 1) {
      ox_execute_string(P,rtostr(I)+";")$
    }else{
      ox_execute_string(P,"("+rtostr(I)+")..")$
    }
    D = ox_pop_cmo(P);
    print(D-I);
  }
}

def zz2(P,A,Type) {
  M = ox_get_serverinfo(P);
  if (M[0][1] != "Ox_system=ox_sm1_ox_sm1_forAsir") {
     print("The peer must be ox_sm1");
     return(-1);
  }
  ox_execute_string(P,"[(cmoLispLike) 0] extension [(oxPrintMessage) 0] extension ");
  ox_pop_cmo(P);

  C = 2^A;
  print("Checking ",0);
  print(C);
  print("----------------------------------------------------");
  if (Type == 1) {
     print("Time for execute_string (20 times)");
  }else{
     print("Time for sending cmo (20 times)");
  }
  shell("date");
  B = ox_push_cmo(P,C);
  S = "("+ox_pop_string(P)+")..";
  for (I=0; I<20; I++) {
    if (Type == 1) {
      ox_execute_string(P,S);
    }else{
      ox_push_cmo(P,C);
    }
  }
  print(C-ox_pop_cmo(P));
  shell("date");
}
/*&ja
@code{zz2(@var{p},@var{k},@var{type})} $B$O<1JLHV9f(B @var{p} $B$N(B ox_sm1 server
$B$K(B 2^@var{k} $B$r(B 20 $B2s$*$/$j:G8e$N(B 1 $B8D$r(B pop $B$9$k(B.
@var{type} $B$,(B 1 $B$N$H$-$O(B 2^@var{k} $B$NCM$rJ8;zNs$H$7$FAw$j(B, executeStringByLocalParser $B$GJ8;zNs$r(B object $B$XJQ49$9$k(B.
@var{type} $B$,(B 1 $B$G$J$$$H$-$O(B 2^@var{k} $B$NCM$r(B CMO_ZZ $B$H$7$FAw$k(B.

2^100000 $B$OJ8;zNs%G!<%?$H$7$F$O(B 30103 byte $B$"$j(B,
99900 $B$G$O$8$^$j(B 09376 $B$G$*$o$k(B.
135MHz pentium machine $B$G(B localhost $B$G(B, $BDL>o$N(B desktop $B4D6-$G<B;~4V$r7WB,(B
$B$9$k$H(B, 2^100000 $B$rJ8;zNs$H$7$F(B 20 $B2sAw$k$H(B, 12 $BIC(B,
CMO_ZZ $B$H$7$FAw$k$H(B, 2 $BIC$N;~4V$,$+$+$C$?(B.
 
$B$J$*(B @code{ox_asir} $B$K$?$$$7$F(B OX_DATA_ASIR_LOCAL $B$GF1$8%G!<%?$rAw$k$H(B,
1 $BIC0J2<$G$"$C$?(B. 
*/
/*&C
@example
[155] load("xm");
1
xm Version 19991118. ox_help(0); ox_help("keyword"); for help message 
[256] load("bench-1.rr");
1
[260] sm1_start();
0
[261] zz2(0,10,0);
Checking 1024
----------------------------------------------------
Time for sending cmo (20 times)
Tue Nov 23 12:10:02 JST 1999
0
Tue Nov 23 12:10:02 JST 1999
0
[262] zz2(0,10,1);
Checking 1024
----------------------------------------------------
Time for execute_string (20 times)
Tue Nov 23 12:10:09 JST 1999
0
Tue Nov 23 12:10:09 JST 1999
0
[263] zz2(0,100000,0);
.....08402597025155304734389883109376
----------------------------------------------------
Time for sending cmo (20 times)
Tue Nov 23 12:10:38 JST 1999
0
Tue Nov 23 12:10:40 JST 1999
0
[264] zz2(0,100000,1);
.....08402597025155304734389883109376
----------------------------------------------------
Time for execute_string (20 times)
Tue Nov 23 12:11:10 JST 1999
0
Tue Nov 23 12:11:22 JST 1999
0
@end example
*/

def zz2_asirlocal(P,A) {
  M = ox_get_serverinfo(P);
  if (M[0][1] != "ox_asir") {
     print("The peer must be ox_asir");
     return(-1);
  }

  C = 2^A;
  print("Checking ",0);
  print(C);
  print("----------------------------------------------------");
  print("Time for sending OX_ASIR_LOCAL_OBJECT (20 times)");

  shell("date");
  for (I=0; I<20; I++) {
    ox_push_local(P,C);
  }
  print(C-ox_pop_local(P));
  shell("date");
}

end$