cleaning (links and backup files)
[unres.git] / source / cluster / wham / src-M / compinfo.c
1 #include <stdio.h>
2 #include <sys/utsname.h>
3 #include <sys/types.h>
4 #include <time.h>
5 #include <string.h>
6
7 main()
8 {
9 FILE *in, *in1, *out;
10 int i,j,k,iv1,iv2,iv3;
11 char *p1,buf[500],buf1[500],buf2[100],buf3[100];
12 struct utsname Name;
13 time_t Tp;
14
15 in=fopen("cinfo.f","r");
16 out=fopen("cinfo.f.new","w");
17 if (fgets(buf,498,in) != NULL)
18         fprintf(out,"C DO NOT EDIT THIS FILE - IT HAS BEEN GENERATED BY COMPINFO.C\n");
19 if (fgets(buf,498,in) != NULL)
20         sscanf(&buf[1],"%d %d %d",&iv1,&iv2,&iv3);
21 iv3++;
22 fprintf(out,"C %d %d %d\n",iv1,iv2,iv3);
23 fprintf(out,"      subroutine cinfo\n");
24 fprintf(out,"      include 'COMMON.IOUNITS'\n");
25 fprintf(out,"      write(iout,*)'++++ Compile info ++++'\n");
26 fprintf(out,"      write(iout,*)'Version %d.%-d build %d'\n",iv1,iv2,iv3);
27 uname(&Name);
28 time(&Tp);
29 system("whoami > tmptmp");
30 in1=fopen("tmptmp","r");
31 if (fscanf(in1,"%s",buf1) != EOF)
32 {
33 p1=ctime(&Tp);
34 p1[strlen(p1)-1]='\0';
35 fprintf(out,"      write(iout,*)'compiled %s'\n",p1);
36 fprintf(out,"      write(iout,*)'compiled by %s@%s'\n",buf1,Name.nodename);
37 fprintf(out,"      write(iout,*)'OS name:    %s '\n",Name.sysname);
38 fprintf(out,"      write(iout,*)'OS release: %s '\n",Name.release);
39 fprintf(out,"      write(iout,*)'OS version:',\n");
40 fprintf(out,"     & ' %s '\n",Name.version);
41 fprintf(out,"      write(iout,*)'flags:'\n");
42 }
43 system("rm tmptmp");
44 fclose(in1);
45 in1=fopen("Makefile","r");
46 while(fgets(buf,498,in1) != NULL)
47  {
48  if((p1=strchr(buf,'=')) != NULL && buf[0] != '#')
49   {
50   buf[strlen(buf)-1]='\0';
51   if(strlen(buf) > 49)
52    {
53    buf[47]='\0';
54    strcat(buf,"...");
55    }
56   else
57    {
58    while(buf[strlen(buf)-1]=='\\')
59     {
60     strcat(buf,"\\");
61     fprintf(out,"      write(iout,*)'%s'\n",buf);
62     if (fgets(buf,498,in1) != NULL)
63         buf[strlen(buf)-1]='\0';
64     if(strlen(buf) > 49)
65      {
66      buf[47]='\0';
67      strcat(buf,"...");
68      }
69     }
70    }
71   
72   fprintf(out,"      write(iout,*)'%s'\n",buf);
73   }
74  }
75 fprintf(out,"      write(iout,*)'++++ End of compile info ++++'\n");
76 fprintf(out,"      return\n");
77 fprintf(out,"      end\n");
78 fclose(out);
79 fclose(in1);
80 fclose(in);
81 system("mv cinfo.f.new cinfo.f");
82 }