Scilab [trunk]: scilab/modules/core/src/c/warningmode.c Source File

00001 /*-----------------------------------------------------------------------------------*/
00002 /* INRIA 2007 */
00003 /* Allan CORNET */
00004 /*-----------------------------------------------------------------------------------*/
00005 #include "warningmode.h"
00006 /*-----------------------------------------------------------------------------------*/
00007 BOOL WARNINGMODEON=TRUE;
00008 /*-----------------------------------------------------------------------------------*/
00009 BOOL setWarningMode(BOOL ON)
00010 {
00011         WARNINGMODEON = ON;
00012         return WARNINGMODEON;
00013 }
00014 /*-----------------------------------------------------------------------------------*/
00015 BOOL getWarningMode(void)
00016 {
00017         return WARNINGMODEON;
00018 }
00019 /*-----------------------------------------------------------------------------------*/
00020 int C2F(iswarningon)(int *rep)
00021 {
00022         if (WARNINGMODEON) *rep=1;
00023         else *rep=0;
00024         return 0;
00025 }
00026 /*-----------------------------------------------------------------------------------*/