Examples of basic_numberp()

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

498
499
500
501
502
503
504
505
506
507
508
    public void Execute( SECDMachine machine )
    {
      LispValue   progVal  = machine.S.pop();

      try {
        if( host != null && progVal.basic_numberp() ) {
          host.setProgression( offset + weight * (float) ((LispNumber) progVal).getDoubleValue() );
        }
      }
      finally {
        machine.S.push( f_lisp.NIL );
View Full Code Here

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

1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
        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

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

1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
          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
TOP
Copyright © 2018 www.massapi.com. All rights reserved.
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.