dbtest.mco

来自「PB 熟悉的哥们希望大家可以互相学习一下」· MCO 代码 · 共 78 行

/************************************************************
 *                                                          *
 * Copyright(c) 2001-2003 McObject,LLC. All Right Reserved. *
 *                                                          *
 ************************************************************/

#define int1        signed<1>
#define int2        signed<2>
#define int4        signed<4>
#define int8        signed<8>
#define uint8   unsigned<8>
#define uint4   unsigned<4>
#define uint2   unsigned<2>
#define uint1   unsigned<1>

declare database    dbtest;
declare oid         Id[10000];
declare auto_oid    [10000]; 

struct Id
{
	uint4 seq;
};

struct Item
{
	uint4     id;
	string    name;
};

class Fixed										  // small fixed size, no ptrs
{
	uint4     u4;
	float       f;
	uint2       u2;
	char<4> c4;

	tree <u4> tU4;

	oid;
	list;
};

class Dynamic									  // vectors, strings, and optional
{
	string                  str;
	vector< uint4 > vu4;
	optional Item       item;

	list;
};

class Blobs										  // blobs
{
	uint8 u8;
	uint2 num;
	blob    blo;

	autoid[2000];
	history[2];

	tree <u8> tU8;
	list;

};

class Idxs										  // various indexes
{
	uint2  u2;
	vector <Item> items;

	tree <items.name, u2> tIdx;

	oid;
	list;

};