_ethread.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 95 行

.func _endthread
.func2 _endthreadex
#include <process.h>
void _endthread(void);
.ixfunc2 '&OS2Func' &func
.ixfunc2 '&NTFunc' &func
void _endthreadex( unsigned retval );
.ixfunc2 '&NTFunc' &func.ex
.funcend
.desc begin
The &func function is used to terminate a thread created by
.kw _beginthread.
For each operating environment under which &func is supported,
the &func function uses the appropriate system call to end the current
thread of execution.
.np
The
.kw _endthreadex
function is used to terminate a thread created by
.kw _beginthreadex.
The thread exit code
.arg retval
must be specified.
.desc end
.return begin
The &func function does not return any value.
.return end
.see begin
.seelist &function. _beginthread _endthread
.see end
.exmp begin
#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <malloc.h>
#include <process.h>
#include <dos.h>

#if defined(__386__)
  #define FAR
  #define STACK_SIZE    8192
#else
  #define FAR           __far
  #define STACK_SIZE    4096
#endif
.exmp break
static volatile int     WaitForThread;

void FAR child( void FAR *parm )
  {
    char * FAR *argv = (char * FAR *) parm;
    int  i;

    printf( "Child thread ID = %x\n", *_threadid );
    for( i = 0; argv[i]; i++ ) {
      printf( "argv[%d] = %s\n", i, argv[i] );
    }
    WaitForThread = 0;
    _endthread();
  }
.exmp break
void main()
  {
    char           *args[3];
#if defined(__NT__)
    unsigned long   tid;
#else
    char           *stack;
    int             tid;
#endif

    args[0] = "child";
    args[1] = "parm";
    args[2] = NULL;
    WaitForThread = 1;
#if defined(__NT__)
    tid = _beginthread( child, STACK_SIZE, args );
    printf( "Thread handle = %lx\n", tid );
#else
  #if defined(__386__)
    stack = (char *) malloc( STACK_SIZE );
  #else
    stack = (char *) _nmalloc( STACK_SIZE );
  #endif
    tid = _beginthread( child, stack, STACK_SIZE, args );
    printf( "Thread ID = %x\n", tid );
#endif
    while( WaitForThread ) {
        sleep( 0 );
    }
  }
.exmp end
.class WATCOM
.system