scripting/examples/java/MemoryUsage/MemoryUsage.java

   1 import java.util.Random;
   2 import java.util.Date;
   3 import com.sun.star.uno.UnoRuntime;
   4 import com.sun.star.uno.AnyConverter;
   5 import com.sun.star.uno.Type;
   6 import com.sun.star.uno.XInterface;
   7 import com.sun.star.lang.XComponent;
   8 import com.sun.star.lang.XMultiServiceFactory;
   9 import com.sun.star.frame.XComponentLoader;
  10 import com.sun.star.document.XEmbeddedObjectSupplier;
  11 import com.sun.star.awt.Rectangle;
  12 import com.sun.star.beans.XPropertySet;
  13 import com.sun.star.beans.PropertyValue;
  14
  15 import com.sun.star.container.*;
  16 import com.sun.star.chart.*;
  17 import com.sun.star.table.*;
  18 import com.sun.star.sheet.*;
  19
  20 import com.sun.star.script.provider.XScriptContext;
  21
  22 public class MemoryUsage
  23 {
  24     // public void updateMemoryUsage(XScriptContext ctxt, ActionEvent evt)
  25     public void updateMemoryUsage(XScriptContext ctxt)
  26         throws Exception
  27     {
  28         XSpreadsheet sheet = createSpreadsheet(ctxt);
  29
  30         Runtime runtime = Runtime.getRuntime();
  31         Random generator = new Random();
  32         Date date = new Date();
  33
  34         // allocate a random amount of memory
  35         int len = (int)(generator.nextFloat() * runtime.freeMemory() / 5);
  36         byte[] bytes = new byte[len];
  37
  38         addData(sheet, date.toString(),
  39             runtime.totalMemory(), runtime.freeMemory());
  40
  41         addChart(sheet);
  42     }
  43
  44     private XSpreadsheet createSpreadsheet(XScriptContext ctxt)
  45         throws Exception
  46     {
  47         XComponentLoader loader = (XComponentLoader)
  48             UnoRuntime.queryInterface(
  49                 XComponentLoader.class, ctxt.getDesktop());
  50
  51         XComponent comp = loader.loadComponentFromURL(
  52             "private:factory/scalc", "_blank", 4, new PropertyValue[0]);
  53
  54         XSpreadsheetDocument doc = (XSpreadsheetDocument)
  55             UnoRuntime.queryInterface(XSpreadsheetDocument.class, comp);
  56
  57         XIndexAccess index = (XIndexAccess)
  58             UnoRuntime.queryInterface(XIndexAccess.class, doc.getSheets());
  59
  60         XSpreadsheet sheet = (XSpreadsheet) AnyConverter.toObject(
  61             new Type(com.sun.star.sheet.XSpreadsheet.class), index.getByIndex(0));
  62
  63         return sheet;
  64     }
  65
  66     private void addData(
  67         XSpreadsheet sheet, String date, long total, long free)
  68         throws Exception
  69     {
  70         sheet.getCellByPosition(0, 0).setFormula("Used");
  71         sheet.getCellByPosition(0, 1).setFormula("Free");
  72         sheet.getCellByPosition(0, 2).setFormula("Total");
  73
  74         sheet.getCellByPosition(1, 0).setValue(total - free);
  75         sheet.getCellByPosition(1, 1).setValue(free);
  76         sheet.getCellByPosition(1, 2).setValue(total);
  77     }
  78
  79     private void addChart(XSpreadsheet sheet)
  80         throws Exception
  81     {
  82         Rectangle rect = new Rectangle();
  83         rect.X = 500;
  84         rect.Y = 3000;
  85         rect.Width = 10000;
  86         rect.Height = 8000;
  87
  88         XCellRange range = (XCellRange)
  89             UnoRuntime.queryInterface(XCellRange.class, sheet);
  90
  91         XCellRange myRange =
  92             range.getCellRangeByName("A1:B2");
  93
  94         XCellRangeAddressable rangeAddr = (XCellRangeAddressable)
  95             UnoRuntime.queryInterface(XCellRangeAddressable.class, myRange);
  96
  97         CellRangeAddress myAddr = rangeAddr.getRangeAddress();
  98
  99         CellRangeAddress[] addr = new CellRangeAddress[1];
 100         addr[0] = myAddr;
 101
 102         XTableChartsSupplier supp = (XTableChartsSupplier)
 103             UnoRuntime.queryInterface( XTableChartsSupplier.class, sheet);
 104
 105         XTableCharts charts = supp.getCharts();
 106         charts.addNewByName("Example", rect, addr, false, true);
 107
 108         try { Thread.sleep(3000); } catch (java.lang.InterruptedException e) { }
 109
 110         // get the diagram and Change some of the properties
 111         XNameAccess chartsAccess = (XNameAccess)
 112             UnoRuntime.queryInterface( XNameAccess.class, charts);
 113
 114         XTableChart tchart = (XTableChart)
 115             UnoRuntime.queryInterface(
 116                 XTableChart.class, chartsAccess.getByName("Example"));
 117
 118         XEmbeddedObjectSupplier eos = (XEmbeddedObjectSupplier)
 119             UnoRuntime.queryInterface( XEmbeddedObjectSupplier.class, tchart );
 120
 121         XInterface xifc = eos.getEmbeddedObject();
 122
 123         XChartDocument xChart = (XChartDocument)
 124             UnoRuntime.queryInterface(XChartDocument.class, xifc);
 125
 126         XMultiServiceFactory xDocMSF = (XMultiServiceFactory)
 127             UnoRuntime.queryInterface(XMultiServiceFactory.class, xChart);
 128
 129         Object diagObject =
 130             xDocMSF.createInstance("com.sun.star.chart.PieDiagram");
 131
 132         XDiagram xDiagram = (XDiagram)
 133             UnoRuntime.queryInterface(XDiagram.class, diagObject);
 134
 135         xChart.setDiagram(xDiagram);
 136
 137         XPropertySet propset = (XPropertySet)
 138             UnoRuntime.queryInterface( XPropertySet.class, xChart.getTitle() );
 139         propset.setPropertyValue("String", "JVM Memory Usage");
 140     }
 141 }