36 lines
632 B
Plaintext
36 lines
632 B
Plaintext
//NOTEST
|
|
//
|
|
// $Id$
|
|
//
|
|
|
|
//
|
|
// Spawn2 called from Spawn
|
|
//
|
|
// Function should be static to avoid collision with Spawn/Main
|
|
//
|
|
// Written by Eddie Runia <eddie@runia.com>
|
|
// www - http://www.harbour-project.org
|
|
//
|
|
// Placed in the public domain
|
|
//
|
|
static function Main()
|
|
|
|
local n := 0
|
|
|
|
while !Empty( ProcName( n ) )
|
|
n++
|
|
end
|
|
if ProcName( n - 1 ) != "HB_RUN"
|
|
QOut( "Please compile me with /gHRB" )
|
|
QOut()
|
|
QOut( "Then : hbrun spawn" )
|
|
else
|
|
QOut( "Hi, I am Spawn2" )
|
|
QOut( "Let's call a function from Spawn()" )
|
|
SomeWhereElse()
|
|
QOut( "Back to Spawn2" )
|
|
endif
|
|
return nil
|
|
|
|
|