From 33484b31f980955de0b791ac448c77fe36a6c0a8 Mon Sep 17 00:00:00 2001
From: Jason Height <jheight@apache.org>
Date: Sat, 21 Jan 2006 05:40:07 +0000
Subject: [PATCH] Bug37630: SQUASHED! Array Ptgs now implemented (at least the
 read and write functionality. No means to modify (yet!))

git-svn-id: https://svn.apache.org/repos/asf/jakarta/poi/trunk@370987 13f79535-47bb-0310-9956-ffa450edef68
---
 .../apache/poi/hssf/record/FormulaRecord.java |  31 +--
 .../hssf/record/LinkedDataFormulaField.java   |  22 +-
 .../apache/poi/hssf/record/NameRecord.java    |  62 ++---
 .../poi/hssf/record/formula/ArrayPtg.java     | 246 ++++++++++++++++++
 .../poi/hssf/record/formula/ArrayPtgA.java    |  72 +++++
 .../poi/hssf/record/formula/ArrayPtgV.java    |  77 ++++++
 .../apache/poi/hssf/record/formula/Ptg.java   |  66 ++++-
 .../org/apache/poi/hssf/data/37630.xls        | Bin 0 -> 14848 bytes
 .../apache/poi/hssf/usermodel/TestBugs.java   |  16 ++
 9 files changed, 504 insertions(+), 88 deletions(-)
 create mode 100644 src/java/org/apache/poi/hssf/record/formula/ArrayPtg.java
 create mode 100644 src/java/org/apache/poi/hssf/record/formula/ArrayPtgA.java
 create mode 100644 src/java/org/apache/poi/hssf/record/formula/ArrayPtgV.java
 create mode 100644 src/testcases/org/apache/poi/hssf/data/37630.xls

diff --git a/src/java/org/apache/poi/hssf/record/FormulaRecord.java b/src/java/org/apache/poi/hssf/record/FormulaRecord.java
index 11c7165562..a3b189d47f 100644
--- a/src/java/org/apache/poi/hssf/record/FormulaRecord.java
+++ b/src/java/org/apache/poi/hssf/record/FormulaRecord.java
@@ -100,26 +100,12 @@ public class FormulaRecord
         
           field_6_zero           = in.readInt();
           field_7_expression_len = in.readShort();
-          field_8_parsed_expr    = getParsedExpressionTokens(in, field_7_expression_len);
+          field_8_parsed_expr    = Ptg.createParsedExpressionTokens(field_7_expression_len, in);
         } catch (java.lang.UnsupportedOperationException uoe)  {
           throw new RecordFormatException(uoe.toString());
         }
     }
 
-    private Stack getParsedExpressionTokens(RecordInputStream in, short size)
-    {
-        Stack stack = new Stack();
-        int   pos   = 0;
-
-        while (pos < size)
-        {
-            Ptg ptg = Ptg.createPtg(in);
-            pos += ptg.getSize();
-            stack.push(ptg);
-        }
-        return stack;
-    }
-
     //public void setRow(short row)
     public void setRow(int row)
     {
@@ -330,7 +316,7 @@ public class FormulaRecord
         //Microsoft Excel Developer's Kit Page 318
         LittleEndian.putInt(data, 20 + offset, 0);
         LittleEndian.putShort(data, 24 + offset, getExpressionLength());
-        serializePtgs(data, 26+offset);
+        Ptg.serializePtgStack(field_8_parsed_expr, data, 26+offset);
         } else {
             System.arraycopy(all_data,0,data,offset,all_data.length);
         }
@@ -368,19 +354,6 @@ public class FormulaRecord
         return retval;
     }
 
-    private void serializePtgs(byte [] data, int offset)
-    {
-        int pos = offset;
-
-        for (int k = 0; k < field_8_parsed_expr.size(); k++)
-        {
-            Ptg ptg = ( Ptg ) field_8_parsed_expr.get(k);
-
-            ptg.writeBytes(data, pos);
-            pos += ptg.getSize();
-        }
-    }
-
     public boolean isBefore(CellValueRecordInterface i)
     {
         if (this.getRow() > i.getRow())
diff --git a/src/java/org/apache/poi/hssf/record/LinkedDataFormulaField.java b/src/java/org/apache/poi/hssf/record/LinkedDataFormulaField.java
index c16f254586..45921f86ce 100644
--- a/src/java/org/apache/poi/hssf/record/LinkedDataFormulaField.java
+++ b/src/java/org/apache/poi/hssf/record/LinkedDataFormulaField.java
@@ -49,7 +49,7 @@ public class LinkedDataFormulaField
     public int fillField( RecordInputStream in )
     {
         short tokenSize = in.readShort();
-        formulaTokens = getParsedExpressionTokens(tokenSize, in);
+        formulaTokens = Ptg.createParsedExpressionTokens(tokenSize, in);
 
         return tokenSize + 2;
     }
@@ -80,12 +80,7 @@ public class LinkedDataFormulaField
         int size = getSize();
         LittleEndian.putShort(data, offset, (short)(size - 2));
         int pos = offset + 2;
-        for ( Iterator iterator = formulaTokens.iterator(); iterator.hasNext(); )
-        {
-            Ptg ptg = (Ptg) iterator.next();
-            ptg.writeBytes(data, pos);
-            pos += ptg.getSize();
-        }
+        pos += Ptg.serializePtgStack(formulaTokens, data, pos);
         return size;
     }
 
