diff options
| author | nutricato | 2008-05-14 08:39:04 +0000 |
|---|---|---|
| committer | nutricato | 2008-05-14 08:39:04 +0000 |
| commit | fdc8b105fa81086448f06132dd5a660c6907a053 (patch) | |
| tree | 53b75c12ef45ad0fac0946880a88b4b422087fb1 /src/elementaryFunctions/interfaces | |
| parent | 5b1666b59f5a291450356680b76b0b4ecbd96e79 (diff) | |
| download | scilab2c-fdc8b105fa81086448f06132dd5a660c6907a053.tar.gz scilab2c-fdc8b105fa81086448f06132dd5a660c6907a053.tar.bz2 scilab2c-fdc8b105fa81086448f06132dd5a660c6907a053.zip | |
Diffstat (limited to 'src/elementaryFunctions/interfaces')
| -rw-r--r-- | src/elementaryFunctions/interfaces/int_exp.h | 55 | ||||
| -rw-r--r-- | src/elementaryFunctions/interfaces/int_sqrt.h | 71 |
2 files changed, 55 insertions, 71 deletions
diff --git a/src/elementaryFunctions/interfaces/int_exp.h b/src/elementaryFunctions/interfaces/int_exp.h new file mode 100644 index 00000000..7998e015 --- /dev/null +++ b/src/elementaryFunctions/interfaces/int_exp.h @@ -0,0 +1,55 @@ +/* +** -*- C -*- +** +** int_sqrt.h +** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> +** +** +** Copyright POLIBA 2008 +*/ +/* + 1. Search for exp in INIT_FillSCI2LibCDirs.sci + 2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci + 3. You will find + PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); + PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); + PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); + PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); + PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); + PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); + PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); + PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); + 4. These are all the functions to be implemented. + 5. According to functions available in src you have to generate the mapping between + functions in step3 and functions in src. +*/ + +#ifndef __INT_EXP_H__ +#define __INT_EXP_H__ + + +#define s0exps0(in) \
+sexps(in) +
+#define d0expd0(in) \
+dexps(in) + +#define c0expc0(in) \
+cexps(in) +
+#define z0expz0(in) \
+zexps(in) +
+#define s2exps2(inptr,insizeptr,outptr) \
+sexpa(inptr, insizeptr[0]*insizeptr[1], outptr) + +#define d2expd2(inptr,insizeptr,outptr) \
+dexpa(inptr, insizeptr[0]*insizeptr[1], outptr) +
+#define c2expc2(inptr,insizeptr,outptr) \
+cexpa(inptr, insizeptr[0]*insizeptr[1], outptr) +
+#define z2expz2(inptr,insizeptr,outptr) \
+zexpa(inptr, insizeptr[0]*insizeptr[1], outptr) + +#endif /* !__INT_EXP_H__ */ diff --git a/src/elementaryFunctions/interfaces/int_sqrt.h b/src/elementaryFunctions/interfaces/int_sqrt.h deleted file mode 100644 index 99376a28..00000000 --- a/src/elementaryFunctions/interfaces/int_sqrt.h +++ /dev/null @@ -1,71 +0,0 @@ -/* -** -*- C -*- -** -** int_sqrt.h -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright POLIBA 2008 -*/ -/* - 1. Search for sqrt in INIT_FillSCI2LibCDirs.sci - 2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci - 3. You will find - PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); - PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); - PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - - PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); - PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); - PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); - PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - 4. These are all the functions to be implemented. - 5. According to functions available in src you have to generate the mapping between - functions in step3 and functions in src. -*/ - -#ifndef __INT_SQRT_H__ -#define __INT_SQRT_H__ - -#define s0sqrts0(in) \
-ssqrts(in) -
-#define s0sqrtc0(in) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */ - -#define d0sqrtd0(in) \
-dsqrts(in) -
-#define d0sqrtz0(in) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */ - -#define c0sqrtc0(in) \
-csqrts(in) -
-#define z0sqrtz0(in) \
-zsqrts(in) -
-#define s2sqrts2(inptr,insize,outptr) \
-ssqrta(inptr, insize[0]*insize[1], outptr) - -#define s2sqrtc2(inptr,insize,outptr) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */ - -#define d2sqrtd2(inptr,insizeptr,outptr) \
-dsqrta(inptr, insize[0]*insize[1], outptr) -
-#define d2sqrtz2(inptr,insize,outptr) \
-/* BRUNO IT IS NOT AVAILABLE, PLEASE IMPLEMENT IT */ - -#define c2sqrtc2(inptr,insizeptr,outptr) \
-csqrta(inptr, insize[0]*insize[1], outptr) -
-#define z2sqrtz2(inptr,insizeptr,outptr) \
-zsqrta(inptr, insize[0]*insize[1], outptr)
- -#endif /* !__INT_SQRT_H__ */ |