Subversion Repositories SvarDOS

Rev

Rev 1430 | Rev 1435 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1430 Rev 1433
Line 672... Line 672...
672
 
672
 
673
      } else if (arg[1] == 'm') { /* /m = force mono mode */
673
      } else if (arg[1] == 'm') { /* /m = force mono mode */
674
        glob_monomode = 1;
674
        glob_monomode = 1;
675
 
675
 
676
      } else {  /* help screen */
676
      } else {  /* help screen */
677
        const char far *self = mdr_dos_selfexe();
-
 
678
        unsigned short i;
-
 
679
        if (self == NULL) self = "sved";
-
 
680
        for (i = 0; self[i] != 0; i++) {
-
 
681
          if (self[i] == '\\') {
-
 
682
            self += i + 1;
-
 
683
            i = 0;
-
 
684
          }
-
 
685
        }
-
 
686
        mdr_coutraw_str(svarlang_str(1,3)); /* Sved, the SvarDOS editor */
677
        mdr_coutraw_str(svarlang_str(1,3)); /* Sved, the SvarDOS editor */
687
        mdr_coutraw_str(" [");
678
        mdr_coutraw_str(" [");
688
        mdr_coutraw_str(svarlang_str(1,4)); /* ver */
679
        mdr_coutraw_str(svarlang_str(1,4)); /* ver */
689
        mdr_coutraw_puts(" " PVER "]");
680
        mdr_coutraw_puts(" " PVER "]");
690
        mdr_coutraw_puts("Copyright (C) " PDATE " Mateusz Viste");
681
        mdr_coutraw_puts("Copyright (C) " PDATE " Mateusz Viste");
691
        mdr_coutraw_crlf();
682
        mdr_coutraw_crlf();
692
        mdr_coutraw_str(svarlang_str(1,0)); /* usage: */
-
 
693
        mdr_coutraw_char(' ');
683
        mdr_coutraw_str("sved [/m] [/t] ");
694
        while (*self != 0) {
-
 
695
          mdr_coutraw_char(*self);
-
 
696
          self++;
-
 
697
        }
-
 
698
        mdr_coutraw_char(' ');
-
 
699
        mdr_coutraw_puts(svarlang_str(1,1)); /* args syntax */
684
        mdr_coutraw_puts(svarlang_str(1,1)); /* args syntax */
700
        mdr_coutraw_crlf();
685
        mdr_coutraw_crlf();
701
        mdr_coutraw_puts(svarlang_str(1,10)); /* /m */
686
        mdr_coutraw_puts(svarlang_str(1,10)); /* /m */
702
        mdr_coutraw_puts(svarlang_str(1,11)); /* /t */
687
        mdr_coutraw_puts(svarlang_str(1,11)); /* /t */
703
        return(-1);
688
        return(-1);