xsharp.eu

Code: Select all

FUNCTION Start( ) AS VOID 
PRIVATE x1, x2,x3 

	x1 := 1 
	x2 := 2
	x3 := 3 
	

	 ? "Number of PRIVATEs:" , memvar:PrivatesCount()   // 3 
	 ?
	 
     ? "private x1 content before _MRelease()" , x1    // 1
     ? "private x2 content before _MRelease()" , x2     // 2
     ? "private x3 content before _MRelease()" , x3	 // 3
	
// 	 _MRelease ( "x*" , FALSE )  // ok, doesn´t release any of the privates 
   	 _MRelease ( "x*" , TRUE )  // ok, does release x1, x2 and x3 
//	 _MRelease ( "x1" , FALSE )  // ok, does release x2 and x3 only  	    
//	 _MRelease ( "x1" , TRUE )  // ok, does release x1 only  		
     
	 ?
     ? "private x1 content after _MRelease()" , x1   
     ? "private x2 content after _MRelease()" , x2   
     ? "private x3 content after _MRelease()" , x3   	
     ?
	 ? "Number of PRIVATEs before _MClear():" , memvar:PrivatesCount()   // 3
	 
  	?  
   	_MCLEAR() // remove all privates and publics
   	?
  	? "Number of PRIVATEs after _MClear():" , memvar:PrivatesCount()  // 0  		
    ?	   
		
	RETURN

// overrides the Xsharp.RT  _MRelease()
FUNCTION _MRelease(cMask AS STRING , lMatch AS LOGIC ) AS VOID
	LOCAL text AS STRING
	//
	cMask := XSharp.Core.Functions.Upper(cMask)
	text := _PrivateFirst(FALSE)
	WHILE text != NULL // __Symbol{""} //  KHR changed to NULL 
		IF (XSharp.Core.Functions._Like(cMask, text) == lMatch)
			MemVarPut(text, __Usual._NIL)
		ENDIF
		text := _PrivateNext()
	END WHILE    

Code: Select all

FUNCTION TestTypes()	
PRIVATE x0, x1, x2,x3, x4, x5, x6, x7,x8, x9 , x10 , x11 , c

   
    	x0 := 12.22  
	x1 := 1 
	x2 := "1234"
	x3 := today()
	x4 := { "1" , 12 } 
	x5 := NIL 	
	x6 := {|| }	
	x7 := TRUE 
	x8 := NULL_OBJECT 
	x9 := #TEST 
	x10 := NULL_PTR
	x11 := NULL_PSZ
	
	
	? Type ( "x0" ) , UsualType( x0 )  , ValType( x0 )	// N  , 3  , N
	? Type ( "x1" ) , UsualType( x1 )  , ValType( x1 )	// N  , 1  , N
	? Type ( "x2" ) , UsualType( x2 )  , ValType( x2 )  // C  , 7  , C
	? Type ( "x3" ) , UsualType( x3 )  , ValType( x3 )	// D  , 2  , D
	? Type ( "x4" ) , UsualType( x4 )  , ValType( x4 )	// A  , 5  , A 
	? Type ( "x4[1]" ) , UsualType( x4[1] )  , ValType( x4[1] )// C	 , 7 , C 	 
	? Type ( "x4[2]" ) , UsualType( x4[2] )  , ValType( x4[2] )// N  , 1 , N 	 	 	
	? Type ( "x5" )	 , UsualType( x5 ) , ValType( x5 )	// O <--instead of U  , 0  , U 
	? Type ( "x6" )	, UsualType( x6 )  , ValType( x6 )	// B  , 9  , B	
	? Type ( "x7" )	, UsualType( x7 )  , ValType( x7 )	// L	, 8  , L	
	? Type ( "x8" )	, UsualType( x8 )  , ValType( x8 )	// O 	, 6  , O
	? Type ( "x9" ) , UsualType( x9 )  , ValType( x9 )	// #  , 10 , #
	? type ( "x10" ) , UsualType ( x10 )  , ValType( x10 )	// - , 18 , - 
	? type ( "x11" ) , UsualType ( x11 )  , ValType( x11 )	// C , 7 , C 
	? 

	// NIL is evaluated as a NULL_OBJECT, so Type() returns "O" instead of "U"
	?  Evaluate( "x5" ) == NULL_OBJECT // TRUE	
    ?  &x5 == NULL_OBJECT   // TRUE 
    ?
    ?
   	? Eval( MCompile("substr(x2,1,2)") )  //  "12"
  	? Eval( MCompile("padl(x2,8,'0')") )  // "00001234" 
  	?
  	? &("substr(x2,1,2)") 			//  "12" 
  	c := "substr(x2,1,2)"
  	? &c  							//  "12" 
   	? Evaluate( "substr(x2,1,2)")   //  "12"
  	?
  	? &("padl(x2,8,'0')") 			// "00001234" 
  	c := "padl(x2,8,'0')"
  	? &c  							//  "00001234" 
  	? Evaluate ( "padl(x2,8,'0')" ) // "00001234" 
  	? 

 
   	//
  	// same running with Foxpro 
 	//

/*      
	clear
	set talk off

	DO TestEval



	PROCEDURE TestEval
	Private x2, c 


	x2 = "1234"

	? Evaluate ( "Substr(x2,1,2)" )  &&  "12"
	c = "substr(x2,1,2)"    
	? &c				&&  "12"			

	? Evaluate ( "padl(x2,8,'0')" )  && "00001234"
	c = "padl(x2,8,'0')"    
	? &c				&& "00001234"  

*/