Added lispUploadFromPath to codeloader

vedderb · Nov 2, 2024 · 25795e5 · 25795e5
1 parent 85f5a58
commit 25795e5
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 0 deletions.
diff --git a/QCodeEditor/resources/languages/qml.xml b/QCodeEditor/resources/languages/qml.xml
@@ -129,5 +129,6 @@
         <name>ParamList</name>
         <name>TcpHub</name>
         <name>QMiniMp3</name>
+        <name>CodeLoader</name>
     </section>
 </root>
diff --git a/codeloader.cpp b/codeloader.cpp
@@ -383,6 +383,25 @@ bool CodeLoader::lispUpload(QString codeStr, QString editorPath)
     return lispUpload(vb);
 }
 
+bool CodeLoader::lispUploadFromPath(QString path)
+{
+    QFile f(path);
+    if (f.open(QIODevice::ReadOnly)) {
+        QFileInfo fi(f);
+        VByteArray lispData = lispPackImports(f.readAll(), fi.canonicalPath());
+        f.close();
+
+        if (!lispData.isEmpty()) {
+            bool ok = lispErase(lispData.size() + 100);
+            if (ok) {
+                return lispUpload(lispData);
+            }
+        }
+    }
+
+    return false;
+}
+
 bool CodeLoader::lispStream(VByteArray vb, qint8 mode)
 {
     if (!mVesc->isPortConnected()) {

diff --git a/codeloader.h b/codeloader.h
@@ -39,6 +39,7 @@ class CodeLoader : public QObject
     QPair<QString, QList<QPair<QString, QByteArray> > > lispUnpackImports(QByteArray data);
     bool lispUpload(VByteArray vb);
     bool lispUpload(QString codeStr, QString editorPath = QDir::currentPath());
+    Q_INVOKABLE bool lispUploadFromPath(QString path);
     bool lispStream(VByteArray vb, qint8 mode);
     QString lispRead(QWidget *parent, QString &lispPath);