On Thu, Jan 19, 2017 at 7:10 PM, Philip McGrath <phi...@philipmcgrath.com> wrote: > Assuming I understand it correctly, I think the problem in the original is > that, in Dr. Racket, (find-system-path 'run-file) returns the path of Dr. > Racket, whereas at the shell it returns the path of the file being run.
That's exactly it, yes. I hadn't formatted it that way, but you're right. > > It's a hack, but I think you could make a quick and dirty solution to > finding the directory of the running module in either case by checking if > the program is running in Dr. Racket and, if it is, taking advantage of the > way Dr. Racket initializes current-directory. This seems to work, assuming > that your program isn't supposed to have "DrRacket" anywhere in its path and > that Dr. Racket does (it does on MacOS, at least): > > (let ([run-file (path->complete-path (find-system-path 'run-file))]) > (cond > [(regexp-match? #rx"DrRacket" run-file) > (path->complete-path > (current-directory))] > [else > (path-only run-file)])) > > Cool, thank you. > -Philip > > On Thu, Jan 19, 2017 at 5:45 PM, Robby Findler <ro...@eecs.northwestern.edu> > wrote: >> >> In DrRacet, current-directory in initialized to the directory >> containing the file where you hit "Run" and in the shell it is >> initialized to the current directory as understood by the shell. >> >> Is that what you're asking? >> >> Robby >> >> >> On Thu, Jan 19, 2017 at 4:36 PM, David Storrs <david.sto...@gmail.com> >> wrote: >> > For the record, I know I can pass an absolute path (defined with >> > define-runtime-path) to load-initial-data. My question is more about >> > "why is this different between the shell and Dr Racket?" >> > >> > On Thu, Jan 19, 2017 at 5:23 PM, David Storrs <david.sto...@gmail.com> >> > wrote: >> >> define-runtime-path is based on the enclosing file, not the running >> >> file. >> >> >> >> >> >> >> >> ;; file: app/lib/db/initial_test_data.sql >> >> ...various SQL commands... >> >> >> >> >> >> ;; file: app/lib/t/testing_utils.rkt >> >> (define-runtime-path thisdir ".") >> >> (define cmd (string-append "psql -d biomantica < " >> >> (path->string (build-path thisdir >> >> where)))) >> >> (say "shelling out in order to load initial data into DB. Command >> >> is: \n\t" cmd) >> >> (system cmd) >> >> ) >> >> >> >> >> >> ;; file: app/test_1.rkt >> >> (require "lib/t/testing_utils.rkt") >> >> (load-initial-data "lib/db/initial_test_data.sql") >> >> >> >> >> >> ;; file: app/lib/db/test_2.rkt >> >> (require "../t/testing_utils.rkt") >> >> (load-initial-data "./initial_test_data.sql") >> >> >> >> >> >> $ ./test_1.rkt >> >> shelling out in order to load initial data into DB. Command is: >> >> psql -d biomantica < ./lib/db/initial_test_data.sql >> >> INSERT 0 0 >> >> ...lots of other SQL results... >> >> >> >> $ ./lib/db/test_2.rkt >> >> shelling out in order to load initial data into DB. Command is: >> >> psql -d biomantica < ././initial_test_data.sql >> >> /bin/sh: ././initial_test_data.sql: No such file or directory >> >> #f >> >> >> >> >> >> Note that both test_N.rkt files worked when I used the prior version. >> >> >> >> On Thu, Jan 19, 2017 at 12:52 PM, Robby Findler >> >> <ro...@eecs.northwestern.edu> wrote: >> >>> define-runtime-path is designed for this problem, IIUC. Let me know if >> >>> the docs don't help. >> >>> >> >>> Robby >> >>> >> >>> On Thu, Jan 19, 2017 at 11:47 AM, David Storrs >> >>> <david.sto...@gmail.com> wrote: >> >>>> Short form: When using Dr Racket, how do I write something that says >> >>>> "Here is a path to a file that I care about. The path is relative to >> >>>> you, the script that is running the code" ? >> >>>> >> >>>> Long form: >> >>>> >> >>>> I have a file, testing_utils.rkt, that includes the following snippet >> >>>> of code: >> >>>> >> >>>> (define (load-initial-data where) >> >>>> (define cmd (string-append "psql -d biomantica < " >> >>>> (path->string >> >>>> (path-only >> >>>> (path->complete-path >> >>>> (find-system-path 'run-file)))) >> >>>> where)) >> >>>> (say "shelling out in order to load initial data into DB. Command >> >>>> is: \n\t" cmd) >> >>>> >> >>>> (void >> >>>> (with-output-to-string ;; silence the output >> >>>> (thunk >> >>>> (system cmd))))) >> >>>> >> >>>> >> >>>> The way this gets used is that one of our test scripts (e.g. >> >>>> 'endpoints.t') will (require "path/to/testing_utils.rkt") and then >> >>>> call the load-initial-data function as follows: >> >>>> >> >>>> (load-initial-data "../initial_test_data.sql") >> >>>> >> >>>> I operate in Emacs via the shell, while my cofounder James uses Dr >> >>>> Racket. The above sequence works for me but not for him. When I run >> >>>> endpoints.t it locates the endpoints.t file, generates the path from >> >>>> there to the initial_test_data.sql file, and shells out to run that >> >>>> SQL through psql in order to load the database for testing. When >> >>>> James tries it it fails. >> >>>> >> >>>> The failure seems to be that for me "the running script" is the >> >>>> endpoints.t file, while for him it's the Dr Racket executable. I'm >> >>>> not sure where to even begin sorting this out, so I was hoping for >> >>>> some help. >> >>>> >> >>>> Any thoughts? >> >>>> >> >>>> Dave >> >>>> >> >>>> >> >>>> PS: James had to step out for something else or he would be sending >> >>>> this himself. >> >>>> >> >>>> -- >> >>>> You received this message because you are subscribed to the Google >> >>>> Groups "Racket Users" group. >> >>>> To unsubscribe from this group and stop receiving emails from it, >> >>>> send an email to racket-users+unsubscr...@googlegroups.com. >> >>>> For more options, visit https://groups.google.com/d/optout. >> >>> >> >>> -- >> >>> You received this message because you are subscribed to the Google >> >>> Groups "Racket Users" group. >> >>> To unsubscribe from this group and stop receiving emails from it, send >> >>> an email to racket-users+unsubscr...@googlegroups.com. >> >>> For more options, visit https://groups.google.com/d/optout. >> > >> > -- >> > You received this message because you are subscribed to the Google >> > Groups "Racket Users" group. >> > To unsubscribe from this group and stop receiving emails from it, send >> > an email to racket-users+unsubscr...@googlegroups.com. >> > For more options, visit https://groups.google.com/d/optout. >> >> -- >> You received this message because you are subscribed to the Google Groups >> "Racket Users" group. >> To unsubscribe from this group and stop receiving emails from it, send an >> email to racket-users+unsubscr...@googlegroups.com. >> For more options, visit https://groups.google.com/d/optout. > > -- You received this message because you are subscribed to the Google Groups "Racket Users" group. To unsubscribe from this group and stop receiving emails from it, send an email to racket-users+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.
