#include "CCG"›/*› * Top level of Deep Blue C compiler› * (C) 1982 John H. Palevich› */››main()$(›char fbase[20],fin[20],fout[20];›int i,j;›ps("\fDeep Blue C Compiler ");›ps(" version 1.2");›pl("(C)1982 John Howard Palevich");›while(1)$(›i=1; /* close any open files */›while(i<=7)cclose(i++);›putchar(eol);›pl("File to compile ");›ps("(or RETURN to exit)");›putchar(eol);›gets(fbase);›if(fbase[0]==0)return; /* exit */››normalize(fbase,"C");›strcpy(fin,fbase);›strcpy(fout,fbase);›i=find(fin,20,0); /* length+1*/›j=find(fin,i,'.'); /* extension */›strcpy(fout+j,".CCC");››ps(fin);›ps("->");›ps(fout);›putchar(eol);››if((inp=copen(fin,'r'))<0)$(›pl("Couldn't open:");›ps(fin);›continue;›$)››if((output=copen(fout,'w'))<0)$(›pl("Couldn't open:");›ps(fout);›continue;›$)››compile();››cclose(fout);›cclose(fin);›putchar(253); /* beep bell */›$)›$)››openout()$(›$)››openin()$(›if(eof)inp=0;›$)›