mirror of https://github.com/postgres/postgres
backend/Makefiles to be patched could significantly be reduced since they have been adopted to the QNX4 needs. Andreas KardosREL7_0_PATCHES
Bruce Momjian
26 years ago
parent
9805abb0fb
commit
7585deb087
Binary file not shown.
@ -0,0 +1,50 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* dynloader.c |
||||
* dynamic loader for QNX4 using the shared library mechanism |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/dynloader/Attic/qnx4.c,v 1.1 1999/12/16 01:25:04 momjian Exp $ |
||||
* |
||||
* NOTES |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
/* System includes */ |
||||
/*
|
||||
#include <stdio.h> |
||||
#include <a.out.h> |
||||
#include <dl.h> |
||||
*/ |
||||
#include "postgres.h" |
||||
#include "fmgr.h" |
||||
#include "utils/dynamic_loader.h" |
||||
#include "dynloader.h" |
||||
|
||||
void * |
||||
pg_dlopen(char *filename) |
||||
{ |
||||
return (void *) NULL; |
||||
} |
||||
|
||||
func_ptr |
||||
pg_dlsym(void *handle, char *funcname) |
||||
{ |
||||
return NULL; |
||||
} |
||||
|
||||
void |
||||
pg_dlclose(void *handle) |
||||
{ |
||||
} |
||||
|
||||
char * |
||||
pg_dlerror() |
||||
{ |
||||
static char errmsg[] = "Failed to load shared library due to lack of shared library support."; |
||||
|
||||
return errmsg; |
||||
} |
||||
@ -0,0 +1,20 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* dynloader.h |
||||
* dynamic loader for QNX4 using the shared library mechanism |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/dynloader/Attic/qnx4.h,v 1.1 1999/12/16 01:25:04 momjian Exp $ |
||||
* |
||||
* NOTES |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
/* System includes */ |
||||
void *pg_dlopen(char *filename); |
||||
func_ptr pg_dlsym(void *handle, char *funcname); |
||||
void pg_dlclose(void *handle); |
||||
char *pg_dlerror(); |
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,43 @@ |
||||
#-------------------------------------------------------------------------
|
||||
#
|
||||
# Makefile--
|
||||
# Makefile for port/sparc
|
||||
#
|
||||
# IDENTIFICATION
|
||||
# $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/Makefile,v 1.1 1999/12/16 01:25:06 momjian Exp $
|
||||
#
|
||||
#-------------------------------------------------------------------------
|
||||
|
||||
SRCDIR = ../../..
|
||||
include ../../../Makefile.global |
||||
|
||||
INCLUDE_OPT = -I../..
|
||||
|
||||
CFLAGS+=$(INCLUDE_OPT)
|
||||
|
||||
OBJS = isnan.o rint.o sem.o shm.o
|
||||
|
||||
all: SUBSYS.o tstrint tstsem tstshm |
||||
|
||||
SUBSYS.o: $(OBJS) |
||||
$(LD) $(LDREL) $(LDOUT) SUBSYS.o $(OBJS)
|
||||
|
||||
tstrint: tstrint.o rint.o |
||||
$(CC) -o tstrint rint.o tstrint.o
|
||||
|
||||
tstsem: tstsem.o sem.o |
||||
$(CC) -o tstsem sem.o tstsem.o
|
||||
|
||||
tstshm: tstshm.o shm.o |
||||
$(CC) -o tstshm shm.o tstshm.o
|
||||
|
||||
depend dep: |
||||
$(CC) -MM $(INCLUDE_OPT) *.c >depend
|
||||
|
||||
clean: |
||||
rm -f SUBSYS.o $(OBJS) tstrint tstrint.o tstsem tstsem.o tstshm tstshm.o
|
||||
|
||||
ifeq (depend,$(wildcard depend)) |
||||
include depend |
||||
endif |
||||
|
||||
@ -0,0 +1,30 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* ipc.h |
||||
* System V IPC Emulation |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/ipc.h,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
#ifndef _SYS_IPC_H |
||||
#define _SYS_IPC_H |
||||
|
||||
/* Common IPC definitions. */ |
||||
/* Mode bits. */ |
||||
#define IPC_CREAT 0001000 /* create entry if key doesn't exist */ |
||||
#define IPC_EXCL 0002000 /* fail if key exists */ |
||||
#define IPC_NOWAIT 0004000 /* error if request must wait */ |
||||
|
||||
/* Keys. */ |
||||
#define IPC_PRIVATE (key_t)0 /* private key */ |
||||
|
||||
/* Control Commands. */ |
||||
#define IPC_RMID 0 /* remove identifier */ |
||||
|
||||
#endif /* _SYS_IPC_H */ |
||||
@ -0,0 +1,22 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* isnan.c |
||||
* isnan() implementation |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/isnan.c,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
#include "os.h" |
||||
|
||||
unsigned char __nan[8] = __nan_bytes; |
||||
|
||||
int isnan(double dsrc) |
||||
{ |
||||
return !memcmp( &dsrc, &NAN, sizeof( double ) ); |
||||
} |
||||
@ -0,0 +1,31 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* rint.c |
||||
* rint() implementation |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/rint.c,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
#include <math.h> |
||||
#include "os.h" |
||||
|
||||
double rint(double x) |
||||
{ |
||||
double f, n = 0.; |
||||
|
||||
f = modf( x, &n ); |
||||
|
||||
if( x > 0. ) { |
||||
if( f > .5 ) n += 1.; |
||||
} |
||||
else if( x < 0. ) { |
||||
if( f < -.5 ) n -= 1.; |
||||
} |
||||
return n; |
||||
} |
||||
@ -0,0 +1,261 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* sem.c |
||||
* System V Semaphore Emulation |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/sem.c,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
#include <errno.h> |
||||
#include <semaphore.h> |
||||
#include <string.h> |
||||
#include <sys/types.h> |
||||
#include <unistd.h> |
||||
#include <fcntl.h> |
||||
#include <sys/mman.h> |
||||
#include "postgres.h" |
||||
#include "storage/ipc.h" |
||||
#include <sys/sem.h> |
||||
|
||||
|
||||
#define SETMAX 32 |
||||
#define SEMMAX 16 |
||||
|
||||
#define MODE 0777 |
||||
#define SHM_INFO_NAME "SysV_Sem_Info" |
||||
|
||||
|
||||
struct sem_info { |
||||
sem_t sem; |
||||
struct { |
||||
key_t key; |
||||
int nsems; |
||||
sem_t sem[SEMMAX]; /* array of semaphores */ |
||||
pid_t pid[SEMMAX]; /* array of PIDs */ |
||||
} set[SETMAX]; |
||||
}; |
||||
|
||||
static struct sem_info *SemInfo = ( struct sem_info * )-1; |
||||
|
||||
|
||||
int semctl( int semid, int semnum, int cmd, /*...*/union semun arg ) |
||||
{ |
||||
int r; |
||||
|
||||
sem_wait( &SemInfo->sem ); |
||||
|
||||
if( semid < 0 || semid >= SETMAX || |
||||
semnum < 0 || semnum >= SemInfo->set[semid].nsems ) { |
||||
sem_post( &SemInfo->sem ); |
||||
errno = EINVAL; |
||||
return -1; |
||||
} |
||||
|
||||
switch( cmd ) { |
||||
case GETPID: |
||||
r = SemInfo->set[semid].pid[semnum]; |
||||
break; |
||||
|
||||
case GETVAL: |
||||
r = SemInfo->set[semid].sem[semnum].value; |
||||
break; |
||||
|
||||
case GETALL: |
||||
for( semnum = 0; semnum < SemInfo->set[semid].nsems; semnum++ ) { |
||||
arg.array[semnum] = SemInfo->set[semid].sem[semnum].value; |
||||
} |
||||
break; |
||||
|
||||
case SETVAL: |
||||
SemInfo->set[semid].sem[semnum].value = arg.val; |
||||
break; |
||||
|
||||
case SETALL: |
||||
for( semnum = 0; semnum < SemInfo->set[semid].nsems; semnum++ ) { |
||||
SemInfo->set[semid].sem[semnum].value = arg.array[semnum]; |
||||
} |
||||
break; |
||||
|
||||
case IPC_RMID: |
||||
for( semnum = 0; semnum < SemInfo->set[semid].nsems; semnum++ ) { |
||||
if( sem_destroy( &SemInfo->set[semid].sem[semnum] ) == -1 ) { |
||||
r = -1; |
||||
} |
||||
} |
||||
SemInfo->set[semid].key = -1; |
||||
SemInfo->set[semid].nsems = 0; |
||||
break; |
||||
|
||||
default: |
||||
sem_post( &SemInfo->sem ); |
||||
errno = EINVAL; |
||||
return -1; |
||||
} |
||||
|
||||
sem_post( &SemInfo->sem ); |
||||
|
||||
return r; |
||||
} |
||||
|
||||
int semget( key_t key, int nsems, int semflg ) |
||||
{ |
||||
int fd, semid, semnum/*, semnum1*/; |
||||
int exist = 0; |
||||
|
||||
if( nsems < 0 || nsems > SEMMAX ) { |
||||
errno = EINVAL; |
||||
return -1; |
||||
} |
||||
|
||||
/* open and map shared memory */ |
||||
if( SemInfo == ( struct sem_info * )-1 ) { |
||||
/* test if the shared memory already exists */ |
||||
fd = shm_open( SHM_INFO_NAME, O_RDWR | O_CREAT | O_EXCL, MODE ); |
||||
if( fd == -1 && errno == EEXIST ) { |
||||
exist = 1; |
||||
fd = shm_open( SHM_INFO_NAME, O_RDWR | O_CREAT, MODE ); |
||||
} |
||||
if( fd == -1 ) return fd; |
||||
/* The size may only be set once. Ignore errors. */ |
||||
ltrunc( fd, sizeof( struct sem_info ), SEEK_SET ); |
||||
SemInfo = mmap( NULL, sizeof( struct sem_info ), |
||||
PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0 ); |
||||
if( SemInfo == MAP_FAILED ) return -1; |
||||
if( !exist ) { |
||||
/* create semaphore for locking */ |
||||
sem_init( &SemInfo->sem, 1, 1 ); |
||||
sem_wait( &SemInfo->sem ); |
||||
/* initilize shared memory */ |
||||
memset( SemInfo->set, 0, sizeof( SemInfo->set ) ); |
||||
for( semid = 0; semid < SETMAX; semid++ ) { |
||||
SemInfo->set[semid].key = -1; |
||||
} |
||||
sem_post( &SemInfo->sem ); |
||||
} |
||||
} |
||||
|
||||
sem_wait( &SemInfo->sem ); |
||||
|
||||
if( key != IPC_PRIVATE ) { |
||||
/* search existing element */ |
||||
semid = 0; |
||||
while( semid < SETMAX && SemInfo->set[semid].key != key ) semid++; |
||||
if( !( semflg & IPC_CREAT ) && semid >= SETMAX ) { |
||||
sem_post( &SemInfo->sem ); |
||||
errno = ENOENT; |
||||
return -1; |
||||
} |
||||
else if( semid < SETMAX ) { |
||||
if( semflg & IPC_CREAT && semflg & IPC_EXCL ) { |
||||
sem_post( &SemInfo->sem ); |
||||
errno = EEXIST; |
||||
return -1; |
||||
} |
||||
else { |
||||
if( nsems != 0 && SemInfo->set[semid].nsems < nsems ) { |
||||
sem_post( &SemInfo->sem ); |
||||
errno = EINVAL; |
||||
return -1; |
||||
} |
||||
sem_post( &SemInfo->sem ); |
||||
return semid; |
||||
} |
||||
} |
||||
} |
||||
|
||||
/* search first free element */ |
||||
semid = 0; |
||||
while( semid < SETMAX && SemInfo->set[semid].key != -1 ) semid++; |
||||
if( semid >= SETMAX ) { |
||||
sem_post( &SemInfo->sem ); |
||||
errno = ENOSPC; |
||||
return -1; |
||||
} |
||||
|
||||
for( semnum = 0; semnum < nsems; semnum++ ) { |
||||
sem_init( &SemInfo->set[semid].sem[semnum], 1, 0 ); |
||||
/* Currently sem_init always returns -1.
|
||||
if( sem_init( &SemInfo->set[semid].sem[semnum], 1, 0 ) == -1 ) { |
||||
for( semnum1 = 0; semnum1 < semnum; semnum1++ ) { |
||||
sem_destroy( &SemInfo->set[semid].sem[semnum1] ); |
||||
} |
||||
sem_post( &SemInfo->sem ); |
||||
return -1; |
||||
} |
||||
*/ |
||||
} |
||||
|
||||
SemInfo->set[semid].key = key; |
||||
SemInfo->set[semid].nsems = nsems; |
||||
|
||||
sem_post( &SemInfo->sem ); |
||||
|
||||
return 0; |
||||
} |
||||
|
||||
int semop( int semid, struct sembuf *sops, size_t nsops ) |
||||
{ |
||||
int i, j, r = 0, r1, errno1 = 0; |
||||
|
||||
sem_wait( &SemInfo->sem ); |
||||
|
||||
if( semid < 0 || semid >= SETMAX ) { |
||||
sem_post( &SemInfo->sem ); |
||||
errno = EINVAL; |
||||
return -1; |
||||
} |
||||
for( i = 0; i < nsops; i++ ) { |
||||
if( /*sops[i].sem_num < 0 ||*/ sops[i].sem_num >= SemInfo->set[semid].nsems ) { |
||||
sem_post( &SemInfo->sem ); |
||||
errno = EFBIG; |
||||
return -1; |
||||
} |
||||
} |
||||
|
||||
for( i = 0; i < nsops; i++ ) { |
||||
if( sops[i].sem_op < 0 ) { |
||||
if( sops[i].sem_flg & IPC_NOWAIT ) { |
||||
for( j = 0; j < -sops[i].sem_op; j++ ) { |
||||
if( sem_trywait( &SemInfo->set[semid].sem[sops[i].sem_num] ) ) { |
||||
errno1 = errno; |
||||
r = -1; |
||||
} |
||||
} |
||||
} |
||||
else { |
||||
for( j = 0; j < -sops[i].sem_op; j++ ) { |
||||
sem_post( &SemInfo->sem ); /* avoid deadlock */ |
||||
r1 = sem_wait( &SemInfo->set[semid].sem[sops[i].sem_num] ); |
||||
sem_wait( &SemInfo->sem ); |
||||
if( r1 ) { |
||||
errno1 = errno; |
||||
r = r1; |
||||
} |
||||
} |
||||
} |
||||
} |
||||
else if( sops[i].sem_op > 0 ) { |
||||
for( j = 0; j < sops[i].sem_op; j++ ) { |
||||
if( sem_post( &SemInfo->set[semid].sem[sops[i].sem_num] ) ) { |
||||
errno1 = errno; |
||||
r = -1; |
||||
} |
||||
} |
||||
} |
||||
else /* sops[i].sem_op == 0 */ { |
||||
/* not supported */ |
||||
} |
||||
SemInfo->set[semid].pid[sops[i].sem_num] = getpid( ); |
||||
} |
||||
|
||||
sem_post( &SemInfo->sem ); |
||||
|
||||
errno = errno1; |
||||
return r; |
||||
} |
||||
@ -0,0 +1,54 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* sem.h |
||||
* System V Semaphore Emulation |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/sem.h,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
#ifndef _SYS_SEM_H |
||||
#define _SYS_SEM_H |
||||
|
||||
#include <sys/ipc.h> |
||||
|
||||
#ifdef __cplusplus |
||||
extern "C" { |
||||
#endif |
||||
|
||||
/*
|
||||
* Semctl Command Definitions. |
||||
*/ |
||||
|
||||
#define GETNCNT 3 /* get semncnt */ |
||||
#define GETPID 4 /* get sempid */ |
||||
#define GETVAL 5 /* get semval */ |
||||
#define GETALL 6 /* get all semval's */ |
||||
#define GETZCNT 7 /* get semzcnt */ |
||||
#define SETVAL 8 /* set semval */ |
||||
#define SETALL 9 /* set all semval's */ |
||||
|
||||
/*
|
||||
* User semaphore template for semop system calls. |
||||
*/ |
||||
|
||||
struct sembuf { |
||||
ushort_t sem_num; /* semaphore # */ |
||||
short sem_op; /* semaphore operation */ |
||||
short sem_flg; /* operation flags */ |
||||
}; |
||||
|
||||
extern int semctl( int semid, int semnum, int cmd, /*...*/union semun arg ); |
||||
extern int semget( key_t key, int nsems, int semflg ); |
||||
extern int semop( int semid, struct sembuf *sops, size_t nsops ); |
||||
|
||||
#ifdef __cplusplus |
||||
} |
||||
#endif |
||||
|
||||
#endif /* _SYS_SEM_H */ |
||||
@ -0,0 +1,193 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* shm.c |
||||
* System V Shared Memory Emulation |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/shm.c,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
#include <errno.h> |
||||
#include <fcntl.h> |
||||
#include <stdlib.h> |
||||
#include <unistd.h> |
||||
#include <sys/mman.h> |
||||
#include <sys/shm.h> |
||||
|
||||
|
||||
#define MODE 0777 |
||||
|
||||
#define SHMMAX 1024 |
||||
|
||||
|
||||
struct shm_info { |
||||
int shmid; |
||||
key_t key; |
||||
size_t size; |
||||
void *addr; |
||||
}; |
||||
|
||||
static struct shm_info *ShmInfo; |
||||
|
||||
|
||||
static int shm_putinfo( struct shm_info *info ); |
||||
static int shm_updinfo( int i, struct shm_info *info ); |
||||
static int shm_getinfo( int shmid, struct shm_info *info ); |
||||
static int shm_getinfobyaddr( const void *addr, struct shm_info *info ); |
||||
|
||||
|
||||
static int shm_putinfo( struct shm_info *info ) |
||||
{ |
||||
int i; |
||||
|
||||
if( ShmInfo == NULL ) { |
||||
ShmInfo = calloc( SHMMAX, sizeof( struct shm_info ) ); |
||||
if( ShmInfo == NULL ) return -1; |
||||
/* initialize ShmInfo */ |
||||
for( i = 0; i < SHMMAX; i++ ) { |
||||
ShmInfo[i].shmid = -1; |
||||
} |
||||
} |
||||
|
||||
/* search first free element */ |
||||
i = 0; |
||||
while( i < SHMMAX && ShmInfo[i].shmid != -1 ) i++; |
||||
if( i >= SHMMAX ) { |
||||
errno = ENOSPC; |
||||
return -1; |
||||
} |
||||
|
||||
memcpy( &ShmInfo[i], info, sizeof( struct shm_info ) ); |
||||
|
||||
return i; |
||||
} |
||||
|
||||
static int shm_updinfo( int i, struct shm_info *info ) |
||||
{ |
||||
if( i >= SHMMAX ) return -1; |
||||
if( ShmInfo == NULL ) return -1; |
||||
|
||||
memcpy( &ShmInfo[i], info, sizeof( struct shm_info ) ); |
||||
|
||||
return i; |
||||
} |
||||
|
||||
static int shm_getinfo( int shmid, struct shm_info *info ) |
||||
{ |
||||
int i; |
||||
|
||||
if( ShmInfo == NULL ) return -1; |
||||
|
||||
/* search element */ |
||||
i = 0; |
||||
while( i < SHMMAX && ShmInfo[i].shmid != shmid ) i++; |
||||
if( i >= SHMMAX ) return -1; |
||||
|
||||
memcpy( info, &ShmInfo[i], sizeof( struct shm_info ) ); |
||||
|
||||
return i; |
||||
} |
||||
|
||||
static int shm_getinfobyaddr( const void *addr, struct shm_info *info ) |
||||
{ |
||||
int i; |
||||
|
||||
if( ShmInfo == ( struct shm_info * )-1 ) return -1; |
||||
|
||||
/* search element */ |
||||
i = 0; |
||||
while( i < SHMMAX && ShmInfo[i].addr != addr ) i++; |
||||
if( i >= SHMMAX ) return -1; |
||||
|
||||
memcpy( info, &ShmInfo[i], sizeof( struct shm_info ) ); |
||||
|
||||
return i; |
||||
} |
||||
|
||||
|
||||
void *shmat( int shmid, const void *shmaddr, int shmflg ) |
||||
{ |
||||
struct shm_info info; |
||||
int i; |
||||
|
||||
i = shm_getinfo( shmid, &info ); |
||||
if( i == -1 ) { |
||||
errno = EACCES; |
||||
return ( void * )-1; |
||||
} |
||||
|
||||
info.addr = mmap( ( void * )shmaddr, info.size,
|
||||
PROT_READ | PROT_WRITE, MAP_SHARED, shmid, 0 ); |
||||
if( info.addr == MAP_FAILED ) return info.addr; |
||||
|
||||
if( shm_updinfo( i, &info ) == -1 ) { |
||||
errno = EACCES; |
||||
return ( void * )-1; |
||||
} |
||||
|
||||
return info.addr; |
||||
} |
||||
|
||||
int shmdt( const void *addr ) |
||||
{ |
||||
struct shm_info info; |
||||
|
||||
if( shm_getinfobyaddr( addr, &info ) == -1 ) { |
||||
errno = EACCES; |
||||
return -1; |
||||
} |
||||
|
||||
return munmap( ( void * )addr, info.size ); |
||||
} |
||||
|
||||
int shmctl( int shmid, int cmd, struct shmid_ds *buf ) |
||||
{ |
||||
struct shm_info info; |
||||
char name[NAME_MAX+1]; |
||||
|
||||
/* IPC_RMID supported only */ |
||||
if( cmd != IPC_RMID ) { |
||||
errno = EINVAL; |
||||
return -1; |
||||
} |
||||
|
||||
if( shm_getinfo( shmid, &info ) == -1 ) { |
||||
errno = EACCES; |
||||
return -1; |
||||
} |
||||
|
||||
return shm_unlink( itoa( info.key, name, 16 ) ); |
||||
} |
||||
|
||||
int shmget( key_t key, size_t size, int flags ) |
||||
{ |
||||
char name[NAME_MAX+1]; |
||||
int oflag = 0; |
||||
struct shm_info info; |
||||
|
||||
if( flags & IPC_CREAT ) oflag |= O_CREAT; |
||||
if( flags & IPC_EXCL ) oflag |= O_EXCL; |
||||
if( flags & SHM_R ) { |
||||
if( flags & SHM_W ) oflag |= O_RDWR; |
||||
else oflag |= O_RDONLY; |
||||
} |
||||
info.shmid = shm_open( itoa( key, name, 16 ), oflag, MODE ); |
||||
|
||||
/* store shared memory information */ |
||||
if( info.shmid != -1 ) { |
||||
info.key = key; |
||||
info.size = size; |
||||
info.addr = NULL; |
||||
if( shm_putinfo( &info ) == -1 ) return -1; |
||||
} |
||||
|
||||
/* The size may only be set once. Ignore errors. */ |
||||
ltrunc( info.shmid, size, SEEK_SET ); |
||||
|
||||
return info.shmid; |
||||
} |
||||
@ -0,0 +1,40 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* shm.h |
||||
* System V Shared Memory Emulation |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/shm.h,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
#ifndef _SYS_SHM_H |
||||
#define _SYS_SHM_H |
||||
|
||||
#include <sys/ipc.h> |
||||
|
||||
#ifdef __cplusplus |
||||
extern "C" { |
||||
#endif |
||||
|
||||
#define SHM_R 0400 /* read permission */ |
||||
#define SHM_W 0200 /* write permission */ |
||||
|
||||
struct shmid_ds { |
||||
int dummy; |
||||
}; |
||||
|
||||
extern void *shmat( int shmid, const void *shmaddr, int shmflg ); |
||||
extern int shmdt( const void *addr ); |
||||
extern int shmctl( int shmid, int cmd, struct shmid_ds *buf ); |
||||
extern int shmget( key_t key, size_t size, int flags ); |
||||
|
||||
#ifdef __cplusplus |
||||
} |
||||
#endif |
||||
|
||||
#endif /* _SYS_SHM_H */ |
||||
@ -0,0 +1,31 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* tstrint.c |
||||
* rint() test |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/tstrint.c,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
#include <errno.h> |
||||
#include <stdio.h> |
||||
#include <stdlib.h> |
||||
#include "os.h" |
||||
|
||||
|
||||
int main( int argc, char **argv ) |
||||
{ |
||||
double x; |
||||
|
||||
if( argc != 2 ) exit( 1 ); |
||||
|
||||
x = strtod( argv[1], NULL ); |
||||
printf( "rint( %f ) = %f\n", x, rint( x ) ); |
||||
|
||||
return 0; |
||||
} |
||||
@ -0,0 +1,135 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* tstsem.c |
||||
* Test of System V Semaphore Emulation |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/tstsem.c,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
|
||||
#include <stdio.h> |
||||
#include <stdlib.h> |
||||
#include <unistd.h> |
||||
#include "postgres.h" |
||||
#include "storage/ipc.h" |
||||
#include <sys/mman.h> |
||||
#include <sys/sem.h> |
||||
|
||||
|
||||
#define SEMMAX 1 |
||||
#define OPSMAX 1 |
||||
|
||||
|
||||
int main( int argc, char **argv ) |
||||
{ |
||||
int c, errflg = 0; |
||||
char s[80]; |
||||
key_t key = IPC_PRIVATE; |
||||
int nsems = SEMMAX; |
||||
int semflg = 0; |
||||
int unlink = 0; |
||||
int semid, i; |
||||
struct sembuf sops[OPSMAX]; |
||||
u_short array[SEMMAX]; |
||||
union semun arg; |
||||
|
||||
optarg = NULL; |
||||
while( !errflg && ( c = getopt( argc, argv, "k:n:cxu" ) ) != -1 ) { |
||||
switch( c ) { |
||||
case 'k': key = atoi( optarg ); break; |
||||
case 'n': nsems = atoi( optarg ); break; |
||||
case 'c': semflg |= IPC_CREAT; break; |
||||
case 'x': semflg |= IPC_EXCL; break; |
||||
case 'u': unlink = 1; break; |
||||
default: errflg++; |
||||
} |
||||
} |
||||
if( errflg ) { |
||||
printf( "usage: tstsem [-k key] [-n nsems] [-cxu]\n" ); |
||||
exit( 1 ); |
||||
} |
||||
|
||||
if( unlink ) { |
||||
i = shm_unlink( "SysV_Sem_Info" ); |
||||
if( i == -1 ) perror( "shm_unlink" ); |
||||
exit( i ); |
||||
} |
||||
|
||||
semid = semget( key, nsems, semflg ); |
||||
if( semid == -1 ) { |
||||
perror( "semget" ); |
||||
exit( semid ); |
||||
} |
||||
|
||||
do { |
||||
printf( "(-)sem_op, (+)sem_op, (G)ETVAL, (S)ETVAL, GET(P)ID, GET(A)LL, SETA(L)L, e(x)it: " ); |
||||
scanf( "%s", s ); |
||||
switch( s[0] ) { |
||||
case '-':
|
||||
case '+':
|
||||
sops[0].sem_num = 0; |
||||
sops[0].sem_op = atoi( s ); |
||||
if( sops[0].sem_op == 0 ) sops[0].sem_op = s[0] == '+' ? +1 : -1; |
||||
sops[0].sem_flg = 0; |
||||
if( semop( semid, sops, 1 ) == -1 ) perror( "semop" ); |
||||
break; |
||||
|
||||
case 'G':
|
||||
case 'g':
|
||||
i = semctl( semid, 0, GETVAL, arg ); |
||||
if( i == -1 ) perror( "semctl" ); |
||||
else printf( "semval = %d\n", i ); |
||||
break; |
||||
|
||||
case 'S':
|
||||
case 's':
|
||||
printf( "semval = " ); |
||||
scanf( "%d", &arg.val ); |
||||
if( semctl( semid, 0, SETVAL, arg ) == -1 ) perror( "semctl" ); |
||||
break; |
||||
|
||||
case 'P':
|
||||
case 'p':
|
||||
i = semctl( semid, 0, GETPID, arg ); |
||||
if( i == -1 ) perror( "semctl" ); |
||||
else printf( "PID = %d\n", i ); |
||||
break; |
||||
|
||||
case 'A':
|
||||
case 'a':
|
||||
arg.array = array; |
||||
i = semctl( semid, 0, GETALL, arg ); |
||||
if( i == -1 ) perror( "semctl" ); |
||||
else { |
||||
for( i = 0; i < nsems; i++ ) { |
||||
printf( "semval[%d] = %hu\n", i, arg.array[i] ); |
||||
} |
||||
} |
||||
break; |
||||
|
||||
case 'L':
|
||||
case 'l':
|
||||
arg.array = array; |
||||
for( i = 0; i < nsems; i++ ) { |
||||
printf( "semval[%d] = ", i ); |
||||
scanf( "%hu", &arg.array[i] ); |
||||
} |
||||
if( semctl( semid, 0, SETALL, arg ) == -1 )perror( "semctl" ); |
||||
break; |
||||
} |
||||
} |
||||
while( s[0] != 'x' ); |
||||
|
||||
if( semctl( semid, 0, IPC_RMID, arg ) == -1 ) { |
||||
perror( "semctl" ); |
||||
exit( -1 ); |
||||
} |
||||
|
||||
exit( 0 ); |
||||
} |
||||
@ -0,0 +1,80 @@ |
||||
/*-------------------------------------------------------------------------
|
||||
* |
||||
* tstshm.c |
||||
* Test of System V Shared Memory Emulation |
||||
* |
||||
* Copyright (c) 1999, repas AEG Automation GmbH |
||||
* |
||||
* |
||||
* IDENTIFICATION |
||||
* $Header: /cvsroot/pgsql/src/backend/port/qnx/Attic/tstshm.c,v 1.1 1999/12/16 01:25:06 momjian Exp $ |
||||
* |
||||
*------------------------------------------------------------------------- |
||||
*/ |
||||
|
||||
#include <stdio.h> |
||||
#include <stdlib.h> |
||||
#include <unistd.h> |
||||
#include <sys/shm.h> |
||||
|
||||
|
||||
int main( int argc, char **argv ) |
||||
{ |
||||
int c, errflg = 0; |
||||
char s[80]; |
||||
key_t key = 0x1000; |
||||
size_t size = 256; |
||||
int shmid = -1; |
||||
caddr_t addr = NULL; |
||||
|
||||
optarg = NULL; |
||||
while( !errflg && ( c = getopt( argc, argv, "k:s:" ) ) != -1 ) { |
||||
switch( c ) { |
||||
case 'k': key = atoi( optarg ); break; |
||||
case 's': size = atoi( optarg ); break; |
||||
default: errflg++; |
||||
} |
||||
} |
||||
if( errflg ) { |
||||
printf( "usage: tstshm [-k key] [-s size]\n" ); |
||||
exit( 1 ); |
||||
} |
||||
|
||||
do { |
||||
printf( "shm(g)et, shm(a)t, shm(d)t, shm(c)tl, (w)rite, (r)ead, e(x)it: " ); |
||||
scanf( "%s", s ); |
||||
switch( s[0] ) { |
||||
case 'g':
|
||||
shmid = shmget( key, size, IPC_CREAT | SHM_R | SHM_W ); |
||||
if( shmid == -1 ) perror( "shmget" ); |
||||
break; |
||||
|
||||
case 'a':
|
||||
addr = shmat( shmid, NULL, 0 ); |
||||
if( addr == ( void * )-1 ) perror( "shmat" ); |
||||
break; |
||||
|
||||
case 'd':
|
||||
if( shmdt( addr ) == -1 ) perror( "shmdt" ); |
||||
else addr = NULL; |
||||
break; |
||||
|
||||
case 'c':
|
||||
if( shmctl( shmid, IPC_RMID, NULL ) == -1 ) perror( "shmctl" ); |
||||
else shmid = -1; |
||||
break; |
||||
|
||||
case 'w':
|
||||
printf( "String to write: " ); |
||||
scanf( "%s", addr ); |
||||
break; |
||||
|
||||
case 'r':
|
||||
puts( addr ); |
||||
break; |
||||
} |
||||
} |
||||
while( s[0] != 'x' ); |
||||
|
||||
return 0; |
||||
} |
||||
@ -0,0 +1,43 @@ |
||||
#include <sys/types.h> /* for namser.h */ |
||||
#include <arpa/nameser.h> /* for BYTE_ORDER */ |
||||
#include <process.h> /* for execv */ |
||||
#include <ioctl.h> /* for unix.h */ |
||||
#include <termios.h> /* for unix.h */ |
||||
#include <unix.h> |
||||
#include <sys/select.h> /* for select */ |
||||
#if !defined(__GNUC__) |
||||
#include <semaphore.h> /* for sem_t */ |
||||
#endif |
||||
|
||||
#define USE_POSIX_TIME |
||||
#define HAS_TEST_AND_SET |
||||
#define HAVE_STRING_H |
||||
|
||||
#undef HAVE_GETRUSAGE |
||||
|
||||
#define strncasecmp strnicmp |
||||
|
||||
#ifndef NAN |
||||
#ifndef __nan_bytes |
||||
#define __nan_bytes { 0, 0, 0, 0, 0, 0, 0xf8, 0x7f } |
||||
#endif /* __nan_bytes */ |
||||
extern unsigned char __nan[8]; |
||||
#define NAN (*(const double *) __nan) |
||||
#endif /* NAN */ |
||||
|
||||
typedef u_short ushort; |
||||
|
||||
#if defined(__GNUC__) |
||||
typedef unsigned char slock_t; |
||||
#else |
||||
typedef sem_t slock_t; |
||||
#endif |
||||
|
||||
extern int isnan(double dsrc); |
||||
|
||||
extern double rint(double x); |
||||
|
||||
extern char *crypt(const char *, const char *); |
||||
|
||||
extern long random(void); |
||||
extern void srandom(unsigned int seed); |
||||
@ -0,0 +1,11 @@ |
||||
MK_NO_LORDER= true
|
||||
CXXFLAGS+= -I/usr/local/lib/gcc-lib/i386-pc-qnx4/egcs-2.91.60/include/g++
|
||||
AR= ar
|
||||
LD= $(AR)
|
||||
LDREL= $(AROPT)
|
||||
LDOUT=
|
||||
LIBS= -lunix
|
||||
LDFLAGS= $(LIBS)
|
||||
|
||||
%$(DLSUFFIX): %.o |
||||
@echo Cannot make shared library $@ from $*.o
|
||||
@ -0,0 +1,12 @@ |
||||
AROPT:cr |
||||
CFLAGS: |
||||
LIBS:-lunix |
||||
SHARED_LIB: |
||||
ALL: |
||||
SRCH_INC: |
||||
SRCH_LIB: |
||||
USE_LOCALE:no |
||||
DLSUFFIX:.so |
||||
YFLAGS:-d |
||||
YACC: |
||||
CXXFLAGS:-I/usr/local/lib/gcc-lib/i386-pc-qnx4/egcs-2.91.60/include/g++ |
||||
Loading…
Reference in new issue