| 
									
										
										
										
											1994-08-19 10:51:31 +00:00
										 |  |  | /* Mkdir for the Macintosh.
 | 
					
						
							|  |  |  |    Public domain by Guido van Rossum, CWI, Amsterdam (July 1987). | 
					
						
							|  |  |  |    Pathnames must be Macintosh paths, with colons as separators. */ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #include "macdefs.h"
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | /* Create a directory. */ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | int | 
					
						
							|  |  |  | mkdir(path, mode) | 
					
						
							|  |  |  | 	char *path; | 
					
						
							|  |  |  | 	int mode; /* Ignored */ | 
					
						
							|  |  |  | { | 
					
						
							|  |  |  | 	HFileParam pb; | 
					
						
							|  |  |  | 		 | 
					
						
							|  |  |  | 	if (!hfsrunning()) { | 
					
						
							|  |  |  | 		errno= ENODEV; | 
					
						
							|  |  |  | 		return -1; | 
					
						
							|  |  |  | 	} | 
					
						
							| 
									
										
										
										
											1995-01-18 13:55:41 +00:00
										 |  |  | 	pb.ioNamePtr= (StringPtr) Pstring(path); | 
					
						
							| 
									
										
										
										
											1994-08-19 10:51:31 +00:00
										 |  |  | 	pb.ioVRefNum= 0; | 
					
						
							|  |  |  | 	pb.ioDirID= 0; | 
					
						
							|  |  |  | 	if (PBDirCreate((HParmBlkPtr)&pb, FALSE) != noErr) { | 
					
						
							|  |  |  | 		errno= EACCES; | 
					
						
							|  |  |  | 		return -1; | 
					
						
							|  |  |  | 	} | 
					
						
							|  |  |  | 	return 0; | 
					
						
							|  |  |  | } |