第六章 Caché 设计模式原型模式

定义

用原型实例指定创建对象的种类，并且通过拷贝这些原型创建新的对象。
原型模式其实就是从一个对象再创建另外一个可定制的对象，而且不需要知道任何创建的细节。

使用场景

使用原形模式可以解决复杂对象构建资源消耗的问题。也可以用来只读保护。注意其java里继承Cloneable接口。C#继承ICloneable接口。Caché 直接使用%ConstructClone()方法，克隆时不会走构造函数。

优点

一般在初始化的信息不发生变的情况下，克隆是最好的办法，这即隐藏了对象创建的细节，又对性能是大大的提高。
不用重新初始化对象，而是动态地获得对象运行时的状态。

结构图

描述

要求有一个简历类，必须要有姓名，可以设置性别和年龄，可以设置工作经历。最终需要三分简历。

示例

简历类

Class PHA.YX.Design.Prototype.Resume Extends %RegisteredObject
{

Property name As %String [ Private ];

Property sex As %String [ Private ];

Property age As %String [ Private ];

Property timeArea As %String [ Private ];

Property company As %String [ Private ];


Method %OnNew(name As %String) As %Status [ Private, ServerOnly = 1 ]
{
    s $this.name = name
    Quit $$$OK
}

Method SetPersonalInfo(sex As %String, age As %String)
{
    s $this.sex=sex
    s $this.age=age
}

Method SetWorkExperience(timeArea As %String, company As %String)
{
    s $this.timeArea=timeArea
    s $this.company=company
}

Method Display()
{
    w ..name _ " " _ ..sex _ " " _ ..age,!
    w "工作经历：" _ ..timeArea _ " " _ ..company,!
}

}

初级写法

/// d ##class(PHA.YX.Design.Program).PrototypeExamplePrimary() 
ClassMethod PrototypeExamplePrimary()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    
    s mResumeB = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeB.SetPersonalInfo("男","30")
    d mResumeB.SetWorkExperience("2015-2020","XX公司")
    
    s mResumeC = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeC.SetPersonalInfo("男","30")
    d mResumeC.SetWorkExperience("2015-2020","XX公司")
    
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

DHC-APP>d ##class(PHA.YX.Design.Program).PrototypeExamplePrimary()
姚鑫 男 30
工作经历：2015-2020 XX公司
姚鑫 男 30
工作经历：2015-2020 XX公司
姚鑫 男 30
工作经历：2015-2020 XX公司

缺点

三分简历需要实例化三次，如果需要一百份，就需要实例化一百次，徒增内存。

中级写法

/// d ##class(PHA.YX.Design.Program).PrototypeExampleIntermediate() 
ClassMethod PrototypeExampleIntermediate()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    
    # dim mResumeB as PHA.YX.Design.Prototype.Resume
    s mResumeB = mResumeA
    
    # dim mResumeC as PHA.YX.Design.Prototype.Resume
    s mResumeC = mResumeA
    
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

DHC-APP>d ##class(PHA.YX.Design.Program).PrototypeExampleIntermediate()
姚鑫 男 30
工作经历：2015-2020 XX公司
姚鑫 男 30
工作经历：2015-2020 XX公司
姚鑫 男 30
工作经历：2015-2020 XX公司

缺点

引用传值，改动其中一处其他复制实例一起改动。把mResumeB设置一下年龄，mResumeC设置一下公司。如下：

/// d ##class(PHA.YX.Design.Program).PrototypeExampleIntermediate() 
ClassMethod PrototypeExampleIntermediate()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    
    # dim mResumeB as PHA.YX.Design.Prototype.Resume
    s mResumeB = mResumeA
    d mResumeB.SetPersonalInfo("男","31")
    
    # dim mResumeC as PHA.YX.Design.Prototype.Resume
    s mResumeC = mResumeA
    d mResumeC.SetWorkExperience("2017-2020","SS公司")
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

运行结果

