o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add undocumented Abort builtin

Browse source
This commit is contained in:
rsc 2005-01-23 22:57:06 +00:00
parent a05c312b47
commit 6dd68c9ad7
1 changed files with 27 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/cmd/acme/exec.c
View file

@ -14,6 +14,7 @@
Buffer snarfbuf; Buffer snarfbuf;
void doabort(Text*, Text*, Text*, int, int, Rune*, int);
void del(Text*, Text*, Text*, int, int, Rune*, int); void del(Text*, Text*, Text*, int, int, Rune*, int);
void delcol(Text*, Text*, Text*, int, int, Rune*, int); void delcol(Text*, Text*, Text*, int, int, Rune*, int);
void dotfiles(Text*, Text*, Text*, int, int, Rune*, int); void dotfiles(Text*, Text*, Text*, int, int, Rune*, int);
@ -47,6 +48,7 @@ struct Exectab
int flag2; int flag2;
}; };
static Rune LAbort[] = { 'A', 'b', 'o', 'r', 't', 0 };
static Rune LCut[] = { 'C', 'u', 't', 0 }; static Rune LCut[] = { 'C', 'u', 't', 0 };
static Rune LDel[] = { 'D', 'e', 'l', 0 }; static Rune LDel[] = { 'D', 'e', 'l', 0 };
static Rune LDelcol[] = { 'D', 'e', 'l', 'c', 'o', 'l', 0 }; static Rune LDelcol[] = { 'D', 'e', 'l', 'c', 'o', 'l', 0 };
@ -77,13 +79,14 @@ static Rune LUndo[] = { 'U', 'n', 'd', 'o', 0 };
static Rune LZerox[] = { 'Z', 'e', 'r', 'o', 'x', 0 }; static Rune LZerox[] = { 'Z', 'e', 'r', 'o', 'x', 0 };
Exectab exectab[] = { Exectab exectab[] = {
{ LAbort, doabort, FALSE, XXX, XXX, },
{ LCut, cut, TRUE, TRUE, TRUE }, { LCut, cut, TRUE, TRUE, TRUE },
{ LDel, del, FALSE, FALSE, XXX }, { LDel, del, FALSE, FALSE, XXX },
{ LDelcol, delcol, FALSE, XXX, XXX }, { LDelcol, delcol, FALSE, XXX, XXX },
{ LDelete, del, FALSE, TRUE, XXX }, { LDelete, del, FALSE, TRUE, XXX },
{ LDump, dump, FALSE, TRUE, XXX }, { LDump, dump, FALSE, TRUE, XXX },
{ LEdit, edit, FALSE, XXX, XXX }, { LEdit, edit, FALSE, XXX, XXX },
{ LExit, xexit, FALSE, XXX, XXX }, { LExit, xexit, FALSE, XXX, XXX },
{ LFont, fontx, FALSE, XXX, XXX }, { LFont, fontx, FALSE, XXX, XXX },
{ LGet, get, FALSE, TRUE, XXX }, { LGet, get, FALSE, TRUE, XXX },
{ LID, id, FALSE, XXX, XXX }, { LID, id, FALSE, XXX, XXX },
@ -104,7 +107,7 @@ Exectab exectab[] = {
{ LSort, sort, FALSE, XXX, XXX }, { LSort, sort, FALSE, XXX, XXX },
{ LTab, tab, FALSE, XXX, XXX }, { LTab, tab, FALSE, XXX, XXX },
{ LUndo, undo, FALSE, TRUE, XXX }, { LUndo, undo, FALSE, TRUE, XXX },
{ LZerox, zeroxx, FALSE, XXX, XXX }, { LZerox, zeroxx, FALSE, XXX, XXX },
{ nil, 0, 0, 0, 0 }, { nil, 0, 0, 0, 0 },
}; };
@ -304,6 +307,25 @@ getbytearg(Text *argt, int doaddr, int dofile, char **bp)
return aa; return aa;
} }
void
doabort(Text *__0, Text *_0, Text *_1, int _2, int _3, Rune *_4, int _5)
{
static int n;
USED(__0);
USED(_0);
USED(_1);
USED(_2);
USED(_3);
USED(_4);
USED(_5);
if(n++ == 0)
warning(nil, "executing Abort again will call abort()\n");
else
abort();
}
void void
newcol(Text *et, Text *_0, Text *_1, int _2, int _3, Rune *_4, int _5) newcol(Text *et, Text *_0, Text *_1, int _2, int _3, Rune *_4, int _5)
{ {