1 (define-module (language python module python
)
2 #:use-module
(oop goops
)
3 #:use-module
(ice-9 match
)
4 #:use-module
(ice-9 readline
)
5 #:use-module
((oop pf-objects
) #:select
6 (<p
> <property
> class-method static-method refq
8 #:use-module
(language python exceptions
)
9 #:use-module
(language python def
)
10 #:use-module
(language python for
)
11 #:use-module
(language python try
)
12 #:use-module
(language python yield
)
13 #:use-module
(language python list
)
14 #:use-module
(language python dict
)
15 #:use-module
(language python set
)
16 #:use-module
(language python compile
)
17 #:use-module
(language python string
)
18 #:use-module
(language python set
)
19 #:use-module
(language python number
)
20 #:use-module
(language python dir
)
21 #:use-module
(language python hash
)
22 #:use-module
(language python property
)
23 #:use-module
(language python range
)
24 #:use-module
(language python tuple
)
26 #:replace
(list abs min max hash round
)
27 #:re-export
(Exception StopIteration send sendException next
28 GeneratorExit sendClose RuntimeError
29 len dir next dict None property range
32 #:export
(print repr complex float int
33 set all any bin callable reversed
34 chr classmethod staticmethod
35 divmod enumerate filter format
36 getattr hasattr hex isinstance
37 iter map sum id input oct ord pow super
40 (define-syntax-rule (aif it p x y
) (let ((it p
)) (if it x y
)))
45 ((x) (format #t
"~s~%" x
))
46 (l (format #t
"~s~%" l
))))
48 (define (repr x
) (format #f
"~a" x
))
50 (define string pystring
)
51 (define complex py-complex
)
52 (define float py-float
)
54 (define round py-round
)
59 (define divmod py-divmod
)
60 (define format py-format
)
64 (define-method (callable x
) #f
)
65 (define-method (callable (x <procedure
> )) #t
)
66 (define-method (callable (x <procedure-class
> )) #t
)
67 (define-method (callable (x <applicable
> )) #t
)
68 (define-method (callable (x <primitive-generic
>)) #t
)
69 (define-method (callable (x <p
>))
72 (define chr integer-
>char
)
74 (define classmethod class-method
)
75 (define staticmethod static-method
)
78 (make-generator enumerate
80 (for ((x : l
)) ((i 0))
85 (make-generator enumerate
91 (define miss
((@ (guile) list
) 'miss
))
93 (define* (getattr a b
#:optional
(k miss
))
94 (let ((r (refq a
(symbol->string b
) k
)))
96 (raise AttributeError
"object/class ~a is missing attribute ~a" a b
)
100 (let ((r (refq a
(symbol->string b
) miss
)))
103 (define (isinstance o cl
)
106 (isinstance o
(car cl
))
107 (isinstance o
(cdr cl
)))
112 ((o) (aif it
(wrap-in o
)
114 (aif get
(refq o
'__getitem__
)
120 (raise TypeError
"not iterable" o
))))
136 (with-syntax (((x ...
) (generate-temporaries #'(a ...
))))
137 #'(make-generator map
139 (for ((x : a
) ...
) () (yield (f x ...
))))))))))
141 (define* (sum i
#:optional
(start 0))
142 (for ((x : i
)) ((s start
))
148 (define (id x
) (object-address x
))
156 (def (py-min (* l
) (= key idx
) (= default miss
))
160 (for ((x : it
)) ((s default
) (b default
))
169 (raise ValueError
"min does not work for zero length list")
171 (_ (lp ((@ (guile) list
) l
))))))
173 (def (py-max (* l
) (= key idx
) (= default miss
))
177 (for ((x : it
)) ((s default
) (b default
))
178 (if (eq? default miss
)
186 (raise ValueError
"min does not work for zero length list")
188 (_ (lp ((@ (guile) list
) l
))))))
190 (define (oct x
) (+ "0o" (number->string
(py-index x
) 8)))
191 (define (ord x
) (char->integer
(string-ref (pylist-ref x
0) 0)))
198 (py-mod (expt x y
) z
))))
200 (define-syntax-rule (super . l
) (py-super-mac . l
))
205 (define reversed py-reversed
)
206 (define (key-id x
) x
)
207 (define* (sorted it
#:key
(key key-id
) (reverse #f
))
208 (define l
(to-pylist '()))
209 (for ((x : it
)) () (pylist-append! l x
))
210 (pylist-sort! l
#:key key
#:reverse reverse
)
214 (let ((l ((@ (guile) map
) wrap-in l
)))
218 (let lp2
((l l
) (r '()))
220 (call-with-values (lambda () (next (car l
)))
222 (lp2 (cdr l
) (append (reverse z
) r
))))