Staging
v0.5.1
https://github.com/python/cpython
Raw File
Tip revision: b6b43e00f8ba7ffd142795d2ed2e340e4a897a95 authored by cvs2svn on 08 August 1996, 19:05:09 UTC
This commit was manufactured by cvs2svn to create tag 'r14beta2'.
Tip revision: b6b43e0
macsetfiletype.c

/*
 *  macsetfiletype - Set the mac's idea of file type
 *
 */
 
#include "macdefs.h"

int
setfiletype(name, creator, type)
char *name;
long creator, type;
{
	FInfo info;
	unsigned char *pname;
	
	pname = (StringPtr) Pstring(name);
	if ( GetFInfo(pname, 0, &info) < 0 )
		return -1;
	info.fdType = type;
	info.fdCreator = creator;
	return SetFInfo(pname, 0, &info);
}

long
getfiletype(name)
char *name;
{
	FInfo info;
	unsigned char *pname;
	
	pname = (StringPtr) Pstring(name);
	if ( GetFInfo(pname, 0, &info) < 0 )
		return -1;
	return info.fdType;
}

back to top