remove unlink files

14 files changed, 0 insertions, 643 deletions

diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabsa.c
deleted file mode 100644
index f4005a33..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabsa.c
+++ /dev/null
@@ -1,21 +0,0 @@
-/*
-**  -*- C -*-
-**
-** cabsa.c
-** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
-**
-** Started on  Wed Apr 25 13:23:20 2007 jofret
-** Last update Mon Oct 22 10:46:16 2007 bruno
-**
-** Copyright INRIA 2007
-*/
-
-#include "abs.h"
-
-
-void	cabsa(floatComplex *in, int size, float* out) {
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    out[i] = cabss(in[i]);
-  }
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabss.c
deleted file mode 100644
index 8cd766df..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cabss.c
+++ /dev/null
@@ -1,30 +0,0 @@
-/*
- *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- *  Copyright (C) 2008-2008 - INRIA - Bruno JOFRET
- *
- *  This file must be used under the terms of the CeCILL.
- *  This source file is licensed as described in the file COPYING, which
- *  you should have received as part of this distribution.  The terms
- *  are also available at
- *  http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-
-#include "abs.h"
-#include "sqrt.h"
-#include "max.h"
-#include "min.h"
-
-float cabss(floatComplex in) {
-  float real = sabss(creals(in));
-  float imag = sabss(cimags(in));
-  float zMax = max(real, imag);
-  float zMin = min(real, imag);
-
-  if(zMin == 0)
-    {
-      return zMax;
-    }
-  return zMax * (ssqrts(1 + (zMin / zMax) * (zMin / zMax)));
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c
deleted file mode 100644
index 78fbfa76..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/conj.c
+++ /dev/null
@@ -1,45 +0,0 @@
-/*
-**  -*- C -*-
-**
-** 
-** Made by  Raffaele.Nutricato@tiscali.it
-**
-** Copyright Raffaele Nutricato
-*/
-
-#include "conj.h"
-
-
-floatComplex c0conjc0(floatComplex in)
-{
-   floatComplex out;
-   out = FloatComplex(creals(in),-cimags(in));
-   return (out);
-}
-
-doubleComplex z0conjz0(doubleComplex in)
-{
-   doubleComplex out;
-   out = DoubleComplex(zreals(in),-zimags(in));
-   return (out);
-}
-
-void c2conjc2(floatComplex* in, int* insize, floatComplex* out)
-{
-   int i;
-   
-   for (i=0;i<insize[0]*insize[1];i++)
-   {
-      out[i] = FloatComplex(creals(in[i]),-cimags(in[i]));
-   }
-}
-
-void z2conjz2(doubleComplex* in, int* insize, doubleComplex* out)
-{
-   int i;
-   
-   for (i=0;i<insize[0]*insize[1];i++)
-   {
-      out[i] = DoubleComplex(zreals(in[i]),-zimags(in[i]));
-   }
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cos.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cos.c
deleted file mode 100644
index 51c88c0c..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cos.c
+++ /dev/null
@@ -1,62 +0,0 @@
-#include <math.h>
-#include "cos.h"
-
-float		scoss(float x) {
-  return (cos(x));
-}
-

-double dcoss(double x) {
-  return (cos(x));
-}
-

-floatComplex ccoss(floatComplex z) 
-{
-  float real = creals(z);
-  float imag = cimags(z);
-
-  return FloatComplex(scoss(real) * scoshs(imag),
-		      -ssins(real) * ssinhs(imag));
-}
-
-doubleComplex zcoss(doubleComplex z) 
-{
-  double real = zreals(z);
-  double imag = zimags(z);
-
-  return DoubleComplex(dcoss(real) * dcoshs(imag),
-		      -dsins(real) * dsinhs(imag));
-}
-
-void scosa(float* x, int size, float* y) 
-{
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = scoss(x[i]);
-  }
-}
-

