implemented 'm' and 't'

1 files changed, 294 insertions, 0 deletions

diff --git a/tests/pippo.c b/tests/pippo.c
new file mode 100644
index 0000000..1718a5b
--- /dev/null
+++ b/tests/pippo.c
@@ -0,0 +1,294 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "buff.h"
+#include <ctype.h>
+
+
+
+line_t *b_start = NULL;
+line_t *b_end = NULL;
+line_t *cur = NULL;
+int num = 0;
+int pos = 0;
+/* addr1 is the last address, while addr2 is the previous one */
+int addr1, addr2;
+char *fname;
+
+
+const char* skip_blank(const char **c){
+
+  while (isblank(**c)) (*c)++;
+  return *c;
+}
+
+
+int get_addr(const char **cmd){
+
+  int addr, n, got;
+  char sign = 0, comma = 0, semic = 0;
+  const char *c;
+  
+  addr1 = addr2 = -1;
+  c = *cmd;
+  while(*c){
+    c = skip_blank(&c);
+    n = 0;
+    got = 0;
+    if (isdigit(*c)){
+      while (isdigit(*c)){
+        got = 1;
+        n = n * 10 + *c - '0', c++;
+      }
+      if (got){
+        if (addr1 > -1 )
+          addr2 = addr1;
+        addr1 = n;
+      }
+    }
+    else {
+      switch(*c){
+      case '.':
+        if (addr1 > -1)
+          addr2 = addr1;
+        addr1 = pos;
+        break;
+      case '$':
+        if (addr1 > -1)
+          addr2 = addr1;
+        addr1 = num;
+        break;
+      case ',':
+        comma = 1;
+        if (addr1 ==-1)
+          addr2 = 1, addr1=num;
+        else if (addr1 < addr2){
+          *cmd = c++;
+          return -1; 
+        }
+        break;
+      case ';':
+        semic = 1;
+        if (addr1 == -1)
+          addr2 = pos, addr1=num;
+        else if (addr1 < addr2){
+          *cmd = c++;
+          return -1;
+        }
+        break;
+      default:
+        goto check;
+      }
+      c++;
+    }
+  }
+
+ check:
+  *cmd = c;
+  
+  fprintf(stderr, "  >>> get_addr: addr1: %d addr2: %d\n", addr1, addr2);
+
+  if (addr1 > num || addr2 > num)
+    return -2;
+  
+  if (addr1 == -1){
+    if (comma){
+      addr1 = num;
+      addr2 = 1;
+      return 2;
+    }
+    if (semic){
+      addr1 = num;
+      addr2 = pos;
+      return 2;
+    }
+    addr1 = addr2 = pos;
+    return 0;
+  }
+  if (addr2 == -1){
+    if (comma || semic){
+      addr2 = addr1;
+      return 2;
+    }
+    addr2 = pos;
+    return 1;
+  }
+  return 2;
+}
+
+
+int get_fname(char **cmd){
+  
+  static char b[4096];
+  int s, n;
+  
+  n = sscanf(*cmd, "%s", b);
+  if (n <1 )
+    return 0;
+  fprintf(stderr, " >>> read fname: %s\n", b);
+  s = strlen(b);
+  if (s){
+    fname = realloc(fname, (s+1) * sizeof(char));
+    memcpy(fname, b, s+1);
+    return 1;
+  }
+  return -1;
+}
+
+
+void main_loop(){
+  
+  char *cmd, *c;
+  int ret;
+  char p;
+  
+  cmd = malloc(256 * sizeof(char));
+  c = cmd;
+  
+  while(1){
+    p = 0;
+    fgets(cmd, 255, stdin);
+    
+    ret = get_addr((const char **) &cmd);
+    
+    fprintf(stderr,">>> *** pos: %d ret: %d ***\n", pos, ret);
+    if (ret) {
+      fprintf(stderr, ">>>   *** addr1: %d, addr2= %d***\n", addr1, addr2);
+    }
+
+    switch(cmd[0]){
+    case 'a':
+      if (addr1 > -1)
+        move_to_line(addr1, 0);
+      append_lines();
+      break;
+    case 'c':
+      if (addr1 > -1)
+        move_to_line(addr1,0);
+      delete_lines();
+      addr1 = addr2 = pos;
+      append_lines();
+    case 'd':
+      if (ret == -1){
+        E;
+        break;
+      }
+      if (ret == 2){
+        CHECKADDR;
+      }
+      if (ret == 1)
+        addr2 = addr1;
+      delete_lines();
+      break;
+    case 'e':
+      cmd++;
+      skip_blank((const char**)&cmd);
+      if (cmd[0] == '!')
+        //read_command();
+        ;
+      else
+        if(get_fname(&cmd) >=0)
+          read_file();
+        else{
+          perror(fname);
+          E;
+        }
+      break;
+    case 'f':
+      if (ret > 0)
+        E;
+      else{
+        cmd += 1;
+        if (get_fname(&cmd)>=0)
+          printf("%s\n", fname);
+        else{
+          perror(fname);
+          E;
+        }
+      }
+      break;
+    case 'i':
+      if (addr1 > -1)
+        move_to_line(addr1, 0);
+      insert_lines();
+      break;
+    case 'n': p = 1;
+    case 'p':
+      if (ret == 2){
+        CHECKADDR;
+        print_lines(p);
+      }
+      else  if (ret == 1) 
+        move_to_line(addr2, 1);
+      else if (ret == 0)
+        print_cur_line(p);
+      else if (ret == -1){
+        addr1 = num;
+        addr2 = 1;
+        move_to_line(addr2,0);
+        print_lines(p);
+      }
+      else
+        E;
+      break;
+    case '\n':
+      if (addr1 > -1 && addr1 <=pos)
+        move_to_line(addr1, 1);
+      else if (addr2 <=pos)
+        print_cur_line(p);
+      else
+        E;
+      break;
+    case 'q':
+      goto cleanup;
+      break;
+    case 'w':
+      cmd +=1;
+      get_fname(&cmd);
+      if (!fname)
+        E;
+      else{
+        if (write_lines()){
+          perror(fname);
+          E;
+        }
+      }
+      break;
+    case '=':
+      if (addr1 == -1)
+        addr1 = num;
+      print_lineno();
+      break;
+    default:
+      if (cmd[0])
+        fprintf(stderr, ">>> **** unknown command: '%c'****\n", cmd[0]);
+      E;
+    }
+  }
+ cleanup:
+  free(c);
+  return;
+}
+
+
+
+int main(int argc, char *argv[]){
+
+  FILE *fin;
+
+  fname = NULL;
+  if (argc > 1){
+    fname = malloc((strlen(argv[1])+1) * sizeof(char));
+    memcpy(fname, argv[1], strlen(argv[1]) + 1);
+    if (!read_file())
+      fclose(fin);
+    else{
+      perror(fname);
+    }
+  }
+  main_loop();
+  addr1 = pos, addr2 = 1;
+  delete_lines();
+  free(fname);
+}
+