main.c

T-kernel 的extension源代码

/*
 *----------------------------------------------------------------------
 *    T-Kernel / Standard Extension
 *
 *    Copyright (C) 2006 by Ken Sakamura. All rights reserved.
 *    T-Kernel / Standard Extension is distributed 
 *      under the T-License for T-Kernel / Standard Extension.
 *----------------------------------------------------------------------
 *
 *    Version:   1.00.00
 *    Released by T-Engine Forum(http://www.t-engine.org) at 2006/8/11.
 *
 *----------------------------------------------------------------------
 */

/*
 *	MAIN.c (libtkse)
 *
 *	Process startup
 */

#include <basic.h>
#include <extension/extension.h>
#include <tcode.h>

#if ALLOCA_NOSPT
#include <stdlib.h>
#define	alloca	malloc
#else
#include <alloca.h>
#endif

#if defined(__GNUC__) && defined(__PIC__)
#    define	WEAK	__attribute__ ((weak))
#else
#    define	WEAK
#endif

EXPORT W MAIN( MESSAGE *msg )
{
IMPORT	ER	main( W ac, TC *av[] ) WEAK;
	W	i, ac;
	TC	*tp;
	TC	**av;

	ac = 0;
	if (msg->msg_type == 0) {
		tp = (TC*)&msg->msg_body;
		*(tp + ((UW)msg->msg_size / sizeof(TC))) = 0;
		for ( ; ; ac++) {
			while (*tp && (*tp <= TK_KSP)) {
				tp++;
			}
			if (*tp == TNULL) {
				break;
			}
			while (*tp > TK_KSP) {
				tp++;
			}
		}
	}
	av = (TC**)alloca((size_t)((W)sizeof(TC*) * (ac + 1)));
	tp = (TC*)&msg->msg_body;
	for (i = 0; i < ac; i++) {
		while (*tp <= TK_KSP) {
			tp++;
		}
		av[i] = tp;
		while (*tp > TK_KSP) {
			tp++;
		}
		*(tp++) = TNULL;
	}
	av[i] = NULL;

	if ( &main != NULL ) {
		return main(ac, av);
	}
	return E_MACV;
}