Menu
▾
▴
[ro-oslib-commits] OSLib/!OsLib/Source/Computer/oslib Filer.swi,1.2,1.3 FilerAction.swi,1.2,1.3
|
From: <th...@us...> - 2003-06-28 22:40:14
|
Update of /cvsroot/ro-oslib/OSLib/!OsLib/Source/Computer/oslib
In directory sc8-pr-cvs1:/tmp/cvs-serv3842/Source/Computer/oslib
Modified Files:
Filer.swi FilerAction.swi
Log Message:
Added the NeverProxy flag to FilerAction and improved the typing of some
fields in the FilerAction messages.
Index: Filer.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Computer/oslib/Filer.swi,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Filer.swi 28 Feb 2003 19:31:48 -0000 1.2
--- Filer.swi 28 Jun 2003 22:40:11 -0000 1.3
***************
*** 3,7 ****
//NEEDS OS, WIMP, FileSwitch; // TV 20030226
! NEEDS OS, Wimp, FileSwitch;
CONST
--- 3,7 ----
//NEEDS OS, WIMP, FileSwitch; // TV 20030226
! NEEDS OS, Wimp, FileSwitch, FilerAction;
CONST
***************
*** 46,53 ****
Filer_GivenSort = .Bits: %100000;
CONST
! Filer_ControlAcknowledge = .Int: 0,
! Filer_ControlVerboseOn = .Int: 1,
! Filer_ControlVerboseOff = .Int: 2;
//Filer message types
--- 46,56 ----
Filer_GivenSort = .Bits: %100000;
+ TYPE
+ Filer_Control = .Int;
+
CONST
! Filer_ControlAcknowledge = Filer_Control: 0,
! Filer_ControlVerboseOn = Filer_Control: 1,
! Filer_ControlVerboseOff = Filer_Control: 2;
//Filer message types
***************
*** 83,88 ****
Filer_MessageAction =
.Struct
! ( .Int: operation,
! .Bits: options,
.Union
( [228] .Char: destination_dir_name,
--- 86,91 ----
Filer_MessageAction =
.Struct
! ( FilerAction_Operation: operation,
! FilerAction_Flags: options,
.Union
( [228] .Char: destination_dir_name,
***************
*** 95,99 ****
Filer_MessageControlAction =
.Struct
! ( .Int: control ),
Filer_MessageSelection =
--- 98,102 ----
Filer_MessageControlAction =
.Struct
! ( Filer_Control: control ),
Filer_MessageSelection =
***************
*** 146,151 ****
Filer_FullMessageAction =
.Struct: Wimp_MessageHeader
! ( .Int: operation,
! .Bits: options,
.Union
( [228] .Char: destination_dir_name,
--- 149,154 ----
Filer_FullMessageAction =
.Struct: Wimp_MessageHeader
! ( FilerAction_Operation: operation,
! FilerAction_Flags: options,
.Union
( [228] .Char: destination_dir_name,
***************
*** 158,162 ****
Filer_FullMessageControlAction =
.Struct: Wimp_MessageHeader
! ( .Int: control ),
Filer_FullMessageSelection =
--- 161,165 ----
Filer_FullMessageControlAction =
.Struct: Wimp_MessageHeader
! ( Filer_Control: control ),
Filer_FullMessageSelection =
Index: FilerAction.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Computer/oslib/FilerAction.swi,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** FilerAction.swi 28 Feb 2003 19:31:49 -0000 1.2
--- FilerAction.swi 28 Jun 2003 22:40:11 -0000 1.3
***************
*** 5,8 ****
--- 5,21 ----
NEEDS OS, Wimp;
+ TYPE FilerAction_Operation = .Int;
+ CONST
+ FilerAction_Copy = FilerAction_Operation: 0,
+ FilerAction_MoveLocal = FilerAction_Operation: 1,
+ FilerAction_Delete = FilerAction_Operation: 2,
+ FilerAction_Access = FilerAction_Operation: 3,
+ FilerAction_SetType = FilerAction_Operation: 4,
+ FilerAction_Count = FilerAction_Operation: 5,
+ FilerAction_Move = FilerAction_Operation: 6,
+ FilerAction_CopyLocal = FilerAction_Operation: 7,
+ FilerAction_Stamp = FilerAction_Operation: 8,
+ FilerAction_Find = FilerAction_Operation: 9;
+
TYPE FilerAction_Flags = .Bits;
CONST
***************
*** 13,17 ****
FilerAction_Recurse = FilerAction_Flags: %10000,
FilerAction_ConfirmDeletesOnly = FilerAction_Flags: %100000 "RISC O S 4+",
! FilerAction_Faster = FilerAction_Flags: %1000000 "RISC O S 4+";
SWI FilerAction_SendSelectedDirectory =
--- 26,31 ----
FilerAction_Recurse = FilerAction_Flags: %10000,
FilerAction_ConfirmDeletesOnly = FilerAction_Flags: %100000 "RISC O S 4+",
! FilerAction_Faster = FilerAction_Flags: %1000000 "RISC O S 4+",
! FilerAction_NeverProxy = FilerAction_Flags: %10000000 "RISC O S Select";
SWI FilerAction_SendSelectedDirectory =
***************
*** 41,45 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 0 "Sends a message to start a copy",
R2 = FilerAction_Flags: flags,
R3 -> .String: destination,
--- 55,59 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_Copy "Sends a message to start a copy",
R2 = FilerAction_Flags: flags,
R3 -> .String: destination,
***************
*** 51,55 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 1 "Sends a message to start a move (by renaming)",
R2 = FilerAction_Flags: flags,
R3 -> .String: destination,
--- 65,69 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_MoveLocal "Sends a message to start a move (by renaming)",
R2 = FilerAction_Flags: flags,
R3 -> .String: destination,
***************
*** 61,65 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 2 "Sends a message to start a delete",
R2 = FilerAction_Flags: flags,
R4 # 0
--- 75,79 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_Delete "Sends a message to start a delete",
R2 = FilerAction_Flags: flags,
R4 # 0
***************
*** 70,74 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 3 "Sends a message to start an access modification",
R2 = FilerAction_Flags: flags,
R3 -> .Int: access,
--- 84,88 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_Access "Sends a message to start an access modification",
R2 = FilerAction_Flags: flags,
R3 -> .Int: access,
***************
*** 80,84 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 4 "Sends a message to start a set type",
R2 = FilerAction_Flags: flags,
R3 -> .Bits: file_type,
--- 94,98 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_SetType "Sends a message to start a set type",
R2 = FilerAction_Flags: flags,
R3 -> .Bits: file_type,
***************
*** 90,94 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 5 "Sends a message to start a count",
R2 = FilerAction_Flags: flags,
R4 # 0
--- 104,108 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_Count "Sends a message to start a count",
R2 = FilerAction_Flags: flags,
R4 # 0
***************
*** 99,103 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 6 "Sends a message to start a move (by copying and deleting)",
R2 = FilerAction_Flags: flags,
R3 -> .String: destination,
--- 113,117 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_Move "Sends a message to start a move (by copying and deleting)",
R2 = FilerAction_Flags: flags,
R3 -> .String: destination,
***************
*** 109,113 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 7 "Sends a message to start a copy within a directory",
R2 = FilerAction_Flags: flags,
R3 -> .String: destination,
--- 123,127 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_CopyLocal "Sends a message to start a copy within a directory",
R2 = FilerAction_Flags: flags,
R3 -> .String: destination,
***************
*** 119,123 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 8 "Sends a message to start a stamp",
R2 = FilerAction_Flags: flags,
R4 # 0
--- 133,137 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_Stamp "Sends a message to start a stamp",
R2 = FilerAction_Flags: flags,
R4 # 0
***************
*** 128,132 ****
ENTRY
( R0 = Wimp_T: task,
! R1 # 9 "Sends a message to start a file search",
R2 = FilerAction_Flags: flags,
R3 -> .String: file_name,
--- 142,146 ----
ENTRY
( R0 = Wimp_T: task,
! R1 # FilerAction_Find "Sends a message to start a file search",
R2 = FilerAction_Flags: flags,
R3 -> .String: file_name,
|
