| … | |
… | |
| 19 | |
19 | |
| 20 | our @EXPORT = qw( |
20 | our @EXPORT = qw( |
| 21 | read_pak read_arch *ARCH TILESIZE $TILE *FACE editor_archs arch_extents |
21 | read_pak read_arch *ARCH TILESIZE $TILE *FACE editor_archs arch_extents |
| 22 | ); |
22 | ); |
| 23 | |
23 | |
| 24 | use JSON::Syck (); #TODO#d# replace by JSON::PC when it becomes available == working |
24 | use JSON::XS qw(from_json to_json); |
| 25 | |
|
|
| 26 | sub from_json($) { |
|
|
| 27 | $JSON::Syck::ImplicitUnicode = 1; |
|
|
| 28 | JSON::Syck::Load $_[0] |
|
|
| 29 | } |
|
|
| 30 | |
|
|
| 31 | sub to_json($) { |
|
|
| 32 | $JSON::Syck::ImplicitUnicode = 0; |
|
|
| 33 | JSON::Syck::Dump $_[0] |
|
|
| 34 | } |
|
|
| 35 | |
25 | |
| 36 | our $LIB = $ENV{CROSSFIRE_LIBDIR}; |
26 | our $LIB = $ENV{CROSSFIRE_LIBDIR}; |
| 37 | |
27 | |
| 38 | our $VARDIR = $ENV{HOME} ? "$ENV{HOME}/.crossfire" |
28 | our $VARDIR = $ENV{HOME} ? "$ENV{HOME}/.crossfire" |
| 39 | : $ENV{AppData} ? "$ENV{APPDATA}/crossfire" |
29 | : $ENV{AppData} ? "$ENV{APPDATA}/crossfire" |
