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 >
Wrap
Text File
|
1993-01-30
|
1KB
|
29 lines
/*┌──────────────────────────────────────────────────────────────────────┐
▌│ │
▌│ Program Name: GETEXT.PRG Copyright: Gallagher Computing Corp. │
▌│ Date Created: 01/30/93 Language: Clipper 5.0 │
▌│ Time Created: 16:27:56 Author: Kevin S Gallagher │
▌│ c:/brief/clipper.src │
▌└──────────────────────────────────────────────────────────────────────┘
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ */
#include "makezip.h"
#define FILE_EXT IF( "." $ x[1], SUBS( x[1], RAT(".", x[1] )+1 ),"" )
#xtranslate MAKE_IT( <e> ) => ;
IF( ASCAN( array_, <e> ) == 0, AADD( array_, <e> ), NIL )
function listext
local aList_:={}, array_:={}
AEVAL(DIRECTORY("*.*"), { |x,y| AADD(aList_,FILE_EXT ) } )
AEVAL(aList_, { | x | MAKE_IT( x ) } )
array_:=ASORT(array_)
return array_