diff options
author | nutricato | 2008-05-14 08:38:30 +0000 |
---|---|---|
committer | nutricato | 2008-05-14 08:38:30 +0000 |
commit | 5b1666b59f5a291450356680b76b0b4ecbd96e79 (patch) | |
tree | 1ed848e3e3203197fa29a409ee7166fcb118350d /src/auxiliaryFunctions/interfaces/int_abs.h | |
parent | c264597fc3d7a0c24fa19cafd4b065da618e6b23 (diff) | |
download | scilab2c-5b1666b59f5a291450356680b76b0b4ecbd96e79.tar.gz scilab2c-5b1666b59f5a291450356680b76b0b4ecbd96e79.tar.bz2 scilab2c-5b1666b59f5a291450356680b76b0b4ecbd96e79.zip |
Diffstat (limited to 'src/auxiliaryFunctions/interfaces/int_abs.h')
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_abs.h | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/src/auxiliaryFunctions/interfaces/int_abs.h b/src/auxiliaryFunctions/interfaces/int_abs.h new file mode 100644 index 00000000..cb097f95 --- /dev/null +++ b/src/auxiliaryFunctions/interfaces/int_abs.h @@ -0,0 +1,54 @@ +/* +** -*- C -*- +** +** int_sqrt.h +** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> +** +** +** Copyright POLIBA 2008 +*/ +/* + 1. Search for abs 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+'s0',ClassFileName,'file','y'); + PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); + PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); + PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); + PrintStringInfo('c2'+ArgSeparator+'s2',ClassFileName,'file','y'); + PrintStringInfo('z2'+ArgSeparator+'d2',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_ABS_H__ +#define __INT_ABS_H__ + +#define s0abss0(in) \
+sabss(in); +
+#define d0absd0(in) \
+dabss(in); + +#define c0abss0(in) \
+cabss(in); +
+#define z0absd0(in) \
+zabss(in); +
+#define s2abss2(inptr,insizeptr,outptr) \
+sabsa(inptr, insizeptr[0]*insizeptr[1], outptr); + +#define d2absd2(inptr,insizeptr,outptr) \
+dabsa(inptr, insizeptr[0]*insizeptr[1], outptr); +
+#define c2abss2(inptr,insizeptr,outptr) \
+cabsa(inptr, insizeptr[0]*insizeptr[1], outptr); +
+#define z2absd2(inptr,insizeptr,outptr) \
+zabsa(inptr, insizeptr[0]*insizeptr[1], outptr); + +#endif /* !__INT_ABS_H__ */ |