Read data restore?

[GwenelParticipant]

I like to use expressions with variables and mix datatypes in DATA statements when storing information, and to put labels here and there to remind myself and being able to skip portions early.

What are your favourite replacements of READ DATA RESTORE statements when you use Monkey2?

[nerobotParticipant]

Maybe std.memory.DataBuffer class is what you need.

[GwenelParticipant]

Okay I was thinking of using STRUC (or CLASS) as you can have FIELD’s with expressions that includes constants and hopefully also the variables I need, but I’m open to absolutely everything. How would I use DataBuffer to structure data?

[GwenelParticipant]

But I couldn’t find a primitive that can hold a huge amount of pure information such as bytes? Are Strings meant for that?

What are strings stored as internally UTF8 16 or 32 or some other thing?
I would like to store a file or raw numbers inside a string (perhaps) neatly.

I’m thinking something like this

DATA
FIELD “NAME” : STRING
FIELD “SESSION” : STRING
FIELD 10 : INT
FIELD 16*4+Z : INT ‘ expression with variables and constants
FIELD A$ + ” seconds” : STRING
FIELD True : Bool
FIELD file.bin : RAW AS FILE
FIELD “FA789AB22FF009” : RAW AS STRING
END DATA

[DruggedBunnyParticipant]

DataBuffer is probably better for a load of bytes, or a simple byte array in your struct/class?

Monkey

[crayon-5cb9db90847fe339764043 inline="true" ] #Import "<std>" Using std.. Class Test Field bytes:Byte [] End Function Main () Local t:Test = New Test t.bytes = New Byte [1024] End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

[crayon-5cb9db90847fe339764043 inline="true" ] #Import "<std>"   Using std..   Class Test Field bytes:Byte [] End   Function Main ()   Local t:Test = New Test t.bytes = New Byte [1024] End

[/crayon]

[GwenelParticipant]

That’s great! But exactly how could I check the existence and size of a file, set the size correctly of the array and finally load it in? I’m trying to understand the documentation but it’s really not as easy as I would’ve have thought.

[DruggedBunnyParticipant]

Docs are a bit tricky (WIP!), but this is how I would go about it, guessing that functions for interacting with files are likely going to be part of std… clicking into the std tree under Ted’s Docs tab, then finding std.filesystem, then going through the function list:

Amend f:String to the file you want to check. (Demo may or may not work as-is… never assume system paths like this, or that OS is even Windows!)

Monkey

[crayon-5cb9db9088df7806817104 inline="true" ] ' IGNORE CRAYON CRAP IF SHOWN ABOVE #Import "<std>" Using std.. Class Test Field bytes:Byte [] End Function Main () Local t:Test = New Test Local f:String = "C:\Windows\System32\notepad.exe" If GetFileType (f) = FileType.File Print "File " + f + " found!" Print "File size is " + GetFileSize (f) + " bytes" ' Resize array to match file size: t.bytes = New Byte [GetFileSize (f)] Print "Array is " + t.bytes.Length + " bytes" Endif 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

[crayon-5cb9db9088df7806817104 inline="true" ] ' IGNORE CRAYON CRAP IF SHOWN ABOVE   #Import "<std>"   Using std..   Class Test Field bytes:Byte [] End   Function Main () Local t:Test = New Test Local f:String = "C:\Windows\System32\notepad.exe" If GetFileType (f) = FileType.File Print "File " + f + " found!" Print "File size is " + GetFileSize (f) + " bytes" ' Resize array to match file size:   t.bytes = New Byte [GetFileSize (f)] Print "Array is " + t.bytes.Length + " bytes" Endif End

[/crayon]

[DruggedBunnyParticipant]

Hmm, wasn’t able to get FileStream.ReadAll to read into the array without crashing (no idea why), so suggest using DataBuffer instead! Gives you a block of unsigned bytes, much like a byte array…

Monkey

