source: buchla-68k/orig/GEMDOS/LXMAIN.C@ f40d52b

Last change on this file since f40d52b was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.
  • Property mode set to 100755
File size: 763 bytes
Line 
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
14extern char __tname[];
15
16_main(cmdline, cmdlen)
17char cmdline[];
18int 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.