Mercurial > hg > jslab
annotate src/samer/silk/JavaProcedure.java @ 8:5e3cbbf173aa tip
Reorganise some more
author | samer |
---|---|
date | Fri, 05 Apr 2019 22:41:58 +0100 |
parents | bf79fb79ee13 |
children |
rev | line source |
---|---|
samer@0 | 1 package samer.silk; |
samer@0 | 2 import samer.core.*; |
samer@0 | 3 import jscheme.*; |
samer@0 | 4 import jsint.*; |
samer@0 | 5 |
samer@0 | 6 //public class JavaProcedure implements SchemeProcedure { |
samer@0 | 7 public class JavaProcedure extends Procedure { |
samer@0 | 8 public Object apply(Object [] args) { |
samer@0 | 9 for (int i=0; i<args.length; i++) { |
samer@0 | 10 Shell.trace("arg "+i+"="+args[i]); |
samer@0 | 11 } |
samer@0 | 12 return null; |
samer@0 | 13 } |
samer@0 | 14 |
samer@0 | 15 public Object apply(Pair args) { |
samer@0 | 16 Shell.trace("apply to Pair"); |
samer@0 | 17 return apply(U.listToVector(args)); |
samer@0 | 18 } |
samer@0 | 19 public Object apply(SchemePair args) { |
samer@0 | 20 Shell.trace("apply to SchemePair"); |
samer@0 | 21 return apply(U.listToVector(args)); |
samer@0 | 22 } |
samer@0 | 23 |
samer@0 | 24 |
samer@0 | 25 // public void run() { Shell.print("run!"); } |
samer@0 | 26 } |
samer@0 | 27 |