[SCM] Lisaac compiler branch, stable, updated. lisaac-0.12-557-g657254e
Mildred Ki'Lya
silkensedai at online.fr
Sat Oct 24 13:29:32 UTC 2009
The following commit has been merged in the stable branch:
commit bf7a6f0059eed1c12f6f75de4f176035834b7ed5
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date: Fri Oct 23 02:06:10 2009 +0200
fix library on streams
diff --git a/lib/io/std_input.li b/lib/io/std_input.li
index 7d756e4..596437a 100644
--- a/lib/io/std_input.li
+++ b/lib/io/std_input.li
@@ -40,7 +40,7 @@ Section Public
- is_connected:BOOLEAN := TRUE;
- - read_character:CHARACTER<-
+ - read_character<-
// Read character from stdin
(
push_back_flag.if {
@@ -48,7 +48,6 @@ Section Public
} else {
memory := basic_io_getc;
};
- last_character
);
@@ -75,17 +74,17 @@ Section Public
result
);
- - read_line_in str:STRING <-
+ - read_line_in buffer:STRING <-
// Real all character until \n (so read a line)
(
+ mem:CHARACTER;
read_character;
( (last_character != '\n') && { memory != basic_io_eof } ).if {
- str.extend memory;
+ buffer.extend memory;
mem := basic_io_getc;
{ (mem = basic_io_eof) || {mem = '\n'} }.until_do {
- str.extend mem;
+ buffer.extend mem;
mem := basic_io_getc;
};
memory := mem;
diff --git a/lib/io/std_input_output.li b/lib/io/std_input_output.li
index 99b10fe..aebb4a3 100644
--- a/lib/io/std_input_output.li
+++ b/lib/io/std_input_output.li
@@ -71,8 +71,8 @@ Section Public
std_input.end_of_input
);
- - read_line_in str:STRING <-
+ - read_line_in buffer:STRING <-
(
- std_input.read_line_in str;
+ std_input.read_line_in buffer;
);
--
Lisaac compiler
More information about the Lisaac-commits
mailing list