* svec_l1norm - computes the l1 norm of an svec */
| 583 | * svec_l1norm - computes the l1 norm of an svec |
| 584 | */ |
| 585 | Datum svec_l1norm(PG_FUNCTION_ARGS) |
| 586 | { |
| 587 | SvecType *svec = PG_GETARG_SVECTYPE_P(0); |
| 588 | SparseData sdata = sdata_from_svec(svec); |
| 589 | double accum; |
| 590 | accum = l1norm_sdata_values_double(sdata); |
| 591 | |
| 592 | if (IS_NVP(accum)) PG_RETURN_NULL(); |
| 593 | |
| 594 | PG_RETURN_FLOAT8(accum); |
| 595 | } |
| 596 | |
| 597 | PG_FUNCTION_INFO_V1( svec_summate ); |
| 598 | /** |
nothing calls this directly
no test coverage detected