Examples of EBinary

Examples of erjang.EBinary

31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
  public static EObject internal_name2native(EObject arg) {
    if (arg.testAtom() != null) {
      throw ERT.badarg(arg);
    }
    else if (arg.testBinary() != null) {
      EBinary bin = arg.testBinary();
      byte[] binbytes = bin.getByteArray();
      byte[] outbytes = new byte[binbytes.length + 1];
     
      System.arraycopy(binbytes, 0, outbytes, 0, binbytes.length);
      outbytes[outbytes.length - 1] = 0x0;
     
      return new EBinary(outbytes);
    }
    else {
      ESeq input = arg.testSeq();
      List<Byte> bytes = new ArrayList<Byte>();
      byte[] out;
     
      while (!input.isNil()) {
        Integer el = input.head().testSmall().intValue();
        bytes.add(el.byteValue());
        input = input.tail();
      }
      out = new byte[bytes.size() + 1];
      for (int i = 0; i < bytes.size(); ++i) {
        out[i] = bytes.get(i);
      }
      out[out.length - 1] = 0x0;
     
      return new EBinary(out);
    }
  }
View Full Code Here

Examples of erjang.EBinary

62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
    }
  }
 
  @BIF
  public static EObject internal_native2name(EObject arg) {
    EBinary bin = arg.testBinary();
    byte[] binbytes;
   
    if (bin == null) {
      throw ERT.badarg(arg);
    }
    binbytes = bin.getByteArray();
    String out = new String(binbytes);
   
    return new EString(out);
  }
View Full Code Here

Examples of erjang.EBinary

161
162
163
164
165
166
167
168
169
170
171
172
    }
  };

  @BIF
  public static EObject bin_is_7bit(EObject o1) {
    EBinary bin;
    if ((bin = o1.testBinary()) != null) {
      return ERT.box( bin.is_7bit() );
    }
   
    return ERT.FALSE;
  }
View Full Code Here

Examples of erjang.EBinary

73
74
75
76
77
78
79
80
81
82
83
84
  //TODO: equality operators

  @Override
  public EBinary testBinary() {
    if (real_object instanceof byte[]) {
      return new EBinary((byte[]) real_object);
    }
    if (real_object instanceof String) {
      return new EBinary(((String) real_object).getBytes(IO.UTF8));
    }
    return null;
  }
View Full Code Here

Examples of erjang.EBinary

83
84
85
86
87
88
89
90
91
92
93
    return null;
  }

  @Override
  public EBitString testBitString() {
    EBinary bi;
    if ((bi=testBinary()) != null) {
      return bi;
    }
   
    if (testCons() == null
View Full Code Here

Examples of erjang.EBinary

756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
    Options o = new Options();

    String pattern;
    ETuple4 tup = ETuple4.cast(obj1);
    if (tup != null && tup.elem1 == ECompiledRE.am_re_pattern) {
      EBinary b = tup.elem4.testBinary();
      byte[] byteArray = b.getByteArray();
      if (b != null && b.byteAt(0) == '/') {
       
        byte[] raw = byteArray;
        int end = raw.length - 1;
        for (int i = b.byteSize()-1; i > 0; i--) {
          if (b.byteAt(i*8) == '/') {
            end = i;
            break;
          }
        } 
         
View Full Code Here

Examples of erjang.EBinary

257
258
259
260
261
262
263
    if ((smd = section_map.get(LIT_T)) != null) {
      in.updateMessageDigest(context, smd.offset, smd.length);
    }
   
    byte[] digest = context.digest();
    this.module_md5 = new EBinary(digest);
  }
View Full Code Here

Examples of erjang.EBinary

815
816
817
818
819
820
821
822
823
824
825
        reply_posix_error(Posix.ENOENT);
        return;
      }
     
      if (ClassPathResource.isResource(name)) {
        EBinary data = ClassPathResource.read_file(name);
        if (data == null) {
          reply_posix_error(Posix.ENOENT);
        } else {
                                    if (isUnicodeDriverInterface()) {
View Full Code Here

Examples of erjang.EBinary

94
95
96
97
98
99
100
101
102
103
104
  @Override
  protected void output(EHandle caller, final ByteBuffer buf) throws IOException,
      Pausable {

    final int cmd = buf.getShort();
    final EBinary call_id = read_binary(buf);
   
    if (cmd == IJ) {
      int heap_size = buf.getInt();
      vm = sm_initialize(heap_size * 1024 * 1024);
      send_ok_response(call_id);
 
View Full Code Here

Examples of erjang.EBinary

211
212
213
214
215
216
217
218
219
220
  }


  private EBinary read_binary(ByteBuffer buf) {
    int str_len = buf.getInt();
    EBinary str = new EBinary(buf.array(),
        buf.position()+buf.arrayOffset(), str_len);
    buf.position(buf.position()+str_len);
    return str;
  }
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.