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

 #include <string.h>
 #include "mdr\bios.h"
 #include "mdr\cout.h"
 #include "mdr\dos.h"
-#include "mdr\keyb.h"
 #include "svarlang\svarlang.h"
 #define PVER "2023.0"
   x = mdr_cout_str(y, 0, query, SCHEME_STBAR3, 40);
   mdr_cout_char_rep(y, x++, ' ', SCHEME_STBAR3, screenw - x);
   for (;;) {
     mdr_cout_locate(y, x + len);
-    k = keyb_getkey();
+    k = mdr_dos_getkey2();
     switch (k) {
       case 0x1b: /* ESC */
         s[0] = 0;
         return;
   mdr_cout_cursor_hide();
   /* if file has been modified then ask for confirmation */
   ui_msg(svarlang_str(0,4), svarlang_str(0,5), SCHEME_MSG);
-  if (keyb_getkey() != '\r') r = 1;
+  if (mdr_dos_getkey2() != '\r') r = 1;
   mdr_cout_cursor_show();
   return(r);
+}
       if (i == curchoice) {
         mdr_cout_char_rep(yorigin + i, xorigin + x + 2, ' ', SCHEME_MENU_SEL, slen - x + 1);
+      }
+    }
     /* wait for key */
-    switch (keyb_getkey()) {
+    switch (mdr_dos_getkey2()) {
       case 0x150: /* down */
         if (curchoice == MENU_QUIT) {
           curchoice = MENU_OPEN;
         } else {
           curchoice++;
  * (this saves 20 bytes of executable footprint) */
 void main(void) {
   static struct file dbarr[10];
   unsigned short curfile;
   struct file *db = dbarr; /* visible file is the first slot by default */
+  struct line far *clipboard = NULL;
+  {
     unsigned short i = 0;
     const char far *selfptr;
     char self[128], lang[8];
     SCHEME_SCROLL = 0x70;
     SCHEME_MSG = 0x6f;
     SCHEME_ERR = 0x4f;
+  }
+  /* disable CTRL+C handling, user needs it for copy/paste operations */
+  mdr_dos_ctrlc_disable();
   for (;;) {
     int k;
     /* add an extra empty line if cursor is on last line and this line is not empty */
     if ((db->cursor->next == NULL) && (db->cursor->len != 0)) {
         ddd[7] = 0;
         mdr_cout_str(screenh - 1, 40, ddd, SCHEME_STBAR1, sizeof(ddd));
+      }
 #endif
-    k = keyb_getkey();
+    k = mdr_dos_getkey2();
     if (k == 0x150) { /* down */
       cursor_down(db);
     } else if (k == 0x148) { /* up */
           break;
+        }
         if ((db->cursorposx == 0) && (db->xoffset == 0)) break;
+      }
+    } else if ((k == 0x003) || (k == 0x018)) { /* CTRL+C or CTRL+X */
+      /* free clipboard if anything in it */
+      if (clipboard != NULL) line_free(clipboard);
+      /* copy cursor line to clipboard */
+      clipboard = line_calloc(db->cursor->len);
+      if (clipboard == NULL) {
+        ui_msg(svarlang_str(0, 10), NULL, SCHEME_ERR); /* ERROR */
+        mdr_bios_tickswait(18); /* 1s */
+      } else {
+        mdr_cout_char_rep(db->cursorposy, 0, ' ', ((SCHEME_TEXT >> 4) | (SCHEME_TEXT << 4)) & 0xff, screenw - 1);
+        uidirty.from = db->cursorposy;
+        uidirty.to = db->cursorposy;
+        if (db->cursor->len != 0) {
+          _fmemmove(clipboard->payload, db->cursor->payload, db->cursor->len);
+          clipboard->len = db->cursor->len;
+        }
+        mdr_bios_tickswait(2); /* ca 100ms */
+        /* if this is about cutting the line (CTRL+X) then delete cur line */
+        if ((k == 0x018) && ((db->cursor->next != NULL) || (db->cursor->prev != NULL))) {
+          if (db->cursor->next) db->cursor->next->prev = db->cursor->prev;
+          if (db->cursor->prev) db->cursor->prev->next = db->cursor->next;
+          clipboard->prev = db->cursor;
+          if (db->cursor->next) {
+            db->cursor = db->cursor->next;
+          } else {
+            cursor_up(db);
+          }
+          line_free(clipboard->prev);
+          uidirty.from = 0;
+          uidirty.to = 0xff;
+        }
+      }
+    } else if (k == 0x016) { /* CTRL+V */
+      if (clipboard != NULL) {
+        if (line_add(db, clipboard->payload, clipboard->len) != 0) {
+          ui_msg(svarlang_str(0, 10), NULL, SCHEME_ERR); /* ERROR */
+          mdr_bios_tickswait(18); /* 1s */
+        } else {
+          /* rewire the linked list so the new line is on top of the previous one */
+          clipboard->prev = db->cursor->prev;
+          /* remove prev node from list */
+          db->cursor->prev = db->cursor->prev->prev;
+          if (db->cursor->prev != NULL) db->cursor->prev->next = db->cursor;
+          /* insert the node after cursor now */
+          clipboard->prev->next = db->cursor->next;
+          if (db->cursor->next != NULL) db->cursor->next->prev = clipboard->prev;
+          clipboard->prev->prev = db->cursor;
+          db->cursor->next = clipboard->prev;
+          cursor_down(db);
+        }
+      }
+      uidirty.from = 0;
+      uidirty.to = 0xff;
 #ifdef DBG_UNHKEYS
     } else { /* UNHANDLED KEY - TODO IGNORE THIS IN PRODUCTION RELEASE */
       char buff[4];
       const char *HEX = "0123456789ABCDEF";
       buff[0] = HEX[(k >> 8) & 15];
       buff[1] = HEX[(k >> 4) & 15];
       buff[2] = HEX[k & 15];
       mdr_cout_str(screenh - 1, 0, "UNHANDLED KEY: 0x", SCHEME_STBAR1, 17);
       mdr_cout_str(screenh - 1, 17, buff, SCHEME_STBAR1, 3);
-      keyb_getkey();
+      mdr_dos_getkey2();
       break;
 #endif
+    }
+  }

Subversion Repositories SvarDOS

(root)/sved/trunk/sved.c @ 1440 – Rev 1396 → 1410