PostgreSQL Source Code git master
All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Pages
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
21static 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
48deccall2(decimal *arg1, decimal *arg2, int (*ptr) (numeric *, numeric *))
49{
50 numeric *a1,
51 *a2;
52 int i;
53
54 if ((a1 = PGTYPESnumeric_new()) == NULL)
56
57 if ((a2 = PGTYPESnumeric_new()) == NULL)
58 {
61 }
62
63 if (PGTYPESnumeric_from_decimal(arg1, a1) != 0)
64 {
68 }
69
70 if (PGTYPESnumeric_from_decimal(arg2, a2) != 0)
71 {
75 }
76
77 i = (*ptr) (a1, a2);
78
81
82 return i;
83}
84
85static int
86deccall3(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)
102
103 if ((a2 = PGTYPESnumeric_new()) == NULL)
104 {
107 }
108
109 if ((nres = PGTYPESnumeric_new()) == NULL)
110 {
114 }
115
116 if (PGTYPESnumeric_from_decimal(arg1, a1) != 0)
117 {
122 }
123
124 if (PGTYPESnumeric_from_decimal(arg2, a2) != 0)
125 {
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
145
146 return i;
147}
148
149/* we start with the numeric functions */
150int
151decadd(decimal *arg1, decimal *arg2, decimal *sum)
152{
153 errno = 0;
154 deccall3(arg1, arg2, sum, PGTYPESnumeric_add);
155
156 if (errno == PGTYPES_NUM_OVERFLOW)
158 else if (errno == PGTYPES_NUM_UNDERFLOW)
160 else if (errno != 0)
161 return -1;
162 else
163 return 0;
164}
165
166int
167deccmp(decimal *arg1, decimal *arg2)
168{
169 return deccall2(arg1, arg2, PGTYPESnumeric_cmp);
170}
171
172void
173deccopy(decimal *src, decimal *target)
174{
175 memcpy(target, src, sizeof(decimal));
176}
177
178static char *
179ecpg_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
198deccvasc(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)
212 else
213 {
214 errno = 0;
215 result = PGTYPESnumeric_from_asc(str, NULL);
216 if (!result)
217 {
218 switch (errno)
219 {
222 break;
225 break;
226 default:
228 break;
229 }
230 }
231 else
232 {
233 int i = PGTYPESnumeric_to_decimal(result, np);
234
235 PGTYPESnumeric_free(result);
236 if (i != 0)
238 }
239 }
240
241 free(str);
242 return ret;
243}
244
245int
246deccvdbl(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)
258
259 result = PGTYPESnumeric_from_double(dbl, nres);
260 if (result == 0)
261 result = PGTYPESnumeric_to_decimal(nres, np);
262
264 return result;
265}
266
267int
268deccvint(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)
280
281 result = PGTYPESnumeric_from_int(in, nres);
282 if (result == 0)
283 result = PGTYPESnumeric_to_decimal(nres, np);
284
286 return result;
287}
288
289int
290deccvlong(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)
302
303 result = PGTYPESnumeric_from_long(lng, nres);
304 if (result == 0)
305 result = PGTYPESnumeric_to_decimal(nres, np);
306
308 return result;
309}
310
311int
312decdiv(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 {
324 break;
327 break;
328 default:
330 break;
331 }
332
333 return 0;
334}
335
336int
337decmul(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 {
349 break;
350 default:
352 break;
353 }
354
355 return 0;
356}
357
358int
359decsub(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 {
371 break;
372 default:
374 break;
375 }
376
377 return 0;
378}
379
380int
381dectoasc(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)
393
394 if (PGTYPESnumeric_from_decimal(np, nres) != 0)
395 {
398 }
399
400 if (right >= 0)
401 str = PGTYPESnumeric_to_asc(nres, right);
402 else
403 str = PGTYPESnumeric_to_asc(nres, nres->dscale);
404
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
432dectodbl(decimal *np, double *dblp)
433{
434 int i;
435 numeric *nres = PGTYPESnumeric_new();
436
437 if (nres == NULL)
439
440 if (PGTYPESnumeric_from_decimal(np, nres) != 0)
441 {
444 }
445
446 i = PGTYPESnumeric_to_double(nres, dblp);
448
449 return i;
450}
451
452int
453dectoint(decimal *np, int *ip)
454{
455 int ret;
456 numeric *nres = PGTYPESnumeric_new();
457 int errnum;
458
459 if (nres == NULL)
461
462 if (PGTYPESnumeric_from_decimal(np, nres) != 0)
463 {
466 }
467
468 errno = 0;
469 ret = PGTYPESnumeric_to_int(nres, ip);
470 errnum = errno;
472
473 if (ret == -1 && errnum == PGTYPES_NUM_OVERFLOW)
475
476 return ret;
477}
478
479int
480dectolong(decimal *np, long *lngp)
481{
482 int ret;
483 numeric *nres = PGTYPESnumeric_new();
484 int errnum;
485
486 if (nres == NULL)
488
489 if (PGTYPESnumeric_from_decimal(np, nres) != 0)
490 {
493 }
494
495 errno = 0;
496 ret = PGTYPESnumeric_to_long(nres, lngp);
497 errnum = errno;
499
500 if (ret == -1 && errnum == PGTYPES_NUM_OVERFLOW)
502
503 return ret;
504}
505
506/* Now the date functions */
507int
509{
510 char *tmp = PGTYPESdate_to_asc(d);
511
512 if (!tmp)
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
529rstrdate(const char *str, date * d)
530{
531 return rdefmtdate(d, "mm/dd/yyyy", str);
532}
533
534void
536{
538}
539
540int
541rjulmdy(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
553rdefmtdate(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 {
573 default:
575 }
576}
577
578int
579rfmtdate(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)
587
589}
590
591int
592rmdyjul(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
605{
606 return PGTYPESdate_dayofweek(d);
607}
608
609/* And the datetime stuff */
610
611void
613{
615}
616
617int
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 */
634 }
635 /* TODO: other Informix error codes missing */
636
637 /* everything went fine */
638 *ts = ts_tmp;
639
640 return 0;
641}
642
643int
644dtcvfmtasc(char *inbuf, char *fmtstr, timestamp * dtvalue)
645{
646 return PGTYPEStimestamp_defmt_asc(inbuf, fmtstr, dtvalue);
647}
648
649int
651{
652 return PGTYPEStimestamp_sub(ts1, ts2, iv);
653}
654
655int
657{
658 char *asctime = PGTYPEStimestamp_to_asc(*ts);
659
660 strcpy(output, asctime);
661 free(asctime);
662 return 0;
663}
664
665int
666dttofmtasc(timestamp * ts, char *output, int str_len, char *fmtstr)
667{
668 return PGTYPEStimestamp_fmt_asc(ts, output, str_len, fmtstr);
669}
670
671int
673{
674 char *tmp;
675
676 errno = 0;
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;
693 char sign;
696
701static int
702initValue(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
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
768rfmtlong(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 /* get position of the right-most dot in the format-string */
811 /* and fill the temp-string wit '0's up to there. */
812 dotpos = getRightMostDot(fmt);
813
814 /* start to parse the format-string */
815 temp[0] = '\0';
816 k = value.digits - 1; /* position in the value_string */
817 for (i = fmt_len - 1, j = 0; i >= 0; i--, j++)
818 {
819 /* qualify, where we are in the value_string */
820 if (k < 0)
821 {
822 blank = 1;
823 if (k == -1)
824 sign = 1;
825 if (leftalign)
826 {
827 /* can't use strncat(,,0) here, Solaris would freak out */
828 if (sign)
829 if (signdone)
830 {
831 temp[j] = '\0';
832 break;
833 }
834 }
835 }
836 /* if we're right side of the right-most dot, print '0' */
837 if (dotpos >= 0 && dotpos <= i)
838 {
839 if (dotpos < i)
840 {
841 if (fmt[i] == ')')
842 tmp[0] = value.sign == '-' ? ')' : ' ';
843 else
844 tmp[0] = '0';
845 }
846 else
847 tmp[0] = '.';
848 strcat(temp, tmp);
849 continue;
850 }
851 /* the ',' needs special attention, if it is in the blank area */
852 if (blank && fmt[i] == ',')
853 fmtchar = lastfmt;
854 else
855 fmtchar = fmt[i];
856 /* waiting for the sign */
857 if (k < 0 && leftalign && sign && !signdone && fmtchar != '+' && fmtchar != '-')
858 continue;
859 /* analyse this format-char */
860 switch (fmtchar)
861 {
862 case ',':
863 tmp[0] = ',';
864 k++;
865 break;
866 case '*':
867 if (blank)
868 tmp[0] = '*';
869 else
870 tmp[0] = value.val_string[k];
871 break;
872 case '&':
873 if (blank)
874 tmp[0] = '0';
875 else
876 tmp[0] = value.val_string[k];
877 break;
878 case '#':
879 if (blank)
880 tmp[0] = ' ';
881 else
882 tmp[0] = value.val_string[k];
883 break;
884 case '-':
885 if (sign && value.sign == '-' && !signdone)
886 {
887 tmp[0] = '-';
888 signdone = 1;
889 }
890 else if (blank)
891 tmp[0] = ' ';
892 else
893 tmp[0] = value.val_string[k];
894 break;
895 case '+':
896 if (sign && !signdone)
897 {
898 tmp[0] = value.sign;
899 signdone = 1;
900 }
901 else if (blank)
902 tmp[0] = ' ';
903 else
904 tmp[0] = value.val_string[k];
905 break;
906 case '(':
907 if (sign && brackets_ok && value.sign == '-')
908 tmp[0] = '(';
909 else if (blank)
910 tmp[0] = ' ';
911 else
912 tmp[0] = value.val_string[k];
913 break;
914 case ')':
915 if (brackets_ok && value.sign == '-')
916 tmp[0] = ')';
917 else
918 tmp[0] = ' ';
919 break;
920 case '$':
921 if (blank && !entitydone)
922 {
923 tmp[0] = '$';
924 entitydone = 1;
925 }
926 else if (blank)
927 tmp[0] = ' ';
928 else
929 tmp[0] = value.val_string[k];
930 break;
931 case '<':
932 tmp[0] = value.val_string[k];
933 break;
934 default:
935 tmp[0] = fmt[i];
936 }
937 strcat(temp, tmp);
938 lastfmt = fmt[i];
939 k--;
940 }
941 /* safety-net */
942 temp[fmt_len] = '\0';
943
944 /* reverse the temp-string and put it into the outbuf */
945 temp_len = strlen(temp);
946 outbuf[0] = '\0';
947 for (i = temp_len - 1; i >= 0; i--)
948 {
949 tmp[0] = temp[i];
950 strcat(outbuf, tmp);
951 }
952 outbuf[temp_len] = '\0';
953
954 /* cleaning up */
955 free(temp);
956 free(value.val_string);
957
958 return 0;
959}
960
961void
963{
964 for (; *str != '\0'; str++)
965 if (islower((unsigned char) *str))
966 *str = toupper((unsigned char) *str);
967}
968
969int
970byleng(char *str, int len)
971{
972 for (len--; str[len] && str[len] == ' '; len--);
973 return (len + 1);
974}
975
976void
977ldchar(char *src, int len, char *dest)
978{
979 int dlen = byleng(src, len);
980
981 memmove(dest, src, dlen);
982 dest[dlen] = '\0';
983}
984
985int
986rgetmsg(int msgnum, char *s, int maxsize)
987{
988 (void) msgnum; /* keep the compiler quiet */
989 (void) s; /* keep the compiler quiet */
990 (void) maxsize; /* keep the compiler quiet */
991 return 0;
992}
993
994int
995rtypalign(int offset, int type)
996{
997 (void) offset; /* keep the compiler quiet */
998 (void) type; /* keep the compiler quiet */
999 return 0;
1000}
1001
1002int
1004{
1005 (void) type; /* keep the compiler quiet */
1006 (void) len; /* keep the compiler quiet */
1007 return 0;
1008}
1009
1010int
1011rtypwidth(int sqltype, int sqllen)
1012{
1013 (void) sqltype; /* keep the compiler quiet */
1014 (void) sqllen; /* keep the compiler quiet */
1015 return 0;
1016}
1017
1018void
1019ECPG_informix_set_var(int number, void *pointer, int lineno)
1020{
1021 ECPGset_var(number, pointer, lineno);
1022}
1023
1024void *
1026{
1027 return ECPGget_var(number);
1028}
1029
1030void
1032{
1033 struct sqlca_t *sqlca = ECPGget_sqlca();
1034
1035 if (sqlca == NULL)
1036 return;
1037
1038 memcpy((char *) sqlca, (char *) &sqlca_init, sizeof(struct sqlca_t));
1039}
1040
1041int
1042rsetnull(int t, char *ptr)
1043{
1044 ECPGset_noind_null(t, ptr);
1045 return 0;
1046}
1047
1048int
1049risnull(int t, const char *ptr)
1050{
1051 return ECPGis_noind_null(t, ptr);
1052}
#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:142
static const FormData_pg_attribute a2
Definition: heap.c:155
FILE * output
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:1011
void ldchar(char *src, int len, char *dest)
Definition: informix.c:977
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:995
static struct sqlca_t sqlca_init
Definition: informix.c:21
int deccvint(int in, decimal *np)
Definition: informix.c:268
static struct @161 value
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:962
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:1025
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:1049
int byleng(char *str, int len)
Definition: informix.c:970
void ECPG_informix_reset_sqlca(void)
Definition: informix.c:1031
int rmdyjul(short *mdy, date *d)
Definition: informix.c:592
void ECPG_informix_set_var(int number, void *pointer, int lineno)
Definition: informix.c:1019
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:1003
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:1042
void rtoday(date *d)
Definition: informix.c:535
int rgetmsg(int msgnum, char *s, int maxsize)
Definition: informix.c:986
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
int j
Definition: isn.c:73
int i
Definition: isn.c:72
static void const char * fmt
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:1157
static void fmtstr(const char *value, int leftjust, int minlen, int maxwidth, int pointflag, PrintfTarget *target)
Definition: snprintf.c:1003
#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
Definition: sqlca.h:20
const char * type