pspp-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Pspp-cvs] pspp config/ChangeLog config/devices src/ui/ter...


From: Ben Pfaff
Subject: [Pspp-cvs] pspp config/ChangeLog config/devices src/ui/ter...
Date: Sun, 26 Aug 2007 18:26:29 +0000

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 07/08/26 18:26:29

Modified files:
        config         : ChangeLog devices 
        src/ui/terminal: ChangeLog msg-ui.c 
        tests          : ChangeLog 
        tests/command  : aggregate.sh rank.sh 

Log message:
        Send error message to non-screen output devices also, if routing to
        listing files is enabled.  Bug #17238.  Thanks to John Darrington for
        review.
        
        * command/aggregate.sh: Update output to include error messages,
        which are now sent to output files also.
        
        * devices: Change raw-ascii from screen to listing device (because
        that's how it's used).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/config/ChangeLog?cvsroot=pspp&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/pspp/config/devices?cvsroot=pspp&r1=1.8&r2=1.9
http://cvs.savannah.gnu.org/viewcvs/pspp/src/ui/terminal/ChangeLog?cvsroot=pspp&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/pspp/src/ui/terminal/msg-ui.c?cvsroot=pspp&r1=1.14&r2=1.15
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/ChangeLog?cvsroot=pspp&r1=1.104&r2=1.105
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/command/aggregate.sh?cvsroot=pspp&r1=1.17&r2=1.18
http://cvs.savannah.gnu.org/viewcvs/pspp/tests/command/rank.sh?cvsroot=pspp&r1=1.6&r2=1.7

Patches:
Index: config/ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/config/ChangeLog,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- config/ChangeLog    27 Jul 2007 22:59:32 -0000      1.7
+++ config/ChangeLog    26 Aug 2007 18:26:29 -0000      1.8
@@ -1,3 +1,8 @@
+2007-08-26  Ben Pfaff  <address@hidden>
+
+       * devices: Change raw-ascii from screen to listing device (because
+       that's how it's used).
+
 2007-07-25  Ben Pfaff  <address@hidden>
 
        * devices: Add tty and listing devices that use VT100 (and xterm)

Index: config/devices
===================================================================
RCS file: /cvsroot/pspp/pspp/config/devices,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- config/devices      27 Jul 2007 22:59:32 -0000      1.8
+++ config/devices      26 Aug 2007 18:26:29 -0000      1.9
@@ -53,7 +53,7 @@
   paginate=off length=${viewlength} width=${viewwidth} \
   output-file=${tty-output-file}
 list-ascii:ascii:listing:length=66 width=79 output-file=${list-output-file}
-raw-ascii:ascii:screen:width=9999 length=9999 output-file=${list-output-file} \
+raw-ascii:ascii:listing:width=9999 length=9999 output-file=${list-output-file} 
\
   emphasis=none headers=off paginate=off squeeze=on \
   top-margin=0 bottom-margin=0
 

Index: src/ui/terminal/ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/src/ui/terminal/ChangeLog,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- src/ui/terminal/ChangeLog   24 Aug 2007 05:00:51 -0000      1.25
+++ src/ui/terminal/ChangeLog   26 Aug 2007 18:26:29 -0000      1.26
@@ -1,3 +1,9 @@
+2007-08-26  Ben Pfaff  <address@hidden>
+
+       * msg-ui.c (handle_msg): Send error message to non-screen output
+       devices also, if routing to listing files is enabled.  Bug
+       #17238.  Thanks to John Darrington for review.
+
 2007-08-23  Ben Pfaff  <address@hidden>
 
        Implement journaling.  Bug #17240.

Index: src/ui/terminal/msg-ui.c
===================================================================
RCS file: /cvsroot/pspp/pspp/src/ui/terminal/msg-ui.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- src/ui/terminal/msg-ui.c    24 Aug 2007 05:00:51 -0000      1.14
+++ src/ui/terminal/msg-ui.c    26 Aug 2007 18:26:29 -0000      1.15
@@ -26,6 +26,8 @@
 #include <libpspp/message.h>
 #include <libpspp/str.h>
 #include <output/journal.h>
+#include <output/output.h>
+#include <output/table.h>
 #include <errno.h>
 #include <stdio.h>
 #include <stdlib.h>
@@ -177,6 +179,16 @@
 
   dump_message (ds_cstr (&string), 78, 0, write_journal, NULL);
 
+  if (get_error_routing_to_listing ())
+    {
+      /* Disable screen output devices, because the error should
+         already have been reported to the screen with the
+         dump_message call above. */
+      outp_enable_device (false, OUTP_DEV_SCREEN);
+      tab_output_text (TAB_LEFT, ds_cstr (&string));
+      outp_enable_device (true, OUTP_DEV_SCREEN);
+    }
+
   ds_destroy (&string);
 }
 

