X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Fcompinfo.c;fp=source%2Funres%2Fsrc_CSA%2Fcompinfo.c;h=e28f6864eb2d60a4cbde6be922e7c79d655400a6;hb=52187c9365594597457799445140ea830f1141a3;hp=813cf3129afafef7994241c91dfb90cd5a21b7ea;hpb=951f0fe4ce7a66542c398754524d8ae3d9b5dc5a;p=unres.git diff --git a/source/unres/src_CSA/compinfo.c b/source/unres/src_CSA/compinfo.c index 813cf31..e28f686 100644 --- a/source/unres/src_CSA/compinfo.c +++ b/source/unres/src_CSA/compinfo.c @@ -14,10 +14,10 @@ time_t Tp; in=fopen("cinfo.f","r"); out=fopen("cinfo.f.new","w"); -fgets(buf,498,in); -fprintf(out,"C DO NOT EDIT THIS FILE - IT HAS BEEN GENERATED BY COMPINFO.C\n"); -fgets(buf,498,in); -sscanf(&buf[1],"%d %d %d",&iv1,&iv2,&iv3); +if (fgets(buf,498,in) != NULL) + fprintf(out,"C DO NOT EDIT THIS FILE - IT HAS BEEN GENERATED BY COMPINFO.C\n"); +if (fgets(buf,498,in) != NULL) + sscanf(&buf[1],"%d %d %d",&iv1,&iv2,&iv3); iv3++; fprintf(out,"C %d %d %d\n",iv1,iv2,iv3); fprintf(out," subroutine cinfo\n"); @@ -26,18 +26,22 @@ fprintf(out," write(iout,*)'++++ Compile info ++++'\n"); fprintf(out," write(iout,*)'Version %d.%-d build %d'\n",iv1,iv2,iv3); uname(&Name); time(&Tp); -system("rm tmptmp; whoami > tmptmp"); +system("whoami > tmptmp"); in1=fopen("tmptmp","r"); -fscanf(in1,"%s",buf1); -fclose(in1); +if (fscanf(in1,"%s",buf1) != EOF) +{ p1=ctime(&Tp); p1[strlen(p1)-1]='\0'; fprintf(out," write(iout,*)'compiled %s'\n",p1); fprintf(out," write(iout,*)'compiled by %s@%s'\n",buf1,Name.nodename); fprintf(out," write(iout,*)'OS name: %s '\n",Name.sysname); fprintf(out," write(iout,*)'OS release: %s '\n",Name.release); -fprintf(out," write(iout,*)'OS version: %s '\n",Name.version); +fprintf(out," write(iout,*)'OS version:',\n"); +fprintf(out," & ' %s '\n",Name.version); fprintf(out," write(iout,*)'flags:'\n"); +} +system("rm tmptmp"); +fclose(in1); in1=fopen("Makefile","r"); while(fgets(buf,498,in1) != NULL) { @@ -55,8 +59,8 @@ while(fgets(buf,498,in1) != NULL) { strcat(buf,"\\"); fprintf(out," write(iout,*)'%s'\n",buf); - fgets(buf,498,in1); - buf[strlen(buf)-1]='\0'; + if (fgets(buf,498,in1) != NULL) + buf[strlen(buf)-1]='\0'; if(strlen(buf) > 49) { buf[47]='\0';