[DaniloParticipant]

You can add external module directories by setting the environment variable MX2_MODULE_DIRS.

In Unix shells:

Shell

export MX2_MODULE_DIRS="/users/name/monkey2/mymodules/"

1	export MX2_MODULE_DIRS="/users/name/monkey2/mymodules/"

 

You can add more than one directory. Separate the directories with a semicolon “;”:

Shell

export MX2_MODULE_DIRS="/users/name/monkey2/mymodules/;/users/name/monkey2/myothermodules/"

1	export MX2_MODULE_DIRS="/users/name/monkey2/mymodules/;/users/name/monkey2/myothermodules/"

 

I think on Windows OS it was the command SET:

Shell

SET MX2_MODULE_DIRS=d:\monkey2\mymodules

1	SET MX2_MODULE_DIRS=d:\monkey2\mymodules

 

Alternatively you can add the line to your env_linux.txt / env_macos.txt / env_windows.txt in bin/

Shell

MX2_MODULE_DIRS=/users/name/monkey2/mymodules/

1	MX2_MODULE_DIRS=/users/name/monkey2/mymodules/

[DaniloParticipant]

There is also https://rocket.chat for team/community communication.

 

It is open source: https://github.com/RocketChat and available for Windows/Linux/Mac/Android/iOS/Web

[DaniloParticipant]

Just my personal opinion: I don’t think a Monkey-X book is of any help with Monkey2.

The modules are completely different, in my opinion.

[DaniloParticipant]

The folder should be “/modules/baseinterface” and the filename “baseinterface.monkey2” if you want to #Import “<baseinterface>”.

[DaniloParticipant]

Wrong C++ code is generated, so you should report it at github as a bug.

As a workaround you could use Alias EventCb:Void( event:Event Ptr )

[DaniloParticipant]

Small example:

Monkey

#Import "<std>" #Import "<mojo>" Function Main() New mojo.app.AppInstance Local console := New Console Local printer := New Printer Local message := New Message HelloWorld( console ) HelloWorld( printer ) HelloWorld( message ) End #Rem Interface IOutput #End Interface IOutput Method PrintLn( text:String ) End #Rem Function HelloWorld Parameter 1: Takes any object (instance of a class) that implements IOutput #End Function HelloWorld( obj:IOutput ) obj.PrintLn( "Hello World!" ) End #Rem class Console #End Class Console Implements IOutput Method PrintLn( s:String ) Print s End End #Rem class Printer #End Class Printer Implements IOutput Method PrintLn( s:String ) Print "Printing to printer... ~n~t"+s End End #Rem class Message #End Class Message Implements IOutput Method PrintLn( s:String ) std.requesters.Notify( "Message", s ) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

#Import "<std>" #Import "<mojo>"   Function Main()     New mojo.app.AppInstance          Local console := New Console     Local printer := New Printer     Local message := New Message          HelloWorld( console )     HelloWorld( printer )     HelloWorld( message ) End   #Rem     Interface IOutput #End Interface IOutput     Method PrintLn( text:String ) End   #Rem     Function HelloWorld          Parameter 1: Takes any object (instance of a class)                  that implements IOutput #End Function HelloWorld( obj:IOutput )     obj.PrintLn( "Hello World!" ) End   #Rem     class Console #End Class Console Implements IOutput     Method PrintLn( s:String )         Print s     End End   #Rem     class Printer #End Class Printer Implements IOutput     Method PrintLn( s:String )         Print "Printing to printer... ~n~t"+s     End End   #Rem     class Message #End Class Message Implements IOutput     Method PrintLn( s:String )         std.requesters.Notify( "Message", s )     End End

[DaniloParticipant]

– https://en.wikipedia.org/wiki/Interface_(object-oriented_programming)

An Interface contains declarations of methods, the parameters, and the return type.

Any class that implements the Interface is required to implement **everything**
from the Interface, exactly like it was declared.
It is like a contract/agreement and you can trust that the specific methods
are implemented in the classes.

