support floating point numbers

* Extends the SciTECO type system. A number on the expression stack
  or in a Q-register can be either an integer or a float.
* Floating point constants begin with a digit (like all other
  numbers), are followed by a `.` and an optional fractional part.
  Exponents cannot currently be written.
  E.g. `1.` == `1.0`. But `.0` would still be `.,0`.
  (!) To push an integer followed by dot, you must now write e.g. `1,.` or `1 .`.
* All of the basic arithmetic operators operate like this:
  If both operands are integers, the result is also an integer (integer arithmetics).
  If at least one of the operands is a float, the result is also a float (float arithmetics).
* All of the binary operators (AND, OR, XOR) always cast all
  operands to integer and the result is always an integer as well.
* You can "cast" integers to float by `*1.` or `/1.`.
  You can "cast" floats to integers using `#0`.
* Most commands still accept only integers. Floats are implicitly casted to integers.
  Float-aware commands are: =, \, ^W, Qq, Uq, %q and the conditionals.
* `%q` will not change the current type of register q.
* Numeric part of "lexer.font" is now a float (in points).
* You cannot currently print octal and hexadecimal floats.
  `==` and `===` are identical to `=` on floats.
* `===` is now printing hex integers in lower case.
  This is because SciTECO's coding style for hex constants is also lower case.
* `--with-teco-integer` renamed to `--with-teco-number`.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/ring.c b/src/ring.c
index d7643d0..f450e3a 100644
--- a/src/ring.c
+++ b/src/ring.c
@@ -539,7 +539,7 @@ teco_state_edit_file_initial(teco_machine_main_t *ctx, GError **error)
 		return TRUE;
 
 	teco_int_t id;
-	if (!teco_expressions_pop_num_calc(&id, -1, error))
+	if (!teco_expressions_pop_int_calc(&id, -1, error))
 		return FALSE;
 
 	ctx->flags.allow_filename = TRUE;
@@ -688,7 +688,7 @@ teco_state_save_file_done(teco_machine_main_t *ctx, teco_string_t str, GError **
 	 */
 	teco_buffer_t *buffer = teco_ring_current;
 	if (teco_expressions_args() > 0) {
-		teco_int_t id = teco_expressions_pop_num(0);
+		teco_int_t id = teco_expressions_pop_int(0);
 		buffer = teco_ring_find(id);
 		if (!buffer) {
 			teco_error_invalidbuf_set(error, id);
@@ -835,7 +835,7 @@ teco_state_ecommand_close(teco_machine_main_t *ctx, GError **error)
 	teco_buffer_t *buffer;
 	gboolean force;
 	if (teco_expressions_args() > 0) {
-		teco_int_t id = teco_expressions_pop_num(0);
+		teco_int_t id = teco_expressions_pop_int(0);
 		buffer = teco_ring_find(ABS(id));
 		if (!buffer) {
 			teco_error_invalidbuf_set(error, ABS(id));