Example of config file using Reflection

[peterigzParticipant]

I just converted some code from Blitzmax that uses Reflection. This is a convenient way of saving config files for things like player controls, screen resolutions and other things you want to keep persistent. Just extend config, add your config fields and use save and load. It’s pretty basic with not much error checking (should players try hacking your config) and only accepts Int, String and Floats but it’s a little starting point and real world usage example if you haven’t tried reflection yet.

Monkey

Namespace rigzconfig #Import "<std>" #Import "<reflection>" Using std.. #rem monkeydoc Config abstract class for saving and loading simple config files Uses reflection to iterate through every field in the class and save them to a file. You can then load the file at a later date and repopulate the fields in the file. To use simply extend the Config class with your own Class and create whatever fields you need (Int, String or Float), and use _Save_ and _Load_ to save and load the values. #end Class Config Abstract #rem monkeydoc Output the class fields to a "=" delimeted file @return String #end Method ToString:String() 'Get the TypeInfo of this instance Local type:=Self.InstanceType Local output:String 'Iterate through each field in the class (note there are no fields in the abstract class, so this will 'be looping through the extended class you create yourself for your config class For Local setting:=Eachin type.GetDecls() If setting.Kind = "Field" 'output the name and value of the field. Note that we have to Cast the specific type of each field. output += setting.Name + "=" Select String(setting.Type) Case "Int" output += Int(setting.Get(Self)) Case "String" output += String(setting.Get(Self)) Case "Float" output += Float(setting.Get(Self)) Default RuntimeError("You can only convert Int, Float or Strings with your config") End output += "~n" Endif Next Return output End #rem monkeydoc Save this type to a config file This will take all of the fields in this type and save them to a config file. You can load them in again at anytime using #LoadConfig @param url String url of the config to save #end Method Save:Void(url:String) Local output:String = ToString() SaveString(output, url) End Method #rem monkeydoc Load a config into the type This will take a configuration file and populate all the fields of the type with the settings found in the config file. Use _Save_ to save a configuration file @param url String url of the config to load #end Method Load:Int(url:String) Local configline:String Local linearray:String[] Local input:=LoadString(url) Local type:=Self.InstanceType Local lines:=input.Split("~n") For Local line:=Eachin lines Local pair:=line.Split("=") If(pair.Length=2) 'Use GetDecl to to get the DeclInfo of the field in this class based on the name in the config file Local decl:=type.GetDecl( pair[0] ) If decl And decl.Kind = "Field" 'Set the value of each field in the class to the value found in the config file Select String(decl.Type) Case "Int" decl.Set( Self, Int(pair[1]) ) Case "String" decl.Set( Self, pair[1] ) Case "Float" decl.Set( Self, Float(pair[1]) ) Default RuntimeError("You can only load Int, Float or Strings with your config") End Endif Endif Next Return True End Method End 'An example config class Class PlayerProfile Extends Config Field MoveLeft:Int = 97 Field MoveRight:Int = 100 Field MoveUp:Int = 119 Field MoveDown:Int = 115 Field ScreenWidth:Int = 1024 Field ScreenHeight:Int = 768 Field TestString:String = "Testing a String" Field TestFloat:Float = 3.141 End Function Main() Local test:PlayerProfile = New PlayerProfile test.Save("test.cfg") test.TestString = "" test.Load("test.cfg") Print test.TestString End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126

Namespace rigzconfig   #Import "<std>" #Import "<reflection>"   Using std..   #rem monkeydoc Config abstract class for saving and loading simple config files Uses reflection to iterate through every field in the class and save them to a file. You can then load the file at a later date and repopulate the fields in the file. To use simply extend the Config class with your own Class and create whatever fields you need (Int, String or Float), and use _Save_ and _Load_ to save and load the values. #end Class Config Abstract #rem monkeydoc Output the class fields to a "=" delimeted file @return String #end Method ToString:String() 'Get the TypeInfo of this instance Local type:=Self.InstanceType Local output:String   'Iterate through each field in the class (note there are no fields in the abstract class, so this will 'be looping through the extended class you create yourself for your config class For Local setting:=Eachin type.GetDecls() If setting.Kind = "Field" 'output the name and value of the field. Note that we have to Cast the specific type of each field. output += setting.Name + "=" Select String(setting.Type) Case "Int" output += Int(setting.Get(Self)) Case "String" output += String(setting.Get(Self)) Case "Float" output += Float(setting.Get(Self)) Default RuntimeError("You can only convert Int, Float or Strings with your config") End output += "~n" Endif Next Return output End #rem monkeydoc Save this type to a config file This will take all of the fields in this type and save them to a config file. You can load them in again at anytime using #LoadConfig @param url String url of the config to save #end Method Save:Void(url:String) Local output:String = ToString() SaveString(output, url) End Method #rem monkeydoc Load a config into the type This will take a configuration file and populate all the fields of the type with the settings found in the config file. Use _Save_ to save a configuration file @param url String url of the config to load #end Method Load:Int(url:String) Local configline:String Local linearray:String[] Local input:=LoadString(url) Local type:=Self.InstanceType   Local lines:=input.Split("~n") For Local line:=Eachin lines Local pair:=line.Split("=") If(pair.Length=2) 'Use GetDecl to to get the DeclInfo of the field in this class based on the name in the config file Local decl:=type.GetDecl( pair[0] ) If decl And decl.Kind = "Field" 'Set the value of each field in the class to the value found in the config file Select String(decl.Type) Case "Int" decl.Set( Self, Int(pair[1]) ) Case "String" decl.Set( Self, pair[1] ) Case "Float" decl.Set( Self, Float(pair[1]) ) Default RuntimeError("You can only load Int, Float or Strings with your config") End Endif Endif Next Return True End Method End   'An example config class Class PlayerProfile Extends Config Field MoveLeft:Int = 97 Field MoveRight:Int = 100 Field MoveUp:Int = 119 Field MoveDown:Int = 115 Field ScreenWidth:Int = 1024 Field ScreenHeight:Int = 768 Field TestString:String = "Testing a String" Field TestFloat:Float = 3.141 End   Function Main() Local test:PlayerProfile = New PlayerProfile test.Save("test.cfg")   test.TestString = "" test.Load("test.cfg") Print test.TestString End

[nerobotParticipant]

Good. But only single line strings worked with that plain-text.

[Author]

Posts