a68g-transput.h
1 //! @file a68g-transput.h
2 //! @author J. Marcel van der Veer
3
4 //! @section Copyright
5 //!
6 //! This file is part of Algol68G - an Algol 68 compiler-interpreter.
7 //! Copyright 2001-2025 J. Marcel van der Veer [algol68g@xs4all.nl].
8
9 //! @section License
10 //!
11 //! This program is free software; you can redistribute it and/or modify it
12 //! under the terms of the GNU General Public License as published by the
13 //! Free Software Foundation; either version 3 of the License, or
14 //! (at your option) any later version.
15 //!
16 //! This program is distributed in the hope that it will be useful, but
17 //! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
18 //! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
19 //! more details. You should have received a copy of the GNU General Public
20 //! License along with this program. If not, see [http://www.gnu.org/licenses/].
21
22 //! @section Synopsis
23 //!
24 //! Transput related definitions.
25
26 #if !defined (__A68G_TRANSPUT_H__)
27 #define __A68G_TRANSPUT_H__
28
29 BOOL_T convert_radix_mp (NODE_T *, MP_T *, int, int, MOID_T *, MP_T *, MP_T *);
30 BOOL_T convert_radix (NODE_T *, UNSIGNED_T, int, int);
31 BOOL_T genie_string_to_value_internal (NODE_T *, MOID_T *, char *, BYTE_T *);
32 char digchar (int);
33 char *error_chars (char *, int);
34 char *fixed (NODE_T * p);
35 char *get_transput_buffer (int);
36 char *sub_fixed_mp (NODE_T *, MP_T *, int, int, int);
37 char *sub_whole_mp (NODE_T *, MP_T *, int, int);
38 char pop_char_transput_buffer (int);
39 char *real (NODE_T *);
40 char *stack_string (NODE_T *, size_t);
41 char *whole (NODE_T * p);
42 FILE *a68g_fopen (char *, char *, char *);
43 FILE_T open_physical_file (NODE_T *, A68G_REF, int, mode_t);
44 GPROC genie_fixed;
45 GPROC genie_float;
46 GPROC genie_real;
47 GPROC genie_whole;
48 int char_scanner (A68G_FILE *);
49 int end_of_format (NODE_T *, A68G_REF);
50 int get_replicator_value (NODE_T *, BOOL_T);
51 int get_transput_buffer_index (int);
52 int get_transput_buffer_size (int);
53 int get_unblocked_transput_buffer (NODE_T *);
54 int store_file_entry (NODE_T *, FILE_T, char *, BOOL_T);
55 void add_a_string_transput_buffer (NODE_T *, int, BYTE_T *);
56 void add_chars_transput_buffer (NODE_T *, int, int, char *);
57 void add_string_from_stack_transput_buffer (NODE_T *, int);
58 void add_string_transput_buffer (NODE_T *, int, char *);
59 void end_of_file_error (NODE_T * p, A68G_REF ref_file);
60 void enlarge_transput_buffer (NODE_T *, int, size_t);
61 void format_error (NODE_T *, A68G_REF, char *);
62 void standardize_mp (NODE_T *, MP_T *, int, int, int, int *);
63 void on_event_handler (NODE_T *, A68G_PROCEDURE, A68G_REF);
64 void open_error (NODE_T *, A68G_REF, char *);
65 void open_for_reading (NODE_T *, A68G_REF);
66 void open_for_writing (NODE_T *, A68G_REF);
67 void pattern_error (NODE_T *, MOID_T *, int);
68 void plusab_transput_buffer (NODE_T *, int, char);
69 void plusto_transput_buffer (NODE_T *, char, int);
70 void read_insertion (NODE_T *, A68G_REF);
71 void read_sound (NODE_T *, A68G_REF, A68G_SOUND *);
72 void reset_transput_buffer (int);
73 void set_default_event_procedure (A68G_PROCEDURE *);
74 void set_default_event_procedures (A68G_FILE *);
75 void set_transput_buffer_index (int, int);
76 void set_transput_buffer_size (int, size_t);
77 void transput_error (NODE_T *, A68G_REF, MOID_T *);
78 void unblock_transput_buffer (int);
79 void unchar_scanner (NODE_T *, A68G_FILE *, char);
80 void value_error (NODE_T *, MOID_T *, A68G_REF);
81 void write_insertion (NODE_T *, A68G_REF, MOOD_T);
82 void write_purge_buffer (NODE_T *, A68G_REF, int);
83 void write_sound (NODE_T *, A68G_REF, A68G_SOUND *);
84
85 #endif
© 2002-2025 J.M. van der Veer (jmvdveer@xs4all.nl)
|