1 with Ada.Characters.Handling; use Ada.Characters.Handling;
5 type Build_Mode_State is (None, Static, Dynamic, Relocatable);
7 procedure Build_Library (For_Project : Integer) is
8 Project_Name : constant String := Get_Name_String (For_Project);
9 The_Build_Mode : Build_Mode_State := None;
12 Write_Str (To_Lower (Build_Mode_State'Image (The_Build_Mode)));