JehanneOS/newlib
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

libm/complex: add clog10, clog10f

Browse Source 
newlib/
	* libc/include/complex.h (clog10, clog10f): Declare.
	* libm/complex/Makefile.am (src): Add clog10.c.
	(fsrc): Add clog10f.c.
	(CHEWOUT_FILES): Add clog10.def.
	* libm/complex/Makefile.in: Regenerate.
	* libm/complex/clog10.c: New file.
	* libm/complex/clog10f.c: New file.
	* libm/complex/complex.tex: Add references to clog10 docs.

Signed-off-by: Yaakov Selkowitz <yselkowi@redhat.com>
This commit is contained in:
Yaakov Selkowitz
2016-02-18 10:47:15 -06:00
parent 4fa84f10ec
commit a9ab09dfa9
6 changed files with 105 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
newlib/libc/include/complex.h
View File

@@ -120,6 +120,11 @@ double creal(double complex);
float crealf(float complex);
long double creall(long double complex);
#if __GNU_VISIBLE
double complex clog10(double complex);
float complex clog10f(float complex);
#endif
__END_DECLS
#endif /* ! _COMPLEX_H */

6
newlib/libm/complex/Makefile.am
View File

@@ -6,14 +6,14 @@ INCLUDES = -I$(srcdir)/../common -I$(srcdir)/ $(NEWLIB_CFLAGS) $(CROSS_CFLAGS) $
src = cabs.c cacos.c cacosh.c carg.c casin.c casinh.c \
catan.c catanh.c ccos.c ccosh.c cephes_subr.c \
cexp.c cimag.c clog.c conj.c \
cexp.c cimag.c clog.c clog10.c conj.c \
cpow.c cproj.c creal.c \
csin.c csinh.c csqrt.c ctan.c ctanh.c
lsrc = cabsl.c creall.c cimagl.c
fsrc = cabsf.c casinf.c ccosf.c cimagf.c cprojf.c \
csqrtf.c cacosf.c casinhf.c ccoshf.c clogf.c \
csqrtf.c cacosf.c casinhf.c ccoshf.c clogf.c clog10f.c \
crealf.c ctanf.c cacoshf.c catanf.c \
cephes_subrf.c conjf.c csinf.c ctanhf.c \
cargf.c catanhf.c cexpf.c cpowf.c csinhf.c
@@ -36,7 +36,7 @@ include $(srcdir)/../../Makefile.shared
CHEWOUT_FILES = cabs.def cacos.def cacosh.def carg.def \
casin.def casinh.def catan.def catanh.def \
ccos.def ccosh.def cexp.def cimag.def clog.def \
conj.def cpow.def cproj.def creal.def \
clog10.def conj.def cpow.def cproj.def creal.def \
csin.def csinh.def csqrt.def ctan.def ctanh.def
CHAPTERS = complex.tex

54
newlib/libm/complex/Makefile.in
View File

