StandBySystem

[Ollivier]

Mais ... Qu'est-ce que c'est ?
(oh... même pas un truc français... C'est nûûl...)
Bon, en tout cas, c'est court et ça se partage !
Je viens de rajouter à l'arrache (smartphone oblige) la copie en presse-papier.

Bonne (re)découverte !

Code : Tout sélectionner

Procedure RefTextFile(C$)
  File = ReadFile(#PB_Any, #PB_Compiler_Home + "SDK/CompilerInterface.txt")
  If C$: Choice = Val(C$): EndIf
  While Not Eof(File)
    Text$ = ReplaceString(ReplaceString(ReadString(File), "<T>", "^"), Chr(9), " ")
    If Text$
      If LTrim(Text$) = Text$
        If Left(Text$, 7) = "Example": Break: EndIf
        Display | Bool(Left(Text$, 3) = "END")
        If Display
          CmdNo + 1
          If Choice: Help = Bool(Choice = CmdNo): EndIf
          If C$ = "": PrintN(Str(CmdNo) + ": " + Text$): EndIf
        EndIf
      EndIf
      If Help: PrintN(Text$): EndIf
    EndIf
  Wend
  CloseFile(File)
EndProcedure
Procedure.S TB(E.S) ; TaBulation
  ProcedureReturn ReplaceString(E, "^", Chr(9) )
EndProcedure
FullName$ = #PB_Compiler_Home + "compilers/pbcompiler"
Param$ = "/standby"
Flag = #PB_Program_Hide | #PB_Program_Read | #PB_Program_Open | #PB_Program_Write
Prog = RunProgram(FullName$, Param$, "", Flag)
OpenConsole()
Repeat
  Delay(100)
  If AvailableProgramOutput(Prog)
   T$ = ""
    Repeat 
      S$ = ReadProgramString(Prog)
      T$ + C$ + Chr(13)
      PrintN(S$)
    Until S$ = "READY" Or S$ = TB("OUTPUT^COMPLETE") Or S$ = "UNKNOWN"
    SetClipboardText(T$)
  EndIf
  A$ = Trim(Input() )
  C$ = UCase(TB(A$) )
  RefTextFile(C$)
  If ProgramRunning(Prog)     
    WriteProgramStringN(Prog, C$)
    Delay(100)
  Else
    End
  EndIf
Until ProgramRunning(Prog) = 0
CloseConsole()
CloseProgram(Prog)

[Thyphoon]

ça a l'air sympa, mais ça sert à quoi ?

[Ollivier]

Salut à toi, Thyphoon ! Très heureux de ton petit passage !

[Ar-S]

Salut Ollivier. StandbySystem... Mais encore ?
Faut penser aux recherches futures quand on poste un code. Déjà que l'outil de recherche de phpbb ne vaut pas grand chose, si en plus y'a pas de description il va disparaître vite fait.

[Ollivier]

Salut ArS !

C'est juste un outil en astuce. Mais je comprends cette logique de visibilité : sur le forum US, le modo l'a carrément viré des astuces. Il faut une sorte d'image commerciale que je n'ai, j'avoue, aucune motivation de développer.

Par manque de temps, je m'en tiens à ça pour l'instant :
"Astuce pour disposer sans échec du compilateur".

Je suis plus intéressé à copier prochainement un bout supplémentaire, en peaufinant une adaptation.

[Thyphoon]

Salut à toi, Thyphoon ! Très heureux de ton petit passage !

Je suis plus intéressé à copier prochainement un bout supplémentaire, en peaufinant une adaptation.

Effectivement je suis currieux d'en savoir plus

[Kwai chang caine]

Je suis plus intéressé à copier prochainement un bout supplémentaire, en peaufinant une adaptation.

Bon bah... je vais attendre ce moment là pour essayer de comprendre ce qui est sorti de ton cerveau survitaminé

[Ollivier]

Ce n'est pas mirobolant. La lourdeur de copie pour diffuser et la maigreur du résultat du code source me freinent et me retardent. Il y a aussi un contrôle aléatoire qui s'incruste dans le résultat.
En gros, j'utilise le compilateur pour construire une fenêtre "à drapeaux contrôlés". Or, techniquement, au moins sous Windows, les effets des drapeaux sont inappropriés. Ça a l'air d'être principalement dû à Windows qui automatise beaucoup. Le code source est petit, mais sur ce coup-là, l'effet aussi...

Alors j'ai plongé un peu sur la création de gadgets natifs. Ća semble faisable, mais il faut que je rajoute 2 autres procédures assez costauds...

Si ça en inspire d'autres, à défaut de code, l'idée est là.

[Kwai chang caine]

En gros, j'utilise le compilateur pour construire une fenêtre "à drapeaux contrôlés"

Je savais que j'aurais pas du poser la question
En tout cas merci de ta réponse