raw/po.r

In homerhanumat/Rdym2: A "did you mean?" utilitiy for R.

### This generates the langtable lookup data from base/R's po files
RSRC <- "~/R/R-devel/"

pofiles <- paste0(RSRC, "/src/library/base/po")

files <- dir(pofiles)
files <- files[!grepl(x=files, pattern="(R-|R[.]|RG)")]
files


quote_hell <- "[\\]?[\"\'«»]" # what the hell, norway?
pct_s <- paste0(quote_hell, "%s", quote_hell)

missing_obj <- paste0("msgid ", quote_hell, "object ", pct_s, " not found")
missing_fun <- paste0("msgid ", quote_hell, "could not find function")


len <- length(files)

langtable <- data.frame(
  lang=character(len), 
  obj_pre=character(len), 
  obj_post=character(len),
  fun_pre=character(len),
  fun_post=character(len), 
  stringsAsFactors=FALSE
)


prepost <- function(text, x)
{
  x <- text[which(grepl(x=text, pattern=x)) + 1]
  x <- sub(x=x, pattern="msgstr ", replacement="")
  x <- gsub(x=x, pattern=quote_hell, replacement="")
  x <- unlist(strsplit(x=x, split="%s"))
  
  x
}

for (i in 1:len)
{
  file <- files[i]
  text <- readLines(paste0(pofiles, "/", file))
  
  missing_obj_local <- prepost(text=text, x=missing_obj)
  missing_fun_local <- prepost(text=text, x=missing_fun)
  
  ### R can't read text correctly; I'm literally furious right now.
  if (file == "es.po")
    missing_fun_local <- "no se pudo encontrar la función "
  
  langtable$lang[i] <- sub(x=file, pattern="[.]po", replacement="")
  langtable$obj_pre[i] <- missing_obj_local[1]
  langtable$obj_post[i] <- missing_obj_local[2]
  langtable$fun_pre[i] <- missing_fun_local[1]
  langtable$fun_post[i] <- missing_fun_local[2] 
}

delete <- ( is.na(langtable$obj_pre) & is.na(langtable$obj_post) ) | 
          ( is.na(langtable$fun_pre) & is.na(langtable$fun_post) )

langtable <- langtable[!delete, ]

for (j in 1:ncol(langtable)){
  for (i in 1:nrow(langtable)){
    if (is.na(langtable[i,j])) langtable[i,j] <- ""
  }
}


langtable[nrow(langtable)+1, ] <- c("en", "object", "not found", "could not find function", "")
rownames(langtable) <- NULL



library(stringi)
converter <- function(col) stri_escape_unicode(stri_enc_toutf8(col))
langtable <- as.data.frame(lapply(langtable, converter), stringsAsFactors=FALSE)

outfile <- "../R/langtable.r"
cat("### This file is automatically generated from Rdym/raw/po.r\n### Do not edit by hand\n\n", file=outfile, append=FALSE)
dump("langtable", file=outfile, append=TRUE)

### fuck R at this point
system(paste("sed -i -e 's/\\\\\\\\/\\\\/g'", outfile))