Examples of org.jatha.dynatype.LispValue

org.jatha.dynatype.LispValue
LispValueInterface defines the root of the Interfaces that define the datatypes in the system. Most representations will pass around values as this type. User: hewett Date: Nov 7, 2003 Time: 2:49:43 PM

      InputStream    inStream, errStream;
      byte[]      inBuf    = new byte[128];
      int        inBufOff  = 0;
      byte[]      errBuf    = new byte[128];
      int        errBufOff  = 0;
      LispValue    oldS, oldE, oldC, oldD;


      p      = Runtime.getRuntime().exec( cmdArray, envArray, workDir );
      // XXX "Implementation note: It is a good idea for the input stream to be buffered."
      inStream  = p.getInputStream(); // new BufferedInputStream( p.getInputStream() );
      errStream  = p.getErrorStream(); // new BufferedInputStream( p.getErrorStream() );

View Full Code Here

    // console umlenken
    private int handleConsole( InputStream stream, byte[] buf, int bufOff, LispValue parseFunc )
    throws IOException
    {
      int        i, j;
      LispValue    parseArg;


      while( stream.available() > 0 ) {
//System.err.println( "stream.available() : "+stream.available()+"; buf = "+new String( buf, 0, bufOff ));
        i = Math.min( buf.length - bufOff, stream.available() );
        stream.read( buf, bufOff, i );

View Full Code Here

    }


    public void Execute( SECDMachine machine )
    {
      final Request          request    = new Request();
      final LispValue          args    = machine.S.pop();
      final String          sourceName  = args.first().toStringSimple().toUpperCase();
      final LispValue          params    = args.basic_length() >= 2 ? args.second() : f_lisp.NIL;
      LispValue            trnsArg, rcvArg;
      final de.sciss.app.Application  app      = AbstractApplication.getApplication();


      try {
        request.medium      = args.basic_length() >= 3 ? lisp.getObject( args.third().toJava() ) : null;
        request.mediumOptions   = args.basic_length() >= 4 ? args.fourth() : f_lisp.NIL;
//System.err.println( "request.medium "+request.medium+"; request.mediumOptions "+request.mediumOptions );
        if( sourceName.equals( requestKeyNames[ REQUEST_SENSE ])) {
          request.type  = REQUEST_SENSE;
          if( params.basic_consp() ) {
            trnsArg = params.car();
            rcvArg  = params.cdr();
            if( trnsArg.basic_numberp() && rcvArg.basic_numberp() ) {
              request.params = new Point(
                (int) ((LispNumber) trnsArg).getLongValue(),
                (int) ((LispNumber) rcvArg).getLongValue()
              );
// System.err.println( ((Point) request.params).x +" , "+((Point) request.params).y );

View Full Code Here

      this.lisp   = lisp;
    }


    public void Execute( SECDMachine machine )
    {
      final LispValue          args    = machine.S.pop();
      final String          sourceName  = args.first().toStringSimple().toUpperCase();
      final LispValue          params    = args.basic_length() >= 2 ? args.second() : f_lisp.NIL;
      final LispValue          target    = args.basic_length() >= 3 ? args.third() : null;
      LispValue            trnsArg, rcvArg;
      final Request          request    = new Request();
      final de.sciss.app.Application  app      = AbstractApplication.getApplication();


      try {
        if( sourceName.equals( requestKeyNames[ REQUEST_SENSE ])) {
          request.type  = REQUEST_SENSE;
          request.medium  = target != null ? new File( target.toStringSimple() ) : null;
          if( params.basic_consp() ) {
            trnsArg = params.car();
            rcvArg  = params.cdr();
            if( trnsArg.basic_numberp() && rcvArg.basic_numberp() ) {
              request.params = new Point(
                (int) ((LispNumber) trnsArg).getLongValue(),
                (int) ((LispNumber) rcvArg).getLongValue()
              );
            } else {

View Full Code Here

0 1 2 3 4 5 6 7

TOP

Related Classes of org.jatha.dynatype.LispValue

de.sciss.meloncillo.lisp.JathaDiddler$actionEvalClass

de.sciss.meloncillo.plugin.LispPlugIn

de.sciss.meloncillo.plugin.LispPlugIn$LRPExecutePrimitive

de.sciss.meloncillo.plugin.LispPlugIn$LRPSourceRequestPrimitive

de.sciss.meloncillo.plugin.LispPlugIn$LRPTargetRequestPrimitive

de.sciss.meloncillo.realtime.LispRealtimePlugIn

de.sciss.meloncillo.render.LispRenderPlugIn$LRPProgressionSetPrimitive

org.boris.xlloop.script.LispFunctionHandler

org.jatha.compile.ApplyPrimitive

org.jatha.compile.ArcTangent2Primitive

All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.