NArrange 0.1.9 (Default branch)

Tags

arrange, default, ge, software releases

Special Forums News, Links, Events and Announcements Software Releases - RSS News NArrange 0.1.9 (Default branch)

05-12-2008

Registered User

26,240, 27

Join Date: Sep 2000

Last Activity: 1 August 2008, 3:09 PM EDT

Posts: 26,240

Thanks Given: 0

Thanked 27 Times in 26 Posts

NArrange 0.1.9 (Default branch)

NArrange is a tool for arranging .NET source code.This code beautifier automatically sorts andorganizes class members into groups or regions.Currently, C# and VB code files are supported.License: Common Public LicenseChanges:
This release fixes some critical C# parsing andformatting issues and adds the ability to filtercode elements by attributes. HTML documentationwas also added.

More...

Linux Bot

View Public Profile for Linux Bot

Find all posts by Linux Bot

Previous Thread | Next Thread

LEARN ABOUT OSX

modperl::code

ModPerl::Code(3)					User Contributed Perl Documentation					  ModPerl::Code(3)

NAME

       $class::Const - Perl Interface for $class Constants

SYNOPSIS

CONSTANTS

       EOF

	       my $groups = $data{$class};
	       for my $group (sort keys %$groups) {
		   print $fh <<"EOF";

   ":$group"
	 use $class::Const -compile qw(:$group);

       The ":$group" group is for XXX constants.

       EOF

		   for my $const (sort @{ $groups->{$group} }) {
		       print $fh "=head3 C<$class::$const>


";
		   }
	       }

	       print $fh "=cut
";
	   }
       }

       sub generate_constants_lookup_doc {
	   my ($data) = @_;

	   while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
	       my $constants = [map { @$_ } values %$groups];

	       constants_lookup_code_doc($constants, $class, $data);
	   }
       }

       sub generate_constants_group_lookup_doc {
	   my ($data) = @_;

	   while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
	       constants_group_lookup_code_doc($class, $groups, $data);
	   }
       }

       sub constants_group_lookup_code_doc {
	   my ($class, $groups, $data) = @_;
	   my @tags;
	   my @code;

	   while (my ($group, $constants) = each %$groups) {
	       $data->{$class}{$group} = [
		   map {
		       my @ifdef = constants_ifdef($_);
		       s/^($constant_prefixes)_?//o;
		       $seen_const{$class}{$_}++;
		       $_;
		   } @$constants
	       ];
	   }
       }

       sub constants_lookup_code_doc {
	   my ($constants, $class, $data) = @_;

	   my (%switch, %alias);

	   %alias = %shortcuts;

	   my $postfix = lc $class;
	   my $package = $class . '::';
	   my $package_len = length $package;

	   my $func = canon_func(qw(constants lookup), $postfix);

	   for (@$constants) {
	       if (s/^($constant_prefixes)(_)?//o) {
		   $alias{$_} = join $2 || "", $1, $_;
	       }
	       else {
		   $alias{$_} ||= $_;
	       }
	       next unless /^([A-Z])/;
	       push @{ $switch{$1} }, $_;
	   }

	   for my $key (sort keys %switch) {
	       my $names = $switch{$key};
	       for my $name (@$names) {
		   my @ifdef = constants_ifdef($alias{$name});
		   push @{ $data->{$class}{other} }, $name
		       unless $seen_const{$class}{$name}
	       }
	   }
       }

       sub generate_exports {
	   my ($self, $c_fh) = @_;
	   require ModPerl::WrapXS;
	   ModPerl::WrapXS->generate_exports($c_fh); }

       # src/modules/perl/*.c files needed to build APR/APR::* outside # of mod_perl.so sub src_apr_ext {
	   return map { "modperl_$_" } (qw(error bucket),
					 map { "common_$_" } qw(util log)); }

       1; __END__

NAME

       ModPerl::Code - Generate mod_perl glue code

SYNOPSIS

	 use ModPerl::Code ();
	 my $code = ModPerl::Code->new;
	 $code->generate;

DESCRIPTION

       This module provides functionality for generating mod_perl glue code.  Reason this code is generated rather than written by hand include:

       consistency
       thin and clean glue code
       enable/disable features (without #ifdefs)
       adapt to changes in Apache
       experiment with different approaches to gluing

AUTHOR

       Doug MacEachern

perl v5.16.2							    2011-02-07							  ModPerl::Code(3)