[BACK]Return to asir_sm_main.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/asir_sm_main.c between version 1.3 and 1.4

version 1.3, 2000/08/22 05:04:25 version 1.4, 2018/03/29 01:32:54
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/parse/asir_sm_main.c,v 1.2 2000/08/21 08:31:46 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/asir_sm_main.c,v 1.3 2000/08/22 05:04:25 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 54  extern jmp_buf env;
Line 54  extern jmp_buf env;
 extern int Asir_OperandStackPtr;  extern int Asir_OperandStackPtr;
   
 main() {  main() {
         char buf[BUFSIZ*100];    char buf[BUFSIZ*100];
         char *data;    char *data;
         int size,cur_sig;    int size,cur_sig;
   
         Asir_Start();    Asir_Start();
   
         while ( 1 ) {    while ( 1 ) {
                 while ( 1 ) {      while ( 1 ) {
                         cur_sig = sigsetmask(~0);        cur_sig = sigsetmask(~0);
                         if ( !fgets(buf,BUFSIZ*100,stdin) )        if ( !fgets(buf,BUFSIZ*100,stdin) )
                                 exit(0);          exit(0);
                         sigsetmask(cur_sig);        sigsetmask(cur_sig);
                         switch ( buf[0] ) {        switch ( buf[0] ) {
                                 case 'u':          case 'u':
                                         Asir_ExecuteString(buf+1);            Asir_ExecuteString(buf+1);
                                         break;            break;
                                 case 'o':          case 'o':
                                         printf("%s\n",Asir_PopString());            printf("%s\n",Asir_PopString());
                                         break;            break;
                                 case 's':          case 's':
                                         Asir_Set(buf+1);            Asir_Set(buf+1);
                                         break;            break;
                                 case 'O':          case 'O':
                                         data = (char *)Asir_PopBinary(&size);            data = (char *)Asir_PopBinary(&size);
                                         Asir_PushBinary(size,data);            Asir_PushBinary(size,data);
                                         break;            break;
                                 default:          default:
                                         break;            break;
                         }        }
                 }      }
         }    }
 }  }
   
 KSstart(){}  KSstart(){}
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>