Examples of org.jatha.dynatype.LispValue.second()

org.jatha.dynatype.LispValue.second()
Returns the second element of a list or NIL if the list is shorter than two elements.

      cmdListList = cmdListList.cdr();
      cmdStr    = cmdList.first().toStringSimple().toUpperCase();
      
      if( cmdStr.equals( "SEND" )) {
        bt.cmd[ i ] = BT_SEND;
        id      = cmdList.second().toJava();
        o      = jatha.getObject( id);
        if( o == null ) {
          throw new IOException( getResourceString( "errLispWrongObjType" ) + " : " + id );
        }
        if( !(o instanceof DatagramChannel) ) {

View Full Code Here

          throw new IOException( getResourceString( "errLispWrongObjType" ) + " : " + id );
        }
        bt.dch  = (DatagramChannel) o;
      
      } else {
        val = cmdList.basic_length() == 3 ? cmdList.third() : cmdList.second();
        if( !val.basic_integerp() ) {
          throw new IOException( getResourceString( "errLispWrongArgType" ));
        }
        bt.offset[ i ] = (int) ((LispNumber) val).getLongValue();

View Full Code Here

        }
        bt.offset[ i ] = (int) ((LispNumber) val).getLongValue();


        if( cmdStr.equals( "INT" )) {
          bt.cmd[ i ] = BT_CONST;
          val = cmdList.second();
          if( !val.basic_numberp() ) {
            throw new IOException( getResourceString( "errLispWrongArgType" ));
          }
          bt.constant[ i ] = (int) ((LispNumber) val).getLongValue();

View Full Code Here

          }
          bt.constant[ i ] = (int) ((LispNumber) val).getLongValue();
          
        } else if( cmdStr.equals( "FLOAT" )) {
          bt.cmd[ i ] = BT_CONST;
          val = cmdList.second();
          if( !val.basic_numberp() ) {
            throw new IOException( getResourceString( "errLispWrongArgType" ));
          }
          bt.constant[ i ] = Float.floatToRawIntBits( (float) ((LispNumber) val).getDoubleValue() );

View Full Code Here

          }
          bt.constant[ i ] = Float.floatToRawIntBits( (float) ((LispNumber) val).getDoubleValue() );
          
        } else if( cmdStr.equals( "VAR" )) {
          bt.cmd[ i ] = BT_VAR;
          cmdStr = cmdList.second().toStringSimple().toUpperCase();
          if( cmdStr.equals( "BUFOFF" )) {
            bt.constant[ i ] = BT_VAR_BUFOFF;
          } else {
            throw new IOException( getResourceString( "errLispWrongArgValue" ));
          }

View Full Code Here

TOP

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.