Return to test2.c CVS log

Up to [local] / OpenXM / doc / oxlib

Makefile : cleanup around the directory names.
test1.c, test2.c : modified the name and the location of the header file.
test3.c : another sample.

% test3
Input>asir 123     <- push 123
Input>pop          <- pop and print
Output>
00 00 00 14 00 00 00 01 00 00 00 7b
Input>push 00 00 00 14 00 00 00 01 00 00 00 0c  <- push 12
Input>push 00 00 00 14 00 00 00 01 00 00 00 08  <- push 8
Input>push 00 00 00 02 00 00 00 02              <- push int32 2
Input>asir "igcd"   <- push a string (function name)
Input>cmd 269       <- executeFunction
Input>pop
Output>
00 00 00 14 00 00 00 01 00 00 00 04     <- 4 = gcd(12,8)
Input>asir quit                         <- execute asir 'quit' command
%

/* $OpenXM: OpenXM/doc/oxlib/test2.c,v 1.2 2000/03/16 07:34:37 noro Exp $ */
#include <asir/ox.h>

char *asir_ox_pop_string();

main() {
  char *s;
  asir_ox_init(1);  /* Use the network byte order */

  /* Loading the file xm */
  /* This part generates a core dump. I'm trying to find a reason. */
  asir_ox_push_string("xm");
  asir_ox_push_int32(1);
  asir_ox_push_string("load");
  asir_ox_push_cmd(SM_executeFunction);
  

  asir_ox_push_string("fctr(x^10-1);");
  asir_ox_push_cmd(SM_executeStringByLocalParser);

  /*
  asir_ox_push_string("x^10-1;");
  asir_ox_push_cmd(SM_executeStringByLocalParser);
  asir_ox_push_int32(1);
  asir_ox_push_string("fctr");
  asir_ox_push_cmd(SM_executeFunction);
  */

  s = asir_ox_pop_string();
  printf("%s\n",s);

  printf("------------------------------------------\n");
  asir_ox_push_object_given_by_a_string("12345;");
  s = asir_ox_pop_string();
  printf("%s\n",s);

}

asir_ox_push_int32(int k) {
  static unsigned char p[8];
  *((int *)p) = htonl((int) CMO_INT32);
  *((int *)(p+4)) = htonl(k);
  debug_packet(p,8);
  asir_ox_push_cmo(p);
}

asir_ox_push_string(char *s) {
  unsigned char *p;
  p = (unsigned char *)GC_malloc(strlen(s)+8);
  if (sizeof(int) != 4) {
	fprintf(stderr,"sizeof(int) is not equal to 4.\n"); exit(1);
  }
  *((int *)p) = htonl((int) CMO_STRING);
  *((int *)(p+4)) = htonl((int ) strlen(s));
  strcpy(p+8,s);
  debug_packet(p,strlen(s)+8);
  asir_ox_push_cmo(p);
}

asir_ox_push_object_given_by_a_string(char *s) {
  asir_ox_push_string(s);
  asir_ox_push_cmd(SM_executeStringByLocalParser);
}

char *asir_ox_pop_string() {
  int size;
  char *s;
  int tag;
  asir_ox_push_int32(1);
  asir_ox_push_string("rtostr");
  asir_ox_push_cmd(SM_executeFunction);

  size = asir_ox_peek_cmo_size();
  s = (char *)GC_malloc(size+1);
  asir_ox_pop_cmo(s,size+1);
  s[size] = 0;
  tag = ntohl(*((int *)s));
  if (tag != CMO_STRING) {
	fprintf(stderr,"asir_ox_pop_string: the cmo object is not a string. Returns the empty string.\n");
	return("");
  }else{
	return(s+8);
  }
}
  
debug_packet(char *p,int size) {
  int i;
  for (i=0; i<size; i++) {
    printf(" %2x ",p[i]);
	if ((p[i] >= ' ') && (p[i] < 0x7f)) {
	  printf("(%c) ",p[i]);
	}
  }
  printf("\n");
}