VRAM size?

SuperStrict

?MacOS
	Import "macvram.c"
	Private
		Extern
			Function MACOS_GetVramSize:Int(displayID:Int)"C"
		EndExtern
	Public
?


Function GetVramSize:Int(displayNumber:Int)
	?Win32
		Return -1
	?MacOS
		Return MACOS_GetVramSize(displayNumber)
	?Linux
		Return -1
	?
EndFunction

// macvram.c

#include <ApplicationServices/ApplicationServices.h>

long MACOS_GetVramSize( int displayNumber )
{
	long displaySize = -1;
	long *vramArray;
	int dispCount = vramSize(&vramArray);
	if(displayNumber < dispCount && displayNumber >= 0) {
		displaySize = vramArray[displayNumber];
	}
	return displaySize;
}

int vramSize(long** vsArray)
{
    CGError                    err = CGDisplayNoErr;
    int                            i = 0;
    io_service_t              *dspPorts = NULL;
    CGDirectDisplayID    *displays = NULL;
    CGDisplayCount        dspCount = 0;
    CFTypeRef                 typeCode;
	
    // How many active displays do we have?
    err = CGGetActiveDisplayList(0, NULL, &dspCount);
	
    // Allocate enough memory to hold all the display IDs we have
    displays = calloc((size_t)dspCount, sizeof(CGDirectDisplayID));
    // Allocate enough memory for the number of displays we're asking about
    *vsArray = calloc((size_t)dspCount, sizeof(long));
    // Allocate memory for our service ports
    dspPorts = calloc((size_t)dspCount, sizeof(io_service_t));
	
    // Get the list of active displays
    err = CGGetActiveDisplayList(dspCount,
                                 displays,
                                 &dspCount);
	
    // Now we iterate through them
    for(i = 0; i < dspCount; i++)
    {
        // Get the service port for the display
        dspPorts[i] = CGDisplayIOServicePort(displays[i]);
        // Ask IOKit for the VRAM size property
        typeCode = IORegistryEntryCreateCFProperty(dspPorts[i],
                                                   CFSTR(kIOFBMemorySizeKey),
                                                   kCFAllocatorDefault,
                                                   kNilOptions);
		
        // Ensure we have valid data from IOKit
        if(typeCode && CFGetTypeID(typeCode) == CFNumberGetTypeID())
        {
            // If so, convert the CFNumber into a plain unsigned long
            CFNumberGetValue(typeCode, kCFNumberSInt32Type, vsArray[i]);
            if(typeCode)
				CFRelease(typeCode);
        }
    }
	// Return the total number of displays we found
	return (int)dspCount;
}