home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / PKB / GETEXT.PRG < prev    next >
Text File  |  1993-01-30  |  1KB  |  29 lines
  1. /*┌──────────────────────────────────────────────────────────────────────┐
  2.  ▌│                                                                      │
  3.  ▌│ Program Name: GETEXT.PRG        Copyright: Gallagher Computing Corp. │
  4.  ▌│ Date Created: 01/30/93           Language: Clipper 5.0               │
  5.  ▌│ Time Created: 16:27:56             Author: Kevin S Gallagher         │
  6.  ▌│ c:/brief/clipper.src                                                 │
  7.  ▌└──────────────────────────────────────────────────────────────────────┘
  8.  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀           */
  9.  
  10. #include "makezip.h"
  11.  
  12. #define FILE_EXT IF( "." $ x[1], SUBS( x[1], RAT(".", x[1] )+1 ),"" )
  13.  
  14. #xtranslate MAKE_IT( <e> ) =>                                       ;
  15.             IF( ASCAN( array_, <e> ) == 0, AADD( array_, <e> ), NIL )
  16.  
  17. function listext
  18.     local aList_:={}, array_:={} 
  19.     AEVAL(DIRECTORY("*.*"), { |x,y| AADD(aList_,FILE_EXT ) } )
  20.     AEVAL(aList_,           { | x | MAKE_IT( x )           } )
  21.     array_:=ASORT(array_)
  22. return array_
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.