PureBoard

Code: Alles auswählen

3>&2 2>&1 1>&3

Code: Alles auswählen

#dialog = "whiptail"
;...

Procedure.i Termi_yesno(*this.termi_t, title.s, text.s, height.i, width.i, options.s="")
  Protected exit.i, prog.i
  If *this\run
    prog = RunProgram(#dialog, UnescapeString(options) + ~"--clear --title \"" + title + ~"\" --yesno \"" + text + ~"\" " + Str(height) + " " + Str(width), "", #PB_Program_Open | #PB_Program_Wait)
    If IsProgram(prog)
      While ProgramRunning(prog)
        ;...
      Wend
      exit = ProgramExitCode(prog)
      CloseProgram(prog)
      ProcedureReturn exit
    EndIf
  Else
    ProcedureReturn -1
  EndIf
EndProcedure

;...

prog = RunProgram(#dialog, "3>&2 2>&1 1>&3 "+ UnescapeString(options) + ~" --inputbox \"" + text + ~"\" " + Str(height) + " " + Str(width) + " " + init, "", #PB_Program_Open | #PB_Program_Error | #PB_Program_Wait)
;...

Code: Alles auswählen

!dup2(2, 3);
!dup2(1, 2);
!dup2(3, 1);
!close(3);

Code: Alles auswählen

3>&2 2>&1 1>&3

Code: Alles auswählen

COLOR=$(whiptail --inputbox "What is your favorite Color?" 8 39 Blue --title "Example Dialog" 3>&1 1>&2 2>&3)
                                                                        # A trick to swap stdout and stderr.
# Again, you can pack this inside if, but it seems really long for some 80-col terminal users.
exitstatus=$?
if [ $exitstatus = 0 ]; then
    echo "User selected Ok and entered " $COLOR
else
    echo "User selected Cancel."
fi

echo "(Exit status was $exitstatus)"

Code: Alles auswählen

ImportC ""
	memfd_create(name.p-utf8, flags.l)
	read_fd.l(fd.l, *buf, count.l) As "read"
EndImport

Define fd.i = memfd_create("hi", 0)
If fd = -1
	Debug "Error"
	End
EndIf

Procedure.s read_(fd.i)
	Protected *buffer = AllocateMemory(1024)
	Protected length.i, out.s
	
	length = read_fd(fd, *buffer, 1024)
	
	out = PeekS(*buffer, length, #PB_UTF8)
	
	FreeMemory(*buffer)
	
	ProcedureReturn out
EndProcedure

Debug "los gehts"
 
prog.i = RunProgram("/usr/bin/whiptail", "--inputbox 'What is your favorite Color?' 8 39 Blue --title 'Example Dialog' --output-fd " + fd, "", #PB_Program_UTF8 | #PB_Program_Open | #PB_Program_Error | #PB_Program_Read)
If IsProgram(prog)
	While ProgramRunning(prog)
		Debug ReadProgramError(prog)
		CloseProgram(prog)
	Wend
EndIf

Debug read_(fd)
Debug "und ende"

Code: Alles auswählen

def run(
			self,
			control: str,
			msg: str,
			extra_args: Sequence[str] = (),
			extra_values: Sequence[str] = (),
			exit_on: Sequence[int] = (1, 255)
			) -> Response:
		"""

		:param control: The name of the control to run. One of ``"yesno"``, ``"msgbox"``, ``"infobox"``,
			``"inputbox"``, ``"passwordbox"``, ``"textbox"``, ``"menu"``, ``"checklist"``,
			``"radiolist"`` or ``"gauge"``
		:type control: str
		:param msg: The message to display in the dialog box
		:type msg: str
		:param extra_args: A sequence of extra arguments to pass to the control
		:param extra_values: A sequence of extra values to pass to the control
		:param exit_on: A sequence of return codes that will cause program execution to stop if
			:attr:`Whiptail.auto_exit` is :py:obj:`True`

		:return: The response returned by whiptail
		"""

		width = self.width
		height = self.height

		if self.height is None or self.width is None:
			w, h = get_terminal_size()

			if self.width is None:
				width = w - 10
				width = width - (width % 10)

			if self.height is None:
				height = h - 2
				height = height - (height % 5)

		cmd = [
				'whiptail',
				'--title',
				self.title,
				'--backtitle',
				self.backtitle,
				*list(extra_args),
				f'--{control}',
				"--",
				str(msg),
				str(height),
				str(width),
				*list(extra_values),
				]

		p = Popen(cmd, stderr=PIPE)
		out, err = p.communicate()

		if self.auto_exit and p.returncode in exit_on:
			print('User cancelled operation.')
			sys.exit(p.returncode)

		return Response(p.returncode, err)

Code: Alles auswählen

;Compile with Executable-Format: Console

EnableExplicit

#DIALOG = "whiptail"
Global pstr.s, i.i
Global.i pipe
Global pout.s{100}

OpenConsole("Program-Open-Test", #PB_UTF8)

;-c_test1
pstr = #DIALOG + ~" --gauge \"Loading...\" 6 50 0"

pipe = popen_(UTF8(pstr), UTF8("w"))

If( pipe <> #Null )
  For i=1 To 100
    Delay(100)
    fprintf_(pipe, UTF8(~"%d\n"), i);
    fflush_(pipe)
  Next
  pclose_(pipe)
EndIf


;-c_test2
pstr = #DIALOG + ~" --inputbox \"How is her condition?\" 0 0 Blue 3>&1 1>&2 2>&3"

pipe = popen_(UTF8(pstr), UTF8("r"))

If( pipe <> #Null )
  fgets_(@pout , 100 , pipe)
EndIf
pclose_(pipe)

PrintN("Output: "+PeekS(@pout, 20, #PB_UTF8))
Input()

;End

;-RunProgram Test
Global param.s = ~"--gauge \"Shutdown...\" 6 50 0"

Global prog.i, c.i

Global retstr.s

prog = RunProgram("whiptail",param,"",#PB_Program_Open|#PB_Program_Write|#PB_Program_UTF8)

If IsProgram(prog)
  While ProgramRunning(prog) And c <= 100
    For c=0 To 100
      Delay(100)
      WriteProgramStringN(prog, Str(c), #PB_UTF8)
    Next
  Wend
  CloseProgram(prog)
EndIf

CloseConsole()