#include <Script.h>
#include <Script.h>
#include <stddef.h>
+#include <Math64.h>
#define __COMPILINGMOREFILES
-#include "MoreFile.h"
-#include "MoreExtr.h"
-#include "MoreDesk.h"
-#include "FSpCompa.h"
+#include "morefile.h"
+#include "moreextr.h"
+#include "moredesk.h"
+#include "fspcompa.h"
/*****************************************************************************/
** stack space used when recursively calling DeleteLevel and to hold
** global information that might be needed at any time. */
-#if PRAGMA_ALIGN_SUPPORTED
-#pragma options align=mac68k
+#if PRAGMA_STRUCT_ALIGN
+ #pragma options align=mac68k
+#elif PRAGMA_STRUCT_PACKPUSH
+ #pragma pack(push, 2)
+#elif PRAGMA_STRUCT_PACK
+ #pragma pack(2)
#endif
struct DeleteEnumGlobals
{
Str63 itemName; /* the name of the current item */
UniversalFMPB myPB; /* the parameter block used for PBGetCatInfo calls */
};
-#if PRAGMA_ALIGN_SUPPORTED
-#pragma options align=reset
+#if PRAGMA_STRUCT_ALIGN
+ #pragma options align=reset
+#elif PRAGMA_STRUCT_PACKPUSH
+ #pragma pack(pop)
+#elif PRAGMA_STRUCT_PACK
+ #pragma pack()
#endif
typedef struct DeleteEnumGlobals DeleteEnumGlobals;
/* a multi-byte character. */
while (maxLength != 0)
{
+#if TARGET_CARBON
+ charType = CharacterByteType((Ptr)&source[1], maxLength,smAllScripts);
+#else
charType = CharByte((Ptr)&source[1], maxLength);
+#endif
if ( (charType == smSingleByte) || (charType == smLastByte) )
break; /* source[maxLength] is now a valid last character */
--maxLength;
** the parameter block is always returned as NULL (since it might point
** to the local tempPathname).
*/
+
+#if !TARGET_CARBON
+
pascal OSErr XGetVolumeInfoNoName(ConstStr255Param pathname,
short vRefNum,
XVolumeParamPtr pb)
return ( error );
}
+#endif
+
/*****************************************************************************/
pascal OSErr GetCatInfoNoName(short vRefNum,
/*****************************************************************************/
+#if !TARGET_CARBON
pascal OSErr HGetVInfo(short volReference,
StringPtr volName,
short *vRefNum,
return ( result );
}
-
+#endif
/*****************************************************************************/
/*
#undef pascal
#endif
+#if !TARGET_CARBON
+
#if GENERATINGCFM
+
+#if UNIVERSAL_INTERFACES_VERSION < 0x0301
+
pascal OSErr PBXGetVolInfoSync(XVolumeParamPtr paramBlock)
{
enum
}
#endif
+#endif
+
+#endif
+
#if __WANTPASCALELIMINATION
#define pascal
#endif
+#if !TARGET_CARBON
+
/*****************************************************************************/
pascal OSErr XGetVInfo(short volReference,
*vRefNum = pb.ioVRefNum;
/* return the freeBytes and totalBytes */
- *totalBytes = pb.ioVTotalBytes;
- *freeBytes = pb.ioVFreeBytes;
+ *totalBytes = UInt64ToUnsignedWide(pb.ioVTotalBytes);
+ *freeBytes = UInt64ToUnsignedWide(pb.ioVFreeBytes);
}
}
else
}
return ( result );
}
-
+#endif
/*****************************************************************************/
pascal OSErr CheckVolLock(ConstStr255Param pathname,
/*****************************************************************************/
+#if !TARGET_CARBON
+
pascal OSErr GetDriverName(short driverRefNum,
Str255 driverName)
{
return ( result );
}
+#endif
/*****************************************************************************/
+#if !TARGET_CARBON
pascal OSErr FindDrive(ConstStr255Param pathname,
short vRefNum,
return ( result );
}
+#endif
/*****************************************************************************/
+#if !TARGET_CARBON
pascal OSErr GetDiskBlocks(ConstStr255Param pathname,
short vRefNum,
return ( result );
}
+#endif
/*****************************************************************************/
}
/*****************************************************************************/
+#if !TARGET_CARBON
pascal OSErr GetVolState(ConstStr255Param pathname,
short vRefNum,
return ( error );
}
-
+#endif
/*****************************************************************************/
+#if !TARGET_CARBON
pascal OSErr UnmountAndEject(ConstStr255Param pathname,
short vRefNum)
return ( error );
}
+#endif
/*****************************************************************************/
/*****************************************************************************/
+#if !TARGET_CARBON
+
pascal OSErr RestoreDefault(short oldVRefNum,
long oldDirID)
{
return ( error );
}
-
+#endif
/*****************************************************************************/
pascal OSErr GetDInfo(short vRefNum,