1 |
/* Fundamental definitions for GNU Emacs Lisp interpreter. |
/* Fundamental definitions for GNU Emacs Lisp interpreter. |
2 |
Copyright (C) 1985,86,87,93,94,95,97,98,1999,2000, 2001 |
Copyright (C) 1985,86,87,93,94,95,97,98,1999,2000, 2001, 2002 |
3 |
Free Software Foundation, Inc. |
Free Software Foundation, Inc. |
4 |
|
|
5 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
535 |
#define ASET(ARRAY, IDX, VAL) (AREF ((ARRAY), (IDX)) = (VAL)) |
#define ASET(ARRAY, IDX, VAL) (AREF ((ARRAY), (IDX)) = (VAL)) |
536 |
#define ASIZE(ARRAY) XVECTOR ((ARRAY))->size |
#define ASIZE(ARRAY) XVECTOR ((ARRAY))->size |
537 |
|
|
538 |
|
/* Convenience macros for dealing with Lisp strings. */ |
539 |
|
|
540 |
|
#define SREF(string, index) XSTRING (string)->data[index] |
541 |
|
#define SDATA(string) XSTRING (string)->data |
542 |
|
#define SCHARS(string) XSTRING (string)->size |
543 |
|
#define SBYTES(string) XSTRING (string)->size_bytes |
544 |
|
#define SMBP(string) STRING_MULTIBYTE (string) |
545 |
|
|
546 |
|
|
547 |
/* Basic data type for use of intervals. See the macros in intervals.h. */ |
/* Basic data type for use of intervals. See the macros in intervals.h. */ |
548 |
|
|