mirror of
https://github.com/wrog/lambdamoo
synced 2026-08-13 00:26:05 -04:00
211c5fb608
so that you can now have value_bytes()/object_bytes() pretend that integers are 32 or 64 bits or whatever else you want.
88 lines
2.7 KiB
C
88 lines
2.7 KiB
C
/******************************************************************************
|
|
Copyright (c) 1992, 1995, 1996 Xerox Corporation. All rights reserved.
|
|
Portions of this code were written by Stephen White, aka ghond.
|
|
Use and copying of this software and preparation of derivative works based
|
|
upon this software are permitted. Any distribution of this software or
|
|
derivative works must comply with all applicable United States export
|
|
control laws. This software is made available AS IS, and Xerox Corporation
|
|
makes no warranty about the software, its performance or its conformity to
|
|
any specification. Any person obtaining a copy of this software is requested
|
|
to send their name and post office or electronic mail address to:
|
|
Pavel Curtis
|
|
Xerox PARC
|
|
3333 Coyote Hill Rd.
|
|
Palo Alto, CA 94304
|
|
Pavel@Xerox.Com
|
|
*****************************************************************************/
|
|
|
|
#ifndef Program_H
|
|
#define Program_H 1
|
|
|
|
#include "structures.h"
|
|
#include "version.h"
|
|
|
|
typedef uint8_t Byte;
|
|
|
|
typedef struct {
|
|
Byte numbytes_label, numbytes_literal, numbytes_fork, numbytes_var_name,
|
|
numbytes_stack;
|
|
Byte *vector;
|
|
unsigned size;
|
|
unsigned max_stack;
|
|
} Bytecodes;
|
|
#define BQM_DESCRIBE_Bytecodes(B,F,V,X) ((4 * F) + V)
|
|
|
|
typedef struct {
|
|
DB_Version version;
|
|
unsigned first_lineno;
|
|
unsigned ref_count;
|
|
|
|
Bytecodes main_vector;
|
|
|
|
unsigned num_literals;
|
|
Var *literals;
|
|
|
|
unsigned fork_vectors_size;
|
|
Bytecodes *fork_vectors;
|
|
|
|
unsigned num_var_names;
|
|
const char **var_names;
|
|
|
|
unsigned cached_lineno;
|
|
unsigned cached_lineno_pc;
|
|
int cached_lineno_vec;
|
|
} Program;
|
|
#define BQM_DESCRIBE_Program(B,F,V,X) ((8 * F) + (9 * V))
|
|
|
|
#define MAIN_VECTOR -1 /* As opposed to an index into fork_vectors */
|
|
|
|
extern Program *new_program(void);
|
|
extern Program *null_program(void);
|
|
extern Program *program_ref(Program *);
|
|
extern int program_bytes(Program *);
|
|
extern void free_program(Program *);
|
|
|
|
#endif /* !Program_H */
|
|
|
|
/*
|
|
* $Log$
|
|
* Revision 2.3 1996/02/08 06:14:19 pavel
|
|
* Added version number on programs. Updated copyright notice for 1996.
|
|
* Release 1.8.0beta1.
|
|
*
|
|
* Revision 2.2 1995/12/31 03:13:02 pavel
|
|
* Added numbytes_stack field to Bytecodes values. Release 1.8.0alpha4.
|
|
*
|
|
* Revision 2.1 1995/12/11 08:03:22 pavel
|
|
* Removed a useless macro definition. Added `null_program()' and
|
|
* `program_bytes()'. Release 1.8.0alpha2.
|
|
*
|
|
* Revision 2.0 1995/11/30 04:54:29 pavel
|
|
* New baseline version, corresponding to release 1.8.0alpha1.
|
|
*
|
|
* Revision 1.2 1992/10/23 23:03:47 pavel
|
|
* Added copyright notice.
|
|
*
|
|
* Revision 1.1 1992/07/20 23:23:12 pavel
|
|
* Initial RCS-controlled version.
|
|
*/
|