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

initial import

Browse Source
This commit is contained in:
hyung-hwan
2008-12-21 21:35:07 +00:00
parent 4c01ea1604
commit 4803bd861a
384 changed files with 24572 additions and 53621 deletions
Download Patch File Download Diff File Expand all files Collapse all files

180
qse/lib/lsp/aselsp.dsp
View File

@ -1,180 +0,0 @@
# Microsoft Developer Studio Project File - Name="aselsp" - Package Owner=<4>
# Microsoft Developer Studio Generated Build File, Format Version 6.00
# ** DO NOT EDIT **
# TARGTYPE "Win32 (x86) Static Library" 0x0104
CFG=aselsp - Win32 Debug
!MESSAGE This is not a valid makefile. To build this project using NMAKE,
!MESSAGE use the Export Makefile command and run
!MESSAGE
!MESSAGE NMAKE /f "aselsp.mak".
!MESSAGE
!MESSAGE You can specify a configuration when running NMAKE
!MESSAGE by defining the macro CFG on the command line. For example:
!MESSAGE
!MESSAGE NMAKE /f "aselsp.mak" CFG="aselsp - Win32 Debug"
!MESSAGE
!MESSAGE Possible choices for configuration are:
!MESSAGE
!MESSAGE "aselsp - Win32 Release" (based on "Win32 (x86) Static Library")
!MESSAGE "aselsp - Win32 Debug" (based on "Win32 (x86) Static Library")
!MESSAGE
# Begin Project
# PROP AllowPerConfigDependencies 0
# PROP Scc_ProjName ""
# PROP Scc_LocalPath ""
CPP=cl.exe
RSC=rc.exe
!IF "$(CFG)" == "aselsp - Win32 Release"
# PROP BASE Use_MFC 0
# PROP BASE Use_Debug_Libraries 0
# PROP BASE Output_Dir "Release"
# PROP BASE Intermediate_Dir "Release"
# PROP BASE Target_Dir ""
# PROP Use_MFC 0
# PROP Use_Debug_Libraries 0
# PROP Output_Dir "../release/lib"
# PROP Intermediate_Dir "release"
# PROP Target_Dir ""
MTL=midl.exe
# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_MBCS" /D "_LIB" /YX /FD /c
# ADD CPP /nologo /MT /W3 /GX /O2 /I "../.." /D "NDEBUG" /D "WIN32" /D "_UNICODE" /YX /FD /c
# ADD BASE RSC /l 0x409 /d "NDEBUG"
# ADD RSC /l 0x409 /d "NDEBUG"
BSC32=bscmake.exe
# ADD BASE BSC32 /nologo
# ADD BSC32 /nologo
LIB32=link.exe -lib
# ADD BASE LIB32 /nologo
!ELSEIF "$(CFG)" == "aselsp - Win32 Debug"
# PROP BASE Use_MFC 0
# PROP BASE Use_Debug_Libraries 1
# PROP BASE Output_Dir "Debug"
# PROP BASE Intermediate_Dir "Debug"
# PROP BASE Target_Dir ""
# PROP Use_MFC 0
# PROP Use_Debug_Libraries 1
# PROP Output_Dir "../debug/lib"
# PROP Intermediate_Dir "debug"
# PROP Target_Dir ""
MTL=midl.exe
# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_MBCS" /D "_LIB" /YX /FD /GZ /c
# ADD CPP /nologo /MTd /W3 /Gm /GX /ZI /Od /I "../.." /D "_DEBUG" /D "WIN32" /D "_UNICODE" /YX /FD /GZ /c
# ADD BASE RSC /l 0x409 /d "_DEBUG"
# ADD RSC /l 0x409 /d "_DEBUG"
BSC32=bscmake.exe
# ADD BASE BSC32 /nologo
# ADD BSC32 /nologo
LIB32=link.exe -lib
# ADD BASE LIB32 /nologo
!ENDIF
# Begin Target
# Name "aselsp - Win32 Release"
# Name "aselsp - Win32 Debug"
# Begin Group "Source Files"
# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
# Begin Source File
SOURCE=.\env.c
# End Source File
# Begin Source File
SOURCE=.\err.c
# End Source File
# Begin Source File
SOURCE=.\eval.c
# End Source File
# Begin Source File
SOURCE=.\lsp.c
# End Source File
# Begin Source File
SOURCE=.\mem.c
# End Source File
# Begin Source File
SOURCE=.\misc.c
# End Source File
# Begin Source File
SOURCE=.\name.c
# End Source File
# Begin Source File
SOURCE=.\prim.c
# End Source File
# Begin Source File
SOURCE=.\prim_compar.c
# End Source File
# Begin Source File
SOURCE=.\prim_let.c
# End Source File
# Begin Source File
SOURCE=.\prim_math.c
# End Source File
# Begin Source File
SOURCE=.\prim_prog.c
# End Source File
# Begin Source File
SOURCE=.\print.c
# End Source File
# Begin Source File
SOURCE=.\read.c
# End Source File
# End Group
# Begin Group "Header Files"
# PROP Default_Filter "h;hpp;hxx;hm;inl"
# Begin Source File
SOURCE=.\env.h
# End Source File
# Begin Source File
SOURCE=.\lsp.h
# End Source File
# Begin Source File
SOURCE=.\lsp_i.h
# End Source File
# Begin Source File
SOURCE=.\mem.h
# End Source File
# Begin Source File
SOURCE=.\misc.h
# End Source File
# Begin Source File
SOURCE=.\name.h
# End Source File
# Begin Source File
SOURCE=.\obj.h
# End Source File
# Begin Source File
SOURCE=.\prim.h
# End Source File
# End Group
# End Target
# End Project

903
qse/lib/lsp/aselsp.vcproj
View File

@ -1,903 +0,0 @@
<?xml version="1.0" encoding="Windows-1252"?>
<VisualStudioProject
ProjectType="Visual C++"
Version="8.00"
Name="aselsp"
ProjectGUID="{42FE7CED-34B7-45C8-92C9-8856E16640D2}"
RootNamespace="aselsp"
>
<Platforms>
<Platform
Name="Win32"
/>
<Platform
Name="x64"
/>
</Platforms>
<ToolFiles>
</ToolFiles>
<Configurations>
<Configuration
Name="Release|Win32"
OutputDirectory="$(SolutionDir)$(ConfigurationName)\lib"
IntermediateDirectory="$(ConfigurationName)"
ConfigurationType="4"
InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
UseOfMFC="0"
ATLMinimizesCRunTimeLibraryUsage="false"
CharacterSet="1"
>
<Tool
Name="VCPreBuildEventTool"
/>
<Tool
Name="VCCustomBuildTool"
/>
<Tool
Name="VCXMLDataGeneratorTool"
/>
<Tool
Name="VCWebServiceProxyGeneratorTool"
/>
<Tool
Name="VCMIDLTool"
/>
<Tool
Name="VCCLCompilerTool"
Optimization="2"
InlineFunctionExpansion="1"
AdditionalIncludeDirectories="../.."
PreprocessorDefinitions="NDEBUG;WIN32"
StringPooling="true"
RuntimeLibrary="0"
EnableFunctionLevelLinking="true"
WarningLevel="3"
SuppressStartupBanner="true"
/>
<Tool
Name="VCManagedResourceCompilerTool"
/>
<Tool
Name="VCResourceCompilerTool"
PreprocessorDefinitions="NDEBUG"
Culture="1033"
/>
<Tool
Name="VCPreLinkEventTool"
/>
<Tool
Name="VCLibrarianTool"
/>
<Tool
Name="VCALinkTool"
/>
<Tool
Name="VCXDCMakeTool"
/>
<Tool
Name="VCBscMakeTool"
SuppressStartupBanner="true"
/>
<Tool
Name="VCFxCopTool"
/>
<Tool
Name="VCPostBuildEventTool"
/>
</Configuration>
<Configuration
Name="Release|x64"
OutputDirectory="$(SolutionDir)$(ConfigurationName)\lib"
IntermediateDirectory="$(ConfigurationName)"
ConfigurationType="4"
InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
UseOfMFC="0"
ATLMinimizesCRunTimeLibraryUsage="false"
CharacterSet="1"
>
<Tool
Name="VCPreBuildEventTool"
/>
<Tool
Name="VCCustomBuildTool"
/>
<Tool
Name="VCXMLDataGeneratorTool"
/>
<Tool
Name="VCWebServiceProxyGeneratorTool"
/>
<Tool
Name="VCMIDLTool"
TargetEnvironment="3"
/>
<Tool
Name="VCCLCompilerTool"
Optimization="2"
InlineFunctionExpansion="1"
AdditionalIncludeDirectories="../.."
PreprocessorDefinitions="NDEBUG;WIN32"
StringPooling="true"
RuntimeLibrary="0"
EnableFunctionLevelLinking="true"
WarningLevel="3"
SuppressStartupBanner="true"
/>
<Tool
Name="VCManagedResourceCompilerTool"
/>
<Tool
Name="VCResourceCompilerTool"
PreprocessorDefinitions="NDEBUG"
Culture="1033"
/>
<Tool
Name="VCPreLinkEventTool"
/>
<Tool
Name="VCLibrarianTool"
/>
<Tool
Name="VCALinkTool"
/>
<Tool
Name="VCXDCMakeTool"
/>
<Tool
Name="VCBscMakeTool"
SuppressStartupBanner="true"
/>
<Tool
Name="VCFxCopTool"
/>
<Tool
Name="VCPostBuildEventTool"
/>
</Configuration>
<Configuration
Name="Debug|Win32"
OutputDirectory="$(SolutionDir)$(ConfigurationName)\lib"
IntermediateDirectory="$(ConfigurationName)"
ConfigurationType="4"
InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
UseOfMFC="0"
ATLMinimizesCRunTimeLibraryUsage="false"
CharacterSet="1"
>
<Tool
Name="VCPreBuildEventTool"
/>
<Tool
Name="VCCustomBuildTool"
/>
<Tool
Name="VCXMLDataGeneratorTool"
/>
<Tool
Name="VCWebServiceProxyGeneratorTool"
/>
<Tool
Name="VCMIDLTool"
/>
<Tool
Name="VCCLCompilerTool"
Optimization="0"
AdditionalIncludeDirectories="../.."
PreprocessorDefinitions="_DEBUG;WIN32"
MinimalRebuild="true"
BasicRuntimeChecks="3"
RuntimeLibrary="1"
WarningLevel="3"
SuppressStartupBanner="true"
DebugInformationFormat="4"
/>
<Tool
Name="VCManagedResourceCompilerTool"
/>
<Tool
Name="VCResourceCompilerTool"
PreprocessorDefinitions="_DEBUG"
Culture="1033"
/>
<Tool
Name="VCPreLinkEventTool"
/>
<Tool
Name="VCLibrarianTool"
/>
<Tool
Name="VCALinkTool"
/>
<Tool
Name="VCXDCMakeTool"
/>
<Tool
Name="VCBscMakeTool"
SuppressStartupBanner="true"
/>
<Tool
Name="VCFxCopTool"
/>
<Tool
Name="VCPostBuildEventTool"
/>
</Configuration>
<Configuration
Name="Debug|x64"
OutputDirectory="$(SolutionDir)$(ConfigurationName)\lib"
IntermediateDirectory="$(ConfigurationName)"
ConfigurationType="4"
InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
UseOfMFC="0"
ATLMinimizesCRunTimeLibraryUsage="false"
CharacterSet="1"
>
<Tool
Name="VCPreBuildEventTool"
/>
<Tool
Name="VCCustomBuildTool"
/>
<Tool
Name="VCXMLDataGeneratorTool"
/>
<Tool
Name="VCWebServiceProxyGeneratorTool"
/>
<Tool
Name="VCMIDLTool"
TargetEnvironment="3"
/>
<Tool
Name="VCCLCompilerTool"
Optimization="0"
AdditionalIncludeDirectories="../.."
PreprocessorDefinitions="_DEBUG;WIN32"
MinimalRebuild="true"
BasicRuntimeChecks="3"
RuntimeLibrary="1"
WarningLevel="3"
SuppressStartupBanner="true"
DebugInformationFormat="3"
/>
<Tool
Name="VCManagedResourceCompilerTool"
/>
<Tool
Name="VCResourceCompilerTool"
PreprocessorDefinitions="_DEBUG"
Culture="1033"
/>
<Tool
Name="VCPreLinkEventTool"
/>
<Tool
Name="VCLibrarianTool"
/>
<Tool
Name="VCALinkTool"
/>
<Tool
Name="VCXDCMakeTool"
/>
<Tool
Name="VCBscMakeTool"
SuppressStartupBanner="true"
/>
<Tool
Name="VCFxCopTool"
/>
<Tool
Name="VCPostBuildEventTool"
/>
</Configuration>
</Configurations>
<References>
</References>
<Files>
<Filter
Name="Source Files"
Filter="cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
>
<File
RelativePath="env.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="err.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="eval.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="lsp.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="mem.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="misc.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="name.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="prim.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="prim_compar.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="prim_let.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="prim_math.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="prim_prog.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="print.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
<File
RelativePath="read.c"
>
<FileConfiguration
Name="Release|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Release|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|Win32"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
<FileConfiguration
Name="Debug|x64"
>
<Tool
Name="VCCLCompilerTool"
AdditionalIncludeDirectories=""
PreprocessorDefinitions=""
/>
</FileConfiguration>
</File>
</Filter>
<Filter
Name="Header Files"
Filter="h;hpp;hxx;hm;inl"
>
<File
RelativePath="env.h"
>
</File>
<File
RelativePath="lsp.h"
>
</File>
<File
RelativePath="lsp_i.h"
>
</File>
<File
RelativePath="mem.h"
>
</File>
<File
RelativePath="misc.h"
>
</File>
<File
RelativePath="name.h"
>
</File>
<File
RelativePath="obj.h"
>
</File>
<File
RelativePath="prim.h"
>
</File>
</Filter>
</Files>
<Globals>
</Globals>
</VisualStudioProject>

28
qse/lib/lsp/descrip.mms
View File

@ -1,28 +0,0 @@
#
# OpenVMS MMS/MMK
#
objects = lsp.obj name.obj mem.obj env.obj err.obj read.obj eval.obj print.obj misc.obj prim.obj prim_prog.obj prim_let.obj prim_compar.obj prim_math.obj
CFLAGS = /include="../.."
#CFLAGS = /pointer_size=long /include="../.."
aselsp.olb : $(objects)
$(LIBR)/create $(MMS$TARGET) *.obj
# $(LIBR)/create $(MMS$TARGET) $(objects)
lsp.obj depends_on lsp.c
name.obj depends_on name.c
mem.obj depends_on mem.c
env.obj depends_on env.c
err.obj depends_on err.c
read.obj depends_on read.c
eval.obj depends_on eval.c
print.obj depends_on print.c
misc.obj depends_on misc.c
prim.obj depends_on prim.c
prim_prog.obj depends_on prim_prog.c
prim_let.obj depends_on prim_let.c
prim_compar.obj depends_on prim_compar.c
prim_math.obj depends_on prim_math.c

110
qse/lib/lsp/env.c
View File

