* Correct usage Source_Language to avoid warning by Ocarina

	For TASTE ticket #358



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@6902 129961e7-ef38-4bb5-a8f7-c9a525a55882

resources/AADLv2/components/devices.aadl

@@ -40,7 +40,7 @@ public
    properties
       Type_Source_Name                 => "IP-Conf-T";
       Deployment::ASN1_Module_Name     => "POHICDRIVER-IP";
-      Source_Language                  => ASN1;
+      Source_Language                  => (ASN1);
       Source_Text                      => ("OCARINA_INCLUDE_PATH/ocarina/runtime/polyorb-hi-c/src/drivers/configuration/ip.asn" , "drivers/configuration/ip.h");
    end configuration_type_ip;
 
@@ -48,7 +48,7 @@ public
    properties
       Type_Source_Name              => "Serial-Conf-T";
       Deployment::ASN1_Module_Name  => "POHICDRIVER-UART";
-      Source_Language               => ASN1;
+      Source_Language               => (ASN1);
       Source_Text                   => ("OCARINA_INCLUDE_PATH/ocarina/runtime/polyorb-hi-c/src/drivers/configuration/serial.asn", "drivers/configuration/serial.h");
    end configuration_type_serial;
 
@@ -56,7 +56,7 @@ public
    properties
       Type_Source_Name              => "Spacewire-Conf-T";
       Deployment::ASN1_Module_Name  => "POHICDRIVER-SPACEWIRE";
-      Source_Language               => ASN1;
+      Source_Language               => (ASN1);
       Source_Text                   => ("OCARINA_INCLUDE_PATH/ocarina/runtime/polyorb-hi-c/src/drivers/configuration/spacewire.asn", "drivers/configuration/spacewire.h");
    end configuration_type_spacewire;
 

resources/AADLv2/components/devices/exarm-ni-6071e-analog.aadl

@@ -7,7 +7,7 @@ with Deployment;
 
 subprogram spg_init
 properties
-   Source_Language   => C;
+   Source_Language   => (C);
    Source_Name       => "__po_hi_c_driver_exarm_ni_6071e_analog_init";
 end spg_init;
 
@@ -31,7 +31,7 @@ features
    data15 : out parameter Base_Types::Float_64;
    data16 : out parameter Base_Types::Float_64;
 properties
-   Source_Language   => C;
+   Source_Language   => (C);
    Source_Name       => "__po_hi_c_driver_exarm_ni_6071e_analog_poller";
 end spg_poller;
 

resources/AADLv2/components/devices/exarm-ni-6071e-digital.aadl

@@ -7,7 +7,7 @@ with Deployment;
 
 subprogram spg_init
 properties
-   Source_Language   => C;
+   Source_Language   => (C);
    Source_Name       => "__po_hi_c_driver_exarm_ni_6071e_digital_init";
 end spg_init;
 
@@ -17,7 +17,7 @@ features
    data1 : out parameter Base_Types::Unsigned_32;
    data2 : out parameter Base_Types::Unsigned_32;
 properties
-   Source_Language   => C;
+   Source_Language   => (C);
    Source_Name       => "__po_hi_c_driver_exarm_ni_6071e_digital_poller";
 end spg_poller;
 

resources/AADLv2/components/devices/generic-keyboard.aadl

@@ -7,7 +7,7 @@ with Deployment;
 
 subprogram spg_generic_keyboard_init
 properties
-	Source_Language   => C;
+	Source_Language   => (C);
 	Source_Name       => "__po_hi_driver_generic_keyboard_init";
 end spg_generic_keyboard_init;
 
@@ -34,7 +34,7 @@ subprogram spg_generic_keyboard_poller
 features
    key_pressed : out parameter Base_Types::Integer;
 properties
-	Source_Language   => C;
+	Source_Language   => (C);
 	Source_Name       => "__po_hi_driver_generic_keyboard_poller";
 end spg_generic_keyboard_poller;
 

resources/AADLv2/components/devices/grspw.aadl

@@ -104,7 +104,7 @@ public
 
    properties
       Source_Name => "PolyORB_HI_Drivers_GRSPW.Initialize";
