2008-02-29 19:04:44 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								USING: kernel system io.files.unique.backend
							 | 
						
					
						
							
								
									
										
										
										
											2008-05-15 06:20:42 -04:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								windows.kernel32 io.windows io.windows.files io.ports windows
							 | 
						
					
						
							
								
									
										
										
										
											2008-10-19 14:34:00 -04:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								destructors environment ;
							 | 
						
					
						
							
								
									
										
										
										
											2008-02-29 01:10:37 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								IN: io.windows.files.unique
							 | 
						
					
						
							
								
									
										
										
										
											2008-02-28 16:42:07 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							
								
									
										
										
										
											2008-04-02 21:09:56 -04:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								M: windows (make-unique-file) ( path -- )
							 | 
						
					
						
							
								
									
										
										
										
											2008-05-15 06:20:42 -04:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								    GENERIC_WRITE CREATE_NEW 0 open-file dispose ;
							 | 
						
					
						
							
								
									
										
										
										
											2008-02-28 16:42:07 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							
								
									
										
										
										
											2008-04-02 21:09:56 -04:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								M: windows temporary-path ( -- path )
							 | 
						
					
						
							
								
									
										
										
										
											2008-02-28 16:42:07 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								    "TEMP" os-env ;
							 |