Anubis / Anubis

ls.anubis 661 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 

 *Project*                     Anubis
   
 *Title*              very simple unix like ls. 
   
 *Copyright*       Copyright (c) Alain Prouté 2005. 

   
   
   
   
 *Author*       David René
 *Created*      december 2005
   
 *Overview* This a really the first Anubis program of David. 
   

define One printList ( List (String) liste)=
  if liste is 
  {
    [ ] then unique,							//if the list is empty, we do nothing and we go out
    [ h . t] then print(h +"\n"); printList(t)  //here we print the first iteration and call function for print the rest of the list
  }.

global define One ls( List(String) args ) =
  printList(directory_list( ".", "*")).