[SCM] Lisaac compiler branch, mildred-projects, updated. lisaac-0.12-522-g7004753

[Mildred Ki'Lya]

The following commit has been merged in the mildred-projects branch:
commit 831346ed4e365e1fd80ec35b83b438e8f8c6248a
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Thu Aug 27 09:32:16 2009 +0200

    convert STRING and STRING_CONSTANT to and from NATIVE_ARRAY(...)

diff --git a/lib/string/abstract_string.li b/lib/string/abstract_string.li
index 38ae68d..fc0ebaf 100644
--- a/lib/string/abstract_string.li
+++ b/lib/string/abstract_string.li
@@ -22,6 +22,11 @@ Section Header
   
   + name    := ABSTRACT_STRING;
 
+
+  - export := NATIVE_ARRAY(CHARACTER),
+              NATIVE_ARRAY(INTEGER_8),
+	      NATIVE_ARRAY(UINTEGER_8);
+
   - export  := STRING;
     
   - copyright   := "2003-2005 Jérome Boutet, 2003-2007 Benoit Sonntag";
@@ -1308,5 +1313,19 @@ Section Public
     NULL
   );
 
+  //
+  // Export NATIVE_ARRAY
+  //
+
+  - to_native_array_of_character :NATIVE_ARRAY(CHARACTER) <-
+    to_external;
+
+  - to_native_array_of_integer_8 :NATIVE_ARRAY(INTEGER_8) <-
+    CONVERT(NATIVE_ARRAY(CHARACTER),NATIVE_ARRAY(INTEGER_8)).on (to_external);
+
+  - to_native_array_of_uinteger_8 :NATIVE_ARRAY(UINTEGER_8) <-
+    CONVERT(NATIVE_ARRAY(CHARACTER),NATIVE_ARRAY(INTEGER_8)).on (to_external);
+
+
 
 
diff --git a/lib/string/string.li b/lib/string/string.li
index 39c3b9f..365c251 100644
--- a/lib/string/string.li
+++ b/lib/string/string.li
@@ -23,6 +23,14 @@ Section Header
   + name    := STRING;
 
 
+  - import := NATIVE_ARRAY(CHARACTER),
+              NATIVE_ARRAY(INTEGER_8),
+	      NATIVE_ARRAY(UINTEGER_8);
+  - export := NATIVE_ARRAY(CHARACTER),
+              NATIVE_ARRAY(INTEGER_8),
+	      NATIVE_ARRAY(UINTEGER_8);
+
+
   - copyright   := "2003-2005 Jérome Boutet, 2003-2007 Benoit Sonntag";
 
   - comment := "String library.";
@@ -771,4 +779,17 @@ Section Public
     {storage.item count = '\0'}.until_do {
       count := count + 1;
     };
-  );
\ No newline at end of file
+  );
+
+  //
+  // Import/Export NATIVE_ARRAY
+  //
+
+  - from_native_array_of_character p:NATIVE_ARRAY(CHARACTER) :STRING_CONSTANT <-
+    from_external_copy p;
+
+  - from_native_array_of_integer_8 p:NATIVE_ARRAY(INTEGER_8) :STRING_CONSTANT <-
+    from_external_copy(CONVERT(NATIVE_ARRAY(INTEGER_8),NATIVE_ARRAY(CHARACTER)).on p);
+
+  - from_native_array_of_uinteger_8 p:NATIVE_ARRAY(UINTEGER_8) :STRING_CONSTANT <-
+    from_external_copy(CONVERT(NATIVE_ARRAY(UINTEGER_8),NATIVE_ARRAY(CHARACTER)).on p);
diff --git a/lib/string/string_constant.li b/lib/string/string_constant.li
index d0a2a14..3a5280d 100644
--- a/lib/string/string_constant.li
+++ b/lib/string/string_constant.li
@@ -22,6 +22,12 @@ Section Header
   
   + name    := Strict STRING_CONSTANT; 
 
+  - import := NATIVE_ARRAY(CHARACTER),
+              NATIVE_ARRAY(INTEGER_8),
+	      NATIVE_ARRAY(UINTEGER_8);
+  - export := NATIVE_ARRAY(CHARACTER),
+              NATIVE_ARRAY(INTEGER_8),
+	      NATIVE_ARRAY(UINTEGER_8);
 
   - copyright   := "2003-2005 Jérome Boutet, 2003-2007 Benoit Sonntag";
    
@@ -76,7 +82,13 @@ Section Public
     //bucket.add result;
     result
   );
-  
+
+  - from_external p:NATIVE_ARRAY(CHARACTER) :STRING_CONSTANT <-
+  ( + i:INTEGER;
+    {n.item i = '\0'}.until_do { i := i + 1; };
+    new_intern n count i
+  );
+
   - to_external:NATIVE_ARRAY(CHARACTER) <-
   // Gives C access to the internal `storage' (may be dangerous).
   // To be compatible with C, a null character is added at the end
@@ -116,4 +128,15 @@ Section Public
   
   - Self:SELF '+?' test:{BOOLEAN} <- test +? Self;
     
+  //
+  // Import NATIVE_ARRAY
+  //
+
+  - from_native_array_of_character p:NATIVE_ARRAY(CHARACTER) :STRING_CONSTANT <-
+    from_external p;
+
+  - from_native_array_of_integer_8 p:NATIVE_ARRAY(INTEGER_8) :STRING_CONSTANT <-
+    from_external(CONVERT(NATIVE_ARRAY(INTEGER_8),NATIVE_ARRAY(CHARACTER)).on p);
 
+  - from_native_array_of_uinteger_8 p:NATIVE_ARRAY(UINTEGER_8) :STRING_CONSTANT <-
+    from_external(CONVERT(NATIVE_ARRAY(UINTEGER_8),NATIVE_ARRAY(CHARACTER)).on p);

-- 
Lisaac compiler