From 910ac21b22c3a492b3d26c5027b19b6c194b2d76 Mon Sep 17 00:00:00 2001
From: babaq <fff008@gmail.com>
Date: Sat, 17 Oct 2009 15:27:37 +0800
Subject: [PATCH] Basic Server Script

---
 Release/BasicServer.fsx |  55 ++++++++++++++++++++++++++++++++++++++++
 StiLib.suo              | Bin 54272 -> 59920 bytes
 2 files changed, 55 insertions(+)
 create mode 100644 Release/BasicServer.fsx

diff --git a/Release/BasicServer.fsx b/Release/BasicServer.fsx
new file mode 100644
index 0000000..75db784
--- /dev/null
+++ b/Release/BasicServer.fsx
@@ -0,0 +1,55 @@
+// F# Script File : BasicServer.fsx
+//
+// StiLib Basic Server In F# Scripting
+//
+// Copyright (c) 2009-10-17 Zhang Li
+
+#r @"StiLib.dll"
+#r @"Microsoft.Xna.Framework.dll"
+#r @"System.ServiceModel"
+
+open System
+open System.Windows.Forms
+open Microsoft.Xna.Framework.Graphics
+open StiLib.Core
+open StiLib.Vision
+open System.ServiceModel
+open System.ServiceModel.Description
+
+// Our Custom Experiment Server is inherited from StiLib.Core.ExService
+[<ServiceBehavior(InstanceContextMode = InstanceContextMode.Single, ConcurrencyMode = ConcurrencyMode.Reentrant)>]
+type MyEx = class
+    inherit ExService
+    // Our Stimulus
+    val mutable text: Text
+    val mutable grating: Grating
+    // Init Experiment
+    new() as this = 
+        { inherit ExService(800, 600, 0, true, true); grating = null; text = null }
+        then
+        this.text <- new Text(this.GraphicsDevice, this.Services, this.SLConfig.["content"], "SegoeUI")
+        this.grating <- new Grating(this.GraphicsDevice, this.Services, this.SLConfig.["content"])
+    // Override methods to custom your own experiment logic
+    override this.Draw() = 
+        this.GraphicsDevice.Clear(Color.Gray)
+        if this.GO_OVER = true then
+            this.grating.Draw(this.GraphicsDevice)
+        else
+            this.text.Draw()
+end
+
+let MyExperiment = new MyEx(Text = "BasicServer In F# Scripting")
+
+// Server Hosting
+let Host = new ServiceHost(MyExperiment, new Uri("net.tcp://zhangli:8080/ExServer"))
+Host.AddServiceEndpoint(typeof<IExService>, new NetTcpBinding(SecurityMode.None), "")
+
+let mutable metabehavior = new ServiceMetadataBehavior()
+metabehavior.HttpGetEnabled <- false
+Host.Description.Behaviors.Add(metabehavior)
+Host.AddServiceEndpoint(typeof<IMetadataExchange>, MetadataExchangeBindings.CreateMexTcpBinding(), "mex")
+
+// Run Host
+Host.Open()
+Application.Run(MyExperiment)
+Host.Close
\ No newline at end of file
diff --git a/StiLib.suo b/StiLib.suo
index 8ef11b5bef339321202b85d47f2c48cc0c6d7a11..04b86137b7f9505ee76418cc1ae725f79128d918 100644
GIT binary patch
delta 3074
zcmb_edrXws6~EuiH!#QmpR+K$gdGHNeE@?FFrw}b437Z^MQ|TQ<T1{mqad%5VX=}i
zF~oI^#rYXFEiMpjt*J>1es+WXL&uG^rmq#tU)`iN`-f>ZO|xnIqcJJ;+;4^v)NYea
zzvMS_?z!ildtUe4>%XoZT~N>5Qi<;{#xSR{7~dvhacOCZ!%B1+p`2hN)DR%46Gaav
z-coyub`!xRkJ0~eLMNe%aDvcH=ppnH`Uw35FJbZ0{(^wm8O5&U%s$_XK5;&VNyLvL
zp#GD$5Y&no)Hnn??%ggxFiw>JrCBHBIB0$^!A{_o)Drd(`2KbDe~<u6v_;Dq{KH`M
zVB92eLqqzN{~i561>2QE`PrH;)G@4zCgb=rzU{O4dM%esUS@a`>a{u=tO+yZX9@dM
zDj`NO%d0=D`g@H0TwfclttNq_uu#-SBA%+`p|oK^_5DQod3voN#D<n+oQ;+~plRCh
z%$tR>Df67Bx`>%r2}RdLQ8u$8md7fIt|Cqzjkgm@h}uDUD5jY_Rzb9xP(%_I;+7D{
z#)=>qHl!~t?PNS7r)c&ittd>{grhl+;m@f;h0}ns4Vw>rr=8eomd_fPn{r)lYpj1b
zS@-KdCfv7way;(wXH|dcy_n5db$O$$5Q41+PjYq1`Rp*|zK3d{n;m1(w{LgN)csZ{
zUY<w2Jw-FubNS1w=(2BAQQCAR4s|-k=+e#t%?GTGIUpR$ep5@1butfglA?CPhdhqT
z$CH+hvO@*9vs0Tb5^s<~Q>@IrZk32EF<Dbx?x+bF+2avW?_8s?v3;x#<2xE*IwC>W
z9<Rt)6hp%@c;Zb{xTOl$*cOk0_Dqz&yBC}``lR#&%twy4G8ZM3+Zl5I#coqWAr0jb
z4YVrz#j0w>KQDQDf*o10x+G$UaX^PVFucY(?O;f^IikDAD`LVIkHD6Yg_gtX6>BG2
z&C2@i5v>#f3>=gcZfO0o&xRX%g}W+Rv3scmydnEg_U^v0|N7MbX8%f^>lA$<kBn`(
z%4m1QW{O8#108`#43(TnE(xC<4&~%U^o_pES68QoR(HITfz{rQZIF~$IQN+G%_b4o
zEOzi+4CfOuy~CkY!PwpSFs;Yd0o@9_d31OtQszRLSgm{HR49@mu2LJMdD`MYn>R<%
zvReMy(dF4h{N5>HY|kyBnj+%KsG~T$s2bWSBHipHRfUUaULW1;1kP+pLa_84ir=5X
z;%S{=<7<*!BvnRerxWv`B1=b*%L;E}t+@*eO<Q3!yX4{Ff2f2q&Wfv0%FY)mJIwC?
zLr7KSYgJL&U8K5`@%H$734Zzn0xx{Uk(zIHB%+bu1m7;nP_X+;%v_XUDqk=A8y^U$
z-TolrnS`&m>!T}_7`5Y_kxxSo7OiqHvRwjg*GMtyrzpAU>dL2f%KJ+=5b_rzg=)0T
z>2BsWNeH^Eur>t)?kV&+jRY$iE?<x@G<yZ1Ko(klse-Znb1a`5U3(%HPTFDrapq0u
zl$zwL;Lp`zbU?(p+C(+oJ;*rN4bk}?3^x+xryW66Ahnd_<JUH`4zkHZ_PD8=xmiAz
z5=;JXm&NI%5^O$hdBa3iVxsF~hjQgq@oNWpy^UB**1^=PN6Vxn`;S{SXz0xkGbPMT
zu0#1`n#j99#OYn|_ny_nQXFkqJFx}l`Zo!?70TS_3-tRjKW@OizI4p??|EZeWoh$a
zUby6*huRw>$GV+|@aNy@g-tj;*DvJY7ryUNo4tVhE+rJ0*=bnIo9N0_d6+-h6$rZU
z=%grkAzXYPDUUN@^@;HR)DM4)R?x|1zU0+GH=IhN{51u#GU@u67qeh}WY&C2MhxN1
zybUH%i~IAtFgkB0T6&p|UGC*{*(2{%uROZztbm^4G%VJPpeI+97cI>(xJj3*;ruZ)
z)YfX0*9DeR3IiVp@s%%^8mvKmlvT=0AKz2qpDhQFazl@&9Zj<T2Yx}e9tjGos>FcJ
z0nfESYTDJQ11fywv{P+ulZVDyH3<#wPIr61ySby^lkXmMW4JFRaHRtG6HHNU<dH)y
z4_z4%gmTKndi-@f3w0BcP(-73`sJmKUXR1$%y)Hm^3{+gegbPtFfirHxI!An3H&9+
zF%hPx`2VH-8|CX$My+U|5q~+!&#vnP+}vX1m7DcS<-U}<l?lK5vojc;>-&yLPtBhG
zxe7BaIpMn}{;G9GK)%l)jNqdm70DN7Z&5;Br5fe6f?j9!%HxNxe`Ub7x=h6XW_|e7
zS^k&p<N6Ude=qVE2mkmZ_Xzb1-0jbRe<B`FCbHmYH6t+7AUCwS1nLLpW&a(k3ZMI`
z=t&W22(tfPP&MsTUA0pCvi?cLgBE%|@F#?8D)7)QZd;D6_u)b`9wuys_t7Ik!{3on
z=V@+1h3Cc`N~luC>7urRn7o<sgv9=k2tR>7%sNx$l*fM)F!kP;{7r?FgwfJOj9zXK
IE9n6L2RMh8hX4Qo

delta 1601
zcmb7EZ%k8H6u<ZNF9_Im1v(VP4lC87ZD9^|x(XE9f~3>^$ruybxB|iyOGg^~vnMgS
zDA`<p$+oB=P7_DsmK859(-~I`F~)tE5`!6Y$zsSp=tla%4~vO*=M^<(`!e%#-aF@a
z&OPtm-#PajzM+zbRf$na{V<(Q<9n%!Km7Eyg)pd0Y68+IQ$;n3i_q4%x?7t(S`$lb
zKtz3A;s%VJTY;orjhLp9*UnnGYVo&bJ}-TTG1f%lCGnB?Ng7BRNj8vV{#T`|(!Wc_
zZW6?Fv0Me+L&k?ngm|F4EM+k*>2*p#;PWzZFZ*Xz7T1uO`v}6lynsH3jKar2bZ!9S
zMhD#Ew3oRJlp>2<bDp@3`=n5|xNr39^m7T!f8@|EA?0<I=r7vCrJ?7={ds=QU71rw
zi}&faR+5``v3H?UI2L@Qsi~%2RkN2!93(DQ&MKIbtzsV1D%pBgMS3}XJ%lTmhvF+T
zu`5{(;V-iaJjl1rOQ+YcwUl`$W%*Y|IL$V6luqz4g64&ISZYPYR)EBEHI6K{x}W)f
zl)sM1Ud}eM_gFU*r+m!@1SSW?U`v#v$72+2jkhE*Gho!g|K=(2=X8pTmii`1Oix}i
z;`T3YxSNxRPZg;c(;_##9g$Eai5n*l*wO7<t@hMx3PAQ*GAVhv;G54%a0ItPp6G);
z*ofad^F%6`P{9!Hrj>O#-fzJ2DHCPP1rNPVr!$J_@FfWY(dKym%KHDX^6We-=f>{*
zS3NG$Jj8q@y`5B(>Wp4Nnv<Sds?Kc1oK&B3vK;hvP_<UkTj8#b^a}6-8%DQQ!J=Lu
z<Sw@+H%fH&vM6h%Feh|7iZM{S5qVv;kaz6UDBZUfe8>VhA|o-BhmU(-<TVPyTjISk
z>=7qMdK=W$p4BZ#Ei)k%)xsF<iJy(2<AWZI_H{tM7)GK`4f!h>@@Bn8>G&v|E80;u
zk;m=CTm#%LgXoW4kZ6GyDO(=yFU=uZ^RYeT%g{Wyvk2~U9h$|om?7BoD`o~JMbmF*
za^eSNxNcgWDnxz!P!g_I6U?WL_#<3&W-uus)J7f9F2fS@!azT04w=NAPYSq5wkP?M
zY7Xu!fE^~tomMJhlyIw|*3;;ll}$C79!ahHf*NKWrY8+j<T+gMH6w7-o@FmGYrghf
zrExMc^%ic?mTrf<=;?Hc{?A%9C>~l8KURzJY=^du&M+p4{$u+&4h@~f%+NC2{b3Qt
zde_V{Iny&A+q#VCHk;_`xS-upf*%d``0*`S%4|DI>uId55yQtz^y+Mdk<5e{&f#z^
zbD?Rak>-qz;PhxOFMiycC_8PY`?&u7H!%5vk#mgnb^YJ!pg(4wQ_mtSNX^p8wu$sN
zTtc$lebSvE`i?Y;!I4pYVKv>MyP?7_JHEB~hfDsN{HZd3uVoQ~(`tLdG2Iy4IbVRt
zmifeUwg_(yJbllW3i+a2qH|c33x`zjFjc~flD0CD8l%V)4!^h>`i`G;U*_@iTI}C)
tK7PfkE_lpB^vVq#yu0j(Uc06YQ|&?W+>mg6mmlN1UO{N7Rahsc_&>{W1wjA+