-void dcosa(double* x, int size, double* y) 
-{
-   int i = 0;
-   for (i = 0; i < size; ++i) 
-   {
-      y[i] = dcoss(x[i]);
-   }
-}
-
-void ccosa(floatComplex* x, int size, floatComplex* y) 
-{
-  int i = 0;
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = ccoss(x[i]);
-  }
-}
-
-void zcosa(doubleComplex* x, int size, doubleComplex* y) 
-{
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = zcoss(x[i]);
-  }
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cosh.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cosh.c
deleted file mode 100644
index 0fd7db55..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cosh.c
+++ /dev/null
@@ -1,40 +0,0 @@
-#include <math.h>
-#include "cosh.h"
-#include "cos.h"
-
-
-void zcosha(doubleComplex* x, int size, doubleComplex* y) {
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = zcoshs(x[i]);
-  }
-}
-
-float		scoshs(float x) {
-  return (cosh(x));
-}
-
-void scosha(float* x, int size, float* y) {
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = scoshs(x[i]);
-  }
-}
-
-double	       dcoshs(double x) {
-  return (cosh(x));
-}
-
-void dcosha(double* x, int size, double* y) {
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = dcoshs(x[i]);
-  }
-}
-
-doubleComplex		zcoshs(doubleComplex z) {
-  double real = zreals(z);
-  double minusImag = -zimags(z);
-
-  return (zcoss(DoubleComplex(minusImag, real)));
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabsa.c
deleted file mode 100644
index 5081fa25..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabsa.c
+++ /dev/null
@@ -1,20 +0,0 @@
-/*
-**  -*- C -*-
-**
-** dabsa.c
-** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
-**
-** Started on  Wed Apr 25 11:17:25 2007 jofret
-** Last update Mon Oct 22 10:45:56 2007 bruno
-**
-** Copyright INRIA 2007
-*/
-
-#include "abs.h"
-
-void	dabsa(double *in, int size, double* out){
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    out[i] = dabss(in[i]);
-  }
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabss.c
deleted file mode 100644
index 16f04773..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dabss.c
+++ /dev/null
@@ -1,20 +0,0 @@
-/*
-**  -*- C -*-
-**
-** sabss.c
-** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
-**
-** Started on  Thu Feb  8 10:26:22 2007 jofret
-** Last update Fri Apr 20 15:56:25 2007 jofret
-**
-** Copyright INRIA 2007
-*/
-
-#include "abs.h"
-
-double dabss(double num) {
-  if (num >= 0) {
-    return num;
-  }
-  return -num;
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/disp.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/disp.c
deleted file mode 100644
index 4cb7b154..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/disp.c
+++ /dev/null
@@ -1,194 +0,0 @@
-#include "disp.h"

-

-                            /* =================================

-                             =================================

-                             === SCILAB 2 C Debug Library. ===

-                             =================================

-                             =================================

-                             */

-/*~ double ddisps1 (double invar)

-{

-   char* invarname = "ans";

-   printf("\n%s: %f\n",invarname,invar);

-   return 0;

-}

-*/

-

-

-double sdisps2 (float invar,char* invarname)

-{

-   printf("\n%s: %g\n",invarname,invar);

-   return 0;

-}

-

-double ddisps2 (double invar,char* invarname)

-{

-   printf("\n%s: %g\n",invarname,invar);

-   return 0;

-}

-

-double cdisps2 (floatComplex invar,char* invarname)

-{

-   printf("\n%s: (%g,%g)\n",invarname,creals(invar),cimags(invar));

-   return 0;

-}

-

-double zdisps2 (doubleComplex invar,char* invarname)

-{

-   printf("\n%s: (%g,%g)\n",invarname,zreals(invar),zimags(invar));

-   return 0;

-}

-

-double g0dispd0(char array)

-{

-   /*int counterrows;*/

-   /*int countercols;*/

-   /*

-	//~ printf("\n");

-	//~ printf("\n%s:\n",arrayname);

-   */

-   printf("\n");

-   printf("%c",array);

-   printf("\n");

-   return 0;

-}

-/*

-double ddispa1(double *array,int* tmparraysize)

-{

-   char* arrayname = "ans";

-   int counterrows ;

-   int countercols ;

-   

-	printf("\n========================================================");

-	printf("\n%s:\n",arrayname);

-	for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)

-	{

-      for(countercols = 0; countercols < tmparraysize[1]; countercols++)

-      {

-			printf("\t[%d,%d]:%f",counterrows,countercols,array[counterrows*tmparraysize[0]+countercols]);

-      }

-      printf("\n");

-   }

-	printf("\n========================================================\n");

-   return 0;

-}

-*/

-

-double sdispa2(float *array,int* tmparraysize,char* arrayname)

-{

-   int counterrows ;

-   int countercols ;

-   

-	printf("\n========================================================");

-	printf("\n%s:\n",arrayname);

-	for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)

-	{

-      for(countercols = 0; countercols < tmparraysize[1]; countercols++)

-      {

-			printf("  [%d,%d]:%g",counterrows+1,countercols+1,array[counterrows*tmparraysize[1]+countercols]);

-      }

-      printf("\n");

-   }

-	printf("\n========================================================\n");

-   return 0;

-}

-

-double ddispa2(double *array,int* tmparraysize,char* arrayname)

-{

-   int counterrows ;

-   int countercols ;

-   

-	printf("\n========================================================");

-	printf("\n%s:\n",arrayname);

-	for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)

-	{

-      for(countercols = 0; countercols < tmparraysize[1]; countercols++)

-      {

-			printf("  [%d,%d]:%g",counterrows+1,countercols+1,array[counterrows*tmparraysize[1]+countercols]);

-      }

-      printf("\n");

-   }

-	printf("\n========================================================\n");

-   return 0;

-}

