LiveCode Forums

Code: Select all

global gClient
global gConnection
global gSSLEnable

function InitValentina
   -- put true into gClient of this stack -- this code exits this function

-- setting gClient to True
   put true into gClient -- YOU NEED MODIFY THIS TO TRUE FOR CLIENT-SERVER mode of examples. 


-------------------------------             
   put false into gConnection
   put false into gSSLEnable
   

   --  evaluating gClient of this stack (not just gClient)
   if the gClient of this stack is true then  -- ==========>>>> this script ALWAYS evaluats to false - even though 3 lines before its set to true




      if the gLocalOnly of this stack is true then
         put false into Valentina_Example_Launched
         answer error "This stack works in local mode only."
         close this stack
      else
         get Valentina_InitClient()
         set the mPath of this stack to the short name of this stack &".vdb"
      end if
   else
      get Valentina_Init( 8 * 1024 * 1024 )
   end if
   get Valentina_DebugLevel("kLogParams")  
end InitValentina

Code: Select all

on openStack
   put the filename of this stack into myStackFilePathName
   set the itemDelimiter to "/"
   put "" into item -1 of myStackFilePathName
   put "" into item -1 of myStackFilePathName
   put "" into item -2 of myStackFilePathName
   put "" into item -1 of myStackFilePathName
   put "" into char -1 of myStackFilePathName
   
   put myStackFilePathName into ExampleStack
   put "__shared__/ExampleTools.rev" into item -1 of ExampleStack
   put "" into char -1 of ExampleStack
   
   start using ExampleStack
end openStack

Code: Select all

...
-- put true into gClient -- original script
-- put true into the gClient of this stack  -- my test script that DOES NOT work
set the gClient of this stack to true   -- needs to be this - works - set the gClient property of this stack

put false into gConnection
put false into gSSLEnable

if the gClient of this stack is true then
...

Code: Select all

-- global gClient
global gConnection
global gSSLEnable

Code: Select all

-- global gClient
-- global gConnection
-- global gSSLEnable

function InitValentina
   
   -- put false into gClient -- YOU NEED MODIFY THIS TO TRUE FOR CLIENT-SERVER mode of examples. 
   set the gClient of this stack to true
      
   --put false into gConnection
   set the gConnection of this stack to false
   
   -- put false into gSSLEnable
   set the gSSLEnable of this stack to false
   
   if the gClient of this stack is true then
      if the gLocalOnly of this stack is true then
         put false into Valentina_Example_Launched
         answer error "This stack works in local mode only."
         close this stack
      else
         get Valentina_InitClient()
         set the mPath of this stack to the short name of this stack &".vdb"
      end if
   else
      get Valentina_Init( 8 * 1024 * 1024 )
   end if
   get Valentina_DebugLevel("kLogParams")  
end InitValentina

Code: Select all

function MakeNewDatabase
   if the gClient of this stack is true then   
      if the gSSLEnable of this stack is true then
    

     put VConnection_Constructor("localhost", "sa", "sa", 15432) into gConnection
--     where this gConnection is either local to this routine or global if I remove the -- from   -- global gConnection
--     should this be into gConnection of this stack?

       get VConnection_UseSSL( gConnection )
      else
         put VConnection_Constructor("localhost", "sa", "sa") into gConnection
      end if
      
      Get VConnection_Open( gConnection )
      return VDatabase_Constructor( gConnection )
   else
      return VDatabase_Constructor()
   end if
end MakeNewDatabase

Code: Select all

function ShutdownValentina
   if the gClient of this stack is true then
      if the gConnection of this stack is not false then
         get gConnection.Close()
      end if
      get Valentina_ShutdownClient()
   else
      get Valentina_Shutdown()
   end if   
end ShutdownValentina

Code: Select all

command testme
put the gclient of this stack
end testme