mirror of https://github.com/odrling/Aegisub
278 lines
10 KiB
Plaintext
278 lines
10 KiB
Plaintext
------------------------------------
|
|
Quick reference on Perl engine's API
|
|
------------------------------------
|
|
|
|
All the packages that form the perl interface to Aegisub are automatically
|
|
loaded, however none of their symbols are exported initially. If you want to
|
|
import them you can use the usual 'use' mechanism; if you call it without a
|
|
list of imports it will import more or less everything in your script's
|
|
package. Wether they are exported or not is indicated in the following
|
|
reference by <--EXPORTED--> (exported by default within a plain 'use'
|
|
statement) and <--EXPORTABLE--> (can be imported specifying them explicitely in
|
|
the 'use' statement) tags. Finally, <--NOT EXPORTABLE--> indicates symbols that
|
|
can't be exported through 'use'.
|
|
|
|
|
|
====================================
|
|
package Aegisub
|
|
|
|
------------------------------------
|
|
Constants defined:
|
|
<--EXPORTABLE-->
|
|
|
|
LOG_FATAL == 0
|
|
LOG_ERROR == 1
|
|
LOG_WARNING == 2
|
|
LOG_HINT == 3
|
|
LOG_DEBUG == 4
|
|
LOG_TRACE == 5
|
|
LOG_MESSAGE == 6
|
|
Log levels, to be used with the 'log' function.
|
|
|
|
LOG_WX == 8
|
|
Flag to force logging through wxWidgets facilites.
|
|
|
|
------------------------------------
|
|
Subroutines defined:
|
|
<--EXPORTED-->
|
|
|
|
text_extents STYLE, TEXT
|
|
Computes the metric for a string of text, based on a specific style.
|
|
Arguments:
|
|
STYLE The style to use, as a string or ref to a style line.
|
|
TEXT Text for which to compute the metrics.
|
|
Returns:
|
|
WIDTH The width of the text (if called in scalar context, only this is returned).
|
|
ASCENT The ascent, i.e. the distance from the baseline to the top of the letters.
|
|
DESCENT Descent, i.e. the distance from the baseline to the bottom.
|
|
EXTLEADING External leading, i.e. the distance between to lines of text.
|
|
|
|
log_fatal LIST
|
|
...
|
|
log_message LIST
|
|
These are shortcuts for 'log(LOG_FATAL, LIST)' to 'log(LOG_MESSAGE, LIST)'
|
|
(see below).
|
|
|
|
<--EXPORTABLE-->
|
|
|
|
log LEVEL, LIST
|
|
log LIST
|
|
Prints a log message inside the progress window, if LEVEL is less or equal
|
|
to the tracelevel set inside automation options. If called from outside a
|
|
callback (i.e. during script loading) prints through the wxWidgets logging
|
|
mechanism. 'log(LIST)' is equal to 'log(Aegisub::LOG_MESSAGE, LIST)'. The
|
|
short form is used whenever there are at least two arguments and the first
|
|
one cannot be read as an integer; it is always used when given only one
|
|
argument. This function is not exported by default (review man perlfunc to
|
|
understand why :).
|
|
|
|
Arguments:
|
|
LEVEL The debug level, may be one of the following (the descriptions are
|
|
indicative):
|
|
0 Fatal error, for vital errors;
|
|
1 Error, for serious but not too much threatening errors;
|
|
2 Warning, for something that's apparently going wrong;
|
|
3 Hint, for indicating something peculiar is happening;
|
|
4 Debug, for debugging!
|
|
5 Trace, for really verbose debugging;
|
|
6 Message, always printed.
|
|
If you OR one of these values with the flag LOG_WX the log message will
|
|
be delivered though wxWidgets regardless of wether there is a progress
|
|
window displayed (you won't normally need this feature, though).
|
|
LIST List of arguments to print.
|
|
|
|
warn LIST
|
|
Prints a warning through the GUI log facilities (it is equivalent to
|
|
'log(Aegisub::LOG_WARNING, LIST)'). It is automatically hooked to the
|
|
global 'warn' function during script execution, thus it is not exported by
|
|
default.
|
|
Arguments:
|
|
LIST List of arguments to print.
|
|
|
|
<--NOT EXPORTABLE-->
|
|
|
|
wxlog LEVEL, LIST
|
|
wxlog LIST
|
|
Similar to 'log', but with the LOG_WX flag implicitely set. This function
|
|
is top-secret.
|
|
|
|
|
|
====================================
|
|
package Aegisub::PerlConsole
|
|
------------------------------------
|
|
This package contains the perl console, a debug tool not intended for normal
|
|
use by normal users (it's not even enabled in release builds). They are shown
|
|
here for completeness.
|
|
|
|
------------------------------------
|
|
Subroutines defined:
|
|
<--EXPORTED-->
|
|
|
|
echo LIST
|
|
Prints a list of arguments on the console, or on STDOUT if no console is
|
|
registered, a trailing \n is printed too.
|
|
Arguments:
|
|
LIST List of arguments to print.
|
|
|
|
register_console NAME, DESC
|
|
Registers an instance of the console, as a macro. You don't want to know
|
|
any more because in fact you'll never have to do with this. >:)
|
|
Arguments:
|
|
NAME Set the name for the macro. (optional)
|
|
DESC Set the macro's description. (optional)
|
|
|
|
|
|
====================================
|
|
package Aegisub::Progress
|
|
------------------------------------
|
|
This package provides an interface to the progress window automatically showed
|
|
during the execution of a feature. Its functions are somewhat different to
|
|
those available in lua because of clarity, however aliases are given.
|
|
|
|
------------------------------------
|
|
Subroutines defined:
|
|
<--EXPORTED-->
|
|
|
|
set_progress VALUE
|
|
Sets the value of the progress bar. It accepts values comprised in [0, 1]
|
|
OR (1, 100] (for instance, a value of 0.86 is equivalent to a value of 86:
|
|
they both represent '86%'). You should really always use values in the
|
|
range [0, 1] if you don't wanna be mocked by your friends and relatives
|
|
(and normally they're more immediately computable).
|
|
Arguments:
|
|
VALUE The value for the progress bar.
|
|
|
|
set_task DESC
|
|
Sets the description for the current task inside progress window (just
|
|
below the progress bar).
|
|
Arguments:
|
|
DESC The description for the current task.
|
|
|
|
set_title TITLE
|
|
Sets the title for the progress window (which is not actually the window's
|
|
title, but a flashier label below it). The default title is 'Executing ...'
|
|
(with the ellpsis possibly replaced by the feature's name).
|
|
Arguments:
|
|
TITLE The title to set.
|
|
|
|
is_cancelled
|
|
Returns: A boolean indicating wether the cancel button on the progress
|
|
window where pressed in the near past.
|
|
|
|
<--EXPORTABLE-->
|
|
|
|
set VALUE
|
|
Synonym for 'set_progress(VALUE)'.
|
|
|
|
task DESC
|
|
Synonym for 'set_desc(DESC)',
|
|
|
|
title TITLE
|
|
Synonym for 'set_title(TITLE)'.
|
|
|
|
|
|
====================================
|
|
package Aegisub::Script
|
|
|
|
------------------------------------
|
|
Subroutines defined:
|
|
<--EXPORTED-->
|
|
|
|
register_macro NAME, DESC, PROC_SUB, VAL_SUB
|
|
Register a new macro.
|
|
Arguments:
|
|
NAME The name of the macro.
|
|
DESC A description for the macro.
|
|
PROC_SUB A ref to a subroutine to be used as the macro processing function
|
|
(see the callbacks section). Please, really use a reference and not
|
|
just the name of the sub, because of the script 'pacakging' described
|
|
below.
|
|
VAL_SUB A ref to a subroutine to be used as the macro validation function
|
|
(see callbacks)(optional, if not defined will be considered as always true).
|
|
|
|
set_info NAME, DESC, AUTHOR, VERSION
|
|
You can set all of the script's info values with a call to this
|
|
function. (Otherwise you can set the corresponding predefined script
|
|
variables individually.)
|
|
Arguments: see the parts about script variables, anything is optional.
|
|
|
|
|
|
====================================
|
|
package Aegisub::Script::pxxxxxxxx
|
|
------------------------------------
|
|
Every script that's loaded gets its code evaluated inside a different package -
|
|
whose name is chosen at 'random' - whereas the perl interpreter is unique, so
|
|
all the scripts see the same global package, and can possibly access other
|
|
scripts' packages. Therefore is recommended to ALWAYS declare all of the
|
|
script's local variables with 'my', and of course to 'use strict' to check on
|
|
this. You can still declare another package for your script; the script's
|
|
predefined variables should be still visible from it without any change in the
|
|
code (they're declared as 'our'), however this is discouraged.
|
|
|
|
------------------------------------
|
|
Variables defined:
|
|
|
|
$script_author
|
|
Holds the script author's name. Default is the user executing aegisub.
|
|
|
|
$script_description
|
|
Holds a description for the script. Default is 'Perl script'.
|
|
|
|
$script_name
|
|
Holds the script's name. Default is the script's filename.
|
|
|
|
$script_version
|
|
Holds the script's version. Default is current aegisub version.
|
|
|
|
$_script_path
|
|
The full path to the script's file. Any change to this variable is ignored
|
|
and overwritten.
|
|
|
|
$_script_package
|
|
The full script package as a string. Any change to this variable is
|
|
currently ignored and overwritten, and may be so forever.
|
|
|
|
$_script_reload [BROKEN]
|
|
When this is set to true, the script will automatically be reloaded before
|
|
any execution if its file changed on disk. (However, at present time, it is
|
|
just a shortcut to make aegisub crash.)
|
|
|
|
------------------------------------
|
|
Callbacks definable:
|
|
|
|
macro_processing_function LINES, SELECTED, ACTIVE
|
|
A function to be used as a callback for Aegisub::Script::register_macro().
|
|
This function will be called when the user selects the corresponding macro
|
|
in the Automation menu. The first two arguments can be modified, and the
|
|
modifications will be reflected in the subtitles file.
|
|
Arguments:
|
|
LINES A reference to the list containing the subtitle file lines.
|
|
Each element of the list is a reference to a hash that represents a
|
|
single subtitle line. For the hash keys refer to lua documentation,
|
|
they are basically the same.
|
|
Example:
|
|
|
|
my $lines = $_[0]; # DON'T shift @_ (unless you reconstruct it
|
|
# afterwards) or you'll break everything and
|
|
# your hard disk be erased >:)
|
|
# The first selected line's index
|
|
my $first = $_[1][0];
|
|
# An entire line
|
|
my $l = $lines->[$first];
|
|
# The text field of a dialogue line
|
|
my $text = $lines->[$first]->{"text"};
|
|
|
|
SELECTED A ref to an array of ints, showing the currently selected
|
|
lines in the file.
|
|
ACTIVE Index of the currently active line in the subtitle file (sic).
|
|
|
|
macro_validation_function LINES, SELECTED, ACTIVE
|
|
A function to be used as a callback for Aegisub::Script::register_macro().
|
|
This function will be called whenever the Automation menu is opened to
|
|
decide what macros are applyable to the current script.
|
|
Arguments: same as macro_processing_function; however any change to the
|
|
first two ones will be ignored upon function return.
|
|
Returns:
|
|
VALID A 'bolean' value to indicate if the macro is applicable to this
|
|
particular subtitles file.
|