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