Last change
on this file since cbe2c15 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago |
Imported original source code.
|
-
Property mode
set to
100755
|
File size:
763 bytes
|
Rev | Line | |
---|
[3ae31e9] | 1 | /*
|
---|
| 2 | ============================================================================
|
---|
| 3 | lxmain.c -- _main() for the Atari
|
---|
| 4 | Version 4 -- 1987-02-10 -- D.N. Lynx Crowe
|
---|
| 5 | ============================================================================
|
---|
| 6 | */
|
---|
| 7 |
|
---|
| 8 | /* #define LOWERIT define for GEMDOS case hacking (Yech!!) */
|
---|
| 9 |
|
---|
| 10 | #ifdef LOWERIT
|
---|
| 11 | #include "ctype.h"
|
---|
| 12 | #endif
|
---|
| 13 |
|
---|
| 14 | extern char __tname[];
|
---|
| 15 |
|
---|
| 16 | _main(cmdline, cmdlen)
|
---|
| 17 | char cmdline[];
|
---|
| 18 | int cmdlen;
|
---|
| 19 | {
|
---|
| 20 |
|
---|
| 21 | #ifdef LOWERIT
|
---|
| 22 | register char c;
|
---|
| 23 | register char *bp = cmdline;
|
---|
| 24 | #endif
|
---|
| 25 |
|
---|
| 26 | _chinit();
|
---|
| 27 |
|
---|
| 28 | open(__tname, 0);
|
---|
| 29 | open(__tname, 1);
|
---|
| 30 | open(__tname, 1);
|
---|
| 31 |
|
---|
| 32 | cmdline[cmdlen] = '\0';
|
---|
| 33 |
|
---|
| 34 | #ifdef LOWERIT
|
---|
| 35 | while (c = *bp) {
|
---|
| 36 |
|
---|
| 37 | if (isupper(c))
|
---|
| 38 | *bp = c + 0x20;
|
---|
| 39 |
|
---|
| 40 | ++bp;
|
---|
| 41 | }
|
---|
| 42 | #endif
|
---|
| 43 |
|
---|
| 44 | __main(cmdline, cmdlen);
|
---|
| 45 | }
|
---|
Note:
See
TracBrowser
for help on using the repository browser.