/* Zeichenklassifizierung, Flieákommazahl */
/* Datei: zeichen3.c */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <conio.h>
char puffer[128];

int main (int argc, char ** argv)
{
FILE * fp;
int i,x;
int punkt = 0;
printf ("\x1b[2JEingabe einer Flieákommazahl\n\n");
if (argc != 1)
  {
  fp = freopen (argv[1],"r",stdin);
  if (fp == NULL)
     {
     fprintf(stderr,"\nDatei %s unge”ffnet",argv[1]);
     exit (3);
     }
  }
for (i =0; i < 128; i++)
   puffer[i] = 0;
i = 0;
while (( x = getch()) != '\r')
 {
 if ((strchr ("0123456789",x)) != NULL)
    puffer[i++] = x, fputc (x,stdout);
 if (x == ',' && !punkt)
    puffer[i++] = x , fputc (x,stdout);
  }
puffer[i] = '\0';
printf ("\n\nZahlenwert = %f\n",strtod(puffer,NULL));
return 0;
}