Module: _fledit      Library: Clipper 5.3


This module contains the following functions and procedures:

function __FLEDIT( Arg1, Arg2 )
static function FURBOF( Arg1 )

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