1. 01225   class V8EXPORT Utf8Value {
2. 01226    public:
3. 01227     explicit Utf8Value(Handle<v8::Value> obj);
4. 01228     ~Utf8Value();
5. 01229     char* operator*() { return str_; }
6. 01230     const char* operator*() const { return str_; }
7. 01231     int length() const { return length_; }
8. 01232    private:
9. 01233     char* str_;
10. 01234     int length_;
11. 01235
12. 01236     // Disallow copying and assigning.
13. 01237     Utf8Value(const Utf8Value& );
14. 01238     void operator=(const Utf8Value& );
15. 01239   };

--------- /**************/ -------------
--                                    --
--              Metron                --
--                                    --
--------- /**************/ -------------
 
-- Copyright (C) 2011 Soft Entity ;
-- All right reserved.
-- Author     : Manuel De Girardi
-- Date       ; 2011 May 26
-- Descrption :
with Text_Io;                           use Text_Io;
with Calendar;                          use Calendar;
 
procedure Main is
 
   type String_Access is access all String;
 
   procedure Metron(Reason : in out String_Access;
                    logos  : in out String_Access);
 
   procedure Metron(Reason : in out String_Access;
                    logos  : in out String_Access) is
 
 
      task Deisia is
 
      end Deisia;
 
      task Telos is
            entry Send(Char : out Character);
 
            entry Receive(Char : in Character);
         end Telos;
 
 
         task type Keyboard is
         end Keyboard;
 
 
 
         task body Keyboard is
            Char : Character;
         begin
            loop
               begin
                  Get_Immediate(Char);
                  Telos.Receive(Char);
                  if Char = Character'Val(10) then
                     exit;
                  end if;
               exception
                  when End_Error =>
                     null;
               end;
            end loop;
         end Keyboard;
 
 
         task body Telos is
 
            The_Char : Character;
         begin
            loop
               accept Receive(Char : in Character) do
                  The_Char := Char;
               end Receive;
               accept Send(Char : out Character) do
                  Char := The_Char;
               end Send;
            end loop;
         end Telos;
 
      task body Deisia is
 
 
 
         Input : Keyboard;
         Char : Character;
         Buffer : String_Access := new String ' ("" );
      begin
 
         loop
            select
               Telos.Send(Char);
               case Char is
                  when Character'Val(127) =>
                     Buffer := new String ' (Logos(1..Logos'Last));
                     Put(Character'Val(8) & " " & Character'Val(8));
                  when Character'Val(10) =>
                     New_Line;
                     Reason := new String ' (Logos.all);
                     exit;
                  when others =>
                     Buffer :=  new String ' (Logos.all & Char);
                     Logos := new String ' (Buffer.all);
                     Put(Char);
               end case;
 
            or delay 0.0;
 
 
 
 
            end select;
         end loop;
         abort Telos;
         abort Input;
      end Deisia;
 
 
   begin
 
      null;
   end Metron;
 
 
   version : String := ("Metron 2011 26 May 04:30:000" );
 
   Name : String_Access := new String ' ("" );
   Buffer : String_Access := new String ' ("" );
   Reason : String_Access := new String ' ("" );
   Logos : String_Access := new String ' ("" );
   Char : Character;
begin
 
   Put_line(Version);
   Put_Line(" - What's my name? " );
   loop
      begin
         Get_Immediate(Char);
         case Char is
            when Character'Val(127) =>
               Buffer := new String ' (Name(1..Name'Last));
               Put(Character'Val(8) & " " & Character'Val(8));
            when Character'Val(10) =>
               New_Line;
               exit;
            when others =>
               Buffer :=  new String ' (Name.all & Char);
               Name := new String ' (Buffer.all);
               Put(Char);
         end case;
      exception
         when End_Error =>
            null;
      end;
   end loop;
   New_Line;
   Put_Line(" - Thank you! " );
   New_Line;
   Put_Line(" - Please wait! " );
   New_Line;
 
   loop
      if Name'Length /= 0 then
         Put_Line(" - My name is " & Name.all);
      else
         Put_Line(" - My name is left blank intentionaly." );
      end if;
      New_Line;
      Put_line(" - Why have you raised? " );
      loop
         begin
            Get_Immediate(Char);
            case Char is
               when Character'Val(127) =>
                  Buffer := new String ' (Reason(1..Reason'Last));
                  Put(Character'Val(8) & " " & Character'Val(8));
               when Character'Val(10) =>
                  New_Line;
                  exit;
               when others =>
                  Buffer :=  new String ' (Reason.all & Char);
                  Reason := new String ' (Buffer.all);
                  Put(Char);
            end case;
         exception
            when End_Error =>
               null;
         end;
      end loop;
      exit when (Name /= null and Reason /= null)
        and then Name.all = Reason.all;
 
 
      loop
         Put_Line(" - Confirm your reason... " );
         Metron(Reason, Logos);
         Put_Line(Logos.all);
         New_Line;
         Put_Line("Beacause " & Reason.all);
         New_Line;
         Logos := new String ' ("" );
         Put_Line(" - Is this right? " );
         loop
            begin
               Get_Immediate(Char);
               case Char is
                  when Character'Val(127) =>
                     Buffer := new String ' (Logos(1..Logos'Last));
                     Put(Character'Val(8) & " " & Character'Val(8));
                  when Character'Val(10) =>
                     New_Line;
                     exit;
                  when others =>
                     Buffer :=  new String ' (Logos.all & Char);
                     Logos := new String ' (Buffer.all);
                     Put(Char);
               end case;
            exception
               when End_Error =>
                  null;
            end;
         end loop;
         exit when Logos'Length = 0;
      end loop;
   end loop;
   Put_Line(" - Ok! " );
end Main;