Changeset: 68c9be3e85a0 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=68c9be3e85a0
Removed Files:
sql/backends/monet5/sql_cast.sh
Modified Files:
sql/backends/monet5/sql_cast.h
Branch: Jan2014
Log Message:
sql_cast.h: use C macros instead of code-generating shell script
diffs (truncated from 568 to 300 lines):
diff --git a/sql/backends/monet5/sql_cast.h b/sql/backends/monet5/sql_cast.h
--- a/sql/backends/monet5/sql_cast.h
+++ b/sql/backends/monet5/sql_cast.h
@@ -21,448 +21,44 @@
* This file was generated by using the script sql_cast.sh.
*/
-sql5_export str bte_2_bte(bte *res, bte *v);
-sql5_export str batbte_2_bte(int *res, int *v);
+#define CAST_INTEGER_2_NUMERIC_2(T1,T2)
\
+sql5_export str T1##_2_##T2(T2 *res, T1 *v);
\
+sql5_export str bat##T1##_2_##T2(int *res, int *v);
\
+sql5_export str T1##_dec2_##T2(T2 *res, int *s1, T1 *v);
\
+sql5_export str bat##T1##_dec2_##T2(int *res, int *s1, int *v);
\
+sql5_export str T1##_dec2dec_##T2(T2 *res, int *S1, T1 *v, int *d2, int *S2);
\
+sql5_export str bat##T1##_dec2dec_##T2(int *res, int *S1, int *v, int *d2, int
*S2);\
+sql5_export str T1##_num2dec_##T2(T2 *res, T1 *v, int *d2, int *s2);
\
+sql5_export str bat##T1##_num2dec_##T2(int *res, int *v, int *d2, int *s2)
-sql5_export str bte_dec2_bte(bte *res, int *s1, bte *v);
-sql5_export str bte_dec2dec_bte(bte *res, int *S1, bte *v, int *d2, int *S2);
-sql5_export str batbte_dec2_bte(int *res, int *s1, int *v);
-sql5_export str batbte_dec2dec_bte(int *res, int *S1, int *v, int *d2, int
*S2);
+#define CAST_INTEGER_2_NUMERIC_1(T1) \
+CAST_INTEGER_2_NUMERIC_2(T1,bte); \
+CAST_INTEGER_2_NUMERIC_2(T1,sht); \
+CAST_INTEGER_2_NUMERIC_2(T1,int); \
+CAST_INTEGER_2_NUMERIC_2(T1,wrd); \
+CAST_INTEGER_2_NUMERIC_2(T1,lng); \
+CAST_INTEGER_2_NUMERIC_2(T1,flt); \
+CAST_INTEGER_2_NUMERIC_2(T1,dbl)
-sql5_export str bte_num2dec_bte(bte *res, bte *v, int *d2, int *s2);
-sql5_export str batbte_num2dec_bte(int *res, int *v, int *d2, int *s2);
+CAST_INTEGER_2_NUMERIC_1(bte);
+CAST_INTEGER_2_NUMERIC_1(sht);
+CAST_INTEGER_2_NUMERIC_1(int);
+CAST_INTEGER_2_NUMERIC_1(wrd);
+CAST_INTEGER_2_NUMERIC_1(lng);
-sql5_export str bte_2_sht(sht *res, bte *v);
-sql5_export str batbte_2_sht(int *res, int *v);
-sql5_export str bte_dec2_sht(sht *res, int *s1, bte *v);
-sql5_export str bte_dec2dec_sht(sht *res, int *S1, bte *v, int *d2, int *S2);
-sql5_export str batbte_dec2_sht(int *res, int *s1, int *v);
-sql5_export str batbte_dec2dec_sht(int *res, int *S1, int *v, int *d2, int
*S2);
+#define CAST_FLOATINGPOINT_2_INTEGER_2(T1,T2) \
+sql5_export str T1##_2_##T2(T2 *res, T1 *v); \
+sql5_export str bat##T1##_2_##T2(int *res, int *v); \
+sql5_export str T1##_num2dec_##T2(T2 *res, T1 *v, int *d2, int *s2); \
+sql5_export str bat##T1##_num2dec_##T2(int *res, int *v, int *d2, int *s2)
-sql5_export str bte_num2dec_sht(sht *res, bte *v, int *d2, int *s2);
-sql5_export str batbte_num2dec_sht(int *res, int *v, int *d2, int *s2);
+#define CAST_FLOATINGPOINT_2_INTEGER_1(T1) \
+CAST_FLOATINGPOINT_2_INTEGER_2(T1,bte); \
+CAST_FLOATINGPOINT_2_INTEGER_2(T1,sht); \
+CAST_FLOATINGPOINT_2_INTEGER_2(T1,int); \
+CAST_FLOATINGPOINT_2_INTEGER_2(T1,wrd); \
+CAST_FLOATINGPOINT_2_INTEGER_2(T1,lng)
-sql5_export str bte_2_int(int *res, bte *v);
-sql5_export str batbte_2_int(int *res, int *v);
-
-sql5_export str bte_dec2_int(int *res, int *s1, bte *v);
-sql5_export str bte_dec2dec_int(int *res, int *S1, bte *v, int *d2, int *S2);
-sql5_export str batbte_dec2_int(int *res, int *s1, int *v);
-sql5_export str batbte_dec2dec_int(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str bte_num2dec_int(int *res, bte *v, int *d2, int *s2);
-sql5_export str batbte_num2dec_int(int *res, int *v, int *d2, int *s2);
-
-sql5_export str bte_2_wrd(wrd *res, bte *v);
-sql5_export str batbte_2_wrd(int *res, int *v);
-
-sql5_export str bte_dec2_wrd(wrd *res, int *s1, bte *v);
-sql5_export str bte_dec2dec_wrd(wrd *res, int *S1, bte *v, int *d2, int *S2);
-sql5_export str batbte_dec2_wrd(int *res, int *s1, int *v);
-sql5_export str batbte_dec2dec_wrd(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str bte_num2dec_wrd(wrd *res, bte *v, int *d2, int *s2);
-sql5_export str batbte_num2dec_wrd(int *res, int *v, int *d2, int *s2);
-
-sql5_export str bte_2_lng(lng *res, bte *v);
-sql5_export str batbte_2_lng(int *res, int *v);
-
-sql5_export str bte_dec2_lng(lng *res, int *s1, bte *v);
-sql5_export str bte_dec2dec_lng(lng *res, int *S1, bte *v, int *d2, int *S2);
-sql5_export str batbte_dec2_lng(int *res, int *s1, int *v);
-sql5_export str batbte_dec2dec_lng(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str bte_num2dec_lng(lng *res, bte *v, int *d2, int *s2);
-sql5_export str batbte_num2dec_lng(int *res, int *v, int *d2, int *s2);
-
-sql5_export str bte_2_flt(flt *res, bte *v);
-sql5_export str batbte_2_flt(int *res, int *v);
-
-sql5_export str bte_dec2_flt(flt *res, int *s1, bte *v);
-sql5_export str bte_dec2dec_flt(flt *res, int *S1, bte *v, int *d2, int *S2);
-sql5_export str batbte_dec2_flt(int *res, int *s1, int *v);
-sql5_export str batbte_dec2dec_flt(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str bte_num2dec_flt(flt *res, bte *v, int *d2, int *s2);
-sql5_export str batbte_num2dec_flt(int *res, int *v, int *d2, int *s2);
-
-sql5_export str bte_2_dbl(dbl *res, bte *v);
-sql5_export str batbte_2_dbl(int *res, int *v);
-
-sql5_export str bte_dec2_dbl(dbl *res, int *s1, bte *v);
-sql5_export str bte_dec2dec_dbl(dbl *res, int *S1, bte *v, int *d2, int *S2);
-sql5_export str batbte_dec2_dbl(int *res, int *s1, int *v);
-sql5_export str batbte_dec2dec_dbl(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str bte_num2dec_dbl(dbl *res, bte *v, int *d2, int *s2);
-sql5_export str batbte_num2dec_dbl(int *res, int *v, int *d2, int *s2);
-
-sql5_export str sht_2_bte(bte *res, sht *v);
-sql5_export str batsht_2_bte(int *res, int *v);
-
-sql5_export str sht_dec2_bte(bte *res, int *s1, sht *v);
-sql5_export str sht_dec2dec_bte(bte *res, int *S1, sht *v, int *d2, int *S2);
-sql5_export str batsht_dec2_bte(int *res, int *s1, int *v);
-sql5_export str batsht_dec2dec_bte(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str sht_num2dec_bte(bte *res, sht *v, int *d2, int *s2);
-sql5_export str batsht_num2dec_bte(int *res, int *v, int *d2, int *s2);
-
-sql5_export str sht_2_sht(sht *res, sht *v);
-sql5_export str batsht_2_sht(int *res, int *v);
-
-sql5_export str sht_dec2_sht(sht *res, int *s1, sht *v);
-sql5_export str sht_dec2dec_sht(sht *res, int *S1, sht *v, int *d2, int *S2);
-sql5_export str batsht_dec2_sht(int *res, int *s1, int *v);
-sql5_export str batsht_dec2dec_sht(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str sht_num2dec_sht(sht *res, sht *v, int *d2, int *s2);
-sql5_export str batsht_num2dec_sht(int *res, int *v, int *d2, int *s2);
-
-sql5_export str sht_2_int(int *res, sht *v);
-sql5_export str batsht_2_int(int *res, int *v);
-
-sql5_export str sht_dec2_int(int *res, int *s1, sht *v);
-sql5_export str sht_dec2dec_int(int *res, int *S1, sht *v, int *d2, int *S2);
-sql5_export str batsht_dec2_int(int *res, int *s1, int *v);
-sql5_export str batsht_dec2dec_int(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str sht_num2dec_int(int *res, sht *v, int *d2, int *s2);
-sql5_export str batsht_num2dec_int(int *res, int *v, int *d2, int *s2);
-
-sql5_export str sht_2_wrd(wrd *res, sht *v);
-sql5_export str batsht_2_wrd(int *res, int *v);
-
-sql5_export str sht_dec2_wrd(wrd *res, int *s1, sht *v);
-sql5_export str sht_dec2dec_wrd(wrd *res, int *S1, sht *v, int *d2, int *S2);
-sql5_export str batsht_dec2_wrd(int *res, int *s1, int *v);
-sql5_export str batsht_dec2dec_wrd(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str sht_num2dec_wrd(wrd *res, sht *v, int *d2, int *s2);
-sql5_export str batsht_num2dec_wrd(int *res, int *v, int *d2, int *s2);
-
-sql5_export str sht_2_lng(lng *res, sht *v);
-sql5_export str batsht_2_lng(int *res, int *v);
-
-sql5_export str sht_dec2_lng(lng *res, int *s1, sht *v);
-sql5_export str sht_dec2dec_lng(lng *res, int *S1, sht *v, int *d2, int *S2);
-sql5_export str batsht_dec2_lng(int *res, int *s1, int *v);
-sql5_export str batsht_dec2dec_lng(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str sht_num2dec_lng(lng *res, sht *v, int *d2, int *s2);
-sql5_export str batsht_num2dec_lng(int *res, int *v, int *d2, int *s2);
-
-sql5_export str sht_2_flt(flt *res, sht *v);
-sql5_export str batsht_2_flt(int *res, int *v);
-
-sql5_export str sht_dec2_flt(flt *res, int *s1, sht *v);
-sql5_export str sht_dec2dec_flt(flt *res, int *S1, sht *v, int *d2, int *S2);
-sql5_export str batsht_dec2_flt(int *res, int *s1, int *v);
-sql5_export str batsht_dec2dec_flt(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str sht_num2dec_flt(flt *res, sht *v, int *d2, int *s2);
-sql5_export str batsht_num2dec_flt(int *res, int *v, int *d2, int *s2);
-
-sql5_export str sht_2_dbl(dbl *res, sht *v);
-sql5_export str batsht_2_dbl(int *res, int *v);
-
-sql5_export str sht_dec2_dbl(dbl *res, int *s1, sht *v);
-sql5_export str sht_dec2dec_dbl(dbl *res, int *S1, sht *v, int *d2, int *S2);
-sql5_export str batsht_dec2_dbl(int *res, int *s1, int *v);
-sql5_export str batsht_dec2dec_dbl(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str sht_num2dec_dbl(dbl *res, sht *v, int *d2, int *s2);
-sql5_export str batsht_num2dec_dbl(int *res, int *v, int *d2, int *s2);
-
-sql5_export str int_2_bte(bte *res, int *v);
-sql5_export str batint_2_bte(int *res, int *v);
-
-sql5_export str int_dec2_bte(bte *res, int *s1, int *v);
-sql5_export str int_dec2dec_bte(bte *res, int *S1, int *v, int *d2, int *S2);
-sql5_export str batint_dec2_bte(int *res, int *s1, int *v);
-sql5_export str batint_dec2dec_bte(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str int_num2dec_bte(bte *res, int *v, int *d2, int *s2);
-sql5_export str batint_num2dec_bte(int *res, int *v, int *d2, int *s2);
-
-sql5_export str int_2_sht(sht *res, int *v);
-sql5_export str batint_2_sht(int *res, int *v);
-
-sql5_export str int_dec2_sht(sht *res, int *s1, int *v);
-sql5_export str int_dec2dec_sht(sht *res, int *S1, int *v, int *d2, int *S2);
-sql5_export str batint_dec2_sht(int *res, int *s1, int *v);
-sql5_export str batint_dec2dec_sht(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str int_num2dec_sht(sht *res, int *v, int *d2, int *s2);
-sql5_export str batint_num2dec_sht(int *res, int *v, int *d2, int *s2);
-
-sql5_export str int_2_int(int *res, int *v);
-sql5_export str batint_2_int(int *res, int *v);
-
-sql5_export str int_dec2_int(int *res, int *s1, int *v);
-sql5_export str int_dec2dec_int(int *res, int *S1, int *v, int *d2, int *S2);
-sql5_export str batint_dec2_int(int *res, int *s1, int *v);
-sql5_export str batint_dec2dec_int(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str int_num2dec_int(int *res, int *v, int *d2, int *s2);
-sql5_export str batint_num2dec_int(int *res, int *v, int *d2, int *s2);
-
-sql5_export str int_2_wrd(wrd *res, int *v);
-sql5_export str batint_2_wrd(int *res, int *v);
-
-sql5_export str int_dec2_wrd(wrd *res, int *s1, int *v);
-sql5_export str int_dec2dec_wrd(wrd *res, int *S1, int *v, int *d2, int *S2);
-sql5_export str batint_dec2_wrd(int *res, int *s1, int *v);
-sql5_export str batint_dec2dec_wrd(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str int_num2dec_wrd(wrd *res, int *v, int *d2, int *s2);
-sql5_export str batint_num2dec_wrd(int *res, int *v, int *d2, int *s2);
-
-sql5_export str int_2_lng(lng *res, int *v);
-sql5_export str batint_2_lng(int *res, int *v);
-
-sql5_export str int_dec2_lng(lng *res, int *s1, int *v);
-sql5_export str int_dec2dec_lng(lng *res, int *S1, int *v, int *d2, int *S2);
-sql5_export str batint_dec2_lng(int *res, int *s1, int *v);
-sql5_export str batint_dec2dec_lng(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str int_num2dec_lng(lng *res, int *v, int *d2, int *s2);
-sql5_export str batint_num2dec_lng(int *res, int *v, int *d2, int *s2);
-
-sql5_export str int_2_flt(flt *res, int *v);
-sql5_export str batint_2_flt(int *res, int *v);
-
-sql5_export str int_dec2_flt(flt *res, int *s1, int *v);
-sql5_export str int_dec2dec_flt(flt *res, int *S1, int *v, int *d2, int *S2);
-sql5_export str batint_dec2_flt(int *res, int *s1, int *v);
-sql5_export str batint_dec2dec_flt(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str int_num2dec_flt(flt *res, int *v, int *d2, int *s2);
-sql5_export str batint_num2dec_flt(int *res, int *v, int *d2, int *s2);
-
-sql5_export str int_2_dbl(dbl *res, int *v);
-sql5_export str batint_2_dbl(int *res, int *v);
-
-sql5_export str int_dec2_dbl(dbl *res, int *s1, int *v);
-sql5_export str int_dec2dec_dbl(dbl *res, int *S1, int *v, int *d2, int *S2);
-sql5_export str batint_dec2_dbl(int *res, int *s1, int *v);
-sql5_export str batint_dec2dec_dbl(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str int_num2dec_dbl(dbl *res, int *v, int *d2, int *s2);
-sql5_export str batint_num2dec_dbl(int *res, int *v, int *d2, int *s2);
-
-sql5_export str wrd_2_bte(bte *res, wrd *v);
-sql5_export str batwrd_2_bte(int *res, int *v);
-
-sql5_export str wrd_dec2_bte(bte *res, int *s1, wrd *v);
-sql5_export str wrd_dec2dec_bte(bte *res, int *S1, wrd *v, int *d2, int *S2);
-sql5_export str batwrd_dec2_bte(int *res, int *s1, int *v);
-sql5_export str batwrd_dec2dec_bte(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str wrd_num2dec_bte(bte *res, wrd *v, int *d2, int *s2);
-sql5_export str batwrd_num2dec_bte(int *res, int *v, int *d2, int *s2);
-
-sql5_export str wrd_2_sht(sht *res, wrd *v);
-sql5_export str batwrd_2_sht(int *res, int *v);
-
-sql5_export str wrd_dec2_sht(sht *res, int *s1, wrd *v);
-sql5_export str wrd_dec2dec_sht(sht *res, int *S1, wrd *v, int *d2, int *S2);
-sql5_export str batwrd_dec2_sht(int *res, int *s1, int *v);
-sql5_export str batwrd_dec2dec_sht(int *res, int *S1, int *v, int *d2, int
*S2);
-
-sql5_export str wrd_num2dec_sht(sht *res, wrd *v, int *d2, int *s2);
-sql5_export str batwrd_num2dec_sht(int *res, int *v, int *d2, int *s2);
-
-sql5_export str wrd_2_int(int *res, wrd *v);
-sql5_export str batwrd_2_int(int *res, int *v);
-
-sql5_export str wrd_dec2_int(int *res, int *s1, wrd *v);
-sql5_export str wrd_dec2dec_int(int *res, int *S1, wrd *v, int *d2, int *S2);
-sql5_export str batwrd_dec2_int(int *res, int *s1, int *v);
-sql5_export str batwrd_dec2dec_int(int *res, int *S1, int *v, int *d2, int
*S2);
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