-      Source_Language => Ada;
+      Source_Language => (Ada);
    end Initialize;
 
    -------------
@@ -117,7 +117,7 @@ public
 
    properties
       Source_Name => "PolyORB_HI_Drivers_GRSPW.Receive";
-      Source_Language => Ada;
+      Source_Language => (Ada);
    end Receive;
 
    -------------
@@ -130,7 +130,7 @@ public
 
    properties
       Source_Name => "PolyORB_HI_Drivers_GRSPW.Send";
-      Source_Language => Ada;
+      Source_Language => (Ada);
    end Send;
 
 end GRSPW;

resources/AADLv2/components/devices/gruart.aadl

@@ -106,7 +106,7 @@ public
 
    properties
       Source_Name => "PolyORB_HI_Drivers_GRUART.Initialize";
-      Source_Language => Ada;
+      Source_Language => (Ada);
    end Initialize;
 
    -------------
@@ -119,7 +119,7 @@ public
 
    properties
       Source_Name => "PolyORB_HI_Drivers_GRUART.Receive";
-      Source_Language => Ada;
+      Source_Language => (Ada);
    end Receive;
 
    -------------
@@ -132,7 +132,7 @@ public
 
    properties
       Source_Name => "PolyORB_HI_Drivers_GRUART.Send";
-      Source_Language => Ada;
+      Source_Language => (Ada);
    end Send;
 
 end GRUART;

resources/AADLv2/components/devices/leon-eth.aadl

@@ -8,20 +8,20 @@ with ocarina_drivers;
 
 subprogram spg_leon_eth_poller
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_eth_leon_poller";
 end spg_leon_eth_poller;
 
 
 subprogram spg_leon_eth_sender
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_eth_leon_sender";
 end spg_leon_eth_sender;
 
 subprogram spg_leon_eth_init
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_eth_leon_init";
 end spg_leon_eth_init;
 

resources/AADLv2/components/devices/leon-serial.aadl

@@ -8,26 +8,26 @@ with ocarina_drivers;
 
 subprogram spg_serial_poller_leon
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_leon_poller";
 end spg_serial_poller_leon;
 
 
 subprogram spg_serial_sender_leon
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_leon_sender";
 end spg_serial_sender_leon;
 
 subprogram spg_serial_init_leon
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_leon_init";
 end spg_serial_init_leon;
 
 subprogram spg_serial_init_leon_sender
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_leon_init_sender";
 end spg_serial_init_leon_sender;
 

resources/AADLv2/components/devices/native_uart.aadl

@@ -104,7 +104,7 @@ public
 
    properties
       Source_Name => "PolyORB_HI_Drivers_Native_UART.Initialize";
-      Source_Language => Ada;
+      Source_Language => (Ada);
    end Initialize;
 
    -------------
@@ -117,7 +117,7 @@ public
 
    properties
       Source_Name => "PolyORB_HI_Drivers_Native_UART.Receive";
-      Source_Language => Ada;
+      Source_Language => (Ada);
    end Receive;
 
    -------------
@@ -130,7 +130,7 @@ public
 
    properties
       Source_Name => "PolyORB_HI_Drivers_Native_UART.Send";
-      Source_Language => Ada;
+      Source_Language => (Ada);
    end Send;
 
 end Native_UART;

resources/AADLv2/components/devices/rasta-1553.aadl

@@ -5,39 +5,39 @@ with Deployment;
 
 subprogram spg_1553_controller_rasta
 properties
-	Source_Language   => C;
+	Source_Language   => (C);
 	Source_Name       => "__po_hi_c_driver_1553_rasta_controller";
 end spg_1553_controller_rasta;
 
 subprogram spg_1553_poller_rasta_terminal
 properties
-	Source_Language   => C;
+	Source_Language   => (C);
 	Source_Name       => "__po_hi_c_driver_1553_rasta_terminal_poller";
 end spg_1553_poller_rasta_terminal;
 
 subprogram spg_1553_sender_rasta_controller
 properties
