Module: _fledit Library: Clipper 5.3 This module contains the following functions and procedures: Note: Because this is raw decompiler output, the code is closer to that seen in a .PPO file, rather than a .PRG file. In other words, you must allow for the preprocessor conversions normally performed based on the contents of STD.CH and other .CH files #include "common.ch" #include "inkey.ch" //---------------------------------------------------[top]- // __FLEDIT( Arg1, Arg2 ) // function __FLEDIT( Arg1, Arg2 ) local Local1, Local2, Local3 if ( Empty(Arg2) ) return Arg1 endif Local1 := {} aeval(Arg2, { |_1| AAdd(Local1, furbof(_1)) }) Arg2 := Local1 Local1 := {} Local2 := { |_1| _1[ 1 ] == Local3 } aeval(Arg2, { |_1, _2| ( Local3 := _1, _2:= ascan(Arg1, Local2), ; iif( _2 == 0, Nil, AAdd(Local1, Arg1[ _2 ]) ) ) }) return Local1 //---------------------------------------------------[top]- // FURBOF( Arg1 ) // static function FURBOF( Arg1 ) Arg1 := Trim(Upper(Arg1)) return Arg1 //---EOF Use your Browser's BACK button to return to Function Listings