Package erjang

Examples of erjang.ESeq

343
344
345
346
347
348
349
350
351
352
353
      } catch (Throwable e) {

        e.printStackTrace();

        ESeq erl_trace = ErlangError.decodeTrace(e.getStackTrace());
        ETuple java_ex = ETuple.make(am_java_exception, EString
            .fromString(ERT.describe_exception(e)));

        result = ETuple.make(java_ex, erl_trace);
       
View Full Code Here
773
774
775
776
777
778
779
780
781
782
783
784
785
    output_term_from_driver_b(new ETuple2(port, new ETuple2(am_exit_status, ERT.box(code))));
  }

  public static ESeq all_ports() {
   
    ESeq res = ERT.NIL;
    for (EDriverTask dt : all_ports.values()) {
      if (dt.isDone()) continue;
      res = res.cons(dt.self_handle());
    }

    return res;
  }
View Full Code Here
385
386
387
388
389
390
391
392
393
394
  @BIF
 
  static public EPID list_to_pid(EObject obj) {
    ECons list;
    if ((list = obj.testCons()) != null) {
      ESeq s = EString.make(list);
      return ERT.loopkup_pid(s);
    }
    throw ERT.badarg(obj);
  }
View Full Code Here
470
471
472
473
474
475
476
477
478
  }

  @BIF
 
  static public EObject error(EObject reason, EObject args) {
    ESeq aseq = args.testSeq();
    if (aseq == null) throw ERT.badarg(reason, args);
    throw new ErlangError(reason, aseq.toArray());
  }
View Full Code Here
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
  @BIF
 
  static public ESeq get_module_info(EObject mod) {
    // TODO: get all the attributes from the beam code
    ESeq res = ERT.NIL;
    res = res.cons(new ETuple2(ERT.am_compile,
           get_module_info(mod, ERT.am_compile)));

    res = res.cons(new ETuple2(ERT.am_attributes,
           get_module_info(mod, ERT.am_attributes)));

    res = res.cons(new ETuple2(ERT.am_exports,
           get_module_info(mod, ERT.am_exports)));

    return res;
  }
View Full Code Here
540
541
542
543
544
545
546
547
548
549
550
    "zlib"
  };
 
  @BIF
  public static ESeq pre_loaded() {
    ESeq res = ERT.NIL;
    for (int i = 0; i < PRE_LOADED_MODULES.length; i++) {
      res = res.cons(EAtom.intern(PRE_LOADED_MODULES[i]));
    }
    return res;
  }
View Full Code Here
713
714
715
716
717
718
719
720
721
722
723
    return null;
  }

  @BIF
  static public EInteger length(EObject list) {
    ESeq seq;
    if ((seq = list.testSeq()) != null) {
      return ERT.box(seq.length());
    }
    throw ERT.badarg(list);
  }
View Full Code Here
727
728
729
730
731
732
733
734
735
736
737
//    return list.length();
//  }

  @BIF(name = "length", type = Type.GUARD)
  static public ESmall length$p(EObject list) {
    ESeq seq;
    if ((seq = list.testSeq()) != null) {
      return ERT.box(seq.length());
    }
    return null;
  }
View Full Code Here
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
  }

  @BIF(name = "++")
  public static EObject append(EObject l1, EObject l2) {
   
    ESeq ll1 = l1.testSeq();
    if (ll1 == null) throw ERT.badarg(l1, l2);
   
    return l2.prepend(ll1);
  }
View Full Code Here
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
  @BIF
  public static EObject raise(EObject kind, EObject value, EObject trace)
      throws ErlangException {

    EAtom clazz = kind.testAtom();
    ESeq traz = trace.testSeq();

    if (traz == null) {
//      System.err.println("bad argument to raise3: ("+kind+", "+value+", "+trace+")");
      return ERT.am_badarg;
    }
View Full Code Here
TOP

Related Classes of erjang.ESeq

  • erjang.beam.interpreter.AbstractInterpreter
  • erjang.beam.repr.Operands
  • erjang.driver.Drivers
  • erjang.driver.EDriverTask
  • erjang.driver.EExecDriverTask
  • erjang.m.erlang.ErlBif
  • erjang.m.erlang.ErlConvert
  • erjang.m.erlang.ErlDist
  • erjang.m.erlang.ErlFun
  • erjang.m.erlang.ErlList
    • Copyright © 2018 www.massapicom. 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.