Package erjang

Examples of erjang.EAtom

519
520
521
522
523
524
525
526
527
528
529
530
    return new EString(ref.toString());
  }
 
  @BIF
  public static EBinary atom_to_binary(EObject obj, EObject enc) {
    EAtom am = obj.testAtom();
    EAtom en = enc.testAtom();
    if (am == null || en == null) {
      throw ERT.badarg(obj, enc);
    }

    byte[] data;
View Full Code Here
541
542
543
544
545
546
547
548
549
550
551
  }

  @BIF
  public static EAtom binary_to_atom(EObject obj, EObject enc) {
    EBinary bi = obj.testBinary();
    EAtom en = enc.testAtom();
    if (bi == null || en == null) {
      throw ERT.badarg(obj, enc);
    }

    byte[] data = bi.getByteArray();
View Full Code Here
559
560
561
562
563
564
565
566
567
568
569
  }

  @BIF
  public static EAtom binary_to_existing_atom(EObject obj, EObject enc) {
    EBinary bi = obj.testBinary();
    EAtom en = enc.testAtom();
    if (bi == null || en == null) {
      throw ERT.badarg(obj, enc);
    }

    String name;
View Full Code Here
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
    // BIFs must take EObject as arguments, not more specific
    // types. They should also be public static, so that calls to
    // it can be embedded directly in compiled code.

    // test argument types
    EAtom aname = name.testAtom();
    ESeq opts = options.testSeq();

    if (aname == null || opts == null) {
      // make sure to pass the original arguments to badarg, not
      // the converted ones. Java 'null' values are never allowed
      // in the erjang world except as a return value from type tests
      // and other guard BIFs.
      throw ERT.badarg(name, options);
    }

    // default configuration
    EAtom type = am_set;
    EAtom access = am_protected;
    int keypos = 1;
    boolean write_concurrency = false;
    boolean read_concurrency = false;
    EInternalPID heir_pid = null;
    EObject heir_data = null;
    boolean is_named = false;

    for (; !opts.isNil(); opts = opts.tail()) {
      EObject option = opts.head();

      EAtom atom;
      ETuple2 t2;
      ETuple3 t3;
      if ((atom = option.testAtom()) != null) {
        if (atom == am_bag || atom == am_duplicate_bag
            || atom == am_set || atom == am_ordered_set) {
View Full Code Here
207
208
209
210
211
212
213
214
215
216
217
  /** used internally to resolve a tid|name */
  private static ETable resolve(EProc caller, EObject nameOrTid,
      boolean write_access) {

    EInteger tid = null;
    EAtom name;
    if ((name = nameOrTid.testAtom()) != null) {
      tid = name_to_tid.get(name);
    } else if ((tid = nameOrTid.testInteger()) != null) {
      // ok
    } else {
View Full Code Here
698
699
700
701
702
703
704
705
706
707
708
  }

  private static ETable get_table(EObject nameOrTid) {
    ETable table = null;
    EInteger tid;
    EAtom name;
    if ((tid=nameOrTid.testInteger()) != null) {
      table = tid_to_table.get(tid);
    } else if ((name=nameOrTid.testAtom()) != null) {
      tid = name_to_tid.get(name);
      if (tid != null) {
View Full Code Here
128
129
130
131
132
133
134
135
136
137
138
  //         | {scheme, Scheme=HttpString, HttpString}
  //         | {abs_path, HttpString}
  //         | HttpString

  private EObject load_uri(TCPINet desc, PacketHttpURI uri) {
    EAtom scheme = null;
    switch (uri.type) {
    case URI_STAR:
      return (EAtom)am_star;
    case URI_ABS_PATH:
      return new ETuple2(am_abs_path, load_string(desc, uri.s1_data, uri.s1_ptr, uri.s1_len));
View Full Code Here
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
      // argument can be any list, ... turn it into a string
      ESeq es = name.elem2.testString();
      if (es == null) {
        ECons cons;
        EAtom am;
        if ((cons = name.elem2.testCons()) != null) {
          es = EString.make(cons);
        } else if ((am = name.elem2.testAtom()) != null) {
          es = EString.fromString(am.getName());
        } else {
          throw ERT.badarg(name, portSetting);
        }
      }
View Full Code Here
121
122
123
124
125
126
127
128
129
130
131
132
      ETuple2 t2 = ETuple2.cast(t);
      if (t2 == null) {
        throw ERT.badarg(fun,args);
      }
     
      EAtom mn = t2.elem1.testAtom();
      EAtom fn = t2.elem2.testAtom();
     
      FunID funspec;
      f = EModuleManager.resolve(funspec=new FunID(mn,fn,a.length()));
     
      if (f == null) {
View Full Code Here
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
    return new ESmall(size);
  }

  @BIF
  public static EObject apply(EProc proc, EObject one, EObject two, EObject three) throws Pausable {
    EAtom mod = one.testAtom();
    ETuple t = one.testTuple();
    JavaObject jo = one.testJavaObject();
   
    EAtom fun = two.testAtom();
    ESeq  args = three.testSeq();
   
    if ((mod==null && t == null && jo == null)||fun==null||args==null) throw ERT.badarg(one, two, three);
   
    EFun f = ERT.resolve_fun(one, fun, args.length());
View Full Code Here
TOP

Related Classes of erjang.EAtom

  • erjang.beam.analysis.BeamTypeAnalysis$FV$LabeledBlock
  • erjang.beam.loader.BeamLoader
  • erjang.beam.ModuleAnalyzer
  • erjang.beam.SymbolicBeamFileData
  • erjang.driver.EExecDriverTask
  • erjang.driver.tcp_inet.TCPINetCallbacks
  • erjang.m.erlang.ErlBif
  • erjang.m.erlang.ErlConvert
  • erjang.m.erlang.ErlDist
  • erjang.m.erlang.ErlFun
    • 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.