Scilab [trunk]: scilab/modules/integer/src/c/genconcatrow.c Source File

00001 #include "machine.h"
00002 typedef signed char integer1;
00003 typedef short integer2;
00004 /*     Copyright INRIA */
00005 #define RCONC(Type) {\
00006 Type *X1;\
00007 Type *X2;\
00008     X1=(Type *)x1;\
00009     --X1;\
00010     X1 +=(*m1)*(*n1);\
00011     X2=(Type *)x2;\
00012     --X2;\
00013        for (i = 1; i <= (*m2)*(*n2); ++i) \
00014          X1[i] = X2[i];}
00015 
00016 
00017 int C2F(genconcatrow)(typ,x1,m1,n1,x2,m2,n2)
00018 integer *m1, *n1, *m2, *n2;
00019 integer *x1, *x2;
00020 integer *typ;
00021 {
00022   static integer i;
00023   switch (*typ) {
00024   case 1:
00025     RCONC(integer1);
00026     break;
00027   case 2:
00028     RCONC(integer2);
00029     break;
00030   case 4:
00031     RCONC(integer);
00032     break;
00033   case 11:
00034     RCONC(unsigned char);
00035     break;
00036   case 12:
00037     RCONC(unsigned short);
00038     break;
00039   case 14:
00040     RCONC(unsigned int);
00041     break;
00042   }
00043   return 0;
00044 }