manual.c

一个内存数据库的源代码这是服务器端还有客户端

#line 68 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/manual.mx"
#include "mal_config.h"
#include "gdk.h"
#include <stdarg.h>
#include <time.h>
#include "mal_resolve.h"
#include "mal_client.h"
#include "mal_exception.h"
#include "mal_debugger.h"
#include "mal_interpreter.h"
#include "mal_namespace.h"

#ifdef WIN32
#ifndef LIBMANUAL
#define manual_export extern __declspec(dllimport)
#else
#define manual_export extern __declspec(dllexport)
#endif
#else
#define manual_export extern
#endif

manual_export str MANUALcreate(int *ret, str *fname, str *mod, int *recursive);
manual_export str MANUALcreateSection1(int *ret, str *mod);
manual_export str MANUALcreate2(int *ret, str *fname, str *mod, int *recursive);
manual_export str MANUALcreate1(int *ret, str *mod);
manual_export str MANUALcreate0(int *ret);
manual_export str MANUALsearch(int *ret, str *mod);
manual_export str MANUALcompletion(int *ret, str *text);
manual_export str MANUALhelp(int *ret, str *text);
manual_export str MANUALcreateIndex(int *ret);
manual_export str MANUALcreateSummary(int *ret);



#line 103 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/manual.mx"

str
MANUALcreateSection1(int *ret, str *mod)
{

	(void) ret;		/* fool compiler */
	dumpManualSection(GDKout, findModule(MCgetClient()->nspace, putName(*mod, strlen(*mod))));
	return MAL_SUCCEED;
}

str
MANUALcreate(int *ret, str *fname, str *mod, int *recursive)
{
	stream *fs;

	(void) ret;		/* fool compiler */
	fs = open_wastream(*fname);
	if (fs == NULL)
		throw(MAL, "manual.create", "Could not open file\n");
	dumpManualHeader(fs);
	dumpManual(fs, findModule(MCgetClient()->nspace, putName(*mod, strlen(*mod))), *recursive);
	dumpManualFooter(fs);
	stream_close(fs);
	return MAL_SUCCEED;
}

str
MANUALcreate2(int *ret, str *fname, str *mod, int *recursive)
{
	int r = 0;

	(void) recursive;	/* fool compiler */
	return MANUALcreate(ret, fname, mod, &r);
}

str
MANUALcreate1(int *ret, str *mod)
{
	(void) ret;		/* fool compiler */
	dumpManualHeader(GDKout);
	dumpManual(GDKout, findModule(MCgetClient()->nspace, putName(*mod, strlen(*mod))), 0);
	dumpManualFooter(GDKout);
	return MAL_SUCCEED;
}

str
MANUALcreate0(int *ret)
{
	(void) ret;		/* fool compiler */
	dumpManualHeader(GDKout);
	dumpManual(GDKout, MCgetClient()->nspace, 1);
	dumpManualFooter(GDKout);
	return MAL_SUCCEED;
}
str
MANUALcreateIndex(int *ret)
{
	(void) ret;		/* fool compiler */
	dumpManualOverview(GDKout, MCgetClient()->nspace, 1);
	return MAL_SUCCEED;
}
str
MANUALcreateSummary(int *ret)
{
	(void) ret;		/* fool compiler */
	dumpManualHelp(GDKout, MCgetClient()->nspace, 1);
	return MAL_SUCCEED;
}
str
MANUALcreateTags(int *ret)
{
	(void) ret;		/* fool compiler */
	dumpHelpTable(GDKout, MCgetClient()->nspace, 0,0);
	return MAL_SUCCEED;
}

str
MANUALcompletion(int *ret, str *text)
{
	(void) ret;		/* fool compiler */
	dumpHelpTable(GDKout, MCgetClient()->nspace, *text,1);
	return MAL_SUCCEED;
}

str
MANUALhelp(int *ret, str *text)
{
	char **msg;
	int i;

	(void) ret;		/* fool compiler */
	msg= getHelp(MCgetClient()->nspace,*text,1);
	if( msg && msg[0] ){
		for(i=0; msg[i];i++){
			mal_unquote(msg[i]);
			stream_printf(GDKout,"%s\n",msg[i]);
			GDKfree(msg[i]);
		}
	}
	if( msg) 
		GDKfree(msg);
	return MAL_SUCCEED;
}

str
MANUALsearch(int *ret, str *pat)
{
	char **msg;
	int i;
	(void) ret;
	msg= getHelpMatch(*pat);
	if( msg && msg[0] ){
		for(i=0; msg[i];i++){
			mal_unquote(msg[i]);
			stream_printf(GDKout,"%s\n",msg[i]+1);
			GDKfree(msg[i]);
		}
	}
	if( msg) 
		GDKfree(msg);
	return MAL_SUCCEED;
}



#line 227 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/mal/manual.mx"