mirror of
git://source.winehq.org/git/wine.git
synced 2024-09-14 18:15:43 +00:00
a69b88b2f2
Sun Mar 15 03:46:50 1998 Dimitrie O. Paun <dimi@mail.cs.toronto.edu> * [*/*] Fixed some dprintf_ such that there is one and only one new line for each dprintf and that new line occurs at the end. Transformed some fprintfs into proper debug statements. Removed much redundancy from most of the debug statements. The redundancy appeared because now the component and function name is output automatically. Most debug statements also used to output the name of the function. All these changes prepared the source to switch completely to the new debugging interface. For more info, refer to ./documentation/debug-msg Sat Mar 14 19:45:23 1997 Andreas Mohr <100.30936@germany.net> * [misc/shell.c] [if1632/kernel.spec] Changed parameters of FUNC004() to fix a crash. Not sure if this fix is correct (doc wanted). * [windows/user.c] [if1632/user.spec] [include/user.h] Implemented UserSeeUserDo. * [msdos/int21.c] [include/msdos.h] Added "GET LIST OF LISTS" (INT 21/52h). Sat Mar 14 15:48:02 1998 Douglas Ridgway <ridgway@gmcl.com> * [include/windows.h] [relay32/gdi32.spec] [objects/enhmetafile.c] Beginnings of enhanced metafile support. Fri Mar 13 20:53:09 1998 John Richardson <jrichard@zko.dec.com> * [win32/console.c] Restart interrupted console writes. Fri Mar 13 18:59:24 1998 Matthew Becker <mbecker@glasscity.net> * [*/*.c] Updated documentation for API manpages. * [windows/dce.c] ReleaseDC16: Fixed cast. * [include/windows.h] [memory/virtual.c] VirtualQuery{Ex} should return DWORD instead of BOOL32. Fri Mar 13 13:03:06 1998 Marcus Meissner <msmeissn@cip.informatik.uni-erlangen.de> * [README][documentation/status/] README updated, added lzexpand,version and multimedia status notes to new documentation/status directory. * [ole/*.c][if1632/typelib.spec] Added typelib stubs, several small additions and fixes. * [loader/pe_image.c] Fixed a small bug (fixup_imports got passed the wrong hModule in a remapcase). * [loader/signal.c][if1632/signal.c][misc/winsock_dns.c] [loader/module.c] Fixed some recursive debugger crashes (caused by invalid FS). * [misc/registry.c] Two bugs fixed. Fri Mar 13 04:55:01 1998 David Lee Lambert <lamber45@egr.msu.edu> * [include/winnt.h] [include/winnls.h] Moved LANG_xxx flags to winnls.h * [include/winnls.h] Added flags for GetDateFormat(); fixed validity of LOCALE_SYSTEM_DEFAULT. * [include/windows.h] Added GetTimeFormat() prototypes. * [ole/ole2nls.c] Implemented ASCII date- and time-functions, using an optimized common core; added stubs for Unicode versions; started work on a Unicode core. * [AUTHORS] Added my name. Mon Mar 9 20:10:15 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de> * [relay32/comctl32.spec] [include/imagelist.h] [include/commctrl.h] [misc/imagelist.c] [misc/Makefile.in] First attempt at implementing ImageLists. Sun Mar 8 20:19:49 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de> * [files/dos_fs.c] [configure.in] Try to get FileTimeToLocalFileTime,FileTimeToSystemTime and SystemTimeToFileTime right. Use timegm() where available. * [misc/lstr.c] Fix an off by one error in FormatMessage and handle the case when args = NULL (used by programs to get the length of the string). * [win32/console.c] Actual display a per-process Title string, better working attempt for WriteConsole32W and ReadConsole32W. Fri Mar 6 20:33:45 1998 Slaven Rezic <eserte@cs.tu-berlin.de> * [include/config.h.in][configure.in][multimedia/audio.c] [multimedia/dsound.c] Added check for FreeBSD sound system. Sun Mar 1 17:40:10 1998 Jason Schonberg <schon@mti.sgi.com> * [controls/edit.c] [include/ole.h] [include/shlobj.h] Removed final commas in enum types. Mon Feb 23 07:52:18 1998 Luiz Otavio L. Zorzella <zorzella@nr.conexware.com> * [multimedia/time.c] Workaround to avoid infinite recursion inside timeGetTime. * [multimedia/audio.c] WODM_GETNUMDEVS and WIDM_GETNUMDEVS only return 1 now if the SOUND_DEV can be opened, or if it's busy.
287 lines
7.4 KiB
C
287 lines
7.4 KiB
C
/***************************************************************************
|
|
* Copyright 1995, Technion, Israel Institute of Technology
|
|
* Electrical Eng, Software Lab.
|
|
* Author: Michael Veksler.
|
|
***************************************************************************
|
|
* File: dde_atom.c
|
|
* Purpose : atom functionality for DDE
|
|
*/
|
|
#ifdef CONFIG_IPC
|
|
|
|
#include <ctype.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include "dde_atom.h"
|
|
#include "shm_main_blk.h"
|
|
#include "shm_fragment.h"
|
|
#include "ldt.h"
|
|
#include "debug.h"
|
|
|
|
typedef struct
|
|
{
|
|
WORD count;
|
|
BYTE str[1];
|
|
} AtomData, *AtomData_ptr;
|
|
|
|
#define EMPTY 0 /* empty hash entry */
|
|
#define DELETED -1 /* deleted hash entry */
|
|
#define MIN_STR_ATOM 0xfc00
|
|
|
|
/* OFS2AtomData_ptr: extract AtomData_ptr from ofs */
|
|
#define OFS2AtomData_ptr(ofs) ((AtomData*)((int)&main_block->block+(ofs)))
|
|
|
|
/* OFS2AtomStr: find the string of the atom */
|
|
#define OFS2AtomStr(ofs) (OFS2AtomData_ptr(atom_ofs)->str)
|
|
|
|
/* offset of an atom according to index */
|
|
#define ATOM_OFS(idx) (main_block->atoms[idx])
|
|
|
|
/* rot_left: rotate (with wrap-around) */
|
|
static __inline__ int rot_left(unsigned var,int count)
|
|
{
|
|
return (var<<count) | (var>> (sizeof(var)-count));
|
|
}
|
|
/* find the entry in the atom table for this string */
|
|
static int FindHash(LPCSTR str) /* ignore str case */
|
|
{
|
|
int i,j;
|
|
unsigned hash1,hash2;
|
|
int deleted=-1; /* hash for deleted entry */
|
|
int atom_ofs;
|
|
|
|
/* get basic hash parameters */
|
|
for (i= hash1= hash2= 0; str[i] ; i++) {
|
|
hash1= rot_left(hash1,5) ^ toupper(str[i]);
|
|
hash2= rot_left(hash2,4) ^ toupper(str[i]);
|
|
}
|
|
|
|
hash1%= DDE_ATOMS;
|
|
atom_ofs=ATOM_OFS(hash1);
|
|
switch (atom_ofs) {
|
|
case EMPTY: /* empty atom entry */
|
|
return hash1;
|
|
case DELETED: /* deleted atom entry */
|
|
deleted=hash1;
|
|
break;
|
|
default : /* non empty atom entry */
|
|
if (lstrcmpi16( OFS2AtomStr(atom_ofs) , str) == 0)
|
|
return hash1; /* found string in atom table */
|
|
}
|
|
hash2%= DDE_ATOMS-1 ; /* hash2=0..(DDE_ATOMS-2) */
|
|
hash2++; /* hash2=1..(DDE_ATOMS-1) */
|
|
|
|
/* make jumps in the hash table by hash2 steps */
|
|
for (i=hash1+hash2 ; ; i+=hash2) {
|
|
/* i wraps around into j */
|
|
j=i-DDE_ATOMS;
|
|
if (j >= 0)
|
|
i=j; /* i wraps around */
|
|
|
|
if (i==hash1)
|
|
/* here if covered all hash locations, and got back to beginning */
|
|
return deleted; /* return first empty entry - if any */
|
|
atom_ofs=ATOM_OFS(i);
|
|
switch (atom_ofs) {
|
|
case EMPTY: /* empty atom entry */
|
|
return i;
|
|
case DELETED: /* deleted atom entry */
|
|
if (deleted < 0)
|
|
/* consider only the first deleted entry */
|
|
deleted= i;
|
|
break;
|
|
default : /* nonempty atom entry */
|
|
if (lstrcmpi16( OFS2AtomStr(atom_ofs) , str) == 0)
|
|
return i; /* found string in atom table */
|
|
}
|
|
}
|
|
}
|
|
|
|
void ATOM_GlobalInit(void)
|
|
{
|
|
int i;
|
|
|
|
for (i=0 ; i < DDE_ATOMS ; i++)
|
|
ATOM_OFS(i)=EMPTY;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* DDE_GlobalAddAtom
|
|
*/
|
|
|
|
/* important! don't forget to unlock semaphores before return */
|
|
ATOM DDE_GlobalAddAtom( SEGPTR name )
|
|
{
|
|
int atom_idx;
|
|
int atom_ofs;
|
|
AtomData_ptr ptr;
|
|
ATOM atom;
|
|
char *str;
|
|
|
|
/* First check for integer atom */
|
|
|
|
if (!HIWORD(name)) return (ATOM)LOWORD(name);
|
|
|
|
str = (char *)PTR_SEG_TO_LIN( name );
|
|
if (str[0] == '#')
|
|
{
|
|
ATOM atom= (ATOM) atoi(&str[1]);
|
|
return (atom<MIN_STR_ATOM) ? atom : 0;
|
|
}
|
|
|
|
TRACE(atom,"(\"%s\")\n",str);
|
|
|
|
DDE_IPC_init(); /* will initialize only if needed */
|
|
|
|
shm_write_wait(main_block->sem);
|
|
|
|
atom_idx=FindHash(str);
|
|
atom=(ATOM)0;
|
|
|
|
/* use "return" only at the end so semaphore handling is done only once */
|
|
if (atom_idx>=0) {
|
|
/* unless table full and item not found */
|
|
switch (atom_ofs= ATOM_OFS(atom_idx)) {
|
|
case DELETED:
|
|
case EMPTY: /* need to allocate new atom */
|
|
atom_ofs= shm_FragmentAlloc(&main_block->block,
|
|
strlen(str)+sizeof(AtomData));
|
|
if (atom_ofs==NIL)
|
|
break; /* no more memory (atom==0) */
|
|
ATOM_OFS(atom_idx)=atom_ofs;
|
|
ptr=OFS2AtomData_ptr(atom_ofs);
|
|
strcpy(ptr->str,str);
|
|
ptr->count=1;
|
|
atom=(ATOM)(atom_idx+MIN_STR_ATOM);
|
|
break;
|
|
default : /* has to update existing atom */
|
|
OFS2AtomData_ptr(atom_ofs)->count++;
|
|
atom=(ATOM)(atom_idx+MIN_STR_ATOM);
|
|
} /* end of switch */
|
|
} /* end of if */
|
|
shm_write_signal(main_block->sem);
|
|
return atom;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* DDE_GlobalDeleteAtom
|
|
*/
|
|
|
|
ATOM DDE_GlobalDeleteAtom( ATOM atom )
|
|
{
|
|
int atom_idx;
|
|
int atom_ofs;
|
|
AtomData_ptr atom_ptr;
|
|
ATOM retval=(ATOM) 0;
|
|
|
|
TRACE(atom,"(\"%d\")\n",(int)atom);
|
|
atom_idx=(int)atom - MIN_STR_ATOM;
|
|
|
|
if (atom_idx < 0 )
|
|
return 0;
|
|
|
|
DDE_IPC_init(); /* will initialize only if needed */
|
|
|
|
shm_write_wait(main_block->sem);
|
|
/* return used only once from here on -- for semaphore simplicity */
|
|
switch (atom_ofs=ATOM_OFS(atom_idx)) {
|
|
case DELETED:
|
|
case EMPTY:
|
|
fprintf(stderr,"trying to free unallocated atom %d\n", atom);
|
|
retval=atom;
|
|
break;
|
|
default :
|
|
atom_ptr=OFS2AtomData_ptr(atom_ofs);
|
|
if ( --atom_ptr->count == 0) {
|
|
shm_FragmentFree(&main_block->block,atom_ofs);
|
|
ATOM_OFS(atom_idx)=DELETED;
|
|
}
|
|
}
|
|
|
|
shm_write_signal(main_block->sem);
|
|
return retval;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* DDE_GlobalFindAtom
|
|
*/
|
|
ATOM DDE_GlobalFindAtom( SEGPTR name )
|
|
{
|
|
int atom_idx;
|
|
int atom_ofs;
|
|
char *str;
|
|
|
|
TRACE(atom,"(%08lx)\n", name );
|
|
|
|
/* First check for integer atom */
|
|
|
|
if (!HIWORD(name)) return (ATOM)LOWORD(name);
|
|
|
|
str = (char *)PTR_SEG_TO_LIN( name );
|
|
if (str[0] == '#')
|
|
{
|
|
ATOM atom= (ATOM) atoi(&str[1]);
|
|
return (atom<MIN_STR_ATOM) ? atom : 0;
|
|
}
|
|
TRACE(atom,"(\"%s\")\n",str);
|
|
|
|
DDE_IPC_init(); /* will initialize only if needed */
|
|
|
|
shm_read_wait(main_block->sem);
|
|
atom_idx=FindHash(str);
|
|
if (atom_idx>=0)
|
|
atom_ofs=ATOM_OFS(atom_idx); /* is it free ? */
|
|
else
|
|
atom_ofs=EMPTY;
|
|
shm_read_signal(main_block->sem);
|
|
|
|
if (atom_ofs==EMPTY || atom_ofs==DELETED)
|
|
return 0;
|
|
else
|
|
return (ATOM)(atom_idx+MIN_STR_ATOM);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* DDE_GlobalGetAtomName
|
|
*/
|
|
WORD DDE_GlobalGetAtomName( ATOM atom, LPSTR buffer, short count )
|
|
{
|
|
int atom_idx, atom_ofs;
|
|
int size;
|
|
/* temporary buffer to hold maximum "#65535\0" */
|
|
char str_num[7];
|
|
|
|
if (count<2) /* no sense to go on */
|
|
return 0;
|
|
atom_idx=(int)atom - MIN_STR_ATOM;
|
|
|
|
if (atom_idx < 0) { /* word atom */
|
|
/* use wine convention... */
|
|
sprintf(str_num,"#%d%n",(int)atom,&size);
|
|
if (size+1>count) { /* overflow ? */
|
|
/* truncate the string */
|
|
size=count-1;
|
|
str_num[size]='\0';
|
|
}
|
|
strcpy(buffer,str_num);
|
|
return size;
|
|
}
|
|
|
|
DDE_IPC_init(); /* will initialize only if needed */
|
|
|
|
/* string atom */
|
|
shm_read_wait(main_block->sem);
|
|
atom_ofs=ATOM_OFS(atom_idx);
|
|
if (atom_ofs==EMPTY || atom_ofs==DELETED) {
|
|
fprintf(stderr,"GlobalGetAtomName: illegal atom=%d\n",(int)atom);
|
|
size=0;
|
|
} else { /* non empty entry */
|
|
/* string length will be at most count-1, find actual size */
|
|
sprintf(buffer,"%.*s%n",count-1, OFS2AtomStr(atom_ofs), &size);
|
|
}
|
|
shm_read_signal(main_block->sem);
|
|
return size;
|
|
}
|
|
|
|
#endif /* CONFIG_IPC */
|