Free predictive text software for linux

Text::WikiFormat is a Perl module for translating Wiki formatted text into other formats.

SYNOPSIS

use Text::WikiFormat;
my $html = Text::WikiFormat::format($raw);

The original Wiki web site had a very simple interface to edit and to add pages. Its formatting rules are simple and easy to use. They are also easy to translate into other, more complicated markup languages with this module. It creates HTML by default, but can produce valid POD, DocBook, XML, or any other format imaginable.

The most important function is format(). It is not exported by default.

format()

format() takes one required argument, the text to convert, and returns the converted text. It allows two optional arguments. The first is a reference to a hash of tags. Anything passed in here will override the default tag behavior. The second argument is a hash reference of options. They are currently:

prefix

The prefix of any links. In HTML mode, this is the path to the Wiki. The actual linked item itself will be appended to the prefix. This is useful to create full URIs:

{ prefix => http://example.com/wiki.pl?page= }

extended

A boolean flag, false by default, to use extended linking semantics. This comes from the Everything Engine (http://everydevel.com/), which marks links with square brackets. An optional title may occur after the link target, preceded by an open pipe. These are valid extended links:

[a valid link]
[link|title]

Where the linking semantics of the destination format allow it, the result will display the title instead of the URI. In HTML terms, the title is the content of an A element (not the content of its HREF attribute).

You can use delimiters other than single square brackets for marking extended links by passing a value for extended_link_delimiters in the %tags hash when calling format.

implicit_links

A boolean flag, true by default, to create links from StudlyCapsStringsNote that if you disable this flag, you should probably enable the extended one also, or there will be no way of creating links in your documents. To disable it, use the pair:

{ implicit_links => 0 }

absolute_links

A boolean flag, false by default, which treats any links that are absolute URIs (such as http://www.cpan.org/) specially. Any prefix will not apply and the URIs arent quoted. Use this in conjunction with the extended option to detect the link.

A link is any text that starts with a known schema followed by a colon and one or more non-whitespace characters. This is a distinct subset of what URI recognizes as a URI, but is a good first-order approximation. If you need to recognize more complex URIs, use the standard wiki formatting explained earlier.

The recognized schemas are those defined in the schema value in the %tags hash. The defaults are http, https, ftp, mailto, and gopher.

Text::Yats is Yet Another Template System.

SYNOPSIS

use Text::Yats;

my $template = < < ENDHTML;
< html >
< head >
< title >$title - $version< /title >
< /head >
< body >
< form >
< select name="names" >< !--{1}-- >
< option $selected >$list< /option >
< !--{2}-- >< /select >
< /form >
< /body >
< /html >
ENDHTML

my $result = "";
my $tpl = Text::Yats- >new(
level = > 1,
text = > $template);

$result .= $tpl- >section- >[0]- >replace(
title = > "Yats",
version = > "Development", );

$result .= $tpl- >section- >[1]- >replace(
list = > [hdias,anita,cubitos],
selected = > { value = > "selected",
array = > "list",
match = > "anita", } );

$result .= $tpl- >section- >[2]- >text;
print $result;

Text::MicroMason::HTMLMason is a simple compiler for Mason-style Templating.
SYNOPSIS
Create a MicroMason object to interpret the templates:
use Text::MicroMason;
my $mason = Text::MicroMason->new();
Use the standard compile and execute methods to parse and evalute templates:
print $mason->compile( text=>$template )->( @%args );
print $mason->execute( text=>$template, @args );
Mason syntax provides several ways to mix Perl into a text template:
< %args >
$name
< /%args >
% if ( $name eq Dave ) {
Im sorry < % $name % >, Im afraid I cant do that right now.
% } else {
< %perl >
my $hour = (localtime)[2];
my $daypart = ( $hour > 11 ) ? afternoon : morning;
< /%perl >
Good < % $daypart % >, < % $name % >!
% }
< & "includes/standard_footer.msn" & >
< %doc >
Heres a private developr comment describing this template.
< /%doc >
Main features:
- Template interpolation with
- Literal Perl lines with leading %
- Named %args, %perl, %once, %init, %cleanup, and %doc blocks
- The $m mason object, although with many fewer methods
- Expression filtering with |h and |u (via -Filter mixin)

Text::Indent is a simple indentation of text shared among modules.

SYNOPSIS

In your main program:

use Text::Indent;
my $indent = Text::Indent->new;
$indent->spaces(2);

In a module to produce indented output:

use Text::Indent;
my $indent = Text::Indent->instance;
$indent->increase;
print $indent->indent("this will be indented two spaces");
$indent->increase(2);
print $indent->indent("this will be indented six spaces");
$indent->decrease(3);

Text::Indent is designed for use in programs which need to produce output with multiple levels of indent when the source of the output comes from different modules that know nothing about each other.

For example take module A, whose output includes the indented output of module B. Module B can also produce output directly, so it falls to module B to know whether it should indent its output or not depending on its calling context.

Text::Indent allows programs and modules to cooperate to choose an appropriate indent level that is shared within the program context. In the above example, module A would increase the indent level prior to calling the output routines of module B. Module B would simply use the Text::Indent instance confident that if it were being called directly no indent would be applied but if module A was calling it then its output would be indented one level.