Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Clean up error messages, provide filename if able

Browse source
This commit is contained in:
Justin Ethier 2020-07-21 22:35:47 -04:00
parent de1a97fbe7
commit 0d25e5e122
3 changed files with 19 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
cyclone.scm
View file

@ -957,6 +957,7 @@ Debug options:
(parameterize ((current-output-port (current-error-port)))
(display "Error: ")
(display (car err))
(display ": ")
(newline)
(for-each
(lambda (obj)

12
scheme/base.sld
View file

@ -243,19 +243,17 @@
(if loc-vec
(error
(string-append
"invalid syntax "
reason
" in "
"("
(vector-ref loc-vec 0)
" line "
(number->string (vector-ref loc-vec 1))
", column "
(number->string (vector-ref loc-vec 2)))
(number->string (vector-ref loc-vec 2))
") "
reason)
expr)
(error
(string-append
"invalid syntax "
reason)
reason
expr))))
;; Features implemented by this Scheme

20
scheme/read.sld
View file

@ -73,7 +73,7 @@
#f)))
(let ((result (parse fp ssi! fname)))
(if (Cyc-opaque? result)
(read-error fp "unexpected closing parenthesis")
(read-error fp fname "unexpected closing parenthesis")
result)))))
;; Read given file, collecting source location information so we
@ -115,14 +115,20 @@
" Cyc_io_read_token(data, k, port);")
(define-c read-error
"(void *data, int argc, closure _, object k, object port, object msg)"
"(void *data, int argc, closure _, object k, object port, object filename, object msg)"
" char buf[1024];
port_type *p;
Cyc_check_port(data, port);
Cyc_check_str(data, msg);
p = ((port_type *)port);
snprintf(buf, 1023, \"(line %d, column %d): %s\",
p->line_num, p->col_num, string_str(msg));
if (Cyc_is_string(filename) == boolean_t) {
snprintf(buf, 1023, \"(%s line %d, column %d): %s\",
string_str(filename), p->line_num, p->col_num,
string_str(msg));
} else {
snprintf(buf, 1023, \"(line %d, column %d): %s\",
p->line_num, p->col_num, string_str(msg));
}
Cyc_rt_raise_msg(data, buf);")
(define-c Cyc-opaque-eq?
@ -203,7 +209,7 @@
(t (parse fp ssi! fname)))
(cond
((eof-object? t)
(read-error fp "missing closing parenthesis"))
(read-error fp fname "missing closing parenthesis"))
((Cyc-opaque-eq? t #\))
(if (and (> (length lis) 2)
(equal? (cadr lis) *sym-dot*))
@ -265,7 +271,7 @@
(t (parse fp ssi! fname)))
(cond
((eof-object? t)
(read-error fp "missing closing parenthesis"))
(read-error fp fname "missing closing parenthesis"))
((Cyc-opaque-eq? t #\))
(list->vector (reverse lis)))
(else
@ -275,7 +281,7 @@
(t (parse fp ssi! fname)))
(cond
((eof-object? t)
(read-error fp "missing closing parenthesis"))
(read-error fp fname "missing closing parenthesis"))
((Cyc-opaque-eq? t #\))
(apply bytevector (reverse lis)))
(else