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 int
179 deccvasc(const char *cp, int len, decimal *np)
180 {
181  char *str;
182  int ret = 0;
183  numeric *result;
184 
185  rsetnull(CDECIMALTYPE, (char *) np);
186  if (risnull(CSTRINGTYPE, cp))
187  return 0;
188 
189  str = pnstrdup(cp, len); /* decimal_in always converts the complete
190  * string */
191  if (!str)
193  else
194  {
195  errno = 0;
196  result = PGTYPESnumeric_from_asc(str, NULL);
197  if (!result)
198  {
199  switch (errno)
200  {
203  break;
206  break;
207  default:
209  break;
210  }
211  }
212  else
213  {
214  int i = PGTYPESnumeric_to_decimal(result, np);
215 
216  PGTYPESnumeric_free(result);
217  if (i != 0)
219  }
220  }
221 
222  free(str);
223  return ret;
224 }
225 
226 int
227 deccvdbl(double dbl, decimal *np)
228 {
229  numeric *nres;
230  int result = 1;
231 
232  rsetnull(CDECIMALTYPE, (char *) np);
233  if (risnull(CDOUBLETYPE, (char *) &dbl))
234  return 0;
235 
236  nres = PGTYPESnumeric_new();
237  if (nres == NULL)
239 
240  result = PGTYPESnumeric_from_double(dbl, nres);
241  if (result == 0)
242  result = PGTYPESnumeric_to_decimal(nres, np);
243 
244  PGTYPESnumeric_free(nres);
245  return result;
246 }
247 
248 int
249 deccvint(int in, decimal *np)
250 {
251  numeric *nres;
252  int result = 1;
253 
254  rsetnull(CDECIMALTYPE, (char *) np);
255  if (risnull(CINTTYPE, (char *) &in))
256  return 0;
257 
258  nres = PGTYPESnumeric_new();
259  if (nres == NULL)
261 
262  result = PGTYPESnumeric_from_int(in, nres);
263  if (result == 0)
264  result = PGTYPESnumeric_to_decimal(nres, np);
265 
266  PGTYPESnumeric_free(nres);
267  return result;
268 }
269 
270 int
271 deccvlong(long lng, decimal *np)
272 {
273  numeric *nres;
274  int result = 1;
275 
276  rsetnull(CDECIMALTYPE, (char *) np);
277  if (risnull(CLONGTYPE, (char *) &lng))
278  return 0;
279 
280  nres = PGTYPESnumeric_new();
281  if (nres == NULL)
283 
284  result = PGTYPESnumeric_from_long(lng, nres);
285  if (result == 0)
286  result = PGTYPESnumeric_to_decimal(nres, np);
287 
288  PGTYPESnumeric_free(nres);
289  return result;
290 }
291 
292 int
293 decdiv(decimal *n1, decimal *n2, decimal *result)
294 {
295  int i;
296 
297  errno = 0;
298  i = deccall3(n1, n2, result, PGTYPESnumeric_div);
299 
300  if (i != 0)
301  switch (errno)
302  {
305  break;
308  break;
309  default:
311  break;
312  }
313 
314  return 0;
315 }
316 
317 int
318 decmul(decimal *n1, decimal *n2, decimal *result)
319 {
320  int i;
321 
322  errno = 0;
323  i = deccall3(n1, n2, result, PGTYPESnumeric_mul);
324 
325  if (i != 0)
326  switch (errno)
327  {
330  break;
331  default:
333  break;
334  }
335 
336  return 0;
337 }
338 
339 int
340 decsub(decimal *n1, decimal *n2, decimal *result)
341 {
342  int i;
343 
344  errno = 0;
345  i = deccall3(n1, n2, result, PGTYPESnumeric_sub);
346 
347  if (i != 0)
348  switch (errno)
349  {
352  break;
353  default:
355  break;
356  }
357 
358  return 0;
359 }
360 
361 int
362 dectoasc(decimal *np, char *cp, int len, int right)
363 {
364  char *str;
365  numeric *nres;
366 
367  rsetnull(CSTRINGTYPE, (char *) cp);
368  if (risnull(CDECIMALTYPE, (char *) np))
369  return 0;
370 
371  nres = PGTYPESnumeric_new();
372  if (nres == NULL)
374 
375  if (PGTYPESnumeric_from_decimal(np, nres) != 0)
376  {
377  PGTYPESnumeric_free(nres);
379  }
380 
381  if (right >= 0)
382  str = PGTYPESnumeric_to_asc(nres, right);
383  else
384  str = PGTYPESnumeric_to_asc(nres, nres->dscale);
385 
386  PGTYPESnumeric_free(nres);
387  if (!str)
388  return -1;
389 
390  /*
391  * TODO: have to take care of len here and create exponential notation if
392  * necessary
393  */
394  if ((int) (strlen(str) + 1) > len)
395  {
396  if (len > 1)
397  {
398  cp[0] = '*';
399  cp[1] = '\0';
400  }
401  free(str);
402  return -1;
403  }
404  else
405  {
406  strcpy(cp, str);
407  free(str);
408  return 0;
409  }
410 }
411 
412 int
413 dectodbl(decimal *np, double *dblp)
414 {
415  int i;
416  numeric *nres = PGTYPESnumeric_new();
417 
418  if (nres == NULL)
420 
421  if (PGTYPESnumeric_from_decimal(np, nres) != 0)
422  {
423  PGTYPESnumeric_free(nres);
425  }
426 
427  i = PGTYPESnumeric_to_double(nres, dblp);
428  PGTYPESnumeric_free(nres);
429 
430  return i;
431 }
432 
433 int
434 dectoint(decimal *np, int *ip)
435 {
436  int ret;
437  numeric *nres = PGTYPESnumeric_new();
438 
439  if (nres == NULL)
441 
442  if (PGTYPESnumeric_from_decimal(np, nres) != 0)
443  {
444  PGTYPESnumeric_free(nres);
446  }
447 
448  ret = PGTYPESnumeric_to_int(nres, ip);
449  PGTYPESnumeric_free(nres);
450 
451  if (ret == PGTYPES_NUM_OVERFLOW)
453 
454  return ret;
455 }
456 
457 int
458 dectolong(decimal *np, long *lngp)
459 {
460  int ret;
461  numeric *nres = PGTYPESnumeric_new();
462 
463  if (nres == NULL)
465 
466  if (PGTYPESnumeric_from_decimal(np, nres) != 0)
467  {
468  PGTYPESnumeric_free(nres);
470  }
471 
472  ret = PGTYPESnumeric_to_long(nres, lngp);
473  PGTYPESnumeric_free(nres);
474 
475  if (ret == PGTYPES_NUM_OVERFLOW)
477 
478  return ret;
479 }
480 
481 /* Now the date functions */
482 int
483 rdatestr(date d, char *str)
484 {
485  char *tmp = PGTYPESdate_to_asc(d);
486 
487  if (!tmp)
489 
490  /* move to user allocated buffer */
491  strcpy(str, tmp);
492  free(tmp);
493 
494  return 0;
495 }
496 
497 /*
498 *
499 * the input for this function is mmddyyyy and any non-numeric
500 * character can be used as a separator
501 *
502 */
503 int
504 rstrdate(const char *str, date * d)
505 {
506  return rdefmtdate(d, "mm/dd/yyyy", str);
507 }
508 
509 void
511 {
513 }
514 
515 int
516 rjulmdy(date d, short mdy[3])
517 {
518  int mdy_int[3];
519 
520  PGTYPESdate_julmdy(d, mdy_int);
521  mdy[0] = (short) mdy_int[0];
522  mdy[1] = (short) mdy_int[1];
523  mdy[2] = (short) mdy_int[2];
524  return 0;
525 }
526 
527 int
528 rdefmtdate(date * d, const char *fmt, const char *str)
529 {
530  /* TODO: take care of DBCENTURY environment variable */
531  /* PGSQL functions allow all centuries */
532 
533  errno = 0;
534  if (PGTYPESdate_defmt_asc(d, fmt, str) == 0)
535  return 0;
536 
537  switch (errno)
538  {
543  return ECPG_INFORMIX_ENOTDMY;
545  return ECPG_INFORMIX_BAD_DAY;
548  default:
549  return ECPG_INFORMIX_BAD_YEAR;
550  }
551 }
552 
553 int
554 rfmtdate(date d, const char *fmt, char *str)
555 {
556  errno = 0;
557  if (PGTYPESdate_fmt_asc(d, fmt, str) == 0)
558  return 0;
559 
560  if (errno == ENOMEM)
562 
564 }
565 
566 int
567 rmdyjul(short mdy[3], date * d)
568 {
569  int mdy_int[3];
570 
571  mdy_int[0] = mdy[0];
572  mdy_int[1] = mdy[1];
573  mdy_int[2] = mdy[2];
574  PGTYPESdate_mdyjul(mdy_int, d);
575  return 0;
576 }
577 
578 int
580 {
581  return PGTYPESdate_dayofweek(d);
582 }
583 
584 /* And the datetime stuff */
585 
586 void
588 {
590 }
591 
592 int
593 dtcvasc(char *str, timestamp * ts)
594 {
595  timestamp ts_tmp;
596  int i;
597  char **endptr = &str;
598 
599  errno = 0;
600  ts_tmp = PGTYPEStimestamp_from_asc(str, endptr);
601  i = errno;
602  if (i)
603  /* TODO: rewrite to Informix error codes */
604  return i;
605  if (**endptr)
606  {
607  /* extra characters exist at the end */
609  }
610  /* TODO: other Informix error codes missing */
611 
612  /* everything went fine */
613  *ts = ts_tmp;
614 
615  return 0;
616 }
617 
618 int
619 dtcvfmtasc(char *inbuf, char *fmtstr, timestamp * dtvalue)
620 {
621  return PGTYPEStimestamp_defmt_asc(inbuf, fmtstr, dtvalue);
622 }
623 
624 int
625 dtsub(timestamp * ts1, timestamp * ts2, interval * iv)
626 {
627  return PGTYPEStimestamp_sub(ts1, ts2, iv);
628 }
629 
630 int
632 {
633  char *asctime = PGTYPEStimestamp_to_asc(*ts);
634 
635  strcpy(output, asctime);
636  free(asctime);
637  return 0;
638 }
639 
640 int
641 dttofmtasc(timestamp * ts, char *output, int str_len, char *fmtstr)
642 {
643  return PGTYPEStimestamp_fmt_asc(ts, output, str_len, fmtstr);
644 }
645 
646 int
648 {
649  char *tmp;
650 
651  errno = 0;
652  tmp = PGTYPESinterval_to_asc(i);
653 
654  if (!tmp)
655  return -errno;
656 
657  memcpy(str, tmp, strlen(tmp));
658  free(tmp);
659  return 0;
660 }
661 
662 static struct
663 {
664  long val;
666  int digits;
668  char sign;
669  char *val_string;
670 } value;
671 
676 static int
677 initValue(long lng_val)
678 {
679  int i,
680  j;
681  long l,
682  dig;
683 
684  /* set some obvious things */
685  value.val = lng_val >= 0 ? lng_val : lng_val * (-1);
686  value.sign = lng_val >= 0 ? '+' : '-';
687  value.maxdigits = log10(2) * (8 * sizeof(long) - 1);
688 
689  /* determine the number of digits */
690  i = 0;
691  l = 1;
692  do
693  {
694  i++;
695  l *= 10;
696  }
697  while ((l - 1) < value.val && l <= LONG_MAX / 10);
698 
699  if (l <= LONG_MAX / 10)
700  {
701  value.digits = i;
702  l /= 10;
703  }
704  else
705  value.digits = i + 1;
706 
707  value.remaining = value.digits;
708 
709  /* convert the long to string */
710  if ((value.val_string = (char *) malloc(value.digits + 1)) == NULL)
711  return -1;
712  dig = value.val;
713  for (i = value.digits, j = 0; i > 0; i--, j++)
714  {
715  value.val_string[j] = dig / l + '0';
716  dig = dig % l;
717  l /= 10;
718  }
719  value.val_string[value.digits] = '\0';
720  return 0;
721 }
722 
723 /* return the position of the right-most dot in some string */
724 static int
725 getRightMostDot(const char *str)
726 {
727  size_t len = strlen(str);
728  int i,
729  j;
730 
731  j = 0;
732  for (i = len - 1; i >= 0; i--)
733  {
734  if (str[i] == '.')
735  return len - j - 1;
736  j++;
737  }
738  return -1;
739 }
740 
741 /* And finally some misc functions */
742 int
743 rfmtlong(long lng_val, const char *fmt, char *outbuf)
744 {
745  size_t fmt_len = strlen(fmt);
746  size_t temp_len;
747  int i,
748  j, /* position in temp */
749  k,
750  dotpos;
751  int leftalign = 0,
752  blank = 0,
753  sign = 0,
754  entitydone = 0,
755  signdone = 0,
756  brackets_ok = 0;
757  char *temp;
758  char tmp[2] = " ";
759  char lastfmt = ' ',
760  fmtchar = ' ';
761 
762  temp = (char *) malloc(fmt_len + 1);
763  if (!temp)
764  {
765  errno = ENOMEM;
766  return -1;
767  }
768 
769  /* put all info about the long in a struct */
770  if (initValue(lng_val) == -1)
771  {
772  free(temp);
773  errno = ENOMEM;
774  return -1;
775  }
776 
777  /* '<' is the only format, where we have to align left */
778  if (strchr(fmt, (int) '<'))
779  leftalign = 1;
780 
781  /* '(' requires ')' */
782  if (strchr(fmt, (int) '(') && strchr(fmt, (int) ')'))
783  brackets_ok = 1;
784 
785  /* get position of the right-most dot in the format-string */
786  /* and fill the temp-string wit '0's up to there. */
787  dotpos = getRightMostDot(fmt);
788 
789  /* start to parse the format-string */
790  temp[0] = '\0';
791  k = value.digits - 1; /* position in the value_string */
792  for (i = fmt_len - 1, j = 0; i >= 0; i--, j++)
793  {
794  /* qualify, where we are in the value_string */
795  if (k < 0)
796  {
797  blank = 1;
798  if (k == -1)
799  sign = 1;
800  if (leftalign)
801  {
802  /* can't use strncat(,,0) here, Solaris would freak out */
803  if (sign)
804  if (signdone)
805  {
806  temp[j] = '\0';
807  break;
808  }
809  }
810  }
811  /* if we're right side of the right-most dot, print '0' */
812  if (dotpos >= 0 && dotpos <= i)
813  {
814  if (dotpos < i)
815  {
816  if (fmt[i] == ')')
817  tmp[0] = value.sign == '-' ? ')' : ' ';
818  else
819  tmp[0] = '0';
820  }
821  else
822  tmp[0] = '.';
823  strcat(temp, tmp);
824  continue;
825  }
826  /* the ',' needs special attention, if it is in the blank area */
827  if (blank && fmt[i] == ',')
828  fmtchar = lastfmt;
829  else
830  fmtchar = fmt[i];
831  /* waiting for the sign */
832  if (k < 0 && leftalign && sign && !signdone && fmtchar != '+' && fmtchar != '-')
833  continue;
834  /* analyse this format-char */
835  switch (fmtchar)
836  {
837  case ',':
838  tmp[0] = ',';
839  k++;
840  break;
841  case '*':
842  if (blank)
843  tmp[0] = '*';
844  else
845  tmp[0] = value.val_string[k];
846  break;
847  case '&':
848  if (blank)
849  tmp[0] = '0';
850  else
851  tmp[0] = value.val_string[k];
852  break;
853  case '#':
854  if (blank)
855  tmp[0] = ' ';
856  else
857  tmp[0] = value.val_string[k];
858  break;
859  case '-':
860  if (sign && value.sign == '-' && !signdone)
861  {
862  tmp[0] = '-';
863  signdone = 1;
864  }
865  else if (blank)
866  tmp[0] = ' ';
867  else
868  tmp[0] = value.val_string[k];
869  break;
870  case '+':
871  if (sign && !signdone)
872  {
873  tmp[0] = value.sign;
874  signdone = 1;
875  }
876  else if (blank)
877  tmp[0] = ' ';
878  else
879  tmp[0] = value.val_string[k];
880  break;
881  case '(':
882  if (sign && brackets_ok && value.sign == '-')
883  tmp[0] = '(';
884  else if (blank)
885  tmp[0] = ' ';
886  else
887  tmp[0] = value.val_string[k];
888  break;
889  case ')':
890  if (brackets_ok && value.sign == '-')
891  tmp[0] = ')';
892  else
893  tmp[0] = ' ';
894  break;
895  case '$':
896  if (blank && !entitydone)
897  {
898  tmp[0] = '$';
899  entitydone = 1;
900  }
901  else if (blank)
902  tmp[0] = ' ';
903  else
904  tmp[0] = value.val_string[k];
905  break;
906  case '<':
907  tmp[0] = value.val_string[k];
908  break;
909  default:
910  tmp[0] = fmt[i];
911  }
912  strcat(temp, tmp);
913  lastfmt = fmt[i];
914  k--;
915  }
916  /* safety-net */
917  temp[fmt_len] = '\0';
918 
919  /* reverse the temp-string and put it into the outbuf */
920  temp_len = strlen(temp);
921  outbuf[0] = '\0';
922  for (i = temp_len - 1; i >= 0; i--)
923  {
924  tmp[0] = temp[i];
925  strcat(outbuf, tmp);
926  }
927  outbuf[temp_len] = '\0';
928 
929  /* cleaning up */
930  free(temp);
931  free(value.val_string);
932 
933  return 0;
934 }
935 
936 void
937 rupshift(char *str)
938 {
939  for (; *str != '\0'; str++)
940  if (islower((unsigned char) *str))
941  *str = toupper((unsigned char) *str);
942 }
943 
944 int
945 byleng(char *str, int len)
946 {
947  for (len--; str[len] && str[len] == ' '; len--);
948  return (len + 1);
949 }
950 
951 void
952 ldchar(char *src, int len, char *dest)
953 {
954  int dlen = byleng(src, len);
955 
956  memmove(dest, src, dlen);
957  dest[dlen] = '\0';
958 }
959 
960 int
961 rgetmsg(int msgnum, char *s, int maxsize)
962 {
963  (void) msgnum; /* keep the compiler quiet */
964  (void) s; /* keep the compiler quiet */
965  (void) maxsize; /* keep the compiler quiet */
966  return 0;
967 }
968 
969 int
970 rtypalign(int offset, int type)
971 {
972  (void) offset; /* keep the compiler quiet */
973  (void) type; /* keep the compiler quiet */
974  return 0;
975 }
976 
977 int
978 rtypmsize(int type, int len)
979 {
980  (void) type; /* keep the compiler quiet */
981  (void) len; /* keep the compiler quiet */
982  return 0;
983 }
984 
985 int
986 rtypwidth(int sqltype, int sqllen)
987 {
988  (void) sqltype; /* keep the compiler quiet */
989  (void) sqllen; /* keep the compiler quiet */
990  return 0;
991 }
992 
993 void
994 ECPG_informix_set_var(int number, void *pointer, int lineno)
995 {
996  ECPGset_var(number, pointer, lineno);
997 }
998 
999 void *
1001 {
1002  return ECPGget_var(number);
1003 }
1004 
1005 void
1007 {
1008  struct sqlca_t *sqlca = ECPGget_sqlca();
1009 
1010  if (sqlca == NULL)
1011  return;
1012 
1013  memcpy((char *) sqlca, (char *) &sqlca_init, sizeof(struct sqlca_t));
1014 }
1015 
1016 int
1017 rsetnull(int t, char *ptr)
1018 {
1019  ECPGset_noind_null(t, ptr);
1020  return 0;
1021 }
1022 
1023 int
1024 risnull(int t, const char *ptr)
1025 {
1026  return ECPGis_noind_null(t, ptr);
1027 }
int remaining
Definition: informix.c:667
int PGTYPEStimestamp_sub(timestamp *, timestamp *, interval *)
Definition: timestamp.c:797
int rdatestr(date d, char *str)
Definition: informix.c:483
int PGTYPESnumeric_from_long(signed long int, numeric *)
Definition: numeric.c:1324
int PGTYPESdate_defmt_asc(date *, const char *, const char *)
Definition: datetime.c:330
int rtypwidth(int sqltype, int sqllen)
Definition: informix.c:986
#define ECPG_INFORMIX_BAD_NUMERIC
Definition: ecpg_informix.h:26
char * pnstrdup(const char *in, Size len)
Definition: mcxt.c:1198
void ldchar(char *src, int len, char *dest)
Definition: informix.c:952
void dtcurrent(timestamp *ts)
Definition: informix.c:587
#define PGTYPES_DATE_BAD_DAY
Definition: pgtypes_error.h:12
#define PGTYPES_DATE_ERR_EARGS
Definition: pgtypes_error.h:9
static struct @142 value
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:554
void PGTYPESdate_julmdy(date, int *)
Definition: datetime.c:115
int decsub(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:340
#define sqlca
Definition: sqlca.h:59
int64 timestamp
static void output(uint64 loop_count)
void rtoday(date *d)
Definition: informix.c:510
#define ECPG_INFORMIX_BAD_MONTH
Definition: ecpg_informix.h:20
int dectolong(decimal *np, long *lngp)
Definition: informix.c:458
int risnull(int t, const char *ptr)
Definition: informix.c:1024
#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:1571
void ECPGset_var(int number, void *pointer, int lineno)
Definition: misc.c:526
void PGTYPESdate_today(date *)
Definition: datetime.c:148
int byleng(char *str, int len)
Definition: informix.c:945
int PGTYPEStimestamp_defmt_asc(const char *, const char *, timestamp *)
Definition: timestamp.c:810
int PGTYPESnumeric_to_decimal(numeric *, decimal *)
Definition: numeric.c:1548
static void fmtchar(int value, int leftjust, int minlen, PrintfTarget *target)
Definition: snprintf.c:1099
static int getRightMostDot(const char *str)
Definition: informix.c:725
long date
Definition: pgtypes_date.h:9
int PGTYPESnumeric_from_double(double, numeric *)
Definition: numeric.c:1417
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:168
void PGTYPESnumeric_free(numeric *)
Definition: numeric.c:389
#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:413
int PGTYPESdate_dayofweek(date)
Definition: datetime.c:138
numeric * PGTYPESnumeric_new(void)
Definition: numeric.c:46
static const FormData_pg_attribute a2
Definition: heap.c:165
int decdiv(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:293
char * val_string
Definition: informix.c:669
int rtypalign(int offset, int type)
Definition: informix.c:970
#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:1519
int PGTYPESnumeric_to_int(numeric *, int *)
Definition: numeric.c:1500
int dttofmtasc(timestamp *ts, char *output, int str_len, char *fmtstr)
Definition: informix.c:641
#define CDOUBLETYPE
Definition: sqltypes.h:11
struct sqlca_t * ECPGget_sqlca(void)
Definition: misc.c:141
int PGTYPESnumeric_cmp(numeric *, numeric *)
Definition: numeric.c:1286
void PGTYPEStimestamp_current(timestamp *)
Definition: timestamp.c:294
#define PGTYPES_DATE_ERR_ENOSHORTDATE
Definition: pgtypes_error.h:10
int rtypmsize(int type, int len)
Definition: informix.c:978
int rdayofweek(date d)
Definition: informix.c:579
Definition: sqlca.h:19
char sign
Definition: informix.c:668
int PGTYPESnumeric_div(numeric *, numeric *, numeric *)
Definition: numeric.c:1057
int deccvasc(const char *cp, int len, decimal *np)
Definition: informix.c:179
static int initValue(long lng_val)
Definition: informix.c:677
#define ECPG_INFORMIX_DATE_CONVERT
Definition: ecpg_informix.h:23
int PGTYPESnumeric_from_int(signed int, numeric *)
Definition: numeric.c:1315
void * ECPG_informix_get_var(int number)
Definition: informix.c:1000
#define CDECIMALTYPE
Definition: sqltypes.h:12
#define CLONGTYPE
Definition: sqltypes.h:9
int rgetmsg(int msgnum, char *s, int maxsize)
Definition: informix.c:961
int rdefmtdate(date *d, const char *fmt, const char *str)
Definition: informix.c:528
int dtcvasc(char *str, timestamp *ts)
Definition: informix.c:593
#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:249
int dectoint(decimal *np, int *ip)
Definition: informix.c:434
char * PGTYPESnumeric_to_asc(numeric *, int)
Definition: numeric.c:347
int dttoasc(timestamp *ts, char *output)
Definition: informix.c:631
#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:504
int rfmtlong(long lng_val, const char *fmt, char *outbuf)
Definition: informix.c:743
void ECPG_informix_reset_sqlca(void)
Definition: informix.c:1006
#define ECPG_INFORMIX_BAD_EXPONENT
Definition: ecpg_informix.h:27
numeric * PGTYPESnumeric_from_asc(char *, char **)
Definition: numeric.c:325
#define free(a)
Definition: header.h:65
int maxdigits
Definition: informix.c:665
int decmul(decimal *n1, decimal *n2, decimal *result)
Definition: informix.c:318
int PGTYPESnumeric_to_double(numeric *, double *)
Definition: numeric.c:1489
int rjulmdy(date d, short mdy[3])
Definition: informix.c:516
int rsetnull(int t, char *ptr)
Definition: informix.c:1017
char * PGTYPEStimestamp_to_asc(timestamp)
Definition: timestamp.c:272
#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:625
int PGTYPESnumeric_add(numeric *, numeric *, numeric *)
Definition: numeric.c:641
#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:271
int dectoasc(decimal *np, char *cp, int len, int right)
Definition: informix.c:362
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:994
#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:900
static const FormData_pg_attribute a1
Definition: heap.c:151
int dtcvfmtasc(char *inbuf, char *fmtstr, timestamp *dtvalue)
Definition: informix.c:619
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:769
timestamp PGTYPEStimestamp_from_asc(char *, char **)
Definition: timestamp.c:206
int deccvdbl(double dbl, decimal *np)
Definition: informix.c:227
long val
Definition: informix.c:664
int intoasc(interval *i, char *str)
Definition: informix.c:647
int rmdyjul(short mdy[3], date *d)
Definition: informix.c:567
int digits
Definition: informix.c:666
void rupshift(char *str)
Definition: informix.c:937