テストがMacやCygwinなどでも成功するように変更
[YACASL2.git] / src / cerr.c
1 #include "cerr.h"
2
3 /* mallocを実行し、メモリを確保できない場合は */
4 /* エラーを出力して終了 */
5 void *malloc_chk(size_t size, char *tag)
6 {
7     void *p;
8
9     if((p = malloc(size)) == NULL) {
10         fprintf(stderr, "%s: cannot allocate memory\n", tag);
11         exit(-1);
12     }
13     return p;
14 }
15
16 /* malloc_chkを実行してメモリを確保してから、 */
17 /* コピーした文字列を返す */
18 char *strdup_chk(const char *s, char *tag)
19 {
20     assert(s != NULL);
21     char *t;
22
23     t = malloc_chk(strlen(s) + 1, tag);
24     strcpy(t, s);
25     return t;
26 }
27
28 /* 現在のエラー */
29 CERR *cerr;
30
31 /* エラーリスト */
32 CERRLIST *cerrlist;
33
34 /* エラーリストを作成・追加する */
35 bool addcerrlist(int newerrc, CERR newerrv[])
36 {
37     int i;
38     CERRLIST *p, *q;
39
40     assert(newerrc > 0 && newerrv != NULL);
41     if(cerrlist == NULL) {
42         p = cerrlist = malloc_chk(sizeof(CERRLIST), "cerrlist");
43     } else {
44         for(p = cerrlist; p != NULL; p = p->next) {
45             q = p;
46         }
47         p = q->next = malloc_chk(sizeof(CERRLIST), "cerrlist.next");
48     }
49     for(i = 0; i < newerrc; i++) {
50         p->cerr = &(newerrv[i]);
51         p->next = malloc_chk(sizeof(CERRLIST), "cerrlist.next");
52         q = p;
53         p = p->next;
54     }
55     q->next = NULL;
56     return true;
57 }
58
59 /* 現在のエラーを設定する */
60 void setcerr(int num, const char *str)
61 {
62     cerr->num = num;
63     cerr->msg = malloc_chk(CERRMSGSIZE + 1, "cerr.msg");
64     if(str != NULL && strlen(str) <= CERRSTRSIZE) {
65         sprintf(cerr->msg, "%s: %s", str, getcerrmsg(cerr->num));
66     } else {
67         strcpy(cerr->msg, getcerrmsg(cerr->num));
68     }
69 }
70
71 /* エラーリストから、エラー番号に対応するメッセージを返す */
72 char *getcerrmsg(int num)
73 {
74     CERRLIST *p;
75
76     for(p = cerrlist; p != NULL; p = p->next) {
77         if(num == p->cerr->num) {
78             return p->cerr->msg;
79         }
80     }
81     return "unknown error";
82 }
83
84 /* エラーリストと現在のエラーを解放する */
85 void freecerr()
86 {
87     CERRLIST *p = cerrlist, *q;
88
89     /* エラーリストを解放 */
90     while(p != NULL) {
91         q = p->next;
92         free(p);
93         p = q;
94     }
95     /* 現在のエラーを解放 */
96     free(cerr);
97 }