@ -8,120 +8,120 @@
/* TODO: make the frame hash accessible */
static ase_lsp_assoc_t* __new_assoc (
ase_lsp_t* lsp, ase_lsp_obj_t* name,
ase_lsp_obj_t* value, ase_lsp_obj_t* func)
static qse_lsp_assoc_t* __new_assoc (
qse_lsp_t* lsp, qse_lsp_obj_t* name,
qse_lsp_obj_t* value, qse_lsp_obj_t* func)
{
ase_lsp_assoc_t* assoc;
qse_lsp_assoc_t* assoc;
assoc = (ase_lsp_assoc_t*)
ASE_LSP_ALLOC (lsp, sizeof(ase_lsp_assoc_t));
if (assoc == ASE_NULL)
assoc = (qse_lsp_assoc_t*)
QSE_LSP_ALLOC (lsp, sizeof(qse_lsp_assoc_t));
if (assoc == QSE_NULL)
{
ase_lsp_seterror (lsp, ASE_LSP_ENOMEM, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_ENOMEM, QSE_NULL, 0);
return QSE_NULL;
}
assoc->name = name;
assoc->value = value;
assoc->func = func;
assoc->link = ASE_NULL;
assoc->link = QSE_NULL;
return assoc;
}
ase_lsp_frame_t* ase_lsp_newframe (ase_lsp_t* lsp)
qse_lsp_frame_t* qse_lsp_newframe (qse_lsp_t* lsp)
{
ase_lsp_frame_t* frame;
qse_lsp_frame_t* frame;
frame = (ase_lsp_frame_t*)
ASE_LSP_ALLOC (lsp, sizeof(ase_lsp_frame_t));
if (frame == ASE_NULL)
frame = (qse_lsp_frame_t*)
QSE_LSP_ALLOC (lsp, sizeof(qse_lsp_frame_t));
if (frame == QSE_NULL)
{
ase_lsp_seterror (lsp, ASE_LSP_ENOMEM, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_ENOMEM, QSE_NULL, 0);
return QSE_NULL;
}
frame->assoc = ASE_NULL;
frame->link = ASE_NULL;
frame->assoc = QSE_NULL;
frame->link = QSE_NULL;
return frame;
}
void ase_lsp_freeframe (ase_lsp_t* lsp, ase_lsp_frame_t* frame)
void qse_lsp_freeframe (qse_lsp_t* lsp, qse_lsp_frame_t* frame)
{
ase_lsp_assoc_t* assoc, * link;
qse_lsp_assoc_t* assoc, * link;
/* destroy the associations */
assoc = frame->assoc;
while (assoc != ASE_NULL)
while (assoc != QSE_NULL)
{
link = assoc->link;
ASE_LSP_FREE (lsp, assoc);
QSE_LSP_FREE (lsp, assoc);
assoc = link;
}
ASE_LSP_FREE (lsp, frame);
QSE_LSP_FREE (lsp, frame);
}
ase_lsp_assoc_t* ase_lsp_lookupinframe (
ase_lsp_t* lsp, ase_lsp_frame_t* frame, ase_lsp_obj_t* name)
qse_lsp_assoc_t* qse_lsp_lookupinframe (
qse_lsp_t* lsp, qse_lsp_frame_t* frame, qse_lsp_obj_t* name)
{
ase_lsp_assoc_t* assoc;
qse_lsp_assoc_t* assoc;
ASE_ASSERT (ASE_LSP_TYPE(name) == ASE_LSP_OBJ_SYM);
QSE_ASSERT (QSE_LSP_TYPE(name) == QSE_LSP_OBJ_SYM);
assoc = frame->assoc;
while (assoc != ASE_NULL)
while (assoc != QSE_NULL)
{
if (name == assoc->name) return assoc;
assoc = assoc->link;
}
return ASE_NULL;
return QSE_NULL;
}
ase_lsp_assoc_t* ase_lsp_insvalueintoframe (
ase_lsp_t* lsp, ase_lsp_frame_t* frame,
ase_lsp_obj_t* name, ase_lsp_obj_t* value)
qse_lsp_assoc_t* qse_lsp_insvalueintoframe (
qse_lsp_t* lsp, qse_lsp_frame_t* frame,
qse_lsp_obj_t* name, qse_lsp_obj_t* value)
{
ase_lsp_assoc_t* assoc;
qse_lsp_assoc_t* assoc;
ASE_ASSERT (ASE_LSP_TYPE(name) == ASE_LSP_OBJ_SYM);
QSE_ASSERT (QSE_LSP_TYPE(name) == QSE_LSP_OBJ_SYM);
assoc = __new_assoc (lsp, name, value, ASE_NULL);
if (assoc == ASE_NULL) return ASE_NULL;
assoc = __new_assoc (lsp, name, value, QSE_NULL);
if (assoc == QSE_NULL) return QSE_NULL;
assoc->link = frame->assoc;
frame->assoc = assoc;
return assoc;
}
ase_lsp_assoc_t* ase_lsp_insfuncintoframe (
ase_lsp_t* lsp, ase_lsp_frame_t* frame,
ase_lsp_obj_t* name, ase_lsp_obj_t* func)
qse_lsp_assoc_t* qse_lsp_insfuncintoframe (
qse_lsp_t* lsp, qse_lsp_frame_t* frame,
qse_lsp_obj_t* name, qse_lsp_obj_t* func)
{
ase_lsp_assoc_t* assoc;
qse_lsp_assoc_t* assoc;
ASE_ASSERT (ASE_LSP_TYPE(name) == ASE_LSP_OBJ_SYM);
QSE_ASSERT (QSE_LSP_TYPE(name) == QSE_LSP_OBJ_SYM);
assoc = __new_assoc (lsp, name, ASE_NULL, func);
if (assoc == ASE_NULL) return ASE_NULL;
assoc = __new_assoc (lsp, name, QSE_NULL, func);
if (assoc == QSE_NULL) return QSE_NULL;
assoc->link = frame->assoc;
frame->assoc = assoc;
return assoc;
}
ase_lsp_tlink_t* ase_lsp_pushtmp (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
qse_lsp_tlink_t* qse_lsp_pushtmp (qse_lsp_t* lsp, qse_lsp_obj_t* obj)
{
ase_lsp_tlink_t* tlink;
qse_lsp_tlink_t* tlink;
tlink = (ase_lsp_tlink_t*)
ASE_LSP_ALLOC (lsp, sizeof(ase_lsp_tlink_t));
if (tlink == ASE_NULL)
tlink = (qse_lsp_tlink_t*)
QSE_LSP_ALLOC (lsp, sizeof(qse_lsp_tlink_t));
if (tlink == QSE_NULL)
{
ase_lsp_seterror (lsp, ASE_LSP_ENOMEM, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_ENOMEM, QSE_NULL, 0);
return QSE_NULL;
}
tlink->obj = obj;
@ -132,15 +132,15 @@ ase_lsp_tlink_t* ase_lsp_pushtmp (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
return tlink;
}
void ase_lsp_poptmp (ase_lsp_t* lsp)
void qse_lsp_poptmp (qse_lsp_t* lsp)
{
ase_lsp_tlink_t* top;
qse_lsp_tlink_t* top;
ASE_ASSERT (lsp->mem->tlink != ASE_NULL);
QSE_ASSERT (lsp->mem->tlink != QSE_NULL);
top = lsp->mem->tlink;
lsp->mem->tlink = top->link;
lsp->mem->tlink_count--;
ASE_LSP_FREE (lsp, top);
QSE_LSP_FREE (lsp, top);
}

60
qse/lib/lsp/env.h
View File

@ -4,57 +4,57 @@
* {License}
*/
#ifndef _ASE_LSP_ENV_H_
#define _ASE_LSP_ENV_H_
#ifndef _QSE_LSP_ENV_H_
#define _QSE_LSP_ENV_H_
#ifndef _ASE_LSP_LSP_H_
#error Never include this file directly. Include <ase/lsp/lsp.h> instead
#ifndef _QSE_LSP_LSP_H_
#error Never include this file directly. Include <qse/lsp/lsp.h> instead
#endif
typedef struct ase_lsp_assoc_t ase_lsp_assoc_t;
typedef struct ase_lsp_frame_t ase_lsp_frame_t;
typedef struct ase_lsp_tlink_t ase_lsp_tlink_t;
typedef struct qse_lsp_assoc_t qse_lsp_assoc_t;
typedef struct qse_lsp_frame_t qse_lsp_frame_t;
typedef struct qse_lsp_tlink_t qse_lsp_tlink_t;
struct ase_lsp_assoc_t
struct qse_lsp_assoc_t
{
ase_lsp_obj_t* name; /* ase_lsp_obj_sym_t */
ase_lsp_obj_t* value; /* value as a variable */
ase_lsp_obj_t* func; /* function definition */
qse_lsp_obj_t* name; /* qse_lsp_obj_sym_t */
qse_lsp_obj_t* value; /* value as a variable */
qse_lsp_obj_t* func; /* function definition */
ase_lsp_assoc_t* link;
qse_lsp_assoc_t* link;
};
struct ase_lsp_frame_t
struct qse_lsp_frame_t
{
ase_lsp_assoc_t* assoc;
ase_lsp_frame_t* link;
qse_lsp_assoc_t* assoc;
qse_lsp_frame_t* link;
};
struct ase_lsp_tlink_t
struct qse_lsp_tlink_t
{
ase_lsp_obj_t* obj;
ase_lsp_tlink_t* link;
qse_lsp_obj_t* obj;
qse_lsp_tlink_t* link;
};
#ifdef __cplusplus
extern "C" {
#endif
ase_lsp_frame_t* ase_lsp_newframe (ase_lsp_t* lsp);
void ase_lsp_freeframe (ase_lsp_t* lsp, ase_lsp_frame_t* frame);
qse_lsp_frame_t* qse_lsp_newframe (qse_lsp_t* lsp);
void qse_lsp_freeframe (qse_lsp_t* lsp, qse_lsp_frame_t* frame);
ase_lsp_assoc_t* ase_lsp_lookupinframe (
ase_lsp_t* lsp, ase_lsp_frame_t* frame, ase_lsp_obj_t* name);
qse_lsp_assoc_t* qse_lsp_lookupinframe (
qse_lsp_t* lsp, qse_lsp_frame_t* frame, qse_lsp_obj_t* name);
ase_lsp_assoc_t* ase_lsp_insvalueintoframe (
ase_lsp_t* lsp, ase_lsp_frame_t* frame,
ase_lsp_obj_t* name, ase_lsp_obj_t* value);
ase_lsp_assoc_t* ase_lsp_insfuncintoframe (
ase_lsp_t* lsp, ase_lsp_frame_t* frame,
ase_lsp_obj_t* name, ase_lsp_obj_t* func);
qse_lsp_assoc_t* qse_lsp_insvalueintoframe (
qse_lsp_t* lsp, qse_lsp_frame_t* frame,
qse_lsp_obj_t* name, qse_lsp_obj_t* value);
qse_lsp_assoc_t* qse_lsp_insfuncintoframe (
qse_lsp_t* lsp, qse_lsp_frame_t* frame,
qse_lsp_obj_t* name, qse_lsp_obj_t* func);
ase_lsp_tlink_t* ase_lsp_pushtmp (ase_lsp_t* lsp, ase_lsp_obj_t* obj);
void ase_lsp_poptmp (ase_lsp_t* lsp);
qse_lsp_tlink_t* qse_lsp_pushtmp (qse_lsp_t* lsp, qse_lsp_obj_t* obj);
void qse_lsp_poptmp (qse_lsp_t* lsp);
#ifdef __cplusplus
}

82
qse/lib/lsp/err.c
View File

@ -6,56 +6,56 @@
#include "lsp.h"
static const ase_char_t* __geterrstr (int errnum)
static const qse_char_t* __geterrstr (int errnum)
{
static const ase_char_t* __errstr[] =
static const qse_char_t* __errstr[] =
{
ASE_T("no error"),
ASE_T("out of memory"),
ASE_T("exit"),
ASE_T("end of source"),
ASE_T("unexpected end of string"),
ASE_T("input not attached"),
ASE_T("input"),
ASE_T("output not attached"),
ASE_T("output"),
ASE_T("syntax"),
ASE_T("right parenthesis expected"),
ASE_T("bad arguments"),
ASE_T("too few arguments"),
ASE_T("too many arguments"),
ASE_T("undefined function '%s'"),
ASE_T("bad function"),
ASE_T("duplicate formal"),
ASE_T("bad symbol"),
ASE_T("undefined symbol '%s'"),
ASE_T("empty body"),
ASE_T("bad value"),
ASE_T("divide by zero")
QSE_T("no error"),
QSE_T("out of memory"),
QSE_T("exit"),
QSE_T("end of source"),
QSE_T("unexpected end of string"),
QSE_T("input not attached"),
QSE_T("input"),
QSE_T("output not attached"),
QSE_T("output"),
QSE_T("syntax"),
QSE_T("right parenthesis expected"),
QSE_T("bad arguments"),
QSE_T("too few arguments"),
QSE_T("too many arguments"),
QSE_T("undefined function '%s'"),
QSE_T("bad function"),
QSE_T("duplicate formal"),
QSE_T("bad symbol"),
QSE_T("undefined symbol '%s'"),
QSE_T("empty body"),
QSE_T("bad value"),
QSE_T("divide by zero")
};
if (errnum >= 0 && errnum < ASE_COUNTOF(__errstr))
if (errnum >= 0 && errnum < QSE_COUNTOF(__errstr))
{
return __errstr[errnum];
}
return ASE_T("unknown error");
return QSE_T("unknown error");
}
void ase_lsp_geterror (
ase_lsp_t* lsp, int* errnum, const ase_char_t** errmsg)
void qse_lsp_geterror (
qse_lsp_t* lsp, int* errnum, const qse_char_t** errmsg)
{
if (errnum != ASE_NULL) *errnum = lsp->errnum;
if (errmsg != ASE_NULL) *errmsg = lsp->errmsg;
if (errnum != QSE_NULL) *errnum = lsp->errnum;
if (errmsg != QSE_NULL) *errmsg = lsp->errmsg;
}
void ase_lsp_seterror (
ase_lsp_t* lsp, int errnum,
const ase_char_t** errarg, ase_size_t argcnt)
void qse_lsp_seterror (
qse_lsp_t* lsp, int errnum,
const qse_char_t** errarg, qse_size_t argcnt)
{
const ase_char_t* errfmt;
const qse_char_t* errfmt;
ASE_ASSERT (argcnt <= 5);
QSE_ASSERT (argcnt <= 5);
lsp->errnum = errnum;
errfmt = __geterrstr (errnum);
@ -66,7 +66,7 @@ void ase_lsp_seterror (
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
lsp->errmsg,
ASE_COUNTOF(lsp->errmsg),
QSE_COUNTOF(lsp->errmsg),
errfmt);
return;
@ -74,7 +74,7 @@ void ase_lsp_seterror (
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
lsp->errmsg,
ASE_COUNTOF(lsp->errmsg),
QSE_COUNTOF(lsp->errmsg),
errfmt,
errarg[0]);
return;
@ -83,7 +83,7 @@ void ase_lsp_seterror (
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
lsp->errmsg,
ASE_COUNTOF(lsp->errmsg),
QSE_COUNTOF(lsp->errmsg),
errfmt,
errarg[0],
errarg[1]);
@ -93,7 +93,7 @@ void ase_lsp_seterror (
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
lsp->errmsg,
ASE_COUNTOF(lsp->errmsg),
QSE_COUNTOF(lsp->errmsg),
errfmt,
errarg[0],
errarg[1],
@ -104,7 +104,7 @@ void ase_lsp_seterror (
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
lsp->errmsg,
ASE_COUNTOF(lsp->errmsg),
QSE_COUNTOF(lsp->errmsg),
errfmt,
errarg[0],
errarg[1],
@ -116,7 +116,7 @@ void ase_lsp_seterror (
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
lsp->errmsg,
ASE_COUNTOF(lsp->errmsg),
QSE_COUNTOF(lsp->errmsg),
errfmt,
errarg[0],
errarg[1],

314
qse/lib/lsp/eval.c
View File

@ -6,53 +6,53 @@
#include "lsp.h"
static ase_lsp_obj_t* __eval (ase_lsp_t* lsp, ase_lsp_obj_t* obj);
static ase_lsp_obj_t* makefn (
ase_lsp_t* lsp, ase_lsp_obj_t* cdr, int is_macro);
static ase_lsp_obj_t* eval_cons (
ase_lsp_t* lsp, ase_lsp_obj_t* cons);
static ase_lsp_obj_t* apply (
ase_lsp_t* lsp, ase_lsp_obj_t* func, ase_lsp_obj_t* actual);
static ase_lsp_obj_t* apply_to_prim (
ase_lsp_t* lsp, ase_lsp_obj_t* func, ase_lsp_obj_t* actual);
static qse_lsp_obj_t* __eval (qse_lsp_t* lsp, qse_lsp_obj_t* obj);
static qse_lsp_obj_t* makefn (
qse_lsp_t* lsp, qse_lsp_obj_t* cdr, int is_macro);
static qse_lsp_obj_t* eval_cons (
qse_lsp_t* lsp, qse_lsp_obj_t* cons);
static qse_lsp_obj_t* apply (
qse_lsp_t* lsp, qse_lsp_obj_t* func, qse_lsp_obj_t* actual);
static qse_lsp_obj_t* apply_to_prim (
qse_lsp_t* lsp, qse_lsp_obj_t* func, qse_lsp_obj_t* actual);
ase_lsp_obj_t* ase_lsp_eval (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
qse_lsp_obj_t* qse_lsp_eval (qse_lsp_t* lsp, qse_lsp_obj_t* obj)
{
if (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_CONS)
if (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_CONS)
{
return eval_cons (lsp, obj);
}
else if (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_SYM)
else if (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_SYM)
{
ase_lsp_assoc_t* assoc;
qse_lsp_assoc_t* assoc;
/*
if (obj == lsp->mem->lambda || obj == lsp->mem->macro) {
ase_char_t* arg[1];
qse_char_t* arg[1];
arg[0] = ASE_LSP_SYMPTR(obj);
arg[0] = QSE_LSP_SYMPTR(obj);
printf ("lambda or macro can't be used as a normal symbol\n");
ase_lsp_seterror (
lsp, ASE_LSP_EBADSYM,
arg, ASE_COUNTOF(arg));
return ASE_NULL;
qse_lsp_seterror (
lsp, QSE_LSP_EBADSYM,
arg, QSE_COUNTOF(arg));
return QSE_NULL;
}
*/
assoc = ase_lsp_lookup(lsp->mem, obj);
if (assoc == ASE_NULL || assoc->value == ASE_NULL)
assoc = qse_lsp_lookup(lsp->mem, obj);
if (assoc == QSE_NULL || assoc->value == QSE_NULL)
{
if (lsp->opt_undef_symbol)
{
const ase_char_t* arg[1];
const qse_char_t* arg[1];
arg[0] = ASE_LSP_SYMPTR(obj);
arg[0] = QSE_LSP_SYMPTR(obj);
ase_lsp_seterror (
lsp, ASE_LSP_EUNDEFSYM,
arg, ASE_COUNTOF(arg));
return ASE_NULL;
qse_lsp_seterror (
lsp, QSE_LSP_EUNDEFSYM,
arg, QSE_COUNTOF(arg));
return QSE_NULL;
}
return lsp->mem->nil;
}
@ -63,59 +63,59 @@ ase_lsp_obj_t* ase_lsp_eval (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
return obj;
}
static ase_lsp_obj_t* makefn (ase_lsp_t* lsp, ase_lsp_obj_t* cdr, int is_macro)
static qse_lsp_obj_t* makefn (qse_lsp_t* lsp, qse_lsp_obj_t* cdr, int is_macro)
{
ase_lsp_obj_t* func, * formal, * body, * p;
qse_lsp_obj_t* func, * formal, * body, * p;
if (cdr == lsp->mem->nil)
{
ase_lsp_seterror (lsp, ASE_LSP_EARGFEW, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGFEW, QSE_NULL, 0);
return QSE_NULL;
}
if (ASE_LSP_TYPE(cdr) != ASE_LSP_OBJ_CONS)
if (QSE_LSP_TYPE(cdr) != QSE_LSP_OBJ_CONS)
{
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
formal = ASE_LSP_CAR(cdr);
body = ASE_LSP_CDR(cdr);
formal = QSE_LSP_CAR(cdr);
body = QSE_LSP_CDR(cdr);
if (body == lsp->mem->nil)
{
ase_lsp_seterror (lsp, ASE_LSP_EEMPBDY, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EEMPBDY, QSE_NULL, 0);
return QSE_NULL;
}
/* TODO: more lambda expression syntax checks required???. */
/* check if the lambda express has non-nil value
* at the terminating cdr */
for (p = body; ASE_LSP_TYPE(p) == ASE_LSP_OBJ_CONS; p = ASE_LSP_CDR(p));
for (p = body; QSE_LSP_TYPE(p) == QSE_LSP_OBJ_CONS; p = QSE_LSP_CDR(p));
if (p != lsp->mem->nil)
{
/* like in (lambda (x) (+ x 10) . 4) */
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
func = (is_macro)?
ase_lsp_makemacro (lsp->mem, formal, body):
ase_lsp_makefunc (lsp->mem, formal, body);
if (func == ASE_NULL) return ASE_NULL;
qse_lsp_makemacro (lsp->mem, formal, body):
qse_lsp_makefunc (lsp->mem, formal, body);
if (func == QSE_NULL) return QSE_NULL;
return func;
}
static ase_lsp_obj_t* eval_cons (ase_lsp_t* lsp, ase_lsp_obj_t* cons)
static qse_lsp_obj_t* eval_cons (qse_lsp_t* lsp, qse_lsp_obj_t* cons)
{
ase_lsp_obj_t* car, * cdr;
qse_lsp_obj_t* car, * cdr;
ASE_ASSERT (ASE_LSP_TYPE(cons) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(cons) == QSE_LSP_OBJ_CONS);
car = ASE_LSP_CAR(cons);
cdr = ASE_LSP_CDR(cons);
car = QSE_LSP_CAR(cons);
cdr = QSE_LSP_CDR(cons);
if (car == lsp->mem->lambda)
{
@ -127,118 +127,118 @@ static ase_lsp_obj_t* eval_cons (ase_lsp_t* lsp, ase_lsp_obj_t* cons)
/* (macro (x) (+ x 20)) */
return makefn (lsp, cdr, 1);
}
else if (ASE_LSP_TYPE(car) == ASE_LSP_OBJ_SYM)
else if (QSE_LSP_TYPE(car) == QSE_LSP_OBJ_SYM)
{
ase_lsp_assoc_t* assoc;
qse_lsp_assoc_t* assoc;
if ((assoc = ase_lsp_lookup(lsp->mem, car)) != ASE_NULL)
if ((assoc = qse_lsp_lookup(lsp->mem, car)) != QSE_NULL)
{
/*ase_lsp_obj_t* func = assoc->value;*/
ase_lsp_obj_t* func = assoc->func;
if (func == ASE_NULL)
/*qse_lsp_obj_t* func = assoc->value;*/
qse_lsp_obj_t* func = assoc->func;
if (func == QSE_NULL)
{
/* the symbol's function definition is void */
const ase_char_t* arg[1];
const qse_char_t* arg[1];
arg[0] = ASE_LSP_SYMPTR(car);
ase_lsp_seterror (
lsp, ASE_LSP_EUNDEFFN,
arg, ASE_COUNTOF(arg));
arg[0] = QSE_LSP_SYMPTR(car);
qse_lsp_seterror (
lsp, QSE_LSP_EUNDEFFN,
arg, QSE_COUNTOF(arg));
return ASE_NULL;
return QSE_NULL;
}
if (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_FUNC ||
ASE_LSP_TYPE(func) == ASE_LSP_OBJ_MACRO)
if (QSE_LSP_TYPE(func) == QSE_LSP_OBJ_FUNC ||
QSE_LSP_TYPE(func) == QSE_LSP_OBJ_MACRO)
{
return apply (lsp, func, cdr);
}
else if (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_PRIM)
else if (QSE_LSP_TYPE(func) == QSE_LSP_OBJ_PRIM)
{
/* primitive function */
return apply_to_prim (lsp, func, cdr);
}
else
{
const ase_char_t* arg[1];
const qse_char_t* arg[1];
arg[0] = ASE_LSP_SYMPTR(car);
ase_lsp_seterror (
lsp, ASE_LSP_EUNDEFFN,
arg, ASE_COUNTOF(arg));
arg[0] = QSE_LSP_SYMPTR(car);
qse_lsp_seterror (
lsp, QSE_LSP_EUNDEFFN,
arg, QSE_COUNTOF(arg));
return ASE_NULL;
return QSE_NULL;
}
}
else
{
const ase_char_t* arg[1];
const qse_char_t* arg[1];
arg[0] = ASE_LSP_SYMPTR(car);
ase_lsp_seterror (
lsp, ASE_LSP_EUNDEFFN,
arg, ASE_COUNTOF(arg));
arg[0] = QSE_LSP_SYMPTR(car);
qse_lsp_seterror (
lsp, QSE_LSP_EUNDEFFN,
arg, QSE_COUNTOF(arg));
return ASE_NULL;
return QSE_NULL;
}
}
else if (ASE_LSP_TYPE(car) == ASE_LSP_OBJ_FUNC ||
ASE_LSP_TYPE(car) == ASE_LSP_OBJ_MACRO)
else if (QSE_LSP_TYPE(car) == QSE_LSP_OBJ_FUNC ||
QSE_LSP_TYPE(car) == QSE_LSP_OBJ_MACRO)
{
return apply (lsp, car, cdr);
}
else if (ASE_LSP_TYPE(car) == ASE_LSP_OBJ_CONS)
else if (QSE_LSP_TYPE(car) == QSE_LSP_OBJ_CONS)
{
/* anonymous function or macros
* ((lambda (x) (+ x 10)) 50) */
if (ASE_LSP_CAR(car) == lsp->mem->lambda)
if (QSE_LSP_CAR(car) == lsp->mem->lambda)
{
ase_lsp_obj_t* func = makefn (lsp, ASE_LSP_CDR(car), 0);
if (func == ASE_NULL) return ASE_NULL;
qse_lsp_obj_t* func = makefn (lsp, QSE_LSP_CDR(car), 0);
if (func == QSE_NULL) return QSE_NULL;
return apply (lsp, func, cdr);
}
else if (ASE_LSP_CAR(car) == lsp->mem->macro)
else if (QSE_LSP_CAR(car) == lsp->mem->macro)
{
ase_lsp_obj_t* func = makefn (lsp, ASE_LSP_CDR(car), 1);
if (func == ASE_NULL) return ASE_NULL;
qse_lsp_obj_t* func = makefn (lsp, QSE_LSP_CDR(car), 1);
if (func == QSE_NULL) return QSE_NULL;
return apply (lsp, func, cdr);
}
}
ase_lsp_seterror (lsp, ASE_LSP_EBADFN, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EBADFN, QSE_NULL, 0);
return QSE_NULL;
}
static ase_lsp_obj_t* apply (
ase_lsp_t* lsp, ase_lsp_obj_t* func, ase_lsp_obj_t* actual)
static qse_lsp_obj_t* apply (
qse_lsp_t* lsp, qse_lsp_obj_t* func, qse_lsp_obj_t* actual)
{
ase_lsp_frame_t* frame;
ase_lsp_obj_t* formal;
ase_lsp_obj_t* body;
ase_lsp_obj_t* value;
ase_lsp_mem_t* mem;
qse_lsp_frame_t* frame;
qse_lsp_obj_t* formal;
qse_lsp_obj_t* body;
qse_lsp_obj_t* value;
qse_lsp_mem_t* mem;
ASE_ASSERT (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_FUNC ||
ASE_LSP_TYPE(func) == ASE_LSP_OBJ_MACRO);
QSE_ASSERT (QSE_LSP_TYPE(func) == QSE_LSP_OBJ_FUNC ||
QSE_LSP_TYPE(func) == QSE_LSP_OBJ_MACRO);
ASE_ASSERT (ASE_LSP_TYPE(ASE_LSP_CDR(func)) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(QSE_LSP_CDR(func)) == QSE_LSP_OBJ_CONS);
mem = lsp->mem;
if (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_MACRO)
if (QSE_LSP_TYPE(func) == QSE_LSP_OBJ_MACRO)
{
formal = ASE_LSP_MFORMAL (func);
body = ASE_LSP_MBODY (func);
formal = QSE_LSP_MFORMAL (func);
body = QSE_LSP_MBODY (func);
}
else
{
formal = ASE_LSP_FFORMAL (func);
body = ASE_LSP_FBODY (func);
formal = QSE_LSP_FFORMAL (func);
body = QSE_LSP_FBODY (func);
}
/* make a new frame. */
frame = ase_lsp_newframe (lsp);
if (frame == ASE_NULL) return ASE_NULL;
frame = qse_lsp_newframe (lsp);
if (frame == QSE_NULL) return QSE_NULL;
/* attach it to the brooding frame list to
* prevent them from being garbage-collected. */
@ -251,62 +251,62 @@ static ase_lsp_obj_t* apply (
if (actual == mem->nil)
{
mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EARGFEW, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGFEW, QSE_NULL, 0);
return QSE_NULL;
}
value = ASE_LSP_CAR(actual);
if (ASE_LSP_TYPE(func) != ASE_LSP_OBJ_MACRO)
value = QSE_LSP_CAR(actual);
if (QSE_LSP_TYPE(func) != QSE_LSP_OBJ_MACRO)
{
/* macro doesn't evaluate actual arguments. */
value = ase_lsp_eval (lsp, value);
if (value == ASE_NULL)
value = qse_lsp_eval (lsp, value);
if (value == QSE_NULL)
{
mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
return ASE_NULL;
qse_lsp_freeframe (lsp, frame);
return QSE_NULL;
}
}
if (ase_lsp_lookupinframe (
lsp, frame, ASE_LSP_CAR(formal)) != ASE_NULL)
if (qse_lsp_lookupinframe (
lsp, frame, QSE_LSP_CAR(formal)) != QSE_NULL)
{
mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EDUPFML, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EDUPFML, QSE_NULL, 0);
return QSE_NULL;
}
if (ase_lsp_insvalueintoframe (
lsp, frame, ASE_LSP_CAR(formal), value) == ASE_NULL)
if (qse_lsp_insvalueintoframe (
lsp, frame, QSE_LSP_CAR(formal), value) == QSE_NULL)
{
mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
return ASE_NULL;
qse_lsp_freeframe (lsp, frame);
return QSE_NULL;
}
actual = ASE_LSP_CDR(actual);
formal = ASE_LSP_CDR(formal);
actual = QSE_LSP_CDR(actual);
formal = QSE_LSP_CDR(formal);
}
if (ASE_LSP_TYPE(actual) == ASE_LSP_OBJ_CONS)
if (QSE_LSP_TYPE(actual) == QSE_LSP_OBJ_CONS)
{
mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EARGMANY, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGMANY, QSE_NULL, 0);
return QSE_NULL;
}
else if (actual != mem->nil)
{
mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
/* push the frame */
@ -318,63 +318,63 @@ static ase_lsp_obj_t* apply (
value = mem->nil;
while (body != mem->nil)
{
value = ase_lsp_eval(lsp, ASE_LSP_CAR(body));
if (value == ASE_NULL)
value = qse_lsp_eval(lsp, QSE_LSP_CAR(body));
if (value == QSE_NULL)
{
mem->frame = frame->link;
ase_lsp_freeframe (lsp, frame);
return ASE_NULL;
qse_lsp_freeframe (lsp, frame);
return QSE_NULL;
}
body = ASE_LSP_CDR(body);
body = QSE_LSP_CDR(body);
}
/* pop the frame. */
mem->frame = frame->link;
/* destroy the frame. */
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
/*if (ASE_LSP_CAR(func) == mem->macro) {*/
if (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_MACRO)
/*if (QSE_LSP_CAR(func) == mem->macro) {*/
if (QSE_LSP_TYPE(func) == QSE_LSP_OBJ_MACRO)
{
value = ase_lsp_eval (lsp, value);
if (value == ASE_NULL) return ASE_NULL;
value = qse_lsp_eval (lsp, value);
if (value == QSE_NULL) return QSE_NULL;
}
return value;
}
static ase_lsp_obj_t* apply_to_prim (
ase_lsp_t* lsp, ase_lsp_obj_t* func, ase_lsp_obj_t* actual)
static qse_lsp_obj_t* apply_to_prim (
qse_lsp_t* lsp, qse_lsp_obj_t* func, qse_lsp_obj_t* actual)
{
ase_lsp_obj_t* obj;
ase_size_t count = 0;
qse_lsp_obj_t* obj;
qse_size_t count = 0;
ASE_ASSERT (ASE_LSP_TYPE(func) == ASE_LSP_OBJ_PRIM);
QSE_ASSERT (QSE_LSP_TYPE(func) == QSE_LSP_OBJ_PRIM);
obj = actual;
while (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_CONS)
{
count++;
obj = ASE_LSP_CDR(obj);
obj = QSE_LSP_CDR(obj);
}
if (obj != lsp->mem->nil)
{
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
if (count < ASE_LSP_PMINARGS(func))
if (count < QSE_LSP_PMINARGS(func))
{
ase_lsp_seterror (lsp, ASE_LSP_EARGFEW, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGFEW, QSE_NULL, 0);
return QSE_NULL;
}
if (count > ASE_LSP_PMAXARGS(func))
if (count > QSE_LSP_PMAXARGS(func))
{
ase_lsp_seterror (lsp, ASE_LSP_EARGMANY, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGMANY, QSE_NULL, 0);
return QSE_NULL;
}
return ASE_LSP_PIMPL(func) (lsp, actual);
return QSE_LSP_PIMPL(func) (lsp, actual);
}

222
qse/lib/lsp/lsp.c
View File

@ -11,84 +11,84 @@
#include "lsp.h"
static int __add_builtin_prims (ase_lsp_t* lsp);
static int __add_builtin_prims (qse_lsp_t* lsp);
ase_lsp_t* ase_lsp_open (
const ase_lsp_prmfns_t* prmfns,
ase_size_t mem_ubound, ase_size_t mem_ubound_inc)
qse_lsp_t* qse_lsp_open (
const qse_lsp_prmfns_t* prmfns,
qse_size_t mem_ubound, qse_size_t mem_ubound_inc)
{
ase_lsp_t* lsp;
qse_lsp_t* lsp;
if (prmfns == ASE_NULL) return ASE_NULL;
if (prmfns == QSE_NULL) return QSE_NULL;
/*
if (prmfns->mmgr.malloc == ASE_NULL ||
prmfns->mmgr.realloc == ASE_NULL ||
prmfns->mmgr.free == ASE_NULL) return ASE_NULL;
if (prmfns->mmgr.malloc == QSE_NULL ||
prmfns->mmgr.realloc == QSE_NULL ||
prmfns->mmgr.free == QSE_NULL) return QSE_NULL;
if (prmfns->ccls.is_upper == ASE_NULL ||
prmfns->ccls.is_lower == ASE_NULL ||
prmfns->ccls.is_alpha == ASE_NULL ||
prmfns->ccls.is_digit == ASE_NULL ||
prmfns->ccls.is_xdigit == ASE_NULL ||
prmfns->ccls.is_alnum == ASE_NULL ||
prmfns->ccls.is_space == ASE_NULL ||
prmfns->ccls.is_print == ASE_NULL ||
prmfns->ccls.is_graph == ASE_NULL ||
prmfns->ccls.is_cntrl == ASE_NULL ||
prmfns->ccls.is_punct == ASE_NULL ||
prmfns->ccls.to_upper == ASE_NULL ||
prmfns->ccls.to_lower == ASE_NULL) return ASE_NULL;
if (prmfns->ccls.is_upper == QSE_NULL ||
prmfns->ccls.is_lower == QSE_NULL ||
prmfns->ccls.is_alpha == QSE_NULL ||
prmfns->ccls.is_digit == QSE_NULL ||
prmfns->ccls.is_xdigit == QSE_NULL ||
prmfns->ccls.is_alnum == QSE_NULL ||
prmfns->ccls.is_space == QSE_NULL ||
prmfns->ccls.is_print == QSE_NULL ||
prmfns->ccls.is_graph == QSE_NULL ||
prmfns->ccls.is_cntrl == QSE_NULL ||
prmfns->ccls.is_punct == QSE_NULL ||
prmfns->ccls.to_upper == QSE_NULL ||
prmfns->ccls.to_lower == QSE_NULL) return QSE_NULL;
*/
if (prmfns->misc.sprintf == ASE_NULL ||
prmfns->misc.dprintf == ASE_NULL) return ASE_NULL;
if (prmfns->misc.sprintf == QSE_NULL ||
prmfns->misc.dprintf == QSE_NULL) return QSE_NULL;
#if defined(_WIN32) && defined(_MSC_VER) && defined(_DEBUG)
lsp = (ase_lsp_t*) malloc (ASE_SIZEOF(ase_lsp_t));
lsp = (qse_lsp_t*) malloc (QSE_SIZEOF(qse_lsp_t));
#else
lsp = (ase_lsp_t*) prmfns->mmgr.alloc (
prmfns->mmgr.data, ASE_SIZEOF(ase_lsp_t));
lsp = (qse_lsp_t*) prmfns->mmgr.alloc (
prmfns->mmgr.data, QSE_SIZEOF(qse_lsp_t));
#endif
if (lsp == ASE_NULL) return ASE_NULL;
if (lsp == QSE_NULL) return QSE_NULL;
/* it uses the built-in ase_lsp_memset because lsp is not
/* it uses the built-in qse_lsp_memset because lsp is not
* fully initialized yet */
ASE_MEMSET (lsp, 0, ASE_SIZEOF(ase_lsp_t));
ASE_MEMCPY (&lsp->prmfns, prmfns, ASE_SIZEOF(lsp->prmfns));
lsp->assoc_data = ASE_NULL;
QSE_MEMSET (lsp, 0, QSE_SIZEOF(qse_lsp_t));
QSE_MEMCPY (&lsp->prmfns, prmfns, QSE_SIZEOF(lsp->prmfns));
lsp->assoc_data = QSE_NULL;
if (ase_lsp_name_open(&lsp->token.name, 0, lsp) == ASE_NULL)
if (qse_lsp_name_open(&lsp->token.name, 0, lsp) == QSE_NULL)
{
ASE_LSP_FREE (lsp, lsp);
return ASE_NULL;
QSE_LSP_FREE (lsp, lsp);
return QSE_NULL;
}
lsp->errnum = ASE_LSP_ENOERR;
lsp->errmsg[0] = ASE_T('\0');
lsp->errnum = QSE_LSP_ENOERR;
lsp->errmsg[0] = QSE_T('\0');
lsp->opt_undef_symbol = 1;
/*lsp->opt_undef_symbol = 0;*/
lsp->curc = ASE_CHAR_EOF;
lsp->input_func = ASE_NULL;
lsp->output_func = ASE_NULL;
lsp->input_arg = ASE_NULL;
lsp->output_arg = ASE_NULL;
lsp->curc = QSE_CHAR_EOF;
lsp->input_func = QSE_NULL;
lsp->output_func = QSE_NULL;
lsp->input_arg = QSE_NULL;
lsp->output_arg = QSE_NULL;
lsp->mem = ase_lsp_openmem (lsp, mem_ubound, mem_ubound_inc);
if (lsp->mem == ASE_NULL)
lsp->mem = qse_lsp_openmem (lsp, mem_ubound, mem_ubound_inc);
if (lsp->mem == QSE_NULL)
{
ase_lsp_name_close (&lsp->token.name);
ASE_LSP_FREE (lsp, lsp);
return ASE_NULL;
qse_lsp_name_close (&lsp->token.name);
QSE_LSP_FREE (lsp, lsp);
return QSE_NULL;
}
if (__add_builtin_prims(lsp) == -1)
{
ase_lsp_closemem (lsp->mem);
ase_lsp_name_close (&lsp->token.name);
ASE_LSP_FREE (lsp, lsp);
return ASE_NULL;
qse_lsp_closemem (lsp->mem);
qse_lsp_name_close (&lsp->token.name);
QSE_LSP_FREE (lsp, lsp);
return QSE_NULL;
}
lsp->max_eval_depth = 0; /* TODO: put restriction here.... */
@ -97,30 +97,30 @@ ase_lsp_t* ase_lsp_open (
return lsp;
}
void ase_lsp_close (ase_lsp_t* lsp)
void qse_lsp_close (qse_lsp_t* lsp)
{
ase_lsp_closemem (lsp->mem);
ase_lsp_name_close (&lsp->token.name);
ASE_LSP_FREE (lsp, lsp);
qse_lsp_closemem (lsp->mem);
qse_lsp_name_close (&lsp->token.name);
QSE_LSP_FREE (lsp, lsp);
}
void ase_lsp_setassocdata (ase_lsp_t* lsp, void* data)
void qse_lsp_setassocdata (qse_lsp_t* lsp, void* data)
{
lsp->assoc_data = data;
}
void* ase_lsp_getassocdata (ase_lsp_t* lsp)
void* qse_lsp_getassocdata (qse_lsp_t* lsp)
{
return lsp->assoc_data;
}
int ase_lsp_attinput (ase_lsp_t* lsp, ase_lsp_io_t input, void* arg)
int qse_lsp_attinput (qse_lsp_t* lsp, qse_lsp_io_t input, void* arg)
{
if (ase_lsp_detinput(lsp) == -1) return -1;
if (qse_lsp_detinput(lsp) == -1) return -1;
ASE_ASSERT (lsp->input_func == ASE_NULL);
QSE_ASSERT (lsp->input_func == QSE_NULL);
if (input(ASE_LSP_IO_OPEN, arg, ASE_NULL, 0) == -1)
if (input(QSE_LSP_IO_OPEN, arg, QSE_NULL, 0) == -1)
{
/* TODO: set error number */
return -1;
@ -128,35 +128,35 @@ int ase_lsp_attinput (ase_lsp_t* lsp, ase_lsp_io_t input, void* arg)
lsp->input_func = input;
lsp->input_arg = arg;
lsp->curc = ASE_CHAR_EOF;
lsp->curc = QSE_CHAR_EOF;
return 0;
}
int ase_lsp_detinput (ase_lsp_t* lsp)
int qse_lsp_detinput (qse_lsp_t* lsp)
{
if (lsp->input_func != ASE_NULL)
if (lsp->input_func != QSE_NULL)
{
if (lsp->input_func (
ASE_LSP_IO_CLOSE, lsp->input_arg, ASE_NULL, 0) == -1)
QSE_LSP_IO_CLOSE, lsp->input_arg, QSE_NULL, 0) == -1)
{
/* TODO: set error number */
return -1;
}
lsp->input_func = ASE_NULL;
lsp->input_arg = ASE_NULL;
lsp->curc = ASE_CHAR_EOF;
lsp->input_func = QSE_NULL;
lsp->input_arg = QSE_NULL;
lsp->curc = QSE_CHAR_EOF;
}
return 0;
}
int ase_lsp_attoutput (ase_lsp_t* lsp, ase_lsp_io_t output, void* arg)
int qse_lsp_attoutput (qse_lsp_t* lsp, qse_lsp_io_t output, void* arg)
{
if (ase_lsp_detoutput(lsp) == -1) return -1;
if (qse_lsp_detoutput(lsp) == -1) return -1;
ASE_ASSERT (lsp->output_func == ASE_NULL);
QSE_ASSERT (lsp->output_func == QSE_NULL);
if (output(ASE_LSP_IO_OPEN, arg, ASE_NULL, 0) == -1)
if (output(QSE_LSP_IO_OPEN, arg, QSE_NULL, 0) == -1)
{
/* TODO: set error number */
return -1;
@ -166,66 +166,66 @@ int ase_lsp_attoutput (ase_lsp_t* lsp, ase_lsp_io_t output, void* arg)
return 0;
}
int ase_lsp_detoutput (ase_lsp_t* lsp)
int qse_lsp_detoutput (qse_lsp_t* lsp)
{
if (lsp->output_func != ASE_NULL)
if (lsp->output_func != QSE_NULL)
{
if (lsp->output_func (
ASE_LSP_IO_CLOSE, lsp->output_arg, ASE_NULL, 0) == -1)
QSE_LSP_IO_CLOSE, lsp->output_arg, QSE_NULL, 0) == -1)
{
/* TODO: set error number */
return -1;
}
lsp->output_func = ASE_NULL;
lsp->output_arg = ASE_NULL;
lsp->output_func = QSE_NULL;
lsp->output_arg = QSE_NULL;
}
return 0;
}
static int __add_builtin_prims (ase_lsp_t* lsp)
static int __add_builtin_prims (qse_lsp_t* lsp)
{
#define ADD_PRIM(mem,name,name_len,pimpl,min_args,max_args) \
if (ase_lsp_addprim(mem,name,name_len,pimpl,min_args,max_args) == -1) return -1;
#define MAX_ARGS ASE_TYPE_MAX(ase_size_t)
if (qse_lsp_addprim(mem,name,name_len,pimpl,min_args,max_args) == -1) return -1;
#define MAX_ARGS QSE_TYPE_MAX(qse_size_t)
ADD_PRIM (lsp, ASE_T("exit"), 4, ase_lsp_prim_exit, 0, 0);
ADD_PRIM (lsp, ASE_T("eval"), 4, ase_lsp_prim_eval, 1, 1);
ADD_PRIM (lsp, ASE_T("prog1"), 5, ase_lsp_prim_prog1, 1, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("progn"), 5, ase_lsp_prim_progn, 1, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("gc"), 2, ase_lsp_prim_gc, 0, 0);
ADD_PRIM (lsp, QSE_T("exit"), 4, qse_lsp_prim_exit, 0, 0);
ADD_PRIM (lsp, QSE_T("eval"), 4, qse_lsp_prim_eval, 1, 1);
ADD_PRIM (lsp, QSE_T("prog1"), 5, qse_lsp_prim_prog1, 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("progn"), 5, qse_lsp_prim_progn, 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("gc"), 2, qse_lsp_prim_gc, 0, 0);
ADD_PRIM (lsp, ASE_T("cond"), 4, ase_lsp_prim_cond, 0, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("if"), 2, ase_lsp_prim_if, 2, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("while"), 5, ase_lsp_prim_while, 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("cond"), 4, qse_lsp_prim_cond, 0, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("if"), 2, qse_lsp_prim_if, 2, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("while"), 5, qse_lsp_prim_while, 1, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("car"), 3, ase_lsp_prim_car, 1, 1);
ADD_PRIM (lsp, ASE_T("cdr"), 3, ase_lsp_prim_cdr, 1, 1);
ADD_PRIM (lsp, ASE_T("cons"), 4, ase_lsp_prim_cons, 2, 2);
ADD_PRIM (lsp, ASE_T("length"), 6, ase_lsp_prim_length, 1, 1);
ADD_PRIM (lsp, QSE_T("car"), 3, qse_lsp_prim_car, 1, 1);
ADD_PRIM (lsp, QSE_T("cdr"), 3, qse_lsp_prim_cdr, 1, 1);
ADD_PRIM (lsp, QSE_T("cons"), 4, qse_lsp_prim_cons, 2, 2);
ADD_PRIM (lsp, QSE_T("length"), 6, qse_lsp_prim_length, 1, 1);
ADD_PRIM (lsp, ASE_T("set"), 3, ase_lsp_prim_set, 2, 2);
ADD_PRIM (lsp, ASE_T("setq"), 4, ase_lsp_prim_setq, 1, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("quote"), 5, ase_lsp_prim_quote, 1, 1);
ADD_PRIM (lsp, ASE_T("defun"), 5, ase_lsp_prim_defun, 3, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("demac"), 5, ase_lsp_prim_demac, 3, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("let"), 3, ase_lsp_prim_let, 1, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("let*"), 4, ase_lsp_prim_letx, 1, MAX_ARGS);
/*ADD_PRIM (lsp, ASE_T("or"), 2, ase_lsp_prim_or, 2, MAX_ARGS);*/
ADD_PRIM (lsp, QSE_T("set"), 3, qse_lsp_prim_set, 2, 2);
ADD_PRIM (lsp, QSE_T("setq"), 4, qse_lsp_prim_setq, 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("quote"), 5, qse_lsp_prim_quote, 1, 1);
ADD_PRIM (lsp, QSE_T("defun"), 5, qse_lsp_prim_defun, 3, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("demac"), 5, qse_lsp_prim_demac, 3, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("let"), 3, qse_lsp_prim_let, 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("let*"), 4, qse_lsp_prim_letx, 1, MAX_ARGS);
/*ADD_PRIM (lsp, QSE_T("or"), 2, qse_lsp_prim_or, 2, MAX_ARGS);*/
ADD_PRIM (lsp, ASE_T("="), 1, ase_lsp_prim_eq, 2, 2);
ADD_PRIM (lsp, ASE_T("/="), 2, ase_lsp_prim_ne, 2, 2);
ADD_PRIM (lsp, ASE_T(">"), 1, ase_lsp_prim_gt, 2, 2);
ADD_PRIM (lsp, ASE_T("<"), 1, ase_lsp_prim_lt, 2, 2);
ADD_PRIM (lsp, ASE_T(">="), 2, ase_lsp_prim_ge, 2, 2);
ADD_PRIM (lsp, ASE_T("<="), 2, ase_lsp_prim_le, 2, 2);
ADD_PRIM (lsp, QSE_T("="), 1, qse_lsp_prim_eq, 2, 2);
ADD_PRIM (lsp, QSE_T("/="), 2, qse_lsp_prim_ne, 2, 2);
ADD_PRIM (lsp, QSE_T(">"), 1, qse_lsp_prim_gt, 2, 2);
ADD_PRIM (lsp, QSE_T("<"), 1, qse_lsp_prim_lt, 2, 2);
ADD_PRIM (lsp, QSE_T(">="), 2, qse_lsp_prim_ge, 2, 2);
ADD_PRIM (lsp, QSE_T("<="), 2, qse_lsp_prim_le, 2, 2);
ADD_PRIM (lsp, ASE_T("+"), 1, ase_lsp_prim_plus, 1, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("-"), 1, ase_lsp_prim_minus, 1, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("*"), 1, ase_lsp_prim_mul, 1, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("/"), 1, ase_lsp_prim_div, 1, MAX_ARGS);
ADD_PRIM (lsp, ASE_T("%"), 1, ase_lsp_prim_mod , 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("+"), 1, qse_lsp_prim_plus, 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("-"), 1, qse_lsp_prim_minus, 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("*"), 1, qse_lsp_prim_mul, 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("/"), 1, qse_lsp_prim_div, 1, MAX_ARGS);
ADD_PRIM (lsp, QSE_T("%"), 1, qse_lsp_prim_mod , 1, MAX_ARGS);
return 0;
}

64
qse/lib/lsp/lsp.h
View File

@ -4,14 +4,14 @@
* {License}
*/
#ifndef _ASE_LIB_LSP_LSP_H_
#define _ASE_LIB_LSP_LSP_H_
#ifndef _QSE_LIB_LSP_LSP_H_
#define _QSE_LIB_LSP_LSP_H_
#include "../cmn/mem.h"
#include "../cmn/chr.h"
#include <ase/cmn/str.h>
#include <qse/cmn/str.h>
#include <ase/lsp/lsp.h>
#include <qse/lsp/lsp.h>
#include "env.h"
#include "obj.h"
#include "mem.h"
@ -23,59 +23,59 @@
#pragma warning (disable: 4996)
#endif
#define ASE_LSP_ALLOC(lsp,size) ASE_MMGR_ALLOC(&(lsp)->prmfns.mmgr,size)
#define ASE_LSP_REALLOC(lsp,ptr,size) ASE_MMGR_REALLOC(&(lsp)->prmfns.mmgr,ptr,size)
#define ASE_LSP_FREE(lsp,ptr) ASE_MMGR_FREE(&(lsp)->prmfns.mmgr,ptr)
#define QSE_LSP_ALLOC(lsp,size) QSE_MMGR_ALLOC(&(lsp)->prmfns.mmgr,size)
#define QSE_LSP_REALLOC(lsp,ptr,size) QSE_MMGR_REALLOC(&(lsp)->prmfns.mmgr,ptr,size)
#define QSE_LSP_FREE(lsp,ptr) QSE_MMGR_FREE(&(lsp)->prmfns.mmgr,ptr)
#define ASE_LSP_ISUPPER(lsp,c) ASE_CCLS_ISUPPER(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISLOWER(lsp,c) ASE_CCLS_ISLOWER(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISALPHA(lsp,c) ASE_CCLS_ISALPHA(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISDIGIT(lsp,c) ASE_CCLS_ISDIGIT(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISXDIGIT(lsp,c) ASE_CCLS_ISXDIGIT(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISALNUM(lsp,c) ASE_CCLS_ISALNUM(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISSPACE(lsp,c) ASE_CCLS_ISSPACE(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISPRINT(lsp,c) ASE_CCLS_ISPRINT(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISGRAPH(lsp,c) ASE_CCLS_ISGRAPH(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISCNTRL(lsp,c) ASE_CCLS_ISCNTRL(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_ISPUNCT(lsp,c) ASE_CCLS_ISPUNCT(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_TOUPPER(lsp,c) ASE_CCLS_TOUPPER(&(lsp)->prmfns.ccls,c)
#define ASE_LSP_TOLOWER(lsp,c) ASE_CCLS_TOLOWER(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISUPPER(lsp,c) QSE_CCLS_ISUPPER(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISLOWER(lsp,c) QSE_CCLS_ISLOWER(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISALPHA(lsp,c) QSE_CCLS_ISALPHA(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISDIGIT(lsp,c) QSE_CCLS_ISDIGIT(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISXDIGIT(lsp,c) QSE_CCLS_ISXDIGIT(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISALNUM(lsp,c) QSE_CCLS_ISALNUM(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISSPACE(lsp,c) QSE_CCLS_ISSPACE(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISPRINT(lsp,c) QSE_CCLS_ISPRINT(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISGRAPH(lsp,c) QSE_CCLS_ISGRAPH(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISCNTRL(lsp,c) QSE_CCLS_ISCNTRL(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_ISPUNCT(lsp,c) QSE_CCLS_ISPUNCT(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_TOUPPER(lsp,c) QSE_CCLS_TOUPPER(&(lsp)->prmfns.ccls,c)
#define QSE_LSP_TOLOWER(lsp,c) QSE_CCLS_TOLOWER(&(lsp)->prmfns.ccls,c)
struct ase_lsp_t
struct qse_lsp_t
{
ase_lsp_prmfns_t prmfns;
qse_lsp_prmfns_t prmfns;
/* user-specified data */
void* assoc_data;
/* error */
int errnum;
ase_char_t errmsg[256];
qse_char_t errmsg[256];
/* options */
int opt_undef_symbol;
/* for read */
ase_cint_t curc;
qse_cint_t curc;
struct
{
int type;
ase_long_t ival;
ase_real_t rval;
ase_lsp_name_t name;
qse_long_t ival;
qse_real_t rval;
qse_lsp_name_t name;
} token;
/* io functions */
ase_lsp_io_t input_func;
ase_lsp_io_t output_func;
qse_lsp_io_t input_func;
qse_lsp_io_t output_func;
void* input_arg;
void* output_arg;
/* security options */
ase_size_t max_eval_depth;
ase_size_t cur_eval_depth;
qse_size_t max_eval_depth;
qse_size_t cur_eval_depth;
/* memory manager */
ase_lsp_mem_t* mem;
qse_lsp_mem_t* mem;
};
#endif

2
qse/lib/lsp/makefile.in
View File

@ -39,7 +39,7 @@ am__aclocal_m4_deps = $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
CONFIG_HEADER = $(top_builddir)/include/ase/config.h
CONFIG_HEADER = $(top_builddir)/include/qse/config.h
CONFIG_CLEAN_FILES =
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
am__vpath_adj = case $$p in \

21
qse/lib/lsp/makefile.msw.bcc
View File

@ -1,21 +0,0 @@
SRCS = lsp.c name.c mem.c env.c err.c read.c eval.c print.c misc.c \
prim.c prim_prog.c prim_let.c prim_compar.c prim_math.c
OBJS = $(SRCS:.c=.obj)
OUT = aselsp.lib
CC = bcc32
CFLAGS = -O2 -WM -w -w-inl -w-sig -w-spa -w-hid -RT- -I../..
all: $(OBJS)
tlib $(OUT) @&&!
+-$(**: = &^
+-)
!
clean:
-del $(OBJS) $(OUT) *.obj
.SUFFIXES: .c .obj
.c.obj:
$(CC) $(CFLAGS) -c $<

24
qse/lib/lsp/makefile.msw.cl
View File

@ -1,24 +0,0 @@
OUT = aselsp
SRCS = lsp.c name.c mem.c env.c err.c read.c eval.c print.c misc.c \
prim.c prim_prog.c prim_let.c prim_compar.c prim_math.c
OBJS = $(SRCS:.c=.obj)
CC = cl
LD = link
CFLAGS = /nologo /O2 /MT /W3 /GR- /Za -I../..
all: lib
lib: $(OBJS)
$(LD) -lib @<<
/nologo /out:$(OUT).lib $(OBJS)
<<
clean:
del $(OBJS) $(OUT) *.obj
.SUFFIXES: .c .obj
.c.obj:
$(CC) $(CFLAGS) /c $<

540
qse/lib/lsp/mem.c
View File

@ -6,274 +6,274 @@
#include "lsp.h"
ase_lsp_mem_t* ase_lsp_openmem (
ase_lsp_t* lsp, ase_size_t ubound, ase_size_t ubound_inc)
qse_lsp_mem_t* qse_lsp_openmem (
qse_lsp_t* lsp, qse_size_t ubound, qse_size_t ubound_inc)
{
ase_lsp_mem_t* mem;
ase_size_t i;
qse_lsp_mem_t* mem;
qse_size_t i;
/* allocate memory */
mem = (ase_lsp_mem_t*) ASE_LSP_ALLOC (lsp, ASE_SIZEOF(ase_lsp_mem_t));
if (mem == ASE_NULL) return ASE_NULL;
mem = (qse_lsp_mem_t*) QSE_LSP_ALLOC (lsp, QSE_SIZEOF(qse_lsp_mem_t));
if (mem == QSE_NULL) return QSE_NULL;
ASE_MEMSET (mem, 0, ASE_SIZEOF(ase_lsp_mem_t));
QSE_MEMSET (mem, 0, QSE_SIZEOF(qse_lsp_mem_t));
mem->lsp = lsp;
/* create a new root environment frame */
mem->frame = ase_lsp_newframe (lsp);
if (mem->frame == ASE_NULL)
mem->frame = qse_lsp_newframe (lsp);
if (mem->frame == QSE_NULL)
{
ASE_LSP_FREE (lsp, mem);
return ASE_NULL;
QSE_LSP_FREE (lsp, mem);
return QSE_NULL;
}
mem->root_frame = mem->frame;
mem->brooding_frame = ASE_NULL;
mem->tlink = ASE_NULL;
mem->brooding_frame = QSE_NULL;
mem->tlink = QSE_NULL;
mem->tlink_count = 0;
/* initialize object allocation list */
mem->ubound = ubound;
mem->ubound_inc = ubound_inc;
mem->count = 0;
for (i = 0; i < ASE_LSP_TYPE_COUNT; i++)
for (i = 0; i < QSE_LSP_TYPE_COUNT; i++)
{
mem->used[i] = ASE_NULL;
mem->free[i] = ASE_NULL;
mem->used[i] = QSE_NULL;
mem->free[i] = QSE_NULL;
}
mem->read = ASE_NULL;
mem->read = QSE_NULL;
/* when "ubound" is too small, the garbage collection can
* be performed while making the common objects. */
mem->nil = ASE_NULL;
mem->t = ASE_NULL;
mem->quote = ASE_NULL;
mem->lambda = ASE_NULL;
mem->macro = ASE_NULL;
mem->nil = QSE_NULL;
mem->t = QSE_NULL;
mem->quote = QSE_NULL;
mem->lambda = QSE_NULL;
mem->macro = QSE_NULL;
/* initialize common object pointers */
mem->nil = ase_lsp_makenil (mem);
mem->t = ase_lsp_maketrue (mem);
mem->quote = ase_lsp_makesym (mem, ASE_T("quote"), 5);
mem->lambda = ase_lsp_makesym (mem, ASE_T("lambda"), 6);
mem->macro = ase_lsp_makesym (mem, ASE_T("macro"), 5);
mem->nil = qse_lsp_makenil (mem);
mem->t = qse_lsp_maketrue (mem);
mem->quote = qse_lsp_makesym (mem, QSE_T("quote"), 5);
mem->lambda = qse_lsp_makesym (mem, QSE_T("lambda"), 6);
mem->macro = qse_lsp_makesym (mem, QSE_T("macro"), 5);
if (mem->nil == ASE_NULL ||
mem->t == ASE_NULL ||
mem->quote == ASE_NULL ||
mem->lambda == ASE_NULL ||
mem->macro == ASE_NULL)
if (mem->nil == QSE_NULL ||
mem->t == QSE_NULL ||
mem->quote == QSE_NULL ||
mem->lambda == QSE_NULL ||
mem->macro == QSE_NULL)
{
ase_lsp_dispose_all (mem);
ase_lsp_freeframe (lsp, mem->frame);
ASE_LSP_FREE (lsp, mem);
return ASE_NULL;
qse_lsp_dispose_all (mem);
qse_lsp_freeframe (lsp, mem->frame);
QSE_LSP_FREE (lsp, mem);
return QSE_NULL;
}
ASE_LSP_PERM(mem->nil) = 1;
ASE_LSP_PERM(mem->t) = 1;
ASE_LSP_PERM(mem->quote) = 1;
ASE_LSP_PERM(mem->lambda) = 1;
ASE_LSP_PERM(mem->macro) = 1;
QSE_LSP_PERM(mem->nil) = 1;
QSE_LSP_PERM(mem->t) = 1;
QSE_LSP_PERM(mem->quote) = 1;
QSE_LSP_PERM(mem->lambda) = 1;
QSE_LSP_PERM(mem->macro) = 1;
return mem;
}
void ase_lsp_closemem (ase_lsp_mem_t* mem)
void qse_lsp_closemem (qse_lsp_mem_t* mem)
{
/* dispose of the allocated objects */
ase_lsp_dispose_all (mem);
qse_lsp_dispose_all (mem);
/* dispose of environment frames */
ase_lsp_freeframe (mem->lsp, mem->frame);
qse_lsp_freeframe (mem->lsp, mem->frame);
/* free the memory */
ASE_LSP_FREE (mem->lsp, mem);
QSE_LSP_FREE (mem->lsp, mem);
}
ase_lsp_obj_t* ase_lsp_alloc (ase_lsp_mem_t* mem, int type, ase_size_t size)
qse_lsp_obj_t* qse_lsp_alloc (qse_lsp_mem_t* mem, int type, qse_size_t size)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
/* TODO: remove the following line... */
ase_lsp_gc (mem);
qse_lsp_gc (mem);
if (mem->count >= mem->ubound) ase_lsp_gc (mem);
if (mem->count >= mem->ubound) qse_lsp_gc (mem);
if (mem->count >= mem->ubound)
{
mem->ubound += mem->ubound_inc;
if (mem->count >= mem->ubound) return ASE_NULL;
if (mem->count >= mem->ubound) return QSE_NULL;
}
obj = (ase_lsp_obj_t*) ASE_LSP_ALLOC (mem->lsp, size);
if (obj == ASE_NULL)
obj = (qse_lsp_obj_t*) QSE_LSP_ALLOC (mem->lsp, size);
if (obj == QSE_NULL)
{
ase_lsp_gc (mem);
qse_lsp_gc (mem);
obj = (ase_lsp_obj_t*) ASE_LSP_ALLOC (mem->lsp, size);
if (obj == ASE_NULL)
obj = (qse_lsp_obj_t*) QSE_LSP_ALLOC (mem->lsp, size);
if (obj == QSE_NULL)
{
ase_lsp_seterror (mem->lsp, ASE_LSP_ENOMEM, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (mem->lsp, QSE_LSP_ENOMEM, QSE_NULL, 0);
return QSE_NULL;
}
}
ASE_LSP_TYPE(obj) = type;
ASE_LSP_SIZE(obj) = size;
ASE_LSP_MARK(obj) = 0;
ASE_LSP_PERM(obj) = 0;
ASE_LSP_LOCK(obj) = 0;
QSE_LSP_TYPE(obj) = type;
QSE_LSP_SIZE(obj) = size;
QSE_LSP_MARK(obj) = 0;
QSE_LSP_PERM(obj) = 0;
QSE_LSP_LOCK(obj) = 0;
/* insert the object at the head of the used list */
ASE_LSP_LINK(obj) = mem->used[type];
QSE_LSP_LINK(obj) = mem->used[type];
mem->used[type] = obj;
mem->count++;
#if 0
ase_dprint1 (ASE_T("mem->count: %u\n"), mem->count);
qse_dprint1 (QSE_T("mem->count: %u\n"), mem->count);
#endif
return obj;
}
void ase_lsp_dispose (
ase_lsp_mem_t* mem, ase_lsp_obj_t* prev, ase_lsp_obj_t* obj)
void qse_lsp_dispose (
qse_lsp_mem_t* mem, qse_lsp_obj_t* prev, qse_lsp_obj_t* obj)
{
ASE_ASSERT (obj != ASE_NULL);
ASE_ASSERT (mem->count > 0);
QSE_ASSERT (obj != QSE_NULL);
QSE_ASSERT (mem->count > 0);
/* TODO: push the object to the free list for more
* efficient memory management */
if (prev == ASE_NULL)
mem->used[ASE_LSP_TYPE(obj)] = ASE_LSP_LINK(obj);
else ASE_LSP_LINK(prev) = ASE_LSP_LINK(obj);
if (prev == QSE_NULL)
mem->used[QSE_LSP_TYPE(obj)] = QSE_LSP_LINK(obj);
else QSE_LSP_LINK(prev) = QSE_LSP_LINK(obj);
mem->count--;
#if 0
ase_dprint1 (ASE_T("mem->count: %u\n"), mem->count);
qse_dprint1 (QSE_T("mem->count: %u\n"), mem->count);
#endif
ASE_LSP_FREE (mem->lsp, obj);
QSE_LSP_FREE (mem->lsp, obj);
}
void ase_lsp_dispose_all (ase_lsp_mem_t* mem)
void qse_lsp_dispose_all (qse_lsp_mem_t* mem)
{
ase_lsp_obj_t* obj, * next;
ase_size_t i;
qse_lsp_obj_t* obj, * next;
qse_size_t i;
for (i = 0; i < ASE_LSP_TYPE_COUNT; i++)
for (i = 0; i < QSE_LSP_TYPE_COUNT; i++)
{
obj = mem->used[i];
while (obj != ASE_NULL)
while (obj != QSE_NULL)
{
next = ASE_LSP_LINK(obj);
ase_lsp_dispose (mem, ASE_NULL, obj);
next = QSE_LSP_LINK(obj);
qse_lsp_dispose (mem, QSE_NULL, obj);
obj = next;
}
}
}
static void __mark_obj (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
static void __mark_obj (qse_lsp_t* lsp, qse_lsp_obj_t* obj)
{
ASE_ASSERT (obj != ASE_NULL);
QSE_ASSERT (obj != QSE_NULL);
/* TODO: can it be recursive? */
if (ASE_LSP_MARK(obj) != 0) return;
if (QSE_LSP_MARK(obj) != 0) return;
ASE_LSP_MARK(obj) = 1;
QSE_LSP_MARK(obj) = 1;
if (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_CONS)
if (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_CONS)
{
__mark_obj (lsp, ASE_LSP_CAR(obj));
__mark_obj (lsp, ASE_LSP_CDR(obj));
__mark_obj (lsp, QSE_LSP_CAR(obj));
__mark_obj (lsp, QSE_LSP_CDR(obj));
}
else if (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_FUNC)
else if (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_FUNC)
{
__mark_obj (lsp, ASE_LSP_FFORMAL(obj));
__mark_obj (lsp, ASE_LSP_FBODY(obj));
__mark_obj (lsp, QSE_LSP_FFORMAL(obj));
__mark_obj (lsp, QSE_LSP_FBODY(obj));
}
else if (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_MACRO)
else if (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_MACRO)
{
__mark_obj (lsp, ASE_LSP_MFORMAL(obj));
__mark_obj (lsp, ASE_LSP_MBODY(obj));
__mark_obj (lsp, QSE_LSP_MFORMAL(obj));
__mark_obj (lsp, QSE_LSP_MBODY(obj));
}
}
/*
* ase_lsp_lockobj and ase_lsp_deepunlockobj are just called by ase_lsp_read.
* qse_lsp_lockobj and qse_lsp_deepunlockobj are just called by qse_lsp_read.
*/
void ase_lsp_lockobj (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
void qse_lsp_lockobj (qse_lsp_t* lsp, qse_lsp_obj_t* obj)
{
ASE_ASSERTX (obj != ASE_NULL,
"an object pointer should not be ASE_NULL");
if (ASE_LSP_PERM(obj) == 0) ASE_LSP_LOCK(obj)++;
QSE_ASSERTX (obj != QSE_NULL,
"an object pointer should not be QSE_NULL");
if (QSE_LSP_PERM(obj) == 0) QSE_LSP_LOCK(obj)++;
}
void ase_lsp_unlockobj (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
void qse_lsp_unlockobj (qse_lsp_t* lsp, qse_lsp_obj_t* obj)
{
ASE_ASSERTX (obj != ASE_NULL,
"an object pointer should not be ASE_NULL");
QSE_ASSERTX (obj != QSE_NULL,
"an object pointer should not be QSE_NULL");
if (ASE_LSP_PERM(obj) != 0) return;
ASE_ASSERTX (ASE_LSP_LOCK(obj) > 0,
if (QSE_LSP_PERM(obj) != 0) return;
QSE_ASSERTX (QSE_LSP_LOCK(obj) > 0,
"the lock count should be greater than zero to be unlocked");
ASE_LSP_LOCK(obj)--;
QSE_LSP_LOCK(obj)--;
}
void ase_lsp_deepunlockobj (ase_lsp_t* lsp, ase_lsp_obj_t* obj)
void qse_lsp_deepunlockobj (qse_lsp_t* lsp, qse_lsp_obj_t* obj)
{
ASE_ASSERTX (obj != ASE_NULL,
"an object pointer should not be ASE_NULL");
QSE_ASSERTX (obj != QSE_NULL,
"an object pointer should not be QSE_NULL");
if (ASE_LSP_PERM(obj) == 0)
if (QSE_LSP_PERM(obj) == 0)
{
ASE_ASSERTX (ASE_LSP_LOCK(obj) > 0,
QSE_ASSERTX (QSE_LSP_LOCK(obj) > 0,
"the lock count should be greater than zero to be unlocked");
ASE_LSP_LOCK(obj)--;
QSE_LSP_LOCK(obj)--;
}
if (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_CONS)
if (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_CONS)
{
ase_lsp_deepunlockobj (lsp, ASE_LSP_CAR(obj));
ase_lsp_deepunlockobj (lsp, ASE_LSP_CDR(obj));
qse_lsp_deepunlockobj (lsp, QSE_LSP_CAR(obj));
qse_lsp_deepunlockobj (lsp, QSE_LSP_CDR(obj));
}
else if (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_FUNC)
else if (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_FUNC)
{
ase_lsp_deepunlockobj (lsp, ASE_LSP_FFORMAL(obj));
ase_lsp_deepunlockobj (lsp, ASE_LSP_FBODY(obj));
qse_lsp_deepunlockobj (lsp, QSE_LSP_FFORMAL(obj));
qse_lsp_deepunlockobj (lsp, QSE_LSP_FBODY(obj));
}
else if (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_MACRO)
else if (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_MACRO)
{
ase_lsp_deepunlockobj (lsp, ASE_LSP_MFORMAL(obj));
ase_lsp_deepunlockobj (lsp, ASE_LSP_MBODY(obj));
qse_lsp_deepunlockobj (lsp, QSE_LSP_MFORMAL(obj));
qse_lsp_deepunlockobj (lsp, QSE_LSP_MBODY(obj));
}
}
static void __mark_objs_in_use (ase_lsp_mem_t* mem)
static void __mark_objs_in_use (qse_lsp_mem_t* mem)
{
ase_lsp_frame_t* frame;
ase_lsp_assoc_t* assoc;
ase_lsp_tlink_t* tlink;
/*ase_lsp_arr_t* arr;*/
/*ase_size_t i;*/
qse_lsp_frame_t* frame;
qse_lsp_assoc_t* assoc;
qse_lsp_tlink_t* tlink;
/*qse_lsp_arr_t* arr;*/
/*qse_size_t i;*/
#if 0
ase_dprint0 (ASE_T("marking environment frames\n"));
qse_dprint0 (QSE_T("marking environment frames\n"));
#endif
/* mark objects in the environment frames */
frame = mem->frame;
while (frame != ASE_NULL)
while (frame != QSE_NULL)
{
assoc = frame->assoc;
while (assoc != ASE_NULL)
while (assoc != QSE_NULL)
{
__mark_obj (mem->lsp, assoc->name);
if (assoc->value != ASE_NULL)
if (assoc->value != QSE_NULL)
__mark_obj (mem->lsp, assoc->value);
if (assoc->func != ASE_NULL)
if (assoc->func != QSE_NULL)
__mark_obj (mem->lsp, assoc->func);
assoc = assoc->link;
@ -283,21 +283,21 @@ static void __mark_objs_in_use (ase_lsp_mem_t* mem)
}
#if 0
ase_dprint0 (ASE_T("marking interim frames\n"));
qse_dprint0 (QSE_T("marking interim frames\n"));
#endif
/* mark objects in the interim frames */
frame = mem->brooding_frame;
while (frame != ASE_NULL)
while (frame != QSE_NULL)
{
assoc = frame->assoc;
while (assoc != ASE_NULL)
while (assoc != QSE_NULL)
{
__mark_obj (mem->lsp, assoc->name);
if (assoc->value != ASE_NULL)
if (assoc->value != QSE_NULL)
__mark_obj (mem->lsp, assoc->value);
if (assoc->func != ASE_NULL)
if (assoc->func != QSE_NULL)
__mark_obj (mem->lsp, assoc->func);
assoc = assoc->link;
@ -306,68 +306,68 @@ static void __mark_objs_in_use (ase_lsp_mem_t* mem)
frame = frame->link;
}
/* ase_dprint0 (ASE_T("marking the read object\n"));*/
if (mem->read != ASE_NULL) __mark_obj (mem->lsp, mem->read);
/* qse_dprint0 (QSE_T("marking the read object\n"));*/
if (mem->read != QSE_NULL) __mark_obj (mem->lsp, mem->read);
/* ase_dprint0 (ASE_T("marking the temporary objects\n"));*/
for (tlink = mem->tlink; tlink != ASE_NULL; tlink = tlink->link)
/* qse_dprint0 (QSE_T("marking the temporary objects\n"));*/
for (tlink = mem->tlink; tlink != QSE_NULL; tlink = tlink->link)
{
__mark_obj (mem->lsp, tlink->obj);
}
#if 0
ase_dprint0 (ASE_T("marking builtin objects\n"));
qse_dprint0 (QSE_T("marking builtin objects\n"));
#endif
/* mark common objects */
if (mem->t != ASE_NULL) __mark_obj (mem->lsp, mem->t);
if (mem->nil != ASE_NULL) __mark_obj (mem->lsp, mem->nil);
if (mem->quote != ASE_NULL) __mark_obj (mem->lsp, mem->quote);
if (mem->lambda != ASE_NULL) __mark_obj (mem->lsp, mem->lambda);
if (mem->macro != ASE_NULL) __mark_obj (mem->lsp, mem->macro);
if (mem->t != QSE_NULL) __mark_obj (mem->lsp, mem->t);
if (mem->nil != QSE_NULL) __mark_obj (mem->lsp, mem->nil);
if (mem->quote != QSE_NULL) __mark_obj (mem->lsp, mem->quote);
if (mem->lambda != QSE_NULL) __mark_obj (mem->lsp, mem->lambda);
if (mem->macro != QSE_NULL) __mark_obj (mem->lsp, mem->macro);
}
//#include <ase/utl/stdio.h>
static void __sweep_unmarked_objs (ase_lsp_mem_t* mem)
//#include <qse/utl/stdio.h>
static void __sweep_unmarked_objs (qse_lsp_mem_t* mem)
{
ase_lsp_obj_t* obj, * prev, * next;
ase_size_t i;
qse_lsp_obj_t* obj, * prev, * next;
qse_size_t i;
/* scan all the allocated objects and get rid of unused objects */
for (i = 0; i < ASE_LSP_TYPE_COUNT; i++)
for (i = 0; i < QSE_LSP_TYPE_COUNT; i++)
{
prev = ASE_NULL;
prev = QSE_NULL;
obj = mem->used[i];
#if 0
ase_dprint1 (ASE_T("sweeping objects of type: %u\n"), i);
qse_dprint1 (QSE_T("sweeping objects of type: %u\n"), i);
#endif
while (obj != ASE_NULL)
while (obj != QSE_NULL)
{
next = ASE_LSP_LINK(obj);
next = QSE_LSP_LINK(obj);
if (ASE_LSP_LOCK(obj) == 0 &&
ASE_LSP_MARK(obj) == 0 &&
ASE_LSP_PERM(obj) == 0)
if (QSE_LSP_LOCK(obj) == 0 &&
QSE_LSP_MARK(obj) == 0 &&
QSE_LSP_PERM(obj) == 0)
{
/* dispose of unused objects */
/*
if (i == ASE_LSP_OBJ_INT)
ase_printf (ASE_T("disposing....%d [%d]\n"), i, (int)ASE_LSP_IVAL(obj));
if (i == ASE_LSP_OBJ_REAL)
ase_printf (ASE_T("disposing....%d [%Lf]\n"), i, (double)ASE_LSP_RVAL(obj));
else if (i == ASE_LSP_OBJ_SYM)
ase_printf (ASE_T("disposing....%d [%s]\n"), i, ASE_LSP_SYMPTR(obj));
else if (i == ASE_LSP_OBJ_STR)
ase_printf (ASE_T("disposing....%d [%s]\n"), i, ASE_LSP_STRPTR(obj));
if (i == QSE_LSP_OBJ_INT)
qse_printf (QSE_T("disposing....%d [%d]\n"), i, (int)QSE_LSP_IVAL(obj));
if (i == QSE_LSP_OBJ_REAL)
qse_printf (QSE_T("disposing....%d [%Lf]\n"), i, (double)QSE_LSP_RVAL(obj));
else if (i == QSE_LSP_OBJ_SYM)
qse_printf (QSE_T("disposing....%d [%s]\n"), i, QSE_LSP_SYMPTR(obj));
else if (i == QSE_LSP_OBJ_STR)
qse_printf (QSE_T("disposing....%d [%s]\n"), i, QSE_LSP_STRPTR(obj));
else
ase_printf (ASE_T("disposing....%d\n"), i);
qse_printf (QSE_T("disposing....%d\n"), i);
*/
ase_lsp_dispose (mem, prev, obj);
qse_lsp_dispose (mem, prev, obj);
}
else
{
/* unmark the object in use */
ASE_LSP_MARK(obj) = 0;
QSE_LSP_MARK(obj) = 0;
prev = obj;
}
@ -376,224 +376,224 @@ ase_printf (ASE_T("disposing....%d\n"), i);
}
}
void ase_lsp_gc (ase_lsp_mem_t* mem)
void qse_lsp_gc (qse_lsp_mem_t* mem)
{
__mark_objs_in_use (mem);
__sweep_unmarked_objs (mem);
}
ase_lsp_obj_t* ase_lsp_makenil (ase_lsp_mem_t* mem)
qse_lsp_obj_t* qse_lsp_makenil (qse_lsp_mem_t* mem)
{
if (mem->nil != ASE_NULL) return mem->nil;
mem->nil = ase_lsp_alloc (
mem, ASE_LSP_OBJ_NIL, ASE_SIZEOF(ase_lsp_obj_nil_t));
if (mem->nil != QSE_NULL) return mem->nil;
mem->nil = qse_lsp_alloc (
mem, QSE_LSP_OBJ_NIL, QSE_SIZEOF(qse_lsp_obj_nil_t));
return mem->nil;
}
ase_lsp_obj_t* ase_lsp_maketrue (ase_lsp_mem_t* mem)
qse_lsp_obj_t* qse_lsp_maketrue (qse_lsp_mem_t* mem)
{
if (mem->t != ASE_NULL) return mem->t;
mem->t = ase_lsp_alloc (
mem, ASE_LSP_OBJ_TRUE, ASE_SIZEOF(ase_lsp_obj_true_t));
if (mem->t != QSE_NULL) return mem->t;
mem->t = qse_lsp_alloc (
mem, QSE_LSP_OBJ_TRUE, QSE_SIZEOF(qse_lsp_obj_true_t));
return mem->t;
}
ase_lsp_obj_t* ase_lsp_makeintobj (ase_lsp_mem_t* mem, ase_long_t value)
qse_lsp_obj_t* qse_lsp_makeintobj (qse_lsp_mem_t* mem, qse_long_t value)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
obj = ase_lsp_alloc (mem,
ASE_LSP_OBJ_INT, ASE_SIZEOF(ase_lsp_obj_int_t));
if (obj == ASE_NULL) return ASE_NULL;
obj = qse_lsp_alloc (mem,
QSE_LSP_OBJ_INT, QSE_SIZEOF(qse_lsp_obj_int_t));
if (obj == QSE_NULL) return QSE_NULL;
ASE_LSP_IVAL(obj) = value;
QSE_LSP_IVAL(obj) = value;
return obj;
}
ase_lsp_obj_t* ase_lsp_makerealobj (ase_lsp_mem_t* mem, ase_real_t value)
qse_lsp_obj_t* qse_lsp_makerealobj (qse_lsp_mem_t* mem, qse_real_t value)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
obj = ase_lsp_alloc (mem,
ASE_LSP_OBJ_REAL, ASE_SIZEOF(ase_lsp_obj_real_t));
if (obj == ASE_NULL) return ASE_NULL;
obj = qse_lsp_alloc (mem,
QSE_LSP_OBJ_REAL, QSE_SIZEOF(qse_lsp_obj_real_t));
if (obj == QSE_NULL) return QSE_NULL;
ASE_LSP_RVAL(obj) = value;
QSE_LSP_RVAL(obj) = value;
return obj;
}
ase_lsp_obj_t* ase_lsp_makesym (
ase_lsp_mem_t* mem, const ase_char_t* str, ase_size_t len)
qse_lsp_obj_t* qse_lsp_makesym (
qse_lsp_mem_t* mem, const qse_char_t* str, qse_size_t len)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
/* look for a sysmbol with the given name */
obj = mem->used[ASE_LSP_OBJ_SYM];
while (obj != ASE_NULL)
obj = mem->used[QSE_LSP_OBJ_SYM];
while (obj != QSE_NULL)
{
/* if there is a symbol with the same name, it is just used. */
if (ase_strxncmp (
ASE_LSP_SYMPTR(obj),
ASE_LSP_SYMLEN(obj),
if (qse_strxncmp (
QSE_LSP_SYMPTR(obj),
QSE_LSP_SYMLEN(obj),
str, len) == 0) return obj;
obj = ASE_LSP_LINK(obj);
obj = QSE_LSP_LINK(obj);
}
/* no such symbol found. create a new one */
obj = ase_lsp_alloc (mem, ASE_LSP_OBJ_SYM,
ASE_SIZEOF(ase_lsp_obj_sym_t)+(len + 1)*ASE_SIZEOF(ase_char_t));
if (obj == ASE_NULL) return ASE_NULL;
obj = qse_lsp_alloc (mem, QSE_LSP_OBJ_SYM,
QSE_SIZEOF(qse_lsp_obj_sym_t)+(len + 1)*QSE_SIZEOF(qse_char_t));
if (obj == QSE_NULL) return QSE_NULL;
/* fill in the symbol buffer */
ase_strncpy (ASE_LSP_SYMPTR(obj), str, len);
qse_strncpy (QSE_LSP_SYMPTR(obj), str, len);
return obj;
}
ase_lsp_obj_t* ase_lsp_makestr (
ase_lsp_mem_t* mem, const ase_char_t* str, ase_size_t len)
qse_lsp_obj_t* qse_lsp_makestr (
qse_lsp_mem_t* mem, const qse_char_t* str, qse_size_t len)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
/* allocate memory for the string */
obj = ase_lsp_alloc (mem, ASE_LSP_OBJ_STR,
ASE_SIZEOF(ase_lsp_obj_str_t)+(len + 1)*ASE_SIZEOF(ase_char_t));
if (obj == ASE_NULL) return ASE_NULL;
obj = qse_lsp_alloc (mem, QSE_LSP_OBJ_STR,
QSE_SIZEOF(qse_lsp_obj_str_t)+(len + 1)*QSE_SIZEOF(qse_char_t));
if (obj == QSE_NULL) return QSE_NULL;
/* fill in the string buffer */
ase_strncpy (ASE_LSP_STRPTR(obj), str, len);
qse_strncpy (QSE_LSP_STRPTR(obj), str, len);
return obj;
}
ase_lsp_obj_t* ase_lsp_makecons (
ase_lsp_mem_t* mem, ase_lsp_obj_t* car, ase_lsp_obj_t* cdr)
qse_lsp_obj_t* qse_lsp_makecons (
qse_lsp_mem_t* mem, qse_lsp_obj_t* car, qse_lsp_obj_t* cdr)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
obj = ase_lsp_alloc (mem,
ASE_LSP_OBJ_CONS, ASE_SIZEOF(ase_lsp_obj_cons_t));
if (obj == ASE_NULL) return ASE_NULL;
obj = qse_lsp_alloc (mem,
QSE_LSP_OBJ_CONS, QSE_SIZEOF(qse_lsp_obj_cons_t));
if (obj == QSE_NULL) return QSE_NULL;
ASE_LSP_CAR(obj) = car;
ASE_LSP_CDR(obj) = cdr;
QSE_LSP_CAR(obj) = car;
QSE_LSP_CDR(obj) = cdr;
return obj;
}
ase_lsp_obj_t* ase_lsp_makefunc (
ase_lsp_mem_t* mem, ase_lsp_obj_t* formal, ase_lsp_obj_t* body)
qse_lsp_obj_t* qse_lsp_makefunc (
qse_lsp_mem_t* mem, qse_lsp_obj_t* formal, qse_lsp_obj_t* body)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
obj = ase_lsp_alloc (mem,
ASE_LSP_OBJ_FUNC, ASE_SIZEOF(ase_lsp_obj_func_t));
if (obj == ASE_NULL) return ASE_NULL;
obj = qse_lsp_alloc (mem,
QSE_LSP_OBJ_FUNC, QSE_SIZEOF(qse_lsp_obj_func_t));
if (obj == QSE_NULL) return QSE_NULL;
ASE_LSP_FFORMAL(obj) = formal;
ASE_LSP_FBODY(obj) = body;
QSE_LSP_FFORMAL(obj) = formal;
QSE_LSP_FBODY(obj) = body;
return obj;
}
ase_lsp_obj_t* ase_lsp_makemacro (
ase_lsp_mem_t* mem, ase_lsp_obj_t* formal, ase_lsp_obj_t* body)
qse_lsp_obj_t* qse_lsp_makemacro (
qse_lsp_mem_t* mem, qse_lsp_obj_t* formal, qse_lsp_obj_t* body)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
obj = ase_lsp_alloc (mem,
ASE_LSP_OBJ_MACRO, ASE_SIZEOF(ase_lsp_obj_macro_t));
if (obj == ASE_NULL) return ASE_NULL;
obj = qse_lsp_alloc (mem,
QSE_LSP_OBJ_MACRO, QSE_SIZEOF(qse_lsp_obj_macro_t));
if (obj == QSE_NULL) return QSE_NULL;
ASE_LSP_MFORMAL(obj) = formal;
ASE_LSP_MBODY(obj) = body;
QSE_LSP_MFORMAL(obj) = formal;
QSE_LSP_MBODY(obj) = body;
return obj;
}
ase_lsp_obj_t* ase_lsp_makeprim (ase_lsp_mem_t* mem,
ase_lsp_prim_t impl, ase_size_t min_args, ase_size_t max_args)
qse_lsp_obj_t* qse_lsp_makeprim (qse_lsp_mem_t* mem,
qse_lsp_prim_t impl, qse_size_t min_args, qse_size_t max_args)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
obj = ase_lsp_alloc (
mem, ASE_LSP_OBJ_PRIM, ASE_SIZEOF(ase_lsp_obj_prim_t));
if (obj == ASE_NULL) return ASE_NULL;
obj = qse_lsp_alloc (
mem, QSE_LSP_OBJ_PRIM, QSE_SIZEOF(qse_lsp_obj_prim_t));
if (obj == QSE_NULL) return QSE_NULL;
ASE_LSP_PIMPL(obj) = impl;
ASE_LSP_PMINARGS(obj) = min_args;
ASE_LSP_PMAXARGS(obj) = max_args;
QSE_LSP_PIMPL(obj) = impl;
QSE_LSP_PMINARGS(obj) = min_args;
QSE_LSP_PMAXARGS(obj) = max_args;
return obj;
}
ase_lsp_assoc_t* ase_lsp_lookup (ase_lsp_mem_t* mem, ase_lsp_obj_t* name)
qse_lsp_assoc_t* qse_lsp_lookup (qse_lsp_mem_t* mem, qse_lsp_obj_t* name)
{
ase_lsp_frame_t* frame;
ase_lsp_assoc_t* assoc;
qse_lsp_frame_t* frame;
qse_lsp_assoc_t* assoc;
ASE_ASSERT (ASE_LSP_TYPE(name) == ASE_LSP_OBJ_SYM);
QSE_ASSERT (QSE_LSP_TYPE(name) == QSE_LSP_OBJ_SYM);
frame = mem->frame;
while (frame != ASE_NULL)
while (frame != QSE_NULL)
{
assoc = ase_lsp_lookupinframe (mem->lsp, frame, name);
if (assoc != ASE_NULL) return assoc;
assoc = qse_lsp_lookupinframe (mem->lsp, frame, name);
if (assoc != QSE_NULL) return assoc;
frame = frame->link;
}
return ASE_NULL;
return QSE_NULL;
}
ase_lsp_assoc_t* ase_lsp_setvalue (
ase_lsp_mem_t* mem, ase_lsp_obj_t* name, ase_lsp_obj_t* value)
qse_lsp_assoc_t* qse_lsp_setvalue (
qse_lsp_mem_t* mem, qse_lsp_obj_t* name, qse_lsp_obj_t* value)
{
ase_lsp_assoc_t* assoc;
qse_lsp_assoc_t* assoc;
assoc = ase_lsp_lookup (mem, name);
if (assoc == ASE_NULL)
assoc = qse_lsp_lookup (mem, name);
if (assoc == QSE_NULL)
{
assoc = ase_lsp_insvalueintoframe (
assoc = qse_lsp_insvalueintoframe (
mem->lsp, mem->root_frame, name, value);
if (assoc == ASE_NULL) return ASE_NULL;
if (assoc == QSE_NULL) return QSE_NULL;
}
else assoc->value = value;
return assoc;
}
ase_lsp_assoc_t* ase_lsp_setfunc (
ase_lsp_mem_t* mem, ase_lsp_obj_t* name, ase_lsp_obj_t* func)
qse_lsp_assoc_t* qse_lsp_setfunc (
qse_lsp_mem_t* mem, qse_lsp_obj_t* name, qse_lsp_obj_t* func)
{
ase_lsp_assoc_t* assoc;
qse_lsp_assoc_t* assoc;
assoc = ase_lsp_lookup (mem, name);
if (assoc == ASE_NULL)
assoc = qse_lsp_lookup (mem, name);
if (assoc == QSE_NULL)
{
assoc = ase_lsp_insfuncintoframe (
assoc = qse_lsp_insfuncintoframe (
mem->lsp, mem->root_frame, name, func);
if (assoc == ASE_NULL) return ASE_NULL;
if (assoc == QSE_NULL) return QSE_NULL;
}
else assoc->func = func;
return assoc;
}
ase_size_t ase_lsp_conslen (ase_lsp_mem_t* mem, ase_lsp_obj_t* obj)
qse_size_t qse_lsp_conslen (qse_lsp_mem_t* mem, qse_lsp_obj_t* obj)
{
ase_size_t count;
qse_size_t count;
ASE_ASSERT (
obj == mem->nil || ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (
obj == mem->nil || QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_CONS);
count = 0;
/*while (obj != mem->nil) {*/
while (ASE_LSP_TYPE(obj) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(obj) == QSE_LSP_OBJ_CONS)
{
count++;
obj = ASE_LSP_CDR(obj);
obj = QSE_LSP_CDR(obj);
}
return count;

110
qse/lib/lsp/mem.h
View File

@ -4,93 +4,93 @@
* {License}
*/
#ifndef _ASE_LSP_MEM_H_
#define _ASE_LSP_MEM_H_
#ifndef _QSE_LSP_MEM_H_
#define _QSE_LSP_MEM_H_
#ifndef _ASE_LSP_LSP_H_
#error Never include this file directly. Include <ase/lsp/lsp.h> instead
#ifndef _QSE_LSP_LSP_H_
#error Never include this file directly. Include <qse/lsp/lsp.h> instead
#endif
typedef struct ase_lsp_mem_t ase_lsp_mem_t;
typedef struct qse_lsp_mem_t qse_lsp_mem_t;
struct ase_lsp_mem_t
struct qse_lsp_mem_t
{
ase_lsp_t* lsp;
qse_lsp_t* lsp;
/* object allocation list */
ase_size_t ubound; /* upper bounds of the maximum number of objects */
ase_size_t ubound_inc; /* increment of the upper bounds */
ase_size_t count; /* the number of objects currently allocated */
ase_lsp_obj_t* used[ASE_LSP_TYPE_COUNT];
ase_lsp_obj_t* free[ASE_LSP_TYPE_COUNT];
ase_lsp_obj_t* read;
qse_size_t ubound; /* upper bounds of the maximum number of objects */
qse_size_t ubound_inc; /* increment of the upper bounds */
qse_size_t count; /* the number of objects currently allocated */
qse_lsp_obj_t* used[QSE_LSP_TYPE_COUNT];
qse_lsp_obj_t* free[QSE_LSP_TYPE_COUNT];
qse_lsp_obj_t* read;
/* commonly accessed objects */
ase_lsp_obj_t* nil; /* ase_lsp_obj_nil_t */
ase_lsp_obj_t* t; /* ase_lsp_obj_true_t */
ase_lsp_obj_t* quote; /* ase_lsp_obj_sym_t */
ase_lsp_obj_t* lambda; /* ase_lsp_obj_sym_t */
ase_lsp_obj_t* macro; /* ase_lsp_obj_sym_t */
qse_lsp_obj_t* nil; /* qse_lsp_obj_nil_t */
qse_lsp_obj_t* t; /* qse_lsp_obj_true_t */
qse_lsp_obj_t* quote; /* qse_lsp_obj_sym_t */
qse_lsp_obj_t* lambda; /* qse_lsp_obj_sym_t */
qse_lsp_obj_t* macro; /* qse_lsp_obj_sym_t */
/* run-time environment frame */
ase_lsp_frame_t* frame;
qse_lsp_frame_t* frame;
/* pointer to a global-level frame */
ase_lsp_frame_t* root_frame;
qse_lsp_frame_t* root_frame;
/* pointer to an interim frame not yet added to "frame" */
ase_lsp_frame_t* brooding_frame;
qse_lsp_frame_t* brooding_frame;
/* links for temporary objects */
ase_lsp_tlink_t* tlink;
ase_size_t tlink_count;
qse_lsp_tlink_t* tlink;
qse_size_t tlink_count;
};
#ifdef __cplusplus
extern "C" {
#endif
ase_lsp_mem_t* ase_lsp_openmem (
ase_lsp_t* lsp, ase_size_t ubound, ase_size_t ubound_inc);
void ase_lsp_closemem (ase_lsp_mem_t* mem);
qse_lsp_mem_t* qse_lsp_openmem (
qse_lsp_t* lsp, qse_size_t ubound, qse_size_t ubound_inc);
void qse_lsp_closemem (qse_lsp_mem_t* mem);
ase_lsp_obj_t* ase_lsp_alloc (ase_lsp_mem_t* mem, int type, ase_size_t size);
void ase_lsp_dispose (ase_lsp_mem_t* mem, ase_lsp_obj_t* prev, ase_lsp_obj_t* obj);
void ase_lsp_dispose_all (ase_lsp_mem_t* mem);
void ase_lsp_gc (ase_lsp_mem_t* mem);
qse_lsp_obj_t* qse_lsp_alloc (qse_lsp_mem_t* mem, int type, qse_size_t size);
void qse_lsp_dispose (qse_lsp_mem_t* mem, qse_lsp_obj_t* prev, qse_lsp_obj_t* obj);
void qse_lsp_dispose_all (qse_lsp_mem_t* mem);
void qse_lsp_gc (qse_lsp_mem_t* mem);
void ase_lsp_lockobj (ase_lsp_t* lsp, ase_lsp_obj_t* obj);
void ase_lsp_unlockobj (ase_lsp_t* lsp, ase_lsp_obj_t* obj);
void ase_lsp_deepunlockobj (ase_lsp_t* lsp, ase_lsp_obj_t* obj);
void qse_lsp_lockobj (qse_lsp_t* lsp, qse_lsp_obj_t* obj);
void qse_lsp_unlockobj (qse_lsp_t* lsp, qse_lsp_obj_t* obj);
void qse_lsp_deepunlockobj (qse_lsp_t* lsp, qse_lsp_obj_t* obj);
/* object creation of standard types */
ase_lsp_obj_t* ase_lsp_makenil (ase_lsp_mem_t* mem);
ase_lsp_obj_t* ase_lsp_maketrue (ase_lsp_mem_t* mem);
ase_lsp_obj_t* ase_lsp_makeintobj (ase_lsp_mem_t* mem, ase_long_t value);
ase_lsp_obj_t* ase_lsp_makerealobj (ase_lsp_mem_t* mem, ase_real_t value);
qse_lsp_obj_t* qse_lsp_makenil (qse_lsp_mem_t* mem);
qse_lsp_obj_t* qse_lsp_maketrue (qse_lsp_mem_t* mem);
qse_lsp_obj_t* qse_lsp_makeintobj (qse_lsp_mem_t* mem, qse_long_t value);
qse_lsp_obj_t* qse_lsp_makerealobj (qse_lsp_mem_t* mem, qse_real_t value);
ase_lsp_obj_t* ase_lsp_makesym (
ase_lsp_mem_t* mem, const ase_char_t* str, ase_size_t len);
ase_lsp_obj_t* ase_lsp_makestr (
ase_lsp_mem_t* mem, const ase_char_t* str, ase_size_t len);
qse_lsp_obj_t* qse_lsp_makesym (
qse_lsp_mem_t* mem, const qse_char_t* str, qse_size_t len);
qse_lsp_obj_t* qse_lsp_makestr (
qse_lsp_mem_t* mem, const qse_char_t* str, qse_size_t len);
ase_lsp_obj_t* ase_lsp_makecons (
ase_lsp_mem_t* mem, ase_lsp_obj_t* car, ase_lsp_obj_t* cdr);
ase_lsp_obj_t* ase_lsp_makefunc (
ase_lsp_mem_t* mem, ase_lsp_obj_t* formal, ase_lsp_obj_t* body);
ase_lsp_obj_t* ase_lsp_makemacro (
ase_lsp_mem_t* mem, ase_lsp_obj_t* formal, ase_lsp_obj_t* body);
qse_lsp_obj_t* qse_lsp_makecons (
qse_lsp_mem_t* mem, qse_lsp_obj_t* car, qse_lsp_obj_t* cdr);
qse_lsp_obj_t* qse_lsp_makefunc (
qse_lsp_mem_t* mem, qse_lsp_obj_t* formal, qse_lsp_obj_t* body);
qse_lsp_obj_t* qse_lsp_makemacro (
qse_lsp_mem_t* mem, qse_lsp_obj_t* formal, qse_lsp_obj_t* body);
ase_lsp_obj_t* ase_lsp_makeprim (ase_lsp_mem_t* mem,
ase_lsp_prim_t impl, ase_size_t min_args, ase_size_t max_args);
qse_lsp_obj_t* qse_lsp_makeprim (qse_lsp_mem_t* mem,
qse_lsp_prim_t impl, qse_size_t min_args, qse_size_t max_args);
/* frame lookup */
ase_lsp_assoc_t* ase_lsp_lookup (ase_lsp_mem_t* mem, ase_lsp_obj_t* name);
ase_lsp_assoc_t* ase_lsp_setvalue (
ase_lsp_mem_t* mem, ase_lsp_obj_t* name, ase_lsp_obj_t* value);
ase_lsp_assoc_t* ase_lsp_setfunc (
ase_lsp_mem_t* mem, ase_lsp_obj_t* name, ase_lsp_obj_t* func);
qse_lsp_assoc_t* qse_lsp_lookup (qse_lsp_mem_t* mem, qse_lsp_obj_t* name);
qse_lsp_assoc_t* qse_lsp_setvalue (
qse_lsp_mem_t* mem, qse_lsp_obj_t* name, qse_lsp_obj_t* value);
qse_lsp_assoc_t* qse_lsp_setfunc (
qse_lsp_mem_t* mem, qse_lsp_obj_t* name, qse_lsp_obj_t* func);
/* cons operations */
ase_size_t ase_lsp_conslen (ase_lsp_mem_t* mem, ase_lsp_obj_t* obj);
qse_size_t qse_lsp_conslen (qse_lsp_mem_t* mem, qse_lsp_obj_t* obj);
#ifdef __cplusplus
}

186
qse/lib/lsp/misc.c
View File

@ -6,34 +6,34 @@
#include "lsp.h"
ase_long_t ase_lsp_strxtolong (
ase_lsp_t* lsp, const ase_char_t* str, ase_size_t len,
int base, const ase_char_t** endptr)
qse_long_t qse_lsp_strxtolong (
qse_lsp_t* lsp, const qse_char_t* str, qse_size_t len,
int base, const qse_char_t** endptr)
{
ase_long_t n = 0;
const ase_char_t* p;
const ase_char_t* end;
ase_size_t rem;
qse_long_t n = 0;
const qse_char_t* p;
const qse_char_t* end;
qse_size_t rem;
int digit, negative = 0;
ASE_ASSERT (base < 37);
QSE_ASSERT (base < 37);
p = str;
end = str + len;
/* strip off leading spaces */
/*while (ASE_LSP_ISSPACE(lsp,*p)) p++;*/
/*while (QSE_LSP_ISSPACE(lsp,*p)) p++;*/
/* check for a sign */
/*while (*p != ASE_T('\0')) */
/*while (*p != QSE_T('\0')) */
while (p < end)
{
if (*p == ASE_T('-'))
if (*p == QSE_T('-'))
{
negative = ~negative;
p++;
}
else if (*p == ASE_T('+')) p++;
else if (*p == QSE_T('+')) p++;
else break;
}
@ -41,16 +41,16 @@ ase_long_t ase_lsp_strxtolong (
rem = end - p;
if (base == 0)
{
if (rem >= 1 && *p == ASE_T('0'))
if (rem >= 1 && *p == QSE_T('0'))
{
p++;
if (rem == 1) base = 8;
else if (*p == ASE_T('x') || *p == ASE_T('X'))
else if (*p == QSE_T('x') || *p == QSE_T('X'))
{
p++; base = 16;
}
else if (*p == ASE_T('b') || *p == ASE_T('B'))
else if (*p == QSE_T('b') || *p == QSE_T('B'))
{
p++; base = 2;
}
@ -60,25 +60,25 @@ ase_long_t ase_lsp_strxtolong (
}
else if (rem >= 2 && base == 16)
{
if (*p == ASE_T('0') &&
(*(p+1) == ASE_T('x') || *(p+1) == ASE_T('X'))) p += 2;
if (*p == QSE_T('0') &&
(*(p+1) == QSE_T('x') || *(p+1) == QSE_T('X'))) p += 2;
}
else if (rem >= 2 && base == 2)
{
if (*p == ASE_T('0') &&
(*(p+1) == ASE_T('b') || *(p+1) == ASE_T('B'))) p += 2;
if (*p == QSE_T('0') &&
(*(p+1) == QSE_T('b') || *(p+1) == QSE_T('B'))) p += 2;
}
/* process the digits */
/*while (*p != ASE_T('\0'))*/
/*while (*p != QSE_T('\0'))*/
while (p < end)
{
if (*p >= ASE_T('0') && *p <= ASE_T('9'))
digit = *p - ASE_T('0');
else if (*p >= ASE_T('A') && *p <= ASE_T('Z'))
digit = *p - ASE_T('A') + 10;
else if (*p >= ASE_T('a') && *p <= ASE_T('z'))
digit = *p - ASE_T('a') + 10;
if (*p >= QSE_T('0') && *p <= QSE_T('9'))
digit = *p - QSE_T('0');
else if (*p >= QSE_T('A') && *p <= QSE_T('Z'))
digit = *p - QSE_T('A') + 10;
else if (*p >= QSE_T('a') && *p <= QSE_T('z'))
digit = *p - QSE_T('a') + 10;
else break;
if (digit >= base) break;
@ -87,13 +87,13 @@ ase_long_t ase_lsp_strxtolong (
p++;
}
if (endptr != ASE_NULL) *endptr = p;
if (endptr != QSE_NULL) *endptr = p;
return (negative)? -n: n;
}
/*
* ase_lsp_strtoreal is almost a replica of strtod.
* qse_lsp_strtoreal is almost a replica of strtod.
*
* strtod.c --
*
@ -113,21 +113,21 @@ ase_long_t ase_lsp_strxtolong (
#define MAX_EXPONENT 511
ase_real_t ase_lsp_strtoreal (ase_lsp_t* lsp, const ase_char_t* str)
qse_real_t qse_lsp_strtoreal (qse_lsp_t* lsp, const qse_char_t* str)
{
/*
* Table giving binary powers of 10. Entry is 10^2^i.
* Used to convert decimal exponents into floating-point numbers.
*/
static ase_real_t powers_of_10[] =
static qse_real_t powers_of_10[] =
{
10., 100., 1.0e4, 1.0e8, 1.0e16,
1.0e32, 1.0e64, 1.0e128, 1.0e256
};
ase_real_t fraction, dbl_exp, * d;
const ase_char_t* p;
ase_cint_t c;
qse_real_t fraction, dbl_exp, * d;
const qse_char_t* p;
qse_cint_t c;
int exp = 0; /* Esseonent read from "EX" field */
/*
@ -142,23 +142,23 @@ ase_real_t ase_lsp_strtoreal (ase_lsp_t* lsp, const ase_char_t* str)
int frac_exp;
int mant_size; /* Number of digits in mantissa. */
int dec_pt; /* Number of mantissa digits BEFORE decimal point */
const ase_char_t *pexp; /* Temporarily holds location of exponent in string */
const qse_char_t *pexp; /* Temporarily holds location of exponent in string */
int negative = 0, exp_negative = 0;
p = str;
/* strip off leading blanks */
/*while (ASE_LSP_ISSPACE(lsp,*p)) p++;*/
/*while (QSE_LSP_ISSPACE(lsp,*p)) p++;*/
/* check for a sign */
while (*p != ASE_T('\0'))
while (*p != QSE_T('\0'))
{
if (*p == ASE_T('-'))
if (*p == QSE_T('-'))
{
negative = ~negative;
p++;
}
else if (*p == ASE_T('+')) p++;
else if (*p == QSE_T('+')) p++;
else break;
}
@ -168,9 +168,9 @@ ase_real_t ase_lsp_strtoreal (ase_lsp_t* lsp, const ase_char_t* str)
for (mant_size = 0; ; mant_size++)
{
c = *p;
if (!ASE_LSP_ISDIGIT (lsp, c))
if (!QSE_LSP_ISDIGIT (lsp, c))
{
if ((c != ASE_T('.')) || (dec_pt >= 0)) break;
if ((c != QSE_T('.')) || (dec_pt >= 0)) break;
dec_pt = mant_size;
}
p++;
@ -218,51 +218,51 @@ ase_real_t ase_lsp_strtoreal (ase_lsp_t* lsp, const ase_char_t* str)
{
c = *p;
p++;
if (c == ASE_T('.'))
if (c == QSE_T('.'))
{
c = *p;
p++;
}
frac1 = 10 * frac1 + (c - ASE_T('0'));
frac1 = 10 * frac1 + (c - QSE_T('0'));
}
frac2 = 0;
for (; mant_size > 0; mant_size--) {
c = *p;
p++;
if (c == ASE_T('.'))
if (c == QSE_T('.'))
{
c = *p;
p++;
}
frac2 = 10*frac2 + (c - ASE_T('0'));
frac2 = 10*frac2 + (c - QSE_T('0'));
}
fraction = (1.0e9 * frac1) + frac2;
}
/* Skim off the exponent */
p = pexp;
if ((*p == ASE_T('E')) || (*p == ASE_T('e')))
if ((*p == QSE_T('E')) || (*p == QSE_T('e')))
{
p++;
if (*p == ASE_T('-'))
if (*p == QSE_T('-'))
{
exp_negative = 1;
p++;
}
else
{
if (*p == ASE_T('+')) p++;
if (*p == QSE_T('+')) p++;
exp_negative = 0;
}
if (!ASE_LSP_ISDIGIT (lsp, *p))
if (!QSE_LSP_ISDIGIT (lsp, *p))
{
/* p = pexp; */
/* goto done; */
goto no_exp;
}
while (ASE_LSP_ISDIGIT (lsp, *p))
while (QSE_LSP_ISDIGIT (lsp, *p))
{
exp = exp * 10 + (*p - ASE_T('0'));
exp = exp * 10 + (*p - QSE_T('0'));
p++;
}
}
@ -300,23 +300,23 @@ done:
return (negative)? -fraction: fraction;
}
ase_real_t ase_lsp_strxtoreal (
ase_lsp_t* lsp, const ase_char_t* str, ase_size_t len,
const ase_char_t** endptr)
qse_real_t qse_lsp_strxtoreal (
qse_lsp_t* lsp, const qse_char_t* str, qse_size_t len,
const qse_char_t** endptr)
{
/*
* Table giving binary powers of 10. Entry is 10^2^i.
* Used to convert decimal exponents into floating-point numbers.
*/
static ase_real_t powers_of_10[] =
static qse_real_t powers_of_10[] =
{
10., 100., 1.0e4, 1.0e8, 1.0e16,
1.0e32, 1.0e64, 1.0e128, 1.0e256
};
ase_real_t fraction, dbl_exp, * d;
const ase_char_t* p, * end;
ase_cint_t c;
qse_real_t fraction, dbl_exp, * d;
const qse_char_t* p, * end;
qse_cint_t c;
int exp = 0; /* Esseonent read from "EX" field */
/*
@ -331,24 +331,24 @@ ase_real_t ase_lsp_strxtoreal (
int frac_exp;
int mant_size; /* Number of digits in mantissa. */
int dec_pt; /* Number of mantissa digits BEFORE decimal point */
const ase_char_t *pexp; /* Temporarily holds location of exponent in string */
const qse_char_t *pexp; /* Temporarily holds location of exponent in string */
int negative = 0, exp_negative = 0;
p = str;
end = str + len;
/* Strip off leading blanks and check for a sign */
/*while (ASE_LSP_ISSPACE(lsp,*p)) p++;*/
/*while (QSE_LSP_ISSPACE(lsp,*p)) p++;*/
/*while (*p != ASE_T('\0')) */
/*while (*p != QSE_T('\0')) */
while (p < end)
{
if (*p == ASE_T('-'))
if (*p == QSE_T('-'))
{
negative = ~negative;
p++;
}
else if (*p == ASE_T('+')) p++;
else if (*p == QSE_T('+')) p++;
else break;
}
@ -359,9 +359,9 @@ ase_real_t ase_lsp_strxtoreal (
for (mant_size = 0; p < end; mant_size++)
{
c = *p;
if (!ASE_LSP_ISDIGIT (lsp, c))
if (!QSE_LSP_ISDIGIT (lsp, c))
{
if (c != ASE_T('.') || dec_pt >= 0) break;
if (c != QSE_T('.') || dec_pt >= 0) break;
dec_pt = mant_size;
}
p++;
@ -384,7 +384,7 @@ ase_real_t ase_lsp_strxtoreal (
mant_size--; /* One of the digits was the point */
}
if (mant_size > 18) /* TODO: is 18 correct for ase_real_t??? */
if (mant_size > 18) /* TODO: is 18 correct for qse_real_t??? */
{
frac_exp = dec_pt - 18;
mant_size = 18;
@ -410,58 +410,58 @@ ase_real_t ase_lsp_strxtoreal (
{
c = *p;
p++;
if (c == ASE_T('.'))
if (c == QSE_T('.'))
{
c = *p;
p++;
}
frac1 = 10 * frac1 + (c - ASE_T('0'));
frac1 = 10 * frac1 + (c - QSE_T('0'));
}
frac2 = 0;
for (; mant_size > 0; mant_size--) {
c = *p++;
if (c == ASE_T('.'))
if (c == QSE_T('.'))
{
c = *p;
p++;
}
frac2 = 10 * frac2 + (c - ASE_T('0'));
frac2 = 10 * frac2 + (c - QSE_T('0'));
}
fraction = (1.0e9 * frac1) + frac2;
}
/* Skim off the exponent */
p = pexp;
if (p < end && (*p == ASE_T('E') || *p == ASE_T('e')))
if (p < end && (*p == QSE_T('E') || *p == QSE_T('e')))
{
p++;
if (p < end)
{
if (*p == ASE_T('-'))
if (*p == QSE_T('-'))
{
exp_negative = 1;
p++;
}
else
{
if (*p == ASE_T('+')) p++;
if (*p == QSE_T('+')) p++;
exp_negative = 0;
}
}
else exp_negative = 0;
if (!(p < end && ASE_LSP_ISDIGIT (lsp, *p)))
if (!(p < end && QSE_LSP_ISDIGIT (lsp, *p)))
{
/*p = pexp;*/
/*goto done;*/
goto no_exp;
}
while (p < end && ASE_LSP_ISDIGIT (lsp, *p))
while (p < end && QSE_LSP_ISDIGIT (lsp, *p))
{
exp = exp * 10 + (*p - ASE_T('0'));
exp = exp * 10 + (*p - QSE_T('0'));
p++;
}
}
@ -496,35 +496,35 @@ no_exp:
else fraction *= dbl_exp;
done:
if (endptr != ASE_NULL) *endptr = p;
if (endptr != QSE_NULL) *endptr = p;
return (negative)? -fraction: fraction;
}
ase_size_t ase_lsp_longtostr (
ase_long_t value, int radix, const ase_char_t* prefix,
ase_char_t* buf, ase_size_t size)
qse_size_t qse_lsp_longtostr (
qse_long_t value, int radix, const qse_char_t* prefix,
qse_char_t* buf, qse_size_t size)
{
ase_long_t t, rem;
ase_size_t len, ret, i;
ase_size_t prefix_len;
qse_long_t t, rem;
qse_size_t len, ret, i;
qse_size_t prefix_len;
prefix_len = (prefix != ASE_NULL)? ase_strlen(prefix): 0;
prefix_len = (prefix != QSE_NULL)? qse_strlen(prefix): 0;
t = value;
if (t == 0)
{
/* zero */
if (buf == ASE_NULL) return prefix_len + 1;
if (buf == QSE_NULL) return prefix_len + 1;
if (size < prefix_len+1)
{
/* buffer too small */
return (ase_size_t)-1;
return (qse_size_t)-1;
}
for (i = 0; i < prefix_len; i++) buf[i] = prefix[i];
buf[prefix_len] = ASE_T('0');
if (size > prefix_len+1) buf[prefix_len+1] = ASE_T('\0');
buf[prefix_len] = QSE_T('0');
if (size > prefix_len+1) buf[prefix_len+1] = QSE_T('\0');
return 1;
}
@ -533,14 +533,14 @@ ase_size_t ase_lsp_longtostr (
if (t < 0) { t = -t; len++; }
while (t > 0) { len++; t /= radix; }
if (buf == ASE_NULL)
if (buf == QSE_NULL)
{
/* if buf is not given, return the number of bytes required */
return len;
}
if (size < len) return (ase_size_t)-1; /* buffer too small */
if (size > len) buf[len] = ASE_T('\0');
if (size < len) return (qse_size_t)-1; /* buffer too small */
if (size > len) buf[len] = QSE_T('\0');
ret = len;
t = value;
@ -550,9 +550,9 @@ ase_size_t ase_lsp_longtostr (
{
rem = t % radix;
if (rem >= 10)
buf[--len] = (ase_char_t)rem + ASE_T('a') - 10;
buf[--len] = (qse_char_t)rem + QSE_T('a') - 10;
else
buf[--len] = (ase_char_t)rem + ASE_T('0');
buf[--len] = (qse_char_t)rem + QSE_T('0');
t /= radix;
}
@ -563,7 +563,7 @@ ase_size_t ase_lsp_longtostr (
buf[i] = prefix[i-1];
len--;
}
buf[--len] = ASE_T('-');
buf[--len] = QSE_T('-');
}
else
{

12
qse/lib/lsp/misc.h
View File

@ -4,19 +4,19 @@
* {License}
*/
#ifndef _ASE_LSP_MISC_H_
#define _ASE_LSP_MISC_H_
#ifndef _QSE_LSP_MISC_H_
#define _QSE_LSP_MISC_H_
#ifndef _ASE_LSP_LSP_H_
#error Never include this file directly. Include <ase/lsp/lsp.h> instead
#ifndef _QSE_LSP_LSP_H_
#error Never include this file directly. Include <qse/lsp/lsp.h> instead
#endif
#ifdef __cplusplus
extern "C" {
#endif
void* ase_lsp_memcpy (void* dst, const void* src, ase_size_t n);
void* ase_lsp_memset (void* dst, int val, ase_size_t n);
void* qse_lsp_memcpy (void* dst, const void* src, qse_size_t n);
void* qse_lsp_memset (void* dst, int val, qse_size_t n);
#ifdef __cplusplus
}

86
qse/lib/lsp/name.c
View File

@ -6,79 +6,79 @@
#include "lsp.h"
ase_lsp_name_t* ase_lsp_name_open (
ase_lsp_name_t* name, ase_size_t capa, ase_lsp_t* lsp)
qse_lsp_name_t* qse_lsp_name_open (
qse_lsp_name_t* name, qse_size_t capa, qse_lsp_t* lsp)
{
if (capa == 0) capa = ASE_COUNTOF(name->static_buf) - 1;
if (capa == 0) capa = QSE_COUNTOF(name->static_buf) - 1;
if (name == ASE_NULL)
if (name == QSE_NULL)
{
name = (ase_lsp_name_t*)
ASE_LSP_ALLOC (lsp, ASE_SIZEOF(ase_lsp_name_t));
if (name == ASE_NULL) return ASE_NULL;
name->__dynamic = ASE_TRUE;
name = (qse_lsp_name_t*)
QSE_LSP_ALLOC (lsp, QSE_SIZEOF(qse_lsp_name_t));
if (name == QSE_NULL) return QSE_NULL;
name->__dynamic = QSE_TRUE;
}
else name->__dynamic = ASE_FALSE;
else name->__dynamic = QSE_FALSE;
if (capa < ASE_COUNTOF(name->static_buf))
if (capa < QSE_COUNTOF(name->static_buf))
{
name->buf = name->static_buf;
}
else
{
name->buf = (ase_char_t*)
ASE_LSP_ALLOC (lsp, (capa+1)*ASE_SIZEOF(ase_char_t));
if (name->buf == ASE_NULL)
name->buf = (qse_char_t*)
QSE_LSP_ALLOC (lsp, (capa+1)*QSE_SIZEOF(qse_char_t));
if (name->buf == QSE_NULL)
{
if (name->__dynamic) ASE_LSP_FREE (lsp, name);
return ASE_NULL;
if (name->__dynamic) QSE_LSP_FREE (lsp, name);
return QSE_NULL;
}
}
name->size = 0;
name->capa = capa;
name->buf[0] = ASE_T('\0');
name->buf[0] = QSE_T('\0');
name->lsp = lsp;
return name;
}
void ase_lsp_name_close (ase_lsp_name_t* name)
void qse_lsp_name_close (qse_lsp_name_t* name)
{
if (name->capa >= ASE_COUNTOF(name->static_buf))
if (name->capa >= QSE_COUNTOF(name->static_buf))
{
ASE_ASSERT (name->buf != name->static_buf);
ASE_LSP_FREE (name->lsp, name->buf);
QSE_ASSERT (name->buf != name->static_buf);
QSE_LSP_FREE (name->lsp, name->buf);
}
if (name->__dynamic) ASE_LSP_FREE (name->lsp, name);
if (name->__dynamic) QSE_LSP_FREE (name->lsp, name);
}
int ase_lsp_name_addc (ase_lsp_name_t* name, ase_cint_t c)
int qse_lsp_name_addc (qse_lsp_name_t* name, qse_cint_t c)
{
if (name->size >= name->capa)
{
/* double the capacity */
ase_size_t new_capa = name->capa * 2;
qse_size_t new_capa = name->capa * 2;
if (new_capa >= ASE_COUNTOF(name->static_buf))
if (new_capa >= QSE_COUNTOF(name->static_buf))
{
ase_char_t* space;
qse_char_t* space;
if (name->capa < ASE_COUNTOF(name->static_buf))
if (name->capa < QSE_COUNTOF(name->static_buf))
{
space = (ase_char_t*) ASE_LSP_ALLOC (
name->lsp, (new_capa+1)*ASE_SIZEOF(ase_char_t));
if (space == ASE_NULL) return -1;
space = (qse_char_t*) QSE_LSP_ALLOC (
name->lsp, (new_capa+1)*QSE_SIZEOF(qse_char_t));
if (space == QSE_NULL) return -1;
/* don't need to copy up to the terminating null */
ASE_MEMCPY (space, name->buf, name->capa*ASE_SIZEOF(ase_char_t));
QSE_MEMCPY (space, name->buf, name->capa*QSE_SIZEOF(qse_char_t));
}
else
{
space = (ase_char_t*) ASE_LSP_REALLOC (
space = (qse_char_t*) QSE_LSP_REALLOC (
name->lsp, name->buf,
(new_capa+1)*ASE_SIZEOF(ase_char_t));
if (space == ASE_NULL) return -1;
(new_capa+1)*QSE_SIZEOF(qse_char_t));
if (space == QSE_NULL) return -1;
}
name->buf = space;
@ -88,31 +88,31 @@ int ase_lsp_name_addc (ase_lsp_name_t* name, ase_cint_t c)
}
name->buf[name->size++] = c;
name->buf[name->size] = ASE_T('\0');
name->buf[name->size] = QSE_T('\0');
return 0;
}
int ase_lsp_name_adds (ase_lsp_name_t* name, const ase_char_t* s)
int qse_lsp_name_adds (qse_lsp_name_t* name, const qse_char_t* s)
{
while (*s != ASE_T('\0'))
while (*s != QSE_T('\0'))
{
if (ase_lsp_name_addc(name, *s) == -1) return -1;
if (qse_lsp_name_addc(name, *s) == -1) return -1;
s++;
}
return 0;
}
void ase_lsp_name_clear (ase_lsp_name_t* name)
void qse_lsp_name_clear (qse_lsp_name_t* name)
{
name->size = 0;
name->buf[0] = ASE_T('\0');
name->buf[0] = QSE_T('\0');
}
int ase_lsp_name_compare (ase_lsp_name_t* name, const ase_char_t* str)
int qse_lsp_name_compare (qse_lsp_name_t* name, const qse_char_t* str)
{
ase_char_t* p = name->buf;
ase_size_t index = 0;
qse_char_t* p = name->buf;
qse_size_t index = 0;
while (index < name->size)
{
@ -121,5 +121,5 @@ int ase_lsp_name_compare (ase_lsp_name_t* name, const ase_char_t* str)
index++; p++; str++;
}
return (*str == ASE_T('\0'))? 0: -1;
return (*str == QSE_T('\0'))? 0: -1;
}

38
qse/lib/lsp/name.h
View File

@ -4,36 +4,36 @@
* {License}
*/
#ifndef _ASE_LSP_NAME_H_
#define _ASE_LSP_NAME_H_
#ifndef _QSE_LSP_NAME_H_
#define _QSE_LSP_NAME_H_
#include <ase/types.h>
#include <ase/macros.h>
#include <qse/types.h>
#include <qse/macros.h>
struct ase_lsp_name_t
struct qse_lsp_name_t
{
ase_size_t capa;
ase_size_t size;
ase_char_t* buf;
ase_char_t static_buf[128];
ase_lsp_t* lsp;
ase_bool_t __dynamic;
qse_size_t capa;
qse_size_t size;
qse_char_t* buf;
qse_char_t static_buf[128];
qse_lsp_t* lsp;
qse_bool_t __dynamic;
};
typedef struct ase_lsp_name_t ase_lsp_name_t;
typedef struct qse_lsp_name_t qse_lsp_name_t;
#ifdef __cplusplus
extern "C" {
#endif
ase_lsp_name_t* ase_lsp_name_open (
ase_lsp_name_t* name, ase_size_t capa, ase_lsp_t* lsp);
void ase_lsp_name_close (ase_lsp_name_t* name);
qse_lsp_name_t* qse_lsp_name_open (
qse_lsp_name_t* name, qse_size_t capa, qse_lsp_t* lsp);
void qse_lsp_name_close (qse_lsp_name_t* name);
int ase_lsp_name_addc (ase_lsp_name_t* name, ase_cint_t c);
int ase_lsp_name_adds (ase_lsp_name_t* name, const ase_char_t* s);
void ase_lsp_name_clear (ase_lsp_name_t* name);
int ase_lsp_name_compare (ase_lsp_name_t* name, const ase_char_t* str);
int qse_lsp_name_addc (qse_lsp_name_t* name, qse_cint_t c);
int qse_lsp_name_adds (qse_lsp_name_t* name, const qse_char_t* s);
void qse_lsp_name_clear (qse_lsp_name_t* name);
int qse_lsp_name_compare (qse_lsp_name_t* name, const qse_char_t* str);
#ifdef __cplusplus
}

182
qse/lib/lsp/obj.h
View File

@ -4,158 +4,158 @@
* {License}
*/
#ifndef _ASE_LSP_OBJ_H_
#define _ASE_LSP_OBJ_H_
#ifndef _QSE_LSP_OBJ_H_
#define _QSE_LSP_OBJ_H_
#ifndef _ASE_LSP_LSP_H_
#error Never include this file directly. Include <ase/lsp/lsp.h> instead
#ifndef _QSE_LSP_LSP_H_
#error Never include this file directly. Include <qse/lsp/lsp.h> instead
#endif
/* object types */
enum
{
ASE_LSP_OBJ_NIL = 0,
ASE_LSP_OBJ_TRUE,
ASE_LSP_OBJ_INT,
ASE_LSP_OBJ_REAL,
ASE_LSP_OBJ_SYM,
ASE_LSP_OBJ_STR,
ASE_LSP_OBJ_CONS,
ASE_LSP_OBJ_FUNC,
ASE_LSP_OBJ_MACRO,
ASE_LSP_OBJ_PRIM,
QSE_LSP_OBJ_NIL = 0,
QSE_LSP_OBJ_TRUE,
QSE_LSP_OBJ_INT,
QSE_LSP_OBJ_REAL,
QSE_LSP_OBJ_SYM,
QSE_LSP_OBJ_STR,
QSE_LSP_OBJ_CONS,
QSE_LSP_OBJ_FUNC,
QSE_LSP_OBJ_MACRO,
QSE_LSP_OBJ_PRIM,
ASE_LSP_TYPE_COUNT /* the number of lsp object types */
QSE_LSP_TYPE_COUNT /* the number of lsp object types */
};
typedef struct ase_lsp_objhdr_t ase_lsp_objhdr_t;
typedef struct ase_lsp_obj_nil_t ase_lsp_obj_nil_t;
typedef struct ase_lsp_obj_true_t ase_lsp_obj_true_t;
typedef struct ase_lsp_obj_int_t ase_lsp_obj_int_t;
typedef struct ase_lsp_obj_real_t ase_lsp_obj_real_t;
typedef struct ase_lsp_obj_sym_t ase_lsp_obj_sym_t;
typedef struct ase_lsp_obj_str_t ase_lsp_obj_str_t;
typedef struct ase_lsp_obj_cons_t ase_lsp_obj_cons_t;
typedef struct ase_lsp_obj_func_t ase_lsp_obj_func_t;
typedef struct ase_lsp_obj_macro_t ase_lsp_obj_macro_t;
typedef struct ase_lsp_obj_prim_t ase_lsp_obj_prim_t;
typedef struct qse_lsp_objhdr_t qse_lsp_objhdr_t;
typedef struct qse_lsp_obj_nil_t qse_lsp_obj_nil_t;
typedef struct qse_lsp_obj_true_t qse_lsp_obj_true_t;
typedef struct qse_lsp_obj_int_t qse_lsp_obj_int_t;
typedef struct qse_lsp_obj_real_t qse_lsp_obj_real_t;
typedef struct qse_lsp_obj_sym_t qse_lsp_obj_sym_t;
typedef struct qse_lsp_obj_str_t qse_lsp_obj_str_t;
typedef struct qse_lsp_obj_cons_t qse_lsp_obj_cons_t;
typedef struct qse_lsp_obj_func_t qse_lsp_obj_func_t;
typedef struct qse_lsp_obj_macro_t qse_lsp_obj_macro_t;
typedef struct qse_lsp_obj_prim_t qse_lsp_obj_prim_t;
struct ase_lsp_objhdr_t
struct qse_lsp_objhdr_t
{
ase_uint32_t type: 8;
ase_uint32_t mark: 4;
ase_uint32_t perm: 4;
ase_uint32_t lock: 16;
ase_size_t size;
ase_lsp_obj_t* link;
qse_uint32_t type: 8;
qse_uint32_t mark: 4;
qse_uint32_t perm: 4;
qse_uint32_t lock: 16;
qse_size_t size;
qse_lsp_obj_t* link;
};
struct ase_lsp_obj_t
struct qse_lsp_obj_t
{
ase_lsp_objhdr_t hdr;
qse_lsp_objhdr_t hdr;
};
struct ase_lsp_obj_nil_t
struct qse_lsp_obj_nil_t
{
ase_lsp_objhdr_t hdr;
qse_lsp_objhdr_t hdr;
};
struct ase_lsp_obj_true_t
struct qse_lsp_obj_true_t
{
ase_lsp_objhdr_t hdr;
qse_lsp_objhdr_t hdr;
};
struct ase_lsp_obj_int_t
struct qse_lsp_obj_int_t
{
ase_lsp_objhdr_t hdr;
ase_long_t value;
qse_lsp_objhdr_t hdr;
qse_long_t value;
};
struct ase_lsp_obj_real_t
struct qse_lsp_obj_real_t
{
ase_lsp_objhdr_t hdr;
ase_real_t value;
qse_lsp_objhdr_t hdr;
qse_real_t value;
};
struct ase_lsp_obj_sym_t
struct qse_lsp_obj_sym_t
{
ase_lsp_objhdr_t hdr;
qse_lsp_objhdr_t hdr;
#if defined(__GNUC__)
ase_char_t buffer[0];
qse_char_t buffer[0];
#endif
};
struct ase_lsp_obj_str_t
struct qse_lsp_obj_str_t
{
ase_lsp_objhdr_t hdr;
qse_lsp_objhdr_t hdr;
#if defined(__GNUC__)
ase_char_t buffer[0];
qse_char_t buffer[0];
#endif
};
struct ase_lsp_obj_cons_t
struct qse_lsp_obj_cons_t
{
ase_lsp_objhdr_t hdr;
ase_lsp_obj_t* car;
ase_lsp_obj_t* cdr;
qse_lsp_objhdr_t hdr;
qse_lsp_obj_t* car;
qse_lsp_obj_t* cdr;
};
struct ase_lsp_obj_func_t
struct qse_lsp_obj_func_t
{
ase_lsp_objhdr_t hdr;
ase_lsp_obj_t* formal;
ase_lsp_obj_t* body;
qse_lsp_objhdr_t hdr;
qse_lsp_obj_t* formal;
qse_lsp_obj_t* body;
};
struct ase_lsp_obj_macro_t
struct qse_lsp_obj_macro_t
{
ase_lsp_objhdr_t hdr;
ase_lsp_obj_t* formal;
ase_lsp_obj_t* body;
qse_lsp_objhdr_t hdr;
qse_lsp_obj_t* formal;
qse_lsp_obj_t* body;
};
struct ase_lsp_obj_prim_t
struct qse_lsp_obj_prim_t
{
ase_lsp_objhdr_t hdr;
ase_lsp_prim_t impl;
ase_size_t min_args;
ase_size_t max_args;
qse_lsp_objhdr_t hdr;
qse_lsp_prim_t impl;
qse_size_t min_args;
qse_size_t max_args;
};
/* header access */
#define ASE_LSP_TYPE(x) (((ase_lsp_obj_t*)x)->hdr.type)
#define ASE_LSP_SIZE(x) (((ase_lsp_obj_t*)x)->hdr.size)
#define ASE_LSP_MARK(x) (((ase_lsp_obj_t*)x)->hdr.mark)
#define ASE_LSP_PERM(x) (((ase_lsp_obj_t*)x)->hdr.perm)
#define ASE_LSP_LOCK(x) (((ase_lsp_obj_t*)x)->hdr.lock)
#define ASE_LSP_LINK(x) (((ase_lsp_obj_t*)x)->hdr.link)
#define QSE_LSP_TYPE(x) (((qse_lsp_obj_t*)x)->hdr.type)
#define QSE_LSP_SIZE(x) (((qse_lsp_obj_t*)x)->hdr.size)
#define QSE_LSP_MARK(x) (((qse_lsp_obj_t*)x)->hdr.mark)
#define QSE_LSP_PERM(x) (((qse_lsp_obj_t*)x)->hdr.perm)
#define QSE_LSP_LOCK(x) (((qse_lsp_obj_t*)x)->hdr.lock)
#define QSE_LSP_LINK(x) (((qse_lsp_obj_t*)x)->hdr.link)
/* value access */
#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 QSE_LSP_IVAL(x) (((qse_lsp_obj_int_t*)x)->value)
#define QSE_LSP_RVAL(x) (((qse_lsp_obj_real_t*)x)->value)
#if defined(__GNUC__)
#define ASE_LSP_SYMPTR(x) (((ase_lsp_obj_sym_t*)x)->buffer)
#define QSE_LSP_SYMPTR(x) (((qse_lsp_obj_sym_t*)x)->buffer)
#else
#define ASE_LSP_SYMPTR(x) ((ase_char_t*)(((ase_lsp_obj_sym_t*)x) + 1))
#define QSE_LSP_SYMPTR(x) ((qse_char_t*)(((qse_lsp_obj_sym_t*)x) + 1))
#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 QSE_LSP_SYMLEN(x) ((((qse_lsp_obj_sym_t*)x)->hdr.size - sizeof(qse_lsp_obj_t)) / sizeof(qse_char_t) - 1)
#if defined(__GNUC__)
#define ASE_LSP_STRPTR(x) (((ase_lsp_obj_str_t*)x)->buffer)
#define QSE_LSP_STRPTR(x) (((qse_lsp_obj_str_t*)x)->buffer)
#else
#define ASE_LSP_STRPTR(x) ((ase_char_t*)(((ase_lsp_obj_str_t*)x) + 1))
#define QSE_LSP_STRPTR(x) ((qse_char_t*)(((qse_lsp_obj_str_t*)x) + 1))
#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 QSE_LSP_STRLEN(x) ((((qse_lsp_obj_str_t*)x)->hdr.size - sizeof(qse_lsp_obj_t)) / sizeof(qse_char_t) - 1)
#define ASE_LSP_CAR(x) (((ase_lsp_obj_cons_t*)x)->car)
#define ASE_LSP_CDR(x) (((ase_lsp_obj_cons_t*)x)->cdr)
#define ASE_LSP_FFORMAL(x) (((ase_lsp_obj_func_t*)x)->formal)
#define ASE_LSP_FBODY(x) (((ase_lsp_obj_func_t*)x)->body)
#define ASE_LSP_MFORMAL(x) (((ase_lsp_obj_macro_t*)x)->formal)
#define ASE_LSP_MBODY(x) (((ase_lsp_obj_macro_t*)x)->body)
#define ASE_LSP_PIMPL(x) (((ase_lsp_obj_prim_t*)x)->impl)
#define ASE_LSP_PMINARGS(x) (((ase_lsp_obj_prim_t*)x)->min_args)
#define ASE_LSP_PMAXARGS(x) (((ase_lsp_obj_prim_t*)x)->max_args)
#define QSE_LSP_CAR(x) (((qse_lsp_obj_cons_t*)x)->car)
#define QSE_LSP_CDR(x) (((qse_lsp_obj_cons_t*)x)->cdr)
#define QSE_LSP_FFORMAL(x) (((qse_lsp_obj_func_t*)x)->formal)
#define QSE_LSP_FBODY(x) (((qse_lsp_obj_func_t*)x)->body)
#define QSE_LSP_MFORMAL(x) (((qse_lsp_obj_macro_t*)x)->formal)
#define QSE_LSP_MBODY(x) (((qse_lsp_obj_macro_t*)x)->body)
#define QSE_LSP_PIMPL(x) (((qse_lsp_obj_prim_t*)x)->impl)
#define QSE_LSP_PMINARGS(x) (((qse_lsp_obj_prim_t*)x)->min_args)
#define QSE_LSP_PMAXARGS(x) (((qse_lsp_obj_prim_t*)x)->max_args)
#endif

510
qse/lib/lsp/prim.c
View File

@ -6,94 +6,94 @@
#include "lsp.h"
static int __add_prim (ase_lsp_mem_t* mem,
const ase_char_t* name, ase_size_t len,
ase_lsp_prim_t pimpl, ase_size_t min_args, ase_size_t max_args);
static int __add_prim (qse_lsp_mem_t* mem,
const qse_char_t* name, qse_size_t len,
qse_lsp_prim_t pimpl, qse_size_t min_args, qse_size_t max_args);
int ase_lsp_addprim (
ase_lsp_t* lsp, const ase_char_t* name, ase_size_t name_len,
ase_lsp_prim_t prim, ase_size_t min_args, ase_size_t max_args)
int qse_lsp_addprim (
qse_lsp_t* lsp, const qse_char_t* name, qse_size_t name_len,
qse_lsp_prim_t prim, qse_size_t min_args, qse_size_t max_args)
{
return __add_prim (lsp->mem, name, name_len, prim, min_args, max_args);
}
int ase_lsp_removeprim (ase_lsp_t* lsp, const ase_char_t* name)
int qse_lsp_removeprim (qse_lsp_t* lsp, const qse_char_t* name)
{
/* TODO: */
return -1;
}
static int __add_prim (ase_lsp_mem_t* mem,
const ase_char_t* name, ase_size_t name_len,
ase_lsp_prim_t pimpl, ase_size_t min_args, ase_size_t max_args)
static int __add_prim (qse_lsp_mem_t* mem,
const qse_char_t* name, qse_size_t name_len,
qse_lsp_prim_t pimpl, qse_size_t min_args, qse_size_t max_args)
{
ase_lsp_obj_t* n, * p;
qse_lsp_obj_t* n, * p;
n = ase_lsp_makesym (mem, name, name_len);
if (n == ASE_NULL) return -1;
n = qse_lsp_makesym (mem, name, name_len);
if (n == QSE_NULL) return -1;
if (ase_lsp_pushtmp (mem->lsp, n) == ASE_NULL) return -1;
if (qse_lsp_pushtmp (mem->lsp, n) == QSE_NULL) return -1;
p = ase_lsp_makeprim (mem, pimpl, min_args, max_args);
if (p == ASE_NULL)
p = qse_lsp_makeprim (mem, pimpl, min_args, max_args);
if (p == QSE_NULL)
{
ase_lsp_poptmp (mem->lsp);
qse_lsp_poptmp (mem->lsp);
return -1;
}
if (ase_lsp_pushtmp (mem->lsp, p) == ASE_NULL)
if (qse_lsp_pushtmp (mem->lsp, p) == QSE_NULL)
{
ase_lsp_poptmp (mem->lsp);
qse_lsp_poptmp (mem->lsp);
return -1;
}
if (ase_lsp_setfunc(mem, n, p) == ASE_NULL)
if (qse_lsp_setfunc(mem, n, p) == QSE_NULL)
{
ase_lsp_poptmp (mem->lsp);
ase_lsp_poptmp (mem->lsp);
qse_lsp_poptmp (mem->lsp);
qse_lsp_poptmp (mem->lsp);
return -1;
}
ase_lsp_poptmp (mem->lsp);
ase_lsp_poptmp (mem->lsp);
qse_lsp_poptmp (mem->lsp);
qse_lsp_poptmp (mem->lsp);
return 0;
}
ase_lsp_obj_t* ase_lsp_prim_exit (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_exit (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
lsp->errnum = ASE_LSP_EEXIT;
return ASE_NULL;
lsp->errnum = QSE_LSP_EEXIT;
return QSE_NULL;
}
ase_lsp_obj_t* ase_lsp_prim_eval (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_eval (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
ase_lsp_obj_t* tmp1, * tmp2;
qse_lsp_obj_t* tmp1, * tmp2;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
tmp1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp1 == ASE_NULL) return ASE_NULL;
tmp1 = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (tmp1 == QSE_NULL) return QSE_NULL;
if (ase_lsp_pushtmp (lsp, tmp1) == ASE_NULL) return ASE_NULL;
if (qse_lsp_pushtmp (lsp, tmp1) == QSE_NULL) return QSE_NULL;
tmp2 = ase_lsp_eval (lsp, tmp1);
if (tmp2 == ASE_NULL)
tmp2 = qse_lsp_eval (lsp, tmp1);
if (tmp2 == QSE_NULL)
{
ase_lsp_poptmp (lsp);
return ASE_NULL;
qse_lsp_poptmp (lsp);
return QSE_NULL;
}
ase_lsp_poptmp (lsp);
qse_lsp_poptmp (lsp);
return tmp2;
}
ase_lsp_obj_t* ase_lsp_prim_gc (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_gc (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
ase_lsp_gc (lsp->mem);
qse_lsp_gc (lsp->mem);
return lsp->mem->nil;
}
ase_lsp_obj_t* ase_lsp_prim_cond (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_cond (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (cond
@ -103,302 +103,302 @@ ase_lsp_obj_t* ase_lsp_prim_cond (ase_lsp_t* lsp, ase_lsp_obj_t* args)
* (t resultN))
*/
ase_lsp_obj_t* tmp, * ret;
qse_lsp_obj_t* tmp, * ret;
while (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS)
{
if (ASE_LSP_TYPE(ASE_LSP_CAR(args)) != ASE_LSP_OBJ_CONS)
if (QSE_LSP_TYPE(QSE_LSP_CAR(args)) != QSE_LSP_OBJ_CONS)
{
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(ASE_LSP_CAR(args)));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(QSE_LSP_CAR(args)));
if (tmp == QSE_NULL) return QSE_NULL;
if (ase_lsp_pushtmp (lsp, tmp) == ASE_NULL) return ASE_NULL;
if (qse_lsp_pushtmp (lsp, tmp) == QSE_NULL) return QSE_NULL;
if (tmp != lsp->mem->nil)
{
int f = 0;
tmp = ASE_LSP_CDR(ASE_LSP_CAR(args));
tmp = QSE_LSP_CDR(QSE_LSP_CAR(args));
ret = lsp->mem->nil;
while (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_CONS)
{
ret = ase_lsp_eval (lsp, ASE_LSP_CAR(tmp));
if (ret == ASE_NULL)
ret = qse_lsp_eval (lsp, QSE_LSP_CAR(tmp));
if (ret == QSE_NULL)
{
if (!f) ase_lsp_poptmp (lsp); /* ret */
ase_lsp_poptmp (lsp); /* tmp */
return ASE_NULL;
if (!f) qse_lsp_poptmp (lsp); /* ret */
qse_lsp_poptmp (lsp); /* tmp */
return QSE_NULL;
}
if (!f) ase_lsp_poptmp (lsp); /* ret */
if (ase_lsp_pushtmp (lsp, ret) == ASE_NULL)
if (!f) qse_lsp_poptmp (lsp); /* ret */
if (qse_lsp_pushtmp (lsp, ret) == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* tmp */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* tmp */
return QSE_NULL;
}
f = 1;
tmp = ASE_LSP_CDR(tmp);
tmp = QSE_LSP_CDR(tmp);
}
if (tmp != lsp->mem->nil)
{
if (!f) ase_lsp_poptmp (lsp); /* ret */
ase_lsp_poptmp (lsp); /* tmp */
if (!f) qse_lsp_poptmp (lsp); /* ret */
qse_lsp_poptmp (lsp); /* tmp */
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
if (!f) ase_lsp_poptmp (lsp); /* ret */
ase_lsp_poptmp (lsp); /* tmp */
if (!f) qse_lsp_poptmp (lsp); /* ret */
qse_lsp_poptmp (lsp); /* tmp */
return ret;
}
ase_lsp_poptmp (lsp); /* tmp */
args = ASE_LSP_CDR(args);
qse_lsp_poptmp (lsp); /* tmp */
args = QSE_LSP_CDR(args);
}
return lsp->mem->nil;
}
ase_lsp_obj_t* ase_lsp_prim_if (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_if (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
ase_lsp_obj_t* tmp;
qse_lsp_obj_t* tmp;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (tmp == QSE_NULL) return QSE_NULL;
if (ase_lsp_pushtmp (lsp, tmp) == ASE_NULL) return ASE_NULL;
if (qse_lsp_pushtmp (lsp, tmp) == QSE_NULL) return QSE_NULL;
if (tmp != lsp->mem->nil)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(ASE_LSP_CDR(args)));
if (tmp == ASE_NULL)
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(QSE_LSP_CDR(args)));
if (tmp == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* tmp */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* tmp */
return QSE_NULL;
}
ase_lsp_poptmp (lsp); /* tmp */
qse_lsp_poptmp (lsp); /* tmp */
return tmp;
}
else
{
ase_lsp_obj_t* res = lsp->mem->nil;
qse_lsp_obj_t* res = lsp->mem->nil;
int f = 0;
tmp = ASE_LSP_CDR(ASE_LSP_CDR(args));
tmp = QSE_LSP_CDR(QSE_LSP_CDR(args));
while (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_CONS)
{
res = ase_lsp_eval (lsp, ASE_LSP_CAR(tmp));
if (res == ASE_NULL)
res = qse_lsp_eval (lsp, QSE_LSP_CAR(tmp));
if (res == QSE_NULL)
{
if (!f) ase_lsp_poptmp (lsp); /* res */
ase_lsp_poptmp (lsp); /* tmp */
return ASE_NULL;
if (!f) qse_lsp_poptmp (lsp); /* res */
qse_lsp_poptmp (lsp); /* tmp */
return QSE_NULL;
}
if (!f) ase_lsp_poptmp (lsp); /* res */
if (ase_lsp_pushtmp (lsp, res) == ASE_NULL)
if (!f) qse_lsp_poptmp (lsp); /* res */
if (qse_lsp_pushtmp (lsp, res) == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* tmp */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* tmp */
return QSE_NULL;
}
f = 1;
tmp = ASE_LSP_CDR(tmp);
tmp = QSE_LSP_CDR(tmp);
}
if (tmp != lsp->mem->nil)
{
if (!f) ase_lsp_poptmp (lsp); /* ret */
ase_lsp_poptmp (lsp); /* tmp */
if (!f) qse_lsp_poptmp (lsp); /* ret */
qse_lsp_poptmp (lsp); /* tmp */
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
if (!f) ase_lsp_poptmp (lsp); /* ret */
ase_lsp_poptmp (lsp); /* tmp */
if (!f) qse_lsp_poptmp (lsp); /* ret */
qse_lsp_poptmp (lsp); /* tmp */
return res;
}
}
ase_lsp_obj_t* ase_lsp_prim_while (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_while (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (setq a 1)
* (while (< a 100) (setq a (+ a 1)))
*/
ase_lsp_obj_t* tmp;
qse_lsp_obj_t* tmp;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
while (1)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (tmp == QSE_NULL) return QSE_NULL;
if (tmp == lsp->mem->nil) break;
if (ase_lsp_pushtmp (lsp, tmp) == ASE_NULL) return ASE_NULL;
if (qse_lsp_pushtmp (lsp, tmp) == QSE_NULL) return QSE_NULL;
tmp = ASE_LSP_CDR(args);
while (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_CONS)
tmp = QSE_LSP_CDR(args);
while (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_CONS)
{
if (ase_lsp_eval(lsp, ASE_LSP_CAR(tmp)) == ASE_NULL)
if (qse_lsp_eval(lsp, QSE_LSP_CAR(tmp)) == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* tmp */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* tmp */
return QSE_NULL;
}
tmp = ASE_LSP_CDR(tmp);
tmp = QSE_LSP_CDR(tmp);
}
if (tmp != lsp->mem->nil)
{
ase_lsp_poptmp (lsp); /* tmp */
qse_lsp_poptmp (lsp); /* tmp */
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
ase_lsp_poptmp (lsp); /* tmp */
qse_lsp_poptmp (lsp); /* tmp */
}
return lsp->mem->nil;
}
ase_lsp_obj_t* ase_lsp_prim_car (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_car (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (car '(10 20 30))
*/
ase_lsp_obj_t* tmp;
qse_lsp_obj_t* tmp;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (tmp == QSE_NULL) return QSE_NULL;
if (tmp == lsp->mem->nil) return lsp->mem->nil;
if (ASE_LSP_TYPE(tmp) != ASE_LSP_OBJ_CONS)
if (QSE_LSP_TYPE(tmp) != QSE_LSP_OBJ_CONS)
{
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
return ASE_LSP_CAR(tmp);
return QSE_LSP_CAR(tmp);
}
ase_lsp_obj_t* ase_lsp_prim_cdr (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_cdr (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (cdr '(10 20 30))
*/
ase_lsp_obj_t* tmp;
qse_lsp_obj_t* tmp;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (tmp == QSE_NULL) return QSE_NULL;
if (tmp == lsp->mem->nil) return lsp->mem->nil;
if (ASE_LSP_TYPE(tmp) != ASE_LSP_OBJ_CONS)
if (QSE_LSP_TYPE(tmp) != QSE_LSP_OBJ_CONS)
{
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
return ASE_LSP_CDR(tmp);
return QSE_LSP_CDR(tmp);
}
ase_lsp_obj_t* ase_lsp_prim_cons (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_cons (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (cons 10 20)
* (cons '(10 20) 30)
*/
ase_lsp_obj_t* car, * cdr, * cons;
qse_lsp_obj_t* car, * cdr, * cons;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
car = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (car == ASE_NULL) return ASE_NULL;
car = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (car == QSE_NULL) return QSE_NULL;
if (ase_lsp_pushtmp (lsp, car) == ASE_NULL) return ASE_NULL;
if (qse_lsp_pushtmp (lsp, car) == QSE_NULL) return QSE_NULL;
cdr = ase_lsp_eval (lsp, ASE_LSP_CAR(ASE_LSP_CDR(args)));
if (cdr == ASE_NULL)
cdr = qse_lsp_eval (lsp, QSE_LSP_CAR(QSE_LSP_CDR(args)));
if (cdr == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* car */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* car */
return QSE_NULL;
}
if (ase_lsp_pushtmp (lsp, cdr) == ASE_NULL)
if (qse_lsp_pushtmp (lsp, cdr) == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* car */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* car */
return QSE_NULL;
}
cons = ase_lsp_makecons (lsp->mem, car, cdr);
if (cons == ASE_NULL)
cons = qse_lsp_makecons (lsp->mem, car, cdr);
if (cons == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* cdr */
ase_lsp_poptmp (lsp); /* car */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* cdr */
qse_lsp_poptmp (lsp); /* car */
return QSE_NULL;
}
ase_lsp_poptmp (lsp); /* cdr */
ase_lsp_poptmp (lsp); /* car */
qse_lsp_poptmp (lsp); /* cdr */
qse_lsp_poptmp (lsp); /* car */
return cons;
}
ase_lsp_obj_t* ase_lsp_prim_length (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_length (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
ase_lsp_obj_t* body, * tmp;
ase_long_t len = 0;
qse_lsp_obj_t* body, * tmp;
qse_long_t len = 0;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
body = args;
while (ASE_LSP_TYPE(body) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(body) == QSE_LSP_OBJ_CONS)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(body));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(body));
if (tmp == QSE_NULL) return QSE_NULL;
if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_NIL)
if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_NIL)
{
len = 0;
}
else if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_STR)
else if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_STR)
{
len = ASE_LSP_STRLEN(tmp);
len = QSE_LSP_STRLEN(tmp);
}
else if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_SYM)
else if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_SYM)
{
len = ASE_LSP_SYMLEN(tmp);
len = QSE_LSP_SYMLEN(tmp);
}
else if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_CONS)
else if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_CONS)
{
len = 0;
do
{
len++;
tmp = ASE_LSP_CDR(tmp);
tmp = QSE_LSP_CDR(tmp);
}
while (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_CONS);
while (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_CONS);
/* TODO: more flexible without the check below?
* both of the following expression evalute
@ -406,26 +406,26 @@ ase_lsp_obj_t* ase_lsp_prim_length (ase_lsp_t* lsp, ase_lsp_obj_t* args)
* (length '(9 9 9 . 9))
* (length '(9 9 9))
*/
if (ASE_LSP_TYPE(tmp) != ASE_LSP_OBJ_NIL)
if (QSE_LSP_TYPE(tmp) != QSE_LSP_OBJ_NIL)
{
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0);
return QSE_NULL;
}
}
else
{
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0);
return QSE_NULL;
}
body = ASE_LSP_CDR(body);
body = QSE_LSP_CDR(body);
}
ASE_ASSERT (body == lsp->mem->nil);
return ase_lsp_makeintobj (lsp->mem, len);
QSE_ASSERT (body == lsp->mem->nil);
return qse_lsp_makeintobj (lsp->mem, len);
}
ase_lsp_obj_t* ase_lsp_prim_set (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_set (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (set 'flowers 'rose)
@ -433,103 +433,103 @@ ase_lsp_obj_t* ase_lsp_prim_set (ase_lsp_t* lsp, ase_lsp_obj_t* args)
* rose
*/
ase_lsp_obj_t* p1, * p2;
qse_lsp_obj_t* p1, * p2;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
p1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (p1 == ASE_NULL) return ASE_NULL;
p1 = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (p1 == QSE_NULL) return QSE_NULL;
if (ase_lsp_pushtmp (lsp, p1) == ASE_NULL) return ASE_NULL;
if (qse_lsp_pushtmp (lsp, p1) == QSE_NULL) return QSE_NULL;
if (ASE_LSP_TYPE(p1) != ASE_LSP_OBJ_SYM)
if (QSE_LSP_TYPE(p1) != QSE_LSP_OBJ_SYM)
{
ase_lsp_poptmp (lsp); /* p1 */
qse_lsp_poptmp (lsp); /* p1 */
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
p2 = ase_lsp_eval (lsp, ASE_LSP_CAR(ASE_LSP_CDR(args)));
if (p2 == ASE_NULL)
p2 = qse_lsp_eval (lsp, QSE_LSP_CAR(QSE_LSP_CDR(args)));
if (p2 == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* p1 */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* p1 */
return QSE_NULL;
}
if (ase_lsp_pushtmp (lsp, p2) == ASE_NULL)
if (qse_lsp_pushtmp (lsp, p2) == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* p1 */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* p1 */
return QSE_NULL;
}
if (ase_lsp_setvalue (lsp->mem, p1, p2) == ASE_NULL)
if (qse_lsp_setvalue (lsp->mem, p1, p2) == QSE_NULL)
{
ase_lsp_poptmp (lsp); /* p2 */
ase_lsp_poptmp (lsp); /* p1 */
return ASE_NULL;
qse_lsp_poptmp (lsp); /* p2 */
qse_lsp_poptmp (lsp); /* p1 */
return QSE_NULL;
}
ase_lsp_poptmp (lsp); /* p2 */
ase_lsp_poptmp (lsp); /* p1 */
qse_lsp_poptmp (lsp); /* p2 */
qse_lsp_poptmp (lsp); /* p1 */
return p2;
}
ase_lsp_obj_t* ase_lsp_prim_setq (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_setq (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (setq x 10)
* (setq x "string")
*/
ase_lsp_obj_t* p = args, * p1, * p2 = lsp->mem->nil;
qse_lsp_obj_t* p = args, * p1, * p2 = lsp->mem->nil;
while (p != lsp->mem->nil)
{
ASE_ASSERT (ASE_LSP_TYPE(p) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(p) == QSE_LSP_OBJ_CONS);
p1 = ASE_LSP_CAR(p);
if (ASE_LSP_TYPE(p1) != ASE_LSP_OBJ_SYM)
p1 = QSE_LSP_CAR(p);
if (QSE_LSP_TYPE(p1) != QSE_LSP_OBJ_SYM)
{
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
if (ASE_LSP_TYPE(ASE_LSP_CDR(p)) != ASE_LSP_OBJ_CONS)
if (QSE_LSP_TYPE(QSE_LSP_CDR(p)) != QSE_LSP_OBJ_CONS)
{
lsp->errnum = ASE_LSP_EARGFEW;
return ASE_NULL;
lsp->errnum = QSE_LSP_EARGFEW;
return QSE_NULL;
}
p2 = ase_lsp_eval (lsp, ASE_LSP_CAR(ASE_LSP_CDR(p)));
if (p2 == ASE_NULL) return ASE_NULL;
p2 = qse_lsp_eval (lsp, QSE_LSP_CAR(QSE_LSP_CDR(p)));
if (p2 == QSE_NULL) return QSE_NULL;
if (ase_lsp_pushtmp (lsp, p2) == ASE_NULL) return ASE_NULL;
if (qse_lsp_pushtmp (lsp, p2) == QSE_NULL) return QSE_NULL;
if (ase_lsp_setvalue (lsp->mem, p1, p2) == ASE_NULL)
if (qse_lsp_setvalue (lsp->mem, p1, p2) == QSE_NULL)
{
ase_lsp_poptmp (lsp);
return ASE_NULL;
qse_lsp_poptmp (lsp);
return QSE_NULL;
}
ase_lsp_poptmp (lsp);
p = ASE_LSP_CDR(ASE_LSP_CDR(p));
qse_lsp_poptmp (lsp);
p = QSE_LSP_CDR(QSE_LSP_CDR(p));
}
return p2;
}
ase_lsp_obj_t* ase_lsp_prim_quote (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_quote (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (quote (10 20 30 50))
*/
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
return ASE_LSP_CAR(args);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
return QSE_LSP_CAR(args);
}
ase_lsp_obj_t* ase_lsp_prim_defun (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_defun (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (defun x (a b) (+ a b 100))
@ -540,80 +540,80 @@ ase_lsp_obj_t* ase_lsp_prim_defun (ase_lsp_t* lsp, ase_lsp_obj_t* args)
* temp
*/
ase_lsp_obj_t* name, * fun;
qse_lsp_obj_t* name, * fun;
name = ASE_LSP_CAR(args);
if (ASE_LSP_TYPE(name) != ASE_LSP_OBJ_SYM)
name = QSE_LSP_CAR(args);
if (QSE_LSP_TYPE(name) != QSE_LSP_OBJ_SYM)
{
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
fun = ase_lsp_makefunc (lsp->mem,
ASE_LSP_CAR(ASE_LSP_CDR(args)), ASE_LSP_CDR(ASE_LSP_CDR(args)));
if (fun == ASE_NULL) return ASE_NULL;
fun = qse_lsp_makefunc (lsp->mem,
QSE_LSP_CAR(QSE_LSP_CDR(args)), QSE_LSP_CDR(QSE_LSP_CDR(args)));
if (fun == QSE_NULL) return QSE_NULL;
if (ase_lsp_pushtmp (lsp, fun) == ASE_NULL) return ASE_NULL;
if (qse_lsp_pushtmp (lsp, fun) == QSE_NULL) return QSE_NULL;
if (ase_lsp_setfunc (lsp->mem, ASE_LSP_CAR(args), fun) == ASE_NULL)
if (qse_lsp_setfunc (lsp->mem, QSE_LSP_CAR(args), fun) == QSE_NULL)
{
ase_lsp_poptmp (lsp);
return ASE_NULL;
qse_lsp_poptmp (lsp);
return QSE_NULL;
}
ase_lsp_poptmp (lsp);
qse_lsp_poptmp (lsp);
return fun;
}
ase_lsp_obj_t* ase_lsp_prim_demac (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_demac (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (demac x (abc) x y z)
* (setq x (macro (abc) x y z))
*/
ase_lsp_obj_t* name, * mac;
qse_lsp_obj_t* name, * mac;
name = ASE_LSP_CAR(args);
if (ASE_LSP_TYPE(name) != ASE_LSP_OBJ_SYM)
name = QSE_LSP_CAR(args);
if (QSE_LSP_TYPE(name) != QSE_LSP_OBJ_SYM)
{
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
mac = ase_lsp_makemacro (lsp->mem,
ASE_LSP_CAR(ASE_LSP_CDR(args)), ASE_LSP_CDR(ASE_LSP_CDR(args)));
if (mac == ASE_NULL) return ASE_NULL;
mac = qse_lsp_makemacro (lsp->mem,
QSE_LSP_CAR(QSE_LSP_CDR(args)), QSE_LSP_CDR(QSE_LSP_CDR(args)));
if (mac == QSE_NULL) return QSE_NULL;
if (ase_lsp_pushtmp (lsp, mac) == ASE_NULL) return ASE_NULL;
if (qse_lsp_pushtmp (lsp, mac) == QSE_NULL) return QSE_NULL;
if (ase_lsp_setfunc (lsp->mem, ASE_LSP_CAR(args), mac) == ASE_NULL)
if (qse_lsp_setfunc (lsp->mem, QSE_LSP_CAR(args), mac) == QSE_NULL)
{
ase_lsp_poptmp (lsp);
return ASE_NULL;
qse_lsp_poptmp (lsp);
return QSE_NULL;
}
ase_lsp_poptmp (lsp);
qse_lsp_poptmp (lsp);
return mac;
}
ase_lsp_obj_t* ase_lsp_prim_or (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_or (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (or 10 20 30 40)
* (or (= n 20) (= n 30))
*/
ase_lsp_obj_t* tmp;
qse_lsp_obj_t* tmp;
/* TODO: this is wrong. redo the work */
while (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (tmp == QSE_NULL) return QSE_NULL;
if (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_INT)
if (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_INT)
if (tmp != lsp->mem->nil) return lsp->mem->t;
args = ASE_LSP_CDR(args);
args = QSE_LSP_CDR(args);
}
return lsp->mem->nil;

72
qse/lib/lsp/prim.h
View File

@ -4,63 +4,63 @@
* {License}
*/
#ifndef _ASE_LSP_PRIM_H_
#define _ASE_LSP_PRIM_H_
#ifndef _QSE_LSP_PRIM_H_
#define _QSE_LSP_PRIM_H_
#ifndef _ASE_LSP_LSP_H_
#error Never include this file directly. Include <ase/lsp/lsp.h> instead
#ifndef _QSE_LSP_LSP_H_
#error Never include this file directly. Include <qse/lsp/lsp.h> instead
#endif
#ifdef __cplusplus
extern "C" {
#endif
ase_lsp_obj_t* ase_lsp_prim_exit (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_eval (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_prog1 (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_progn (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_gc (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_cond (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_if (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_while (ase_lsp_t* lsp, ase_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_exit (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_eval (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_prog1 (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_progn (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_gc (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_cond (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_if (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_while (qse_lsp_t* lsp, qse_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_car (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_cdr (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_cons (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_length (ase_lsp_t* lsp, ase_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_car (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_cdr (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_cons (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_length (qse_lsp_t* lsp, qse_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_set (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_setq (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_quote (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_defun (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_demac (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_let (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_letx (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_or (ase_lsp_t* lsp, ase_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_set (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_setq (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_quote (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_defun (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_demac (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_let (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_letx (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_or (qse_lsp_t* lsp, qse_lsp_obj_t* args);
/*---------------------
prim_compar.c
---------------------*/
ase_lsp_obj_t* ase_lsp_prim_eq (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_ne (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_gt (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_lt (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_ge (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_le (ase_lsp_t* lsp, ase_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_eq (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_ne (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_gt (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_lt (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_ge (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_le (qse_lsp_t* lsp, qse_lsp_obj_t* args);
/*---------------------
prim_math.c
---------------------*/
ase_lsp_obj_t* ase_lsp_prim_plus (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_minus (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_mul (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_div (ase_lsp_t* lsp, ase_lsp_obj_t* args);
ase_lsp_obj_t* ase_lsp_prim_mod (ase_lsp_t* lsp, ase_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_plus (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_minus (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_mul (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_div (qse_lsp_t* lsp, qse_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_mod (qse_lsp_t* lsp, qse_lsp_obj_t* args);
/*---------------------
prim_fact.c
---------------------*/
ase_lsp_obj_t* ase_lsp_prim_fact (ase_lsp_t* lsp, ase_lsp_obj_t* args);
qse_lsp_obj_t* qse_lsp_prim_fact (qse_lsp_t* lsp, qse_lsp_obj_t* args);
#ifdef __cplusplus
}

120
qse/lib/lsp/prim_compar.c
View File

@ -8,134 +8,134 @@
#define PRIM_COMPAR(lsp,args,op) \
{ \
ase_lsp_obj_t* p1, * p2; \
qse_lsp_obj_t* p1, * p2; \
int res; \
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS); \
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS); \
\
p1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); \
if (p1 == ASE_NULL) return ASE_NULL; \
if (ase_lsp_pushtmp (lsp, p1) == ASE_NULL) return ASE_NULL; \
p1 = qse_lsp_eval (lsp, QSE_LSP_CAR(args)); \
if (p1 == QSE_NULL) return QSE_NULL; \
if (qse_lsp_pushtmp (lsp, p1) == QSE_NULL) return QSE_NULL; \
\
p2 = ase_lsp_eval (lsp, ASE_LSP_CAR(ASE_LSP_CDR(args))); \
if (p2 == ASE_NULL) \
p2 = qse_lsp_eval (lsp, QSE_LSP_CAR(QSE_LSP_CDR(args))); \
if (p2 == QSE_NULL) \
{ \
ase_lsp_poptmp (lsp); \
return ASE_NULL; \
qse_lsp_poptmp (lsp); \
return QSE_NULL; \
} \
\
if (ase_lsp_pushtmp (lsp, p2) == ASE_NULL) \
if (qse_lsp_pushtmp (lsp, p2) == QSE_NULL) \
{ \
ase_lsp_poptmp (lsp); \
return ASE_NULL; \
qse_lsp_poptmp (lsp); \
return QSE_NULL; \
} \
\
if (ASE_LSP_TYPE(p1) == ASE_LSP_OBJ_INT) \
if (QSE_LSP_TYPE(p1) == QSE_LSP_OBJ_INT) \
{ \
if (ASE_LSP_TYPE(p2) == ASE_LSP_OBJ_INT) \
if (QSE_LSP_TYPE(p2) == QSE_LSP_OBJ_INT) \
{ \
res = ASE_LSP_IVAL(p1) op ASE_LSP_IVAL(p2); \
res = QSE_LSP_IVAL(p1) op QSE_LSP_IVAL(p2); \
} \
else if (ASE_LSP_TYPE(p2) == ASE_LSP_OBJ_REAL) \
else if (QSE_LSP_TYPE(p2) == QSE_LSP_OBJ_REAL) \
{ \
res = ASE_LSP_IVAL(p1) op ASE_LSP_RVAL(p2); \
res = QSE_LSP_IVAL(p1) op QSE_LSP_RVAL(p2); \
} \
else \
{ \
ase_lsp_poptmp (lsp); \
ase_lsp_poptmp (lsp); \
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0); \
return ASE_NULL; \
qse_lsp_poptmp (lsp); \
qse_lsp_poptmp (lsp); \
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0); \
return QSE_NULL; \
} \
} \
else if (ASE_LSP_TYPE(p1) == ASE_LSP_OBJ_REAL) \
else if (QSE_LSP_TYPE(p1) == QSE_LSP_OBJ_REAL) \
{ \
if (ASE_LSP_TYPE(p2) == ASE_LSP_OBJ_INT) \
if (QSE_LSP_TYPE(p2) == QSE_LSP_OBJ_INT) \
{ \
res = ASE_LSP_RVAL(p1) op ASE_LSP_IVAL(p2); \
res = QSE_LSP_RVAL(p1) op QSE_LSP_IVAL(p2); \
} \
else if (ASE_LSP_TYPE(p2) == ASE_LSP_OBJ_REAL) \
else if (QSE_LSP_TYPE(p2) == QSE_LSP_OBJ_REAL) \
{ \
res = ASE_LSP_RVAL(p1) op ASE_LSP_RVAL(p2); \
res = QSE_LSP_RVAL(p1) op QSE_LSP_RVAL(p2); \
} \
else \
{ \
ase_lsp_poptmp (lsp); \
ase_lsp_poptmp (lsp); \
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0); \
return ASE_NULL; \
qse_lsp_poptmp (lsp); \
qse_lsp_poptmp (lsp); \
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0); \
return QSE_NULL; \
} \
} \
else if (ASE_LSP_TYPE(p1) == ASE_LSP_OBJ_SYM) \
else if (QSE_LSP_TYPE(p1) == QSE_LSP_OBJ_SYM) \
{ \
if (ASE_LSP_TYPE(p2) == ASE_LSP_OBJ_SYM) \
if (QSE_LSP_TYPE(p2) == QSE_LSP_OBJ_SYM) \
{ \
res = ase_strxncmp ( \
ASE_LSP_SYMPTR(p1), ASE_LSP_SYMLEN(p1), \
ASE_LSP_SYMPTR(p2), ASE_LSP_SYMLEN(p2)) op 0; \
res = qse_strxncmp ( \
QSE_LSP_SYMPTR(p1), QSE_LSP_SYMLEN(p1), \
QSE_LSP_SYMPTR(p2), QSE_LSP_SYMLEN(p2)) op 0; \
} \
else \
{ \
ase_lsp_poptmp (lsp); \
ase_lsp_poptmp (lsp); \
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0); \
return ASE_NULL; \
qse_lsp_poptmp (lsp); \
qse_lsp_poptmp (lsp); \
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0); \
return QSE_NULL; \
} \
} \
else if (ASE_LSP_TYPE(p1) == ASE_LSP_OBJ_STR) \
else if (QSE_LSP_TYPE(p1) == QSE_LSP_OBJ_STR) \
{ \
if (ASE_LSP_TYPE(p2) == ASE_LSP_OBJ_STR) \
if (QSE_LSP_TYPE(p2) == QSE_LSP_OBJ_STR) \
{ \
res = ase_strxncmp ( \
ASE_LSP_STRPTR(p1), ASE_LSP_STRLEN(p1), \
ASE_LSP_STRPTR(p2), ASE_LSP_STRLEN(p2)) op 0; \
res = qse_strxncmp ( \
QSE_LSP_STRPTR(p1), QSE_LSP_STRLEN(p1), \
QSE_LSP_STRPTR(p2), QSE_LSP_STRLEN(p2)) op 0; \
} \
else \
{ \
ase_lsp_poptmp (lsp); \
ase_lsp_poptmp (lsp); \
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0); \
return ASE_NULL; \
qse_lsp_poptmp (lsp); \
qse_lsp_poptmp (lsp); \
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0); \
return QSE_NULL; \
} \
} \
else \
{ \
ase_lsp_poptmp (lsp); \
ase_lsp_poptmp (lsp); \
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0); \
return ASE_NULL; \
qse_lsp_poptmp (lsp); \
qse_lsp_poptmp (lsp); \
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0); \
return QSE_NULL; \
} \
\
ase_lsp_poptmp (lsp); \
ase_lsp_poptmp (lsp); \
qse_lsp_poptmp (lsp); \
qse_lsp_poptmp (lsp); \
return (res)? lsp->mem->t: lsp->mem->nil; \
}
ase_lsp_obj_t* ase_lsp_prim_eq (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_eq (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
PRIM_COMPAR (lsp, args, ==);
}
ase_lsp_obj_t* ase_lsp_prim_ne (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_ne (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
PRIM_COMPAR (lsp, args, !=);
}
ase_lsp_obj_t* ase_lsp_prim_gt (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_gt (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
PRIM_COMPAR (lsp, args, >);
}
ase_lsp_obj_t* ase_lsp_prim_lt (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_lt (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
PRIM_COMPAR (lsp, args, <);
}
ase_lsp_obj_t* ase_lsp_prim_ge (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_ge (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
PRIM_COMPAR (lsp, args, >=);
}
ase_lsp_obj_t* ase_lsp_prim_le (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_le (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
PRIM_COMPAR (lsp, args, <=);
}

112
qse/lib/lsp/prim_let.c
View File

@ -13,17 +13,17 @@
* body...)
*/
static ase_lsp_obj_t* __prim_let (
ase_lsp_t* lsp, ase_lsp_obj_t* args, int sequential)
static qse_lsp_obj_t* __prim_let (
qse_lsp_t* lsp, qse_lsp_obj_t* args, int sequential)
{
ase_lsp_frame_t* frame;
ase_lsp_obj_t* assoc;
ase_lsp_obj_t* body;
ase_lsp_obj_t* value;
qse_lsp_frame_t* frame;
qse_lsp_obj_t* assoc;
qse_lsp_obj_t* body;
qse_lsp_obj_t* value;
/* create a new frameq */
frame = ase_lsp_newframe (lsp);
if (frame == ASE_NULL) return ASE_NULL;
frame = qse_lsp_newframe (lsp);
if (frame == QSE_NULL) return QSE_NULL;
/*frame->link = lsp->mem->frame;*/
if (sequential)
@ -37,104 +37,104 @@ static ase_lsp_obj_t* __prim_let (
lsp->mem->brooding_frame = frame;
}
assoc = ASE_LSP_CAR(args);
assoc = QSE_LSP_CAR(args);
/*while (assoc != lsp->mem->nil) {*/
while (ASE_LSP_TYPE(assoc) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(assoc) == QSE_LSP_OBJ_CONS)
{
ase_lsp_obj_t* ass = ASE_LSP_CAR(assoc);
if (ASE_LSP_TYPE(ass) == ASE_LSP_OBJ_CONS)
qse_lsp_obj_t* ass = QSE_LSP_CAR(assoc);
if (QSE_LSP_TYPE(ass) == QSE_LSP_OBJ_CONS)
{
ase_lsp_obj_t* n = ASE_LSP_CAR(ass);
ase_lsp_obj_t* v = ASE_LSP_CDR(ass);
qse_lsp_obj_t* n = QSE_LSP_CAR(ass);
qse_lsp_obj_t* v = QSE_LSP_CDR(ass);
if (ASE_LSP_TYPE(n) != ASE_LSP_OBJ_SYM)
if (QSE_LSP_TYPE(n) != QSE_LSP_OBJ_SYM)
{
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
if (v != lsp->mem->nil)
{
if (ASE_LSP_CDR(v) != lsp->mem->nil)
if (QSE_LSP_CDR(v) != lsp->mem->nil)
{
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EARGMANY, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGMANY, QSE_NULL, 0);
return QSE_NULL;
}
if ((v = ase_lsp_eval(lsp, ASE_LSP_CAR(v))) == ASE_NULL)
if ((v = qse_lsp_eval(lsp, QSE_LSP_CAR(v))) == QSE_NULL)
{
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
return ASE_NULL;
qse_lsp_freeframe (lsp, frame);
return QSE_NULL;
}
}
if (ase_lsp_lookupinframe (lsp, frame, n) != ASE_NULL)
if (qse_lsp_lookupinframe (lsp, frame, n) != QSE_NULL)
{
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EDUPFML, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EDUPFML, QSE_NULL, 0);
return QSE_NULL;
}
if (ase_lsp_insvalueintoframe (lsp, frame, n, v) == ASE_NULL)
if (qse_lsp_insvalueintoframe (lsp, frame, n, v) == QSE_NULL)
{
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
return ASE_NULL;
qse_lsp_freeframe (lsp, frame);
return QSE_NULL;
}
}
else if (ASE_LSP_TYPE(ass) == ASE_LSP_OBJ_SYM)
else if (QSE_LSP_TYPE(ass) == QSE_LSP_OBJ_SYM)
{
if (ase_lsp_lookupinframe (lsp, frame, ass) != ASE_NULL)
if (qse_lsp_lookupinframe (lsp, frame, ass) != QSE_NULL)
{
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EDUPFML, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EDUPFML, QSE_NULL, 0);
return QSE_NULL;
}
if (ase_lsp_insvalueintoframe (lsp, frame, ass, lsp->mem->nil) == ASE_NULL)
if (qse_lsp_insvalueintoframe (lsp, frame, ass, lsp->mem->nil) == QSE_NULL)
{
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
return ASE_NULL;
qse_lsp_freeframe (lsp, frame);
return QSE_NULL;
}
}
else
{
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
assoc = ASE_LSP_CDR(assoc);
assoc = QSE_LSP_CDR(assoc);
}
if (assoc != lsp->mem->nil)
{
if (sequential) lsp->mem->frame = frame->link;
else lsp->mem->brooding_frame = frame->link;
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
ase_lsp_seterror (lsp, ASE_LSP_EARGBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EARGBAD, QSE_NULL, 0);
return QSE_NULL;
}
/* push the frame */
@ -147,28 +147,28 @@ static ase_lsp_obj_t* __prim_let (
/* evaluate forms in the body */
value = lsp->mem->nil;
body = ASE_LSP_CDR(args);
body = QSE_LSP_CDR(args);
while (body != lsp->mem->nil)
{
value = ase_lsp_eval (lsp, ASE_LSP_CAR(body));
if (value == ASE_NULL)
value = qse_lsp_eval (lsp, QSE_LSP_CAR(body));
if (value == QSE_NULL)
{
lsp->mem->frame = frame->link;
ase_lsp_freeframe (lsp, frame);
return ASE_NULL;
qse_lsp_freeframe (lsp, frame);
return QSE_NULL;
}
body = ASE_LSP_CDR(body);
body = QSE_LSP_CDR(body);
}
/* pop the frame */
lsp->mem->frame = frame->link;
/* destroy the frame */
ase_lsp_freeframe (lsp, frame);
qse_lsp_freeframe (lsp, frame);
return value;
}
ase_lsp_obj_t* ase_lsp_prim_let (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_let (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/*
* (defun x (x y)
@ -180,7 +180,7 @@ ase_lsp_obj_t* ase_lsp_prim_let (ase_lsp_t* lsp, ase_lsp_obj_t* args)
return __prim_let (lsp, args, 0);
}
ase_lsp_obj_t* ase_lsp_prim_letx (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_letx (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
return __prim_let (lsp, args, 1);
}

278
qse/lib/lsp/prim_math.c
View File

@ -6,346 +6,346 @@
#include "lsp.h"
ase_lsp_obj_t* ase_lsp_prim_plus (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_plus (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
ase_lsp_obj_t* body, * tmp;
ase_long_t ival = 0;
ase_real_t rval = .0;
ase_bool_t realnum = ASE_FALSE;
qse_lsp_obj_t* body, * tmp;
qse_long_t ival = 0;
qse_real_t rval = .0;
qse_bool_t realnum = QSE_FALSE;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
body = args;
while (ASE_LSP_TYPE(body) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(body) == QSE_LSP_OBJ_CONS)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(body));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(body));
if (tmp == QSE_NULL) return QSE_NULL;
if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_INT)
if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_INT)
{
if (body == args)
{
ASE_ASSERT (realnum == ASE_FALSE);
ival = ASE_LSP_IVAL(tmp);
QSE_ASSERT (realnum == QSE_FALSE);
ival = QSE_LSP_IVAL(tmp);
}
else
{
if (!realnum)
ival = ival + ASE_LSP_IVAL(tmp);
ival = ival + QSE_LSP_IVAL(tmp);
else
rval = rval + ASE_LSP_IVAL(tmp);
rval = rval + QSE_LSP_IVAL(tmp);
}
}
else if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_REAL)
else if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_REAL)
{
if (body == args)
{
ASE_ASSERT (realnum == ASE_FALSE);
realnum = ASE_TRUE;
rval = ASE_LSP_RVAL(tmp);
QSE_ASSERT (realnum == QSE_FALSE);
realnum = QSE_TRUE;
rval = QSE_LSP_RVAL(tmp);
}
else
{
if (!realnum)
{
realnum = ASE_TRUE;
rval = (ase_real_t)ival;
realnum = QSE_TRUE;
rval = (qse_real_t)ival;
}
rval = rval + ASE_LSP_RVAL(tmp);
rval = rval + QSE_LSP_RVAL(tmp);
}
}
else
{
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0);
return QSE_NULL;
}
body = ASE_LSP_CDR(body);
body = QSE_LSP_CDR(body);
}
ASE_ASSERT (body == lsp->mem->nil);
QSE_ASSERT (body == lsp->mem->nil);
tmp = (realnum)?
ase_lsp_makerealobj (lsp->mem, rval):
ase_lsp_makeintobj (lsp->mem, ival);
if (tmp == ASE_NULL) return ASE_NULL;
qse_lsp_makerealobj (lsp->mem, rval):
qse_lsp_makeintobj (lsp->mem, ival);
if (tmp == QSE_NULL) return QSE_NULL;
return tmp;
}
ase_lsp_obj_t* ase_lsp_prim_minus (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_minus (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
ase_lsp_obj_t* body, * tmp;
ase_long_t ival = 0;
ase_real_t rval = .0;
ase_bool_t realnum = ASE_FALSE;
qse_lsp_obj_t* body, * tmp;
qse_long_t ival = 0;
qse_real_t rval = .0;
qse_bool_t realnum = QSE_FALSE;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
body = args;
while (ASE_LSP_TYPE(body) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(body) == QSE_LSP_OBJ_CONS)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(body));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(body));
if (tmp == QSE_NULL) return QSE_NULL;
if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_INT)
if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_INT)
{
if (body == args)
{
ASE_ASSERT (realnum == ASE_FALSE);
ival = ASE_LSP_IVAL(tmp);
QSE_ASSERT (realnum == QSE_FALSE);
ival = QSE_LSP_IVAL(tmp);
}
else
{
if (!realnum)
ival = ival - ASE_LSP_IVAL(tmp);
ival = ival - QSE_LSP_IVAL(tmp);
else
rval = rval - ASE_LSP_IVAL(tmp);
rval = rval - QSE_LSP_IVAL(tmp);
}
}
else if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_REAL)
else if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_REAL)
{
if (body == args)
{
ASE_ASSERT (realnum == ASE_FALSE);
realnum = ASE_TRUE;
rval = ASE_LSP_RVAL(tmp);
QSE_ASSERT (realnum == QSE_FALSE);
realnum = QSE_TRUE;
rval = QSE_LSP_RVAL(tmp);
}
else
{
if (!realnum)
{
realnum = ASE_TRUE;
rval = (ase_real_t)ival;
realnum = QSE_TRUE;
rval = (qse_real_t)ival;
}
rval = rval - ASE_LSP_RVAL(tmp);
rval = rval - QSE_LSP_RVAL(tmp);
}
}
else
{
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0);
return QSE_NULL;
}
body = ASE_LSP_CDR(body);
body = QSE_LSP_CDR(body);
}
ASE_ASSERT (body == lsp->mem->nil);
QSE_ASSERT (body == lsp->mem->nil);
tmp = (realnum)?
ase_lsp_makerealobj (lsp->mem, rval):
ase_lsp_makeintobj (lsp->mem, ival);
if (tmp == ASE_NULL) return ASE_NULL;
qse_lsp_makerealobj (lsp->mem, rval):
qse_lsp_makeintobj (lsp->mem, ival);
if (tmp == QSE_NULL) return QSE_NULL;
return tmp;
}
ase_lsp_obj_t* ase_lsp_prim_mul (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_mul (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
ase_lsp_obj_t* body, * tmp;
ase_long_t ival = 0;
ase_real_t rval = .0;
ase_bool_t realnum = ASE_FALSE;
qse_lsp_obj_t* body, * tmp;
qse_long_t ival = 0;
qse_real_t rval = .0;
qse_bool_t realnum = QSE_FALSE;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
body = args;
while (ASE_LSP_TYPE(body) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(body) == QSE_LSP_OBJ_CONS)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(body));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(body));
if (tmp == QSE_NULL) return QSE_NULL;
if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_INT)
if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_INT)
{
if (body == args)
{
ASE_ASSERT (realnum == ASE_FALSE);
ival = ASE_LSP_IVAL(tmp);
QSE_ASSERT (realnum == QSE_FALSE);
ival = QSE_LSP_IVAL(tmp);
}
else
{
if (!realnum)
ival = ival * ASE_LSP_IVAL(tmp);
ival = ival * QSE_LSP_IVAL(tmp);
else
rval = rval * ASE_LSP_IVAL(tmp);
rval = rval * QSE_LSP_IVAL(tmp);
}
}
else if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_REAL)
else if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_REAL)
{
if (body == args)
{
ASE_ASSERT (realnum == ASE_FALSE);
realnum = ASE_TRUE;
rval = ASE_LSP_RVAL(tmp);
QSE_ASSERT (realnum == QSE_FALSE);
realnum = QSE_TRUE;
rval = QSE_LSP_RVAL(tmp);
}
else
{
if (!realnum)
{
realnum = ASE_TRUE;
rval = (ase_real_t)ival;
realnum = QSE_TRUE;
rval = (qse_real_t)ival;
}
rval = rval * ASE_LSP_RVAL(tmp);
rval = rval * QSE_LSP_RVAL(tmp);
}
}
else
{
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0);
return QSE_NULL;
}
body = ASE_LSP_CDR(body);
body = QSE_LSP_CDR(body);
}
ASE_ASSERT (body == lsp->mem->nil);
QSE_ASSERT (body == lsp->mem->nil);
tmp = (realnum)?
ase_lsp_makerealobj (lsp->mem, rval):
ase_lsp_makeintobj (lsp->mem, ival);
if (tmp == ASE_NULL) return ASE_NULL;
qse_lsp_makerealobj (lsp->mem, rval):
qse_lsp_makeintobj (lsp->mem, ival);
if (tmp == QSE_NULL) return QSE_NULL;
return tmp;
}
ase_lsp_obj_t* ase_lsp_prim_div (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_div (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
ase_lsp_obj_t* body, * tmp;
ase_long_t ival = 0;
ase_real_t rval = .0;
ase_bool_t realnum = ASE_FALSE;
qse_lsp_obj_t* body, * tmp;
qse_long_t ival = 0;
qse_real_t rval = .0;
qse_bool_t realnum = QSE_FALSE;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
body = args;
while (ASE_LSP_TYPE(body) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(body) == QSE_LSP_OBJ_CONS)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(body));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(body));
if (tmp == QSE_NULL) return QSE_NULL;
if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_INT)
if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_INT)
{
if (body == args)
{
ASE_ASSERT (realnum == ASE_FALSE);
ival = ASE_LSP_IVAL(tmp);
QSE_ASSERT (realnum == QSE_FALSE);
ival = QSE_LSP_IVAL(tmp);
}
else
{
if (!realnum)
{
if (ASE_LSP_IVAL(tmp) == 0)
if (QSE_LSP_IVAL(tmp) == 0)
{
ase_lsp_seterror (lsp, ASE_LSP_EDIVBY0, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EDIVBY0, QSE_NULL, 0);
return QSE_NULL;
}
ival = ival / ASE_LSP_IVAL(tmp);
ival = ival / QSE_LSP_IVAL(tmp);
}
else
rval = rval / ASE_LSP_IVAL(tmp);
rval = rval / QSE_LSP_IVAL(tmp);
}
}
else if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_REAL)
else if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_REAL)
{
if (body == args)
{
ASE_ASSERT (realnum == ASE_FALSE);
realnum = ASE_TRUE;
rval = ASE_LSP_RVAL(tmp);
QSE_ASSERT (realnum == QSE_FALSE);
realnum = QSE_TRUE;
rval = QSE_LSP_RVAL(tmp);
}
else
{
if (!realnum)
{
realnum = ASE_TRUE;
rval = (ase_real_t)ival;
realnum = QSE_TRUE;
rval = (qse_real_t)ival;
}
rval = rval / ASE_LSP_RVAL(tmp);
rval = rval / QSE_LSP_RVAL(tmp);
}
}
else
{
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0);
return QSE_NULL;
}
body = ASE_LSP_CDR(body);
body = QSE_LSP_CDR(body);
}
ASE_ASSERT (body == lsp->mem->nil);
QSE_ASSERT (body == lsp->mem->nil);
tmp = (realnum)?
ase_lsp_makerealobj (lsp->mem, rval):
ase_lsp_makeintobj (lsp->mem, ival);
if (tmp == ASE_NULL) return ASE_NULL;
qse_lsp_makerealobj (lsp->mem, rval):
qse_lsp_makeintobj (lsp->mem, ival);
if (tmp == QSE_NULL) return QSE_NULL;
return tmp;
}
ase_lsp_obj_t* ase_lsp_prim_mod (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_mod (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
ase_lsp_obj_t* body, * tmp;
ase_long_t ival = 0;
qse_lsp_obj_t* body, * tmp;
qse_long_t ival = 0;
ASE_ASSERT (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS);
QSE_ASSERT (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS);
body = args;
while (ASE_LSP_TYPE(body) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(body) == QSE_LSP_OBJ_CONS)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(body));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(body));
if (tmp == QSE_NULL) return QSE_NULL;
if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_INT)
if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_INT)
{
if (body == args)
{
ival = ASE_LSP_IVAL(tmp);
ival = QSE_LSP_IVAL(tmp);
}
else
{
if (ASE_LSP_IVAL(tmp) == 0)
if (QSE_LSP_IVAL(tmp) == 0)
{
ase_lsp_seterror (lsp, ASE_LSP_EDIVBY0, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EDIVBY0, QSE_NULL, 0);
return QSE_NULL;
}
ival = ival % ASE_LSP_IVAL(tmp);
ival = ival % QSE_LSP_IVAL(tmp);
}
}
else if (ASE_LSP_TYPE(tmp) == ASE_LSP_OBJ_REAL)
else if (QSE_LSP_TYPE(tmp) == QSE_LSP_OBJ_REAL)
{
if (body == args)
{
ival = (ase_long_t)ASE_LSP_RVAL(tmp);
ival = (qse_long_t)QSE_LSP_RVAL(tmp);
}
else
{
ase_long_t tmpi = (ase_long_t)ASE_LSP_RVAL(tmp);
qse_long_t tmpi = (qse_long_t)QSE_LSP_RVAL(tmp);
if (tmpi == 0)
{
ase_lsp_seterror (lsp, ASE_LSP_EDIVBY0, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EDIVBY0, QSE_NULL, 0);
return QSE_NULL;
}
ival = ival % tmpi;
}
}
else
{
ase_lsp_seterror (lsp, ASE_LSP_EVALBAD, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EVALBAD, QSE_NULL, 0);
return QSE_NULL;
}
body = ASE_LSP_CDR(body);
body = QSE_LSP_CDR(body);
}
ASE_ASSERT (body == lsp->mem->nil);
QSE_ASSERT (body == lsp->mem->nil);
tmp = ase_lsp_makeintobj (lsp->mem, ival);
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_makeintobj (lsp->mem, ival);
if (tmp == QSE_NULL) return QSE_NULL;
return tmp;
}

32
qse/lib/lsp/prim_prog.c
View File

@ -6,47 +6,47 @@
#include "lsp.h"
ase_lsp_obj_t* ase_lsp_prim_prog1 (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_prog1 (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/* (prog1 1 2 3) returns 1 */
ase_lsp_obj_t* res = ASE_NULL, * tmp;
qse_lsp_obj_t* res = QSE_NULL, * tmp;
/*while (args != lsp->mem->nil) {*/
while (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (tmp == QSE_NULL) return QSE_NULL;
if (res == ASE_NULL)
if (res == QSE_NULL)
{
res = tmp;
if (ase_lsp_pushtmp (lsp, res) == ASE_NULL)
if (qse_lsp_pushtmp (lsp, res) == QSE_NULL)
{
return ASE_NULL;
return QSE_NULL;
}
}
args = ASE_LSP_CDR(args);
args = QSE_LSP_CDR(args);
}
if (res != ASE_NULL) ase_lsp_poptmp (lsp);
if (res != QSE_NULL) qse_lsp_poptmp (lsp);
return res;
}
ase_lsp_obj_t* ase_lsp_prim_progn (ase_lsp_t* lsp, ase_lsp_obj_t* args)
qse_lsp_obj_t* qse_lsp_prim_progn (qse_lsp_t* lsp, qse_lsp_obj_t* args)
{
/* (progn 1 2 3) returns 3 */
ase_lsp_obj_t* res, * tmp;
qse_lsp_obj_t* res, * tmp;
res = lsp->mem->nil;
/*while (args != lsp->mem->nil) {*/
while (ASE_LSP_TYPE(args) == ASE_LSP_OBJ_CONS)
while (QSE_LSP_TYPE(args) == QSE_LSP_OBJ_CONS)
{
tmp = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp == ASE_NULL) return ASE_NULL;
tmp = qse_lsp_eval (lsp, QSE_LSP_CAR(args));
if (tmp == QSE_NULL) return QSE_NULL;
res = tmp;
args = ASE_LSP_CDR(args);
args = QSE_LSP_CDR(args);
}
return res;

134
qse/lib/lsp/print.c
View File

@ -8,149 +8,149 @@
#define OUTPUT_STR(lsp,str) \
do { \
if (lsp->output_func(ASE_LSP_IO_WRITE, lsp->output_arg, (ase_char_t*)str, ase_strlen(str)) == -1) { \
ase_lsp_seterror (lsp, ASE_LSP_EOUTPUT, ASE_NULL, 0); \
if (lsp->output_func(QSE_LSP_IO_WRITE, lsp->output_arg, (qse_char_t*)str, qse_strlen(str)) == -1) { \
qse_lsp_seterror (lsp, QSE_LSP_EOUTPUT, QSE_NULL, 0); \
return -1; \
} \
} while (0)
#define OUTPUT_STRX(lsp,str,len) \
do { \
if (lsp->output_func(ASE_LSP_IO_WRITE, lsp->output_arg, (ase_char_t*)str, len) == -1) { \
ase_lsp_seterror (lsp, ASE_LSP_EOUTPUT, ASE_NULL, 0); \
if (lsp->output_func(QSE_LSP_IO_WRITE, lsp->output_arg, (qse_char_t*)str, len) == -1) { \
qse_lsp_seterror (lsp, QSE_LSP_EOUTPUT, QSE_NULL, 0); \
return -1; \
} \
} while (0)
static int __print (ase_lsp_t* lsp, const ase_lsp_obj_t* obj, ase_bool_t prt_cons_par)
static int __print (qse_lsp_t* lsp, const qse_lsp_obj_t* obj, qse_bool_t prt_cons_par)
{
ase_char_t buf[256];
qse_char_t buf[256];
if (lsp->output_func == ASE_NULL)
if (lsp->output_func == QSE_NULL)
{
ase_lsp_seterror (lsp, ASE_LSP_ENOOUTP, ASE_NULL, 0);
qse_lsp_seterror (lsp, QSE_LSP_ENOOUTP, QSE_NULL, 0);
return -1;
}
switch (ASE_LSP_TYPE(obj))
switch (QSE_LSP_TYPE(obj))
{
case ASE_LSP_OBJ_NIL:
OUTPUT_STR (lsp, ASE_T("nil"));
case QSE_LSP_OBJ_NIL:
OUTPUT_STR (lsp, QSE_T("nil"));
break;
case ASE_LSP_OBJ_TRUE:
OUTPUT_STR (lsp, ASE_T("t"));
case QSE_LSP_OBJ_TRUE:
OUTPUT_STR (lsp, QSE_T("t"));
break;
case ASE_LSP_OBJ_INT:
#if ASE_SIZEOF_LONG_LONG > 0
case QSE_LSP_OBJ_INT:
#if QSE_SIZEOF_LONG_LONG > 0
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
buf, ASE_COUNTOF(buf),
ASE_T("%lld"), (long long)ASE_LSP_IVAL(obj));
#elif ASE_SIZEOF___INT64 > 0
buf, QSE_COUNTOF(buf),
QSE_T("%lld"), (long long)QSE_LSP_IVAL(obj));
#elif QSE_SIZEOF___INT64 > 0
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
buf, ASE_COUNTOF(buf),
ASE_T("%I64d"), (__int64)ASE_LSP_IVAL(obj));
#elif ASE_SIZEOF_LONG > 0
buf, QSE_COUNTOF(buf),
QSE_T("%I64d"), (__int64)QSE_LSP_IVAL(obj));
#elif QSE_SIZEOF_LONG > 0
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
buf, ASE_COUNTOF(buf),
ASE_T("%ld"), (long)ASE_LSP_IVAL(obj));
#elif ASE_SIZEOF_INT > 0
buf, QSE_COUNTOF(buf),
QSE_T("%ld"), (long)QSE_LSP_IVAL(obj));
#elif QSE_SIZEOF_INT > 0
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
buf, ASE_COUNTOF(buf),
ASE_T("%d"), (int)ASE_LSP_IVAL(obj));
buf, QSE_COUNTOF(buf),
QSE_T("%d"), (int)QSE_LSP_IVAL(obj));
#else
#error unsupported size
#endif
OUTPUT_STR (lsp, buf);
break;
case ASE_LSP_OBJ_REAL:
case QSE_LSP_OBJ_REAL:
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
buf, ASE_COUNTOF(buf),
ASE_T("%Lf"),
buf, QSE_COUNTOF(buf),
QSE_T("%Lf"),
#ifdef __MINGW32__
(double)ASE_LSP_RVAL(obj)
(double)QSE_LSP_RVAL(obj)
#else
(long double)ASE_LSP_RVAL(obj)
(long double)QSE_LSP_RVAL(obj)
#endif
);
OUTPUT_STR (lsp, buf);
break;
case ASE_LSP_OBJ_SYM:
OUTPUT_STRX (lsp, ASE_LSP_SYMPTR(obj), ASE_LSP_SYMLEN(obj));
case QSE_LSP_OBJ_SYM:
OUTPUT_STRX (lsp, QSE_LSP_SYMPTR(obj), QSE_LSP_SYMLEN(obj));
break;
case ASE_LSP_OBJ_STR:
OUTPUT_STR (lsp, ASE_T("\""));
case QSE_LSP_OBJ_STR:
OUTPUT_STR (lsp, QSE_T("\""));
/* TODO: deescaping */
OUTPUT_STRX (lsp, ASE_LSP_STRPTR(obj), ASE_LSP_STRLEN(obj));
OUTPUT_STR (lsp, ASE_T("\""));
OUTPUT_STRX (lsp, QSE_LSP_STRPTR(obj), QSE_LSP_STRLEN(obj));
OUTPUT_STR (lsp, QSE_T("\""));
break;
case ASE_LSP_OBJ_CONS:
case QSE_LSP_OBJ_CONS:
{
const ase_lsp_obj_t* p = obj;
if (prt_cons_par) OUTPUT_STR (lsp, ASE_T("("));
const qse_lsp_obj_t* p = obj;
if (prt_cons_par) OUTPUT_STR (lsp, QSE_T("("));
do
{
ase_lsp_print (lsp, ASE_LSP_CAR(p));
p = ASE_LSP_CDR(p);
qse_lsp_print (lsp, QSE_LSP_CAR(p));
p = QSE_LSP_CDR(p);
if (p != lsp->mem->nil)
{
OUTPUT_STR (lsp, ASE_T(" "));
if (ASE_LSP_TYPE(p) != ASE_LSP_OBJ_CONS)
OUTPUT_STR (lsp, QSE_T(" "));
if (QSE_LSP_TYPE(p) != QSE_LSP_OBJ_CONS)
{
OUTPUT_STR (lsp, ASE_T(". "));
ase_lsp_print (lsp, p);
OUTPUT_STR (lsp, QSE_T(". "));
qse_lsp_print (lsp, p);
}
}
}
while (p != lsp->mem->nil && ASE_LSP_TYPE(p) == ASE_LSP_OBJ_CONS);
if (prt_cons_par) OUTPUT_STR (lsp, ASE_T(")"));
while (p != lsp->mem->nil && QSE_LSP_TYPE(p) == QSE_LSP_OBJ_CONS);
if (prt_cons_par) OUTPUT_STR (lsp, QSE_T(")"));
break;
}
case ASE_LSP_OBJ_FUNC:
/*OUTPUT_STR (lsp, ASE_T("func"));*/
OUTPUT_STR (lsp, ASE_T("(lambda "));
if (__print (lsp, ASE_LSP_FFORMAL(obj), ASE_TRUE) == -1) return -1;
OUTPUT_STR (lsp, ASE_T(" "));
if (__print (lsp, ASE_LSP_FBODY(obj), ASE_FALSE) == -1) return -1;
OUTPUT_STR (lsp, ASE_T(")"));
case QSE_LSP_OBJ_FUNC:
/*OUTPUT_STR (lsp, QSE_T("func"));*/
OUTPUT_STR (lsp, QSE_T("(lambda "));
if (__print (lsp, QSE_LSP_FFORMAL(obj), QSE_TRUE) == -1) return -1;
OUTPUT_STR (lsp, QSE_T(" "));
if (__print (lsp, QSE_LSP_FBODY(obj), QSE_FALSE) == -1) return -1;
OUTPUT_STR (lsp, QSE_T(")"));
break;
case ASE_LSP_OBJ_MACRO:
OUTPUT_STR (lsp, ASE_T("(macro "));
if (__print (lsp, ASE_LSP_FFORMAL(obj), ASE_TRUE) == -1) return -1;
OUTPUT_STR (lsp, ASE_T(" "));
if (__print (lsp, ASE_LSP_FBODY(obj), ASE_FALSE) == -1) return -1;
OUTPUT_STR (lsp, ASE_T(")"));
case QSE_LSP_OBJ_MACRO:
OUTPUT_STR (lsp, QSE_T("(macro "));
if (__print (lsp, QSE_LSP_FFORMAL(obj), QSE_TRUE) == -1) return -1;
OUTPUT_STR (lsp, QSE_T(" "));
if (__print (lsp, QSE_LSP_FBODY(obj), QSE_FALSE) == -1) return -1;
OUTPUT_STR (lsp, QSE_T(")"));
break;
case ASE_LSP_OBJ_PRIM:
OUTPUT_STR (lsp, ASE_T("prim"));
case QSE_LSP_OBJ_PRIM:
OUTPUT_STR (lsp, QSE_T("prim"));
break;
default:
lsp->prmfns.misc.sprintf (
lsp->prmfns.misc.data,
buf, ASE_COUNTOF(buf),
ASE_T("unknown object type: %d"), ASE_LSP_TYPE(obj));
buf, QSE_COUNTOF(buf),
QSE_T("unknown object type: %d"), QSE_LSP_TYPE(obj));
OUTPUT_STR (lsp, buf);
}
return 0;
}
int ase_lsp_print (ase_lsp_t* lsp, const ase_lsp_obj_t* obj)
int qse_lsp_print (qse_lsp_t* lsp, const qse_lsp_obj_t* obj)
{
return __print (lsp, obj, ASE_TRUE);
return __print (lsp, obj, QSE_TRUE);
}

300
qse/lib/lsp/read.c
View File

@ -7,14 +7,14 @@
#include "lsp.h"
#define IS_IDENT(c) \
((c) == ASE_T('+') || (c) == ASE_T('-') || \
(c) == ASE_T('*') || (c) == ASE_T('/') || \
(c) == ASE_T('%') || (c) == ASE_T('&') || \
(c) == ASE_T('<') || (c) == ASE_T('>') || \
(c) == ASE_T('=') || (c) == ASE_T('_') || \
(c) == ASE_T('?'))
((c) == QSE_T('+') || (c) == QSE_T('-') || \
(c) == QSE_T('*') || (c) == QSE_T('/') || \
(c) == QSE_T('%') || (c) == QSE_T('&') || \
(c) == QSE_T('<') || (c) == QSE_T('>') || \
(c) == QSE_T('=') || (c) == QSE_T('_') || \
(c) == QSE_T('?'))
#define TOKEN_CLEAR(lsp) ase_lsp_name_clear (&(lsp)->token.name)
#define TOKEN_CLEAR(lsp) qse_lsp_name_clear (&(lsp)->token.name)
#define TOKEN_TYPE(lsp) (lsp)->token.type
#define TOKEN_IVAL(lsp) (lsp)->token.ival
#define TOKEN_RVAL(lsp) (lsp)->token.rval
@ -23,14 +23,14 @@
#define TOKEN_ADD_CHAR(lsp,ch) \
do { \
if (ase_lsp_name_addc(&(lsp)->token.name, ch) == -1) { \
ase_lsp_seterror (lsp, ASE_LSP_ENOMEM, ASE_NULL, 0); \
if (qse_lsp_name_addc(&(lsp)->token.name, ch) == -1) { \
qse_lsp_seterror (lsp, QSE_LSP_ENOMEM, QSE_NULL, 0); \
return -1; \
} \
} while (0)
#define TOKEN_COMPARE(lsp,str) \
ase_lsp_name_compare (&(lsp)->token.name, str)
qse_lsp_name_compare (&(lsp)->token.name, str)
#define TOKEN_END 0
#define TOKEN_INT 1
@ -54,40 +54,40 @@
} while (0)
#define NEXT_TOKEN(lsp) \
do { if (read_token(lsp) == -1) return ASE_NULL; } while (0)
do { if (read_token(lsp) == -1) return QSE_NULL; } while (0)
static ase_lsp_obj_t* read_obj (ase_lsp_t* lsp);
static ase_lsp_obj_t* read_list (ase_lsp_t* lsp);
static ase_lsp_obj_t* read_quote (ase_lsp_t* lsp);
static qse_lsp_obj_t* read_obj (qse_lsp_t* lsp);
static qse_lsp_obj_t* read_list (qse_lsp_t* lsp);
static qse_lsp_obj_t* read_quote (qse_lsp_t* lsp);
static int read_char (ase_lsp_t* lsp);
static int read_token (ase_lsp_t* lsp);
static int read_number (ase_lsp_t* lsp, int negative);
static int read_ident (ase_lsp_t* lsp);
static int read_string (ase_lsp_t* lsp);
static int read_char (qse_lsp_t* lsp);
static int read_token (qse_lsp_t* lsp);
static int read_number (qse_lsp_t* lsp, int negative);
static int read_ident (qse_lsp_t* lsp);
static int read_string (qse_lsp_t* lsp);
ase_lsp_obj_t* ase_lsp_read (ase_lsp_t* lsp)
qse_lsp_obj_t* qse_lsp_read (qse_lsp_t* lsp)
{
if (lsp->curc == ASE_CHAR_EOF &&
read_char(lsp) == -1) return ASE_NULL;
if (lsp->curc == QSE_CHAR_EOF &&
read_char(lsp) == -1) return QSE_NULL;
NEXT_TOKEN (lsp);
lsp->mem->read = read_obj (lsp);
if (lsp->mem->read != ASE_NULL)
ase_lsp_deepunlockobj (lsp, lsp->mem->read);
if (lsp->mem->read != QSE_NULL)
qse_lsp_deepunlockobj (lsp, lsp->mem->read);
return lsp->mem->read;
}
static ase_lsp_obj_t* read_obj (ase_lsp_t* lsp)
static qse_lsp_obj_t* read_obj (qse_lsp_t* lsp)
{
ase_lsp_obj_t* obj;
qse_lsp_obj_t* obj;
switch (TOKEN_TYPE(lsp))
{
case TOKEN_END:
ase_lsp_seterror (lsp, ASE_LSP_EEND, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_EEND, QSE_NULL, 0);
return QSE_NULL;
case TOKEN_LPAREN:
NEXT_TOKEN (lsp);
@ -98,87 +98,87 @@ static ase_lsp_obj_t* read_obj (ase_lsp_t* lsp)
return read_quote (lsp);
case TOKEN_INT:
obj = ase_lsp_makeintobj (lsp->mem, TOKEN_IVAL(lsp));
if (obj == ASE_NULL) return ASE_NULL;
ase_lsp_lockobj (lsp, obj);
obj = qse_lsp_makeintobj (lsp->mem, TOKEN_IVAL(lsp));
if (obj == QSE_NULL) return QSE_NULL;
qse_lsp_lockobj (lsp, obj);
return obj;
case TOKEN_REAL:
obj = ase_lsp_makerealobj (lsp->mem, TOKEN_RVAL(lsp));
if (obj == ASE_NULL) return ASE_NULL;
ase_lsp_lockobj (lsp, obj);
obj = qse_lsp_makerealobj (lsp->mem, TOKEN_RVAL(lsp));
if (obj == QSE_NULL) return QSE_NULL;
qse_lsp_lockobj (lsp, obj);
return obj;
case TOKEN_STRING:
obj = ase_lsp_makestr (
obj = qse_lsp_makestr (
lsp->mem, TOKEN_SPTR(lsp), TOKEN_SLEN(lsp));
if (obj == ASE_NULL) return ASE_NULL;
ase_lsp_lockobj (lsp, obj);
if (obj == QSE_NULL) return QSE_NULL;
qse_lsp_lockobj (lsp, obj);
return obj;
case TOKEN_IDENT:
ASE_ASSERT (
lsp->mem->nil != ASE_NULL &&
lsp->mem->t != ASE_NULL);
QSE_ASSERT (
lsp->mem->nil != QSE_NULL &&
lsp->mem->t != QSE_NULL);
if (TOKEN_COMPARE(lsp,ASE_T("nil")) == 0)
if (TOKEN_COMPARE(lsp,QSE_T("nil")) == 0)
{
obj = lsp->mem->nil;
}
else if (TOKEN_COMPARE(lsp,ASE_T("t")) == 0)
else if (TOKEN_COMPARE(lsp,QSE_T("t")) == 0)
{
obj = lsp->mem->t;
}
else
{
obj = ase_lsp_makesym (
obj = qse_lsp_makesym (
lsp->mem,
TOKEN_SPTR(lsp),
TOKEN_SLEN(lsp));
if (obj == ASE_NULL) return ASE_NULL;
ase_lsp_lockobj (lsp, obj);
if (obj == QSE_NULL) return QSE_NULL;
qse_lsp_lockobj (lsp, obj);
}
return obj;
}
ase_lsp_seterror (lsp, ASE_LSP_ESYNTAX, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_ESYNTAX, QSE_NULL, 0);
return QSE_NULL;
}
static ase_lsp_obj_t* read_list (ase_lsp_t* lsp)
static qse_lsp_obj_t* read_list (qse_lsp_t* lsp)
{
ase_lsp_obj_t* obj;
ase_lsp_obj_cons_t* p, * first = ASE_NULL, * prev = ASE_NULL;
qse_lsp_obj_t* obj;
qse_lsp_obj_cons_t* p, * first = QSE_NULL, * prev = QSE_NULL;
while (TOKEN_TYPE(lsp) != TOKEN_RPAREN)
{
if (TOKEN_TYPE(lsp) == TOKEN_END)
{
/* unexpected end of input */
ase_lsp_seterror (lsp, ASE_LSP_ESYNTAX, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_ESYNTAX, QSE_NULL, 0);
return QSE_NULL;
}
if (TOKEN_TYPE(lsp) == TOKEN_DOT)
{
if (prev == ASE_NULL)
if (prev == QSE_NULL)
{
/* unexpected dot */
ase_lsp_seterror (lsp, ASE_LSP_ESYNTAX, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_ESYNTAX, QSE_NULL, 0);
return QSE_NULL;
}
NEXT_TOKEN (lsp);
obj = read_obj (lsp);
if (obj == ASE_NULL)
if (obj == QSE_NULL)
{
if (lsp->errnum == ASE_LSP_EEND)
if (lsp->errnum == QSE_LSP_EEND)
{
/* unexpected end of input */
ase_lsp_seterror (lsp, ASE_LSP_ESYNTAX, ASE_NULL, 0);
qse_lsp_seterror (lsp, QSE_LSP_ESYNTAX, QSE_NULL, 0);
}
return ASE_NULL;
return QSE_NULL;
}
prev->cdr = obj;
@ -186,31 +186,31 @@ static ase_lsp_obj_t* read_list (ase_lsp_t* lsp)
if (TOKEN_TYPE(lsp) != TOKEN_RPAREN)
{
/* ) expected */
ase_lsp_seterror (lsp, ASE_LSP_ERPAREN, ASE_NULL, 0);
return ASE_NULL;
qse_lsp_seterror (lsp, QSE_LSP_ERPAREN, QSE_NULL, 0);
return QSE_NULL;
}
break;
}
obj = read_obj (lsp);
if (obj == ASE_NULL)
if (obj == QSE_NULL)
{
if (lsp->errnum == ASE_LSP_EEND)
if (lsp->errnum == QSE_LSP_EEND)
{
/* unexpected end of input */
ase_lsp_seterror (lsp, ASE_LSP_ESYNTAX, ASE_NULL, 0);
qse_lsp_seterror (lsp, QSE_LSP_ESYNTAX, QSE_NULL, 0);
}
return ASE_NULL;
return QSE_NULL;
}
p = (ase_lsp_obj_cons_t*)ase_lsp_makecons (
p = (qse_lsp_obj_cons_t*)qse_lsp_makecons (
lsp->mem, lsp->mem->nil, lsp->mem->nil);
if (p == ASE_NULL) return ASE_NULL;
ase_lsp_lockobj (lsp, (ase_lsp_obj_t*)p);
if (p == QSE_NULL) return QSE_NULL;
qse_lsp_lockobj (lsp, (qse_lsp_obj_t*)p);
if (first == ASE_NULL) first = p;
if (prev != ASE_NULL) prev->cdr = (ase_lsp_obj_t*)p;
if (first == QSE_NULL) first = p;
if (prev != QSE_NULL) prev->cdr = (qse_lsp_obj_t*)p;
p->car = obj;
prev = p;
@ -218,120 +218,120 @@ static ase_lsp_obj_t* read_list (ase_lsp_t* lsp)
NEXT_TOKEN (lsp);
}
return (first == ASE_NULL)? lsp->mem->nil: (ase_lsp_obj_t*)first;
return (first == QSE_NULL)? lsp->mem->nil: (qse_lsp_obj_t*)first;
}
static ase_lsp_obj_t* read_quote (ase_lsp_t* lsp)
static qse_lsp_obj_t* read_quote (qse_lsp_t* lsp)
{
ase_lsp_obj_t* cons, * tmp;
qse_lsp_obj_t* cons, * tmp;
tmp = read_obj (lsp);
if (tmp == ASE_NULL)
if (tmp == QSE_NULL)
{
if (lsp->errnum == ASE_LSP_EEND)
if (lsp->errnum == QSE_LSP_EEND)
{
/* unexpected end of input */
ase_lsp_seterror (lsp, ASE_LSP_ESYNTAX, ASE_NULL, 0);
qse_lsp_seterror (lsp, QSE_LSP_ESYNTAX, QSE_NULL, 0);
}
return ASE_NULL;
return QSE_NULL;
}
cons = ase_lsp_makecons (lsp->mem, tmp, lsp->mem->nil);
if (cons == ASE_NULL) return ASE_NULL;
ase_lsp_lockobj (lsp, cons);
cons = qse_lsp_makecons (lsp->mem, tmp, lsp->mem->nil);
if (cons == QSE_NULL) return QSE_NULL;
qse_lsp_lockobj (lsp, cons);
cons = ase_lsp_makecons (lsp->mem, lsp->mem->quote, cons);
if (cons == ASE_NULL) return ASE_NULL;
ase_lsp_lockobj (lsp, cons);
cons = qse_lsp_makecons (lsp->mem, lsp->mem->quote, cons);
if (cons == QSE_NULL) return QSE_NULL;
qse_lsp_lockobj (lsp, cons);
return cons;
}
static int read_char (ase_lsp_t* lsp)
static int read_char (qse_lsp_t* lsp)
{
ase_ssize_t n;
ase_char_t c;
qse_ssize_t n;
qse_char_t c;
if (lsp->input_func == ASE_NULL)
if (lsp->input_func == QSE_NULL)
{
ase_lsp_seterror (lsp, ASE_LSP_ENOINP, ASE_NULL, 0);
qse_lsp_seterror (lsp, QSE_LSP_ENOINP, QSE_NULL, 0);
return -1;
}
n = lsp->input_func(ASE_LSP_IO_READ, lsp->input_arg, &c, 1);
n = lsp->input_func(QSE_LSP_IO_READ, lsp->input_arg, &c, 1);
if (n == -1)
{
ase_lsp_seterror (lsp, ASE_LSP_EINPUT, ASE_NULL, 0);
qse_lsp_seterror (lsp, QSE_LSP_EINPUT, QSE_NULL, 0);
return -1;
}
if (n == 0) lsp->curc = ASE_CHAR_EOF;
if (n == 0) lsp->curc = QSE_CHAR_EOF;
else lsp->curc = c;
return 0;
}
static int read_token (ase_lsp_t* lsp)
static int read_token (qse_lsp_t* lsp)
{
ASE_ASSERT (lsp->input_func != ASE_NULL);
QSE_ASSERT (lsp->input_func != QSE_NULL);
TOKEN_CLEAR (lsp);
while (1)
{
/* skip white spaces */
while (ASE_LSP_ISSPACE(lsp, lsp->curc)) NEXT_CHAR (lsp);
while (QSE_LSP_ISSPACE(lsp, lsp->curc)) NEXT_CHAR (lsp);
/* skip the comments here */
if (lsp->curc == ASE_T(';'))
if (lsp->curc == QSE_T(';'))
{
do
{
NEXT_CHAR (lsp);
}
while (lsp->curc != ASE_T('\n') &&
lsp->curc != ASE_CHAR_EOF);
while (lsp->curc != QSE_T('\n') &&
lsp->curc != QSE_CHAR_EOF);
}
else break;
}
if (lsp->curc == ASE_CHAR_EOF)
if (lsp->curc == QSE_CHAR_EOF)
{
TOKEN_TYPE(lsp) = TOKEN_END;
return 0;
}
else if (lsp->curc == ASE_T('('))
else if (lsp->curc == QSE_T('('))
{
TOKEN_ADD_CHAR (lsp, lsp->curc);
TOKEN_TYPE(lsp) = TOKEN_LPAREN;
NEXT_CHAR (lsp);
return 0;
}
else if (lsp->curc == ASE_T(')'))
else if (lsp->curc == QSE_T(')'))
{
TOKEN_ADD_CHAR (lsp, lsp->curc);
TOKEN_TYPE(lsp) = TOKEN_RPAREN;
NEXT_CHAR (lsp);
return 0;
}
else if (lsp->curc == ASE_T('\''))
else if (lsp->curc == QSE_T('\''))
{
TOKEN_ADD_CHAR (lsp, lsp->curc);
TOKEN_TYPE(lsp) = TOKEN_QUOTE;
NEXT_CHAR (lsp);
return 0;
}
else if (lsp->curc == ASE_T('.'))
else if (lsp->curc == QSE_T('.'))
{
TOKEN_ADD_CHAR (lsp, lsp->curc);
TOKEN_TYPE(lsp) = TOKEN_DOT;
NEXT_CHAR (lsp);
return 0;
}
else if (lsp->curc == ASE_T('-'))
else if (lsp->curc == QSE_T('-'))
{
TOKEN_ADD_CHAR (lsp, lsp->curc);
NEXT_CHAR (lsp);
if (ASE_LSP_ISDIGIT(lsp,lsp->curc))
if (QSE_LSP_ISDIGIT(lsp,lsp->curc))
{
return read_number (lsp, 1);
}
@ -345,15 +345,15 @@ static int read_token (ase_lsp_t* lsp)
return 0;
}
}
else if (ASE_LSP_ISDIGIT(lsp,lsp->curc))
else if (QSE_LSP_ISDIGIT(lsp,lsp->curc))
{
return read_number (lsp, 0);
}
else if (ASE_LSP_ISALPHA(lsp,lsp->curc) || IS_IDENT(lsp->curc))
else if (QSE_LSP_ISALPHA(lsp,lsp->curc) || IS_IDENT(lsp->curc))
{
return read_ident (lsp);
}
else if (lsp->curc == ASE_T('\"'))
else if (lsp->curc == QSE_T('\"'))
{
return read_string (lsp);
}
@ -363,30 +363,30 @@ static int read_token (ase_lsp_t* lsp)
return 0;
}
static int read_number (ase_lsp_t* lsp, int negative)
static int read_number (qse_lsp_t* lsp, int negative)
{
ase_long_t ival = 0;
ase_real_t rval = .0;
qse_long_t ival = 0;
qse_real_t rval = .0;
do
{
ival = ival * 10 + (lsp->curc - ASE_T('0'));
ival = ival * 10 + (lsp->curc - QSE_T('0'));
TOKEN_ADD_CHAR (lsp, lsp->curc);
NEXT_CHAR (lsp);
}
while (ASE_LSP_ISDIGIT(lsp, lsp->curc));
while (QSE_LSP_ISDIGIT(lsp, lsp->curc));
/* TODO: extend parsing floating point number */
if (lsp->curc == ASE_T('.'))
if (lsp->curc == QSE_T('.'))
{
ase_real_t fraction = 0.1;
qse_real_t fraction = 0.1;
NEXT_CHAR (lsp);
rval = (ase_real_t)ival;
rval = (qse_real_t)ival;
while (ASE_LSP_ISDIGIT(lsp, lsp->curc))
while (QSE_LSP_ISDIGIT(lsp, lsp->curc))
{
rval += (ase_real_t)(lsp->curc - ASE_T('0')) * fraction;
rval += (qse_real_t)(lsp->curc - QSE_T('0')) * fraction;
fraction *= 0.1;
NEXT_CHAR (lsp);
}
@ -405,40 +405,40 @@ static int read_number (ase_lsp_t* lsp, int negative)
return 0;
}
static int read_ident (ase_lsp_t* lsp)
static int read_ident (qse_lsp_t* lsp)
{
do
{
TOKEN_ADD_CHAR (lsp, lsp->curc);
NEXT_CHAR (lsp);
}
while (ASE_LSP_ISALNUM(lsp,lsp->curc) || IS_IDENT(lsp->curc));
while (QSE_LSP_ISALNUM(lsp,lsp->curc) || IS_IDENT(lsp->curc));
TOKEN_TYPE(lsp) = TOKEN_IDENT;
return 0;
}
static int read_string (ase_lsp_t* lsp)
static int read_string (qse_lsp_t* lsp)
{
ase_cint_t c;
qse_cint_t c;
int escaped = 0;
int digit_count = 0;
ase_cint_t c_acc = 0;
qse_cint_t c_acc = 0;
while (1)
{
NEXT_CHAR_TO (lsp, c);
if (c == ASE_CHAR_EOF)
if (c == QSE_CHAR_EOF)
{
ase_lsp_seterror (lsp, ASE_LSP_EENDSTR, ASE_NULL, 0);
qse_lsp_seterror (lsp, QSE_LSP_EENDSTR, QSE_NULL, 0);
return -1;
}
if (escaped == 3)
{
if (c >= ASE_T('0') && c <= ASE_T('7'))
if (c >= QSE_T('0') && c <= QSE_T('7'))
{
c_acc = c_acc * 8 + c - ASE_T('0');
c_acc = c_acc * 8 + c - QSE_T('0');
digit_count++;
if (digit_count >= escaped)
{
@ -455,9 +455,9 @@ static int read_string (ase_lsp_t* lsp)
}
else if (escaped == 2 || escaped == 4 || escaped == 8)
{
if (c >= ASE_T('0') && c <= ASE_T('9'))
if (c >= QSE_T('0') && c <= QSE_T('9'))
{
c_acc = c_acc * 16 + c - ASE_T('0');
c_acc = c_acc * 16 + c - QSE_T('0');
digit_count++;
if (digit_count >= escaped)
{
@ -466,9 +466,9 @@ static int read_string (ase_lsp_t* lsp)
}
continue;
}
else if (c >= ASE_T('A') && c <= ASE_T('F'))
else if (c >= QSE_T('A') && c <= QSE_T('F'))
{
c_acc = c_acc * 16 + c - ASE_T('A') + 10;
c_acc = c_acc * 16 + c - QSE_T('A') + 10;
digit_count++;
if (digit_count >= escaped)
{
@ -477,9 +477,9 @@ static int read_string (ase_lsp_t* lsp)
}
continue;
}
else if (c >= ASE_T('a') && c <= ASE_T('f'))
else if (c >= QSE_T('a') && c <= QSE_T('f'))
{
c_acc = c_acc * 16 + c - ASE_T('a') + 10;
c_acc = c_acc * 16 + c - QSE_T('a') + 10;
digit_count++;
if (digit_count >= escaped)
{
@ -490,10 +490,10 @@ static int read_string (ase_lsp_t* lsp)
}
else
{
ase_char_t rc;
qse_char_t rc;
rc = (escaped == 2)? ASE_T('x'):
(escaped == 4)? ASE_T('u'): ASE_T('U');
rc = (escaped == 2)? QSE_T('x'):
(escaped == 4)? QSE_T('u'): QSE_T('U');
if (digit_count == 0) TOKEN_ADD_CHAR (lsp, rc);
else TOKEN_ADD_CHAR (lsp, c_acc);
@ -502,7 +502,7 @@ static int read_string (ase_lsp_t* lsp)
}
}
if (escaped == 0 && c == ASE_T('\"'))
if (escaped == 0 && c == QSE_T('\"'))
{
/* terminating quote */
/*NEXT_CHAR_TO (lsp, c);*/
@ -510,7 +510,7 @@ static int read_string (ase_lsp_t* lsp)
break;
}
if (escaped == 0 && c == ASE_T('\\'))
if (escaped == 0 && c == QSE_T('\\'))
{
escaped = 1;
continue;
@ -518,36 +518,36 @@ static int read_string (ase_lsp_t* lsp)
if (escaped == 1)
{
if (c == ASE_T('n')) c = ASE_T('\n');
else if (c == ASE_T('r')) c = ASE_T('\r');
else if (c == ASE_T('t')) c = ASE_T('\t');
else if (c == ASE_T('f')) c = ASE_T('\f');
else if (c == ASE_T('b')) c = ASE_T('\b');
else if (c == ASE_T('v')) c = ASE_T('\v');
else if (c == ASE_T('a')) c = ASE_T('\a');
else if (c >= ASE_T('0') && c <= ASE_T('7'))
if (c == QSE_T('n')) c = QSE_T('\n');
else if (c == QSE_T('r')) c = QSE_T('\r');
else if (c == QSE_T('t')) c = QSE_T('\t');
else if (c == QSE_T('f')) c = QSE_T('\f');
else if (c == QSE_T('b')) c = QSE_T('\b');
else if (c == QSE_T('v')) c = QSE_T('\v');
else if (c == QSE_T('a')) c = QSE_T('\a');
else if (c >= QSE_T('0') && c <= QSE_T('7'))
{
escaped = 3;
digit_count = 1;
c_acc = c - ASE_T('0');
c_acc = c - QSE_T('0');
continue;
}
else if (c == ASE_T('x'))
else if (c == QSE_T('x'))
{
escaped = 2;
digit_count = 0;
c_acc = 0;
continue;
}
#ifdef ASE_CHAR_IS_WCHAR
else if (c == ASE_T('u') && ASE_SIZEOF(ase_char_t) >= 2)
#ifdef QSE_CHAR_IS_WCHAR
else if (c == QSE_T('u') && QSE_SIZEOF(qse_char_t) >= 2)
{
escaped = 4;
digit_count = 0;
c_acc = 0;
continue;
}
else if (c == ASE_T('U') && ASE_SIZEOF(ase_char_t) >= 4)
else if (c == QSE_T('U') && QSE_SIZEOF(qse_char_t) >= 4)
{
escaped = 8;
digit_count = 0;