标签：__ cubemx stream FA int LUA mode file h750vb
因为我想实现的功能是在把 *.lua文件丢到FLASH虚拟的U盘里，重新上电后运行。
网上的资料不多，而且大多没有关于dofile函数的实现。
所以，我整理了一下，形成了这篇博客。
-
创建stm32cubemx的H750vb工程，并完成外设的驱动：
这部分网上有很多实现方法这里不在赘述：- usart驱动
- spi flash驱动 这里我使用的是spi2口
- fatfs文件系统 并 挂载spi flash分区
- usb的msc模式
修改堆栈大小。 stack size设为0x2000； heap size设为0x4000.
-
去Lua官网下载源文件
http://www.lua.org/download.html
我使用的是当前最新版本 5.4.3，将加载到自己的工程中（不添加lua.c和luac.c）。
参考armfly大神的分享,及其在H7-TOOL中的实现方法：
http://www.armbbs.cn/forum.php?mod=viewthread&tid=97441
启用MicroLIB库，同时增加 lua_sys.c 文件代码如下：
#include "usart.h"
#include <time.h>
#include <stdio.h>
#include <string.h>
#include <ff.h>
/*lua相关*/
#include "lua.h"
#include "lauxlib.h"
#include "lualib.h"
FATFS fs;
FIL g_file;
/*
*********************************************************************************************************
* 函 数 名: 无
* 功能说明: 此处，重写了 stdio 中定义的与文件操作的相关函数，使其满足Lua解释器的文件调用操作，
* 暂时只实现了读取功能。
* 形 参: 无
* 返 回 值: 无
*********************************************************************************************************
*/
extern _ARMABI int remove(const char * /*filename*/) __attribute__((__nonnull__(1)));
/*
* causes the file whose name is the string pointed to by filename to be
* removed. Subsequent attempts to open the file will fail, unless it is
* created anew. If the file is open, the behaviour of the remove function
* is implementation-defined.
* Returns: zero if the operation succeeds, nonzero if it fails.
*/
extern _ARMABI int rename(const char * /*old*/, const char * /*new*/) __attribute__((__nonnull__(1,2)));
/*
* causes the file whose name is the string pointed to by old to be
* henceforth known by the name given by the string pointed to by new. The
* file named old is effectively removed. If a file named by the string
* pointed to by new exists prior to the call of the rename function, the
* behaviour is implementation-defined.
* Returns: zero if the operation succeeds, nonzero if it fails, in which
* case if the file existed previously it is still known by its
* original name.
*/
extern _ARMABI FILE *tmpfile(void);
/*
* creates a temporary binary file that will be automatically removed when
* it is closed or at program termination. The file is opened for update.
* Returns: a pointer to the stream of the file that it created. If the file
* cannot be created, a null pointer is returned.
*/
extern _ARMABI char *tmpnam(char * /*s*/);
/*
* generates a string that is not the same as the name of an existing file.
* The tmpnam function generates a different string each time it is called,
* up to TMP_MAX times. If it is called more than TMP_MAX times, the
* behaviour is implementation-defined.
* Returns: If the argument is a null pointer, the tmpnam function leaves
* its result in an internal static object and returns a pointer to
* that object. Subsequent calls to the tmpnam function may modify
* the same object. if the argument is not a null pointer, it is
* assumed to point to an array of at least L_tmpnam characters;
* the tmpnam function writes its result in that array and returns
* the argument as its value.
*/
//extern _ARMABI int fclose(FILE * /*stream*/) __attribute__((__nonnull__(1)));
_ARMABI int fclose(FILE * stream)
/*
* causes the stream pointed to by stream to be flushed and the associated
* file to be closed. Any unwritten buffered data for the stream are
* delivered to the host environment to be written to the file; any unread
* buffered data are discarded. The stream is disassociated from the file.
* If the associated buffer was automatically allocated, it is deallocated.
* Returns: zero if the stream was succesfully closed, or nonzero if any
* errors were detected or if the stream was already closed.
*/
{
FIL *fp;
FRESULT result;
fp = (FIL *)stream;
result = f_close(fp);
if (result != FR_OK)
{
return result;
}
return 0;
}
extern _ARMABI int fflush(FILE * /*stream*/);
/*
* If the stream points to an output or update stream in which the most
* recent operation was output, the fflush function causes any unwritten
* data for that stream to be delivered to the host environment to be
* written to the file. If the stream points to an input or update stream,
* the fflush function undoes the effect of any preceding ungetc operation
* on the stream.
* Returns: nonzero if a write error occurs.
*/
_ARMABI FILE *fopen(const char * filename /*filename*/,
const char * mode /*mode*/)
/*
* opens the file whose name is the string pointed to by filename, and
* associates a stream with it.
* The argument mode points to a string beginning with one of the following
* sequences:
* "r" open text file for reading
* "w" create text file for writing, or truncate to zero length
* "a" append; open text file or create for writing at eof
* "rb" open binary file for reading
* "wb" create binary file for writing, or truncate to zero length
* "ab" append; open binary file or create for writing at eof
* "r+" open text file for update (reading and writing)
* "w+" create text file for update, or truncate to zero length
* "a+" append; open text file or create for update, writing at eof
* "r+b"/"rb+" open binary file for update (reading and writing)
* "w+b"/"wb+" create binary file for update, or truncate to zero length
* "a+b"/"ab+" append; open binary file or create for update, writing at eof
*
* Opening a file with read mode ('r' as the first character in the mode
* argument) fails if the file does not exist or cannot be read.
* Opening a file with append mode ('a' as the first character in the mode
* argument) causes all subsequent writes to be forced to the current end of
* file, regardless of intervening calls to the fseek function. In some
* implementations, opening a binary file with append mode ('b' as the
* second or third character in the mode argument) may initially position
* the file position indicator beyond the last data written, because of the
* NUL padding.
* When a file is opened with update mode ('+' as the second or third
* character in the mode argument), both input and output may be performed
* on the associated stream. However, output may not be directly followed
* by input without an intervening call to the fflush fuction or to a file
* positioning function (fseek, fsetpos, or rewind), and input be not be
* directly followed by output without an intervening call to the fflush
* fuction or to a file positioning function, unless the input operation
* encounters end-of-file. Opening a file with update mode may open or
* create a binary stream in some implementations. When opened, a stream
* is fully buffered if and only if it does not refer to an interactive
* device. The error and end-of-file indicators for the stream are
* cleared.
* Returns: a pointer to the object controlling the stream. If the open
* operation fails, fopen returns a null pointer.
*/
{
/*
fatfs官网有兼容方式定义格式
http://elm-chan.org/fsw/ff/doc/open.html
POSIX FatFs
"r" FA_READ
"r+" FA_READ | FA_WRITE
"w" FA_CREATE_ALWAYS | FA_WRITE
"w+" FA_CREATE_ALWAYS | FA_WRITE | FA_READ
"a" FA_OPEN_APPEND | FA_WRITE
"a+" FA_OPEN_APPEND | FA_WRITE | FA_READ
"wx" FA_CREATE_NEW | FA_WRITE
"w+x" FA_CREATE_NEW | FA_WRITE | FA_READ
*/
FRESULT result;
BYTE ff_mode;
if (strcmp(mode, "r") == 0) ff_mode = FA_READ;
else if (strcmp(mode, "r+") == 0) ff_mode = FA_READ | FA_WRITE;
else if (strcmp(mode, "w") == 0) ff_mode = FA_CREATE_ALWAYS | FA_WRITE;
else if (strcmp(mode, "w+") == 0) ff_mode = FA_CREATE_ALWAYS | FA_WRITE | FA_READ;
else if (strcmp(mode, "a") == 0) ff_mode = FA_OPEN_APPEND | FA_WRITE;
else if (strcmp(mode, "a+") == 0) ff_mode = FA_OPEN_APPEND | FA_WRITE | FA_READ;
else if (strcmp(mode, "wx") == 0) ff_mode = FA_CREATE_NEW | FA_WRITE;
else if (strcmp(mode, "w+x") == 0) ff_mode = FA_CREATE_NEW | FA_WRITE | FA_READ;
/* 打开文件 */
f_close(&g_file);
result = f_open(&g_file, filename, ff_mode);
if (result == FR_OK)
{
return (FILE *)&g_file;
}
return 0;
}
_ARMABI FILE *freopen(const char * filename /*filename*/,
const char * mode /*mode*/,
FILE * stream /*stream*/)
/*
* opens the file whose name is the string pointed to by filename and
* associates the stream pointed to by stream with it. The mode argument is
* used just as in the fopen function.
* The freopen function first attempts to close any file that is associated
* with the specified stream. Failure to close the file successfully is
* ignored. The error and end-of-file indicators for the stream are cleared.
* Returns: a null pointer if the operation fails. Otherwise, freopen
* returns the value of the stream.
*/
{
return 0;
}
extern _ARMABI void setbuf(FILE * __restrict /*stream*/,
char * __restrict /*buf*/) __attribute__((__nonnull__(1)));
/*
* Except that it returns no value, the setbuf function is equivalent to the
* setvbuf function invoked with the values _IOFBF for mode and BUFSIZ for
* size, or (if buf is a null pointer), with the value _IONBF for mode.
* Returns: no value.
*/
extern _ARMABI int setvbuf(FILE * __restrict /*stream*/,
char * __restrict /*buf*/,
int /*mode*/, size_t /*size*/) __attribute__((__nonnull__(1)));
/*
* may be used after the stream pointed to by stream has been associated
* with an open file but before it is read or written. The argument mode
* determines how stream will be buffered, as follows: _IOFBF causes
* input/output to be fully buffered; _IOLBF causes output to be line
* buffered (the buffer will be flushed when a new-line character is
* written, when the buffer is full, or when input is requested); _IONBF
* causes input/output to be completely unbuffered. If buf is not the null
* pointer, the array it points to may be used instead of an automatically
* allocated buffer (the buffer must have a lifetime at least as great as
* the open stream, so the stream should be closed before a buffer that has
* automatic storage duration is deallocated upon block exit). The argument
* size specifies the size of the array. The contents of the array at any
* time are indeterminate.
* Returns: zero on success, or nonzero if an invalid value is given for
* mode or size, or if the request cannot be honoured.
*/
extern _ARMABI size_t fread(void * ptr /*ptr*/,
size_t size/*size*/, size_t nmemb/*nmemb*/, FILE * stream /*stream*/)
/*
* reads into the array pointed to by ptr, up to nmemb members whose size is
* specified by size, from the stream pointed to by stream. The file
* position indicator (if defined) is advanced by the number of characters
* successfully read. If an error occurs, the resulting value of the file
* position indicator is indeterminate. If a partial member is read, its
* value is indeterminate. The ferror or feof function shall be used to
* distinguish between a read error and end-of-file.
* Returns: the number of members successfully read, which may be less than
* nmemb if a read error or end-of-file is encountered. If size or
* nmemb is zero, fread returns zero and the contents of the array
* and the state of the stream remain unchanged.
*/
{
FRESULT result;
uint32_t br = 0;
FIL *fp;
fp = (FIL *)stream;
result = f_read(fp, ptr, nmemb, &br);
if (result == FR_OK)
{
return br;
}
return 0;
}
extern _ARMABI int setvbuf(FILE * __restrict /*stream*/,
char * __restrict /*buf*/,
int /*mode*/, size_t /*size*/) __attribute__((__nonnull__(1)));
/*
* may be used after the stream pointed to by stream has been associated
* with an open file but before it is read or written. The argument mode
* determines how stream will be buffered, as follows: _IOFBF causes
* input/output to be fully buffered; _IOLBF causes output to be line
* buffered (the buffer will be flushed when a new-line character is
* written, when the buffer is full, or when input is requested); _IONBF
* causes input/output to be completely unbuffered. If buf is not the null
* pointer, the array it points to may be used instead of an automatically
* allocated buffer (the buffer must have a lifetime at least as great as
* the open stream, so the stream should be closed before a buffer that has
* automatic storage duration is deallocated upon block exit). The argument
* size specifies the size of the array. The contents of the array at any
* time are indeterminate.
* Returns: zero on success, or nonzero if an invalid value is given for
* mode or size, or if the request cannot be honoured.
*/
extern _ARMABI size_t fwrite(const void * __restrict /*ptr*/,
size_t /*size*/, size_t /*nmemb*/, FILE * __restrict /*stream*/) __attribute__((__nonnull__(1,4)));
/*
* writes, from the array pointed to by ptr up to nmemb members whose size
* is specified by size, to the stream pointed to by stream. The file
* position indicator (if defined) is advanced by the number of characters
* successfully written. If an error occurs, the resulting value of the file
* position indicator is indeterminate.
* Returns: the number of members successfully written, which will be less
* than nmemb only if a write error is encountered.
*/
extern _ARMABI int fseek(FILE * /*stream*/, long int /*offset*/, int /*whence*/) __attribute__((__nonnull__(1)));
/*
* sets the file position indicator for the stream pointed to by stream.
* For a binary stream, the new position is at the signed number of
* characters specified by offset away from the point specified by whence.
* The specified point is the beginning of the file for SEEK_SET, the
* current position in the file for SEEK_CUR, or end-of-file for SEEK_END.
* A binary stream need not meaningfully support fseek calls with a whence
* value of SEEK_END.
* For a text stream, either offset shall be zero, or offset shall be a
* value returned by an earlier call to the ftell function on the same
* stream and whence shall be SEEK_SET.
* The fseek function clears the end-of-file indicator and undoes any
* effects of the ungetc function on the same stream. After an fseek call,
* the next operation on an update stream may be either input or output.
* Returns: nonzero only for a request that cannot be satisfied.
*/
_ARMABI int fseek(FILE *stream, long int offset, int whence)
{
return 0;
}
extern _ARMABI long int ftell(FILE * /*stream*/) __attribute__((__nonnull__(1)));
/*
* obtains the current value of the file position indicator for the stream
* pointed to by stream. For a binary stream, the value is the number of
* characters from the beginning of the file. For a text stream, the file
* position indicator contains unspecified information, usable by the fseek
* function for returning the file position indicator to its position at the
* time of the ftell call; the difference between two such return values is
* not necessarily a meaningful measure of the number of characters written
* or read.
* Returns: if successful, the current value of the file position indicator.
* On failure, the ftell function returns -1L and sets the integer
* expression errno to an implementation-defined nonzero value.
*/
_ARMABI long int ftell(FILE *stream)
{
FIL *fp;
fp = (FIL *)stream;
return fp->fptr;
}
extern _ARMABI void clearerr(FILE * /*stream*/) __attribute__((__nonnull__(1)));
/*
* clears the end-of-file and error indicators for the stream pointed to by
* stream. These indicators are cleared only when the file is opened or by
* an explicit call to the clearerr function or to the rewind function.
* Returns: no value.
*/
void clearerr(FILE *stream)
{
FIL *fp;
fp = (FIL *)stream;
fp->err = 0;
}
extern _ARMABI int feof(FILE * /*stream*/) __attribute__((__nonnull__(1)));
/*
* tests the end-of-file indicator for the stream pointed to by stream.
* Returns: nonzero iff the end-of-file indicator is set for stream.
*/
_ARMABI int feof(FILE *stream)
{
FIL *fp;
fp = (FIL *)stream;
if (fp->fptr >= fp->obj.objsize)
{
return 1;
}
return 0;
}
extern _ARMABI int ferror(FILE * /*stream*/) __attribute__((__nonnull__(1)));
/*
* tests the error indicator for the stream pointed to by stream.
* Returns: nonzero iff the error indicator is set for stream.
*/
_ARMABI int ferror(FILE *stream)
{
FIL *fp;
fp = (FIL *)stream;
return fp->err;
}
/*
*********************************************************************************************************
* 函 数 名: fgetc
* 功能说明: 重定义getc函数，这样可以使用getchar函数从串口1输入数据
* 形 参: 无
* 返 回 值: 无
*********************************************************************************************************
*/
int fgetc(FILE *f)
{
if (f == &__stdin)
{
return 0;
}
else /* 文件操作， lua dofile()会执行这个分支 */
{
FRESULT result;
uint32_t br = 0;
FIL *fp;
char buf[2];
fp = (FIL *)f;
result = f_read(fp, buf, 1, &br);
if (result == FR_OK)
{
return buf[0];
}
return 0;
}
}
/*
*********************************************************************************************************
* 函 数 名: fputc
* 功能说明: 重定义putc函数，这样可以使用printf函数从串口1打印输出
* 形 参: 无
* 返 回 值: 无
*********************************************************************************************************
*/
int fputc(int ch, FILE *f)
{
HAL_UART_Transmit(&huart1, (uint8_t *)&ch, 1, 0xFFFF);
return 0;
}
time_t time(time_t *timer)
{
return HAL_GetTick();
}
void exit(int status)
{
// return 1;
}
int system(const char *filename)
{
return 0;
}
测试方法：
main.c 中添加
/* USER CODE BEGIN 0 */
static int lua_led_on(lua_State *L)
{
HAL_GPIO_WritePin(LEDG_GPIO_Port, LEDG_Pin, GPIO_PIN_SET);
return 1;
}
static int lua_led_off(lua_State *L)
{
HAL_GPIO_WritePin(LEDG_GPIO_Port, LEDG_Pin, GPIO_PIN_RESET);
return 1;
}
static int lua_delay(lua_State *L)
{
int num;
num = lua_tointeger(L, 1);
HAL_Delay(num);
return 1;
}
static const struct luaL_Reg mylib[] =
{
{"led_on", lua_led_on},
{"led_off", lua_led_off},
{"delay", lua_delay},
{NULL, NULL}};
void Lua_Test(void)
{
lua_State *L;
L = luaL_newstate(); /* 建立Lua运行环境 */
//luaL_openlibs(L); //
luaopen_base(L); //注册基础函数
luaL_setfuncs(L, mylib, 0); //注册自定义函数
//文件程序自动执行，已测试OK
char strProgramName[] = "0:/lua.lua";
if (luaL_dofile(L, strProgramName))
printf("Lua文件错误或不存在!\r\n");
lua_close(L);/* 关闭Lua 并释放内存 */
}
/* USER CODE END 0 */
main函数中添加:
int main(void)
{
/* USER CODE BEGIN 1 */
uint32_t cnt =0;
/* USER CODE END 1 */
/* MCU Configuration--------------------------------------------------------*/
/* Reset of all peripherals, Initializes the Flash interface and the Systick. */
HAL_Init();
/* USER CODE BEGIN Init */
/* USER CODE END Init */
/* Configure the system clock */
SystemClock_Config();
/* USER CODE BEGIN SysInit */
MX_GPIO_Init();
MX_USART1_UART_Init();
MX_FATFS_Init();
MX_QUADSPI_Init();
MX_SPI2_Init();
#if 0
/* usb初始化时会打断程序运行，需要根据实际使用情况修改 */
/* USER CODE END SysInit */
/* Initialize all configured peripherals */
MX_GPIO_Init();
MX_USART1_UART_Init();
MX_FATFS_Init();
MX_QUADSPI_Init();
MX_SPI2_Init();
MX_USB_DEVICE_Init();
/* USER CODE BEGIN 2 */
#endif
Lua_Test();
MX_USB_DEVICE_Init();
/* USER CODE END 2 */
/* Infinite loop */
/* USER CODE BEGIN WHILE */
while (1)
{
HAL_GPIO_TogglePin(LEDR_GPIO_Port, LEDR_Pin);
HAL_Delay(100);
cnt++;
if (cnt == 25)
{
printf("This is sram \r\n");
cnt = 0;
}
/* USER CODE END WHILE */
/* USER CODE BEGIN 3 */
}
/* USER CODE END 3 */
}
编译下载运行：
此时仅有 LEDR 快速闪烁,串口打印如下信息：
Lua文件错误或不存在!
This is sram
This is sram
同时PC上会提示发现u盘。
准备 lua.lua文件，内容如下：
(实现 LEDG 500ms闪烁 5次)
off = 500
on = 500
i = 0
while i < 5 do
i = i+1
led_on()
delay(off)
led_off()
delay(on)
end
将文件考入U盘。
重新上电后，即可看见运行效果，先 LEDG 闪烁 5次，然后 LEDR 开始快速闪烁。
至此移植完成。
标签：__,cubemx,stream,FA,int,LUA,mode,file,h750vb 来源： https://blog.csdn.net/qq_25626001/article/details/119345724
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。