File: libcig.h

package info (click to toggle)
scsh 0.5.1-2
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 6,540 kB
  • ctags: 8,656
  • sloc: lisp: 39,346; ansic: 13,466; sh: 1,669; makefile: 624
file content (23 lines) | stat: -rw-r--r-- 729 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include "scheme48.h"

/* StobData is used by fdports.c. It should be changed over to STOB_REF
** by removing the extra indirection. */
#define StobData(x) (ADDRESS_AFTER_HEADER(x, scheme_value))

#define IsChar(x) ((((long) x) & 0xff) == SCHCHAR)

#define StrByte(x, i)  ((i) + ADDRESS_AFTER_HEADER((x), char))
#define cig_string_body(x) (ADDRESS_AFTER_HEADER((x), char))

#define AlienVal(x) (STOB_REF((x),0))

extern char *scheme2c_strcpy(scheme_value sstr);

extern scheme_value strlen_or_false(const char *s);

extern char *copystring_or_die(const char *);
extern char *copystring(char *, const char *);

extern scheme_value strlen_or_false(const char *);

extern void cig_check_nargs(int arity, int nargs, const char *fn);