From 684f172537d838cb85ade3480600325d50a6c544 Mon Sep 17 00:00:00 2001 From: Ibrahim Mkusa Date: Sun, 16 Apr 2017 18:45:22 -0400 Subject: [PATCH] use relative paths when opening files --- .gitignore | 1 + Hermes/Makefile | 2 +- Hermes/server.rkt | 4 ++-- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/.gitignore b/.gitignore index 7c07843..b917769 100644 --- a/.gitignore +++ b/.gitignore @@ -1,5 +1,6 @@ # ignore temporary files *~ +*.txt # ignore logs and configuration files *.out diff --git a/Hermes/Makefile b/Hermes/Makefile index fdd9a07..c580a71 100644 --- a/Hermes/Makefile +++ b/Hermes/Makefile @@ -1,3 +1,3 @@ # Remove temporary files clean: - rm -rf *~ *.out *.conf + rm -rf *~ *.out *.conf *.txt diff --git a/Hermes/server.rkt b/Hermes/server.rkt index df1cf26..9b1a171 100644 --- a/Hermes/server.rkt +++ b/Hermes/server.rkt @@ -77,8 +77,8 @@ (define messages-s (make-semaphore 1)) ;; control access to messages ; 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 convs-out (open-output-file "/home/pcuser/Hermes/Hermes/conversations_server.txt" #:exists 'append)) +(define error-out (open-output-file "./error_server.txt" #:exists 'append)) +(define convs-out (open-output-file "./conversations_server.txt" #:exists 'append)) (define error-out-s (make-semaphore 1)) (define convs-out-s (make-semaphore 1)) ; TODO finish logging all error related messages to