[SCM] Lisaac compiler branch, mildred-projects, updated. lisaac-0.12-526-g9b84f61

[Mildred Ki'Lya]

The following commit has been merged in the mildred-projects branch:
commit 2b54c15c55c10df83fcb667d5cb5a6481d156e9f
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Tue Sep 1 16:43:34 2009 +0200

    rename PROJECT to LIP in .lip files

diff --git a/lib.lip b/lib.lip
index 50eee93..abe0ae0 100644
--- a/lib.lip
+++ b/lib.lip
@@ -27,9 +27,7 @@ Section Inherit
 
 Section Private
 
-  + super:PROJECT;
-
-  - init prj:PROJECT <-
+  - init prj:LIP <-
   // Initialize the library
   (
     default_init prj;
diff --git a/make.lip b/make.lip
index 8203772..549d3df 100644
--- a/make.lip
+++ b/make.lip
@@ -57,17 +57,16 @@ Section Private
   
   + target:STRING := "unix";
   
-  + lib_std :PROJECT;
-  + parent_project :PROJECT;
+  + lip :LIP;
 
   //
   // Code
   //
 
-  - default_init prj:PROJECT <-
+  - default_init prj:LIP <-
   // Initialize the library
   (
-    "Initialize project ".print; Self.print;
+    "Initialize ".print; Self.print;
     prj.if { " from ".print; prj.print; };
     "\n".print;
 
@@ -87,7 +86,7 @@ Section Private
     };
   );
 
-  - init prj:PROJECT <-
+  - init prj:LIP <-
   // Initialize the library
   (
     default_init prj;
@@ -100,8 +99,7 @@ Section Private
   - standard_path <-
   // Standard library.
   (
-    lib_std := lib_std.create("STD");
-    lib_std := lib_std.load("lib.lip");
+    lip.load "lib.lip".init;
   );
   
   //
diff --git a/src/lip/lip_call.li b/src/lip/lip_call.li
index 5618c84..1334078 100644
--- a/src/lip/lip_call.li
+++ b/src/lip/lip_call.li
@@ -133,7 +133,7 @@ Section Public
       //
       // Call with a receiver
       //
-      (self.name = ALIAS_STR.prototype_project).if {
+      (self.name = ALIAS_STR.prototype_lip).if {
         + prj :LIP_VALUEPROJECT;
         + result:LIP_CONSTANT;
         prj ?= self;
@@ -220,7 +220,7 @@ Section Public
       //
       // Call with a receiver
       //
-      (self.name = ALIAS_STR.prototype_project).if {
+      (self.name = ALIAS_STR.prototype_lip).if {
         + prj :LIP_VALUEPROJECT;
         prj ?= self;
         (prj = NULL).if {
diff --git a/src/lip/lip_valueproject.li b/src/lip/lip_valueproject.li
index 4d548db..1b08ad2 100644
--- a/src/lip/lip_valueproject.li
+++ b/src/lip/lip_valueproject.li
@@ -86,7 +86,7 @@ Section Public
   // Operation.
   //
 
-  - name:STRING_CONSTANT <- ALIAS_STR.prototype_project;
+  - name:STRING_CONSTANT <- ALIAS_STR.prototype_lip;
 
   - copy:LIP_CONSTANT <-
   (
diff --git a/src/parser.li b/src/parser.li
index 7eede19..8ae76af 100644
--- a/src/parser.li
+++ b/src/parser.li
@@ -2928,7 +2928,7 @@ Section Private
         result := LIP_STRING.get (ALIAS_STR.get "");
       }.elseif {last_string = ALIAS_STR.prototype_boolean} then {
         result := LIP_BOOLEAN.get FALSE;
-      }.elseif {last_string = ALIAS_STR.prototype_project} then {
+      }.elseif {last_string = ALIAS_STR.prototype_lip} then {
         result := LIP_VALUEPROJECT.get NULL;
       } else {
         syntax_error (current_position,"Incorrect type.");
diff --git a/src/tools/alias_str.li b/src/tools/alias_str.li
index dea7ed0..c502d4a 100644
--- a/src/tools/alias_str.li
+++ b/src/tools/alias_str.li
@@ -94,7 +94,7 @@ Section Public
   - prototype_generic         :STRING_CONSTANT := "___GENERIC";
   - prototype_type_id         :STRING_CONSTANT := "___TYPE_ID";
   - prototype_self            :STRING_CONSTANT := "SELF";
-  - prototype_project         :STRING_CONSTANT := "PROJECT";
+  - prototype_lip         :STRING_CONSTANT := "LIP";
       
   - prototype_uinteger_64     :STRING_CONSTANT := "UINTEGER_64";
   - prototype_uinteger_32     :STRING_CONSTANT := "UINTEGER_32";
@@ -396,7 +396,7 @@ Section Public
     list.add prototype_generic;
     list.add prototype_type_id;
     list.add prototype_self;
-    list.add prototype_project;
+    list.add prototype_lip;
         
     // Integers :
     list.add prototype_uinteger_64;

-- 
Lisaac compiler