2

このスタブから始めたとしましょう：

[<Serializable>]
type Bounderizer =
val mutable _boundRect : Rectangle

new (boundRect : Rectangle) = { _boundRect = boundRect ; }
new () = { _boundRect = Rectangle(0, 0, 1, 1); }
new (info:SerializationInfo, context:StreamingContext) =
    { // to do
    }

interface ISerializable with
    member this.GetObjectData(info, context) =
        if info = null then raise(ArgumentNullException("info"))
        info.AddValue("BoundRect", this._boundRect)

    // TODO - add BoundRect property

問題は、仕様に「一般に、クラスが封印されていない場合、このコンストラクターは保護されるべきである」と書かれていることです。F＃には保護されたキーワードがありません-では、どうすればこれを行うことができますか？

制約（APIレベルで既存のC＃クラスと完全に一致する必要があるため）：

  1. ISerializableを実装する必要があります
  2. コンストラクターを保護する必要があります

編集-興味深い追加情報F＃仕様では、保護された関数をオーバーライドすると、結果の関数が保護されるとされています。これは正しくありません。アクセシビリティを指定しない場合、結果のオーバーライドは（契約を破る）何があっても公開されます。

4

3 に答える 3

2

現在、この言語をそのまま使用してこれを行うことはできません。これを行うことは可能であり、私には2つの方法があります。

1つ目は、ILDASMを介して出力アセンブリを実行し、目的のメソッド宣言に正規表現し、目的のメソッドで「public」を「family」に変更してから、ILASMに戻します。Ewwwww。

私が調査している2つ目は、メソッドにタグを付けることです。

[<Protected>]

次に、 CCIを使用してフィルターを作成し、ProtectedAttributeを持つすべてのメソッドのアクセシビリティを変更してから、属性を削除します。これは、ファイルに対して正規表現を実行するよりも見苦しいことではないようですが、動作中のセキュリティ設定はCCIプロジェクトソースを深刻に嫌っているため、正常にフェッチ/解凍/ビルドできません。

編集-これが私の解決策です-私はCCIを試しましたが、タスクの準備ができていません。最終的にCecilを使用し、次のコードを使用することになりました。

最初にF＃の属性

オープンシステム

[<AttributeUsage(AttributeTargets.Method ||| AttributeTargets.Constructor, AllowMultiple=false, Inherited=true)>]
type MyProtectedAttribute() =
    inherit System.Attribute()

次に、 Cecilのクライアントである次のアプリ：

using System;
using System.Collections.Generic;
using System.Data.Linq;
using System.Text;
using Mono.Cecil;
using Mono.Collections.Generic;
using System.IO;

namespace AddProtectedAttribute
{
    class Program
    {
        static void Main(string[] args)
        {
            if (args.Length != 1 || args.Length != 3)
            {
                Console.Error.WriteLine("Usage: AddProtectedAttribute assembly-file.dll /output output-file.dll");
                return;
            }

            string outputFile = args.Length == 3 ? args[2] : null;

            ModuleDefinition module = null;
            try
            {
                module = ModuleDefinition.ReadModule(args[0]);
            }
            catch (Exception err)
            {
                Console.Error.WriteLine("Unable to read assembly " + args[0] + ": " + err.Message);
                return;
            }

            foreach (TypeDefinition type in module.Types)
            {
                foreach (MethodDefinition method in type.Methods)
                {
                    int attrIndex = attributeIndex(method.CustomAttributes);
                    if (attrIndex < 0)
                        continue;
                    method.CustomAttributes.RemoveAt(attrIndex);
                    if (method.IsPublic)
                        method.IsPublic = false;
                    if (method.IsPrivate)
                        method.IsPrivate = false;
                    method.IsFamily = true;
                }
            }

            if (outputFile != null)
            {
                try
                {
                    module.Write(outputFile);
                }
                catch (Exception err)
                {
                    Console.Error.WriteLine("Unable to write to output file " + outputFile + ": " + err.Message);
                    return;
                }
            }
            else
            {
                outputFile = Path.GetTempFileName();
                try
                {
                    module.Write(outputFile);
                }
                catch (Exception err)
                {
                    Console.Error.WriteLine("Unable to write to output file " + outputFile + ": " + err.Message);
                    if (File.Exists(outputFile))
                        File.Delete(outputFile);
                    return;
                }
                try
                {
                    File.Copy(outputFile, args[0]);
                }
                catch (Exception err)
                {
                    Console.Error.WriteLine("Unable to copy over original file " + outputFile + ": " + err.Message);
                    return;
                }
                finally
                {
                    if (File.Exists(outputFile))
                        File.Delete(outputFile);
                }
            }
        }

        static int attributeIndex(Collection<CustomAttribute> coll)
        {
            if (coll == null)
                return -1;
            for (int i = 0; i < coll.Count; i++)
            {
                CustomAttribute attr = coll[i];
                if (attr.AttributeType.Name == "MyProtectedAttribute")
                    return i;
            }
            return -1;
        }
    }
}

最後に、保護するメソッドをMyProtectedAttributeで装飾し、ビルド後の手順としてC＃アプリを実行します。

于 2010-07-24T10:19:16.570 に答える
1

実際、保護された修飾子は強制ではありませんが、推奨事項です

デシリアライズ中に、SerializationInfoは、この目的のために提供されたコンストラクターを使用してクラスに渡されます。オブジェクトが逆シリアル化されると、コンストラクターに課せられた可視性の制約はすべて無視されます。そのため、クラスをパブリック、保護、内部、またはプライベートとしてマークできます。

したがって、これは機能するはずです。

[<Serializable>]
type Bounderizer =
    val mutable _boundRect : Rectangle

    new (boundRect : Rectangle) = { _boundRect = boundRect ; }
    new () = { _boundRect = Rectangle(0, 0, 1, 1); }
    private new (info:SerializationInfo, context:StreamingContext) =
        Bounderizer(info.GetValue("BoundRect", typeof<Rectangle>) :?> Rectangle)
        then
            printfn "serialization ctor"

    interface ISerializable with
        member this.GetObjectData(info, context) =
            if info = null then raise(ArgumentNullException("info"))
            info.AddValue("BoundRect", this._boundRect)

    override this.ToString() = this._boundRect.ToString()

let x = Bounderizer(Rectangle(10, 10, 50, 50))
let ms = new MemoryStream()
let f = new BinaryFormatter()
f.Serialize(ms, x)
ms.Position <- 0L
let y = f.Deserialize(ms) :?> Bounderizer
printfn "%O" y
(*
serialization ctor
{X=10,Y=10,Width=50,Height=50}
*)
于 2010-07-23T21:03:52.980 に答える
1

残念ながら、F# には保護されたメンバーがありません。これについては、将来のバージョンで検討します。

于 2010-07-23T20:52:41.603 に答える