forked from mia/Aegisub
a067bd560d
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.
20 lines
619 B
Perl
Executable file
20 lines
619 B
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
use Mac::Finder::DSStore qw( writeDSDBEntries makeEntries );
|
|
use Mac::Memory qw( );
|
|
use Mac::Files qw( NewAliasMinimal );
|
|
|
|
&writeDSDBEntries("$ARGV[0]",
|
|
&makeEntries(".",
|
|
BKGD_alias => NewAliasMinimal("$ARGV[2]"),
|
|
ICVO => 1,
|
|
fwi0_flds => [ 308, 397, 658, 848, "icnv", 0, 0 ],
|
|
fwvh => 350,
|
|
icgo => "\0\0\0\0\0\0\0\0",
|
|
icvo => pack('A4 n A4 A4 n*', "icv4", 90, "none", "botm", 0, 0, 0, 0, 0, 1, 0, 100, 1),
|
|
icvt => 12
|
|
),
|
|
&makeEntries("Applications", Iloc_xy => [ 133, 250 ]),
|
|
&makeEntries("$ARGV[1]", Iloc_xy => [ 133, 55 ])
|
|
);
|
|
|