merge the formfield patch from ooo-build
[ooovba.git] / tools / workben / tldem.cxx
blobed7ebbd5fa012248c723e7cc840d814314ae9412
1 /*************************************************************************
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * Copyright 2008 by Sun Microsystems, Inc.
7 * OpenOffice.org - a multi-platform office productivity suite
9 * $RCSfile: tldem.cxx,v $
10 * $Revision: 1.5 $
12 * This file is part of OpenOffice.org.
14 * OpenOffice.org is free software: you can redistribute it and/or modify
15 * it under the terms of the GNU Lesser General Public License version 3
16 * only, as published by the Free Software Foundation.
18 * OpenOffice.org is distributed in the hope that it will be useful,
19 * but WITHOUT ANY WARRANTY; without even the implied warranty of
20 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 * GNU Lesser General Public License version 3 for more details
22 * (a copy is included in the LICENSE file that accompanied this code).
24 * You should have received a copy of the GNU Lesser General Public License
25 * version 3 along with OpenOffice.org. If not, see
26 * <http://www.openoffice.org/license.html>
27 * for a copy of the LGPLv3 License.
29 ************************************************************************/
31 // MARKER(update_precomp.py): autogen include statement, do not remove
32 #include "precompiled_tools.hxx"
34 #include <tools/fsys.hxx>
35 #include <tools/stream.hxx>
36 #include <sstring.hxx>
38 int
39 #ifdef WNT
40 __cdecl
41 #endif
42 main( int argc, char **argv )
44 String aString;
45 aString = "*.*";
46 Dir aDir(aString);
47 SvFileStream aFile;
48 SvFileStream aSortedFile;
50 StringList *pList = new StringList;
51 SStringList *pSortedList = new SStringList;
52 ULONG nCount = aDir.Count();
54 for ( ULONG i=0; i<nCount; i++ )
56 aString = aDir[i].GetName();
57 pList->Insert( new String( aString ), LIST_APPEND );
58 pSortedList->PutString( new String( aString ));
61 aFile.Open( "test.dir", STREAM_WRITE );
62 for ( ULONG j=0; j<nCount; j++ )
64 aFile.WriteLine( *pList->GetObject(j) );
66 aFile.Close();
69 aSortedFile.Open( "stest.dir", STREAM_WRITE );
70 for ( ULONG k=0; k<nCount; k++ )
72 aSortedFile.WriteLine( *pSortedList->GetObject(k) );
74 if ( pSortedList->IsString( new String("bloedString")) != NOT_THERE )
75 aSortedFile.WriteLine( "Fehler !" );
76 if ( pSortedList->IsString( new String(".")) == NOT_THERE )
77 aSortedFile.WriteLine( "Fehler ?!?" );
78 aSortedFile.Close();
80 delete pList;
81 delete pSortedList;
82 return 0;