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

[adrien]

Update of /cvsroot/rkward/rkward/rkward/plugins/00saveload/save/write
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29306/rkward/plugins/00saveload/save/write

Added Files:
	code.php description.xml 
Log Message:
try to make write plugin

--- NEW FILE: description.xml ---
<!DOCTYPE rkplugin>
<document>
  <entry type="entry" id="write" label="Save variables" />
<!-- The layout-section takes care of the layout of the GUI for this plugin. -->  <dialog>
    <tabbook>
      <tab label="Select variables" >
        <column>
          <varselector id="vars" label="Select a variable" />
          <varslot multi="false" classes="character numeric integer factor" id="data" source="vars" label="Data" required="true" />
          <browser size="small" initial="~/rk.temp.data" id="file" label="Name of the file" />
        </column>
        <frame label="Options" >
          <row>
            <spinbox type="integer" initial="1" min="1" id="ncolumns" max="100" label="Number of columns" />
            <checkbox value_unchecked="FALSE" checked="false" value="TRUE" id="append" label="Append" />
          </row>
        </frame>
      </tab>
    </tabbook>
  </dialog>
</document>

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

write ( x =  <? getRK("data") ; ?> , file =  "<? getRK("file") ; ?>" , ncolumns =  <? getRK("ncolumns") ; ?> , append =  <? getRK("append") ; ?> )

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

<?
	}
	
	function cleanup () {
?>


<?
	}
?>