@@ -79,23 +79,23 @@ am__objects_1 = lib_a-cabs.$(OBJEXT) lib_a-cacos.$(OBJEXT) \
lib_a-ccos.$(OBJEXT) lib_a-ccosh.$(OBJEXT) \
lib_a-cephes_subr.$(OBJEXT) lib_a-cexp.$(OBJEXT) \
lib_a-cimag.$(OBJEXT) lib_a-clog.$(OBJEXT) \
lib_a-conj.$(OBJEXT) lib_a-cpow.$(OBJEXT) \
lib_a-cproj.$(OBJEXT) lib_a-creal.$(OBJEXT) \
lib_a-csin.$(OBJEXT) lib_a-csinh.$(OBJEXT) \
lib_a-csqrt.$(OBJEXT) lib_a-ctan.$(OBJEXT) \
lib_a-ctanh.$(OBJEXT)
lib_a-clog10.$(OBJEXT) lib_a-conj.$(OBJEXT) \
lib_a-cpow.$(OBJEXT) lib_a-cproj.$(OBJEXT) \
lib_a-creal.$(OBJEXT) lib_a-csin.$(OBJEXT) \
lib_a-csinh.$(OBJEXT) lib_a-csqrt.$(OBJEXT) \
lib_a-ctan.$(OBJEXT) lib_a-ctanh.$(OBJEXT)
am__objects_2 = lib_a-cabsf.$(OBJEXT) lib_a-casinf.$(OBJEXT) \
lib_a-ccosf.$(OBJEXT) lib_a-cimagf.$(OBJEXT) \
lib_a-cprojf.$(OBJEXT) lib_a-csqrtf.$(OBJEXT) \
lib_a-cacosf.$(OBJEXT) lib_a-casinhf.$(OBJEXT) \
lib_a-ccoshf.$(OBJEXT) lib_a-clogf.$(OBJEXT) \
lib_a-crealf.$(OBJEXT) lib_a-ctanf.$(OBJEXT) \
lib_a-cacoshf.$(OBJEXT) lib_a-catanf.$(OBJEXT) \
lib_a-cephes_subrf.$(OBJEXT) lib_a-conjf.$(OBJEXT) \
lib_a-csinf.$(OBJEXT) lib_a-ctanhf.$(OBJEXT) \
lib_a-cargf.$(OBJEXT) lib_a-catanhf.$(OBJEXT) \
lib_a-cexpf.$(OBJEXT) lib_a-cpowf.$(OBJEXT) \
lib_a-csinhf.$(OBJEXT)
lib_a-clog10f.$(OBJEXT) lib_a-crealf.$(OBJEXT) \
lib_a-ctanf.$(OBJEXT) lib_a-cacoshf.$(OBJEXT) \
lib_a-catanf.$(OBJEXT) lib_a-cephes_subrf.$(OBJEXT) \
lib_a-conjf.$(OBJEXT) lib_a-csinf.$(OBJEXT) \
lib_a-ctanhf.$(OBJEXT) lib_a-cargf.$(OBJEXT) \
lib_a-catanhf.$(OBJEXT) lib_a-cexpf.$(OBJEXT) \
lib_a-cpowf.$(OBJEXT) lib_a-csinhf.$(OBJEXT)
am__objects_3 = lib_a-cabsl.$(OBJEXT) lib_a-creall.$(OBJEXT) \
lib_a-cimagl.$(OBJEXT)
@USE_LIBTOOL_FALSE@am_lib_a_OBJECTS = $(am__objects_1) \
@@ -105,13 +105,13 @@ LTLIBRARIES = $(noinst_LTLIBRARIES)
libcomplex_la_LIBADD =
am__objects_4 = cabs.lo cacos.lo cacosh.lo carg.lo casin.lo casinh.lo \
catan.lo catanh.lo ccos.lo ccosh.lo cephes_subr.lo cexp.lo \
cimag.lo clog.lo conj.lo cpow.lo cproj.lo creal.lo csin.lo \
csinh.lo csqrt.lo ctan.lo ctanh.lo
cimag.lo clog.lo clog10.lo conj.lo cpow.lo cproj.lo creal.lo \
csin.lo csinh.lo csqrt.lo ctan.lo ctanh.lo
am__objects_5 = cabsf.lo casinf.lo ccosf.lo cimagf.lo cprojf.lo \
csqrtf.lo cacosf.lo casinhf.lo ccoshf.lo clogf.lo crealf.lo \
ctanf.lo cacoshf.lo catanf.lo cephes_subrf.lo conjf.lo \
csinf.lo ctanhf.lo cargf.lo catanhf.lo cexpf.lo cpowf.lo \
csinhf.lo
csqrtf.lo cacosf.lo casinhf.lo ccoshf.lo clogf.lo clog10f.lo \
crealf.lo ctanf.lo cacoshf.lo catanf.lo cephes_subrf.lo \
conjf.lo csinf.lo ctanhf.lo cargf.lo catanhf.lo cexpf.lo \
cpowf.lo csinhf.lo
am__objects_6 = cabsl.lo creall.lo cimagl.lo
@USE_LIBTOOL_TRUE@am_libcomplex_la_OBJECTS = $(am__objects_4) \
@USE_LIBTOOL_TRUE@ $(am__objects_5) $(am__objects_6)
@@ -272,13 +272,13 @@ AUTOMAKE_OPTIONS = cygnus
INCLUDES = -I$(srcdir)/../common -I$(srcdir)/ $(NEWLIB_CFLAGS) $(CROSS_CFLAGS) $(TARGET_CFLAGS)
src = cabs.c cacos.c cacosh.c carg.c casin.c casinh.c \
catan.c catanh.c ccos.c ccosh.c cephes_subr.c \
cexp.c cimag.c clog.c conj.c \
cexp.c cimag.c clog.c clog10.c conj.c \
cpow.c cproj.c creal.c \
csin.c csinh.c csqrt.c ctan.c ctanh.c
lsrc = cabsl.c creall.c cimagl.c
fsrc = cabsf.c casinf.c ccosf.c cimagf.c cprojf.c \
csqrtf.c cacosf.c casinhf.c ccoshf.c clogf.c \
csqrtf.c cacosf.c casinhf.c ccoshf.c clogf.c clog10f.c \
crealf.c ctanf.c cacoshf.c catanf.c \
cephes_subrf.c conjf.c csinf.c ctanhf.c \
cargf.c catanhf.c cexpf.c cpowf.c csinhf.c
@@ -301,7 +301,7 @@ CLEANFILES = $(CHEWOUT_FILES) *.ref
CHEWOUT_FILES = cabs.def cacos.def cacosh.def carg.def \
casin.def casinh.def catan.def catanh.def \
ccos.def ccosh.def cexp.def cimag.def clog.def \
conj.def cpow.def cproj.def creal.def \
clog10.def conj.def cpow.def cproj.def creal.def \
csin.def csinh.def csqrt.def ctan.def ctanh.def
CHAPTERS = complex.tex
@@ -458,6 +458,12 @@ lib_a-clog.o: clog.c
lib_a-clog.obj: clog.c
$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(lib_a_CFLAGS) $(CFLAGS) -c -o lib_a-clog.obj `if test -f 'clog.c'; then $(CYGPATH_W) 'clog.c'; else $(CYGPATH_W) '$(srcdir)/clog.c'; fi`
lib_a-clog10.o: clog10.c
$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(lib_a_CFLAGS) $(CFLAGS) -c -o lib_a-clog10.o `test -f 'clog10.c' || echo '$(srcdir)/'`clog10.c
lib_a-clog10.obj: clog10.c
$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(lib_a_CFLAGS) $(CFLAGS) -c -o lib_a-clog10.obj `if test -f 'clog10.c'; then $(CYGPATH_W) 'clog10.c'; else $(CYGPATH_W) '$(srcdir)/clog10.c'; fi`
lib_a-conj.o: conj.c
$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(lib_a_CFLAGS) $(CFLAGS) -c -o lib_a-conj.o `test -f 'conj.c' || echo '$(srcdir)/'`conj.c
@@ -572,6 +578,12 @@ lib_a-clogf.o: clogf.c
lib_a-clogf.obj: clogf.c
$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(lib_a_CFLAGS) $(CFLAGS) -c -o lib_a-clogf.obj `if test -f 'clogf.c'; then $(CYGPATH_W) 'clogf.c'; else $(CYGPATH_W) '$(srcdir)/clogf.c'; fi`
lib_a-clog10f.o: clog10f.c
$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(lib_a_CFLAGS) $(CFLAGS) -c -o lib_a-clog10f.o `test -f 'clog10f.c' || echo '$(srcdir)/'`clog10f.c
lib_a-clog10f.obj: clog10f.c
$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(lib_a_CFLAGS) $(CFLAGS) -c -o lib_a-clog10f.obj `if test -f 'clog10f.c'; then $(CYGPATH_W) 'clog10f.c'; else $(CYGPATH_W) '$(srcdir)/clog10f.c'; fi`
lib_a-crealf.o: crealf.c
$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(lib_a_CFLAGS) $(CFLAGS) -c -o lib_a-crealf.o `test -f 'crealf.c' || echo '$(srcdir)/'`crealf.c

