Ecrire sur l'imprimante.

Marsh Posté le 11-01-2013 à 19:36:37

Bonjour,
Je suis sur Gnu/Linux sur un compatible IBM PC, et je souhaite écrire du texte via une procédure qui écrit des unsigned_8 sur le port parallèle.
Je cherche la technique ad'hoc.
Dans un premier temps, je voudrais tester une conversion Integer to Unisgned_8 mais je ne sais pas comment faire.

Je sais que si j'envoie du texte brut avec un echo "Hello World"> /dev/lp0 ça écrit directement le texte.

J'ai testé ça :

Code :

package Pp is
 
   LP1 : constant := 16#03BC#;
   LP2 : constant := 16#0378#;
   LP3 : constant := 16#0278#;
   type Message_Type is (Data, Status, Ctrl);
end Pp;

Code :

with Interfaces;
 
generic
 
   LP : Interfaces.Unsigned_16;
package Pp.Pp_Io is
 
   use Interfaces;
 
   procedure Put(Msg : in Message_Type; Value : in Unsigned_8);
 
   procedure Get(Msg : in Message_Type; Value : out Unsigned_8);
end Pp.Pp_Io;

Code :

with Interfaces.C;
use interfaces;
 
with Pp.Ioperm, Pp.Pp_Io;
use Pp;
 
procedure Main is
 
   package Lp_Io is new Pp.Pp_Io(Pp.LP2);
 
   Errno : C.Int := 0;
 
 
   Hello : String := "bonjour monde !";
 
   Data : Unsigned_8;
 
begin
   Errno := Pp.Ioperm.Ioperm(PP.LP2, 3, 1);
   for I in 32..127 loop
      Data := Unsigned_8(I);
      Lp_Io.Put(Pp.Data, Data);
   end loop;
   Errno := Pp.Ioperm.Ioperm(PP.LP2, 3, 0);
end Main;

Merci pour votre contribution.

Message édité par Profil supprimé le 29-01-2013 à 16:57:07

Reply

Marsh Posté le 11-01-2013 à 19:36:37

Reply

Marsh Posté le 28-01-2013 à 23:24:52

J'ai pas donné, mon code de pp-pp_io !

Code :

with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada;
with System.Machine_Code;
use System.Machine_Code;
package body Pp.Pp_Io is
 
   use Interfaces, Ascii;
 
   procedure Put(Msg : in Message_Type; Value : in Unsigned_8) is
 
   begin
      
      Asm("mov %1,   %%al" & LF & HT &
            "mov %0,   %%dx" & LF & HT &
            "out %%al, %%dx",
          Inputs  => (Unsigned_16'Asm_Input ("g", LP+Message_Type'Pos(Msg)), Unsigned_8'Asm_Input ("a", Value)),
          Volatile => True);
   end Put;
   
   procedure Get(Msg : in Message_Type; Value : out Unsigned_8) is
      
   begin
      
      Asm("mov %1,%%dx" & LF & HT &
            "in %%dx,%%al" & LF & HT &
            "mov %0, %%al",
          Inputs  => (Unsigned_16'Asm_Input ("g", LP+Message_Type'Pos(Msg))),
          Outputs => Unsigned_8'Asm_Output ("=a", Value),
          Volatile => True);
   end Get;
end Pp.Pp_Io;

Voilà, vous savez tout, j'y arrive po.

Reply

Ecrire sur l'imprimante.

Sujets relatifs:

Leave a Replay