tribes/gulie
1
0
Fork 0
Code Issues Pull Requests Releases Activity

style: Dog fooding

Browse Source
This commit is contained in:
Steffen
2026-04-02 00:20:24 +02:00
parent 98fbba03cb
commit f512e0aced
7 changed files with 2 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
gulie/cli.scm
View File

@@ -7,7 +7,6 @@
#:use-module (gulie config) #:use-module (gulie config)
#:use-module (gulie engine) #:use-module (gulie engine)
#:use-module (gulie rule) #:use-module (gulie rule)
#:use-module (gulie diagnostic)
#:export (main)) #:export (main))
(define version "0.1.0") (define version "0.1.0")

2
gulie/compiler.scm
View File

@@ -6,9 +6,7 @@
(define-module (gulie compiler) (define-module (gulie compiler)
#:use-module (system base compile) #:use-module (system base compile)
#:use-module (system base message)
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
#:use-module (ice-9 match)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (gulie diagnostic) #:use-module (gulie diagnostic)
#:export (compile-and-capture-warnings)) #:export (compile-and-capture-warnings))

10
gulie/config.scm
View File

@@ -4,7 +4,6 @@
;;; merges with built-in defaults, and provides config accessors. ;;; merges with built-in defaults, and provides config accessors.
(define-module (gulie config) (define-module (gulie config)
#:use-module (ice-9 rdelim)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:export (default-config #:export (default-config
load-config load-config
@@ -111,15 +110,6 @@ lists are replaced, not appended."
(lp (assq-set! (list-copy result) (car pair) (cdr pair)) (lp (assq-set! (list-copy result) (car pair) (cdr pair))
(cdr pairs)))))) (cdr pairs))))))
(define (find-config-file start-dir)
"Search upward from START-DIR for .gulie.sexp. Returns path or #f."
(let lp ((dir start-dir))
(let ((candidate (string-append dir "/.gulie.sexp")))
(cond
((file-exists? candidate) candidate)
((string=? dir "/") #f)
(else (lp (dirname dir)))))))
(define (generate-template port) (define (generate-template port)
"Write a template .gulie.sexp to PORT." "Write a template .gulie.sexp to PORT."
(display ";;; gulie configuration\n" port) (display ";;; gulie configuration\n" port)

1
gulie/cst.scm
View File

@@ -5,7 +5,6 @@
(define-module (gulie cst) (define-module (gulie cst)
#:use-module (srfi srfi-9) #:use-module (srfi srfi-9)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-11) #:use-module (srfi srfi-11)
#:use-module (gulie tokenizer) #:use-module (gulie tokenizer)
#:export (<cst-node> #:export (<cst-node>

2
gulie/engine.scm
View File

@@ -7,11 +7,9 @@
(define-module (gulie engine) (define-module (gulie engine)
#:use-module (ice-9 ftw) #:use-module (ice-9 ftw)
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:use-module (ice-9 regex)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (gulie diagnostic) #:use-module (gulie diagnostic)
#:use-module (gulie rule) #:use-module (gulie rule)
#:use-module (gulie config)
#:use-module (gulie suppression) #:use-module (gulie suppression)
#:export (lint-file #:export (lint-file
lint-files lint-files

4
gulie/suppression.scm
View File

@@ -6,7 +6,6 @@
(define-module (gulie suppression) (define-module (gulie suppression)
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
#:use-module (ice-9 rdelim)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (gulie diagnostic) #:use-module (gulie diagnostic)
#:export (parse-suppressions #:export (parse-suppressions
@@ -42,8 +41,7 @@
(define (parse-suppressions text) (define (parse-suppressions text)
"Parse suppression directives from source TEXT. "Parse suppression directives from source TEXT.
Returns a list of (line rules kind) entries." Returns a list of (line rules kind) entries."
(let ((lines (string-split text #\newline)) (let ((lines (string-split text #\newline)))
(result '()))
(let lp ((lines lines) (line-num 1) (acc '())) (let lp ((lines lines) (line-num 1) (acc '()))
(if (null? lines) (if (null? lines)
(reverse acc) (reverse acc)

2
test/test-rules.scm
View File

@@ -37,7 +37,7 @@
'() '()
((rule-check-proc rule) "f.scm" 1 "(define x 42)" '())) ((rule-check-proc rule) "f.scm" 1 "(define x 42)" '()))
(let* ((long-line (make-string 81 #\x)) (let* ((long-line (make-string 119 #\x))
(diags ((rule-check-proc rule) "f.scm" 1 long-line '()))) (diags ((rule-check-proc rule) "f.scm" 1 long-line '())))
(test-equal "long line detected" 1 (length diags))) (test-equal "long line detected" 1 (length diags)))