46
newlib/libm/complex/clog10.c Normal file
View File

@@ -0,0 +1,46 @@
/*
FUNCTION
<<clog10>>, <<clog10f>>---complex base-10 logarithm
INDEX
clog10
INDEX
clog10f
ANSI_SYNOPSIS
#define _GNU_SOURCE
#include <complex.h>
double complex clog10(double complex <[z]>);
float complex clog10f(float complex <[z]>);
DESCRIPTION
These functions compute the complex base-10 logarithm of <[z]>.
<<clog10>> is equivalent to <<clog>>(<[z]>)/<<log>>(10).
<<clog10f>> is identical to <<clog10>>, except that it performs
its calculations on <<floats complex>>.
RETURNS
The clog10 functions return the complex base-10 logarithm value.
PORTABILITY
<<clog10>> and <<clog10f>> are GNU extensions.
*/
#include <complex.h>
#include <math.h>
double complex
clog10(double complex z)
{
double complex w;
double p, rr;
rr = cabs(z);
p = log10(rr);
rr = atan2(cimag(z), creal(z)) * M_IVLN10;
w = p + rr * I;
return w;
}

15
newlib/libm/complex/clog10f.c Normal file
View File

@@ -0,0 +1,15 @@
#include <complex.h>
#include <math.h>
float complex
clog10f(float complex z)
{
float complex w;
float p, rr;
rr = cabsf(z);
p = log10f(rr);
rr = atan2f(cimagf(z), crealf(z)) * (float) M_IVLN10;
w = p + rr * I;
return w;
}

3
newlib/libm/complex/complex.tex
View File

@@ -19,6 +19,7 @@ Functions and documentations are taken from NetBSD.
* cexp:: Complex exponent
* cimag:: Imaginary part
* clog:: Complex natural (base e) logarithm
* clog10:: Complex base 10 logarithm
* conj:: Complex conjugate
* cpow:: Complex power function
* cproj:: Compute a projection on the Riemann sphere
@@ -57,6 +58,8 @@ Functions and documentations are taken from NetBSD.
@page
@include complex/clog.def
@page
@include complex/clog10.def
@page
@include complex/conj.def
@page
@include complex/cpow.def