mirror of
https://github.com/bobbimanners/GNO-Extras.git
synced 2024-10-31 13:07:44 +00:00
322 lines
6.3 KiB
Plaintext
322 lines
6.3 KiB
Plaintext
/*
|
|
* determine type of file
|
|
*/
|
|
|
|
#include <sys/param.h>
|
|
#include <sys/stat.h>
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
int in;
|
|
int i = 0;
|
|
char buf[512];
|
|
char *fort[] = {
|
|
"function","subroutine","common","dimension","block","integer",
|
|
"real","data","double",0};
|
|
char *asc[] = {
|
|
"sys","mov","tst","clr","jmp",0};
|
|
char *c[] = {
|
|
"int","char","float","double","struct","extern",0};
|
|
char *as[] = {
|
|
"globl","byte","even","text","data","bss","comm",0};
|
|
int ifile;
|
|
|
|
main(argc, argv)
|
|
char **argv;
|
|
{
|
|
FILE *fl;
|
|
register char *p;
|
|
char ap[128];
|
|
|
|
if (argc>1 && argv[1][0]=='-' && argv[1][1]=='f') {
|
|
if ((fl = fopen(argv[2], "r")) == NULL) {
|
|
printf("Can't open %s\n", argv[2]);
|
|
exit(2);
|
|
}
|
|
while ((p = fgets(ap, 128, fl)) != NULL) {
|
|
int l = strlen(p);
|
|
if (l>0)
|
|
p[l-1] = '\0';
|
|
printf("%s: ", p);
|
|
type(p);
|
|
if (ifile>=0)
|
|
close(ifile);
|
|
}
|
|
exit(1);
|
|
}
|
|
while(argc > 1) {
|
|
printf("%s: ", argv[1]);
|
|
type(argv[1]);
|
|
argc--;
|
|
argv++;
|
|
if (ifile >= 0)
|
|
close(ifile);
|
|
}
|
|
}
|
|
|
|
type(file)
|
|
char *file;
|
|
{
|
|
int j,nl;
|
|
char ch;
|
|
struct stat mbuf;
|
|
|
|
ifile = -1;
|
|
if(stat(file, &mbuf) < 0) {
|
|
printf("cannot stat\n");
|
|
return;
|
|
}
|
|
switch (mbuf.st_mode & S_IFMT) {
|
|
|
|
case S_IFCHR:
|
|
printf("character");
|
|
goto spcl;
|
|
|
|
case S_IFDIR:
|
|
printf("directory\n");
|
|
return;
|
|
|
|
case S_IFBLK:
|
|
printf("block");
|
|
|
|
spcl:
|
|
printf(" special (%d/%d)\n", major(mbuf.st_rdev), minor(mbuf.st_rdev));
|
|
return;
|
|
}
|
|
|
|
ifile = open(file, 0);
|
|
if(ifile < 0) {
|
|
printf("cannot open\n");
|
|
return;
|
|
}
|
|
in = read(ifile, buf, 512);
|
|
if(in == 0){
|
|
printf("empty\n");
|
|
return;
|
|
}
|
|
switch(*(int *)buf) {
|
|
|
|
case 0410:
|
|
printf("pure ");
|
|
goto exec;
|
|
|
|
case 0411:
|
|
printf("separate ");
|
|
|
|
case 0407:
|
|
exec:
|
|
printf("executable");
|
|
if(((int *)buf)[4] != 0)
|
|
printf(" not stripped");
|
|
printf("\n");
|
|
goto out;
|
|
|
|
case 0177555:
|
|
printf("old archive\n");
|
|
goto out;
|
|
|
|
case 0177545:
|
|
printf("archive\n");
|
|
goto out;
|
|
}
|
|
|
|
i = 0;
|
|
if(ccom() == 0)goto notc;
|
|
while(buf[i] == '#'){
|
|
j = i;
|
|
while(buf[i++] != '\n'){
|
|
if(i - j > 255){
|
|
printf("data\n");
|
|
goto out;
|
|
}
|
|
if(i >= in)goto notc;
|
|
}
|
|
if(ccom() == 0)goto notc;
|
|
}
|
|
check:
|
|
if(lookup(c) == 1){
|
|
while((ch = buf[i++]) != ';' && ch != '{')if(i >= in)goto notc;
|
|
printf("c program text");
|
|
goto outa;
|
|
}
|
|
nl = 0;
|
|
while(buf[i] != '('){
|
|
if(buf[i] <= 0)
|
|
goto notas;
|
|
if(buf[i] == ';'){
|
|
i++;
|
|
goto check;
|
|
}
|
|
if(buf[i++] == '\n')
|
|
if(nl++ > 6)goto notc;
|
|
if(i >= in)goto notc;
|
|
}
|
|
while(buf[i] != ')'){
|
|
if(buf[i++] == '\n')
|
|
if(nl++ > 6)goto notc;
|
|
if(i >= in)goto notc;
|
|
}
|
|
while(buf[i] != '{'){
|
|
if(buf[i++] == '\n')
|
|
if(nl++ > 6)goto notc;
|
|
if(i >= in)goto notc;
|
|
}
|
|
printf("c program text");
|
|
goto outa;
|
|
notc:
|
|
i = 0;
|
|
while(buf[i] == 'c' || buf[i] == '#'){
|
|
while(buf[i++] != '\n')if(i >= in)goto notfort;
|
|
}
|
|
if(lookup(fort) == 1){
|
|
printf("fortran program text");
|
|
goto outa;
|
|
}
|
|
notfort:
|
|
i=0;
|
|
if(ascom() == 0)goto notas;
|
|
j = i-1;
|
|
if(buf[i] == '.'){
|
|
i++;
|
|
if(lookup(as) == 1){
|
|
printf("assembler program text");
|
|
goto outa;
|
|
}
|
|
else if(buf[j] == '\n' && isalpha(buf[j+2])){
|
|
printf("roff, nroff, or eqn input text");
|
|
goto outa;
|
|
}
|
|
}
|
|
while(lookup(asc) == 0){
|
|
if(ascom() == 0)goto notas;
|
|
while(buf[i] != '\n' && buf[i++] != ':')
|
|
if(i >= in)goto notas;
|
|
while(buf[i] == '\n' || buf[i] == ' ' || buf[i] == '\t')if(i++ >= in)goto notas;
|
|
j = i-1;
|
|
if(buf[i] == '.'){
|
|
i++;
|
|
if(lookup(as) == 1){
|
|
printf("assembler program text");
|
|
goto outa;
|
|
}
|
|
else if(buf[j] == '\n' && isalpha(buf[j+2])){
|
|
printf("roff, nroff, or eqn input text");
|
|
goto outa;
|
|
}
|
|
}
|
|
}
|
|
printf("assembler program text");
|
|
goto outa;
|
|
notas:
|
|
for(i=0; i < in; i++)if(buf[i]&0200){
|
|
if (buf[0]=='\100' && buf[1]=='\357') {
|
|
printf("troff output\n");
|
|
goto out;
|
|
}
|
|
printf("data\n");
|
|
goto out;
|
|
}
|
|
if (mbuf.st_mode&((S_IEXEC)|(S_IEXEC>>3)|(S_IEXEC>>6)))
|
|
printf("commands text");
|
|
else
|
|
if (english(buf, in))
|
|
printf("English text");
|
|
else
|
|
printf("ascii text");
|
|
outa:
|
|
while(i < in)
|
|
if((buf[i++]&0377) > 127){
|
|
printf(" with garbage\n");
|
|
goto out;
|
|
}
|
|
/* if next few lines in then read whole file looking for nulls ...
|
|
while((in = read(ifile,buf,512)) > 0)
|
|
for(i = 0; i < in; i++)
|
|
if((buf[i]&0377) > 127){
|
|
printf(" with garbage\n");
|
|
goto out;
|
|
}
|
|
/*.... */
|
|
printf("\n");
|
|
out:;
|
|
}
|
|
lookup(tab)
|
|
char *tab[];
|
|
{
|
|
char r;
|
|
int k,j,l;
|
|
while(buf[i] == ' ' || buf[i] == '\t' || buf[i] == '\n')i++;
|
|
for(j=0; tab[j] != 0; j++){
|
|
l=0;
|
|
for(k=i; ((r=tab[j][l++]) == buf[k] && r != '\0');k++);
|
|
if(r == '\0')
|
|
if(buf[k] == ' ' || buf[k] == '\n' || buf[k] == '\t'
|
|
|| buf[k] == '{' || buf[k] == '/'){
|
|
i=k;
|
|
return(1);
|
|
}
|
|
}
|
|
return(0);
|
|
}
|
|
ccom(){
|
|
char cc;
|
|
while((cc = buf[i]) == ' ' || cc == '\t' || cc == '\n')if(i++ >= in)return(0);
|
|
if(buf[i] == '/' && buf[i+1] == '*'){
|
|
i += 2;
|
|
while(buf[i] != '*' || buf[i+1] != '/'){
|
|
if(buf[i] == '\\')i += 2;
|
|
else i++;
|
|
if(i >= in)return(0);
|
|
}
|
|
if((i += 2) >= in)return(0);
|
|
}
|
|
if(buf[i] == '\n')if(ccom() == 0)return(0);
|
|
return(1);
|
|
}
|
|
ascom(){
|
|
while(buf[i] == '/'){
|
|
i++;
|
|
while(buf[i++] != '\n')if(i >= in)return(0);
|
|
while(buf[i] == '\n')if(i++ >= in)return(0);
|
|
}
|
|
return(1);
|
|
}
|
|
|
|
english (bp, n)
|
|
char *bp;
|
|
{
|
|
# define NASC 128
|
|
int ct[NASC], j, vow, freq, rare;
|
|
int badpun = 0, punct = 0;
|
|
if (n<50) return(0); /* no point in statistics on squibs */
|
|
for(j=0; j<NASC; j++)
|
|
ct[j]=0;
|
|
for(j=0; j<n; j++)
|
|
{
|
|
if (bp[j]<NASC)
|
|
ct[bp[j]|040]++;
|
|
switch (bp[j])
|
|
{
|
|
case '.':
|
|
case ',':
|
|
case ')':
|
|
case '%':
|
|
case ';':
|
|
case ':':
|
|
case '?':
|
|
punct++;
|
|
if ( j < n-1 &&
|
|
bp[j+1] != ' ' &&
|
|
bp[j+1] != '\n')
|
|
badpun++;
|
|
}
|
|
}
|
|
if (badpun*5 > punct)
|
|
return(0);
|
|
vow = ct['a'] + ct['e'] + ct['i'] + ct['o'] + ct['u'];
|
|
freq = ct['e'] + ct['t'] + ct['a'] + ct['i'] + ct['o'] + ct['n'];
|
|
rare = ct['v'] + ct['j'] + ct['k'] + ct['q'] + ct['x'] + ct['z'];
|
|
if (2*ct[';'] > ct['e']) return(0);
|
|
if ( (ct['>']+ct['<']+ct['/'])>ct['e']) return(0); /* shell file test */
|
|
return (vow*5 >= n-ct[' '] && freq >= 10*rare);
|
|
}
|