mirror of
https://github.com/lxsang/antd-lua-plugin
synced 2025-07-13 13:44:24 +02:00
mimgrating from another repo
This commit is contained in:
39
lib/ann/fann/docs/NaturalDocs-1.52/Modules/NaturalDocs/Languages/Ada.pm
Executable file
39
lib/ann/fann/docs/NaturalDocs-1.52/Modules/NaturalDocs/Languages/Ada.pm
Executable file
@ -0,0 +1,39 @@
|
||||
###############################################################################
|
||||
#
|
||||
# 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;
|
Reference in New Issue
Block a user