See changelog 2001-08-28 21:10 GMT -3
This commit is contained in:
Luiz Rafael Culik
@@ -1,3 +1,11 @@
|
||||
2001-08-28 21:10 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
|
||||
+ contrib/libct/files.c
|
||||
* CT3 compatible functions for Fileattr,fileseek,filedate,filetime,setfattr
|
||||
+ contrib/libct/temper.c
|
||||
* CT3 compatible functions Celcius e Fahrenheit
|
||||
*contrib/libct/Makefile
|
||||
Added temper.c and files.c
|
||||
|
||||
2001-08-28 19:21 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
|
||||
* contrib/os2pm/*.*
|
||||
* changes to every file to add menu creation capabilities
|
||||
|
||||
@@ -31,6 +31,7 @@ C_SOURCES = \
|
||||
ctcrypt.c \
|
||||
finan.c \
|
||||
justify.c \
|
||||
files.c \
|
||||
math.c \
|
||||
num1.c \
|
||||
numat.c \
|
||||
@@ -45,6 +46,7 @@ C_SOURCES = \
|
||||
strswap.c \
|
||||
token1.c \
|
||||
trig.c \
|
||||
temper.c \
|
||||
wordrepl.c \
|
||||
wordtoch.c \
|
||||
|
||||
|
||||
623
harbour/contrib/libct/files.c
Normal file
623
harbour/contrib/libct/files.c
Normal file
@@ -0,0 +1,623 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* FILESEEK,FILESIZE,FILEATTR,FILETIME,FILEDATE,SETFATTR CT3 files function
|
||||
*
|
||||
* Copyright 2001 Luiz Rafael Culik<culik@sl.conex.net>
|
||||
*
|
||||
* www - http://www.harbour-project.org
|
||||
*
|
||||
* 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, 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 software; see the file COPYING. If not, write to
|
||||
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
||||
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
||||
*
|
||||
* As a special exception, the Harbour Project gives permission for
|
||||
* additional uses of the text contained in its release of Harbour.
|
||||
*
|
||||
* The exception is that, if you link the Harbour libraries with other
|
||||
* files to produce an executable, this does not by itself cause the
|
||||
* resulting executable to be covered by the GNU General Public License.
|
||||
* Your use of that executable is in no way restricted on account of
|
||||
* linking the Harbour library code into it.
|
||||
*
|
||||
* This exception does not however invalidate any other reasons why
|
||||
* the executable file might be covered by the GNU General Public License.
|
||||
*
|
||||
* This exception applies only to the code released by the Harbour
|
||||
* Project under the name Harbour. If you copy code from other
|
||||
* Harbour Project or Free Software Foundation releases into a copy of
|
||||
* Harbour, as the General Public License permits, the exception does
|
||||
* not apply to the code that you add in this way. To avoid misleading
|
||||
* anyone as to the status of such modified files, you must delete
|
||||
* this exception notice from them.
|
||||
*
|
||||
* If you write modifications of your own for Harbour, it is your choice
|
||||
* whether to permit this exception to apply to your modifications.
|
||||
* If you do not wish that, delete this exception notice.
|
||||
*
|
||||
*/
|
||||
|
||||
#define HB_OS_WIN_32_USED
|
||||
#include <hbapi.h>
|
||||
#include <dir.h>
|
||||
|
||||
#if defined(HB_OS_DOS)
|
||||
static struct ffblk fsOldFiles;
|
||||
#endif
|
||||
#if defined(HB_OS_OS2) && defined(__GNUC__)
|
||||
|
||||
#include "hb_io.h"
|
||||
|
||||
#if defined(__EMX__)
|
||||
#include <emx/syscalls.h>
|
||||
#define gethostname __gethostname
|
||||
#endif
|
||||
|
||||
#define MAXGETHOSTNAME 256 /* should be enough for a host name */
|
||||
|
||||
#elif defined(HB_OS_DOS)
|
||||
|
||||
#if defined(__DJGPP__) || defined(__RSX32__)
|
||||
#include <sys/param.h>
|
||||
#endif
|
||||
#include "hb_io.h"
|
||||
#include "dos.h"
|
||||
|
||||
#endif
|
||||
#if defined(HB_OS_WIN_32)
|
||||
static HANDLE hLastFind;
|
||||
static WIN32_FIND_DATA Lastff32;
|
||||
LPTSTR GetDate(FILETIME *rTime);
|
||||
LPTSTR GetTime(FILETIME *rTime);
|
||||
#endif
|
||||
|
||||
|
||||
HB_FUNC(FILEATTR)
|
||||
{
|
||||
|
||||
#if defined(HB_OS_DOS)
|
||||
#if defined(__DJGPP__) || defined(__BORLANDC__)
|
||||
{
|
||||
char *szFile=hb_parc(1);
|
||||
int iAttri=0;
|
||||
|
||||
#if defined(__BORLANDC__) && (__BORLANDC__ >= 1280)
|
||||
/* NOTE: _chmod( f, 0 ) => Get attribs
|
||||
_chmod( f, 1, n ) => Set attribs
|
||||
chmod() though, _will_ change the attributes */
|
||||
iAttri = _rtl_chmod( szFile, 0, 0 );
|
||||
#elif defined(__BORLANDC__)
|
||||
iAttri = _chmod( szFile, 0, 0 );
|
||||
#elif defined(__DJGPP__)
|
||||
iAttri = _chmod( szFile, 0 );
|
||||
#endif
|
||||
hb_retni(iAttri);
|
||||
#endif
|
||||
}
|
||||
|
||||
#elif defined(HB_OS_WIN_32)
|
||||
{
|
||||
DWORD dAttr;
|
||||
|
||||
LPCTSTR cFile=hb_parc(1);
|
||||
dAttr=GetFileAttributes(cFile);
|
||||
hb_retnl(dAttr);
|
||||
}
|
||||
#else
|
||||
{
|
||||
hb_retnl(-1);
|
||||
}
|
||||
#endif
|
||||
|
||||
}
|
||||
|
||||
HB_FUNC(SETFATTR)
|
||||
{
|
||||
#if defined(HB_OS_DOS)
|
||||
#if defined(__DJGPP__) || defined(__BORLANDC__)
|
||||
{
|
||||
|
||||
int iFlags;
|
||||
int iReturn;
|
||||
const char *szFile=hb_parc(1);
|
||||
|
||||
if (ISNUM(2))
|
||||
iFlags=hb_parni(2);
|
||||
else
|
||||
iFlags=32;
|
||||
switch (iFlags)
|
||||
{
|
||||
case FA_RDONLY :
|
||||
iReturn=_chmod(szFile,1,FA_RDONLY);
|
||||
break;
|
||||
case FA_HIDDEN :
|
||||
iReturn=_chmod(szFile,1,FA_HIDDEN);
|
||||
break;
|
||||
case FA_SYSTEM :
|
||||
iReturn=_chmod(szFile,1,FA_SYSTEM);
|
||||
break;
|
||||
case (FA_ARCH) :
|
||||
iReturn=_chmod(szFile,1,FA_ARCH);
|
||||
break;
|
||||
case (FA_RDONLY|FA_ARCH) :
|
||||
iReturn=_chmod(szFile,1,FA_RDONLY|FA_ARCH);
|
||||
break;
|
||||
case (FA_RDONLY|FA_SYSTEM) :
|
||||
iReturn=_chmod(szFile,1,FA_RDONLY|FA_SYSTEM);
|
||||
break;
|
||||
case (FA_RDONLY|FA_HIDDEN) :
|
||||
iReturn=_chmod(szFile,1,FA_RDONLY|FA_HIDDEN);
|
||||
break;
|
||||
|
||||
case (FA_SYSTEM|FA_ARCH) :
|
||||
iReturn=_chmod(szFile,1,FA_SYSTEM|FA_ARCH);
|
||||
break;
|
||||
case (FA_SYSTEM|FA_HIDDEN) :
|
||||
iReturn=_chmod(szFile,1,FA_SYSTEM|FA_HIDDEN);
|
||||
break;
|
||||
case (FA_HIDDEN|FA_ARCH) :
|
||||
iReturn=_chmod(szFile,1,FA_HIDDEN|FA_ARCH);
|
||||
break;
|
||||
case (FA_RDONLY|FA_SYSTEM|FA_HIDDEN) :
|
||||
iReturn=_chmod(szFile,1,FA_RDONLY|FA_HIDDEN|FA_SYSTEM);
|
||||
break;
|
||||
|
||||
case (FA_RDONLY|FA_ARCH|FA_SYSTEM) :
|
||||
iReturn=_chmod(szFile,1,FA_RDONLY|FA_ARCH|FA_SYSTEM);
|
||||
break;
|
||||
case (FA_RDONLY|FA_ARCH|FA_HIDDEN) :
|
||||
iReturn=_chmod(szFile,1,FA_RDONLY|FA_ARCH|FA_HIDDEN);
|
||||
break;
|
||||
case (FA_RDONLY|FA_ARCH|FA_HIDDEN|FA_SYSTEM) :
|
||||
iReturn=_chmod(szFile,1,FA_RDONLY|FA_ARCH|FA_HIDDEN|FA_SYSTEM);
|
||||
break;
|
||||
}
|
||||
|
||||
hb_retni(iReturn);
|
||||
}
|
||||
#endif
|
||||
|
||||
#elif defined(HB_OS_WIN_32)
|
||||
{
|
||||
DWORD dwFlags=FILE_ATTRIBUTE_ARCHIVE;
|
||||
DWORD dwLastError=ERROR_SUCCESS;
|
||||
int iAttr;
|
||||
LPCTSTR cFile=hb_parc(1);
|
||||
BOOL lSuccess;
|
||||
if (ISNUM(2))
|
||||
iAttr=hb_parni(2);
|
||||
if( iAttr & FA_RDONLY )
|
||||
dwFlags |= FILE_ATTRIBUTE_READONLY;
|
||||
|
||||
if( iAttr & FA_HIDDEN )
|
||||
dwFlags |= FILE_ATTRIBUTE_HIDDEN;
|
||||
|
||||
if( iAttr & FA_SYSTEM )
|
||||
dwFlags |= FILE_ATTRIBUTE_SYSTEM;
|
||||
if( iAttr & FA_NORMAL )
|
||||
dwFlags |= FILE_ATTRIBUTE_NORMAL;
|
||||
lSuccess=SetFileAttributes(cFile,dwFlags);
|
||||
if (lSuccess)
|
||||
hb_retni(dwLastError);
|
||||
else {
|
||||
dwLastError=GetLastError();
|
||||
switch (dwLastError) {
|
||||
case ERROR_FILE_NOT_FOUND :
|
||||
hb_retni(-2);
|
||||
break;
|
||||
case ERROR_PATH_NOT_FOUND :
|
||||
hb_retni(-3);
|
||||
break;
|
||||
case ERROR_ACCESS_DENIED:
|
||||
hb_retni(-5);
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
#else
|
||||
{
|
||||
hb_retnl(-1);
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
HB_FUNC(FILESEEK)
|
||||
{
|
||||
|
||||
#if defined(HB_OS_WIN_32)
|
||||
{
|
||||
LPCTSTR szFile;
|
||||
DWORD dwFlags=FILE_ATTRIBUTE_ARCHIVE;
|
||||
int iAttr;
|
||||
if (hb_pcount() >=1){
|
||||
szFile=hb_parc(1);
|
||||
if (ISNUM(2)) {
|
||||
iAttr=hb_parnl(2);}
|
||||
else{
|
||||
iAttr=63;
|
||||
}
|
||||
if( iAttr & FA_RDONLY )
|
||||
dwFlags |= FILE_ATTRIBUTE_READONLY;
|
||||
|
||||
if( iAttr & FA_HIDDEN )
|
||||
dwFlags |= FILE_ATTRIBUTE_HIDDEN;
|
||||
|
||||
if( iAttr & FA_SYSTEM )
|
||||
dwFlags |= FILE_ATTRIBUTE_SYSTEM;
|
||||
if( iAttr & FA_NORMAL )
|
||||
dwFlags |= FILE_ATTRIBUTE_NORMAL;
|
||||
|
||||
hLastFind = FindFirstFile(szFile,&Lastff32);
|
||||
if (hLastFind != INVALID_HANDLE_VALUE){
|
||||
hb_retc(Lastff32.cFileName);
|
||||
}
|
||||
|
||||
}
|
||||
else {
|
||||
if (FindNextFile(hLastFind,&Lastff32))
|
||||
hb_retc(Lastff32.cFileName);
|
||||
else {
|
||||
FindClose(hLastFind);
|
||||
hLastFind=NULL;
|
||||
}
|
||||
}
|
||||
}
|
||||
#elif defined(HB_OS_DOS)
|
||||
{
|
||||
int iFind;
|
||||
char *szFiles;
|
||||
int iAttr;
|
||||
if (hb_pcount()>=1)
|
||||
{
|
||||
szFiles=hb_parc(1);
|
||||
if(ISNUM(2)){
|
||||
iAttr=hb_parnl(2);
|
||||
}
|
||||
else{
|
||||
iAttr=32;
|
||||
}
|
||||
iFind=findfirst(szFiles,&fsOldFiles,iAttr);
|
||||
if (!iFind){
|
||||
hb_retc(fsOldFiles.ff_name);
|
||||
}
|
||||
}
|
||||
else {
|
||||
iFind=findnext(&fsOldFiles);
|
||||
if (!iFind)
|
||||
hb_retc(fsOldFiles.ff_name);
|
||||
#if !defined (__DJGPP__)
|
||||
else
|
||||
findclose(&fsOldFiles);
|
||||
#endif
|
||||
}
|
||||
}
|
||||
#else
|
||||
{
|
||||
hb_retc("");
|
||||
}
|
||||
#endif
|
||||
}
|
||||
HB_FUNC(FILESIZE)
|
||||
{
|
||||
|
||||
#if defined(HB_OS_WIN_32)
|
||||
{
|
||||
DWORD dwFileSize=0;
|
||||
LPCTSTR szFile;
|
||||
DWORD dwFlags=FILE_ATTRIBUTE_ARCHIVE;
|
||||
HANDLE hFind;
|
||||
WIN32_FIND_DATA hFilesFind;
|
||||
|
||||
int iAttr;
|
||||
if (hb_pcount() >=1){
|
||||
szFile=hb_parc(1);
|
||||
if (ISNUM(2)) {
|
||||
iAttr=hb_parnl(2);
|
||||
}
|
||||
else{
|
||||
iAttr=63;
|
||||
}
|
||||
if( iAttr & FA_RDONLY )
|
||||
dwFlags |= FILE_ATTRIBUTE_READONLY;
|
||||
|
||||
if( iAttr & FA_HIDDEN )
|
||||
dwFlags |= FILE_ATTRIBUTE_HIDDEN;
|
||||
|
||||
if( iAttr & FA_SYSTEM )
|
||||
dwFlags |= FILE_ATTRIBUTE_SYSTEM;
|
||||
if( iAttr & FA_NORMAL )
|
||||
dwFlags |= FILE_ATTRIBUTE_NORMAL;
|
||||
|
||||
hFind = FindFirstFile(szFile,&hFilesFind);
|
||||
if (hFind != INVALID_HANDLE_VALUE){
|
||||
if (dwFlags & hFilesFind.dwFileAttributes) {
|
||||
if(hFilesFind.nFileSizeHigh>0)
|
||||
hb_retnl((hFilesFind.nFileSizeHigh*MAXDWORD)+hFilesFind.nFileSizeLow);
|
||||
else
|
||||
hb_retnl(hFilesFind.nFileSizeLow);
|
||||
}
|
||||
else
|
||||
hb_retnl(-1);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
else
|
||||
{
|
||||
if(Lastff32.nFileSizeHigh>0)
|
||||
dwFileSize=(Lastff32.nFileSizeHigh*MAXDWORD)+Lastff32.nFileSizeLow;
|
||||
else
|
||||
dwFileSize=Lastff32.nFileSizeLow;
|
||||
hb_retnl(dwFileSize);
|
||||
}
|
||||
}
|
||||
#elif defined(HB_OS_DOS)
|
||||
{
|
||||
int iFind;
|
||||
if (hb_pcount() >0) {
|
||||
char *szFiles=hb_parc(1);
|
||||
int iAttr=0 ;
|
||||
struct ffblk fsFiles;
|
||||
if (ISNUM(2))
|
||||
iAttr=hb_parni(2);
|
||||
iFind=findfirst(szFiles,&fsFiles,iAttr);
|
||||
if (!iFind)
|
||||
if ((iAttr>0) & (iAttr&fsFiles.ff_attrib))
|
||||
hb_retnl(fsFiles.ff_fsize);
|
||||
else
|
||||
hb_retnl(fsFiles.ff_fsize);
|
||||
else
|
||||
hb_retnl(-1);
|
||||
}
|
||||
else
|
||||
{
|
||||
hb_retnl(fsOldFiles.ff_fsize);
|
||||
}
|
||||
}
|
||||
#else
|
||||
{
|
||||
hb_retl(-1);
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
HB_FUNC(FILEDATE)
|
||||
{
|
||||
|
||||
#if defined(HB_OS_WIN_32)
|
||||
{
|
||||
LPCTSTR szFile;
|
||||
DWORD dwFlags=FILE_ATTRIBUTE_ARCHIVE;
|
||||
HANDLE hFind;
|
||||
WIN32_FIND_DATA hFilesFind;
|
||||
|
||||
int iAttr;
|
||||
if (hb_pcount() >=1){
|
||||
szFile=hb_parc(1);
|
||||
if (ISNUM(2)) {
|
||||
iAttr=hb_parnl(2);
|
||||
}
|
||||
else{
|
||||
iAttr=63;
|
||||
}
|
||||
if( iAttr & FA_RDONLY )
|
||||
dwFlags |= FILE_ATTRIBUTE_READONLY;
|
||||
|
||||
if( iAttr & FA_HIDDEN )
|
||||
dwFlags |= FILE_ATTRIBUTE_HIDDEN;
|
||||
|
||||
if( iAttr & FA_SYSTEM )
|
||||
dwFlags |= FILE_ATTRIBUTE_SYSTEM;
|
||||
if( iAttr & FA_NORMAL )
|
||||
dwFlags |= FILE_ATTRIBUTE_NORMAL;
|
||||
|
||||
hFind = FindFirstFile(szFile,&hFilesFind);
|
||||
if (hFind != INVALID_HANDLE_VALUE)
|
||||
if (dwFlags & hFilesFind.dwFileAttributes)
|
||||
hb_retds(GetDate(&hFilesFind.ftLastWriteTime));
|
||||
else
|
||||
hb_retds(GetDate(&hFilesFind.ftLastWriteTime));
|
||||
|
||||
else
|
||||
hb_retds(" ");
|
||||
|
||||
|
||||
}
|
||||
|
||||
else {
|
||||
LPTSTR szDateString;
|
||||
szDateString=GetDate(&Lastff32.ftLastWriteTime);
|
||||
hb_retds(szDateString);
|
||||
|
||||
}
|
||||
}
|
||||
#elif defined(HB_OS_DOS)
|
||||
{
|
||||
int iFind;
|
||||
if (hb_pcount() >0) {
|
||||
char *szFiles=hb_parc(1);
|
||||
int iAttr=0 ;
|
||||
struct ffblk fsFiles;
|
||||
if (ISNUM(2))
|
||||
iAttr=hb_parni(2);
|
||||
iFind=findfirst(szFiles,&fsFiles,iAttr);
|
||||
if (!iFind)
|
||||
if ((iAttr>0) & (iAttr&fsFiles.ff_attrib))
|
||||
hb_retd( (long) (fsFiles.ff_fdate >> 9) +1980 , (long) ((fsFiles.ff_fdate & ~0xFE00) >> 5) ,(long)fsFiles.ff_fdate & ~0xFFE0);
|
||||
else
|
||||
hb_retd( (long) (fsFiles.ff_fdate >> 9) +1980 , (long) ((fsFiles.ff_fdate & ~0xFE00) >> 5) ,(long)fsFiles.ff_fdate & ~0xFFE0);
|
||||
else
|
||||
hb_retds(" ");
|
||||
}
|
||||
else
|
||||
hb_retd( (long) (fsOldFiles.ff_fdate >> 9) +1980 , (long) ((fsOldFiles.ff_fdate & ~0xFE00) >> 5) ,(long)fsOldFiles.ff_fdate & ~0xFFE0);
|
||||
}
|
||||
#else
|
||||
{
|
||||
hb_retds(" ");
|
||||
}
|
||||
#endif
|
||||
}
|
||||
HB_FUNC(FILETIME)
|
||||
{
|
||||
|
||||
#if defined(HB_OS_WIN_32)
|
||||
{
|
||||
LPTSTR szDateString;
|
||||
LPCTSTR szFile;
|
||||
DWORD dwFlags=FILE_ATTRIBUTE_ARCHIVE;
|
||||
HANDLE hFind;
|
||||
WIN32_FIND_DATA hFilesFind;
|
||||
|
||||
int iAttr;
|
||||
if (hb_pcount() >=1){
|
||||
szFile=hb_parc(1);
|
||||
if (ISNUM(2)) {
|
||||
iAttr=hb_parnl(2);
|
||||
}
|
||||
else{
|
||||
iAttr=63;
|
||||
}
|
||||
if( iAttr & FA_RDONLY )
|
||||
dwFlags |= FILE_ATTRIBUTE_READONLY;
|
||||
|
||||
if( iAttr & FA_HIDDEN )
|
||||
dwFlags |= FILE_ATTRIBUTE_HIDDEN;
|
||||
|
||||
if( iAttr & FA_SYSTEM )
|
||||
dwFlags |= FILE_ATTRIBUTE_SYSTEM;
|
||||
if( iAttr & FA_NORMAL )
|
||||
dwFlags |= FILE_ATTRIBUTE_NORMAL;
|
||||
|
||||
hFind = FindFirstFile(szFile,&hFilesFind);
|
||||
if (hFind != INVALID_HANDLE_VALUE)
|
||||
if (dwFlags & hFilesFind.dwFileAttributes)
|
||||
hb_retc(GetTime(&hFilesFind.ftLastWriteTime));
|
||||
else
|
||||
hb_retc(GetTime(&hFilesFind.ftLastWriteTime));
|
||||
|
||||
else
|
||||
hb_retc(" : ");
|
||||
|
||||
|
||||
}
|
||||
|
||||
else {
|
||||
szDateString=GetTime(&Lastff32.ftLastWriteTime);
|
||||
|
||||
hb_retc(szDateString);
|
||||
}
|
||||
}
|
||||
|
||||
#elif defined(HB_OS_DOS)
|
||||
{
|
||||
|
||||
char szTime[7];
|
||||
int iFind;
|
||||
if (hb_pcount() >0) {
|
||||
char *szFiles=hb_parc(1);
|
||||
int iAttr=0 ;
|
||||
struct ffblk fsFiles;
|
||||
if (ISNUM(2))
|
||||
iAttr=hb_parni(2);
|
||||
iFind=findfirst(szFiles,&fsFiles,iAttr);
|
||||
if (!iFind){
|
||||
if ((iAttr>0) & (iAttr&fsFiles.ff_attrib))
|
||||
sprintf(szTime,"%2.2u:%2.2u",(fsFiles.ff_ftime >> 11) & 0x1f,(fsFiles.ff_ftime>> 5) & 0x3f);
|
||||
else
|
||||
sprintf(szTime,"%2.2u:%2.2u",(fsFiles.ff_ftime >> 11) & 0x1f,(fsFiles.ff_ftime>> 5) & 0x3f);
|
||||
hb_retc(szTime);
|
||||
}
|
||||
|
||||
else
|
||||
hb_retc(" : ");
|
||||
}
|
||||
else {
|
||||
sprintf(szTime,"%2.2u:%2.2u",(fsOldFiles.ff_ftime >> 11) & 0x1f,(fsOldFiles.ff_ftime>> 5) & 0x3f);
|
||||
hb_retc(szTime);
|
||||
}
|
||||
}
|
||||
#else
|
||||
{
|
||||
hb_retc(" : ");
|
||||
}
|
||||
#endif
|
||||
|
||||
}
|
||||
|
||||
#if defined(HB_OS_WIN_32)
|
||||
|
||||
#include <tchar.h>
|
||||
|
||||
LPTSTR GetDate(FILETIME *rTime)
|
||||
{
|
||||
static const LPTSTR tszFormat = "yyyyMMdd";
|
||||
FILETIME ft;
|
||||
int iSize;
|
||||
if (FileTimeToLocalFileTime(rTime, &ft))
|
||||
{
|
||||
SYSTEMTIME time;
|
||||
if (FileTimeToSystemTime(&ft, &time))
|
||||
{
|
||||
|
||||
if ( iSize = GetDateFormat(NULL, 0, &time, tszFormat, NULL, 0))
|
||||
{
|
||||
LPTSTR tszDateString;
|
||||
if ( tszDateString = (LPTSTR)malloc(iSize+sizeof(TCHAR)))
|
||||
{
|
||||
if (GetDateFormat(NULL, 0, &time, tszFormat, tszDateString, iSize))
|
||||
return tszDateString;
|
||||
free(tszDateString);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return NULL;
|
||||
}
|
||||
|
||||
LPTSTR GetTime(FILETIME *rTime)
|
||||
{
|
||||
static const LPTSTR tszFormat = "HH':'mm";/*_T("MM'\\'dd'\\'yyyy");*/
|
||||
FILETIME ft;
|
||||
|
||||
if (FileTimeToLocalFileTime(rTime, &ft))
|
||||
{
|
||||
SYSTEMTIME time;
|
||||
if (FileTimeToSystemTime(&ft, &time))
|
||||
{
|
||||
int iSize;
|
||||
if ( iSize = GetTimeFormat(NULL, 0, &time, tszFormat, NULL, 0))
|
||||
{
|
||||
LPTSTR tszDateString;
|
||||
if ( tszDateString = (LPTSTR)malloc(iSize+sizeof(TCHAR)))
|
||||
{
|
||||
if (GetTimeFormat(NULL, 0, &time, tszFormat, tszDateString, iSize))
|
||||
return tszDateString;
|
||||
free(tszDateString);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return NULL;
|
||||
}
|
||||
|
||||
|
||||
|
||||
#endif
|
||||
67
harbour/contrib/libct/temper.c
Normal file
67
harbour/contrib/libct/temper.c
Normal file
@@ -0,0 +1,67 @@
|
||||
/*
|
||||
* $Id$
|
||||
*/
|
||||
|
||||
/*
|
||||
* Harbour Project source code:
|
||||
* Celsius() and FAHRENHEIT() CT3 function
|
||||
*
|
||||
* Copyright 2001 Luiz Rafael Culik<culik@sl.conex.net>
|
||||
*
|
||||
* www - http://www.harbour-project.org
|
||||
*
|
||||
* 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, 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 software; see the file COPYING. If not, write to
|
||||
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
||||
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
||||
*
|
||||
* As a special exception, the Harbour Project gives permission for
|
||||
* additional uses of the text contained in its release of Harbour.
|
||||
*
|
||||
* The exception is that, if you link the Harbour libraries with other
|
||||
* files to produce an executable, this does not by itself cause the
|
||||
* resulting executable to be covered by the GNU General Public License.
|
||||
* Your use of that executable is in no way restricted on account of
|
||||
* linking the Harbour library code into it.
|
||||
*
|
||||
* This exception does not however invalidate any other reasons why
|
||||
* the executable file might be covered by the GNU General Public License.
|
||||
*
|
||||
* This exception applies only to the code released by the Harbour
|
||||
* Project under the name Harbour. If you copy code from other
|
||||
* Harbour Project or Free Software Foundation releases into a copy of
|
||||
* Harbour, as the General Public License permits, the exception does
|
||||
* not apply to the code that you add in this way. To avoid misleading
|
||||
* anyone as to the status of such modified files, you must delete
|
||||
* this exception notice from them.
|
||||
*
|
||||
* If you write modifications of your own for Harbour, it is your choice
|
||||
* whether to permit this exception to apply to your modifications.
|
||||
* If you do not wish that, delete this exception notice.
|
||||
*
|
||||
*/
|
||||
|
||||
#define HB_OS_WIN_32_USED
|
||||
#include "hbapi.h"
|
||||
#include "hbmath.h"
|
||||
|
||||
HB_FUNC(CELSIUS)
|
||||
{
|
||||
double dFarhrenheit=hb_parnd(1);
|
||||
hb_retnd(((5*dFarhrenheit)-(5*32))/9);
|
||||
}
|
||||
HB_FUNC(FAHRENHEIT)
|
||||
{
|
||||
double dCelsius=hb_parnd(1);
|
||||
hb_retnd(((9*dCelsius)+(5*32))/5);
|
||||
}
|
||||
Reference in New Issue
Block a user