From d39bfe6a694b6ef36b57838dc6a84c4bbe992c72 Mon Sep 17 00:00:00 2001
From: "farhanjk@gmail.com" <farhanjk@gmail.com>
Date: Fri, 3 Jan 2014 20:18:00 -0400
Subject: [PATCH] Added decorator

---
 README.md                                 |   2 +-
 structural/decorator/decorator_main       | Bin 0 -> 14888 bytes
 structural/decorator/decorator_main.f90   |  35 +++++++++++++
 structural/decorator/decorator_module.f90 |  61 ++++++++++++++++++++++
 4 files changed, 97 insertions(+), 1 deletion(-)
 create mode 100755 structural/decorator/decorator_main
 create mode 100644 structural/decorator/decorator_main.f90

diff --git a/README.md b/README.md
index 4135831..d06bf9f 100644
--- a/README.md
+++ b/README.md
@@ -19,7 +19,7 @@ Tested on: GNU Fortran (GCC) 4.8.
 - [X] Bridge
 - [X] Composite
 - [X] Criteria
-- [ ] Decorator
+- [X] Decorator
 - [ ] Façade
 - [ ] Flyweight
 - [ ] Proxy
diff --git a/structural/decorator/decorator_main b/structural/decorator/decorator_main
new file mode 100755
index 0000000000000000000000000000000000000000..257ff42eb76443a421cf33f30d17dc8cf197adf0
GIT binary patch
literal 14888
zcmeHOeQX@X6`#BFCWd?+fs~MxvY@1dra9YjoP@Nl&WTM9kr2lpDD*>{^W8eW_Izjd
z)=5kYHH8Z~jzdNwMM^(N`XLGeL8DMmL>miG4UJM##7C=E$Za89T2LbdRhkCe-<z4e
z-P^mf9r{<*n`C$1oA=&t-n^Ney?wiW`Rsci&t%NwV{F*V7`qrp9~#n31;yB9I6^oy
zt-WPq+n3uqwoq$v@f5RVIl@_n4m7Q+ZCh8d3b$8_+hq3)t}q413@O$$Q{Qdcx^BF^
z^D!9GuN6AP7nK?|?Bq2qWe)bF3Qcaj`xXhj)l$RaErVK#XZuHZTAv;t&<!ZL@m`R4
zUzY&HQ``%s#J@<&G-8PzQo)T^zgYM;OM(!Oxh#|-Y_w`xB$-Ir0d(U9FBf>nBm(gi
z|4K#E^ggZE2>0tk!;R<vjKDiB7YXrB|J=CtI%#d`YH>(afy4Z=4LmQBr*%TO_B<rw
zT571jCmGiUOatRCk7vQrdUN_kI2Yisil)WGli~SQ;U8TqRET%tk$<yDAWP{y6#KVb
z6?l26PyFQb(3487lFF#u<88lE;00|JR^y;O4w^_!8yM6akZ!yYiC2gpY$nIMH7OzM
z1%B~(4@f-sdL>;dZvX6kY18#L-q6;1y|t$Ro$FeT@!qiaTqtm89-LTLVc+8_IFX4T
z^+KV_&&$A{2DPw(v1edN{*k<|kueqZGfj*QVBj>j?Kr5=+M&ab<5M_f*Pu#EAM7tF
zZDw=Prs9~5qi!%|)Wu^xb<v@C6g(AN=G>1zJb%%;Czh<Kdm{Gz*Ro$)asLvuQ@`v2
z^orwi7Ef&`%P?N@KkXbOc<N_64r&&2K(kpR`%Xr}@wyFqJRUaccJw9<(+DT(Rt44u
zR@y8%h{F;G8Ut`Q)&mqOgufPth41k^jt)Hb*r3`ulrr`Hz<Q@4*==*!iP^L4&d0Av
zL`wx4EbP+p(yI6bxVH?3qy1sCFHmnm1BbEC;-Gmru~O96NPZkVmE|}{PW)bKsFrF3
zsu8G0pc;W{1ga6JMxYvjY6Sj|BG4VmydApZU3&HijVXud@dqW8Qx@aNDwI(kLkk3t
z*aEK*{8$JM*n(4d@`1&EA$ZUhoDhQhNsv`Ks7jB{+c!Gz7o(ZcJI6igQS*vWZoy@>
z5agP!;#G4es%OZTypCtbqx6)JPlG}aegSlW1bV;;G&_`Q4#G5l4e92T5AeVNlegz^
z?j&*9;KERL!7*ydydKK@W8wt#8mQMyy7uFViLtaF=LP6+EX_a-bE*auJzR!zyfKs+
z%fAU;vPY0kBIkAFE=csUEh6>^u~|i<KC?j;K5hbuj<ZUH+RBCF5FbF(#k^`hj7o&#
zCSV<<N0|IhLd_^wa#UrJ1S$zf15ERaga;o|0LEZU6~zg4PT3-YG|r=={G3+{4)Mme
z)1gfF8R#tMtrWUBPZF8yhUB-Q%o{v>?{ili;iKoxDZ=*<@+wyNF6E9ikw+A-5nDv;
zH;K(ELE!?0Zv{vmzDuaBT=*U#k8(|~a-`<R!HMu)iUzTo){rQpyh7_as~n>WKqcXO
zA8PqO;-MKqI4M^0!=#&2eoq`<O>=U*#SxOMvR?w0tn-b+vvtC=&VpyRp${>!KcL<+
z$~HpCDqAH`iD%o$vli0LDxW8%l8N0Z{Jm5F<+;BL#C6&>j)~1<6dm>`-XSvA4M|~Q
zFXKUSOzfwpp4eX_0cTCDye@91F=Hm5wnfDLh}f*MOSqt7Vxu7W#4e|{^ynb%3=`a{
zsa-_u7F1#`ZxH5`=pnT2#EvQN$^0S4M%M}g`3_x`S>+5>60(a=Xwyf$YQC-jd4@K^
zta4ml$8!Ya5gXDcAP)=3ryP(;0r{waTwH+sserskLLL!Y?JgVgNg7v1xkW(s2uO1t
z+_*{F>=6)a9HQk?^bH}J?GRA{mEzGZM1Q7>3VSR8z9uiQCWu~oo^SqlzU$B2b}p0|
zJRQn*pU$>{d>zIgV#mex^A<*P6dMT3{|ycK<NunN;IWs+ncL0?%gwNEI}^&b*M_p_
z+!M-dt^Jzl;Es1G2_4G(av`?RP&O?pL^%juY=+r=qGi6dnarRFX41=`K9;V>c^zMK
zDyU&jEdhmTphZTFG}aF8E@zKmIgsmjaG0_D23tg$0kFm1m-REJe4FOp=?0~F$9NaR
zoGRnSG2XRs0~Z~+Q6t@W))tW)4}+bS8+=7N-Kc}*6mGQIeI3DFlHAzKM>Cd3-qRU3
z73@pTPb~cw*5Jg_+xdBzpTEP;ck%Nce%{N^_we(*IB&{b-i)fHb7JWV)FXYsVy8|{
zOic9AWq;~VM17H{SBScas27Q%*FL9yMO2Qc!$dts)T2bbPSgRS{zBAuK`|DI8IicI
zrTW4HI$BwaiInAli5E1gnN-8^I8u_P4#LpG(V;>^RNWaiV&R^+u3o(~bv4<k@mNAv
zSJtb^UbQy{K~#?<jj)+CwEl1`5$L_Pp6~@?ESXSuB?seCRo@-a^{Cpf_a}`ZVD!gK
zR>soMqeZS3`fHr5KSPh0;lvKd01I}jC%221no@Y|aju!nz7R(WVryH=rcGNmv~;zp
zg9$65QCHj=8>Ye&@oii=O}$Cu;s|guIvCgG<Y0Uo_<B%x#mqi6ku>_lakVFDM0I1G
zQ-ayBnmeoz3mb=o$BV8Qy3JSxn*_4bmCO8%Cn^gak`8#Vo;%iRgm<Z8ZE&(Maa`Ma
z7vZ_JgL!uQJ^tA<Ye(P!?KyPI-Sz=41C)<&q482f-p%#z@z#*nb7s_>fdocE%I&&9
zUw&5DHOqEZVz(9&+iog9E|hpnD&k#Hgh&39AOFOSgUbGjcKb@~?nTQs*&pp<yp;Hl
zo1Mdd>hA>{0ckhHjc_WlGtp>|o9xcvNPdF;R$(gI&a*#sRa9QZj!856rmXX_eqYw-
zWIY2fph(Xz>qW9&B5Mou=)Zr1TRdZ<^1ZV4o^Kd0@W}o?SzG$<dbF1|ZrlFgmBMbO
z^kadn-F6oLtaqJ<9#T|kXT7(4ZlS<ADQipLUB~Wzjjwdef498KS0hl3Ks5r@2vj3b
zjX*U5)d*B0P>nz}0@VmqBk;cvfs3y4-@Lx7mHurdf9D73BUAoSyw(#-Ad$tk8f=6a
z{)>W|W_{eLB~zMi7)dT!SR^q96K1Sm7h)}JlC4^#k<v{qZ0typWLb$MiDW9iP$yx1
zvC!0Z88K5Q$=b3KEt*Vlaj-~CAFHN%bwi8vg^h5;1XTbE%@5-1b)8$agGT-i8C-P1
zJQ}{Y_G-*e$ynCHy#0NezFUtBnmWGj4^v>8HFsW6+q|V!W7ko}!^hJ2WZ0`|tTT#?
z8+*gUe39h9P^k_3iD#!7?kOX9$Q#vrwOAr%mJy!yGH-{@4tqqRk!8V0d0x8U6??@a
z^SNxF*T<fNLq5t>BI)Q-+~XA)K{n#G^MU(ebFu*=8E(YsK04jK3a5QYQu#W02K;HS
z?EOXZ<v0vRzu>X^{}2u1L4?6_<L@Odo`%YS7NCyP>A-p@1L+>0#C_aXI;x-fEVx5H
z9~;>~c62(p0pHRt{b*M6lKq~!Ln2dm_RZOpzqt#Cm9YfLQ%{s?<GCr+R>rjk^jBen
ziawR*dh~{e^kz9eQ3lI=)72wo0+@@0m-Y84^loS_JQ|UCF{H8BTr^tW>93IdcA2-r
z(71d+@;6I<Sn~9@Ci8%A<<%aMyp<>WtK_Y`*HY-t!!WIU+;+(ylz2ZR9&e7UeA!#X
zBgMI06+u~y0TF*d^4*djm;8goV|-TL?6{O$dAQk#IQeVk|LP=f<@35FZ{_Fi<~(Kc
zME~ED^0ds~9Rv?J{1@dZ7ymmK|F(-i=i>cX2~NCgT>NIiV^pGay7;fSc=|g4`nUk@
z^1rE~`9`Xg=hU$T82&7VQN|i2I2~P;X`5TFzY*JuCU?xh>OjM_YZ{p*u4M6wD$ua@
z+Eq*|T+?=I6SWq-BO=|^ytRz_8vI2_=_W+m9sMOsxou5ez~^h$VZ9$Y?+)>b!?mkb
z?z{57I;Go{O{e4fWY*Jnzx@4TO4rMqO~>s@mjA8G;x1Bop33*jt?au@C3Cv(ii@G*
zS|XLgYM)fA{C!i?N`Dsc*SEkb{jua|EBTq^kQII)x!SCsM$TsIM^TwJ@pH%_sQ5!j
P`~<Ro{FM9vq)q8R7JKh0

literal 0
HcmV?d00001

diff --git a/structural/decorator/decorator_main.f90 b/structural/decorator/decorator_main.f90
new file mode 100644
index 0000000..b1b7ed0
--- /dev/null
+++ b/structural/decorator/decorator_main.f90
@@ -0,0 +1,35 @@
+!Copyright (c) 2013 Farhan J. Khan
+!THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+!IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+!FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+!COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+!IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+!CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+!Main Program
+program decorator_main
+	use decorator_module
+	implicit none
+	
+ 	class(shape), allocatable :: circle_shape
+	class(shape), allocatable :: rectangle_shape
+ 	class(shape), allocatable :: redCircle_shape
+ 	class(shape), allocatable :: redRectangle_shape
+	type(circle) :: theCircle
+ 	
+ 	allocate(circle_shape, source=theCircle)
+ 	print *, 'Circle with normal border:'
+ 	call circle_shape%draw
+ 	allocate(redCircle_shape, source=redShapeDecorator(circle_shape))
+	print *, 'Circle with red border:'
+	call redCircle_shape%draw
+	allocate(rectangle_shape, source=rectangle())
+	allocate(redRectangle_shape, source = redShapeDecorator(rectangle_shape))
+	print *, 'Rectangle with red border:'
+	call redRectangle_shape%draw
+	
+ 	deallocate(circle_shape)
+ 	deallocate(redCircle_shape)
+ 	deallocate(redRectangle_shape)
+	
+end program decorator_main
\ No newline at end of file
diff --git a/structural/decorator/decorator_module.f90 b/structural/decorator/decorator_module.f90
index e69de29..e226b3a 100644
--- a/structural/decorator/decorator_module.f90
+++ b/structural/decorator/decorator_module.f90
@@ -0,0 +1,61 @@
+!Copyright (c) 2013 Farhan J. Khan
+!THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+!IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+!FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+!COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+!IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+!CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+!Module for defining decorator
+module decorator_module
+	implicit none
+	
+	type, abstract :: shape
+	contains
+		procedure(drawInterface), deferred :: draw
+	end type shape
+	abstract interface
+		subroutine drawInterface(this)
+			import shape
+			class(shape), intent(in) :: this
+		end subroutine 
+	end interface
+	
+	type, extends(shape) :: rectangle
+	contains
+		procedure :: draw => drawRectangle
+	end type rectangle
+	
+	type, extends(shape) :: circle
+	contains
+		procedure :: draw => drawCircle
+	end type circle
+
+	type, extends(shape), abstract :: shapeDecorator
+	end type shapeDecorator
+	
+	type, extends(shapeDecorator) :: redShapeDecorator
+		class(shape), pointer :: decoratedShape
+	contains
+		procedure :: draw => drawWithRedShapeDecorator
+	end type redShapeDecorator
+	
+contains
+	
+	subroutine drawRectangle(this)
+		class(rectangle), intent(in) :: this
+		print *, "Draw rectangle"
+	end subroutine 
+	
+	subroutine drawCircle(this)
+		class(circle), intent(in) :: this
+		print *, "Draw circle"
+	end subroutine 
+
+	subroutine drawWithRedShapeDecorator(this)
+		class(redShapeDecorator), intent(in) :: this
+		call this%decoratedShape%draw
+		print *, "Red Border"
+	end subroutine 
+
+end module decorator_module
\ No newline at end of file