test_foreign.c
Go to the documentation of this file.
00001 #include <stdio.h>
00002 #include <unistd.h>
00003 
00004 int float_test(int n, float f1, float f2, float f3, float f4) {
00005   unsigned int ui;
00006 
00007   //printf("float_test in c\n");
00008   ui = *((unsigned int *)(&f1));
00009   printf("%d: %8.8e %X\n", n, f1, ui);
00010   ui = *((unsigned int *)(&f2));
00011   printf("%d: %8.8e %X\n", n, f2, ui);
00012   ui = *((unsigned int *)(&f3));
00013   printf("%d: %8.8e %X\n", n, f3, ui);
00014   ui = *((unsigned int *)(&f4));
00015   printf("%d: %8.8e %X\n", n, f4, ui);
00016 
00017   return -1;
00018 }
00019 
00020 int double_test(long n, double d1, double d2, double d3, double d4) {
00021   unsigned long ul;
00022 
00023   //printf("double_test in c\n");
00024   ul = *((unsigned long *)(&d1));
00025   printf("%ld: %16.16e %lX\n", n, d1, ul);
00026   ul = *((unsigned long *)(&d2));
00027   printf("%ld: %16.16e %lX\n", n, d2, ul);
00028   ul = *((unsigned long *)(&d3));
00029   printf("%ld: %16.16e %lX\n", n, d3, ul);
00030   ul = *((unsigned long *)(&d4));
00031   printf("%ld: %16.16e %lX\n", n, d4, ul);
00032 
00033   return -1;
00034 }
00035 
00036 int iv_test(int n, int *src) {
00037   int i;
00038   unsigned int *ui;
00039   printf("size = %d\n", n);
00040   for(i=0;i<n ;i++){
00041     ui = (unsigned int *)(&(src[i]));
00042     printf("%d: %d %X\n", i, src[i], *ui);
00043   }
00044   return -1;
00045 }
00046 
00047 int lv_test(int n, long *src) {
00048   int i;
00049   unsigned long *ul;
00050   printf("size = %d\n", n);
00051   for(i=0;i<n ;i++){
00052     ul = (unsigned long *)(&(src[i]));
00053     printf("%d: %ld %lX\n", i, src[i], *ul);
00054   }
00055   return -1;
00056 }
00057 
00058 int fv_test(int n, float *src) {
00059   int i;
00060   unsigned int *ui;
00061   printf("size = %d\n", n);
00062   for(i=0;i<n ;i++){
00063     ui = (unsigned int *)(&(src[i]));
00064     printf("%d: %e %X\n", i, src[i], *ui);
00065   }
00066   return -1;
00067 }
00068 
00069 int dv_test(int n, double *src) {
00070   int i;
00071   unsigned long *ul;
00072   printf("size = %d\n", n);
00073   for(i=0;i<n ;i++){
00074     ul = (unsigned long *)(&(src[i]));
00075     printf("%d: %e %lX\n", i, src[i], *ul);
00076   }
00077   return -1;
00078 }
00079 
00080 int str_test(int n, char *src) {
00081   int i;
00082   printf("size = %d\n", n);
00083   for(i=0;i<n ;i++){
00084     printf("%d: %c %x\n", i, src[i], src[i]);
00085   }
00086   return -1;
00087 }
00088 
00089 int int_test(long l, int i, short s) {
00090   printf("long  = %ld(%lX)\n",l,l);
00091   printf("int   = %d(%X)\n",i,i);
00092   printf("short = %d(%X)\n",s,s);
00093   
00094   return l + i + s;
00095 }
00096 
00097 float ret_float(double a, double b) {
00098   float ret = (float) (a + b);
00099   unsigned int *ui;
00100   ui = (unsigned int *)&ret;
00101   printf("// return %e, %X\n", ret, *ui);
00102   return ret;
00103 }
00104 
00105 double ret_double(double a, double b) {
00106   double ret = (a + b);
00107   unsigned long *ul;
00108   ul = (unsigned long *)&ret;
00109   printf("// return %e, %lX\n", ret, *ul);
00110   return ret;
00111 }
00112 
00113 long ret_long(long a, long b) {
00114   long ret = a + b;
00115   unsigned long *ul;
00116   ul = (unsigned long *)&ret;
00117   printf("// return %ld, %lX\n", ret, *ul);
00118   return ret;
00119 }
00120 
00121 double test_testd(long i0, long i1, long i2,
00122                   long i3, long i4, long i5, 
00123                   double d0, double d1, double d2, double d3,
00124                   double d4, double d5, double d6, double d7,
00125                   double d8, double d9,
00126                   long i6, long i7) {
00127   printf("%ld %ld %ld\n", i0, i1, i2);
00128   printf("%ld %ld %ld\n", i3, i4, i5);
00129   //printf("%ld %ld %ld %ld\n",
00130   //(long)d0, (long)d1, (long)d2, (long)d3);
00131   printf("%lf %lf %lf %lf\n", d0, d1, d2, d3);
00132   printf("%lf %lf %lf %lf\n", d4, d5, d6, d7);
00133   printf("%lf %lf\n", d8, d9);
00134   printf("%ld %ld\n", i6, i7);
00135   
00136   //return 0x1234;
00137   return 1.23456;
00138 }
00139 double test_testd2(long i0, long i1, long i2,
00140                    long i3, long i4, long i5, 
00141                    double d0, double d1, double d2, double d3,
00142                    double d4, double d5, double d6, double d7,
00143                    double d8, double d9, double d10,
00144                    long i6, long i7) {
00145   printf("%ld %ld %ld\n", i0, i1, i2);
00146   printf("%ld %ld %ld\n", i3, i4, i5);
00147   //printf("%ld %ld %ld %ld\n",
00148   //(long)d0, (long)d1, (long)d2, (long)d3);
00149   printf("%lf %lf %lf %lf\n", d0, d1, d2, d3);
00150   printf("%lf %lf %lf %lf\n", d4, d5, d6, d7);
00151   printf("%lf %lf %lf\n", d8, d9, d10);
00152   printf("%ld %ld\n", i6, i7);
00153   
00154   //return 0x1234;
00155   return 1.23456;
00156 }
00157 
00158 static long (*g)();
00159 static double (*gf) (long i0, long i1, long i2,
00160                      long i3, long i4, long i5, 
00161                      double d0, double d1, double d2, double d3,
00162                      double d4, double d5, double d6, double d7,
00163                      double d8, double d9,
00164                      long i6, long i7);
00165 
00166 long set_ifunc(long (*f) ())
00167 {
00168   g = f;
00169   printf("set_ifunc, g = %lX\n", g);
00170 }
00171 
00172 long set_ffunc(double (*f) ())
00173 {
00174   gf = (double (*) (long i0, long i1, long i2,
00175                     long i3, long i4, long i5, 
00176                     double d0, double d1, double d2, double d3,
00177                     double d4, double d5, double d6, double d7,
00178                     double d8, double d9,
00179                     long i6, long i7))f;
00180   printf("set_ffunc, gf = %lX\n", gf);
00181 }
00182 
00183 long call_ifunc() {
00184   printf("call_ifunc, g = %lX\n", g);
00185   return g();
00186 }
00187 
00188 double call_ffunc() {
00189   printf("call_ffunc, gf = %lX\n", gf);
00190   return gf(100,101,102,
00191             103,104,105,
00192             1000.0, 1010.0, 1020.0, 1030.0,
00193             1040.0, 1050.0, 1060.0, 1070.0,
00194             2080.0, 2090.0,
00195             206, 207);
00196 }
00197 
00198 long get_size_of_pointer() {
00199   return (sizeof(void *));
00200 }
00201 
00202 long get_size_of_float32() {
00203   return (sizeof(float));
00204 }
00205 
00206 long get_size_of_double() {
00207   return (sizeof(double));
00208 }
00209 
00210 long get_size_of_long() {
00211   return (sizeof(long));
00212 }
00213 
00214 long get_size_of_int() {
00215   return (sizeof(int));
00216 }


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Mar 9 2017 04:57:50