[crayon-5cb9db908c05d244823078 inline="true" ] ' IGNORE CRAYON CRAP IF SHOWN ABOVE #Import "<std>" Using std.. Class Test Field bytes:DataBuffer End Function Main () Local t:Test = New Test Local f:String = "C:\Windows\System32\notepad.exe" ' Never assume system paths! If GetFileType (f) = FileType.File Print "File " + f + " found!" Print "File size is " + GetFileSize (f) + " bytes" t.bytes = New DataBuffer (GetFileSize (f)) Print "Data buffer is " + t.bytes.Length + " bytes" ' TEMP WINDOWS BUG WORKAROUND! Reported at https://github.com/blitz-research/monkey2/issues/370 f = f.Replace ("\", "/") Local file:FileStream = FileStream.Open (f, "r") If file Print "Opened" ' Read file into data buffer... Print file.ReadAll (t.bytes, 0, t.bytes.Length) ' Start of a Win32 executable is always "MZ" (for Mark Zbikowski, DOS developer!): Print String.FromChar (t.bytes.Data [0]) Print String.FromChar (t.bytes.Data [1]) file.Close () Else Print "Failed" Endif Endif 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

[crayon-5cb9db908c05d244823078 inline="true" ] ' IGNORE CRAYON CRAP IF SHOWN ABOVE   #Import "<std>"   Using std..   Class Test Field bytes:DataBuffer End   Function Main () Local t:Test = New Test Local f:String = "C:\Windows\System32\notepad.exe" ' Never assume system paths! If GetFileType (f) = FileType.File Print "File " + f + " found!" Print "File size is " + GetFileSize (f) + " bytes" t.bytes = New DataBuffer (GetFileSize (f)) Print "Data buffer is " + t.bytes.Length + " bytes" ' TEMP WINDOWS BUG WORKAROUND! Reported at https://github.com/blitz-research/monkey2/issues/370 f = f.Replace ("\", "/") Local file:FileStream = FileStream.Open (f, "r") If file Print "Opened" ' Read file into data buffer...   Print file.ReadAll (t.bytes, 0, t.bytes.Length) ' Start of a Win32 executable is always "MZ" (for Mark Zbikowski, DOS developer!):   Print String.FromChar (t.bytes.Data [0]) Print String.FromChar (t.bytes.Data [1]) file.Close () Else Print "Failed" Endif Endif End

[/crayon]

[GwenelParticipant]

Thanks! Okay, it seem abit complex to just add a file into the mix but I’ll try to understand how it works.

[nerobotParticipant]

Let me simplify code given above.

DataBuffer class has Load method – use it instead of FileStream etc.

Also there is a PeekString (for this example) and many other methods to operate with bytes in buffer – read docs of them.

My version:

Monkey

#Import "<std>" #Import "assets/" Using std.. Class Test Method New( path:String ) bytes=DataBuffer.Load( path ) Assert( bytes<>Null,"Can't load data from "+path+"!" ) End Property Bytes:DataBuffer() ' make public read-only property Return bytes End Private Field bytes:DataBuffer End Function Main () ' first: place netepad.exe into /assets/ folder near this source file Local t := New Test( "asset::notepad.exe" ) Local buf:=t.Bytes ' assign to local to use short variable Print "Data buffer is " + buf.Length + " bytes" ' Start of a Win32 executable is always "MZ" (for Mark Zbikowski, DOS developer!): Print buf.PeekString( 0,1 ) Print buf.PeekString( 1,1 ) 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

#Import "<std>" #Import "assets/"   Using std..   Class Test Method New( path:String ) bytes=DataBuffer.Load( path ) Assert( bytes<>Null,"Can't load data from "+path+"!" ) End Property Bytes:DataBuffer() ' make public read-only property Return bytes End Private Field bytes:DataBuffer End Function Main () ' first: place netepad.exe into /assets/ folder near this source file Local t := New Test( "asset::notepad.exe" ) Local buf:=t.Bytes ' assign to local to use short variable Print "Data buffer is " + buf.Length + " bytes" ' Start of a Win32 executable is always "MZ" (for Mark Zbikowski, DOS developer!): Print buf.PeekString( 0,1 ) Print buf.PeekString( 1,1 ) End

[DruggedBunnyParticipant]

Ha, nicely done.

[GwenelParticipant]

Oh I like that.

[Author]

Posts