xsharp.eu

Code: Select all

SELECT 1
* or...
LOCAL WA AS Integer

m.WA = 1
SELECT (m.WA)
* or...
SELECT A
* or...
SELECT (EVL(ALIAS(1), 1))
* or....
SELECT (VAL("1"))

Code: Select all

Select 4

use table

? Select(0)  //  shows 4

? Select(5)  // shows 0 - because there´s no table in the area 5  ?

? Select(0)  //  still shows 4

? Select(4)  // shows 4 - because there´s a table in the area 4 ?

Code: Select all

SELECT 5

? SELECT(5)    && prints 0
? SELECT(0)    && prints 5

Code: Select all

GLOBAL glSetCompatibleOn := FALSE AS LOGIC // simulates the Fox SET COMPATIBLE ON/OFF setting

FUNCTION TestSelect() AS VOID 
LOCAL cPath, cDBF AS STRING	

	SET EXCLUSIVE OFF
	
	
 	cPath := "d:test" 
 	
	cDBF := cPath + "Foo.dbf" 
	
	
	? DbCreate( cDBF , { { "LAST" , "C" , 20 , 0 }} )
	?
	 
	
	SELECT a
	USE (cdbf) ALIAS Foo1 
	
	SELECT b
	USE (cdbf) ALIAS Foo2

	SELECT 4
	USE (cdbf) ALIAS Foo3 
	
	
	// This seems to be the only way to detect the *lowest* unused area,
	// or does Fox offer another option ?
	
	SELECT 0
	? "currently lowest unused area:" , select(0)  // ok, 3 
	SELECT 4
		

 	?
    glSetCompatibleOn := FALSE 
    
	? "SET COMPATIBLE " + iif ( glSetCompatibleOn , "ON" , "OFF" )  
	? "Select()  == 4         " , Select()  == 4  
	? "Select(0) == 4         " , Select(0) == 4
	? "Select(1) == 4096      " , Select(1) == 4096
	? 'Select ( "foo2" ) == 2 ' , Select ( "foo2" ) == 2
	? 'Select ( 3 ) == 0      ' , Select(3) == 0    


	// ------------------- 
	
	? 
	
	// ------------------- 
	
	   
	glSetCompatibleOn := TRUE 
	
	? "SET COMPATIBLE " + iif ( glSetCompatibleOn , "ON" , "OFF" )  
	? "Select()  == 4096      " , Select()  == 4096
	? "Select(0) == 4         " , Select(0) == 4
	? "Select(1) == 4096      " , Select(1) == 4096
	? 'Select ( "foo2" ) == 2 ' , Select ( "foo2" ) == 2
	? 'Select ( 3 ) == 0      ' , Select(3) == 0    
	
	// ------------------- 
	 	
	?
	glSetCompatibleOn := FALSE 
	? "SET COMPATIBLE " + iif ( glSetCompatibleOn , "ON" , "OFF" )  
    ? "Select ( 7 ) == 0      ", Select(7) == 0
	? 'Select ( "Foo4" ) == 0 ', Select ( "Foo4" ) == 0  
	? 'Select ( "Foo3" ) == 4 ', Select ( "Foo3" ) == 4 
	? 'Select ( "Foo1" ) == 1 ', Select ( "Foo1" ) == 1
	? "Select ( 4095 ) == 0   " , Select(4095) == 0  
	? "Select ( 4096 ) == 0   " , Select(4096) == 0  
//	? "Select ( 4097 ) == 0   " , Select(4097) == 0 // this would throw a exception !		
    
	? 

	? "lowest unused area: " , RuntimeState.Workareas.FindEmptyArea( TRUE )  // ok, 3 
	? "highest unused area:" , RuntimeState.Workareas.FindEmptyArea( FALSE )   
	
    ?
    
	CLOSE DATABASES
	
	? "lowest unused area: " , RuntimeState.Workareas.FindEmptyArea( TRUE ) // ok, 1  
	? "highest unused area:" , RuntimeState.Workareas.FindEmptyArea( FALSE )   
	
	RETURN 			

// This Select() function extends the GitHub Select() code:
// https://github.com/X-Sharp/XSharpPublic/blob/feature/Runtime/Runtime/XSharp.RT/RDD/Db.prg#L16	
FUNCTION Select(uWorkArea) AS USUAL CLIPPER
    LOCAL sSelect   AS DWORD
	LOCAL sCurrent  AS DWORD
	 
	
	IF RuntimeState.Dialect == XSharpDialect.FoxPro  // KHR 
		
		// handles an alias string or a uWorkArea number > 1 
		IF IsString ( uWorkArea  ) .OR. ( IsNumeric ( uWorkArea )  .AND. uWorkArea > 1 ) 
			
			// Throws a exception if the uWorkArea number is > 4096 !
			IF IsNumeric ( uWorkArea ) .AND. uWorkArea > RuntimeState.Workareas.FindEmptyArea( FALSE )
				THROW ArgumentException{}				
			ENDIF 	 
			
			
			// note: No exception is thrown if a alias name doesn´t exist !
			
			sCurrent := VoDbGetSelect()  // save the current workarea
			
			sSelect := _Select(uWorkArea)  // activates temporary the area 
			
			// IF ! Used()		
			IF ! (sSelect) -> Used()
				sSelect := 0
			ENDIF 				
			
			VoDbSetSelect(INT(sCurrent))  // restore the workarea		 
		
		ELSE 		
			
			VAR lGetCurrentAreaNumber := ( PCount() == 1 .AND. IsNumeric( uWorkArea ) .AND. uWorkArea == 0 )
			VAR lGetHighestUnusedAreaNumber := ( PCount() == 1 .AND. IsNumeric( uWorkArea ) .AND. uWorkArea == 1 )
		
			// handles Select(), Select(0), Select(1) and takes care of 
			// the - not yet implemented - SET COMPATIBLE ON/OFF setting. 
			
			IF PCount() == 0 .OR. lGetHighestUnusedAreaNumber .OR. lGetCurrentAreaNumber 
			
				IF lGetHighestUnusedAreaNumber .OR. ( PCount() == 0 .AND. glSetCompatibleOn )  
					// get the number of the highest unused work area 
					sSelect := RuntimeState.Workareas.FindEmptyArea( FALSE )
				
				ELSE // Pcount()== 0 or lGetCurrentAreaNumber 
					sSelect := VoDbGetSelect()
								
				ENDIF 
			
			ELSE
				// Throw a exception if uWorkArea is something else  	
				THROW ArgumentException{}
			ENDIF 
			
		ENDIF 
		
	ELSE  // This is the already existing Select() code.
		
		sCurrent := VoDbGetSelect()
		sSelect := _Select(uWorkArea)
		VoDbSetSelect(INT(sCurrent))		 
			 
	ENDIF 	

	RETURN sSelect 
	

Code: Select all

USE IN SELECT("ToDos")

Code: Select all

iSelect = SELECT()
If CoreDb.SymSelect("ToDos") > 0
   CoreDb.CloseArea()    && It would actually be nice if CloseArea accepted an alias name
End
SELECT (iSelect)

Code: Select all

USE IN  (CoreDb.SymSelect("ToDos"))