Index: tests/ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/ChangeLog,v
retrieving revision 1.104
retrieving revision 1.105
diff -u -b -r1.104 -r1.105
--- tests/ChangeLog     13 Aug 2007 04:50:29 -0000      1.104
+++ tests/ChangeLog     26 Aug 2007 18:26:29 -0000      1.105
@@ -1,3 +1,10 @@
+2007-08-26  Ben Pfaff  <address@hidden>
+
+       * command/aggregate.sh: Update output to include error messages,
+       which are now sent to output files also.
+
+       * command/ranks.h: Ditto.
+
 2007-08-12  Ben Pfaff  <address@hidden>
 
        * command/no_case_size.sh: Update to match update DISPLAY and

Index: tests/command/aggregate.sh
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/command/aggregate.sh,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- tests/command/aggregate.sh  7 Nov 2006 13:00:00 -0000       1.17
+++ tests/command/aggregate.sh  26 Aug 2007 18:26:29 -0000      1.18
@@ -150,6 +150,10 @@
 
 activity="expected output (itemwise missing) create"
 cat > agg-itemwise.out <<EOF
+warning: AGGREGATE: The value arguments passed to the FOUT function are 
out-of-order.  They will be treated as if they had been specified in the 
correct order.
+warning: AGGREGATE: The value arguments passed to the FOUT function are 
out-of-order.  They will be treated as if they had been specified in the 
correct order.
+warning: AGGREGATE: The value arguments passed to the FOUT function are 
out-of-order.  They will be treated as if they had been specified in the 
correct order.
+warning: AGGREGATE: The value arguments passed to the FOUT function are 
out-of-order.  They will be treated as if they had been specified in the 
correct order.
 G        N       NI      NU     NUI NFGT2 NFGT2I SFGT2 SFGT2I NFIN23 NFIN23I 
SFIN23 SFIN23I NFLT2 NFLT2I SFLT2 SFLT2I NFIRST NFIRSTI SFIRST SFIRSTI NFOUT23 
NFOUT23I SFOUT23 SFOUT23I NLAST NLASTI SLAST SLASTI NMAX NMAXI SMAX SMAXI    
NMEAN   NMEANI NMIN NMINI SMIN SMINI       NN      NNI       SN      SNI   
NNMISS  NNMISSI   SNMISS  SNMISSI     NNU    NNUI     SNU    SNUI NNUMISS 
NNUMISSI SNUMISS SNUMISSI NPGT2 NPGT2I SPGT2 SPGT2I NPIN23 NPIN23I SPIN23 
SPIN23I NPLT2 NPLT2I SPLT2 SPLT2I NPOUT23 NPOUT23I SPOUT23 SPOUT23I      NSD    
 NSDI     NSUM    NSUMI
 - -------- -------- ------- ------- ----- ------ ----- ------ ------ ------- 
------ ------- ----- ------ ----- ------ ------ ------- ------ ------- ------- 
-------- ------- -------- ----- ------ ----- ------ ---- ----- ---- ----- 
-------- -------- ---- ----- ---- ----- -------- -------- -------- -------- 
-------- -------- -------- -------- ------- ------- ------- ------- ------- 
-------- ------- -------- ----- ------ ----- ------ ------ ------- ------ 
------- ----- ------ ----- ------ ------- -------- ------- -------- -------- 
-------- -------- --------
 1     7.00     7.00       6       6  .333   .429  .333   .429   .333    .286   
.333    .286  .500   .429  .500   .429      0       0      0       0    .667    
 .714    .667     .714     5      5     5      5    5     5    5     5     2.00 
    2.29    0     0    0     0     6.00     7.00     6.00     7.00     1.00     
 .00     1.00      .00       5       6       5       6       1        0       1 
       0  33.3   42.9  33.3   42.9   33.3    28.6   33.3    28.6  50.0   42.9  
50.0   42.9    66.7     71.4    66.7     71.4     1.79     1.80    12.00    
16.00 
@@ -160,6 +164,10 @@
 
 activity="expected output (columnwise missing) create"
 cat > agg-columnwise.out <<EOF
+warning: AGGREGATE: The value arguments passed to the FOUT function are 
out-of-order.  They will be treated as if they had been specified in the 
correct order.
+warning: AGGREGATE: The value arguments passed to the FOUT function are 
out-of-order.  They will be treated as if they had been specified in the 
correct order.
+warning: AGGREGATE: The value arguments passed to the FOUT function are 
out-of-order.  They will be treated as if they had been specified in the 
correct order.
+warning: AGGREGATE: The value arguments passed to the FOUT function are 
out-of-order.  They will be treated as if they had been specified in the 
correct order.
 G        N       NI      NU     NUI NFGT2 NFGT2I SFGT2 SFGT2I NFIN23 NFIN23I 
