Update of /cvsroot/q-lang/qmidicc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv16072
Modified Files:
qmidicc.q
Log Message:
bugfix: midiccrc file not found in installation directory
Index: qmidicc.q
===================================================================
RCS file: /cvsroot/q-lang/qmidicc/qmidicc.q,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** qmidicc.q 17 Oct 2007 23:39:09 -0000 1.3
--- qmidicc.q 17 Dec 2007 08:56:42 -0000 1.4
***************
*** 32,39 ****
= "/" otherwise;
- prefix NAME = substr ANAME 0 (#ANAME-2)
- where ANAME:String = which NAME;
- = NAME otherwise;
-
lines S = split "\n" S;
--- 32,35 ----
***************
*** 49,53 ****
where F:File = fopen (home++"/.midiccrc") "r";
= parse (lines (fget F))
! where F:File = fopen (prefix "midicc"++"rc") "r";
= [] otherwise;
--- 45,49 ----
where F:File = fopen (home++"/.midiccrc") "r";
= parse (lines (fget F))
! where F:File = fopen (which "midiccrc") "r";
= [] otherwise;
***************
*** 222,226 ****
= edit NAME
if isfile (fopen NAME "r")
! where NAME = prefix "midicc"++"rc";
/* Qt/Q GUI. *** NEW STUFF STARTS HERE. ************************************/
--- 218,222 ----
= edit NAME
if isfile (fopen NAME "r")
! where NAME = which "midiccrc";
/* Qt/Q GUI. *** NEW STUFF STARTS HERE. ************************************/
|
