C++ file::write方法代码示例

void luaStore_writeStrings(stringtable * strt, file&f)
{
	GCObject * list;
	int i;

	// The total amount of strings
	f.write(strt->nuse);
	
	for(i = 0;i < strt->size;i++)
	{
		list = strt->hash[i];
		while(list)
		{
			// write the object pointer
			f.write(&list, sizeof(void*));

			// write the string length
			if(list->ts.tsv.len > 0xFFFF)
				dbgError("string too long");
			f.write((ushort)list->ts.tsv.len);

			// write the string
			f.write(&list->ts + 1, list->ts.tsv.len);

			// next!
			list = list->gch.next;
		}
	}
}

void luaStore_writeLongString(GCObject * obj, file& f)
{
	// Long String format:
	// ushort length
	// length bytes
	if(obj->ts.tsv.len > 0xFFFF)
		dbgError("string too long");
	f.write((ushort)obj->ts.tsv.len);

	f.write(&obj->ts + 1, obj->ts.tsv.len);
}

void luaStore_writeTable(GCObject * obj, file& f, std::vector<void *>& functions)
{
	// Table format:
	// int sizearray
	// sizearray objects
	f.write(obj->h.sizearray);

	int i;
	for(i = 0;i < obj->h.sizearray;i++)
		luaStore_writeValue(&obj->h.array[i], f, functions);
}

void luaStore_writeThread(lua_State * L, file& f, std::vector<void *>& functions)
{
	int i;
	StkId stack;

	// Write the thread stack
	stack = L->stack;
	f.write(L->stacksize);
	for(i = 0;i < L->stacksize;i++)
	{
		luaStore_writeValue(stack, f, functions);
		stack++;
	}
}

void luaStore_writeGC(GCObject * gc, file& f, std::vector<void *>& functions)
{
	GCObject * tmp = gc;
	uint i;
	for(i = 0;gc;i++)
		gc = gc->gch.next;
	f.write(i); // list size
	gc = tmp;
	while(gc)
	{
		luaStore_writeObject(gc, f, functions);
		gc = gc->gch.next;
	}
}

void luaStore_writeValue(TValue * v, file& f, std::vector<void *>& functions)
{
	uint i;
	bool found;
	byte type = ttype(v);

	f.write(type);

	switch(type)
	{
	case LUA_TNIL: // nil has no data
		break;
	case LUA_TBOOLEAN:
		f.write((byte)val_(v).b);
		break;
	case LUA_TLIGHTUSERDATA: // write the pointer
		f.write(&val_(v).p, sizeof(void*));
		break;
	case LUA_TNUMBER:
		f.write(num_(v));
		break;
	case LUA_TSTRING: // write the pointer to gc objects
	case LUA_TTABLE:
	case LUA_TUSERDATA:
	case LUA_TTHREAD:
		// all gc objects will be flushed to disk later
		f.write(&val_(v).gc, sizeof(void*));
		break;
	case LUA_TLCL:
		f.write(&val_(v).gc, sizeof(void*)); // this variant is a gc object
		break;
	case LUA_TLCF: // c-function
		// look up the function in the bindings list
		found = false;
		for(i = 0;i < functions.size();i++)
		{
			if(functions[i] == val_(v).f)
			{
				// write the index as a short
				f.write((ushort)i);
				found = true;
				break;
			}
		}
		if(!found)
			dbgError("unknown light function");
		break;
	default:
		dbgError("unknown object type %i", type);
		break;
	}
}

void luaStore_save(CLuaManager * l, file& f)
{
	std::vector<LUA_THREAD>::iterator i;

	// Before writing, force a full garbage collect
	lua_gc(l->L, LUA_GCCOLLECT, 0);

	// Write string table from global state
	luaStore_writeStrings(&l->L->l_G->strt, f);
	// Write global GC list
	luaStore_writeGC(l->L->l_G->allgc, f, l->functionBindings);
	
	// write all thread pointers
	// main thread
	luaStore_writeThread(l->L, f, l->functionBindings);
	// Lists
	f.write((ushort)(l->luaThreads.size() + l->queueThreads.size()));
	// first list
	for(i = l->luaThreads.begin();i != l->luaThreads.end();i++)
		luaStore_writeThreadState(&(*i), f);
	// second (queue) list
	for(i = l->queueThreads.begin();i != l->queueThreads.end();i++)
		luaStore_writeThreadState(&(*i), f);
}

void luaStore_writeHeader(GCObject * obj, file& f)
{
	f.write(&obj, sizeof(void*));
	f.write(obj->gch.tt);
}

void luaStore_writeThreadState(LUA_THREAD * thr, file& f)
{
	uint i;
	ushort len;
	f.write(&thr->L, sizeof(void*));
	f.write((byte)thr->firstRun);
	f.write(thr->nargs);
	f.write((byte)thr->terminate);
	if(thr->waitEvent.entity)
	{
		f.write((ushort)1);
		len = strlen(thr->waitEvent.event);
		f.write(&thr->waitEvent.entity, sizeof(void*));
		f.write(len);
		f.write(thr->waitEvent.event, len);
	}
	else
		f.write((ushort)0);

	len = 0;
	for(i = 0;i < ENDON_EVENT_COUNT;i++)
	{
		if(thr->endonEvents[i].entity)
			len++;
	}

	f.write(len);
	for(i = 0;i < ENDON_EVENT_COUNT;i++)
	{
		if(thr->endonEvents[i].entity)
		{
			len = strlen(thr->endonEvents[i].event);
			f.write(&thr->endonEvents[i].entity, sizeof(void*));
			f.write(len);
			f.write(thr->endonEvents[i].event, len);
		}
	}
}