adding whilef to r.eaf

jasspa/macros/r.eaf

@@ -1,4 +1,4 @@
- "" "<FOLD+> \ecCProgram Flow:\ecA"
+ "" "<FOLD-> \ecCProgram Flow:\ecA"
 for "for (i in \p) {\r\r}\P" "  for"
 if "if (\p) {\r\r}\P" "  if"
 elif "elseif (\p) {\r\r}\P"  "  elif"
@@ -7,9 +7,10 @@ while "while (\p) {\r\r}\P" "  while"
 func "\p <- function (...) {\r\r}\P" "  func"
 main "main <- function (argv) {\r    \p\r\B}\rif (sys.nframe() == 0L && !interactive()) {\r   binname=gsub(\"--file=\",\"\",grep(\"--file\",commandArgs(),value=TRUE)[1])\rmain(c(binname,commandArgs(trailingOnly=TRUE)))\r\B}\r\P" "  main"
 openw "fout = file(\"\pfilename\",'w')\rcat(\"hello line\\n\",file=fout)\rclose(fout)\r\P"  "  openw" 
-openr "fin  = file(\"\pfilename\", \"r\")\rwhile(length((line = readLines(fin,n=1)))>0) {\r    print(line)\r}\rclose(fin)" "  openr"
+openr "fin  = file(\"\pfilename\", \"r\")\rwhile(length((line = readLines(fin,n=1)))>0) {\r    \pprint(line)\r}\rclose(fin)\P" "  openr"
+whilef "while(length((line = readLines(fin,n=1)))>0) {\r    \pprint(line)\r}\r\P" "  whilef"
  "" ""
- "" "</FOLD><FOLD+> \ecCDocumentation:\ecA"
+ "" "</FOLD><FOLD-> \ecCDocumentation:\ecA"
 rdoc "#' \pfunc title\r#'\r#'  `func` short explanation\r#'\r#' long explanation\r#'\r#' @param p description\r#' @return value explanation\r#' @keywords keyword\r#' @export\r#'\r#' @examples\r#' x = 1\r" "  rdoc"
 mkhead "#' ---\r#' title: \p 0.0\r#' author: Dr. Detlef Groth, Schwielowsee, Germany\r#' documentclass: scrartcl\r#' geometry:\r#' - top=20mm\r#' - right=20mm\r#' - left=20mm\r#' - bottom=30mm\r#' ---\r\P" "  mkhead"
 mkname "#'\r#' ## NAME\r#'\r#' **\p**  - ...\P" "  mkname"
@@ -26,7 +27,7 @@ mktodo "#' \r#' ## <a name='todo'>TODO</a>\r#' \r#' - " "  mktodo"
 mkaut "#' \r#' ## <a name='authors'>AUTHOR(s)</a>\r#' \r#' The **\p...** package was written by Dr. Detlef Groth, Schwielowsee, Germany.\r\P" "  mkaut"
 mklic "#' \r#' ## <a name='license'>LICENSE AND COPYRIGHT</a>\r#' \r#' The ... package version 0.0\r#' \r#' Copyright (c) 2019-20  Dr. Detlef Groth, E-mail: <detlef(at)dgroth(dot)de>\r#' #' This library is free software; you can use, modify, and redistribute it\r#' for any purpose, provided that existing copyright notices are retained\r#' in all copies and that this notice is included verbatim in any\r#' distributions.\r#' \r#' This software is distributed WITHOUT ANY WARRANTY; without even the\r#' implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\r#'" "  mklic"
  "" ""
- "" "</FOLD><FOLD+> \ecCtcltk:\ecA"
+ "" "</FOLD><FOLD-> \ecCtcltk:\ecA"
 tktop "tt\p=tktoplevel()\P" "  tktop"
 tvstyle "ttk::style configure Treeview.Heading -padding [list 3 3 10 3]\r" "  tvstyle"
 tvtab "tvtab=ttktreeview(\p,show=\"headings\")\r\P" "  tvtab"