2008-11-14 01:25:00 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								! Copyright (C) 2008 Doug Coleman.
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								! See http://factorcode.org/license.txt for BSD license.
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								USING: accessors calendar.format combinators io.files
							 | 
						
					
						
							
								
									
										
										
										
											2008-12-02 22:49:59 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								kernel math.parser sequences splitting system tools.files
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-13 19:44:47 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								generalizations tools.files.private io.files.info math.order ;
							 | 
						
					
						
							
								
									
										
										
										
											2008-12-02 22:49:59 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								IN: tools.files.windows
							 | 
						
					
						
							
								
									
										
										
										
											2008-11-14 01:25:00 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							
								
									
										
										
										
											2008-11-14 01:51:14 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								<PRIVATE
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							
								
									
										
										
										
											2008-11-14 01:25:00 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								M: windows (directory.) ( entries -- lines )
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-13 16:48:59 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								    <listing-tool>
							 | 
						
					
						
							
								
									
										
										
										
											2009-02-17 13:36:27 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								        { +file-datetime+ +directory-or-size+ +file-name+ } >>specs
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-13 16:48:59 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								        { { directory-entry>> name>> <=> } } >>sort
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								    list-files ;
							 | 
						
					
						
							
								
									
										
										
										
											2008-11-14 01:51:14 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								PRIVATE>
							 |