自学教程：C++ verror函数代码示例

/* * NAME:	warn() * DESCRIPTION:	print warning message */staticvoid warn(char const *message, ...){  va_list args;  va_start(args, message);  verror(message, args);  va_end(args);}

static void bind_a_port(int spy,struct sockaddr_in * sin,int len){  if (bind(spy, (struct sockaddr*)sin, len)) {    verror ("spy", NULL);    sin->sin_port = htons(ntohs(sin->sin_port) + 1);    bind_a_port(spy,sin,len);  }  else vwarn (NULL, "Spy started on port %d.", ntohs(sin->sin_port));}

static voidFatal(const char *fmt, ...){    va_list ap;    va_start(ap, fmt);    verror(fmt, ap);    va_end(ap);    exit(EXIT_FAILURE);}

voidfatal_error(const char *message, ...){  va_list val;  va_start(val, message);  verror(0, 3, message, val);  va_end(val);  exit(EXIT_USER_ERR);}

void fatalerror(const char *fmt, ...){	va_list args;	va_start(args, fmt);	verror(fmt, args);	va_end(args);	exit(5);}

/* * Panic (print to stderr and abort). */voidpanic(const char *fmt, ...){	va_list l;	va_start(l, fmt);	verror(0, "panic: ", fmt, l, 0);	va_end(l);	abort();}

void FATAL(const char *fmt, ...){	va_list	ap;	va_start(ap, fmt);	verror(fmt, ap);	va_end(ap);	exit(1);}

voidliboctave_fatal (const char *fmt, ...){  va_list args;  va_start (args, fmt);  verror ("fatal", fmt, args);  va_end (args);  exit (1);}

intpre_assemble(int handle,	     int num_readings,	     char **reading_array){    GapIO *io;    int ngels;    int nconts;    int idbsiz;    int *relpg;    int *lngthg;    int *lnbr;    int *rnbr;    if (NULL == (io = io_handle(&handle))) return -1;    /* initialise fortran arrays */    idbsiz = io_dbsize(io);    relpg = &io_relpos(io,1);    lngthg = &io_length(io,1);    lnbr  = &io_lnbr(io,1);    rnbr = &io_rnbr(io,1);        if (-1 == load_preassembled(io, num_readings, reading_array)) {	verror(ERR_WARN, "enter_preassembled", "failed");    }        update_fortran_arrays(handle, &ngels, &nconts, &idbsiz,			  relpg, lngthg, lnbr, rnbr);/*        dbchek_(handle, relpg, lngthg, lnbr, rnbr, idm, idbsiz, ngels, nconts,	    &ierr);*/    if (db_check(io) != 0) {	verror(ERR_FATAL, "enter_preassembled",	       "The database is now inconsistent./n"	       "You may wish to revert to a copy or to disassemble the newly "	       "assembled contig.");    }    flush2t(io);    return 0;} /* end pre_assemble */

ssize_t dvmsg(int code, void *, const char *format, va_list va){  if (code == 0)    return vmsg(format, va);  if ( code > 0 )    vwarning(format, va);  else    verror(format, va);  return 0;}

/* * Print an error message and optionally quit. */voiderror(int quit, int e, const char *fmt, ...){	va_list l;	va_start(l, fmt);	if (e < 0)		e = errno;	verror(quit, NULL, fmt, l, e);	va_end(l);}

/* Report warning msg at current filename, lineno */void warning_or_error(bool iswarning, const char *format, ...){  va_list args;  va_start(args, format);  if (iswarning)    vwarning(format, args);  else    verror(format, args);  va_end(args);}

f_proc_ret fverr_(f_int *priority, char *fname, char *fmess,		  f_implicit name_l, f_implicit mess_l) {    char mess[1024];    char name[1024];    Fstr2Cstr(fmess, mess_l, mess, 1024);    Fstr2Cstr(fname, name_l, name, 1024);    verror(*priority, name, "%s", mess);    f_proc_return();}

/* Report pedantic warning or error msg at current filename, lineno */void pedwarn(const char *format, ...){  va_list args;  va_start(args, format);  if (flag_pedantic_errors)    verror(format, args);  else    vwarning(format, args);  va_end(args);}

/* * NAME:	die() * DESCRIPTION:	exit with failure status after printing message */staticvoid die(char const *message, ...){  va_list args;  va_start(args, message);  verror(message, args);  va_end(args);  exit(1);}

/* * Sends some text to a command and adds the command's stdout and stderr to * the output and error windows. * * Usage: tout_pipe command text */int tcl_tout_pipe(ClientData clientData, Tcl_Interp *interp,		  int argc, char **argv) {    int ret;    if (argc != 4)	return TCL_ERROR;    vfuncheader("Output from command '%s'", argv[1]);    ret = pipe_mania(argv[2], strlen(argv[2]), argv[1], atoi(argv[3]));    if (-1 == ret) {	verror(ERR_WARN, "pipe", "command '%s' failed", argv[1]);    } else if (-2 == ret) {	verror(ERR_WARN, "pipe", "timeout - output from command truncated");    }    vTcl_SetResult(interp, "%d", ret);    return TCL_OK;}

