summaryrefslogtreecommitdiff
path: root/dviware/beebe/src/cuseri.c
blob: df52cc968b430bed803a272d829ca0f5eeb4e999 (plain)
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
/* -*-C-*- cuseri.c */
/*-->cuserid*/
/**********************************************************************/
/****************************** cuserid ******************************/
/**********************************************************************/

#include <stdio.h>

#ifdef PCC_20
#define KCC_20 0
#else
#define PCC_20 0
#endif

#if    PCC_20
#undef tops20				/* to avoid macro substitution */
#include <tops20.h>			/* gets jsys.h and byteptr.h; */
#define tops20 1
#endif

#if    KCC_20
#include <jsys.h>
#ifndef ac1
static int acs[5];
#define ac1 acs[1]
#define ac2 acs[2]
#define ac3 acs[3]
#define ac4 acs[4]
#endif /* ac1 */
#endif /* KCC_20 */

char*
cuserid(s)
char* s;
{
    static char username[40];

    username[0] = '\0';

#if    KCC_20
    (void)jsys(GJINF,acs);
    ac2 = ac1;				/* user number */
    ac1 = (int)(username-1);		/* Monitor wants ILDB */
					/* pointer, not LDB pointer*/
    (void)jsys(DIRST,acs);
#endif /* KCC_20 */

#if    PCC_20
    (void)jsys(JSgjinf,acs);
    ac2 = ac1;				/* user number */
    ac1 = POINT(username);
    (void)jsys(JSdirst,acs);
#endif /* PCC_20 */

    if (s != (char*)NULL)
        strcpy(s,username);
    return ((char*) username);
}