int main ()
{
int option,n,i,m;
min=NIL;
while(1)
{printf("\nmenu\n");
printf("1:create fibonacci heap\n");
printf("2:insert in fibonacci heap\n");
printf("3: find min in fibonacci heap \n");
printf("4:display\n");
printf("5: exit \n");
scanf ("%d",&option);
switch(option)
{
case 1 :create_fib();
break;
case 2: printf("\nenter the element= ");
scanf("%d",&n);
Finsert(n);
break;
case 3: findmin();
break;
case 4: display(min1);
break;
case 5 :exit(1);
default: printf("\nwrong choice... try again \n ");
}
}
}
Posn
readio(File *f, int *nulls, int setdate)
{
int n, b, w;
Rune *r;
Posn nt;
Posn p = addr.r.p2;
ulong dev, qid;
long mtime;
char buf[BLOCKSIZE+1], *s;
*nulls = FALSE;
b = 0;
for(nt = 0; (n = read(io, buf+b, BLOCKSIZE-b))>0; nt+=(r-genbuf)){
n += b;
b = 0;
r = genbuf;
s = buf;
while(n > 0){
if((*r = *(uchar*)s) < Runeself){
if(*r)
r++;
else
*nulls = TRUE;
--n;
s++;
continue;
}
if(fullrune(s, n)){
w = chartorune(r, s);
if(*r)
r++;
else
*nulls = TRUE;
n -= w;
s += w;
continue;
}
b = n;
memmove(buf, s, b);
break;
}
Finsert(f, tmprstr(genbuf, r-genbuf), p);
}
if(b)
*nulls = TRUE;
if(*nulls)
warn(Wnulls);
if(setdate){
if(statfd(io, &dev, &qid, &mtime, 0, 0) > 0){
f->dev = dev;
f->qid = qid;
f->date = mtime;
checkqid(f);
}
}
return nt;
}
bool
append(File *f, Cmd *cp, Posn p)
{
if(cp->ctext->n>0 && cp->ctext->s[cp->ctext->n-1]==0)
--cp->ctext->n;
if(cp->ctext->n>0)
Finsert(f, cp->ctext, p);
f->ndot.r.p1 = p;
f->ndot.r.p2 = p+cp->ctext->n;
return true;
}
void
termwrite(char *s)
{
String *p;
if(downloaded){
p = tmpcstr(s);
if(cmd)
Finsert(cmd, p, cmdpt);
else
Strinsert(&cmdstr, p, cmdstr.n);
cmdptadv += p->n;
}else
Write(2, s, strlen(s));
}
bool
s_cmd(File *f, Cmd *cp)
{
int i, j, c, n;
Posn p1, op, delta = 0;
bool didsub = false;
n = cp->num;
op= -1;
compile(cp->re);
for(p1 = addr.r.p1; p1<=addr.r.p2 && execute(f, p1, addr.r.p2); ){
if(sel.p[0].p1==sel.p[0].p2){ /* empty match? */
if(sel.p[0].p1==op){
p1++;
continue;
}
p1 = sel.p[0].p2+1;
}else
p1 = sel.p[0].p2;
op = sel.p[0].p2;
if(--n>0)
continue;
Strzero(&genstr);
for(i = 0; i<cp->ctext->n; i++)
if((c = cp->ctext->s[i])=='\\' && i<cp->ctext->n-1){
c = cp->ctext->s[++i];
if('1'<=c && c<='9') {
j = c-'0';
if(sel.p[j].p2-sel.p[j].p1>BLOCKSIZE)
error(Elongtag);
Fchars(f, genbuf, sel.p[j].p1, sel.p[j].p2);
Strinsert(&genstr, tmprstr(genbuf, (sel.p[j].p2-sel.p[j].p1)), genstr.n);
}else
Straddc(&genstr, c);
}else if(c!='&')
Straddc(&genstr, c);
else{
if(sel.p[0].p2-sel.p[0].p1>BLOCKSIZE)
error(Elongrhs);
Fchars(f, genbuf, sel.p[0].p1, sel.p[0].p2);
Strinsert(&genstr,
tmprstr(genbuf, (int)(sel.p[0].p2-sel.p[0].p1)),
genstr.n);
}
if(sel.p[0].p1!=sel.p[0].p2){
Fdelete(f, sel.p[0].p1, sel.p[0].p2);
delta-=sel.p[0].p2-sel.p[0].p1;
}
if(genstr.n){
Finsert(f, &genstr, sel.p[0].p2);
delta+=genstr.n;
}
didsub = true;
if(!cp->flag)
break;
}
if(!didsub && nest==0)
error(Enosub);
f->ndot.r.p1 = addr.r.p1, f->ndot.r.p2 = addr.r.p2+delta;
return true;
}
int
inmesg(Tmesg type)
{
Rune buf[1025];
int i, m;
short s;
long l, l1;
File *f;
Posn p0, p1;
Range r;
String *str;
char *c;
Rune *rp;
if(type > TMAX)
panic("inmesg");
journal(0, tname[type]);
inp = indata;
switch(type) {
case -1:
panic("rcv error");
default:
fprint(2, "unknown type %d\n", type);
panic("rcv unknown");
case Tversion:
tversion = inshort();
journaln(0, tversion);
break;
case Tstartcmdfile:
l = invlong(); /* for 64-bit pointers */
journaln(0, l);
Strdupl(&genstr, samname);
cmd = newfile();
outTsv(Hbindname, cmd->tag, l);
outTs(Hcurrent, cmd->tag);
Fsetname(cmd, &genstr);
cmd->rasp = emalloc(sizeof(List));
cmd->state = Clean;
if(cmdstr.n) {
Finsert(cmd, &cmdstr, 0L);
Strdelete(&cmdstr, 0L, (Posn)cmdstr.n);
}
Fupdate(cmd, FALSE, TRUE);
outT0(Hunlock);
break;
case Tcheck:
/* go through whichfile to check the tag */
outTs(Hcheck, whichfile(inshort())->tag);
break;
case Trequest:
f = whichfile(inshort());
p0 = inlong();
p1 = p0+inshort();
journaln(0, p0);
journaln(0, p1-p0);
if(f->state == Unread)
panic("Trequest: unread");
if(p1>f->nrunes)
p1 = f->nrunes;
if(p0>f->nrunes) /* can happen e.g. scrolling during command */
p0 = f->nrunes;
if(p0 == p1) {
i = 0;
r.p1 = r.p2 = p0;
} else {
r = rdata(f->rasp, p0, p1-p0);
i = r.p2-r.p1;
if(Fchars(f, buf, r.p1, r.p2)!=i)
panic("Trequest 2");
}
buf[i]=0;
outTslS(Hdata, f->tag, r.p1, tmprstr(buf, i+1));
break;
case Torigin:
s = inshort();
l = inlong();
l1 = inlong();
journaln(0, l1);
lookorigin(whichfile(s), l, l1);
break;
case Tstartfile:
termlocked++;
f = whichfile(inshort());
if(!f->rasp) /* this might be a duplicate message */
f->rasp = emalloc(sizeof(List));
current(f);
outTsv(Hbindname, f->tag, invlong()); /* for 64-bit pointers */
outTs(Hcurrent, f->tag);
journaln(0, f->tag);
if(f->state == Unread)
load(f);
else {
if(f->nrunes>0) {
rgrow(f->rasp, 0L, f->nrunes);
outTsll(Hgrow, f->tag, 0L, f->nrunes);
}
outTs(Hcheck0, f->tag);
moveto(f, f->dot.r);
}
break;
case Tworkfile:
i = inshort();
f = whichfile(i);
current(f);
f->dot.r.p1 = inlong();
f->dot.r.p2 = inlong();
f->tdot = f->dot.r;
journaln(0, i);
journaln(0, f->dot.r.p1);
journaln(0, f->dot.r.p2);
break;
case Ttype:
f = whichfile(inshort());
p0 = inlong();
journaln(0, p0);
journal(0, (char*)inp);
str = tmpcstr((char*)inp);
i = str->n;
Finsert(f, str, p0);
if(Fupdate(f, FALSE, FALSE))
modnum++;
if(f==cmd && p0==f->nrunes-i && i>0 && str->s[i-1]=='\n') {
freetmpstr(str);
termlocked++;
termcommand();
} else
freetmpstr(str);
f->dot.r.p1 = f->dot.r.p2 = p0+i; /* terminal knows this already */
f->tdot = f->dot.r;
break;
case Tcut:
f = whichfile(inshort());
p0 = inlong();
p1 = inlong();
journaln(0, p0);
journaln(0, p1);
Fdelete(f, p0, p1);
if(Fupdate(f, FALSE, FALSE))
modnum++;
f->dot.r.p1 = f->dot.r.p2 = p0;
f->tdot = f->dot.r; /* terminal knows the value of dot already */
break;
case Tpaste:
f = whichfile(inshort());
p0 = inlong();
journaln(0, p0);
for(l=0; l<snarfbuf->nrunes; l+=m) {
m = snarfbuf->nrunes-l;
if(m>BLOCKSIZE)
m = BLOCKSIZE;
Bread(snarfbuf, genbuf, m, l);
Finsert(f, tmprstr(genbuf, m), p0);
}
if(Fupdate(f, FALSE, TRUE))
modnum++;
f->dot.r.p1 = p0;
f->dot.r.p2 = p0+snarfbuf->nrunes;
f->tdot.p1 = -1; /* force telldot to tell (arguably a BUG) */
telldot(f);
outTs(Hunlockfile, f->tag);
break;
case Tsnarf:
i = inshort();
p0 = inlong();
p1 = inlong();
snarf(whichfile(i), p0, p1, snarfbuf, 0);
break;
case Tstartnewfile:
l = invlong();
Strdupl(&genstr, empty);
f = newfile();
f->rasp = emalloc(sizeof(List));
outTsv(Hbindname, f->tag, l);
Fsetname(f, &genstr);
outTs(Hcurrent, f->tag);
current(f);
load(f);
break;
case Twrite:
termlocked++;
i = inshort();
journaln(0, i);
f = whichfile(i);
addr.r.p1 = 0;
addr.r.p2 = f->nrunes;
if(f->name.s[0] == 0)
error(Enoname);
Strduplstr(&genstr, &f->name);
writef(f);
break;
case Tclose:
termlocked++;
i = inshort();
journaln(0, i);
f = whichfile(i);
current(f);
trytoclose(f);
/* if trytoclose fails, will error out */
delete(f);
break;
case Tlook:
f = whichfile(inshort());
termlocked++;
p0 = inlong();
p1 = inlong();
journaln(0, p0);
journaln(0, p1);
setgenstr(f, p0, p1);
for(l = 0; l<genstr.n; l++) {
i = genstr.s[l];
if(utfrune(".*+?(|)\\[]^$", i))
Strinsert(&genstr, tmpcstr("\\"), l++);
}
Straddc(&genstr, '\0');
nextmatch(f, &genstr, p1, 1);
moveto(f, sel.p[0]);
break;
case Tsearch:
termlocked++;
if(curfile == 0)
error(Enofile);
if(lastpat.s[0] == 0)
panic("Tsearch");
nextmatch(curfile, &lastpat, curfile->dot.r.p2, 1);
moveto(curfile, sel.p[0]);
break;
case Tsend:
termlocked++;
inshort(); /* ignored */
p0 = inlong();
p1 = inlong();
setgenstr(cmd, p0, p1);
Bdelete(snarfbuf, (Posn)0, snarfbuf->nrunes);
Binsert(snarfbuf, &genstr, (Posn)0);
outTl(Hsnarflen, genstr.n);
if(genstr.s[genstr.n-1] != '\n')
Straddc(&genstr, '\n');
Finsert(cmd, &genstr, cmd->nrunes);
Fupdate(cmd, FALSE, TRUE);
cmd->dot.r.p1 = cmd->dot.r.p2 = cmd->nrunes;
telldot(cmd);
termcommand();
break;
case Tdclick:
f = whichfile(inshort());
p1 = inlong();
doubleclick(f, p1);
f->tdot.p1 = f->tdot.p2 = p1;
telldot(f);
outTs(Hunlockfile, f->tag);
break;
case Tstartsnarf:
if (snarfbuf->nrunes <= 0) { /* nothing to export */
outTs(Hsetsnarf, 0);
break;
}
c = 0;
i = 0;
m = snarfbuf->nrunes;
if(m > 32000) { /* tmprstr stores len in a short */
m = 32000;
dprint("?warning: snarf buffer truncated\n");
}
rp = malloc(m*sizeof(Rune));
if(rp) {
Bread(snarfbuf, rp, m, 0);
c = Strtoc(tmprstr(rp, m));
free(rp);
i = strlen(c);
}
outTs(Hsetsnarf, i);
if(c) {
Write(1, c, i);
free(c);
} else
dprint("snarf buffer too long\n");
break;
case Tsetsnarf:
m = inshort();
if(m > SNARFSIZE)
error(Etoolong);
c = malloc(m+1);
if(c) {
for(i=0; i<m; i++)
c[i] = rcvchar();
c[m] = 0;
str = tmpcstr(c);
free(c);
Bdelete(snarfbuf, (Posn)0, snarfbuf->nrunes);
Binsert(snarfbuf, str, (Posn)0);
freetmpstr(str);
outT0(Hunlock);
}
break;
case Tack:
waitack = 0;
break;
case Texit:
exits(0);
}
return TRUE;
}