-	Source_Language   => C;
+	Source_Language   => (C);
 	Source_Name       => "__po_hi_c_driver_1553_rasta_sender_controller";
 end spg_1553_sender_rasta_controller;
 
 subprogram spg_1553_sender_rasta_terminal
 properties
-	Source_Language   => C;
+	Source_Language   => (C);
 	Source_Name       => "__po_hi_c_driver_1553_rasta_sender_terminal";
 end spg_1553_sender_rasta_terminal;
 
 
 subprogram spg_1553_init_rasta_controller
 properties
-	Source_Language   => C;
+	Source_Language   => (C);
 	Source_Name       => "__po_hi_c_driver_1553_rasta_init_controller";
 end spg_1553_init_rasta_controller;
 
 
 subprogram spg_1553_init_rasta_terminal
 properties
-	Source_Language   => C;
+	Source_Language   => (C);
 	Source_Name       => "__po_hi_c_driver_1553_rasta_init_terminal";
 end spg_1553_init_rasta_terminal;
 

resources/AADLv2/components/devices/rasta-serial.aadl

@@ -8,14 +8,14 @@ with ocarina_drivers;
 
 subprogram spg_serial_poller_rasta
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_rasta_poller";
 end spg_serial_poller_rasta;
 
 
 subprogram spg_serial_sender_rasta
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_rasta_sender";
 end spg_serial_sender_rasta;
 
@@ -24,7 +24,7 @@ end spg_serial_sender_rasta;
 
 subprogram spg_serial_init_rasta
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_rasta_init";
 end spg_serial_init_rasta;
 

resources/AADLv2/components/devices/rasta-spacewire.aadl

@@ -7,19 +7,19 @@ with Deployment;
 
 subprogram spg_spacewire_poller_rasta
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_spacewire_rasta_poller";
 end spg_spacewire_poller_rasta;
 
 subprogram spg_spacewire_sender_rasta
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_spacewire_rasta_sender";
 end spg_spacewire_sender_rasta;
 
 subprogram spg_spacewire_init_rasta
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_spacewire_rasta_init";
 end spg_spacewire_init_rasta;
 

resources/AADLv2/components/devices/scoc3-spacewire.aadl

@@ -7,19 +7,19 @@ with Deployment;
 
 subprogram spg_poller
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_spacewire_scoc3_poller";
 end spg_poller;
 
 subprogram spg_sender
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_spacewire_scoc3_sender";
 end spg_sender;
 
 subprogram spg_init
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_spacewire_scoc3_init";
 end spg_init;
 

resources/AADLv2/components/devices/sd-spw-usb.aadl

@@ -6,19 +6,19 @@ with Deployment;
 
 subprogram spg_poller
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_spw_usb_brick_poller";
 end spg_poller;
 
 subprogram spg_sender
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_spw_usb_brick_sender";
 end spg_sender;
 
 subprogram spg_init
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_spw_usb_brick_init";
 end spg_init;
 

resources/AADLv2/components/devices/serial-raw.aadl

@@ -7,33 +7,33 @@ with ocarina_drivers;
 
 subprogram spg_serial_poller_linux
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_linux_poller";
 end spg_serial_poller_linux;
 
 
 subprogram spg_serial_sender_linux
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_linux_sender";
 end spg_serial_sender_linux;
 
 
 subprogram spg_serial_init_linux
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_linux_init";
 end spg_serial_init_linux;
 
 subprogram spg_serial_init_linux_sender
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_linux_init_sender";
 end spg_serial_init_linux_sender;
 
 subprogram spg_serial_init_linux_receiver
 properties
-	Source_Language => C;
+	Source_Language => (C);
 	Source_Name => "__po_hi_c_driver_serial_linux_init_receiver";
 end spg_serial_init_linux_receiver;
 

resources/AADLv2/components/devices/sockets-raw.aadl

@@ -6,14 +6,14 @@ with ocarina_drivers;
 
 subprogram spg_sockets_init
 properties
-	Source_Language   => C;
+	Source_Language   => (C);
 	Source_Name       => "__po_hi_driver_sockets_init";
 end spg_sockets_init;
 
 
 subprogram spg_eth_linux_sender
 properties
-	Source_Language   => C;