mirror of
https://github.com/ddnet/ddnet.git
synced 2024-11-10 10:08:18 +00:00
39 lines
860 B
Perl
39 lines
860 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 (C) 2003-2008 Greg Valure
|
|
# Natural Docs is licensed under the GPL
|
|
|
|
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;
|