55 lines
1.1 KiB
C
55 lines
1.1 KiB
C
|
/* Structured input/output */
|
||
|
|
|
||
|
|
#ifndef __intext__
|
||
|
|
#define __intext__
|
||
|
|
|
||
|
|
#include "misc.h"
|
||
|
|
#include "mlvalues.h"
|
||
|
|
#include "io.h"
|
||
|
|
|
||
|
|
/* Magic number */
|
||
|
|
|
||
|
|
#define Base_magic_number 0x8495A6B9
|
||
|
|
#define Compact_magic_number (Base_magic_number + 4)
|
||
|
|
|
||
|
|
/* Codes for the compact format */
|
||
|
|
|
||
|
|
#define PREFIX_SMALL_BLOCK 0x80
|
||
|
|
#define PREFIX_SMALL_INT 0x40
|
||
|
|
#define PREFIX_SMALL_STRING 0x20
|
||
|
|
#define CODE_INT8 0x0
|
||
|
|
#define CODE_INT16 0x1
|
||
|
|
#define CODE_INT32 0x2
|
||
|
|
#define CODE_INT64 0x3
|
||
|
|
#define CODE_SHARED8 0x4
|
||
|
|
#define CODE_SHARED16 0x5
|
||
|
|
#define CODE_SHARED32 0x6
|
||
|
|
#define CODE_BLOCK32 0x8
|
||
|
|
#define CODE_STRING8 0x9
|
||
|
|
#define CODE_STRING32 0xA
|
||
|
|
#define CODE_DOUBLE_BIG 0xB
|
||
|
|
#define CODE_DOUBLE_LITTLE 0xC
|
||
|
|
#ifdef BIG_ENDIAN
|
||
|
|
#define CODE_DOUBLE_NATIVE CODE_DOUBLE_BIG
|
||
|
|
#else
|
||
|
|
#define CODE_DOUBLE_NATIVE CODE_DOUBLE_LITTLE
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Initial sizes of data structures for extern */
|
||
|
|
|
||
|
|
#ifndef INITIAL_EXTERN_SIZE
|
||
|
|
#define INITIAL_EXTERN_SIZE 4096
|
||
|
|
#endif
|
||
|
|
#ifndef INITIAL_EXTERN_TABLE_SIZE
|
||
|
|
#define INITIAL_EXTERN_TABLE_SIZE 2039
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* The entry points */
|
||
|
|
|
||
|
|
value output_value P((struct channel *, value));
|
||
|
|
value input_value P((struct channel *));
|
||
|
|
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|