[rkward-cvs] SF.net SVN: rkward:[3986] trunk/rkward/packages/rkwarddev
m-eik at users.sourceforge.net
m-eik at users.sourceforge.net
Fri Oct 21 21:51:43 UTC 2011
Revision: 3986
http://rkward.svn.sourceforge.net/rkward/?rev=3986&view=rev
Author: m-eik
Date: 2011-10-21 21:51:43 +0000 (Fri, 21 Oct 2011)
Log Message:
-----------
rkwarddev: updated GUI
Modified Paths:
--------------
trunk/rkward/packages/rkwarddev/ChangeLog
trunk/rkward/packages/rkwarddev/demo/skeleton_dialog.R
trunk/rkward/packages/rkwarddev/inst/doc/rkwarddev_vignette.pdf
trunk/rkward/packages/rkwarddev/inst/rkward/RKWardPluginSkeleton.pluginmap
Added Paths:
-----------
trunk/rkward/packages/rkwarddev/inst/rkward/plugins/CreateRKWardpluginskeleton.js
trunk/rkward/packages/rkwarddev/inst/rkward/plugins/CreateRKWardpluginskeleton.xml
Removed Paths:
-------------
trunk/rkward/packages/rkwarddev/inst/rkward/plugins/RKWardPluginSkeleton.js
trunk/rkward/packages/rkwarddev/inst/rkward/plugins/RKWardPluginSkeleton.xml
Modified: trunk/rkward/packages/rkwarddev/ChangeLog
===================================================================
--- trunk/rkward/packages/rkwarddev/ChangeLog 2011-10-21 21:36:05 UTC (rev 3985)
+++ trunk/rkward/packages/rkwarddev/ChangeLog 2011-10-21 21:51:43 UTC (rev 3986)
@@ -6,6 +6,7 @@
- result headers now start at level 1 by default in rk.JS.doc()
- added option "suggest.required" to rk.plugin.skeleton() to add package requirements as suggestions,
not dependencies
+ - updated skeleton GUI dialog
## 0.04-1 (2011-10-20)
- added "about" option to rk.XML.plugin() to overrule pluginmap defaults
Modified: trunk/rkward/packages/rkwarddev/demo/skeleton_dialog.R
===================================================================
--- trunk/rkward/packages/rkwarddev/demo/skeleton_dialog.R 2011-10-21 21:36:05 UTC (rev 3985)
+++ trunk/rkward/packages/rkwarddev/demo/skeleton_dialog.R 2011-10-21 21:51:43 UTC (rev 3986)
@@ -3,12 +3,12 @@
local({
about.info <- rk.XML.about(
- name="Plugin Skeleton",
+ name="RKWard Plugin Skeleton",
author=c(
person(given="Meik", family="Michalke",
email="meik.michalke at hhu.de", role=c("aut","cre"))),
about=list(desc="GUI interface to create RKWard plugin skeletons",
- version="0.03-6", url="http://rkward.sf.net"),
+ version="0.04-2", url="http://rkward.sf.net"),
dependencies=list(rkward.min="0.5.7")
)
@@ -148,20 +148,10 @@
ite(id(dep.checkbox, " && ", dep.rmax), qp("R.max=\"",dep.rmax,"\"")),
funct="list", option="dependencies", collapse=",\\n\\t")
-# "package"
-# "name"
-# "min"
-# "max"
-# "repository"
-
-# "pluginmap"
-# "name"
-# "url"
js.opt.skel.pluginmap <- rk.JS.options("optPluginmap",
ite(id(pl.hier, "!= \"test\""), qp("hierarchy=\"", pl.hier, "\"")),
funct="list", option="pluginmap", collapse="")
js.opt.skeleton <- rk.JS.options("optSkeleton",
- ite(pl.name, qp("\n\tname=\"", pl.name, "\"")),
ite(pl.dir, qp("\n\tpath=\"", pl.dir, "\"")),
ite(pl.wiz, qp("\n\tprovides=c(\"logic\", \"dialog\", \"wizard\")")),
ite(js.opt.skel.pluginmap, qp("\n\t", js.opt.skel.pluginmap)),
@@ -191,8 +181,8 @@
level=2)
## the main call
-#plugin.dir <<- rk.plugin.skeleton("RKWard Plugin Skeleton",
-rk.plugin.skeleton("RKWard Plugin Skeleton",
+#plugin.dir <<- rk.plugin.skeleton(
+rk.plugin.skeleton(
about=about.info,
xml=list(
dialog=sklt.tabbook,
@@ -200,8 +190,8 @@
js=list(
require="rkwarddev",
calculate=JS.calculate),
-# pluginmap=list(name="Create RKWard plugin skeleton", hierarchy=list("file", "export")),
-# overwrite=TRUE,
+ pluginmap=list(name="Create RKWard plugin skeleton", hierarchy=list("file", "export")),
+ overwrite=TRUE,
create=c("pmap","xml","js","desc"),
tests=FALSE,
show=TRUE,
Modified: trunk/rkward/packages/rkwarddev/inst/doc/rkwarddev_vignette.pdf
===================================================================
(Binary files differ)
Modified: trunk/rkward/packages/rkwarddev/inst/rkward/RKWardPluginSkeleton.pluginmap
===================================================================
--- trunk/rkward/packages/rkwarddev/inst/rkward/RKWardPluginSkeleton.pluginmap 2011-10-21 21:36:05 UTC (rev 3985)
+++ trunk/rkward/packages/rkwarddev/inst/rkward/RKWardPluginSkeleton.pluginmap 2011-10-21 21:51:43 UTC (rev 3986)
@@ -4,10 +4,10 @@
id="CreateRKWardpluginskeleton_rkward"
>
<about
- name="Plugin Skeleton"
+ name="RKWard Plugin Skeleton"
shortinfo="GUI interface to create RKWard plugin skeletons"
- version="0.03-6"
- releasedate="2011-10-13"
+ version="0.04-2"
+ releasedate="2011-10-21"
url="http://rkward.sf.net"
license="GPL (>= 3)"
>
@@ -17,9 +17,7 @@
email="meik.michalke at hhu.de"
role="aut, cre"
/>
- <dependencies
- rkward_min_version="0.5.7"
- >
+ <dependencies rkward_min_version="0.5.7">
<!--
<package
name="CHANGE_ME_OR_DELETE_ME"
@@ -46,7 +44,7 @@
id="cmp_CrtRKWrdplgnskltnCrtRKWrd"
label="Create RKWard plugin skeleton"
type="standard"
- file="plugins/RKWardPluginSkeleton.xml"
+ file="plugins/CreateRKWardpluginskeleton.xml"
/>
</components>
<hierarchy>
Added: trunk/rkward/packages/rkwarddev/inst/rkward/plugins/CreateRKWardpluginskeleton.js
===================================================================
--- trunk/rkward/packages/rkwarddev/inst/rkward/plugins/CreateRKWardpluginskeleton.js (rev 0)
+++ trunk/rkward/packages/rkwarddev/inst/rkward/plugins/CreateRKWardpluginskeleton.js 2011-10-21 21:51:43 UTC (rev 3986)
@@ -0,0 +1,192 @@
+function preprocess(){
+ // add requirements etc. here
+ echo("require(rkwarddev)\n");
+}
+
+function calculate(){
+ // read in variables from dialog
+ var inpPluginnm = getValue("inp_Pluginnm");
+ var inpLicense = getValue("inp_License");
+ var inpShrtdscr = getValue("inp_Shrtdscr");
+ var inpVrsnnmbr = getValue("inp_Vrsnnmbr");
+ var inpRlsdtmpt = getValue("inp_Rlsdtmpt");
+ var inpHomepage = getValue("inp_Homepage");
+ var inpCategory = getValue("inp_Category");
+ var inpGivennam = getValue("inp_Givennam");
+ var inpFamilynm = getValue("inp_Familynm");
+ var inpEmail = getValue("inp_Email");
+ var chcAuthor = getValue("chc_Author");
+ var chcMaintanr = getValue("chc_Maintanr");
+ var brwDTEMPDIR = getValue("brw_DTEMPDIR");
+ var chcOvrwrtxs = getValue("chc_Ovrwrtxs");
+ var chcAddwzrds = getValue("chc_Addwzrds");
+ var chcIncldplg = getValue("chc_Incldplg");
+ var chcOpnflsfr = getValue("chc_Opnflsfr");
+ var chcAddplRKW = getValue("chc_AddplRKW");
+ var chcShwthplg = getValue("chc_Shwthplg");
+ var drpPlcntpmn = getValue("drp_Plcntpmn");
+ var chcDfndpndn = getValue("chc_Dfndpndn");
+ var inpRKWardmn = getValue("inp_RKWardmn");
+ var inpRKWardmx = getValue("inp_RKWardmx");
+ var inpRmin = getValue("inp_Rmin");
+ var inpRmax = getValue("inp_Rmax");
+ // put the R code to be evaluated here
+ // define the array arrOptAuthorRole for values of R option "role"
+ var arrOptAuthorRole = new Array();
+ if(chcAuthor) {
+ arrOptAuthorRole.push("\"" + chcAuthor + "\"");
+ } else {}
+ if(chcMaintanr) {
+ arrOptAuthorRole.push("\"" + chcMaintanr + "\"");
+ } else {}
+ // clean array arrOptAuthorRole from empty strings
+ arrOptAuthorRole = arrOptAuthorRole.filter(String);
+ // set the actual variable optAuthorRole with all values for R option "role"
+ if(arrOptAuthorRole.length > 0) {
+ var optAuthorRole = "role=c(" + arrOptAuthorRole.join(", ") + ")";
+ } else {
+ var optAuthorRole = "";
+ }
+
+ // define the array arrOptAuthor for values of R option "author"
+ var arrOptAuthor = new Array();
+ if(inpGivennam) {
+ arrOptAuthor.push("given=\"" + inpGivennam + "\"");
+ } else {}
+ if(inpFamilynm) {
+ arrOptAuthor.push("family=\"" + inpFamilynm + "\"");
+ } else {}
+ if(inpEmail) {
+ arrOptAuthor.push("email=\"" + inpEmail + "\"");
+ } else {}
+ if(optAuthorRole) {
+ arrOptAuthor.push(optAuthorRole);
+ } else {}
+ // clean array arrOptAuthor from empty strings
+ arrOptAuthor = arrOptAuthor.filter(String);
+ // set the actual variable optAuthor with all values for R option "author"
+ if(arrOptAuthor.length > 0) {
+ var optAuthor = ",\n\tauthor=person(" + arrOptAuthor.join(", ") + ")";
+ } else {
+ var optAuthor = "";
+ }
+
+ // define the array arrOptAbout for values of R option "about"
+ var arrOptAbout = new Array();
+ if(inpShrtdscr) {
+ arrOptAbout.push("desc=\"" + inpShrtdscr + "\"");
+ } else {}
+ if(inpVrsnnmbr) {
+ arrOptAbout.push("version=\"" + inpVrsnnmbr + "\"");
+ } else {}
+ if(inpRlsdtmpt) {
+ arrOptAbout.push("date=\"" + inpRlsdtmpt + "\"");
+ } else {}
+ if(inpHomepage) {
+ arrOptAbout.push("url=\"" + inpHomepage + "\"");
+ } else {}
+ if(inpLicense) {
+ arrOptAbout.push("license=\"" + inpLicense + "\"");
+ } else {}
+ if(inpCategory) {
+ arrOptAbout.push("category=\"" + inpCategory + "\"");
+ } else {}
+ // clean array arrOptAbout from empty strings
+ arrOptAbout = arrOptAbout.filter(String);
+ // set the actual variable optAbout with all values for R option "about"
+ if(arrOptAbout.length > 0) {
+ var optAbout = ",\n\tabout=list(" + arrOptAbout.join(", ") + ")";
+ } else {
+ var optAbout = "";
+ }
+
+ // define the array arrOptDependencies for values of R option "dependencies"
+ var arrOptDependencies = new Array();
+ if(chcDfndpndn && inpRKWardmn) {
+ arrOptDependencies.push("rkward.min=\"" + inpRKWardmn + "\"");
+ } else {}
+ if(chcDfndpndn && inpRKWardmx) {
+ arrOptDependencies.push("rkward.max=\"" + inpRKWardmx + "\"");
+ } else {}
+ if(chcDfndpndn && inpRmin) {
+ arrOptDependencies.push("R.min=\"" + inpRmin + "\"");
+ } else {}
+ if(chcDfndpndn && inpRmax) {
+ arrOptDependencies.push("R.max=\"" + inpRmax + "\"");
+ } else {}
+ // clean array arrOptDependencies from empty strings
+ arrOptDependencies = arrOptDependencies.filter(String);
+ // set the actual variable optDependencies with all values for R option "dependencies"
+ if(arrOptDependencies.length > 0) {
+ var optDependencies = ",\n\tdependencies=list(" + arrOptDependencies.join(", ") + ")";
+ } else {
+ var optDependencies = "";
+ }
+
+ // define the array arrOptPluginmap for values of R option "pluginmap"
+ var arrOptPluginmap = new Array();
+ if(drpPlcntpmn!= "test") {
+ arrOptPluginmap.push("hierarchy=\"" + drpPlcntpmn + "\"");
+ } else {}
+ // clean array arrOptPluginmap from empty strings
+ arrOptPluginmap = arrOptPluginmap.filter(String);
+ // set the actual variable optPluginmap with all values for R option "pluginmap"
+ if(arrOptPluginmap.length > 0) {
+ var optPluginmap = "pluginmap=list(" + arrOptPluginmap.join(", ") + ")";
+ } else {
+ var optPluginmap = "";
+ }
+
+ // define the array arrOptSkeleton for values of R option ""
+ var arrOptSkeleton = new Array();
+ if(brwDTEMPDIR) {
+ arrOptSkeleton.push("\n\tpath=\"" + brwDTEMPDIR + "\"");
+ } else {}
+ if(chcAddwzrds) {
+ arrOptSkeleton.push("\n\tprovides=c(\"logic\", \"dialog\", \"wizard\")");
+ } else {}
+ if(optPluginmap) {
+ arrOptSkeleton.push("\n\t" + optPluginmap);
+ } else {}
+ if(chcOvrwrtxs) {
+ arrOptSkeleton.push("\n\toverwrite=TRUE");
+ } else {}
+ if(chcIncldplg) {
+ arrOptSkeleton.push("\n\ttests=TRUE");
+ } else {}
+ if(chcOpnflsfr) {
+ arrOptSkeleton.push("\n\tedit=TRUE");
+ } else {}
+ if(chcAddplRKW) {
+ arrOptSkeleton.push("\n\tload=TRUE");
+ } else {}
+ if(chcShwthplg) {
+ arrOptSkeleton.push("\n\tshow=TRUE");
+ } else {}
+ // clean array arrOptSkeleton from empty strings
+ arrOptSkeleton = arrOptSkeleton.filter(String);
+ // set the actual variable optSkeleton with all values for R option ""
+ if(arrOptSkeleton.length > 0) {
+ var optSkeleton = "" + arrOptSkeleton.join(", ") + "";
+ } else {
+ var optSkeleton = "";
+ }
+
+ echo("about.plugin <- rk.XML.about(");
+ if(inpPluginnm) {
+ echo("\n\tname=\"" + inpPluginnm + "\"");
+ } else {}
+ echo(optAuthor);
+ echo(optAbout);
+ echo(optDependencies);
+ echo("\n)\n\n");
+ echo("plugin.dir <- rk.plugin.skeleton(\n\tabout=about.plugin,");
+ echo(optSkeleton);
+ echo("\n)\n\n");
+}
+
+function printout(){
+ // printout the results
+ echo("rk.header(\"Create RKWard plugin skeleton results\", level=1)\n");
+ echo("rk.print(\"\")\n");
+}
\ No newline at end of file
Added: trunk/rkward/packages/rkwarddev/inst/rkward/plugins/CreateRKWardpluginskeleton.xml
===================================================================
--- trunk/rkward/packages/rkwarddev/inst/rkward/plugins/CreateRKWardpluginskeleton.xml (rev 0)
+++ trunk/rkward/packages/rkwarddev/inst/rkward/plugins/CreateRKWardpluginskeleton.xml 2011-10-21 21:51:43 UTC (rev 3986)
@@ -0,0 +1,109 @@
+<!DOCTYPE rkplugin >
+<document>
+ <code file="CreateRKWardpluginskeleton.js" />
+ <help file="CreateRKWardpluginskeleton.rkh" />
+ <include file="../RKWardPluginSkeleton.pluginmap" />
+ <logic>
+ <connect governor="chc_Dfndpndn.state" client="frm_DpndsRKW.enabled" />
+ <connect governor="chc_Dfndpndn.state" client="frm_DpndsnRv.enabled" />
+ </logic>
+ <dialog label="RKWard Plugin Skeleton">
+ <tabbook id="tbbk_PlgnSklt" label="Plugin Skeleton">
+ <tab label="About the plugin" id="tab_Abtthplg">
+ <column id="clm_fAAPPLLGPL">
+ <frame label="About the plugin" checkable="false" id="frm_Abtthplg">
+ <row id="row_inPPLLGPL3">
+ <input label="Plugin name" id="inp_Pluginnm" size="small" required="true" />
+ <input label="License" id="inp_License" initial="GPL (>= 3)" required="true" />
+ </row>
+ <row id="row_inptlblShS">
+ <input label="Short description" id="inp_Shrtdscr" required="true" />
+ </row>
+ <row id="row_inVV0010RR">
+ <input label="Version number" id="inp_Vrsnnmbr" initial="0.01-0" required="true" />
+ <input label="Release date (empty for today)" id="inp_Rlsdtmpt" />
+ </row>
+ <row id="row_inptlbHHCC">
+ <input label="Homepage" id="inp_Homepage" />
+ <input label="Category" id="inp_Category" />
+ </row>
+ </frame>
+ <frame label="Plugin author" checkable="false" id="frm_Plugnthr">
+ <row id="row_cGGFFEEGGF">
+ <column id="clm_inptGGFFEE">
+ <input label="Given name" id="inp_Givennam" required="true" />
+ <input label="Family name" id="inp_Familynm" required="true" />
+ <input label="E-mail" id="inp_Email" required="true" />
+ <stretch />
+ </column>
+ <column id="clm_frmlAAAAMM">
+ <frame label="Author roles" checkable="false" id="frm_Authrrls">
+ <checkbox id="chc_Author" label="Author" value="aut" checked="true" />
+ <checkbox id="chc_Maintanr" label="Maintainer" value="cre" checked="true" />
+ <stretch />
+ </frame>
+ </column>
+ </row>
+ </frame>
+ </column>
+ </tab>
+ <tab label="Create options" id="tab_Cretptns">
+ <column id="clm_fDTEMPDIRD">
+ <frame checkable="false" id="frm_rDTEMPDIRD">
+ <row id="row_bDTEMPDIRD">
+ <browser label="Directory to save to (empty for $TEMPDIR)" type="dir" id="brw_DTEMPDIR" required="false" />
+ </row>
+ <row id="row_cOOAAIIOOA">
+ <column id="clm_chckOOAAII">
+ <checkbox id="chc_Ovrwrtxs" label="Overwrite existing files" value="true" />
+ <checkbox id="chc_Addwzrds" label="Add wizard section" value="true" />
+ <checkbox id="chc_Incldplg" label="Include plugin tests" value="true" checked="true" />
+ <stretch />
+ </column>
+ <column id="clm_cOOARKWARK">
+ <checkbox id="chc_Opnflsfr" label="Open files for editing" value="true" checked="true" />
+ <checkbox id="chc_AddplRKW" label="Add plugin to RKWard configuration" value="true" checked="true" />
+ <checkbox id="chc_Shwthplg" label="Show the plugin" value="true" />
+ <stretch />
+ </column>
+ </row>
+ <row id="row_dPPTFEVWRD">
+ <dropdown id="drp_Plcntpmn" label="Place in top menu">
+ <option label="Test (created if needed)" value="test" checked="true" />
+ <option label="File" value="file" />
+ <option label="Edit" value="edit" />
+ <option label="View" value="view" />
+ <option label="Workspace" value="workspace" />
+ <option label="Run" value="run" />
+ <option label="Data" value="data" />
+ <option label="Analysis" value="analysis" />
+ <option label="Plots" value="plots" />
+ <option label="Distributions" value="distributions" />
+ <option label="Windows" value="windows" />
+ <option label="Settings" value="settings" />
+ <option label="Help" value="help" />
+ </dropdown>
+ </row>
+ </frame>
+ <frame label="Dependencies" checkable="false" id="frm_Depndncs">
+ <row id="row_chckbxdcDD">
+ <checkbox id="chc_Dfndpndn" label="Define dependencies" value="true" />
+ </row>
+ <row id="row_fDRKWDRKWR">
+ <frame label="Depends on RKWard version" checkable="false" id="frm_DpndsRKW">
+ <input label="RKWard min" id="inp_RKWardmn" size="small" />
+ <input label="RKWard max" id="inp_RKWardmx" size="small" />
+ <stretch />
+ </frame>
+ <frame label="Depends on R version" checkable="false" id="frm_DpndsnRv">
+ <input label="R min" id="inp_Rmin" size="small" />
+ <input label="R max" id="inp_Rmax" size="small" />
+ <stretch />
+ </frame>
+ </row>
+ </frame>
+ </column>
+ </tab>
+ </tabbook>
+ </dialog>
+</document>
Deleted: trunk/rkward/packages/rkwarddev/inst/rkward/plugins/RKWardPluginSkeleton.js
===================================================================
--- trunk/rkward/packages/rkwarddev/inst/rkward/plugins/RKWardPluginSkeleton.js 2011-10-21 21:36:05 UTC (rev 3985)
+++ trunk/rkward/packages/rkwarddev/inst/rkward/plugins/RKWardPluginSkeleton.js 2011-10-21 21:51:43 UTC (rev 3986)
@@ -1,198 +0,0 @@
-function preprocess(){
- // add requirements etc. here.
- echo("require(rkwarddev)\n");
-
-}
-
-function calculate(){
- // read in variables from dialog
-
- var inpPluginnm = getValue("inp_Pluginnm");
- var inpLicense = getValue("inp_License");
- var inpShrtdscr = getValue("inp_Shrtdscr");
- var inpVrsnnmbr = getValue("inp_Vrsnnmbr");
- var inpRlsdtmpt = getValue("inp_Rlsdtmpt");
- var inpHomepage = getValue("inp_Homepage");
- var inpCategory = getValue("inp_Category");
- var inpGivennam = getValue("inp_Givennam");
- var inpFamilynm = getValue("inp_Familynm");
- var inpEmail = getValue("inp_Email");
- var chcAuthor = getValue("chc_Author");
- var chcMaintanr = getValue("chc_Maintanr");
- var brwDTEMPDIR = getValue("brw_DTEMPDIR");
- var chcOvrwrtxs = getValue("chc_Ovrwrtxs");
- var chcAddwzrds = getValue("chc_Addwzrds");
- var chcIncldplg = getValue("chc_Incldplg");
- var chcOpnflsfr = getValue("chc_Opnflsfr");
- var chcAddplRKW = getValue("chc_AddplRKW");
- var chcShwthplg = getValue("chc_Shwthplg");
- var drpPlcntpmn = getValue("drp_Plcntpmn");
- var chcDfndpndn = getValue("chc_Dfndpndn");
- var inpRKWardmn = getValue("inp_RKWardmn");
- var inpRKWardmx = getValue("inp_RKWardmx");
- var inpRmin = getValue("inp_Rmin");
- var inpRmax = getValue("inp_Rmax");
-
- // put the R code to be evaluated here.
- // define the array arrOptAuthorRole for values of R option "role"
- var arrOptAuthorRole = new Array();
- if(chcAuthor) {
- arrOptAuthorRole.push("\"" + chcAuthor + "\"");
- } else {}
- if(chcMaintanr) {
- arrOptAuthorRole.push("\"" + chcMaintanr + "\"");
- } else {}
- // clean array arrOptAuthorRole from empty strings
- arrOptAuthorRole = arrOptAuthorRole.filter(String);
- // set the actual variable optAuthorRole with all values for R option "role"
- if(arrOptAuthorRole.length > 0) {
- var optAuthorRole = "role=c(" + arrOptAuthorRole.join(", ") + ")";
- } else {
- var optAuthorRole = "";
- }
-
- // define the array arrOptAuthor for values of R option "author"
- var arrOptAuthor = new Array();
- if(inpGivennam) {
- arrOptAuthor.push("given=\"" + inpGivennam + "\"");
- } else {}
- if(inpFamilynm) {
- arrOptAuthor.push("family=\"" + inpFamilynm + "\"");
- } else {}
- if(inpEmail) {
- arrOptAuthor.push("email=\"" + inpEmail + "\"");
- } else {}
- if(optAuthorRole) {
- arrOptAuthor.push(optAuthorRole);
- } else {}
- // clean array arrOptAuthor from empty strings
- arrOptAuthor = arrOptAuthor.filter(String);
- // set the actual variable optAuthor with all values for R option "author"
- if(arrOptAuthor.length > 0) {
- var optAuthor = ",\n\tauthor=person(" + arrOptAuthor.join(", ") + ")";
- } else {
- var optAuthor = "";
- }
-
- // define the array arrOptAbout for values of R option "about"
- var arrOptAbout = new Array();
- if(inpShrtdscr) {
- arrOptAbout.push("desc=\"" + inpShrtdscr + "\"");
- } else {}
- if(inpVrsnnmbr) {
- arrOptAbout.push("version=\"" + inpVrsnnmbr + "\"");
- } else {}
- if(inpRlsdtmpt) {
- arrOptAbout.push("date=\"" + inpRlsdtmpt + "\"");
- } else {}
- if(inpHomepage) {
- arrOptAbout.push("url=\"" + inpHomepage + "\"");
- } else {}
- if(inpLicense) {
- arrOptAbout.push("license=\"" + inpLicense + "\"");
- } else {}
- if(inpCategory) {
- arrOptAbout.push("category=\"" + inpCategory + "\"");
- } else {}
- // clean array arrOptAbout from empty strings
- arrOptAbout = arrOptAbout.filter(String);
- // set the actual variable optAbout with all values for R option "about"
- if(arrOptAbout.length > 0) {
- var optAbout = ",\n\tabout=list(" + arrOptAbout.join(", ") + ")";
- } else {
- var optAbout = "";
- }
-
- // define the array arrOptDependencies for values of R option "dependencies"
- var arrOptDependencies = new Array();
- if(chcDfndpndn && inpRKWardmn) {
- arrOptDependencies.push("rkward.min=\"" + inpRKWardmn + "\"");
- } else {}
- if(chcDfndpndn && inpRKWardmx) {
- arrOptDependencies.push("rkward.max=\"" + inpRKWardmx + "\"");
- } else {}
- if(chcDfndpndn && inpRmin) {
- arrOptDependencies.push("R.min=\"" + inpRmin + "\"");
- } else {}
- if(chcDfndpndn && inpRmax) {
- arrOptDependencies.push("R.max=\"" + inpRmax + "\"");
- } else {}
- // clean array arrOptDependencies from empty strings
- arrOptDependencies = arrOptDependencies.filter(String);
- // set the actual variable optDependencies with all values for R option "dependencies"
- if(arrOptDependencies.length > 0) {
- var optDependencies = ",\n\tdependencies=list(" + arrOptDependencies.join(", ") + ")";
- } else {
- var optDependencies = "";
- }
-
- // define the array arrOptPluginmap for values of R option "pluginmap"
- var arrOptPluginmap = new Array();
- if(drpPlcntpmn!= "test") {
- arrOptPluginmap.push("hierarchy=\"" + drpPlcntpmn + "\"");
- } else {}
- // clean array arrOptPluginmap from empty strings
- arrOptPluginmap = arrOptPluginmap.filter(String);
- // set the actual variable optPluginmap with all values for R option "pluginmap"
- if(arrOptPluginmap.length > 0) {
- var optPluginmap = "pluginmap=list(" + arrOptPluginmap.join(", ") + ")";
- } else {
- var optPluginmap = "";
- }
-
- // define the array arrOptSkeleton for values of R option ""
- var arrOptSkeleton = new Array();
- if(inpPluginnm) {
- arrOptSkeleton.push("\n\tname=\"" + inpPluginnm + "\"");
- } else {}
- if(brwDTEMPDIR) {
- arrOptSkeleton.push("\n\tpath=\"" + brwDTEMPDIR + "\"");
- } else {}
- if(chcAddwzrds) {
- arrOptSkeleton.push("\n\tprovides=c(\"logic\", \"dialog\", \"wizard\")");
- } else {}
- if(optPluginmap) {
- arrOptSkeleton.push("\n\t" + optPluginmap);
- } else {}
- if(chcOvrwrtxs) {
- arrOptSkeleton.push("\n\toverwrite=TRUE");
- } else {}
- if(chcIncldplg) {
- arrOptSkeleton.push("\n\ttests=TRUE");
- } else {}
- if(chcOpnflsfr) {
- arrOptSkeleton.push("\n\tedit=TRUE");
- } else {}
- if(chcAddplRKW) {
- arrOptSkeleton.push("\n\tload=TRUE");
- } else {}
- if(chcShwthplg) {
- arrOptSkeleton.push("\n\tshow=TRUE");
- } else {}
- // clean array arrOptSkeleton from empty strings
- arrOptSkeleton = arrOptSkeleton.filter(String);
- // set the actual variable optSkeleton with all values for R option ""
- if(arrOptSkeleton.length > 0) {
- var optSkeleton = "" + arrOptSkeleton.join(", ") + "";
- } else {
- var optSkeleton = "";
- }
-
- echo("about.plugin <- rk.XML.about(");
- if(inpPluginnm) {
- echo("\n\tname=\"" + inpPluginnm + "\"");
- } else {}
- echo(optAuthor);
- echo(optAbout);
- echo(optDependencies);
- echo("\n)\n\n");
- echo("plugin.dir <- rk.plugin.skeleton(\n\tabout=about.plugin,");
- echo(optSkeleton);
- echo("\n)\n\n");
-}
-
-function printout(){
- // printout the results
- echo("rk.header(\"RKWard Plugin Skeleton results\", level=2)\n");
- echo("rk.print(\"\")\n");
-}
\ No newline at end of file
Deleted: trunk/rkward/packages/rkwarddev/inst/rkward/plugins/RKWardPluginSkeleton.xml
===================================================================
--- trunk/rkward/packages/rkwarddev/inst/rkward/plugins/RKWardPluginSkeleton.xml 2011-10-21 21:36:05 UTC (rev 3985)
+++ trunk/rkward/packages/rkwarddev/inst/rkward/plugins/RKWardPluginSkeleton.xml 2011-10-21 21:51:43 UTC (rev 3986)
@@ -1,109 +0,0 @@
-<!DOCTYPE rkplugin >
-<document>
- <code file="RKWardPluginSkeleton.js" />
- <help file="RKWardPluginSkeleton.rkh" />
- <include file="../RKWardPluginSkeleton.pluginmap" />
- <logic>
- <connect governor="chc_Dfndpndn.state" client="frm_DpndsRKW.enabled" />
- <connect governor="chc_Dfndpndn.state" client="frm_DpndsnRv.enabled" />
- </logic>
- <dialog label="RKWard Plugin Skeleton">
- <tabbook id="tbbk_PlgnSklt" label="Plugin Skeleton">
- <tab label="About the plugin" id="tab_Abtthplg">
- <column id="clm_fAAPPLLGPL">
- <frame label="About the plugin" id="frm_Abtthplg">
- <row id="row_inPPLLGPL3">
- <input label="Plugin name" id="inp_Pluginnm" size="small" required="true" />
- <input label="License" id="inp_License" initial="GPL (>= 3)" required="true" />
- </row>
- <row id="row_inptlblShS">
- <input label="Short description" id="inp_Shrtdscr" required="true" />
- </row>
- <row id="row_inVV0010RR">
- <input label="Version number" id="inp_Vrsnnmbr" initial="0.01-0" required="true" />
- <input label="Release date (empty for today)" id="inp_Rlsdtmpt" />
- </row>
- <row id="row_inptlbHHCC">
- <input label="Homepage" id="inp_Homepage" />
- <input label="Category" id="inp_Category" />
- </row>
- </frame>
- <frame label="Plugin author" id="frm_Plugnthr">
- <row id="row_cGGFFEEGGF">
- <column id="clm_inptGGFFEE">
- <input label="Given name" id="inp_Givennam" required="true" />
- <input label="Family name" id="inp_Familynm" required="true" />
- <input label="E-mail" id="inp_Email" required="true" />
- <stretch />
- </column>
- <column id="clm_frmlAAAAMM">
- <frame label="Author roles" id="frm_Authrrls">
- <checkbox id="chc_Author" label="Author" value="aut" checked="true" />
- <checkbox id="chc_Maintanr" label="Maintainer" value="cre" checked="true" />
- <stretch />
- </frame>
- </column>
- </row>
- </frame>
- </column>
- </tab>
- <tab label="Create options" id="tab_Cretptns">
- <column id="clm_fDTEMPDIRD">
- <frame id="frm_rDTEMPDIRD">
- <row id="row_bDTEMPDIRD">
- <browser label="Directory to save to (empty for $TEMPDIR)" type="dir" id="brw_DTEMPDIR" required="false" />
- </row>
- <row id="row_cOOAAIIOOA">
- <column id="clm_chckOOAAII">
- <checkbox id="chc_Ovrwrtxs" label="Overwrite existing files" value="true" />
- <checkbox id="chc_Addwzrds" label="Add wizard section" value="true" />
- <checkbox id="chc_Incldplg" label="Include plugin tests" value="true" checked="true" />
- <stretch />
- </column>
- <column id="clm_cOOARKWARK">
- <checkbox id="chc_Opnflsfr" label="Open files for editing" value="true" checked="true" />
- <checkbox id="chc_AddplRKW" label="Add plugin to RKWard configuration" value="true" checked="true" />
- <checkbox id="chc_Shwthplg" label="Show the plugin" value="true" />
- <stretch />
- </column>
- </row>
- <row id="row_dPPTFEVWRD">
- <dropdown id="drp_Plcntpmn" label="Place in top menu">
- <option label="Test (created if needed)" value="test" checked="true" />
- <option label="File" value="file" />
- <option label="Edit" value="edit" />
- <option label="View" value="view" />
- <option label="Workspace" value="workspace" />
- <option label="Run" value="run" />
- <option label="Data" value="data" />
- <option label="Analysis" value="analysis" />
- <option label="Plots" value="plots" />
- <option label="Distributions" value="distributions" />
- <option label="Windows" value="windows" />
- <option label="Settings" value="settings" />
- <option label="Help" value="help" />
- </dropdown>
- </row>
- </frame>
- <frame label="Dependencies" id="frm_Depndncs">
- <row id="row_chckbxdcDD">
- <checkbox id="chc_Dfndpndn" label="Define dependencies" value="true" />
- </row>
- <row id="row_fDRKWDRKWR">
- <frame label="Depends on RKWard version" id="frm_DpndsRKW">
- <input label="RKWard min" id="inp_RKWardmn" size="small" />
- <input label="RKWard max" id="inp_RKWardmx" size="small" />
- <stretch />
- </frame>
- <frame label="Depends on R version" id="frm_DpndsnRv">
- <input label="R min" id="inp_Rmin" size="small" />
- <input label="R max" id="inp_Rmax" size="small" />
- <stretch />
- </frame>
- </row>
- </frame>
- </column>
- </tab>
- </tabbook>
- </dialog>
-</document>
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the rkward-tracker
mailing list