Mercurial > cpython-lru_cache-weakref

annotate Mac/Python/macsetfiletype.c @ 4962:765d962f4449 legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added PyMac_Initialize() routine, to be used by embedding programs (in stead of standard Py_Initialize(), which it calls).
author Jack Jansen <jack.jansen@cwi.nl>
date Wed, 15 Jan 1997 15:49:08 +0000
parents fc6e96221088
children d6b292a33cfe
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1892
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
1
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
2 /*
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
3 * macsetfiletype - Set the mac's idea of file type
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
4 *
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
5 */
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
6
1921
275951b08608 Make it work under MPW too.
Guido van Rossum <guido@python.org>
parents: 1892
diff changeset
7 #include "macdefs.h"
1892
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
8
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
9 int
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
10 setfiletype(name, creator, type)
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
11 char *name;
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
12 long creator, type;
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
13 {
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
14 FInfo info;
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
15 unsigned char *pname;
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
16
2179
8da03decef59 More Pstring() stuff and some cosmetics
Jack Jansen <jack.jansen@cwi.nl>
parents: 1921
diff changeset
17 pname = (StringPtr) Pstring(name);
1892
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
18 if ( GetFInfo(pname, 0, &info) < 0 )
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
19 return -1;
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
20 info.fdType = type;
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
21 info.fdCreator = creator;
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
22 return SetFInfo(pname, 0, &info);
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
23 }
eec0dc5aba60 gestaltmodule.c: interface to Gestalt Manager.
Guido van Rossum <guido@python.org>
parents:
diff changeset
24
2311
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
25 long
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
26 getfiletype(name)
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
27 char *name;
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
28 {
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
29 FInfo info;
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
30 unsigned char *pname;
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
31
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
32 pname = (StringPtr) Pstring(name);
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
33 if ( GetFInfo(pname, 0, &info) < 0 )
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
34 return -1;
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
35 return info.fdType;
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
36 }
fc6e96221088 Added getfiletype routine
Jack Jansen <jack.jansen@cwi.nl>
parents: 2179
diff changeset
37