mirror of
https://sourceware.org/git/glibc.git
synced 2025-08-01 10:06:57 +03:00
Fri May 3 13:32:08 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu>
* intl/Makefile (CPPFLAGS): Change $(nlsdir) to $(i18ndir) in LOCALE_ALIAS_PATH. Fri May 3 03:14:02 1996 Ulrich Drepper <drepper@cygnus.com> * intl/Makefile (routines): Add l10nflist and explodename. (distribute): Add loadinfo.h and locale.alias. (install-others): New variable to install locale.alias. * intl/dcgettext.c, intl/finddomain.c, intl/gettextP.h, intl/loadmsgcat.c: Adapt for upcoming gettext-0.10.13. Some code is now shared with the locale implementation. * intl/explodename.c, intl/l10nflist.c, intl/loadinfo.h: New file. Extracted from finddomain.c. This is also used in the locale implementation. * intl/locale.alias: New file. Locale alias database compatible with X Window System's locale alias file. Can now be used in locale and gettext code. * libio/stdio.h: Add prototypes for asprint and vasprintf. * locale/C-collate.c, locale/C-ctype.c, locale/C-messages.c, locale/C-monetary.c, locale/C-numeric.c, locale/C-time.c: Add new field in structure with name of locale ("C" in this case). * locale/Makefile (routines): Add findlocale. * locale/findlocale.c: New file. Instead of trying to load the directly described file we now try to be much smarter when this fails. Use the same code as gettext does. * locale/loadlocale.c, locale/setlocale.c: Rewrite to know about new loading scheme. * locale/localeinfo.h: Adapt prototypes and declarations for new setlocale implementation. Remove definition of u32_t type. We now use u_int32_t from <sys/types.h>. * locale/programs/charset.h (ILLEGAL_CHAR_VALUE): Provide type with constant. * locale/programs/config.h, locale/lc-collate.c, locale/localeinfo.h, locale/programs/ld-collate.c, locale/programs/ld-ctype.c, locale/programs/ld-messages.c, locale/programs/ld-monetary.c, locale/programs/ld-numeric.c, locale/programs/ld-time.c, locale/weight.h, string/strcoll.c: Change to use u_int32_t and u_int16_t. * locale/programs/localedef.c (construct_output_path): Change name of output locale to contain normalized form of the character set portion. * string/Makefile (routines): Add agrz-ctsep and argz-next. (tests): Add tst-strlen. * string/argz-ctsep.c: New file. Implement reverse operation from argz-stringify. * string/argz-next.c: Non-inline version of function from argz.h. * string/argz.h, string/envz.h: Make usable as global header file. * string/envz.c: Fix declarations to use size_t where prototypes say so. * string/tst-strlen.c: New file. Another test for critical situation in strlen implementations. * sysdeps/i386/i586/strlen.S: Fix bug with highest byte in word being zero. * wctype/test_wctype.c: Fix controlling comparison after change to 32 bit character class array. Fri May 3 12:53:12 1996 Roland McGrath <roland@delasyd.gnu.ai.mit.edu> * sysdeps/unix/sysv/linux/sys/socket.h: Remove spurious doubled line. Thu May 2 22:50:52 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * sysdeps/unix/sysv/linux/getpriority.c: New file. * sysdeps/unix/sysv/linux/syscalls.list: Add s_getpriority. Thu May 2 22:41:31 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * sysdeps/unix/sysv/linux/m68k/fpu_control.h (_FPU_DEFAULT): Disable all exceptions. Thu May 2 22:33:14 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * sysdeps/m68k/fpu/e_acos.c, sysdeps/m68k/fpu/e_acosf.c, sysdeps/m68k/fpu/e_fmod.c, sysdeps/m68k/fpu/e_fmodf.c, sysdeps/m68k/fpu/isinfl.c, sysdeps/m68k/fpu/isnanl.c, sysdeps/m68k/fpu/s_atan.c, sysdeps/m68k/fpu/s_atanf.c, sysdeps/m68k/fpu/s_frexp.c, sysdeps/m68k/fpu/s_frexpf.c, sysdeps/m68k/fpu/s_ilogb.c, sysdeps/m68k/fpu/s_ilogbf.c, sysdeps/m68k/fpu/s_isinf.c, sysdeps/m68k/fpu/s_isinff.c, sysdeps/m68k/fpu/s_ldexp.c, sysdeps/m68k/fpu/s_ldexpf.c, sysdeps/m68k/fpu/s_modf.c, sysdeps/m68k/fpu/s_modff.c: Don't define __NO_MATH_INLINES, which is already defined on command line. Thu May 2 22:18:28 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * sysdeps/libm-ieee754/e_j0f.c (__ieee754_j0f, __ieee754_y0f): Replace 0x80000000 by 0x48000000. * sysdeps/libm-ieee754/e_j1f.c (__ieee754_j1f): Likewise. Thu May 2 21:30:33 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * sunrpc/svc_simple.c: Make global variable pl local to registerrpc. Thu May 2 00:24:04 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * time/Makefile (tz-cflags): New variable. (CFLAGS-tzfile.c): New variable. (CFLAGS-zic.c): Add $(tz-cflags). (tz-cc): Remove variable. ($(objpfx)tzfile.o, $(objpfx)zic.o): Remove targets. * sysdeps/mach/hurd/getcwd.c: Jump out of both loops when we find a name, instead of checking for reaching end of buffer, which happens when the match is the last entry in the buffer.
This commit is contained in:
@ -33,11 +33,11 @@ routines := strcat strchr strcmp strcoll strcpy strcspn strdup \
|
||||
strcasecmp strncase \
|
||||
memccpy memcpy wordcopy strsep \
|
||||
swab strfry memfrob memmem \
|
||||
$(addprefix argz-,append count create \
|
||||
$(addprefix argz-,append count create ctsep next \
|
||||
delete extract insert stringify) \
|
||||
envz
|
||||
|
||||
tests := tester testcopy test-ffs
|
||||
tests := tester testcopy test-ffs tst-strlen
|
||||
distribute := memcopy.h pagecopy.h
|
||||
|
||||
|
||||
|
60
string/argz-ctsep.c
Normal file
60
string/argz-ctsep.c
Normal file
@ -0,0 +1,60 @@
|
||||
/* Copyright (C) 1996 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1996.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Library General Public License as
|
||||
published by the Free Software Foundation; either version 2 of the
|
||||
License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Library General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Library General Public
|
||||
License along with the GNU C Library; see the file COPYING.LIB. If
|
||||
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
Boston, MA 02111-1307, USA. */
|
||||
|
||||
#include <argz.h>
|
||||
#include <errno.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
|
||||
|
||||
error_t
|
||||
__argz_create_sep (const char *string, int delim, char **argz, size_t *len)
|
||||
{
|
||||
size_t nlen = strlen (string) + 1;
|
||||
|
||||
if (nlen != 0)
|
||||
{
|
||||
const char *rp;
|
||||
char *wp;
|
||||
|
||||
*argz = (char *) malloc (nlen);
|
||||
if (*argz == NULL)
|
||||
return ENOMEM;
|
||||
|
||||
rp = string;
|
||||
wp = *argz;
|
||||
do
|
||||
if (*rp == delim)
|
||||
{
|
||||
if (wp > *argz && wp[-1] != '\0')
|
||||
*wp++ = '\0';
|
||||
else
|
||||
--nlen;
|
||||
}
|
||||
else
|
||||
*wp++ = *rp;
|
||||
while (*rp++ != '\0');
|
||||
}
|
||||
if (nlen == 0)
|
||||
*argz = NULL;
|
||||
*len = nlen;
|
||||
|
||||
return 0;
|
||||
}
|
||||
weak_alias (__argz_create_sep, argz_create_sep)
|
39
string/argz-next.c
Normal file
39
string/argz-next.c
Normal file
@ -0,0 +1,39 @@
|
||||
/* Iterate through the elements of an argz block.
|
||||
Copyright (C) 1995, 1996 Free Software Foundation, Inc.
|
||||
|
||||
Written by Miles Bader <miles@gnu.ai.mit.edu>
|
||||
|
||||
This program is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU General Public License as
|
||||
published by the Free Software Foundation; either version 2, or (at
|
||||
your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful, but
|
||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
|
||||
#include <argz.h>
|
||||
#include <string.h>
|
||||
|
||||
char *
|
||||
__argz_next (char *argz, size_t argz_len, const char *entry)
|
||||
{
|
||||
if (entry)
|
||||
{
|
||||
if (entry < argz + argz_len)
|
||||
entry = strchr (entry, '\0') + 1;
|
||||
|
||||
return entry >= argz + argz_len ? NULL : entry;
|
||||
}
|
||||
else
|
||||
if (argz_len > 0)
|
||||
return argz;
|
||||
else
|
||||
return NULL;
|
||||
}
|
||||
weak_alias (__argz_next, argz_next)
|
@ -20,42 +20,59 @@
|
||||
|
||||
#ifndef __ARGZ_H__
|
||||
#define __ARGZ_H__ 1
|
||||
|
||||
#include <features.h>
|
||||
|
||||
#include <errno.h> /* Define error_t. */
|
||||
#include <string.h> /* Need size_t, and strchr is called below. */
|
||||
|
||||
|
||||
__BEGIN_DECLS
|
||||
|
||||
/* Make a '\0' separated arg vector from a unix argv vector, returning it in
|
||||
ARGZ, and the total length in LEN. If a memory allocation error occurs,
|
||||
ENOMEM is returned, otherwise 0. The result can be destroyed using free. */
|
||||
error_t __argz_create (char **argv, char **argz, size_t *len);
|
||||
error_t argz_create (char **argv, char **argz, size_t *len);
|
||||
error_t __argz_create __P ((char **__argv, char **__argz, size_t *__len));
|
||||
error_t argz_create __P ((char **__argv, char **__argz, size_t *__len));
|
||||
|
||||
/* Make a '\0' separated arg vector from a SEP separated list in
|
||||
STRING, returning it in ARGZ, and the total length in LEN. If a
|
||||
memory allocation error occurs, ENOMEM is returned, otherwise 0.
|
||||
The result can be destroyed using free. */
|
||||
error_t __argz_create_sep __P ((__const char *__string, int __sep,
|
||||
char **__argz, size_t *__len));
|
||||
error_t argz_create_sep __P ((__const char *__string, int __sep,
|
||||
char **__argz, size_t *__len));
|
||||
|
||||
/* Returns the number of strings in ARGZ. */
|
||||
size_t __argz_count (const char *argz, size_t len);
|
||||
size_t argz_count (const char *argz, size_t len);
|
||||
size_t __argz_count __P ((__const char *__argz, size_t __len));
|
||||
size_t argz_count __P ((__const char *__argz, size_t __len));
|
||||
|
||||
/* Puts pointers to each string in ARGZ into ARGV, which must be large enough
|
||||
to hold them all. */
|
||||
void __argz_extract (const char *argz, size_t len, char **argv);
|
||||
void argz_extract (const char *argz, size_t len, char **argv);
|
||||
void __argz_extract __P ((__const char *__argz, size_t __len, char **__argv));
|
||||
void argz_extract __P ((__const char *__argz, size_t __len, char **__argv));
|
||||
|
||||
/* Make '\0' separated arg vector ARGZ printable by converting all the '\0's
|
||||
except the last into the character SEP. */
|
||||
void __argz_stringify (char *argz, size_t len, int sep);
|
||||
void argz_stringify (char *argz, size_t len, int sep);
|
||||
void __argz_stringify __P ((char *__argz, size_t __len, int __sep));
|
||||
void argz_stringify __P ((char *__argz, size_t __len, int __sep));
|
||||
|
||||
/* Append BUF, of length BUF_LEN to the argz vector in ARGZ & ARGZ_LEN. */
|
||||
error_t __argz_append (char **argz, size_t *argz_len,
|
||||
const char *buf, size_t buf_len);
|
||||
error_t argz_append (char **argz, size_t *argz_len,
|
||||
const char *buf, size_t buf_len);
|
||||
error_t __argz_append __P ((char **__argz, size_t *__argz_len,
|
||||
__const char *__buf, size_t __buf_len));
|
||||
error_t argz_append __P ((char **__argz, size_t *__argz_len,
|
||||
__const char *__buf, size_t __buf_len));
|
||||
|
||||
/* Append STR to the argz vector in ARGZ & ARGZ_LEN. */
|
||||
error_t __argz_add (char **argz, size_t *argz_len, const char *str);
|
||||
error_t argz_add (char **argz, size_t *argz_len, const char *str);
|
||||
error_t __argz_add __P ((char **__argz, size_t *__argz_len,
|
||||
__const char *__str));
|
||||
error_t argz_add __P ((char **__argz, size_t *__argz_len,
|
||||
__const char *__str));
|
||||
|
||||
/* Delete ENTRY from ARGZ & ARGZ_LEN, if it appears there. */
|
||||
void __argz_delete (char **argz, size_t *argz_len, char *entry);
|
||||
void argz_delete (char **argz, size_t *argz_len, char *entry);
|
||||
void __argz_delete __P ((char **__argz, size_t *__argz_len, char *__entry));
|
||||
void argz_delete __P ((char **__argz, size_t *__argz_len, char *__entry));
|
||||
|
||||
/* Insert ENTRY into ARGZ & ARGZ_LEN before BEFORE, which should be an
|
||||
existing entry in ARGZ; if BEFORE is NULL, ENTRY is appended to the end.
|
||||
@ -63,17 +80,17 @@ void argz_delete (char **argz, size_t *argz_len, char *entry);
|
||||
ARGZ, ENTRY) will insert ENTRY at the beginning of ARGZ. If BEFORE is not
|
||||
in ARGZ, EINVAL is returned, else if memory can't be allocated for the new
|
||||
ARGZ, ENOMEM is returned, else 0. */
|
||||
error_t __argz_insert (char **argz, size_t *argz_len,
|
||||
char *before, const char *entry);
|
||||
error_t argz_insert (char **argz, size_t *argz_len,
|
||||
char *before, const char *entry);
|
||||
error_t __argz_insert __P ((char **__argz, size_t *__argz_len,
|
||||
char *__before, __const char *__entry));
|
||||
error_t argz_insert __P ((char **__argz, size_t *__argz_len,
|
||||
char *__before, __const char *__entry));
|
||||
|
||||
/* Returns the next entry in ARGZ & ARGZ_LEN after ENTRY, or NULL if there
|
||||
are no more. If entry is NULL, then the first entry is returned. This
|
||||
behavior allows two convenient iteration styles:
|
||||
|
||||
char *entry = 0;
|
||||
while (entry = argz_next (argz, argz_len, entry))
|
||||
while ((entry = argz_next (argz, argz_len, entry)))
|
||||
...;
|
||||
|
||||
or
|
||||
@ -82,19 +99,33 @@ error_t argz_insert (char **argz, size_t *argz_len,
|
||||
for (entry = argz; entry; entry = argz_next (argz, argz_len, entry))
|
||||
...;
|
||||
*/
|
||||
extern char *__argz_next __P ((char *__argz, size_t __argz_len,
|
||||
__const char *__entry));
|
||||
extern char *argz_next __P ((char *__argz, size_t __argz_len,
|
||||
__const char *__entry));
|
||||
|
||||
#if defined (__OPTIMIZE__) && __GNUC__ >= 2
|
||||
extern inline char *
|
||||
argz_next (char *argz, size_t argz_len, const char *entry)
|
||||
__argz_next (char *argz, size_t argz_len, const char *entry)
|
||||
{
|
||||
if (entry)
|
||||
if (entry >= argz + argz_len)
|
||||
return 0;
|
||||
else
|
||||
return strchr (entry, '\0') + 1;
|
||||
{
|
||||
if (entry < argz + argz_len)
|
||||
entry = strchr (entry, '\0') + 1;
|
||||
|
||||
return entry >= argz + argz_len ? NULL : entry;
|
||||
}
|
||||
else
|
||||
if (argz_len > 0)
|
||||
return argz;
|
||||
else
|
||||
return 0;
|
||||
}
|
||||
extern inline char *
|
||||
argz_next (char *argz, size_t argz_len, const char *entry)
|
||||
{
|
||||
return __argz_next (argz, argz_len, entry);
|
||||
}
|
||||
#endif /* optimizing GCC2 */
|
||||
|
||||
#endif /* __ARGZ_H__ */
|
||||
|
@ -29,8 +29,8 @@
|
||||
/* Returns a pointer to the entry in ENVZ for NAME, or 0 if there is none.
|
||||
If NAME contains the separator character, only the portion before it is
|
||||
used in the comparison. */
|
||||
char *
|
||||
envz_entry (char *envz, unsigned envz_len, char *name)
|
||||
const char *
|
||||
envz_entry (const char *envz, size_t envz_len, const char *name)
|
||||
{
|
||||
while (envz_len)
|
||||
{
|
||||
@ -57,8 +57,8 @@ envz_entry (char *envz, unsigned envz_len, char *name)
|
||||
|
||||
/* Returns a pointer to the value portion of the entry in ENVZ for NAME, or 0
|
||||
if there is none. */
|
||||
char *
|
||||
envz_get (char *envz, unsigned envz_len, char *name)
|
||||
const char *
|
||||
envz_get (const char *envz, size_t envz_len, const char *name)
|
||||
{
|
||||
char *entry = envz_entry (envz, envz_len, name);
|
||||
if (entry)
|
||||
@ -75,7 +75,7 @@ envz_get (char *envz, unsigned envz_len, char *name)
|
||||
|
||||
/* Remove the entry for NAME from ENVZ & ENVZ_LEN, if any. */
|
||||
void
|
||||
envz_remove (char **envz, unsigned *envz_len, char *name)
|
||||
envz_remove (char **envz, size_t *envz_len, char *name)
|
||||
{
|
||||
char *entry = envz_entry (*envz, *envz_len, name);
|
||||
if (entry)
|
||||
@ -89,7 +89,7 @@ envz_remove (char **envz, unsigned *envz_len, char *name)
|
||||
because when merging with another envz, the null entry can override an
|
||||
entry in the other one. Null entries can be removed with envz_strip (). */
|
||||
error_t
|
||||
envz_add (char **envz, unsigned *envz_len, char *name, char *value)
|
||||
envz_add (char **envz, unsigned *envz_len, const char *name, const char *value)
|
||||
{
|
||||
envz_remove (envz, envz_len, name);
|
||||
|
||||
@ -126,8 +126,8 @@ envz_add (char **envz, unsigned *envz_len, char *name, char *value)
|
||||
OVERRIDE is true, then values in ENVZ2 will supercede those with the same
|
||||
name in ENV, otherwise not. */
|
||||
error_t
|
||||
envz_merge (char **envz, unsigned *envz_len, char *envz2, unsigned envz2_len,
|
||||
int override)
|
||||
envz_merge (char **envz, unsigned *envz_len, const char *envz2,
|
||||
size_t envz2_len, int override)
|
||||
{
|
||||
error_t err = 0;
|
||||
|
||||
|
@ -28,11 +28,13 @@
|
||||
#include <argz.h>
|
||||
|
||||
/* Returns a pointer to the entry in ENVZ for NAME, or 0 if there is none. */
|
||||
char *envz_entry (const char *envz, size_t envz_len, const char *name);
|
||||
const char *envz_entry __P ((__const char *__envz, size_t __envz_len,
|
||||
__const char *__name));
|
||||
|
||||
/* Returns a pointer to the value portion of the entry in ENVZ for NAME, or 0
|
||||
if there is none. */
|
||||
char *envz_get (const char *envz, size_t envz_len, const char *name);
|
||||
const char *envz_get __P ((__const char *__envz, size_t __envz_len,
|
||||
__const char *__name));
|
||||
|
||||
/* Adds an entry for NAME with value VALUE to ENVZ & ENVZ_LEN. If an entry
|
||||
with the same name already exists in ENVZ, it is removed. If VALUE is
|
||||
@ -40,17 +42,17 @@ char *envz_get (const char *envz, size_t envz_len, const char *name);
|
||||
return NULL, although envz_entry will still return an entry; this is handy
|
||||
because when merging with another envz, the null entry can override an
|
||||
entry in the other one. Null entries can be removed with envz_strip (). */
|
||||
error_t envz_add (char **envz, size_t *envz_len,
|
||||
const char *name, const char *value);
|
||||
error_t envz_add __P ((char **__envz, size_t *__envz_len,
|
||||
__const char *__name, __const char *__value));
|
||||
|
||||
/* Adds each entry in ENVZ2 to ENVZ & ENVZ_LEN, as if with envz_add(). If
|
||||
OVERRIDE is true, then values in ENVZ2 will supercede those with the same
|
||||
name in ENV, otherwise not. */
|
||||
error_t envz_merge (char **envz, size_t *envz_len,
|
||||
const char *envz2, size_t envz2_len,
|
||||
int override);
|
||||
error_t envz_merge __P ((char **__envz, size_t *__envz_len,
|
||||
__const char *__envz2, size_t __envz2_len,
|
||||
int __override));
|
||||
|
||||
/* Remove null entries. */
|
||||
void envz_strip (char **envz, size_t *envz_len);
|
||||
void envz_strip __P ((char **__envz, size_t *__envz_len));
|
||||
|
||||
#endif /* __ENVZ_H__ */
|
||||
|
@ -71,7 +71,7 @@ STRCOLL (s1, s2)
|
||||
{
|
||||
int s1ignore = 0;
|
||||
int s2ignore = 0;
|
||||
u32_t w1, w2;
|
||||
u_int32_t w1, w2;
|
||||
|
||||
/* Here we have to check for IGNORE entries. If these are
|
||||
found we count them and go on witht he next value. */
|
||||
|
32
string/tst-strlen.c
Normal file
32
string/tst-strlen.c
Normal file
@ -0,0 +1,32 @@
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
|
||||
int
|
||||
main()
|
||||
{
|
||||
static const lens[16] = { 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0, 4 };
|
||||
char buf[24];
|
||||
int words;
|
||||
|
||||
for (words = 0; words < 4; ++words)
|
||||
{
|
||||
int last;
|
||||
memset (buf, 'a', words * 4);
|
||||
|
||||
for (last = 0; last < 16; ++last)
|
||||
{
|
||||
buf[words * 4 + 0] = (last & 1) != 0 ? 'b' : '\0';
|
||||
buf[words * 4 + 1] = (last & 2) != 0 ? 'c' : '\0';
|
||||
buf[words * 4 + 2] = (last & 4) != 0 ? 'd' : '\0';
|
||||
buf[words * 4 + 3] = (last & 8) != 0 ? 'e' : '\0';
|
||||
buf[words * 4 + 4] = '\0';
|
||||
|
||||
if (strlen (buf) != words * 4 + lens[last])
|
||||
{
|
||||
printf ("failed for words=%d and last=%d\n", words, last);
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
}
|
Reference in New Issue
Block a user