DHC-APP>d ##class(PHA.YX.Design.Program).PrototypeExampleIntermediate()
姚鑫 男 31
工作经历：2017-2020 SS公司
姚鑫 男 31
工作经历：2017-2020 SS公司
姚鑫 男 31
工作经历：2017-2020 SS公司

高级写法 (浅复制)

使用 .%ConstructClone()方法复制

/// d ##class(PHA.YX.Design.Program).PrototypeExampleSenior() 
ClassMethod PrototypeExampleSenior()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    
    # dim mResumeB as PHA.YX.Design.Prototype.Resume
    s mResumeB = mResumeA.%ConstructClone()
    d mResumeB.SetPersonalInfo("男","31")
    
    # dim mResumeC as PHA.YX.Design.Prototype.Resume
    s mResumeC =mResumeA.%ConstructClone()
    d mResumeC.SetWorkExperience("2017-2020","SS公司")
    
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

DHC-APP> d ##class(PHA.YX.Design.Program).PrototypeExampleSenior()
姚鑫 男 30
工作经历：2015-2020 XX公司
姚鑫 男 31
工作经历：2015-2020 XX公司
姚鑫 男 30
工作经历：2017-2020 SS公司

浅复制

如果字段是值类型的，则对该字段执行逐位复制，如果字段是引用类型，则复制引用但不复制引用的对象，因此原始对象及其副本引用统一对象。如下增加一个工作经验类的引用字段：

增加一个WorkExperience类

Class PHA.YX.Design.Prototype.WorkExperience Extends %RegisteredObject
{

Property workDate As %String [ Private ];

Method workDateGet() As %String [ ServerOnly = 1 ]
{
    Quit i%workDate
}

Method workDateSet(Arg As %String) As %Status [ ServerOnly = 1 ]
{
    s i%workDate = Arg
    Quit $$$OK
}

Property company As %String [ Private ];

Method companyGet() As %String [ ServerOnly = 1 ]
{
    Quit i%company
}

Method companySet(Arg As %String) As %Status [ ServerOnly = 1 ]
{
    s i%company = Arg
    Quit $$$OK
}

}

PHA.YX.Design.Prototype.Resume 增加一个work字段引用WorkExperience

Property work As WorkExperience [ Private ];

并且在构造方法初始化它

Method %OnNew(name As %String) As %Status [ Private, ServerOnly = 1 ]
{
    s $this.name = name
    s ..work = ##class(WorkExperience).%New()
    Quit $$$OK
}

给对象添加WorkExperience数据方法

Method CloneWorkExperience()
{
    s ..work = ..work.%ConstructClone()
}

输出也修改一下

Method Display()
{
    w ..name _ " " _ ..sex _ " " _ ..age,!
    w "工作经历：" _ ..timeArea _ " " _ ..company,!
    w "工作经历Object：" _ ..work.workDateGet() _ " " _ ..work.companyGet(),!
}

/// d ##class(PHA.YX.Design.Program).PrototypeExampleShallow() 
ClassMethod PrototypeExampleShallow()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    d mResumeA.SetWorkExperienceObject("2010-2011","腾讯")
    
    # dim mResumeB as PHA.YX.Design.Prototype.Resume
    s mResumeB = mResumeA.%ConstructClone()
    d mResumeB.SetPersonalInfo("男","31")
    d mResumeB.SetWorkExperienceObject("2011-2012","阿里")
    
    # dim mResumeC as PHA.YX.Design.Prototype.Resume
    s mResumeC =mResumeA.%ConstructClone()
    d mResumeC.SetWorkExperience("2017-2020","SS公司")
    d mResumeC.SetWorkExperienceObject("2012-2013","百度")
    
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

DHC-APP> d ##class(PHA.YX.Design.Program).PrototypeExampleShallow()
姚鑫 男 30
工作经历：2015-2020 XX公司
工作经历Object：2012-2013 百度
姚鑫 男 31
工作经历：2015-2020 XX公司
工作经历Object：2012-2013 百度
姚鑫 男 30
工作经历：2017-2020 SS公司
工作经历Object：2012-2013 百度

