mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-01-21 03:50:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

add example 'swank-server' (Swank and Quicklisp on both android and iOS)

Browse source
This commit is contained in:
pls.153 2022-03-02 20:10:23 +01:00
parent 2d5c59cbd8
commit 74cf62715f
18 changed files with 761 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cpp/ecl_ext.cpp
View file

@ -578,7 +578,7 @@ cl_object qdirectory(cl_object l_dir) {
/// paths.
/// (qdirectory "assets:/lib")
QDir dir(toQString(l_dir));
QFileInfoList infos(dir.entryInfoList());
QFileInfoList infos(dir.entryInfoList(QDir::Dirs | QDir::Files | QDir::NoDotAndDotDot));
cl_object l_files = ECL_NIL;
for (QFileInfo info : qAsConst(infos)) {
QString path(info.absoluteFilePath());

3
src/cpp/main.cpp
View file

@ -22,7 +22,6 @@
#ifdef INI_ECL_CONTRIB
// for iOS (static lib)
extern "C" {
void init_lib_ASDF(cl_object);
void init_lib_DEFLATE(cl_object);
void init_lib_ECL_CDB(cl_object);
void init_lib_ECL_HELP(cl_object);
@ -104,7 +103,7 @@ int main(int argc, char* argv[]) {
}
#ifdef INI_ECL_CONTRIB
// for iOS (static lib); ASDF is loaded on demand (slow)
// for iOS; ASDF is loaded on demand (slow)
ecl_init_module(NULL, init_lib_DEFLATE);
ecl_init_module(NULL, init_lib_ECL_CDB);
ecl_init_module(NULL, init_lib_ECL_HELP);