main.c

运行于T-engine（采用T-Kernel）之上的例子源代码

/*
 *	sample_3_1_2_1-main.c(sample program/main)
 *
 *	(C) Copyright 2003 by Personal Media Corporation.
 */

#include	"sample.h"


/* 柒婶簇眶プロトタイプ */
LOCAL	ERR	init_win(VOID);

LOCAL	VOID	fin_proc(VOID);

EXPORT	W	mydid = -1;		/* databox ID			*/


/* ---------------------------------------------------------------- 柒婶簇眶 */
/*
 * init window 
 */
LOCAL	ERR	init_win(VOID)
{
	ERR	er;

	er = init_window();
	if (er < ER_OK) {
		goto EXIT;
	}

	er = open_window();//extern
	if (er < ER_OK) {
		goto EXIT;
	}
	er = crepar_window();//extern
	if (er < ER_OK) {
		goto EXIT;
	}

	redisp_window(NULL);//extern

EXIT:
	return er;
}


/*
 * 介袋步借妄
 */
LOCAL	ERR	init_proc(VOID)
{
	ERR	er;

	er = ER_OK;

	mymid = -1;
	doloop = False;

	mydid = b_dopn_dat(NULL);
	if (mydid < ER_OK) {
		er = mydid;
		goto EXIT;
	}

	er = init_win();
	if (er < ER_OK) 
		goto EXIT;	

	er = create_menu();//extern

EXIT:
	return er;
}


/*
 * 姜位借妄
 */
LOCAL	VOID	fin_proc(VOID)
{
	dest_menu();//extern

	dest_window();//extern

	if (mydid >= 0) {
		b_dcls_dat(0);
	}
	mydid = -1;

	return;
}


/* ---------------------------------------------------- main(cli style main) */
/*
 * main(cli style main)
 */
EXPORT	W	main(W argc, TC **argv)
{
	W	rv;

	rv = 0;

	rv = init_proc();
	if (rv >= ER_OK) 
		rv = event_loop();//extern
	
	fin_proc();

	b_ext_prc(rv);

	return rv;
}