void
TTdump(meBuffer *bp)
{
meUShort r1, r2, c1, c2 ;
meUByte buff[TTdepthDefault*TTdepthDefault*2], *ss ;
meUByte line[TTwidthDefault] ;
ScreenRetrieve(buff) ;
r1 = ScreenRows() ;
c1 = ScreenCols() ;
ss = buff ;
for(r2=0 ; r2<r1 ; r2++)
{
for(c2=0 ; c2<c1 ; c2++)
{
line[c2] = *ss++ ;
ss++ ;
}
line[c2] = '\0' ;
addLineToEob(bp,line) ;
}
}
static int
findHelpItem(meUByte *item, int silent)
{
meWindow *wp ;
meBuffer *bp, *hbp ;
meLine *lp, *elp ;
int sectLen, itemLen, ii ;
meUByte *ss, cc, sect[5] ;
itemLen = meStrlen(item) ;
if((item[itemLen-1] == ')') &&
((item[(ii=itemLen-3)] == '(') ||
(item[(ii=itemLen-4)] == '(') ))
{
sectLen = itemLen-ii-2 ;
meStrcpy(sect,item+ii) ;
itemLen = ii ;
item[itemLen] = '\0' ;
}
else
{
sectLen = 0 ;
sect[0] = '\0' ;
sect[1] = '\0' ;
}
if((hbp=helpBufferFind()) == NULL)
return meABORT ;
elp = hbp->baseLine ;
try_again:
lp = meLineGetNext(elp) ;
while(lp != elp)
{
if((lp->text[0] == '!') &&
(!sectLen ||
((sect[1] == lp->text[2]) &&
(((sectLen == 1) && (lp->text[3] == ' ')) ||
(sect[2] == lp->text[3])))))
{
if((cc=lp->text[1]) == ' ')
{
ii = meLineGetLength(lp) - 4 ;
if(ii != itemLen)
ii = -1 ;
}
else
{
ii = cc - '0' ;
if(ii > itemLen)
ii = -1 ;
}
if((ii > 0) && !meStrncmp(item,lp->text+4,ii))
break ;
}
lp = meLineGetNext(lp) ;
}
if(lp == elp)
{
meMacro *mac ;
if(!meModeTest(hbp->mode,MDLOCK))
{
if(helpBufferLoad(hbp) == meABORT)
return meABORT ;
goto try_again ;
}
if((getMacroTypeS(item) == TKCMD) &&
((ii = decode_fncname(item,1)) >= CK_MAX) &&
((mac = getMacro(ii)) != NULL) &&
(mac->hlp->flag & meMACRO_FILE))
{
meModeClear(hbp->mode,MDVIEW) ;
if(mac->fname != NULL)
execFile(mac->fname,0,1) ;
else
execFile(mac->name,0,1) ;
helpBufferReset(hbp) ;
if(!(mac->hlp->flag & meMACRO_FILE))
goto try_again ;
}
if(!silent)
mlwrite(MWABORT,(meUByte *)"[Can't find help on %s%s]",item,sect);
return meABORT ;
}
if((wp = meWindowPopup(BhelpN,BFND_CREAT|BFND_CLEAR|WPOP_USESTR,NULL)) == NULL)
return false ;
if((sectLen == 0) && (lp->text[2] != ' '))
{
ss = sect ;
*ss++ = '(' ;
*ss++ = lp->text[2] ;
if(lp->text[3] != ' ')
*ss++ = lp->text[3] ;
*ss++ = ')' ;
*ss = '\0' ;
}
bp = wp->buffer ;
/* Add the header */
{
meUByte buff[meBUF_SIZE_MAX] ;
sprintf((char *)buff,"\033cD%s%s\033cA",lp->text+4,sect) ;
addLineToEob(bp,buff) ;
addLineToEob(bp,(meUByte *)"\n\033lsMicroEmacs\033lm[Home]\033le \033lsCommand G\033lm[Commands]\033le \033lsVariable \033lm[Variables]\033le \033lsMacro Lan\033lm[Macro-Dev]\033le \033lsGlobal G\033lm[Glossary]\033le") ;
memset(buff,boxChars[BCEW],78) ;
buff[78] = '\n' ;
buff[79] = '\0' ;
addLineToEob(bp,buff) ;
}
while(((lp=meLineGetNext(lp)) != elp) && (lp->text[0] == '!'))
;
while((lp != elp) && ((cc=lp->text[0]) != '!'))
{
if(cc == '|')
{
if(meStrcmp(item,lp->text+1))
lp = meLineGetNext(lp) ;
}
else if(cc == '$')
{
if(lp->text[1] == 'a')
{
if(sect[1] == '5')
{
meUByte line[meBUF_SIZE_MAX], *ss ;
if((ss = getval(item)) != NULL)
{
addLineToEob(bp,(meUByte *)"\n\n\033cEVALUE\033cA\n") ;
meStrcpy(line," \"") ;
meStrncpy(line+5,ss,meBUF_SIZE_MAX-13) ;
line[meBUF_SIZE_MAX-2] = '\0' ;
meStrcat(line,"\"") ;
addLineToEob(bp,line) ;
}
}
if(sect[1] == '2')
{
if((ii = decode_fncname(item,1)) >= 0)
{
meBind *ktp ;
meUByte line[meBUF_SIZE_MAX], *ss ;
addLineToEob(bp,(meUByte *)"\n\n\033cEBINDINGS\033cA\n") ;
meStrcpy(line," ") ;
ss = line+4 ;
for(ktp = &keytab[0] ; ktp->code != ME_INVALID_KEY ; ktp++)
{
if(ktp->index == ii)
{
*ss++ = '"' ;
meGetStringFromKey(ktp->code,ss);
ss += meStrlen(ss) ;
*ss++ = '"' ;
*ss++ = ' ' ;
}
}
if(ss == line+4)
meStrcpy(ss,"none") ;
else
*ss = '\0' ;
addLineToEob(bp,line) ;
}
}
}
}
else
addLineToEob(bp,lp->text) ;
lp = meLineGetNext(lp) ;
}
/* Add the footer */
{
meUByte buff[meBUF_SIZE_MAX] ;
buff[0] = '\n' ;
memset(buff+1,boxChars[BCEW],78) ;
sprintf((char *)buff+79,"\n\033lsCopyright\033lm%s\033le",meCopyright) ;
addLineToEob(bp,buff) ;
}
bp->dotLine = meLineGetNext(bp->baseLine);
bp->dotOffset = 0 ;
bp->dotLineNo = 0 ;
meModeClear(bp->mode,MDEDIT) ; /* don't flag this as a change */
meModeSet(bp->mode,MDVIEW) ; /* put this buffer view mode */
resetBufferWindows(bp) ; /* Update the window */
mlerase(MWCLEXEC); /* clear the mode line */
return true ;
}
/*
* listRegistry
* List the contents of the registry.
*/
int
listRegistry (int f, int n)
{
meBuffer *bp; /* Buffer pointer */
meWindow *wp; /* Window associated with buffer */
meRegNode *rnp, *cnp, *nnp ; /* Draw the nodes */
meUByte vstrbuf [meBUF_SIZE_MAX]; /* Vertical string buffer */
meUByte *bn, buf[meBUF_SIZE_MAX*2]; /* Working line buffer */
int level = 0; /* Depth in the registry */
int len; /* Length of the string */
rnp = &root;
if((n & 0x02) != 0)
{
if(meGetString((meUByte *)"Registry Path",0, 0, buf, meBUF_SIZE_MAX) == meABORT)
return meABORT;
/* Find the node */
if((rnp = regFind(rnp,buf)) == NULL)
return mlwrite(MWCLEXEC|MWABORT,(meUByte *)"[Cannot find node %s]",buf);
}
if((n & 0x01) == 0)
{
/* prompt for and get the new buffer name */
if((len = getBufferName((meUByte *) "Buffer", 0, 0, buf)) <= 0)
return len ;
bn = buf ;
}
else
bn = BregistryN ;
/* Find the buffer and vapour the old one */
if((wp = meWindowPopup(bn,BFND_CREAT|BFND_CLEAR|WPOP_USESTR,NULL)) == NULL)
return meFALSE;
bp = wp->buffer ; /* Point to the buffer */
/* Recurse the children of the node and write to file */
do
{
/* get the current node's first drawn child */
cnp = rnp->child ;
while((cnp != NULL) && (cnp->mode & meREGMODE_INVISIBLE))
cnp = cnp->next ;
/* get the current node's next drawn sibling */
nnp = rnp->next ;
while((nnp != NULL) && (nnp->mode & meREGMODE_INVISIBLE))
nnp = nnp->next ;
/* Add continuation bars if we are at a child level */
if((len = level) != 0)
meStrncpy (buf, vstrbuf, len);
/* Add connection bars for siblings */
if(level && (nnp != NULL))
buf [len++] = boxChars[BCNES] ;
else
buf [len++] = boxChars[BCNE];
/* Add continuation barss for children */
if (rnp->mode & meREGMODE_INTERNAL)
buf[len++] = '!';
else if (cnp == NULL)
buf[len++] = boxChars[BCEW];
else if (rnp->mode & meREGMODE_HIDDEN)
buf[len++] = '+';
else
buf[len++] = '-';
buf[len++] = ' ';
/* Add the name of the node */
buf[len++] = '"';
len = expandexp(-1,rnp->name,(meBUF_SIZE_MAX*2)-7,len,buf,-1,NULL,meEXPAND_BACKSLASH|meEXPAND_FFZERO) ;
buf[len++] = '"';
/* Add the value */
if ((rnp->value != NULL) && !(rnp->mode & meREGMODE_INTERNAL))
{
buf[len++] = ' ';
buf[len++] = '=';
buf[len++] = ' ';
buf[len++] = '"';
len = expandexp(-1,rnp->value,(meBUF_SIZE_MAX*2)-2,len,buf,-1,NULL,meEXPAND_BACKSLASH|meEXPAND_FFZERO) ;
buf[len++] = '"';
}
/* Add the string to the print buffer */
buf[len] = '\0';
addLineToEob(bp,buf);
/* Descend child */
if((cnp != NULL) && !(rnp->mode & (meREGMODE_HIDDEN|meREGMODE_INTERNAL)))
{
vstrbuf[level] = (level && (nnp != NULL)) ? boxChars[BCNS] : ' ' ;
level++;
rnp = cnp ;
continue ;
}
/* Ascend the tree */
while((nnp == NULL) && (--level >= 0) && ((rnp = rnp->parent) != NULL))
{
/* Move to next drawn sibling */
nnp = rnp->next ;
while((nnp != NULL) && (nnp->mode & meREGMODE_INVISIBLE))
nnp = nnp->next ;
}
rnp = nnp ;
} while((level > 0) && (rnp != NULL)) ;
/* Set up the buffer for display */
bp->dotLine = meLineGetNext(bp->baseLine);
bp->dotOffset = 0 ;
bp->dotLineNo = 0 ;
meModeSet(bp->mode,MDVIEW) ;
meModeClear(bp->mode,MDAUTOSV) ;
meModeClear(bp->mode,MDUNDO) ;
resetBufferWindows(bp) ;
return meTRUE;
}
