Exemple #1
0
        public static bool PrimitiveObjectSetType(out object answer, object arg0, object arg1)
        {
            TC newType = (TC)(int)arg0;

            switch (newType)
            {
            case TC.CONSTANT:
                answer = Constant.Decode((uint)(int)arg1);
                break;

            case TC.FIXNUM:
                answer = (arg1 == null) ? 9
                        : (arg1 is SchemeObject) ? (int)((SchemeObject)arg1).GetHashCode()
                        : arg1.GetHashCode();
                break;

            case TC.MANIFEST_NM_VECTOR:
                answer = arg1;
                break;

            case TC.MANIFEST_SPECIAL_NM_VECTOR:
                answer = new ManifestSpecialNMVector((int)arg1);
                break;

            case TC.NON_MARKED_VECTOR:
                answer = new NonMarkedVector(arg1);
                break;

            case TC.REFERENCE_TRAP:
                answer = ReferenceTrap.Make(arg1);
                break;

            case TC.VECTOR:
                answer = ((NonMarkedVector)arg1).contents;
                break;

            default:
                throw new NotImplementedException();
            }
            return(false);
        }
        public static bool PrimitiveObjectSetType(out object answer, object arg0, object arg1)
        {
            TC newType = (TC) (int) arg0;
            switch (newType) {

                case TC.CONSTANT:
                    answer = Constant.Decode ((uint) (int) arg1);
                    break;

                case TC.FIXNUM:
                    answer = (arg1 == null) ? 9
                        : (arg1 is SchemeObject) ? (int)((SchemeObject)arg1).GetHashCode()
                        : arg1.GetHashCode();
                    break;

                case TC.MANIFEST_NM_VECTOR:
                    answer = arg1;
                    break;

                case TC.MANIFEST_SPECIAL_NM_VECTOR:
                    answer = new ManifestSpecialNMVector ((int) arg1);
                    break;

                case TC.NON_MARKED_VECTOR:
                    answer = new NonMarkedVector (arg1);
                    break;

                case TC.REFERENCE_TRAP:
                    answer = ReferenceTrap.Make (arg1);
                    break;

                case TC.VECTOR:
                    answer = ((NonMarkedVector) arg1).contents;
                    break;

                default:
                    throw new NotImplementedException ();
            }
            return false;
        }