#nop vim: set filetype=tt:;

/*
本文件属于 PaoTin++ 的一部分。
PaoTin++ © 2020~2023 的所有版权均由担子炮(dzp <danzipao@gmail.com>) 享有并保留一切法律权利
你可以在遵照 GPLv3 协议的基础之上使用、修改及重新分发本程序。
*/

///=== {
///// storage 模块实现了一个通用的本地存储引擎。
///// 可以用来存储和载入变量，这允许其它模块可以持久化自己的数据。
///// 变量会被存储在本地文件系统当中，称之为「存储文件」。
/////
///// 存储文件按规定会统一存放在 data 目录下，支持文件重定位。也就是说，
///// 对于存储文件 file1 来说，其可能的物理存放位置为：
/////   1. var/data/file1.tin （优先）
/////   2. data/file1.tin     （其次）
/////
///// 各模块可以通过 API storage.Save 按需创建自己的存储文件，在其中存储一个或多个
///// 变量，并在需要时通过 API storage.Load 提取这些变量。
///// };

#var lib_storage[META] {
    {NAME}      {通用存储引擎}
    {DESC}      {可以存储和载入变量，这允许其它模块可以持久化自己的数据}
    {AUTHOR}    {担子炮}
};

#func {lib_storage.Init} {
    #local _ {@mkdir{data}};
    storage.Load {storage} {storage-globals};
    #return {true};
};

///=== {
// ## storage.Save <文件名> <变量名1> [...]
//    将由变量名列表所指定的变量及其值存储到指定的存储文件中。
// };
#alias {storage.Save} {
    #local file {%1};
    #local vars {%2};

    #if { "$file" == "" || "$vars" == "" } {
        xtt.Usage storage.Save;
        #return;
    };

    #class comm-store-tmp open;
    #local var {};
    #foreach {$vars} {var} {
        #var {dump-$var} {${$var}};
    };
    #class comm-store-tmp close;

    #local files {};
    #line quiet #scan dir {var/data/} files;

    #if { &files[] > 0 } {
        #class comm-store-tmp write {var/data/${file}.tin};
    };
    #else {
        #class comm-store-tmp write {data/${file}.tin};
    };
};

///=== {
// ## storage.Load <文件名> <变量名1> [...]
//    从指定的存储文件中加载变量。
//    存储文件中实际存储的变量可能更多一些，但本函数可以只加载其中一部分变量。
// };
#alias {storage.Load} {
    #local file {%1};
    #local vars {%2};

    #if { "$file" == "" || "$vars" == "" } {
        xtt.Usage storage.Load;
        #return;
    };

    #line quiet #class comm-store-tmp {assign} {load-file data/${file}.tin};
    #local var {};
    #foreach {$vars} {var} {
        #var {$var} {${dump-$var}};
    };
    #class comm-store-tmp kill;
};