PostgreSQL Source Code: src/interfaces/ecpg/compatlib/informix.c Source File

PostgreSQL Source Code git master
informix.c
Go to the documentation of this file.
1/* src/interfaces/ecpg/compatlib/informix.c */
2
3 #define POSTGRES_ECPG_INTERNAL
4#include "postgres_fe.h"
5
6#include <math.h>
7#include <ctype.h>
8#include <limits.h>
9
10#include "ecpg_informix.h"
11#include "ecpgerrno.h"
12#include "ecpgtype.h"
13#include "pgtypes_date.h"
14#include "pgtypes_error.h"
15#include "pgtypes_numeric.h"
16#include "sqlca.h"
17#include "sqltypes.h"
18
19/* this is also defined in ecpglib/misc.c, by defining it twice we don't have to export the symbol */
20
21 static struct sqlca_t sqlca_init =
22{
23 {
24 'S', 'Q', 'L', 'C', 'A', ' ', ' ', ' '
25 },
26 sizeof(struct sqlca_t),
27 0,
28 {
29 0,
30 {
31 0
32 }
33 },
34 {
35 'N', 'O', 'T', ' ', 'S', 'E', 'T', ' '
36 },
37 {
38 0, 0, 0, 0, 0, 0
39 },
40 {
41 0, 0, 0, 0, 0, 0, 0, 0
42 },
43 {
44 '0', '0', '0', '0', '0'
45 }
46};
47static int
48 deccall2(decimal *arg1, decimal *arg2, int (*ptr) (numeric *, numeric *))
49{
50 numeric *a1,
51 *a2;
52 int i;
53
54 if ((a1 = PGTYPESnumeric_new()) == NULL)
55 return ECPG_INFORMIX_OUT_OF_MEMORY;
56
57 if ((a2 = PGTYPESnumeric_new()) == NULL)
58 {
59 PGTYPESnumeric_free(a1);
60 return ECPG_INFORMIX_OUT_OF_MEMORY;
61 }
62
63 if (PGTYPESnumeric_from_decimal(arg1, a1) != 0)
64 {
65 PGTYPESnumeric_free(a1);
66 PGTYPESnumeric_free(a2);
67 return ECPG_INFORMIX_OUT_OF_MEMORY;
68 }
69
70 if (PGTYPESnumeric_from_decimal(arg2, a2) != 0)
71 {
72 PGTYPESnumeric_free(a1);
73 PGTYPESnumeric_free(a2);
74 return ECPG_INFORMIX_OUT_OF_MEMORY;
75 }
76
77 i = (*ptr) (a1, a2);
78
79 PGTYPESnumeric_free(a1);
80 PGTYPESnumeric_free(a2);
81
82 return i;
83}
84
85static int
86 deccall3(decimal *arg1, decimal *arg2, decimal *result, int (*ptr) (numeric *, numeric *, numeric *))
87{
88 numeric *a1,
89 *a2,
90 *nres;
91 int i;
92
93 /*
94 * we must NOT set the result to NULL here because it may be the same
95 * variable as one of the arguments
96 */
97 if (risnull(CDECIMALTYPE, (char *) arg1) || risnull(CDECIMALTYPE, (char *) arg2))
98 return 0;
99
100 if ((a1 = PGTYPESnumeric_new()) == NULL)
101 return ECPG_INFORMIX_OUT_OF_MEMORY;
102
103 if ((a2 = PGTYPESnumeric_new()) == NULL)
104 {
105 PGTYPESnumeric_free(a1);
106 return ECPG_INFORMIX_OUT_OF_MEMORY;
107 }
108
109 if ((nres = PGTYPESnumeric_new()) == NULL)
110 {
111 PGTYPESnumeric_free(a1);
112 PGTYPESnumeric_free(a2);
113 return ECPG_INFORMIX_OUT_OF_MEMORY;
114 }
115
116 if (PGTYPESnumeric_from_decimal(arg1, a1) != 0)
117 {
118 PGTYPESnumeric_free(a1);
119 PGTYPESnumeric_free(a2);
120 PGTYPESnumeric_free(nres);
121 return ECPG_INFORMIX_OUT_OF_MEMORY;
122 }
123
124 if (PGTYPESnumeric_from_decimal(arg2, a2) != 0)
125 {
126 PGTYPESnumeric_free(a1);
127 PGTYPESnumeric_free(a2);
128 PGTYPESnumeric_free(nres);
129 return ECPG_INFORMIX_OUT_OF_MEMORY;
130 }
131
132 i = (*ptr) (a1, a2, nres);
133
134 if (i == 0) /* No error */
135 {
136
137 /* set the result to null in case it errors out later */
138 rsetnull(CDECIMALTYPE, (char *) result);
139 PGTYPESnumeric_to_decimal(nres, result);
140 }
141
142 PGTYPESnumeric_free(nres);
143 PGTYPESnumeric_free(a1);
144 PGTYPESnumeric_free(a2);
145
146 return i;
147}
148
149/* we start with the numeric functions */
150int
151 decadd(decimal *arg1, decimal *arg2, decimal *sum)
152{
153 errno = 0;
154 deccall3(arg1, arg2, sum, PGTYPESnumeric_add);
155
156 if (errno == PGTYPES_NUM_OVERFLOW)
157 return ECPG_INFORMIX_NUM_OVERFLOW;
158 else if (errno == PGTYPES_NUM_UNDERFLOW)
159 return ECPG_INFORMIX_NUM_UNDERFLOW;
160 else if (errno != 0)
161 return -1;
162 else
163 return 0;
164}
165
166int
167 deccmp(decimal *arg1, decimal *arg2)
168{
169 return deccall2(arg1, arg2, PGTYPESnumeric_cmp);
170}
171
172void
173 deccopy(decimal *src, decimal *target)
174{
175 memcpy(target, src, sizeof(decimal));
176}
177
178static char *
179 ecpg_strndup(const char *str, size_t len)
180{
181 size_t real_len = strlen(str);
182 int use_len = (int) ((real_len > len) ? len : real_len);
183
184 char *new = malloc(use_len + 1);
185
186 if (new)
187 {
188 memcpy(new, str, use_len);
189 new[use_len] = '0円';
190 }
191 else
192 errno = ENOMEM;
193
194 return new;
195}
196
197int
198 deccvasc(const char *cp, int len, decimal *np)
199{
200 char *str;
201 int ret = 0;
202 numeric *result;
203
204 rsetnull(CDECIMALTYPE, (char *) np);
205 if (risnull(CSTRINGTYPE, cp))
206 return 0;
207
208 str = ecpg_strndup(cp, len); /* decimal_in always converts the complete
209 * string */
210 if (!str)
211 ret = ECPG_INFORMIX_NUM_UNDERFLOW;
212 else
213 {
214 errno = 0;
215 result = PGTYPESnumeric_from_asc(str, NULL);
216 if (!result)
217 {
218 switch (errno)
219 {
220 case PGTYPES_NUM_OVERFLOW:
221 ret = ECPG_INFORMIX_NUM_OVERFLOW;
222 break;
223 case PGTYPES_NUM_BAD_NUMERIC:
224 ret = ECPG_INFORMIX_BAD_NUMERIC;
225 break;
226 default:
227 ret = ECPG_INFORMIX_BAD_EXPONENT;
228 break;
229 }
230 }
231 else
232 {
233 int i = PGTYPESnumeric_to_decimal(result, np);
234
235 PGTYPESnumeric_free(result);
236 if (i != 0)
237 ret = ECPG_INFORMIX_NUM_OVERFLOW;
238 }
239 }
240
241 free(str);
242 return ret;
243}
244
245int
246 deccvdbl(double dbl, decimal *np)
247{
248 numeric *nres;
249 int result = 1;
250
251 rsetnull(CDECIMALTYPE, (char *) np);
252 if (risnull(CDOUBLETYPE, (char *) &dbl))
253 return 0;
254
255 nres = PGTYPESnumeric_new();
256 if (nres == NULL)
257 return ECPG_INFORMIX_OUT_OF_MEMORY;
258
259 result = PGTYPESnumeric_from_double(dbl, nres);
260 if (result == 0)
261 result = PGTYPESnumeric_to_decimal(nres, np);
262
263 PGTYPESnumeric_free(nres);
264 return result;
265}
266
267int
268 deccvint(int in, decimal *np)
269{
270 numeric *nres;
271 int result = 1;
272
273 rsetnull(CDECIMALTYPE, (char *) np);
274 if (risnull(CINTTYPE, (char *) &in))
275 return 0;
276
277 nres = PGTYPESnumeric_new();
278 if (nres == NULL)
279 return ECPG_INFORMIX_OUT_OF_MEMORY;
280
281 result = PGTYPESnumeric_from_int(in, nres);
282 if (result == 0)
283 result = PGTYPESnumeric_to_decimal(nres, np);
284
285 PGTYPESnumeric_free(nres);
286 return result;
287}
288
289int
290 deccvlong(long lng, decimal *np)
291{
292 numeric *nres;
293 int result = 1;
294
295 rsetnull(CDECIMALTYPE, (char *) np);
296 if (risnull(CLONGTYPE, (char *) &lng))
297 return 0;
298
299 nres = PGTYPESnumeric_new();
300 if (nres == NULL)
301 return ECPG_INFORMIX_OUT_OF_MEMORY;
302
303 result = PGTYPESnumeric_from_long(lng, nres);
304 if (result == 0)
305 result = PGTYPESnumeric_to_decimal(nres, np);
306
307 PGTYPESnumeric_free(nres);
308 return result;
309}
310
311int
312 decdiv(decimal *n1, decimal *n2, decimal *result)
313{
314 int i;
315
316 errno = 0;
317 i = deccall3(n1, n2, result, PGTYPESnumeric_div);
318
319 if (i != 0)
320 switch (errno)
321 {
322 case PGTYPES_NUM_DIVIDE_ZERO:
323 return ECPG_INFORMIX_DIVIDE_ZERO;
324 break;
325 case PGTYPES_NUM_OVERFLOW:
326 return ECPG_INFORMIX_NUM_OVERFLOW;
327 break;
328 default:
329 return ECPG_INFORMIX_NUM_UNDERFLOW;
330 break;
331 }
332
333 return 0;
334}
335
336int
337 decmul(decimal *n1, decimal *n2, decimal *result)
338{
339 int i;
340
341 errno = 0;
342 i = deccall3(n1, n2, result, PGTYPESnumeric_mul);
343
344 if (i != 0)
345 switch (errno)
346 {
347 case PGTYPES_NUM_OVERFLOW:
348 return ECPG_INFORMIX_NUM_OVERFLOW;
349 break;
350 default:
351 return ECPG_INFORMIX_NUM_UNDERFLOW;
352 break;
353 }
354
355 return 0;
356}
357
358int
359 decsub(decimal *n1, decimal *n2, decimal *result)
360{
361 int i;
362
363 errno = 0;
364 i = deccall3(n1, n2, result, PGTYPESnumeric_sub);
365
366 if (i != 0)
367 switch (errno)
368 {
369 case PGTYPES_NUM_OVERFLOW:
370 return ECPG_INFORMIX_NUM_OVERFLOW;
371 break;
372 default:
373 return ECPG_INFORMIX_NUM_UNDERFLOW;
374 break;
375 }
376
377 return 0;
378}
379
380int
381 dectoasc(decimal *np, char *cp, int len, int right)
382{
383 char *str;
384 numeric *nres;
385
386 rsetnull(CSTRINGTYPE, (char *) cp);
387 if (risnull(CDECIMALTYPE, (char *) np))
388 return 0;
389
390 nres = PGTYPESnumeric_new();
391 if (nres == NULL)
392 return ECPG_INFORMIX_OUT_OF_MEMORY;
393
394 if (PGTYPESnumeric_from_decimal(np, nres) != 0)
395 {
396 PGTYPESnumeric_free(nres);
397 return ECPG_INFORMIX_OUT_OF_MEMORY;
398 }
399
400 if (right >= 0)
401 str = PGTYPESnumeric_to_asc(nres, right);
402 else
403 str = PGTYPESnumeric_to_asc(nres, nres->dscale);
404
405 PGTYPESnumeric_free(nres);
406 if (!str)
407 return -1;
408
409 /*
410 * TODO: have to take care of len here and create exponential notation if
411 * necessary
412 */
413 if ((int) (strlen(str) + 1) > len)
414 {
415 if (len > 1)
416 {
417 cp[0] = '*';
418 cp[1] = '0円';
419 }
420 free(str);
421 return -1;
422 }
423 else
424 {
425 strcpy(cp, str);
426 free(str);
427 return 0;
428 }
429}
430
431int
432 dectodbl(decimal *np, double *dblp)
433{
434 int i;
435 numeric *nres = PGTYPESnumeric_new();
436
437 if (nres == NULL)
438 return ECPG_INFORMIX_OUT_OF_MEMORY;
439
440 if (PGTYPESnumeric_from_decimal(np, nres) != 0)
441 {
442 PGTYPESnumeric_free(nres);
443 return ECPG_INFORMIX_OUT_OF_MEMORY;
444 }
445
446 i = PGTYPESnumeric_to_double(nres, dblp);
447 PGTYPESnumeric_free(nres);
448
449 return i;
450}
451
452int
453 dectoint(decimal *np, int *ip)
454{
455 int ret;
456 numeric *nres = PGTYPESnumeric_new();
457 int errnum;
458
459 if (nres == NULL)
460 return ECPG_INFORMIX_OUT_OF_MEMORY;
461
462 if (PGTYPESnumeric_from_decimal(np, nres) != 0)
463 {
464 PGTYPESnumeric_free(nres);
465 return ECPG_INFORMIX_OUT_OF_MEMORY;
466 }
467
468 errno = 0;
469 ret = PGTYPESnumeric_to_int(nres, ip);
470 errnum = errno;
471 PGTYPESnumeric_free(nres);
472
473 if (ret == -1 && errnum == PGTYPES_NUM_OVERFLOW)
474 ret = ECPG_INFORMIX_NUM_OVERFLOW;
475
476 return ret;
477}
478
479int
480 dectolong(decimal *np, long *lngp)
481{
482 int ret;
483 numeric *nres = PGTYPESnumeric_new();
484 int errnum;
485
486 if (nres == NULL)
487 return ECPG_INFORMIX_OUT_OF_MEMORY;
488
489 if (PGTYPESnumeric_from_decimal(np, nres) != 0)
490 {
491 PGTYPESnumeric_free(nres);
492 return ECPG_INFORMIX_OUT_OF_MEMORY;
493 }
494
495 errno = 0;
496 ret = PGTYPESnumeric_to_long(nres, lngp);
497 errnum = errno;
498 PGTYPESnumeric_free(nres);
499
500 if (ret == -1 && errnum == PGTYPES_NUM_OVERFLOW)
501 ret = ECPG_INFORMIX_NUM_OVERFLOW;
502
503 return ret;
504}
505
506/* Now the date functions */
507int
508 rdatestr(date d, char *str)
509{
510 char *tmp = PGTYPESdate_to_asc(d);
511
512 if (!tmp)
513 return ECPG_INFORMIX_DATE_CONVERT;
514
515 /* move to user allocated buffer */
516 strcpy(str, tmp);
517 free(tmp);
518
519 return 0;
520}
521
522/*
523*
524* the input for this function is mmddyyyy and any non-numeric
525* character can be used as a separator
526*
527*/
528int
529 rstrdate(const char *str, date * d)
530{
531 return rdefmtdate(d, "mm/dd/yyyy", str);
532}
533
534void
535 rtoday(date * d)
536{
537 PGTYPESdate_today(d);
538}
539
540int
541 rjulmdy(date d, short *mdy)
542{
543 int mdy_int[3];
544
545 PGTYPESdate_julmdy(d, mdy_int);
546 mdy[0] = (short) mdy_int[0];
547 mdy[1] = (short) mdy_int[1];
548 mdy[2] = (short) mdy_int[2];
549 return 0;
550}
551
552int
553 rdefmtdate(date * d, const char *fmt, const char *str)
554{
555 /* TODO: take care of DBCENTURY environment variable */
556 /* PGSQL functions allow all centuries */
557
558 errno = 0;
559 if (PGTYPESdate_defmt_asc(d, fmt, str) == 0)
560 return 0;
561
562 switch (errno)
563 {
564 case PGTYPES_DATE_ERR_ENOSHORTDATE:
565 return ECPG_INFORMIX_ENOSHORTDATE;
566 case PGTYPES_DATE_ERR_EARGS:
567 case PGTYPES_DATE_ERR_ENOTDMY:
568 return ECPG_INFORMIX_ENOTDMY;
569 case PGTYPES_DATE_BAD_DAY:
570 return ECPG_INFORMIX_BAD_DAY;
571 case PGTYPES_DATE_BAD_MONTH:
572 return ECPG_INFORMIX_BAD_MONTH;
573 default:
574 return ECPG_INFORMIX_BAD_YEAR;
575 }
576}
577
578int
579 rfmtdate(date d, const char *fmt, char *str)
580{
581 errno = 0;
582 if (PGTYPESdate_fmt_asc(d, fmt, str) == 0)
583 return 0;
584
585 if (errno == ENOMEM)
586 return ECPG_INFORMIX_OUT_OF_MEMORY;
587
588 return ECPG_INFORMIX_DATE_CONVERT;
589}
590
591int
592 rmdyjul(short *mdy, date * d)
593{
594 int mdy_int[3];
595
596 mdy_int[0] = mdy[0];
597 mdy_int[1] = mdy[1];
598 mdy_int[2] = mdy[2];
599 PGTYPESdate_mdyjul(mdy_int, d);
600 return 0;
601}
602
603int
604 rdayofweek(date d)
605{
606 return PGTYPESdate_dayofweek(d);
607}
608
609/* And the datetime stuff */
610
611void
612 dtcurrent(timestamp * ts)
613{
614 PGTYPEStimestamp_current(ts);
615}
616
617int
618 dtcvasc(char *str, timestamp * ts)
619{
620 timestamp ts_tmp;
621 int i;
622 char **endptr = &str;
623
624 errno = 0;
625 ts_tmp = PGTYPEStimestamp_from_asc(str, endptr);
626 i = errno;
627 if (i)
628 /* TODO: rewrite to Informix error codes */
629 return i;
630 if (**endptr)
631 {
632 /* extra characters exist at the end */
633 return ECPG_INFORMIX_EXTRA_CHARS;
634 }
635 /* TODO: other Informix error codes missing */
636
637 /* everything went fine */
638 *ts = ts_tmp;
639
640 return 0;
641}
642
643int
644 dtcvfmtasc(char *inbuf, char *fmtstr, timestamp * dtvalue)
645{
646 return PGTYPEStimestamp_defmt_asc(inbuf, fmtstr, dtvalue);
647}
648
649int
650 dtsub(timestamp * ts1, timestamp * ts2, interval * iv)
651{
652 return PGTYPEStimestamp_sub(ts1, ts2, iv);
653}
654
655int
656 dttoasc(timestamp * ts, char *output)
657{
658 char *asctime = PGTYPEStimestamp_to_asc(*ts);
659
660 strcpy(output, asctime);
661 free(asctime);
662 return 0;
663}
664
665int
666 dttofmtasc(timestamp * ts, char *output, int str_len, char *fmtstr)
667{
668 return PGTYPEStimestamp_fmt_asc(ts, output, str_len, fmtstr);
669}
670
671int
672 intoasc(interval * i, char *str)
673{
674 char *tmp;
675
676 errno = 0;
677 tmp = PGTYPESinterval_to_asc(i);
678
679 if (!tmp)
680 return -errno;
681
682 strcpy(str, tmp);
683 free(tmp);
684 return 0;
685}
686
687static struct
688{
689 long val;
690 int maxdigits;
691 int digits;
692 int remaining;
693 char sign;
694 char *val_string;
695 } value;
696
701static int
702 initValue(long lng_val)
703{
704 int i,
705 j;
706 long l,
707 dig;
708
709 /* set some obvious things */
710 value.val = lng_val >= 0 ? lng_val : lng_val * (-1);
711 value.sign = lng_val >= 0 ? '+' : '-';
712 value.maxdigits = log10(2) * (8 * sizeof(long) - 1);
713
714 /* determine the number of digits */
715 i = 0;
716 l = 1;
717 do
718 {
719 i++;
720 l *= 10;
721 }
722 while ((l - 1) < value.val && l <= LONG_MAX / 10);
723
724 if (l <= LONG_MAX / 10)
725 {
726 value.digits = i;
727 l /= 10;
728 }
729 else
730 value.digits = i + 1;
731
732 value.remaining = value.digits;
733
734 /* convert the long to string */
735 if ((value.val_string = (char *) malloc(value.digits + 1)) == NULL)
736 return -1;
737 dig = value.val;
738 for (i = value.digits, j = 0; i > 0; i--, j++)
739 {
740 value.val_string[j] = dig / l + '0';
741 dig = dig % l;
742 l /= 10;
743 }
744 value.val_string[value.digits] = '0円';
745 return 0;
746}
747
748/* return the position of the right-most dot in some string */
749static int
750 getRightMostDot(const char *str)
751{
752 size_t len = strlen(str);
753 int i,
754 j;
755
756 j = 0;
757 for (i = len - 1; i >= 0; i--)
758 {
759 if (str[i] == '.')
760 return len - j - 1;
761 j++;
762 }
763 return -1;
764}
765
766/* And finally some misc functions */
767int
768 rfmtlong(long lng_val, const char *fmt, char *outbuf)
769{
770 size_t fmt_len = strlen(fmt);
771 size_t temp_len;
772 int i,
773 j, /* position in temp */
774 k,
775 dotpos;
776 int leftalign = 0,
777 blank = 0,
778 sign = 0,
779 entitydone = 0,
780 signdone = 0,
781 brackets_ok = 0;
782 char *temp;
783 char tmp[2] = " ";
784 char lastfmt = ' ',
785 fmtchar = ' ';
786
787 temp = (char *) malloc(fmt_len + 1);
788 if (!temp)
789 {
790 errno = ENOMEM;
791 return -1;
792 }
793
794 /* put all info about the long in a struct */
795 if (initValue(lng_val) == -1)
796 {
797 free(temp);
798 errno = ENOMEM;
799 return -1;
800 }
801
802 /* '<' is the only format, where we have to align left */
803 if (strchr(fmt, (int) '<'))
804 leftalign = 1;
805
806 /* '(' requires ')' */
807 if (strchr(fmt, (int) '(') && strchr(fmt, (int) ')'))
808 brackets_ok = 1;
809
810 /*
811 * get position of the right-most dot in the format-string and fill the
812 * temp-string with '0's up to there.
813 */
814 dotpos = getRightMostDot(fmt);
815
816 /* start to parse the format-string */
817 temp[0] = '0円';
818 k = value.digits - 1; /* position in the value_string */
819 for (i = fmt_len - 1, j = 0; i >= 0; i--, j++)
820 {
821 /* qualify, where we are in the value_string */
822 if (k < 0)
823 {
824 blank = 1;
825 if (k == -1)
826 sign = 1;
827 if (leftalign)
828 {
829 /* can't use strncat(,,0) here, Solaris would freak out */
830 if (sign)
831 if (signdone)
832 {
833 temp[j] = '0円';
834 break;
835 }
836 }
837 }
838 /* if we're right side of the right-most dot, print '0' */
839 if (dotpos >= 0 && dotpos <= i)
840 {
841 if (dotpos < i)
842 {
843 if (fmt[i] == ')')
844 tmp[0] = value.sign == '-' ? ')' : ' ';
845 else
846 tmp[0] = '0';
847 }
848 else
849 tmp[0] = '.';
850 strcat(temp, tmp);
851 continue;
852 }
853 /* the ',' needs special attention, if it is in the blank area */
854 if (blank && fmt[i] == ',')
855 fmtchar = lastfmt;
856 else
857 fmtchar = fmt[i];
858 /* waiting for the sign */
859 if (k < 0 && leftalign && sign && !signdone && fmtchar != '+' && fmtchar != '-')
860 continue;
861 /* analyse this format-char */
862 switch (fmtchar)
863 {
864 case ',':
865 tmp[0] = ',';
866 k++;
867 break;
868 case '*':
869 if (blank)
870 tmp[0] = '*';
871 else
872 tmp[0] = value.val_string[k];
873 break;
874 case '&':
875 if (blank)
876 tmp[0] = '0';
877 else
878 tmp[0] = value.val_string[k];
879 break;
880 case '#':
881 if (blank)
882 tmp[0] = ' ';
883 else
884 tmp[0] = value.val_string[k];
885 break;
886 case '-':
887 if (sign && value.sign == '-' && !signdone)
888 {
889 tmp[0] = '-';
890 signdone = 1;
891 }
892 else if (blank)
893 tmp[0] = ' ';
894 else
895 tmp[0] = value.val_string[k];
896 break;
897 case '+':
898 if (sign && !signdone)
899 {
900 tmp[0] = value.sign;
901 signdone = 1;
902 }
903 else if (blank)
904 tmp[0] = ' ';
905 else
906 tmp[0] = value.val_string[k];
907 break;
908 case '(':
909 if (sign && brackets_ok && value.sign == '-')
910 tmp[0] = '(';
911 else if (blank)
912 tmp[0] = ' ';
913 else
914 tmp[0] = value.val_string[k];
915 break;
916 case ')':
917 if (brackets_ok && value.sign == '-')
918 tmp[0] = ')';
919 else
920 tmp[0] = ' ';
921 break;
922 case '$':
923 if (blank && !entitydone)
924 {
925 tmp[0] = '$';
926 entitydone = 1;
927 }
928 else if (blank)
929 tmp[0] = ' ';
930 else
931 tmp[0] = value.val_string[k];
932 break;
933 case '<':
934 tmp[0] = value.val_string[k];
935 break;
936 default:
937 tmp[0] = fmt[i];
938 }
939 strcat(temp, tmp);
940 lastfmt = fmt[i];
941 k--;
942 }
943 /* safety-net */
944 temp[fmt_len] = '0円';
945
946 /* reverse the temp-string and put it into the outbuf */
947 temp_len = strlen(temp);
948 outbuf[0] = '0円';
949 for (i = temp_len - 1; i >= 0; i--)
950 {
951 tmp[0] = temp[i];
952 strcat(outbuf, tmp);
953 }
954 outbuf[temp_len] = '0円';
955
956 /* cleaning up */
957 free(temp);
958 free(value.val_string);
959
960 return 0;
961}
962
963void
964 rupshift(char *str)
965{
966 for (; *str != '0円'; str++)
967 if (islower((unsigned char) *str))
968 *str = toupper((unsigned char) *str);
969}
970
971int
972 byleng(char *str, int len)
973{
974 for (len--; str[len] && str[len] == ' '; len--);
975 return (len + 1);
976}
977
978void
979 ldchar(char *src, int len, char *dest)
980{
981 int dlen = byleng(src, len);
982
983 memmove(dest, src, dlen);
984 dest[dlen] = '0円';
985}
986
987int
988 rgetmsg(int msgnum, char *s, int maxsize)
989{
990 (void) msgnum; /* keep the compiler quiet */
991 (void) s; /* keep the compiler quiet */
992 (void) maxsize; /* keep the compiler quiet */
993 return 0;
994}
995
996int
997 rtypalign(int offset, int type)
998{
999 (void) offset; /* keep the compiler quiet */
1000 (void) type; /* keep the compiler quiet */
1001 return 0;
1002}
1003
1004int
1005 rtypmsize(int type, int len)
1006{
1007 (void) type; /* keep the compiler quiet */
1008 (void) len; /* keep the compiler quiet */
1009 return 0;
1010}
1011
1012int
1013 rtypwidth(int sqltype, int sqllen)
1014{
1015 (void) sqltype; /* keep the compiler quiet */
1016 (void) sqllen; /* keep the compiler quiet */
1017 return 0;
1018}
1019
1020void
1021 ECPG_informix_set_var(int number, void *pointer, int lineno)
1022{
1023 ECPGset_var(number, pointer, lineno);
1024}
1025
1026void *
1027 ECPG_informix_get_var(int number)
1028{
1029 return ECPGget_var(number);
1030}
1031
1032void
1033 ECPG_informix_reset_sqlca(void)
1034{
1035 struct sqlca_t *sqlca = ECPGget_sqlca();
1036
1037 if (sqlca == NULL)
1038 return;
1039
1040 memcpy(sqlca, &sqlca_init, sizeof(struct sqlca_t));
1041}
1042
1043int
1044 rsetnull(int t, char *ptr)
1045{
1046 ECPGset_noind_null(t, ptr);
1047 return 0;
1048}
1049
1050int
1051 risnull(int t, const char *ptr)
1052{
1053 return ECPGis_noind_null(t, ptr);
1054}
#define ECPG_INFORMIX_ENOTDMY
Definition: ecpg_informix.h:25
#define ECPG_INFORMIX_BAD_DAY
Definition: ecpg_informix.h:21
#define ECPG_INFORMIX_NUM_OVERFLOW
Definition: ecpg_informix.h:16
#define ECPG_INFORMIX_BAD_NUMERIC
Definition: ecpg_informix.h:26
#define ECPG_INFORMIX_BAD_MONTH
Definition: ecpg_informix.h:20
#define ECPG_INFORMIX_ENOSHORTDATE
Definition: ecpg_informix.h:22
#define ECPG_INFORMIX_OUT_OF_MEMORY
Definition: ecpg_informix.h:24
#define ECPG_INFORMIX_EXTRA_CHARS
Definition: ecpg_informix.h:29
#define ECPG_INFORMIX_NUM_UNDERFLOW
Definition: ecpg_informix.h:17
#define ECPG_INFORMIX_BAD_EXPONENT
Definition: ecpg_informix.h:27
#define ECPG_INFORMIX_DATE_CONVERT
Definition: ecpg_informix.h:23
#define ECPG_INFORMIX_BAD_YEAR
Definition: ecpg_informix.h:19
#define ECPG_INFORMIX_DIVIDE_ZERO
Definition: ecpg_informix.h:18
const char * str
#define free(a)
Definition: header.h:65
#define malloc(a)
Definition: header.h:50
static const FormData_pg_attribute a1
Definition: heap.c:144
static const FormData_pg_attribute a2
Definition: heap.c:157
FILE * output
static struct @169 value
int deccvasc(const char *cp, int len, decimal *np)
Definition: informix.c:198
int rstrdate(const char *str, date *d)
Definition: informix.c:529
static int getRightMostDot(const char *str)
Definition: informix.c:750
static int initValue(long lng_val)
Definition: informix.c:702
int dttofmtasc(timestamp *ts, char *output, int str_len, char *fmtstr)
Definition: informix.c:666
int decadd(decimal *arg1, decimal *arg2, decimal *sum)
Definition: informix.c:151
int rtypwidth(int sqltype, int sqllen)
Definition: informix.c:1013
void ldchar(char *src, int len, char *dest)
Definition: informix.c:979
int rdatestr(date d, char *str)
Definition: informix.c:508
static int deccall2(decimal *arg1, decimal *arg2, int(*ptr)(numeric *, numeric *))
Definition: informix.c:48
int dtsub(timestamp *ts1, timestamp *ts2, interval *iv)
Definition: informix.c:650
int rfmtlong(long lng_val, const char *fmt, char *outbuf)
Definition: informix.c:768
int deccvlong(long lng, decimal *np)
Definition: informix.c:290
int rtypalign(int offset, int type)
Definition: informix.c:997
static struct sqlca_t sqlca_init
Definition: informix.c:21
int deccvint(int in, decimal *np)
Definition: informix.c:268
char * val_string
Definition: informix.c:694
long val
Definition: informix.c:689
int rjulmdy(date d, short *mdy)
Definition: informix.c:541
int dectoasc(decimal *np, char *cp, int len, int right)
Definition: informix.c:381
int dectoint(decimal *np, int *ip)
Definition: informix.c:453
void rupshift(char *str)
Definition: informix.c:964
static char * ecpg_strndup(const char *str, size_t len)
Definition: informix.c:179
int maxdigits
Definition: informix.c:690
int dtcvfmtasc(char *inbuf, char *fmtstr, timestamp *dtvalue)
Definition: informix.c:644
void * ECPG_informix_get_var(int number)
Definition: informix.c:1027
int dtcvasc(char *str, timestamp *ts)
Definition: informix.c:618
int decmul(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:337
static int deccall3(decimal *arg1, decimal *arg2, decimal *result, int(*ptr)(numeric *, numeric *, numeric *))
Definition: informix.c:86
int remaining
Definition: informix.c:692
int risnull(int t, const char *ptr)
Definition: informix.c:1051
int byleng(char *str, int len)
Definition: informix.c:972
void ECPG_informix_reset_sqlca(void)
Definition: informix.c:1033
int rmdyjul(short *mdy, date *d)
Definition: informix.c:592
void ECPG_informix_set_var(int number, void *pointer, int lineno)
Definition: informix.c:1021
int rdayofweek(date d)
Definition: informix.c:604
int rfmtdate(date d, const char *fmt, char *str)
Definition: informix.c:579
int decsub(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:359
int dectolong(decimal *np, long *lngp)
Definition: informix.c:480
int deccvdbl(double dbl, decimal *np)
Definition: informix.c:246
int rtypmsize(int type, int len)
Definition: informix.c:1005
int deccmp(decimal *arg1, decimal *arg2)
Definition: informix.c:167
int decdiv(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:312
int dttoasc(timestamp *ts, char *output)
Definition: informix.c:656
int rsetnull(int t, char *ptr)
Definition: informix.c:1044
void rtoday(date *d)
Definition: informix.c:535
int rgetmsg(int msgnum, char *s, int maxsize)
Definition: informix.c:988
void dtcurrent(timestamp *ts)
Definition: informix.c:612
int rdefmtdate(date *d, const char *fmt, const char *str)
Definition: informix.c:553
int dectodbl(decimal *np, double *dblp)
Definition: informix.c:432
void deccopy(decimal *src, decimal *target)
Definition: informix.c:173
int intoasc(interval *i, char *str)
Definition: informix.c:672
char sign
Definition: informix.c:693
int digits
Definition: informix.c:691
void ECPGset_var(int number, void *pointer, int lineno)
Definition: misc.c:538
struct sqlca_t * ECPGget_sqlca(void)
Definition: misc.c:108
void ECPGset_noind_null(enum ECPGttype type, void *ptr)
Definition: misc.c:292
bool ECPGis_noind_null(enum ECPGttype type, const void *ptr)
Definition: misc.c:361
void * ECPGget_var(int number)
Definition: misc.c:593
j
int j
Definition: isn.c:78
i
int i
Definition: isn.c:77
dest
const void size_t len
int PGTYPESdate_dayofweek(date dDate)
Definition: datetime.c:138
char * PGTYPESdate_to_asc(date dDate)
Definition: datetime.c:101
void PGTYPESdate_today(date *d)
Definition: datetime.c:148
long date
Definition: pgtypes_date.h:9
int PGTYPESdate_fmt_asc(date dDate, const char *fmtstring, char *outbuf)
Definition: datetime.c:167
int PGTYPESdate_defmt_asc(date *d, const char *fmt, const char *str)
Definition: datetime.c:329
void PGTYPESdate_julmdy(date jd, int *mdy)
Definition: datetime.c:115
void PGTYPESdate_mdyjul(int *mdy, date *jdate)
Definition: datetime.c:128
#define PGTYPES_DATE_ERR_ENOTDMY
Definition: pgtypes_error.h:11
#define PGTYPES_NUM_BAD_NUMERIC
Definition: pgtypes_error.h:4
#define PGTYPES_DATE_BAD_DAY
Definition: pgtypes_error.h:12
#define PGTYPES_NUM_OVERFLOW
Definition: pgtypes_error.h:3
#define PGTYPES_DATE_ERR_ENOSHORTDATE
Definition: pgtypes_error.h:10
#define PGTYPES_NUM_UNDERFLOW
Definition: pgtypes_error.h:6
#define PGTYPES_NUM_DIVIDE_ZERO
Definition: pgtypes_error.h:5
#define PGTYPES_DATE_ERR_EARGS
Definition: pgtypes_error.h:9
#define PGTYPES_DATE_BAD_MONTH
Definition: pgtypes_error.h:13
char * PGTYPESinterval_to_asc(interval *span)
Definition: interval.c:1062
int PGTYPESnumeric_from_double(double d, numeric *dst)
Definition: numeric.c:1411
int PGTYPESnumeric_from_decimal(decimal *src, numeric *dst)
Definition: numeric.c:1570
numeric * PGTYPESnumeric_new(void)
Definition: numeric.c:42
int PGTYPESnumeric_to_decimal(numeric *src, decimal *dst)
Definition: numeric.c:1547
char * PGTYPESnumeric_to_asc(numeric *num, int dscale)
Definition: numeric.c:343
int PGTYPESnumeric_mul(numeric *var1, numeric *var2, numeric *result)
Definition: numeric.c:896
int PGTYPESnumeric_to_long(numeric *nv, long *lp)
Definition: numeric.c:1518
int PGTYPESnumeric_to_double(numeric *nv, double *dp)
Definition: numeric.c:1483
int PGTYPESnumeric_from_long(signed long int long_val, numeric *var)
Definition: numeric.c:1318
int PGTYPESnumeric_to_int(numeric *nv, int *ip)
Definition: numeric.c:1494
int PGTYPESnumeric_from_int(signed int int_val, numeric *var)
Definition: numeric.c:1309
int PGTYPESnumeric_sub(numeric *var1, numeric *var2, numeric *result)
Definition: numeric.c:765
void PGTYPESnumeric_free(numeric *var)
Definition: numeric.c:385
int PGTYPESnumeric_cmp(numeric *var1, numeric *var2)
Definition: numeric.c:1281
int PGTYPESnumeric_div(numeric *var1, numeric *var2, numeric *result)
Definition: numeric.c:1053
int PGTYPESnumeric_add(numeric *var1, numeric *var2, numeric *result)
Definition: numeric.c:637
numeric * PGTYPESnumeric_from_asc(char *str, char **endptr)
Definition: numeric.c:321
timestamp PGTYPEStimestamp_from_asc(char *str, char **endptr)
Definition: timestamp.c:202
int PGTYPEStimestamp_sub(timestamp *ts1, timestamp *ts2, interval *iv)
Definition: timestamp.c:793
int64 timestamp
char * PGTYPEStimestamp_to_asc(timestamp tstamp)
Definition: timestamp.c:268
void PGTYPEStimestamp_current(timestamp *ts)
Definition: timestamp.c:290
int PGTYPEStimestamp_fmt_asc(timestamp *ts, char *output, int str_len, const char *fmtstr)
Definition: timestamp.c:778
int PGTYPEStimestamp_defmt_asc(const char *str, const char *fmt, timestamp *d)
Definition: timestamp.c:806
static void fmtchar(int value, int leftjust, int minlen, PrintfTarget *target)
Definition: snprintf.c:1154
static void fmtstr(const char *value, int leftjust, int minlen, int maxwidth, int pointflag, PrintfTarget *target)
Definition: snprintf.c:1000
#define sqlca
Definition: sqlca.h:59
#define CDECIMALTYPE
Definition: sqltypes.h:12
#define CSTRINGTYPE
Definition: sqltypes.h:14
#define CDOUBLETYPE
Definition: sqltypes.h:11
#define CLONGTYPE
Definition: sqltypes.h:9
#define CINTTYPE
Definition: sqltypes.h:8
int dscale
Definition: sqlca.h:20
const char * type

AltStyle によって変換されたページ (->オリジナル) /