Example #1
0
	void AV::unshift( const AV& list ){
		AV array = list;
		int len = array.length();
		Perl_av_unshift( my_perl,(old_AV_ptr)m_c_av_ptr, len );
		for( int i = 0; i < len; i++ )
			store( i, array[i] );
	}
Example #2
0
	ostream& operator<<( ostream& os, const AV& av ){
		AV temp = av;

		int len = temp.length();
		if( len == 0 )
			return os << "()";

		string s = "(";
		for( int i = 0; i < len - 1; i++ )
			s += (string)temp[i] + ",";
		s += (string)temp[len-1] + ")";

		return os << s;
	}