[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 4126d7c53829d82645db160a83e222364881cb66
Author: Mildred Ki'Lya <silkensedai at online.fr>
Date:   Tue Sep 1 16:15:31 2009 +0200

    Remove public_path in lip and add a slot to simply call front_end

diff --git a/src/lip/lip_call.li b/src/lip/lip_call.li
index bdecd03..5618c84 100644
--- a/src/lip/lip_call.li
+++ b/src/lip/lip_call.li
@@ -95,7 +95,6 @@ Section Public
         };
         die_with_code exit_failure_code;
       }.elseif {(name = ALIAS_STR.slot_path) ||
-                {name = ALIAS_STR.slot_public_path} ||
                 {name = ALIAS_STR.slot_private_path}
       } then {
         str ?= val;
diff --git a/src/lip/lip_project.li b/src/lip/lip_project.li
index 9001fbf..721c877 100644
--- a/src/lip/lip_project.li
+++ b/src/lip/lip_project.li
@@ -78,6 +78,25 @@ Section Public
     };
   );
 
+  - call_front_end <-
+  (
+    + slot:LIP_SLOT_CODE;
+    slot := get_method (ALIAS_STR.slot_front_end);
+    (slot != NULL).if {
+      (slot.run_with NULL).if_false {
+        semantic_error (position,"Invalid argument.");
+      };
+    } else {
+      string_tmp.copy "Code slot `";
+      string_tmp.append (ALIAS_STR.slot_front_end);
+      string_tmp.append "' not found in project `";
+      string_tmp.append (name);
+      string_tmp.append "'.\n";
+      POSITION.put_error warning text string_tmp;
+      POSITION.send_error;
+    };
+  );
+
   + list_parent:FAST_ARRAY(STRING_CONSTANT);
   // List the parent .lip files (Section Inherit in .lip)
 
diff --git a/src/tools/alias_str.li b/src/tools/alias_str.li
index 6240795..dea7ed0 100644
--- a/src/tools/alias_str.li
+++ b/src/tools/alias_str.li
@@ -156,8 +156,7 @@ Section Public
   - slot_exit         :STRING_CONSTANT := "exit";
   - slot_run          :STRING_CONSTANT := "run";
   - slot_path         :STRING_CONSTANT := "path";
-  - slot_public_path  :STRING_CONSTANT := "public_path";
-  - slot_private_path :STRING_CONSTANT := "private_path";
+  - slot_private_path :STRING_CONSTANT := "path_private";
   - slot_front_end    :STRING_CONSTANT := "front_end";
   - slot_back_end     :STRING_CONSTANT := "back_end";
   - slot_info_project :STRING_CONSTANT := "info_project";
@@ -461,7 +460,6 @@ Section Public
     list.add slot_exit;
     list.add slot_run;
     list.add slot_path;
-    list.add slot_public_path;
     list.add slot_private_path;
     list.add slot_front_end;
     list.add slot_back_end;

-- 
Lisaac compiler