Temporary Standard Input – UPDATE

This topic contains 4 replies, has 3 voices, and was last updated by Danilo 2 years, 1 month ago.

Viewing 5 posts - 1 through 5 (of 5 total)

Author

Posts

November 26, 2016 at 4:26 am #5439

Participant

Hello, I come with a temporary solution on getting standard input from a Console/Terminal because I can’t find a method in Monkey2. xD So far this seems to work in in Linux, not sure about other Targets. Seems a little “hacky” but it works. I might improve it later on. Feel free to use in whatever. Haha.

Function GetInput:String(prompt:String, maxLength:Int)
	Local char := New Byte[1]
	Local input := New Byte[maxLength]
	Local count:Int = 0
	Local data:String = ""
	
	libc.fputs(prompt, libc.stdout) ' InLine Prompt
	
	While(True)
		If(String.FromChar(char[0]) <> "~n" And count < maxLength)
			libc.fread(char.Data, 1, 1, libc.stdin)
			input[count] = char[0]
			count += 1
		Else
			input[count - 1] = 0
			Exit
		Endif
	Wend
	
	For Local i := Eachin input
		data += String.FromChar(i)
	Next
	
	Return data
	
End Function

Function GetInput:String(prompt:String, maxLength:Int)

Local char := New Byte[1]

Local input := New Byte[maxLength]

Local count:Int = 0

Local data:String = ""

libc.fputs(prompt, libc.stdout) ' InLine Prompt

While(True)

If(String.FromChar(char[0]) <> "~n" And count < maxLength)

libc.fread(char.Data, 1, 1, libc.stdin)

input[count] = char[0]

count += 1

Else

input[count - 1] = 0

Exit

Endif

Wend

For Local i := Eachin input

data += String.FromChar(i)

Return data

End Function

Easy and Familiar usage.

Local name:String = GetInput("What's your name? ", 32)
Print "Hello, " + name + "."

1 2	Local name:String = GetInput("What's your name? ", 32) Print "Hello, " + name + "."

Peace be with you.

^^^ Is now obsolete.
——– UPDATE ——-

' Add the following to libc.monkey2 after the "fputs" function

Function fgets:char_t Ptr(chr:char_t Ptr, n:Int, stream:FILE Ptr)

' Add the following to libc.monkey2 after the "fputs" function

Function fgets:char_t Ptr(chr:char_t Ptr, n:Int, stream:FILE Ptr)

Recompile the libc.monkey2 module. (./scripts/rebuildmods.sh) for Linux/Mac (./scripts/rebuildmods.bat) Windows

Basic Usage Example Project:

#Import "<libc>"

Namespace APP

Using libc

Function GetInput:String(prompt:String)
	Local buffer:char_t ' MEM ADRESS FOR INPUT
	fputs(prompt, stdout) ' PROMPT THE USER
	fgets(Varptr buffer, 1024, stdin) ' PIPE "stdin" into "bufer"
	Return String.FromCString(Varptr buffer) ' Return Monkey String from 'Buffer'
End

Function Main()

	Print "Hi how are you?"
	
	'Get C Input
	Local answer:String = GetInput("Enter: ")
	
	Print "good boy"

End

#Import "<libc>"

Namespace APP

Using libc

Function GetInput:String(prompt:String)

Local buffer:char_t ' MEM ADRESS FOR INPUT

fputs(prompt, stdout) ' PROMPT THE USER

fgets(Varptr buffer, 1024, stdin) ' PIPE "stdin" into "bufer"

Return String.FromCString(Varptr buffer) ' Return Monkey String from 'Buffer'

End

Function Main()

Print "Hi how are you?"

'Get C Input

Local answer:String = GetInput("Enter: ")

Print "good boy"

End

Hopefully this can get commit to the build? *hint* *hint*

February 25, 2017 at 12:16 pm #7295

abakobo

Participant

Just tested you snippet but the update gave me a memory access violation..

First example worked though.

EDIT: had to modify a bit because the string was not ending correctly..

[crayon-5cb9e4c13347a934094065 inline="true" ]Function GetInput:String(prompt:String, maxLength:Int)
	Local char := New Byte[1]
	Local input := New Byte[maxLength]
	Local count:Int = 0
	Local data:String = ""
	
	libc.fputs(prompt, libc.stdout) ' InLine Prompt
	
	While(True)
		If(String.FromChar(char[0]) <> "~n" And count < maxLength)
			libc.fread(char.Data, 1, 1, libc.stdin)
			input[count] = char[0]
			count += 1
		Else
			input[count - 1] = 0
			Exit
		Endif
	Wend
	
	For Local i := 0 Until count-1
		data += String.FromChar(input[i])
	Next
	
	Return data
	
