wormhole_filename(): tweaks to make it work on Raspberry Pi ARM7

Author: HenrikBengtsson

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: future.p2p
 Title: A Peer-to-Peer Compute Cluster via Futureverse
-Version: 0.3.0-9029
+Version: 0.3.0-9030
 Description: Implementation of the 'Future' API <doi:10.32614/RJ-2021-048> that resolves futures on a peer-to-peer ('P2P') compute environment. By using this future backend, you and your friends can share your spare compute resources with each other.
 Imports:
     future (>= 1.67.0),

R/wormhole.R

@@ -184,20 +184,25 @@ wormhole_call <- function(command = c("send", "receive"), ..., input = NULL, rsh
 }
 
 
-wormhole_filename <- function(sysname = Sys.info()[["sysname"]], arch = R.version[["arch"]]) {
+wormhole_filename <- function(sysname = Sys.info()[["sysname"]], machine = Sys.info()[["machine"]]) {
   sysname <- tolower(sysname)
 
   if (sysname %in% c("linux", "darwin")) {
-    if (arch == "x86_64") arch <- "amd64"
+    if (machine == "x86_64") {
+      machine <- "amd64"
+    } else if (machine == "armv7l") {
+      ## e.g. Raspberry Pi
+      machine <- "arm7"
+    }
     ext <- ""
   } else if (sysname == "windows") {
-    arch <- "386"
+    machine <- "386"
     ext <- ".exe"
   } else {
     stop(sprintf("Unknown system: %s", sysname))
   }
 
-  sprintf("wormhole-william-%s-%s%s", sysname, arch, ext)
+  sprintf("wormhole-william-%s-%s%s", sysname, machine, ext)
 } ## wormhole_filename()