basout.c File Reference

#include <string.h>
#include "machine.h"
#include "stack-def.h"
#include "basout.h"

Include dependency graph for basout.c:

Go to the source code of this file.

Functions
int C2F()	xscimore ()
int C2F()	writewtemore ()
int C2F()	diary ()
int C2F()	writelunitstring ()
int C2F()	xscion ()
int C2F()	xscistring ()
int C2F()	readrtechar ()
int C2F()	basout (integer *io, integer *lunit, char *string, long int notused)

---

Function Documentation

int C2F() basout	(	integer *	io,
		integer *	lunit,
		char *	string,
		long int	notused
	)

Definition at line 18 of file basout.c.

Referenced by genmdsp(), msgout(), msgstxt(), parse(), and run().

{
        static integer iflag;
        static char ch[1];
        static integer ich;

        if (*lunit == C2F(iop).wte)
        {
                /* Sortie sur la sortie standard */
                C2F(xscion)(&iflag);
                *io = 0;
                if (C2F(iop).lct[0] == -1) { return 0; }
                if (C2F(iop).lct[1] > 0) 
                {
                        /* Gestion de la pagination */
                        if (C2F(iop).lct[0] + 3 > C2F(iop).lct[1])
                        {
                                /* nombre maxi de ligne atteint,gestion du more */
                                C2F(iop).lct[0] = 0;
                                if (iflag == 0) 
                                {
                                        /* scilab n'a pas de  fenetre propre */
                                        C2F(writewtemore)();
                                        *(unsigned char *)ch = ' ';
                                        C2F(readrtechar)(ch, 1L);
                                        if (*(unsigned char *)ch != ' ') 
                                        {
                                                ich = 1;
                                        }
                                }
                                else
                                {
                                        /* scilab a une  fenetre  en propre */
                                        C2F(xscimore)(&ich);
                                }
                                if (ich == 1) 
                                {
                                        C2F(iop).lct[0] = -1;
                                        *io = -1;
                                        return 0;
                                }
                        } 
                        else
                        {
                                ++C2F(iop).lct[0];
                        }
                }

                if (iflag == 0) 
                {
                        C2F(writelunitstring)(lunit, string, notused);
                } 
                else 
                {
                        C2F(xscistring)(string, &notused, notused);
                }
                /* write to diary file if required */
                C2F(diary)(string, &notused, notused);
        } 
        else
        {
                /* sortie sur fichier */
                if (*lunit == C2F(iop).wio) 
                {
                        C2F(diary)(string, &notused, notused);
                }
                else 
                {
                        C2F(writelunitstring)(lunit, string,notused);
                }
        }
        return 0;
} 

Here is the caller graph for this function:

int C2F() diary

(

)

Referenced by basout().

Here is the caller graph for this function:

int C2F() readrtechar

(

)

Referenced by basout().

Here is the caller graph for this function:

int C2F() writelunitstring

(

)

Referenced by basout().

Here is the caller graph for this function:

int C2F() writewtemore

(

)

Referenced by basout().

Here is the caller graph for this function:

int C2F() xscimore

(

)

Referenced by basout().

Here is the caller graph for this function:

int C2F() xscion

(

)

int C2F() xscistring

(

)

Referenced by basout(), and Scistring().

Here is the caller graph for this function:

---