[BACK]Return to mlo.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / ox_math

Diff for /OpenXM/src/ox_math/mlo.c between version 1.15 and 1.20

version 1.15, 2003/02/12 08:28:40 version 1.20, 2005/07/19 10:42:53
Line 1 
Line 1 
 /* -*- mode: C -*- */  /* -*- mode: C -*- */
 /* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.14 2003/01/17 11:31:10 ohara Exp $ */  /* $OpenXM: OpenXM/src/ox_math/mlo.c,v 1.19 2003/03/30 08:07:10 ohara Exp $ */
   
 /*  /*
    Copyright (C) Katsuyoshi OHARA, 2000.     Copyright (C) Katsuyoshi OHARA, 2000.
Line 381  int ml_read_packet()
Line 381  int ml_read_packet()
         ox_printf("RESUMEPKT[]");          ox_printf("RESUMEPKT[]");
         break;          break;
     default:      default:
           ;
     }      }
     ox_printf("\n");      ox_printf("\n");
     return pkt;      return pkt;
Line 519  mlo *ml_return()
Line 520  mlo *ml_return()
     mlo *ob;      mlo *ob;
     if (ml_state(INTERRUPTED)) {      if (ml_state(INTERRUPTED)) {
         if (ml_next_packet() == RETURNPKT) {          if (ml_next_packet() == RETURNPKT) {
               /* a computation has done before the interruption */
             ob = ml_return0();              ob = ml_return0();
               ml_clear_interruption();
         }else {          }else {
             ob = (mlo *)new_cmo_indeterminate((cmo *)new_cmo_string("$Aborted"));              ml_clear_interruption();
               MLFlush(stdlink);                    /* need for 4.x */
               ob = ml_return0();                   /* ReturnPacket[$Aborted] */
         }          }
         ml_clear_interruption();  
     }else {      }else {
         ob = ml_return0();          ob = ml_return0();
     }      }

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.20

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