Package erjang

Examples of erjang.EString

74
75
76
77
78
79
80
81
82
83
84
    RPC.wait_for_erjang_started(60*1000L);   

    //
    // Call erlang:display( ["Hello, Joe!~n", []] )
    //
    EString hello_str = EString.fromString("Hello, Joe!~n");
    ESeq format_args = EList.make( hello_str, ERT.NIL );    
    RPC.call(am_erlang, am_display, (EObject)format_args );

   
    RPC.call(am_io, am_format, hello_str, ERT.NIL );
View Full Code Here
284
285
286
287
288
289
290
291
292
293
294
295
296
      ESmall val = value.testSmall();
      if (val != null) {
        exitCode = val.value;
      }
     
      EString str = value.testString();
      if (str != null) {
        message = str.stringValue();
      }
    }
   
    /*
    // TODO: create crash file
View Full Code Here
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
      return new ESmall(ERT.threadPoolSize());
     
    } else if (type == am_os_type) {
      String os = System.getProperty("os.name");
      if (os.startsWith("Windows")) {
        return ETuple.make(am_win32, new EString(os));
      } else {
        return ETuple.make(am_unix, new EString(os));
      }

    } else if (type == am_threads) {
      return ERT.TRUE;
     
    } else if (type == am_version) {
      String erts_version = ERT.runtime_info.erts_version;
      // remove prefix
      String prefix = "erts-";
      if (erts_version.startsWith(prefix)) {
        erts_version = erts_version.substring(prefix.length());
      }
      return EString.fromString(erts_version);
     
    } else if (type == am_otp_release) {
      return new EString(ERT.runtime_info.otp_version);
    } else if (type == am_logical_processors) {
      // TODO: be smarter somehow
      return ERT.box(Runtime.getRuntime().availableProcessors());
     
    } else if (type == am_global_heaps_size) {
      return ERT.box(Runtime.getRuntime().totalMemory());
     
    } else if (type == am_process_count) {
      return ERT.box(EProc.process_count());
     
    } else if (type == am_system_architecture) {
      return new EString(Main.SYSTEM_ARCHITECTURE);
     
    } else if (type == am_driver_version) {
      // TODO: be smarter somehow
      return new EString(Main.DRIVER_VERSION);
     
    } else if (type == am_wordsize) {
      return new ESmall(4);
      
    } else if (type == am_debug_compiled || type == am_lock_checking) {
       throw ERT.badarg(type);
      
    } else if (type == am_hipe_architecture) {
      return am_undefined;
     
    } else if (type == am_build_type) {
      return EAtom.intern("opt");
     
    } else if (type == am_system_version) {
      return new EString("Erjang ["+ ERT.runtime_info.erts_version+"]");
     
    } else if ((tup=ETuple2.cast(type)) != null) {
     
      if (tup.elem1 == am_allocator) {
        if (tup.elem2 == am_ets_alloc) {
View Full Code Here
552
553
554
555
556
557
558
559
560
561
562
563
564
        EBinary bin;
        if ((bin = io_or_char_list.testBinary()) != null) {
          return EString.make(bin).stringValue();
        }
       
        EString str;
        if ((str = io_or_char_list.testString()) != null) {
          return str.stringValue();
        }
       
        List<ByteBuffer> bb = new ArrayList<ByteBuffer>();
        if (io_or_char_list.collectIOList(bb)) {
          StringWriter sw = new StringWriter();
View Full Code Here
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
  static Pattern float_pattern = Pattern.compile("^((-|\\+)?\\d*\\.\\d+([eE](-|\\+)?\\d+)?).*");
 
  @BIF
  public static ETuple2 to_integer(EObject val)
  {
    EString v = val.testString();
    if (v == null) throw ERT.badarg(val);
   
    String s = v.stringValue();
    Matcher m = int_pattern.matcher(s);
    if (m.matches()) {
      String ss = m.group(1);
      EInteger intval = ERT.box_parse(ss);
      ESeq rest;
      if (ss.length() == s.length()) {
        rest = ERT.NIL;
      } else {
        rest = new EString(s.substring(ss.length()));
      }
      return new ETuple2(intval, rest);     
    } else {
      return new ETuple2(am_error, am_no_integer);
    }
View Full Code Here
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
  }
 
  @BIF
  public static ETuple2 to_float(EObject val)
  {
    EString v = val.testString();
    if (v == null) throw ERT.badarg(val);
   
    String s = v.stringValue();
    Matcher m = float_pattern.matcher(s);
    if (m.matches()) {
      String ss = m.group(1);
      EDouble floatval = ERT.box( Double.parseDouble(ss) );
      ESeq rest;
      if (ss.length() == s.length()) {
        rest = ERT.NIL;
      } else {
        rest = new EString(s.substring(ss.length()));
      }
      return new ETuple2(floatval, rest);     
    } else {
      return new ETuple2(am_error, am_no_float);
    }
View Full Code Here
71
72
73
74
75
76
77
      throw ERT.badarg(arg);
    }
    binbytes = bin.getByteArray();
    String out = new String(binbytes);
   
    return new EString(out);
  }
View Full Code Here
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
          ESeq l = ERT.NIL;
          while (!list.isNil()) {
            EObject group = list.head();
            ESmall num;
            EAtom nam;
            EString nam2;
            if ((num=group.testSmall()) != null)
            {
              l = l.cons( capture (subject, mr, num.value, o2 ));
            } else if ((nam=group.testAtom()) != null) {
              Integer groupNo = o2.named_groups.get(nam.getName());
              if (groupNo != null) {
                l = l.cons( capture (subject, mr, groupNo.intValue(), o2 ));
              }
            } else if ((nam2=group.testString()) != null) {
              Integer groupNo = o2.named_groups.get(nam2.stringValue());
              if (groupNo != null) {
                l = l.cons( capture (subject, mr, groupNo.intValue(), o2 ));
              }
            } else {
              throw new NotImplemented("named capture groups");
View Full Code Here
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
  /** os:putenv(string(), string()) -> true */
  @BIF
  public static EObject putenv(EObject o1, EObject o2) {
    EString str1 = o1.testString();
    EString str2 = o2.testString();
    if (str1 == null || str2 == null)
      throw ERT.badarg(o1, o2);
   
    ErjangConfig.setenv(str1.stringValue(), str2.stringValue());
   
    return ERT.TRUE;
  }
View Full Code Here
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
  }
 
  /** os:getenv(string()) -> string() | false */
  @BIF
  public static EObject getenv(EObject o) {
    EString str = o.testString();
    if (str == null)
      throw ERT.badarg(o);

    String value;
   
    value = ErjangConfig.getenv(str.stringValue());
    if (value != null) {
      return EString.fromString(value);
    }
   
    value = System.getenv(str.stringValue());

    if (value == null) {
      return ERT.FALSE;
    } else {
      return EString.fromString(value);
View Full Code Here
TOP

Related Classes of erjang.EString

  • erjang.beam.CompilerVisitor
  • erjang.driver.FDDriverInstance
  • erjang.m.erlang.ErlBif
  • erjang.m.erlang.ErlConvert
  • erjang.m.erlang.ErlPort
  • erjang.m.erlang.ErlProc
  • erjang.m.os.Native
  • erjang.m.prim_file.Native
  • erjang.m.re.Native
  • erjang.m.re.Native$Options
    • 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.