1###############################################################################
2#
3#   Class: NaturalDocs::Languages::Ada
4#
5###############################################################################
6#
7#   A subclass to handle the language variations of Ada
8#
9###############################################################################
10
11# This file is part of Natural Docs, which is Copyright � 2003-2010 Greg Valure
12# Natural Docs is licensed under version 3 of the GNU Affero General Public License (AGPL)
13# Refer to License.txt for the complete details
14
15use strict;
16use integer;
17
18package NaturalDocs::Languages::Ada;
19
20use base 'NaturalDocs::Languages::Simple';
21
22
23#
24#   Function: ParseParameterLine
25#   Overridden because Ada uses Pascal-style parameters
26#
27sub ParseParameterLine #(...)
28    {
29    my ($self, @params) = @_;
30    return $self->SUPER::ParsePascalParameterLine(@params);
31    };
32
33sub TypeBeforeParameter
34    {
35    return 0;
36    };
37
38
391;
40