[q-lang-cvs] q/modules/octave octave.c,1.5,1.6

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

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 */