17161d089Sdrochner /* 27161d089Sdrochner * cabs() wrapper for hypot(). 37161d089Sdrochner * 47161d089Sdrochner * Written by J.T. Conklin, <jtc@wimsey.com> 57161d089Sdrochner * Placed into the Public Domain, 1994. 67161d089Sdrochner */ 77161d089Sdrochner 87161d089Sdrochner #include <sys/cdefs.h> 97161d089Sdrochner #if defined(LIBM_SCCS) && !defined(lint) 10*6c9a28baSmaya __RCSID("$NetBSD: compat_cabs.c,v 1.3 2017/05/13 02:58:03 maya Exp $"); 117161d089Sdrochner #endif 127161d089Sdrochner 13b36bcf93Sdrochner #include "../src/namespace.h" 147161d089Sdrochner #include <math.h> 157161d089Sdrochner 167161d089Sdrochner struct complex { 177161d089Sdrochner double x; 187161d089Sdrochner double y; 197161d089Sdrochner }; 207161d089Sdrochner 217161d089Sdrochner double cabs(struct complex); 22*6c9a28baSmaya __warn_references(cabs, "warning: reference to compatibility cabs()") 237161d089Sdrochner 247161d089Sdrochner double cabs(struct complex z)257161d089Sdrochnercabs(struct complex z) 267161d089Sdrochner { 277161d089Sdrochner 287161d089Sdrochner return hypot(z.x, z.y); 297161d089Sdrochner } 30