/* list character in C */
static void
list(z80info *z80)
{
static FILE *fp = NULL;
if (fp == NULL)
{
fp = fopen("list", "w");
if (fp == NULL)
return;
}
/* close up on EOF */
if (C == CNTL('D') || C == '\0')
{
fclose(fp);
fp = NULL;
return;
}
putc(C, fp);
}
/* return reader char in A, ^Z is EOF */
static void
reader(z80info *z80)
{
A = CNTL('Z');
}
"\n"
"[+EXIT STATUS?]{"
"[+0?Successful completion.]"
"[+>0?An error occurred.]"
"}"
"[+SEE ALSO?\bksh\b(1)]"
;
#include <shell.h>
#include "defs.h"
#include "shnodes.h"
#include "sys/stat.h"
#define CNTL(x) ((x)&037)
#define VERSION 3
static const char header[6] = { CNTL('k'),CNTL('s'),CNTL('h'),0,VERSION,0 };
int main(int argc, char *argv[])
{
Sfio_t *in, *out;
Shell_t *shp;
Namval_t *np;
Shnode_t *t;
char *cp;
int n, nflag=0, vflag=0, dflag=0;
error_info.id = argv[0];
while(n = optget(argv, usage )) switch(n)
{
case 'D':
dflag=1;
break;
Ejustify = Ecenter|Eleft|Eright
};
static TkStab tkjust[] =
{
"left", Eleft,
"right", Eright,
"center", Ecenter,
nil
};
static
TkEbind b[] =
{
{TkKey, "%W delete sel.first sel.last; %W insert insert {%A};%W see insert"},
{TkKey|CNTL('a'), "%W icursor 0;%W see insert;%W selection clear"},
{TkKey|Home, "%W icursor 0;%W see insert;%W selection clear"},
{TkKey|CNTL('d'), "%W delete insert; %W see insert"},
{TkKey|CNTL('e'), "%W icursor end; %W see insert;%W selection clear"},
{TkKey|End, "%W icursor end; %W see insert;%W selection clear"},
{TkKey|CNTL('h'), "%W tkEntryBS;%W see insert"},
{TkKey|CNTL('k'), "%W delete insert end;%W see insert"},
{TkKey|CNTL('u'), "%W delete 0 end;%W see insert"},
{TkKey|CNTL('w'), "%W delete sel.first sel.last; %W tkEntryBW;%W see insert"},
{TkKey|DEL, "%W tkEntryBS 1;%W see insert"},
{TkKey|CNTL('\\'), "%W selection clear"},
{TkKey|CNTL('/'), "%W selection range 0 end"},
{TkKey|Left, "%W icursor insert-1;%W selection clear;%W selection from insert;%W see insert"},
{TkKey|Right, "%W icursor insert+1;%W selection clear;%W selection from insert;%W see insert"},
{TkButton1P, "focus %W; %W tkEntryB1P %X"},
{TkButton1P|TkMotion, "%W tkEntryB1M %X"},
