blob: d38cb1365a6e905d17e93fcd94781d6976db5968 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/env -S scsh -e main -o srfi-1 -s
!#
(define (main args)
(let* ((class-name (cadr args))
(file-names
(run/strings (find "."
-path "./cdk.out" -prune -o
-type f
-name ,(string-append class-name ".php")
-exec grep "^namespace" "{}" ";")
(> 2 "/dev/null"))))
(format #t "~s"
(delete-duplicates
(map (lambda (n)
(string-append
(match:substring
(regexp-search (rx "namespace " (submatch (+ any)) ";") n)
1)
"\\"
class-name))
file-names)))))
|
