* Add VDM as Supported_Language

        For issue #73

resources/AADLv2/aadl_project.aadl

@@ -77,6 +77,7 @@ property set AADL_Project is
      Simulink,
      Simulink_6_5,
      System_C,
+     VDM,
      VHDL,
      ACN,
      QGenC,

src/backends/ocarina-backends-properties.adb

@@ -276,6 +276,7 @@ package body Ocarina.Backends.Properties is
    Language_Simulink_Name        : Name_Id;
    Language_System_C_Name        : Name_Id;
    Language_VHDL_Name            : Name_Id;
+   Language_VDM_Name             : Name_Id;
    Language_QGenAda_Name         : Name_Id;
    Language_QGenC_Name           : Name_Id;
 
@@ -1205,6 +1206,9 @@ package body Ocarina.Backends.Properties is
       elsif Source_L = Language_VHDL_Name then
          return Language_VHDL;
 
+      elsif Source_L = Language_VDM_Name then
+         return Language_VDM;
+
       elsif Source_L = Language_GUI_Name then
          return Language_Gui;
 
@@ -1315,6 +1319,7 @@ package body Ocarina.Backends.Properties is
            Language_SDL_RTDS      |
            Language_System_C      |
            Language_SDL_OpenGEODE |
+           Language_VDM           |
            Language_VHDL          =>
             --  A subprogram having this language as implementation
             --  language is not supported.
@@ -2918,6 +2923,7 @@ package body Ocarina.Backends.Properties is
       Language_RTDS_Name            := Get_String_Name ("rtds");
       Language_SDL_RTDS_Name        := Get_String_Name ("sdl_rtds");
       Language_VHDL_Name            := Get_String_Name ("vhdl");
+      Language_VDM_Name             := Get_String_Name ("vdm");
       Language_System_C_Name        := Get_String_Name ("system_c");
       Language_QGenAda_Name         := Get_String_Name ("qgenada");
       Language_QGenC_Name           := Get_String_Name ("qgenc");

src/backends/ocarina-backends-properties.ads

@@ -78,6 +78,7 @@ package Ocarina.Backends.Properties is
       Language_QGenC,
       Language_QGenAda,
       Language_System_C,
+      Language_VDM,
       Language_VHDL,
       Language_None);