00001 /*-----------------------------------------------------------------------------------*/ 00002 /* INRIA 2006 */ 00003 /* Allan CORNET */ 00004 /*-----------------------------------------------------------------------------------*/ 00005 #include "machine.h" 00006 #include "stack-c.h" 00007 #include "basout.h" 00008 #include "msgstxt.h" 00009 /*-----------------------------------------------------------------------------------*/ 00010 int C2F(msgstxt)(char *txt,long int txt_len) 00011 { 00012 static int io; 00013 C2F(basout)(&io, &C2F(iop).wte,txt,txt_len); 00014 return 0; 00015 } 00016 /*-----------------------------------------------------------------------------------*/ 00017
1.5.1