iscreen.c - gramscii - A simple editor for ASCII box-and-arrow charts	Err	bitreich.org	70
1Log	/scm/gramscii/log.gph	bitreich.org	70
1Files	/scm/gramscii/files.gph	bitreich.org	70
1Refs	/scm/gramscii/refs.gph	bitreich.org	70
1Tags	/scm/gramscii/tag	bitreich.org	70
1README	/scm/gramscii/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/gramscii/file/COPYING.gph	bitreich.org	70
i---	Err	bitreich.org	70
iscreen.c (10512B)	Err	bitreich.org	70
i---	Err	bitreich.org	70
i     1 #define _POSIX_C_SOURCE 200112L	Err	bitreich.org	70
i     2 	Err	bitreich.org	70
i     3 #include <stdio.h>	Err	bitreich.org	70
i     4 #include <stdlib.h>	Err	bitreich.org	70
i     5 #include <string.h>	Err	bitreich.org	70
i     6 #include <termios.h>	Err	bitreich.org	70
i     7 #include <sys/ioctl.h>	Err	bitreich.org	70
i     8 #include <ctype.h>	Err	bitreich.org	70
i     9 	Err	bitreich.org	70
i    10 #include "gramscii.h"	Err	bitreich.org	70
i    11 #include "config.h"	Err	bitreich.org	70
i    12 	Err	bitreich.org	70
i    13 /** extern declarations **/	Err	bitreich.org	70
i    14 	Err	bitreich.org	70
i    15 extern lineset_t screen; /* what is visualised */	Err	bitreich.org	70
i    16 extern lineset_t cutbuf; /* cut/paste buffer */	Err	bitreich.org	70
i    17 extern lineset_t *undo;  /* undo list */	Err	bitreich.org	70
i    18 	Err	bitreich.org	70
i    19 extern pos_t marks[26]; /* position marks */	Err	bitreich.org	70
i    20 extern char mark_map[26]; /* marks map */	Err	bitreich.org	70
i    21 	Err	bitreich.org	70
i    22 extern int undo_sz;/* allocated size of undo list*/	Err	bitreich.org	70
i    23 extern int undo_cur;/* undo position */	Err	bitreich.org	70
i    24 extern int undo_lst;/* last valid undo position */	Err	bitreich.org	70
i    25 	Err	bitreich.org	70
i    26 extern int WIDTH, HEIGHT;	Err	bitreich.org	70
i    27 	Err	bitreich.org	70
i    28 extern int mode;/* mode */	Err	bitreich.org	70
i    29 extern int dir;/* line direction */	Err	bitreich.org	70
i    30 extern int x;	Err	bitreich.org	70
i    31 extern int y;	Err	bitreich.org	70
i    32 extern int step;/* current step */	Err	bitreich.org	70
i    33 extern int mult;/* current multiplier */	Err	bitreich.org	70
i    34 	Err	bitreich.org	70
i    35 extern char corner;	Err	bitreich.org	70
i    36 	Err	bitreich.org	70
i    37 /* number of available markers for each type */	Err	bitreich.org	70
i    38 extern int hlines_sz;	Err	bitreich.org	70
i    39 extern int vlines_sz;	Err	bitreich.org	70
i    40 extern int corners_sz;	Err	bitreich.org	70
i    41 extern int stmarks_sz;	Err	bitreich.org	70
i    42 extern int endmarks_sz;	Err	bitreich.org	70
i    43 /**/	Err	bitreich.org	70
i    44 	Err	bitreich.org	70
i    45 /* line and arrow markers */	Err	bitreich.org	70
i    46 extern int cur_hl, cur_vl, cur_corn, cur_start, cur_end;	Err	bitreich.org	70
i    47 extern char line_h;	Err	bitreich.org	70
i    48 extern char line_v;	Err	bitreich.org	70
i    49 extern char mark_st;	Err	bitreich.org	70
i    50 extern char mark_end;	Err	bitreich.org	70
i    51 /**/	Err	bitreich.org	70
i    52 	Err	bitreich.org	70
i    53 extern char modified; /* set to 1 if screen modified since last save */	Err	bitreich.org	70
i    54 extern char fname[256];	Err	bitreich.org	70
i    55 	Err	bitreich.org	70
i    56 	Err	bitreich.org	70
i    57 extern char script; /* set to 1 in script-mode */	Err	bitreich.org	70
i    58 	Err	bitreich.org	70
i    59 extern struct termios t2, t3;	Err	bitreich.org	70
i    60 	Err	bitreich.org	70
i    61 	Err	bitreich.org	70
i    62 /*** screen management functions ***/	Err	bitreich.org	70
i    63 	Err	bitreich.org	70
i    64 /*** _isblank ***/	Err	bitreich.org	70
i    65 	Err	bitreich.org	70
i    66 int _isblank(int c){	Err	bitreich.org	70
i    67         return c==32 || c==9 ? 1 : 0;	Err	bitreich.org	70
i    68 }	Err	bitreich.org	70
i    69 	Err	bitreich.org	70
i    70 	Err	bitreich.org	70
i    71 /*** Status bar ***/	Err	bitreich.org	70
i    72 	Err	bitreich.org	70
i    73 char* mode_str(){	Err	bitreich.org	70
i    74         switch(mode){	Err	bitreich.org	70
i    75                 case MOVE:	Err	bitreich.org	70
i    76                         return "mov";	Err	bitreich.org	70
i    77                 case TEXT:	Err	bitreich.org	70
i    78                         return "txt";	Err	bitreich.org	70
i    79                 case BOX:	Err	bitreich.org	70
i    80                         return "box";	Err	bitreich.org	70
i    81                 case ARROW:	Err	bitreich.org	70
i    82                         return "arr";	Err	bitreich.org	70
i    83                 case DEL:	Err	bitreich.org	70
i    84                         return "del";	Err	bitreich.org	70
i    85                 case VIS:	Err	bitreich.org	70
i    86                         return "vis";	Err	bitreich.org	70
i    87                 case PAR:	Err	bitreich.org	70
i    88                         return "par";	Err	bitreich.org	70
i    89                 case REM:	Err	bitreich.org	70
i    90                         return "rem";	Err	bitreich.org	70
i    91                 case TRP:	Err	bitreich.org	70
i    92                         return "trp";	Err	bitreich.org	70
i    93                 default:	Err	bitreich.org	70
i    94                         return "ERR";	Err	bitreich.org	70
i    95         }	Err	bitreich.org	70
i    96         return "ERR";	Err	bitreich.org	70
i    97 }	Err	bitreich.org	70
i    98 	Err	bitreich.org	70
i    99 char get_mark(char dir){	Err	bitreich.org	70
i   100         switch(dir){	Err	bitreich.org	70
i   101                 case DIR_U:	Err	bitreich.org	70
i   102                         return '^';	Err	bitreich.org	70
i   103                 case DIR_D:	Err	bitreich.org	70
i   104                         return 'v';	Err	bitreich.org	70
i   105                 case DIR_L:	Err	bitreich.org	70
i   106                         return '<';	Err	bitreich.org	70
i   107                 case DIR_R:	Err	bitreich.org	70
i   108                         return '>';	Err	bitreich.org	70
i   109         }	Err	bitreich.org	70
i   110         return '>';	Err	bitreich.org	70
i   111 }	Err	bitreich.org	70
i   112 	Err	bitreich.org	70
i   113 	Err	bitreich.org	70
i   114 void status_bar(){	Err	bitreich.org	70
i   115 	Err	bitreich.org	70
i   116         if (script)	Err	bitreich.org	70
i   117                 return;	Err	bitreich.org	70
i   118         printf("\033[%d;1f\033[7m", HEIGHT+1);	Err	bitreich.org	70
i   119         printf("%*s", WIDTH-1, "");	Err	bitreich.org	70
i   120         printf("\033[%d;1f\033[7m", HEIGHT+1);	Err	bitreich.org	70
i   121         printf(" x:%3d y:%3d -- MODE:%4s HL:%c VL:%c CN:%c SP:%c EP:%c %10s",	Err	bitreich.org	70
i   122                 x, y, mode_str(), line_h, line_v, corner, mark_st, mark_end, "");	Err	bitreich.org	70
i   123         if (!modified)	Err	bitreich.org	70
i   124                 printf(" [%s]", fname );	Err	bitreich.org	70
i   125         else	Err	bitreich.org	70
i   126                 printf(" *%s*", fname );	Err	bitreich.org	70
i   127 #ifdef DEBUG	Err	bitreich.org	70
i   128         printf("  '%d'  ", screen.l[y].s[x]);	Err	bitreich.org	70
i   129 #endif	Err	bitreich.org	70
i   130         printf("\033[0m");	Err	bitreich.org	70
i   131         fflush(stdout);	Err	bitreich.org	70
i   132 }	Err	bitreich.org	70
i   133 	Err	bitreich.org	70
i   134 char get_key(FILE *fc, char *msg){	Err	bitreich.org	70
i   135 	Err	bitreich.org	70
i   136         if (script)	Err	bitreich.org	70
i   137                 return 0;	Err	bitreich.org	70
i   138         printf("\033[%d;1f\033[7m", HEIGHT+1);	Err	bitreich.org	70
i   139         printf("%*s", WIDTH, "");	Err	bitreich.org	70
i   140         printf("\033[%d;1f\033[7m", HEIGHT+1);	Err	bitreich.org	70
i   141         printf("%s", msg);	Err	bitreich.org	70
i   142         fflush(stdout);	Err	bitreich.org	70
i   143         printf("\033[0m");	Err	bitreich.org	70
i   144         fflush(stdout);	Err	bitreich.org	70
i   145         return fgetc(fc);	Err	bitreich.org	70
i   146 }	Err	bitreich.org	70
i   147 	Err	bitreich.org	70
i   148 void get_string(FILE *fc, char *msg, char *s, int sz){	Err	bitreich.org	70
i   149 	Err	bitreich.org	70
i   150         if (!script){	Err	bitreich.org	70
i   151                 printf("\033[%d;1f\033[7m", HEIGHT+1);	Err	bitreich.org	70
i   152                 printf("%*s", WIDTH, "");	Err	bitreich.org	70
i   153                 printf("\033[%d;1f\033[7m", HEIGHT+1);	Err	bitreich.org	70
i   154         	Err	bitreich.org	70
i   155                 /* We must activate echo now */	Err	bitreich.org	70
i   156                 t3 = t2;	Err	bitreich.org	70
i   157                 t3.c_lflag |= (ECHO | ICANON);	Err	bitreich.org	70
i   158                 tcsetattr(0, TCSANOW, &t3);	Err	bitreich.org	70
i   159                 printf("%s", msg);	Err	bitreich.org	70
i   160                 printf("\033[0m");	Err	bitreich.org	70
i   161         }	Err	bitreich.org	70
i   162         fgets(s, sz, fc);	Err	bitreich.org	70
i   163         s[strlen(s)-1] = '\0';	Err	bitreich.org	70
i   164         if (!script){	Err	bitreich.org	70
i   165                 tcsetattr(0, TCSANOW, &t2);	Err	bitreich.org	70
i   166                 fflush(stdout);	Err	bitreich.org	70
i   167         }	Err	bitreich.org	70
i   168 }	Err	bitreich.org	70
i   169 	Err	bitreich.org	70
i   170 int is_yes(char c){	Err	bitreich.org	70
i   171         return c=='y' ? 1 : c == 'Y'? 1 : 0;	Err	bitreich.org	70
i   172 }	Err	bitreich.org	70
i   173 	Err	bitreich.org	70
i   174 /*** Screen management ***/	Err	bitreich.org	70
i   175 	Err	bitreich.org	70
i   176 	Err	bitreich.org	70
i   177 void show_cursor(){	Err	bitreich.org	70
i   178         if (script)	Err	bitreich.org	70
i   179                 return;	Err	bitreich.org	70
i   180         printf("\033[%d;%df", y+1, x+1);	Err	bitreich.org	70
i   181         fflush(stdout);	Err	bitreich.org	70
i   182 }	Err	bitreich.org	70
i   183 	Err	bitreich.org	70
i   184 	Err	bitreich.org	70
i   185 void set_xy(int _x, int _y, char c){	Err	bitreich.org	70
i   186         ensure_num_lines(&screen, _y + 1);	Err	bitreich.org	70
i   187         ensure_line_length(&(screen.l[_y]), _x + 1);	Err	bitreich.org	70
i   188         while (screen.l[_y].lst<_x){	Err	bitreich.org	70
i   189                 screen.l[_y].lst ++;	Err	bitreich.org	70
i   190                 screen.l[_y].s[screen.l[_y].lst] = BG;	Err	bitreich.org	70
i   191         }	Err	bitreich.org	70
i   192         screen.l[_y].s[_x] = c;	Err	bitreich.org	70
i   193         if (_x == screen.l[_y].lst)	Err	bitreich.org	70
i   194                 screen.l[_y].s[_x+1] = '\0';	Err	bitreich.org	70
i   195 }	Err	bitreich.org	70
i   196 	Err	bitreich.org	70
i   197 void set_cur(char c){	Err	bitreich.org	70
i   198         set_xy(x, y, c);	Err	bitreich.org	70
i   199 }	Err	bitreich.org	70
i   200 	Err	bitreich.org	70
i   201 void draw_xy(int x, int y, char c){	Err	bitreich.org	70
i   202         /* FIXME: check if x and y are valid!!!! */	Err	bitreich.org	70
i   203         if (script)	Err	bitreich.org	70
i   204                 return;	Err	bitreich.org	70
i   205         printf("\033[%d;%df",y+1,x+1);	Err	bitreich.org	70
i   206         putchar(c);	Err	bitreich.org	70
i   207         fflush(stdout);	Err	bitreich.org	70
i   208 }	Err	bitreich.org	70
i   209 	Err	bitreich.org	70
i   210 void update_current(){	Err	bitreich.org	70
i   211         if (script)	Err	bitreich.org	70
i   212                 return;	Err	bitreich.org	70
i   213         printf("\033[%d;%df",y+1,x+1);	Err	bitreich.org	70
i   214         putchar(screen.l[y].s[x]);	Err	bitreich.org	70
i   215         fflush(stdout);	Err	bitreich.org	70
i   216 }	Err	bitreich.org	70
i   217 	Err	bitreich.org	70
i   218 void erase_blank_lines(int y1, int y2){	Err	bitreich.org	70
i   219         int j;	Err	bitreich.org	70
i   220         if (y1 > y2){	Err	bitreich.org	70
i   221                 y1 ^= y2;	Err	bitreich.org	70
i   222                 y2 ^= y1;	Err	bitreich.org	70
i   223                 y1 ^= y2;	Err	bitreich.org	70
i   224         }	Err	bitreich.org	70
i   225         	Err	bitreich.org	70
i   226         for (; y1 <= y2; y1++){	Err	bitreich.org	70
i   227                 j = screen.l[y1].lst; 	Err	bitreich.org	70
i   228                 while (j>=0 && _isblank(screen.l[y1].s[j]))	Err	bitreich.org	70
i   229                         j--;	Err	bitreich.org	70
i   230                 if (j<0){	Err	bitreich.org	70
i   231                         screen.l[y1].lst = -1;	Err	bitreich.org	70
i   232                         screen.l[y1].s[0] = '\0';	Err	bitreich.org	70
i   233                 }	Err	bitreich.org	70
i   234         }	Err	bitreich.org	70
i   235 }	Err	bitreich.org	70
i   236 	Err	bitreich.org	70
i   237 	Err	bitreich.org	70
i   238 void erase_line(int i){	Err	bitreich.org	70
i   239         screen.l[i].lst = -1;	Err	bitreich.org	70
i   240         screen.l[i].s[0] = '\0';	Err	bitreich.org	70
i   241 }	Err	bitreich.org	70
i   242 	Err	bitreich.org	70
i   243 void erase_box(int x1, int y1, char c){	Err	bitreich.org	70
i   244         int x_incr, y_incr, i; 	Err	bitreich.org	70
i   245 	Err	bitreich.org	70
i   246         x_incr = x1 < x? +1: -1;	Err	bitreich.org	70
i   247         y_incr = y1 < y? +1: -1;	Err	bitreich.org	70
i   248         do{	Err	bitreich.org	70
i   249                 i = y1;	Err	bitreich.org	70
i   250                 do{	Err	bitreich.org	70
i   251                         set_xy(x1, i, c);	Err	bitreich.org	70
i   252                 } while(i != y && (1 | (i += y_incr)));	Err	bitreich.org	70
i   253         } while(x1 != x && (1 | (x1 += x_incr)));	Err	bitreich.org	70
i   254         	Err	bitreich.org	70
i   255 }	Err	bitreich.org	70
i   256 	Err	bitreich.org	70
i   257 void erase_screen(){	Err	bitreich.org	70
i   258         int i;	Err	bitreich.org	70
i   259         for(i=0;i<HEIGHT; i++)	Err	bitreich.org	70
i   260                 erase_line(i);	Err	bitreich.org	70
i   261 }	Err	bitreich.org	70
i   262 	Err	bitreich.org	70
i   263 void check_bound(int *x, int *y){	Err	bitreich.org	70
i   264         if (*x<0) *x=0;	Err	bitreich.org	70
i   265         else if (*x>=WIDTH) *x = WIDTH-1;	Err	bitreich.org	70
i   266         if (*y<0) *y=0;	Err	bitreich.org	70
i   267         else if (*y>=HEIGHT) *y = HEIGHT -1;	Err	bitreich.org	70
i   268 }	Err	bitreich.org	70
i   269 	Err	bitreich.org	70
i   270 void reset_styles(){	Err	bitreich.org	70
i   271 	Err	bitreich.org	70
i   272         cur_corn = 0;	Err	bitreich.org	70
i   273         corner = corners[0];	Err	bitreich.org	70
i   274         cur_hl = cur_vl = 0;	Err	bitreich.org	70
i   275         cur_start = cur_end = 0;	Err	bitreich.org	70
i   276         line_h = hlines[cur_hl];	Err	bitreich.org	70
i   277         line_v = vlines[cur_vl];	Err	bitreich.org	70
i   278         mark_st = st_marks[cur_start];	Err	bitreich.org	70
i   279         mark_end = end_marks[cur_end];	Err	bitreich.org	70
i   280 }	Err	bitreich.org	70
i   281 	Err	bitreich.org	70
i   282 void redraw(){	Err	bitreich.org	70
i   283         int i;	Err	bitreich.org	70
i   284 	Err	bitreich.org	70
i   285         if (script)	Err	bitreich.org	70
i   286                 return;	Err	bitreich.org	70
i   287         printf("\033[2J\033[1;1H");	Err	bitreich.org	70
i   288         for (i=0;i<HEIGHT;i++){	Err	bitreich.org	70
i   289                 fprintf(stdout,"%s\n",screen.l[i].s);	Err	bitreich.org	70
i   290         }	Err	bitreich.org	70
i   291         status_bar();	Err	bitreich.org	70
i   292         show_cursor();	Err	bitreich.org	70
i   293 }	Err	bitreich.org	70
i   294 	Err	bitreich.org	70
i   295 void go_to(int where){	Err	bitreich.org	70
i   296         switch(where){	Err	bitreich.org	70
i   297                 case HOME:	Err	bitreich.org	70
i   298                         x = y = 0;	Err	bitreich.org	70
i   299                         break;	Err	bitreich.org	70
i   300                 case END:	Err	bitreich.org	70
i   301                         x = WIDTH-1;	Err	bitreich.org	70
i   302                         y = HEIGHT-1;	Err	bitreich.org	70
i   303                         break;	Err	bitreich.org	70
i   304                 case MIDDLE:	Err	bitreich.org	70
i   305                         x = WIDTH/2;	Err	bitreich.org	70
i   306                         y = HEIGHT/2;	Err	bitreich.org	70
i   307                         break;	Err	bitreich.org	70
i   308         }	Err	bitreich.org	70
i   309         check_bound(&x, &y);	Err	bitreich.org	70
i   310         show_cursor();	Err	bitreich.org	70
i   311 }	Err	bitreich.org	70
i   312 	Err	bitreich.org	70
i   313 void handle_goto(FILE *fc, char global){	Err	bitreich.org	70
i   314         char c;        	Err	bitreich.org	70
i   315         c=fgetc(fc);	Err	bitreich.org	70
i   316         switch(c){	Err	bitreich.org	70
i   317                 case 'h':	Err	bitreich.org	70
i   318                         dir = DIR_L;	Err	bitreich.org	70
i   319                         step = x;	Err	bitreich.org	70
i   320                         x = 0;	Err	bitreich.org	70
i   321                         break;	Err	bitreich.org	70
i   322                 case 'l':	Err	bitreich.org	70
i   323                         dir = DIR_R;	Err	bitreich.org	70
i   324                         step = WIDTH - x -1;	Err	bitreich.org	70
i   325                         x = WIDTH - 1;	Err	bitreich.org	70
i   326                         break;	Err	bitreich.org	70
i   327                 case 'j':	Err	bitreich.org	70
i   328                         dir = DIR_D;	Err	bitreich.org	70
i   329                         step = HEIGHT - y-1;	Err	bitreich.org	70
i   330                         y = HEIGHT - 1;	Err	bitreich.org	70
i   331                         break;	Err	bitreich.org	70
i   332                 case 'k':	Err	bitreich.org	70
i   333                         dir = DIR_U;	Err	bitreich.org	70
i   334                         step = y;	Err	bitreich.org	70
i   335                         y = 0;	Err	bitreich.org	70
i   336                         break;	Err	bitreich.org	70
i   337                 case 'g':	Err	bitreich.org	70
i   338                         if (global){	Err	bitreich.org	70
i   339                                 dir = DIR_N;	Err	bitreich.org	70
i   340                                 go_to(HOME);	Err	bitreich.org	70
i   341                         } else step = 0;	Err	bitreich.org	70
i   342                         break;	Err	bitreich.org	70
i   343                 case 'G':	Err	bitreich.org	70
i   344                         if (global){	Err	bitreich.org	70
i   345                                 dir = DIR_N;	Err	bitreich.org	70
i   346                                 go_to(END);	Err	bitreich.org	70
i   347                         } else step = 0;	Err	bitreich.org	70
i   348                         break;	Err	bitreich.org	70
i   349                 case 'm':	Err	bitreich.org	70
i   350                         if (global){	Err	bitreich.org	70
i   351                                 dir = DIR_N;	Err	bitreich.org	70
i   352                                 go_to(MIDDLE);	Err	bitreich.org	70
i   353                         } else step = 0;	Err	bitreich.org	70
i   354                         break;	Err	bitreich.org	70
i   355                 case '\'':	Err	bitreich.org	70
i   356                         c = tolower(fgetc(fc));	Err	bitreich.org	70
i   357                         if (global) {	Err	bitreich.org	70
i   358                                 dir = DIR_N;	Err	bitreich.org	70
i   359                                 if (isalpha(c) && mark_map[c - 'a']){	Err	bitreich.org	70
i   360                                         x = marks[c - 'a'].x;	Err	bitreich.org	70
i   361                                         y = marks[c - 'a'].y;	Err	bitreich.org	70
i   362 #ifdef DEBUG	Err	bitreich.org	70
i   363                                         fprintf(stderr, "going to valid mark '%c' (%d, %d)\n", c, x, y);	Err	bitreich.org	70
i   364 #endif	Err	bitreich.org	70
i   365                                 }	Err	bitreich.org	70
i   366 #ifdef DEBUG	Err	bitreich.org	70
i   367                                 else 	Err	bitreich.org	70
i   368                                         fprintf(stderr, "invalid mark '%c'\n", c);	Err	bitreich.org	70
i   369 #endif	Err	bitreich.org	70
i   370                         } else step = 0;	Err	bitreich.org	70
i   371                         break;	Err	bitreich.org	70
i   372 	Err	bitreich.org	70
i   373         }	Err	bitreich.org	70
i   374 	Err	bitreich.org	70
i   375 #ifdef DEBUG	Err	bitreich.org	70
i   376         fprintf(stderr, "global move: dir: %d x: %d y: %d\n", dir, x, y);	Err	bitreich.org	70
i   377 #endif	Err	bitreich.org	70
i   378         check_bound(&x, &y);	Err	bitreich.org	70
i   379         show_cursor();	Err	bitreich.org	70
i   380 }	Err	bitreich.org	70
i   381 	Err	bitreich.org	70
i   382 	Err	bitreich.org	70
i   383 int get_escape(FILE *fc){	Err	bitreich.org	70
i   384         char c[4];	Err	bitreich.org	70
i   385         	Err	bitreich.org	70
i   386         c[0] = fgetc(fc);	Err	bitreich.org	70
i   387         if (c[0] == '['){	Err	bitreich.org	70
i   388                 c[1] = fgetc(fc);	Err	bitreich.org	70
i   389                 switch(c[1]){	Err	bitreich.org	70
i   390                         case 'D':	Err	bitreich.org	70
i   391                                 dir = DIR_L;	Err	bitreich.org	70
i   392                                 x -= step;	Err	bitreich.org	70
i   393                                 break;	Err	bitreich.org	70
i   394                         case 'B':	Err	bitreich.org	70
i   395                                 dir = DIR_D;	Err	bitreich.org	70
i   396                                 y += step;	Err	bitreich.org	70
i   397                                 break;	Err	bitreich.org	70
i   398                         case 'A':	Err	bitreich.org	70
i   399                                 dir = DIR_U;	Err	bitreich.org	70
i   400                                 y -= step;	Err	bitreich.org	70
i   401                                 break;	Err	bitreich.org	70
i   402                         case 'C':	Err	bitreich.org	70
i   403                                 dir = DIR_R;	Err	bitreich.org	70
i   404                                 x += step;	Err	bitreich.org	70
i   405                                 break;	Err	bitreich.org	70
i   406                 }	Err	bitreich.org	70
i   407                 return 1;	Err	bitreich.org	70
i   408         }	Err	bitreich.org	70
i   409         else{	Err	bitreich.org	70
i   410                 ungetc(c[0], fc);	Err	bitreich.org	70
i   411                 return 0;	Err	bitreich.org	70
i   412         }	Err	bitreich.org	70
i   413 	Err	bitreich.org	70
i   414 }	Err	bitreich.org	70
i   415 	Err	bitreich.org	70
i   416 	Err	bitreich.org	70
i   417 int move_around(char c, FILE *fc, char global){	Err	bitreich.org	70
i   418 	Err	bitreich.org	70
i   419         if (isdigit(c)){	Err	bitreich.org	70
i   420                 if (mult)	Err	bitreich.org	70
i   421                         mult *=10;	Err	bitreich.org	70
i   422                 mult += c - '0';	Err	bitreich.org	70
i   423                 return 0;	Err	bitreich.org	70
i   424         }	Err	bitreich.org	70
i   425 #ifdef DEBUG	Err	bitreich.org	70
i   426         fprintf(stderr, "got char: %c\n", c);	Err	bitreich.org	70
i   427 #endif	Err	bitreich.org	70
i   428         switch(c){	Err	bitreich.org	70
i   429                 case 27: /* control sequence? */	Err	bitreich.org	70
i   430                         c = get_escape(fc);	Err	bitreich.org	70
i   431                         break;	Err	bitreich.org	70
i   432                 case 'H': step = LONG_STEP;/** FALLTHROUGH **/	Err	bitreich.org	70
i   433                 case 'h':	Err	bitreich.org	70
i   434                         dir = DIR_L;	Err	bitreich.org	70
i   435                         if (mult) 	Err	bitreich.org	70
i   436                                 step *= mult;	Err	bitreich.org	70
i   437                         x -= step;	Err	bitreich.org	70
i   438                         break;	Err	bitreich.org	70
i   439                 case 'J': step = LONG_STEP;/** FALLTHROUGH **/	Err	bitreich.org	70
i   440                 case 'j':	Err	bitreich.org	70
i   441                         if (mult) 	Err	bitreich.org	70
i   442                                 step *= mult;	Err	bitreich.org	70
i   443                         dir = DIR_D;	Err	bitreich.org	70
i   444                         y += step;	Err	bitreich.org	70
i   445                         break;	Err	bitreich.org	70
i   446                 case 'K': step = LONG_STEP;/** FALLTHROUGH **/	Err	bitreich.org	70
i   447                 case 'k':	Err	bitreich.org	70
i   448                         if (mult) 	Err	bitreich.org	70
i   449                                 step *= mult;	Err	bitreich.org	70
i   450                         dir = DIR_U;	Err	bitreich.org	70
i   451                         y -= step;	Err	bitreich.org	70
i   452                         break;	Err	bitreich.org	70
i   453                 case 'L': step = LONG_STEP;/** FALLTHROUGH **/	Err	bitreich.org	70
i   454                 case 'l':	Err	bitreich.org	70
i   455                         if (mult) 	Err	bitreich.org	70
i   456                                 step *= mult;	Err	bitreich.org	70
i   457                         dir = DIR_R;	Err	bitreich.org	70
i   458                         x += step;	Err	bitreich.org	70
i   459                         break;	Err	bitreich.org	70
i   460                 case 'g':	Err	bitreich.org	70
i   461 #ifdef DEBUG	Err	bitreich.org	70
i   462                         fprintf(stderr, "before handle_goto: step: %d x: %d y: %d global: %d\n", step, x, y, global);	Err	bitreich.org	70
i   463 #endif	Err	bitreich.org	70
i   464                         handle_goto(fc, global);	Err	bitreich.org	70
i   465 #ifdef DEBUG	Err	bitreich.org	70
i   466                         fprintf(stderr, "after handle_goto: step: %d x: %d y: %d global: %d\n", step, x, y, global);	Err	bitreich.org	70
i   467 #endif	Err	bitreich.org	70
i   468                         break;	Err	bitreich.org	70
i   469                 default:	Err	bitreich.org	70
i   470                         return 0;	Err	bitreich.org	70
i   471         }	Err	bitreich.org	70
i   472         mult = 0;	Err	bitreich.org	70
i   473         return c;	Err	bitreich.org	70
i   474 }	Err	bitreich.org	70
i   475 	Err	bitreich.org	70
i   476 	Err	bitreich.org	70
i   477 void set_video(int v){	Err	bitreich.org	70
i   478         if (script)	Err	bitreich.org	70
i   479                 return;	Err	bitreich.org	70
i   480         printf("\033[%dm", v);	Err	bitreich.org	70
i   481         fflush(stdout);	Err	bitreich.org	70
i   482 }	Err	bitreich.org	70
i   483 	Err	bitreich.org	70
i   484 	Err	bitreich.org	70
i   485 void init_screen(){	Err	bitreich.org	70
i   486         int i;	Err	bitreich.org	70
i   487         struct winsize wsz;	Err	bitreich.org	70
i   488         	Err	bitreich.org	70
i   489         if (!ioctl(STDIN_FILENO, TIOCGWINSZ, &wsz)){	Err	bitreich.org	70
i   490                 WIDTH=wsz.ws_col - 2;	Err	bitreich.org	70
i   491                 HEIGHT=wsz.ws_row - 1;	Err	bitreich.org	70
i   492         }	Err	bitreich.org	70
i   493         else {	Err	bitreich.org	70
i   494                 WIDTH=80;	Err	bitreich.org	70
i   495                 HEIGHT=24;	Err	bitreich.org	70
i   496         }	Err	bitreich.org	70
i   497         screen.l = malloc(HEIGHT * sizeof(line_t));	Err	bitreich.org	70
i   498         screen.sz = HEIGHT;	Err	bitreich.org	70
i   499         screen.num = HEIGHT;	Err	bitreich.org	70
i   500         if (screen.l == NULL){	Err	bitreich.org	70
i   501                 fprintf(stderr, "Error allocating screen");	Err	bitreich.org	70
i   502                 cleanup(1);	Err	bitreich.org	70
i   503         }	Err	bitreich.org	70
i   504         for (i=0; i<HEIGHT; i++){	Err	bitreich.org	70
i   505                 alloc_line(&(screen.l[i]));	Err	bitreich.org	70
i   506         }	Err	bitreich.org	70
i   507         /* init markers */	Err	bitreich.org	70
i   508         hlines_sz= sizeof(hlines) -1;	Err	bitreich.org	70
i   509         vlines_sz= sizeof(vlines) -1;	Err	bitreich.org	70
i   510         corners_sz = sizeof(corners) -1;	Err	bitreich.org	70
i   511         stmarks_sz = sizeof(st_marks) - 1;	Err	bitreich.org	70
i   512         endmarks_sz = sizeof(st_marks) - 1;	Err	bitreich.org	70
i   513         reset_styles();	Err	bitreich.org	70
i   514         /* init undo ring */        	Err	bitreich.org	70
i   515         cutbuf.sz = 0;	Err	bitreich.org	70
i   516         cutbuf.l = NULL;	Err	bitreich.org	70
i   517         cutbuf.num = 0;	Err	bitreich.org	70
i   518         undo = NULL;	Err	bitreich.org	70
i   519         undo_sz = 0;	Err	bitreich.org	70
i   520         undo_cur = -2;	Err	bitreich.org	70
i   521         undo_lst = -2;	Err	bitreich.org	70
i   522         /* init pos marks */	Err	bitreich.org	70
i   523         memset(mark_map, 0, 26 * sizeof(char));	Err	bitreich.org	70
i   524 }	Err	bitreich.org	70
i   525 	Err	bitreich.org	70
i   526 void find_nonblank_rect(int *x1, int *y1, int *x2, int *y2){	Err	bitreich.org	70
i   527 	Err	bitreich.org	70
i   528         int i, j;	Err	bitreich.org	70
i   529         int first;	Err	bitreich.org	70
i   530         *x1= WIDTH; /** FIXME: replace with num_cols **/	Err	bitreich.org	70
i   531         *y1 = screen.num;	Err	bitreich.org	70
i   532         *x2 = *y2 = 0; 	Err	bitreich.org	70
i   533 	Err	bitreich.org	70
i   534         for (i=0; i<screen.num; i++){	Err	bitreich.org	70
i   535                 if (screen.l[i].lst < 0)	Err	bitreich.org	70
i   536                         continue;	Err	bitreich.org	70
i   537                 *y2 = i;	Err	bitreich.org	70
i   538                 if (i < *y1)	Err	bitreich.org	70
i   539                         *y1 = i;	Err	bitreich.org	70
i   540                 j = 0;	Err	bitreich.org	70
i   541                 while((j <= screen.l[i].lst)  && _isblank(first=screen.l[i].s[j]))	Err	bitreich.org	70
i   542                         j++;	Err	bitreich.org	70
i   543                 if (j < *x1)	Err	bitreich.org	70
i   544                         *x1 = j;	Err	bitreich.org	70
i   545                 j = screen.l[i].lst;	Err	bitreich.org	70
i   546                 while(_isblank(screen.l[i].s[j]))	Err	bitreich.org	70
i   547                         j--;	Err	bitreich.org	70
i   548                 if (j > *x2)	Err	bitreich.org	70
i   549                         *x2 = j;	Err	bitreich.org	70
i   550         }	Err	bitreich.org	70
i   551 }	Err	bitreich.org	70
i   552 	Err	bitreich.org	70
i   553 void crop_to_rect(int x1, int y1, int x2, int y2){	Err	bitreich.org	70
i   554         int i;	Err	bitreich.org	70
i   555 	Err	bitreich.org	70
i   556         for (i=0; i<= y2-y1; i ++){	Err	bitreich.org	70
i   557                 ensure_line_length(&(screen.l[i]), screen.l[i+y1].lst+1);	Err	bitreich.org	70
i   558                 sprintf(screen.l[i].s, "%s", screen.l[i+y1].s + x1);	Err	bitreich.org	70
i   559                 screen.l[i].lst = x2 - x1;	Err	bitreich.org	70
i   560                 screen.l[i].s[screen.l[i].lst + 1] = '\0';	Err	bitreich.org	70
i   561         } 	Err	bitreich.org	70
i   562         while (i< HEIGHT){	Err	bitreich.org	70
i   563                 screen.l[i].lst = -1;	Err	bitreich.org	70
i   564                 screen.l[i].s[0]= '\0';	Err	bitreich.org	70
i   565                 i ++;	Err	bitreich.org	70
i   566         }	Err	bitreich.org	70
i   567 }	Err	bitreich.org	70
i   568 	Err	bitreich.org	70
i   569 void crop_to_nonblank(){	Err	bitreich.org	70
i   570         int x1, x2, y1, y2;	Err	bitreich.org	70
i   571         find_nonblank_rect(&x1, &y1, &x2, &y2);	Err	bitreich.org	70
i   572 #ifdef DEBUG	Err	bitreich.org	70
i   573         fprintf(stderr, "crop rectangle: (%d, %d)-(%d, %d)\n", x1, y1, x2, y2);	Err	bitreich.org	70
i   574 #endif	Err	bitreich.org	70
i   575         copy_lines_to_ring(0, y2, PRV_STATE);	Err	bitreich.org	70
i   576         crop_to_rect(x1, y1, x2, y2);	Err	bitreich.org	70
i   577         copy_lines_to_ring(0, y2, NEW_STATE);	Err	bitreich.org	70
i   578         modified=1;	Err	bitreich.org	70
i   579         redraw();	Err	bitreich.org	70
i   580 }	Err	bitreich.org	70
i   581 	Err	bitreich.org	70
i   582 /** position marks **/	Err	bitreich.org	70
i   583 	Err	bitreich.org	70
i   584 void mark_pos(FILE *fc){	Err	bitreich.org	70
i   585 	Err	bitreich.org	70
i   586         char c;	Err	bitreich.org	70
i   587         c = tolower(fgetc(fc));	Err	bitreich.org	70
i   588         if (isalpha(c)){	Err	bitreich.org	70
i   589                 marks[c - 'a'].x = x;	Err	bitreich.org	70
i   590                 marks[c - 'a'].y = y;	Err	bitreich.org	70
i   591                 mark_map[c - 'a'] = 1;	Err	bitreich.org	70
i   592 #ifdef DEBUG	Err	bitreich.org	70
i   593                 fprintf(stderr, "marking pos (%d, %d) as '%c'\n", x, y, c);	Err	bitreich.org	70
i   594 #endif	Err	bitreich.org	70
i   595         }	Err	bitreich.org	70
i   596 }	Err	bitreich.org	70
.