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; }