/* $PSLibId: Run-time Library Release 4.0$ */
/*
 *
 *	TOD functions (part1)
 : 	TODアニメーション処理関数群（その１）
 *
 *
 *		Version 1.30	Apr,  17, 1996
 *
 *		Copyright (C) 1995 by Sony Computer Entertainment Inc.
 *			All rights Reserved
 */


#include <libps.h>

#include "tod.h"

/*
 *  Prototype definition
 :  プロトタイプ宣言
 */
void TodInitObjTable();
GsDOBJ2 *TodSearchObjByID();
GsDOBJ2 *TodCreateNewObj();
GsDOBJ2 *TodRemoveObj();
u_long *TodSearchTMDByID();

/*
 *  Initialize Object table
 *       GsDOBJ2,GsCOORDINATE2, GsCOORD2PARAM 
 */
void TodInitObjTable(tblP, objAreaP, objCoordP, objParamP, nObj)
TodOBJTABLE *tblP;		/* : テーブルへのポインタ */
GsDOBJ2 *objAreaP;		/* : オブジェクト(DOBJ2)領域 */
GsCOORDINATE2 *objCoordP;	/* : ローカル座標領域 */
GsCOORD2PARAM *objParamP;	/* : ローカル座標のパラメータ領域 */
int nObj;			/* Maximum number of object */
{
	int i;

	tblP->nobj = 0;		/* number of available object */
	tblP->maxobj = nObj;	/* maximum number of object*/
	tblP->top = objAreaP;	/* object area */
	i = 0;
	for(i = 0; i < nObj; i++) {
		/* Initialize members */
		objAreaP->attribute = 0x80000000;
		objAreaP->id = TOD_OBJ_UNDEF;
		objAreaP->coord2 = objCoordP;
		objAreaP->coord2->param = objParamP;
		objAreaP->tmd = NULL;
		objAreaP++;
		objCoordP++;
		objParamP++;
	}
}

/*
 *  Search object in the object table by ID
 */
GsDOBJ2 *TodSearchObjByID(tblP, id)
TodOBJTABLE *tblP;	/* : オブジェクトテーブルへポインタ */
u_long id;		/* ID number for search */
{
	GsDOBJ2 *objP;
	int i;

	objP = tblP->top;
	for(i = 0; i < tblP->nobj; i++) {
		if(id == objP->id) break;
		objP++;
	}
	if(i == tblP->nobj) {
		/* Not Found */
		return(NULL);
	}
	else {
		/* Return pointer */
		return(objP);
	}
}

/*
 *  Create new object in the object table
 */
GsDOBJ2 *TodCreateNewObj(tblP, id)
TodOBJTABLE *tblP;	/* オブジェクトテーブルへポインタ */
u_long id;		/* ID number to create: 生成するオブジェクトのID番号 */
{
	GsDOBJ2 *objP;
	int i;

	/* Search undefined area in the table(ID=TOD_OBJ_UNDEF)
	 : 空き領域(ID==TOD_OBJ_UNDEF)を探す */
	objP = tblP->top;
	for(i = 0; i < tblP->nobj; i++) {
		if(objP->id == TOD_OBJ_UNDEF) break;
		objP++;
	}

	/* Search deleted area
	 : Deletedの領域(隙間)があるか？ */
	if(i < tblP->nobj) {
		objP->id = id;
		objP->attribute = 0;
		GsInitCoordinate2(WORLD, objP->coord2);
		objP->tmd = NULL;
		return(objP);
	}
	else {
		/* Add new object to bottom of the table
		 : テーブルの最後尾に新規オブジェクトを追加 */
		if(i < tblP->maxobj) {		/* Table is Full? */
			objP = tblP->top+tblP->nobj;
			tblP->nobj++;
			objP->id = id;
			objP->attribute = 0;
			GsInitCoordinate2(WORLD, objP->coord2);
			objP->tmd = NULL;
			return(objP);
		}
		else {
			/* Table is full: テーブルがいっぱいならNULLを返す */
			return(NULL);
		}
	}
}

/*
 *  Delete object from object table
 :  テーブルからオブジェクトを削除
 */
GsDOBJ2 *TodRemoveObj(tblP, id)
TodOBJTABLE *tblP;	/* Object table: オブジェクトテーブルへポインタ */
u_long id;		/* ID number to delete: 削除するオブジェクトのID番号 */
{
	GsDOBJ2 *objP;
	int i;

	/* Search object: ID番号でオブジェクトを探す */
	objP = tblP->top;
	for(i = 0; i < tblP->nobj; i++) {
		if(objP->id == TOD_OBJ_UNDEF) break;
		objP++;
	}

	/* Delete it: 該当オブジェクトを探して削除 */
	if(i < tblP->nobj) {
		objP->id = TOD_OBJ_UNDEF;
		if(i == tblP->nobj-1) {
			while(objP->id == TOD_OBJ_UNDEF) {
				tblP->nobj--;
				objP--;
			}
		}

		/* return object addr: アドレスを返す */
		return(objP);
	}
	else {
		/* retuen NULL when not found: 見つからなければNULLを返す */
		return(NULL);
	}
}

/*
 *  Search modeling data in TMD
 :  TMD内のモデリングデータをID番号で検索
 */
u_long *TodSearchTMDByID(tmdP, idListP, id)
u_long *tmdP;
int *idListP;
u_long id;
{
	int n;

	tmdP++;		/* Skip header: ヘッダを読み飛ばす */
	n = *tmdP++;	/* Number of object: モデリングデータの数 */

	while(n > 0) {
		if(id == *idListP) break;
		tmdP += 7;	/* next object: ポインタを進める */
		idListP++;
		n--;
	}
	if(n == 0) {
		/* return NULL when not found: 見つからなければNULLを返す */
		return(NULL);
	}
	else {
		/* return TMD addr: アドレスを返す */
		return(tmdP);
	}
}