结果发现。引用的字段并没有重新复制。

深复制

我们在PHA.YX.Design.Prototype.Resume里给work属性，增加一个克隆方法。

Method CloneWorkExperience()
{
    s ..work = ..work.%ConstructClone()
}

/// d ##class(PHA.YX.Design.Program).PrototypeExampleDeep() 
ClassMethod PrototypeExampleDeep()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    d mResumeA.CloneWorkExperience()
    d mResumeA.SetWorkExperienceObject("2010-2011","腾讯")
    
    # dim mResumeB as PHA.YX.Design.Prototype.Resume
    s mResumeB = mResumeA.%ConstructClone()
    d mResumeB.SetPersonalInfo("男","31")
    d mResumeB.CloneWorkExperience()
    d mResumeB.SetWorkExperienceObject("2011-2012","阿里")
    
    # dim mResumeC as PHA.YX.Design.Prototype.Resume
    s mResumeC =mResumeA.%ConstructClone()
    d mResumeC.SetWorkExperience("2017-2020","SS公司")
    d mResumeC.CloneWorkExperience()
    d mResumeC.SetWorkExperienceObject("2012-2013","百度")
    
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

结果发现，把引用字段work的值也修改成功。

DHC-APP>d ##class(PHA.YX.Design.Program).PrototypeExampleDeep()
姚鑫 男 30
工作经历：2015-2020 XX公司
工作经历Object：2010-2011 腾讯
姚鑫 男 31
工作经历：2015-2020 XX公司
工作经历Object：2011-2012 阿里
姚鑫 男 30
工作经历：2017-2020 SS公司
工作经历Object：2012-2013 百度

完整示例

简历类(复制类)

Class PHA.YX.Design.Prototype.Resume Extends %RegisteredObject
{

Property name As %String [ Private ];

Property sex As %String [ Private ];

Property age As %String [ Private ];

Property timeArea As %String [ Private ];

Property company As %String [ Private ];

Property work As WorkExperience [ Private ];

Method %OnNew(name As %String) As %Status [ Private, ServerOnly = 1 ]
{
    s $this.name = name
    s ..work = ##class(WorkExperience).%New()
    Quit $$$OK
}

Method CloneWorkExperience()
{
    s ..work = ..work.%ConstructClone()
}

Method SetPersonalInfo(sex As %String, age As %String)
{
    s $this.sex=sex
    s $this.age=age
}

Method SetWorkExperience(timeArea As %String, company As %String)
{
    s $this.timeArea=timeArea
    s $this.company=company
}

Method SetWorkExperienceObject(workDate As %String, company As %String)
{
    d ..work.workDateSet(workDate)
    d ..work.companySet(company)
}

Method Display()
{
    w ..name _ " " _ ..sex _ " " _ ..age,!
    w "工作经历：" _ ..timeArea _ " " _ ..company,!
    w "工作经历Object：" _ ..work.workDateGet() _ " " _ ..work.companyGet(),!
}

}

对象类（工作经验类）

Class PHA.YX.Design.Prototype.WorkExperience Extends %RegisteredObject
{

Property workDate As %String [ Private ];

Method workDateGet() As %String [ ServerOnly = 1 ]
{
    Quit i%workDate
}

Method workDateSet(Arg As %String) As %Status [ ServerOnly = 1 ]
{
    s i%workDate = Arg
    Quit $$$OK
}

Property company As %String [ Private ];

Method companyGet() As %String [ ServerOnly = 1 ]
{
    Quit i%company
}

Method companySet(Arg As %String) As %Status [ ServerOnly = 1 ]
{
    s i%company = Arg
    Quit $$$OK
}

}

调用

/// d ##class(PHA.YX.Design.Program).PrototypeExamplePrimary() 
ClassMethod PrototypeExamplePrimary()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    
    s mResumeB = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeB.SetPersonalInfo("男","30")
    d mResumeB.SetWorkExperience("2015-2020","XX公司")
    
    s mResumeC = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeC.SetPersonalInfo("男","30")
    d mResumeC.SetWorkExperience("2015-2020","XX公司")
    
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

