/* 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"},