basout.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
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.

References C2F, diary(), iflag, L, lct, lunit, readrtechar(), string, wio, writelunitstring(), writewtemore(), wte, xscimore(), xscion(), and xscistring().

{
        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 call graph for this function:

---