Daemon example
Sirius Daemons are a class of objects that run on a thread other than the user that launched them. The thread that launches the Daemon is called the "parent". The Daemon responds to requests from the parent and may optionally pass back to the parent thread the results of commands and User Language programs.
See the Daemon class and its method pages for detailed information about Daemon behaviors.
Why use a Daemon?
Daemon objects make it easy to capture command output and User Language output to Stringlist objects. They make it easy to keep server sizes low by splitting work between a parent and daemon. The use of Asynchronous daemons allows work to be discharged in "fire and forget" mode, where the Daemon completes a task while the parent thread moves on to other processes.
Variable Find conditions
One problem often encountered in User Language is that Find conditions are bound at compile time. Variable input to a fixed number of conditions, with an unchanging set of field names, is handled well in ordinary User Language. But User Language has no clean mechanism to programmatically set up and execute dynamically generated Finds.
Daemons handle this situation very elegantly. In the following program, a Daemon is instantiated, and a small program is built to Find a set of records. The program is submitted to the Daemon in a Stringlist, and the resulting set of found records is returned to the parent thread in a SortedRecordSet object.
Begin %FindCriteria is string len 255 %Pazuzu is object Daemon %Sorted is object SortedRecordSet in file CUSTOMER %SubList is object stringList * Any of a variety of FIND conditions can be submitted to the Daemon. * In a full application, these conditions could be selected by the user through * a screen or browser interface. * %FindCriteria = 'RECTYPE = C ' * %FindCriteria = 'NICKNAME IS LIKE SI* ' %FindCriteria = 'RECTYPE = C AND LAST_MODIFIED=20101225' %SubList = new Text to %SubList Begin %BasicSet is object RecordSet in file CUSTOMER %Sorted is object SortedRecordSet in file CUSTOMER %BasicSet = New Find Records to %BasicSet {%FindCriteria} End Find Sort records in %BasicSet to %Sorted by NICKNAME %(daemon):returnObject(%Sorted) End End Text %Pazuzu = New %Pazuzu:open('CUSTOMER') %Pazuzu:run(%SubList,,%Sorted) * Process the returned sorted list For each record in %Sorted feoname: feo NAME print NICKNAME and NAME(occurrence in feoname) and TCPADDR(occurrence in feoname) End For End For End