WebSVN – SvarDOS – Diff – /sved/trunk/sved.c

   _dos_close(fd);
   return(0);
+}
+static void insert_in_line(struct file *db, const char *databuf, unsigned short len, unsigned char screenw, unsigned char screenh, unsigned char *uidirtyfrom, unsigned char *uidirtyto) {
+  struct line far *n;
+  n = _frealloc(db->cursor, sizeof(struct line) + db->cursor->len + len);
+  if (n != NULL) {
+    unsigned short off = db->xoffset + db->cursorposx;
+    if (n->prev) n->prev->next = n;
+    if (n->next) n->next->prev = n;
+    db->cursor = n;
+    _fmemmove(db->cursor->payload + off + len, db->cursor->payload + off, db->cursor->len - off + 1);
+    db->cursor->len += len;
+    *uidirtyfrom = db->cursorposy;
+    *uidirtyto = db->cursorposy;
+    while (len--) {
+      db->cursor->payload[off++] = *databuf;
+      databuf++;
+      cursor_right(db, screenw, screenh, uidirtyfrom, uidirtyto);
+    }
+  }
+}
 int main(void) {
   const char *fname;
   struct file db;
   unsigned char screenw = 0, screenh = 0;
   unsigned char uidirtyfrom = 0, uidirtyto = 0xff; /* make sure to redraw entire UI at first run */
     } else if (k == 0x008) { /* BKSPC */
       bkspc(&db, screenw, &uidirtyfrom, &uidirtyto);
     } else if ((k >= 0x20) && (k <= 0xff)) { /* "normal" character */
-      struct line far *n;
+      char c = k;
-      n = _frealloc(db.cursor, sizeof(struct line) + db.cursor->len);
+      insert_in_line(&db, &c, 1, screenw, screenh, &uidirtyfrom, &uidirtyto);
-      if (n != NULL) {
+    } else if (k == 0x009) { /* TAB */
-        unsigned short off = db.xoffset + db.cursorposx;
-        if (n->prev) n->prev->next = n;
-        if (n->next) n->next->prev = n;
-        db.cursor = n;
-        _fmemmove(db.cursor->payload + off + 1, db.cursor->payload + off, db.cursor->len - off + 1);
-        db.cursor->len += 1;
-        uidirtyfrom = db.cursorposy;
-        uidirtyto = db.cursorposy;
-        db.cursor->payload[off] = k;
+      const char *tab = "        ";
-        cursor_right(&db, screenw, screenh, &uidirtyfrom, &uidirtyto);
+      insert_in_line(&db, tab, 8, screenw, screenh, &uidirtyfrom, &uidirtyto);
-      }
     } else if (k == 0x13b) { /* F1 */
       ui_help(screenw);
       uidirtyfrom = 0;
       uidirtyto = 0xff;

Subversion Repositories SvarDOS

(root)/sved/trunk/sved.c @ 1559 – Rev 1316 → 1317