ftp.nice.ch/pub/next/unix/developer/pcn.2.0.s.tar.gz#/src/sys/sys_dtos.c

This is sys_dtos.c in view mode; [Download] [Up]

/*
 * PCN System
 * Author:      Steve Tuecke
 *              Argonne National Laboratory
 *
 * Please see the DISCLAIMER file in the top level directory of the
 * distribution regarding the provisions under which this software
 * is distributed.
 *
 * sys_dtos.c
 *
 * Foreign procedures used by sys.pcn
 */

#include "sys_internal.h"

/*
 * Convert double 'D' into string 'S'.
 */
void _p_sys_double_to_string(D, S)
double_t *D;
char_t *S;
{
    char_t *last_zero;
    sprintf(S, "%.20f", (double) *D);
    
    /* Remove all of the trailing zeros to shorten it up */
    for (last_zero = S + strlen(S) - 1; *last_zero == '0'; last_zero--)
	;
    if (*last_zero == '.')
	last_zero++;
    *(++last_zero) = '\0';
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Marcel Waldvogel and Netfuture.ch.