mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
36 lines
1.1 KiB
Scheme
36 lines
1.1 KiB
Scheme
(import
|
|
(scheme base)
|
|
(scheme write)
|
|
(scheme cyclone util)
|
|
(srfi 1))
|
|
|
|
;; TODO: move this somewhere useful
|
|
(define (index-of lst x)
|
|
(define (find lst idx)
|
|
(cond
|
|
((null? lst) #f)
|
|
((eq? (car lst) x) idx)
|
|
(else (find (cdr lst) (+ idx 1)))))
|
|
(find lst 0))
|
|
|
|
;; goal is:
|
|
;; [`load`](api/scheme/load.md#load)
|
|
;(define line "docs/api/scheme/base.md:- [`denominator`](#denominator)")
|
|
(define line "docs/api/scheme/process-context.md:- [`get-environment-variables`](#get-environment-variables)")
|
|
|
|
(define (convert-line line)
|
|
(let* ((lis (string->list line))
|
|
(s-file 5)
|
|
(e-file (index-of lis #\:))
|
|
(file (substring line s-file e-file))
|
|
(s-fnc (+ 1 (index-of lis #\`)))
|
|
(e-fnc (+ s-fnc (index-of (string->list (substring line (+ 0 s-fnc) (string-length line))) #\`)))
|
|
(fnc (substring line s-fnc e-fnc)))
|
|
(string-append
|
|
"[`" fnc "`](" file "#" fnc ")")))
|
|
|
|
(display (convert-line line))
|
|
;(define (loop)
|
|
; (let ((line (read-line)))
|
|
; (if (not (eof? line))
|
|
; (display (convert-line line)))))
|