/// d ##class(PHA.YX.Design.Program).PrototypeExampleIntermediate() 
ClassMethod PrototypeExampleIntermediate()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    
    # dim mResumeB as PHA.YX.Design.Prototype.Resume
    s mResumeB = mResumeA
    d mResumeB.SetPersonalInfo("男","31")
    
    # dim mResumeC as PHA.YX.Design.Prototype.Resume
    s mResumeC = mResumeA
    d mResumeC.SetWorkExperience("2017-2020","SS公司")
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

/// d ##class(PHA.YX.Design.Program).PrototypeExampleSenior() 
ClassMethod PrototypeExampleSenior()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    
    # dim mResumeB as PHA.YX.Design.Prototype.Resume
    s mResumeB = mResumeA.%ConstructClone()
    d mResumeB.SetPersonalInfo("男","31")
    
    # dim mResumeC as PHA.YX.Design.Prototype.Resume
    s mResumeC =mResumeA.%ConstructClone()
    d mResumeC.SetWorkExperience("2017-2020","SS公司")
    
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

/// d ##class(PHA.YX.Design.Program).PrototypeExampleShallow() 
ClassMethod PrototypeExampleShallow()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    d mResumeA.SetWorkExperienceObject("2010-2011","腾讯")
    
    # dim mResumeB as PHA.YX.Design.Prototype.Resume
    s mResumeB = mResumeA.%ConstructClone()
    d mResumeB.SetPersonalInfo("男","31")
    d mResumeB.SetWorkExperienceObject("2011-2012","阿里")
    
    # dim mResumeC as PHA.YX.Design.Prototype.Resume
    s mResumeC =mResumeA.%ConstructClone()
    d mResumeC.SetWorkExperience("2017-2020","SS公司")
    d mResumeC.SetWorkExperienceObject("2012-2013","百度")
    
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

/// d ##class(PHA.YX.Design.Program).PrototypeExampleDeep() 
ClassMethod PrototypeExampleDeep()
{
    s mResumeA = ##class(PHA.YX.Design.Prototype.Resume).%New("姚鑫")
    d mResumeA.SetPersonalInfo("男","30")
    d mResumeA.SetWorkExperience("2015-2020","XX公司")
    d mResumeA.CloneWorkExperience()
    d mResumeA.SetWorkExperienceObject("2010-2011","腾讯")
    
    # dim mResumeB as PHA.YX.Design.Prototype.Resume
    s mResumeB = mResumeA.%ConstructClone()
    d mResumeB.SetPersonalInfo("男","31")
    d mResumeB.CloneWorkExperience()
    d mResumeB.SetWorkExperienceObject("2011-2012","阿里")
    
    # dim mResumeC as PHA.YX.Design.Prototype.Resume
    s mResumeC =mResumeA.%ConstructClone()
    d mResumeC.SetWorkExperience("2017-2020","SS公司")
    d mResumeC.CloneWorkExperience()
    d mResumeC.SetWorkExperienceObject("2012-2013","百度")
    
    d mResumeA.Display()
    d mResumeB.Display()
    d mResumeC.Display()
}

思考

用深复制实现，Java，Python，C#，连接Caché数据库（有连接属性，连接时间），Caché数据库持有SQL数据库连接（有连接属性，连接时间）。感兴趣的同学实现后可以发我一起参考下。

