[rkward-cvs] rkward/rkward/plugins/00saveload/load/source code.php,NONE,1.1 description.xml,NONE,1.1

[adrien]

Update of /cvsroot/rkward/rkward/rkward/plugins/00saveload/load/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20145/rkward/plugins/00saveload/load/source

Added Files:
	code.php description.xml 
Log Message:
this should do for load plugin

--- NEW FILE: description.xml ---
<!DOCTYPE rkplugin>
<document>
  <entry type="entry" id="source" label="Load source file" />
<!-- The layout-section takes care of the layout of the GUI for this plugin. -->  <dialog>
    <tabbook>
      <tab label="Select variables" >
        <column>
          <browser size="small" filter="*.R *.r" id="file" label="Name of the file" />
        </column>
        <frame label="Options. Implemented aber not doing any effect" >
          	
            <checkbox value_unchecked="FALSE" checked="false" value="TRUE" id="local" label="Local environnement" />
            <checkbox value_unchecked="FALSE" checked="false" value="TRUE" id="echo" label="Echo" />
            <checkbox value_unchecked="FALSE" checked="false" value="TRUE" id="verbose" label="Verbose" />
            <checkbox value_unchecked="FALSE" checked="false" value="TRUE" id="chdir" label="Change working directory" />
	    <checkbox value_unchecked="FALSE" checked="false" value="TRUE" id="printeval" label="Print eval" />
	    <input size="medium" initial = "getOption('prompt')" id="promptecho" label="Prompt"/>
            <spinbox size="small" type="integer" id="maxdeparselength" min="1" initial="1" max="1000" depend="echo" label="Maximal length of 'echo'" />
          
        </frame>
      </tab>
    </tabbook>
  </dialog>
</document>

--- NEW FILE: code.php ---
<?
	function preprocess () {
	}
	
	function calculate () {
?>

source ( file =  "<? getRK("file") ; ?>" ,local =  <? getRK("local") ; ?> , echo =  <? getRK("echo") ; ?> , print.eval =  <? getRK("printeval") ; ?> , verbose =  <? getRK("verbose") ; ?> , prompt.echo =   <? getRK("promptecho") ; ?> , max.deparse.length =  <? getRK("maxdeparselength") ; ?> , chdir =  <? getRK("chdir") ; ?> )

<?
	}
	
	function printout () {
	// produce the output
?>

<?
	}
	
	function cleanup () {
?>


<?
	}
?>