package diskdrake::dav; # $Id$ use diagnostics; use strict; use diskdrake::interactive; use common; use fsedit; use fs; sub main { my ($in, $all_hds) = @_; my $davs = $all_hds->{davs}; $in->do_pkgs->ensure_is_installed('davfs', '/sbin/mount.davfs') or return; my $quit; do { $in->ask_from_({ ok => '', messages => formatAlaTeX( N("WebDAV is a protocol that allows you to mount a web server's directory locally, and treat it like a local filesystem (provided the web server is configured as a WebDAV server). If you would like to add WebDAV mount points, select \"New\".")) }, [ (map { my $dav = $_; { label => $dav->{device}, val => $dav->{mntpoint}, clicked_may_quit => sub { config($in, $dav, $all_hds); 1 } } } @$davs), { val => N("New"), clicked_may_quit => sub { create($in, $all_hds); 1 } }, { val => N("Quit"), icon => "exit", clicked_may_quit => sub { $quit = 1 } }, ]); } until $quit; diskdrake::interactive::Done($in, $all_hds); } sub create { my ($in, $all_hds) = @_; my $dav = { type => 'davfs' }; ask_server($in, $dav, $all_hds) or return; push @{$all_hds->{davs}}, $dav; config($in, $dav, $all_hds); } sub config { my ($in, $dav_, $all_hds) = @_; my $dav = { %$dav_ }; #- working on a local copy so that "Cancel" works my $action; while ($action ne 'Done') { my %actions = my @actions = actions($dav); $action = $in->ask_from_list_('', format_dav_info($dav), [ map { $_->[0] } group_by2 @actions ], 'Done') or return; $actions{$action}->($in, $dav, $all_hds); } %$dav_ = %$dav; #- applying } sub actions { my ($dav) = @_; ( if_($dav && $dav->{isMounted}, N_("Unmount") => sub { try('Unmount', @_) }), if_($dav && $dav->{mntpoint} && !$dav->{isMounted}, N_("Mount") => sub { try('Mount', @_) }), N_("Server") => \&ask_server, N_("Mount point") => \&mount_point, N_("Options") => \&options, N_("Done") => sub {}, ); } sub try { my ($name, $in, $dav) = @_; my $f = $diskdrake::interactive::{$name} or die "unknown function $name"; eval { $f->($in, {}, $dav) }; if (my $err = $@) { $in->ask_warn(N("Error"), formatError($err)); } } sub ask_server { my ($in, $dav, $_all_hds) = @_; my $server = $dav->{device}; $in->ask_from('', N("Please enter the WebDAV server URL"), [ { val => \$server } ], complete => sub { $server =~ m!https?://! or $in->ask_warn('', N("The URL must begin with http:// or https://")), return 1; 0; }, ) or return; $dav->{device} = $server; } sub options { my ($in, $dav, $all_hds) = @_; diskdrake::interactive::Options($in, {}, $dav, $all_hds); } sub mount_point { my ($in, $dav, $all_hds) = @_; my $proposition = $dav->{device} =~ /(\w+)/ ? "/mnt/$1" : "/mnt/dav"; diskdrake::interactive::Mount_point_raw_hd($in, $dav, $all_hds, $proposition); } sub format_dav_info { my ($dav) = @_; my $info = ''; $info .= N("Server: ") . "$dav->{device}\n" if $dav->{device}; $info .= N("Mount point: ") . "$dav->{mntpoint}\n" if $dav->{mntpoint}; $info .= N("Options: %s", $dav->{options}) if $dav->{options}; $info; } 1; tion value='topic/mandrakesoft'>topic/mandrakesoft Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/mdk-stage1/dietlibc/sparc/clone.S
blob: 58b438249c5bef3de4c65d840489950e7b9fd346 (plain) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

#include <asm/errno.h>
#include <asm/unistd.h>

.text
.align 4
.weak clone
clone:
.global __clone
__clone:
	save	%sp, -96, %sp

	tst	%i0		/* check for function pointer */
	be	.Lerror
	tst	%i1		/* check for stack pointer */
	be	.Lerror
	nop

	mov	%i1, %o1	/* child-stack */
	mov	%i2, %o0	/* clone-flags */
	mov	__NR_clone, %g1
	ta	0x10		/* syscall: clone */
	bcs	.Lerror

	tst	%o1
	bne	.Lstart		/* we are the child :) */
	nop
	mov	%o0, %i0	/* return child pid */
	ret
	restore

.Lerror:
	call	__errno_location
	nop
	mov	EINVAL, %l0
	st	%l0, [%o0]
	ret
	restore	%g0, -1, %o0

.Lstart:
	call	%i0		/* call child-function */
	mov	%i3, %o0	/* put arg in the right place for the child */

	call	_exit		/* child returned */
	nop