hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added some pascal wrapper files
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-02-02 14:57:46 +09:00
parent a1f304bdef
commit d339338a40
17 changed files with 1022 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
bin/main.c
View File

@ -99,6 +99,7 @@ typedef struct xtn_t xtn_t;
struct xtn_t
{
const char* cci_path; /* main source file */
/*const char* udi_path; */ /* not implemented as of snow */
const char* udo_path;
int vm_running;
@ -503,7 +504,7 @@ static int feed_loop (hcl_t* hcl, xtn_t* xtn, int verbose)
int is_tty;
#if defined(_WIN32) && defined(__STDC_WANT_SECURE_LIB__)
errno_t err = fopen_s(&fp, xtn->cci_path, FOPEN_R_FLAGS);
errno_t err = fopen_s(&fp, xtn->cci_path, FOPEN_R_FLAGS);
if (err != 0)
{
hcl_logbfmt(hcl, HCL_LOG_STDERR, "ERROR: failed to open - %hs - %hs\n", xtn->cci_path, strerror(err));