+#define LOCAL_CODEREL_TO_ABS( a ) ((cell_t *) (((cell_t) a) + CodeBase))\r
+\r
+static const char *pfSelectFileModeCreate( int fam );\r
+static const char *pfSelectFileModeOpen( int fam );\r
+\r
+/**************************************************************/\r
+static const char *pfSelectFileModeCreate( int fam )\r
+{\r
+ const char *famText = NULL;\r
+ switch( fam )\r
+ {\r
+ case (PF_FAM_WRITE_ONLY + PF_FAM_BINARY_FLAG):\r
+ famText = PF_FAM_BIN_CREATE_WO;\r
+ break;\r
+ case (PF_FAM_READ_WRITE + PF_FAM_BINARY_FLAG):\r
+ famText = PF_FAM_BIN_CREATE_RW;\r
+ break;\r
+ case PF_FAM_WRITE_ONLY:\r
+ famText = PF_FAM_CREATE_WO;\r
+ break;\r
+ case PF_FAM_READ_WRITE:\r
+ famText = PF_FAM_CREATE_RW;\r
+ break;\r
+ default:\r
+ famText = "illegal";\r
+ break;\r
+ }\r
+ return famText;\r
+}\r