cpython/Mac/Python/macguesstabsize.c

30 lines
475 B
C
Raw Normal View History

#include <Types.h>
#include <Files.h>
#include <OSUtils.h>
#include <Resources.h>
1994-01-05 12:17:15 -04:00
#include <string.h>
1995-01-22 14:42:33 -04:00
/* Interface used by parsetok.c */
1994-01-05 12:17:15 -04:00
guesstabsize(path)
char *path;
{
Str255 s;
1994-01-05 12:17:15 -04:00
int refnum;
Handle h;
int tabsize = 0;
s[0] = strlen(path);
memcpy(s+1, path, s[0]);
1994-01-05 12:17:15 -04:00
refnum = OpenResFile(s);
if (refnum == -1)
return 0;
UseResFile(refnum);
h = GetIndResource('ETAB', 1);
if (h != 0) {
tabsize = (*(short**)h)[1];
}
CloseResFile(refnum);
return tabsize;
}