summaryrefslogtreecommitdiff
path: root/byterun/oldlexing.c
diff options
context:
space:
mode:
Diffstat (limited to 'byterun/oldlexing.c')
-rw-r--r--byterun/oldlexing.c36
1 files changed, 0 insertions, 36 deletions
diff --git a/byterun/oldlexing.c b/byterun/oldlexing.c
deleted file mode 100644
index 3d5d4a0903..0000000000
--- a/byterun/oldlexing.c
+++ /dev/null
@@ -1,36 +0,0 @@
-/* The "get_next_char" routine for lexers generated by camllex. */
-
-#include "interp.h"
-#include "mlvalues.h"
-#include "stacks.h"
-#include "str.h"
-
-struct lexer_buffer {
- value refill_buff;
- value lex_buffer;
- value lex_abs_pos;
- value lex_start_pos;
- value lex_curr_pos;
- value lex_last_pos;
- value lex_last_action;
-};
-
-value get_next_char(lexbuf) /* ML */
- struct lexer_buffer * lexbuf;
-{
- mlsize_t buffer_len, curr_pos;
-
- buffer_len = string_length(lexbuf->lex_buffer);
- curr_pos = Long_val(lexbuf->lex_curr_pos);
- if (curr_pos >= buffer_len) {
- Push_roots (r, 1);
- r[0] = (value) lexbuf;
- callback(lexbuf->refill_buff, (value) lexbuf);
- lexbuf = (struct lexer_buffer *) r[0];
- curr_pos = Long_val(lexbuf->lex_curr_pos);
- Pop_roots ();
- }
- lexbuf->lex_curr_pos += 2;
- return Val_int(Byte_u(lexbuf->lex_buffer, curr_pos));
-}
-