ftp.nice.ch/pub/next/text/tex/teTeX/distrib/sources/teTeX-src-0.4.tar.gz#/teTeX-src-0.4/kpse-2.6/web2c/lib/fprintreal.c

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

/* fprintreal.c: print the real number R in the Pascal format N:M on the
   file F.  */

#include "config.h"

void
fprintreal (f, r, n, m)
  FILE *f;
  double r;
  int n, m;
{
  char fmt[50];  /* Surely enough, since N and M won't be more than 25
                    digits each!  */

  sprintf (fmt, "%%%d.%dlf", n, m);
  fprintf (f, fmt, r);
}

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