mirror of
https://github.com/skywind3000/z.lua
synced 2026-03-14 11:49:48 +00:00
138 lines
3.1 KiB
C
138 lines
3.1 KiB
C
//=====================================================================
|
|
//
|
|
// czmod.c - c module to boost z.lua
|
|
//
|
|
// Created by skywind on 2020/03/11
|
|
// Last Modified: 2020/03/11 16:37:01
|
|
//
|
|
//=====================================================================
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <unistd.h>
|
|
#include <stdint.h>
|
|
|
|
#ifdef __linux
|
|
#include <linux/limits.h>
|
|
#endif
|
|
|
|
#include "imembase.c"
|
|
|
|
|
|
//----------------------------------------------------------------------
|
|
// INLINE
|
|
//----------------------------------------------------------------------
|
|
#ifndef INLINE
|
|
#if defined(__GNUC__)
|
|
|
|
#if (__GNUC__ > 3) || ((__GNUC__ == 3) && (__GNUC_MINOR__ >= 1))
|
|
#define INLINE __inline__ __attribute__((always_inline))
|
|
#else
|
|
#define INLINE __inline__
|
|
#endif
|
|
|
|
#elif (defined(_MSC_VER) || defined(__WATCOMC__))
|
|
#define INLINE __inline
|
|
#else
|
|
#define INLINE
|
|
#endif
|
|
#endif
|
|
|
|
#if (!defined(__cplusplus)) && (!defined(inline))
|
|
#define inline INLINE
|
|
#endif
|
|
|
|
|
|
//---------------------------------------------------------------------
|
|
// internal functions
|
|
//---------------------------------------------------------------------
|
|
static const char *get_data_file(void);
|
|
|
|
|
|
//---------------------------------------------------------------------
|
|
// get environ
|
|
//---------------------------------------------------------------------
|
|
static ib_string* os_getenv(const char *name)
|
|
{
|
|
char *p = getenv(name);
|
|
if (p == NULL) {
|
|
return NULL;
|
|
}
|
|
ib_string *text = ib_string_new();
|
|
ib_string_assign(text, p);
|
|
return text;
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------
|
|
// get data file
|
|
//---------------------------------------------------------------------
|
|
static const char *get_data_file(void)
|
|
{
|
|
static ib_string *text = NULL;
|
|
if (text != NULL) {
|
|
return text->ptr;
|
|
}
|
|
text = os_getenv("_ZL_DATA");
|
|
if (text) {
|
|
return text->ptr;
|
|
}
|
|
text = os_getenv("HOME");
|
|
if (text == NULL) {
|
|
text = os_getenv("USERPROFILE");
|
|
}
|
|
if (text == NULL) {
|
|
return NULL;
|
|
}
|
|
ib_string_append(text, "/.zlua");
|
|
return text->ptr;
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------
|
|
// load file content
|
|
//---------------------------------------------------------------------
|
|
ib_string *load_content(const char *filename)
|
|
{
|
|
FILE *fp = fopen(filename, "r");
|
|
if (fp == NULL) {
|
|
return NULL;
|
|
}
|
|
ib_string *text = ib_string_new();
|
|
size_t block = 65536;
|
|
ib_string_resize(text, block);
|
|
size_t pos = 0;
|
|
while (feof(fp) == 0) {
|
|
size_t avail = text->size - pos;
|
|
if (avail < block) {
|
|
ib_string_resize(text, text->size + block);
|
|
avail = text->size - pos;
|
|
}
|
|
size_t hr = fread(&(text->ptr[pos]), 1, avail, fp);
|
|
pos += hr;
|
|
}
|
|
fclose(fp);
|
|
ib_string_resize(text, pos);
|
|
return text;
|
|
}
|
|
|
|
|
|
//---------------------------------------------------------------------
|
|
// main entry
|
|
//---------------------------------------------------------------------
|
|
int main(int argc, char *argv[])
|
|
{
|
|
if (argc <= 1) {
|
|
printf("Hello, World !!\n");
|
|
printf("data: %s\n", get_data_file());
|
|
return 0;
|
|
}
|
|
if (strcmp(argv[1], "--add") == 0) {
|
|
if (argc >= 3) {
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|