[V4MD:DONE] Valentina Xtra

[Igor Gomon]

Hi team,

I've done with Valentina Xtra.
So now this Lingo code is working:

    global Valentina

    on startMovie
        global Valentina

        set Valentina = Xtra "Valentina"
        if (objectP(Valentina)) then
            Valentina.initialize("", 8 * 1024 * 1024, "", "")
            if( Valentina.getLastErrorSymbol() <> #ERR_SUCCESS ) then
                alert("Something wrong there!")
            end if

            Valentina.shutDown()
        end if
    end startMovie

This is the whole message table for Valentina Xtra:
++++++++++++++++++++++++++++++++++++++++++++++
"xtra Valentina\n" \
"new object me\n" /* standard first handler entry in all message tables */

"+initialize object me, string componentsPath, integer cacheSize, string
macSerial, string winSerial \n"
"+shutDown object me -- Closes all opened databases and destroys cache\n"

"+getVersion object me -- Returns the version of the database engine. \n"
"+getCacheSize object me -- Returns the size of the cache. \n"

"+getLastError object me -- Returns error code of last Valentina method.\n"
"+getLastErrorString object me -- Returns error string of last Valentina
method.\n"
"+getLastErrorSymbol object me -- Returns error as a symbol. \n"

"+setDebugLevel object me, integer Level, *-- integer UseMsgWindow.\n"
" -- Sets debug level for V4MD (0-no debug, 1-errors only, 2-functions).\n"
"+getDebugLevel object me -- Returns the debug level for V4MD. \n"

"+logToMsgWindow object me, integer on -- Enables or disables logging to the
Message Window. \n"
"+logToFile object me, integer on, integer flush -- Enables or disables
logging to the file.\n "
" -- If on <> 0 creates 'V4MD_Log.txt' file and logs messages to it. \n"
" -- If flush = 1 then does flush after each log. \n"

"+setExtensions object me * -- List of extensions, e.g
[\"vdb\",\"dat\",\"ind\",\"blb\"].\n"

"+escapeString object me, string str, integer forRegEx -- Escapes given
string. Set forRegEx to 1 if str is a RegEx expression.\n"
++++++++++++++++++++++++++++++++++++++++++++++

As you can see all the method are 'parent' (same as static in C++)
So we do not need to create any instances of this Xtra - it is available
globally in any movie.

P.S. Now I'm moving all baseobject methods into VTable Xtra but I'm not
finished with this yet.

--
Best regards,
Igor Gomon
-------------------------------------------------------------
e-mail: giv at tlc.kherson.ua
web: http://www.paradigmasoft.com

To subscribe to the Valentina mail list go to:
http://listserv.macserve.net/mailman/listinfo/valentina



_______________________________________________
Vdevelopers mailing list
Vdevelopers at paradigma.ukrcom.kherson.ua
http://192.168.2.1/mailman/listinfo/vdevelopers