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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
/* ************************************************************************** */
/* */
/* ::: :::::::: */
/* redir.c :+: :+: :+: */
/* +:+ +:+ +:+ */
/* By: charles <charles.cabergs@gmail.com> +#+ +:+ +#+ */
/* +#+#+#+#+#+ +#+ */
/* Created: 2020/06/15 11:05:34 by charles #+# #+# */
/* Updated: 2020/09/10 20:25:59 by charles ### ########.fr */
/* */
/* ************************************************************************** */
#include "eval.h"
static int st_open_replace(int *fd, char *filename, int oflag)
{
if (*fd != FD_NONE)
close(*fd);
if (oflag & O_CREAT)
*fd = open(filename, oflag, 0644);
else
*fd = open(filename, oflag);
if (*fd == -1)
{
errorf("%s: %s\n", filename, strerror(errno));
free(filename);
return (1);
}
return (0);
}
int redir_extract(
t_tok_lst **redirs,
t_env env,
int fds[2])
{
t_tok_lst *after;
t_tok_lst *curr;
char *filename;
if (*redirs == NULL)
return (0);
if (!((*redirs)->tag & TAG_IS_REDIR) || (*redirs)->next == NULL
|| !((*redirs)->next->tag & TAG_IS_STR))
return (EVAL_FATAL);
curr = (*redirs)->next;
after = NULL;
while (curr != NULL && curr->tag & TAG_IS_STR)
{
if (curr->next == NULL || curr->next->tag & TAG_IS_REDIR)
{
after = curr->next;
curr->next = NULL;
}
curr = curr->next;
}
if ((filename = preprocess_filename(&(*redirs)->next, env)) == NULL)
{
tok_lst_destroy(redirs, free);
tok_lst_destroy(&after, free);
return (EVAL_FATAL);
}
if (((*redirs)->tag == TAG_REDIR_IN
&& st_open_replace(&fds[FD_READ], filename, O_RDONLY) != 0)
|| ((*redirs)->tag == TAG_REDIR_OUT
&& st_open_replace(&fds[FD_WRITE], filename, O_WRONLY | O_CREAT | O_TRUNC) != 0)
|| ((*redirs)->tag == TAG_REDIR_APPEND
&& st_open_replace(&fds[FD_WRITE], filename, O_WRONLY | O_CREAT | O_APPEND) != 0))
{
tok_lst_destroy(redirs, free);
tok_lst_destroy(&after, free);
return (EVAL_FATAL);
}
tok_lst_destroy(redirs, free);
free(filename);
return (redir_extract(&after, env, fds));
}
|
