]>
git.zerfleddert.de Git - proxmark3-svn/blob - client/cmdscript.c
1 //-----------------------------------------------------------------------------
2 // Copyright (C) 2013 m h swende <martin at swende.se>
4 // This code is licensed to you under the terms of the GNU GPL, version 2 or,
5 // at your option, any later version. See the LICENSE.txt file for the text of
7 //-----------------------------------------------------------------------------
8 // Some lua scripting glue to proxmark core.
9 //-----------------------------------------------------------------------------
15 #include <sys/types.h>
18 #include "proxmark3.h"
19 #include "scripting.h"
23 #include "cmdparser.h"
25 #include "cmdscript.h"
27 #include "pm3_binlib.h"
28 #include "pm3_bitlib.h"
33 static int CmdHelp(const char *Cmd
);
34 static int CmdList(const char *Cmd
);
35 static int CmdRun(const char *Cmd
);
37 command_t CommandTable
[] =
39 {"help", CmdHelp
, 1, "This help"},
40 {"list", CmdList
, 1, "List available scripts"},
41 {"run", CmdRun
, 1, "<name> -- Execute a script"},
45 int str_ends_with(const char * str
, const char * suffix
) {
47 if( str
== NULL
|| suffix
== NULL
)
50 size_t str_len
= strlen(str
);
51 size_t suffix_len
= strlen(suffix
);
53 if(suffix_len
> str_len
)
56 return 0 == strncmp( str
+ str_len
- suffix_len
, suffix
, suffix_len
);
59 * Shows some basic help
64 int CmdHelp(const char * Cmd
)
66 PrintAndLog("This is a feature to run Lua-scripts. You can place lua-scripts within the scripts/-folder. ");
71 * Generate list of available commands, what it does is
72 * generate a file listing of the script-directory for files
75 int CmdList(const char *Cmd
)
79 char script_directory_path
[strlen(get_my_executable_directory()) + strlen(LUA_SCRIPTS_DIRECTORY
) + 1];
80 strcpy(script_directory_path
, get_my_executable_directory());
81 strcat(script_directory_path
, LUA_SCRIPTS_DIRECTORY
);
82 dp
= opendir(script_directory_path
);
86 while ((ep
= readdir (dp
)) != NULL
)
88 if(str_ends_with(ep
->d_name
, ".lua"))
89 PrintAndLog("%-16s %s", ep
->d_name
, "A script file");
94 PrintAndLog ("Couldn't open the scripts-directory");
98 * Finds a matching script-file
103 int CmdScript(const char *Cmd
)
105 CmdsParse(CommandTable
, Cmd
);
109 * Utility to check the ending of a string (used to check file suffix)
111 bool endsWith (char* base
, char* str
) {
112 int blen
= strlen(base
);
113 int slen
= strlen(str
);
114 return (blen
>= slen
) && (0 == strcmp(base
+ blen
- slen
, str
));
118 * @brief CmdRun - executes a script file.
123 int CmdRun(const char *Cmd
)
125 // create new Lua state
126 lua_State
*lua_state
;
127 lua_state
= luaL_newstate();
129 // load Lua libraries
130 luaL_openlibs(lua_state
);
132 //Sets the pm3 core libraries, that go a bit 'under the hood'
133 set_pm3_libraries(lua_state
);
135 //Add the 'bin' library
136 set_bin_library(lua_state
);
138 //Add the 'bit' library
139 set_bit_library(lua_state
);
141 char script_name
[128] = {0};
142 char arguments
[256] = {0};
146 sscanf(Cmd
, "%127s%n %255[^\n\r]%n", script_name
,&name_len
, arguments
, &arg_len
);
149 if(!endsWith(script_name
,".lua"))
154 char script_path
[strlen(get_my_executable_directory()) + strlen(LUA_SCRIPTS_DIRECTORY
) + strlen(script_name
) + strlen(suffix
) + 1];
155 strcpy(script_path
, get_my_executable_directory());
156 strcat(script_path
, LUA_SCRIPTS_DIRECTORY
);
157 strcat(script_path
, script_name
);
158 strcat(script_path
, suffix
);
160 printf("--- Executing: %s%s, args '%s'\n", script_name
, suffix
, arguments
);
164 // run the Lua script
166 int error
= luaL_loadfile(lua_state
, script_path
);
170 lua_pushstring(lua_state
, arguments
);
171 lua_setglobal(lua_state
, "args");
173 //Call it with 0 arguments
174 error
= lua_pcall(lua_state
, 0, LUA_MULTRET
, 0); // once again, returns non-0 on error,
176 if(error
) // if non-0, then an error
178 // the top of the stack should be the error string
179 if (!lua_isstring(lua_state
, lua_gettop(lua_state
)))
180 printf( "Error - but no error (?!)");
182 // get the top of the stack as the error and pop it off
183 const char * str
= lua_tostring(lua_state
, lua_gettop(lua_state
));
184 lua_pop(lua_state
, 1);
188 //luaL_dofile(lua_state, buf);
189 // close the Lua state
190 lua_close(lua_state
);
191 printf("\n-----Finished\n");