use relative paths when opening files

This commit is contained in:
Ibrahim Mkusa 2017-04-16 18:45:22 -04:00
parent ed029f7906
commit 684f172537
3 changed files with 4 additions and 3 deletions

1
.gitignore vendored
View File

@ -1,5 +1,6 @@
# ignore temporary files # ignore temporary files
*~ *~
*.txt
# ignore logs and configuration files # ignore logs and configuration files
*.out *.out

View File

@ -1,3 +1,3 @@
# Remove temporary files # Remove temporary files
clean: clean:
rm -rf *~ *.out *.conf rm -rf *~ *.out *.conf *.txt

View File

@ -77,8 +77,8 @@
(define messages-s (make-semaphore 1)) ;; control access to messages (define messages-s (make-semaphore 1)) ;; control access to messages
; two files to store error messages, and channel conversations ; two files to store error messages, and channel conversations
(define error-out (open-output-file "/home/pcuser/Hermes/Hermes/error_server.txt" #:exists 'append)) (define error-out (open-output-file "./error_server.txt" #:exists 'append))
(define convs-out (open-output-file "/home/pcuser/Hermes/Hermes/conversations_server.txt" #:exists 'append)) (define convs-out (open-output-file "./conversations_server.txt" #:exists 'append))
(define error-out-s (make-semaphore 1)) (define error-out-s (make-semaphore 1))
(define convs-out-s (make-semaphore 1)) (define convs-out-s (make-semaphore 1))
; TODO finish logging all error related messages to ; TODO finish logging all error related messages to