人面猴
序言：七十年代末，一起剥皮案震惊了整个滨河市，随后出现的几起案子，更是在滨河造成了极大的恐慌，老刑警刘岩，带你破解...
沈念sama阅读 204,732评论 6赞 478
死咒
序言：滨河连续发生了三起死亡事件，死亡现场离奇诡异，居然都是意外死亡，警方通过查阅死者的电脑和手机，发现死者居然都...
沈念sama阅读 87,496评论 2赞 381
救了他两次的神仙让他今天三更去死
文/潘晓璐我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
开封第一讲书人阅读 151,264评论 0赞 338
道士缉凶录：失踪的卖姜人
文/不坏的土叔我叫张陵，是天一观的道长。经常有香客问我，道长，这世上最难降的妖魔是什么？我笑而不...
开封第一讲书人阅读 54,807评论 1赞 277
港岛之恋（遗憾婚礼）
正文为了忘掉前任，我火速办了婚礼，结果婚礼上，老公的妹妹穿的比我还像新娘。我一直安慰自己，他们只是感情好，可当我...
茶点故事阅读 63,806评论 5赞 368
恶毒庶女顶嫁案：这布局不是一般人想出来的
文/花漫我一把揭开白布。她就那样静静地躺着，像睡着了一般。火红的嫁衣衬着肌肤如雪。梳的纹丝不乱的头发上，一...
开封第一讲书人阅读 48,675评论 1赞 281
城市分裂传说
那天，我揣着相机与录音，去河边找鬼。笑死，一个胖子当着我的面吹牛，可吹牛的内容都是我干的。我是一名探鬼主播，决...
沈念sama阅读 38,029评论 3赞 399
双鸳鸯连环套：你想象不到人心有多黑
文/苍兰香墨我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
开封第一讲书人阅读 36,683评论 0赞 258
万荣杀人案实录
序言：老挝万荣一对情侣失踪，失踪者是张志新（化名）和其女友刘颖，没想到半个月后，有当地人在树林里发现了一具尸体，经...
沈念sama阅读 41,704评论 1赞 299
护林员之死
正文独居荒郊野岭守林人离奇死亡，尸身上长有42处带血的脓包…… 初始之章·张勋以下内容为张勋视角年9月15日...
茶点故事阅读 35,666评论 2赞 321
白月光启示录
正文我和宋清朗相恋三年，在试婚纱的时候发现自己被绿了。大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
茶点故事阅读 37,773评论 1赞 332
活死人
序言：一个原本活蹦乱跳的男人离奇死亡，死状恐怖，灵堂内的尸体忽然破棺而出，到底是诈尸还是另有隐情，我是刑警宁泽，带...
沈念sama阅读 33,413评论 4赞 321
日本核电站爆炸内幕
正文年R本政府宣布，位于F岛的核电站，受9级特大地震影响，放射性物质发生泄漏。R本人自食恶果不足惜，却给世界环境...
茶点故事阅读 39,016评论 3赞 307
男人毒药：我在死后第九天来索命
文/蒙蒙一、第九天我趴在偏房一处隐蔽的房顶上张望。院中可真热闹，春花似锦、人声如沸。这庄子的主人今日做“春日...
开封第一讲书人阅读 29,978评论 0赞 19
一桩弑父案，背后竟有这般阴谋
文/苍兰香墨我抬头看了看天上的太阳。三九已至，却和暖如春，着一层夹袄步出监牢的瞬间，已是汗流浃背。一阵脚步声响...
开封第一讲书人阅读 31,204评论 1赞 260
情欲美人皮
我被黑心中介骗来泰国打工，没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留，地道东北人。一个月前我还...
沈念sama阅读 45,083评论 2赞 350
代替公主和亲
正文我出身青楼，却偏偏与公主长得像，于是被迫代替她去往敌国和亲。传闻我的和亲对象是个残疾皇子，可洞房花烛夜当晚...
茶点故事阅读 42,503评论 2赞 343

第六章 Caché 设计模式 原型模式

第六章 Caché 设计模式 原型模式

定义

使用场景

优点

结构图

描述

示例

初级写法

缺点

中级写法

缺点

高级写法 (浅复制)

浅复制

深复制

完整示例

简历类(复制类)

对象类（工作经验类）

调用

思考

推荐阅读更多精彩内容

第六章 Caché 设计模式原型模式

第六章 Caché 设计模式原型模式