1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
/**********************************************
THIS FILE WAS AUTOMATICALLY GENERATED, AND MAY
BE AUTOMATICALLY RE-GENERATED WHEN THE COMPILER
OR SOURCE CHANGES. DO NOT MODIFY THIS FILE BY HAND!
RScheme Build (v0.7.2, 97.12.21)
**********************************************/
/******************************** Preamble ********************************/
#define _MODULE_TABLES
#define _SCM_MAKE
#define _C_MAKE
#include "tables_p.h"
#include <rscheme/vinsns.h>
extern struct module_descr module_tables;
extern struct part_descr tables_part_make;
static char sccsid[] = "@(#)tables modules/tables/make.scm[460770304] (RS v0.7.2, 97.12.21)";
/************************** Function Definitions **************************/
/*********************** Raw glue `hash-table-copy' ***********************/
#define raw_table REG0
static char rsfn_hash_table_copy_name[] = "hash-table-copy";
#define FUNCTION rsfn_hash_table_copy_name
PROLOGUE(hash_table_copy)
BEGIN_FWD(hash_table_copy)
FWD_MONOTONE(hash_table_copy_0)
END_FWD(hash_table_copy)
#define FPLACE_CODE (1000+0)
MONOTONE(hash_table_copy_0)
{obj table;
COUNT_ARGS(1);
if (!instance_p(raw_table,TLREF(0)))
scheme_error( string_text(LITERAL(1)), 1, raw_table );
table = raw_table;
{
REG0 = hashtable_copy(table);
RETURN1();
}}
#undef FPLACE_CODE
EPILOGUE(hash_table_copy)
BEGIN_BACK(hash_table_copy)
BACK_MONOTONE(hash_table_copy_0)
END_BACK(hash_table_copy)
static struct function_descr hash_table_copy_descr = {
&tables_part_make,
JUMP_TABLE( hash_table_copy ),
rsfn_hash_table_copy_name };
#undef FUNCTION
#undef raw_table
/******************************* Postamble *******************************/
/**************************** Part Link Table ****************************/
static struct function_descr *(part_make_tab[]) = {
&hash_table_copy_descr,
NULL };
struct part_descr tables_part_make = {
460770304,
&module_tables,
part_make_tab,
"make",
0 };
#undef _MODULE_TABLES
#undef _SCM_MAKE
#undef _C_MAKE
|
