af4d8ead38
a number of (ex-)Athena programs. Breaking my own rules for importing somewhat, as this code does not appear to be actively maintained by anyone (not that it really needs it).
44 lines
1.1 KiB
C
44 lines
1.1 KiB
C
/*
|
|
* Copyright 1987 by MIT Student Information Processing Board
|
|
*
|
|
* For copyright info, see mit-sipb-copyright.h.
|
|
*/
|
|
|
|
#include "error_table.h"
|
|
#include "mit-sipb-copyright.h"
|
|
#include "internal.h"
|
|
|
|
#ifndef lint
|
|
static const char copyright[] =
|
|
"Copyright 1987,1988 by Student Information Processing Board, Massachusetts Institute of Technology";
|
|
static const char rcsid_et_name_c[] =
|
|
"$Header: et_name.c,v 1.7 89/01/01 06:14:56 raeburn Exp $";
|
|
#endif
|
|
|
|
static const char char_set[] =
|
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_";
|
|
|
|
static char buf[6];
|
|
|
|
const char * error_table_name(num)
|
|
int num;
|
|
{
|
|
int ch;
|
|
int i;
|
|
char *p;
|
|
|
|
/* num = aa aaa abb bbb bcc ccc cdd ddd d?? ??? ??? */
|
|
p = buf;
|
|
num >>= ERRCODE_RANGE;
|
|
/* num = ?? ??? ??? aaa aaa bbb bbb ccc ccc ddd ddd */
|
|
num &= 077777777;
|
|
/* num = 00 000 000 aaa aaa bbb bbb ccc ccc ddd ddd */
|
|
for (i = 4; i >= 0; i--) {
|
|
ch = (num >> BITS_PER_CHAR * i) & ((1 << BITS_PER_CHAR) - 1);
|
|
if (ch != 0)
|
|
*p++ = char_set[ch-1];
|
|
}
|
|
*p = '\0';
|
|
return(buf);
|
|
}
|