static voidcopy_attr_error (struct error_context *ctx, char const *fmt, ...){  int err = errno;  va_list ap;  /* use verror module to print error message */  va_start (ap, fmt);  verror (0, err, fmt, ap);  va_end (ap);}

voidDrawCSTags(Tcl_Interp *interp,                                       /* in */	   int x1,	   int x2,	   int tag_num,	   GAnnotations *annotation,	   int offset,	   char *win_name,	   int width,	   int contig_num,	   int read_num){    char type[100];    char *colour = tag_db[0].bg_colour;    char cmd[1024], str[5];    int k;                                                       /* counter */    sprintf(type, "{tag %s t_%d num_%d rnum_%d}",	    type2str(annotation->type,str), tag_num, contig_num, read_num);    /* find tag colour in tag_db */    for (k = 0; k < tag_db_count; k++){	if (annotation->type == str2type(tag_db[k].id)) {/*	    sprintf(type, "{tag %s t_%d num_%d}", tag_db[k].search_id,		    tag_num, contig_num);*/	    colour = tag_db[k].bg_colour;	    break;	}  /* end if */    } /* end for */    /* check that TagArray type and colour been allocated */    if (type == NULL) {	verror(ERR_WARN, "CalcTags",	       "tag type not in tag database");	return;    } /* end if */    sprintf(cmd, "%s create rectangle %d %d %d %d "	    "-fill %s -tags %s -width %d -outline %s/n",	    win_name, x1, offset, x2 + 1, offset, colour, type, width, colour);    Tcl_Eval(interp, cmd);    /* printf("cmd %s /n", cmd); */}

int com_error(char *format, ...){	int ret;	va_list args;	va_start(args, format);	ret = com_vprintf(format, args);	va_end(args);	va_start(args, format);	verror(format, args);	va_end(args);	return ret;}

/* * rect * * draw a rectangle given two opposite corners * */voidrect(Coord x1, Coord y1, Coord x2, Coord y2){	if (!vdevice.initialised)		verror("rect: vogl not initialised");	move2(x1, y1);	draw2(x2, y1);	draw2(x2, y2);	draw2(x1, y2);	draw2(x1, y1);}

/*PRINTFLIKE1*/static voidnotice(const char *fmt, ...){	va_list ap;	if (g_quiet)		return; /* -q or quiet pragma suppresses notice()s */	va_start(ap, fmt);	verror(fmt, ap);	va_end(ap);}

VOID error(CHAR *fmt, ...)	{	va_list ap;	va_start(ap, fmt);	verror(fmt, ap);	va_end(ap);	#ifdef PARANOIA	exit(EXIT_FAILURE);	#endif	}

ATTR_COLD void ptokenizer::error(const char *format, ...){	va_list ap;	va_start(ap, format);	pstring errmsg1 = pstring(format).vprintf(ap);	va_end(ap);	verror(errmsg1, currentline_no(), currentline_str());	//throw error;}

int gap_parse_obj_config(cli_args *args, void *store, int objc,			 Tcl_Obj * const objv[]) {    int i, ret = 0;    cli_args *a;    Tcl_Obj *one_str;    one_str = Tcl_NewStringObj("1", -1);    for (i = 1; i < objc; i++) {	char *aname = Tcl_GetStringFromObj(objv[i], NULL);	for (a = args; a->command; a++) {	    if (strcmp(a->command, aname) == 0) {		if (a->value) {		    if (i == objc - 1) {			verror(ERR_WARN, "parse_args",			       "No argument given for option '%s'/n",			       aname);			ret = -1;			break;		    }		    		    parse_args_obj_set(a, store, objv[++i]);		} else		    parse_args_obj_set(a, store, one_str);		break;	    }	}	if (!a->command) {	    verror(ERR_WARN,"parse_args", "Unknown option '%s'/n", aname);	    ret = -1;	}    }    Tcl_DecrRefCount(one_str);    return ret;}

void obj_invoke_op(int inum, int op) {    extern HTablePtr csplot_hash[HASHMODULUS];    obj_generic *obj;    if (NULL == (obj = (obj_generic *)HashSearch(csplot_hash, inum))) {        verror(ERR_FATAL, "obj_invoke_op",               "Unknown canvas item number! (%d)/n", inum);        return;    }    if (obj->call.func)        obj->call.func(OBJ_INVOKE_OPERATION, &op, obj, obj->call.data);}

intok(int ret, const char *fn, ...){  va_list	list;  if (ret>=0)    return ret;  va_start(list, fn);  verror("failed", fn, list);  va_end(list);  return -1;}

/* * bgnpolygon * *	Set a flag so that we know what to do with v*() calls. */voidbgnpolygon(void){	if (vdevice.bgnmode != NONE)		verror("vogl: bgnpolygon mode already belongs to some other bgn routine");	vdevice.bgnmode = VPOLY;	vdevice.fill = polymodeflag;	vdevice.save = 1;	vdevice.inpolygon = 1;	if ((sync = vdevice.sync)!=0)                vdevice.sync = 0;}

static voidgdb_os_error (host_callback * p, const char *format,...){  if (deprecated_error_hook)    (*deprecated_error_hook) ();  else    {      va_list args;      va_start (args, format);      verror (format, args);      va_end (args);    }}