End Function

[crayon-5cb9e4c13347a934094065 inline="true" ]Function GetInput:String(prompt:String, maxLength:Int)

Local char := New Byte[1]

Local input := New Byte[maxLength]

Local count:Int = 0

Local data:String = ""

libc.fputs(prompt, libc.stdout) ' InLine Prompt

While(True)

If(String.FromChar(char[0]) <> "~n" And count < maxLength)

libc.fread(char.Data, 1, 1, libc.stdin)

input[count] = char[0]

count += 1

Else

input[count - 1] = 0

Exit

Endif

Wend

For Local i := 0 Until count-1

data += String.FromChar(input[i])

Return data

End Function

[/crayon]

February 25, 2017 at 1:12 pm #7296

Danilo

Participant

Monkey

Function GetInput:String(prompt:String) Local buffer:char_t ' MEM ADRESS FOR INPUT fputs(prompt, stdout) ' PROMPT THE USER fgets(Varptr buffer, 1024, stdin) ' PIPE "stdin" into "bufer" Return String.FromCString(Varptr buffer) ' Return Monkey String from 'Buffer' End

1
2
3
4
5
6

Function GetInput:String(prompt:String)
Local buffer:char_t ' MEM ADRESS FOR INPUT
fputs(prompt, stdout) ' PROMPT THE USER
fgets(Varptr buffer, 1024, stdin) ' PIPE "stdin" into "bufer"
Return String.FromCString(Varptr buffer) ' Return Monkey String from 'Buffer'
End

You need to allocate memory for the buffer in the first line.
Just ‘buffer:char_t’ is not a memory buffer of 1024 chars.

February 25, 2017 at 2:42 pm #7298

abakobo

Participant

do you recommend that I create a new array
buffer = new int[1024] ?
in C it will be

[crayon-5cb9e4c139cf4789646981 inline="true" ]
char char_t[1024]

[crayon-5cb9e4c139cf4789646981 inline="true" ]

char char_t[1024]

[/crayon]

but in monkey how would I reserve the memory without the use of the Cast operator?

or should i use malloc!?

February 26, 2017 at 12:15 am #7302

Danilo

Participant

Like you did with ‘New Byte’ in the other code:

buffer := New char_t[1024]

1	buffer := New char_t[1024]

You access the address of the buffer using ‘VarPtr buffer[0]’

#Import "<libc>"

Namespace APP
Using libc

Extern

    Function fgets:char_t Ptr(chr:char_t Ptr, n:Int, stream:FILE Ptr)

Public


Function GetInput:String(prompt:String)
    Local buffer:char_t[] = New char_t[1024]    ' MEM ADRESS FOR INPUT
    fputs(prompt, stdout)                       ' PROMPT THE USER
    fgets(Varptr buffer[0], 1024, stdin)        ' PIPE "stdin" into "bufer"
    Return String.FromCString(Varptr buffer[0]) ' Return Monkey String from 'Buffer'
End

Function Main()
 
    Print "Hi how are you?"
    
    'Get C Input
    Local answer:String = GetInput("Enter: ")
    
    Print "good boy"
 
End

#Import "<libc>"

Namespace APP

Using libc

Extern

Function fgets:char_t Ptr(chr:char_t Ptr, n:Int, stream:FILE Ptr)

Public

Function GetInput:String(prompt:String)

Local buffer:char_t[] = New char_t[1024] ' MEM ADRESS FOR INPUT

fputs(prompt, stdout) ' PROMPT THE USER

fgets(Varptr buffer[0], 1024, stdin) ' PIPE "stdin" into "bufer"

Return String.FromCString(Varptr buffer[0]) ' Return Monkey String from 'Buffer'

End

Function Main()

Print "Hi how are you?"

'Get C Input

Local answer:String = GetInput("Enter: ")

Print "good boy"

End

Author

Posts

Viewing 5 posts - 1 through 5 (of 5 total)

You must be logged in to reply to this topic.

Temporary Standard Input – UPDATE

Archives

Recent Replies

What is this?