.file "920625-2.c" .section .rodata.str1.1,"aMS",@progbits,1 .LC0: .string "rm -fr" .LC1: .string "%s '%s'" .LC2: .string "rm" .LC3: .string "Can't remove file" .text .align 2 .globl trashQueryResult .type trashQueryResult, @function trashQueryResult: link.w %a6,#0 movm.l #0x383c,-(%sp) move.b 15(%a6),%d2 move.l busy,-(%sp) move.l #setCursor,%d4 move.l %d4,%a0 jbsr (%a0) jbsr destroy_button_dialog addq.l #4,%sp cmp.b #1,%d2 jbeq .L13 pea 1.w jbsr changestate addq.l #4,%sp jbra .L10 .align 2 .L13: move.l #.LC0,%d3 clr.l %d2 tst.l %d3 jbeq .L4 pea 7.w jbsr XtMalloc move.l #7,(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jbsr memcpy lea (12,%sp),%sp move.l %a0,%d2 .L4: move.l return_list,%a3 tst.l %a3 jbeq .L12 lea strlen,%a4 move.l #XtRealloc,%d3 lea sprintf,%a5 .align 2 .L8: move.l %d2,-(%sp) jbsr (%a4) move.l %d0,%a2 move.l (%a3),(%sp) jbsr (%a4) addq.l #4,%sp move.l %d0,%a0 pea 5(%a0,%a2.l) move.l %d2,-(%sp) move.l %d3,%a0 jbsr (%a0) move.l %d0,%d2 move.l (%a3),-(%sp) move.l %d0,-(%sp) pea .LC1 move.l %d0,-(%sp) jbsr (%a5) move.l 8(%a3),%a3 lea (24,%sp),%sp tst.l %a3 jbne .L8 .L12: pea 1.w move.l %d2,-(%sp) pea .LC2 clr.l -(%sp) jbsr execute lea (16,%sp),%sp tst.l %d0 jbne .L14 .L9: move.l %d2,-(%sp) jbsr XtFree move.l cwd,-(%sp) jbsr directoryManagerNewDirectory addq.l #8,%sp jbra .L10 .align 2 .L14: pea 100.w move.l 8(%a6),-(%sp) jbsr XtDisplay move.l %d0,(%sp) jbsr XBell clr.l -(%sp) pea .LC3 jbsr query_dialog lea (16,%sp),%sp jbra .L9 .align 2 .L10: move.l left_ptr,-(%sp) move.l %d4,%a0 jbsr (%a0) jbsr freeReturnStruct movm.l -28(%a6),#0x3c1c unlk %a6 rts .size trashQueryResult, .-trashQueryResult .section .rodata.str1.1 .LC4: .string "cp -r" .LC5: .string "%s '%s/%s'" .LC6: .string "cp" .LC7: .string "Can't copy file!" .text .align 2 .globl copyQueryResult .type copyQueryResult, @function copyQueryResult: link.w %a6,#0 movm.l #0x3e3c,-(%sp) move.b 15(%a6),%d2 jbsr destroy_button_dialog move.l busy,-(%sp) move.l #setCursor,%d6 move.l %d6,%a0 jbsr (%a0) addq.l #4,%sp cmp.b #1,%d2 jbeq .L28 pea 1.w jbsr changestate addq.l #4,%sp lea XtFree,%a2 jbra .L24 .align 2 .L28: lea strlen,%a4 move.l srcdir,-(%sp) jbsr (%a4) move.l %d0,%a5 move.l dstdir,(%sp) jbsr (%a4) addq.l #4,%sp move.l %d0,%d5 move.l #.LC4,%d3 clr.l %d2 tst.l %d3 jbeq .L18 pea 6.w jbsr XtMalloc move.l #6,(%sp) move.l %d3,-(%sp) move.l %d0,-(%sp) jbsr memcpy lea (12,%sp),%sp move.l %a0,%d2 .L18: move.l return_list,%a3 tst.l %a3 jbeq .L27 move.l #XtRealloc,%d3 move.l #sprintf,%d4 .align 2 .L22: move.l %d2,-(%sp) jbsr (%a4) move.l %d0,%a2 move.l (%a3),(%sp) jbsr (%a4) addq.l #4,%sp add.l %d0,%a2 pea 6(%a5,%a2.l) move.l %d2,-(%sp) move.l %d3,%a0 jbsr (%a0) move.l %d0,%d2 move.l (%a3),-(%sp) move.l srcdir,-(%sp) move.l %d0,-(%sp) pea .LC5 move.l %d0,-(%sp) move.l %d4,%a0 jbsr (%a0) move.l 8(%a3),%a3 lea (28,%sp),%sp tst.l %a3 jbne .L22 .L26: move.l %d2,-(%sp) jbsr (%a4) addq.l #4,%sp move.l %d0,%a0 pea 5(%a0,%d5.l) move.l %d2,-(%sp) move.l %d3,%a0 jbsr (%a0) move.l %d0,%d2 move.l dstdir,-(%sp) move.l %d0,-(%sp) pea .LC1 move.l %d0,-(%sp) move.l %d4,%a0 jbsr (%a0) pea 1.w move.l %d2,-(%sp) pea .LC6 clr.l -(%sp) jbsr execute lea (40,%sp),%sp tst.l %d0 jbne .L29 .L23: move.l %d2,-(%sp) lea XtFree,%a2 jbsr (%a2) move.l cwd,-(%sp) jbsr directoryManagerNewDirectory addq.l #8,%sp jbra .L24 .align 2 .L29: pea 100.w move.l 8(%a6),-(%sp) jbsr XtDisplay move.l %d0,(%sp) jbsr XBell clr.l -(%sp) pea .LC7 jbsr query_dialog lea (16,%sp),%sp jbra .L23 .align 2 .L27: move.l #XtRealloc,%d3 move.l #sprintf,%d4 jbra .L26 .align 2 .L24: move.l srcdir,-(%sp) jbsr (%a2) move.l dstdir,-(%sp) jbsr (%a2) move.l left_ptr,-(%sp) move.l %d6,%a0 jbsr (%a0) jbsr freeReturnStruct movm.l -36(%a6),#0x3c7c unlk %a6 rts .size copyQueryResult, .-copyQueryResult .align 2 .globl freeReturnStruct .type freeReturnStruct, @function freeReturnStruct: link.w %a6,#0 unlk %a6 rts .size freeReturnStruct, .-freeReturnStruct .local return_list .comm return_list,4,2 .local srcdir .comm srcdir,4,2 .local dstdir .comm dstdir,4,2 .ident "GCC: (GNU) 3.3.2"