mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 07:34:28 +02:00
- fixed mouse to compile with $i386_att
+ linux crt supports redirecting (not Esc-codes anymore)
This commit is contained in:
peter
parent
b3d30402ce
commit
d4b538a297
@ -41,7 +41,7 @@ Interface
|
||||
{returns which button was pressed after last call to function}
|
||||
Function mouse_press(var x,y:Longint;button:Longint):Longint;
|
||||
{returns which button was realeased after last call to function}
|
||||
Function mouse_release (var row,col:Longint;button : Longint):integer;
|
||||
Function mouse_release (var x,y:Longint;button:Longint):integer;
|
||||
{set's mouse y range}
|
||||
Procedure mouse_yrange (min,max:Longint);
|
||||
{set's mouse y range}
|
||||
@ -54,6 +54,8 @@ Interface
|
||||
Function IsRPressed:Boolean;
|
||||
{return if left button pressed}
|
||||
Function IsLPressed:Boolean;
|
||||
{return if middle button pressed}
|
||||
Function IsMPressed:Boolean;
|
||||
{return mouse X coordinate in textmode}
|
||||
Function MouseX:longint;
|
||||
{return mouse Y coordinate in textmode}
|
||||
@ -68,6 +70,8 @@ Var
|
||||
|
||||
Implementation
|
||||
|
||||
{$I386_ATT}
|
||||
|
||||
Function Check_Mouse:Boolean;
|
||||
begin
|
||||
asm
|
||||
@ -151,7 +155,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function mouse_release (var row,col:Longint;button : Longint):integer;
|
||||
function mouse_release (var x,y:Longint;button : Longint):integer;
|
||||
begin
|
||||
{$IFDEF MOUSECHECK}
|
||||
If (Not MouseFound) Then Exit;
|
||||
@ -226,7 +230,7 @@ Begin
|
||||
{$ENDIF}
|
||||
asm
|
||||
xorl %ebx,%ebx
|
||||
movl $0xa,%ax
|
||||
movl $0xa,%eax
|
||||
movl $0xff,%ecx
|
||||
xorl %edx,%edx
|
||||
movb 8(%ebp),%dh
|
||||
@ -297,6 +301,7 @@ Begin
|
||||
pushl %ebp
|
||||
int $0x33
|
||||
popl %ebp
|
||||
movl %ebx,%eax
|
||||
shrl $1,%eax
|
||||
andl $1,%eax
|
||||
movb %al,__RESULT
|
||||
@ -313,6 +318,24 @@ Begin
|
||||
pushl %ebp
|
||||
int $0x33
|
||||
popl %ebp
|
||||
movl %ebx,%eax
|
||||
andl $1,%eax
|
||||
movb %al,__RESULT
|
||||
end;
|
||||
end;
|
||||
|
||||
Function IsMPressed:Boolean;
|
||||
Begin
|
||||
{$IFDEF MOUSECHECK}
|
||||
If (Not MouseFound) Then Exit;
|
||||
{$ENDIF}
|
||||
asm
|
||||
movl $3,%eax
|
||||
pushl %ebp
|
||||
int $0x33
|
||||
popl %ebp
|
||||
movl %ebx,%eax
|
||||
shrl $2,%eax
|
||||
andl $1,%eax
|
||||
movb %al,__RESULT
|
||||
end;
|
||||
@ -382,7 +405,11 @@ Begin
|
||||
End.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.2 1998-03-26 12:25:22 peter
|
||||
Revision 1.3 1998-04-05 13:56:54 peter
|
||||
- fixed mouse to compile with $i386_att
|
||||
+ linux crt supports redirecting (not Esc-codes anymore)
|
||||
|
||||
Revision 1.2 1998/03/26 12:25:22 peter
|
||||
* integrated both mouse units
|
||||
|
||||
Revision 1.1.1.1 1998/03/25 11:18:41 root
|
||||
|
||||
@ -112,6 +112,8 @@ Var
|
||||
ScrnCol : TScreenColors;
|
||||
CurrX,CurrY : Byte;
|
||||
ExitSave : Pointer;
|
||||
Redir : boolean; { is the output being redirected (not a TTY) }
|
||||
|
||||
|
||||
{*****************************************************************************
|
||||
Some Handy Functions Not in the System.PP
|
||||
@ -432,7 +434,15 @@ begin
|
||||
y:=CurrY;
|
||||
CurrY:=$ff;
|
||||
end;
|
||||
ttySendStr(XY2Ansi(x,y,CurrX,CurrY));
|
||||
if Redir then
|
||||
|
||||
begin
|
||||
if longint(y)-longint(CurrY)=1 then
|
||||
ttySendStr(#10);
|
||||
end
|
||||
else
|
||||
|
||||
ttySendStr(XY2Ansi(x,y,CurrX,CurrY));
|
||||
CurrX:=x;
|
||||
CurrY:=y;
|
||||
end;
|
||||
@ -446,7 +456,9 @@ procedure ttyColor(a:byte);
|
||||
begin
|
||||
if a<>TextAttr then
|
||||
begin
|
||||
ttySendStr(Attr2Ansi(a,TextAttr));
|
||||
if not Redir then
|
||||
|
||||
ttySendStr(Attr2Ansi(a,TextAttr));
|
||||
TextAttr:=a;
|
||||
OldTextAttr:=a;
|
||||
end;
|
||||
@ -678,7 +690,8 @@ Begin
|
||||
oldflush:=ttySetFlush(Flushing);
|
||||
if FullWin then
|
||||
begin
|
||||
ttySendStr(#27'[H'#27'[2J');
|
||||
if not Redir then
|
||||
ttySendStr(#27'[H'#27'[2J');
|
||||
CurrX:=1;
|
||||
CurrY:=1;
|
||||
FillChar(Scrn,sizeof(Scrn),' ');
|
||||
@ -701,15 +714,15 @@ Procedure ClrEol;
|
||||
}
|
||||
Begin
|
||||
if FullWin then
|
||||
ttySendStr(#27'[K')
|
||||
else
|
||||
|
||||
begin
|
||||
|
||||
if not Redir then
|
||||
ttySendStr(#27'[K');
|
||||
end
|
||||
else
|
||||
begin
|
||||
ttySendStr(Space(WinMaxX-CurrX));
|
||||
ttyGotoXY(0,CurrY);
|
||||
end;
|
||||
|
||||
End;
|
||||
|
||||
|
||||
@ -995,7 +1008,6 @@ Begin
|
||||
end;
|
||||
if State=1 then
|
||||
PushKey(ch);
|
||||
|
||||
end
|
||||
else
|
||||
Begin
|
||||
@ -1187,12 +1199,11 @@ end;
|
||||
|
||||
|
||||
Function CrtWrite(Var F: TextRec): Integer;
|
||||
|
||||
{
|
||||
Top level write function for CRT
|
||||
}
|
||||
Var
|
||||
Temp : String;
|
||||
Temp : String;
|
||||
Begin
|
||||
Move(F.BufPTR^[0],Temp[1],F.BufPos);
|
||||
temp[0]:=chr(F.BufPos);
|
||||
@ -1235,7 +1246,7 @@ Function CrtRead(Var F: TextRec): Integer;
|
||||
Read from CRT associated file.
|
||||
}
|
||||
Begin
|
||||
F.BufEnd:=fdRead(LongInt(F.Handle), F.BufPtr^, F.BufSize);
|
||||
F.BufEnd:=fdRead(F.Handle, F.BufPtr^, F.BufSize);
|
||||
F.BufPos:=F.BufEnd;
|
||||
CrtWrite(F);
|
||||
CrtRead:=0;
|
||||
@ -1409,26 +1420,36 @@ Begin
|
||||
AssignCrt(Input);
|
||||
TextRec(Output).Mode:=fmOutput;
|
||||
TextRec(Input).Mode:=fmInput;
|
||||
Redir:=not IsAtty(TextRec(Output).Handle);
|
||||
{Set default Terminal Settings}
|
||||
SetRawMode(True);
|
||||
{Get Current X&Y or Reset to Home}
|
||||
|
||||
GetXY(CurrX,CurrY);
|
||||
if (CurrX=0) then
|
||||
if Redir then
|
||||
begin
|
||||
CurrX:=1;
|
||||
CurrY:=1;
|
||||
ttySendStr(#27'[H');
|
||||
end;
|
||||
|
||||
{Reset Attribute (TextAttr=7 at startup)}
|
||||
|
||||
ttySendStr(#27'[m');
|
||||
end
|
||||
else
|
||||
begin
|
||||
GetXY(CurrX,CurrY);
|
||||
if (CurrX=0) then
|
||||
begin
|
||||
CurrX:=1;
|
||||
CurrY:=1;
|
||||
ttySendStr(#27'[H');
|
||||
end;
|
||||
{Reset Attribute (TextAttr=7 at startup)}
|
||||
ttySendStr(#27'[m');
|
||||
end;
|
||||
End.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 1998-03-25 11:18:43 root
|
||||
Initial revision
|
||||
Revision 1.2 1998-04-05 13:56:54 peter
|
||||
- fixed mouse to compile with $i386_att
|
||||
+ linux crt supports redirecting (not Esc-codes anymore)
|
||||
|
||||
Revision 1.1.1.1 1998/03/25 11:18:43 root
|
||||
* Restored version
|
||||
|
||||
Revision 1.10 1998/03/16 23:38:52 peter
|
||||
+ support for textattr:= setting between writes
|
||||
|
||||
Loading…
Reference in New Issue
Block a user