max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Improved translation function

Browse source
This commit is contained in:
Waldir Leoncio 2020-11-09 15:22:56 +01:00
parent ee5f807d21
commit c565a55d50
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
R/matlab2r.R
View file

@ -12,15 +12,26 @@ matlab2r <- function(filename, saveOutput = FALSE) {
txt <- readLines(filename)
# Replacing text
txt <- gsub(
pattern = "function (.+)\\s*=\\s*(.+)\\((.+)\\)",
pattern = "function (.+)\\s+=\\s*(.+)\\((.+)\\)",
replacement = "\\2 <- function(\\3) { return(\\1)",
x = txt
)
# txt <- gsub("\\%\\s*(\\w+)", "# \\1", txt)
txt <- gsub(";", "", txt)
txt <- gsub("for (.+)=(.+)", "for (\\1 in \\2) {", txt)
txt <- gsub("end", "}", txt)
txt <- gsub("(.),(\\S)", "\\1, \\2", txt)
# TODO: replace forms like (:,:) with [, ]
# TODO: reformat if statements
# TODO: add argument to skip some of these rules
txt <- gsub("if (.+)", "if (\\1) {", txt) # FIXME: paste comments after {
txt <- gsub("else$", "} else {", txt)
txt <- gsub("elseif", "} else if", txt)
txt <- gsub("\\(~", "(!", txt)
txt <- gsub("while (.+)", "while \\1 {", txt)
## Math operators
txt <- gsub("(\\S)\\+(\\S)", "\\1 + \\2", txt)
txt <- gsub("(\\S)\\-(\\S)", "\\1 - \\2", txt)
txt <- gsub("(\\S)\\*(\\S)", "\\1 * \\2", txt)
# Returning converted code
if (!saveOutput) {
return(cat(txt, sep="\n"))