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

 #include "mdr\dos.h"
 #include "svarlang\svarlang.h"
-#define PVER "2023.1"
+#define PVER "2023.2"
 #define PDATE "2023"
 /*****************************************************************************
  * global variables and definitions                                          *
  *****************************************************************************/
   return(0);
+}
-static int savefile(const struct file *db, const char *newfname) {
+static int savefile(const struct file *db, const char *saveas) {
-  int fd;
+  int fd = 0;
   const struct line far *l;
   unsigned int bytes;
   unsigned char eollen;
   unsigned char eolbuf[2];
   int errflag = 0;
-  /* either create a new file if newfname provided, or... */
+  /* if filename not overloaded then use the fname in db */
+  if (saveas == NULL) saveas = db->fname;
+  _asm {
-  if (newfname) {
+    push ax
+    push cx
+    push dx
-    if (_dos_creatnew(newfname, _A_NORMAL, &fd) != 0) return(-1);
+    mov ah, 0x3C    /* create or truncate file */
-  } else { /* ...open db->fname */
+    xor cx, cx      /* file attributes */
-    if (_dos_open(db->fname, O_WRONLY, &fd) != 0) return(-1);
+    mov dx, saveas  /* works only in SMALL/TINY mode */
+    int 0x21
+    jnc DONE
+    mov errflag, ax
+    DONE:
+    mov fd, ax
+    pop dx
+    pop cx
+    pop ax
+  }
+  if (errflag != 0) return(-1);
   l = db->cursor;
   while (l->prev) l = l->prev;
   /* preset line terminators */
   if (db->lfonly) {
+    }
     errflag |= _dos_write(fd, eolbuf, eollen, &bytes);
     l = l->next;
+  }
-  /* emit a 0-bytes write - this means "truncate file at current position" */
-  errflag |= _dos_write(fd, NULL, 0, &bytes);
   errflag |= _dos_close(fd);
   return(errflag);
+}

Subversion Repositories SvarDOS

(root)/sved/trunk/sved.c @ 1324 – Rev 1450 → 1453