mirror of
https://github.com/lxsang/antd-lua-plugin
synced 2025-01-07 14:28:22 +01:00
40 lines
956 B
Perl
40 lines
956 B
Perl
|
###############################################################################
|
|||
|
|
#
|
|||
|
|
# Class: NaturalDocs::Languages::Ada
|
|||
|
|
#
|
|||
|
|
###############################################################################
|
|||
|
|
#
|
|||
|
|
# A subclass to handle the language variations of Ada
|
|||
|
|
#
|
|||
|
|
###############################################################################
|
|||
|
|
|
|||
|
|
# This file is part of Natural Docs, which is Copyright <20> 2003-2010 Greg Valure
|
|||
|
|
# Natural Docs is licensed under version 3 of the GNU Affero General Public License (AGPL)
|
|||
|
|
# Refer to License.txt for the complete details
|
|||
|
|
|
|||
|
|
use strict;
|
|||
|
|
use integer;
|
|||
|
|
|
|||
|
|
package NaturalDocs::Languages::Ada;
|
|||
|
|
|
|||
|
|
use base 'NaturalDocs::Languages::Simple';
|
|||
|
|
|
|||
|
|
|
|||
|
|
#
|
|||
|
|
# Function: ParseParameterLine
|
|||
|
|
# Overridden because Ada uses Pascal-style parameters
|
|||
|
|
#
|
|||
|
|
sub ParseParameterLine #(...)
|
|||
|
|
{
|
|||
|
|
my ($self, @params) = @_;
|
|||
|
|
return $self->SUPER::ParsePascalParameterLine(@params);
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
sub TypeBeforeParameter
|
|||
|
|
{
|
|||
|
|
return 0;
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
|
|||
|
|
1;
|