Affix
view release on metacpan or search on metacpan
dyncall/test/callback_suite/main.c view on Meta::CPAN
{
int i;
int failure = 0;
for(i=from; i<=to ;++i)
failure |= !( run_test(i) );
return !failure;
}
#define Error(X, Y, N) { fprintf(stderr, X, Y); print_usage(N); exit(1); }
int main(int argc, char* argv[])
{
int from = 0, to = G_ncases-1;
int i, pos = 0, total;
dcTest_initPlatform();
/* parse args */
dyncall/test/callback_suite_aggrs/main.c view on Meta::CPAN
}
jmp_buf jbuf;
void sig_handler(int sig)
{
longjmp(jbuf, 1);
}
#define Error(X, Y, N) { fprintf(stderr, X, Y); print_usage(N); exit(1); }
int main(int argc, char* argv[])
{
int from = 0, to = G_ncases-1;
int i, pos = 0, r = 0;
signal(SIGABRT, sig_handler);
signal(SIGILL, sig_handler);
signal(SIGSEGV, sig_handler);
#if !defined(DC_WINDOWS)
dyncall/test/ellipsis/config.h view on Meta::CPAN
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* auto generated by mkcase (on stderr) */
#define NARGS 3
#define NTYPES 4
dyncall/test/ellipsis/mkcase.py view on Meta::CPAN
# all types without (float)
types = ["DCint","DClonglong","DCdouble","DCpointer"]
sigs = ['i','l','d','p']
# generator
ntypes = len(types)
sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
sys.stderr.write("".join(["#define NARGS ",str(nargs),"\n"]))
sys.stderr.write("".join(["#define NTYPES ",str(ntypes),"\n"]))
def powerfact(x, n):
if n==0:
return 0
else:
return x**n+powerfact(x,n-1)
x = 0
end = powerfact(ntypes,nargs)+1
dyncall/test/nm/nm.c view on Meta::CPAN
#include "../../dynload/dynload.h"
#include "../common/platformInit.h"
void list_syms(const char* filePath)
{
DLSyms* pSyms;
int i,n;
pSyms = dlSymsInit(filePath);
if (!pSyms) {
fprintf(stderr, "dlSymsInit fail.");
return;
}
i = 0, n = dlSymsCount(pSyms);
for (; i < n; ++i) {
const char* name = dlSymsName(pSyms,i);
printf("%s\n", name);
}
dlSymsCleanup(pSyms);
}
int main(int argc, char* argv[])
{
int i, n;
DLLib* pLib;
const char* libPath;
if (argc == 1) {
fprintf(stderr, "usage : %s <dllpath>\n", argv[0]);
return 1;
}
libPath = argv[1];
/* load lib */
pLib = dlLoadLibrary(libPath);
if (!pLib) {
fprintf(stderr, "unable to open library %s\n", libPath);
return 2;
}
list_syms(libPath);
dlFreeLibrary(pLib);
return 0;
}
dyncall/test/suite/config.h view on Meta::CPAN
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* auto generated by mkcase (on stderr) */
#define NARGS 8
#define NTYPES 2
dyncall/test/suite/mkcase.py view on Meta::CPAN
# NOTE: not really feasible to enable all types, results in a huge number of
# cases; use other *_suite tests when needing to test many different types
types = ["DCdouble","DClonglong","DCint","DCpointer"] #...
typeSigs = ["d" ,"l" ,"i" ,"p" ] #...
# generator
ntypes = len(types)
sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
sys.stderr.write("".join(["#define NARGS ",str(nargs),"\n"]))
sys.stderr.write("".join(["#define NTYPES ",str(ntypes),"\n"]))
def powerfact(x, n):
if n==0:
return 0
else:
return x**n+powerfact(x,n-1)
x = 0
end = powerfact(ntypes,nargs)+1
dyncall/test/suite2/config.h view on Meta::CPAN
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* auto generated by mkcase (on stderr) */
#define NCASES 16
#define MAXARGS 14
dyncall/test/suite2/main.cc view on Meta::CPAN
static DClonglong valueLongLong[MAXARGS];
static DCdouble valueDouble [MAXARGS];
static DCpointer valuePointer [MAXARGS];
static DCfloat valueFloat [MAXARGS];
void clearValues();
void error(const char* message)
{
fprintf(stderr, "error: %s\n", message);
exit(-1);
}
void init()
{
for (int i = 0 ; i < MAXARGS ; ++i ) {
valueBool[i] = DCbool( (i % 1) ? DC_TRUE : DC_FALSE );
valueChar[i] = DCchar(i);
valueShort[i] = DCshort(i);
dyncall/test/suite2/mkcase.py view on Meta::CPAN
maxargs = max(maxargs, args)
# api = apimap[ line[0] ]
out = [ "VF",str(args),"(", str(id), "," ];
for i in xrange(0,len(line)):
types += [ sigmap[ line[i] ] ]
out += [ ",".join( types ), ",s_", line, ")\n" ]
out = "".join(out)
sys.stdout.write(out)
id += 1
sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
sys.stderr.write("".join( ["#define NCASES ",str(id),"\n"] ) )
sys.stderr.write("".join( ["#define MAXARGS ",str(maxargs),"\n"] ) )
dyncall/test/suite2_x86win32fast/config.h view on Meta::CPAN
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* auto generated by mkcase (on stderr) */
#define NCASES 97
#define MAXARGS 19
dyncall/test/suite2_x86win32fast/main.cc view on Meta::CPAN
valueInt[i] = DCint(i);
valueLongLong[i] = DClonglong(i);
valueDouble[i] = DCdouble(i);
valuePointer[i] = DCpointer(i);
valueFloat[i] = DCfloat(i);
}
}
void error(const char* message)
{
fprintf(stderr, "error: %s\n", message);
exit(-1);
}
bool test(int x)
{
bool r = true;
clearValues();
DCCallVM* pCall;
dyncall/test/suite2_x86win32fast/mkcase.py view on Meta::CPAN
maxargs = max(maxargs, args)
# api = apimap[ line[0] ]
out = [ "VF",str(args),"(", str(id), "," ];
for i in xrange(0,len(line)):
types += [ sigmap[ line[i] ] ]
out += [ ",".join( types ), ",s_", line, ")\n" ]
out = "".join(out)
sys.stdout.write(out)
id += 1
sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
sys.stderr.write("".join( ["#define NCASES ",str(id),"\n"] ) )
sys.stderr.write("".join( ["#define MAXARGS ",str(maxargs),"\n"] ) )
dyncall/test/suite2_x86win32std/config.h view on Meta::CPAN
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* auto generated by mkcase (on stderr) */
#define NCASES 94
#define MAXARGS 19
dyncall/test/suite2_x86win32std/mkcase.py view on Meta::CPAN
maxargs = max(maxargs, args)
# api = apimap[ line[0] ]
out = [ "VF",str(args),"(", str(id), "," ];
for i in xrange(0,len(line)):
types += [ sigmap[ line[i] ] ]
out += [ ",".join( types ), ",s_", line, ")\n" ]
out = "".join(out)
sys.stdout.write(out)
id += 1
sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
sys.stderr.write("".join( ["#define NCASES ",str(id),"\n"] ) )
sys.stderr.write("".join( ["#define MAXARGS ",str(maxargs),"\n"] ) )
dyncall/test/suite3/config.h view on Meta::CPAN
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* auto generated by mkcase (on stderr) */
#define NARGS 4
#define NTYPES 4
dyncall/test/suite3/mkcase.py view on Meta::CPAN
# nargs max is currently 10, modify case.cpp for more arguments
nargs = 4
types = ["DCint","DClonglong","DCdouble","DCfloat"]
typeSigs = ["i", "l", "d", "f" ]
# generator
ntypes = len(types)
sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
sys.stderr.write("".join(["#define NARGS ",str(nargs),"\n"]))
sys.stderr.write("".join(["#define NTYPES ",str(ntypes),"\n"]))
def powerfact(x, n):
if n==0:
return 0
else:
return x**n+powerfact(x,n-1)
x = 0
end = powerfact(ntypes,nargs)+1
dyncall/test/suite_floats/config.h view on Meta::CPAN
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* auto generated by mkcase (on stderr) */
#define NARGS 10
#define NTYPES 2
dyncall/test/suite_floats/mkcase.py view on Meta::CPAN
nargs = 10
types = ["DCdouble","DCfloat"]
typeSigs = ["d" ,"f" ]
# generator
ntypes = len(types)
sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
sys.stderr.write("".join(["#define NARGS ",str(nargs),"\n"]))
sys.stderr.write("".join(["#define NTYPES ",str(ntypes),"\n"]))
def powerfact(x, n):
if n==0:
return 0
else:
return x**n+powerfact(x,n-1)
x = 0
end = powerfact(ntypes,nargs)+1
dyncall/test/suite_x86win32fast/config.h view on Meta::CPAN
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* auto generated by mkcase (on stderr) */
#define NARGS 3
#define NTYPES 6
dyncall/test/suite_x86win32fast/mkcase.py view on Meta::CPAN
# parameters
nargs = 3
types = ["DCbool","DCint","DClonglong","DCdouble","DCpointer","DCfloat"]
# generator
ntypes = len(types)
sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
sys.stderr.write("".join(["#define NARGS ",str(nargs),"\n"]))
sys.stderr.write("".join(["#define NTYPES ",str(ntypes),"\n"]))
def powerfact(x, n):
if n==0:
return 0
else:
return x**n+powerfact(x,n-1)
x = 0
end = powerfact(ntypes,nargs)+1
dyncall/test/suite_x86win32std/config.h view on Meta::CPAN
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
/* auto generated by mkcase (on stderr) */
#define NARGS 3
#define NTYPES 6
dyncall/test/suite_x86win32std/mkcase.py view on Meta::CPAN
# parameters
nargs = 3
types = ["DCbool","DCint","DClonglong","DCdouble","DCpointer","DCfloat"]
# generator
ntypes = len(types)
sys.stderr.write("/* auto generated by mkcase (on stderr) */\n");
sys.stderr.write("".join(["#define NARGS ",str(nargs),"\n"]))
sys.stderr.write("".join(["#define NTYPES ",str(ntypes),"\n"]))
def powerfact(x, n):
if n==0:
return 0
else:
return x**n+powerfact(x,n-1)
x = 0
end = powerfact(ntypes,nargs)+1
t/src/std.h view on Meta::CPAN
#pragma once
#include <math.h>
#include <stdbool.h>
#include <stddef.h> // offsetof
#include <stdio.h>
#include <string.h>
#define warn(FORMAT, ...) \
fprintf(stderr, FORMAT " in %s at line %i\n", ##__VA_ARGS__, __FILE__, __LINE__); \
fflush(stderr);
#if defined _WIN32 || defined __CYGWIN__
#include <BaseTsd.h>
// typedef SSIZE_T ssize_t;
typedef signed __int64 int64_t;
#ifdef __GNUC__
#define DLLEXPORT __attribute__((dllexport))
#else
#define DLLEXPORT __declspec(dllexport)
#endif
t/src/std.h view on Meta::CPAN
_DumpHex(addr, len, __FILE__, __LINE__)
void _DumpHex(const void *addr, size_t len, const char *file, int line) {
fflush(stdout);
int perLine = 16;
// Silently ignore silly per-line values.
if (perLine < 4 || perLine > 64) perLine = 16;
size_t i;
unsigned char buff[perLine + 1];
const unsigned char *pc = (const unsigned char *)addr;
fprintf(stderr, "Dumping %zu bytes from %p at %s line %d\n", len, addr, file, line);
// Length checks.
if (len == 0) {
warn("ZERO LENGTH");
return;
}
if (len < 0) {
warn("NEGATIVE LENGTH: %zu", len);
return;
}
for (i = 0; i < len; i++) {
if ((i % perLine) == 0) { // Only print previous-line ASCII buffer for
// lines beyond first.
if (i != 0) fprintf(stderr, " | %s\n", buff);
fprintf(stderr, "# %04zu ", i); // Output the offset of current line.
}
// Now the hex code for the specific character.
fprintf(stderr, " %02x", pc[i]);
// And buffer a printable ASCII character for later.
if ((pc[i] < 0x20) || (pc[i] > 0x7e)) // isprint() may be better.
buff[i % perLine] = '.';
else
buff[i % perLine] = pc[i];
buff[(i % perLine) + 1] = '\0';
}
// Pad out last line if not exactly perLine characters.
while ((i % perLine) != 0) {
fprintf(stderr, " ");
i++;
}
fprintf(stderr, " | %s\n", buff);
fflush(stdout);
}
( run in 1.763 second using v1.01-cache-2.11-cpan-49f99fa48dc )