First draft of resource extension and sample model

Author: ERSUCC

.github/workflows/main.yml

@@ -0,0 +1,19 @@
+name: build-and-test
+
+on:
+  push:
+  workflow_dispatch:
+
+env:
+  LIBERICA_URL: https://download.bell-sw.com/java/17.0.3+7/bellsoft-jdk17.0.3+7-linux-amd64-full.tar.gz
+
+jobs:
+  build-and-test:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v2
+      - uses: olafurpg/setup-scala@v10
+        with:
+          java-version: liberica@17=tgz+${{ env.LIBERICA_URL }}
+      - run: sbt -v update compile
+      - run: sbt -v test

.gitignore

@@ -0,0 +1,5 @@
+.bundledFiles
+target/
+extensions/
+/*.jar
+/*.zip

README.md

@@ -0,0 +1,3 @@
+# Resource Extension
+
+This extension allows users to access and manipulate the external resources bundled with a model.

build.sbt

@@ -0,0 +1,16 @@
+import org.nlogo.build.NetLogoExtension
+
+enablePlugins(NetLogoExtension)
+
+version    := "1.0.0"
+isSnapshot := true
+
+scalaVersion          := "2.12.12"
+Compile / scalaSource := baseDirectory.value / "src" / "main"
+Test / scalaSource    := baseDirectory.value / "src" / "test"
+scalacOptions        ++= Seq("-deprecation", "-unchecked", "-Xfatal-warnings", "-encoding", "us-ascii", "-release", "11")
+
+netLogoExtName      := "resource"
+netLogoClassManager := "org.nlogo.extensions.resource.ResourceExtension"
+netLogoVersion      := "6.4.0"
+netLogoZipExtras   ++= Seq(baseDirectory.value / "README.md", baseDirectory.value / "example-models")

example-models/Resource Example.nlogo

@@ -0,0 +1 @@
+Hello from an external text file!

example-models/test.txt

@@ -0,0 +1 @@
+sbt.version=1.7.2

project/build.properties

@@ -0,0 +1,3 @@
+resolvers += "netlogo-extension-plugin" at "https://dl.cloudsmith.io/public/netlogo/netlogo-extension-plugin/maven/"
+
+addSbtPlugin("org.nlogo" % "netlogo-extension-plugin" % "6.1.0")

project/plugins.sbt

@@ -0,0 +1,57 @@
+package org.nlogo.extensions.resource
+
+import java.io.File
+
+import org.nlogo.api.{ Argument, Command, Context, DefaultClassManager, ExternalResourceManager, PrimitiveManager,
+                       Reporter }
+import org.nlogo.core.{ ExternalResource, Syntax }
+
+import scala.io.Source
+
+class ResourceExtension extends DefaultClassManager {
+  def load(manager: PrimitiveManager) {
+    manager.addPrimitive("add-resource", AddResource)
+    manager.addPrimitive("get-resource", GetResource)
+    manager.addPrimitive("clear-resources", ClearResources)
+  }
+}
+
+object AddResource extends Command {
+  override def getSyntax: Syntax =
+    Syntax.commandSyntax(right = List(Syntax.StringType, Syntax.StringType))
+
+  def perform(args: Array[Argument], context: Context) {
+    if (new File(args(1).getString).isFile) {
+      val data = Source.fromFile(args(1).getString).getLines.mkString("\n")
+
+      context.workspace.getResourceManager.addResource(ExternalResource(args(0).getString, data))
+    }
+
+    else
+      println(s"File ${args(1).getString} does not existn") // make this show an error dialog
+  }
+}
+
+object GetResource extends Reporter {
+  override def getSyntax: Syntax =
+    Syntax.reporterSyntax(right = List(Syntax.StringType), ret = Syntax.StringType)
+
+  def report(args: Array[Argument], context: Context): String = {
+    context.workspace.getResourceManager.getResource(args(0).getString) match {
+      case Some(data) =>
+        data
+      case None =>
+        println(s"Resource ${args(0).getString} does not exist.") // make this show an error dialog
+        ""
+    }
+  }
+}
+
+object ClearResources extends Command {
+  override def getSyntax: Syntax =
+    Syntax.commandSyntax(right = List())
+
+  def perform(args: Array[Argument], context: Context) {
+    context.workspace.getResourceManager.setResources(Seq())
+  }
+}