mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:49:34 +02:00
* PChar -> PAnsichar
This commit is contained in:
Michaël Van Canneyt
parent
63e7f4feb6
commit
8fa951f369
@ -71,7 +71,7 @@ type
|
||||
xln_Pred: PNode;
|
||||
xln_Type: Byte; // NT_GRAPHICS
|
||||
xln_Pri: ShortInt;
|
||||
xln_Name: PChar;
|
||||
xln_Name: PAnsiChar;
|
||||
xln_Subsystem: Byte; // see below
|
||||
xln_Subtype: Byte; // SS_GRAPHICS
|
||||
xln_Library : Longint;
|
||||
@ -215,7 +215,7 @@ type
|
||||
tf_Style: Byte; // font style | match a font
|
||||
tf_Flags: Byte; // preferences and flags / request.
|
||||
tf_XSize: Word; // nominal font width
|
||||
tf_Baseline: Word; // distance from the top of char to baseline
|
||||
tf_Baseline: Word; // distance from the top of AnsiChar to baseline
|
||||
tf_BoldSmear: Word; // smear to affect a bold enhancement
|
||||
tf_Accessors: Word; // access count
|
||||
tf_LoChar: Byte; // the first character described here
|
||||
@ -785,7 +785,7 @@ const
|
||||
CT_COLORMASK = $000F; // mask to get to following color styles
|
||||
CT_COLORFONT = $0001; // color map contains designer's colors }
|
||||
CT_GREYFONT = $0002; // color map describes even-stepped brightnesses from low to high
|
||||
CT_ANTIALIAS = $0004; // zero background thru fully saturated char
|
||||
CT_ANTIALIAS = $0004; // zero background thru fully saturated AnsiChar
|
||||
|
||||
CTB_MAPCOLOR = 0; // map ctf_FgColor to the rp_FgPen IF it's }
|
||||
CTF_MAPCOLOR = 1 shl CTB_MAPCOLOR; // is a valid color within ctf_Low..ctf_High
|
||||
@ -985,11 +985,11 @@ const
|
||||
REQUEST_SPECIAL = 1 shl MSB_REQUEST_SPECIAL;
|
||||
REQUEST_A2024 = 1 shl MSB_REQUEST_A2024;
|
||||
|
||||
DEFAULT_MONITOR_NAME : PChar = 'default.monitor';
|
||||
NTSC_MONITOR_NAME : PChar = 'ntsc.monitor';
|
||||
PAL_MONITOR_NAME : PChar = 'pal.monitor';
|
||||
VGA_MONITOR_NAME : PChar = 'vga.monitor';
|
||||
VGA70_MONITOR_NAME : PChar = 'vga70.monitor';
|
||||
DEFAULT_MONITOR_NAME : PAnsiChar = 'default.monitor';
|
||||
NTSC_MONITOR_NAME : PAnsiChar = 'ntsc.monitor';
|
||||
PAL_MONITOR_NAME : PAnsiChar = 'pal.monitor';
|
||||
VGA_MONITOR_NAME : PAnsiChar = 'vga.monitor';
|
||||
VGA70_MONITOR_NAME : PAnsiChar = 'vga70.monitor';
|
||||
STANDARD_MONITOR_MASK = REQUEST_NTSC or REQUEST_PAL;
|
||||
|
||||
STANDARD_NTSC_ROWS = 262;
|
||||
@ -1619,7 +1619,7 @@ type
|
||||
PNameInfo = ^TNameInfo;
|
||||
TNameInfo = record
|
||||
Header: TQueryHeader;
|
||||
Name: array[0..DISPLAYNAMELEN - 1] of Char;
|
||||
Name: array[0..DISPLAYNAMELEN - 1] of AnsiChar;
|
||||
Reserved: array[0..1] of LongWord; // terminator
|
||||
end;
|
||||
|
||||
@ -1975,7 +1975,7 @@ const
|
||||
// GfxFlags (private)
|
||||
NEW_DATABASE = 1;
|
||||
|
||||
GRAPHICSNAME: PChar = 'graphics.library';
|
||||
GRAPHICSNAME: PAnsiChar = 'graphics.library';
|
||||
|
||||
var
|
||||
GfxBase : PGfxBase = nil;
|
||||
@ -2094,7 +2094,7 @@ function TextExtent(Rp: PRastPort location 'a1'; String1: STRPTR location 'a0';
|
||||
function TextFit(Rp: PRastPort location 'a1'; String1: STRPTR location 'a0'; StrLen: LongWord location 'd0'; TextExtent: PTextExtent location 'a2'; ConstrainingExtent: PTextExtent location 'a3'; StrDirection: LongInt location 'd1'; ConstrainingBitWidth: LongWord location 'd2'; constrainingBitHeight: LongWord location 'd3'): LongWord; SysCall GfxBase 696;
|
||||
function GfxLookUp(associateNode: APTR location 'a0'): APTR; SysCall GfxBase 702;
|
||||
function VideoControl(ColorMap: PColorMap location 'a0'; TagArray: PTagItem location 'a1'): LongBool; SysCall GfxBase 708;
|
||||
function OpenMonitor(MonitorName: PChar location 'a1'; DisplayID: LongWord location 'd0'): PMonitorSpec; SysCall GfxBase 714;
|
||||
function OpenMonitor(MonitorName: PAnsiChar location 'a1'; DisplayID: LongWord location 'd0'): PMonitorSpec; SysCall GfxBase 714;
|
||||
function CloseMonitor(MonitorSpec: PMonitorSpec location 'a0'): LongBool; SysCall GfxBase 720;
|
||||
function FindDisplayInfo(DisplayID: LongWord location 'd0'): DisplayInfoHandle; SysCall GfxBase 726;
|
||||
function NextDisplayInfo(DisplayID: LongWord location 'd0'): LongWord; SysCall GfxBase 732;
|
||||
|
||||
@ -343,7 +343,7 @@ var
|
||||
{ Function to filter mode id's }
|
||||
AHIR_FilterFunc = AHI_TagBase + 271;
|
||||
{ DEFS }
|
||||
AHINAME : PChar = 'ahi.device';
|
||||
AHINAME : PAnsiChar = 'ahi.device';
|
||||
{ Invalid Audio ID }
|
||||
AHI_INVALID_ID = not (0);
|
||||
{ Only for AHI_AllocAudioA()! }
|
||||
@ -538,7 +538,7 @@ SysCall AHIBase 150;
|
||||
function AHI_RemoveAudioMode(d0arg : Cardinal location 'd0') : Cardinal;
|
||||
SysCall AHIBase 156;
|
||||
|
||||
function AHI_LoadModeFile(a0arg : PChar location 'a0') : Cardinal;
|
||||
function AHI_LoadModeFile(a0arg : PAnsiChar location 'a0') : Cardinal;
|
||||
SysCall AHIBase 162;
|
||||
|
||||
|
||||
|
||||
@ -82,19 +82,19 @@ type
|
||||
TFileInfoBlock = packed record
|
||||
fib_DiskKey : LongInt;
|
||||
fib_DirEntryType: LongInt;
|
||||
fib_FileName : Array[0..107] Of Char;
|
||||
fib_FileName : Array[0..107] Of AnsiChar;
|
||||
fib_Protection : LongInt;
|
||||
fib_EntryType : LongInt;
|
||||
fib_Size : LongInt;
|
||||
fib_NumBlocks : LongInt;
|
||||
fib_Date : TDateStamp;
|
||||
fib_Comment : Array[0..79] Of Char;
|
||||
fib_Comment : Array[0..79] Of AnsiChar;
|
||||
|
||||
fib_OwnerUID : Word;
|
||||
fib_OwnerGID : Word;
|
||||
case SmallInt of
|
||||
0: (
|
||||
fib_Reserved : Array[0..31] Of Char;
|
||||
fib_Reserved : Array[0..31] Of AnsiChar;
|
||||
);
|
||||
1: (
|
||||
// 64bit DOS extensions V51 filled by Examine64, ExNext64, ExamineFH64 with ACTION_EXAMINE_OBJECT64
|
||||
@ -297,9 +297,9 @@ type
|
||||
dat_Stamp : TDateStamp;
|
||||
dat_Format : Byte;
|
||||
dat_Flags : Byte;
|
||||
dat_StrDay : PChar;
|
||||
dat_StrDate: PChar;
|
||||
dat_StrTime: PChar;
|
||||
dat_StrDay : PAnsiChar;
|
||||
dat_StrDate: PAnsiChar;
|
||||
dat_StrTime: PAnsiChar;
|
||||
end;
|
||||
|
||||
const
|
||||
@ -528,8 +528,8 @@ const
|
||||
ACTION_EXAMINE_NEXT64 = 26409; // dp_Arg1 - BPTR to lock to examine, dp_Arg2 - BPTR to TFileInfoBlock
|
||||
ACTION_EXAMINE_FH64 = 26410; // dp_Arg1 - LongInt fh_Arg1, dp_Arg2 - BPTR to TFileInfoBlock
|
||||
|
||||
FQA_MaxFileNameLength = 0; // LongInt - Return the maximum length of a file name (in characters), excluding terminating '\0' char.
|
||||
FQA_MaxVolumeNameLength = 1; // LongInt - Return the maximum length of the volume name (in characters), excluding terminating '\0' char
|
||||
FQA_MaxFileNameLength = 0; // LongInt - Return the maximum length of a file name (in characters), excluding terminating '\0' AnsiChar.
|
||||
FQA_MaxVolumeNameLength = 1; // LongInt - Return the maximum length of the volume name (in characters), excluding terminating '\0' AnsiChar
|
||||
FQA_MaxFileSize = 2; // Int64 - Returns maximum size of the file the filesystem supports.
|
||||
FQA_IsCaseSensitive = 3; // LongInt - If the filesystem names are case sensitive, this attribute must return DOSTrue.
|
||||
FQA_DeviceType = 4; // LongInt - Return the type of the medium the filesystem is using, if known. Value is one of DG_*
|
||||
@ -713,7 +713,7 @@ type
|
||||
end;
|
||||
);
|
||||
2: ( dol_assign : record
|
||||
dol_AssignName: PChar;
|
||||
dol_AssignName: PAnsiChar;
|
||||
dol_List : PAssignList;
|
||||
end;
|
||||
);
|
||||
@ -822,7 +822,7 @@ type
|
||||
cdi_Future: LongWord; // For future expansion, 0 for now
|
||||
cdi_Pri: ShortInt; // CLI priority
|
||||
cdi_Flags: Byte; // If bit 0 is set cdi_command is valid
|
||||
cdi_Command: array[0..0] of Char; // 0-terminated command being executed
|
||||
cdi_Command: array[0..0] of AnsiChar; // 0-terminated command being executed
|
||||
end;
|
||||
PCLIDataItem = ^TCLIDataItem;
|
||||
|
||||
@ -847,7 +847,7 @@ type
|
||||
an_Lock : BPTR;
|
||||
an_Info : TFileInfoBlock;
|
||||
an_Flags : ShortInt;
|
||||
an_String: Array[0..0] Of Char;
|
||||
an_String: Array[0..0] Of AnsiChar;
|
||||
{ * an_String continues * }
|
||||
end;
|
||||
|
||||
@ -870,7 +870,7 @@ type
|
||||
ap_Reserved : ShortInt;
|
||||
ap_Strlen : SmallInt;
|
||||
ap_Info : TFileInfoBlock;
|
||||
ap_Buf : Array[0..1] of Char;
|
||||
ap_Buf : Array[0..1] of AnsiChar;
|
||||
{ * an_Buf continues * }
|
||||
);
|
||||
end;
|
||||
@ -1059,14 +1059,14 @@ type
|
||||
PExAllData = ^TExAllData;
|
||||
TExAllData = packed record
|
||||
ed_Next : PExAllData;
|
||||
ed_Name : PChar;
|
||||
ed_Name : PAnsiChar;
|
||||
ed_Type : LongInt;
|
||||
ed_Size : LongWord;
|
||||
ed_Prot : LongWord;
|
||||
ed_Days : LongWord;
|
||||
ed_Mins : LongWord;
|
||||
ed_Ticks : LongWord;
|
||||
ed_Comment : PChar;
|
||||
ed_Comment : PAnsiChar;
|
||||
ed_OwnerUID: Word;
|
||||
ed_OwnerGID: Word;
|
||||
ed_Size64: QWord;
|
||||
@ -1077,7 +1077,7 @@ type
|
||||
TexAllControl = packed record
|
||||
eac_Entries : LongWord;
|
||||
eac_LastKey : LongWord;
|
||||
eac_MatchString: PChar;
|
||||
eac_MatchString: PAnsiChar;
|
||||
eac_MatchFunc : PHook;
|
||||
|
||||
end;
|
||||
@ -1279,7 +1279,7 @@ const
|
||||
ADO_AN_MsgPort = ADO_Dummy + 121; // PMsgPort
|
||||
ADO_AN_Lock = ADO_Dummy + 122; // BPTR
|
||||
ADO_AN_Type = ADO_Dummy + 123; // LongWord
|
||||
ADO_AN_AssignName = ADO_Dummy + 124; // PChar
|
||||
ADO_AN_AssignName = ADO_Dummy + 124; // PAnsiChar
|
||||
ADO_AN_AssignList = ADO_Dummy + 125; // PAssignList
|
||||
|
||||
// GetDosObjectAttr uses this to store variable size entries.
|
||||
@ -1368,7 +1368,7 @@ type
|
||||
TLocalVar = packed record
|
||||
lv_Node : TNode;
|
||||
lv_Flags: Word;
|
||||
lv_Value: PChar;
|
||||
lv_Value: PAnsiChar;
|
||||
lv_Len : LongWord;
|
||||
end;
|
||||
|
||||
@ -1406,7 +1406,7 @@ const
|
||||
type
|
||||
PCSource = ^TCSource;
|
||||
TCSource = packed record
|
||||
CS_Buffer: PChar;
|
||||
CS_Buffer: PAnsiChar;
|
||||
CS_Length: LongInt;
|
||||
CS_CurChr: LongInt;
|
||||
end;
|
||||
@ -1416,9 +1416,9 @@ type
|
||||
TRDArgs = packed record
|
||||
RDA_Source : TCSource;
|
||||
RDA_DAList : LongInt;
|
||||
RDA_Buffer : PChar;
|
||||
RDA_Buffer : PAnsiChar;
|
||||
RDA_BufSiz : LongInt;
|
||||
RDA_ExtHelp: PChar;
|
||||
RDA_ExtHelp: PAnsiChar;
|
||||
RDA_Flags : LongInt;
|
||||
end;
|
||||
|
||||
@ -1534,8 +1534,8 @@ const
|
||||
type
|
||||
PNotifyRequest = ^TNotifyRequest;
|
||||
TNotifyRequest = packed record
|
||||
nr_Name : PChar;
|
||||
nr_FullName: PChar;
|
||||
nr_Name : PAnsiChar;
|
||||
nr_FullName: PAnsiChar;
|
||||
nr_UserData: LongWord;
|
||||
nr_Flags : LongWord;
|
||||
nr_stuff : record
|
||||
@ -1615,7 +1615,7 @@ type
|
||||
PSegNode = ^TSegNode;
|
||||
TSegNode = packed record
|
||||
seg_Node : TMinNode;
|
||||
seg_Name : PChar;
|
||||
seg_Name : PAnsiChar;
|
||||
seg_Array: Array[0..0] Of TSegArray;
|
||||
end;
|
||||
|
||||
@ -1625,7 +1625,7 @@ type
|
||||
|
||||
{ dos.library functions }
|
||||
|
||||
function dosOpen(fname : PChar location 'd1';
|
||||
function dosOpen(fname : PAnsiChar location 'd1';
|
||||
accessMode: LongInt location 'd2'): BPTR;
|
||||
SysCall MOS_DOSBase 30;
|
||||
|
||||
@ -1653,14 +1653,14 @@ function dosSeek(fileh : BPTR location 'd1';
|
||||
posmode : LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 66;
|
||||
|
||||
function dosDeleteFile(fname: PChar location 'd1'): LongBool;
|
||||
function dosDeleteFile(fname: PAnsiChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 72;
|
||||
|
||||
function dosRename(oldName: STRPTR location 'd1';
|
||||
newName: STRPTR location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 78;
|
||||
|
||||
function Lock(lname : PChar location 'd1';
|
||||
function Lock(lname : PAnsiChar location 'd1';
|
||||
accessMode: LongInt location 'd2'): BPTR;
|
||||
SysCall MOS_DOSBase 84;
|
||||
|
||||
@ -1682,7 +1682,7 @@ function Info(lock : BPTR location 'd1';
|
||||
parameterBlock: PInfoData location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 114;
|
||||
|
||||
function dosCreateDir(dname: PChar location 'd1'): LongInt;
|
||||
function dosCreateDir(dname: PAnsiChar location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 120;
|
||||
|
||||
function CurrentDir(lock: BPTR location 'd1'): BPTR;
|
||||
@ -1691,7 +1691,7 @@ SysCall MOS_DOSBase 126;
|
||||
function IoErr: LongInt;
|
||||
SysCall MOS_DOSBase 132;
|
||||
|
||||
function CreateProc(name : PChar location 'd1';
|
||||
function CreateProc(name : PAnsiChar location 'd1';
|
||||
pri : LongInt location 'd2';
|
||||
segList : BPTR location 'd3';
|
||||
stackSize: LongInt location 'd4'): PMsgPort;
|
||||
@ -1700,20 +1700,20 @@ SysCall MOS_DOSBase 138;
|
||||
procedure dosExit(returnCode: LongInt location 'd1');
|
||||
SysCall MOS_DOSBase 144;
|
||||
|
||||
function LoadSeg(name: PChar location 'd1'): BPTR;
|
||||
function LoadSeg(name: PAnsiChar location 'd1'): BPTR;
|
||||
SysCall MOS_DOSBase 150;
|
||||
|
||||
procedure UnLoadSeg(seglist: BPTR location 'd1');
|
||||
SysCall MOS_DOSBase 156;
|
||||
|
||||
function DeviceProc(name: PChar location 'd1'): PMsgPort;
|
||||
function DeviceProc(name: PAnsiChar location 'd1'): PMsgPort;
|
||||
SysCall MOS_DOSBase 174;
|
||||
|
||||
function SetComment(name : PChar location 'd1';
|
||||
comment: PChar location 'd2'): LongBool;
|
||||
function SetComment(name : PAnsiChar location 'd1';
|
||||
comment: PAnsiChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 180;
|
||||
|
||||
function SetProtection(name: PChar location 'd1';
|
||||
function SetProtection(name: PAnsiChar location 'd1';
|
||||
mask: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 186;
|
||||
|
||||
@ -1855,21 +1855,21 @@ function FWrite(fh : BPTR location 'd1';
|
||||
SysCall MOS_DOSBase 330;
|
||||
|
||||
function FGets(fh : BPTR location 'd1';
|
||||
buf : PChar location 'd2';
|
||||
buflen: Cardinal location 'd3'): PChar;
|
||||
buf : PAnsiChar location 'd2';
|
||||
buflen: Cardinal location 'd3'): PAnsiChar;
|
||||
SysCall MOS_DOSBase 336;
|
||||
|
||||
function FPuts(fh : BPTR location 'd1';
|
||||
str: PChar location 'd2'): LongInt;
|
||||
str: PAnsiChar location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 342;
|
||||
|
||||
procedure VFWritef(fh : BPTR location 'd1';
|
||||
format : PChar location 'd2';
|
||||
format : PAnsiChar location 'd2';
|
||||
argarray: Pointer location 'd3');
|
||||
SysCall MOS_DOSBase 348;
|
||||
|
||||
function VFPrintf(fh : BPTR location 'd1';
|
||||
format : PChar location 'd2';
|
||||
format : PAnsiChar location 'd2';
|
||||
argarray: PLongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 354;
|
||||
|
||||
@ -1877,7 +1877,7 @@ function dosFlush(fh: BPTR location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 360;
|
||||
|
||||
function SetVBuf(fh : BPTR location 'd1';
|
||||
buff : PChar location 'd2';
|
||||
buff : PAnsiChar location 'd2';
|
||||
type1: LongInt location 'd3';
|
||||
size : LongInt location 'd4'): LongBool;
|
||||
SysCall MOS_DOSBase 366;
|
||||
@ -1895,23 +1895,23 @@ function ExamineFH(fh : BPTR location 'd1';
|
||||
fib: PFileInfoBlock location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 390;
|
||||
|
||||
function SetFileDate(name: PChar location 'd1';
|
||||
function SetFileDate(name: PAnsiChar location 'd1';
|
||||
date: PDateStamp location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 396;
|
||||
|
||||
function NameFromLock(lock : BPTR location 'd1';
|
||||
buffer: PChar location 'd2';
|
||||
buffer: PAnsiChar location 'd2';
|
||||
len : LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 402;
|
||||
|
||||
function NameFromFH(fh : BPTR location 'd1';
|
||||
buffer: PChar location 'd2';
|
||||
buffer: PAnsiChar location 'd2';
|
||||
len : LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 408;
|
||||
|
||||
function SplitName(name : PChar location 'd1';
|
||||
function SplitName(name : PAnsiChar location 'd1';
|
||||
separator: Cardinal location 'd2';
|
||||
buf : PChar location 'd3';
|
||||
buf : PAnsiChar location 'd3';
|
||||
oldpos : LongInt location 'd4';
|
||||
size : LongInt location 'd5'): SmallInt;
|
||||
SysCall MOS_DOSBase 414;
|
||||
@ -1933,12 +1933,12 @@ SysCall MOS_DOSBase 432;
|
||||
|
||||
function ReadLink(port : PMsgPort location 'd1';
|
||||
lock : BPTR location 'd2';
|
||||
path : PChar location 'd3';
|
||||
buffer: PChar location 'd4';
|
||||
path : PAnsiChar location 'd3';
|
||||
buffer: PAnsiChar location 'd4';
|
||||
size : Cardinal location 'd5'): LongBool;
|
||||
SysCall MOS_DOSBase 438;
|
||||
|
||||
function MakeLink(name: PChar location 'd1';
|
||||
function MakeLink(name: PAnsiChar location 'd1';
|
||||
dest: LongInt location 'd2';
|
||||
soft: LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 444;
|
||||
@ -1957,13 +1957,13 @@ function SetIoErr(result: LongInt location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 462;
|
||||
|
||||
function Fault(code : LongInt location 'd1';
|
||||
header: PChar location 'd2';
|
||||
buffer: PChar location 'd3';
|
||||
header: PAnsiChar location 'd2';
|
||||
buffer: PAnsiChar location 'd3';
|
||||
len : LongInt location 'd4'): LongBool;
|
||||
SysCall MOS_DOSBase 468;
|
||||
|
||||
function PrintFault(code : LongInt location 'd1';
|
||||
header: PChar location 'd2'): LongBool;
|
||||
header: PAnsiChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 474;
|
||||
|
||||
function ErrorReport(code : LongInt location 'd1';
|
||||
@ -1983,7 +1983,7 @@ SysCall MOS_DOSBase 498;
|
||||
|
||||
function RunCommand(seg : BPTR location 'd1';
|
||||
stack : LongInt location 'd2';
|
||||
paramptr: PChar location 'd3';
|
||||
paramptr: PAnsiChar location 'd3';
|
||||
paramlen: LongInt location 'd4'): LongInt;
|
||||
SysCall MOS_DOSBase 504;
|
||||
|
||||
@ -1999,10 +1999,10 @@ SysCall MOS_DOSBase 522;
|
||||
function SetFileSysTask(task: PMsgPort location 'd1'): PMsgPort;
|
||||
SysCall MOS_DOSBase 528;
|
||||
|
||||
function GetArgStr: PChar;
|
||||
function GetArgStr: PAnsiChar;
|
||||
SysCall MOS_DOSBase 534;
|
||||
|
||||
function SetArgStr(str: PChar location 'd1'): LongBool;
|
||||
function SetArgStr(str: PAnsiChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 540;
|
||||
|
||||
function FindCliProc(num: Cardinal location 'd1'): PProcess;
|
||||
@ -2011,24 +2011,24 @@ SysCall MOS_DOSBase 546;
|
||||
function MaxCli: Cardinal;
|
||||
SysCall MOS_DOSBase 552;
|
||||
|
||||
function SetCurrentDirName(name: PChar location 'd1'): LongBool;
|
||||
function SetCurrentDirName(name: PAnsiChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 558;
|
||||
|
||||
function GetCurrentDirName(buf: PChar location 'd1';
|
||||
function GetCurrentDirName(buf: PAnsiChar location 'd1';
|
||||
len: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 564;
|
||||
|
||||
function SetProgramName(name: PChar location 'd1'): LongBool;
|
||||
function SetProgramName(name: PAnsiChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 570;
|
||||
|
||||
function GetProgramName(buf: PChar location 'd1';
|
||||
function GetProgramName(buf: PAnsiChar location 'd1';
|
||||
len: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 576;
|
||||
|
||||
function SetPrompt(name: PChar location 'd1'): LongBool;
|
||||
function SetPrompt(name: PAnsiChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 582;
|
||||
|
||||
function GetPrompt(buf: PChar location 'd1';
|
||||
function GetPrompt(buf: PAnsiChar location 'd1';
|
||||
len: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 588;
|
||||
|
||||
@ -2038,35 +2038,35 @@ SysCall MOS_DOSBase 594;
|
||||
function GetProgramDir: BPTR;
|
||||
SysCall MOS_DOSBase 600;
|
||||
|
||||
function SystemTagList(command: PChar location 'd1';
|
||||
function SystemTagList(command: PAnsiChar location 'd1';
|
||||
tags : PTagItem location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 606;
|
||||
|
||||
function dosSystem(command: PChar location 'd1';
|
||||
function dosSystem(command: PAnsiChar location 'd1';
|
||||
tags : PTagItem location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 606;
|
||||
|
||||
function AssignLock(name: PChar location 'd1';
|
||||
function AssignLock(name: PAnsiChar location 'd1';
|
||||
lock: BPTR location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 612;
|
||||
|
||||
function AssignLate(name: PChar location 'd1';
|
||||
path: PChar location 'd2'): LongBool;
|
||||
function AssignLate(name: PAnsiChar location 'd1';
|
||||
path: PAnsiChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 618;
|
||||
|
||||
function AssignPath(name: PChar location 'd1';
|
||||
path: PChar location 'd2'): LongBool;
|
||||
function AssignPath(name: PAnsiChar location 'd1';
|
||||
path: PAnsiChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 624;
|
||||
|
||||
function AssignAdd(name: PChar location 'd1';
|
||||
function AssignAdd(name: PAnsiChar location 'd1';
|
||||
lock: BPTR location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 630;
|
||||
|
||||
function RemAssignList(name: PChar location 'd1';
|
||||
function RemAssignList(name: PAnsiChar location 'd1';
|
||||
lock: BPTR location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 636;
|
||||
|
||||
function GetDeviceProc(name: PChar location 'd1';
|
||||
function GetDeviceProc(name: PAnsiChar location 'd1';
|
||||
dp : PDevProc location 'd2'): PDevProc;
|
||||
SysCall MOS_DOSBase 642;
|
||||
|
||||
@ -2089,7 +2089,7 @@ function AddDosEntry(dlist: PDosList location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 678;
|
||||
|
||||
function FindDosEntry(dlist: PDosList location 'd1';
|
||||
name : PChar location 'd2';
|
||||
name : PAnsiChar location 'd2';
|
||||
flags: Cardinal location 'd3'): PDosList;
|
||||
SysCall MOS_DOSBase 684;
|
||||
|
||||
@ -2097,30 +2097,30 @@ function NextDosEntry(dlist: PDosList location 'd1';
|
||||
flags: Cardinal location 'd2'): PDosList;
|
||||
SysCall MOS_DOSBase 690;
|
||||
|
||||
function MakeDosEntry(name : PChar location 'd1';
|
||||
function MakeDosEntry(name : PAnsiChar location 'd1';
|
||||
type1: LongInt location 'd2'): PDosList;
|
||||
SysCall MOS_DOSBase 696;
|
||||
|
||||
procedure FreeDosEntry(dlist: PDosList location 'd1');
|
||||
SysCall MOS_DOSBase 702;
|
||||
|
||||
function IsFileSystem(name: PChar location 'd1'): LongBool;
|
||||
function IsFileSystem(name: PAnsiChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 708;
|
||||
|
||||
function Format(filesystem: PChar location 'd1';
|
||||
volumename: PChar location 'd2';
|
||||
function Format(filesystem: PAnsiChar location 'd1';
|
||||
volumename: PAnsiChar location 'd2';
|
||||
dostype : Cardinal location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 714;
|
||||
|
||||
function Relabel(drive : PChar location 'd1';
|
||||
newname: PChar location 'd2'): LongBool;
|
||||
function Relabel(drive : PAnsiChar location 'd1';
|
||||
newname: PAnsiChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 720;
|
||||
|
||||
function Inhibit(name : PChar location 'd1';
|
||||
function Inhibit(name : PAnsiChar location 'd1';
|
||||
onoff: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 726;
|
||||
|
||||
function AddBuffers(name : PChar location 'd1';
|
||||
function AddBuffers(name : PAnsiChar location 'd1';
|
||||
number: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 732;
|
||||
|
||||
@ -2140,20 +2140,20 @@ function InternalLoadSeg(fh : BPTR location 'd0';
|
||||
var stack : LongInt location 'a2'): LongInt;
|
||||
SysCall MOS_DOSBase 756;
|
||||
|
||||
function NewLoadSeg(file1: PChar location 'd1';
|
||||
function NewLoadSeg(file1: PAnsiChar location 'd1';
|
||||
tags : PTagItem location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 768;
|
||||
|
||||
function NewLoadSegTagList(file1: PChar location 'd1';
|
||||
function NewLoadSegTagList(file1: PAnsiChar location 'd1';
|
||||
tags : PTagItem location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 768;
|
||||
|
||||
function AddSegment(name : PChar location 'd1';
|
||||
function AddSegment(name : PAnsiChar location 'd1';
|
||||
seg : BPTR location 'd2';
|
||||
system: LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 774;
|
||||
|
||||
function FindSegment(name : PChar location 'd1';
|
||||
function FindSegment(name : PAnsiChar location 'd1';
|
||||
seg : PSegment location 'd2';
|
||||
system: LongInt location 'd3'): PSegment;
|
||||
SysCall MOS_DOSBase 780;
|
||||
@ -2164,25 +2164,25 @@ SysCall MOS_DOSBase 786;
|
||||
function CheckSignal(mask: LongInt location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 792;
|
||||
|
||||
function ReadArgs(arg_template: PChar location 'd1';
|
||||
function ReadArgs(arg_template: PAnsiChar location 'd1';
|
||||
var array1 : LongInt location 'd2';
|
||||
args : PRDArgs location 'd3'): PRDArgs;
|
||||
SysCall MOS_DOSBase 798;
|
||||
|
||||
function FindArg(keyword : PChar location 'd1';
|
||||
arg_template: PChar location 'd2'): LongInt;
|
||||
function FindArg(keyword : PAnsiChar location 'd1';
|
||||
arg_template: PAnsiChar location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 804;
|
||||
|
||||
function ReadItem(name : PChar location 'd1';
|
||||
function ReadItem(name : PAnsiChar location 'd1';
|
||||
maxchars: LongInt location 'd2';
|
||||
cSource : PCSource location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 810;
|
||||
|
||||
function StrToLong(string1 : PChar location 'd1';
|
||||
function StrToLong(string1 : PAnsiChar location 'd1';
|
||||
var value: LongInt location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 816;
|
||||
|
||||
function MatchFirst(pat : PChar location 'd1';
|
||||
function MatchFirst(pat : PAnsiChar location 'd1';
|
||||
anchor: PAnchorPath location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 822;
|
||||
|
||||
@ -2192,26 +2192,26 @@ SysCall MOS_DOSBase 828;
|
||||
procedure MatchEnd(anchor: PAnchorPath location 'd1');
|
||||
SysCall MOS_DOSBase 834;
|
||||
|
||||
function ParsePattern(pat : PChar location 'd1';
|
||||
buf : PChar location 'd2';
|
||||
function ParsePattern(pat : PAnsiChar location 'd1';
|
||||
buf : PAnsiChar location 'd2';
|
||||
buflen: LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 840;
|
||||
|
||||
function MatchPattern(pat: PChar location 'd1';
|
||||
str: PChar location 'd2'): LongBool;
|
||||
function MatchPattern(pat: PAnsiChar location 'd1';
|
||||
str: PAnsiChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 846;
|
||||
|
||||
procedure FreeArgs(args: pRDArgs location 'd1');
|
||||
SysCall MOS_DOSBase 858;
|
||||
|
||||
function FilePart(path: PChar location 'd1'): PChar;
|
||||
function FilePart(path: PAnsiChar location 'd1'): PAnsiChar;
|
||||
SysCall MOS_DOSBase 870;
|
||||
|
||||
function PathPart(path: PChar location 'd1'): PChar;
|
||||
function PathPart(path: PAnsiChar location 'd1'): PAnsiChar;
|
||||
SysCall MOS_DOSBase 876;
|
||||
|
||||
function AddPart(dirname: PChar location 'd1';
|
||||
filename: PChar location 'd2';
|
||||
function AddPart(dirname: PAnsiChar location 'd1';
|
||||
filename: PAnsiChar location 'd2';
|
||||
size : Cardinal location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 882;
|
||||
|
||||
@ -2221,23 +2221,23 @@ SysCall MOS_DOSBase 888;
|
||||
procedure EndNotify(notify: PNotifyRequest location 'd1');
|
||||
SysCall MOS_DOSBase 894;
|
||||
|
||||
function SetVar(name : PChar location 'd1';
|
||||
buffer: PChar location 'd2';
|
||||
function SetVar(name : PAnsiChar location 'd1';
|
||||
buffer: PAnsiChar location 'd2';
|
||||
size : LongInt location 'd3';
|
||||
flags : LongInt location 'd4'): LongBool;
|
||||
SysCall MOS_DOSBase 900;
|
||||
|
||||
function GetVar(name : PChar location 'd1';
|
||||
buffer: PChar location 'd2';
|
||||
function GetVar(name : PAnsiChar location 'd1';
|
||||
buffer: PAnsiChar location 'd2';
|
||||
size : LongInt location 'd3';
|
||||
flags : LongInt location 'd4'): LongInt;
|
||||
SysCall MOS_DOSBase 906;
|
||||
|
||||
function DeleteVar(name : PChar location 'd1';
|
||||
function DeleteVar(name : PAnsiChar location 'd1';
|
||||
flags: Cardinal location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 912;
|
||||
|
||||
function FindVar(name : PChar location 'd1';
|
||||
function FindVar(name : PAnsiChar location 'd1';
|
||||
type1: Cardinal location 'd2'): PLocalVar;
|
||||
SysCall MOS_DOSBase 918;
|
||||
|
||||
@ -2247,24 +2247,24 @@ SysCall MOS_DOSBase 930;
|
||||
function CliInitRun(dp: PDosPacket location 'a0'): LongInt;
|
||||
SysCall MOS_DOSBase 936;
|
||||
|
||||
function WriteChars(buf : PChar location 'd1';
|
||||
function WriteChars(buf : PAnsiChar location 'd1';
|
||||
buflen: Cardinal location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 942;
|
||||
|
||||
function PutStr(str: PChar location 'd1'): LongInt;
|
||||
function PutStr(str: PAnsiChar location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 948;
|
||||
|
||||
function VPrintf(format : PChar location 'd1';
|
||||
function VPrintf(format : PAnsiChar location 'd1';
|
||||
argarray: Pointer location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 954;
|
||||
|
||||
function ParsePatternNoCase(pat : PChar location 'd1';
|
||||
buf : PChar location 'd2';
|
||||
function ParsePatternNoCase(pat : PAnsiChar location 'd1';
|
||||
buf : PAnsiChar location 'd2';
|
||||
buflen: LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 966;
|
||||
|
||||
function MatchPatternNoCase(pat: PChar location 'd1';
|
||||
str: PChar location 'd2'): LongBool;
|
||||
function MatchPatternNoCase(pat: PAnsiChar location 'd1';
|
||||
str: PAnsiChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 972;
|
||||
|
||||
function SameDevice(lock1: BPTR location 'd1';
|
||||
@ -2278,7 +2278,7 @@ procedure ExAllEnd(lock : LongInt location 'd1';
|
||||
control: PExAllControl location 'd5');
|
||||
SysCall MOS_DOSBase 990;
|
||||
|
||||
function SetOwner(name : PChar location 'd1';
|
||||
function SetOwner(name : PAnsiChar location 'd1';
|
||||
owner_info: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 996;
|
||||
|
||||
@ -2328,12 +2328,12 @@ function MKBADDR(x: Pointer): BPTR; Inline;
|
||||
* }
|
||||
|
||||
function ReadChar: LongInt; Inline;
|
||||
function WriteChar(ch: Char): LongInt; Inline;
|
||||
function UnReadChar(ch: Char): LongInt; Inline;
|
||||
function WriteChar(ch: AnsiChar): LongInt; Inline;
|
||||
function UnReadChar(ch: AnsiChar): LongInt; Inline;
|
||||
function ReadChars(buf: Pointer; num: LongInt): LongInt; Inline;
|
||||
function dosReadLn(buf: PChar; num: LongInt): PChar; Inline;
|
||||
function dosWriteStr(str: PChar): LongInt; Inline;
|
||||
procedure VWritef(format: PChar; argv: Pointer); Inline;
|
||||
function dosReadLn(buf: PAnsiChar; num: LongInt): PAnsiChar; Inline;
|
||||
function dosWriteStr(str: PAnsiChar): LongInt; Inline;
|
||||
procedure VWritef(format: PAnsiChar; argv: Pointer); Inline;
|
||||
|
||||
|
||||
{ * calls with tags workarounds (should be removed later)
|
||||
@ -2342,7 +2342,7 @@ procedure VWritef(format: PChar; argv: Pointer); Inline;
|
||||
|
||||
function CreateNewProcTags(tags: array of dword): PProcess; Inline;
|
||||
function AllocDosObjectTags(type1: Cardinal; Tags: array of DWord): Pointer; inline;
|
||||
function SystemTags(command: PChar; Tags: array of DWord): LongInt; Inline;
|
||||
function SystemTags(command: PAnsiChar; Tags: array of DWord): LongInt; Inline;
|
||||
|
||||
function SetDosObjectAttrTagList(Type_: LongWord; Ptr: APTR; const Tags: array of PtrUInt): LongInt; inline;
|
||||
function GetDosObjectAttrTagList(Type_: LongWord; Ptr: APTR; const Tags: array of PtrUInt): LongInt; inline;
|
||||
@ -2365,12 +2365,12 @@ begin
|
||||
ReadChar:=FGetC(dosInput);
|
||||
end;
|
||||
|
||||
function WriteChar(ch: Char): LongInt; Inline;
|
||||
function WriteChar(ch: AnsiChar): LongInt; Inline;
|
||||
begin
|
||||
WriteChar:=FPutC(dosOutput,Byte(ch));
|
||||
end;
|
||||
|
||||
function UnReadChar(ch: Char): LongInt; Inline;
|
||||
function UnReadChar(ch: AnsiChar): LongInt; Inline;
|
||||
begin
|
||||
UnReadChar:=UnGetC(dosInput,Byte(ch));
|
||||
end;
|
||||
@ -2380,17 +2380,17 @@ begin
|
||||
ReadChars:=FRead(dosInput,buf,1,num);
|
||||
end;
|
||||
|
||||
function dosReadLn(buf: PChar; num: LongInt): PChar; Inline;
|
||||
function dosReadLn(buf: PAnsiChar; num: LongInt): PAnsiChar; Inline;
|
||||
begin
|
||||
dosReadLn:=FGets(dosInput,buf,num);
|
||||
end;
|
||||
|
||||
function dosWriteStr(str: PChar): LongInt; Inline;
|
||||
function dosWriteStr(str: PAnsiChar): LongInt; Inline;
|
||||
begin
|
||||
dosWriteStr:=FPuts(dosOutput,str);
|
||||
end;
|
||||
|
||||
procedure VWritef(format: PChar; argv: Pointer); Inline;
|
||||
procedure VWritef(format: PAnsiChar; argv: Pointer); Inline;
|
||||
begin
|
||||
VFWritef(dosOutput,format,argv);
|
||||
end;
|
||||
@ -2428,7 +2428,7 @@ begin
|
||||
AllocDosObjectTags := AllocDosObject(type1, @Tags);
|
||||
end;
|
||||
|
||||
function SystemTags(command: PChar; Tags: array of DWord): LongInt;
|
||||
function SystemTags(command: PAnsiChar; Tags: array of DWord): LongInt;
|
||||
begin
|
||||
SystemTags := SystemTagList(Command, @Tags);
|
||||
end;
|
||||
|
||||
@ -30,7 +30,7 @@ uses exec, utility, workbench, agraphics;
|
||||
{************************************************************************}
|
||||
|
||||
const
|
||||
ASLNAME: PChar = 'asl.library';
|
||||
ASLNAME: PAnsiChar = 'asl.library';
|
||||
ASL_TB = TAG_USER + $80000;
|
||||
|
||||
{************************************************************************}
|
||||
@ -418,7 +418,7 @@ const
|
||||
* of the semaphore is given below; it exists only with asl.library V45 and
|
||||
* IPrefs V45 and beyond.
|
||||
}
|
||||
ASL_SEMAPHORE_NAME: PChar = 'asl.library';
|
||||
ASL_SEMAPHORE_NAME: PAnsiChar = 'asl.library';
|
||||
|
||||
type
|
||||
PAslSemaphore = ^TAslSemaphore;
|
||||
|
||||
@ -54,7 +54,7 @@ type
|
||||
io_Error : Shortint; { error or warning num }
|
||||
io_Actual : DWord; { number of bytes transferred }
|
||||
io_Length : DWord; { number of bytes requested }
|
||||
io_Data : PChar; { either clip stream or post port }
|
||||
io_Data : PAnsiChar; { either clip stream or post port }
|
||||
io_Offset : DWord; { offset in clip stream }
|
||||
io_ClipID : Longint; { ordinal clip identifier }
|
||||
end;
|
||||
|
||||
@ -124,7 +124,7 @@ var
|
||||
CxBase: PLibrary = nil;
|
||||
|
||||
const
|
||||
COMMODITIESNAME: PChar = 'commodities.library';
|
||||
COMMODITIESNAME: PAnsiChar = 'commodities.library';
|
||||
|
||||
function CreateCxObj(Typ: LongWord location 'd0'; Arg1: LongInt location 'a0'; Arg2: LongInt location 'a1'): PCxObj; syscall CxBase 30;
|
||||
function CxBroker(Nb: PNewBroker location 'a0'; var Error: LongInt location 'd0'): PCxObj; syscall CxBase 36;
|
||||
|
||||
@ -113,7 +113,7 @@ var
|
||||
ConsoleDevice: PDevice = nil;
|
||||
|
||||
function CDInputHandler(Events: PInputEvent location 'a0'; ConsoleDev: PLibrary location 'a1'): PInputEvent; syscall ConsoleDevice 42;
|
||||
function RawKeyConvert(Events: PInputEvent location 'a0'; Buffer: PChar location 'a1'; Length: LongInt location 'd1'; KeyMap: PKeyMap location 'a2'): LongInt; syscall ConsoleDevice 48;
|
||||
function RawKeyConvert(Events: PInputEvent location 'a0'; Buffer: PAnsiChar location 'a1'; Length: LongInt location 'd1'; KeyMap: PKeyMap location 'a2'): LongInt; syscall ConsoleDevice 48;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
@ -28,7 +28,7 @@ USES
|
||||
VAR CyberGfxBase : pLibrary = nil;
|
||||
|
||||
const
|
||||
CYBERGRAPHICSNAME : PChar = 'cybergraphics.library';
|
||||
CYBERGRAPHICSNAME : PAnsiChar = 'cybergraphics.library';
|
||||
|
||||
{
|
||||
Contents of this file is based on cybergraphics.h from the MorphOS SDK:
|
||||
@ -49,7 +49,7 @@ const
|
||||
PCyberModeNode = ^tCyberModeNode;
|
||||
tCyberModeNode = record
|
||||
Node : tNode;
|
||||
ModeText : array[0..(DISPLAYNAMELEN)-1] of char; { name for this mode }
|
||||
ModeText : array[0..(DISPLAYNAMELEN)-1] of AnsiChar; { name for this mode }
|
||||
DisplayID : ULONG; { display id associated with the node }
|
||||
Width : UWORD; { visible width }
|
||||
Height : UWORD; { visible height }
|
||||
|
||||
@ -41,7 +41,7 @@ Type
|
||||
tDataTypeHeader = record
|
||||
dth_Name, { Descriptive name of the data type }
|
||||
dth_BaseName, { Base name of the data type }
|
||||
dth_Pattern : PChar; { Match pattern for file name. }
|
||||
dth_Pattern : PAnsiChar; { Match pattern for file name. }
|
||||
dth_Mask : Pointer; { Comparision mask }
|
||||
dth_GroupID, { Group that the DataType is in }
|
||||
dth_ID : longword; { ID for DataType (same as IFF FORM type) }
|
||||
@ -139,7 +139,7 @@ Type
|
||||
{$WARNING FIX ME!!! IFF handle type}
|
||||
// dthc_IFF : pIFFHandle; { Pointer to an IFFHandle (may be NULL) }
|
||||
dthc_IFF : Pointer; { Pointer to an IFFHandle (may be NULL) }
|
||||
dthc_Buffer : PChar; { Buffer }
|
||||
dthc_Buffer : PAnsiChar; { Buffer }
|
||||
dthc_BufferLength : longword; { Length of the buffer }
|
||||
end;
|
||||
|
||||
@ -153,7 +153,7 @@ Type
|
||||
tTool = record
|
||||
tn_Which, { Which tool is this }
|
||||
tn_Flags : WORD; { Flags }
|
||||
tn_Program : PChar; { Application to use }
|
||||
tn_Program : PAnsiChar; { Application to use }
|
||||
end;
|
||||
|
||||
const
|
||||
@ -185,7 +185,7 @@ Type
|
||||
dtn_Node2 : tNode; { Reserved for system use }
|
||||
dtn_Header : pDataTypeHeader; { Pointer to the DataTypeHeader }
|
||||
dtn_ToolList: tList; { List of tool nodes }
|
||||
dtn_FunctionName : PChar; { Name of comparision routine }
|
||||
dtn_FunctionName : PAnsiChar; { Name of comparision routine }
|
||||
dtn_AttrList : pTagItem; { Object creation tags }
|
||||
dtn_Length : longword; { Length of the memory block }
|
||||
end;
|
||||
@ -227,7 +227,7 @@ const
|
||||
|
||||
{***************************************************************************}
|
||||
|
||||
DATATYPESCLASS : Pchar = 'datatypesclass';
|
||||
DATATYPESCLASS : PAnsiChar = 'datatypesclass';
|
||||
|
||||
{***************************************************************************}
|
||||
|
||||
@ -396,7 +396,7 @@ const
|
||||
{ (struct RastPort ) RastPort to use when printing. (V40) }
|
||||
|
||||
DTA_ARexxPortName = (DTA_Dummy+404);
|
||||
{ (PChar) Pointer to base name for ARexx port (V40) }
|
||||
{ (PAnsiChar) Pointer to base name for ARexx port (V40) }
|
||||
|
||||
|
||||
{***************************************************************************}
|
||||
@ -457,7 +457,7 @@ Type
|
||||
pDTMethod = ^tDTMethod;
|
||||
tDTMethod = record
|
||||
dtm_Label,
|
||||
dtm_Command : PChar;
|
||||
dtm_Command : PAnsiChar;
|
||||
dtm_Method : longword;
|
||||
end;
|
||||
|
||||
@ -557,7 +557,7 @@ Type
|
||||
tdtGoto = record
|
||||
MethodID : longword;
|
||||
dtg_GInfo : pGadgetInfo;
|
||||
dtg_NodeName : PChar; { Node to goto }
|
||||
dtg_NodeName : PAnsiChar; { Node to goto }
|
||||
dtg_AttrList : pTagItem; { Additional attributes }
|
||||
end;
|
||||
|
||||
@ -655,7 +655,7 @@ const
|
||||
|
||||
{***************************************************************************}
|
||||
|
||||
PICTUREDTCLASS : PChar = 'picture.datatype';
|
||||
PICTUREDTCLASS : PAnsiChar = 'picture.datatype';
|
||||
|
||||
{***************************************************************************}
|
||||
|
||||
@ -863,7 +863,7 @@ const
|
||||
|
||||
{***************************************************************************}
|
||||
|
||||
SOUNDDTCLASS : PChar = 'sound.datatype';
|
||||
SOUNDDTCLASS : PAnsiChar = 'sound.datatype';
|
||||
|
||||
{***************************************************************************}
|
||||
|
||||
@ -967,7 +967,7 @@ const
|
||||
|
||||
{ ***************************************************************************}
|
||||
|
||||
TEXTDTCLASS : PChar = 'text.datatype';
|
||||
TEXTDTCLASS : PAnsiChar = 'text.datatype';
|
||||
|
||||
{ ***************************************************************************}
|
||||
|
||||
@ -987,7 +987,7 @@ Type
|
||||
pLine = ^tLine;
|
||||
tLine = record
|
||||
ln_Link : tMinNode; { to link the lines together }
|
||||
ln_Text : PChar; { pointer to the text for this line }
|
||||
ln_Text : PAnsiChar; { pointer to the text for this line }
|
||||
ln_TextLen : longword; { the character length of the text for this line }
|
||||
ln_XOffset, { where in the line the text starts }
|
||||
ln_YOffset, { line the text is on }
|
||||
@ -1025,7 +1025,7 @@ const
|
||||
|
||||
{ ***************************************************************************}
|
||||
|
||||
ANIMATIONDTCLASS : PChar = 'animation.datatype';
|
||||
ANIMATIONDTCLASS : PAnsiChar = 'animation.datatype';
|
||||
|
||||
{ ***************************************************************************}
|
||||
|
||||
@ -1261,7 +1261,7 @@ var
|
||||
DataTypesBase : PLibrary = nil;
|
||||
|
||||
const
|
||||
DATATYPESNAME : PChar = 'datatypes.library';
|
||||
DATATYPESNAME : PAnsiChar = 'datatypes.library';
|
||||
|
||||
|
||||
function ObtainDataTypeA(Typ: LongWord location 'd0'; Handle: POINTER location 'a0'; Attrs: PTagItem location 'a1'): PDataType; SysCall DataTypesBase 036;
|
||||
@ -1291,12 +1291,12 @@ function CopyDTMethods(Src: LongWord location 'a0'; Include: LongWord location '
|
||||
function CopyDTTriggerMethods(Src: PDTMethod location 'a0'; Include: PDTMethod location 'a1'; Exclude: PDTMethod location 'a2'): PDTMethod; SysCall DataTypesBase 276;
|
||||
procedure FreeDTMethods(m: Pointer location 'a0'); SysCall DataTypesBase 282;
|
||||
function GetDTTriggerMethodDataFlags(TriggerMethod: LongWord location 'd0'): LongWord; SysCall DataTypesBase 288;
|
||||
function SaveDTObjectA(o: PObject_ location 'a0'; Win: PWindow location 'a1'; Req: PRequester location 'a2'; File_: PChar location 'a3'; Mode: LongWord location 'd0'; SaveIcon: BOOLEAN location 'd1'; Attrs: PTagItem location 'a4'): LongWord; SysCall DataTypesBase 294;
|
||||
function SaveDTObjectA(o: PObject_ location 'a0'; Win: PWindow location 'a1'; Req: PRequester location 'a2'; File_: PAnsiChar location 'a3'; Mode: LongWord location 'd0'; SaveIcon: BOOLEAN location 'd1'; Attrs: PTagItem location 'a4'): LongWord; SysCall DataTypesBase 294;
|
||||
function StartDragSelect(o: PObject_ location 'a0'): LongWord; SysCall DataTypesBase 300;
|
||||
function DoDTDomainA(o: PObject_ location 'a0'; Win: PWindow location 'a1'; Req: PRequester location 'a2'; RPort: PRastPort location 'a3'; Which: LongWord location 'd0'; Domain: PIBox location 'a4'; Attrs: PTagItem location 'a5'): LongWord; SysCall DataTypesBase 306;
|
||||
|
||||
function ObtainDataType(Typ: LongWord; Handle: Pointer; const Attrs: array of LongWord): PDataType; Inline;
|
||||
function NewDTObject(Name: PChar; const attrs: array of LongWord): Pointer; Inline;
|
||||
function NewDTObject(Name: PAnsiChar; const attrs: array of LongWord): Pointer; Inline;
|
||||
function SetDTAttrs(o: PObject_; Win: PWindow; Req: PRequester; const Attrs: array of LongWord): LongWord; Inline;
|
||||
function GetDTAttrs(o: PObject_; const Attrs: array of LongWord): LongWord; Inline;
|
||||
procedure RefreshDTObject(o: PObject_; Win: PWindow; Req: PRequester; const Attrs: array of LongWord); Inline;
|
||||
@ -1305,7 +1305,7 @@ function ObtainDTDrawInfo(o: PObject_; const Attrs: array of LongWord): Pointer;
|
||||
function DrawDTObject(Rp: PRastPort; o: PObject_; x: LongInt; y: LongInt; w: LongInt; h: LongInt; th: LongInt; tv: LongInt; const Attrs: array of LongWord): LongInt; Inline;
|
||||
function FindToolNode(Tl: PList; const Attrs: array of LongWord): PToolNode; Inline;
|
||||
function LaunchTool(t: PTool; Project: PShortInt; const Attrs: array of LongWord): LongWord; Inline;
|
||||
function SaveDTObject(o: PObject_; Win: PWindow; Req: PRequester; File_: PChar; Mode: LongWord; SaveIcon: BOOLEAN; const Attrs: array of LongWord): LongWord; Inline;
|
||||
function SaveDTObject(o: PObject_; Win: PWindow; Req: PRequester; File_: PAnsiChar; Mode: LongWord; SaveIcon: BOOLEAN; const Attrs: array of LongWord): LongWord; Inline;
|
||||
function DoDTDomain(o: PObject_; Win: PWindow; Req: PRequester; RPort: PRastPort; Which: LongWord; Domain: PIBox; const Attrs: array of LongWord): LongWord; Inline;
|
||||
|
||||
function InitDatatypesLibrary: boolean;
|
||||
@ -1318,7 +1318,7 @@ begin
|
||||
ObtainDataType := ObtainDataTypeA(typ, Handle, @Attrs);
|
||||
end;
|
||||
|
||||
function NewDTObject(Name: PChar; const Attrs: array of LongWord): Pointer; Inline;
|
||||
function NewDTObject(Name: PAnsiChar; const Attrs: array of LongWord): Pointer; Inline;
|
||||
begin
|
||||
NewDTObject := NewDTObjectA(Name, @Attrs);
|
||||
end;
|
||||
@ -1363,7 +1363,7 @@ begin
|
||||
LaunchTool:=LaunchToolA(t, Project, @Attrs);
|
||||
end;
|
||||
|
||||
function SaveDTObject(o: PObject_; Win: PWindow; Req: PRequester; File_: PChar; Mode: LongWord; SaveIcon: BOOLEAN; const Attrs: array of LongWord): LongWord; Inline;
|
||||
function SaveDTObject(o: PObject_; Win: PWindow; Req: PRequester; File_: PAnsiChar; Mode: LongWord; SaveIcon: BOOLEAN; const Attrs: array of LongWord): LongWord; Inline;
|
||||
begin
|
||||
SaveDTObject:=SaveDTObjectA(o, Win, Req, File_, Mode, Saveicon, @Attrs);
|
||||
end;
|
||||
|
||||
@ -31,7 +31,7 @@ const
|
||||
type
|
||||
PFontContents = ^TFontContents;
|
||||
TFontContents = record
|
||||
fc_FileName: array[0..MAXFONTPATH - 1] of Char;
|
||||
fc_FileName: array[0..MAXFONTPATH - 1] of AnsiChar;
|
||||
fc_YSize: Word;
|
||||
fc_Style: Byte;
|
||||
fc_Flags: Byte;
|
||||
@ -39,7 +39,7 @@ type
|
||||
|
||||
PTFontContents = ^TTFontContents;
|
||||
TTFontContents = record
|
||||
tfc_FileName: array[0..MAXFONTPATH - 3] of Char;
|
||||
tfc_FileName: array[0..MAXFONTPATH - 3] of AnsiChar;
|
||||
tfc_TagCount: Word;
|
||||
tfc_YSize: Word;
|
||||
tfc_Style: Byte;
|
||||
@ -70,7 +70,7 @@ type
|
||||
dfh_FileID: Word;
|
||||
dfh_Revision: Word;
|
||||
dfh_Segment: LongInt;
|
||||
dfh_Name: array[0..MAXFONTNAME - 1] of Char;
|
||||
dfh_Name: array[0..MAXFONTNAME - 1] of AnsiChar;
|
||||
dfh_TF: TTextFont;
|
||||
end;
|
||||
|
||||
@ -238,7 +238,7 @@ type
|
||||
PGlyphEngine = ^TGlyphEngine;
|
||||
TGlyphEngine = record
|
||||
gle_Library: PLibrary;
|
||||
gle_Name: PChar;
|
||||
gle_Name: PAnsiChar;
|
||||
end;
|
||||
|
||||
FIXED = LongInt;
|
||||
@ -286,7 +286,7 @@ const
|
||||
OTERR_UnknownGlyph = 12;
|
||||
|
||||
const
|
||||
DISKFONTNAME : PChar = 'diskfont.library';
|
||||
DISKFONTNAME : PAnsiChar = 'diskfont.library';
|
||||
|
||||
var DiskfontBase : pLibrary = nil;
|
||||
|
||||
|
||||
@ -22,7 +22,7 @@ interface
|
||||
|
||||
{ Some types for classic Amiga and AROS compatibility }
|
||||
type
|
||||
STRPTR = PChar;
|
||||
STRPTR = PAnsiChar;
|
||||
WSTRPTR = PWideChar;
|
||||
ULONG = Longword;
|
||||
LONG = Longint;
|
||||
@ -153,7 +153,7 @@ type
|
||||
ln_Pred: PNode;
|
||||
ln_Type: Byte;
|
||||
ln_Pri : ShortInt;
|
||||
ln_Name: PChar;
|
||||
ln_Name: PAnsiChar;
|
||||
end;
|
||||
|
||||
type
|
||||
@ -243,8 +243,8 @@ type
|
||||
rt_Version : Byte;
|
||||
rt_Type : Byte;
|
||||
rt_Pri : ShortInt;
|
||||
rt_Name : PChar;
|
||||
rt_IdString : PChar;
|
||||
rt_Name : PAnsiChar;
|
||||
rt_IdString : PAnsiChar;
|
||||
rt_Init : APTR;
|
||||
// Only valid when RTF_EXTENDED is set
|
||||
rt_Revision : Word; // Revision Entry
|
||||
@ -1075,7 +1075,7 @@ type
|
||||
lib_PosSize : Word;
|
||||
lib_Version : Word;
|
||||
lib_Revision: Word;
|
||||
lib_IdString: PChar;
|
||||
lib_IdString: PAnsiChar;
|
||||
lib_Sum : LongWord;
|
||||
lib_OpenCnt : Word;
|
||||
end;
|
||||
@ -1783,7 +1783,7 @@ procedure MakeFunctions(target : Pointer location 'a0';
|
||||
funcDispBase : Pointer location 'a2');
|
||||
SysCall MOS_ExecBase 090;
|
||||
|
||||
function FindResident(name: PChar location 'a1'): PResident;
|
||||
function FindResident(name: PAnsiChar location 'a1'): PResident;
|
||||
SysCall MOS_ExecBase 096;
|
||||
|
||||
function InitResident(resident: PResident location 'a1';
|
||||
@ -1893,7 +1893,7 @@ procedure Enqueue(list: PList location 'a0';
|
||||
SysCall MOS_ExecBase 270;
|
||||
|
||||
function FindName(list: PList location 'a0';
|
||||
name: PChar location 'a1'): PNode;
|
||||
name: PAnsiChar location 'a1'): PNode;
|
||||
SysCall MOS_ExecBase 276;
|
||||
|
||||
function AddTask(task : PTask location 'a1';
|
||||
@ -1904,7 +1904,7 @@ SysCall MOS_ExecBase 282;
|
||||
procedure RemTask(task: PTask location 'a1');
|
||||
SysCall MOS_ExecBase 288;
|
||||
|
||||
function FindTask(name: PChar location 'a1'): PTask;
|
||||
function FindTask(name: PAnsiChar location 'a1'): PTask;
|
||||
SysCall MOS_ExecBase 294;
|
||||
|
||||
function SetTaskPri(task : PTask location 'a1';
|
||||
@ -1957,7 +1957,7 @@ SysCall MOS_ExecBase 378;
|
||||
function WaitPort(port: PMsgPort location 'a0'): PMessage;
|
||||
SysCall MOS_ExecBase 384;
|
||||
|
||||
function FindPort(name: PChar location 'a1'): PMsgPort;
|
||||
function FindPort(name: PAnsiChar location 'a1'): PMsgPort;
|
||||
SysCall MOS_ExecBase 390;
|
||||
|
||||
procedure AddLibrary(libHandle: PLibrary location 'a1');
|
||||
@ -1966,7 +1966,7 @@ SysCall MOS_ExecBase 396;
|
||||
procedure RemLibrary(libHandle: PLibrary location 'a1');
|
||||
SysCall MOS_ExecBase 402;
|
||||
|
||||
function OldOpenLibrary(libName: PChar location 'a1'): PLibrary;
|
||||
function OldOpenLibrary(libName: PAnsiChar location 'a1'): PLibrary;
|
||||
SysCall MOS_ExecBase 408;
|
||||
|
||||
procedure CloseLibrary(libHandle: PLibrary location 'a1');
|
||||
@ -1986,7 +1986,7 @@ SysCall MOS_ExecBase 432;
|
||||
procedure RemDevice(device: PDevice location 'a1');
|
||||
SysCall MOS_ExecBase 438;
|
||||
|
||||
function OpenDevice(devName : PChar location 'a0';
|
||||
function OpenDevice(devName : PAnsiChar location 'a0';
|
||||
numunit : Cardinal location 'd0';
|
||||
ioRequest: pIORequest location 'a1';
|
||||
flags : Cardinal location 'd1'): ShortInt;
|
||||
@ -2016,19 +2016,19 @@ SysCall MOS_ExecBase 486;
|
||||
procedure RemResource(resource: Pointer location 'a1');
|
||||
SysCall MOS_ExecBase 492;
|
||||
|
||||
function OpenResource(resName: PChar location 'a1'): Pointer;
|
||||
function OpenResource(resName: PAnsiChar location 'a1'): Pointer;
|
||||
SysCall MOS_ExecBase 498;
|
||||
|
||||
procedure RawIOInit;
|
||||
SysCall MOS_ExecBase 504;
|
||||
|
||||
function RawMayGetChar: Char;
|
||||
function RawMayGetChar: AnsiChar;
|
||||
SysCall MOS_ExecBase 510;
|
||||
|
||||
procedure RawPutChar(d0arg: Char location 'd0');
|
||||
procedure RawPutChar(d0arg: AnsiChar location 'd0');
|
||||
SysCall MOS_ExecBase 516;
|
||||
|
||||
function RawDoFmt(formatString: PChar location 'a0';
|
||||
function RawDoFmt(formatString: PAnsiChar location 'a0';
|
||||
dataStream : Pointer location 'a1';
|
||||
putChProc : Pointer location 'a2';
|
||||
putChData : Pointer location 'a3'): Pointer;
|
||||
@ -2048,7 +2048,7 @@ procedure Vacate(sigSem: PSignalSemaphore location 'a0';
|
||||
bidMsg: PSemaphoreMessage location 'a1');
|
||||
SysCall MOS_ExecBase 546;
|
||||
|
||||
function OpenLibrary(libname: PChar location 'a1';
|
||||
function OpenLibrary(libname: PAnsiChar location 'a1';
|
||||
libver : Cardinal location 'd0'): Pointer;
|
||||
SysCall MOS_ExecBase 552;
|
||||
|
||||
@ -2070,7 +2070,7 @@ SysCall MOS_ExecBase 582;
|
||||
procedure ReleaseSemaphoreList(sigSem: PList location 'a0');
|
||||
SysCall MOS_ExecBase 588;
|
||||
|
||||
function FindSemaphore(sigSem: PChar location 'a1'): PSignalSemaphore;
|
||||
function FindSemaphore(sigSem: PAnsiChar location 'a1'): PSignalSemaphore;
|
||||
SysCall MOS_ExecBase 594;
|
||||
|
||||
procedure AddSemaphore(sigSem: PSignalSemaphore location 'a1');
|
||||
@ -2086,7 +2086,7 @@ procedure AddMemList(size : Cardinal location 'd0';
|
||||
attributes: Cardinal location 'd1';
|
||||
pri : LongInt location 'd2';
|
||||
base : Pointer location 'a0';
|
||||
name : PChar location 'a1');
|
||||
name : PAnsiChar location 'a1');
|
||||
SysCall MOS_ExecBase 618;
|
||||
|
||||
procedure CopyMem(source: Pointer location 'a0';
|
||||
@ -2213,10 +2213,10 @@ SysCall MOS_ExecBase 810;
|
||||
function ReadGayle: Cardinal;
|
||||
SysCall MOS_ExecBase 816;
|
||||
|
||||
function VNewRawDoFmt(FmtString: PChar;
|
||||
function VNewRawDoFmt(FmtString: PAnsiChar;
|
||||
PutChProc: Pointer;
|
||||
PutChData: PChar;
|
||||
args : PChar): PChar;
|
||||
PutChData: PAnsiChar;
|
||||
args : PAnsiChar): PAnsiChar;
|
||||
SysCall BaseSysV MOS_ExecBase 822;
|
||||
|
||||
procedure CacheFlushDataArea(Address: Pointer location 'a0';
|
||||
@ -2307,7 +2307,7 @@ procedure RemExecNotify(hook: PHook);
|
||||
SysCall BaseSysV MOS_ExecBase 954;
|
||||
|
||||
function FindExecNode(ttype: Cardinal location 'd0';
|
||||
name : PChar location 'a0'): PNode;
|
||||
name : PAnsiChar location 'a0'): PNode;
|
||||
SysCall MOS_ExecBase 960;
|
||||
|
||||
function AddExecNodeA(innode : Pointer location 'a0';
|
||||
|
||||
@ -46,7 +46,7 @@ CONST
|
||||
|
||||
NUM_KINDS = 14;
|
||||
|
||||
GADTOOLSNAME : PChar = 'gadtools.library';
|
||||
GADTOOLSNAME : PAnsiChar = 'gadtools.library';
|
||||
|
||||
|
||||
{------------------------------------------------------------------------}
|
||||
|
||||
@ -25,7 +25,7 @@ var
|
||||
Get9Base: Pointer = nil;
|
||||
|
||||
const
|
||||
GET9NAME : PChar = 'get9.library';
|
||||
GET9NAME : PAnsiChar = 'get9.library';
|
||||
|
||||
procedure DNetCheck(force: boolean);
|
||||
SysCall BaseSysV Get9Base 28;
|
||||
|
||||
@ -15,7 +15,7 @@
|
||||
**********************************************************************}
|
||||
{
|
||||
History:
|
||||
Added overlay functions for Pchar->Strings, functions
|
||||
Added overlay functions for PAnsiChar->Strings, functions
|
||||
and procedures.
|
||||
14 Jul 2000.
|
||||
|
||||
@ -344,42 +344,42 @@ uses exec, workbench,utility,amigados,agraphics,intuition,datatypes;
|
||||
|
||||
Const
|
||||
|
||||
ICONNAME : PChar = 'icon.library';
|
||||
ICONNAME : PAnsiChar = 'icon.library';
|
||||
|
||||
VAR IconBase : pLibrary = nil;
|
||||
|
||||
FUNCTION AddFreeList(freelist : pFreeList location 'a0'; const mem : POINTER location 'a1'; size : ULONG location 'a2') : LongBool; syscall IconBase 072;
|
||||
FUNCTION BumpRevision(newname : pCHAR location 'a0'; const oldname : pCHAR location 'a1') : pCHAR; syscall IconBase 108;
|
||||
FUNCTION DeleteDiskObject(const name : pCHAR location 'a0') : LongBool; syscall IconBase 138;
|
||||
FUNCTION FindToolType(const toolTypeArray : POINTER location 'a0'; const typeName : pCHAR location 'a1') : pCHAR; syscall IconBase 096;
|
||||
FUNCTION BumpRevision(newname : PAnsiChar location 'a0'; const oldname : PAnsiChar location 'a1') : PAnsiChar; syscall IconBase 108;
|
||||
FUNCTION DeleteDiskObject(const name : PAnsiChar location 'a0') : LongBool; syscall IconBase 138;
|
||||
FUNCTION FindToolType(const toolTypeArray : POINTER location 'a0'; const typeName : PAnsiChar location 'a1') : PAnsiChar; syscall IconBase 096;
|
||||
PROCEDURE FreeDiskObject(diskobj : pDiskObject location 'a0'); syscall IconBase 090;
|
||||
PROCEDURE FreeFreeList(freelist : pFreeList location 'a0'); syscall IconBase 054;
|
||||
FUNCTION GetDefDiskObject(typ : LONGINT location 'd0') : pDiskObject; syscall IconBase 120;
|
||||
FUNCTION GetDiskObject(const name : pCHAR location 'a0') : pDiskObject; syscall IconBase 078;
|
||||
FUNCTION GetDiskObjectNew(const name : pCHAR location 'a0') : pDiskObject; syscall IconBase 132;
|
||||
FUNCTION MatchToolValue(const typeString : pCHAR location 'a0'; const value : pCHAR location 'a1') : LongBool; syscall IconBase 102;
|
||||
FUNCTION GetDiskObject(const name : PAnsiChar location 'a0') : pDiskObject; syscall IconBase 078;
|
||||
FUNCTION GetDiskObjectNew(const name : PAnsiChar location 'a0') : pDiskObject; syscall IconBase 132;
|
||||
FUNCTION MatchToolValue(const typeString : PAnsiChar location 'a0'; const value : PAnsiChar location 'a1') : LongBool; syscall IconBase 102;
|
||||
FUNCTION PutDefDiskObject(const diskObject : pDiskObject location 'a0') : LongBool; syscall IconBase 126;
|
||||
FUNCTION PutDiskObject(const name : pCHAR location 'a0'; const diskobj : pDiskObject location 'a1') : LongBool; syscall IconBase 084;
|
||||
FUNCTION PutDiskObject(const name : PAnsiChar location 'a0'; const diskobj : pDiskObject location 'a1') : LongBool; syscall IconBase 084;
|
||||
|
||||
{ version 44 }
|
||||
FUNCTION DupDiskObjectA(CONST diskObject : pDiskObject location 'a0'; CONST tags : pTagItem location 'a1') : pDiskObject; syscall IconBase 150;
|
||||
FUNCTION IconControlA(icon : pDiskObject location 'a0'; CONST tags : pTagItem location 'a1') : longword; syscall IconBase 156;
|
||||
PROCEDURE DrawIconStateA(rp : pRastPort location 'a0'; CONST icon : pDiskObject location 'a1'; CONST label_ : pCHAR location 'a2'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'; state : longword location 'd2'; CONST tags : pTagItem location 'a3'); syscall IconBase 162;
|
||||
FUNCTION GetIconRectangleA(rp : pRastPort location 'a0'; CONST icon : pDiskObject location 'a1'; CONST label_ : pCHAR location 'a2'; rect : pRectangle location 'a3'; CONST tags : pTagItem location 'a4') : LongBool; syscall IconBase 168;
|
||||
PROCEDURE DrawIconStateA(rp : pRastPort location 'a0'; CONST icon : pDiskObject location 'a1'; CONST label_ : PAnsiChar location 'a2'; leftOffset : LONGINT location 'd0'; topOffset : LONGINT location 'd1'; state : longword location 'd2'; CONST tags : pTagItem location 'a3'); syscall IconBase 162;
|
||||
FUNCTION GetIconRectangleA(rp : pRastPort location 'a0'; CONST icon : pDiskObject location 'a1'; CONST label_ : PAnsiChar location 'a2'; rect : pRectangle location 'a3'; CONST tags : pTagItem location 'a4') : LongBool; syscall IconBase 168;
|
||||
FUNCTION NewDiskObject(type_ : LONGINT location 'd0') : pDiskObject; syscall IconBase 174;
|
||||
FUNCTION GetIconTagList(CONST name : pCHAR location 'a0'; CONST tags : pTagItem location 'a1') : pDiskObject; syscall IconBase 180;
|
||||
FUNCTION PutIconTagList(CONST name : pCHAR location 'a0'; CONST icon : pDiskObject location 'a1'; CONST tags : pTagItem location 'a2') : LongBool; syscall IconBase 186;
|
||||
FUNCTION GetIconTagList(CONST name : PAnsiChar location 'a0'; CONST tags : pTagItem location 'a1') : pDiskObject; syscall IconBase 180;
|
||||
FUNCTION PutIconTagList(CONST name : PAnsiChar location 'a0'; CONST icon : pDiskObject location 'a1'; CONST tags : pTagItem location 'a2') : LongBool; syscall IconBase 186;
|
||||
FUNCTION LayoutIconA(icon : pDiskObject location 'a0'; screen : pScreen location 'a1'; tags : pTagItem location 'a2') : LongBool; syscall IconBase 192;
|
||||
PROCEDURE ChangeToSelectedIconColor(cr : pColorRegister location 'a0'); syscall IconBase 198;
|
||||
|
||||
{ overlay }
|
||||
FUNCTION BumpRevision(newname : pCHar; const oldname : RawByteString) : pCHAR;
|
||||
FUNCTION BumpRevision(newname : PAnsiChar; const oldname : RawByteString) : PAnsiChar;
|
||||
FUNCTION DeleteDiskObject(const name : RawByteString) : BOOLEAN;
|
||||
FUNCTION FindToolType(const toolTypeArray : POINTER;const typeName : RawByteString) : pCHAR;
|
||||
FUNCTION FindToolType(const toolTypeArray : POINTER;const typeName : RawByteString) : PAnsiChar;
|
||||
FUNCTION GetDiskObject(const name : RawByteString) : pDiskObject;
|
||||
FUNCTION GetDiskObjectNew(const name : RawByteString) : pDiskObject;
|
||||
FUNCTION MatchToolValue(const typeString : RawByteString;const value : pCHAR) : BOOLEAN;
|
||||
FUNCTION MatchToolValue(const typeString : pCHAR;const value : RawByteString) : BOOLEAN;
|
||||
FUNCTION MatchToolValue(const typeString : RawByteString;const value : PAnsiChar) : BOOLEAN;
|
||||
FUNCTION MatchToolValue(const typeString : PAnsiChar;const value : RawByteString) : BOOLEAN;
|
||||
FUNCTION MatchToolValue(const typeString : RawByteString;const value : RawByteString) : BOOLEAN;
|
||||
FUNCTION PutDiskObject(const name : RawByteString;const diskobj : pDiskObject) : BOOLEAN;
|
||||
|
||||
@ -398,59 +398,59 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
FUNCTION BumpRevision(newname : pCHar;const oldname : RawByteString) : pCHAR;
|
||||
FUNCTION BumpRevision(newname : PAnsiChar;const oldname : RawByteString) : PAnsiChar;
|
||||
begin
|
||||
BumpRevision := BumpRevision(newname,PChar(oldname));
|
||||
BumpRevision := BumpRevision(newname,PAnsiChar(oldname));
|
||||
end;
|
||||
|
||||
FUNCTION DeleteDiskObject(const name : RawByteString) : BOOLEAN;
|
||||
begin
|
||||
DeleteDiskObject := DeleteDiskObject(PChar(name));
|
||||
DeleteDiskObject := DeleteDiskObject(PAnsiChar(name));
|
||||
end;
|
||||
|
||||
FUNCTION FindToolType(const toolTypeArray : POINTER;const typeName : RawByteString) : pCHAR;
|
||||
FUNCTION FindToolType(const toolTypeArray : POINTER;const typeName : RawByteString) : PAnsiChar;
|
||||
begin
|
||||
FindToolType := FindToolType(toolTypeArray,PChar(typeName));
|
||||
FindToolType := FindToolType(toolTypeArray,PAnsiChar(typeName));
|
||||
end;
|
||||
|
||||
FUNCTION GetDiskObject(const name : RawByteString) : pDiskObject;
|
||||
begin
|
||||
GetDiskObject := GetDiskObject(PChar(name));
|
||||
GetDiskObject := GetDiskObject(PAnsiChar(name));
|
||||
end;
|
||||
|
||||
FUNCTION GetDiskObjectNew(const name : RawByteString) : pDiskObject;
|
||||
begin
|
||||
GetDiskObjectNew := GetDiskObjectNew(PChar(name));
|
||||
GetDiskObjectNew := GetDiskObjectNew(PAnsiChar(name));
|
||||
end;
|
||||
|
||||
FUNCTION MatchToolValue(const typeString : RawByteString;const value : pCHAR) : BOOLEAN;
|
||||
FUNCTION MatchToolValue(const typeString : RawByteString;const value : PAnsiChar) : BOOLEAN;
|
||||
begin
|
||||
MatchToolValue := MatchToolValue(PChar(typeString),value);
|
||||
MatchToolValue := MatchToolValue(PAnsiChar(typeString),value);
|
||||
end;
|
||||
|
||||
FUNCTION MatchToolValue(const typeString : pCHAR;const value : RawByteString) : BOOLEAN;
|
||||
FUNCTION MatchToolValue(const typeString : PAnsiChar;const value : RawByteString) : BOOLEAN;
|
||||
begin
|
||||
MatchToolValue := MatchToolValue(typeString,PChar(value));
|
||||
MatchToolValue := MatchToolValue(typeString,PAnsiChar(value));
|
||||
end;
|
||||
|
||||
FUNCTION MatchToolValue(const typeString : RawByteString;const value : RawByteString) : BOOLEAN;
|
||||
begin
|
||||
MatchToolValue := MatchToolValue(PChar(typeString),PChar(value));
|
||||
MatchToolValue := MatchToolValue(PAnsiChar(typeString),PAnsiChar(value));
|
||||
end;
|
||||
|
||||
FUNCTION PutDiskObject(const name : RawByteString;const diskobj : pDiskObject) : BOOLEAN;
|
||||
begin
|
||||
PutDiskObject := PutDiskObject(PChar(name),diskobj);
|
||||
PutDiskObject := PutDiskObject(PAnsiChar(name),diskobj);
|
||||
end;
|
||||
|
||||
FUNCTION GetIconTagList(CONST name : RawByteString; CONST tags : pTagItem) : pDiskObject;
|
||||
begin
|
||||
GetIconTagList := GetIconTagList(PChar(name),tags);
|
||||
GetIconTagList := GetIconTagList(PAnsiChar(name),tags);
|
||||
end;
|
||||
|
||||
FUNCTION PutIconTagList(CONST name : RawByteString; CONST icon : pDiskObject; CONST tags : pTagItem) : BOOLEAN;
|
||||
begin
|
||||
PutIconTagList := PutIconTagList(PChar(name),icon,tags);
|
||||
PutIconTagList := PutIconTagList(PAnsiChar(name),icon,tags);
|
||||
end;
|
||||
|
||||
const
|
||||
|
||||
@ -29,7 +29,7 @@ uses exec, clipboard, utility;
|
||||
|
||||
const
|
||||
|
||||
IFFPARSENAME : PChar = 'iffparse.library';
|
||||
IFFPARSENAME : PAnsiChar = 'iffparse.library';
|
||||
|
||||
{
|
||||
* Struct associated with an active IFF stream.
|
||||
@ -242,7 +242,7 @@ PROCEDURE FreeIFF(iff : pIFFHandle location 'a0'); syscall IFFParseBase 054;
|
||||
PROCEDURE FreeLocalItem(localItem : pLocalContextItem location 'a0'); syscall IFFParseBase 204;
|
||||
FUNCTION GoodID(id : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 258;
|
||||
FUNCTION GoodType(typ : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 264;
|
||||
FUNCTION IDtoStr(id : LONGINT location 'd0'; buf : pCHAR location 'a0') : pCHAR; syscall IFFParseBase 270;
|
||||
FUNCTION IDtoStr(id : LONGINT location 'd0'; buf : PAnsiChar location 'a0') : PAnsiChar; syscall IFFParseBase 270;
|
||||
PROCEDURE InitIFF(iff : pIFFHandle location 'a0'; flags : LONGINT location 'd0'; const streamHook : pHook location 'a1'); syscall IFFParseBase 228;
|
||||
PROCEDURE InitIFFasClip(iff : pIFFHandle location 'a0'); syscall IFFParseBase 240;
|
||||
PROCEDURE InitIFFasDOS(iff : pIFFHandle location 'a0'); syscall IFFParseBase 234;
|
||||
@ -270,14 +270,14 @@ FUNCTION WriteChunkRecords(iff : pIFFHandle location 'a0'; const buf : POINTER l
|
||||
FUNCTION SeekChunkBytes(iff : pIFFHandle location 'a0'; numBytes : LONGINT location 'd0'; mode : LONGINT location 'd1') : LONGINT; syscall IFFParseBase 276;
|
||||
FUNCTION SeekChunkRecords(iff : pIFFHandle location 'a0'; bytesPerRecord : LONGINT location 'd0'; numRecords : LONGINT location 'd1'; mode : LONGINT location 'd2') : LONGINT; syscall IFFParseBase 282;
|
||||
|
||||
Function Make_ID(const str : String) : LONGINT;
|
||||
Function Make_ID(const str : ShortString) : LONGINT;
|
||||
function InitIFFPARSELibrary: boolean;
|
||||
|
||||
|
||||
IMPLEMENTATION
|
||||
|
||||
|
||||
function Make_ID(const str : String) : LONGINT;
|
||||
function Make_ID(const str : ShortString) : LONGINT;
|
||||
begin
|
||||
Make_ID := (LONGINT(Ord(Str[1])) shl 24) or
|
||||
(LONGINT(Ord(Str[2])) shl 16 ) or
|
||||
|
||||
@ -46,7 +46,7 @@ type
|
||||
LeftEdge: SmallInt; // relative start location for the text
|
||||
TopEdge: SmallInt; // relative start location for the text
|
||||
ITextFont: PTextAttr; // if nil, you accept the default
|
||||
IText: PChar; // pointer to null-terminated text
|
||||
IText: PAnsiChar; // pointer to null-terminated text
|
||||
NextText: PIntuiText; // continuation to TxWrite another text
|
||||
end;
|
||||
|
||||
@ -81,7 +81,7 @@ type
|
||||
MutualExclude: LongInt; // set bits mean this item excludes that
|
||||
ItemFill: APTR; // points to Image, IntuiText, or nil
|
||||
SelectFill: APTR; // points to Image, IntuiText, or nil when this item is pointed to by the cursor and the items highlight mode HIGHIMAGE is selected, this alternate image will be displayed
|
||||
Command: Char; // only if appliprog sets the COMMSEQ flag
|
||||
Command: AnsiChar; // only if appliprog sets the COMMSEQ flag
|
||||
SubItem: PMenuItem; // if non-nil, DrawMenu shows "->"
|
||||
NextSelect: Word; // The NextSelect field represents the menu number of next selected item (when user has drag-selected several items)
|
||||
end;
|
||||
@ -116,7 +116,7 @@ type
|
||||
Width,
|
||||
Height: SmallInt; // dimensions of the select box
|
||||
Flags: Word; // see flag definitions below (MENUENABLED, MIDRAWN)
|
||||
MenuName: PChar; // text for this Menu Header
|
||||
MenuName: PAnsiChar; // text for this Menu Header
|
||||
FirstItem: PMenuItem; // pointer to first in chain
|
||||
JazzX, // these mysteriously-named variables are for internal use only
|
||||
JazzY,
|
||||
@ -224,7 +224,7 @@ CONST
|
||||
stashed in GadgetText. }
|
||||
GFLG_LABELMASK = $3000;
|
||||
GFLG_LABELITEXT = $0000; // GadgetText points to IntuiText
|
||||
GFLG_LABELSTRING = $1000; // GadgetText points to (PChar)
|
||||
GFLG_LABELSTRING = $1000; // GadgetText points to (PAnsiChar)
|
||||
GFLG_LABELIMAGE = $2000; // GadgetText points to Image (object)
|
||||
|
||||
// New for V37: GFLG_TABCYCLE
|
||||
@ -426,8 +426,8 @@ type
|
||||
PStringInfo = ^TStringInfo;
|
||||
TStringInfo = record
|
||||
// you initialize these variables, and then Intuition maintains them
|
||||
Buffer: PChar; // the buffer containing the start and final string
|
||||
UndoBuffer: PChar; // optional buffer for undoing current entry
|
||||
Buffer: PAnsiChar; // the buffer containing the start and final string
|
||||
UndoBuffer: PAnsiChar; // optional buffer for undoing current entry
|
||||
BufferPos: SmallInt; // character position in Buffer
|
||||
MaxChars: SmallInt; // max number of chars in Buffer (including #0)
|
||||
DispPos: SmallInt; // Buffer position of first displayed character
|
||||
@ -630,7 +630,7 @@ type
|
||||
|
||||
MenuStrip: PMenu; // the strip of Menu headers
|
||||
|
||||
Title: PChar; // the title text for this window
|
||||
Title: PAnsiChar; // the title text for this window
|
||||
|
||||
FirstRequest: PRequester; // all active Requesters
|
||||
|
||||
@ -682,7 +682,7 @@ type
|
||||
rendering MenuItems of this Window that want to be checkmarked
|
||||
if this is equal to NULL, you'll get the default imagery}
|
||||
CheckMark: PImage;
|
||||
ScreenTitle: PChar; // if non-nil, Screen title when Window is active
|
||||
ScreenTitle: PAnsiChar; // if non-nil, Screen title when Window is active
|
||||
{ These variables have the mouse coordinates relative to the
|
||||
inner-Window of GIMMEZEROZERO Windows. This is compared with the
|
||||
MouseX and MouseY variables, which contain the mouse coordinates
|
||||
@ -718,8 +718,8 @@ type
|
||||
MouseX: SmallInt; // mouse position on screen
|
||||
|
||||
Flags: Word; // one of the flags defined below
|
||||
Title: PChar; // null-terminated Title text
|
||||
DefaultTitle: PChar; // for Windows without ScreenTitle
|
||||
Title: PAnsiChar; // null-terminated Title text
|
||||
DefaultTitle: PAnsiChar; // for Windows without ScreenTitle
|
||||
|
||||
// BarHeight can still be read if you need to know the actual size of the bar, even if it's not
|
||||
// visible due to user configuration. Remember to add 1 to get real height
|
||||
@ -969,7 +969,7 @@ type
|
||||
CheckMark: PImage; { the CheckMark is a pointer to the imagery that will be used when
|
||||
rendering MenuItems of this Window that want to be checkmarked
|
||||
if this is equal to NULL, you'll get the default imagery}
|
||||
Title: PChar; // the title text for this window
|
||||
Title: PAnsiChar; // the title text for this window
|
||||
Screen: PScreen; { the Screen pointer is used only if you've defined a CUSTOMSCREEN and
|
||||
want this Window to open in it. If so, you pass the Pointer of the
|
||||
Custom Screen structure in this variable. Otherwise, this variable
|
||||
@ -1022,7 +1022,7 @@ type
|
||||
|
||||
FirstGadget: PGadget;
|
||||
CheckMark: PImage;
|
||||
Title: PChar;
|
||||
Title: PAnsiChar;
|
||||
WScreen: PScreen;
|
||||
WBitMap: PBitMap;
|
||||
|
||||
@ -1079,7 +1079,7 @@ const
|
||||
// You can specify the dimensions of the interior region of your window, independent of what
|
||||
// the border widths will be. You probably want to also specify WA_AutoAdjust to allow
|
||||
// Intuition to move your window or even shrink it so that it is completely on screen.
|
||||
WA_PubScreenName = WA_Dummy + 21; // [I..] declares that you want the window to open as a visitor on the public screen whose name is pointed to by (PChar) ti_Data
|
||||
WA_PubScreenName = WA_Dummy + 21; // [I..] declares that you want the window to open as a visitor on the public screen whose name is pointed to by (PAnsiChar) ti_Data
|
||||
WA_PubScreen = WA_Dummy + 22; // [I..] open as a visitor window on the public screen whose Pointer is in (struct Screen *) ti_Data.
|
||||
// To ensure that this screen remains open, you should either be the screen's owner, have a window open on the screen, or use LockPubScreen().
|
||||
WA_PubScreenFallBack = WA_Dummy + 23; // [I..] A Boolean, specifies whether a visitor window should "fall back" to the default public screen
|
||||
@ -1247,9 +1247,9 @@ type
|
||||
TEasyStruct = record
|
||||
es_StructSize: LongWord; // should be sizeof (TEasyStruct) Note that this size may change, if you update the includes! Do not use absolute values as the size of pointers may vary on different platforms!
|
||||
es_Flags: LongWord; // should be 0 for now
|
||||
es_Title: PChar; // title of requester window
|
||||
es_TextFormat: PChar; // 'printf' style formatting string
|
||||
es_GadgetFormat: PChar; // Text of the gadgets, separated by |'s
|
||||
es_Title: PAnsiChar; // title of requester window
|
||||
es_TextFormat: PAnsiChar; // 'printf' style formatting string
|
||||
es_GadgetFormat: PAnsiChar; // Text of the gadgets, separated by |'s
|
||||
end;
|
||||
|
||||
const
|
||||
@ -1481,7 +1481,7 @@ const
|
||||
VC_NoColorPaletteLoad tag for your screen's ViewPort, you should also set this tag.}
|
||||
// V51
|
||||
SA_Displayed = SA_Dummy + 101; // [..G] LongBool. Check whether the screen is currently displayed on one of system's gfx cards.
|
||||
SA_MonitorName = SA_Dummy + 102; // [I.G] PChar. Should be used to determine on which monitor (gfx card) the screen should be opened. Please use this instead of storing ModeIDs
|
||||
SA_MonitorName = SA_Dummy + 102; // [I.G] PAnsiChar. Should be used to determine on which monitor (gfx card) the screen should be opened. Please use this instead of storing ModeIDs
|
||||
// in prefs files! Overrides SA_DisplayID and will be used to get the best available mode together with SA_Depth or SA_Width/Height. Will open a screen on other gfx card if the selected one is not
|
||||
// found. Please note that .monitor prefix is included in the name. For autoscrolling and other non-typical screens please read SA_DisplayWidth/Height notes.
|
||||
SA_MonitorObject = SA_Dummy + 103; // [..G] PObject_. Returns the MONITORCLASS object associated with the screen. Use it in order to get more info about the gfx card used to display the screen, monitor alignment, etc.
|
||||
@ -1557,7 +1557,7 @@ type
|
||||
SType: Word; // the Screen type (see defines above) (Type in C-Include)
|
||||
|
||||
Font: PTextAttr; // this Screen's default text attributes
|
||||
DefaultTitle: PChar; // the default title for this Screen
|
||||
DefaultTitle: PAnsiChar; // the default title for this Screen
|
||||
Gadgets: PGadget; // your own Gadgets for this Screen
|
||||
|
||||
{ if you are opening a CUSTOMSCREEN and already have a BitMap
|
||||
@ -1580,7 +1580,7 @@ type
|
||||
ViewModes: Word;
|
||||
ens_Type: Word; { type in C-Includes }
|
||||
Font: PTextAttr;
|
||||
DefaultTitle: PChar;
|
||||
DefaultTitle: PAnsiChar;
|
||||
Gadgets: PGadget;
|
||||
CustomBitMap: PBitMap;
|
||||
Extension: PTagItem; // ExtNewScreen specific extension SA_*
|
||||
@ -1711,7 +1711,7 @@ type
|
||||
|
||||
// printer configurations
|
||||
PrinterType: Word; // printer type
|
||||
PrinterFilename: array[0..FILENAME_SIZE - 1] of char; // file for printer
|
||||
PrinterFilename: array[0..FILENAME_SIZE - 1] of AnsiChar; // file for printer
|
||||
|
||||
// print format and quality configurations
|
||||
PrintPitch: Word; // print pitch
|
||||
@ -1737,7 +1737,7 @@ type
|
||||
|
||||
// temp file for printer
|
||||
Pad: array[0..11] of Byte;
|
||||
PrtDevName: array [0..DEVNAME_SIZE - 1] of char; // Device used by printer.device (leave out the ".device")
|
||||
PrtDevName: array [0..DEVNAME_SIZE - 1] of AnsiChar; // Device used by printer.device (leave out the ".device")
|
||||
|
||||
DefaultPrtUnit: Byte; // Default unit opened by printer.device
|
||||
DefaultSerUnit: Byte; // Default serial unit
|
||||
@ -1971,21 +1971,21 @@ Type
|
||||
over the lowercase strings, but this makes a good place
|
||||
to list the names of the built-in classes.}
|
||||
const
|
||||
ROOTCLASS: PChar = 'rootclass';
|
||||
IMAGECLASS: PChar = 'imageclass';
|
||||
FRAMEICLASS: PChar = 'frameiclass';
|
||||
SYSICLASS: PChar = 'sysiclass';
|
||||
FILLRECTCLASS: PChar = 'fillrectclass';
|
||||
GADGETCLASS: PChar = 'gadgetclass';
|
||||
PROPGCLASS: PChar = 'propgclass';
|
||||
STRGCLASS: PChar = 'strgclass';
|
||||
BUTTONGCLASS: PChar = 'buttongclass';
|
||||
FRBUTTONCLASS: PChar = 'frbuttonclass';
|
||||
GROUPGCLASS: PChar = 'groupgclass';
|
||||
ICCLASS: PChar = 'icclass';
|
||||
MODELCLASS: PChar = 'modelclass';
|
||||
ITEXTICLASS: PChar = 'itexticlass';
|
||||
POINTERCLASS: PChar = 'pointerclass';
|
||||
ROOTCLASS: PAnsiChar = 'rootclass';
|
||||
IMAGECLASS: PAnsiChar = 'imageclass';
|
||||
FRAMEICLASS: PAnsiChar = 'frameiclass';
|
||||
SYSICLASS: PAnsiChar = 'sysiclass';
|
||||
FILLRECTCLASS: PAnsiChar = 'fillrectclass';
|
||||
GADGETCLASS: PAnsiChar = 'gadgetclass';
|
||||
PROPGCLASS: PAnsiChar = 'propgclass';
|
||||
STRGCLASS: PAnsiChar = 'strgclass';
|
||||
BUTTONGCLASS: PAnsiChar = 'buttongclass';
|
||||
FRBUTTONCLASS: PAnsiChar = 'frbuttonclass';
|
||||
GROUPGCLASS: PAnsiChar = 'groupgclass';
|
||||
ICCLASS: PAnsiChar = 'icclass';
|
||||
MODELCLASS: PAnsiChar = 'modelclass';
|
||||
ITEXTICLASS: PAnsiChar = 'itexticlass';
|
||||
POINTERCLASS: PAnsiChar = 'pointerclass';
|
||||
|
||||
{ Dispatched method ID's
|
||||
NOTE: Applications should use Intuition entry points, not direct
|
||||
@ -2115,7 +2115,7 @@ const
|
||||
GA_RelWidth = GA_Dummy + 6; // (LongInt) Width of the gadget relative to the width of the window
|
||||
GA_Height = GA_Dummy + 7; // (LONG) Height of the gadget
|
||||
GA_RelHeight = GA_Dummy + 8; // (LONG) Height of the gadget relative to the height of the window
|
||||
GA_Text = GA_Dummy + 9; // (PChar) Gadget imagry is #0 terminated string
|
||||
GA_Text = GA_Dummy + 9; // (PAnsiChar) Gadget imagry is #0 terminated string
|
||||
GA_Image = GA_Dummy + 10; // (PImage) Gadget imagry is an image
|
||||
GA_Border = GA_Dummy + 11; // (PBorder) Gadget imagry is a border
|
||||
GA_SelectRender = GA_Dummy + 12; // (PImage) Selected gadget imagry
|
||||
@ -2156,10 +2156,10 @@ const
|
||||
GA_TextAttr = GA_Dummy + 40; // (PTextAttr) Indicate the font to use for the gadget.
|
||||
GA_ReadOnly = GA_Dummy + 41; // (LongBool) Indicate that the gadget is read-only (non-selectable). Defaults to False
|
||||
// V44
|
||||
GA_Underscore = GA_Dummy + 42; // (Char) Underscore/escape character for keyboard shortcuts. Defaults to '_' .
|
||||
GA_ActivateKey = GA_Dummy + 43; // (PChar) Set/Get the gadgets shortcut/activation key(s) Defaults to nil
|
||||
GA_Underscore = GA_Dummy + 42; // (AnsiChar) Underscore/escape character for keyboard shortcuts. Defaults to '_' .
|
||||
GA_ActivateKey = GA_Dummy + 43; // (PAnsiChar) Set/Get the gadgets shortcut/activation key(s) Defaults to nil
|
||||
GA_BackFill = GA_Dummy + 44; // (PHook) Backfill pattern hook. Defaults to nil.
|
||||
GA_GadgetHelpText = GA_Dummy + 45; // (PChar) RESERVERD/PRIVATE DO NOT USE Defaults to nil.
|
||||
GA_GadgetHelpText = GA_Dummy + 45; // (PAnsiChar) RESERVERD/PRIVATE DO NOT USE Defaults to nil.
|
||||
GA_UserInput = GA_Dummy + 46; // (LongBool) Notification tag indicates this notification is from the activite
|
||||
// gadget receiving user input - an attempt to make IDCMPUPDATE more efficient. Defaults to False
|
||||
// V50
|
||||
@ -2460,7 +2460,7 @@ const
|
||||
IA_FrameType = IA_Dummy + 27; // Starting with V39, FrameIClass recognizes several standard types of frame. Use one
|
||||
// of the FRAME_ specifiers below. Defaults to FRAME_DEFAULT.
|
||||
// V44:
|
||||
IA_Underscore = IA_Dummy + 28; // Indicate underscore keyboard shortcut for image labels. (Char) Defaults to '_'
|
||||
IA_Underscore = IA_Dummy + 28; // Indicate underscore keyboard shortcut for image labels. (AnsiChar) Defaults to '_'
|
||||
IA_Scalable = IA_Dummy + 29; // Attribute indicates this image is allowed to/can scale its rendering. (LongBool) Defaults to False.
|
||||
IA_ActivateKey = IA_Dummy + 30; // Used to get an underscored label shortcut. Useful for labels attached to string gadgets. (Byte) Defaults to 0.
|
||||
IA_Screen = IA_Dummy + 31; // Screen pointer, may be useful/required by certain classes. (PScreen)
|
||||
@ -2760,7 +2760,7 @@ const
|
||||
EO_ENTER = $0005; // "enter" or "return" key, terminate
|
||||
EO_RESET = $0006; // current Intuition-style undo
|
||||
EO_REPLACECHAR = $0007; // replaced one character and (maybe) advanced cursor
|
||||
EO_INSERTCHAR = $0008; // inserted one char into string or added one at end
|
||||
EO_INSERTCHAR = $0008; // inserted one AnsiChar into string or added one at end
|
||||
EO_BADFORMAT = $0009; // didn't like the text data, e.g., Bad LONGINT
|
||||
EO_BIGCHANGE = $000A; // unused by Intuition complete or major change to the text, e.g. new string
|
||||
EO_UNDO = $000B; // unused by Intuition some other style of undo
|
||||
@ -2775,7 +2775,7 @@ const
|
||||
// These Mode Flags are for internal use only
|
||||
SGM_NOCHANGE = 1 shl 3; // no edit changes yet
|
||||
SGM_NOWORKB = 1 shl 4; // Buffer = PrevBuffer
|
||||
SGM_CONTROL = 1 shl 5; // control char escape mode
|
||||
SGM_CONTROL = 1 shl 5; // control AnsiChar escape mode
|
||||
SGM_LONGINT = 1 shl 6; // an intuition LongInt gadget
|
||||
// String Gadget Action Flags (put in SGWork.Actions by EditHook)
|
||||
SGA_USE = $1; // use contents of SGWork
|
||||
@ -2869,7 +2869,7 @@ type
|
||||
PPBTDNode = ^PBTDNode;
|
||||
TBTDNode = record
|
||||
BN_Tag: Tag; // ID tag for parameter
|
||||
BN_Name: PChar; // parameter name
|
||||
BN_Name: PAnsiChar; // parameter name
|
||||
BN_Type: LongWord;
|
||||
end;
|
||||
|
||||
@ -2900,35 +2900,35 @@ type
|
||||
TBTDCycle = record
|
||||
BC_Node: TBTDNode;
|
||||
BC_Value: LongInt; // selected item
|
||||
BC_Labels: PPChar; // #0 terminated array with labels
|
||||
BC_Labels: PPAnsiChar; // #0 terminated array with labels
|
||||
end;
|
||||
|
||||
PBTDString = ^TBTDString;
|
||||
TBTDString = record
|
||||
BS_Node: TBTDNode;
|
||||
BS_String: array[0..BTDMAXSTRLEN - 1] of char;
|
||||
BS_String: array[0..BTDMAXSTRLEN - 1] of AnsiChar;
|
||||
end;
|
||||
|
||||
PBTDFont = ^TBTDFont;
|
||||
TBTDFont = record
|
||||
BF_Node: TBTDNode;
|
||||
BF_Font: array[0..BTDMAXSTRLEN - 1] of char;
|
||||
BF_Font: array[0..BTDMAXSTRLEN - 1] of AnsiChar;
|
||||
end;
|
||||
|
||||
PBTDFile = ^TBTDFile;
|
||||
TBTDFile = record
|
||||
BF_Node: TBTDNode;
|
||||
BF_Font: array[0..BTDMAXSTRLEN - 1] of char;
|
||||
BF_Font: array[0..BTDMAXSTRLEN - 1] of AnsiChar;
|
||||
end;
|
||||
|
||||
// struct returned by QueryBlanker()
|
||||
PBTDInfo = ^TBTDInfo;
|
||||
TBTDInfo = record
|
||||
BI_Revision: LongWord; // put BTDI_Revision here
|
||||
BI_ID: LongWord; // 4 char ID for your blanker
|
||||
BI_Name: PChar; // blanker name
|
||||
BI_Description: PChar; // blanker description
|
||||
BI_Author: PChar; // blanker author(s)
|
||||
BI_ID: LongWord; // 4 AnsiChar ID for your blanker
|
||||
BI_Name: PAnsiChar; // blanker name
|
||||
BI_Description: PAnsiChar; // blanker description
|
||||
BI_Author: PAnsiChar; // blanker author(s)
|
||||
BI_Flags: LongWord; // blanker requirements
|
||||
BI_Params: PPBTDNode; // #0 terminated array with params
|
||||
end;
|
||||
@ -3130,9 +3130,9 @@ type
|
||||
TExtEasyStruct = record
|
||||
es_StructSize: LongWord;
|
||||
es_Flags: LongWord;
|
||||
es_Title: PChar;
|
||||
es_TextFormat: PChar;
|
||||
es_GadgetFormat: PChar;
|
||||
es_Title: PAnsiChar;
|
||||
es_TextFormat: PAnsiChar;
|
||||
es_GadgetFormat: PAnsiChar;
|
||||
es_Tags: PTagItem;
|
||||
end;
|
||||
const
|
||||
@ -3447,7 +3447,7 @@ const
|
||||
SBCT_UninstallPlugin = SBCT_Dummy + 2; // PMUI_CustomClass
|
||||
|
||||
const
|
||||
INTUITIONNAME: PChar = 'intuition.library';
|
||||
INTUITIONNAME: PAnsiChar = 'intuition.library';
|
||||
|
||||
var
|
||||
Intuitionbase: PIntuitionBase = nil;
|
||||
@ -3462,7 +3462,7 @@ function CloseScreen(screen: PScreen location 'a0'): LongBool; SysCall Intuition
|
||||
procedure CloseWindow(window: PWindow location 'a0'); SysCall IntuitionBase 072;
|
||||
function CloseWorkBench: LongInt; SysCall IntuitionBase 078;
|
||||
procedure CurrentTime(var seconds: LongWord location 'a0'; var micros: LongWord location 'a1'); SysCall IntuitionBase 084;
|
||||
function DisplayAlert(AlertNumber: LongWord location 'd0'; String1: PChar location 'a0'; Height: LongWord location 'd1'): LongBool; SysCall IntuitionBase 090;
|
||||
function DisplayAlert(AlertNumber: LongWord location 'd0'; String1: PAnsiChar location 'a0'; Height: LongWord location 'd1'): LongBool; SysCall IntuitionBase 090;
|
||||
procedure DisplayBeep(Screen: PScreen location 'a0'); SysCall IntuitionBase 096;
|
||||
function DoubleClick(SSeconds: LongWord location 'd0'; SMicros: LongWord location 'd1'; CSeconds: LongWord location 'd2'; CMicros: LongWord location 'd3'): LongBool; SysCall IntuitionBase 102;
|
||||
procedure DrawBorder(Rp: PRastPort location 'a0'; Border: PBorder location 'a1'; LeftOffset: LongInt location 'd0'; TopOffset: LongInt location 'd1'); SysCall IntuitionBase 108;
|
||||
@ -3494,7 +3494,7 @@ procedure ScreenToFront(Screen: PScreen location 'a0'); SysCall IntuitionBase 25
|
||||
function SetDMRequest(Window: PWindow location 'a0'; Requester: PRequester location 'a1'): LongBool; SysCall IntuitionBase 258;
|
||||
function SetMenuStrip(Window: PWindow location 'a0'; Menu: PMenu location 'a1'): LongBool; SysCall IntuitionBase 264;
|
||||
procedure SetPointer(Window: PWindow location 'a0'; Pointer: PWord location 'a1'; Height: LongInt location 'd0'; Width: LongInt location 'd1'; XOffset: LongInt location 'd2'; YOffset: LongInt location 'd3'); SysCall IntuitionBase 270;
|
||||
procedure SetWindowTitles(Window: PWindow location 'a0'; WindowTitle: PChar location 'a1'; ScreenTitle: PChar location 'a2'); SysCall IntuitionBase 276;
|
||||
procedure SetWindowTitles(Window: PWindow location 'a0'; WindowTitle: PAnsiChar location 'a1'; ScreenTitle: PAnsiChar location 'a2'); SysCall IntuitionBase 276;
|
||||
procedure ShowTitle(Screen: PScreen location 'a0'; ShowIt: LongInt location 'd0'); SysCall IntuitionBase 282;
|
||||
procedure SizeWindow(Window: PWindow location 'a0'; Dx: LongInt location 'd0'; Dy: LongInt location 'd1'); SysCall IntuitionBase 288;
|
||||
function ViewAddress: PView; SysCall IntuitionBase 294;
|
||||
@ -3541,19 +3541,19 @@ function SetEditHook(Hook: PHook location 'a0'): PHook; SysCall IntuitionBase 49
|
||||
function SetMouseQueue(Window: PWindow location 'a0'; QueueLength: LongWord location 'd0'): LongInt; SysCall IntuitionBase 498;
|
||||
procedure ZipWindow(Window: PWindow location 'a0'); SysCall IntuitionBase 504;
|
||||
|
||||
function LockPubScreen(Name: PChar location 'a0'): PScreen; SysCall IntuitionBase 510;
|
||||
procedure UnlockPubScreen(Name: PChar location 'a0'; Screen: PScreen location 'a1'); SysCall IntuitionBase 516;
|
||||
function LockPubScreen(Name: PAnsiChar location 'a0'): PScreen; SysCall IntuitionBase 510;
|
||||
procedure UnlockPubScreen(Name: PAnsiChar location 'a0'; Screen: PScreen location 'a1'); SysCall IntuitionBase 516;
|
||||
function LockPubScreenList: PList; SysCall IntuitionBase 522;
|
||||
procedure UnlockPubScreenList; SysCall IntuitionBase 528;
|
||||
function NextPubScreen(Screen: PScreen location 'a0'; NameBuf: PChar location 'a1'): PChar; SysCall IntuitionBase 534;
|
||||
procedure SetDefaultPubScreen(Name: PChar location 'a0'); SysCall IntuitionBase 540;
|
||||
function NextPubScreen(Screen: PScreen location 'a0'; NameBuf: PAnsiChar location 'a1'): PAnsiChar; SysCall IntuitionBase 534;
|
||||
procedure SetDefaultPubScreen(Name: PAnsiChar location 'a0'); SysCall IntuitionBase 540;
|
||||
function SetPubScreenModes(Modes: LongWord location 'd0'): Word; SysCall IntuitionBase 546;
|
||||
function PubScreenStatus(Screen: PScreen location 'a0'; StatusFlags: LongWord location 'd0'): Word; SysCall IntuitionBase 552;
|
||||
|
||||
function ObtainGIRPort(GInfo: PGadgetInfo location 'a0'): PRastPort; SysCall IntuitionBase 558;
|
||||
procedure ReleaseGIRPort(Rp: PRastPort location 'a0'); SysCall IntuitionBase 564;
|
||||
procedure GadgetMouse(Gadget: PGadget location 'a0'; GInfo: PGadgetInfo location 'a1'; var MousePoint: SmallInt location 'a2'); SysCall IntuitionBase 570;
|
||||
procedure GetDefaultPubScreen(NameBuffer: PChar location 'a0'); SysCall IntuitionBase 582;
|
||||
procedure GetDefaultPubScreen(NameBuffer: PAnsiChar location 'a0'); SysCall IntuitionBase 582;
|
||||
function EasyRequestArgs(Window: PWindow location 'a0'; EasyStruct: pEasyStruct location 'a1'; IDCMPPtr: PLongWord location 'a2'; Args: APTR location 'a3'): LongInt; SysCall IntuitionBase 588;
|
||||
function BuildEasyRequestArgs(Window: PWindow location 'a0'; EasyStruct: PEasyStruct location 'a1'; IDCMP: LongWord location 'd0'; Args: APTR location 'a3'): PWindow; SysCall IntuitionBase 594;
|
||||
function SysReqHandler(Window: PWindow location 'a0'; IDCMPPtr: PLongWord location 'a1'; WaitInput: LongInt location 'd0'): LongInt; SysCall IntuitionBase 600;
|
||||
@ -3564,7 +3564,7 @@ procedure DrawImageState(Rp: PRastPort location 'a0'; Image: PImage location 'a1
|
||||
function PointInImage(Point: LongWord location 'd0'; Image: PImage location 'a0'): LongBool; SysCall IntuitionBase 624;
|
||||
procedure EraseImage(Rp: PRastPort location 'a0'; Image: PImage location 'a1'; LeftOffset: LongInt location 'd0'; TopOffset: LongInt location 'd1'); SysCall IntuitionBase 630;
|
||||
|
||||
function NewObjectA(ClassPtr: PIClass location 'a0'; ClassID: PChar location 'a1'; TagList: PTagItem location 'a2'): APTR; SysCall IntuitionBase 636;
|
||||
function NewObjectA(ClassPtr: PIClass location 'a0'; ClassID: PAnsiChar location 'a1'; TagList: PTagItem location 'a2'): APTR; SysCall IntuitionBase 636;
|
||||
|
||||
procedure DisposeObject(Object1: APTR location 'a0'); SysCall IntuitionBase 642;
|
||||
function SetAttrsA(Object1: APTR location 'a0'; TagList: PTagItem location 'a1'): LongWord; SysCall IntuitionBase 648;
|
||||
@ -3575,7 +3575,7 @@ function GetAttr(AttrID: LongWord location 'd0'; Object1: APTR location 'a0'; va
|
||||
function SetGadgetAttrsA(Gadget: PGadget location 'a0'; Window: PWindow location 'a1'; Requester: PRequester location 'a2'; TagList: PTagItem location 'a3'): LongWord; SysCall IntuitionBase 660;
|
||||
|
||||
function NextObject(ObjectPtrPtr: APTR location 'a0'): APTR; SysCall IntuitionBase 666;
|
||||
function MakeClass(ClassID: PChar location 'a0'; SuperClassID: PChar location 'a1'; SuperClassPtr: PIClass location 'a2'; InstanceSize: LongWord location 'd0'; Flags: LongWord location 'd1'): PIClass; SysCall IntuitionBase 678;
|
||||
function MakeClass(ClassID: PAnsiChar location 'a0'; SuperClassID: PAnsiChar location 'a1'; SuperClassPtr: PIClass location 'a2'; InstanceSize: LongWord location 'd0'; Flags: LongWord location 'd1'): PIClass; SysCall IntuitionBase 678;
|
||||
procedure AddClass(ClassPtr: PIClass location 'a0'); SysCall IntuitionBase 684;
|
||||
|
||||
function GetScreenDrawInfo(Screen: PScreen location 'a0'): PDrawInfo; SysCall IntuitionBase 690;
|
||||
@ -3594,7 +3594,7 @@ procedure ScrollWindowRaster(Win: PWindow location 'a1'; Dx: LongInt location 'd
|
||||
procedure LendMenus(Fromwindow: PWindow location 'a0'; ToWindow: PWindow location 'a1'); SysCall IntuitionBase 804;
|
||||
function DoGadgetMethodA(Gad: PGadget location 'a0'; Win: PWindow location 'a1'; Req: PRequester location 'a2'; Message: PLongWord location 'a3'): LongWord; SysCall IntuitionBase 810;
|
||||
procedure SetWindowPointerA(Win: PWindow location 'a0'; Taglist: PTagItem location 'a1'); SysCall IntuitionBase 816;
|
||||
function TimedDisplayAlert(AlertNumber: LongWord location 'd0'; String1: PChar location 'a0'; Height: LongWord location 'd1'; Time: LongWord location 'a1'): LongBool; SysCall IntuitionBase 822;
|
||||
function TimedDisplayAlert(AlertNumber: LongWord location 'd0'; String1: PAnsiChar location 'a0'; Height: LongWord location 'd1'; Time: LongWord location 'a1'): LongBool; SysCall IntuitionBase 822;
|
||||
procedure HelpControl(Win: PWindow location 'a0'; Flags: LongWord location 'd0'); SysCall IntuitionBase 828;
|
||||
|
||||
// V50
|
||||
@ -3634,7 +3634,7 @@ function EasyRequest(Window: PWindow; const EasyStruct: PEasyStruct; IDCMPPtr: P
|
||||
function BuildEasyRequest(Window: PWindow; EasyStruct: PEasyStruct; IDCMP: LongWord; const Args: array of PtrUInt): PWindow; inline;
|
||||
function OpenWindowTags(NewWindow: PNewWindow; const TagList: array of PtrUInt): PWindow; Inline;
|
||||
function OpenScreenTags(NewScreen: PNewScreen; const TagList: array of PtrUInt): PScreen; Inline;
|
||||
function NewObject(ClassPtr: PIClass; ClassID: PChar; const Tags: array of PtrUInt): Pointer; inline;
|
||||
function NewObject(ClassPtr: PIClass; ClassID: PAnsiChar; const Tags: array of PtrUInt): Pointer; inline;
|
||||
function SetAttrs(Object1: APTR; const Tags: array of PtrUInt): LongWord; inline;
|
||||
function DoGadgetMethod(Gad: PGadget; Win: PWindow; Req: PRequester; const Args: array of PtrUInt): LongWord; inline;
|
||||
function SetGadgetAttrs(Gadget: PGadget; Window: PWindow; Requester: PRequester; const Tags: array of PtrUInt): LongWord; inline;
|
||||
@ -3675,7 +3675,7 @@ begin
|
||||
OpenScreenTags := OpenScreenTagList(NewScreen, @TagList);
|
||||
end;
|
||||
|
||||
function NewObject(ClassPtr: PIClass; ClassID: PChar; const Tags: array of PtrUInt): APTR; inline;
|
||||
function NewObject(ClassPtr: PIClass; ClassID: PAnsiChar; const Tags: array of PtrUInt): APTR; inline;
|
||||
begin
|
||||
NewObject := NewObjectA(ClassPtr, ClassID, @Tags);
|
||||
end;
|
||||
|
||||
@ -113,7 +113,7 @@ var
|
||||
KeyMapBase: PLibrary = nil;
|
||||
|
||||
const
|
||||
KEYMAPNAME: PChar = 'keymap.library';
|
||||
KEYMAPNAME: PAnsiChar = 'keymap.library';
|
||||
|
||||
procedure SetKeyMapDefault(const KeyMap: PKeyMap location 'a0'); SysCall KeyMapBase 030;
|
||||
function AskKeyMapDefault: PKeyMap; SysCall KeyMapBase 036;
|
||||
@ -121,8 +121,8 @@ function MapRawKey(const Event: PInputEvent location 'a0'; Buffer: STRPTR locati
|
||||
function MapANSI(const Strg: STRPTR location 'a0'; Count: LongInt location 'd0'; Buffer: STRPTR location 'a1'; Length: LongInt location 'd1'; const KeyMap: PKeyMap location 'a2'): LongInt; SysCall KeyMapBase 048;
|
||||
function MapRawKeyUCS4(const Event: PInputEvent location 'a0'; Buffer: WSTRPTR location 'a1'; Length: LongInt location 'd1'; const KeyMap: PKeyMap location 'a2'): LongInt; SysCall KeyMapBase 54;
|
||||
function MapUCS4(const Strg: WSTRPTR location 'a0'; Count: LongInt location 'd0'; Buffer: STRPTR location 'a1'; Length: LongInt location 'd1'; const KeyMap: PKeyMap location 'a2'): LongInt; SysCall KeyMapBase 60;
|
||||
function ToANSI(UCS4Char: WideChar location 'a0'; const KeyMap: PKeyMap location 'a1'): Char; SysCall KeyMapBase 66;
|
||||
function ToUCS4(ASCIIChar: Char location 'a0'; const KeyMap: PKeyMap location 'a1'): WideChar; SysCall KeyMapBase 72;
|
||||
function ToANSI(UCS4Char: WideChar location 'a0'; const KeyMap: PKeyMap location 'a1'): AnsiChar; SysCall KeyMapBase 66;
|
||||
function ToUCS4(ASCIIChar: AnsiChar location 'a0'; const KeyMap: PKeyMap location 'a1'): WideChar; SysCall KeyMapBase 72;
|
||||
function GetKeyMapCodePage(const KeyMap: PKeyMap location 'a0'): STRPTR; SysCall KeyMapBase 78;
|
||||
|
||||
// Helper calls
|
||||
|
||||
@ -86,7 +86,7 @@ const
|
||||
LR_RenderList = LR_Dummy + 6; // PPLayer. a nil terminated list of PLayer pointers to render if they are within given bounds
|
||||
LR_IgnoreList = LR_Dummy + 7; // PPLayer. a nil terminated list of PLayer pointers to ommit when rendering the layerinfo. mutually exclusive with LR_RenderList!
|
||||
|
||||
LAYERSNAME: PChar = 'layers.library';
|
||||
LAYERSNAME: PAnsiChar = 'layers.library';
|
||||
|
||||
var
|
||||
LayersBase: PLibrary = nil;
|
||||
|
||||
@ -234,7 +234,7 @@ var
|
||||
LocaleBase: PLocaleBase = nil;
|
||||
|
||||
const
|
||||
LOCALENAME: PChar = 'locale.library';
|
||||
LOCALENAME: PAnsiChar = 'locale.library';
|
||||
|
||||
procedure CloseCatalog(Catalog: PCatalog location 'a0'); syscall LocaleBase 36;
|
||||
procedure CloseLocale(Locale: PLocale location 'a0'); syscall LocaleBase 42;
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -24,7 +24,7 @@ uses
|
||||
|
||||
type
|
||||
|
||||
// array of termination char's to use,see serial.doc setparams
|
||||
// array of termination AnsiChar's to use,see serial.doc setparams
|
||||
PIOTArray = ^TIOTArray;
|
||||
TIOTArray = record
|
||||
TermArray0: LongWord;
|
||||
@ -156,7 +156,7 @@ const
|
||||
IOSERB_ACTIVE = 4; // rqst-qued-OR-current
|
||||
IOSERF_ACTIVE = 1 shl IOSERB_ACTIVE;
|
||||
|
||||
SERIALNAME: PChar = 'serial.device';
|
||||
SERIALNAME: PAnsiChar = 'serial.device';
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
@ -26,7 +26,7 @@ uses
|
||||
exec;
|
||||
|
||||
const
|
||||
TINYGLNAME : PChar = 'tinygl.library';
|
||||
TINYGLNAME : PAnsiChar = 'tinygl.library';
|
||||
|
||||
var
|
||||
TinyGLBase: Pointer = nil;
|
||||
|
||||
@ -186,8 +186,8 @@ function UDivMod32(Dividend: LongWord location 'd0'; Divisor: LongWord location
|
||||
|
||||
function Stricmp(String1: STRPTR location 'a0'; String2: STRPTR location 'a1'): LongInt; SysCall MOS_UtilityBase 162;
|
||||
function Strnicmp(String1: STRPTR location 'a0'; String2: STRPTR location 'a1'; Length: LongInt location 'd0'): LongInt; SysCall MOS_UtilityBase 168;
|
||||
function ToUpper(Character: LongWord location 'd0'): Char; SysCall MOS_UtilityBase 174;
|
||||
function ToLower(character: LongWord location 'd0'): Char; SysCall MOS_UtilityBase 180;
|
||||
function ToUpper(Character: LongWord location 'd0'): AnsiChar; SysCall MOS_UtilityBase 174;
|
||||
function ToLower(character: LongWord location 'd0'): AnsiChar; SysCall MOS_UtilityBase 180;
|
||||
|
||||
procedure ApplyTagChanges(List: PTagItem location 'a0'; ChangeList: PTagItem location 'a1'); SysCall MOS_UtilityBase 186;
|
||||
|
||||
@ -212,13 +212,13 @@ function GetUniqueID: LongWord; SysCall MOS_UtilityBase 270;
|
||||
function AllocNamedObject(Name: STRPTR; const Tags: array of PtrUInt): PNamedObject; inline;
|
||||
|
||||
function TAG_(Value: Pointer): PtrUInt; overload; inline;
|
||||
function TAG_(Value: PChar): PtrUInt; overload; inline;
|
||||
function TAG_(Value: PAnsiChar): PtrUInt; overload; inline;
|
||||
function TAG_(Value: Boolean): PtrUInt; overload; inline;
|
||||
function TAG_(Value: LongInt): PtrUInt; overload; inline;
|
||||
function TAG_(Value: LongWord): PtrUInt; overload; inline;
|
||||
|
||||
function AsTag(Value: Pointer): PtrUInt; overload; inline;
|
||||
function AsTag(Value: PChar): PtrUInt; overload; inline;
|
||||
function AsTag(Value: PAnsiChar): PtrUInt; overload; inline;
|
||||
function AsTag(Value: Boolean): PtrUInt; overload; inline;
|
||||
function AsTag(Value: LongInt): PtrUInt; overload; inline;
|
||||
function AsTag(Value: LongWord): PtrUInt; overload; inline;
|
||||
@ -240,7 +240,7 @@ begin
|
||||
TAG_ := PtrUInt(Value);
|
||||
end;
|
||||
|
||||
function TAG_(Value: PChar): PtrUInt; inline;
|
||||
function TAG_(Value: PAnsiChar): PtrUInt; inline;
|
||||
begin
|
||||
TAG_ := PtrUInt(Value);
|
||||
end;
|
||||
@ -268,7 +268,7 @@ begin
|
||||
AsTag := LongWord(Value);
|
||||
end;
|
||||
|
||||
function AsTag(Value: PChar): PtrUInt; inline;
|
||||
function AsTag(Value: PAnsiChar): PtrUInt; inline;
|
||||
begin
|
||||
AsTag := PtrUInt(Value);
|
||||
end;
|
||||
|
||||
@ -100,7 +100,7 @@ type
|
||||
do_Gadget: TGadget; // a copy of in core gadget
|
||||
do_Type: Byte;
|
||||
do_DefaultTool: STRPTR;
|
||||
do_ToolTypes: PPChar;
|
||||
do_ToolTypes: PPAnsiChar;
|
||||
do_CurrentX: LongInt;
|
||||
do_CurrentY: LongInt;
|
||||
do_DrawerData: PDrawerData;
|
||||
@ -459,13 +459,13 @@ const
|
||||
UPDATEWB_ObjectRemoved = 0; // Object has been deleted.
|
||||
UPDATEWB_ObjectAdded = 1; // Object is new or has changed.
|
||||
|
||||
WORKBENCHNAME : PChar = 'workbench.library';
|
||||
WORKBENCHNAME : PAnsiChar = 'workbench.library';
|
||||
|
||||
var
|
||||
WorkbenchBase: PLibrary = nil;
|
||||
|
||||
function AddAppIconA(Id: LongWord location 'd0'; UserData: LongWord location 'd1'; Text_: PChar location 'a0'; MsgPort: PMsgPort location 'a1'; Lock: BPTR location 'a2'; DiskObj: PDiskObject location 'a3'; const TagList: PTagItem location 'a4'): PAppIcon; syscall WorkbenchBase 060;
|
||||
function AddAppMenuItemA(Id: LongWord location 'd0'; UserData: LongWord location 'd1'; Text_: PChar location 'a0'; MsgPort: PMsgPort location 'a1'; const TagList: PTagItem location 'a2'): PAppMenuItem; syscall WorkbenchBase 072;
|
||||
function AddAppIconA(Id: LongWord location 'd0'; UserData: LongWord location 'd1'; Text_: PAnsiChar location 'a0'; MsgPort: PMsgPort location 'a1'; Lock: BPTR location 'a2'; DiskObj: PDiskObject location 'a3'; const TagList: PTagItem location 'a4'): PAppIcon; syscall WorkbenchBase 060;
|
||||
function AddAppMenuItemA(Id: LongWord location 'd0'; UserData: LongWord location 'd1'; Text_: PAnsiChar location 'a0'; MsgPort: PMsgPort location 'a1'; const TagList: PTagItem location 'a2'): PAppMenuItem; syscall WorkbenchBase 072;
|
||||
function AddAppWindowA(Id: LongWord location 'd0'; UserData: LongWord location 'd1'; Window: PWindow location 'a0'; MsgPort: PMsgPort location 'a1'; const TagList: PTagItem location 'a2'): PAppWindow; syscall WorkbenchBase 048;
|
||||
function RemoveAppIcon(AppIcon: PAppIcon location 'a0'): LongBool; syscall WorkbenchBase 066;
|
||||
function RemoveAppMenuItem(AppMenuItem: PAppMenuItem location 'a0'): LongBool; syscall WorkbenchBase 078;
|
||||
@ -480,33 +480,33 @@ function OpenWorkbenchObjectA(Name: STRPTR location 'a0'; const Tags: PTagItem l
|
||||
function RemoveAppWindowDropZone(Aw: PAppWindow location 'a0'; DropZone: PAppWindowDropZone location 'a1'): LongBool; syscall WorkbenchBase 120;
|
||||
function WorkbenchControlA(Name: STRPTR location 'a0'; const Tags: PTagItem location 'a1'): LongBool; syscall WorkbenchBase 108;
|
||||
// V51
|
||||
function ManageDesktopObjectA(Name: PChar; Action: LongInt; Tags: PTagItem): Boolean; syscall BaseSysV WorkbenchBase 148;
|
||||
function CreateDrawerA(Drawer: PChar; Tags: PTagItem): Boolean; syscall BaseSysV WorkbenchBase 154;
|
||||
function CreateIconA(Name: PChar; Tags: PTagItem): Boolean; syscall BaseSysV WorkbenchBase 160;
|
||||
function ManageDesktopObjectA(Name: PAnsiChar; Action: LongInt; Tags: PTagItem): Boolean; syscall BaseSysV WorkbenchBase 148;
|
||||
function CreateDrawerA(Drawer: PAnsiChar; Tags: PTagItem): Boolean; syscall BaseSysV WorkbenchBase 154;
|
||||
function CreateIconA(Name: PAnsiChar; Tags: PTagItem): Boolean; syscall BaseSysV WorkbenchBase 160;
|
||||
|
||||
function AddAppIcon(Id: LongWord; UserData: LongWord; Text_: PChar; MsgPort: PMsgPort; Lock: BPTR; DiskObj: PDiskObject; const TagList: array of PtrUInt): PAppIcon; inline;
|
||||
function AddAppMenuItem(Id: LongWord; UserData: LongWord; Text_: PChar; MsgPort: PMsgPort; const Tags: array of PtrUInt): PAppMenuItem; inline;
|
||||
function AddAppIcon(Id: LongWord; UserData: LongWord; Text_: PAnsiChar; MsgPort: PMsgPort; Lock: BPTR; DiskObj: PDiskObject; const TagList: array of PtrUInt): PAppIcon; inline;
|
||||
function AddAppMenuItem(Id: LongWord; UserData: LongWord; Text_: PAnsiChar; MsgPort: PMsgPort; const Tags: array of PtrUInt): PAppMenuItem; inline;
|
||||
function AddAppWindow(Id: LongWord; UserData: LongWord; Window: PWindow; MsgPort: PMsgPort; const Tags: array of PtrUInt): PAppWindow; inline;
|
||||
|
||||
function OpenWorkbenchObject(Name: PChar; const Tags: array of PtrUInt): LongBool; inline;
|
||||
function CloseWorkbenchObject(Name: PChar; const Tags: array of PtrUInt): LongBool; inline;
|
||||
function WorkbenchControl(Name: PChar; const Tags: array of PtrUInt): LongBool; inline;
|
||||
function OpenWorkbenchObject(Name: PAnsiChar; const Tags: array of PtrUInt): LongBool; inline;
|
||||
function CloseWorkbenchObject(Name: PAnsiChar; const Tags: array of PtrUInt): LongBool; inline;
|
||||
function WorkbenchControl(Name: PAnsiChar; const Tags: array of PtrUInt): LongBool; inline;
|
||||
function AddAppWindowDropZone(Aw: PAppWindow; Id: LongWord; UserData: LongWord; const Tags: array of PtrUInt): PAppWindowDropZone; inline;
|
||||
function ChangeWorkbenchSelection(Name: STRPTR; Hook: PHook; const Tags: array of PtrUInt): LongBool; inline;
|
||||
function MakeWorkbenchObjectVisible(Name: STRPTR; const Tags: array of PtrUInt): LongBool; inline;
|
||||
// V51
|
||||
function ManageDesktopObjectTags(Name: PChar; Action: LongInt; const Tags: array of PtrUInt): Boolean; inline;
|
||||
function CreateDrawerTags(Drawer: PChar; const Tags: array of PtrUInt): Boolean; inline;
|
||||
function CreateIconTags(Name: PChar; const Tags: array of PtrUInt): Boolean; inline;
|
||||
function ManageDesktopObjectTags(Name: PAnsiChar; Action: LongInt; const Tags: array of PtrUInt): Boolean; inline;
|
||||
function CreateDrawerTags(Drawer: PAnsiChar; const Tags: array of PtrUInt): Boolean; inline;
|
||||
function CreateIconTags(Name: PAnsiChar; const Tags: array of PtrUInt): Boolean; inline;
|
||||
|
||||
implementation
|
||||
|
||||
function AddAppIcon(Id: LongWord; UserData: LongWord; Text_: PChar; MsgPort: PMsgPort; Lock: BPTR; DiskObj: PDiskObject; const TagList: array of PtrUInt): PAppIcon;
|
||||
function AddAppIcon(Id: LongWord; UserData: LongWord; Text_: PAnsiChar; MsgPort: PMsgPort; Lock: BPTR; DiskObj: PDiskObject; const TagList: array of PtrUInt): PAppIcon;
|
||||
begin
|
||||
AddAppIcon := AddAppIconA(Id, UserData, Text_, MsgPort, Lock, Diskobj, @TagList);
|
||||
end;
|
||||
|
||||
function AddAppMenuItem(Id: LongWord; UserData: LongWord; Text_: PChar; MsgPort: PMsgPort; const Tags: array of PtrUInt): PAppMenuItem;
|
||||
function AddAppMenuItem(Id: LongWord; UserData: LongWord; Text_: PAnsiChar; MsgPort: PMsgPort; const Tags: array of PtrUInt): PAppMenuItem;
|
||||
begin
|
||||
AddAppMenuItem := AddAppMenuItemA(Id, UserData, Text_, MsgPort, @Tags);
|
||||
end;
|
||||
@ -516,17 +516,17 @@ begin
|
||||
AddAppWindow := AddAppWindowA(Id, UserData, Window, MsgPort, @Tags);
|
||||
end;
|
||||
|
||||
function OpenWorkbenchObject(Name: PChar; const Tags: array of PtrUInt): LongBool;
|
||||
function OpenWorkbenchObject(Name: PAnsiChar; const Tags: array of PtrUInt): LongBool;
|
||||
begin
|
||||
OpenWorkbenchObject := OpenWorkbenchObjectA(Name, @Tags);
|
||||
end;
|
||||
|
||||
function CloseWorkbenchObject(Name: PChar; const Tags: array of PtrUInt): LongBool;
|
||||
function CloseWorkbenchObject(Name: PAnsiChar; const Tags: array of PtrUInt): LongBool;
|
||||
begin
|
||||
CloseWorkbenchObject := CloseWorkbenchObjectA(Name, @Tags);
|
||||
end;
|
||||
|
||||
function WorkbenchControl(Name: PChar; const Tags: array of PtrUInt): LongBool;
|
||||
function WorkbenchControl(Name: PAnsiChar; const Tags: array of PtrUInt): LongBool;
|
||||
begin
|
||||
WorkbenchControl := WorkbenchControlA(Name, @Tags);
|
||||
end;
|
||||
@ -546,17 +546,17 @@ begin
|
||||
MakeWorkbenchObjectVisible := MakeWorkbenchObjectVisibleA(Name, @Tags);
|
||||
end;
|
||||
|
||||
function ManageDesktopObjectTags(Name: PChar; Action: LongInt; const Tags: array of PtrUInt): Boolean;
|
||||
function ManageDesktopObjectTags(Name: PAnsiChar; Action: LongInt; const Tags: array of PtrUInt): Boolean;
|
||||
begin
|
||||
ManageDesktopObjectTags := ManageDesktopObjectA(Name, Action, @Tags);
|
||||
end;
|
||||
|
||||
function CreateDrawerTags(Drawer: PChar; const Tags: array of PtrUInt): Boolean;
|
||||
function CreateDrawerTags(Drawer: PAnsiChar; const Tags: array of PtrUInt): Boolean;
|
||||
begin
|
||||
CreateDrawerTags := CreateDrawerA(Drawer, @Tags);
|
||||
end;
|
||||
|
||||
function CreateIconTags(Name: PChar; const Tags: array of PtrUInt): Boolean;
|
||||
function CreateIconTags(Name: PAnsiChar; const Tags: array of PtrUInt): Boolean;
|
||||
begin
|
||||
CreateIconTags := CreateIconA(Name, @Tags);
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user