--- rleda/rleda.c 2003/12/12 18:53:44 1.1.1.1 +++ rleda/rleda.c 2003/12/12 19:08:17 1.2 @@ -1,8 +1,12 @@ -/* $Id: rleda.c,v 1.1.1.1 2003/12/12 18:53:44 brouard Exp $ +/* $Id: rleda.c,v 1.2 2003/12/12 19:08:17 brouard Exp $ $State: Exp $ $Log: rleda.c,v $ - Revision 1.1.1.1 2003/12/12 18:53:44 brouard - Import de rleda + Revision 1.2 2003/12/12 19:08:17 brouard + Les variables ne sont plus toutes écrites en ligne mais avec un retour + à la ligne toutes les 5 variables. + + Revision 1.1.1.1 2003/12/12 18:53:44 brouard + Import de rleda rleda.c @@ -32,8 +36,8 @@ #define ODIRSEPARATOR '/' #endif -char version[]="rleda-0.9 Programme de lecture de fichiers d'index au format LEDA convertis de l'EBCDIC en ASCII "; -char fullversion[]="$Revision: 1.1.1.1 $ $Date: 2003/12/12 18:53:44 $"; +char version[]="rleda-0.9.1 Programme de lecture de fichiers d'index au format LEDA convertis de l'EBCDIC en ASCII "; +char fullversion[]="$Revision: 1.2 $ $Date: 2003/12/12 19:08:17 $"; char line[MAXLINE]; char title[MAXLINE],namevar[MAXLINE], namevara[MAXLINE]; @@ -228,7 +232,7 @@ void trzb(char *z, char *in) main(int argc, char *argv[]) { int numlinepar=0; - long nobs, ncar,ncara, ncartes, nn; + long nobs, ncar,ncara, ncartes, nn, nvaris=0; long c; long d; long numlis, ntype; @@ -307,10 +311,10 @@ main(int argc, char *argv[]) goto end; } fprintf(ficparsas,"*Sortie de rleda version %s *;\n* %s *;\n",version,fullversion); - fprintf(ficparsas,"libname optionfilefiname \"%s\";\n",path); - fprintf(ficparsas,"filename a \"%s\";\n", filesas); - fprintf(ficparsas,"* Ci dessous à modifier *;\n"); - fprintf(ficparsas,"data %s.?? (keep=??);\n",optionfilefiname); + fprintf(ficparsas,"libname %s \"%s\";\n",optionfilefiname,path); + fprintf(ficparsas,"filename a \"%s.dat\";\n",optionfilefiname ); + fprintf(ficparsas,"* Ci dessous a modifier *;\n"); + fprintf(ficparsas,"data %s.u?? (keep=??);\n",optionfilefiname); fprintf(ficparsas,"infile a lrecl=500 ;\n"); fprintf(ficparsas,"input id 1. @; retain numero 0;\n"); fprintf(ficparsas,""); @@ -319,7 +323,7 @@ main(int argc, char *argv[]) printf("Le nom du fichier de sortie est %s\n",filereso); printf("Le nom du fichier SAS de sortie est %s\n",filesas); - pos=9; + pos=9;nvaris=0 ; level=0; while((c=getc(ficpar)) != EOF){ ungetc(c,ficpar); @@ -360,8 +364,9 @@ main(int argc, char *argv[]) olevel=level; level=title[0]-48; printf(" Niveau = %d Colonnes 1 8 = %s\n",level,title); + fprintf(ficlog," Niveau = %d Colonnes 1 8 = %s\n",level,title); fprintf(ficparo," Niveau = %d Colonnes 1 8 = %s\n",level,title); - if(level !=0) fprintf(ficparsas,"if id=%d then do;\n",level); + if(level ==0) fprintf(ficparsas,"if id=%d then do;\n",level); /* fprintf(ficparsas," input @9 "); */ nobs=0;for(n=0;n<2;n++){ c=getc(ficpar); nobs+=(n+(1-n)*256)*ascii_to_ebcdic[c];} fprintf(ficlog,"nobs=%d ",nobs); ncara=0;for(n=0;n<2;n++){ c=getc(ficpar); ncara+=(n+(1-n)*256)*ascii_to_ebcdic[c]; } fprintf(ficlog,"ncara=%d ",ncara); @@ -409,11 +414,9 @@ main(int argc, char *argv[]) if(strrchr(title,'C')!= 0 || strrchr(title,'G')!=0){ if(level!=olevel){ pos=9; - if(olevel !=0){ - fprintf(ficparsas," output %s.%d;\n",optionfilefiname,olevel); - fprintf(ficparsas," end\n"); - } - if(level !=1) fprintf(ficparsas,";\n else if id=%d then do;\n",level); + fprintf(ficparsas,";\n output %s.u%d;\n",optionfilefiname,olevel); + fprintf(ficparsas," end\n"); + if(level !=0) fprintf(ficparsas,";\n else if id=%d then do;\n",level); fprintf(ficparsas," input @9 "); olevel=level; } @@ -425,7 +428,11 @@ main(int argc, char *argv[]) } namevar[n]='\0'; fprintf(ficparsas, " %s $%d.", namevar, ncara); - pos+=ncara; + pos+=ncara;nvaris++ ; + if (nvaris>=5) { + fprintf(ficparsas,"\n ") ; + nvaris=0 ; + } } nobs=0;for(n=0;n<2;n++){ c=getc(ficpar); nobs+=(n+(1-n)*256)*ascii_to_ebcdic[c];} fprintf(ficlog,"nobs=%d ",nobs); nobs=0;for(n=0;n<2;n++){ c=getc(ficpar); nobs+=(n+(1-n)*256)*ascii_to_ebcdic[c];} fprintf(ficlog,"nobs=%d ",nobs); @@ -464,7 +471,7 @@ main(int argc, char *argv[]) fprintf(ficlog,"\n"); fprintf(ficparo,"\n"); } - fprintf(ficparsas,";\n output %s%d;\n end;\n else input;\n run;",optionfilefiname,level); + fprintf(ficparsas,";\n output %s.u%d;\n end;\n else input;\n run;",optionfilefiname,level); fclose(ficparsas); printf("Le nom du fichier de debug est %s\n",filelog); printf("Le nom du fichier du format de sortie est %s\n",filereso);