HomeForumSourceResearchGuide
Sign in to contribute to source. how it works
Component app.SysTest by barry
expand copy to clipboardexpand
component provides App requires io.Output out, os.SystemInfo info{
	
	int App:main(AppParam params[])
		{
		out.println("Platform: $(info.getPlatformName())")
		out.println(" - version: $(info.getPlatformVersion())")
		out.println("Processor: $(info.getChipName())")
		out.println("Host name: $(info.getHostName())")
		
		char dh[] = info.getVariable("DANA_HOME")
		out.println("dana_home: $dh")
		
		char defaultFont[] = info.getSystemFont(false)
		out.println("system font: $defaultFont")
		
		char defaultMonoFont[] = info.getSystemFont(true)
		out.println("system mono font: $defaultMonoFont")
		
		return 0
		}
	
	}
Revision history
To propose a new revision to this entity, use dana source put -uc your/new/version.dn -n app.SysTest -m "reason for update" -u yourUsername
Version 1 (this version) by barry
Notes for this version: Standard Library Initialisation