[DaniloParticipant]

> is it possible to load the library in Monkey 2 without creating .h and C files?

Monkey2 is a little bit different because it translates to C++.
When you import something, you need to tell Monkey2 and the C++ compiler about that stuff.
If you don’t tell Monkey2, it does not know the functions.
If you don’t tell C++, it does not know the functions and you will get an error.

So you need at least the Monkey2 ‘Extern’ import section and the C/C++ header with the functions/classes.

[DaniloParticipant]

by the way I did not know how to stop the application

 

I put a counter 0 to 1001 in the code, otherwise it would Repeat..Forever.
The window title counts to 1001 and quits.

[DaniloParticipant]

That GetProcAddress() method brings up some casting issues,

so it is probably easier to import a “Gear3D.lib” (DLL import).

 

I made a quick test using LoadLibrary and GetProcAddress in a C++ file. File is attached.

Compile it and put Gear3D.dll and Link.dll in Gear3D.products/Windows/ folder, so Gear3D.exe can find the DLLs.

Attachments:

1. Gear3D.zip

[DaniloParticipant]

• Is Gear3D compiled for 32bit or 64bit?
• Ascii or Unicode?
• What type are the function parameters?
  • InitG3D( Byte, Byte )
  • InitG3D( Word, Word )
  • InitG3D( Int, Int ) ?

[DaniloParticipant]

Shouldn’t be a problem.  Please give download links for test lib and latest gear3d.

[DaniloParticipant]

This init part is for the struct with an array of 2 unsigned and 1 double.

C++

struct MixingPlan { unsigned colors[2]; double ratio; }; MixingPlan result = { {0,0}, 0.5 };

1 2 3 4 5 6 7 8

struct MixingPlan {     unsigned colors[2];     double ratio; };   MixingPlan result = { {0,0}, 0.5 };

 

Your struct colors[64] does not use such initialization:

C++

struct MixingPlan { unsigned colors[64]; }; MixingPlan result = { {0} };

1 2 3 4 5 6 7

struct MixingPlan {     unsigned colors[64]; };   MixingPlan result = { {0} };

 

As you can see, ‘ = { values }; ‘ is used for init, and the inner ‘{ values }’ is for array init.

 

See also: cppreference.com >> C reference >> initialization >> array initialization

Initialization from brace-enclosed lists

C++

int z[3] = {0}; // z has type int[3] and holds all zeroes

1	int z[3] = {0}; // z has type int[3] and holds all zeroes

Nested arrays

C++

