PureBoard

Code: Alles auswählen

;OpenConsole()                               ; Wait for user input
;we execute this app already from a console window, we do not need to open one first.

  If OpenConsole()

      ;sInput$ = ProgramParameter(0)

      ;Repeat
           sInput$ = Input() 
           PrintN("Got as input: "+sInput$) 
      ;Until (sInput$ = "" )

  EndIf

End

Code: Alles auswählen

begin
        while not EOF do begin
            ReadLn(sInFilename);
            funcDoSomething( sInFilename, sOutputStr );
            //WriteLn( sOutputStr + '_pipe-works' );
            WriteLn( sOutputStr );
        end;
end.

Code: Alles auswählen

C:\>echo example.txt | myapp.exe
Got: 
Ein Prozess hat versucht, zu einer nicht bestehenden Pipe zu schreiben.

C:\>
C:\>dir /b myapp.pb | myapp.exe
Got: 

C:\>

Code: Alles auswählen

Procedure.s AsciiNachOem( Ascii$ )
    
  Define Oem$ = Space( Len( Ascii$ ) )
  If CharToOem_( Ascii$ , @Oem$ )
    ProcedureReturn Oem$
  EndIf
  ProcedureReturn #NUL$
    
EndProcedure

Procedure.s OemNachAscii( Oem$ )
  
  CompilerIf #PB_Compiler_Unicode
    
    Define l = MultiByteToWideChar_( #CP_OEMCP , 0 , @Oem$ , -1 , 0 , 0 )
    Define Ascii$ = Space( l )
    If MultiByteToWideChar_( #CP_OEMCP , 0 , @Oem$ , -1 , @Ascii$ , l )
      ProcedureReturn Ascii$
    EndIf
    ProcedureReturn #NUL$
    
  CompilerElse
    
    Define Ascii$ = Space( Len( Oem$ ) )
    If OemToChar_( @Oem$ , @Ascii$ )
      ProcedureReturn Ascii$
    EndIf
    ProcedureReturn #NUL$
    
  CompilerEndIf
  
EndProcedure

Code: Alles auswählen

EnableGraphicalConsole(0)
If OpenConsole()
    ;sInput$ = ProgramParameter(0)
    sInput$ = Input() 
    ;do here something useful
    PrintN("Got: "+sInput$)
  EndIf

End

Code: Alles auswählen

C:\>echo ex.txt |myapp.exe
Got:

C:\>echo exa.txt |myapp.exe
Got:
Ein Prozess hat versucht, zu einer nicht bestehenden Pipe zu schreiben.

C:\>echo example.txt |myapp.exe
Got:
Ein Prozess hat versucht, zu einer nicht bestehenden Pipe zu schreiben.

C:\>myapp.exe example.txt
Got: example.txt

C:\>dir /b C:\Temp\*.txt |myapp.exe
Got:

C:\>

Code: Alles auswählen

C:\>dir /b C:\Temp\*.txt |myapp.exe
Got: C:\Temp\test1.txt
Got: C:\Temp\testtest2.txt
Got: C:\Temp\testtesttest3.txt
Got: C:\Temp\testtesttesttest4.txt
...
C:\>

Code: Alles auswählen

If OpenConsole()
  *Buffer = AllocateMemory(1024)
  If *Buffer
      Repeat
          ReadSize = ReadConsoleData(*Buffer, 1024)      
          If ReadSize
              Print( PeekS(*Buffer,1024,#PB_Ascii) )
          EndIf
      Until ReadSize = 0
  EndIf
EndIf

Code: Alles auswählen

Procedure.l ConsoleInputAvailable()
    PeekNamedPipe_(GetStdHandle_(#STD_INPUT_HANDLE),0,0,0,@bytesAvailable.l,0)
    ProcedureReturn bytesAvailable
EndProcedure


If OpenConsole()
    If ConsoleInputAvailable()
      *Buffer = AllocateMemory(1024)
      If *Buffer
          Repeat
              ReadSize = ReadConsoleData(*Buffer, 1024)      
              If ReadSize
                  Print( PeekS(*Buffer,1024,#PB_Ascii) )
              EndIf
          Until ReadSize = 0
      EndIf
    EndIf
EndIf

Code: Alles auswählen

If OpenConsole()
  ;first see if there was a parameter provided:
  input$ = ProgramParameter(0)
  If(input$ <> "") 
    ;funcDoIt(input$)
     Gosub doitlabel
     End
  Else
     ;else get stdin:
     ;Allocates a contiguous memory area With the specified size in bytes.
     *MemoryBlock = AllocateMemory(1024)
     If *MemoryBlock
        Repeat
          ;Reads raw input from the console. 
          ;like text redirected to the program through a pipe
              InputData = ReadConsoleData(*MemoryBlock, 1024)     
              If InputData
                ;PeekX = Reads a string from the specified memory address
                input$ = PeekS(*MemoryBlock,1024,#PB_Ascii)
                ;funcDoIt(input$)
                Gosub doitlabel
                input$ = ""   ;//empty the var to not get the output doubled sometimes
              EndIf
            Until InputData = 0
     Else
        Debug "Couldn't allocate the requested memory!"
     EndIf
  EndIf
EndIf

doitlabel:
;Procedure funcDoIt(input$)                
     ;do something useful 
     out$ = LCase(input$)
     ;...                
     ;...
     ;...

     ;write string back to console
     Print( out$ )
;EndProcedure
Return