Module: _errsys      Library: Clipper 5.3


This module contains the following functions and procedures:

function _EINSTVAR( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6 )

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]-
//  _EINSTVAR( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6 )
//
function _EINSTVAR( Arg1, Arg2, Arg3, Arg4, Arg5, Arg6 )

   local Local1, Local2 := .F.
   if ( ValType(Arg3) == Arg4 )
      if ( !( ISNIL( Arg6 ) ) )
         Local2 := !eval(Arg6, Arg1, Arg3)
      endif
   else
      Local2 := .T.
   endif
   if ( Local2 .AND. ValType(( Local1 := errornew(), ;
         Local1:gencode(1), Local1:severity(2), ;
         Local1:subsystem(Arg1:classname()), Local1:subcode(Arg5), ;
         Local1:args({Arg3}), Local1:cansubsti(.T.), Arg3 := ;
         eval(errorblock(), Local1), Arg3 )) != Arg4 )
      errorinhan()
   endif
   return Arg3

//---EOF


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