rms, can you take a look and fix typos, grammatical errors, etc?
Can somebody that doesn't has a clue about how the perl bindings works
take a look and say me if everything is understandable?
Cheers,
--
Joaqu�n Cuenca Abela
[EMAIL PROTECTED]
HOWTO USE THE ABIWORD SCRIPT BINDINGS
=====================================
How to install the beast
------------------------
1) By now, you should be in unix.
2) type:
make ABI_OPT_PERL=1 install
cd src/bindings/perl
perl Makefile.PL
make
make install
2 alt.) If you are using the auto{conf,make} stuff, just write
./configure --enable-scripting
make
make install
Introductory stuff
------------------
Now, we're going to write out first script. I'm tired of "Hello
World!", so we will just write a nice "X" into the current AbiWord document.
Write the perl script:
===========================
my $frame = abi::XAP_Frame::getLastFocussed;
my $view = $frame->getCurrentView;
$view->write("X");
1;
===========================
Save it as "test_x.pl", execute abiword, and click on the
Tools->Script menubar item (or in the blue arrow in the "extra"
toolbar). That will open a dialog box, select test_x.pl (and click
"ok" ;)
You should see now a sexy X in your current cursor position.
If you don't see it, take a break, make sure that you're using the
perl script enabled version of abiword, and if everything seems ok,
but it's still not working send me ([EMAIL PROTECTED]) an email with
a description of your problem.
Now, why this script writes a X in your document?
Let's analyzing it...
The first line:
my $frame = abi::XAP_Frame::getLastFocussed;
creates a new local ("my") variable ($frame), and gives it the value
of the last focussed frame that abi knows about (ie, the frame in
which you're working right now).
Now you should get a "view" from this "frame" to be able to write
something (if you find stupid to "write" something in a "view" instead
of writting in a "controller", then you're right).
The second line does just that:
my $view = $frame->getCurrentView;
It gets the view associated with the frame that you're using, and it
puts it in the local variable "$view".
Now, we will write something in our new view:
$view->write("X");
No comments.
The leading "1;" is important. It's the return value of your script.
If you forget about it, you will burn in hell, etc.
Here we've just used 3 functions of the abiword's perl bindings, but
with only these function we can already do plenty of cool things, for
instance...
Interesting stuff
-----------------
Now, we can pass to the interesting stuff (well, I'm not saying that
inserting a X in your document is not interesting, but...)
Now, we will study a script that will write in the current abiword
document a serie of cards, with this format:
POBOX
NAME
STREET
POSTAL_CODE CITY (REGION)
COUNTRY
The data that will be used to fill each card will be extracted from
the file that creates GnomeCard.
Here is the script:
==============================
my $CARD;
my $home = $ENV{'HOME'} || $ENV{'LOGDIR'} || (getpwuid($<))[7] || die "You're
homeless!\n";
open CARD, "< $home/.gnome/GnomeCard.gcrd" or die "Sorry, could not open default card
file: $!";
while (<CARD>) {
read_card($CARD) if (/^BEGIN:VCARD/);
}
1;
sub read_card {
my $CARD = shift;
my ($name, $pobox, $extended, $street, $city, $region, $postalcode, $country);
while (<CARD>) {
if (/^END:VCARD/) {
chomp($name);
chomp($country);
my $frame = abi::XAP_Frame::getLastFocussed;
my $view = $frame->getCurrentView;
$view->write("$pobox\n") unless ($pobox eq "");
$view->write("$name\n");
$view->write("$street\n");
$view->write("$postalcode $city ($region)\n");
$view->write("$country\n");
return 0;
}
else {
my ($type, $data) = split /:/;
$name = $data if ($type eq "FN");
if ($type =~ /^ADR/) {
($pobox, $extended, $street, $city, $region, $postalcode, $country) =
split(/;/, $data);
}
}
}
}
=================================
ok, now that's a lot of stuff... but the abi stuff is the same that
in our last example. We get the current frame, the associated view,
and we write something. The key is in the "something". Now we parse
the file generated by GnomeCard (just open GnomeCard, and fill some
cards), and we write the contents of GnomeCard (formatting them a bit
in the way).
To understand how it works, take a navigator, go to google and search
for "perl tutorial". This script is not rocket science, I'm sure that
you can understand it without a glitch (if it's not the case, you can
ask me whatever you want).
Now, you can do more things than just write something in a view! You
can do weird things, as saving documents, editing headers, etc.
Here's a list of all the methods that you can use (you can always read
the abi.xs file, but I think that the whole point of this
mini-tutorial is to show how to use the abiword perl bindings
*without* having to take a look at the code):
====================
$view->moveCursorAbs(target, where)
$view->moveCursorRel(target, where)
ex.:
$view->moveCursorAbs("page", 3);
$view->moveCursorAbs("line", 6);
It will move your cursor to the page 3, line 6.
ex.:
$view->moveCursorRel("page", -2);
$view->moveCursorRel("line", 4);
It will advance your cursor 2 pages up, and 4 lines down.
====================
$view->setCharFormat(format)
ex.:
$view->setCharFormat("font-weight" => "normal",
"font-style" => "normal",
"font-family" => "Times New Roman",
"font-size" => "12pt",
"text-decoration" => "normal");
It will change the current character format (if you write
something after this call, it will show up in the selected
format).
The formats availables are:
TODO
====================
$view->changeNumColumns(ncols)
ex.:
$view->changeNumColumns(3);
It will... well, you can guess it :)
====================
$view->cmdCharDelete(forward, count)
ex.:
$view->cmdCharDelete(false, 3);
It will delete backwards 3 characters
====================
$page_nb = $view->getCurrentPageNumber
It returns the current page number
====================
$view->saveAs(filename, left, cpy)
It saves the doc being edited in $view as "filename".
====================
$view->editHeader
It changes the edition point to the header. Next "write"'s
will write in the header, and not in the body.
====================
$view->editFooter
It changes the edition point to the footer. Next "write"'s
will write in the footer, and not in the body.
====================
$view->editBody
It changes the edition point to the body of the document.
Useful after an edit{Header,Footer}. ** NOTE: It doesn't work
right now.
====================
$pos = $view->getPoint
It returns the position of the insertion point.
====================
$frame->getCurrentView
It returns the view that is being used in the frame.
====================
$frame->close
It closes the frame.
====================
$frame = openFile(filename)
It opens a new frame, using the document "filename".
====================
$frame = getLastFocussed
It returns the last focused frame.
====================
exit
Quits the app
Bye bye
-------
Now that we can dynamically add menu items to abiword, it should be a
piece of cake to package some scripts with abiword, and bind them to
new menu bar item's (a la gimp).
So, if you write a script and you think that it may be of public
interest, send us a copy and we will package it with abiword (once we
enable the perl build by default).
And that's all folks!
