|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet 32 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet 32 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 635 (0x27b)
Types: TextFile
Notes: UNIX file
Names: »error.c«
└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
└─⟦28c352965⟧ »/a« UNIX Filesystem
└─⟦this⟧ »usr/src/gks/gks/error.c«
#include "../h/gks.h"
#include "../h/gksi.h"
typedef Int Ercode;
ch_er_st(erc, rout)
Ercode erc;
String rout;
{ switch(erc) {
case 1: if(gksst == GKCL) return; break;
case 2: if(gksst == GKOP) return; break;
case 3: if(gksst == WSAC) return; break;
case 5: if(gksst == WSAC)
return;
break;
case 6: if(gksst == WSOP || gksst == WSAC)
return;
break;
case 7: if(gksst != GKOP && gksst != GKCL)
return; break;
case 8: if(gksst != GKCL) return; break;
default: break;
}
rep_er(erc, rout);
exit(-(int)erc);
}
rep_er(erc, rout)
Ercode erc;
String rout;
{
fprintf(stderr, "error %d in function %s \n", erc, rout);
}