forked from mia/Aegisub
91d73ec8ea
1. cd aegisub/
2. svn mv *cpp *h src/
3. svn mv Makefile.am MatroskaParser.c auto4_perldata.inc bitmaps boost \
changelog.txt config gl include libosxutil libresrc md5.c msvc mythes.cxx \
mythes.hxx res.rc src/
4. cd ..
5. svn mv FFmpegSource2/ INSTALL Makefile.am README acinclude.m4 \
autogen.sh automation/ bin build configure.in desktop dummy.txt lib \
libass/ m4macros/ packages/ po/ scripts/ universalchardet/ aegisub/
6. mkdir -p docs/wiki_convert
7. svn add docs/wiki_convert
8. cd docs
9. svn mv aegisub_convert_docs.pl convert.bat output wiki_convert/
* See r2749 for full description.
Originally committed to SVN as r2752.
41 lines
977 B
Perl
41 lines
977 B
Perl
package Aegisub;
|
|
use Exporter 'import';
|
|
|
|
@EXPORT = qw( text_extents
|
|
log_fatal log_error log_warning log_hint log_debug log_trace log_message );
|
|
@EXPORT_OK = qw( LOG_FATAL LOG_ERROR LOG_WARNING LOG_HINT LOG_DEBUG LOG_TRACE LOG_MESSAGE
|
|
LOG_WX
|
|
log warn );
|
|
|
|
# Constants
|
|
sub LOG_FATAL { 0 }
|
|
sub LOG_ERROR { 1 }
|
|
sub LOG_WARNING { 2 }
|
|
sub LOG_HINT { 3 }
|
|
sub LOG_DEBUG { 4 }
|
|
sub LOG_TRACE { 5 }
|
|
sub LOG_MESSAGE { 6 }
|
|
|
|
sub LOG_WX { 8 }
|
|
|
|
# Shortcut functions
|
|
sub log_fatal { Aegisub::log LOG_FATAL, @_; }
|
|
sub log_error { Aegisub::log LOG_ERROR, @_; }
|
|
sub log_warning { Aegisub::log LOG_WARNING, @_; }
|
|
sub log_hint { Aegisub::log LOG_HINT, @_; }
|
|
sub log_debug { Aegisub::log LOG_DEBUG, @_; }
|
|
sub log_trace { Aegisub::log LOG_TRACE, @_; }
|
|
sub log_message { Aegisub::log LOG_MESSAGE, @_; }
|
|
|
|
# wxLog variety
|
|
sub wxlog {
|
|
if($_[0] =~ /^\d+$/) {
|
|
$_[0] |= 0x8;
|
|
}
|
|
else {
|
|
unshift @_, LOG_MESSAGE | LOG_WX;
|
|
}
|
|
Aegisub::log @_;
|
|
}
|
|
|
|
1;
|