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

     *tail = 0;
     tail++;
     /* look at the arg now */
     if (*arg == '/') {
+      const char far *self = mdr_dos_selfexe();
+      unsigned short i;
+      if (self == NULL) self = "sved";
+      for (i = 0; self[i] != 0; i++) {
+        if (self[i] == '\\') {
+          self += i + 1;
+          i = 0;
+        }
+      }
-      mdr_coutraw_puts("Sved ver " PVER " Copyright (C) " PDATE " Mateusz Viste");
+      mdr_coutraw_puts("sved ver " PVER " copyright (C) " PDATE " Mateusz Viste");
-      mdr_coutraw_puts("");
+      mdr_coutraw_crlf();
+      mdr_coutraw_str(svarlang_str(1,0)); /* usage: */
+      mdr_coutraw_char(' ');
+      while (*self != 0) {
+        mdr_coutraw_char(*self);
+        self++;
+      }
+      mdr_coutraw_char(' ');
-      mdr_coutraw_puts(svarlang_str(1,0)); /* usage: sved file.txt */
+      mdr_coutraw_puts(svarlang_str(1,1)); /* args syntax */
       return(-1);
+    }
     /* looks to be a filename */
     if (count == 10) {
       mdr_coutraw_puts(svarlang_str(0,12));
       return(-1); /* too many files */
+    }
     /* try loading it */
+    mdr_coutraw_str(svarlang_str(1,2));
+    mdr_coutraw_char(' ');
     mdr_coutraw_puts(arg);
     err = loadfile(&(dbarr[count]), arg);
     if (err) {
       if (err == 1) { /* file not found */
         err = 11;

Subversion Repositories SvarDOS