Компилятор, совместимый с языками семейства xBase и Clipper
Пред.След.

TASK

Name

TASK -- 

Function

<nTaskID>           START(<vTask>, [<vPar1>,,, <vParN>])
<vMsg>              TASKGETMSG()
<nTaskID>           TASKID()
<vMsg>              TASKPEEKMSG()
<lResult>           TASKSENDMSG(<nReceiverID>, <vMsg>[, <lWait>])
NIL                 TASKSTART()
NIL                 TASKSTOP()

Description

Function START() 

 START(<vTask>, [<vPar1>,,, <vParN>]) 	--> <nTaskID>

START() запускает задачу в параллельном режиме и передает ей параметры <vPar1>,,, <vParN>

<vTask>

Имя функции, или блок кода, или адрес статической функции.

<vPar1>

...<vParN> Параметры, передаваемые в задачу.

Returns :

Возвращает числовое значение - идентификатор задания.

See also : TASKSTOP() TASKSTART()

Example :

    ts := @task2()
 ...
 
 ? START("task1", "Ann", "Jhon", "Mary")
 ...
 ? START(ts, 200, 100)
 ...
 ? START({|p1, p2| qout("Start code block"), ..., qout("Code block finished")})
 ...
 
 function task1(a, b, c)
 qout('Start task1')
 ...
 qout('task1 finished')
 return .T.
 
 static function task2(x, y)
 qout('Start task2')
 ...
 qout('task2 finished')
 return

Function TASKGETMSG() 

 TASKGETMSG() 	--> <vMsg>

TASKGETMSG() читает сообщение из входной очереди задания и возвращает его. Если в очереди нет сообщений - ожидает бесконечно.

Returns :

Возвращает полученные данные, что были отправлены функцией TASKSENDMSG().

See also : TASKSENDMSG() TASKPEEKMSG()

Example :

  static id
 
 id := START("func1")
 
 for i:=1 to 10
 TASKSENDMSG(id, time())
 sleep(i)
 next
 
 ....
 
 function func1()
 do while .T.
 ? "task got: ", TASKGETMSG()
 enddo
 return

Function TASKID() 

 TASKID() 	--> <nTaskID>

TASKID() возвращает идентификатор текущего задания <nTaskID> как числовое значение.

Returns :

Возвращает идентификатор задания как числовое значение.

Example :

   TASKSTOP()
 
 ? TASKID()
 
 TASKSTART()

Function TASKPEEKMSG() 

 TASKPEEKMSG() 	--> <vMsg>

TASKPEEKMSG() читает сообщение из входной очереди задания и возвращает его. Если в очереди нет сообщений - немедленно возвращает NIL.

Returns :

Возвращает полученные данные, что были отправлены функцией TASKSENDMSG().

See also : TASKSENDMSG() TASKGETMSG()

Example :

  static id
 
 id := START("func1")
 
 for i:=1 to 10
 TASKSENDMSG(id, time())
 sleep(i)
 next
 
 ....
 
 function func1()
 do while .T.
 ? "task got: ", TASKPEEKMSG()
 enddo
 return

Function TASKSENDMSG() 

 TASKSENDMSG(<nReceiverID>, <vMsg>[, <lWait>]) 	--> <lResult>

TASKSENDMSG() отправляет значение <vMsg> заданию с идентификатором <nReceiverID> и возвращает TRUE, если операция завершилась успешно.

<nReceiverID>

NUMERIC, идентификатор задания-получателя.

<vMsg>

данные "посылка" для задания.

<lWait>

Logical, TRUE, если функция должна дождаться окончания процесса.

Returns :

Возвращает логическое значение <lResult>, TRUE если сообщение было доставлено.

See also : TASKGETMSG() TASKPEEKMSG()

Example :

  static id
 
 id := START("func1")
 
 for i:=1 to 10
 TASKSENDMSG(id, time())
 sleep(i)
 next
 
 ....
 
 function func1()
 do while .T.
 ? "task got: ", TASKGETMSG()
 enddo
 return

Function TASKSTART() 

 TASKSTART() 	--> NIL

TASKSTART() возобновляет все задания, которые были остановлены функцией TASKSTOP().

Returns :

Возвращает NIL.

See also : TASKSTOP()

Example :

   function Task_stop()
 TASKSTOP()
 ....
 return
 
 ....
 Task_stop()
 
 TASKSTART()

Function TASKSTOP() 

 TASKSTOP() 	--> NIL

TASKSTOP() останавливает все задания, за исключением текущего.

Returns :

Возвращает NIL.

See also : TASKSTART()

Example :

   function Task_stop()
 TASKSTOP()
 ....
 return

Пред.НачалоСлед.
SERIAL I/OУровень вышеCODEBLOCK