static VALUE rb_ool_conmin_function_set(int argc, VALUE *argv, VALUE obj)
{
ool_conmin_function *F;
Data_Get_Struct(obj, ool_conmin_function, F);
switch (argc) {
case 0:
break;
case 1:
rb_ool_conmin_function_set_n(obj, argv[0]);
break;
case 4:
set_functions(argc, argv, F);
break;
case 5:
if (FIXNUM_P(argv[0])) {
rb_ool_conmin_function_set_n(obj, argv[0]);
set_functions(argc-1, argv+1, F);
} else {
set_functions(argc-1, argv, F);
set_params(F, argv[argc-1]);
}
break;
case 6:
rb_ool_conmin_function_set_n(obj, argv[0]);
set_functions(argc-2, argv+1, F);
set_params(F, argv[argc-1]);
break;
default:
rb_raise(rb_eArgError, "Wrong number of arguments.");
}
return obj;
}
static VALUE rb_ool_conmin_function_set_functions(int argc, VALUE *argv, VALUE obj)
{
ool_conmin_function *F;
Data_Get_Struct(obj, ool_conmin_function, F);
set_functions(argc, argv, F);
return obj;
}
static int luaopen_lcairo_path(lua_State* L)
{
// register functions
set_functions(L, path_f);
//luaL_register(L, LUACAIRO, path_f);
return 0;
}
static int luaopen_lcairo_region (lua_State* L)
{
#if CAIRO_VERSION >= CAIRO_VERSION_ENCODE(1, 10, 0)
// register functions
set_functions(L, region_f);
//luaL_register(L, LUACAIRO, region_f);
#endif /* CAIRO_VERSION >= CAIRO_VERSION_ENCODE(1, 10, 0) */
return 0;
}
static int luaopen_lcairo_script_surface (lua_State* L)
{
#if CAIRO_HAS_SCRIPT_SURFACE
// register functions
set_functions(L, script_f);
//luaL_register(L, LUACAIRO, script_f);
#endif /*CAIRO_HAS_SCRIPT_SURFACE*/
return 0;
}
static int luaopen_lcairo_gl_surface (lua_State* L)
{
#if CAIRO_HAS_GL_SURFACE
// register functions
set_functions(L, gl_surface_f);
//luaL_register(L, LUACAIRO, gl_surface_f);
#endif /* CAIRO_HAS_GL_SURFACE */
return 0;
}
int load_mib(char *path, int MibType)
{
if (Mib != NULL) return(0);
if (MibType == OLD_CMU_SNMP_MIB)
Mib = read_mib(path);
else if (MibType == SNMPV2_MIB)
Mib = read_mib_v2(path);
if (Mib == NULL)
return(0);
set_functions(Mib);
return(1);
}
static void
set_functions(//subtree)
struct snmp_mib_tree *subtree)
{
for(; subtree; subtree = subtree->next_peer){
switch(subtree->type){
case TYPE_OBJID:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_object_identifier;
break;
case TYPE_OCTETSTR:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_octet_string;
break;
case TYPE_INTEGER:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_integer;
break;
case TYPE_NETADDR:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_networkaddress;
break;
case TYPE_IPADDR:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_ipaddress;
break;
case TYPE_COUNTER:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_counter;
break;
case TYPE_GAUGE:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_gauge;
break;
case TYPE_TIMETICKS:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_timeticks;
break;
case TYPE_OPAQUE:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_opaque;
break;
case TYPE_NULL:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_null;
break;
case TYPE_OTHER:
default:
subtree->printer = SPRINT_BY_TYPE_TYPE sprint_unknowntype;
break;
}
set_functions(subtree->child_list);
}
}
void cube_copy (CUBE *a, CUBE *b)
{
int index1,index2;
set_functions(a,b->cols);
a->rows = b->rows;
a->cols = b->cols;
for(index1=0;index1<b->rows;index1++)
{
for(index2=0;index2<b->cols;index2++)
{
a->data[index1][index2] = b->data[index1][index2];
}
}
for(index1=0;index1<b->cols;index1++)
{
a->vars[index1] = b->vars[index1];
}
}
int printer(va_list ap, char c)
{
int i;
int lenght;
static t_functions *functions;
functions = set_functions();
i = 0;
while (functions[i].c != 0)
{
if (c == functions[i].c)
{
lenght = functions[i].f(ap);
break;
}
i++;
}
return (lenght);
}
static GstCaps *
_update_caps (GstVideoAggregator * vagg, GstCaps * caps)
{
GList *l;
gint best_width = -1, best_height = -1;
GstVideoInfo info;
GstCaps *ret = NULL;
gst_video_info_from_caps (&info, caps);
GST_OBJECT_LOCK (vagg);
for (l = GST_ELEMENT (vagg)->sinkpads; l; l = l->next) {
GstVideoAggregatorPad *vaggpad = l->data;
GstCompositorPad *compositor_pad = GST_COMPOSITOR_PAD (vaggpad);
gint this_width, this_height;
gint width, height;
width = GST_VIDEO_INFO_WIDTH (&vaggpad->info);
height = GST_VIDEO_INFO_HEIGHT (&vaggpad->info);
if (width == 0 || height == 0)
continue;
this_width = width + MAX (compositor_pad->xpos, 0);
this_height = height + MAX (compositor_pad->ypos, 0);
if (best_width < this_width)
best_width = this_width;
if (best_height < this_height)
best_height = this_height;
}
GST_OBJECT_UNLOCK (vagg);
if (best_width > 0 && best_height > 0) {
info.width = best_width;
info.height = best_height;
if (set_functions (GST_COMPOSITOR (vagg), &info))
ret = gst_video_info_to_caps (&info);
}
return ret;
}
int
main(int argc, char **argv)
{ dtd_parser *p = NULL;
char *s;
int xml = FALSE;
int output = TRUE;
int nodefs = FALSE; /* include defaulted attributes */
setlocale(LC_CTYPE, "");
s = strchr(argv[0], '/');
program = s == NULL ? argv[0] : s + 1;
if (streq(program, "xml"))
xml = TRUE;
shift;
while (argc > 0 && argv[0][0] == '-')
{ if (streq(argv[0], "-xml"))
{ xml = TRUE;
} else if (streq(argv[0], "-s"))
{ output = FALSE;
} else if (streq(argv[0], "-nodefs"))
{ nodefs = TRUE;
} else if (streq(argv[0], "-style"))
{ style_messages = TRUE;
} else
{ usage();
}
shift;
}
if (argc > 0)
{ char *slash = strchr(argv[0], '/');
char *dot = strchr(argv[0], '.');
char *ext = dot == 0 || (slash != 0 && slash > dot) ? "." : dot;
if (strcaseeq(ext, ".dtd"))
{ char doctype[256];
strncpy(doctype, argv[0], ext - argv[0]);
doctype[ext - argv[0]] = '\0';
p = new_dtd_parser(new_dtd(mb2wc(doctype)));
load_dtd_from_file(p, mb2wc(argv[0]));
shift;
} else if (strcaseeq(ext, ".html") || strcaseeq(ext, ".htm"))
{ p = new_dtd_parser(new_dtd((ichar const *) "html"));
load_dtd_from_file(p, L"html.dtd");
} else if (xml || strcaseeq(ext, ".xml"))
{ dtd *dtd = new_dtd(no_dtd);
set_dialect_dtd(dtd, DL_XML);
p = new_dtd_parser(dtd);
} else
{ p = new_dtd_parser(new_dtd(no_dtd));
}
} else
{ p = new_dtd_parser(new_dtd(no_dtd));
}
if (nodefs)
p->flags |= SGML_PARSER_NODEFS;
switch (argc)
{ case 1:
{ set_functions(p, output);
sgml_process_file(p, mb2wc(argv[0]), 0);
free_dtd_parser(p);
if (output && nerrors == 0)
printf("C\n");
return 0;
}
case 0:
{ set_functions(p, output);
set_file_dtd_parser(p, IN_FILE, L"stdin");
set_mode_dtd_parser(p, DM_DATA);
sgml_process_stream(p, stdin, 0);
free_dtd_parser(p);
if (output && nerrors == 0 && nwarnings == 0)
printf("C\n");
return 0;
}
default:
{ usage();
return EXIT_FAILURE;
}
}
}
int init_mib(void)
{
char *file;//, *getenv();
if (Mib != NULL) return (0);
/* First, try the new parser if the variable exists.
*/
file = getenv("MIBFILE_v2");
if (file != NULL)
Mib = read_mib_v2(file);
/* Then our overrides
*/
if (Mib == NULL)
if ((file = getenv("MIBFILE")) != NULL)
Mib = read_mib(file);
/* Then the default mibfiles
*/
if (Mib == NULL)
Mib = read_mib_v2("mib-v2.txt");
if (Mib == NULL)
Mib = read_mib_v2("/etc/mib-v2.txt");
#ifndef WIN32
#define MIBDIR "."
if (Mib == NULL) {
char path[MAXPATHLEN];
sprintf(path, WIDE("%s/mib-v2.txt"), MIBDIR);
Mib = read_mib_v2(path);
}
#endif /* WIN32 */
/* And finally the old faithful files.
*/
if (Mib == NULL)
Mib = read_mib("mib.txt");
if (Mib == NULL)
Mib = read_mib("/etc/mib.txt");
#ifndef WIN32
if (Mib == NULL) {
char path[MAXPATHLEN];
sprintf(path, WIDE("%s/mib.txt"), MIBDIR);
Mib = read_mib(path);
}
#endif /* WIN32 */
#ifdef WIN32
if (Mib == NULL) {
/* Fetch the name from the registry */
long ret;
HKEY hKey;
DWORD Type;
#define MAX_VALUE_NAME 128
#define KEY "SOFTWARE\\Carnegie Mellon\\Network Group\\SNMP Library"
TCHAR ValueName[MAX_VALUE_NAME];
DWORD dwcValueName = MAX_VALUE_NAME;
ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE,
_TEXT(KEY),
0,
KEY_READ,
&hKey);
if (ret == ERROR_SUCCESS) {
/* Found this registry entry. */
ret = RegQueryValueEx(hKey,
_TEXT("MIB Location"),
NULL,
&Type,
(LPBYTE)&ValueName,
&dwcValueName);
if (ret == ERROR_SUCCESS) {
#ifdef UNICODE
_tprintf(_TEXT("Found '%s'\n"), ValueName);
{
char lpszBuf[MAX_VALUE_NAME];
if (WideCharToMultiByte(CP_ACP, 0, ValueName, WC_SEPCHARS, // -1
lpszBuf, dwcValueName, NULL, NULL)) {
Mib = read_mib_v2(lpszBuf);
}
}
#else /* UNICODE */
Mib = read_mib_v2(ValueName);
#endif /* UNICODE */
} else {
/* Unable to read key */
LPVOID lpMsgBuf;
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM |
FORMAT_MESSAGE_IGNORE_INSERTS, NULL, ret,
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (TCHAR *)&lpMsgBuf, 0, NULL);
#ifdef STDERR_OUTPUT
fprintf(stderr, WIDE("Reg Read Error: %s\n"), (LPTSTR)lpMsgBuf);
#endif
}
/* And close the registry */
RegCloseKey(hKey);
} else {
/* Unable to open key */
LPVOID lpMsgBuf;
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM |
FORMAT_MESSAGE_IGNORE_INSERTS, NULL, ret,
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (TCHAR *)&lpMsgBuf, 0, NULL);
#ifdef STDERR_OUTPUT
fprintf(stderr, WIDE("Reg Open Error: %s\n"), (LPTSTR)lpMsgBuf);
#endif
}
}
#endif /* WIN32 */
if (Mib == NULL) {
#ifdef STDERR_OUTPUT
fprintf(stderr, WIDE("Couldn't find mib file\n"));
#endif
return(0);
}
set_functions(Mib);
return(1);
}
int main(int argc, char ** argv)
{
short israpl = 0;
char next = '\0';
ISVERBOSE = 0;
init_msr();
uint64_t msr_data;
uint64_t msr;
unsigned thread;
int i;
for (i = 0; i < argc; i++)
{
if (argv[i][0] == '-')
{
switch(argv[i][1])
{
case 'v':
// do verbose stuff
ISVERBOSE = 1;
break;
case 'r':
// read an msr
if (argc - i < 3)
{
fprintf(stderr, "Error: not enough parameters to read flag\n");
generic_error(i, argv);
}
thread = atoi(argv[++i]);
msr = strtol(argv[++i], NULL, 16);
read_msr_by_idx(thread, msr, &msr_data);
fprintf(stdout, "%lx\n", msr_data);
break;
case 'w':
// write an msr
if (argc - i < 4)
{
fprintf(stderr, "Error: not enough parameters to write flag\n");
generic_error(i, argv);
}
thread = atoi(argv[++i]);
msr = strtol(argv[++i], NULL, 16);
msr_data = strtol(argv[++i], NULL, 16);
write_msr_by_idx(thread, msr, msr_data);
break;
case 'i':
// do interactive stuff
fprintf(stdout, "Interactive mode is not yet available\n");
break;
case '-':
// go deeper down the rabbit hole
switch(argv[i][2])
{
case 'h':
// print help stuff
help_stuff();
break;
}
return 0;
case 'p':
// print out stuff
printing_functions(&i, argc, argv);
break;
case 's':
// set a socket limit or set to default
set_functions(&i, argc, argv);
break;
case 'l':
// list available events
list_functions(&i, argc, argv);
return 0;
}
}
}
// if (israpl)
// {
// do_rapl_stuff(isverbose);
// }
return 0;
}
