ifiles.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
ifiles.c (2694B)	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 <string.h>	Err	bitreich.org	70
i     5 #include "gramscii.h"	Err	bitreich.org	70
i     6 	Err	bitreich.org	70
i     7 	Err	bitreich.org	70
i     8 /** extern declarations **/	Err	bitreich.org	70
i     9 	Err	bitreich.org	70
i    10 extern lineset_t screen; /* what is visualised */	Err	bitreich.org	70
i    11 	Err	bitreich.org	70
i    12 extern int WIDTH, HEIGHT;	Err	bitreich.org	70
i    13 	Err	bitreich.org	70
i    14 extern int force_new;	Err	bitreich.org	70
i    15 extern char modified; /* set to 1 if screen modified since last save */	Err	bitreich.org	70
i    16 extern char fname[256];	Err	bitreich.org	70
i    17 	Err	bitreich.org	70
i    18 /*** File management ***/	Err	bitreich.org	70
i    19 	Err	bitreich.org	70
i    20 void write_file(FILE *fc){	Err	bitreich.org	70
i    21         FILE *fout;	Err	bitreich.org	70
i    22         int i, ne;	Err	bitreich.org	70
i    23 	Err	bitreich.org	70
i    24         if (!fname[0] || force_new){	Err	bitreich.org	70
i    25                 get_string(fc, "Write to: ", fname, 255);	Err	bitreich.org	70
i    26                 if ((fout=fopen(fname, "r"))!=NULL){	Err	bitreich.org	70
i    27                         if (!is_yes(get_key(fc,"File exists. Overwrite [y/n]?")) ){	Err	bitreich.org	70
i    28                                 fclose(fout);	Err	bitreich.org	70
i    29                                 return;	Err	bitreich.org	70
i    30                         }	Err	bitreich.org	70
i    31                         fclose(fout);	Err	bitreich.org	70
i    32                 }	Err	bitreich.org	70
i    33         }	Err	bitreich.org	70
i    34         if((fout=fopen(fname, "w"))==NULL){	Err	bitreich.org	70
i    35                 get_key(fc, "Error opening file.");	Err	bitreich.org	70
i    36                 return;	Err	bitreich.org	70
i    37         }	Err	bitreich.org	70
i    38         ne = 0;	Err	bitreich.org	70
i    39         for (i=0; i<HEIGHT; i++){	Err	bitreich.org	70
i    40                 if (strlen(screen.l[i].s)){/* remove trailing blank lines */	Err	bitreich.org	70
i    41                         /* put the empty lines preceeding the current non-empty one */	Err	bitreich.org	70
i    42                         while (ne--)	Err	bitreich.org	70
i    43                                 fprintf(fout, "\n");	Err	bitreich.org	70
i    44                         fprintf(fout, "%s\n", screen.l[i].s);	Err	bitreich.org	70
i    45                         ne = 0;	Err	bitreich.org	70
i    46                 }	Err	bitreich.org	70
i    47                 else ne++;	Err	bitreich.org	70
i    48         }	Err	bitreich.org	70
i    49         fclose(fout);	Err	bitreich.org	70
i    50         modified = 0;	Err	bitreich.org	70
i    51         get_key(fc, "File saved.");	Err	bitreich.org	70
i    52         redraw();	Err	bitreich.org	70
i    53 }	Err	bitreich.org	70
i    54 	Err	bitreich.org	70
i    55 void check_modified(FILE *fc){	Err	bitreich.org	70
i    56 	Err	bitreich.org	70
i    57         if (modified){	Err	bitreich.org	70
i    58                 if (!is_yes(get_key(fc, "Unsaved changes. Write to file [y/n]?")) ){	Err	bitreich.org	70
i    59                         return;	Err	bitreich.org	70
i    60                 }	Err	bitreich.org	70
i    61                 write_file(fc);	Err	bitreich.org	70
i    62         }	Err	bitreich.org	70
i    63 }	Err	bitreich.org	70
i    64 	Err	bitreich.org	70
i    65 void load_file(FILE *fc){	Err	bitreich.org	70
i    66 	Err	bitreich.org	70
i    67         char newfname[256];	Err	bitreich.org	70
i    68         FILE *fin;	Err	bitreich.org	70
i    69         int i;	Err	bitreich.org	70
i    70 	Err	bitreich.org	70
i    71         get_string(fc, "Load file: ", newfname, 255);	Err	bitreich.org	70
i    72         if ((fin=fopen(newfname, "r")) != NULL){	Err	bitreich.org	70
i    73                 i = 0;	Err	bitreich.org	70
i    74                 while((fgets(screen.l[i].s, WIDTH+1, fin)) != NULL && i<HEIGHT){	Err	bitreich.org	70
i    75                         screen.l[i].lst = strlen(screen.l[i].s) - 2;	Err	bitreich.org	70
i    76                         screen.l[i].n = i;	Err	bitreich.org	70
i    77                         screen.l[i].s[strlen(screen.l[i].s)-1]='\0';	Err	bitreich.org	70
i    78                         i++;	Err	bitreich.org	70
i    79                 }	Err	bitreich.org	70
i    80                 for(;i<HEIGHT; i++){	Err	bitreich.org	70
i    81                         erase_line(i);	Err	bitreich.org	70
i    82                 }	Err	bitreich.org	70
i    83                 fclose(fin);	Err	bitreich.org	70
i    84         }	Err	bitreich.org	70
i    85         strcpy(fname, newfname);	Err	bitreich.org	70
i    86         modified=0;	Err	bitreich.org	70
i    87         redraw();	Err	bitreich.org	70
i    88 }	Err	bitreich.org	70
i    89 	Err	bitreich.org	70
i    90 void new_file(FILE *fc){	Err	bitreich.org	70
i    91         check_modified(fc);	Err	bitreich.org	70
i    92         erase_screen();	Err	bitreich.org	70
i    93         go_to(HOME);	Err	bitreich.org	70
i    94         redraw();	Err	bitreich.org	70
i    95         fname[0] = '\0';	Err	bitreich.org	70
i    96         modified=0;	Err	bitreich.org	70
i    97 }	Err	bitreich.org	70
i    98 	Err	bitreich.org	70
i    99 void read_file_at(FILE *fc, int xl, int yl){	Err	bitreich.org	70
i   100 	Err	bitreich.org	70
i   101         char nfname[512], tmp[512], *fptr, *tptr;	Err	bitreich.org	70
i   102         FILE *fin;	Err	bitreich.org	70
i   103         int i, j;	Err	bitreich.org	70
i   104         char ftype;	Err	bitreich.org	70
i   105 	Err	bitreich.org	70
i   106         get_string(fc, "Read file: ", nfname, 511);	Err	bitreich.org	70
i   107         fptr = nfname;	Err	bitreich.org	70
i   108         while(*fptr && _isblank(*fptr))	Err	bitreich.org	70
i   109                  fptr ++;	Err	bitreich.org	70
i   110         if (*fptr == '!'){	Err	bitreich.org	70
i   111                 fin = popen(++fptr, "r");	Err	bitreich.org	70
i   112                 ftype = FPIPE;	Err	bitreich.org	70
i   113         }	Err	bitreich.org	70
i   114         else {	Err	bitreich.org	70
i   115                 fin = fopen(fptr, "r");	Err	bitreich.org	70
i   116                 ftype = FFILE;	Err	bitreich.org	70
i   117         }	Err	bitreich.org	70
i   118         if (fin != NULL){	Err	bitreich.org	70
i   119                 copy_lines_to_ring(0, HEIGHT-1, PRV_STATE);	Err	bitreich.org	70
i   120                 i = yl;	Err	bitreich.org	70
i   121                 while((fgets(tmp, WIDTH+1, fin)) != NULL && i<HEIGHT){	Err	bitreich.org	70
i   122                         j = xl;	Err	bitreich.org	70
i   123                         tptr = tmp;	Err	bitreich.org	70
i   124                         if (strlen(tmp))	Err	bitreich.org	70
i   125                                 tmp[strlen(tmp) - 1] = '\0';	Err	bitreich.org	70
i   126                         ensure_line_length(& (screen.l[i]), xl + strlen(tmp) + 1);	Err	bitreich.org	70
i   127                         while (*tptr && j < WIDTH){	Err	bitreich.org	70
i   128                                 set_xy(j, i, *tptr);	Err	bitreich.org	70
i   129                                 j++;	Err	bitreich.org	70
i   130                                 tptr ++;	Err	bitreich.org	70
i   131                         }	Err	bitreich.org	70
i   132                         i++;	Err	bitreich.org	70
i   133                 }	Err	bitreich.org	70
i   134                 if (ftype == FFILE)	Err	bitreich.org	70
i   135                         fclose(fin);	Err	bitreich.org	70
i   136                 else	Err	bitreich.org	70
i   137                         pclose(fin);	Err	bitreich.org	70
i   138                 modified = 1;	Err	bitreich.org	70
i   139                 redraw();	Err	bitreich.org	70
i   140                 copy_lines_to_ring(yl, i-1, NEW_STATE);	Err	bitreich.org	70
i   141         }	Err	bitreich.org	70
i   142 }	Err	bitreich.org	70
.