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 };
47 static 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)
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 
85 static 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)
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  {
120  PGTYPESnumeric_free(nres);
122  }
123 
124  if (PGTYPESnumeric_from_decimal(arg2, a2) != 0)
125  {
128  PGTYPESnumeric_free(nres);
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);
145 
146  return i;
147 }
148 
149 /* we start with the numeric functions */
150 int
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)
158  else if (errno == PGTYPES_NUM_UNDERFLOW)
160  else if (errno != 0)
161  return -1;
162  else
163  return 0;
164 }
165 
166 int
167 deccmp(decimal *arg1, decimal *arg2)
168 {
169  return deccall2(arg1, arg2, PGTYPESnumeric_cmp);
170 }
171 
172 void
173 deccopy(decimal *src, decimal *target)
174 {
175  memcpy(target, src, sizeof(decimal));
176 }
177 
178 static 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 
197 int
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)
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 
245 int
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)
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 
267 int
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)
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 
289 int
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)
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 
311 int
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  {
324  break;
327  break;
328  default:
330  break;
331  }
332 
333  return 0;
334 }
335 
336 int
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  {
349  break;
350  default:
352  break;
353  }
354 
355  return 0;
356 }
357 
358 int
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  {
371  break;
372  default:
374  break;
375  }
376 
377  return 0;
378 }
379 
380 int
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)
393 
394  if (PGTYPESnumeric_from_decimal(np, nres) != 0)
395  {
396  PGTYPESnumeric_free(nres);
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 
431 int
432 dectodbl(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  {
442  PGTYPESnumeric_free(nres);
444  }
445 
446  i = PGTYPESnumeric_to_double(nres, dblp);
447  PGTYPESnumeric_free(nres);
448 
449  return i;
450 }
451 
452 int
453 dectoint(decimal *np, int *ip)
454 {
455  int ret;
456  numeric *nres = PGTYPESnumeric_new();
457 
458  if (nres == NULL)
460 
461  if (PGTYPESnumeric_from_decimal(np, nres) != 0)
462  {
463  PGTYPESnumeric_free(nres);
465  }
466 
467  ret = PGTYPESnumeric_to_int(nres, ip);
468  PGTYPESnumeric_free(nres);
469 
470  if (ret == PGTYPES_NUM_OVERFLOW)
472 
473  return ret;
474 }
475 
476 int
477 dectolong(decimal *np, long *lngp)
478 {
479  int ret;
480  numeric *nres = PGTYPESnumeric_new();
481 
482  if (nres == NULL)
484 
485  if (PGTYPESnumeric_from_decimal(np, nres) != 0)
486  {
487  PGTYPESnumeric_free(nres);
489  }
490 
491  ret = PGTYPESnumeric_to_long(nres, lngp);
492  PGTYPESnumeric_free(nres);
493 
494  if (ret == PGTYPES_NUM_OVERFLOW)
496 
497  return ret;
498 }
499 
500 /* Now the date functions */
501 int
502 rdatestr(date d, char *str)
503 {
504  char *tmp = PGTYPESdate_to_asc(d);
505 
506  if (!tmp)
508 
509  /* move to user allocated buffer */
510  strcpy(str, tmp);
511  free(tmp);
512 
513  return 0;
514 }
515 
516 /*
517 *
518 * the input for this function is mmddyyyy and any non-numeric
519 * character can be used as a separator
520 *
521 */
522 int
523 rstrdate(const char *str, date * d)
524 {
525  return rdefmtdate(d, "mm/dd/yyyy", str);
526 }
527 
528 void
530 {
532  return;
533 }
534 
535 int
536 rjulmdy(date d, short mdy[3])
537 {
538  int mdy_int[3];
539 
540  PGTYPESdate_julmdy(d, mdy_int);
541  mdy[0] = (short) mdy_int[0];
542  mdy[1] = (short) mdy_int[1];
543  mdy[2] = (short) mdy_int[2];
544  return 0;
545 }
546 
547 int
548 rdefmtdate(date * d, const char *fmt, const char *str)
549 {
550  /* TODO: take care of DBCENTURY environment variable */
551  /* PGSQL functions allow all centuries */
552 
553  errno = 0;
554  if (PGTYPESdate_defmt_asc(d, fmt, str) == 0)
555  return 0;
556 
557  switch (errno)
558  {
563  return ECPG_INFORMIX_ENOTDMY;
565  return ECPG_INFORMIX_BAD_DAY;
568  default:
569  return ECPG_INFORMIX_BAD_YEAR;
570  }
571 }
572 
573 int
574 rfmtdate(date d, const char *fmt, char *str)
575 {
576  errno = 0;
577  if (PGTYPESdate_fmt_asc(d, fmt, str) == 0)
578  return 0;
579 
580  if (errno == ENOMEM)
582 
584 }
585 
586 int
587 rmdyjul(short mdy[3], date * d)
588 {
589  int mdy_int[3];
590 
591  mdy_int[0] = mdy[0];
592  mdy_int[1] = mdy[1];
593  mdy_int[2] = mdy[2];
594  PGTYPESdate_mdyjul(mdy_int, d);
595  return 0;
596 }
597 
598 int
600 {
601  return PGTYPESdate_dayofweek(d);
602 }
603 
604 /* And the datetime stuff */
605 
606 void
608 {
610 }
611 
612 int
613 dtcvasc(char *str, timestamp * ts)
614 {
615  timestamp ts_tmp;
616  int i;
617  char **endptr = &str;
618 
619  errno = 0;
620  ts_tmp = PGTYPEStimestamp_from_asc(str, endptr);
621  i = errno;
622  if (i)
623  /* TODO: rewrite to Informix error codes */
624  return i;
625  if (**endptr)
626  {
627  /* extra characters exist at the end */
629  }
630  /* TODO: other Informix error codes missing */
631 
632  /* everything went fine */
633  *ts = ts_tmp;
634 
635  return 0;
636 }
637 
638 int
639 dtcvfmtasc(char *inbuf, char *fmtstr, timestamp * dtvalue)
640 {
641  return PGTYPEStimestamp_defmt_asc(inbuf, fmtstr, dtvalue);
642 }
643 
644 int
645 dtsub(timestamp * ts1, timestamp * ts2, interval * iv)
646 {
647  return PGTYPEStimestamp_sub(ts1, ts2, iv);
648 }
649 
650 int
652 {
653  char *asctime = PGTYPEStimestamp_to_asc(*ts);
654 
655  strcpy(output, asctime);
656  free(asctime);
657  return 0;
658 }
659 
660 int
661 dttofmtasc(timestamp * ts, char *output, int str_len, char *fmtstr)
662 {
663  return PGTYPEStimestamp_fmt_asc(ts, output, str_len, fmtstr);
664 }
665 
666 int
668 {
669  char *tmp;
670 
671  errno = 0;
672  tmp = PGTYPESinterval_to_asc(i);
673 
674  if (!tmp)
675  return -errno;
676 
677  memcpy(str, tmp, strlen(tmp));
678  free(tmp);
679  return 0;
680 }
681 
682 static struct
683 {
684  long val;
686  int digits;
688  char sign;
689  char *val_string;
690 } value;
691 
696 static int
697 initValue(long lng_val)
698 {
699  int i,
700  j;
701  long l,
702  dig;
703 
704  /* set some obvious things */
705  value.val = lng_val >= 0 ? lng_val : lng_val * (-1);
706  value.sign = lng_val >= 0 ? '+' : '-';
707  value.maxdigits = log10(2) * (8 * sizeof(long) - 1);
708 
709  /* determine the number of digits */
710  i = 0;
711  l = 1;
712  do
713  {
714  i++;
715  l *= 10;
716  }
717  while ((l - 1) < value.val && l <= LONG_MAX / 10);
718 
719  if (l <= LONG_MAX / 10)
720  {
721  value.digits = i;
722  l /= 10;
723  }
724  else
725  value.digits = i + 1;
726 
727  value.remaining = value.digits;
728 
729  /* convert the long to string */
730  if ((value.val_string = (char *) malloc(value.digits + 1)) == NULL)
731  return -1;
732  dig = value.val;
733  for (i = value.digits, j = 0; i > 0; i--, j++)
734  {
735  value.val_string[j] = dig / l + '0';
736  dig = dig % l;
737  l /= 10;
738  }
739  value.val_string[value.digits] = '\0';
740  return 0;
741 }
742 
743 /* return the position of the right-most dot in some string */
744 static int
745 getRightMostDot(const char *str)
746 {
747  size_t len = strlen(str);
748  int i,
749  j;
750 
751  j = 0;
752  for (i = len - 1; i >= 0; i--)
753  {
754  if (str[i] == '.')
755  return len - j - 1;
756  j++;
757  }
758  return -1;
759 }
760 
761 /* And finally some misc functions */
762 int
763 rfmtlong(long lng_val, const char *fmt, char *outbuf)
764 {
765  size_t fmt_len = strlen(fmt);
766  size_t temp_len;
767  int i,
768  j, /* position in temp */
769  k,
770  dotpos;
771  int leftalign = 0,
772  blank = 0,
773  sign = 0,
774  entitydone = 0,
775  signdone = 0,
776  brackets_ok = 0;
777  char *temp;
778  char tmp[2] = " ";
779  char lastfmt = ' ',
780  fmtchar = ' ';
781 
782  temp = (char *) malloc(fmt_len + 1);
783  if (!temp)
784  {
785  errno = ENOMEM;
786  return -1;
787  }
788 
789  /* put all info about the long in a struct */
790  if (initValue(lng_val) == -1)
791  {
792  free(temp);
793  errno = ENOMEM;
794  return -1;
795  }
796 
797  /* '<' is the only format, where we have to align left */
798  if (strchr(fmt, (int) '<'))
799  leftalign = 1;
800 
801  /* '(' requires ')' */
802  if (strchr(fmt, (int) '(') && strchr(fmt, (int) ')'))
803  brackets_ok = 1;
804 
805  /* get position of the right-most dot in the format-string */
806  /* and fill the temp-string wit '0's up to there. */
807  dotpos = getRightMostDot(fmt);
808 
809  /* start to parse the format-string */
810  temp[0] = '\0';
811  k = value.digits - 1; /* position in the value_string */
812  for (i = fmt_len - 1, j = 0; i >= 0; i--, j++)
813  {
814  /* qualify, where we are in the value_string */
815  if (k < 0)
816  {
817  blank = 1;
818  if (k == -1)
819  sign = 1;
820  if (leftalign)
821  {
822  /* can't use strncat(,,0) here, Solaris would freak out */
823  if (sign)
824  if (signdone)
825  {
826  temp[j] = '\0';
827  break;
828  }
829  }
830  }
831  /* if we're right side of the right-most dot, print '0' */
832  if (dotpos >= 0 && dotpos <= i)
833  {
834  if (dotpos < i)
835  {
836  if (fmt[i] == ')')
837  tmp[0] = value.sign == '-' ? ')' : ' ';
838  else
839  tmp[0] = '0';
840  }
841  else
842  tmp[0] = '.';
843  strcat(temp, tmp);
844  continue;
845  }
846  /* the ',' needs special attention, if it is in the blank area */
847  if (blank && fmt[i] == ',')
848  fmtchar = lastfmt;
849  else
850  fmtchar = fmt[i];
851  /* waiting for the sign */
852  if (k < 0 && leftalign && sign && !signdone && fmtchar != '+' && fmtchar != '-')
853  continue;
854  /* analyse this format-char */
855  switch (fmtchar)
856  {
857  case ',':
858  tmp[0] = ',';
859  k++;
860  break;
861  case '*':
862  if (blank)
863  tmp[0] = '*';
864  else
865  tmp[0] = value.val_string[k];
866  break;
867  case '&':
868  if (blank)
869  tmp[0] = '0';
870  else
871  tmp[0] = value.val_string[k];
872  break;
873  case '#':
874  if (blank)
875  tmp[0] = ' ';
876  else
877  tmp[0] = value.val_string[k];
878  break;
879  case '-':
880  if (sign && value.sign == '-' && !signdone)
881  {
882  tmp[0] = '-';
883  signdone = 1;
884  }
885  else if (blank)
886  tmp[0] = ' ';
887  else
888  tmp[0] = value.val_string[k];
889  break;
890  case '+':
891  if (sign && !signdone)
892  {
893  tmp[0] = value.sign;
894  signdone = 1;
895  }
896  else if (blank)
897  tmp[0] = ' ';
898  else
899  tmp[0] = value.val_string[k];
900  break;
901  case '(':
902  if (sign && brackets_ok && value.sign == '-')
903  tmp[0] = '(';
904  else if (blank)
905  tmp[0] = ' ';
906  else
907  tmp[0] = value.val_string[k];
908  break;
909  case ')':
910  if (brackets_ok && value.sign == '-')
911  tmp[0] = ')';
912  else
913  tmp[0] = ' ';
914  break;
915  case '$':
916  if (blank && !entitydone)
917  {
918  tmp[0] = '$';
919  entitydone = 1;
920  }
921  else if (blank)
922  tmp[0] = ' ';
923  else
924  tmp[0] = value.val_string[k];
925  break;
926  case '<':
927  tmp[0] = value.val_string[k];
928  break;
929  default:
930  tmp[0] = fmt[i];
931  }
932  strcat(temp, tmp);
933  lastfmt = fmt[i];
934  k--;
935  }
936  /* safety-net */
937  temp[fmt_len] = '\0';
938 
939  /* reverse the temp-string and put it into the outbuf */
940  temp_len = strlen(temp);
941  outbuf[0] = '\0';
942  for (i = temp_len - 1; i >= 0; i--)
943  {
944  tmp[0] = temp[i];
945  strcat(outbuf, tmp);
946  }
947  outbuf[temp_len] = '\0';
948 
949  /* cleaning up */
950  free(temp);
951  free(value.val_string);
952 
953  return 0;
954 }
955 
956 void
957 rupshift(char *str)
958 {
959  for (; *str != '\0'; str++)
960  if (islower((unsigned char) *str))
961  *str = toupper((unsigned char) *str);
962  return;
963 }
964 
965 int
966 byleng(char *str, int len)
967 {
968  for (len--; str[len] && str[len] == ' '; len--);
969  return (len + 1);
970 }
971 
972 void
973 ldchar(char *src, int len, char *dest)
974 {
975  int dlen = byleng(src, len);
976 
977  memmove(dest, src, dlen);
978  dest[dlen] = '\0';
979 }
980 
981 int
982 rgetmsg(int msgnum, char *s, int maxsize)
983 {
984  (void) msgnum; /* keep the compiler quiet */
985  (void) s; /* keep the compiler quiet */
986  (void) maxsize; /* keep the compiler quiet */
987  return 0;
988 }
989 
990 int
991 rtypalign(int offset, int type)
992 {
993  (void) offset; /* keep the compiler quiet */
994  (void) type; /* keep the compiler quiet */
995  return 0;
996 }
997 
998 int
999 rtypmsize(int type, int len)
1000 {
1001  (void) type; /* keep the compiler quiet */
1002  (void) len; /* keep the compiler quiet */
1003  return 0;
1004 }
1005 
1006 int
1007 rtypwidth(int sqltype, int sqllen)
1008 {
1009  (void) sqltype; /* keep the compiler quiet */
1010  (void) sqllen; /* keep the compiler quiet */
1011  return 0;
1012 }
1013 
1014 void
1015 ECPG_informix_set_var(int number, void *pointer, int lineno)
1016 {
1017  ECPGset_var(number, pointer, lineno);
1018 }
1019 
1020 void *
1022 {
1023  return ECPGget_var(number);
1024 }
1025 
1026 void
1028 {
1029  struct sqlca_t *sqlca = ECPGget_sqlca();
1030 
1031  if (sqlca == NULL)
1032  return;
1033 
1034  memcpy((char *) sqlca, (char *) &sqlca_init, sizeof(struct sqlca_t));
1035 }
1036 
1037 int
1038 rsetnull(int t, char *ptr)
1039 {
1040  ECPGset_noind_null(t, ptr);
1041  return 0;
1042 }
1043 
1044 int
1045 risnull(int t, const char *ptr)
1046 {
1047  return ECPGis_noind_null(t, ptr);
1048 }
int remaining
Definition: informix.c:687
int PGTYPEStimestamp_sub(timestamp *, timestamp *, interval *)
Definition: timestamp.c:797
int rdatestr(date d, char *str)
Definition: informix.c:502
int PGTYPESnumeric_from_long(signed long int, numeric *)
Definition: numeric.c:1406
int PGTYPESdate_defmt_asc(date *, const char *, const char *)
Definition: datetime.c:331
int rtypwidth(int sqltype, int sqllen)
Definition: informix.c:1007
#define ECPG_INFORMIX_BAD_NUMERIC
Definition: ecpg_informix.h:26
void ldchar(char *src, int len, char *dest)
Definition: informix.c:973
void dtcurrent(timestamp *ts)
Definition: informix.c:607
#define PGTYPES_DATE_BAD_DAY
Definition: pgtypes_error.h:12
#define PGTYPES_DATE_ERR_EARGS
Definition: pgtypes_error.h:9
static char * ecpg_strndup(const char *str, size_t len)
Definition: informix.c:179
void * ECPGget_var(int number)
Definition: misc.c:581
#define PGTYPES_DATE_ERR_ENOTDMY
Definition: pgtypes_error.h:11
int rfmtdate(date d, const char *fmt, char *str)
Definition: informix.c:574
void PGTYPESdate_julmdy(date, int *)
Definition: datetime.c:115
int decsub(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:359
#define sqlca
Definition: sqlca.h:59
int64 timestamp
static void output(uint64 loop_count)
void rtoday(date *d)
Definition: informix.c:529
#define ECPG_INFORMIX_BAD_MONTH
Definition: ecpg_informix.h:20
int dectolong(decimal *np, long *lngp)
Definition: informix.c:477
int risnull(int t, const char *ptr)
Definition: informix.c:1045
#define ECPG_INFORMIX_DIVIDE_ZERO
Definition: ecpg_informix.h:18
#define PGTYPES_NUM_DIVIDE_ZERO
Definition: pgtypes_error.h:5
int PGTYPESnumeric_from_decimal(decimal *, numeric *)
Definition: numeric.c:1653
void ECPGset_var(int number, void *pointer, int lineno)
Definition: misc.c:526
static struct @145 value
void PGTYPESdate_today(date *)
Definition: datetime.c:148
int byleng(char *str, int len)
Definition: informix.c:966
int PGTYPEStimestamp_defmt_asc(const char *, const char *, timestamp *)
Definition: timestamp.c:810
int PGTYPESnumeric_to_decimal(numeric *, decimal *)
Definition: numeric.c:1630
static void fmtchar(int value, int leftjust, int minlen, PrintfTarget *target)
Definition: snprintf.c:1099
static int getRightMostDot(const char *str)
Definition: informix.c:745
long date
Definition: pgtypes_date.h:9
int PGTYPESnumeric_from_double(double, numeric *)
Definition: numeric.c:1499
char * PGTYPESdate_to_asc(date)
Definition: datetime.c:101
static int deccall3(decimal *arg1, decimal *arg2, decimal *result, int(*ptr)(numeric *, numeric *, numeric *))
Definition: informix.c:86
#define ECPG_INFORMIX_NUM_OVERFLOW
Definition: ecpg_informix.h:16
#define PGTYPES_DATE_BAD_MONTH
Definition: pgtypes_error.h:13
int PGTYPESdate_fmt_asc(date, const char *, char *)
Definition: datetime.c:169
void PGTYPESnumeric_free(numeric *)
Definition: numeric.c:471
#define malloc(a)
Definition: header.h:50
void PGTYPESdate_mdyjul(int *, date *)
Definition: datetime.c:128
int dectodbl(decimal *np, double *dblp)
Definition: informix.c:432
int PGTYPESdate_dayofweek(date)
Definition: datetime.c:138
numeric * PGTYPESnumeric_new(void)
Definition: numeric.c:128
static const FormData_pg_attribute a2
Definition: heap.c:166
int decdiv(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:312
char * val_string
Definition: informix.c:689
int rtypalign(int offset, int type)
Definition: informix.c:991
#define ECPG_INFORMIX_NUM_UNDERFLOW
Definition: ecpg_informix.h:17
int PGTYPEStimestamp_fmt_asc(timestamp *, char *, int, const char *)
Definition: timestamp.c:782
int PGTYPESnumeric_to_long(numeric *, long *)
Definition: numeric.c:1601
int PGTYPESnumeric_to_int(numeric *, int *)
Definition: numeric.c:1582
int dttofmtasc(timestamp *ts, char *output, int str_len, char *fmtstr)
Definition: informix.c:661
#define CDOUBLETYPE
Definition: sqltypes.h:11
struct sqlca_t * ECPGget_sqlca(void)
Definition: misc.c:141
int PGTYPESnumeric_cmp(numeric *, numeric *)
Definition: numeric.c:1368
void PGTYPEStimestamp_current(timestamp *)
Definition: timestamp.c:293
#define PGTYPES_DATE_ERR_ENOSHORTDATE
Definition: pgtypes_error.h:10
int rtypmsize(int type, int len)
Definition: informix.c:999
int rdayofweek(date d)
Definition: informix.c:599
Definition: sqlca.h:19
char sign
Definition: informix.c:688
int PGTYPESnumeric_div(numeric *, numeric *, numeric *)
Definition: numeric.c:1139
int deccvasc(const char *cp, int len, decimal *np)
Definition: informix.c:198
static int initValue(long lng_val)
Definition: informix.c:697
#define memmove(d, s, c)
Definition: c.h:1261
#define ECPG_INFORMIX_DATE_CONVERT
Definition: ecpg_informix.h:23
int PGTYPESnumeric_from_int(signed int, numeric *)
Definition: numeric.c:1397
void * ECPG_informix_get_var(int number)
Definition: informix.c:1021
#define CDECIMALTYPE
Definition: sqltypes.h:12
#define CLONGTYPE
Definition: sqltypes.h:9
int rgetmsg(int msgnum, char *s, int maxsize)
Definition: informix.c:982
int rdefmtdate(date *d, const char *fmt, const char *str)
Definition: informix.c:548
int dtcvasc(char *str, timestamp *ts)
Definition: informix.c:613
#define PGTYPES_NUM_OVERFLOW
Definition: pgtypes_error.h:3
void deccopy(decimal *src, decimal *target)
Definition: informix.c:173
int deccvint(int in, decimal *np)
Definition: informix.c:268
int dectoint(decimal *np, int *ip)
Definition: informix.c:453
char * PGTYPESnumeric_to_asc(numeric *, int)
Definition: numeric.c:429
int dttoasc(timestamp *ts, char *output)
Definition: informix.c:651
#define CSTRINGTYPE
Definition: sqltypes.h:14
int deccmp(decimal *arg1, decimal *arg2)
Definition: informix.c:167
#define PGTYPES_NUM_UNDERFLOW
Definition: pgtypes_error.h:6
int rstrdate(const char *str, date *d)
Definition: informix.c:523
int rfmtlong(long lng_val, const char *fmt, char *outbuf)
Definition: informix.c:763
void ECPG_informix_reset_sqlca(void)
Definition: informix.c:1027
#define ECPG_INFORMIX_BAD_EXPONENT
Definition: ecpg_informix.h:27
numeric * PGTYPESnumeric_from_asc(char *, char **)
Definition: numeric.c:407
#define free(a)
Definition: header.h:65
int maxdigits
Definition: informix.c:685
int decmul(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:337
int PGTYPESnumeric_to_double(numeric *, double *)
Definition: numeric.c:1571
int rjulmdy(date d, short mdy[3])
Definition: informix.c:536
int rsetnull(int t, char *ptr)
Definition: informix.c:1038
char * PGTYPEStimestamp_to_asc(timestamp)
Definition: timestamp.c:271
#define ECPG_INFORMIX_BAD_YEAR
Definition: ecpg_informix.h:19
#define CINTTYPE
Definition: sqltypes.h:8
#define ECPG_INFORMIX_ENOSHORTDATE
Definition: ecpg_informix.h:22
#define PGTYPES_NUM_BAD_NUMERIC
Definition: pgtypes_error.h:4
int dtsub(timestamp *ts1, timestamp *ts2, interval *iv)
Definition: informix.c:645
int PGTYPESnumeric_add(numeric *, numeric *, numeric *)
Definition: numeric.c:723
#define ECPG_INFORMIX_OUT_OF_MEMORY
Definition: ecpg_informix.h:24
char * PGTYPESinterval_to_asc(interval *)
Definition: interval.c:1066
void ECPGset_noind_null(enum ECPGttype type, void *ptr)
Definition: misc.c:319
bool ECPGis_noind_null(enum ECPGttype type, const void *ptr)
Definition: misc.c:388
int deccvlong(long lng, decimal *np)
Definition: informix.c:290
int dectoasc(decimal *np, char *cp, int len, int right)
Definition: informix.c:381
static void fmtstr(const char *value, int leftjust, int minlen, int maxwidth, int pointflag, PrintfTarget *target)
Definition: snprintf.c:969
int i
static struct sqlca_t sqlca_init
Definition: informix.c:21
void ECPG_informix_set_var(int number, void *pointer, int lineno)
Definition: informix.c:1015
#define ECPG_INFORMIX_ENOTDMY
Definition: ecpg_informix.h:25
#define ECPG_INFORMIX_EXTRA_CHARS
Definition: ecpg_informix.h:29
static int deccall2(decimal *arg1, decimal *arg2, int(*ptr)(numeric *, numeric *))
Definition: informix.c:48
int PGTYPESnumeric_mul(numeric *, numeric *, numeric *)
Definition: numeric.c:982
static const FormData_pg_attribute a1
Definition: heap.c:152
int dtcvfmtasc(char *inbuf, char *fmtstr, timestamp *dtvalue)
Definition: informix.c:639
int decadd(decimal *arg1, decimal *arg2, decimal *sum)
Definition: informix.c:151
#define ECPG_INFORMIX_BAD_DAY
Definition: ecpg_informix.h:21
int PGTYPESnumeric_sub(numeric *, numeric *, numeric *)
Definition: numeric.c:851
timestamp PGTYPEStimestamp_from_asc(char *, char **)
Definition: timestamp.c:205
int deccvdbl(double dbl, decimal *np)
Definition: informix.c:246
long val
Definition: informix.c:684
int intoasc(interval *i, char *str)
Definition: informix.c:667
int rmdyjul(short mdy[3], date *d)
Definition: informix.c:587
int digits
Definition: informix.c:686
void rupshift(char *str)
Definition: informix.c:957