idelete and default write file - 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 1commit 575703d810415c9f427104ab0225a1e5916983ec /scm/gramscii/commit/575703d810415c9f427104ab0225a1e5916983ec.gph bitreich.org 70 1parent 52a48d7718c6467da380a51f49327323e15e00c7 /scm/gramscii/commit/52a48d7718c6467da380a51f49327323e15e00c7.gph bitreich.org 70 hAuthor: KatolaZ URL:mailto:katolaz@freaknet.org bitreich.org 70 iDate: Fri, 19 Jul 2019 19:23:38 +0100 Err bitreich.org 70 i Err bitreich.org 70 idelete and default write file Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M TODO | 3 ++- Err bitreich.org 70 i M gramscii.c | 143 +++++++++++++++++++------------ Err bitreich.org 70 i Err bitreich.org 70 i2 files changed, 92 insertions(+), 54 deletions(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/TODO b/TODO /scm/gramscii/file/TODO.gph bitreich.org 70 i@@ -1,7 +1,6 @@ Err bitreich.org 70 i + optimize redraws (i.e., avoid to redraw if possible) Err bitreich.org 70 i - (?) change cursor shape according to action Err bitreich.org 70 i - auto-arrow 'A' (automatic end-char) Err bitreich.org 70 i-- delete -- 'x' or 'd' Err bitreich.org 70 i - load from file Err bitreich.org 70 i - read file at point Err bitreich.org 70 i - visual selection Err bitreich.org 70 i@@ -14,6 +13,8 @@ Err bitreich.org 70 i (also do not print unmanaged chars!) Err bitreich.org 70 i - get screen geometry Err bitreich.org 70 i - allow scrolling (both vertical and horizontal) Err bitreich.org 70 i+* write to new file / default file Err bitreich.org 70 i+* delete -- 'x' Err bitreich.org 70 i * save to file Err bitreich.org 70 i * implement arrow Err bitreich.org 70 i * set different line styles (done for hl, vl, corner) Err bitreich.org 70 1diff --git a/gramscii.c b/gramscii.c /scm/gramscii/file/gramscii.c.gph bitreich.org 70 i@@ -15,7 +15,7 @@ Err bitreich.org 70 i #define BOX 0x01 Err bitreich.org 70 i #define ARROW 0x02 Err bitreich.org 70 i #define TEXT 0x04 Err bitreich.org 70 i- Err bitreich.org 70 i+#define DEL 0x08 Err bitreich.org 70 i Err bitreich.org 70 i #define DIR_N 0x00 Err bitreich.org 70 i #define DIR_R 0x01 Err bitreich.org 70 i@@ -55,6 +55,7 @@ int dir; Err bitreich.org 70 i int x; Err bitreich.org 70 i int y; Err bitreich.org 70 i int step; Err bitreich.org 70 i+int force_new; Err bitreich.org 70 i char cursor; Err bitreich.org 70 i char corner; Err bitreich.org 70 i char hlines[] = {"-~=#@._ "}; Err bitreich.org 70 i@@ -75,6 +76,9 @@ char line_v; Err bitreich.org 70 i char mark_st; Err bitreich.org 70 i char mark_end; Err bitreich.org 70 i Err bitreich.org 70 i+char modified; Err bitreich.org 70 i+char fname[256]; Err bitreich.org 70 i+ Err bitreich.org 70 i struct termios t1, t2, t3; Err bitreich.org 70 i Err bitreich.org 70 i Err bitreich.org 70 i@@ -130,6 +134,8 @@ char* state_str(){ Err bitreich.org 70 i return "box"; Err bitreich.org 70 i case ARROW: Err bitreich.org 70 i return "arr"; Err bitreich.org 70 i+ case DEL: Err bitreich.org 70 i+ return "del"; Err bitreich.org 70 i default: Err bitreich.org 70 i return "ERR"; Err bitreich.org 70 i } Err bitreich.org 70 i@@ -178,6 +184,8 @@ void init(){ Err bitreich.org 70 i init_screen(); Err bitreich.org 70 i x = WIDTH/2; Err bitreich.org 70 i y = HEIGHT/2; Err bitreich.org 70 i+ modified = 0; Err bitreich.org 70 i+ fname[0] = '\0'; Err bitreich.org 70 i redraw(); Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 i@@ -249,10 +257,33 @@ void draw_box(int x1, int y1, int fix){ Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 i Err bitreich.org 70 i-void move_around(char c){ Err bitreich.org 70 i- Err bitreich.org 70 i- Err bitreich.org 70 i+int move_around(char c){ Err bitreich.org 70 i Err bitreich.org 70 i+ switch(c){ Err bitreich.org 70 i+ case 'H': step = 5; Err bitreich.org 70 i+ case 'h': Err bitreich.org 70 i+ dir = DIR_L; Err bitreich.org 70 i+ x -= step; Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ case 'J': step = 5; Err bitreich.org 70 i+ case 'j': Err bitreich.org 70 i+ dir = DIR_D; Err bitreich.org 70 i+ y += step; Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ case 'K': step = 5; Err bitreich.org 70 i+ case 'k': Err bitreich.org 70 i+ dir = DIR_U; Err bitreich.org 70 i+ y -= step; Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ case 'L': step = 5; Err bitreich.org 70 i+ case 'l': Err bitreich.org 70 i+ dir = DIR_R; Err bitreich.org 70 i+ x += step; Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ default: Err bitreich.org 70 i+ return 1; Err bitreich.org 70 i+ } Err bitreich.org 70 i+ return 0; Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 i Err bitreich.org 70 i@@ -263,24 +294,7 @@ void get_box(){ Err bitreich.org 70 i step = 1; Err bitreich.org 70 i draw_box(x,y,NOFIX); Err bitreich.org 70 i while((c=getchar())!=EOF && c != 27 && c!= 'b'){ Err bitreich.org 70 i- switch(c){ Err bitreich.org 70 i- case 'H': step = 5; Err bitreich.org 70 i- case 'h': Err bitreich.org 70 i- x -= step; Err bitreich.org 70 i- break; Err bitreich.org 70 i- case 'J': step = 5; Err bitreich.org 70 i- case 'j': Err bitreich.org 70 i- y += step; Err bitreich.org 70 i- break; Err bitreich.org 70 i- case 'K': step = 5; Err bitreich.org 70 i- case 'k': Err bitreich.org 70 i- y -= step; Err bitreich.org 70 i- break; Err bitreich.org 70 i- case 'L': step = 5; Err bitreich.org 70 i- case 'l': Err bitreich.org 70 i- x += step; Err bitreich.org 70 i- break; Err bitreich.org 70 i- } Err bitreich.org 70 i+ if (move_around(c)) continue; Err bitreich.org 70 i check_bound(); Err bitreich.org 70 i redraw(); Err bitreich.org 70 i step = 1; Err bitreich.org 70 i@@ -363,30 +377,7 @@ void get_arrow(){ Err bitreich.org 70 i step = 1; Err bitreich.org 70 i draw_arrow(x,y, arrow, 0, NOFIX); Err bitreich.org 70 i while((c=getchar())!=EOF && c != 27 && c!= 'a'){ Err bitreich.org 70 i- switch(c){ Err bitreich.org 70 i- case 'H': step = 5; Err bitreich.org 70 i- case 'h': Err bitreich.org 70 i- dir = DIR_L; Err bitreich.org 70 i- x -= step; Err bitreich.org 70 i- break; Err bitreich.org 70 i- case 'J': step = 5; Err bitreich.org 70 i- case 'j': Err bitreich.org 70 i- dir = DIR_D; Err bitreich.org 70 i- y += step; Err bitreich.org 70 i- break; Err bitreich.org 70 i- case 'K': step = 5; Err bitreich.org 70 i- case 'k': Err bitreich.org 70 i- dir = DIR_U; Err bitreich.org 70 i- y -= step; Err bitreich.org 70 i- break; Err bitreich.org 70 i- case 'L': step = 5; Err bitreich.org 70 i- case 'l': Err bitreich.org 70 i- dir = DIR_R; Err bitreich.org 70 i- x += step; Err bitreich.org 70 i- break; Err bitreich.org 70 i- default: Err bitreich.org 70 i- continue; Err bitreich.org 70 i- } Err bitreich.org 70 i+ if (move_around(c)) continue; Err bitreich.org 70 i check_bound(); Err bitreich.org 70 i /* FIXME: if we are out of bound, do nothing? */ Err bitreich.org 70 i if (arrow_len == arrow_sz){ Err bitreich.org 70 i@@ -438,17 +429,18 @@ int is_yes(char c){ Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 i void write_file(){ Err bitreich.org 70 i- char fname[256]; Err bitreich.org 70 i FILE *f; Err bitreich.org 70 i int i; Err bitreich.org 70 i- Err bitreich.org 70 i- get_string(fname, 255); Err bitreich.org 70 i- if (f=fopen(fname, "r")){ Err bitreich.org 70 i- if (!is_yes(get_key("File exists. Overwrite [y/N]?")) ){ Err bitreich.org 70 i+ Err bitreich.org 70 i+ if (!fname[0] || force_new){ Err bitreich.org 70 i+ get_string(fname, 255); Err bitreich.org 70 i+ if (f=fopen(fname, "r")){ Err bitreich.org 70 i+ if (!is_yes(get_key("File exists. Overwrite [y/N]?")) ){ Err bitreich.org 70 i+ fclose(f); Err bitreich.org 70 i+ return; Err bitreich.org 70 i+ } Err bitreich.org 70 i fclose(f); Err bitreich.org 70 i- return; Err bitreich.org 70 i } Err bitreich.org 70 i- fclose(f); Err bitreich.org 70 i } Err bitreich.org 70 i if((f=fopen(fname, "w"))==NULL){ Err bitreich.org 70 i get_key("Error opening file."); Err bitreich.org 70 i@@ -512,6 +504,44 @@ void go_to(int where){ Err bitreich.org 70 i show_cursor(); Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 i+void do_delete(int x1, int y1){ Err bitreich.org 70 i+ int i; Err bitreich.org 70 i+ switch(dir){ Err bitreich.org 70 i+ case DIR_R: Err bitreich.org 70 i+ for(i=x1; i<=x; i++) set_xy(i,y,BG); Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ case DIR_L: Err bitreich.org 70 i+ for(i=x1; i>=x; i--) set_xy(i,y,BG); Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ case DIR_U: Err bitreich.org 70 i+ for(i=y1; i>=y; i--) set_xy(x,i,BG); Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ case DIR_D: Err bitreich.org 70 i+ for(i=y1; i<=y; i++) set_xy(x,i,BG); Err bitreich.org 70 i+ break; Err bitreich.org 70 i+ } Err bitreich.org 70 i+} Err bitreich.org 70 i+ Err bitreich.org 70 i+ Err bitreich.org 70 i+void delete(){ Err bitreich.org 70 i+ char c; Err bitreich.org 70 i+ int orig_x = x, orig_y = y; Err bitreich.org 70 i+ status_bar(); Err bitreich.org 70 i+ show_cursor(); Err bitreich.org 70 i+ while((c=getchar())!=EOF && c!=27 && c!= 'x'){ Err bitreich.org 70 i+ if (move_around(c)) continue; Err bitreich.org 70 i+ check_bound(); Err bitreich.org 70 i+ step = 1; Err bitreich.org 70 i+ do_delete(orig_x, orig_y); Err bitreich.org 70 i+ orig_x = x; Err bitreich.org 70 i+ orig_y = y; Err bitreich.org 70 i+ redraw(); Err bitreich.org 70 i+ status_bar(); Err bitreich.org 70 i+ show_cursor(); Err bitreich.org 70 i+ } Err bitreich.org 70 i+ state = MOVE; Err bitreich.org 70 i+} Err bitreich.org 70 i+ Err bitreich.org 70 i Err bitreich.org 70 i void commands(){ Err bitreich.org 70 i Err bitreich.org 70 i@@ -554,6 +584,8 @@ void commands(){ Err bitreich.org 70 i state = ARROW; Err bitreich.org 70 i get_arrow(); Err bitreich.org 70 i break; Err bitreich.org 70 i+ case 'W': Err bitreich.org 70 i+ force_new = 1; Err bitreich.org 70 i case 'w': Err bitreich.org 70 i write_file(); Err bitreich.org 70 i break; Err bitreich.org 70 i@@ -566,6 +598,10 @@ void commands(){ Err bitreich.org 70 i case 'm': Err bitreich.org 70 i go_to(MIDDLE); Err bitreich.org 70 i break; Err bitreich.org 70 i+ case 'x': Err bitreich.org 70 i+ state = DEL; Err bitreich.org 70 i+ delete(); Err bitreich.org 70 i+ break; Err bitreich.org 70 i case '-': Err bitreich.org 70 i toggle_hline(); Err bitreich.org 70 i break; Err bitreich.org 70 i@@ -593,6 +629,7 @@ void commands(){ Err bitreich.org 70 i status_bar(); Err bitreich.org 70 i show_cursor(); Err bitreich.org 70 i step = 1; Err bitreich.org 70 i+ force_new = 0; Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 i } Err bitreich.org 70 .