Function xs_storage_domain_read

modules/io/storage/mac/storage-mac.c:66–149

}

void xs_storage_domain_read(xsMachine *the)
{
	xsStorage storage = xsmcGetHostDataValidate(xsThis, xs_storage_domain_destructor);
	CFStringRef domain = CFStringCreateWithCString(NULL, storage->domain, kCFStringEncodingUTF8);
	CFStringRef key = CFStringCreateWithCString(NULL, xsmcToString(xsArg(0)), kCFStringEncodingUTF8);
	CFTypeRef value = (CFTypeRef)CFPreferencesCopyValue(key, domain, kCFPreferencesCurrentUser, kCFPreferencesCurrentHost);
	if (value) {
		CFTypeID type = CFGetTypeID(value);
		if (type == CFNumberGetTypeID()) {
			switch (storage->format) {
				case kIOFormatInt8: {
					int8_t number = 0;
					CFNumberGetValue(value, kCFNumberSInt8Type, &number);
					xsResult = xsInteger(number);
				} break;
				case kIOFormatInt16: {
					int16_t number = 0;
					CFNumberGetValue(value, kCFNumberSInt16Type, &number);
					xsResult = xsInteger(number);
				} break;
				case kIOFormatInt32: {
					int32_t number = 0;
					CFNumberGetValue(value, kCFNumberSInt32Type, &number);
					xsResult = xsInteger(number);
				} break;
				case kIOFormatInt64: {
					int64_t number = 0;
					CFNumberGetValue(value, kCFNumberSInt64Type, &number);
					fxFromBigInt64(the, &xsResult, number);
				} break;
				case kIOFormatUint8: {
					uint8_t number = 0;
					CFNumberGetValue(value, kCFNumberSInt8Type, &number);
					xsResult = xsInteger(number);
				} break;
				case kIOFormatUint16: {
					uint16_t number = 0;
					CFNumberGetValue(value, kCFNumberSInt16Type, &number);
					xsResult = xsInteger(number);
				} break;
				case kIOFormatUint32: {
					uint32_t number = 0;
					CFNumberGetValue(value, kCFNumberSInt32Type, &number);
					xsResult = xsUnsigned(number);
				} break;
				case kIOFormatUint64: {
					uint64_t number = 0;
					CFNumberGetValue(value, kCFNumberSInt64Type, &number);
					fxFromBigUint64(the, &xsResult, number);
				} break;
			}
		}
		else if (type == CFStringGetTypeID()) {
			if (kIOFormatString != storage->format)
				xsTypeError("mismatch");
			CFRange range = CFRangeMake(0, CFStringGetLength(value));
			CFIndex length;
			CFStringGetBytes(value, range, kCFStringEncodingUTF8, 0, false, NULL, 0, &length);