Update of /cvsroot/q-lang/q/modules/octave
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv28273
Modified Files:
octave.c
Log Message:
fixes for latest octave versions
Index: octave.c
===================================================================
RCS file: /cvsroot/q-lang/q/modules/octave/octave.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** octave.c 24 Jan 2006 01:21:32 -0000 1.5
--- octave.c 26 Feb 2008 00:24:47 -0000 1.6
***************
*** 293,297 ****
}
if ((fp = fopen(octaverc, "w"))) {
! fprintf(fp, "PS1 = PS2 = PS4 = \"\";\n");
if (bak && (fp2 = fopen(octaverc_bak, "r"))) {
/* copy contents of previous .octaverc */
--- 293,297 ----
}
if ((fp = fopen(octaverc, "w"))) {
! fprintf(fp, "if (exist (\"OCTAVE_VERSION\") == 5) eval('PS1(\"\"); PS2(\"\"); PS4(\"\");'); else eval('PS1 = PS2 = PS4 = \"\";'); endif\n");
if (bak && (fp2 = fopen(octaverc_bak, "r"))) {
/* copy contents of previous .octaverc */
|
