Wx^
T/ŝhome:oci;oci-west.lisp.newestF6 ,CCLFIND-CLASS-CELL,?COMMON-LISPQUOTE?SOURCE-NOTET(defpackage oci-west
(:use common-lisp oci cl-who hunchentoot))9 B L-u^UHjRjRAy h 0 h 0 h 0 h 0 h 0 A h 0 A 0 0 0 X I $%Q ff fff ňOCI-WEST,EHUNCHENTOOTECL-WHOEOCIECOMMON-LISP?%DEFINE-PACKAGE,%FUNCTION-SOURCE-NOTE F6(in-package oci-west)9 + L-u"UHI9 IA c
ff ?SET-PACKAGE,F6(defmacro with-html (&body body)
`(with-html-output-to-string (*standard-output* nil :prologue t)
,@body))9 1@q% L- UHWVh0 A Hu vuA ( MU $%R L-VvuA A Huع M fff$%P L-leH%H H eH%H eH%X Ð & fff G?DESTRUCTURE-STATE,?&BODYOCI-WESTBODY?ACL-WHOWITH-HTML-OUTPUT-TO-STRING,*STANDARD-OUTPUT*?KEYWORDPROLOGUE,PC-SOURCE-MAPc#pFUNCTION-SYMBOL-MAPDREST35257DARGS35256DENVIRONMENT35255DWHOLE352540? c ? ` ? ] ? ? ?WITH-HTML9 -
E(&BODY BODY)F"6(defvar *utf-8* (flex:make-external-format :utf-8 :eol-style :lf))9 N B L- UHI 0 I fffffS
L-@ uIM I I I fffffS
L-I I c
0 ff fff *UTF-8*?%DEFVAR?UTF-8?EOL-STYLE?LF?AFLEXI-STREAMSMAKE-EXTERNAL-FORMAT?SET,6o(defun llygaid ()
(no-cache)
(recompute-request-parameters :external-format *utf-8*)
(setf
(content-type*) "text/xml; charset=utf-8"
(reply-external-format*) *utf-8*)
(let ((tree (svref *oak* (read-from-string (post-parameter "s") nil 0)))
(b (read-from-string (post-parameter "b") nil nil)))
(if (not b) (with-html (:guesses (:letters " ") (:lines)))
(let ((graph (graphicalize (setf *omg* (img<-path b))))
(*print-pretty* nil))
;(format t "~a~%"
(with-html
(:guesses
(:letters
(fmt "~:[☹~;~1:*~{~a ~}~]"
(gather-fruit tree graph :char (null (post-parameter "c")))))
(:lines
(dolist (line (graph->lines graph))
(htm
(:line
(loop for p in line
do (htm (:p :x (* 10 (cadr p)) :y (* 10 (car p)))))))))
(:graph (fmt "~a" (worsen-visibility graph)))))))))9 _CoF#B L-B UHAWAVATASMq My 1I S
L-I HK*1eH; %@ CeH%H H4BHDs I I fffS
L-lI I ffS
L-LI HK*1eH; %@ CeH%H H4BHDsv I ffS
L-I HK*1eH; %@ CeH%H H4BHDs. VI I ffS
L-I 0 1 I S
L-_uG
@
HGHHH9
t7I I S
L-,I 0 0 I fffS
L-V} $ I I I S
L-LM= $%HP L-M M] $%T ] L-IO*1eH; %@ CeH%H H4BIDw I fS
L-Tfff L-DLM $%`P L-,jRjRA IO*1eH; %@ CeH%H LABMDGA 1 0 LfS
L-f%T L-HM ARIO*1eH; %@ CeH%H H4BIDw I 4%/ c
f L-dH M $%8P L-DeH<%H eH%0 HWHHXH H_eH%0 yHxeH4% ?s ffff%T L-L]LeLuL}$%P Huй I fffffS
L-I ff%T L- I! fS
L-V 0 VI) M fff$%HP L-\I I I fffS
L-4LM $%HP L- MU M $%T L-IO*1eH; %@ CeH%H H4BIDwm
I fS
L-fffU L-LMm $%`P L-jRjRA1 IO*1eH; %@ CeH%H LABMDGA 1 0 LfS
L-4IO*1eH; %@ CeH%H H4BIDw VjRjRuI9 I ffS
L-@ 0 Dv%IA LEȹ II fS
L-IQ AX IY S
L-jRjRAa IO*1eH; %@ CeH%H LABMDGA 1 0 LfS
L-4Huȹ Ii ffffS
L-VX H@ vjRjRAq IO*1eH; %@ CeH%H LABMDGA 1 0 LfffS
L-h 0 8H(M @ K H(HvH0H(HvH(jRjRAy IO*1eH; %@ CeH%H LABMDGA 1 0 LfffS
L-H0 Hv HvHP %(S L-IA s I.0 u_jRjRA IO*1eH; %@ CeH%H LABMDGAR 1 0 LfffS
L-D jRjRA IO*1eH; %@ CeH%H LABMDGA 1 0 LfffS
L-MA tOIO*1eH; %@ CeH%H H4BIDw L߹ I ffffS
L-jRjRA IO*1eH; %@ CeH%H LABMDGAX 1 0 LfS
L-4H00 HvHP f%(S L-IA s I.0 u_jRjRA IO*1eH; %@ CeH%H LABMDGA 1 0 LfffS
L- jRjRA IO*1eH; %@ CeH%H LABMDGAs 1 0 LfffS
L-4MA tOIO*1eH; %@ CeH%H H4BIDw$ L߹ I ffffS
L-jRjRA IO*1eH; %@ CeH%H LABMDGA 1 0 LfS
L-jRjRA IO*1eH; %@ CeH%H LABMDGA 1 0 LfS
L-,HjRjRA IO*1eH; %@ CeH%H LABMDGA' 1 0 LS
L-HH@HvH@@ HjRjRA IO*1eH; %@ CeH%H LABMDGA 1 0 LffS
L-LIO*1eH; %@ CeH%H H4BIDwm VHuȹ I fffS
L-I@ tt@H8uFLkI0 u2H8HvHHHHH HH 0 Dv%IH 0 Dv%H@ t*L@I L I S
L-T>H@H.0 t H@ 0 L߹ I fffffS
L-HjRjRA IO*1eH; %@ CeH%H LABMDGA, 1 0 LffffS
L-f%T L-HM ARIO*1eH; %@ CeH%H H4BIDw I 4%/ c
f L-DH M $%8P L-$eH<%H eH%0 HWHHXH H_eH%0 yHxeH4% ?s %T L-L]LeLuL}$%P f C ͓ ͓ ͓ } g d ͟ ͟ I ͟ ͟ ͟ ͟ ͟ ͟ v ͟ % m ͟ ͟ % ͟ ͟
͟ |
͟
͟ / ͟ ͟ ͟ f ͟ ͟
͟ i ͟ fff WRITE-SIMPLE-STRINGHUNCHENTOOTNO-CACHEEXTERNAL-FORMATRECOMPUTE-REQUEST-PARAMETERSEtext/xml; charset=utf-8SETFHUNCHENTOOT::CONTENT-TYPE*HUNCHENTOOT::REPLY-EXTERNAL-FORMAT*OCI*OAK*EsPOST-PARAMETERREAD-FROM-STRINGEbELEMENT-TYPECHARACTERMAKE-STRING-OUTPUT-STREAMCLOSEE$
GET-OUTPUT-STREAM-STRINGIMG<-PATH*OMG*?GRAPHICALIZE*PRINT-PRETTY*E
Ec?CHAR?GATHER-FRUIT~:[☹~;~1:*~{~a ~}~]?FORMATE?GRAPH->LINESEEEE?WORSEN-VISIBILITYE~aFORMAT-TO-STRINGE, K nKXm+KlKk
IMT[9P +d+L+d\c4HDG<| <_ <C [ u < ! X ) < DG35286DG35285OBJECTSTREAMDG35280ĆG35277DG35279DLOOP-LIST-35284?P?LINEDG35281?GRAPHB?TREE0 /
?0
?.
$ | t O ?4 o ?2 i ?0
8 ?. [ ?, t ` ? K ? K ? } K ?" @ ? D + ?
K ? K LLYGAID F6V(defun llen ()
(no-cache)
(recompute-request-parameters :external-format *utf-8*)
(setf
(content-type*) "text/xml; charset=utf-8"
(reply-external-format*) *utf-8*)
(let ((l (svref *lng* (read-from-string (post-parameter "s") nil 0)))
(b (read-from-string (post-parameter "b") nil nil)))
(with-html
(:guesses
(:letters
(fmt
"~a"
(if (null b)
"?"
(string-downcase
(observe-word
(svref *frg* (cdr l))
(svref *oak* (car l))
(setf *omg* (img<-path b)))))))
(:lines) (:graph)))))9;V# ~ L-" UHAWAVM 1I ffS
L-I HK*1eH; %@ CeH%H H4BHDs I I fffS
L-tI I ffS
L-TI HK*1eH; %@ CeH%H H4BHDs^ I! ffS
L-I) HK*1eH; %@ CeH%H H4BHDs VI1 I9 ffS
L-I 0 1 IA S
L-_uG @ HGHHH9 t7II I9 S
L-4I 0 0 IA fffS
L- VIQ IY Ia ffS
L-LM- $%HP L-M MM $%T M L-IO*1eH; %@ CeH%H H4BIDw Ii fS
L-dfff L-TLM $%`P L-
E??*FRG*?OBSERVE-WORD?STRING-DOWNCASEE~aE, + U+RTu|[g.B>A4t 4W 4;
X r 4 U 4 DG35298DG35297?L0?& r ?$ r ?" ? H ? 4 + ? + ? + LLENF6e(defun cof ()
(no-cache)
(recompute-request-parameters :external-format *utf-8*)
(setf
(content-type*) "text/xml; charset=utf-8"
(reply-external-format*) *utf-8*)
(multiple-value-bind (addr addr-lst *print-pretty*) (real-remote-addr)
(if addr-lst (/ (length addr) 0))
(with-input-from-string (s (format nil "~s" (char (post-parameter "c") 0)))
(remember-img
(read-from-string (post-parameter "s") nil 0)
(img<-path (read-from-string (post-parameter "b") nil nil))
s))
(with-html (:guesses (:letters "☺") (:lines) (:graph)))))9тe#[= L- UHAWAVM M 1I fffS
L-I HK*1eH; %@ CeH%H H4BHDs> I I fffS
L-lI I ffS
L-LI HK*1eH; %@ CeH%H H4BHDs I! ffS
L-M% AR1I) 4%/ c
% L- )sHcH)
h 0 uHuI1 Me f$%HP L-} tHu%pS L-|I9 LfffffS
L-\H1 IA fffS
L-< II fS
L-$H1 IQ fffS
L-VMM M $%T fffff L-Hu IY ffffS
L-fffM L-Ia LfffffS
L-I 0 1 Ii S
L-lVIq LffffS
L-LI 0 0 Ii fffS
L-$ Iy fS
L- HHuAX I S
L-H M- $%@P - L-eH %H eH%0 HKHHPH HSeH%0 yHxeH4% ?s HHI I I S
L-\LM $%HP L-DM- M $%T L-$IO*1eH; %@ CeH%H H4BIDw IY fS
L-fff- L-LME $%`P L-jRjRA IO*1eH; %@ CeH%H LABMDGA@ 1 0 I ffffS
L-Tf%T L-DHM ARIO*1eH; %@ CeH%H H4BIDw I 4%/ c
f L-H M5 $%8P 5 L-eH<%H eH%0 HWHHXH H_eH%0 yHxeH4% ?s %T L-lLuL}$%P f C ͓ ͓ ͟ W ͟ ͟ fff Etext/xml; charset=utf-8REAL-REMOTE-ADDREc?CHAR?PRIN1-TO-STRING?MAKE-STRING-INPUT-STREAMEsEb?REMEMBER-IMG3
☺, d*cB%T$ TTwT[]ntl =r)<r,9, W q < T % < SADDR-LSTADDR0?& L ? ? ? l ? J ? J COFF6-(defun dysgu ()
(setf
(content-type*) "text/html; charset=utf-8"
(reply-external-format*) *utf-8*)
(multiple-value-bind (addr addr-lst) (real-remote-addr)
(declare (ignore addr))
(if addr-lst
(with-html (:html))
(with-html
(:html
(:head
(:script :type "text/javascript" :src "/dojo/dojo/dojo.js")
(:script :type "text/javascript" :src "/oci/oci.js"))
(:body
((:form :id "toolbar")
((:span :style "font-size: 300%")
((:a :href "#" :onclick "calculate(\"/llygaid\"); return false;")
"?")
((:a :href "#" :onclick "clearShapes(); return false;") "_")
(:input :type "hidden" :name "b")
((:select :name "s"
:onchange "document.forms.toolbar.c.value=\"\"")
(loop for i from 0 for s across *scripts* do
(htm ((:option :value i) (str s)))))
(:input :type "text" :name "c" :size 5)
((:a :href "#" :onclick "remember(); return false;") "!")))
(:div :id "drawboard" :class "boardDiv" :overflow "hidden")
(:div :id "swg")
(:div :id "grf")))))))9k-#fLL L-Z UHAWAVATASMY
Ma
Ii
Iq
ffffS
L-Iy
HK*1eH; %@ CeH%H H4BHDs I
ffS
L-dM AR1I
4%/ c
L-< )sHcH)
h 0 u} ' I
I
I
fffS
L-LM% $%HP L-M ME $%T E L-IO*1eH; %@ CeH%H H4BIDw I
fS
L-lfff L-\LM $%`P L-DjRjRA
IO*1eH; %@ CeH%H LABMDGA 1 0 LfS
L-f%T L-HM} ARIO*1eH; %@ CeH%H H4BIDw( I
4%/ c
f} L-|H M $%8P L-\eH<%H eH%0 HWHHXH H_eH%0 yHxeH4% ?s ffff%T L-L]LeLuL}$%P I
I
I
fffS
L-LMM $%HP L-M Mm $%T m L-IO*1eH; %@ CeH%H H4BIDw I
fS
L-Dfff L-4LM $%`P L- jRjRA
IO*1eH; %@ CeH%H LABMDGAx 1 0 LfS
L-j h 0 I
HK*1eH; %@ CeH%H H4BHDs' VE1j HXfffff%pS L-dHPHPI9M HXLސ%S L-4H`IjRjRA
IO*1eH; %@ CeH%H LABMDGA 1 0 LfffffS
L-LhA w I.0 u[jRjRA
IO*1eH; %@ CeH%H LABMDGA& 1 0 LS
L-\ jRjRA
IO*1eH; %@ CeH%H LABMDGA 1 0 LfffS
L-ATH tMIO*1eH; %@ CeH%H H4BIDw HH I
S
L-HjRjRA
IO*1eH; %@ CeH%H LABMDGA, 1 0 LffffS
L-DjRjRA
IO*1eH; %@ CeH%H LABMDGA 1 0 LfS
L-L`A tKIO*1eH; %@ CeH%H H4BIDw L I
fS
L-jRjRA IO*1eH; %@ CeH%H LABMDGA8 1 0 LfS
L-
E
, c n , c +c * ) k ) 0 , F DG35328DG35327DG35321DLOOP-ACROSS-LIMIT-35331DLOOP-ACROSS-INDEX-35330DLOOP-ACROSS-VECTOR-35329?I0 l ?, ` ; ?* ~ ?( { ?& C ?$ > ?" x ? T c ?" ( ? , ?
c ? c DYSGUF"6&(setq *dispatch-table*
(nconc
(list 'dispatch-easy-handlers
(create-static-file-dispatcher-and-handler
"/oco.html"
(make-pathname :name "oco" :type "html" :version nil
:defaults *this-file*))
(create-static-file-dispatcher-and-handler
"/slovo.html"
(make-pathname :name "slovo" :type "html" :version nil
:defaults *this-file*))
(create-static-file-dispatcher-and-handler
"/oci/oci.js"
(make-pathname :name "oci" :type "js" :version nil
:defaults *this-file*))
(create-folder-dispatcher-and-handler
"/dojo/"
#P"/home/dmitri/dojo/")
(create-prefix-dispatcher "/dysgu" 'dysgu)
(create-prefix-dispatcher "/cof" 'cof)
(create-prefix-dispatcher "/llygaid" 'llygaid)
(create-prefix-dispatcher "/oko/llygaid" 'llygaid)
(create-prefix-dispatcher "/llen" 'llen)
(create-prefix-dispatcher "/oko/llen" 'llen))
(list #'default-dispatcher)))9wD&% L- UHAWAVATASM M M M A! jRjRA) A1 A9 AA AI IN*1eH; %@ CeH%H H4BIDvH IQ A 0 @ LS
L-LIY LfffffS
L-,VjRjRA) Aa A9 Ai AI IN*1eH; %@ CeH%H H4BIDv IQ A 0 @ LېS
L-Iq LfffffS
L-VjRjRA) Ay A9 A AI IN*1eH; %@ CeH%H H4BIDv) IQ A 0 @ LېS
L- I LfffffS
L-VI I I ffS
L-VI I LfffffS
L-VI I LfffffS
L-VI I LfffffS
L-\VI I LfffffS
L-4VI I LfffffS
L- VI I LfffffS
L-VX M5 fff$%xP L-VI H^
H߾ 0 eH,%
eH % eH; % we$% H{HsH_ I ffS
L-TI ff%T L-