engine-sparc-sunos-5.3.c
上传用户:tsgydb
上传日期:2007-04-14
资源大小:10674k
文件大小:7k
源码类别:
MySQL数据库
开发平台:
Visual C++
- /* ==== machdep.c ============================================================
- * Copyright (c) 1993, 1994 Chris Provenzano, proven@athena.mit.edu
- *
- * Description : Machine dependent functions for SunOS-4.1.3 on sparc
- *
- * 1.00 93/08/04 proven
- * -Started coding this file.
- */
- #ifndef lint
- static const char rcsid[] = "$Id$";
- #endif
- #include <pthread.h>
- #include <errno.h>
- #include <fcntl.h>
- #include <stdlib.h>
- #include <unistd.h>
- #include <sys/socket.h>
- #include <sys/procset.h>
- #include <sys/systeminfo.h>
- #include <poll.h>
- /* ==========================================================================
- * machdep_save_state()
- */
- int machdep_save_state(void)
- {
- /* Save register windows onto stackframe */
- __asm__ ("ta 3");
- return(setjmp(pthread_run->machdep_data.machdep_state));
- }
- /* ==========================================================================
- * machdep_restore_state()
- */
- void machdep_restore_state(void)
- {
- longjmp(pthread_run->machdep_data.machdep_state, 1);
- }
- /* ==========================================================================
- * machdep_set_thread_timer()
- */
- void machdep_set_thread_timer(struct machdep_pthread *machdep_pthread)
- {
- if (setitimer(ITIMER_VIRTUAL, &(machdep_pthread->machdep_timer), NULL)) {
- PANIC();
- }
- }
- /* ==========================================================================
- * machdep_unset_thread_timer()
- */
- void machdep_unset_thread_timer(struct machdep_pthread *machdep_pthread)
- {
- struct itimerval zeroval = { { 0, 0 }, { 0, 0} };
- if (setitimer(ITIMER_VIRTUAL, &zeroval, NULL)) {
- PANIC();
- }
- }
- /* ==========================================================================
- * machdep_pthread_cleanup()
- */
- void *machdep_pthread_cleanup(struct machdep_pthread *machdep_pthread)
- {
- return(machdep_pthread->machdep_stack);
- }
- /* ==========================================================================
- * machdep_pthread_start()
- */
- void machdep_pthread_start(void)
- {
- context_switch_done();
- pthread_sched_resume();
- /* Run current threads start routine with argument */
- pthread_exit(pthread_run->machdep_data.start_routine
- (pthread_run->machdep_data.start_argument));
- /* should never reach here */
- PANIC();
- }
- /* ==========================================================================
- * __machdep_stack_free()
- */
- void __machdep_stack_free(void * stack)
- {
- free(stack);
- }
- /* ==========================================================================
- * __machdep_stack_alloc()
- */
- void * __machdep_stack_alloc(size_t size)
- {
- void * stack;
- return(malloc(size));
- }
- /* ==========================================================================
- * machdep_pthread_create()
- */
- void __machdep_pthread_create(struct machdep_pthread *machdep_pthread,
- void *(* start_routine)(), void *start_argument,
- long stack_size, long nsec, long flags)
- {
- machdep_pthread->start_routine = start_routine;
- machdep_pthread->start_argument = start_argument;
- machdep_pthread->machdep_timer.it_value.tv_sec = 0;
- machdep_pthread->machdep_timer.it_interval.tv_sec = 0;
- machdep_pthread->machdep_timer.it_interval.tv_usec = 0;
- machdep_pthread->machdep_timer.it_value.tv_usec = nsec / 1000;
- /* Save register windows onto stackframe */
- __asm__ ("ta 3");
- if (setjmp(machdep_pthread->machdep_state)) {
- machdep_pthread_start();
- }
- /*
- * Set up new stact frame so that it looks like it
- * returned from a longjmp() to the beginning of
- * machdep_pthread_start().
- */
- /* Sparc stack starts high and builds down. */
- machdep_pthread->machdep_state[1] =
- (int)machdep_pthread->machdep_stack + stack_size - 1024;
- machdep_pthread->machdep_state[1] &= ~7;
- }
- /* ==========================================================================
- * machdep_sys_getdirentries()
- */
- int machdep_sys_getdirentries(int fd, char * buf, int len, int * seek)
- {
- return(machdep_sys_getdents(fd, buf, len));
- }
- /* ==========================================================================
- * machdep_sys_wait3()
- */
- machdep_sys_wait3(int * b, int c, int * d)
- {
- return(-ENOSYS);
- /* return(machdep_sys_wait4(0, b, c, d)); */
- }
- /* ==========================================================================
- * machdep_sys_waitpid()
- */
- machdep_sys_waitpid(int a, int * b, int c)
- {
- idtype_t id;
- switch (a) {
- case -1:
- id = P_ALL;
- break;
- case 0:
- a = machdep_sys_pgrpsys(0);
- id = P_PGID;
- break;
- default:
- if (a < 0) {
- id = P_PGID;
- a = -a;
- } else {
- id = P_PID;
- }
- break;
- }
- return(machdep_sys_waitsys(id, a, b, c));
- }
- /* ==========================================================================
- * machdep_sys_dup2()
- */
- machdep_sys_dup2(int a, int b)
- {
- machdep_sys_close(b);
- machdep_sys_fcntl(a, F_DUPFD, b);
- }
- /* ==========================================================================
- * machdep_sys_ftruncate()
- */
- machdep_sys_ftruncate(int a, off_t b)
- {
- flock_t c;
- c.l_len = 0;
- c.l_start = b;
- c.l_whence = 0;
- return(machdep_sys_fcntl(a, F_FREESP, c));
- }
- /* ==========================================================================
- * machdep_sys_select()
- * Recoded to be quicker by Monty
- */
- static fd_set bogus_fds; /* Always zero, never changed */
- machdep_sys_select(int nfds, fd_set *readfds, fd_set *writefds,
- fd_set *exceptfds, struct timeval *timeout)
- {
- struct pollfd fds[64],*ptr;
- int i, fds_count, time_out, found;
- /* Make sure each arg has a valid pointer */
- if ((readfds == NULL) || (writefds == NULL) || (exceptfds == NULL)) {
- if (exceptfds == NULL) {
- exceptfds = &bogus_fds;
- }
- if (writefds == NULL) {
- writefds = &bogus_fds;
- }
- if (readfds == NULL) {
- readfds = &bogus_fds;
- }
- }
- ptr=fds;
- for (i = 0 ; i < nfds; i++)
- {
- if (FD_ISSET(i, readfds))
- {
- if (FD_ISSET(i, writefds))
- ptr->events= POLLIN | POLLOUT;
- else
- ptr->events= POLLIN;
- (ptr++)->fd=i;
- }
- else if (FD_ISSET(i, writefds))
- {
- ptr->events=POLLOUT;
- (ptr++)->fd=i;
- }
- }
- FD_ZERO(readfds);
- FD_ZERO(writefds);
- FD_ZERO(exceptfds);
- time_out = timeout->tv_usec / 1000 + timeout->tv_sec * 1000;
- fds_count=(int) (ptr-fds);
- while ((found = machdep_sys_poll(fds, fds_count, time_out)) <= 0)
- {
- if (found != -ERESTART) /* Try again if restartable */
- return(found); /* Usually 0 ; Cant read or write */
- }
- while (ptr-- != fds)
- {
- if (ptr->revents & POLLIN)
- FD_SET(ptr->fd, readfds);
- if (ptr->revents & POLLOUT)
- FD_SET(ptr->fd,writefds);
- }
- return(found);
- }
- /* ==========================================================================
- * machdep_sys_getdtablesize()
- */
- machdep_sys_getdtablesize()
- {
- return(sysconf(_SC_OPEN_MAX));
- }
- /* ==========================================================================
- * getpagesize()
- */
- getpagesize()
- {
- return(sysconf(_SC_PAGESIZE));
- }
- /* ==========================================================================
- * gethostname()
- */
- int gethostname(char * name, int namelen)
- {
- if (sysinfo(SI_HOSTNAME, name, namelen) == NOTOK) {
- return(NOTOK);
- } else {
- return(OK);
- }
- }
- /* ==========================================================================
- * machdep_sys_sigaction()
- *
- * This is VERY temporary.
- */
- int machdep_sys_sigaction(int a, void * b, void * c)
- {
- return(sigaction(a, b, c));
- }