mirror of
https://github.com/nunuhara/xsystem4.git
synced 2026-10-05 21:37:59 +03:00
100 lines
2.4 KiB
C
100 lines
2.4 KiB
C
/* Copyright (C) 2019 Nunuhara Cabbage <nunuhara@haniwa.technology>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, see <http://gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include <errno.h>
|
|
#include <string.h>
|
|
#include <time.h>
|
|
#include <sys/stat.h>
|
|
#include "hll.h"
|
|
#include "../system4.h"
|
|
|
|
//int Open(string szName, int nType)
|
|
hll_unimplemented(File, Open);
|
|
//int Close()
|
|
hll_unimplemented(File, Close);
|
|
//int Read(ref struct pIVMStruct)
|
|
hll_unimplemented(File, Read);
|
|
//int Write(struct pIVMStruct)
|
|
hll_unimplemented(File, Write);
|
|
//int Copy(string szSrcName, string szDstName)
|
|
hll_unimplemented(File, Copy);
|
|
//int Delete(string szName)
|
|
hll_unimplemented(File, Delete);
|
|
|
|
/*
|
|
|
|
struct tagSaveDate {
|
|
int m_nYear;
|
|
int m_nMonth;
|
|
int m_nDay;
|
|
int m_nHour;
|
|
int m_nMinute;
|
|
int m_nSecond;
|
|
int m_nDayOfWeek;
|
|
};
|
|
|
|
*/
|
|
|
|
//int GetTime(string szName, ref struct pIVMStruct)
|
|
hll_defun(GetTime, args)
|
|
{
|
|
struct stat s;
|
|
char *path = unix_path(hll_string_ref(args[0].i)->text);
|
|
union vm_value *date = hll_struct_ref(args[1].i);
|
|
|
|
if (stat(path, &s) < 0) {
|
|
WARNING("stat failed: %s", strerror(errno));
|
|
hll_return(0);
|
|
}
|
|
|
|
struct tm *tm = localtime(&s.st_mtime);
|
|
if (!tm) {
|
|
WARNING("localtime failed: %s", strerror(errno));
|
|
hll_return(0);
|
|
}
|
|
|
|
date[0].i = tm->tm_year;
|
|
date[1].i = tm->tm_mon;
|
|
date[2].i = tm->tm_mday;
|
|
date[3].i = tm->tm_hour;
|
|
date[4].i = tm->tm_min;
|
|
date[5].i = tm->tm_sec;
|
|
date[6].i = tm->tm_wday;
|
|
|
|
hll_return(1);
|
|
}
|
|
|
|
//int SetFind(string szName)
|
|
hll_unimplemented(File, SetFind);
|
|
//int GetFind(ref string szName)
|
|
hll_unimplemented(File, GetFind);
|
|
//int MakeDirectory(string szName)
|
|
hll_unimplemented(File, MakeDirectory);
|
|
|
|
hll_deflib(File) {
|
|
hll_export(Open),
|
|
hll_export(Close),
|
|
hll_export(Read),
|
|
hll_export(Write),
|
|
hll_export(Copy),
|
|
hll_export(Delete),
|
|
hll_export(GetTime),
|
|
hll_export(SetFind),
|
|
hll_export(GetFind),
|
|
hll_export(MakeDirectory),
|
|
NULL
|
|
};
|