apps/edit/main.c

   1 /*
   2  *  ZeX/OS
   3  *  Copyright (C) 2007  Tomas 'ZeXx86' Jedrzejek (zexx86@zexos.org)
   4  *  Copyright (C) 2009  Tomas 'ZeXx86' Jedrzejek (zexx86@zexos.org)
   5  *  Copyright (C) 2010  Tomas 'ZeXx86' Jedrzejek (zexx86@zexos.org)
   6  *
   7  *  This program is free software: you can redistribute it and/or modify
   8  *  it under the terms of the GNU General Public License as published by
   9  *  the Free Software Foundation, either version 3 of the License, or
  10  *  (at your option) any later version.
  11  *
  12  *  This program is distributed in the hope that it will be useful,
  13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *  GNU General Public License for more details.
  16  *
  17  *  You should have received a copy of the GNU General Public License
  18  *  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21
  22 #include <stdio.h>
  23 #include <string.h>
  24 #include <stdlib.h>
  25 #include <unistd.h>
  26 #include <fcntl.h>
  27 #include <sys/stat.h>
  28
  29 #define         ESC                             1
  30 #define         ARROWLEFT                       75
  31 #define         ARROWRIGHT                      77
  32 #define         ARROWUP                         72
  33 #define         ARROWDOWN                       80
  34
  35 #define         VERSION                         "0.1.0"
  36
  37 #define         MENU_REQUEST_OPEN               0
  38 #define         MENU_REQUEST_CLOSE              1
  39
  40
  41 #define         KBD_BUF_LEN                     32
  42
  43 #define         LINE_MAX_LEN                    512
  44
  45
  46 typedef struct line_context {
  47         struct line_context *next, *prev;
  48         char *buffer;
  49         unsigned short len;
  50 } line_t;
  51 line_t line_list;
  52
  53 typedef struct {
  54         short csr_x;
  55         short csr_y;
  56         char buffer[LINE_MAX_LEN];
  57         unsigned short len;
  58 } page_t;
  59 page_t page;
  60
  61 #ifdef LINUX
  62 void gotoxy ()
  63 {
  64
  65 }
  66
  67 void cls ()
  68 {
  69
  70 }
  71
  72 void schedule ()
  73 {
  74
  75 }
  76 #endif
  77
  78 unsigned quit;
  79
  80 unsigned cmd_handler (char *buffer, unsigned len);
  81
  82 line_t *line_add (char *buf, unsigned len)
  83 {
  84         if (cmd_handler (buf, len))
  85                 return 0;
  86
  87         /* alloc and init context */
  88         line_t *line = (line_t *) malloc (sizeof (line_t));
  89
  90         if (!line)
  91                 return 0;
  92
  93         line->buffer = len ? strndup (buf, len) : 0;
  94         line->len = len;
  95
  96         /* add into list */
  97         line->next = &line_list;
  98         line->prev = line_list.prev;
  99         line->prev->next = line;
 100         line->next->prev = line;
 101
 102         return line;
 103 }
 104
 105 int line_print (line_t *line)
 106 {
 107         if (line->buffer)
 108                 puts (line->buffer);
 109         else
 110                 putchar ('\n');
 111
 112         return 0;
 113 }
 114
 115 int line_printall ()
 116 {
 117         line_t *line;
 118         for (line = line_list.next; line != &line_list; line = line->next)
 119                 line_print (line);
 120
 121         return 0;
 122 }
 123
 124 int file_load (char *name)
 125 {
 126         FILE *f = fopen (name, "r");
 127
 128         if (!f) {
 129                 printf ("err: %s\n", name);
 130                 return -1;
 131         }
 132
 133         for (;;) {
 134                 char *r = fgets (page.buffer, LINE_MAX_LEN, f);
 135
 136                 if (!r)
 137                         break;
 138
 139                 unsigned l = strlen (page.buffer);
 140
 141                 if (l >= LINE_MAX_LEN)
 142                         l = LINE_MAX_LEN-1;
 143
 144                 line_add (page.buffer, l-1);
 145         }
 146
 147         fclose (f);
 148
 149         return 0;
 150 }
 151
 152 int file_save (char *name)
 153 {
 154         FILE *f = fopen (name, "w");
 155
 156         if (!f) {
 157                 printf ("err: %s\n", name);
 158                 return -1;
 159         }
 160
 161         unsigned len = 0;
 162
 163         line_t *line;
 164         for (line = line_list.next; line != &line_list; line = line->next)
 165                 len += line->len + 1;
 166
 167         char *p = (char *) malloc (sizeof (char) * (len + 1));
 168
 169         if (!p) {
 170                 fclose (f);
 171                 return -1;
 172         }
 173
 174         len = 0;
 175         for (line = line_list.next; line != &line_list; line = line->next) {
 176                 memcpy (p+len, line->buffer, line->len);
 177                 p[len+line->len] = '\n';
 178                 len += line->len + 1;
 179         }
 180
 181         int r = fwrite (p, len, 1, f);
 182
 183         if (r < 1) {
 184                 printf ("ERROR -> fwrite ()\n");
 185         }
 186
 187         free (p);
 188
 189         fclose (f);
 190
 191         return 0;
 192 }
 193
 194 unsigned cmd_handler (char *buffer, unsigned len)
 195 {
 196         if (len >= 4) {
 197                 if (!strncmp (buffer, ":quit", len)) {
 198                         quit = 1;
 199                         return 1;
 200                 }
 201
 202                 if (!strncmp (buffer, ":save", 4)) {
 203                         if (len > 6) {
 204                                 if (buffer[5] != ' ')
 205                                         return 1;
 206
 207                                 //creat (buffer+6, O_CREAT);
 208
 209                                 file_save (buffer+6);
 210                                 printf ("Saved: '%s'\n", buffer+6);
 211                         }
 212
 213                         return 1;
 214                 }
 215         }
 216
 217         return 0;
 218 }
 219
 220 void cursor_update (unsigned short x, unsigned short y)
 221 {
 222         gotoxy (x, y);
 223 }
 224
 225 char kbd_getchar ()
 226 {
 227         char c = getchar ();
 228
 229         if (c == -1)
 230                 return 0;
 231
 232         switch (c) {
 233                 case '\b':
 234                         if (page.csr_x > 0)
 235                                 page.csr_x -= 1;
 236
 237                         if (page.csr_x > 79)
 238                                 page.csr_x = 79;
 239
 240                         if (page.len > 0)
 241                                 page.len --;
 242
 243                         //cursor_update (page.csr_x, page.csr_y);
 244                         return 0;
 245                 case '\n':
 246                         page.csr_y ++;
 247                         page.csr_x = 0;
 248                         page.buffer[page.len] = '\0';
 249
 250                         line_add (page.buffer, page.len);
 251
 252                         memset (page.buffer, 0, page.len);
 253                         page.len = 0;
 254
 255                         //cursor_update (page.csr_x, page.csr_y);
 256                         return 0;
 257                 default:
 258                         page.csr_x ++;
 259                         page.len ++;
 260
 261                         break;
 262         }
 263
 264         return c;
 265 }
 266
 267 unsigned text_handler ()
 268 {
 269         char c = kbd_getchar ();
 270
 271         if (c)
 272                 page.buffer[page.csr_x - 1] = c;
 273
 274         return c ? 1 : 0;
 275 }
 276
 277 int loop ()
 278 {
 279         for (;;) {
 280                 text_handler ();
 281
 282                 schedule ();
 283
 284                 if (quit)
 285                         break;
 286         }
 287
 288         return 0;
 289 }
 290
 291 int init ()
 292 {
 293         quit = 0;
 294
 295         page.csr_x = 0;
 296         page.csr_y = 0;
 297
 298         page.len = 0;
 299
 300         line_list.next = &line_list;
 301         line_list.prev = &line_list;
 302
 303         cls ();
 304
 305         return 0;
 306 }
 307
 308 int main (int argc, char **argv)
 309 {
 310         init ();
 311
 312         int oldFlag = fcntl (1, F_GETFL, 0);
 313         if (fcntl (1, F_SETFL, oldFlag | O_NONBLOCK) == -1) {
 314                 printf ("Cant set socket to nonblocking mode\n");
 315                 return 0;
 316         }
 317
 318         if (argc > 1)
 319                 file_load (argv[1]);
 320
 321         line_printall ();
 322
 323         loop ();
 324
 325         return 0;
 326 }