Function AddFile

lobster/src/file.cpp:117–362

}

void AddFile(NativeRegistry &nfr) {

nfr("scan_folder", "folder,divisor", "SI", "S]?I]?",
    "returns two vectors representing all elements in a folder, the first vector containing all"
    " names, the second vector containing sizes (or -1 if a directory)."
    " Specify 1 as divisor to get sizes in bytes, 1024 for kb etc. Values > 0x7FFFFFFF will be"
    " clamped in 32-bit builds. Returns nil if folder couldn't be scanned.",
    [](VM &vm, Value &fld, Value &divisor) {
        vector<pair<string, int64_t>> dir;
        auto ok = ScanDirAbs(fld.sval()->strv(), dir);
        if (!ok) {
            vm.Push(Value());
            return Value();
        }
        if (divisor.ival() <= 0) divisor.setival(1);
        auto nlist = (LVector *)vm.NewVec(0, 0, TYPE_ELEM_VECTOR_OF_STRING);
        auto slist = (LVector *)vm.NewVec(0, 0, TYPE_ELEM_VECTOR_OF_INT);
        for (auto &[name, size] : dir) {
            nlist->Push(vm, Value(vm.NewString(name)));
            if (size >= 0) {
                size /= divisor.ival();
                if (sizeof(intp) == sizeof(int) && size > 0x7FFFFFFF) size = 0x7FFFFFFF;
            }
            slist->Push(vm, Value(size));
        }
        vm.Push(Value(nlist));
        return Value(slist);
    });

nfr("read_file", "file,textmode", "SI?", "S?",
    "returns the contents of a file as a string, or nil if the file can't be found."
    " you may use either \\ or / as path separators",
    [](VM &vm, Value &file, Value &textmode) {
        string buf;
        auto l = LoadFile(file.sval()->strv(), &buf, 0, -1, !textmode.True());
        if (l < 0) return Value();
        auto s = vm.NewString(buf);
        return Value(s);
    });

nfr("write_file", "file,contents,textmode", "SSI?", "B",
    "creates a file with the contents of a string, returns false if writing wasn't possible",
    [](VM &, Value &file, Value &contents, Value &textmode) {
        auto ok = WriteFile(file.sval()->strv(), !textmode.True(), contents.sval()->strv());
        return Value(ok);
    });

nfr("ensure_size", "string,size,char,extra", "SkIII?", "S",
    "ensures a string is at least size characters. if it is, just returns the existing"
    " string, otherwise returns a new string of that size (with optionally extra bytes"
    " added), with any new characters set to"
    " char. You can specify a negative size to mean relative to the end, i.e. new"
    " characters will be added at the start. ",
    [](VM &vm, Value &str, Value &size, Value &c, Value &extra) {
        auto asize = abs(size.ival());
        return str.sval()->len >= asize
            ? str
            : Value(vm.ResizeString(str.sval(), asize + extra.ival(), c.intval(), size.ival() < 0));