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

uint8_t dht11_check_response(void){    uint8_t k;    k = 150;    while(DHT_READ)    {        _delay_us(2);        k--;        if( k < 1 )        {            DPUTS("no start condition 1");            return 1;  // time out        }    }    k = 150;    while(!DHT_READ)    {        _delay_us(2);        k--;        if( k < 1 )        {            DPUTS("no start condition 2");            return 2;  // time out        }    }    return 0;}

/** Initialize minilink internal data. * /param stack_space Amount of stack space to reserve. */void minilink_init(void) {	char *tmpptr;	init_freearea_base();	DPUTS("Scanning free ROM space...");	for (tmpptr = freerom_end - 1; tmpptr >= freerom_start; tmpptr--) {		if (*tmpptr != (char) 0xff && *tmpptr != (char) 0x00) break;	}	freerom_start = (char*) ALIGN_WORD_NEXT((uintptr_t )tmpptr);	DPUTS("Minilink init OK");}

mod_export voidmakezleparams(int ro){    struct zleparam *zp;    for(zp = zleparams; zp->name; zp++) {	Param pm = createparam(zp->name, (zp->type |PM_SPECIAL|PM_REMOVABLE|					  PM_LOCAL|(ro ? PM_READONLY : 0)));	if (!pm)	    pm = (Param) paramtab->getnode(paramtab, zp->name);	DPUTS(!pm, "param not set in makezleparams");	pm->level = locallevel + 1;	pm->u.data = zp->data;	switch(PM_TYPE(zp->type)) {	    case PM_SCALAR:		pm->gsu.s = zp->gsu;		break;	    case PM_ARRAY:		pm->gsu.a = (GsuArray)zp->gsu;		break;	    case PM_INTEGER:		pm->gsu.i = (GsuInteger)zp->gsu;		pm->base = 10;		break;	}	if ((zp->type & PM_UNSET) && (zmod.flags & MOD_MULT))	    pm->node.flags &= ~PM_UNSET;    }}

mod_export char *parse_subscript(char *s, int sub){    int l = strlen(s), err;    char *t;    if (!*s || *s == ']')	return 0;    lexsave();    untokenize(t = dupstring(s));    inpush(t, 0, NULL);    strinbeg(0);    len = 0;    bptr = tokstr = s;    bsiz = l + 1;    err = dquote_parse(']', sub);    if (err) {	err = *bptr;	*bptr = 0;	untokenize(s);	*bptr = err;	s = 0;    } else	s = bptr;    strinend();    inpop();    DPUTS(cmdsp, "BUG: parse_subscript: cmdstack not empty.");    lexrestore();    return s;}

mod_export char *parse_subscript(char *s, int sub, int endchar){    int l = strlen(s), err;    char *t;    if (!*s || *s == endchar)	return 0;    zcontext_save();    untokenize(t = dupstring(s));    inpush(t, 0, NULL);    strinbeg(0);    lexbuf.len = 0;    lexbuf.ptr = tokstr = s;    lexbuf.siz = l + 1;    err = dquote_parse(endchar, sub);    if (err) {	err = *lexbuf.ptr;	*lexbuf.ptr = '/0';	untokenize(s);	*lexbuf.ptr = err;	s = NULL;    } else {	s = lexbuf.ptr;    }    strinend();    inpop();    DPUTS(cmdsp, "BUG: parse_subscript: cmdstack not empty.");    zcontext_restore();    return s;}

static voidaddcompparams(struct compparam *cp, Param *pp){    for (; cp->name; cp++, pp++) {	Param pm = createparam(cp->name,			       cp->type |PM_SPECIAL|PM_REMOVABLE|PM_LOCAL);	if (!pm)	    pm = (Param) paramtab->getnode(paramtab, cp->name);	DPUTS(!pm, "param not set in addcompparams");	*pp = pm;	pm->level = locallevel + 1;	if ((pm->u.data = cp->var)) {	    switch(PM_TYPE(cp->type)) {	    case PM_SCALAR:		pm->gsu.s = &compvarscalar_gsu;		break;	    case PM_INTEGER:		pm->gsu.i = &compvarinteger_gsu;		pm->base = 10;		break;	    case PM_ARRAY:		pm->gsu.a = &compvararray_gsu;		break;	    }	} else {	    pm->gsu.s = cp->gsu;	}    }}

static voiddec_tindent(void){    DPUTS(tindent == 0, "attempting to decrement tindent below zero");    if (tindent > 0)	tindent--;}

static voidsetpmmapfiles(Param pm, HashTable ht){    int i;    HashNode hn;    /* just to see if I've understood what's happening */    DPUTS(pm != mapfile_pm, "BUG: setpmmapfiles called for wrong param");    if (!ht)	return;    if (!(pm->flags & PM_READONLY))	for (i = 0; i < ht->hsize; i++)	    for (hn = ht->nodes[i]; hn; hn = hn->next) {		struct value v;		v.isarr = v.inv = v.start = 0;		v.end = -1;		v.arr = NULL;		v.pm = (Param) hn;		setpmmapfile(v.pm, ztrdup(getstrvalue(&v)));	    }    deleteparamtable(ht);}

static mnumbersetmathvar(struct mathvalue *mvp, mnumber v){    if (mvp->pval) {	/*	 * This value may have been hanging around for a while.	 * Be ultra-paranoid in checking the variable is still valid.	 */	char *s = mvp->lval, *ptr;	Param pm;	DPUTS(!mvp->lval, "no variable name but variable value in math");	if ((ptr = strchr(s, '[')))	    s = dupstrpfx(s, ptr - s);	pm = (Param) paramtab->getnode(paramtab, s);	if (pm == mvp->pval->pm) {	    if (noeval)		return v;	    setnumvalue(mvp->pval, v);	    return v;	}	/* Different parameter, start again from scratch */	mvp->pval = NULL;    }    if (!mvp->lval) {	zerr("lvalue required");	v.type = MN_INTEGER;	v.u.l = 0;	return v;    }    if (noeval)	return v;    untokenize(mvp->lval);    setnparam(mvp->lval, v);    return v;}

mod_export char *parse_subscript(char *s, int sub, int endchar){    int l = strlen(s), err, toklen;    char *t;    if (!*s || *s == endchar)	return 0;    zcontext_save();    untokenize(t = dupstring(s));    inpush(t, 0, NULL);    strinbeg(0);    /*     * Warning to Future Generations:     *     * This way of passing the subscript through the lexer is brittle.     * Code above this for several layers assumes that when we tokenise     * the input it goes into the same place as the original string.     * However, the lexer may overwrite later bits of the string or     * reallocate it, in particular when expanding aliaes.  To get     * around this, we copy the string and then copy it back.  This is a     * bit more robust but still relies on the underlying assumption of     * length preservation.     */    lexbuf.len = 0;    lexbuf.ptr = tokstr = dupstring(s);    lexbuf.siz = l + 1;    err = dquote_parse(endchar, sub);    toklen = (int)(lexbuf.ptr - tokstr);    DPUTS(toklen > l, "Bad length for parsed subscript");    memcpy(s, tokstr, toklen);    if (err) {	char *strend = s + toklen;	err = *strend;	*strend = '/0';	untokenize(s);	*strend = err;	s = NULL;    } else {	s += toklen;    }    strinend();    inpop();    DPUTS(cmdsp, "BUG: parse_subscript: cmdstack not empty.");    zcontext_restore();    return s;}

voidcmdpop(void){    if (cmdsp <= 0) {	DPUTS(1, "BUG: cmdstack empty");	fflush(stderr);    } else	cmdsp--;}

mod_export voidlexrestore(void){    struct lexstack *ln;    DPUTS(!lstack, "BUG: lexrestore() without lexsave()");    incmdpos = lstack->incmdpos;    incond = lstack->incond;    incasepat = lstack->incasepat;    dbparens = lstack->dbparens;    isfirstln = lstack->isfirstln;    isfirstch = lstack->isfirstch;    histactive = lstack->histactive;    histdone = lstack->histdone;    stophist = lstack->stophist;    chline = lstack->hline;    hptr = lstack->hptr;    if (cmdstack)	free(cmdstack);    cmdstack = lstack->cstack;    cmdsp = lstack->csp;    tok = lstack->tok;    isnewlin = lstack->isnewlin;    tokstr = lstack->tokstr;    yytext = lstack->yytext;    bptr = lstack->bptr;    bsiz = lstack->bsiz;    len = lstack->len;    chwords = lstack->chwords;    chwordlen = lstack->chwordlen;    chwordpos = lstack->chwordpos;    hwgetword = lstack->hwgetword;    lexstop = lstack->lexstop;    hdocs = lstack->hdocs;    hgetc = lstack->hgetc;    hungetc = lstack->hungetc;    hwaddc = lstack->hwaddc;    hwbegin = lstack->hwbegin;    hwend = lstack->hwend;    addtoline = lstack->addtoline;    if (ecbuf)	zfree(ecbuf, eclen);    eclen = lstack->eclen;    ecused = lstack->ecused;    ecnpats = lstack->ecnpats;    ecbuf = lstack->ecbuf;    ecstrs = lstack->ecstrs;    ecsoffs = lstack->ecsoffs;    ecssub = lstack->ecssub;    ecnfunc = lstack->ecnfunc;    hlinesz = lstack->hlinesz;    errflag = 0;    ln = lstack->next;    free(lstack);    lstack = ln;}

/*****************************************************************************	DISCRIPTION	: ELFロ
C++ DPrintf函数代码示例
C++ DPTR_D函数代码示例