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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2007-02-17 15:27:19 +00:00
parent 117e5e7805
commit db6b46b0a9
6 changed files with 37 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.327 2007-02-12 03:10:48 bacon Exp $ * $Id: run.c,v 1.328 2007-02-17 15:26:58 bacon Exp $
* *
* {License} * {License}
*/ */
@ -6483,6 +6483,8 @@ ase_char_t* ase_awk_format (
ASE_T("%ld"), (long)width ASE_T("%ld"), (long)width
#elif ASE_SIZEOF_INT > 0 #elif ASE_SIZEOF_INT > 0
ASE_T("%d"), (int)width ASE_T("%d"), (int)width
#else
#error unsupported size
#endif #endif
); );
if (n == -1) if (n == -1)

4
ase/awk/val.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: val.c,v 1.107 2007-02-03 10:51:14 bacon Exp $ * $Id: val.c,v 1.108 2007-02-17 15:26:58 bacon Exp $
* *
* {License} * {License}
*/ */
@ -786,7 +786,7 @@ void ase_awk_dprintval (ase_awk_run_t* run, ase_awk_val_t* val)
__DPRINTF (ASE_T("%d"), __DPRINTF (ASE_T("%d"),
(int)((ase_awk_val_int_t*)val)->val); (int)((ase_awk_val_int_t*)val)->val);
#else #else
#error unsupported integer size #error unsupported size
#endif #endif
break; break;

3
ase/lsp/descrip.mms
View File

@ -8,7 +8,8 @@ CFLAGS = /include="../.."
#CFLAGS = /pointer_size=long /include="../.." #CFLAGS = /pointer_size=long /include="../.."
aselsp.olb : $(objects) aselsp.olb : $(objects)
$(LIBR)/create $(MMS$TARGET) $(objects) $(LIBR)/create $(MMS$TARGET) *.obj
# $(LIBR)/create $(MMS$TARGET) $(objects)
lsp.obj depends_on lsp.c lsp.obj depends_on lsp.c
name.obj depends_on name.c name.obj depends_on name.c

