f4e7e2ac2a9a09da173332d9e5babaddda5952a3
[imager.git] / context.c
1 #include "imageri.h"
2
3 /*
4 =item im_context_new()
5
6 Create a new Imager context object.
7
8 =cut
9 */
10
11 im_context_t
12 im_context_new(void) {
13   im_context_t ctx = mymalloc(sizeof(im_context_struct));
14   int i;
15
16   ctx->error_sp = IM_ERROR_COUNT-1;
17   for (i = 0; i < IM_ERROR_COUNT; ++i) {
18     ctx->error_alloc[i] = 0;
19     ctx->error_stack[i].msg = NULL;
20     ctx->error_stack[i].code = 0;
21   }
22 #ifdef IMAGER_LOG
23   ctx->log_level = 0;
24   ctx->lg_file = NULL;
25 #endif
26
27   return ctx;
28 }
29
30 /*
31 =item im_context_delete(ctx)
32
33 Release memory used by an Imager context object.
34
35 =cut
36 */
37
38 void
39 im_context_delete(im_context_t ctx) {
40   int i;
41
42   for (i = 0; i < IM_ERROR_COUNT; ++i) {
43     if (ctx->error_stack[i].msg)
44       myfree(ctx->error_stack[i].msg);
45   }
46 #ifdef IMAGER_LOG
47   if (ctx->lg_file)
48     fclose(ctx->lg_file);
49 #endif
50 }
51
52 /*
53 =item im_context_clone(ctx)
54
55 Clone an Imager context object, returning the result.
56
57 =cut
58 */
59
60 im_context_t
61 im_context_clone(im_context_t ctx) {
62   im_context_t nctx = mymalloc(sizeof(im_context_struct));
63   int i;
64
65   nctx->error_sp = ctx->error_sp;
66   for (i = 0; i < IM_ERROR_COUNT; ++i) {
67     if (ctx->error_stack[i].msg) {
68       size_t sz = ctx->error_alloc[i];
69       nctx->error_alloc[i] = sz;
70       nctx->error_stack[i].msg = mymalloc(sz);
71       memcpy(nctx->error_stack[i].msg, ctx->error_stack[i].msg, sz);
72     }
73     else {
74       nctx->error_alloc[i] = 0;
75       nctx->error_stack[i].msg = NULL;
76     }
77     nctx->error_stack[i].code = ctx->error_stack[i].code;
78   }
79 #ifdef IMAGER_LOG
80   nctx->log_level = ctx->log_level;
81   if (ctx->lg_file) {
82     /* disable buffering, this isn't perfect */
83     setvbuf(ctx->lg_file, NULL, _IONBF, 0);
84
85     /* clone that and disable buffering some more */
86     nctx->lg_file = fdopen(fileno(ctx->lg_file), "a");
87     if (nctx->lg_file)
88       setvbuf(nctx->lg_file, NULL, _IONBF, 0);
89   }
90   else {
91     ctx->lg_file = NULL;
92   }
93 #endif
94
95   return ctx;
96 }