Module: _lblback      Library: Clipper 5.3


This module contains the following functions and procedures:

static function LISTASARRA( Arg1, Arg2 )
function __LBLLOAD( 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]-
//  LISTASARRA( Arg1, Arg2 )
//
static function LISTASARRA( Arg1, Arg2 )

   local Local1, Local2 := {}, Local3:= .F.
   default Arg2 to ","
   do while ( Len(Arg1) != 0 )
      Local1 := At(Arg2, Arg1)
      if ( Local1 == 0 )
         Local1 := Len(Arg1)
      endif
      if ( SubStr(Arg1, Local1, 1) == Arg2 )
         Local3 := .T.
         AAdd(Local2, SubStr(Arg1, 1, Local1 - 1))
      else
         Local3 := .F.
         AAdd(Local2, SubStr(Arg1, 1, Local1))
      endif
      Arg1 := SubStr(Arg1, Local1 + 1)
   enddo
   if ( Local3 )
      AAdd(Local2, "")
   endif
   return Local2

//---------------------------------------------------[top]-
//  __LBLLOAD( Arg1 )
//
function __LBLLOAD( Arg1 )

   local Local1, Local2 := 0, Local3:= Space(1034), Local4:= 0, ;
      Local5 := 0, Local6:= .F., Local7:= 74, Local8:= 0, Local9:= ;
      "", Local10, Local11, Local12, Local13 := 0, Local14[8]
   Local14[ 1 ] := Space(60)
   Local14[ 2 ] := 5
   Local14[ 3 ] := 35
   Local14[ 4 ] := 0
   Local14[ 5 ] := 1
   Local14[ 6 ] := 0
   Local14[ 7 ] := 1
   Local14[ 8 ] := {}
   Local4 := fopen(Arg1)
   if ( !Empty(Local8 := ferror()) .AND. !( "\" $ Arg1 .OR. ":" $ ;
         Arg1 ) )
      Local11 := Set(_SET_DEFAULT)
      Local11 := strtran(Local11, ",", ";")
      Local12 := listasarra(Local11, ";")
      for Local13 := 1 to Len(Local12)
         Local4 := fopen(Local12[ Local13 ] + "\" + Arg1)
         if ( Empty(Local8 := ferror()) )
            exit
         endif
      next
   endif
   if ( Local8 != 0 )
      Local10 := errornew()
      Local10:severity(2)
      Local10:gencode(21)
      Local10:subsystem("FRMLBL")
      Local10:oscode(Local8)
      Local10:filename(Arg1)
      eval(errorblock(), Local10)
   endif
   Local5 := fread(Local4, @Local3, 1034)
   if ( Local5 == 0 )
      Local8 := -3
   else
      Local8 := ferror()
   endif
   if ( Local8 == 0 )
      Local14[ 1 ] := SubStr(Local3, 2, 60)
      Local14[ 2 ] := bin2w(SubStr(Local3, 62, 2))
      Local14[ 3 ] := bin2w(SubStr(Local3, 64, 2))
      Local14[ 4 ] := bin2w(SubStr(Local3, 66, 2))
      Local14[ 5 ] := bin2w(SubStr(Local3, 68, 2))
      Local14[ 6 ] := bin2w(SubStr(Local3, 70, 2))
      Local14[ 7 ] := bin2w(SubStr(Local3, 72, 2))
      for Local1 := 1 to Local14[ 2 ]
         Local9 := Trim(SubStr(Local3, Local7, 60))
         Local7 := Local7 + 60
         if ( !Empty(Local9) )
            AAdd(Local14[ 8 ], {})
            AAdd(Local14[ 8 ][ Local1 ], &( "{ || " + Local9 + "}" ))
            AAdd(Local14[ 8 ][ Local1 ], Local9)
            AAdd(Local14[ 8 ][ Local1 ], .T.)
         else
            AAdd(Local14[ 8 ], Nil)
         endif
      next
      fclose(Local4)
      Local8 := ferror()
   endif
   return Local14

//---EOF


Use your Browser's BACK button to return to Function Listings