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

       continue;
+    }
     /* looks to be a filename */
     if (count == 10) {
-      mdr_coutraw_puts(svarlang_str(0,12));
+      mdr_coutraw_puts(svarlang_str(0,12)); /* too many files */
-      return(-1); /* too many files */
+      return(-1);
+    }
     /* try loading it */
     mdr_coutraw_str(svarlang_str(1,2));
     mdr_coutraw_char(' ');
           uidirty.to = 0xff;
           recompute_curline(db);
+        }
+      }
-    } else if (k == 0x016) { /* CTRL+V */
+    } else if ((k == 0x016) && (clipboard != NULL)) { /* CTRL+V */
-      if (clipboard != NULL) {
-        if (line_add(db, clipboard->payload, clipboard->len) != 0) {
+      if (line_add(db, clipboard->payload, clipboard->len) != 0) {
-          ui_msg(svarlang_str(0, 10), NULL, SCHEME_ERR); /* ERROR */
+        ui_msg(svarlang_str(0, 10), NULL, SCHEME_ERR); /* ERROR */
-          mdr_bios_tickswait(18); /* 1s */
+        mdr_bios_tickswait(18); /* 1s */
-        } else {
+      } else {
-          /* rewire the linked list so the new line is on top of the previous one */
+        /* rewire the linked list so the new line is on top of the previous one */
-          clipboard->prev = db->cursor->prev;
+        clipboard->prev = db->cursor->prev;
-          /* remove prev node from list */
+        /* remove prev node from list */
-          db->cursor->prev = db->cursor->prev->prev;
+        db->cursor->prev = db->cursor->prev->prev;
-          if (db->cursor->prev != NULL) db->cursor->prev->next = db->cursor;
+        if (db->cursor->prev != NULL) db->cursor->prev->next = db->cursor;
-          /* insert the node after cursor now */
+        /* insert the node after cursor now */
-          clipboard->prev->next = db->cursor->next;
+        clipboard->prev->next = db->cursor->next;
-          if (db->cursor->next != NULL) db->cursor->next->prev = clipboard->prev;
+        if (db->cursor->next != NULL) db->cursor->next->prev = clipboard->prev;
-          clipboard->prev->prev = db->cursor;
+        clipboard->prev->prev = db->cursor;
-          db->cursor->next = clipboard->prev;
+        db->cursor->next = clipboard->prev;
-          cursor_down(db);
+        cursor_down(db);
-        }
+      }
       uidirty.from = 0;
       uidirty.to = 0xff;
       recompute_curline(db);

Subversion Repositories SvarDOS

(root)/sved/trunk/sved.c @ 1560 – Rev 1419 → 1420