#include "cgi.h"   // modulo di prova... ult mod 27-11-02

/***
Gennaio 2017 --- cgi lanciato da modulo html (copia/incolla in file .html)

<h3>Prova CGI2017-Linguaggio C: includi solo "cgi.h". Funzione: cscanf(char nomevariabile[], char fmt[], ...);</h3>
<form action=http://localhost/cgi-bin/provascanf.exe>

  <input name=stringa1 value="Ciao!">Immetti una stringa senza spazi: cscanf() con parametro %s<br><br>
  <input name=stringa2 value="Ciao, come stai?">Immetti una stringa anche con spazi: cscanf() con parametro %S<br><br>
  <input name=intero type=number value="100">Immetti un intero: cscanf() con parametro %d<br><br>
  <input name=double type=number value="25.173">Immetti un double: cscanf() con parametro %lf<br><br>
  <input name=vettore5f value=" 1.1 2.2 3.3 4.4 5.5">Immetti un vettore di esattamente 5 float: cscanf() con parametri %f %f %f %f %f<br><br>
  <input name=vettore value="uno due tre 4 5 6 7 100 -13">Immetti un vettore di stringhe o di numeri o misto senza limite: cscanf() con parametro %V<br><br>
  <input type=submit value=" lancia cgi-bin/provascanf.exe (provascanf.c) ">

</form>
***/


void stampavettore(ARRAY v[])  /// tipo print_r() del PHP
{
    int i;
    for (i=0; v[i]; i++)
        printf("v[%d]=%s<br>\n",i,v[i]);
}


int vettoreint(char *a[],int v[])
/// Trasformare un ARRAY in un vettore di interi (usa atof() per i double)
{
	int i;
	for(i=0; a[i] != NULL; i++)
		v[i]=atoi(a[i]);
	return i;
}



double somma(int v[],int dim)
{
	double s=0.0;
	int i;
	for (i=0; i < dim; i++)
		s+=v[i];
	return s;
}

int main()
{
    int i,num;
    char str[80];
    ARRAY V[100];   /// vettore non tipizzato: sempre un vettore di stringhe
                   /// con atoi() o atof() lo trasformi in numeri
    double d;
    float f[5];
    int v[100];   /// vettore classico
    cgi();
    testa();   /// Vanno sempre lanciate a inizio programma CGI

    /// cscanf() sta per CgiScanf() ==> scanf x cgi !!!

    cscanf("intero","%d",&num); /// Attenzione Scanf e non scanf !!!!
    printf("intero letto dal modulo=%d<hr>\n",num);

    cscanf("stringa1","%s",str); /// %S = stringa, senza spazi
    printf("stringa senza spazi=%s<hr>\n",str);

    cscanf("stringa2","%S",str); /// %S = stringa, copio anche gli spazi
    printf("stringa anche con spazi=%s<hr>\n",str);

    cscanf("double","%lf",&d);
    printf("double letto dal modulo=%lf<hr>\n",d);

    cscanf("vettore5f","%f %f %f %f %f",&f[0],&f[1],&f[2],&f[3],&f[4]);
    for (i=0; i < 5; i++)
        printf("vettoredi5float[%d]=%f<br>\n",i,f[i]);

    printf("<hr>\n");

    cscanf("vettore","%V",V); /// %P = vettore di qualsiasi dimensione
    stampavettore(V);

    num=vettoreint(V,v); /// da ARRAY V[] a int v[]
	printf("<hr>Elementi letti da vettore=%d, media=%lf",num,somma(v,num)/num);
    debug(); /// puoi togliere o mettere in commento... tipo phpinfo()

    piede(); /// va chiamata a fine programma CGI
    return 0;
}