-

-

-double cdispa2(floatComplex *array,int* tmparraysize,char* arrayname)

-{

-   int counterrows ;

-   int countercols ;

-   

-	printf("\n========================================================");

-	printf("\n%s:\n",arrayname);

-	for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)

-	{

-      for(countercols = 0; countercols < tmparraysize[1]; countercols++)

-      {

-			printf("  [%d,%d]:(%g,%g)",counterrows+1,countercols+1,

-            creals(array[counterrows*tmparraysize[1]+countercols]),

-            cimags(array[counterrows*tmparraysize[1]+countercols]));

-      }

-      printf("\n");

-   }

-	printf("\n========================================================\n");

-   return 0;

-}

-

-double zdispa2(doubleComplex *array,int* tmparraysize,char* arrayname)

-{

-   int counterrows ;

-   int countercols ;

-   

-	printf("\n========================================================");

-	printf("\n%s:\n",arrayname);

-	for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)

-	{

-      for(countercols = 0; countercols < tmparraysize[1]; countercols++)

-      {

-			printf("  [%d,%d]:(%g,%g)",counterrows+1,countercols+1,

-            zreals(array[counterrows*tmparraysize[1]+countercols]),

-            zimags(array[counterrows*tmparraysize[1]+countercols]));

-      }

-      printf("\n");

-   }

-	printf("\n========================================================\n");

-   return 0;

-}

-

-double idispa2(int *array,int* tmparraysize,char* arrayname)

-{

-   int counterrows ;

-   int countercols ;

-   

-	printf("\n========================================================");

-	printf("\n%s:\n",arrayname);

-	for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)

-	{

-      for(countercols = 0; countercols < tmparraysize[1]; countercols++)

-      {

-			printf("  [%d,%d]:%d",counterrows+1,countercols+1,array[counterrows*tmparraysize[1]+countercols]);

-      }

-      printf("\n");

-   }

-	printf("\n========================================================\n");

-   return 0;

-}

-

-double g2dispd0(char *array,int* tmparraysize)

-{

-   int counterrows;

-   /*int countercols;*/

-   /*

-	//~ printf("\n");

-	//~ printf("\n%s:\n",arrayname);

-   */

-	for(counterrows = 0; counterrows < tmparraysize[0]; counterrows++)

-	{

-      printf("\n");

-      printf("%s",array);

-      printf("\n");

-   }

-   return 0;

-}

-

-

diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c
deleted file mode 100644
index afa2e3cb..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c
+++ /dev/null
@@ -1,21 +0,0 @@
-/*
-**  -*- C -*-
-**
-** sabsa.c
-** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
-**
-** Started on  Wed Apr 25 10:53:09 2007 jofret
-** Last update Mon Oct 22 10:45:22 2007 bruno
-**
-** Copyright INRIA 2007
-*/
-
-#include "abs.h"
-
-void	sabsa(float *in, int size, float* out) {
-  int i = 0;
-  
-  for (i = 0; i < size; ++i) {
-    out[i] = sabss(in[i]);
-  }
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabss.c
deleted file mode 100644
index e567b210..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabss.c
+++ /dev/null
@@ -1,20 +0,0 @@
-/*
-**  -*- C -*-
-**
-** sabss.c
-** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
-**
-** Started on  Thu Feb  8 10:26:22 2007 jofret
-** Last update Fri Apr 20 15:56:37 2007 jofret
-**
-** Copyright INRIA 2007
-*/
-
-#include "abs.h"
-
-float sabss(float num) {
-  if (num >= 0) {
-    return num;
-  }
-  return -num;
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sin.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sin.c
deleted file mode 100644
index 748bd338..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sin.c
+++ /dev/null
@@ -1,61 +0,0 @@
-#include <math.h>
-#include "sin.h"
-
-float		ssins(float x) {
-  return (sin(x));
-}
-

-double dsins(double x) {
-  return (sin(x));
-}
-
-floatComplex	csins(floatComplex z) 
-{
-  float real = creals(z);
-  float imag = cimags(z);
-
-  return(FloatComplex(ssins(real) * scoshs(imag), scoss(real) * ssinhs(imag)));
-}
-
-doubleComplex	zsins(doubleComplex z) 
-{
-  double real = zreals(z);
-  double imag = zimags(z);
-
-  return(DoubleComplex(dsins(real) * dcoshs(imag), dcoss(real) * dsinhs(imag)));
-}
-
-

-void ssina(float* x, int size, float* y) {
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = ssins(x[i]);
-  }
-}
-

-void dsina(double* x, int size, double* y) {
-  int i = 0;
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = dsins(x[i]);
-  }
-}
-
-void csina(floatComplex* x, int size, floatComplex* y) 
-{
-  int i = 0;
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = csins(x[i]);
-  }
-}
-
-void zsina(doubleComplex* x, int size, doubleComplex* y) 
-{
-  int i = 0;
-  for (i = 0; i < size; ++i) 
-  {
-    y[i] = zsins(x[i]);
-  }
-}
-
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sinh.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sinh.c
deleted file mode 100644
index dbdf7ee9..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sinh.c
+++ /dev/null
@@ -1,58 +0,0 @@
-#include <math.h>
-#include "sinh.h"
-#include "sin.h"
-
-float ssinhs(float x) {
-  return (sinh(x));
-}
-
-double dsinhs(double x) {
-  return (sinh(x));
-}
-
-floatComplex csinhs(floatComplex z) 
-{
-  float real = creals(z);
-  float imag = cimags(z);
-
-  floatComplex result = csins(FloatComplex(-imag, real));
-  return (FloatComplex(cimags(result), -creals(result)));
-}
-
-doubleComplex	zsinhs(doubleComplex z) {
-  double real = zreals(z);
-  double imag = zimags(z);
-
-  doubleComplex result = zsins(DoubleComplex(-imag, real));
-  return (DoubleComplex(zimags(result), -zreals(result)));
-}
-
-void ssinha(float* x, int size, float* y) {
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = ssinhs(x[i]);
-  }
-}
-
-void dsinha(double* x, int size, double* y) {
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = dsinhs(x[i]);
-  }
-}
-
-void csinha(floatComplex* x, int size, floatComplex* y) 
-{
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = csinhs(x[i]);
-  }
-}
-
-void zsinha(doubleComplex* x, int size, doubleComplex* y) {
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    y[i] = zsinhs(x[i]);
-  }
-}
-
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabsa.c
deleted file mode 100644
index 56b24ce9..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabsa.c
+++ /dev/null
@@ -1,20 +0,0 @@
-/*
-**  -*- C -*-
-**
-** zabsa.c
-** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
-**
-** Started on  Wed Apr 25 13:24:43 2007 jofret
-** Last update Mon Oct 22 10:47:00 2007 bruno
-**
-** Copyright INRIA 2007
-*/
-
-#include "abs.h"
-
-void	zabsa(doubleComplex *in, int size, double* out) {
-  int i = 0;
-  for (i = 0; i < size; ++i) {
-    out[i] = zabss(in[i]);
-  }
-}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabss.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabss.c
deleted file mode 100644
index 4e7b4dd3..00000000
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zabss.c
+++ /dev/null
@@ -1,31 +0,0 @@
-/*
- *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- *  Copyright (C) 2007-2008 - INRIA - Bruno JOFRET
- *
- *  This file must be used under the terms of the CeCILL.
- *  This source file is licensed as described in the file COPYING, which
- *  you should have received as part of this distribution.  The terms
- *  are also available at
- *  http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- */
-
-#include <math.h>
-
-#include "abs.h"
-#include "sqrt.h"
-#include "max.h"
-#include "min.h"
-
-double zabss(doubleComplex in) {
-  double real = dabss(zreals(in));
-  double imag = dabss(zimags(in));
-  double zMax = max(real, imag);
-  double zMin = min(real, imag);
-
-  if(zMin == 0)
-    {
-      return zMax;
-    }
-  return zMax * (dsqrts(1 + (zMin / zMax) * (zMin / zMax)));
-}