RetroZilla/nsprpub/pr/tests/attach.c
2015-10-20 23:03:22 -04:00

388 lines
10 KiB
C

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
/* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is the Netscape Portable Runtime (NSPR).
*
* The Initial Developer of the Original Code is
* Netscape Communications Corporation.
* Portions created by the Initial Developer are Copyright (C) 1998-2000
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
*
* Alternatively, the contents of this file may be used under the terms of
* either the GNU General Public License Version 2 or later (the "GPL"), or
* the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
* in which case the provisions of the GPL or the LGPL are applicable instead
* of those above. If you wish to allow use of your version of this file only
* under the terms of either the GPL or the LGPL, and not to allow others to
* use your version of this file under the terms of the MPL, indicate your
* decision by deleting the provisions above and replace them with the notice
* and other provisions required by the GPL or the LGPL. If you do not delete
* the provisions above, a recipient may use your version of this file under
* the terms of any one of the MPL, the GPL or the LGPL.
*
* ***** END LICENSE BLOCK ***** */
/***********************************************************************
** 1996 - Netscape Communications Corporation
**
** Name: attach.c
**
** Description: Platform-specific code to create a native thread. The native thread will
** repeatedly call PR_AttachThread and PR_DetachThread. The
** primordial thread waits for this new thread to finish.
**
** Modification History:
** 13-May-97 AGarcia- Converted the test to accomodate the debug_mode flag.
** The debug mode will print all of the printfs associated with this test.
** The regress mode will be the default mode. Since the regress tool limits
** the output to a one line status:PASS or FAIL,all of the printf statements
** have been handled with an if (debug_mode) statement.
** 04-June-97 AGarcia removed the Test_Result function. Regress tool has been updated to
** recognize the return code from tha main program.
** 12-June-97 Revert to return code 0 and 1.
***********************************************************************/
/***********************************************************************
** Includes
***********************************************************************/
/* Used to get the command line option */
#include "nspr.h"
#include "pprthred.h"
#include "plgetopt.h"
#include <stdio.h>
#ifdef WIN32
#include <windows.h>
#include <process.h>
#elif defined(_PR_PTHREADS)
#include <pthread.h>
#include "md/_pth.h"
#elif defined(IRIX)
#include <sys/types.h>
#include <sys/prctl.h>
#include <sys/wait.h>
#include <errno.h>
#elif defined(SOLARIS)
#include <thread.h>
#elif defined(OS2)
#define INCL_DOS
#define INCL_ERRORS
#include <os2.h>
#include <process.h>
#elif defined(XP_BEOS)
#include <kernel/OS.h>
#endif
#define DEFAULT_COUNT 1000
PRIntn failed_already=0;
PRIntn debug_mode;
int count;
static void
AttachDetach(void)
{
PRThread *me;
PRInt32 index;
for (index=0;index<count; index++) {
me = PR_AttachThread(PR_USER_THREAD,
PR_PRIORITY_NORMAL,
NULL);
if (!me) {
fprintf(stderr, "Error attaching thread %d: PR_AttachThread failed\n",
count);
failed_already = 1;
return;
}
PR_DetachThread();
}
}
/************************************************************************/
static void Measure(void (*func)(void), const char *msg)
{
PRIntervalTime start, stop;
double d;
start = PR_IntervalNow();
(*func)();
stop = PR_IntervalNow();
d = (double)PR_IntervalToMicroseconds(stop - start);
if (debug_mode)
printf("%40s: %6.2f usec\n", msg, d / count);
}
#ifdef WIN32
static unsigned __stdcall threadStartFunc(void *arg)
#elif defined(IRIX) && !defined(_PR_PTHREADS)
static void threadStartFunc(void *arg)
#elif defined(XP_BEOS)
static int32 threadStartFunc(void *arg)
#else
static void * threadStartFunc(void *arg)
#endif
{
#ifdef _PR_DCETHREADS
{
int rv;
pthread_t self = pthread_self();
rv = pthread_detach(&self);
if (debug_mode) PR_ASSERT(0 == rv);
else if (0 != rv) failed_already=1;
}
#endif
Measure(AttachDetach, "Attach/Detach");
#ifndef IRIX
return 0;
#endif
}
int main(int argc, char **argv)
{
#ifdef _PR_PTHREADS
int rv;
pthread_t threadID;
pthread_attr_t attr;
#elif defined(SOLARIS)
int rv;
thread_t threadID;
#elif defined(WIN32)
DWORD rv;
unsigned threadID;
HANDLE hThread;
#elif defined(IRIX)
int rv;
int threadID;
#elif defined(OS2)
int rv;
TID threadID;
#elif defined(XP_BEOS)
thread_id threadID;
int32 threadRV;
status_t waitRV;
#endif
/* The command line argument: -d is used to determine if the test is being run
in debug mode. The regress tool requires only one line output:PASS or FAIL.
All of the printfs associated with this test has been handled with a if (debug_mode)
test.
Usage: test_name [-d] [-c n]
*/
PLOptStatus os;
PLOptState *opt = PL_CreateOptState(argc, argv, "dc:");
while (PL_OPT_EOL != (os = PL_GetNextOpt(opt)))
{
if (PL_OPT_BAD == os) continue;
switch (opt->option)
{
case 'd': /* debug mode */
debug_mode = 1;
break;
case 'c': /* loop count */
count = atoi(opt->value);
break;
default:
break;
}
}
PL_DestroyOptState(opt);
#if defined(WIN16)
printf("attach: This test is not valid for Win16\n");
goto exit_now;
#endif
if(0 == count) count = DEFAULT_COUNT;
/*
* To force the implicit initialization of nspr20
*/
PR_SetError(0, 0);
PR_STDIO_INIT();
/*
* Platform-specific code to create a native thread. The native
* thread will repeatedly call PR_AttachThread and PR_DetachThread.
* The primordial thread waits for this new thread to finish.
*/
#ifdef _PR_PTHREADS
rv = _PT_PTHREAD_ATTR_INIT(&attr);
if (debug_mode) PR_ASSERT(0 == rv);
else if (0 != rv) {
failed_already=1;
goto exit_now;
}
#ifndef _PR_DCETHREADS
rv = pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_JOINABLE);
if (debug_mode) PR_ASSERT(0 == rv);
else if (0 != rv) {
failed_already=1;
goto exit_now;
}
#endif /* !_PR_DCETHREADS */
rv = _PT_PTHREAD_CREATE(&threadID, attr, threadStartFunc, NULL);
if (rv != 0) {
fprintf(stderr, "thread creation failed: error code %d\n", rv);
failed_already=1;
goto exit_now;
}
else {
if (debug_mode)
printf ("thread creation succeeded \n");
}
rv = _PT_PTHREAD_ATTR_DESTROY(&attr);
if (debug_mode) PR_ASSERT(0 == rv);
else if (0 != rv) {
failed_already=1;
goto exit_now;
}
rv = pthread_join(threadID, NULL);
if (debug_mode) PR_ASSERT(0 == rv);
else if (0 != rv) {
failed_already=1;
goto exit_now;
}
#elif defined(SOLARIS)
rv = thr_create(NULL, 0, threadStartFunc, NULL, 0, &threadID);
if (rv != 0) {
if(!debug_mode) {
failed_already=1;
goto exit_now;
} else
fprintf(stderr, "thread creation failed: error code %d\n", rv);
}
rv = thr_join(threadID, NULL, NULL);
if (debug_mode) PR_ASSERT(0 == rv);
else if (0 != rv)
{
failed_already=1;
goto exit_now;
}
#elif defined(WIN32)
hThread = (HANDLE) _beginthreadex(NULL, 0, threadStartFunc, NULL,
0, &threadID);
if (hThread == 0) {
fprintf(stderr, "thread creation failed: error code %d\n",
GetLastError());
failed_already=1;
goto exit_now;
}
rv = WaitForSingleObject(hThread, INFINITE);
if (debug_mode)PR_ASSERT(rv != WAIT_FAILED);
else if (rv == WAIT_FAILED) {
failed_already=1;
goto exit_now;
}
#elif defined(IRIX)
threadID = sproc(threadStartFunc, PR_SALL, NULL);
if (threadID == -1) {
fprintf(stderr, "thread creation failed: error code %d\n",
errno);
failed_already=1;
goto exit_now;
}
else {
if (debug_mode)
printf ("thread creation succeeded \n");
sleep(3);
goto exit_now;
}
rv = waitpid(threadID, NULL, 0);
if (debug_mode) PR_ASSERT(rv != -1);
else if (rv != -1) {
failed_already=1;
goto exit_now;
}
#elif defined(OS2)
threadID = (TID) _beginthread((void *)threadStartFunc, NULL,
32768, NULL);
if (threadID == -1) {
fprintf(stderr, "thread creation failed: error code %d\n", errno);
failed_already=1;
goto exit_now;
}
rv = DosWaitThread(&threadID, DCWW_WAIT);
if (debug_mode) {
PR_ASSERT(rv == NO_ERROR);
} else if (rv != NO_ERROR) {
failed_already=1;
goto exit_now;
}
#elif defined(XP_BEOS)
threadID = spawn_thread(threadStartFunc, NULL, B_NORMAL_PRIORITY, NULL);
if (threadID <= B_ERROR) {
fprintf(stderr, "thread creation failed: error code %08lx\n", threadID);
failed_already = 1;
goto exit_now;
}
if (resume_thread(threadID) != B_OK) {
fprintf(stderr, "failed starting thread: error code %08lx\n", threadID);
failed_already = 1;
goto exit_now;
}
waitRV = wait_for_thread(threadID, &threadRV);
if (debug_mode)
PR_ASSERT(waitRV == B_OK);
else if (waitRV != B_OK) {
failed_already = 1;
goto exit_now;
}
#else
if (!debug_mode)
failed_already=1;
else
printf("The attach test does not apply to this platform because\n"
"either this platform does not have native threads or the\n"
"test needs to be written for this platform.\n");
goto exit_now;
#endif
exit_now:
if(failed_already)
return 1;
else
return 0;
}