00001 /* ES40 emulator. 00002 * Copyright (C) 2007-2008 by the ES40 Emulator Project 00003 * 00004 * WWW : http://sourceforge.net/projects/es40 00005 * E-mail : camiel@camicom.com 00006 * 00007 * This program is free software; you can redistribute it and/or 00008 * modify it under the terms of the GNU General Public License 00009 * as published by the Free Software Foundation; either version 2 00010 * of the License, or (at your option) any later version. 00011 * 00012 * This program is distributed in the hope that it will be useful, 00013 * but WITHOUT ANY WARRANTY; without even the implied warranty of 00014 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00015 * GNU General Public License for more details. 00016 * 00017 * You should have received a copy of the GNU General Public License 00018 * along with this program; if not, write to the Free Software 00019 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. 00020 * 00021 * Although this is not required, the author would appreciate being notified of, 00022 * and receiving any modifications you may make to the source code that might serve 00023 * the general public. 00024 */ 00025 00037 // 00038 // Platform_VMS.h 00039 // 00040 // $Id: Platform_VMS.h,v 1.1 2008/03/31 19:13:31 iamcamiel Exp $ 00041 // 00042 // Library: Foundation 00043 // Package: Core 00044 // Module: Platform 00045 // 00046 // Platform and architecture identification macros 00047 // and platform-specific definitions for OpenVMS. 00048 // 00049 // Copyright (c) 2004-2006, Applied Informatics Software Engineering GmbH. 00050 // and Contributors. 00051 // 00052 // Permission is hereby granted, free of charge, to any person or organization 00053 // obtaining a copy of the software and accompanying documentation covered by 00054 // this license (the "Software") to use, reproduce, display, distribute, 00055 // execute, and transmit the Software, and to prepare derivative works of the 00056 // Software, and to permit third-parties to whom the Software is furnished to 00057 // do so, all subject to the following: 00058 // 00059 // The copyright notices in the Software and this entire statement, including 00060 // the above license grant, this restriction and the following disclaimer, 00061 // must be included in all copies of the Software, in whole or in part, and 00062 // all derivative works of the Software, unless such copies or derivative 00063 // works are solely in the form of machine-executable object code generated by 00064 // a source language processor. 00065 // 00066 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 00067 // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 00068 // FITNESS FOR A PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT 00069 // SHALL THE COPYRIGHT HOLDERS OR ANYONE DISTRIBUTING THE SOFTWARE BE LIABLE 00070 // FOR ANY DAMAGES OR OTHER LIABILITY, WHETHER IN CONTRACT, TORT OR OTHERWISE, 00071 // ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 00072 // DEALINGS IN THE SOFTWARE. 00073 // 00074 00075 00076 #ifndef Foundation_Platform_VMS_INCLUDED 00077 #define Foundation_Platform_VMS_INCLUDED 00078 00079 00080 // Define the POCO_DESCRIPTOR_STRING and POCO_DESCRIPTOR_LITERAL 00081 // macros which we use instead of $DESCRIPTOR and $DESCRIPTOR64. 00082 // Our macros work with both 32bit and 64bit pointer sizes. 00083 #if __INITIAL_POINTER_SIZE != 64 00084 #define POCO_DESCRIPTOR_STRING(name, string) \ 00085 struct dsc$descriptor_s name = \ 00086 { \ 00087 string.size(), \ 00088 DSC$K_DTYPE_T, \ 00089 DSC$K_CLASS_S, \ 00090 (char*) string.data() \ 00091 } 00092 #define POCO_DESCRIPTOR_LITERAL(name, string) \ 00093 struct dsc$descriptor_s name = \ 00094 { \ 00095 sizeof(string) - 1, \ 00096 DSC$K_DTYPE_T, \ 00097 DSC$K_CLASS_S, \ 00098 (char*) string \ 00099 } 00100 #else 00101 #define POCO_DESCRIPTOR_STRING(name, string) \ 00102 struct dsc64$descriptor_s name =\ 00103 { \ 00104 1, \ 00105 DSC64$K_DTYPE_T, \ 00106 DSC64$K_CLASS_S, \ 00107 -1, \ 00108 string.size(), \ 00109 (char*) string.data() \ 00110 } 00111 #define POCO_DESCRIPTOR_LITERAL(name, string) \ 00112 struct dsc64$descriptor_s name =\ 00113 { \ 00114 1, \ 00115 DSC64$K_DTYPE_T, \ 00116 DSC64$K_CLASS_S, \ 00117 -1, \ 00118 sizeof(string) - 1, \ 00119 (char*) string \ 00120 } 00121 #endif 00122 00123 00124 // No <sys/select.h> header file 00125 #define POCO_NO_SYS_SELECT_H 00126 00127 00128 #endif // Foundation_Platform_VMS_INCLUDED