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

00001 /*------------------------------------------------------------------------*/
00002 /*    Copyright (C) Inria */
00003 /*------------------------------------------------------------------------*/
00004 #include <stdio.h>
00005 #include <string.h>
00006 #include "machine.h"
00007 #include "prompt.h"
00008 /*------------------------------------------------------------------------*/
00009 static char Sci_Prompt[10];
00010 /*------------------------------------------------------------------------*/
00011 /* setprlev : set the current prompt string */
00012 /*------------------------------------------------------------------------*/
00013 void C2F(setprlev)( int *pause)
00014 {
00015         if ( *pause == 0 ) 
00016                 sprintf(Sci_Prompt,SCIPROMPT);
00017         else if ( *pause > 0 )
00018                 sprintf(Sci_Prompt,SCIPROMPT_INTERRUPT,*pause);
00019         else
00020                 sprintf(Sci_Prompt,SCIPROMPT_PAUSE);
00021 }
00022 /*------------------------------------------------------------------------*/
00023 void GetCurrentPrompt(char *CurrentPrompt)
00024 {
00025         if (CurrentPrompt)
00026         {
00027                 strcpy(CurrentPrompt,Sci_Prompt);
00028         }
00029 }
00030 /*------------------------------------------------------------------------*/