mirror of
https://github.com/FirebirdSQL/firebird.git
synced 2025-01-26 07:23:08 +01:00
91 lines
2.0 KiB
C
91 lines
2.0 KiB
C
/*
|
|
* Test tool for Language Drivers.
|
|
*
|
|
* This tool loads up a language driver using the dynamic link
|
|
* (or shared object) method and interrogates it's ID function.
|
|
* This tool is used to quickly verify the dynamic load ability
|
|
* of a newly created language driver.
|
|
* The contents of this file are subject to the Interbase Public
|
|
* License Version 1.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy
|
|
* of the License at http://www.Inprise.com/IPL.html
|
|
*
|
|
* Software distributed under the License is distributed on an
|
|
* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
|
|
* or implied. See the License for the specific language governing
|
|
* rights and limitations under the License.
|
|
*
|
|
* The Original Code was created by Inprise Corporation
|
|
* and its predecessors. Portions created by Inprise Corporation are
|
|
* Copyright (C) Inprise Corporation.
|
|
*
|
|
* All Rights Reserved.
|
|
* Contributor(s): ______________________________________.
|
|
*/
|
|
|
|
#include "firebird.h"
|
|
#include "../jrd/ib_stdio.h"
|
|
|
|
static int full_debug = 0;
|
|
#define FULL_DEBUG if (full_debug) ib_printf
|
|
|
|
|
|
#define DEBUG_INTL
|
|
#include "../jrd/intl.c"
|
|
|
|
|
|
#ifdef VMS
|
|
char *defaults[] = {
|
|
"<null>",
|
|
"ask", "ask", "ask", "ask", "ask", "ask", "ask"
|
|
};
|
|
#endif
|
|
|
|
|
|
try(c, f)
|
|
char *c;
|
|
FUN_PTR f;
|
|
{
|
|
unsigned char buffer[200];
|
|
int res;
|
|
int i;
|
|
res = (*f) (strlen(c), c, sizeof(buffer), buffer);
|
|
ib_printf("%s => ", c);
|
|
for (i = 0; i < res; i++)
|
|
ib_printf("%d ", buffer[i]);
|
|
ib_printf("\n");
|
|
};
|
|
|
|
my_err()
|
|
{
|
|
ib_printf("Error routine called!\n");
|
|
};
|
|
|
|
main(argc, argv)
|
|
int argc;
|
|
char *argv[];
|
|
{
|
|
struct texttype this_textobj;
|
|
char **vector;
|
|
int i;
|
|
|
|
#ifdef VMS
|
|
vector = defaults;
|
|
argc = sizeof(defaults) / sizeof(char *);
|
|
#else
|
|
if (argc <= 1) {
|
|
ib_printf("usage: dtest Intl_module_name\n");
|
|
return (1);
|
|
};
|
|
vector = argv;
|
|
#endif
|
|
|
|
for (i = 1; i < argc; i++) {
|
|
|
|
int t_type;
|
|
t_type = atoi(vector[i]);
|
|
INTL_fn_init(t_type, &this_textobj, my_err);
|
|
};
|
|
return (0);
|
|
}
|