File: gets.c

package info (click to toggle)
cc65 2.19-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 20,268 kB
  • sloc: ansic: 117,151; asm: 66,339; pascal: 4,248; makefile: 1,009; perl: 607
file content (63 lines) | stat: -rw-r--r-- 1,131 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
/*
** gets.c
**
** Ullrich von Bassewitz, 11.08.1998
*/



#include <stdio.h>
#include "_file.h"



/*****************************************************************************/
/*                                   Code                                    */
/*****************************************************************************/



char* __fastcall__ gets (char* s)
{
    register char* p = s;
    int c;
    unsigned i = 0;

    while (1) {

        /* Get next character */
        if ((c = fgetc (stdin)) == EOF) {
            /* Error or EOF */
            *p = '\0';
            if (stdin->f_flags & _FERROR) {
                /* ERROR */
                return 0;
            } else {
                /* EOF */
                if (i) {
                    return s;
                } else {
                    return 0;
                }
            }
        }

        /* One char more. Newline ends the input */
        if ((char) c == '\n') {
            *p = '\0';
            break;
        } else {
            *p = c;
            ++p;
            ++i;
        }

    }

    /* Done */
    return s;
}