[q-lang-cvs] qcalc qcalc.q,1.179,1.180

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv2313

Modified Files:
	qcalc.q 
Log Message:
bugfix: compilation tries to create the bytecode file in the script directory, which might not be writable

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.179
retrieving revision 1.180
diff -C2 -d -r1.179 -r1.180
*** qcalc.q	23 Nov 2007 22:09:18 -0000	1.179
--- qcalc.q	23 Nov 2007 22:36:56 -0000	1.180
***************
*** 928,933 ****
  def TEMPL = "%s\nimport calclib;\n/* Main program generated by QCalc. */\n",
    CMD = "pwd='%s'; filename='%s'; cd \"$pwd\"; echo '+++ Compile:'; \
! if qc -n $filename; then echo '+++ Done.'; q -c yymain -w0 \"$filename\"; \
! else echo '+++ Error.'; fi";
  
  /* Compile stuff and start the interpreter. */
--- 928,933 ----
  def TEMPL = "%s\nimport calclib;\n/* Main program generated by QCalc. */\n",
    CMD = "pwd='%s'; filename='%s'; cd \"$pwd\"; echo '+++ Compile:'; \
! if qc -n -o \"$filename.out\" \"$filename\"; then echo '+++ Done.'; \
! q -c yymain -w0 \"$filename\"; else echo '+++ Error.'; fi";
  
  /* Compile stuff and start the interpreter. */