SAS中文论坛

标题: SAS OOP [打印本页]

作者: shiyiming 时间: 2004-9-30 13:17
标题: SAS OOP
原贴参见： <a class="postlink" href="http://sasor.feoh.net/modules.php?name=Forums&file=viewtopic&t=657">http://sasor.feoh.net/modules.php?name= ... opic&t=657</a>

简介：DSCI提供建立和处理组件对象在DATA STEP程序中，JAVAOBJ就是这样的一个对象，其提供类似JNI的机制，可实例化JAVA类，访问对象属性和方法

　　定义JAVA对象

　　其由DECLARE语法支持：

　　declare javaobj j("类名");

　　这样将定义和存储一个对象的实例在标量J中， JAVAOBJ会将JAVA CLASSPATH下的someJavaClass实例化呈现出来
　　典型的，为确保实例化J只一次，可以这样做

　　if _N_ = 1 then do;
　　declare javaobj j("someJavaClass");
　　end;

　　JAVAOBJ也能使用_new_ 语法进行实例化

　　declare javaobj j;
　　j = _NEW_ javaobj("someJavaClass");

　　构造参数

　　JAVAOBJ构造一个对象的实例的第一个参数是JAVA类的名字，如建立一个hashtable对象

　　declare javaobj h("java/util/Hashtable");

　　其他相应的参数也可以依次传给java class本身

　　如建立一个容量为100、系数为0.8的hashtable对象，我们应该封装java/util/Hashtable类且在DATA STEP中实例化它

　 import java.util.*;
　　public class mhash extends Hashtable
　　{
　　mhash(double size, double load)
　　{
　　super((int)size, (float)load);
　　}
　　}

　　declare javaobj h("mhash", 100, .<img src="{SMILIES_PATH}/icon_cool.gif" alt="8)" title="Cool" />;

　　
　　封装类是必须的，因为DATA STEP中的数字类型对应JAVA中的double

　　访问对象属性
　　一旦对象被实例化，JAVAOBJ是容许用户用方法访问和修改对象属性，如设想我们由这样一个类

　　import java.util.*;
　　import java.lang.*;
　　public class ttest
　　{
　　public int i;
　　public double d;
　　public String s;
　　}

我们建立这个类的实例，用set/get访问对象属性在下列程序中

　 data _null_;
　　dcl javaobj j("ttest");
　　length val 8;
　　length str $20;
　　j.setIntField("i", 100);
　　j.setDoubleField("d", 3.14159);
　　j.setStringField("s", "abc");
　　j.getIntField("i", val);
　　put val=;
　　j.getDoubleField("d", val);
　　put val=;
　　j.getStringField("s", str);
　　put str=;
　　run;

　　set/get方法的第一个参数是属性名，第二个参数是get/set的变量或值

　　访问对象方法
　　可以把上面的类改造成这样

　 import java.util.*;
　　import java.lang.*;
　　public class ttest
　　{
　　public int i;
　　public double d;
　　public String s;
　　public int im()
　　{
　　return i;
　　}

　　public String sm()
　　{
　　return s;
　　}

　　public double dm()
　　{
　　return d;
　　}
　　}

　　我们可以通过javaobj方法调用访问java 值,如

　　data _null_;
　　dcl javaobj j("ttest");
　　length val 8;
　　length str $20;
　　j.setIntField("i", 100);
　　j.setDoubleField("d", 3.14159);
　　j.setStringField("s", "abc");

　 j.callIntMethod("im", val);
　　put val=;
　　j.callDoubleMethod("dm", val);
　　put val=;
　　j.callStringMethod("sm", str);
　　put str=;
　　run;

　　注：方法的返回值总是被指定为最后一个参数，例如，我们有个返回为double的方法

　　public double m(double x, double y)
　　{
　　return x * y;
　　}

　　那么在DATA STEP中调用该方法用下列语法

　　length val1 val2 ret 8;
　　j.callDoubleMethod("m", val1, val2, ret);

　　访问类的属性和方法
　　访问类的静态属性和方法，我们可以使用相应的JAVAOBJ方法，例如

　　import java.util.*;
　　import java.lang.*;
　　public class ttestc
　　{
　　public static double d;
　　public static double dm()
　　{
　　return d;
　　}
　　}

　　在DATA STEP中调用

　　data x;
　　dcl javaobj j("ttestc");
　　length d 8;
　　j.callSetStaticDoubleField("d", 3.14159);
　　j.callStaticDoubleMethod("dm", d);
　　put d=;
　　run;

　　数据类型使用

　　java数据类型集是data step的超集，后者的主要类型是数字型和字符型，而JAVA除了包含数字型和字符型还含有如byte,char,short等类型。

　　当使用javaobj方法调用是所有java数字类型对应DATA STEP中的数组类型，JAVA STRING则映射到DATA STEP的字符类型（为UTF串）,字符型不能被映射到data step中，且不能由java clasS返回对象到data step中（string对象除外）,但是容许传送对象到java class中

某些JAVA类返回对象，我们可以封装改类以获得对象的值，例如

　　import java.util.*;
　　public class mhash
　　{
　　private Hashtable table;

　　public mhash()
　　{
　　table = new Hashtable();
　　}

　　public void put(double key, double value)
　　{
　　table.put(new Double(key), new Double(value));
　　}

　　public void put(String key, String value)
　　{
　　table.put(key, value);
　　}

　　public double get(double key)
　　{
　　Object ret = table.get(new Double(key));
　　if (ret instanceof Double)
　　return ((Double)ret).doubleValue();
　　else
　　return Double.NaN;
　　}

　　public String get(String key)
　　{
　　return (String)table.get(key);
　　}
　　}

　　data step中使用

　　data _null_;
　　length s $20;
　　/*
　　* Simple Java hash table test. mhash.class is a wrapper
　　* for java/util/Hashtable - so that we can pass Java strings
　　* directly instead of generic Objects.
　　*/
　　declare javaobj h("mhash");

　　/* Load up the table */
　　h.callVoidMethod("put", "key1", "data1");
　　h.callVoidMethod("put", "key2", "data2");
　　h.callVoidMethod("put", "key3", "data3");
　　h.callVoidMethod("put", "key4", "data4");
　　h.callVoidMethod("put", "key5", "data5");
　　/* Retrieve a value */
　　h.callStringMethod("get", "key3", s);
　　put s=;
　　run;

　　数组使用

　　data step数组能直接传到java对象中，如
　　import java.util.*;
　　import java.lang.*;
　　class jtest
　　{
　　public void dbl(double args[])
　　{
　　for(int i = 0; i < args.length; i++)
　　System.out.println(args[i]);
　　}
　　public void str(String args[])
　　{
　　for(int i = 0; i < args.length; i++)
　　System.out.println(args[i]);
　　}
　　}

　　data _null_;
　　dcl javaobj j("jtest");
　　array s[3] $20 ("abc", "def", "ghi");
　　array d[10] (1:10);
　　j.callVoidMethod("dbl", d);
　　j.callVoidMethod("str", s);
　　run;

欢迎光临 SAS中文论坛 (http://mysas.net/forum/)