summaryrefslogtreecommitdiff
path: root/lang/elisp/primitives/strings.scm
blob: 85e462f8b1721b987598ea4b77cacfcce8832780 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
(define-module (lang elisp primitives strings)
  #:use-module (lang elisp internals fset)
  #:use-module (lang elisp internals null)
  #:use-module (lang elisp internals signal))

(fset 'substring substring)

(fset 'concat
      (lambda args
	(apply string-append
	       (map (lambda (arg)
		      (cond
		       ((string? arg) arg)
		       ((list? arg) (list->string arg))
		       ((vector? arg) (list->string (vector->list arg)))
		       (else (error "Wrong type argument for concat"))))
		    args))))

(fset 'string-to-number string->number)

(fset 'number-to-string number->string)

(fset 'string-lessp (lambda->nil string<?))
(fset 'string< 'string-lessp)

(fset 'aref
      (lambda (array idx)
	(cond ((vector? array) (vector-ref array idx))
	      ((string? array) (char->integer (string-ref array idx)))
	      (else (wta 'arrayp array 1)))))

(fset 'aset
      (lambda (array idx newelt)
	(cond ((vector? array) (vector-set! array idx newelt))
	      ((string? array) (string-set! array idx (integer->char newelt)))
	      (else (wta 'arrayp array 1)))))

(fset 'stringp (lambda->nil string?))

(fset 'vector vector)