@@ -103,19 +98,6 @@ public class LinkedDataFormulaField
         }
     }
 
-    private Stack getParsedExpressionTokens(short size,  RecordInputStream in )
-    {
-        Stack stack = new Stack();
-        int pos = 0;
-        while ( pos < size )
-        {
-            Ptg ptg = Ptg.createPtg( in );
-            pos += ptg.getSize();
-            stack.push( ptg );
-        }
-        return stack;
-    }
-
     public void setFormulaTokens( Stack formulaTokens )
     {
         this.formulaTokens = (Stack) formulaTokens.clone();
diff --git a/src/java/org/apache/poi/hssf/record/NameRecord.java b/src/java/org/apache/poi/hssf/record/NameRecord.java
index 576385cfb8..9217a71b67 100644
--- a/src/java/org/apache/poi/hssf/record/NameRecord.java
+++ b/src/java/org/apache/poi/hssf/record/NameRecord.java
@@ -331,7 +331,7 @@ public class NameRecord extends Record {
     /** get the definition length
      * @return definition length
      */
-    public short getDefinitionTextLength(){
+    public short getDefinitionLength(){
         return field_4_length_name_definition;
     }
 
@@ -488,7 +488,7 @@ public class NameRecord extends Record {
             throw new RecordFormatException("NOT A valid Name RECORD");
         }
     }
-
+    
     /**
      * called by the class that is responsible for writing this sucker.
      * Subclasses should implement this so that their data is passed back in a
@@ -501,11 +501,13 @@ public class NameRecord extends Record {
     public int serialize( int offset, byte[] data )
     {
         LittleEndian.putShort( data, 0 + offset, sid );
+        short size = (short)( 15 + getTextsLength() + getNameDefinitionSize());
+        LittleEndian.putShort( data, 2 + offset, size );
         // size defined below
         LittleEndian.putShort( data, 4 + offset, getOptionFlag() );
         data[6 + offset] = getKeyboardShortcut();
         data[7 + offset] = getNameTextLength();
-        LittleEndian.putShort( data, 8 + offset, getDefinitionTextLength() );
+        LittleEndian.putShort( data, 8 + offset, getDefinitionLength() );
         LittleEndian.putShort( data, 10 + offset, getUnused() );
         LittleEndian.putShort( data, 12 + offset, getEqualsToIndexToSheet() );
         data[14 + offset] = getCustomMenuLength();
@@ -525,8 +527,7 @@ public class NameRecord extends Record {
             return 20 + field_13_raw_name_definition.length;
         }
         else
-        {     */
-            LittleEndian.putShort( data, 2 + offset, (short) ( 15 + getTextsLength() ) );
+        {     */            
             
 			int start_of_name_definition = 19 + field_3_length_name_text;
 
@@ -539,7 +540,7 @@ public class NameRecord extends Record {
 			}
 
 
-				serializePtgs( data, start_of_name_definition + offset );
+			Ptg.serializePtgStack(field_13_name_definition,  data, start_of_name_definition + offset );
 
 
             int start_of_custom_menu_text = start_of_name_definition + field_4_length_name_definition;
@@ -558,37 +559,39 @@ public class NameRecord extends Record {
         /* } */
     }
 
-    private void serializePtgs(byte [] data, int offset) {
-        int pos = offset;
-
-        for (int k = 0; k < field_13_name_definition.size(); k++) {
-            Ptg ptg = ( Ptg ) field_13_name_definition.get(k);
-
-            ptg.writeBytes(data, pos);
-            pos += ptg.getSize();
-        }
-    }
-
-
     /** gets the length of all texts
      * @return total length
      */
     public int getTextsLength(){
         int result;
 
-        result = getNameTextLength() + getDefinitionTextLength() + getDescriptionTextLength() +
+        result = getNameTextLength() + getDescriptionTextLength() +
         getHelpTopicLength() + getStatusBarLength();
 
 
         return result;
     }
+    
+    private int getNameDefinitionSize() {
+    	int result = 0;
+        List list   = field_13_name_definition;
+        
+        for (int k = 0; k < list.size(); k++)
+        {
+        	Ptg ptg = ( Ptg ) list.get(k);
+        	
+        	result += ptg.getSize();
+        }
+        return result;    
+    }
 
     /** returns the record size
      */
     public int getRecordSize(){
         int result;
 
-        result = 19 + getTextsLength();
+        result = 19 + getTextsLength() + getNameDefinitionSize();
+        
 
         return result;
     }
@@ -733,7 +736,7 @@ public class NameRecord extends Record {
           }
 			}
             
-        field_13_name_definition = getParsedExpressionTokens(in, field_4_length_name_definition);
+        field_13_name_definition = Ptg.createParsedExpressionTokens(field_4_length_name_definition, in);
     
         //Who says that this can only ever be compressed unicode???
         field_14_custom_menu_text       = in.readCompressedUnicode(LittleEndian.ubyteToInt(field_7_length_custom_menu));
@@ -746,23 +749,6 @@ public class NameRecord extends Record {
         /*} */
     }
 
-    private Stack getParsedExpressionTokens(RecordInputStream in, short size) {
-        Stack stack = new Stack();
-        int   sizeCounter   = 0;
-        try {
-            while (sizeCounter < size) {
-                Ptg ptg = Ptg.createPtg(in);
-
-                sizeCounter += ptg.getSize();
-                stack.push(ptg);
-            }
-        } catch (java.lang.UnsupportedOperationException uoe) {
-           throw new RecordFormatException(uoe.toString());
-        }
-        return stack;
-    }
-
-
     /**
      * return the non static version of the id for this record.
      */
diff --git a/src/java/org/apache/poi/hssf/record/formula/ArrayPtg.java b/src/java/org/apache/poi/hssf/record/formula/ArrayPtg.java
new file mode 100644
index 0000000000..568b3a3cb4
--- /dev/null
+++ b/src/java/org/apache/poi/hssf/record/formula/ArrayPtg.java
@@ -0,0 +1,246 @@
+/* ====================================================================
+   Copyright 2003-2004   Apache Software Foundation
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+       http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.
+==================================================================== */
+
+package org.apache.poi.hssf.record.formula;
+
+import org.apache.poi.util.LittleEndian;
+import org.apache.poi.util.BitField;
+import org.apache.poi.util.BitFieldFactory;
+import org.apache.poi.util.StringUtil;
+
+import org.apache.poi.hssf.util.CellReference;
+import org.apache.poi.hssf.model.Workbook;
+import org.apache.poi.hssf.record.RecordFormatException;
+import org.apache.poi.hssf.record.RecordInputStream;
+import org.apache.poi.hssf.record.SSTRecord;
+import org.apache.poi.hssf.record.UnicodeString;
+
+/**
+ * ArrayPtg - handles arrays
+ * 
+ * The ArrayPtg is a little wierd, the size of the Ptg when parsing initially only
+ * includes the Ptg sid and the reserved bytes. The next Ptg in the expression then follows.
+ * It is only after the "size" of all the Ptgs is met, that the ArrayPtg data is actually
+ * held after this. So Ptg.createParsedExpression keeps track of the number of 
+ * ArrayPtg elements and need to parse the data upto the FORMULA record size.
+ *  
+ * @author Jason Height (jheight at chariot dot net dot au)
+ */
+
+public class ArrayPtg extends Ptg
+{
+    public final static byte sid  = 0x20;
+    protected byte field_1_reserved;
+    protected byte field_2_reserved;
+    protected byte field_3_reserved;
+    protected byte field_4_reserved;
+    protected byte field_5_reserved;
+    protected byte field_6_reserved;
+    protected byte field_7_reserved;
+    
+    
+    protected short  token_1_columns;
+    protected short token_2_rows;
+    protected Object[][] token_3_arrayValues;
+
+    protected ArrayPtg() {
+      //Required for clone methods
+    }
+
+    public ArrayPtg(RecordInputStream in)
+    {
+    	field_1_reserved = in.readByte();
+    	field_2_reserved = in.readByte();
+    	field_3_reserved = in.readByte();
+    	field_4_reserved = in.readByte();
+    	field_5_reserved = in.readByte();
+    	field_6_reserved = in.readByte();
+    	field_7_reserved = in.readByte();
+    }
+    
+    /** Read in the actual token (array) values. This occurs AFTER the last
+     * Ptg in the expression.
+     */
+    public void readTokenValues(RecordInputStream in) {    	
+        token_1_columns = (short)(0x00ff & in.readByte());
+        token_2_rows = in.readShort();
+        
+        //The token_1_columns and token_2_rows do not follow the documentation.
+        //The number of physical rows and columns is actually +1 of these values.
+        //Which is not explicitly documented.
+        token_1_columns++;
+        token_2_rows++;        
+        
+        token_3_arrayValues = new Object[token_1_columns][token_2_rows];
+        
+        for (int x=0;x<token_1_columns;x++) {
+        	for (int y=0;y<token_2_rows;y++) {
+        		byte grbit = in.readByte();
+        		if (grbit == 0x01) {
+        			token_3_arrayValues[x][y] = Double.valueOf(in.readDouble());
+        		} else if (grbit == 0x02) {
+        			//Ignore the doco, it is actually a unicode string with all the
+        			//trimmings ie 16 bit size, option byte etc
+        			token_3_arrayValues[x][y] = in.readUnicodeString();
+        		} else throw new RecordFormatException("Unknown grbit '"+grbit+"'");
+        	}
+        }
+
+    }
+
+    public String toString()
+    {
+        StringBuffer buffer = new StringBuffer("[ArrayPtg]\n");
+
+        buffer.append("columns = ").append(getColumnCount()).append("\n");
+        buffer.append("rows = ").append(getRowCount()).append("\n");
+        for (int x=0;x<getColumnCount();x++) {
+        	for (int y=0;y<getRowCount();y++) {
+        		Object o = token_3_arrayValues[x][y];
+       			buffer.append("[").append(x).append("][").append(y).append("] = ").append(o).append("\n"); 
+        	}
+        }
+        return buffer.toString();
+    }
+
+    public void writeBytes(byte [] array, int offset)
+    {
+        array[offset++] = (byte) (sid + ptgClass);
+        array[offset++] = field_1_reserved;
+        array[offset++] = field_2_reserved;
+        array[offset++] = field_3_reserved;
+        array[offset++] = field_4_reserved;
+        array[offset++] = field_5_reserved;
+        array[offset++] = field_6_reserved;
+        array[offset++] = field_7_reserved;
+        
+    }
+    public int writeTokenValueBytes(byte [] array, int offset) {
+    	int pos = 0;
+    	array[pos + offset] = (byte)(token_1_columns-1);
+        pos++;
+        LittleEndian.putShort(array, pos+offset, (short)(token_2_rows-1));
+        pos += 2;
+        for (int x=0;x<getColumnCount();x++) {
+        	for (int y=0;y<getRowCount();y++) {
+        		Object o = token_3_arrayValues[x][y];
+        		if (o instanceof Double) {
+        			array[pos+offset] = 0x01;
+        			pos++;
+        			LittleEndian.putDouble(array, pos+offset, ((Double)o).doubleValue());
+        			pos+=8;
+        		} else if (o instanceof UnicodeString) {
+        			array[pos+offset] = 0x02;
+        			pos++;        			
+        			UnicodeString s = (UnicodeString)o;
+        			//JMH TBD Handle string continuation. Id do it now but its 4am.
+        	        UnicodeString.UnicodeRecordStats stats = new UnicodeString.UnicodeRecordStats();
+        	        s.serialize(stats, pos + offset, array);
+        	        pos += stats.recordSize; 
+        		} else throw new RuntimeException("Coding error");
+        	}
+        }
+        return pos;
+    }
+
+    public void setRowCount(short row)
+    {
+        token_2_rows = row;
+    }
+
+    public short getRowCount()
+    {
+        return token_2_rows;
+    }
+
+    public void setColumnCount(short col)
+    {
+        token_1_columns = (byte)col;
+    }
+
+    public short getColumnCount()
+    {
+        return token_1_columns;
+    }
+
+    /** This size includes the size of the array Ptg plus the Array Ptg Token value size*/
+    public int getSize()
+    {
+    	int size = 1+7+1+2;
+        for (int x=0;x<getColumnCount();x++) {
+        	for (int y=0;y<getRowCount();y++) {
+        		Object o = token_3_arrayValues[x][y];
+        		if (o instanceof UnicodeString) {
+        			size++;
+        	        UnicodeString.UnicodeRecordStats rs = new UnicodeString.UnicodeRecordStats();
+                    ((UnicodeString)o).getRecordSize(rs);        			
+        			size += rs.recordSize;
+        		} else if (o instanceof Double) {
+        			size += 9;
+        		}
+        	}
+        }
+        return size;
+    }
+
+    public String toFormulaString(Workbook book)
+    {
+    	StringBuffer b = new StringBuffer();
+    	b.append("{");
+        for (int x=0;x<getColumnCount();x++) {
+          	for (int y=0;y<getRowCount();y++) {
+          		Object o = token_3_arrayValues[x][y];
+        		if (o instanceof String) {
+        			b.append((String)o);
+        		} else if (o instanceof Double) {
+        			b.append(((Double)o).doubleValue());
+        		}
+        		if (y != getRowCount())
+        			b.append(",");
+          	}
+          	if (x != getColumnCount())
+          		b.append(";");
+          }
+        b.append("}");
+        return b.toString();
+    }
+    
+    public byte getDefaultOperandClass() {
+        return Ptg.CLASS_ARRAY;
+    }
+    
+    public Object clone() {
+      ArrayPtg ptg = new ArrayPtg();
+      ptg.field_1_reserved = field_1_reserved;
+      ptg.field_2_reserved = field_2_reserved;
+      ptg.field_3_reserved = field_3_reserved;
+      ptg.field_4_reserved = field_4_reserved;
+      ptg.field_5_reserved = field_5_reserved;
+      ptg.field_6_reserved = field_6_reserved;
+      ptg.field_7_reserved = field_7_reserved;
+      
+      ptg.token_1_columns = token_1_columns;
+      ptg.token_2_rows = token_2_rows;
+      ptg.token_3_arrayValues = new Object[getColumnCount()][getRowCount()];
+      for (int x=0;x<getColumnCount();x++) {
+      	for (int y=0;y<getRowCount();y++) {
+      		ptg.token_3_arrayValues[x][y] = token_3_arrayValues[x][y];
+      	}
+      }      
+      ptg.setClass(ptgClass);
+      return ptg;
+    }
+}
diff --git a/src/java/org/apache/poi/hssf/record/formula/ArrayPtgA.java b/src/java/org/apache/poi/hssf/record/formula/ArrayPtgA.java
new file mode 100644
index 0000000000..2fdd210c0b
--- /dev/null
+++ b/src/java/org/apache/poi/hssf/record/formula/ArrayPtgA.java
@@ -0,0 +1,72 @@
+/* ====================================================================
+   Copyright 2003-2004   Apache Software Foundation
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+       http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.
+==================================================================== */
+
+package org.apache.poi.hssf.record.formula;
+
+import org.apache.poi.util.LittleEndian;
+import org.apache.poi.util.BitField;
+import org.apache.poi.util.BitFieldFactory;
+import org.apache.poi.util.StringUtil;
+
+import org.apache.poi.hssf.util.CellReference;
+import org.apache.poi.hssf.model.Workbook;
+import org.apache.poi.hssf.record.RecordFormatException;
+import org.apache.poi.hssf.record.RecordInputStream;
+import org.apache.poi.hssf.record.SSTRecord;
+import org.apache.poi.hssf.record.UnicodeString;
+
+/**
+ * ArrayPtgA - handles arrays
+ *  
+ * @author Jason Height (jheight at chariot dot net dot au)
+ */
+
+public class ArrayPtgA extends ArrayPtg
+{
+    public final static byte sid  = 0x60;
+
+    protected ArrayPtgA() {
+    	super();
+      //Required for clone methods
+    }
+
+    public ArrayPtgA(RecordInputStream in)
+    {
+    	super(in);
+    }
+        
+    public Object clone() {
+      ArrayPtgA ptg = new ArrayPtgA();
+      ptg.field_1_reserved = field_1_reserved;
+      ptg.field_2_reserved = field_2_reserved;
+      ptg.field_3_reserved = field_3_reserved;
+      ptg.field_4_reserved = field_4_reserved;
+      ptg.field_5_reserved = field_5_reserved;
+      ptg.field_6_reserved = field_6_reserved;
+      ptg.field_7_reserved = field_7_reserved;
+      
+      ptg.token_1_columns = token_1_columns;
+      ptg.token_2_rows = token_2_rows;
+      ptg.token_3_arrayValues = new Object[getColumnCount()][getRowCount()];
+      for (int x=0;x<getColumnCount();x++) {
+      	for (int y=0;y<getRowCount();y++) {
+      		ptg.token_3_arrayValues[x][y] = token_3_arrayValues[x][y];
+      	}
+      }      
+      ptg.setClass(ptgClass);
+      return ptg;
+    }
+}
diff --git a/src/java/org/apache/poi/hssf/record/formula/ArrayPtgV.java b/src/java/org/apache/poi/hssf/record/formula/ArrayPtgV.java
new file mode 100644
index 0000000000..68cf317676
--- /dev/null
+++ b/src/java/org/apache/poi/hssf/record/formula/ArrayPtgV.java
@@ -0,0 +1,77 @@
+/* ====================================================================
+   Copyright 2003-2004   Apache Software Foundation
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+       http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.
+==================================================================== */
+
+package org.apache.poi.hssf.record.formula;
+
+import org.apache.poi.util.LittleEndian;
+import org.apache.poi.util.BitField;
+import org.apache.poi.util.BitFieldFactory;
+import org.apache.poi.util.StringUtil;
+
+import org.apache.poi.hssf.util.CellReference;
+import org.apache.poi.hssf.model.Workbook;
+import org.apache.poi.hssf.record.RecordFormatException;
+import org.apache.poi.hssf.record.RecordInputStream;
+import org.apache.poi.hssf.record.SSTRecord;
+import org.apache.poi.hssf.record.UnicodeString;
+
+/**
+ * ArrayPtg - handles arrays
+ * 
+ * The ArrayPtg is a little wierd, the size of the Ptg when parsing initially only
+ * includes the Ptg sid and the reserved bytes. The next Ptg in the expression then follows.
+ * It is only after the "size" of all the Ptgs is met, that the ArrayPtg data is actually
+ * held after this. So Ptg.createParsedExpression keeps track of the number of 
+ * ArrayPtg elements and need to parse the data upto the FORMULA record size.
+ *  
+ * @author Jason Height (jheight at chariot dot net dot au)
+ */
+
+public class ArrayPtgV extends ArrayPtg
+{
+    public final static byte sid  = 0x40;
+
+    protected ArrayPtgV() {
+      //Required for clone methods
+    }
+
+    public ArrayPtgV(RecordInputStream in)
+    {
+    	super(in);
+    }
+    
+    public Object clone() {
+      ArrayPtgV ptg = new ArrayPtgV();
+      ptg.field_1_reserved = field_1_reserved;
+      ptg.field_2_reserved = field_2_reserved;
+      ptg.field_3_reserved = field_3_reserved;
+      ptg.field_4_reserved = field_4_reserved;
+      ptg.field_5_reserved = field_5_reserved;
+      ptg.field_6_reserved = field_6_reserved;
+      ptg.field_7_reserved = field_7_reserved;
+      
+      ptg.token_1_columns = token_1_columns;
+      ptg.token_2_rows = token_2_rows;
+      ptg.token_3_arrayValues = new Object[getColumnCount()][getRowCount()];
+      for (int x=0;x<getColumnCount();x++) {
+      	for (int y=0;y<getRowCount();y++) {
+      		ptg.token_3_arrayValues[x][y] = token_3_arrayValues[x][y];
+      	}
+      }      
+      ptg.setClass(ptgClass);
+      return ptg;
+    }
+}
diff --git a/src/java/org/apache/poi/hssf/record/formula/Ptg.java b/src/java/org/apache/poi/hssf/record/formula/Ptg.java
index 92a7a62819..4e7df5b869 100644
--- a/src/java/org/apache/poi/hssf/record/formula/Ptg.java
+++ b/src/java/org/apache/poi/hssf/record/formula/Ptg.java
@@ -18,6 +18,7 @@ package org.apache.poi.hssf.record.formula;
 
 import java.util.List;
 import java.util.ArrayList;
+import java.util.Stack;
 
 import org.apache.poi.hssf.model.Workbook;
 import org.apache.poi.hssf.record.RecordInputStream;
@@ -85,8 +86,33 @@ public abstract class Ptg
         return retval;
     }
     */
+
+    public static Stack createParsedExpressionTokens(short size,  RecordInputStream in )
+    {
+        Stack stack = new Stack();
+        int pos = 0;
+        List arrayPtgs = null;
+        while ( pos < size )
+        {
+            Ptg ptg = Ptg.createPtg( in );
+            if (ptg instanceof ArrayPtg) {
+            	if (arrayPtgs == null)
+            		arrayPtgs = new ArrayList(5);
+            	arrayPtgs.add(ptg);
+            	pos += 8;
+            } else pos += ptg.getSize();
+            stack.push( ptg );
+        }
+        if (arrayPtgs != null) {
+        	for (int i=0;i<arrayPtgs.size();i++) {
+        		ArrayPtg p = (ArrayPtg)arrayPtgs.get(i);
+        		p.readTokenValues(in);
+        	}
+        }
+        return stack;
+    }
     
-    public static Ptg createPtg(RecordInputStream in)
+    private static Ptg createPtg(RecordInputStream in)
     {
         byte id     = in.readByte();
         Ptg  retval = null;
@@ -157,6 +183,16 @@ public abstract class Ptg
             case ConcatPtg.sid :
                 retval = new ConcatPtg(in);
                 break;
+                
+            case ArrayPtg.sid:
+            	retval = new ArrayPtg(in);
+            	break;
+            case ArrayPtgV.sid:
+            	retval = new ArrayPtgV(in);
+            	break;            	
+            case ArrayPtgA.sid:            	
+            	retval = new ArrayPtgA(in);
+            	break;
 
             case AreaPtg.sid :
                 retval = new AreaPtg(in);
@@ -304,6 +340,34 @@ public abstract class Ptg
        return retval;
         
     }
+    
+    public static int serializePtgStack(Stack expression, byte[] array, int offset) {
+    	int pos = 0;
+    	int size = 0;
+    	if (expression != null)
+    		size = expression.size();
+
+    	List arrayPtgs = null;
+    	
+    	for (int k = 0; k < size; k++) {
+    		Ptg ptg = ( Ptg ) expression.get(k);
+    		
+    		ptg.writeBytes(array, pos + offset);
+    		if (ptg instanceof ArrayPtg) {
+    		  if (arrayPtgs == null)
+    			  arrayPtgs = new ArrayList(5);
+    		  arrayPtgs.add(ptg);
+    		  pos += 8;
+    		} else pos += ptg.getSize();
+    	}
+    	if (arrayPtgs != null) {
+    		for (int i=0;i<arrayPtgs.size();i++) {
+    			ArrayPtg p = (ArrayPtg)arrayPtgs.get(i);
+    			pos += p.writeTokenValueBytes(array, pos + offset);
+    		}
+    	}
+    	return pos;
+    }
 
     public abstract int getSize();
 
diff --git a/src/testcases/org/apache/poi/hssf/data/37630.xls b/src/testcases/org/apache/poi/hssf/data/37630.xls
new file mode 100644
index 0000000000000000000000000000000000000000..ad2b0ef505190417f8acb898f97dbfbf9700d2f5
GIT binary patch
literal 14848
zcmeI3Yitx%6vzM5ZrepFv<0-hnzewmrA1x}T1!U-L=;6Hg1XWvrO*nrrqrm3iC4i-
zVuI1cFC;FB50J!X)I^QBd@=gLXf(vf7e{0KWa1;5XoA*r?(DxiTPZ0f1SNAf_uk)}
zIrp49XC8a+-Pun*t_}~sI_(>bNXt=*zlO%4JSO*qr*pdsvVUkuH(5^;7EzM^M-dp8
zmJ?ZCh99PURPmt|ECs$n30_GZmlF6^au)ZX5?Ir@x4$p5y1RF0&tT?kr)ymwIz8=!
zl?$)UD~BhtQXG<U0;am&)wpt!D_?fH@4B)LHMn0sGg>#!UM3bGZMT&8PVaG7*1K|o
zlpfx4ZN74ng_wp9M1Sa^gL=6Grp&tr1L#F3cH`{rtxMIS43mKR+4ZxUXU$sBnr$K0
zrDn=~SR31S=lbsLcf}RzP$3~1ZajZMyuEDIrDh?Gx?+tHR-D@9Xu<-ZL!CEeTu(Y$
zqP`S1^Ly)C>SbR?i{H^wmuf~M=4!)&S~kWiFVb&AGvw679Z3g9_=+S2ckS&3hf6RI
zm&F{ib>2UlI=At5Gw>`fE(D^Zu{GPkNM{@CQkUR4%qZF)#i>ZC9?xTDK}ns(?Z~#8
znu`}uKT>OiwY=(59Kj+v8uh{mHn!$BvkmS<WQPSBN!{=}#LIjfmDo$uc)O-dyipYU
z;TG+95myyEi;ke!pX(a?ATA|}!zQl4F}WKGPT79gFB>!d`IaFjyW8rwp^U4e!e&&i
zH=L9I%3Y_I>$Blh`lHF!>Z$b4XSs)r9$r2%p2wm%{612CbQJlEqsWhpA|Lk;`I99n
zRGHEtt*cGBt7}Zk)sswxt6|{k$);>5kY}=oN99R>afSA>92<JNy9XDlq_;XIS)`JC
zYGRVb2auAsZ8+|wCCmNyo`;k2_+uK9Cw&@S=_!&a1E%EhwF?BIuf?jOuf_2t(WR?;
zdZ~UU9cz%TT<E?;Dy7_xiH@tK1ggZz$)i7ix^~;T_6{d+a`Jhue8fpitXp#=G(g&W
zSoR!GsW0u)KBv9km523dA{w6f_v9c8DQu5e>rJ97$5k@HiL|Ftf72!MRqr^R7fzJ0
z&Kak&iCO^R*FJEtcI(MX1TwTcSh>}kDvboA7NU}epV}$$^N=P~5hfFA2{Q;8LOo$N
z;Zi~ap^4B;m`_+hSV&kzSWH+#xSVhWVJTr5;Yz|)gjT}Ugf_x*LOa3FgCXD=N(i`?
z5(2KHgn$*45U`RG0#;E%!1a_6u$mGAZlHvKHIxu=BP9gfL<s?FDIwryN(i`x5(3uc
zB|gCrECIJthhPYnfc4ZN7=k5W19b?7U<uer9fBcP0ya^HU<j6g+o(e@1WUkX>JSXU
z60n6j1VgX{+)f>WAy@+Lpbo(hECF{?hhPYnfGl+ghF}S}i#h~Dumo(S4#5yC0UgvK
z7=k4r$m?VXJ|Q3&LXKbwApxDVL+}X!!4Pr;O9%<rMmq$b5D*L@N3evDfG*l0_=JF9
z2swf!gamA-9fD5?2!@a&SVBlZH|-F7LO?Kt9KjMo0(Q_2!6yU+L&y;<AtYcY?GSuI
zKrn<H!4g6OdT58>69R%E<Or4!63|OK1fLKP3?WCbgph!{X@}qw0)ipr2$m2Mu#0vG
zJ|Q3&LXKbwApyH-hu{+ef+6GxmJkxKhjs`)As`q+j$jEP0e!SX@CgCI5OM@d2npz?
z9fD5?2!@a&SVGwEe=b9%HaApSUQ&ZM-LjaBm4?$y8A6ptBOwp^0e+Mwz*5Phk0_%N
z8LeC*!`O2+n&fy+I#U=;ZuN>slk6$r!r(Ujf>7qf5{77-_Rc&E4YCY!&cYBon6ns$
zn3r>lf63Us%&mVF_e0NK_~<jg{BcW9)v+him^b(JFJ)aw)=nTxO>h^uFSSlWR!i22
z)JDlV5!)?U)(f#;@`aKQN|sY9D|a$0k^G%BlBKBO35>Gd2=N6**>pN8U)$R?(7(5T
z$6#jV{axL=;p@()exKU#_B)>A!~04foBqC+zwmT#l9C7{5lAACL?DSk5`iQFNd%Gz
zBoRm=kVGJfKoWsi1Wq^qFFEnii9_?JS3UW(%>SGJcuD8~Ur5$vFkK&5Cs}_u+#*@t
zsK9o~<0b3-U+3+El6BtypyZ1rb3NdIu&xihA^BA60XmQWe#&@fOK{Y>PMoN&u17?_
z4i|7y0T-iE6xER~G-wAm_Ydsat3N02b?uXN1BpqJk_aRbNFtC#Ac;T{fg}P+1d<3O
z5lAACMBu!RfX?G}YOHf$`B`56gQD+RM{{cZO<(8w`u{GSHtU>Sf6vz!i*??wb9{Xj
zTleccpRX+ITwm7%Y9-5`Qr!MOMMw3L^xulWdi2X@5E-mQpVR|*K+f3M(?#<32#-jw
zqfA;$z`7EvqADuwpkH}F-qYa!1y#CPyboX(wz+=nimQ)_<sV?f{<R-tY9vbc=>;pP
z3>$DS_Q<Ex9s3Oug&nR>Dj7tta9^Z)%CbTH>pi6R&shEI>tOEYk*W+U#6y?sL$^Bv
SXV#x(|Kj-FpC$C>mGn1IHd}fC

literal 0
HcmV?d00001

diff --git a/src/testcases/org/apache/poi/hssf/usermodel/TestBugs.java b/src/testcases/org/apache/poi/hssf/usermodel/TestBugs.java
index 5b102733d8..4d610d8d9a 100644
--- a/src/testcases/org/apache/poi/hssf/usermodel/TestBugs.java
+++ b/src/testcases/org/apache/poi/hssf/usermodel/TestBugs.java
@@ -522,6 +522,22 @@ extends TestCase {
 	       HSSFWorkbook wb = new HSSFWorkbook(in);
 	       assertTrue("Read book fine!" , true);
 	}
+	
+	/** Error when reading then writing ArrayValues in NameRecord's*/
+	public void test37630() throws java.io.IOException {
+	       String filename = System.getProperty("HSSF.testdata.path");
+	       filename=filename+"/37630.xls";
+	       FileInputStream in = new FileInputStream(filename);
+	       HSSFWorkbook wb = new HSSFWorkbook(in);
+           File file = TempFile.createTempFile("test37630",".xls");
+	       FileOutputStream out    = new FileOutputStream(file);
+	       wb.write(out);
+	       
+	       assertTrue("Read book fine!" , true);
+	}
+	
+	
+	
 
 }
 
-- 
2.39.5