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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
/*
Copyright (c) 2024, Lance Borden
All rights reserved.
This software is licensed under the BSD 3-Clause License.
You may obtain a copy of the license at:
https://opensource.org/licenses/BSD-3-Clause
Redistribution and use in source and binary forms, with or without
modification, are permitted under the conditions stated in the BSD 3-Clause
License.
THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT ANY WARRANTIES,
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#include "help.h"
#include "lua.h"
#include "lua_api.h"
#include "lush.h"
#include <asm-generic/ioctls.h>
#include <bits/time.h>
#include <dirent.h>
#include <linux/limits.h>
#include <locale.h>
#include <pwd.h>
#include <stdbool.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/ioctl.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <termios.h>
#include <time.h>
#include <unistd.h>
char *builtin_strs[] = {"cd", "help", "exit", "time"};
char *builtin_usage[] = {"[dirname]", "", "", "[pipeline]"};
int (*builtin_func[])(lua_State *, char ***) = {
&lush_cd, &lush_help, &lush_exit, &lush_time, &lush_lua};
int lush_num_builtins() { return sizeof(builtin_strs) / sizeof(char *); }
int lush_cd(lua_State *L, char ***args) {
uid_t uid = getuid();
struct passwd *pw = getpwuid(uid);
if (!pw) {
perror("retrieve home dir");
return 0;
}
if (args[0][1] == NULL) {
if (chdir(pw->pw_dir) != 0) {
perror("lush: cd");
}
} else {
char path[PATH_MAX];
char extended_path[PATH_MAX];
char *tilda = strchr(args[0][1], '~');
// first check if they want to go to old dir
if (strcmp("-", args[0][1]) == 0) {
strcpy(path, getenv("OLDPWD"));
} else if (tilda) {
strcpy(path, pw->pw_dir);
strcat(path, tilda + 1);
} else {
strcpy(path, args[0][1]);
}
char *exp_path = realpath(path, extended_path);
if (!exp_path) {
perror("realpath");
return 1;
}
char *cwd = getcwd(NULL, 0);
setenv("OLDPWD", cwd, 1);
free(cwd);
if (chdir(exp_path) != 0) {
perror("lush: cd");
}
}
return 0;
}
int lush_help(lua_State *L, char ***args) {
printf("%s\n", lush_get_help_text());
#ifdef LUSH_VERSION
printf("Lunar Shell, version %s\n", LUSH_VERSION);
#endif
printf("These shell commands are defined internally. Type 'help' at any "
"time to reference this list.\n\n");
printf("Available commands:\n");
for (int i = 0; i < lush_num_builtins(); i++) {
printf("- %s %s\n", builtin_strs[i], builtin_usage[i]);
}
char *api_strs[] = {"exec(string command)",
"getcwd()",
"debug(boolean isOn)",
"cd(string path)",
"exists(string path)",
"isFile(string path)",
"isDir(string path)",
"isReadable(string path)",
"isWriteable(string path)",
"lastHistory()",
"getHistory(int index)",
"getenv(string envar)",
"setenv(string envar, string val)",
"unsetenv(string envar)",
"setPrompt(string prompt)",
"alias(string alias, string command)",
"termCols()",
"termRows()",
"glob(string extension)",
"exit()"};
char *api_usage[] = {
"executes the command line chain given",
"gets current working directory",
"sets debug mode",
"changed current working directory to path given",
"checks if a file/directory exists at path",
"checks if given path is a file",
"checks if given path is a directory",
"checks if given path is readable",
"checks if given path is writeable",
"returns last history element",
"returns history at an index, 1 is most recent",
"returns value of an environment variable",
"sets the value of an environment variable",
"unsets the value of an environment variable",
"sets the prompt for the shell",
"sets an alias for a command",
"returns present number of columns in terminal",
"returns present number of rows in terminal",
"returns an array of filenames that have a given extension",
"ends the current process erroneously"};
printf("\nLunar Shell Lua API:\n\n");
for (int i = 0; i < sizeof(api_strs) / sizeof(char *); i++) {
printf("\033[1;32mlush.%s: \033[0m%s\n", api_strs[i], api_usage[i]);
}
return 0;
}
int lush_exit(lua_State *L, char ***args) { exit(0); }
int lush_time(lua_State *L, char ***args) {
// advance past time command
args[0]++;
// count commands
int i = 0;
while (args[i++]) {
;
}
// get time
struct timespec start, end;
double elapsed_time;
clock_gettime(CLOCK_MONOTONIC, &start);
int rc = lush_run(L, args, i);
clock_gettime(CLOCK_MONOTONIC, &end);
elapsed_time = (end.tv_sec - start.tv_sec) * 1000.0 +
(end.tv_nsec - start.tv_nsec) / 1e6;
printf("Time: %.3f milliseconds\n", elapsed_time);
// return pointer back to "time" for free()
args[0]--;
return rc;
}
int lush_lua(lua_State *L, char ***args) {
// run the lua file given
const char *script = args[0][0];
// move args forward to any command line args
args[0]++;
int rc = lua_load_script(L, script, args[0]);
// return pointer back to lua file
args[0]--;
return rc;
}
|
