/// <summary> /// static void w_encoding(VALUE obj, long num, struct dump_call_arg *arg) /// </summary> /// <param name="obj"></param> /// <param name="num"></param> public void WriteEncoding(object obj, int num) { Encoding encidx = null; if (obj is RubyObject) { encidx = (obj as RubyObject).Encoding; } if (encidx == null) { WriteLong(num); return; } WriteLong(num + 1); if (encidx == Encoding.Default) { /* special treatment for US-ASCII and UTF-8 */ WriteSymbol(RubyMarshal.IDs.E); WriteObject(false); return; } else if (encidx == Encoding.UTF8) { WriteSymbol(RubyMarshal.IDs.E); WriteObject(true); return; } WriteSymbol(RubyMarshal.IDs.encoding); WriteObject(RubySymbol.GetSymbol(encidx.BodyName)); }
protected RubyModule(string s) { this.name = s; this.symbol = RubySymbol.GetSymbol(s); this.ClassName = RubySymbol.GetSymbol("Module"); modules.Add(s, this); }
public RubyString(byte[] raw) { this.raw = raw; this.encoding = Encoding.Default; this.setByRaw = true; this.ClassName = RubySymbol.GetSymbol("String"); }
public RubyString(byte[] raw, Encoding encoding) { this.raw = raw; this.encoding = encoding; this.setByRaw = true; this.ClassName = RubySymbol.GetSymbol("String"); }
protected RubyClass(string s) { this.name = s; this.symbol = RubySymbol.GetSymbol(s); this.ClassName = RubySymbol.GetSymbol("Class"); classes.Add(s, this); }
public RubyString(string unicodeText) { this.encoding = Encoding.Unicode; this.str = unicodeText; this.setByText = true; this.ClassName = RubySymbol.GetSymbol("String"); this.Encoding = Encoding.UTF8; }
/// <summary> /// static ID r_symreal(struct load_arg *arg, int ivar) /// </summary> /// <param name="ivar"></param> /// <returns></returns> public RubySymbol ReadSymbolReal(bool ivar) { byte[] s = ReadBytes(); int n = m_symbols.Count; RubySymbol id; Encoding idx = Encoding.UTF8; m_symbols.Add(n, null); if (ivar) { int num = ReadLong(); while (num-- > 0) { id = ReadSymbol(); idx = GetEncoding(id, ReadObject()); } } RubyString str = new RubyString(s, idx); id = RubySymbol.GetSymbol(str); m_symbols[n] = id; return(id); }
public object this[RubyString key] { get { return(this[RubySymbol.GetSymbol(key)]); } set { this[RubySymbol.GetSymbol(key)] = value; } }
public RubyFloat(float value) { Value = value; this.ClassName = RubySymbol.GetSymbol("Float"); }
public RubyArray(int capacity) { list = new List <object>(capacity); this.ClassName = RubySymbol.GetSymbol("Array"); }
public RubyArray(IEnumerable <object> collection) { list = new List <object>(collection); this.ClassName = RubySymbol.GetSymbol("Array"); }
public RubyRegexp(RubyString Pattern, RubyRegexpOptions Options) { this.Pattern = Pattern; this.Options = Options; this.ClassName = RubySymbol.GetSymbol("Regexp"); }
public RubyStruct() : base() { this.ClassName = RubySymbol.GetSymbol("Struct"); }
public RubyHash(object DefaultValue) : base() { this.defaultValue = DefaultValue; this.ClassName = RubySymbol.GetSymbol("Hash"); }
private RubyNil() { this.ClassName = RubySymbol.GetSymbol("NilClass"); }
/// <summary> /// static VALUE r_object0(struct load_arg *arg, int *ivp, VALUE extmod) /// </summary> /// <param name="hasivp"></param> /// <param name="ivp"></param> /// <param name="extmod"></param> /// <returns></returns> public object ReadObject0(bool hasivp, ref bool ivp, List <RubyModule> extmod) { object v = null; int type = ReadByte(); int id; object link; switch (type) { case RubyMarshal.Types.Link: id = ReadLong(); if (!this.m_objects.TryGetValue(id, out link)) { throw new InvalidDataException("dump format error (unlinked)"); } v = link; if (this.m_proc != null) { v = this.m_proc(v); } break; case RubyMarshal.Types.InstanceVariable: { bool ivar = true; v = ReadObject0(ref ivar, extmod); bool hasenc = false; if (ivar) { ReadInstanceVariable(v, ref hasenc); } } break; case RubyMarshal.Types.Extended: { RubyModule m = RubyModule.GetModule(ReadUnique()); if (extmod == null) { extmod = new List <RubyModule>(); } extmod.Add(m); v = ReadObject0(extmod); RubyObject fobj = v as RubyObject; if (fobj != null) { fobj.ExtendModules.AddRange(extmod); } } break; case RubyMarshal.Types.UserClass: { RubyClass c = RubyClass.GetClass(ReadUnique()); v = ReadObject0(extmod); if (v is RubyObject) { (v as RubyObject).ClassName = c.Symbol; } } break; case RubyMarshal.Types.Nil: v = RubyNil.Instance; v = Leave(v); break; case RubyMarshal.Types.True: v = true; v = Leave(v); break; case RubyMarshal.Types.False: v = false; v = Leave(v); break; case RubyMarshal.Types.Fixnum: v = ReadLong(); v = Leave(v); break; case RubyMarshal.Types.Float: { double d; RubyString fstr = ReadString(); string str = fstr.Text; if (str == "inf") { d = double.PositiveInfinity; } else if (str == "-inf") { d = double.NegativeInfinity; } else if (str == "nan") { d = double.NaN; } else { if (str.Contains("\0")) { str = str.Remove(str.IndexOf("\0")); } d = Convert.ToDouble(str); } v = new RubyFloat(d); v = Entry(v); v = Leave(v); } break; case RubyMarshal.Types.Bignum: { int sign = 0; switch (ReadByte()) { case 0x2b: sign = 1; break; case 0x2d: sign = -1; break; default: sign = 0; break; } int num3 = ReadLong(); int index = num3 / 2; int num5 = (num3 + 1) / 2; uint[] data = new uint[num5]; for (int i = 0; i < index; i++) { data[i] = m_reader.ReadUInt32(); } if (index != num5) { data[index] = m_reader.ReadUInt16(); } v = new RubyBignum(sign, data); v = Entry(v); v = Leave(v); } break; case RubyMarshal.Types.String: v = Entry(ReadString()); v = Leave(v); break; case RubyMarshal.Types.Regexp: { RubyString str = ReadString(); int options = ReadByte(); bool has_encoding = false; int idx = Prepare(); if (hasivp) { ReadInstanceVariable(str, ref has_encoding); ivp = false; } if (!has_encoding) { // TODO: 1.8 compatibility; remove escapes undefined in 1.8 /* * char *ptr = RSTRING_PTR(str), *dst = ptr, *src = ptr; * long len = RSTRING_LEN(str); * long bs = 0; * for (; len-- > 0; *dst++ = *src++) { * switch (*src) { * case '\\': bs++; break; * case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': * case 'm': case 'o': case 'p': case 'q': case 'u': case 'y': * case 'E': case 'F': case 'H': case 'I': case 'J': case 'K': * case 'L': case 'N': case 'O': case 'P': case 'Q': case 'R': * case 'S': case 'T': case 'U': case 'V': case 'X': case 'Y': * if (bs & 1) --dst; * default: bs = 0; break; * } * } * rb_str_set_len(str, dst - ptr); */ } v = Entry0(new RubyRegexp(str, (RubyRegexpOptions)options), idx); v = Leave(v); } break; case RubyMarshal.Types.Array: { int len = ReadLong(); RubyArray ary = new RubyArray(); v = ary; v = Entry(v); while (len-- > 0) { ary.Push(ReadObject()); } v = Leave(v); } break; case RubyMarshal.Types.Hash: case RubyMarshal.Types.HashWithDefault: { int len = ReadLong(); RubyHash hash = new RubyHash(); v = hash; v = Entry(v); while (len-- > 0) { object key = ReadObject(); object value = ReadObject(); hash.Add(key, value); } if (type == RubyMarshal.Types.HashWithDefault) { hash.DefaultValue = ReadObject(); } v = Leave(v); } break; case RubyMarshal.Types.Struct: { int idx = Prepare(); RubyStruct obj = new RubyStruct(); RubySymbol klass = ReadUnique(); obj.ClassName = klass; int len = ReadLong(); v = obj; v = Entry0(v, idx); while (len-- > 0) { RubySymbol key = ReadSymbol(); object value = ReadObject(); obj.InstanceVariable[key] = value; } v = Leave(v); } break; case RubyMarshal.Types.UserDefined: { RubySymbol klass = ReadUnique(); RubyString data = ReadString(); if (hasivp) { ReadInstanceVariable(data); ivp = false; } RubyUserdefinedDumpObject obj = new RubyUserdefinedDumpObject(); obj.ClassName = klass; obj.DumpedObject = data.Raw; v = obj; v = Entry(v); v = Leave(v); } break; case RubyMarshal.Types.UserMarshal: { RubySymbol klass = ReadUnique(); FuzzyUserdefinedMarshalDumpObject obj = new FuzzyUserdefinedMarshalDumpObject(); v = obj; if (extmod != null) { AppendExtendedModule(obj, extmod); } v = Entry(v); object data = ReadObject(); obj.ClassName = klass; obj.DumpedObject = data; v = Leave(v); if (extmod != null) { extmod.Clear(); } } break; case RubyMarshal.Types.Object: { int idx = Prepare(); RubyObject obj = new RubyObject(); RubySymbol klass = ReadUnique(); obj.ClassName = klass; v = obj; v = Entry0(v, idx); ReadInstanceVariable(v); v = Leave(v); } break; case RubyMarshal.Types.Class: { RubyString str = ReadString(); v = RubyClass.GetClass(RubySymbol.GetSymbol(str)); v = Entry(v); v = Leave(v); } break; case RubyMarshal.Types.Module: { RubyString str = ReadString(); v = RubyModule.GetModule(RubySymbol.GetSymbol(str)); v = Entry(v); v = Leave(v); } break; case RubyMarshal.Types.Symbol: if (hasivp) { v = ReadSymbolReal(ivp); ivp = false; } else { v = ReadSymbolReal(false); } v = Leave(v); break; case RubyMarshal.Types.SymbolLink: v = ReadSymbolLink(); break; case RubyMarshal.Types.Data: /* TODO: Data Support * { * VALUE klass = path2class(r_unique(arg)); * VALUE oldclass = 0; * * v = obj_alloc_by_klass(klass, arg, &oldclass); * if (!RB_TYPE_P(v, T_DATA)) { * rb_raise(rb_eArgError, "dump format error"); * } * v = r_entry(v, arg); * if (!rb_respond_to(v, s_load_data)) { * rb_raise(rb_eTypeError, "class %s needs to have instance method `_load_data'", rb_class2name(klass)); * } * rb_funcall(v, s_load_data, 1, r_object0(arg, 0, extmod)); * check_load_arg(arg, s_load_data); * v = r_leave(v, arg); * } */ case RubyMarshal.Types.ModuleOld: /* * TODO: ModuleOld Support * { * volatile VALUE str = r_bytes(arg); * v = rb_path_to_class(str); * v = r_entry(v, arg); * v = r_leave(v, arg); * } */ default: throw new InvalidDataException(string.Format("dump format error(0x{0:X2})", type)); } return(v); }
public RubyArray() { list = new List <object>(); this.ClassName = RubySymbol.GetSymbol("Array"); }