もしイチゴ農家の園主がSmalltalkの「Seaside」（で作られたシステム）を使ってみたら

愛知県のイチゴ農家がSeasideを使って愛知県トップを目指すストーリー？

Transcript

1. ٢ాɹᠳ ΋͠Πνΰ೶ՈͷԂओ͕SmalltalkͷʮSeasideʯʢͰ ࡞ΒΕͨγεςϜʣΛ࢖ͬͯΈͨΒ Ѫ஌ݝͷΠνΰ೶Ո͕SeasideΛ࢖ͬͯѪ஌ݝτοϓΛ໨ࢦ͢ετʔϦʔʁ 1
2. http://swikis.ddo.jp/umejava/38 ೔ຊॳʁSeasideͷ঺հϖʔδ ͜ΕҎ߱Կճ͔঺հ͞Ε͍ͯΔ͚Ͳ ʮެ։ͨ͠Αʯͬͯ࿩Λฉ͔ͳ͍ 2
3. Ͱ͖ͨɽऴྃʂ ࡞ͬͯΈΔ νϡʔτϦΞϧ ࣮ࡍʹҰൠެ։ͯ͠Έͨ ※ຊ৬ͱ͸ؔ܎͋Γ·ͤΜ 3
4. ͍ͪ͝ङΓ༧໿؅ཧγεςϜ ᖒా೶Ԃɹhttp://www.sawadafarm.com 4
5. ༧໿γεςϜͷಋೖܦҢ̍ ͍ͪ͝ङΓ༧໿͸ి࿩ͱFAX ه࿥ɾ؅ཧ ೔͝ͱʹ੔ཧ ༧໿৘ใ͸ࢴʹه࿥ ᣀङΓ͍ͨ͠ 5
6. γεςϜಋೖલͷ໰୊ ஌Γ͍ͨ৘ใ͸Ͳ͜ʹʁ ༷ࢠ͕෼͔Βͳ͍ •ࢠͲ΋Ͱ΋औΕΔͷ͔ •ԚΕͳ͍͔ •௨࿏͸޿͍͔ ৘ใ͕ෳࡶ 6
7. ίϯηϓτ sawadafarm.com ༧໿؅ཧγεςϜ ̍෼Ͱ஌ͬͯ10෼Ͱ༧໿ ᖒా೶ԂαΠτ sawadafarm.com αΠτશମΛ༧໿γεςϜͱ͢Δ ̍෼Ͱ஌ͬͯ10෼Ͱ؅ཧ 7
8. ͳͥSeasideʁ • ϙʔλϒϧͳ؀ڥͰ͋ͬͨ͜ͱ • ༧໿ը໘ͷϓϩτλΠϓ͸̏࣌ؒͰ࡞ͬͯɼΠϝʔδΛ࣋ͬͯ΋Β͑ͨ • ϖʔδભҠͷهड़͕ඇৗʹָͳ͜ͱ • SmalltalkͰ࡞ͬͨγεςϜΛҰൠެ։ͯ͠Έ͔ͨͬͨ • PHPɼRubyɼJava͸Կͱͳ͘ॻ͚Δ͚Ͳɾɾɾ 8
9. ϑϩʔ੍ޚ Ұൠը໘ ༧໿ը໘ ΧϨϯ μʔදࣔ ॲཧ Ϣʔβૢ࡞ γεςϜભҠ ༧໿ঢ়گ ֬ೝը໘ ʢ࣌ؒʣ ೥ؒΧϨ ϯμʔ ݄ΧϨϯ μʔ ༧໿ ΫϦοΫ ΫϦοΫ ΫϦοΫ ΫϦοΫ ΫϦοΫ ΫϦοΫ ※A ΫϦοΫ ฤू࡟আ ΫϦοΫ ※C ͓٬༷༧໿ೖྗભҠ ΫϦοΫ Ұ൪มΘΓ΍͘͢໘౗ͳͱ͜Ζ 9
10. ϑϩʔ੍ޚ ྫ: ϩάΠϯ࣌ͷϑϩʔ Web։ൃͰ೰Ήॲཧ ೝূ੒ޭ ొ࿥ ೝূࣦഊ Login main page User register 10
11. login user register main ೝূ੒ޭ ొ࿥ ೝূࣦഊ 11
12. ϑϩʔ੍ޚ WATask>>goͰϑϩʔશମΛهड़ MyLoginComponent MyUserRegisterComponent MyMainComponent MyTask call: answer: ೝূࣦഊ ೝূ੒ޭ ॊೈͳϑϩʔ੍ޚ͕هड़Մೳ 12
13. MyTask>>go ! | user | ! loginAnswer:= self call:(MyLoginComponent new). ! loginAnswer = #registerUser ! ! ifTrue:[ user := self call: (MyUserRegisterComponent new) ] ifFalse:[ user := loginAnswer ]. ! user ifNotNil:[ ! ! self session login: user.]. self call:(MyMainComponent new). WATask subclass:#MyTask ϑϩʔ੍ޚ 13
14. ެ։·ͰͷಓͷΓ 6݄ 11 1݄ 9݄ ?݄ ٢ా΁ͷґཔ? ը໘ઃܭ ࢓༷ௐ੔ SeasideͰϓϩλΠϓͰ ΠϝʔδΛ࣋ͬͯ΋Β͏ ίϯηϓτͱ ҙࣝվֵ ணखґཔ αʔόߏங WebϖʔδҠߦ ༧໿γεςϜެ։ 2012೥ 2011೥ 14
15. ίϯηϓτ γϯϓϧ͔ͭ௚ײత 15
16. ཁ݅ ᶃ༧໿݄Λબ୒ ᶄ༧໿࣌ؒΛબ୒ ᶅ໊લͱΞυϨεೖྗ ϝʔϧͰຊਓ֬ೝ 16
17. γεςϜߏ੒ Apache PostgreSQL Web AP (Smalltalk) ϝʔϧ഑৴ػೳ ʢόονॲཧʣ Comanche 17
18. ެ։΁ͷಓͷΓʢ೔ຊޠͷରԠʣ |adapter| WAComancheAdaptor startOn: 8080. adapter := WAComancheAdaptor default. adapter codec: (GRCodec forEncoding: 'utf-8'). adapter isRunning Seaside 3.0ܥͷ৔߹ 18
19. ެ։΁ͷಓͷΓʢ։ൃπʔϧͷ࡟আʣ WAAdmin applicationDefaults removeParent: WADevelopmentConfiguration instance WAAdmin applicationDefaults addParent: WADevelopmentConfiguration instance πʔϧͷ࡟আ πʔϧͷ௥Ճ 19
20. ެ։΁ͷಓͷΓʢApacheͱͷ࿈ܞʣ Apache Web AP (Smalltalk) Comanche Server port:3000 port:80 access.html ੩తͰՄೳͳϖʔδ͸SeasideͰѻΘͳ͍ ApacheͷRewriteػೳΛ࢖࣮ͬͯݱ <VirtualHost *:80> RewriteEngine On RewriteRule ^/(swd.*)$ http://localhost:3000/$1 [P,L] </VirtualHost> httpd.conf౳ʹrewriteϧʔϧΛهࡌ͢Δ http://www.sawadafarm.com/swdreservation http://www.sawadafarm.com/access.html 20
21. ެ։΁ͷಓͷΓʢը૾ϑΝΠϧͱCSSʣ WAFileLibraryͷsubclassΛ࡞੒ MyFileLibrary addFileAt:'./css/main.css'. MyFileLibrary addAllFilesIn: './css/'. ·ͨ͸ Workspace্ͰҎԼͷίʔυΛ࣮ߦ Ұൠతʹ͸imageϑΝΠϧʹऔΓࠐΉํ๏͕͋Δ 21
22. ެ։΁ͷಓͷΓʢը૾ϑΝΠϧͱCSSʣ >>updateRoot:anHtmlRoot super updateRoot: anHtmlRoot. anHtmlRoot stylesheet url: MyFileLibrary / #mainCss. >>(class) initialize ! |app| ! app := (WAAdmin register: self asApplicationAt: '...') ! ! addLibrary: MyFileLibrary. WAComponent subclass WAComponent subclass ϥΠϒϥϦͷબ୒ 22
23. ެ։΁ͷಓͷΓʢը૾ϑΝΠϧͱCSSʣ >>updateRoot:anHtmlRoot super updateRoot: anHtmlRoot. anHtmlRoot stylesheet resourceUrl: self baseUrl ,'main.css'. WAComponent subclass ࠓճͷํ๏ Smalltalk imageͰcss౳Λ؅ཧ͠ͳ͍ •imageϑΝΠϧͷܰྔԽ •ը૾ɼcssͷमਖ਼ΛಠཱͰ͖Δ •Web APͷιʔε͕؅ཧ͠΍͘͢ͳΔ 23
24. ެ։΁ͷಓͷΓʢόονͷݺͼग़͠ʣ ϝʔϧૹ৴ػೳ͸SmalltalkͰ࡞Εͳ͔ͬͨ Ծ༧໿௨஌ ຊ༧໿௨஌ Ωϟϯηϧ͓ΑͼࣗಈΩϟϯηϧ௨஌ લ೔༧໿ूܭ௨஌ ͓٬༷࣭໰௨஌ ͕࣌ؒͳ͔ͬͨ ೔ຊޠͷऔΓѻ͍ʹݒ೦఺͕͋ͬͨ ϝʔϧૹ৴ػೳ ཧ༝ 24
25. ެ։΁ͷಓͷΓʢόονͷݺͼग़͠ʣ OSProcess command:ʼcancelMail.rbʼ. ※࣮ࡍʹ͸ઈରύεͰεΫϦϓτΛࢦఆ͢Δ͜ͱ OSProcessΛ༻͍Δ MetacelloͷϓϩδΣΫτͷConfigurationOfOSProcess※1 ಋೖ͢Ε͹Α͍ System performOnServer: 'date' Gemstoneͷ৔߹ OSProcess͸ෆཁ Web AP (Smalltalk) ϝʔϧ഑৴ػೳ ʢόονॲཧʣ ※1 ୈ23ճSmalltalkษڧձ ࢿྉࢀߟ 25
26. ެ։΁ͷಓͷΓʢPostgreSQLͱͷ઀ଓʣ SqueakDatabaseAccessor DefaultDriver:(Smalltalk at: #NativePostgresDriver). ConfigurationOfGlorpDBX project lastVersion load:'Core'. Glorp※1Λ༻͍Δ ※1 ୈ12ճSmalltalkษڧձ ࢿྉࢀߟ GlorpΛී௨ʹ࢖͍͍ͨͳΒCore͕͓͢͢Ί ΠϯετʔϧޙɼPostgreSQLͷυϥΠόʔΛσϑΥϧτͱ͢ΔͨΊҎԼΛ࣮ߦ 26
27. ެ։΁ͷಓͷΓʢιʔείʔυͷ؅ཧʣ Ұൠతʹ͸Monticello͓Αͼ SqueakSourceͷαʔόΛཱͯͯ؅ཧ ࠓճ GitΛར༻ •HTMLϑΝΠϧ౳ͷ؅ཧ΋ߦ͏ඞཁ͕͋ͬͨͨΊ ɹɹ※Source.stΛ؅ཧ͢Δ͚ͩ •SSL௨৴ͰΞΫηεՄೳ •ݱࡏɼΫϥε୯ҐͷstϑΝΠϧΛग़ྗͯ͠؅ཧ͢ΔπʔϧΛݕ౼த 27
28. ެ։΁ͷಓͷΓʢόάͷ؅ཧʣ Redmine νέοτ؅ཧ͓ΑͼλεΫ؅ཧ͕ศར ͢Έ·ͤΜRubyͰ͢ɾɾɾ 28
29. ެ։΁ͷಓͷΓʢ͓·͚ʣ ࣗಈੜ੒͞ΕΔXHMTMLҎ֎ͷ৘ใͷग़ྗ •XML, RSS,SVG... •ը૾ϑΝΠϧ౳ͷμ΢ϯϩʔμ ֶੜͷࠒͰWard๏Ϋϥελʔ෼ੳͨ͠ͷ΋ͷΛ σϯυϩάϥϜΛදݱΛ࡞Δͱ͖ʹ׆༻ 29
30. ެ։΁ͷಓͷΓʢ͓·͚ʣ renderContentOn: html ! self requestContext respond: [:response | ! ! response ! ! initializeOn: self svg ; contentType: 'text/xml'] WAComponent subclass 30
31. ެ։΁ͷಓͷΓʢ͓·͚ʣ ResponseΛ༻͍ͨsvgͷग़ྗ 31
32. σϞ 32
33. ݱࡏͷᖒా೶ԂWebαΠτͷঢ়گ • ࡢ೥ʢ2010ळʙ2011य़ʣͱൺ΂ΔͱαΠτΞΫηε਺͸̎ഒ • ༧໿͸޷ௐʢฏۉαΠτ଺ࡏ࣌ؒ͸5෼ʣ • େ͖ͳγεςϜτϥϒϧ͸ͳ͠ • ༧໿γεςϜެ։ޙɼ̎ճ࢓༷มߋʢੵۃతͳۀ຿վળʣ • ߋͳΔཁ๬ͳͲ΋্͕͍ͬͯΔ SmalltalkͷγεςϜͰ΋े෼ຬ଍ͯ͠΋Β͑Δ ۩ମతͳ݁Ռ͸Նࠒ 33
34. SmalltalkΛ࢖ͬͯྑ͔ͬͨ఺ɾѱ͔ͬͨ఺ ྑ͔ͬͨ఺ ѱ͔ͬͨ఺ •ϓϩτλΠϓ͕͙͢ʹ࡞ΕͯΠ ϝʔδΛ࣋ͬͯ΋Β͑ͨ •SmalltalkʢPharoʣͰ΋ύ ϑΥʔϚϯεͱͯ͠໰୊ͳ͍͜ ͱ͕࣮ײͰ͖ͨ •ը໘σβΠϯͱ෼ۀͯ͠࡞Δͱ େมʢSmalltalkͰHTML·Ͱ΋ه ड़͢Δܽ఺ʁʣ •ϩάग़ྗϥΠϒϥϦ •POSIXͷਖ਼نදݱϥΠϒϥϦ͠ ͔ͳ͍ 34
35. ࠓޙͷվળ • ը໘ઃܭ͔ΒͷSeaside΁ͷ൓өʢը໘ϞοΫΛͲͷΑ͏ʹ൓ө͢Δ͔ʣ • ڞ௨ιʔεͷ؅ཧʢGitͰͷ؅ཧΛ༰қʹ͢Δʣ • ϦΧόϦͱো֐ݕ஌ରࡦͷڧԽʢϩά౳ʣ ͦͷଞ SeasideͰόά؅ཧγεςϜ͕͋Δͱ͍͍ͷͰ͸ 35
36. ࡞ͬͯऴΘΓͰ͸ͳ͘ެ։΋͠·͠ΐ͏ 36