source: project/release/2/yasos/yasos.html @ 8751

Last change on this file since 8751 was 8751, checked in by felix winkelmann, 12 years ago

rrb2 move completion

File size: 17.5 KB
Line 
1<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
2<html>
3<head>
4<!-- ======================================================= --><!-- Created by AbiWord, a free, Open Source wordprocessor.  --><!-- For more information visit http://www.abisource.com.    --><!-- ======================================================= -->
5
6
7
8
9
10
11
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24  <meta http-equiv="content-type" content="text/html;charset=UTF-8">
25
26
27
28
29
30
31
32
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49  <title>yasos.html</title>
50  <link href="yasos.html_files/style.css" rel="stylesheet" type="text/css">
51</head>
52
53
54<body>
55
56
57
58
59
60
61
62
63 
64<div>
65   
66<p></p>
67
68
69
70
71
72
73
74
75   
76<p><span style="font-weight: bold; font-family: 'Arial';">yasos</span></p>
77
78
79
80
81
82
83
84
85   
86<p>"Yet another Scheme Object System"</p>
87
88
89
90
91
92
93
94
95   
96<p></p>
97
98
99
100
101
102
103
104
105   
106<p><span style="font-weight: bold; font-family: 'Arial';">Description:</span></p>
107
108
109
110
111
112
113
114
115   
116<p><span style="font-family: 'Arial';">A very simple OOP system with
117multiple inheritance, that allows mixing of styles and separates
118interface from implementation. There are no classes, no meta-anything,
119simply closures.</span></p>
120
121
122
123
124
125
126
127
128   
129<p></p>
130
131
132
133
134
135
136
137
138   
139<p><span style="font-weight: bold; font-family: 'Arial';">Author:</span></p>
140
141
142
143
144
145
146
147
148   
149<p><span style="font-family: 'Arial';">Kenneth Dickey</span></p>
150
151
152
153
154
155
156
157
158   
159<p><span style="font-family: 'Arial';">ported to CHICKEN by Juergen Lorenz</span></p>
160
161
162
163
164
165
166
167
168   
169<p></p>
170
171
172
173
174
175
176
177
178   
179<p><span style="font-weight: bold; font-family: 'Arial';">Version:</span></p>
180
181
182
183
184
185
186
187
188   
189<ul>
190
191
192
193
194
195
196
197
198    <li>&nbsp;<span style="font-family: 'Arial';">1.0 </span>    </li>
199
200
201
202
203
204
205
206
207   
208</ul>
209
210
211
212
213
214
215
216
217   
218<p style="margin-left: 0pt; text-indent: 0in;"><span style="font-weight: bold; font-family: 'Arial';">Usage:</span></p>
219
220
221
222
223
224
225
226
227   
228<p style="margin-left: 0pt; text-indent: 0in;"><span style="font-style: italic; font-family: 'Arial';">(require-extension syntax-case yasos)</span></p>
229
230
231
232
233
234
235
236
237   
238<p style="margin-left: 0pt; text-indent: 0in;"></p>
239
240
241
242
243
244
245
246
247   
248<p style="margin-left: 0pt; text-indent: 0in;"><span style="font-weight: bold; font-family: 'Arial';">Download:</span></p>
249
250
251
252
253
254
255
256
257   
258<p style="margin-left: 0pt; text-indent: 0in;"><span style="font-family: 'Arial';">yasos.egg</span></p>
259
260
261
262
263
264
265
266
267   
268<p style="margin-left: 0pt; text-indent: 0in;"></p>
269
270
271
272
273
274
275
276
277   
278<p style="margin-left: 0pt; text-indent: 0in;"><span style="font-weight: bold; font-family: 'Arial';">Documentation:</span></p>
279
280
281
282
283
284
285
286
287   
288<p style="margin-left: 0pt; text-indent: 0in;"></p>
289
290
291
292
293
294
295
296
297   
298<ul>
299
300
301
302
303
304
305
306
307    <li>&nbsp;<span style="font-family: 'Arial';">(define-operation (opname self arg ...) default-body)</span></li>
308
309
310
311
312
313
314
315
316    <li>&nbsp;<span style="font-family: 'Arial';">(define-predicate opname)</span></li>
317
318
319
320
321
322
323
324
325    <li>&nbsp;<span style="font-family: 'Arial';">(object ((name self arg ...) body) ...)</span></li>
326
327
328
329
330
331
332
333
334    <li>&nbsp;<span style="font-family: 'Arial';">(object-with-ancestors ((ancestor1 init1) ...) operation ...)</span></li>
335
336
337
338
339
340
341
342
343    <li>&nbsp;<span style="font-family: 'Arial';">(operate-as component operation self arg ...)</span>&nbsp;    </li>
344
345
346
347
348
349
350
351
352   
353</ul>
354
355
356
357
358
359
360
361
362   
363<p></p>
364
365
366
367
368
369
370
371
372   
373<p style="text-align: left; margin-right: 0in;"><span style="font-weight: bold; font-family: 'Arial';">Examples:</span></p>
374;;;===============<br>
375;;;file yasos-examples.scm<br>
376;;;===============<br>
377<br>
378(declare (unit yasos-examples))<br>
379(require-extension syntax-case yasos format)<br>
380<br>
381;;----------------------------<br>
382;; general operations<br>
383;;----------------------------<br>
384<br>
385(define-operation (print-obj obj port)<br>
386&nbsp; (format port<br>
387&nbsp;&nbsp;&nbsp; ;; if an instance does not have a print-obj operation..<br>
388&nbsp;&nbsp;&nbsp; (if (instance? obj) "#&lt;INSTANCE&gt;~%" "#&lt;NOT-AN-INSTANCE: ~s&gt;~%") obj))<br>
389<br>
390(define-operation (size-obj obj)<br>
391&nbsp; ;; default behavior<br>
392&nbsp; (cond<br>
393&nbsp;&nbsp;&nbsp; ((vector? obj) (vector-length obj))<br>
394&nbsp;&nbsp;&nbsp; ((list? obj) (length obj))<br>
395&nbsp;&nbsp;&nbsp; ((pair? obj) 2)<br>
396&nbsp;&nbsp;&nbsp; ((string? obj) (string-length obj))<br>
397&nbsp;&nbsp;&nbsp; ((char? obj) 1)<br>
398&nbsp;&nbsp;&nbsp; (else<br>
399&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (error "Operation not supported: size-obj" obj))))<br>
400<br>
401;;----------------------<br>
402;; point interface<br>
403;;----------------------<br>
404<br>
405(define-predicate point?) ;; answers #f&nbsp; by default<br>
406(define-operation (x obj))<br>
407(define-operation (y obj))<br>
408(define-operation (set-x! obj new-x))<br>
409(define-operation (set-y! obj new-y))<br>
410<br>
411;;--------------------------------<br>
412;; point implementation<br>
413;;--------------------------------<br>
414<br>
415(define (make-point the-x the-y)<br>
416&nbsp; (object<br>
417&nbsp;&nbsp;&nbsp; ((point? self) #t) ;; yes, this is a point object<br>
418&nbsp;&nbsp;&nbsp; ((x self) the-x)<br>
419&nbsp;&nbsp;&nbsp; ((y self) the-y)<br>
420&nbsp;&nbsp;&nbsp; ((set-x! self val)<br>
421&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set! the-x val)<br>
422&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; the-x)<br>
423&nbsp;&nbsp;&nbsp; ((set-y! self val)<br>
424&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set! the-y val)<br>
425&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; the-y)<br>
426&nbsp;&nbsp;&nbsp; ((size-obj self) 2)<br>
427&nbsp;&nbsp;&nbsp; ((print-obj self port)<br>
428&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format port "#&lt;point: ~a ~a&gt;~%" (x self) (y self)))))<br>
429<br>
430;;-----------------------------------------<br>
431;; 3D point interface additions<br>
432;;-----------------------------------------<br>
433<br>
434(define-predicate point-3d?) ;; #f by defualt<br>
435(define-operation (z obj))<br>
436(define-operation (set-z! obj new-z))<br>
437<br>
438;;------------------------------------<br>
439;; 3D point implementation<br>
440;;------------------------------------<br>
441<br>
442(define (make-point-3d the-x the-y the-z)<br>
443&nbsp; (object-with-ancestors ( (a-point (make-point the-x the-y)) )<br>
444&nbsp;&nbsp;&nbsp; ((point-3d? self) #t)<br>
445&nbsp;&nbsp;&nbsp; ((z self) the-z)<br>
446&nbsp;&nbsp;&nbsp; ((set-z! self val) (set! the-z val) the-z)<br>
447&nbsp;&nbsp;&nbsp; ;; override inherited size-obj and print-obj operations<br>
448&nbsp;&nbsp;&nbsp; ((size-obj self) 3)<br>
449&nbsp;&nbsp;&nbsp; ((print-obj self port)<br>
450&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format port "#&lt;3d-point: ~a ~a ~a&gt;~%" (x self) (y self) (z self)))))<br>
451<br>
452;;;-----------------------<br>
453;; person interface<br>
454;;------------------------<br>
455<br>
456(define-predicate person?)<br>
457(define-operation (name obj))<br>
458(define-operation (age obj))<br>
459(define-operation (set-age! obj new-age))<br>
460(define-operation (ssn obj password)) ;; Social Security # is protected<br>
461(define-operation (new-password obj old-passwd new-passwd))<br>
462(define-operation (bad-password obj bogus-passwd)<br>
463&nbsp; ;; assume internal (design) error<br>
464&nbsp; (error (format #f "Bad Password: ~s given to ~a~%"<br>
465&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bogus-passwd<br>
466&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (print-obj obj #f))))<br>
467<br>
468;;----------------------------------<br>
469;; person implementation<br>
470;;----------------------------------<br>
471<br>
472(define (make-person a-name an-age a-ssn the-password)<br>
473&nbsp; (object<br>
474&nbsp;&nbsp;&nbsp; ((person? self) #t)<br>
475&nbsp;&nbsp;&nbsp; ((name self) a-name)<br>
476&nbsp;&nbsp;&nbsp; ((age self) an-age)<br>
477&nbsp;&nbsp;&nbsp; ((set-age! self val) (set! an-age val) an-age)<br>
478&nbsp;&nbsp;&nbsp; ((ssn self password)<br>
479&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (equal? password the-password)<br>
480&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; a-ssn<br>
481&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (bad-password self password)))<br>
482&nbsp;&nbsp;&nbsp; ((new-password self old-passwd new-passwd)<br>
483&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cond<br>
484&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((equal? old-passwd the-password) (set! the-password new-passwd) self)<br>
485&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (else (bad-password self old-passwd))))<br>
486&nbsp;&nbsp;&nbsp; ((bad-password self bogus-passwd)<br>
487&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format #t "Bad password: ~s~%" bogus-passwd)) ;; let user recover<br>
488&nbsp;&nbsp;&nbsp; ((print-obj self port)<br>
489&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format port "#&lt;Person: ~a age: ~a&gt;~%" (name self) (age self)))))<br>
490<br>
491;;;---------------------------------------------------------------<br>
492;; account-history and bank-account interfaces<br>
493;;----------------------------------------------------------------<br>
494<br>
495(define-predicate bank-account?)<br>
496(define-operation (current-balance obj pin))<br>
497(define-operation (add obj amount))<br>
498(define-operation (withdraw obj amount pin))<br>
499(define-operation (get-pin obj master-password))<br>
500(define-operation (get-account-history obj master-password))<br>
501<br>
502;;----------------------------------------------<br>
503;; account-history implementation<br>
504;;----------------------------------------------<br>
505<br>
506;; put access to bank database and report generation here<br>
507(define (make-account-history initial-balance a-pin master-password)<br>
508&nbsp; ;; history is a simple list of balances -- no transaction times<br>
509&nbsp; (letrec <br>
510&nbsp;&nbsp;&nbsp; ((history (list initial-balance))<br>
511&nbsp;&nbsp;&nbsp;&nbsp; (balance (lambda () (car history))) ; balance is a function<br>
512&nbsp;&nbsp;&nbsp;&nbsp; (remember<br>
513&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (lambda (datum) (set! history (cons datum history)))))<br>
514&nbsp;&nbsp;&nbsp; (object<br>
515&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((bank-account? self) #t)<br>
516&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((add self amount) ;; bank will accept money without a password<br>
517&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (remember (+ amount (balance)))<br>
518&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; print new balance<br>
519&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format #t "New balance: $~a~%" (balance)))<br>
520&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((withdraw self amount pin)<br>
521&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cond<br>
522&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((not (equal? pin a-pin)) (bad-password self pin))<br>
523&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((&lt; (- (balance) amount) 0)<br>
524&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format <br>
525&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #t<br>
526&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
527"No overdraft~% Can't withdraw more than you have: $~a~%"<br>
528&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (balance)))<br>
529&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (else<br>
530&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (remember (- (balance) amount))<br>
531&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format #t "New balance: $~a~%" (balance)))))<br>
532&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((current-balance self password)<br>
533&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (or (eq? password master-password) (equal? password a-pin))<br>
534&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format #t "Your Balance is $~a~%" (balance))<br>
535&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (bad-password self password)))<br>
536&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;; only bank has access to account history<br>
537&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((get-account-history self password)<br>
538&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (eq? password master-password)<br>
539&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; history<br>
540&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (bad-password self password))))))<br>
541<br>
542;;;------------------------------------------<br>
543;; bank-account implementation<br>
544;;-------------------------------------------<br>
545<br>
546(define (make-account a-name an-age a-ssn a-pin initial-balance master-password)<br>
547&nbsp; (object-with-ancestors<br>
548&nbsp;&nbsp;&nbsp; ((customer (make-person a-name an-age a-ssn a-pin))<br>
549&nbsp;&nbsp;&nbsp;&nbsp; (account (make-account-history initial-balance a-pin master-password)))<br>
550&nbsp;&nbsp;&nbsp; ((get-pin self password)<br>
551&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (eq? password master-password)<br>
552&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; a-pin<br>
553&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (bad-password self password)))<br>
554&nbsp;&nbsp;&nbsp; ((get-account-history self password)<br>
555&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (operate-as account get-account-history self password))<br>
556&nbsp;&nbsp;&nbsp; ;; our bank is very conservative...<br>
557&nbsp;&nbsp;&nbsp; ((bad-password self bogus-passwd)<br>
558&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format #t "~%CALL THE POLICE!!~%"))<br>
559&nbsp;&nbsp;&nbsp; ;; protect the customer as well<br>
560&nbsp;&nbsp;&nbsp; ((ssn self password)<br>
561&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (operate-as customer ssn self password))<br>
562&nbsp;&nbsp;&nbsp; ((print-obj self port)<br>
563&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format port "#&lt;Bank-Customer ~a&gt;~%" (name self)))))<br>
564<br>
565;;; eof yasos-examples.scm<br>
566<br>
567<p style="text-align: left; margin-right: 0in;">;;;============<br>
568;;; file: yasos-test.scm<br>
569;;;============</p>
570<p style="text-align: left; margin-right: 0in;">(declare (uses yasos-examples))<br>
571(define main<br>
572&nbsp; (lambda ()<br>
573&nbsp;&nbsp;&nbsp; (let<br>
574&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((p2 (make-point 1 2))<br>
575&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (p3 (make-point-3d 4 5 6))<br>
576&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (fred&nbsp; (make-person&nbsp; "Fred"&nbsp; 19 "573-19-4279" 'FadeCafe))<br>
577&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (sally (make-account "Sally" 26 "629-26-9742" 'FeedBabe 263 'bank-password)))<br>
578&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "(size-obj p2) =&gt; ~a (size-obj p3) =&gt; ~a~%" (size-obj p2) (size-obj p3))<br>
579&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (print-obj 'mist #t)<br>
580&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (print-obj p2 #t)<br>
581&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "(point? p2) =&gt; ~A (point-3d? p2) =&gt; ~A~%" (point? p2) (point-3d? p2))<br>
582&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (print-obj p3 #t)<br>
583&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "(point? p3) =&gt; ~A (point-3d? p3) =&gt; ~A~%" (point? p3) (point-3d? p3))<br>
584&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (print-obj fred #t)<br>
585&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "Fred's ssn: ~a~%" (ssn fred 'FadeCafe))<br>
586&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "Fred: person? ~a bank-account? ~a~%" (person? fred) (bank-account? fred))<br>
587&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (print-obj sally #t)<br>
588&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "Sally's&nbsp; ssn: ~a~%" (ssn sally 'FeedBabe))<br>
589&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "Sally: person? ~a bank-account? ~a~%" (person? sally) (bank-account? sally))<br>
590&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (current-balance sally 'FeedBabe)<br>
591&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (add sally 200)<br>
592&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (add sally 300)<br>
593&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (withdraw sally 400 'FeedBabe)<br>
594&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "Account history of Sally: ~a~%" (get-account-history sally 'bank-password))<br>
595&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (withdraw sally 150 (get-pin sally 'bank-password))<br>
596&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "Account history of Sally: ~a~%" (get-account-history sally 'bank-password))<br>
597&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "Bad password for Fred:~%")<br>
598&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (ssn fred 'bogus)<br>
599&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (printf "Bad password for Sally:")<br>
600&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (ssn sally 'bogus)<br>
601&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (void) <br>
602) ) )&nbsp;&nbsp; <br>
603</p>
604<p style="text-align: left; margin-right: 0in;">(main)</p>
605<p style="text-align: left; margin-right: 0in;">;;; eof yasos-test.scm<br>
606</p>
607
608
609
610
611
612
613
614
615   
616<p style="text-align: left; margin-right: 0in;"></p>
617
618
619
620
621
622
623
624
625   
626<p><span style="font-weight: bold; font-family: 'Arial';">License:</span></p>
627
628
629
630
631
632
633
634
635   
636
637
638
639
640
641
642
643
644   
645<p>COPYRIGHT (c) 1992,2008 by Kenneth A Dickey, All rights reserved.</p>
646
647
648
649
650
651
652
653
654   
655
656
657
658
659
660
661
662
663   
664<p style="text-align: left; margin-right: 0in;">Permission is hereby
665granted, free of charge, to any person obtaining a copy of this
666software and associated documentation files (the "Software"), to deal
667in the Software without restriction, including without limitation the
668rights to use, copy, modify, merge, publish, distribute, sublicense,
669and/or sell copies of the Software, and to permit persons to whom the
670Software is furnished to do so, subject to the following conditions:</p>
671
672
673
674
675
676
677
678
679   
680
681
682
683
684
685
686
687
688   
689<p style="text-align: left; margin-right: 0in;">The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.</p>
690
691
692
693
694
695
696
697
698   
699
700
701
702
703
704
705
706
707   
708<p style="text-align: left; margin-right: 0in;">THE SOFTWARE IS
709PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
710INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
711FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
712AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
713LIABILITY,WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
714FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
715DEALINGS IN THE SOFTWARE.</p>
716
717
718
719
720
721
722
723
724   
725<p style="text-align: left; margin-right: 0in;"></p>
726
727
728
729
730
731
732
733
734   
735<p style="text-align: left; margin-right: 0in;"></p>
736
737
738
739
740
741
742
743
744   
745<p></p>
746
747
748
749
750
751
752
753
754   
755<p></p>
756
757
758
759
760
761
762
763
764   
765<p></p>
766
767
768
769
770
771
772
773
774   
775<p></p>
776
777
778
779
780
781
782
783
784   
785<p></p>
786
787
788
789
790
791
792
793
794   
795<p></p>
796
797
798
799
800
801
802
803
804   
805<p></p>
806
807
808
809
810
811
812
813
814   
815<p></p>
816
817
818
819
820
821
822
823
824   
825<p></p>
826
827
828
829
830
831
832
833
834   
835<p></p>
836
837
838
839
840
841
842
843
844   
845<p></p>
846
847
848
849
850
851
852
853
854   
855<p></p>
856
857
858
859
860
861
862
863
864   
865<p></p>
866
867
868
869
870
871
872
873
874   
875<p></p>
876
877
878
879
880
881
882
883
884   
885<p></p>
886
887
888
889
890
891
892
893
894   
895<p></p>
896
897
898
899
900
901
902
903
904   
905<p></p>
906
907
908
909
910
911
912
913
914   
915<p></p>
916
917
918
919
920
921
922
923
924   
925<p></p>
926
927
928
929
930
931
932
933
934   
935<p></p>
936
937
938
939
940
941
942
943
944   
945<p></p>
946
947
948
949
950
951
952
953
954   
955<p></p>
956
957
958
959
960
961
962
963
964   
965<p></p>
966
967
968
969
970
971
972
973
974  </div>
975
976
977
978
979
980
981
982
983 
984<div>
985   
986<p></p>
987
988
989
990
991
992
993
994
995  </div>
996
997
998
999
1000
1001
1002
1003
1004 
1005</body>
1006</html>
Note: See TracBrowser for help on using the repository browser.