view release on metacpan or  search on metacpan

lib/PBib/BibItemStyle.pm  view on Meta::CPAN

		"number" => "no.",
		"chapter" => "ch.",
		"Technical Report" => "Tech. Rep.", # only IEEE CS-style, not IEEE TR-style ...
		},
	'German' => {qw/
		English		Englisch
		German		Deutsch
		page		Seite
		pages		Seiten
		chapter		Kapitel
		/
		### ToDo ...
		},
	'GermanAbk' => {qw/
		English		Englisch
		German		Deutsch
		page		S.
		pages		S.
		chapter		Kap.
		/
		### ToDo ...
		},
	};

#
# add extremely abbrev. style
#
### ah, well, this doesn't work yet, as journal and proceedings names are not yet replaced!
#

my %_xabbrev = (%{$keywordStyles->{'EnglishAbbrev'}}, qw/
	Proceedings		Proc.
	International	int'l
	Conference		Conf.
	Transactions	Trans.
	/);
addKeywordStyle(undef, 'English', 'XAbbrev', \%_xabbrev);

sub keywordStyle { my ($self) = @_;
  return $self->defaultLanguage() . ($self->option('keywordStyle') || '');
}
sub addKeywordStyle { my ($self, $language, $style, $keywords) = @_;
# register a new style
  $keywordStyles->{"$language$style"} = $keywords;
}
sub keywords { my $self = shift; return $self->{'keywords'} || {}; }
sub keyword { my ($self, $opt) = @_;
  my $style = $keywordStyles->{$self->keywordStyle()};
  return $self->keywords()->{$opt} ||
    ($style ? $style->{$opt} : undef);
}


#
#
# formating shorthand methods
#
#

sub italic { my $self = shift; return $self->outDoc()->italic(@_); }
sub bold { my $self = shift; return $self->outDoc()->bold(@_); }
sub underlined { my $self = shift; return $self->outDoc()->underlined(@_); }

sub spaceConnect { my $self = shift; return $self->outDoc()->spaceConnect(@_); }
sub tieConnect { my $self = shift; return $self->outDoc()->tieConnect(@_); }
sub tieOrSpaceConnect { my $self = shift; return $self->outDoc()->tieOrSpaceConnect(@_); }


#
#
# methods
#
#

use vars qw/%SupportedCiteTypes $DefaultCiteType %CiteTypeAliases
			%ReportTypeDefaults/;

%SupportedCiteTypes = qw/
	article		1
	book		1
	inbook		1
	incollection	1
	inproceedings	1
	journal		1
	manual		1
	misc		1
	patent		1
	proceedings	1
	report		1
	talk		1
	thesis		1
	unpublished	1
	web		1
	/;

$DefaultCiteType = 'inproceedings';

#	incollection	inbook -- is formated slightly differnt ...
%CiteTypeAliases = qw/
	journal		article
	techreport	report
	conference	inproceedings
	booklet		book
	speech		talk
	slides		talk
	masterthesis	thesis
	phdthesis	thesis
	cdrom		avmaterial
	video		avmaterial
	poster		avmaterial
	email		unpublished
	/;

#### ToDo: use the default report types!
%ReportTypeDefaults = (
	'techreport'	=> "Technical Report",
	'masterthesis'	=> "Master's thesis",
	'phdthesis'	=> "Ph.D. thesis",
	'cdrom'		=> 'CD-ROM',
	'video'		=> 'Video',
	'poster'	=> 'Poster',