MODULE

module-name = MODULE AS STRING

module-name = MODULE( module AS MODULE ) AS STRING

MODULE returns the name of the module of current or specified module.  Supplying NULL as the module will return the module name of the MyBASIC2 interpreter and suppling MB_APP_HANDLE as the module will return the name of the client application.

Example:

OPTION EXPLICIT ON

OPTION VERSION 12.3

$INCLUDE "MyBASIC2.bis"

DIM s( 2 ) AS STRING

s( 0 ) = "No"

s( 1 ) = "Yes"

PRINT "Module:   ";MODULE,

PRINT "FileName: ";FILENAME,

PRINT "Verson:   ";VERSION,

PRINT "Compiled: ";s( COMPILED ),

PRINT NEW_LINE

PRINT "Module:   ";MODULE( NULL ),

PRINT "FileName: ";FILENAME( NULL ),

PRINT "Version:  ";VERSION( NULL ),

PRINT "Compiled: ";"n/a",

PRINT NEW_LINE

PRINT "Module:   ";MODULE( MB_APP_HANDLE ),

PRINT "FileName: ";FILENAME( MB_APP_HANDLE ),

PRINT "Version:  ";VERSION( MB_APP_HANDLE ),

PRINT "Compiled: ";"n/a",

PRINT NEW_LINE

DIM m AS MODULE

LOAD  "MyBASIC2_ExtLib.dll" AS m

PRINT "Module:   ";MODULE( m ),

PRINT "FileName: ";FILENAME( m ),

PRINT "Version:  ";VERSION( m ),

PRINT "Compiled: ";"n/a",

UNLOAD m