blob: d8795c29fcb996e3fd5512282713017840f48436 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/env -S scsh -e main -o srfi-1 -s
!#
(define (main args)
(let* ((class-name (cadr args))
(file-names
(run/strings (find "." -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)))))
|
