MqMsgque PACKAGE - the package-main is a single piece of code evaluated only once at application startup … More...
Functions | |
void | MqMain (void *code) |
Main entrypoint - start the application | |
MqMsgque PACKAGE - the package-main is a single piece of code evaluated only once at application startup …
Example from MyServer.tcl
→ The package-main configure the factory and start the server.
package require tclmqmsgque namespace import tclmqmsgque::* namespace import tclmkkernel::* # package-item ::oo::class create MyServer { superclass MqContextC # service to serve all incoming requests for token "HLWO" method myFirstService {} { my SendSTART my SendSTR "[my ReadSTR] World" my SendRETURN } # define a service as link between the token "HLWO" and the callback "MyFirstService" method serverSetup {} { my ServiceCreate "HLWO" myFirstService } # factory startup (constructor) constructor {{tmpl ""}} { next $tmpl my ConfigSetServerSetup serverSetup } } # package-main tclmqmsgque::Main { # setup commandline arguments for later use set args [MkBufferListC CreateLA {*}$argv] # create "MyServer" factory... and make it to the default. #set fct [[MqFactoryC Add MyServer] Default] set fct [[MqFactoryC Add MyServer] Default] # inspect commandline-argument for the "factory" to choose... and create a object set fct [MqFactoryC GetCalledL $args] set srv [$fct New] try { $srv LinkCreate $args $srv ProcessEvent MQ_WAIT_FOREVER } on error {} { $srv ErrorCatch } finally { $srv Exit } }
void MqMain | ( | void * | code | ) |
Main entrypoint - start the application
Tcl has a special requirement, for every new server-thread a new interpreter is created and
this interpreter source the toplevel file for initialization. This file is set on library startup and
can be changed with MqInitResetArg0. The problem is the server startup code from the toplevel. For internal
purpose this code should only be executed on application-startup (like the C main function)
and not for every thread again.