int y[4][3] = { // array of 4 arrays of 3 ints each (4x3 matrix) { 1 }, // row 0 initialized to {1, 0, 0} { 0, 1 }, // row 1 initialized to {0, 1, 0} { [2]=1 }, // row 2 initialized to {0, 0, 1} }; // row 3 initialized to {0, 0, 0} struct { int a[3], b; } w[] = { { 1 }, 2 }; // array of structs // { 1 } is taken to be a fully-braced initializer for element #0 of the array // that element is initialized to { {1, 0, 0}, 0} // 2 is taken to be the first initialized for element #1 of the array // that element is initialized { {2, 0, 0}, 0}

1 2 3 4 5 6 7 8 9 10 11

int y[4][3] = { // array of 4 arrays of 3 ints each (4x3 matrix)     { 1 },      // row 0 initialized to {1, 0, 0}     { 0, 1 },   // row 1 initialized to {0, 1, 0}     { [2]=1 },  // row 2 initialized to {0, 0, 1} };              // row 3 initialized to {0, 0, 0}   struct { int a[3], b; } w[] = { { 1 }, 2 }; // array of structs    // { 1 } is taken to be a fully-braced initializer for element #0 of the array    // that element is initialized to { {1, 0, 0}, 0}    // 2 is taken to be the first initialized for element #1 of the array    // that element is initialized { {2, 0, 0}, 0}

[DaniloParticipant]

When I search the site for “MixingPlan” I get more than one result, and it looks like you mix them up.

1st, 2nd, 3rd search result are in the same source code:

C++

struct MixingPlan { unsigned colors[2]; double ratio; /* 0 = always index1, 1 = always index2, 0.5 = 50% of both */ }; MixingPlan DeviseBestMixingPlan(unsigned color) { const unsigned r = color>>16, g = (color>>8)&0xFF, b = color&0xFF; MixingPlan result = { {0,0}, 0.5 };

1 2 3 4 5 6 7 8 9 10

struct MixingPlan {     unsigned colors[2];     double ratio; /* 0 = always index1, 1 = always index2, 0.5 = 50% of both */ }; MixingPlan DeviseBestMixingPlan(unsigned color) {     const unsigned r = color>>16, g = (color>>8)&0xFF, b = color&0xFF;     MixingPlan result = { {0,0}, 0.5 };

More search results containing “MixingPlan” show up.

Later there is a source code with a new MixingPlan struct:

C++

struct MixingPlan { const unsigned n_colors = 16; unsigned colors[n_colors]; }; MixingPlan DeviseBestMixingPlan(unsigned color) { MixingPlan result = { {0} };

1 2 3 4 5 6 7 8

struct MixingPlan {     const unsigned n_colors = 16;     unsigned colors[n_colors]; }; MixingPlan DeviseBestMixingPlan(unsigned color) {     MixingPlan result = { {0} };

 

Next one:

C++

typedef std::vector<unsigned> MixingPlan;

1	typedef std::vector<unsigned> MixingPlan;

 

And then, at round about the middle of the page (last search result):

C++

struct MixingPlan { unsigned colors[64]; }; MixingPlan DeviseBestMixingPlan(unsigned color) { MixingPlan result = { {0} };

1 2 3 4 5 6 7

struct MixingPlan {     unsigned colors[64]; }; MixingPlan DeviseBestMixingPlan(unsigned color) {     MixingPlan result = { {0} };

[DaniloParticipant]

First you need to import “<win32>”, that imports the file /modules/win32/win32.monkey2

LoadLibrary and GetProcAddress are not imported yet, so you need to add it. LoadLibraryA uses ASCII chars, so better use LoadLibraryW for wide chars (Unicode).

Monkey

#Import "<win32>" Extern Alias FARPROC:Void Ptr LoadLibraryW:win32.HMODULE( lpLibFileName:WString ) GetProcAddress:FARPROC( hModule:win32.HMODULE, lpProcName:WString ) Public Using win32.. Global MyLibrary:HMODULE Function Main() MyLibrary = LoadLibraryW("Gear3D.dll") Local SetGraphics3D(alto:Int, ancho:Int) = GetProcAddress(MyLibrary,"_SetGraphics3D@4") SetGraphics3D(1024,768) End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#Import "<win32>"   Extern   Alias FARPROC:Void Ptr   LoadLibraryW:win32.HMODULE( lpLibFileName:WString ) GetProcAddress:FARPROC( hModule:win32.HMODULE, lpProcName:WString )   Public   Using win32..   Global MyLibrary:HMODULE   Function Main()       MyLibrary = LoadLibraryW("Gear3D.dll")       Local SetGraphics3D(alto:Int, ancho:Int) = GetProcAddress(MyLibrary,"_SetGraphics3D@4")     SetGraphics3D(1024,768)   End

If LoadLibrary() and GetProcAddress() get added to the win32 import, you could remove the ‘Extern’ section.

Of course untested, but that’s the general way how it would work with dynamic loading of DLL functions at runtime.
If you have a DLL import file (.lib), you could directly import it. If the DLL uses ASCII strings, a conversion from Unicode to ASCII would be required for the strings.

If you have a Unicode version of the .dll you would use this.

[Author]

Posts