10
ase/lsp/eval.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: eval.c,v 1.26 2007-02-11 07:36:54 bacon Exp $ * $Id: eval.c,v 1.27 2007-02-17 15:27:19 bacon Exp $
* *
* {License} * {License}
*/ */
@ -45,7 +45,7 @@ ase_lsp_obj_t* ase_lsp_eval (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
{ {
if (lsp->opt_undef_symbol) if (lsp->opt_undef_symbol)
{ {
ase_char_t* arg[1]; const ase_char_t* arg[1];
arg[0] = ASE_LSP_SYMPTR(obj); arg[0] = ASE_LSP_SYMPTR(obj);
@ -138,7 +138,7 @@ static ase_lsp_obj_t* eval_cons (ase_lsp_t* lsp, ase_lsp_obj_t* cons)
if (func == ASE_NULL) if (func == ASE_NULL)
{ {
/* the symbol's function definition is void */ /* the symbol's function definition is void */
ase_char_t* arg[1]; const ase_char_t* arg[1];
arg[0] = ASE_LSP_SYMPTR(car); arg[0] = ASE_LSP_SYMPTR(car);
ase_lsp_seterror ( ase_lsp_seterror (
@ -160,7 +160,7 @@ static ase_lsp_obj_t* eval_cons (ase_lsp_t* lsp, ase_lsp_obj_t* cons)
} }
else else
{ {
ase_char_t* arg[1]; const ase_char_t* arg[1];
arg[0] = ASE_LSP_SYMPTR(car); arg[0] = ASE_LSP_SYMPTR(car);
ase_lsp_seterror ( ase_lsp_seterror (
@ -172,7 +172,7 @@ static ase_lsp_obj_t* eval_cons (ase_lsp_t* lsp, ase_lsp_obj_t* cons)
} }
else else
{ {
ase_char_t* arg[1]; const ase_char_t* arg[1];
arg[0] = ASE_LSP_SYMPTR(car); arg[0] = ASE_LSP_SYMPTR(car);
ase_lsp_seterror ( ase_lsp_seterror (

18
ase/lsp/obj.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: obj.h,v 1.16 2007-02-03 10:51:53 bacon Exp $ * $Id: obj.h,v 1.17 2007-02-17 15:27:19 bacon Exp $
* *
* {License} * {License}
*/ */
@ -80,7 +80,7 @@ struct ase_lsp_obj_real_t
struct ase_lsp_obj_sym_t struct ase_lsp_obj_sym_t
{ {
ase_lsp_objhdr_t hdr; ase_lsp_objhdr_t hdr;
#if !defined(__BORLANDC__) && !defined(_MSC_VER) #if defined(__GNUC__)
ase_char_t buffer[0]; ase_char_t buffer[0];
#endif #endif
}; };
@ -88,7 +88,7 @@ struct ase_lsp_obj_sym_t
struct ase_lsp_obj_str_t struct ase_lsp_obj_str_t
{ {
ase_lsp_objhdr_t hdr; ase_lsp_objhdr_t hdr;
#if !defined(__BORLANDC__) && !defined(_MSC_VER) #if defined(__GNUC__)
ase_char_t buffer[0]; ase_char_t buffer[0];
#endif #endif
}; };
@ -134,17 +134,17 @@ struct ase_lsp_obj_prim_t
#define ASE_LSP_IVAL(x) (((ase_lsp_obj_int_t*)x)->value) #define ASE_LSP_IVAL(x) (((ase_lsp_obj_int_t*)x)->value)
#define ASE_LSP_RVAL(x) (((ase_lsp_obj_real_t*)x)->value) #define ASE_LSP_RVAL(x) (((ase_lsp_obj_real_t*)x)->value)
#if defined(__BORLANDC__) || defined(_MSC_VER) #if defined(__GNUC__)
#define ASE_LSP_SYMPTR(x) ((ase_char_t*)(((ase_lsp_obj_sym_t*)x) + 1)) #define ASE_LSP_SYMPTR(x) (((ase_lsp_obj_sym_t*)x)->buffer)
#else #else
#define ASE_LSP_SYMPTR(x) (((ase_lsp_obj_sym_t*)x)->buffer) #define ASE_LSP_SYMPTR(x) ((ase_char_t*)(((ase_lsp_obj_sym_t*)x) + 1))
#endif #endif
#define ASE_LSP_SYMLEN(x) ((((ase_lsp_obj_sym_t*)x)->hdr.size - sizeof(ase_lsp_obj_t)) / sizeof(ase_char_t) - 1) #define ASE_LSP_SYMLEN(x) ((((ase_lsp_obj_sym_t*)x)->hdr.size - sizeof(ase_lsp_obj_t)) / sizeof(ase_char_t) - 1)
#if defined(__BORLANDC__) || defined(_MSC_VER) #if defined(__GNUC__)
#define ASE_LSP_STRPTR(x) ((ase_char_t*)(((ase_lsp_obj_str_t*)x) + 1)) #define ASE_LSP_STRPTR(x) (((ase_lsp_obj_str_t*)x)->buffer)
#else #else
#define ASE_LSP_STRPTR(x) (((ase_lsp_obj_str_t*)x)->buffer) #define ASE_LSP_STRPTR(x) ((ase_char_t*)(((ase_lsp_obj_str_t*)x) + 1))
#endif #endif
#define ASE_LSP_STRLEN(x) ((((ase_lsp_obj_str_t*)x)->hdr.size - sizeof(ase_lsp_obj_t)) / sizeof(ase_char_t) - 1) #define ASE_LSP_STRLEN(x) ((((ase_lsp_obj_str_t*)x)->hdr.size - sizeof(ase_lsp_obj_t)) / sizeof(ase_char_t) - 1)

26
ase/lsp/print.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: print.c,v 1.23 2007-02-13 06:00:20 bacon Exp $ * $Id: print.c,v 1.24 2007-02-17 15:27:19 bacon Exp $
* *
* {License} * {License}
*/ */
@ -43,18 +43,24 @@ static int __print (ase_lsp_t* lsp, const ase_lsp_obj_t* obj, ase_bool_t prt_con
break; break;
case ASE_LSP_OBJ_INT: case ASE_LSP_OBJ_INT:
#if defined(__BORLANDC__) || defined(_MSC_VER) #if ASE_SIZEOF_LONG_LONG > 0
lsp->prmfns.sprintf (
buf, ASE_COUNTOF(buf),
ASE_T("%I64d"), (__int64)ASE_LSP_IVAL(obj));
#elif defined(vax) || defined(__vax) || defined(_SCO_DS)
lsp->prmfns.sprintf (
buf, ASE_COUNTOF(buf),
ASE_T("%ld"), (long)ASE_LSP_IVAL(obj));
#else
lsp->prmfns.sprintf ( lsp->prmfns.sprintf (
buf, ASE_COUNTOF(buf), buf, ASE_COUNTOF(buf),
ASE_T("%lld"), (long long)ASE_LSP_IVAL(obj)); ASE_T("%lld"), (long long)ASE_LSP_IVAL(obj));
#elif ASE_SIZEOF___INT64 > 0
lsp->prmfns.sprintf (
buf, ASE_COUNTOF(buf),
ASE_T("%I64d"), (__int64)ASE_LSP_IVAL(obj));
#elif ASE_SIZEOF_LONG > 0
lsp->prmfns.sprintf (
buf, ASE_COUNTOF(buf),
ASE_T("%ld"), (long)ASE_LSP_IVAL(obj));
#elif ASE_SIZEOF_INT > 0
lsp->prmfns.sprintf (
buf, ASE_COUNTOF(buf),
ASE_T("%d"), (int)ASE_LSP_IVAL(obj));
#else
#error unsupported size
#endif #endif
OUTPUT_STR (lsp, buf); OUTPUT_STR (lsp, buf);
break; break;