Return to asir.hh CVS log

Up to [local] / OpenXM / src / kan96xx / plugin

Annotation of OpenXM/src/kan96xx/plugin/asir.hh, Revision 1.1.1.1

1.1       maekawa     1: else if (strcmp(key,"Asir_ExecuteString") == 0) {
                      2:   if (size != 2) errorKan1("%s\n","[(Asir_ExecuteString)  string] extension result.");
                      3:   obj1 = getoa(obj,1);
                      4:   if (obj1.tag != Sdollar) errorKan1("%s\n","[(Asir_ExecuteString)  string] extension result");
                      5:   rob = KpoInteger(Asir_ExecuteString(obj1.lc.str));
                      6: }
                      7: else if (strcmp(key,"Asir_PopString") == 0) {
                      8:   if (size != 1) errorKan1("%s\n","[(Asir_PopString)] extension result.");
                      9:   rob = KpoString(Asir_PopString());
                     10: }
                     11: else if (strcmp(key,"Asir_Start") == 0) {
                     12:   if (size != 1) errorKan1("%s\n","[(Asir_Start)] extension result.");
                     13:   rob = KpoInteger(Asir_Start());
                     14: }
                     15: else if (strcmp(key,"Asir_to_kan") == 0) {
                     16:   if (size != 2) errorKan1("%s\n","[(Asir_to_kan)  string] extension result.");
                     17:   obj1 = getoa(obj,1);
                     18:   if (obj1.tag != Sdollar) errorKan1("%s\n","[(Asir_to_kan)  string] extension result");
                     19:   rob = KpoString(KasirKanConvert(obj1.lc.str));
                     20: }
                     21: else if (strcmp(key,"Asir_Set") == 0) {
                     22:   if (size != 2) errorKan1("%s\n","[(Asir_Set)  string] extension result.");
                     23:   obj1 = getoa(obj,1);
                     24:   if (obj1.tag != Sdollar) errorKan1("%s\n","[(Asir_Set)  string] extension result");
                     25:   rob = KpoInteger(Asir_Set(obj1.lc.str));
                     26: }
                     27: else if (strcmp(key,"Asir_PushBinary") == 0) {
                     28:   if (size != 2) errorKan1("%s\n","[(Asir_PushCmo) cmo-obj] extension result.");
                     29:   obj1 = getoa(obj,1);
                     30:   if (obj1.tag != CMO) {
                     31:     errorKan1("%s\n","Argument must be cmo-object.");
                     32:   }
                     33:   rob=KpoInteger(Asir_PushBinary(((struct cmoBuffer *)(obj1.lc.voidp))->size,
                     34:                                  (((struct cmoBuffer *)(obj1.lc.voidp))->buf)));
                     35: }
                     36: else if (strcmp(key,"Asir_PopBinary") == 0) {
                     37:   if (size != 1) errorKan1("%s\n","[(Asir_PopCmo)] extension cmo-obj.");
                     38:   rob.tag =CMO;
                     39:   rob.lc.voidp = GC_malloc(sizeof(struct cmoBuffer));
                     40:   if (rob.lc.voidp == NULL) {
                     41:     fprintf(stderr,"No more memory.");
                     42:   }
                     43:   ((struct cmoBuffer *)(rob.lc.voidp))->buf = Asir_PopBinary(&size);
                     44:   ((struct cmoBuffer *)(rob.lc.voidp))->size = size;
                     45:   ((struct cmoBuffer *)(rob.lc.voidp))->pos = size;
                     46:   ((struct cmoBuffer *)(rob.lc.voidp))->rpos = 0;
                     47: }
                     48:
                     49:
                     50:
                     51: