Free 0.05 software for linux

pgk is a Perl Gimp Kit, a OO perl gtk interface.

pgk::Widget

new ($name,$type)

pre: $name is the name of this widget.
$type is the type of this widget.
post: base class pgk::Widget created, that implements base
functions for all derived pgk classes.

add($widget)

pre: $widget is a derivative of pgk::Widget.
post: $widget has been added to the widgetlist of $self.

setHandle($handle)

pre: Got $handle from pgk_xs C-function and is a pointer
to a GTK widget.
post: $widget is associated with $handle.

$handle=getHandle()

pre: setHandle(..)
post: =the GTK widget pointer associated with this pgk widget.
Can be used in calls to pgk_xs.

setEvent($eventFunc,$eventType, ...)

pre: $eventType setEvent(main::LabelEvent, clicked, $dlg);

In case of a clicked event for the $lab label, main::LabelEvent
will be called with argument $dlg. E.g., fields in $dlg can be updated.

setTimer($millisecs,$timerFunc, ...)

pre:
post: Timer is set for $millisecs for this widget. After $millisecs,
&$timerFunc is called with arguments ....
Note: timerFunc returns 1 for continues calling.
timerFunc returns 0 for one shot calling.
smpl:
my $dlg=new pgk::Dialog(my_dialog, My title, 2, 2);
$dlg->setTimer(1000, main::updateTime, $dlg);

package main;

sub updateTime {
my $window=shift;
my $time=ctime();
$window->setValue($time);
return 1;
}

addTimer($millisecs, $timerFunc, ...)

pre:
post: Timer is added to the current widget. After $millisecs,
&$timerFunc is called with arguments $this, ....
Note: timerFunc returns 1 for continues calling.
timerFunc returns 0 for one shot calling.

smpl: my $dlg=new pgk::Dialog(my_dialog, My title, 2, 2);
$dlg->addTimer(1000, main::updateTime, "My extra argument");

package main;

sub updateTime {
my $self=shift;
my $txt=shift;
my $time=ctime();
$self->setValue($time." $txt");
return 1;
}

setProp($prop,$value|@value)

post: Property $prop of $widget has been set to $value.
smpl: $widget->setProp(myprop,"My Value");

getProp($prop)

post: = value of property $prop of $widget.
smpl: my $t=$widget->getProp(myprop);

setWidget($widget)

post: sets property widget.$widget->name() to $widget.

getWidget($name)

post: =widget of $name, if setWidget has been called before.
=undef, otherwise

setValue($value)

post: pgk::Widget base class implements this method by calling
setProp(value,$value).

getValue()

post: pgk::Widget base class implements this method by calling
getProp(value).

show()

post: shows all PGK widgets associated with the current
widget, including this one.

Quit()

post: Quits the application, destroying all pgk windows opened.

name()

post: =name of widget.

Aorta project is a load-balancing clustered P2P application.
It executes Tasklets (which have the ability to split themselves into sub tasks that can be executed in pararell).
A typical cluster contains of a LAN with 1-256 computers, each one running aorta.
A Tasklet can be of any type ranging from encoding MP3s, Genomic DNA Alignment, or simply to rendering Web pages for high speed/heavily loaded Web sites.
You can make functions calls to C/C++, applications like Matlab, etc.
Main features:
- PingTasklet simply traversers your net of aortas.
- ImageTasklet , simply rescale imagecolours.
- EncodeTasklet, spreads out mp3 encode in your LAN.
- SimpleSort , Merge sort by Gretsam.
Enhancements:
- Refactored to one base class Moblet,the smalles code and data entity moving around
- Improved Moblet Receiver and executing. Minimizing worker idle time
- startup script aorta.sh improved now can start with remote debug params
- Aorta core can now be used as an API to emit/delegete Moblets from an user created application
- Preferences stuff should work on a MS platform now
- Herve added DocBook to buildsystem
- Gretsam added a MergeSorter Tasklet

wlan-ui is a very small Linux GUI tool for connecting to wireless networks. It is written in perl, and is a basic example of using perl with Gtk and Glade.

There is also some simple process handling (forking off a process, collecting output, killing the process if cancelled).

playtab can print chords of songs in a tabular fashion.

SYNOPSIS

playtab [options] [file ...]

Options:

-transpose +/-N transpose all songs
-output XXX set outout file
-ident show identification
-help brief help message
-verbose verbose information

OPTIONS

-transpose amount

Transposes all songs by amount. This can be + or - 11 semitones.

When transposing up, chords will de represented sharp if necessary; when transposing down, chords will de represented flat if necessary. For example, chord A transposed +1 will become A-sharp, but when transposed -11 it will become B-flat.

-output file

Designates file as the output file for the program.

-help

Print a brief help message and exits.

-ident

Prints program identification.

-verbose

More verbose information.

file

Input file(s).

The input for playtab is plain ASCII. It contains the chords, the division in bars, with optional annotations.

An example:

!t Blue Bossa

Bossanova
=
| c-9 ... | f-9 ... | d% . g7 . | c-9 ... |
| es-9 . as6 . | desmaj7 ... | d% . g7 . | c-9 . d% g7 |

The first line, !t denotes the title of the song. Each song must start with a title line.

The title line may be followed by one or more !s, subtitles, for example to indicate the composer.

The text "Bossanova" is printed below the title and subtitle.

The "=" indicates some vertical space.

The next lines show the bars of the song. In the first bar is the c-9 chord (Cminor9), followed by three dots. The dots indicate that this chord is repeated for all 4 beats of this bar. In the 3rd bar each chord take two beats: d5% (d half dim), a dot, g7 and another dot.

Run playtab with -h or --help for the syntax of chords.

If you use "=" followed by some text, the printout is indented and the text sticks out to the left. With this you can tag groups of bars, for example the parts of a song that must be played in a certain order. For example:

!t Donna Lee
!s Charlie Parker

Order: A B A B

= A
| as . | f7 . | bes7 . | bes7 . |
| bes-7 . | es7 . | as . | es-7 D7 |
| des . | des-7 . | as . | f7 . |
| bes7 . | bes7 . | bes-7 . | es7 . |

= B
| as . | f7 . | bes7 . | bes7 . |
| c7 . | c7 . | f- . | c7#9 . |
| f- . | c7 . | f- . | aso . |
| as f7 | bes-7 es7 | as - | bes-7 es7 |

You can modify the width of the bars with a !w control. Standard width of a beat is 30. !w +5 increases the width to 35. !w 25 sets it to 25. You get the idea. You can also change the height with !h (default is 15) and margin with !m (default width is 40).

You can transpose an individual song with !x amount, where amount can range from -11 to +11, inclusive.

Look at the examples, that is (currently) the best way to get grip on what the program does.

Oh, I almost forgot: it can print guitar chord diagrams as well. See "bluebossa", "sophisticatedlady" and some others.

Have fun, and let me know your ideas!

INPUT SYNTAX

Notes: C, D, E, F, G, A, B.
Raised with # or suffix is, e.g. A#, Ais.
Lowered with b or suffix s or es, e.g. Bes, As, Eb.

Chords: note + optional modifiers.
Chord modifiers Meaning [examples]
--------------------------------------------------------------
nothing major triad [C]
- or min or m minor triad [Cm Fmin Gb-]
+ or aug augmented triad [Caug B+]
o or 0 or dim diminished triad [Co D0 Fdim]
--------------------------------------------------------------
maj7 major 7th chord [Cmaj7]
% half-diminished 7 chord [C%]
6,7,9,11,13 chord additions [C69]
--------------------------------------------------------------
# raise the pitch of the note to a sharp [C11#9]
b lower the pitch of the note to a flat [C11b9]
--------------------------------------------------------------
no substract a note from a chord [C9no11]
--------------------------------------------------------------
Whitespace and () may be used to avoid ambiguity, e.g. C(#9) C#9 C#(9)

Other: Meaning
--------------------------------------------------------------
. Chord space
- Rest
% Repeat
/ Powerchord constructor [D/G D/E-]
--------------------------------------------------------------

GPS::PRN is a package for PRN - Object ID conversions.

SYNOPSIS

use GPS::PRN;
my $obj = GPS::PRN->new();
print "PRN: ", $obj->prn_oid(22231), "n";
print "OID: ", $obj->oid_prn(1), "n";

This module maps GPS PRN number to Satellite OID and vice versa.

Object Identification Number (OID)

The catalog number assigned to the object by the US Air Force. The numbers are assigned sequentially as objects are cataloged. This is the most common way to search for TLE data on this site.

Object numbers less then 10000 are always aligned to the right, and padded with zeros or spaces to the left.

Pseudo Random Numbers (PRNs)

GPS satellites are identified by the receiver by means of PRN-numbers. Real GPS satellites are numbered from 1 - 32. WAAS/EGNOS satellites and other pseudolites are assigned higher numbers. The PRN-numbers of the satellites appear on the satellite view screens of many GPS receivers.

METHODS

prn_oid

PRN given Object ID.

my $prn=prn_oid(22231);

oid_prn

Object ID given PRN.

my $oid=oid_prn(1);

listprn

List all known PRNs.

my @prn=$obj->listprn;
my $prn=$obj->listprn;

listoid

List all known OIDs.

my @oid=$obj->listoid;
my $oid=$obj->listoid;

data

OID to PRN hash reference

my $data=$self->data;

overload

Adds or overloads new OID/PRN pairs.

$obj->overload($oid=>$prn);

reset

Resets overloaded OID/PRN pairs to package defaults.

$obj->reset;

Prelaunch is a utility for the Linux desktop which significantly decrease the time to launch programs.

Pre- launch start the respective program during login not visible to the user. With this trick the real launch needs no time. It is written in C and GTK.

*Prelaunch will work with every desktop environment but only Gnome is supported at the moment (Adding new apps...).

Pod::WSDL is a Perl module that creates WSDL documents from (extended) pod.

SYNOPSIS

use Pod::WSDL;

my $pod = new Pod::WSDL(source => My::Server,
location => http://localhost/My/Server,
pretty => 1,
withDocumentation => 1);

print $pod->WSDL;

Parsing the pod

How does Pod::WSDL work? If you instantiate a Pod::WSDL object with the name of the module (or the path of the file, or an open filehandle) providing the web service like this

my $pwsdl = new Pod::WSDL(source => My::Module,
location => http://my.services.location/on/the/web);

Pod::WSDL will try to find My::Module in @INC, open the file, parse it for WSDL directives and prepare the information for WSDL output. By calling

$pwsdl->WSDL;

Pod::WSDL will output the WSDL document. Thats it.
When using Pod::WSDL, the parser expects you to do the following:

Put the pod directly above the subroutines which the web services client is going to call. There may be whitespace between the pod and the sub declaration but nothing else.
Use the =begin/=end respectively the =for directives according to standard pod: anything between =begin WSDL and =end will be treated as pod. Anything composing a paragraph together with =for WSDL will be treated as pod.

Any subroutine not preceeded by WSDL pod will be left unmentioned. Any standard pod will be ignored (though, for an exception to this, see the section on own complex types below).

The individual instructions for Pod::WSDL always begin with a keyword, like _RETURN or _DOC or _FAULT. After this different things may follow, according to the specific type of instruction. The instruction may take one or more lines - everything up to the next line beginning with a keyword or the end of the pod is belonging to the current instruction.

Describing Methods

How do we use Pod::WSDL? In describing a web services method we have to say something about parameters, return values and faults. In addition you might want to add some documentation to these items and to the method itself.