[q-lang-cvs] qmidicc qmidicc.q,1.3,1.4
Brought to you by:
agraef
From: Albert G. <ag...@us...> - 2007-12-17 08:56:45
|
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. ************************************/ |