External Writing on win - external.h

[runrev at animabit.de]

Hello,

just checked the two Articles of Mark Waddingham concerning externals
http://www.runrev.com/newsletter/november/issue13/newsletter5.php
http://www.runrev.com/newsletter/november/issue14/newsletter3.php

Just checked the external SDK and found the include library external.h
...

In VisualBasic 6.0 and VisualBasic.Net you can create dlls.
Is it possible to simulate the integrated wrapper functions of the external.h 
XClipsFunctionCall
XClipsEval(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
XClipsAssertString
in a visual basic application to design a dll for usage in runrev on windows?

What conventions must the dll use for this task?
Any further suggestions?

Regards, Franz
Mit freundlichen Grüßen
Franz Böhmisch

boehmisch at animabit.de
http://www.animabit.de
GF Animabit Multimedia Software GmbH
Am Sonnenhang 22
D-94136 Thyrnau
Tel +49 (0)8501-8538
Fax +49 (0)8501-8537



/*
The layer between Revolution and CLIPS (external.h, external.c) is
Copyright 2003 Alex Rice. All Rights reserved. No warranty of fitness
or correctness or stability. Use at your own risk.

Please be aware CLIPS and Revolution each have their respective
licenses as well.
*/


/*
#defines and prototypes for MetaCard/Runtime Revolution template external
*/

#include "clips.h"

/*
* DOToRev
* converts a CLIPS data object into a revolution string object
*/
extern void RevMessageBox(char *msg1, char *msg2);

/*
* I/O Routers Glue. Does this obviate the need for the rest of these functions and handlers?
*/
extern int RevRouterFind(char *logicalName);
extern int RevRouterPrint(char *logicalName, char *str);
extern int RevRouterExit(int unused);
extern void XClipsPrintRouter(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern int RevRouterStdinGetc(char *logicalName);
extern int RevRouterStdinUngetc(int ch, char *logicalName);

/*
* Transcript Handlers
*/
extern void XClipsInit(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsClear(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsBuild(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsLoad(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsLoadFacts(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsAssertString(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsLoadFactsFromString(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsReset(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsFacts(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsSaveFacts(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsGetFactList(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsRun(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsEval(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);


/*
* Transcript Functions
*/
extern void XClipsFunctionCall(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsEval(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);
extern void XClipsAssertString(char *args[], int nargs, char **retstring, Bool *pass, Bool *error);

/*
* I/O
*/

extern void XCabort();
extern Xternal Xtable[];
extern char Xname[];