Mercurial > cpython-lru_cache-weakref

annotate Mac/Python/macguesstabsize.c @ 4566:6403c94de50d legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added safeguard against failure in __del__.
author Guido van Rossum <guido@python.org>
date Wed, 27 Nov 1996 19:39:58 +0000
parents 9588c238e660
children d6b292a33cfe
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1693
cf29c09f07b6 Replace <MacHeaders> by specific required header files
Guido van Rossum <guido@python.org>
parents: 1495
diff changeset
1 #include <Types.h>
cf29c09f07b6 Replace <MacHeaders> by specific required header files
Guido van Rossum <guido@python.org>
parents: 1495
diff changeset
2 #include <Files.h>
cf29c09f07b6 Replace <MacHeaders> by specific required header files
Guido van Rossum <guido@python.org>
parents: 1495
diff changeset
3 #include <OSUtils.h>
cf29c09f07b6 Replace <MacHeaders> by specific required header files
Guido van Rossum <guido@python.org>
parents: 1495
diff changeset
4 #include <Resources.h>
cf29c09f07b6 Replace <MacHeaders> by specific required header files
Guido van Rossum <guido@python.org>
parents: 1495
diff changeset
5
1495
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
6 #include <string.h>
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
7
2228
9588c238e660 fixed comment
Guido van Rossum <guido@python.org>
parents: 2179
diff changeset
8 /* Interface used by parsetok.c */
1495
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
9
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
10 guesstabsize(path)
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
11 char *path;
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
12 {
1795
fa8bbd09f2e6 Updates for THINK C 6.0. Moved the necessary UNIX emulation routines here.
Guido van Rossum <guido@python.org>
parents: 1693
diff changeset
13 Str255 s;
1495
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
14 int refnum;
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
15 Handle h;
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
16 int tabsize = 0;
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
17 s[0] = strlen(path);
1795
fa8bbd09f2e6 Updates for THINK C 6.0. Moved the necessary UNIX emulation routines here.
Guido van Rossum <guido@python.org>
parents: 1693
diff changeset
18 memcpy(s+1, path, s[0]);
1495
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
19 refnum = OpenResFile(s);
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
20 if (refnum == -1)
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
21 return 0;
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
22 UseResFile(refnum);
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
23 h = GetIndResource('ETAB', 1);
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
24 if (h != 0) {
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
25 tabsize = (*(short**)h)[1];
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
26 }
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
27 CloseResFile(refnum);
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
28 return tabsize;
877073b9f8c3 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
29 }