From eadb125b83665f60dba28b97e92ebc2bc05c2eed Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Mon, 16 Aug 2021 23:23:03 +0100
Subject: [PATCH] Hashmaps now *mostly* work
---
.gitignore | 2 +
src/init.c | 2 +-
src/io/io.c | 30 ++++-
src/io/io.h | 2 +
src/memory/consspaceobject.c | 9 +-
src/memory/dump.c | 208 +++++++++++++++++------------------
src/memory/hashmap.c | 1 +
src/memory/vectorspace.c | 23 +++-
src/ops/lispops.c | 134 ++++++++++++----------
src/ops/lispops.h | 13 +--
10 files changed, 238 insertions(+), 186 deletions(-)
diff --git a/.gitignore b/.gitignore
index 3bf3906..a85ac01 100644
--- a/.gitignore
+++ b/.gitignore
@@ -40,3 +40,5 @@ src/io/fopen
hi\.*
.vscode/
+
+core
diff --git a/src/init.c b/src/init.c
index 7b1649c..4126783 100644
--- a/src/init.c
+++ b/src/init.c
@@ -225,7 +225,7 @@ int main( int argc, char *argv[] ) {
bind_function( L"equal", &lisp_equal );
bind_function( L"eval", &lisp_eval );
bind_function( L"exception", &lisp_exception );
- bind_function( L"gethash", &lisp_get_hash);
+ bind_function( L"get-hash", &lisp_get_hash);
bind_function(L"hashmap", lisp_make_hashmap);
bind_function( L"inspect", &lisp_inspect );
bind_function( L"keys", &lisp_keys);
diff --git a/src/io/io.c b/src/io/io.c
index 5065044..9976373 100644
--- a/src/io/io.c
+++ b/src/io/io.c
@@ -177,13 +177,13 @@ wint_t url_fgetwc( URL_FILE * input ) {
* E0 to EF hex (224 to 239): first byte of a three-byte sequence.
* F0 to FF hex (240 to 255): first byte of a four-byte sequence.
*/
- if ( c <= 0x07 ) {
+ if ( c <= 0xf7 ) {
count = 1;
- } else if ( c >= '0xc2' && c <= '0xdf' ) {
+ } else if ( c >= 0xc2 && c <= 0xdf ) {
count = 2;
- } else if ( c >= '0xe0' && c <= '0xef' ) {
+ } else if ( c >= 0xe0 && c <= 0xef ) {
count = 3;
- } else if ( c >= '0xf0' && c <= '0xff' ) {
+ } else if ( c >= 0xf0 && c <= 0xff ) {
count = 4;
}
@@ -395,6 +395,24 @@ void collect_meta( struct cons_pointer stream, char *url ) {
cell->payload.stream.meta = meta;
}
+/**
+ * Resutn the current default input, or of `inputp` is false, output stream from
+ * this `env`ironment.
+ */
+struct cons_pointer get_default_stream( bool inputp, struct cons_pointer env ) {
+ struct cons_pointer result = NIL;
+ struct cons_pointer stream_name =
+ c_string_to_lisp_symbol( inputp ? L"*in*" : L"*out*" );
+
+ inc_ref( stream_name );
+
+ result = c_assoc( stream_name, env );
+
+ dec_ref( stream_name );
+
+ return result;
+}
+
/**
* Function: return a stream open on the URL indicated by the first argument;
@@ -423,8 +441,8 @@ lisp_open( struct stack_frame *frame, struct cons_pointer frame_pointer,
URL_FILE *stream = url_fopen( url, "r" );
debug_printf( DEBUG_IO,
- L"lisp_open: stream @ %d, stream type = %d, stream handle = %d\n",
- (int) &stream, (int)stream->type, (int)stream->handle.file);
+ L"lisp_open: stream @ %ld, stream type = %d, stream handle = %ld\n",
+ (long int) &stream, (int)stream->type, (long int)stream->handle.file);
switch (stream->type) {
case CFTYPE_NONE:
diff --git a/src/io/io.h b/src/io/io.h
index 33f733f..f350c13 100644
--- a/src/io/io.h
+++ b/src/io/io.h
@@ -21,6 +21,8 @@ URL_FILE *file_to_url_file( FILE * f );
wint_t url_fgetwc( URL_FILE * input );
wint_t url_ungetwc( wint_t wc, URL_FILE * input );
+struct cons_pointer get_default_stream( bool inputp, struct cons_pointer env );
+
struct cons_pointer
lisp_close( struct stack_frame *frame, struct cons_pointer frame_pointer,
struct cons_pointer env );
diff --git a/src/memory/consspaceobject.c b/src/memory/consspaceobject.c
index ee82956..9e956f4 100644
--- a/src/memory/consspaceobject.c
+++ b/src/memory/consspaceobject.c
@@ -35,15 +35,15 @@
bool check_tag( struct cons_pointer pointer, char *tag ) {
bool result = false;
struct cons_space_object cell = pointer2cell( pointer );
-
+
result = strncmp( &cell.tag.bytes[0], tag, TAGLENGTH ) == 0;
if ( result == false ) {
- if ( strncmp( &cell.tag.bytes[0], VECTORPOINTTAG, TAGLENGTH ) == 0 ) {
+ if ( cell.tag.value == VECTORPOINTTV ) {
struct vector_space_object *vec = pointer_to_vso( pointer );
if ( vec != NULL ) {
- result = strncmp( &vec->header.tag.bytes[0], tag, TAGLENGTH ) == 0;
+ result = strncmp( &(vec->header.tag.bytes[0]), tag, TAGLENGTH ) == 0;
}
}
}
@@ -286,7 +286,7 @@ uint32_t calculate_hash(wint_t c, struct cons_pointer ptr)
case KEYTV:
case STRINGTV:
case SYMBOLTV:
- if (nilp(ptr))
+ if (nilp(cell->payload.string.cdr))
{
result = (uint32_t)c;
}
@@ -296,6 +296,7 @@ uint32_t calculate_hash(wint_t c, struct cons_pointer ptr)
cell->payload.string.hash) &
0xffffffff;
}
+ break;
}
return result;
diff --git a/src/memory/dump.c b/src/memory/dump.c
index b992bb2..2dc6658 100644
--- a/src/memory/dump.c
+++ b/src/memory/dump.c
@@ -23,6 +23,7 @@
#include "debug.h"
#include "hashmap.h"
#include "intern.h"
+#include "io.h"
#include "print.h"
#include "stack.h"
#include "vectorspace.h"
@@ -39,12 +40,14 @@ void dump_string_cell( URL_FILE * output, wchar_t *prefix,
cell.payload.string.cdr.offset, cell.count );
} else {
url_fwprintf( output,
- L"\t\t%ls cell: character '%lc' (%d) next at page %d offset %d, count %u\n",
+ L"\t\t%ls cell: character '%lc' (%d) with hash %d; next at page %d offset %d, count %u\n",
prefix,
( wint_t ) cell.payload.string.character,
cell.payload.string.character,
+ cell.payload.string.hash,
cell.payload.string.cdr.page,
- cell.payload.string.cdr.offset, cell.count );
+ cell.payload.string.cdr.offset,
+ cell.count );
url_fwprintf( output, L"\t\t value: " );
print( output, pointer );
url_fwprintf( output, L"\n" );
@@ -54,108 +57,105 @@ void dump_string_cell( URL_FILE * output, wchar_t *prefix,
/**
* dump the object at this cons_pointer to this output stream.
*/
-void dump_object( URL_FILE * output, struct cons_pointer pointer ) {
- struct cons_space_object cell = pointer2cell( pointer );
- url_fwprintf( output,
- L"\t%4.4s (%d) at page %d, offset %d count %u\n",
- cell.tag.bytes,
- cell.tag.value, pointer.page, pointer.offset, cell.count );
+void dump_object( URL_FILE *output, struct cons_pointer pointer ) {
+ struct cons_space_object cell = pointer2cell( pointer );
+ url_fwprintf( output, L"\t%4.4s (%d) at page %d, offset %d count %u\n",
+ cell.tag.bytes, cell.tag.value, pointer.page, pointer.offset,
+ cell.count );
- switch ( cell.tag.value ) {
- case CONSTV:
- url_fwprintf( output,
- L"\t\tCons cell: car at page %d offset %d, cdr at page %d offset %d, count %u :",
- cell.payload.cons.car.page,
- cell.payload.cons.car.offset,
- cell.payload.cons.cdr.page,
- cell.payload.cons.cdr.offset, cell.count );
- print( output, pointer );
- url_fputws( L"\n", output );
- break;
- case EXCEPTIONTV:
- url_fwprintf( output, L"\t\tException cell: " );
- dump_stack_trace( output, pointer );
- break;
- case FREETV:
- url_fwprintf( output,
- L"\t\tFree cell: next at page %d offset %d\n",
- cell.payload.cons.cdr.page,
- cell.payload.cons.cdr.offset );
- break;
- case INTEGERTV:
- url_fwprintf( output,
- L"\t\tInteger cell: value %ld, count %u\n",
- cell.payload.integer.value, cell.count );
- if ( !nilp( cell.payload.integer.more ) ) {
- url_fputws( L"\t\tBIGNUM! More at:\n", output );
- dump_object( output, cell.payload.integer.more );
- }
- break;
- case LAMBDATV:
- url_fwprintf( output, L"\t\t\u03bb cell;\n\t\t args: " );
- print( output, cell.payload.lambda.args );
- url_fwprintf( output, L";\n\t\t\tbody: " );
- print( output, cell.payload.lambda.body );
- url_fputws( L"\n", output );
- break;
- case NILTV:
- break;
- case NLAMBDATV:
- url_fwprintf( output, L"\t\tn\u03bb cell; \n\t\targs: " );
- print( output, cell.payload.lambda.args );
- url_fwprintf( output, L";\n\t\t\tbody: " );
- print( output, cell.payload.lambda.body );
- url_fputws( L"\n", output );
- break;
- case RATIOTV:
- url_fwprintf( output,
- L"\t\tRational cell: value %ld/%ld, count %u\n",
- pointer2cell( cell.payload.ratio.dividend ).
- payload.integer.value,
- pointer2cell( cell.payload.ratio.divisor ).
- payload.integer.value, cell.count );
- break;
- case READTV:
- url_fputws( L"\t\tInput stream; metadata: ", output );
- print( output, cell.payload.stream.meta );
- url_fputws( L"\n", output );
- break;
- case REALTV:
- url_fwprintf( output, L"\t\tReal cell: value %Lf, count %u\n",
- cell.payload.real.value, cell.count );
- break;
- case STRINGTV:
- dump_string_cell( output, L"String", pointer );
- break;
- case SYMBOLTV:
- dump_string_cell( output, L"Symbol", pointer );
- break;
- case TRUETV:
- break;
- case VECTORPOINTTV:{
- url_fwprintf( output,
- L"\t\tPointer to vector-space object at %p\n",
- cell.payload.vectorp.address );
- struct vector_space_object *vso = cell.payload.vectorp.address;
- url_fwprintf( output,
- L"\t\tVector space object of type %4.4s (%d), payload size %d bytes\n",
- &vso->header.tag.bytes, vso->header.tag.value,
- vso->header.size );
+ switch ( cell.tag.value ) {
+ case CONSTV:
+ url_fwprintf( output,
+ L"\t\tCons cell: car at page %d offset %d, cdr at page %d "
+ L"offset %d, count %u :",
+ cell.payload.cons.car.page, cell.payload.cons.car.offset,
+ cell.payload.cons.cdr.page, cell.payload.cons.cdr.offset,
+ cell.count );
+ print( output, pointer );
+ url_fputws( L"\n", output );
+ break;
+ case EXCEPTIONTV:
+ url_fwprintf( output, L"\t\tException cell: " );
+ dump_stack_trace( output, pointer );
+ break;
+ case FREETV:
+ url_fwprintf( output, L"\t\tFree cell: next at page %d offset %d\n",
+ cell.payload.cons.cdr.page, cell.payload.cons.cdr.offset );
+ break;
+ case INTEGERTV:
+ url_fwprintf( output, L"\t\tInteger cell: value %ld, count %u\n",
+ cell.payload.integer.value, cell.count );
+ if ( !nilp( cell.payload.integer.more ) ) {
+ url_fputws( L"\t\tBIGNUM! More at:\n", output );
+ dump_object( output, cell.payload.integer.more );
+ }
+ break;
+ case KEYTV:
+ dump_string_cell( output, L"Keyword", pointer );
+ break;
+ case LAMBDATV:
+ url_fwprintf( output, L"\t\t\u03bb cell;\n\t\t args: " );
+ print( output, cell.payload.lambda.args );
+ url_fwprintf( output, L";\n\t\t\tbody: " );
+ print( output, cell.payload.lambda.body );
+ url_fputws( L"\n", output );
+ break;
+ case NILTV:
+ break;
+ case NLAMBDATV:
+ url_fwprintf( output, L"\t\tn\u03bb cell; \n\t\targs: " );
+ print( output, cell.payload.lambda.args );
+ url_fwprintf( output, L";\n\t\t\tbody: " );
+ print( output, cell.payload.lambda.body );
+ url_fputws( L"\n", output );
+ break;
+ case RATIOTV:
+ url_fwprintf(
+ output, L"\t\tRational cell: value %ld/%ld, count %u\n",
+ pointer2cell( cell.payload.ratio.dividend ).payload.integer.value,
+ pointer2cell( cell.payload.ratio.divisor ).payload.integer.value,
+ cell.count );
+ break;
+ case READTV:
+ url_fputws( L"\t\tInput stream; metadata: ", output );
+ print( output, cell.payload.stream.meta );
+ url_fputws( L"\n", output );
+ break;
+ case REALTV:
+ url_fwprintf( output, L"\t\tReal cell: value %Lf, count %u\n",
+ cell.payload.real.value, cell.count );
+ break;
+ case STRINGTV:
+ dump_string_cell( output, L"String", pointer );
+ break;
+ case SYMBOLTV:
+ dump_string_cell( output, L"Symbol", pointer );
+ break;
+ case TRUETV:
+ break;
+ case VECTORPOINTTV: {
+ url_fwprintf( output, L"\t\tPointer to vector-space object at %p\n",
+ cell.payload.vectorp.address );
+ struct vector_space_object *vso = cell.payload.vectorp.address;
+ url_fwprintf( output,
+ L"\t\tVector space object of type %4.4s (%d), payload size "
+ L"%d bytes\n",
+ &vso->header.tag.bytes, vso->header.tag.value,
+ vso->header.size );
- switch ( vso->header.tag.value ) {
- case STACKFRAMETV:
- dump_frame( output, pointer );
- break;
- case HASHTV:
- dump_map( output, pointer);
- break;
- }
- }
- break;
- case WRITETV:
- url_fputws( L"\t\tOutput stream; metadata: ", output );
- print( output, cell.payload.stream.meta );
- url_fputws( L"\n", output );
- break;
- }
+ switch ( vso->header.tag.value ) {
+ case STACKFRAMETV:
+ dump_frame( output, pointer );
+ break;
+ case HASHTV:
+ dump_map( output, pointer );
+ break;
+ }
+ } break;
+ case WRITETV:
+ url_fputws( L"\t\tOutput stream; metadata: ", output );
+ print( output, cell.payload.stream.meta );
+ url_fputws( L"\n", output );
+ break;
+ }
}
diff --git a/src/memory/hashmap.c b/src/memory/hashmap.c
index 11a03f0..73d3905 100644
--- a/src/memory/hashmap.c
+++ b/src/memory/hashmap.c
@@ -12,6 +12,7 @@
#include "authorise.h"
#include "debug.h"
#include "intern.h"
+#include "io/print.h"
#include "memory/conspage.h"
#include "memory/consspaceobject.h"
#include "memory/hashmap.h"
diff --git a/src/memory/vectorspace.c b/src/memory/vectorspace.c
index b3e64c6..a6e292d 100644
--- a/src/memory/vectorspace.c
+++ b/src/memory/vectorspace.c
@@ -119,11 +119,11 @@ struct cons_pointer make_vso( char *tag, uint64_t payload_size ) {
* object. Dangerous! */
void free_vso( struct cons_pointer pointer ) {
- struct cons_space_object * cell = &pointer2cell( pointer);
+ struct cons_space_object cell = pointer2cell( pointer );
debug_printf( DEBUG_ALLOC, L"About to free vector-space object at 0x%lx\n",
- cell->payload.vectorp.address );
- struct vector_space_object *vso = cell->payload.vectorp.address;
+ cell.payload.vectorp.address );
+ struct vector_space_object *vso = cell.payload.vectorp.address;
switch ( vso->header.tag.value ) {
case HASHTV:
@@ -134,7 +134,18 @@ void free_vso( struct cons_pointer pointer ) {
break;
}
- free( (void *)cell->payload.vectorp.address );
+// free( (void *)cell.payload.vectorp.address );
debug_printf( DEBUG_ALLOC, L"Freed vector-space object at 0x%lx\n",
- cell->payload.vectorp.address );
-}
\ No newline at end of file
+ cell.payload.vectorp.address );
+}
+
+// bool check_vso_tag( struct cons_pointer pointer, char * tag) {
+// bool result = false;
+
+// if (check_tag(pointer, VECTORPOINTTAG)) {
+// struct vector_space_object * vso = pointer_to_vso(pointer);
+// result = strncmp( vso->header.tag.bytes[0], tag, TAGLENGTH);
+// }
+
+// return result;
+// }
diff --git a/src/ops/lispops.c b/src/ops/lispops.c
index 3a972a5..0c495f9 100644
--- a/src/ops/lispops.c
+++ b/src/ops/lispops.c
@@ -854,26 +854,6 @@ lisp_equal( struct stack_frame *frame, struct cons_pointer frame_pointer,
return equal( frame->arg[0], frame->arg[1] ) ? TRUE : NIL;
}
-
-/**
- * Resutn the current default input, or of `inputp` is false, output stream from
- * this `env`ironment.
- */
-struct cons_pointer get_default_stream( bool inputp, struct cons_pointer env ) {
- struct cons_pointer result = NIL;
- struct cons_pointer stream_name =
- c_string_to_lisp_symbol( inputp ? L"*in*" : L"*out*" );
-
- inc_ref( stream_name );
-
- result = c_assoc( stream_name, env );
-
- dec_ref( stream_name );
-
- return result;
-}
-
-
/**
* Function; read one complete lisp form and return it. If read-stream is specified and
* is a read stream, then read from that stream, else the stream which is the value of
@@ -965,6 +945,44 @@ struct cons_pointer lisp_reverse( struct stack_frame *frame,
return c_reverse( frame->arg[0] );
}
+/**
+ * Function: dump/inspect one complete lisp expression and return NIL. If
+ * write-stream is specified and is a write stream, then print to that stream,
+ * else the stream which is the value of
+ * `*out*` in the environment.
+ *
+ * * (inspect expr)
+ * * (inspect expr write-stream)
+ *
+ * @param frame my stack_frame.
+ * @param frame_pointer a pointer to my stack_frame.
+ * @param env my environment (from which the stream may be extracted).
+ * @return NIL.
+ */
+struct cons_pointer lisp_inspect( struct stack_frame *frame,
+ struct cons_pointer frame_pointer,
+ struct cons_pointer env ) {
+ debug_print( L"Entering lisp_inspect\n", DEBUG_IO );
+ struct cons_pointer result = NIL;
+ struct cons_pointer out_stream = writep( frame->arg[1] )
+ ? frame->arg[1]
+ : get_default_stream( false, env );
+ URL_FILE *output;
+
+ if ( writep( out_stream ) ) {
+ debug_print( L"lisp_inspect: setting output stream\n", DEBUG_IO );
+ debug_dump_object( out_stream, DEBUG_IO );
+ output = pointer2cell( out_stream ).payload.stream.stream;
+ } else {
+ output = file_to_url_file( stderr );
+ }
+
+ dump_object( output, frame->arg[0] );
+
+ debug_print( L"Leaving lisp_inspect", DEBUG_IO );
+
+ return result;
+}
/**
* Function; print one complete lisp expression and return NIL. If write-stream is specified and
@@ -976,8 +994,8 @@ struct cons_pointer lisp_reverse( struct stack_frame *frame,
*
* @param frame my stack_frame.
* @param frame_pointer a pointer to my stack_frame.
- * @param env my environment (ignored).
- * @return the value of `expr`.
+ * @param env my environment (from which the stream may be extracted).
+ * @return NIL.
*/
struct cons_pointer
lisp_print( struct stack_frame *frame, struct cons_pointer frame_pointer,
@@ -1332,43 +1350,43 @@ struct cons_pointer lisp_source( struct stack_frame *frame,
}
-/**
- * Function; print the internal representation of the object indicated by `frame->arg[0]` to the
- * (optional, defaults to the value of `*out*` in the environment) stream indicated by `frame->arg[1]`.
- *
- * * (inspect expression)
- * * (inspect expression <write-stream>)
- *
- * @param frame my stack frame.
- * @param frame_pointer a pointer to my stack_frame.
- * @param env the environment.
- * @return the value of the first argument - `expression`.
- */
-struct cons_pointer lisp_inspect( struct stack_frame *frame,
- struct cons_pointer frame_pointer,
- struct cons_pointer env ) {
- debug_print( L"Entering print\n", DEBUG_IO );
- URL_FILE *output;
- struct cons_pointer out_stream = writep( frame->arg[1] ) ?
- frame->arg[1] : get_default_stream( false, env );
+// /**
+// * Function; print the internal representation of the object indicated by `frame->arg[0]` to the
+// * (optional, defaults to the value of `*out*` in the environment) stream indicated by `frame->arg[1]`.
+// *
+// * * (inspect expression)
+// * * (inspect expression <write-stream>)
+// *
+// * @param frame my stack frame.
+// * @param frame_pointer a pointer to my stack_frame.
+// * @param env the environment.
+// * @return the value of the first argument - `expression`.
+// */
+// struct cons_pointer lisp_inspect( struct stack_frame *frame,
+// struct cons_pointer frame_pointer,
+// struct cons_pointer env ) {
+// debug_print( L"Entering print\n", DEBUG_IO );
+// URL_FILE *output;
+// struct cons_pointer out_stream = writep( frame->arg[1] ) ?
+// frame->arg[1] : get_default_stream( false, env );
- if ( writep( out_stream ) ) {
- debug_print( L"lisp_print: setting output stream\n", DEBUG_IO );
- debug_dump_object( out_stream, DEBUG_IO );
- output = pointer2cell( out_stream ).payload.stream.stream;
- inc_ref( out_stream );
- } else {
- output = file_to_url_file( stdout );
- }
+// if ( writep( out_stream ) ) {
+// debug_print( L"lisp_print: setting output stream\n", DEBUG_IO );
+// debug_dump_object( out_stream, DEBUG_IO );
+// output = pointer2cell( out_stream ).payload.stream.stream;
+// inc_ref( out_stream );
+// } else {
+// output = file_to_url_file( stdout );
+// }
- dump_object( output, frame->arg[0] );
- url_fputws( L"\n", output );
+// dump_object( output, frame->arg[0] );
+// url_fputws( L"\n", output );
- if ( writep( out_stream ) ) {
- dec_ref( out_stream );
- } else {
- free( output );
- }
+// if ( writep( out_stream ) ) {
+// dec_ref( out_stream );
+// } else {
+// free( output );
+// }
- return frame->arg[0];
-}
+// return frame->arg[0];
+// }
diff --git a/src/ops/lispops.h b/src/ops/lispops.h
index 4669493..014df2e 100644
--- a/src/ops/lispops.h
+++ b/src/ops/lispops.h
@@ -114,6 +114,9 @@ struct cons_pointer lisp_quote( struct stack_frame *frame,
/*
* functions
*/
+struct cons_pointer lisp_assoc( struct stack_frame *frame,
+ struct cons_pointer frame_pointer,
+ struct cons_pointer env );
struct cons_pointer lisp_cons( struct stack_frame *frame,
struct cons_pointer frame_pointer,
struct cons_pointer env );
@@ -123,9 +126,9 @@ struct cons_pointer lisp_car( struct stack_frame *frame,
struct cons_pointer lisp_cdr( struct stack_frame *frame,
struct cons_pointer frame_pointer,
struct cons_pointer env );
-struct cons_pointer lisp_assoc( struct stack_frame *frame,
- struct cons_pointer frame_pointer,
- struct cons_pointer env );
+struct cons_pointer lisp_inspect( struct stack_frame *frame,
+ struct cons_pointer frame_pointer,
+ struct cons_pointer env );
struct cons_pointer lisp_eq( struct stack_frame *frame,
struct cons_pointer frame_pointer,
struct cons_pointer env );
@@ -199,8 +202,4 @@ struct cons_pointer lisp_source( struct stack_frame *frame,
struct cons_pointer frame_pointer,
struct cons_pointer env );
-struct cons_pointer lisp_inspect( struct stack_frame *frame,
- struct cons_pointer frame_pointer,
- struct cons_pointer env );
-
#endif