(<\/span>ns<\/span> quote-server<\/span> <\/div> (<\/span>:use<\/span> compojure<\/span>))<\/span> <\/div> (<\/span>import <\/span>'<\/span>(<\/span>com<\/span>.<\/span>wolfram<\/span>.<\/span>jlink<\/span> MathLinkFactory<\/span>))<\/span><\/div> <\/div>
(<\/span>defn <\/span>html-doc<\/span> <\/div> [<\/span>title<\/span> &<\/span> body<\/span>]<\/span> <\/div> (<\/span>html<\/span> <\/div> (<\/span>doctype<\/span> :html4<\/span>)<\/span> <\/div> [<\/span>:html<\/span> <\/div> [<\/span>:head<\/span> <\/div> [<\/span>:title<\/span> title<\/span>]]<\/span> <\/div> [<\/span>:body<\/span> <\/div> [<\/span>:div<\/span> <\/div> body<\/span>]]]))<\/span> <\/div> <\/div>
(<\/span>defn <\/span>quote-form<\/span><\/div> [<\/span>title<\/span> &<\/span> results<\/span>]<\/span> <\/div> (<\/span>html-doc<\/span> title<\/span><\/div> (<\/span>form-to<\/span> [<\/span>:post<\/span> "/"<\/span>]<\/span> <\/div> [<\/span>:div<\/span> "Symbol: "<\/span> <\/div> (<\/span>text-field<\/span> {<\/span>:size<\/span> 10<\/span>}<\/span> :symbol<\/span>)<\/span><\/div> (<\/span>submit-button<\/span> "Submit"<\/span>)])<\/span><\/div> [<\/span>:div<\/span> results<\/span>]<\/span><\/div> ))<\/span> <\/div> <\/div>
(<\/span>let <\/span>[<\/span>ml<\/span> (<\/span>MathLinkFactory/createKernelLink<\/span> <\/div> "-linkmode launch -linkname '\\"/Applications/Mathematica.app/Contents/MacOS/MathKernel\\" -mathlink'"<\/span>)]<\/span><\/div>;discard the initial result returned after creating link<\/span><\/div>(<\/span>.<\/span>discardAnswer<\/span> ml<\/span>)<\/span> <\/div> <\/div>
(<\/span>defn <\/span>result<\/span> <\/div> [<\/span>symbol<\/span>]<\/span><\/div> (<\/span>.<\/span>evaluate<\/span> ml<\/span> (<\/span>str <\/span>"FinancialData[\\""<\/span> symbol<\/span> "\\"]"<\/span>))<\/span><\/div> (<\/span>.<\/span>waitForAnswer<\/span> ml<\/span>)<\/span><\/div> (<\/span>quote-form<\/span> "Result"<\/span> "Last Price: $"<\/span> (<\/span>.<\/span>getString<\/span> ml<\/span>))<\/span> <\/div> )<\/span><\/div>)<\/span><\/div> <\/div>
<\/div>
(<\/span>defroutes<\/span> webservice<\/span><\/div> (<\/span>GET<\/span> "/"<\/span> <\/div> quote-form<\/span>)<\/span> <\/div> (<\/span>POST<\/span> "/"<\/span> <\/div> (<\/span>result<\/span> (<\/span>params<\/span> :symbol<\/span>))))<\/span> <\/div> <\/div>
(<\/span>run-server<\/span> {<\/span>:port<\/span> 9000<\/span>}<\/span> <\/div> "/*"<\/span> (<\/span>servlet<\/span> webservice<\/span>))<\/span><\/div> <\/div>
<\/div><\/pre><\/div>\n \n <\/div>\n\n