[SCM] Lisaac compiler branch, stable, updated. lisaac-0.12-476-ga7d7c0b

[Mildred Ki'Lya]

The following commit has been merged in the stable branch:
commit 38d1805fed90f3535bc7d15985efab79a8d70436
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Sat Sep 5 23:25:08 2009 +0200

    Fix library, remove unknown prototypes

diff --git a/lib/gui/clipping/area.li b/lib/gui/clipping/area.li
index dbedff9..a2314ee 100644
--- a/lib/gui/clipping/area.li
+++ b/lib/gui/clipping/area.li
@@ -459,7 +459,7 @@ Section Public
     
     (prev!=NULL).if {
       (plan!=NULL).if {
-	// Modification des Plans : Les EltPs sont classé en plan croissant.
+	// Modification des Plans : Les EltPs sont classé en plan croissant.
 	// Recherche du dernier plan du groupe :
 	win:=prev;
 	{(win!=NULL) && {win.plan=NULL}}.while_do {
@@ -474,7 +474,7 @@ Section Public
 	  pl_begin:=win.plan.next;
 	  pl_end:=plan.next;
 	  
-	  // On décroche le Groupe :
+	  // On décroche le Groupe :
 	  pl:=pl_begin.prev;
 	  pl.set_next pl_end;	  	  
 	  pl_end.set_prev pl; 
@@ -506,7 +506,7 @@ Section Public
 	  (plan.next!=NULL).if {
 	    plan.next.set_prev plan;
 	  };
-	  // On réaffecte les plans :
+	  // On réaffecte les plans :
 	  {pl_begin!=pl_end}.while_do { 
 	    pl_begin.set_level plan_value; 
 	    plan_value:=plan_value+1;
@@ -740,7 +740,7 @@ Section AREA
 	};	
 	
 	y1:=y1+1;
-	// On positionne les X : Décroissant Plan...
+	// On positionne les X : Décroissant Plan...
 	elt_x:=LIMIT_X.create x0 plan plan;
 	plan.set_x0 elt_x;
 	list_x:=elt_x.append list_x;
@@ -845,7 +845,7 @@ Section AREA
       y0:=plan.y0.value; 
       y1:=plan.y1.value;
       
-      // On active les fenêtres concerné :
+      // On active les fenêtres concerné :
       // Tous ses fils.
       win:=child;
       {win!=NULL}.while_do {
@@ -876,7 +876,7 @@ Section AREA
       elt_y:=list_y; // A Optimiser !
       cy0:=y0;
       {elt_y!=NULL}.while_do {
-	// On active ou désactive des fenêtres :
+	// On active ou désactive des fenêtres :
 	{(elt_y!=NULL) && {! elt_y.plan.is_y}}.while_do {
 	  elt_y:=elt_y.next;
 	};
diff --git a/lib/io/output_stream.li b/lib/io/output_stream.li
index 5d732d2..573ea06 100644
--- a/lib/io/output_stream.li
+++ b/lib/io/output_stream.li
@@ -112,6 +112,7 @@ Section Public
     DIRECTORY.has path 
   );
   
+  /*
   - append_file file_name:STRING <-
   (
     + c:CHARACTER;
@@ -127,6 +128,7 @@ Section Public
     };
     tmp_file_read.disconnect;
   );
+  */
 
   - flush <-
   // forces a write of unwritten character (write my have been 
@@ -140,7 +142,7 @@ Section Private
   - basic_io_putc c:CHARACTER <- SYSTEM_IO.print_char c;
   
   - basic_error_putc c:CHARACTER <- SYSTEM_IO.print_error_char c;
-  
+  /*
   - tmp_file_read:TEXT_FILE_READ := TEXT_FILE_READ.create;
-  
+  */
   - tmp_string:STRING := STRING.create 512;
diff --git a/lib/number/low_level/float_map.li b/lib/number/low_level/float_map.li
index f7c4132..c9b7b0b 100644
--- a/lib/number/low_level/float_map.li
+++ b/lib/number/low_level/float_map.li
@@ -24,7 +24,7 @@ Section Header
     
   - comment := "Mapping for REAL_xx.";
   
-Section PRIVATE
+Section Private
   
   - deferred <- crash_with_message "Slot deferred.";
   
diff --git a/lib/string/abstract_string.li b/lib/string/abstract_string.li
index d9bdc92..0956f1c 100644
--- a/lib/string/abstract_string.li
+++ b/lib/string/abstract_string.li
@@ -1246,10 +1246,10 @@ Section Public
     ? { (words.count) >= old_count };
   );
   
-  - get_new_iterator:ITERATOR(CHARACTER) <-
+  /*- get_new_iterator:ITERATOR(CHARACTER) <-
   (
     ITERATOR_ON_STRING(CHARACTER).create Self
-  );
+  );*/
   
   - same_string other:ABSTRACT_STRING :BOOLEAN <-
   // Do self and other have the same character sequence?
diff --git a/lib_os/unix/system/system.li b/lib_os/unix/system/system.li
index a1283f2..474d2bb 100644
--- a/lib_os/unix/system/system.li
+++ b/lib_os/unix/system/system.li
@@ -117,7 +117,7 @@ Section SYSTEM,MEMORY
     result
   );
   */
-Section ISAAC  
+Section Public //ISAAC  
   
   - make <-
   // Isaac compatibility.

-- 
Lisaac compiler