SFIN23 SFIN23I NFLT2 NFLT2I SFLT2 SFLT2I NFIRST NFIRSTI SFIRST SFIRSTI NFOUT23 
NFOUT23I SFOUT23 SFOUT23I NLAST NLASTI SLAST SLASTI NMAX NMAXI SMAX SMAXI    
NMEAN   NMEANI NMIN NMINI SMIN SMINI       NN      NNI       SN      SNI   
NNMISS  NNMISSI   SNMISS  SNMISSI     NNU    NNUI     SNU    SNUI NNUMISS 
NNUMISSI SNUMISS SNUMISSI NPGT2 NPGT2I SPGT2 SPGT2I NPIN23 NPIN23I SPIN23 
SPIN23I NPLT2 NPLT2I SPLT2 SPLT2I NPOUT23 NPOUT23I SPOUT23 SPOUT23I      NSD    
 NSDI     NSUM    NSUMI
 - -------- -------- ------- ------- ----- ------ ----- ------ ------ ------- 
------ ------- ----- ------ ----- ------ ------ ------- ------ ------- ------- 
-------- ------- -------- ----- ------ ----- ------ ---- ----- ---- ----- 
-------- -------- ---- ----- ---- ----- -------- -------- -------- -------- 
-------- -------- -------- -------- ------- ------- ------- ------- ------- 
-------- ------- -------- ----- ------ ----- ------ ------ ------- ------ 
------- ----- ------ ----- ------ ------- -------- ------- -------- -------- 
-------- -------- --------
 1     7.00     7.00       6       6  .      .429  .      .429   .       .286   
.       .286  .      .429  .      .429      .       0              0    .       
 .714    .        .714     .      5            5    .     5          5      .   
    2.29    .     0          0     6.00     7.00     6.00     7.00     1.00     
 .00     1.00      .00       5       6       5       6       1        0       1 
       0    .    42.9    .    42.9     .     28.6     .     28.6    .    42.9   
 .    42.9      .      71.4      .      71.4      .       1.80      .      
16.00 
@@ -210,7 +218,7 @@
            if [ $? -ne 0 ] ; then no_result ; fi
 
            activity="check $name output"
-           perl -pi -e 's/^\s*$//g' pspp.list agg-$missing.out
+           perl -pi -e 's/^\s*$//g;s/^.*:\d+: //;' pspp.list agg-$missing.out
            diff -b -w pspp.list agg-$missing.out
            if [ $? -ne 0 ] ; then fail ; fi
        done

Index: tests/command/rank.sh
===================================================================
RCS file: /cvsroot/pspp/pspp/tests/command/rank.sh,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- tests/command/rank.sh       13 Aug 2007 04:50:29 -0000      1.6
+++ tests/command/rank.sh       26 Aug 2007 18:26:29 -0000      1.7
@@ -587,6 +587,13 @@
 activity="compare output 4"
 perl -pi -e 's/^\s*$//g' $TEMPDIR/pspp.list
 diff  -b $TEMPDIR/pspp.list - << EOF
+$TEMPDIR/rank.sh.sps:3: warning: BEGIN DATA: Missing value(s) for all 
variables from rx onward.  These will be filled with the system-missing value 
or blanks, as appropriate.
+$TEMPDIR/rank.sh.sps:4: warning: BEGIN DATA: Missing value(s) for all 
variables from rx onward.  These will be filled with the system-missing value 
or blanks, as appropriate.
+$TEMPDIR/rank.sh.sps:5: warning: BEGIN DATA: Missing value(s) for all 
variables from rx onward.  These will be filled with the system-missing value 
or blanks, as appropriate.
+$TEMPDIR/rank.sh.sps:6: warning: BEGIN DATA: Missing value(s) for all 
variables from rx onward.  These will be filled with the system-missing value 
or blanks, as appropriate.
+$TEMPDIR/rank.sh.sps:7: warning: BEGIN DATA: Missing value(s) for all 
variables from rx onward.  These will be filled with the system-missing value 
or blanks, as appropriate.
+$TEMPDIR/rank.sh.sps:8: warning: BEGIN DATA: Missing value(s) for all 
variables from rx onward.  These will be filled with the system-missing value 
or blanks, as appropriate.
+$TEMPDIR/rank.sh.sps:9: warning: BEGIN DATA: Missing value(s) for all 
variables from rx onward.  These will be filled with the system-missing value 
or blanks, as appropriate.
 Variables Created By RANK
 x into RNKRA01(RANK of x)
        x       rx   RNKRA01




reply via email to

[Prev in Thread] Current Thread [Next in Thread]