screenio.c File Reference

#include "config.h"
#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include "libcob.h"
#include "coblocal.h"

Include dependency graph for screenio.c:

Data Structures
struct	cob_inp_struct

Macros
#define	COB_LIB_EXPIMP
#define	COB_INP_FLD_MAX   512U
#define	COB_INP_SIZE   (COB_INP_FLD_MAX * sizeof(struct cob_inp_struct))
#define	COB_CH_UL   ((const chtype)'_')
#define	COB_CH_SP   ((const chtype)' ')
#define	COB_CH_AS   ((const chtype)'*')

Functions
static void	cob_speaker_beep (void)
void	cob_exit_screen (void)
void	cob_field_display (cob_field *f, cob_field *line, cob_field *column, cob_field *fgc, cob_field *bgc, cob_field *fscroll, const int attr)
void	cob_field_accept (cob_field *f, cob_field *line, cob_field *column, cob_field *fgc, cob_field *bgc, cob_field *fscroll, cob_field *ftimeout, cob_field *prompt, const int attr)
void	cob_screen_display (cob_screen *s, cob_field *line, cob_field *column)
void	cob_screen_accept (cob_screen *s, cob_field *line, cob_field *column, cob_field *ftimeout)
void	cob_screen_line_col (cob_field *f, const int l_or_c)
void	cob_screen_set_mode (const cob_u32_t smode)
int	cob_sys_clear_screen (void)
int	cob_sys_sound_bell (void)
void	cob_accept_escape_key (cob_field *f)
int	cob_sys_get_csr_pos (unsigned char *fld)
int	cob_sys_get_scr_size (unsigned char *line, unsigned char *col)
void	cob_init_screenio (cob_global *lptr, runtime_env *runtimeptr)

Variables
static cob_global *	cobglobptr
static cob_u32_t	cob_legacy
static char *	cob_legacy_env

Macro Definition Documentation

#define COB_CH_AS   ((const chtype)'*')

#define COB_CH_SP   ((const chtype)' ')

#define COB_CH_UL   ((const chtype)'_')

#define COB_INP_FLD_MAX   512U

#define COB_INP_SIZE   (COB_INP_FLD_MAX * sizeof(struct cob_inp_struct))

#define COB_LIB_EXPIMP

Function Documentation

void cob_accept_escape_key

(

cob_field *

f

)

References COB_ACCEPT_STATUS, and cob_set_int().

{
    cob_set_int (f, COB_ACCEPT_STATUS);
}

void cob_exit_screen

(

void

)

Referenced by cob_runtime_error(), and cob_terminate_routines().

{
}

void cob_field_accept	(	cob_field *	f,
		cob_field *	line,
		cob_field *	column,
		cob_field *	fgc,
		cob_field *	bgc,
		cob_field *	fscroll,
		cob_field *	ftimeout,
		cob_field *	prompt,
		const int	attr
	)

References COB_UNUSED.

Referenced by cob_accept().

{
    COB_UNUSED (f);
    COB_UNUSED (line);
    COB_UNUSED (column);
    COB_UNUSED (fgc);
    COB_UNUSED (bgc);
    COB_UNUSED (fscroll);
    COB_UNUSED (ftimeout);
    COB_UNUSED (prompt);
    COB_UNUSED (attr);
}

void cob_field_display	(	cob_field *	f,
		cob_field *	line,
		cob_field *	column,
		cob_field *	fgc,
		cob_field *	bgc,
		cob_field *	fscroll,
		const int	attr
	)

References COB_UNUSED.

Referenced by cob_display().

{
    COB_UNUSED (f);
    COB_UNUSED (line);
    COB_UNUSED (column);
    COB_UNUSED (fgc);
    COB_UNUSED (bgc);
    COB_UNUSED (fscroll);
    COB_UNUSED (attr);
}

void cob_init_screenio	(	cob_global *	lptr,
		runtime_env *	runtimeptr
	)

References cob_check_env_true(), cob_legacy, runtime_env::cob_legacy, cob_legacy_env, runtime_env::cob_legacy_env, cob_save_env_value(), and NULL.

Referenced by cob_init().

{
    char* s;

    /*
     * TODO: needs Documentation
     */
    if ((s = getenv ("COB_LEGACY")) != NULL) {
        if (cob_check_env_true(s)) {
            cob_legacy_env = cob_save_env_value(cob_legacy_env, s);

            cob_legacy = 1U;
        }
    }

    cobglobptr = lptr;
    runtimeptr->cob_legacy_env = cob_legacy_env;
    runtimeptr->cob_legacy = &cob_legacy;
}

void cob_screen_accept	(	cob_screen *	s,
		cob_field *	line,
		cob_field *	column,
		cob_field *	ftimeout
	)

References COB_UNUSED.

{
    COB_UNUSED (s);
    COB_UNUSED (line);
    COB_UNUSED (column);
    COB_UNUSED (ftimeout);
}

void cob_screen_display	(	cob_screen *	s,
		cob_field *	line,
		cob_field *	column
	)

References COB_UNUSED.

{
    COB_UNUSED (s);
    COB_UNUSED (line);
    COB_UNUSED (column);
}

void cob_screen_line_col	(	cob_field *	f,
		const int	l_or_c
	)

References cob_set_int().

{
    if (!l_or_c) {
        cob_set_int (f, 24);
    } else {
        cob_set_int (f, 80);
    }
}

void cob_screen_set_mode

(

const cob_u32_t

smode

)

References COB_UNUSED.

Referenced by cob_sys_system().

{
    COB_UNUSED (smode);
}

static void cob_speaker_beep ( void  )

static

Referenced by cob_sys_sound_bell().

{
    int fd;

    fd = fileno (stdout);
    if (fd >= 0) {
        (void)write (fd, "\a", (size_t)1);
    }
}

int cob_sys_clear_screen

(

void

)

{
    return 0;
}

int cob_sys_get_csr_pos

(

unsigned char *

fld

)

References COB_CHK_PARMS.

{
#ifdef  COB_GEN_SCREENIO
    int cline;
    int ccol;
#endif

    COB_CHK_PARMS (CBL_GET_CSR_POS, 1);

#ifdef  COB_GEN_SCREENIO
    getyx (stdscr, cline, ccol);
    fld[0] = (unsigned char)cline;
    fld[1] = (unsigned char)ccol;
    
#else
    fld[0] = 1U;
    fld[1] = 1U;
#endif
    return 0;
}

int cob_sys_get_scr_size	(	unsigned char *	line,
		unsigned char *	col
	)

References COB_CHK_PARMS, COLS, and LINES.

{
    COB_CHK_PARMS (CBL_GET_SCR_SIZE, 2);

#ifdef  COB_GEN_SCREENIO
    *line = (unsigned char)LINES;
    *col = (unsigned char)COLS;
#else
    *line = 24U;
    *col = 80U;
#endif
    return 0;
}

int cob_sys_sound_bell

(

void

)

References COB_BEEP_VALUE, __cob_global::cob_screen_initialized, and cob_speaker_beep().

{
    if (COB_BEEP_VALUE == 9) {
        return 0;
    }
#ifdef  COB_GEN_SCREENIO
    if (!cobglobptr->cob_screen_initialized &&
        COB_BEEP_VALUE != 2) {
        cob_screen_init ();
    }
    cob_beep ();
#else
    cob_speaker_beep ();
#endif
    return 0;
}

Variable Documentation

cob_u32_t cob_legacy

static

Referenced by cob_init_screenio().

char* cob_legacy_env

static

Referenced by cob_init_screenio().

cob_global* cobglobptr

static