From 99c7ce57c1183c184fe80652b02650177a1d89f0 Mon Sep 17 00:00:00 2001 From: Pasukhin Dmitry Date: Tue, 18 Mar 2025 20:41:12 +0000 Subject: [PATCH] Coding - Migration of ExpToCas to own repository #442 New repository for ExpToCas: https://github.com/Open-Cascade-SAS/ExpToCas Documentation and all build process are fully migrated. --- .github/actions/clang-format-check/action.yml | 6 +- CMakeLists.txt | 4 - adm/MODULES | 3 +- adm/UDLIST | 2 - adm/cmake/vardescr.cmake | 1 - adm/scripts/android_build.bat | 2 - adm/scripts/android_custom.bat.template | 1 - adm/scripts/cmake_custom.bat.template | 1 - adm/scripts/cmake_custom.sh.template | 1 - adm/scripts/cmake_gen.bat | 2 - adm/scripts/cmake_gen.sh | 2 - adm/scripts/ios_build.sh | 2 - adm/scripts/ios_custom.sh.template | 1 - adm/scripts/macos_build.sh | 2 - adm/scripts/macos_custom.sh.template | 1 - adm/scripts/mingw_build.bat | 2 - adm/scripts/mingw_custom.bat.template | 1 - adm/scripts/wasm_build.bat | 2 - adm/scripts/wasm_build.sh | 3 - adm/scripts/wasm_custom.bat.template | 1 - adm/scripts/wasm_custom.sh.template | 1 - src/ExpToCasExe/CMakeLists.txt | 5 - src/ExpToCasExe/EXTERNLIB | 3 - src/ExpToCasExe/ExpToCasExe.cxx | 396 ---- src/ExpToCasExe/FILES | 7 - src/ExpToCasExe/ReadMe.md | 171 -- src/ExpToCasExe/exptocas.lex | 203 -- src/ExpToCasExe/exptocas.tab.cxx | 1616 ------------- src/ExpToCasExe/exptocas.tab.hxx | 856 ------- src/ExpToCasExe/exptocas.yacc | 506 ---- src/ExpToCasExe/lex.exptocas.cxx | 2100 ----------------- .../occt_existed_step_entities.lst | 942 -------- src/Express/Express.cxx | 125 - src/Express/Express.hxx | 52 - src/Express/Express_Alias.cxx | 56 - src/Express/Express_Alias.hxx | 52 - src/Express/Express_Array.hxx | 21 - src/Express/Express_Bag.hxx | 21 - src/Express/Express_Boolean.cxx | 31 - src/Express/Express_Boolean.hxx | 39 - src/Express/Express_ComplexType.cxx | 100 - src/Express/Express_ComplexType.hxx | 59 - .../Express_DataMapOfAsciiStringItem.hxx | 24 - src/Express/Express_Entity.cxx | 1946 --------------- src/Express/Express_Entity.hxx | 111 - src/Express/Express_Enum.cxx | 102 - src/Express/Express_Enum.hxx | 47 - src/Express/Express_Field.cxx | 71 - src/Express/Express_Field.hxx | 59 - src/Express/Express_HSequenceOfEntity.hxx | 22 - src/Express/Express_HSequenceOfField.hxx | 22 - src/Express/Express_HSequenceOfItem.hxx | 22 - src/Express/Express_Integer.cxx | 31 - src/Express/Express_Integer.hxx | 39 - src/Express/Express_Item.cxx | 264 --- src/Express/Express_Item.hxx | 149 -- src/Express/Express_List.hxx | 21 - src/Express/Express_Logical.cxx | 52 - src/Express/Express_Logical.hxx | 48 - src/Express/Express_NamedType.cxx | 132 -- src/Express/Express_NamedType.hxx | 79 - src/Express/Express_Number.hxx | 21 - src/Express/Express_PredefinedType.cxx | 29 - src/Express/Express_PredefinedType.hxx | 38 - src/Express/Express_Real.cxx | 31 - src/Express/Express_Real.hxx | 39 - src/Express/Express_Reference.cxx | 38 - src/Express/Express_Reference.hxx | 55 - src/Express/Express_Schema.cxx | 302 --- src/Express/Express_Schema.hxx | 88 - src/Express/Express_Select.cxx | 714 ------ src/Express/Express_Select.hxx | 60 - src/Express/Express_SequenceOfEntity.hxx | 22 - src/Express/Express_SequenceOfField.hxx | 22 - src/Express/Express_SequenceOfItem.hxx | 22 - src/Express/Express_Set.hxx | 21 - src/Express/Express_String.cxx | 37 - src/Express/Express_String.hxx | 42 - src/Express/Express_Type.cxx | 54 - src/Express/Express_Type.hxx | 61 - src/Express/FILES | 48 - src/TKExpress/PACKAGES | 3 +- 82 files changed, 6 insertions(+), 12384 deletions(-) delete mode 100644 src/ExpToCasExe/CMakeLists.txt delete mode 100644 src/ExpToCasExe/EXTERNLIB delete mode 100644 src/ExpToCasExe/ExpToCasExe.cxx delete mode 100644 src/ExpToCasExe/FILES delete mode 100644 src/ExpToCasExe/ReadMe.md delete mode 100644 src/ExpToCasExe/exptocas.lex delete mode 100644 src/ExpToCasExe/exptocas.tab.cxx delete mode 100644 src/ExpToCasExe/exptocas.tab.hxx delete mode 100644 src/ExpToCasExe/exptocas.yacc delete mode 100644 src/ExpToCasExe/lex.exptocas.cxx delete mode 100644 src/ExpToCasExe/occt_existed_step_entities.lst delete mode 100644 src/Express/Express.cxx delete mode 100644 src/Express/Express.hxx delete mode 100644 src/Express/Express_Alias.cxx delete mode 100644 src/Express/Express_Alias.hxx delete mode 100644 src/Express/Express_Array.hxx delete mode 100644 src/Express/Express_Bag.hxx delete mode 100644 src/Express/Express_Boolean.cxx delete mode 100644 src/Express/Express_Boolean.hxx delete mode 100644 src/Express/Express_ComplexType.cxx delete mode 100644 src/Express/Express_ComplexType.hxx delete mode 100644 src/Express/Express_DataMapOfAsciiStringItem.hxx delete mode 100644 src/Express/Express_Entity.cxx delete mode 100644 src/Express/Express_Entity.hxx delete mode 100644 src/Express/Express_Enum.cxx delete mode 100644 src/Express/Express_Enum.hxx delete mode 100644 src/Express/Express_Field.cxx delete mode 100644 src/Express/Express_Field.hxx delete mode 100644 src/Express/Express_HSequenceOfEntity.hxx delete mode 100644 src/Express/Express_HSequenceOfField.hxx delete mode 100644 src/Express/Express_HSequenceOfItem.hxx delete mode 100644 src/Express/Express_Integer.cxx delete mode 100644 src/Express/Express_Integer.hxx delete mode 100644 src/Express/Express_Item.cxx delete mode 100644 src/Express/Express_Item.hxx delete mode 100644 src/Express/Express_List.hxx delete mode 100644 src/Express/Express_Logical.cxx delete mode 100644 src/Express/Express_Logical.hxx delete mode 100644 src/Express/Express_NamedType.cxx delete mode 100644 src/Express/Express_NamedType.hxx delete mode 100644 src/Express/Express_Number.hxx delete mode 100644 src/Express/Express_PredefinedType.cxx delete mode 100644 src/Express/Express_PredefinedType.hxx delete mode 100644 src/Express/Express_Real.cxx delete mode 100644 src/Express/Express_Real.hxx delete mode 100644 src/Express/Express_Reference.cxx delete mode 100644 src/Express/Express_Reference.hxx delete mode 100644 src/Express/Express_Schema.cxx delete mode 100644 src/Express/Express_Schema.hxx delete mode 100644 src/Express/Express_Select.cxx delete mode 100644 src/Express/Express_Select.hxx delete mode 100644 src/Express/Express_SequenceOfEntity.hxx delete mode 100644 src/Express/Express_SequenceOfField.hxx delete mode 100644 src/Express/Express_SequenceOfItem.hxx delete mode 100644 src/Express/Express_Set.hxx delete mode 100644 src/Express/Express_String.cxx delete mode 100644 src/Express/Express_String.hxx delete mode 100644 src/Express/Express_Type.cxx delete mode 100644 src/Express/Express_Type.hxx delete mode 100644 src/Express/FILES diff --git a/.github/actions/clang-format-check/action.yml b/.github/actions/clang-format-check/action.yml index 0f88184e4b..ea927f4987 100644 --- a/.github/actions/clang-format-check/action.yml +++ b/.github/actions/clang-format-check/action.yml @@ -39,7 +39,9 @@ runs: shell: pwsh run: | $changedFiles = git diff --name-only origin/${{ inputs.base-ref }} HEAD | - Where-Object { $_ -match '${{ inputs.file-pattern }}' } + Where-Object { $_ -match '${{ inputs.file-pattern }}' } | + Where-Object { Test-Path $_ } + $changedFiles | Set-Content "changed_files.txt" if ($changedFiles.Count -gt 0) { echo "has_files=true" >> $env:GITHUB_OUTPUT @@ -49,7 +51,7 @@ runs: if: steps.changed-files.outputs.has_files == 'true' shell: pwsh run: | - $files = Get-Content "changed_files.txt" + $files = Get-Content "changed_files.txt" | Where-Object { Test-Path $_ } $files | ForEach-Object -ThrottleLimit 8 -Parallel { clang-format -i -style=file $_ } diff --git a/CMakeLists.txt b/CMakeLists.txt index cd8eeb35e7..9e5c78c783 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -398,10 +398,6 @@ if ("${CMAKE_SYSTEM_NAME}" STREQUAL "WindowsStore" AND BUILD_MODULE_Draw) message (STATUS "Info. Draw module is turned off due to it is not supported on UWP") set (BUILD_MODULE_Draw OFF CACHE BOOL "${BUILD_MODULE_Draw_DESCR}" FORCE) endif() -if (EMSCRIPTEN AND BUILD_MODULE_DETools) - message (STATUS "Info. DETools module is turned off due to it is not supported on Emscripten") - set (BUILD_MODULE_DETools OFF CACHE BOOL "${BUILD_MODULE_DETools_DESCR}" FORCE) -endif() # accumulate used toolkits (first level) in BUILD_TOOLKITS variable list (APPEND BUILD_TOOLKITS ${BUILD_ADDITIONAL_TOOLKITS}) diff --git a/adm/MODULES b/adm/MODULES index 480e742983..3a94d53a4a 100644 --- a/adm/MODULES +++ b/adm/MODULES @@ -1,8 +1,7 @@ FoundationClasses TKernel TKMath ModelingData TKG2d TKG3d TKGeomBase TKBRep -ModelingAlgorithms TKGeomAlgo TKTopAlgo TKPrim TKBO TKBool TKHLR TKFillet TKOffset TKFeat TKMesh TKXMesh TKShHealing +ModelingAlgorithms TKGeomAlgo TKTopAlgo TKPrim TKBO TKBool TKHLR TKFillet TKOffset TKFeat TKMesh TKXMesh TKShHealing TKExpress Visualization TKService TKV3d TKOpenGl TKOpenGles TKMeshVS TKIVtk TKD3DHost ApplicationFramework TKCDF TKLCAF TKCAF TKBinL TKXmlL TKBin TKXml TKStdL TKStd TKTObj TKBinTObj TKXmlTObj TKVCAF DataExchange TKDE TKXSBase TKDESTEP TKDEIGES TKDESTL TKDEVRML TKDECascade TKDEOBJ TKDEGLTF TKDEPLY TKXCAF TKXmlXCAF TKBinXCAF TKRWMesh -DETools TKExpress ExpToCasExe Draw TKDraw TKTopTest TKOpenGlTest TKOpenGlesTest TKD3DHostTest TKViewerTest TKXSDRAW TKDCAF TKXDEDRAW TKTObjDRAW TKQADraw TKIVtkDraw DRAWEXE TKXSDRAWDE TKXSDRAWGLTF TKXSDRAWIGES TKXSDRAWOBJ TKXSDRAWPLY TKXSDRAWSTEP TKXSDRAWSTL TKXSDRAWVRML diff --git a/adm/UDLIST b/adm/UDLIST index f32a3efad7..6a1f6da335 100644 --- a/adm/UDLIST +++ b/adm/UDLIST @@ -472,6 +472,4 @@ n RWGltf n RWMesh n RWObj n RWPly -n Express t TKExpress -x ExpToCasExe diff --git a/adm/cmake/vardescr.cmake b/adm/cmake/vardescr.cmake index 33702f089d..8a2efd3178 100644 --- a/adm/cmake/vardescr.cmake +++ b/adm/cmake/vardescr.cmake @@ -113,7 +113,6 @@ endmacro() BUILD_MODULE_MESSAGE (BUILD_MODULE_ApplicationFramework "ApplicationFramework") BUILD_MODULE_MESSAGE (BUILD_MODULE_DataExchange "DataExchange") -BUILD_MODULE_MESSAGE (BUILD_MODULE_DETools "DETools") BUILD_MODULE_MESSAGE (BUILD_MODULE_Draw "Draw") BUILD_MODULE_MESSAGE (BUILD_MODULE_FoundationClasses "FoundationClasses") BUILD_MODULE_MESSAGE (BUILD_MODULE_ModelingAlgorithms "ModelingAlgorithms") diff --git a/adm/scripts/android_build.bat b/adm/scripts/android_build.bat index 2fd7a9aef8..23a81ca42a 100644 --- a/adm/scripts/android_build.bat +++ b/adm/scripts/android_build.bat @@ -33,7 +33,6 @@ set "BUILD_ModelingAlgorithms=ON" set "BUILD_Visualization=ON" set "BUILD_ApplicationFramework=ON" set "BUILD_DataExchange=ON" -set "BUILD_DETools=OFF" rem Optional 3rd-party libraries to enable set "USE_FREETYPE=ON" @@ -168,7 +167,6 @@ if ["%toCMake%"] == ["1"] ( -D BUILD_MODULE_Visualization:BOOL="%BUILD_Visualization%" ^ -D BUILD_MODULE_ApplicationFramework:BOOL="%BUILD_ApplicationFramework%" ^ -D BUILD_MODULE_DataExchange:BOOL="%BUILD_DataExchange%" ^ - -D BUILD_MODULE_DETools:BOOL="OFF" ^ -D BUILD_MODULE_Draw:BOOL="OFF" ^ -D BUILD_DOC_Overview:BOOL="OFF" ^ -D USE_FREETYPE:BOOL="%USE_FREETYPE%" ^ diff --git a/adm/scripts/android_custom.bat.template b/adm/scripts/android_custom.bat.template index 9c1bd7beab..45881c6d40 100644 --- a/adm/scripts/android_custom.bat.template +++ b/adm/scripts/android_custom.bat.template @@ -27,7 +27,6 @@ rem set "BUILD_ModelingAlgorithms=ON" rem set "BUILD_Visualization=ON" rem set "BUILD_ApplicationFramework=ON" rem set "BUILD_DataExchange=ON" -rem set "BUILD_MODULE_DETools=OFF" rem Optional 3rd-party libraries to enable rem set "USE_RAPIDJSON=ON" diff --git a/adm/scripts/cmake_custom.bat.template b/adm/scripts/cmake_custom.bat.template index 52bea95fd3..397b900bec 100644 --- a/adm/scripts/cmake_custom.bat.template +++ b/adm/scripts/cmake_custom.bat.template @@ -29,7 +29,6 @@ rem set BUILD_ADDITIONAL_TOOLKITS= rem set BUILD_MODULE_ApplicationFramework=ON rem set BUILD_MODULE_DataExchange=ON -rem set BUILD_MODULE_DETools=OFF rem set BUILD_MODULE_Draw=ON rem set BUILD_MODULE_ModelingAlgorithms=ON rem set BUILD_MODULE_ModelingData=ON diff --git a/adm/scripts/cmake_custom.sh.template b/adm/scripts/cmake_custom.sh.template index 0a164b5543..acd3acee56 100644 --- a/adm/scripts/cmake_custom.sh.template +++ b/adm/scripts/cmake_custom.sh.template @@ -22,7 +22,6 @@ FREETYPE_DIR="$OCCT3RDPARTY/freetype-2.7.1" #BUILD_MODULE_ApplicationFramework=ON #BUILD_MODULE_DataExchange=ON -#BUILD_MODULE_DETools=OFF #BUILD_MODULE_Draw=ON #BUILD_MODULE_ModelingAlgorithms=ON #BUILD_MODULE_ModelingData=ON diff --git a/adm/scripts/cmake_gen.bat b/adm/scripts/cmake_gen.bat index 6a2545fcc1..d95fe48cca 100644 --- a/adm/scripts/cmake_gen.bat +++ b/adm/scripts/cmake_gen.bat @@ -26,7 +26,6 @@ set BUILD_FORCE_RelWithDebInfo=OFF set BUILD_MODULE_ApplicationFramework=ON set BUILD_MODULE_DataExchange=ON -set BUILD_MODULE_DETools=OFF set BUILD_MODULE_Draw=ON set BUILD_MODULE_ModelingAlgorithms=ON set BUILD_MODULE_ModelingData=ON @@ -60,7 +59,6 @@ cmake -G "%arch_compile%" ^ -D BUILD_LIBRARY_TYPE:STRING=%BUILD_LIBRARY_TYPE% ^ -D BUILD_MODULE_ApplicationFramework:BOOL=%BUILD_MODULE_ApplicationFramework% ^ -D BUILD_MODULE_DataExchange:BOOL=%BUILD_MODULE_DataExchange% ^ - -D BUILD_MODULE_DETools:BOOL=%BUILD_MODULE_DETools% ^ -D BUILD_MODULE_Draw:BOOL=%BUILD_MODULE_Draw% ^ -D BUILD_MODULE_FoundationClasses:BOOL=ON ^ -D BUILD_MODULE_ModelingAlgorithms:BOOL=%BUILD_MODULE_ModelingAlgorithms% ^ diff --git a/adm/scripts/cmake_gen.sh b/adm/scripts/cmake_gen.sh index fd38c6e8d4..ae2980f7a5 100755 --- a/adm/scripts/cmake_gen.sh +++ b/adm/scripts/cmake_gen.sh @@ -29,7 +29,6 @@ BUILD_ENABLE_FPE_SIGNAL_HANDLER=ON BUILD_MODULE_ApplicationFramework=ON BUILD_MODULE_DataExchange=ON -BUILD_MODULE_DETools=OFF BUILD_MODULE_Draw=ON BUILD_MODULE_ModelingAlgorithms=ON BUILD_MODULE_ModelingData=ON @@ -61,7 +60,6 @@ cmake -G "Unix Makefiles" \ -D BUILD_LIBRARY_TYPE:STRING=$BUILD_LIBRARY_TYPE \ -D BUILD_MODULE_ApplicationFramework:BOOL=$BUILD_MODULE_ApplicationFramework \ -D BUILD_MODULE_DataExchange:BOOL=$BUILD_MODULE_DataExchange \ - -D BUILD_MODULE_DETools:BOOL=$BUILD_MODULE_DETools \ -D BUILD_MODULE_Draw:BOOL=$BUILD_MODULE_Draw \ -D BUILD_MODULE_FoundationClasses:BOOL=ON \ -D BUILD_MODULE_ModelingAlgorithms:BOOL=$BUILD_MODULE_ModelingAlgorithms \ diff --git a/adm/scripts/ios_build.sh b/adm/scripts/ios_build.sh index dd87bd950f..da49e989eb 100755 --- a/adm/scripts/ios_build.sh +++ b/adm/scripts/ios_build.sh @@ -34,7 +34,6 @@ export BUILD_ModelingAlgorithms=ON export BUILD_Visualization=ON export BUILD_ApplicationFramework=ON export BUILD_DataExchange=ON -export BUILD_DETools=OFF export USE_FREETYPE=ON export USE_FREEIMAGE=OFF @@ -148,7 +147,6 @@ function buildArch { -D BUILD_MODULE_Visualization:BOOL="${BUILD_Visualization}" \ -D BUILD_MODULE_ApplicationFramework:BOOL="${BUILD_ApplicationFramework}" \ -D BUILD_MODULE_DataExchange:BOOL="${BUILD_DataExchange}" \ - -D BUILD_MODULE_DETools:BOOL="${BUILD_DETools}" \ -D BUILD_MODULE_Draw:BOOL="OFF" \ -D BUILD_DOC_Overview:BOOL="OFF" \ "$aCasSrc" 2>&1 | tee -a "$aLogFile" diff --git a/adm/scripts/ios_custom.sh.template b/adm/scripts/ios_custom.sh.template index 4d4d13b485..c54624ebf6 100644 --- a/adm/scripts/ios_custom.sh.template +++ b/adm/scripts/ios_custom.sh.template @@ -20,7 +20,6 @@ export aDraco="$aSrcRoot/../3rdparty/draco-1.4.1-ios" #export BUILD_Visualization=ON #export BUILD_ApplicationFramework=ON #export BUILD_DataExchange=ON -#export BUILD_DETools=OFF #export USE_RAPIDJSON=ON #export USE_DRACO=ON diff --git a/adm/scripts/macos_build.sh b/adm/scripts/macos_build.sh index 66efea83f4..65b7a62adc 100755 --- a/adm/scripts/macos_build.sh +++ b/adm/scripts/macos_build.sh @@ -34,7 +34,6 @@ export BUILD_ModelingAlgorithms=ON export BUILD_Visualization=ON export BUILD_ApplicationFramework=ON export BUILD_DataExchange=ON -export BUILD_DETools=OFF export BUILD_Draw=ON export USE_FREETYPE=ON @@ -145,7 +144,6 @@ function buildArch { -D BUILD_MODULE_Visualization:BOOL="${BUILD_Visualization}" \ -D BUILD_MODULE_ApplicationFramework:BOOL="${BUILD_ApplicationFramework}" \ -D BUILD_MODULE_DataExchange:BOOL="${BUILD_DataExchange}" \ - -D BUILD_MODULE_DETools:BOOL="${BUILD_DETools}" \ -D BUILD_MODULE_Draw:BOOL="${BUILD_Draw}" \ -D BUILD_DOC_Overview:BOOL="OFF" \ "$aCasSrc" 2>&1 | tee -a "$aLogFile" diff --git a/adm/scripts/macos_custom.sh.template b/adm/scripts/macos_custom.sh.template index 637277aa91..740c24f640 100644 --- a/adm/scripts/macos_custom.sh.template +++ b/adm/scripts/macos_custom.sh.template @@ -19,7 +19,6 @@ export aDraco="$aSrcRoot/../3rdparty/draco-1.4.1-macos" #export BUILD_Visualization=ON #export BUILD_ApplicationFramework=ON #export BUILD_DataExchange=ON -#export BUILD_DETools=OFF #export BUILD_Draw=ON #export USE_RAPIDJSON=ON diff --git a/adm/scripts/mingw_build.bat b/adm/scripts/mingw_build.bat index 1b981beda8..886f5dc597 100644 --- a/adm/scripts/mingw_build.bat +++ b/adm/scripts/mingw_build.bat @@ -32,7 +32,6 @@ set "BUILD_ModelingAlgorithms=ON" set "BUILD_Visualization=ON" set "BUILD_ApplicationFramework=ON" set "BUILD_DataExchange=ON" -set "BUILD_DETools=OFF" set "BUILD_Draw=ON" rem Optional 3rd-party libraries to enable @@ -155,7 +154,6 @@ if ["%toCMake%"] == ["1"] ( -D BUILD_MODULE_Visualization:BOOL="%BUILD_Visualization%" ^ -D BUILD_MODULE_ApplicationFramework:BOOL="%BUILD_ApplicationFramework%" ^ -D BUILD_MODULE_DataExchange:BOOL="%BUILD_DataExchange%" ^ - -D BUILD_MODULE_DETools:BOOL="%BUILD_DETools%" ^ -D BUILD_MODULE_Draw:BOOL="%BUILD_Draw%" ^ -D 3RDPARTY_TCL_DIR:PATH="%aTclTk%" ^ -D 3RDPARTY_TCL_INCLUDE_DIR:FILEPATH="%aTclTk%/include" ^ diff --git a/adm/scripts/mingw_custom.bat.template b/adm/scripts/mingw_custom.bat.template index 67a5f5471f..0a7f6c6750 100644 --- a/adm/scripts/mingw_custom.bat.template +++ b/adm/scripts/mingw_custom.bat.template @@ -22,7 +22,6 @@ rem set "BUILD_ModelingAlgorithms=ON" rem set "BUILD_Visualization=ON" rem set "BUILD_ApplicationFramework=ON" rem set "BUILD_DataExchange=ON" -rem set "BUILD_DETools=OFF" rem set "BUILD_Draw=ON" rem set "USE_RAPIDJSON=ON" diff --git a/adm/scripts/wasm_build.bat b/adm/scripts/wasm_build.bat index 3011aad167..24d85c4f40 100644 --- a/adm/scripts/wasm_build.bat +++ b/adm/scripts/wasm_build.bat @@ -32,7 +32,6 @@ set "BUILD_ModelingAlgorithms=ON" set "BUILD_Visualization=ON" set "BUILD_ApplicationFramework=ON" set "BUILD_DataExchange=ON" -set "BUILD_DETools=OFF" set "BUILD_Draw=OFF" rem Optional 3rd-party libraries to enable @@ -176,7 +175,6 @@ if ["%toCMake%"] == ["1"] ( -D BUILD_MODULE_Visualization:BOOL="%BUILD_Visualization%" ^ -D BUILD_MODULE_ApplicationFramework:BOOL="%BUILD_ApplicationFramework%" ^ -D BUILD_MODULE_DataExchange:BOOL="%BUILD_DataExchange%" ^ - -D BUILD_MODULE_DETools:BOOL="%BUILD_DETools%" ^ -D BUILD_MODULE_Draw:BOOL="%BUILD_Draw%" ^ -D BUILD_DOC_Overview:BOOL="OFF" ^ -D USE_FREETYPE:BOOL="%USE_FREETYPE%" ^ diff --git a/adm/scripts/wasm_build.sh b/adm/scripts/wasm_build.sh index b4f123da7e..b02a3080c1 100755 --- a/adm/scripts/wasm_build.sh +++ b/adm/scripts/wasm_build.sh @@ -20,7 +20,6 @@ export BUILD_ModelingAlgorithms=ON export BUILD_Visualization=ON export BUILD_ApplicationFramework=ON export BUILD_DataExchange=ON -export BUILD_DETools=OFF if [ -f "${aScriptDir}/wasm_custom.sh" ] ; then . "${aScriptDir}/wasm_custom.sh" @@ -75,7 +74,6 @@ echo cmake -G "Unix Makefiles" -DCMAKE_TOOLCHAIN_FILE:FILEPATH="${aToolchain}" \ -DBUILD_MODULE_Visualization:BOOL="${BUILD_Visualization}" \ -DBUILD_MODULE_ApplicationFramework:BOOL="${BUILD_ApplicationFramework}" \ -DBUILD_MODULE_DataExchange:BOOL="${BUILD_DataExchange}" \ --DBUILD_MODULE_DETools:BOOL="${BUILD_DETools}" \ -DBUILD_MODULE_Draw:BOOL="OFF" \ -DBUILD_DOC_Overview:BOOL="OFF" "${aSrcRoot}" @@ -94,7 +92,6 @@ cmake -G "Unix Makefiles" -DCMAKE_TOOLCHAIN_FILE:FILEPATH="${aToolchain}" \ -DBUILD_MODULE_Visualization:BOOL="${BUILD_Visualization}" \ -DBUILD_MODULE_ApplicationFramework:BOOL="${BUILD_ApplicationFramework}" \ -DBUILD_MODULE_DataExchange:BOOL="${BUILD_DataExchange}" \ --DBUILD_MODULE_DETools:BOOL="${BUILD_DETools}" \ -DBUILD_MODULE_Draw:BOOL="OFF" \ -DBUILD_DOC_Overview:BOOL="OFF" "${aSrcRoot}" diff --git a/adm/scripts/wasm_custom.bat.template b/adm/scripts/wasm_custom.bat.template index 91907c7738..0c52467a6a 100644 --- a/adm/scripts/wasm_custom.bat.template +++ b/adm/scripts/wasm_custom.bat.template @@ -23,7 +23,6 @@ rem set "BUILD_ModelingAlgorithms=ON" rem set "BUILD_Visualization=ON" rem set "BUILD_ApplicationFramework=ON" rem set "BUILD_DataExchange=ON" -rem set "BUILD_DETools=OFF" rem set "USE_RAPIDJSON=ON" rem set "USE_DRACO=ON" diff --git a/adm/scripts/wasm_custom.sh.template b/adm/scripts/wasm_custom.sh.template index dd3d6c7fe3..29157c92c7 100644 --- a/adm/scripts/wasm_custom.sh.template +++ b/adm/scripts/wasm_custom.sh.template @@ -14,4 +14,3 @@ export EMSDK_ROOT="$aSrcRoot/../emsdk" #export BUILD_Visualization=ON #export BUILD_ApplicationFramework=ON #export BUILD_DataExchange=ON -#export BUILD_DETools=OFF diff --git a/src/ExpToCasExe/CMakeLists.txt b/src/ExpToCasExe/CMakeLists.txt deleted file mode 100644 index 52a433b1bb..0000000000 --- a/src/ExpToCasExe/CMakeLists.txt +++ /dev/null @@ -1,5 +0,0 @@ -project(ExpToCasExe) - -set (EXECUTABLE_PROJECT ON) -OCCT_INCLUDE_CMAKE_FILE (adm/cmake/occt_toolkit) -unset (EXECUTABLE_PROJECT) \ No newline at end of file diff --git a/src/ExpToCasExe/EXTERNLIB b/src/ExpToCasExe/EXTERNLIB deleted file mode 100644 index 9f6ca33640..0000000000 --- a/src/ExpToCasExe/EXTERNLIB +++ /dev/null @@ -1,3 +0,0 @@ -TKernel -TKExpress -CSF_wsock32 diff --git a/src/ExpToCasExe/ExpToCasExe.cxx b/src/ExpToCasExe/ExpToCasExe.cxx deleted file mode 100644 index 81f6b4857a..0000000000 --- a/src/ExpToCasExe/ExpToCasExe.cxx +++ /dev/null @@ -1,396 +0,0 @@ -// Created: Mon Nov 1 12:50:27 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include -#include -#include -#include -#include -#include -#include -#include -#include "exptocas.tab.hxx" - -//======================================================================= -// function : GetSchema -// purpose : interface to parser -//======================================================================= -Handle(Express_Schema) GetSchema(const char* theFileName) -{ - std::ifstream aFileStream; - OSD_OpenStream(aFileStream, theFileName, std::ios_base::in | std::ios_base::binary); - exptocas::scanner aScanner(&aFileStream); - aScanner.yyrestart(&aFileStream); - // uncomment next string for debug of parser - // aScanner.set_debug(1); - exptocas::parser aParser(&aScanner); - aParser.parse(); - return Express::Schema(); -} - -//======================================================================= -// function : LoadList -// purpose : Load list of (class name, package name) from the file -// Package names and optional mark flag are set to items in the schema -//======================================================================= -static Standard_Boolean LoadList(const char* theFileName, - const Handle(Express_Schema)& theSchema, - const Standard_Boolean theMark) -{ - const Handle(OSD_FileSystem)& aFileSystem = OSD_FileSystem::DefaultFileSystem(); - std::shared_ptr aStreamPtr = aFileSystem->OpenIStream(theFileName, std::ios::in); - Standard_IStream& anIS = *aStreamPtr; - - if (aStreamPtr == nullptr) - { - Message::SendFail() << "Error: cannot open " << theFileName; - return Standard_False; - } - - Message::SendInfo() << "Loading " << theFileName << "..."; - char aBuf[512]; - Standard_Integer aLineNum = 0; - // a line entry in file has the next format: - // item_name package_name [shortname [check_flag(0 or 1) [fillshared_flag(0 or 1) [category]]]] - while (anIS.getline(aBuf, 512)) - { - char* aCurPos = aBuf; - char* anItemName; - char* aPackageName; - char* aShortName; - char* aCheckFlag; - char* aFillSharedFlag; - char* aCategoryName; - Standard_Size aSepIdx = 0; - aLineNum += 1; - // ------------------------------------------------------------- - // first word is an item name - // ------------------------------------------------------------- - // skip any whitespace character in the line - while (*aCurPos && (aSepIdx = strcspn(aCurPos, " \t\r\n")) == 0) - { - aCurPos++; - } - // to next line if first word isn't found or comment started - if (*aCurPos == '\0' || *aCurPos == '#') - { - continue; - } - // get the name of the item - anItemName = aCurPos; - // shift the position - if (aCurPos[aSepIdx] == '\0') - { - aCurPos += aSepIdx; - } - else - { - aCurPos[aSepIdx] = '\0'; - aCurPos += aSepIdx + 1; - } - Handle(Express_Item) anItem = theSchema->Item(anItemName, Standard_True); - // skip any class name not in schema - if (anItem.IsNull()) - { - continue; - } - // ------------------------------------------------------------- - // second word is a package name - // ------------------------------------------------------------- - // skip any whitespace character in the rest of the line - while (*aCurPos && (aSepIdx = strcspn(aCurPos, " \t\r\n")) == 0) - { - aCurPos++; - } - // to next line if second word isn't found or comment started - if (*aCurPos == '\0' || *aCurPos == '#') - { - continue; - } - // get the name of the package - aPackageName = aCurPos; - // shift the position - if (aCurPos[aSepIdx] == '\0') - { - aCurPos += aSepIdx; - } - else - { - aCurPos[aSepIdx] = '\0'; - aCurPos += aSepIdx + 1; - } - // make warning if there is another package for the item - if (anItem->IsPackageNameSet() && anItem->GetPackageName().IsDifferent(aPackageName)) - { - Message::SendWarning() << "Warning: Package is redefined for item " << anItemName; - } - anItem->SetPackageName(aPackageName); - anItem->SetGenMode(theMark ? Express_Item::GM_GenByUser : Express_Item::GM_NoGen); - // ------------------------------------------------------------- - // third word is an item short name (optional) - // ------------------------------------------------------------- - // skip any whitespace character in the line - while (*aCurPos && (aSepIdx = strcspn(aCurPos, " \t\r\n")) == 0) - { - aCurPos++; - } - // to next line if third word isn't found or comment started - if (*aCurPos == '\0' || *aCurPos == '#') - { - continue; - } - // get the short name - aShortName = aCurPos; - // shift the position - if (aCurPos[aSepIdx] == '\0') - { - aCurPos += aSepIdx; - } - else - { - aCurPos[aSepIdx] = '\0'; - aCurPos += aSepIdx + 1; - } - if (!std::isalpha(*aShortName)) - { - Message::SendWarning() << "Warning: Not recognized a shortname at the line " << aLineNum; - continue; - } - // if short name "-" then just do not set it - if (*aShortName != '-') - { - Handle(TCollection_HAsciiString) anItemShortName = new TCollection_HAsciiString(aShortName); - if (anItemShortName->Length() > 0) - { - anItem->SetShortName(anItemShortName); - } - } - // ------------------------------------------------------------- - // fourth word is an item check flag (optional) - // ------------------------------------------------------------- - // skip any whitespace character in the line - while (*aCurPos && (aSepIdx = strcspn(aCurPos, " \t\r\n")) == 0) - { - aCurPos++; - } - // to next line if fourth word isn't found or comment started - if (*aCurPos == '\0' || *aCurPos == '#') - { - continue; - } - // get the check flag - aCheckFlag = aCurPos; - // shift the position - if (aCurPos[aSepIdx] == '\0') - { - aCurPos += aSepIdx; - } - else - { - aCurPos[aSepIdx] = '\0'; - aCurPos += aSepIdx + 1; - } - if (!(*aCheckFlag == '0' || *aCheckFlag == '1')) - { - Message::SendWarning() << "Warning: Not recognized a check flag at the line " << aLineNum; - continue; - } - Standard_Boolean hasCheck = (*aCheckFlag == '0' ? Standard_False : Standard_True); - anItem->SetCheckFlag(hasCheck); - // ------------------------------------------------------------- - // fifth word is an item fill share flag (optional) - // ------------------------------------------------------------- - // skip any whitespace character in the line - while (*aCurPos && (aSepIdx = strcspn(aCurPos, " \t\r\n")) == 0) - { - aCurPos++; - } - // to next line if fifth word isn't found or comment started - if (*aCurPos == '\0' || *aCurPos == '#') - { - continue; - } - // get the fill share flag - aFillSharedFlag = aCurPos; - // shift the position - if (aCurPos[aSepIdx] == '\0') - { - aCurPos += aSepIdx; - } - else - { - aCurPos[aSepIdx] = '\0'; - aCurPos += aSepIdx + 1; - } - if (!(*aFillSharedFlag == '0' || *aFillSharedFlag == '1')) - { - Message::SendWarning() << "Warning: Not recognized a fill shared flag at the line " - << aLineNum; - continue; - } - Standard_Boolean hasFillShared = (*aFillSharedFlag == '0' ? Standard_False : Standard_True); - anItem->SetFillSharedFlag(hasFillShared); - // ------------------------------------------------------------- - // sixth word is an item category name (optional) - // ------------------------------------------------------------- - // skip any whitespace character in the line - while (*aCurPos && (aSepIdx = strcspn(aCurPos, " \t\r\n")) == 0) - { - aCurPos++; - } - // to next line if sixth word isn't found or comment started - if (*aCurPos == '\0' || *aCurPos == '#') - { - continue; - } - // get the category name - aCategoryName = aCurPos; - aCurPos[aSepIdx] = '\0'; - if (!std::isalpha(*aCategoryName)) - { - Message::SendWarning() << "Warning: Not recognized a category name at the line " << aLineNum; - continue; - } - // if category name "-" then just do not set it - if (*aCategoryName != '-') - { - Handle(TCollection_HAsciiString) anItemCategoryName = - new TCollection_HAsciiString(aCategoryName); - if (anItemCategoryName->Length() > 0) - { - anItem->SetShortName(anItemCategoryName); - } - } - } - Message::SendInfo() << " Done"; - - return Standard_True; -} - -//================================================================================================= - -int main(int argc, char* argv[]) -{ - if (argc < 2) - { - Message::SendInfo() - << "EXPRESS -> CASCADE/XSTEP classes generator 3.0\n" - "Use: ExpToCas [ [ [start_index]]]\n" - "Where: \n" - "- schema.exp is a file with EXPRESS schema \n" - "- create.lst is a file with list of types to generate (all if none)\n" - " (or \"-\" for creating all entities in the schema)\n" - "- packaging.lst is a file with classes distribution per package\n" - " in the form of the list (one item per line) \" \"\n" - " If package not defined for some type, \"StepStep\" assumed\n" - "- start_index - a first number for auxiliary generated files with data\n" - " to copy into StepAP214_Protocol.cxx, RWStepAP214_GeneralModule.cxx and\n" - " RWStepAP214_ReadWriteModule.cxx"; - return 0; - } - - //================================= - // Step 1: parsing EXPRESS file - // open schema file - OSD_Path aPath(argv[1]); - OSD_File aFile(aPath); - if (!aFile.IsReadable()) - { - Message::SendFail() << "Error: Cannot open " << argv[1]; - return -1; - } - - // parse - Message::SendInfo() << "Starting parsing " << argv[1]; - Handle(Express_Schema) aSchema = GetSchema(argv[1]); - - if (aSchema.IsNull()) - { - Message::SendFail() << "Error: Parsing finished with no result"; - return -1; - } - else - { - Message::SendInfo() << "Schema " << aSchema->Name()->ToCString() << " successfully parsed"; - } - Message::SendInfo() << "Total " << aSchema->NbItems() << " items"; - - //================================= - // Step 2: Prepare data for creating classes - - // load packaging information - if (argc > 3) - { - if (!LoadList(argv[3], aSchema, Standard_False)) - { - return -1; - } - } - // load list of classes to generate - if (argc > 2) - { - if (argv[2][0] == '-') - { - // set mark for all items - for (Standard_Integer num = 1; num <= aSchema->NbItems(); num++) - { - aSchema->Item(num)->SetGenMode(Express_Item::GM_GenByUser); - } - } - else if (!LoadList(argv[2], aSchema, Standard_True)) - { - return -1; - } - } - - // get starting index - Standard_Integer anIndex = -1; - if (argc > 4) - { - char* aStopSymbol; - anIndex = (Standard_Integer)strtol(argv[4], &aStopSymbol, 10); - if (*aStopSymbol != '\0') - { - Message::SendFail() << "Error: invalid starting index: " << argv[4]; - return -1; - } - } - - //================================= - // Step 3: Iterate over new items and set the package name if need - const TCollection_AsciiString aUserName("user"); - for (Standard_Integer aNum = 1; aNum <= aSchema->NbItems(); aNum++) - { - if (aSchema->Item(aNum)->GetGenMode() == Express_Item::GM_GenByUser) - { - aSchema->Item(aNum)->Use2(aUserName, Express_Item::GetUnknownPackageName()); - } - } - - //================================= - // Step 4: Iterate by items and generate classes - Standard_Boolean isDone = Standard_False; - Express_Item::SetIndex(anIndex); - do - { - isDone = Standard_False; - for (Standard_Integer aNum = 1; aNum <= aSchema->NbItems(); aNum++) - { - isDone = isDone || aSchema->Item(aNum)->Generate(); - } - } while (isDone); - - return 0; -} diff --git a/src/ExpToCasExe/FILES b/src/ExpToCasExe/FILES deleted file mode 100644 index 2e1f351726..0000000000 --- a/src/ExpToCasExe/FILES +++ /dev/null @@ -1,7 +0,0 @@ -exptocas.lex -exptocas.yacc -lex.exptocas.cxx -exptocas.tab.hxx -exptocas.tab.cxx -ExpToCasExe.cxx - diff --git a/src/ExpToCasExe/ReadMe.md b/src/ExpToCasExe/ReadMe.md deleted file mode 100644 index 3b14a3d413..0000000000 --- a/src/ExpToCasExe/ReadMe.md +++ /dev/null @@ -1,171 +0,0 @@ -# STEP express schema to OCCT classes - -## 1. Introduction - -**ExpToCasExe** is an auxiliary tool to generate code for implementation -of new STEP entities into OCCT. -This tool consists of two packages: **ExpToCasExe** and **TKExpress**. - -*ExpToCasExe* package is the basic package for generation. -It parses the express schema, makes a list of entities described in the schema, -and starts generating classes according to the specified lists. -This package has the file *occt_existed_step_entities.lst* witch contains list -of STEP entities implemented in *OCCT* at this moment. - -*TKExpress* package generates files with description of the STEP entities -to use in *OCCT* taking into account their dependencies. -Below is a set of generated files using the example -of the *Condition* entity from the *StepAP214* package. - -* **StepAP214_Condition.hxx** - contains declaration of the class that describes STEP entity -* **StepAP214_Condition.cxx** - contains definition of the class that describes STEP entity -* **RWStepAP214_RWCondition.hxx** - contains declaration of the class that reads (writes) STEP entity from STEP file -* **RWStepAP214_RWCondition.cxx** - contains definition of the class that reads (writes) STEP entity from STEP file -* **category.txt** - common file for all generated entities with part of code to insert to *RWStepAP214_GeneralModule.cxx* file -* **fillshared.txt** - common file for all generated entities with part of code to insert to *RWStepAP214_GeneralModule.cxx* file -* **inc.txt** - common file for all generated entities with part of code to insert to *StepAP214_Protocol.cxx* -* **newvoid.txt** - common file for all generated entities with part of code to insert to *RWStepAP214_GeneralModule.cxx* file -* **protocol.txt** - common file for all generated entities with part of code to insert to *StepAP214_Protocol.cxx* file -* **readstep.txt** - common file for all generated entities with part of code to insert to *RWStepAP214_ReadWriteModule.cxx* file -* **reco.txt** - common file for all generated entities with part of code to insert to *RWStepAP214_ReadWriteModule.cxx* file -* **rwinc.txt** - common file for all generated entities with part of code to insert to *RWStepAP214_ReadWriteModule.cxx* file -* **steptype.txt** - common file for all generated entities with part of code to insert to *RWStepAP214_ReadWriteModule.cxx* file -* **typebind.txt** - common file for all generated entities with part of code to insert to *RWStepAP214_ReadWriteModule.cxx* file -* **writestep.txt** - common file for all generated entities with part of code to insert to *RWStepAP214_ReadWriteModule.cxx* file - -## 2. Build - -The build process is automated, but has some specifics. *ExpToCasExe* package contains file *exptocas.lex* -which contains rules for lexical analyzer builder (*FLEX*), and file *exptocas.yacc* -which contains rules for syntax analyzer builder (*GNU Bison*). - -During build process *FLEX* and *Bison* generate the next files: - - * FlexLexer.h - * lex.exptocas.cxx - * exptocas.tab.cxx - * exptocas.tab.hxx - -These files are placed to the source directory ("*src/ExpToCasExe*") due to *CMAKE* script specific. -Then standard Visual Studio build process continues. - -There is no necessary to include these files to the *git* repository, due to automatic generation. -To change the behaviour of Express schema parser, the user need to modify original files: -*exptocas.lex* and *exptocas.yacc*. - -## 3. Usage - -**ExpToCasExe** program has the following call pattern: - -~~~~ -> ExpToCasExe [ [ [start_index]]] -~~~~ - -where: - - * **schema.exp** - file with STEP Express schema - * **new.lst** - file with list of new STEP entities which we have to generate - * **existed.lst** - file with list of already implemented STEP entities - * **start_index** - a first index for entity registration - (value of it you can receive after analyse of *StepAP214_Protocol.cxx* file) - -If *new.lst* file is set to "-" then all entities from Express schema are considered as new. - -*new.lst* and *existed.lst* are the text files. Line in file describes the class name -of STEP entity and to witch *OCCT* package it's belong. Line has the following format: - -~~~~ -item_name package_name [shortname [check_flag(0 or 1) [fillshared_flag(0 or 1) [category]]]] -~~~~ - -where: - - * **item_name** is the class name of the STEP entity (*ProductDefinitionOrReference* for example) - * **package_name** is the name of the *OCCT* package (*StepBasic* for example) - * **shortname** is the short name of the STEP entity - * **check_flag** is the flag to generate the *Check* function in the class - * **fillshared_flag** is the flag to generate the *FillShared* function in the class - * **category** is the name of category to witch entity belongs to - -These file can include comments after the symbol "#". - -The result of generation consists of several folders: - -* two folders (*\_package_name\_* and *RW\_package_name\_*) for each package for which new entities were generated. -* a folder *Registration* with *\*.txt* files with code to copy into common files (see the example in the first section). - -For generation, it is easy to copy to separate directory following files: - -* **ExpToCasExe.exe**, **TKernel.dll** and **TKExpress.dll** from OCCT -* STEP Express schema -* **occt_existed_step_entities.lst** from package *ExpToCasExe* - -create a file with needed entities **new.lst** and from this directory execute command: - -~~~~ -> ExpToCasExe.exe schema.exp new.lst occt_existed_step_entities.lst 1000 -~~~~ - -## 4. Disclaimer - -**NOTE**: -Some STEP schemes may be not fully corresponded to the rules which set in our generator. -If during generation we receive a message about syntax error you can try to edit schema -file in order to avoid it. Such approach is reasonable if number of errors is small. -If there are many errors we have to change existed rules (for debug parser process you can -uncomment string "//aScanner.set_debug(1);" in the file *exptocas.yacc*). -TIP: remove upper case from name after SCHEMA key word. - -**NOTE**: -Please, take into account that most of existed entities were generated many years ago. -Some of them can be not corresponded to last versions of schemes. - -For example, we don't have classes for entity: - -~~~~ - ENTITY founded_item - SUPERTYPE OF ((ONEOF(b_spline_curve_knot_locator, b_spline_curve_segment, b_spline_surface_knot_locator, - b_spline_surface_patch, b_spline_surface_strip, - boundary_curve_of_b_spline_or_rectangular_composite_surface, box_domain, - character_glyph_style_outline, character_glyph_style_stroke, composite_curve_segment, - composite_curve_transition_locator, curve_style, curve_style_font, curve_style_font_and_scaling, - curve_style_font_pattern, externally_defined_style, fill_area_style, - interpolated_configuration_segment, kinematic_path_segment, plane_angle_and_length_pair, - plane_angle_and_ratio_pair, point_style, presentation_style_assignment, - rectangular_composite_surface_transition_locator, surface_patch, surface_side_style, - surface_style_boundary, surface_style_control_grid, surface_style_fill_area, - surface_style_parameter_line, surface_style_segmentation_curve, surface_style_silhouette, - surface_style_usage, symbol_style, text_style, view_volume)) ANDOR - (ONEOF(character_glyph_style_outline, character_glyph_style_stroke, curve_style, curve_style_font, - curve_style_font_and_scaling, curve_style_font_pattern, externally_defined_style, - fill_area_style, point_style, presentation_style_assignment, surface_side_style, - surface_style_boundary, surface_style_control_grid, surface_style_fill_area, - surface_style_parameter_line, surface_style_segmentation_curve, surface_style_silhouette, - surface_style_usage, symbol_style, text_style))); - DERIVE - users : SET [0 : ?] OF founded_item_select := using_items(SELF, []); - WHERE - WR1: SIZEOF(users) > 0; - WR2: NOT (SELF IN users); - END_ENTITY; -~~~~ - -But some of existed entities (for example - *composite_curve_segment*) must be inherited from -this missing entity (at present such existed entities are inherited from *Standard_Transient*): - -~~~~ - ENTITY composite_curve_segment - SUBTYPE OF (founded_item); - transition : transition_code; - same_sense : BOOLEAN; - parent_curve : curve; - INVERSE - using_curves : BAG[1:?] OF composite_curve FOR segments; - WHERE - wr1 : ('AUTOMOTIVE_DESIGN.BOUNDED_CURVE' IN TYPEOF(parent_curve)); - END_ENTITY; -- 10303-42: geometry_schema -~~~~ - -**NOTE**: To facilitate the work of those who will use this program after you, -it is strongly recommended update the file **occt_existed_step_entities.lst** -after each generation and not to forget to change update date in the first line of this file. diff --git a/src/ExpToCasExe/exptocas.lex b/src/ExpToCasExe/exptocas.lex deleted file mode 100644 index ac71e0a878..0000000000 --- a/src/ExpToCasExe/exptocas.lex +++ /dev/null @@ -1,203 +0,0 @@ -%{ - -// Created: Thu Oct 28 12:21:16 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -/***************************************************************************** - -This LEX scanner is performs lexical analysis of EXPRESS schema file -for EXPRESS -> CASCADE/XSTEP classes generator - -On the stage of lexical scanner comments (single- and multi-line), -definitions of CONSTANT, FUNCTION, RULE items and clauses WHERE, INVERSE -and DERIVE of TYPE amd ENTITY items are dismissed (ignored) - -Then, keywords such as ENTITY, SUPERTYPE, SET etc., names of items -and special symbols are identified and returned to parser (yacc) as tokens - -Also, error processing and current line number tracking functions are defined - -*****************************************************************************/ - -/************************************/ -/* Section 1 */ -/* definitions */ - -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include - -#include "exptocas.tab.hxx" /* define tokens */ - -/* Auxiliary functions */ - -static int fun_level=0; -static int ec_linenum=1; -static int ec_state = 0; - -int yywrap(void) { return 1; } - -int ec_curline ( void ) -{ - return ec_linenum; -} - -int ec_error ( const std::string& s, const std::string& text ) -{ - printf ( "\nError at line %d: %s \"%s\"\n", ec_curline(), s.c_str(), text.c_str() ); - return 0; -} - -%} - -/* - c++ generate C++ parser class -*/ -%option c++ -%option noyywrap -%option yyclass="exptocas::scanner" -%option nounistd - -%s TYP ENT -%x COMM SKP RULE FUN - -%a 4000 -%o 6000 - -%top{ -// Pre-include stdlib.h to avoid redefinition of integer type macros (INT8_MIN and similar in generated code) -#if !defined(_MSC_VER) || (_MSC_VER >= 1600) // Visual Studio 2010+ -#include "stdint.h" -#endif -} - -%{ - -// Tell flex which function to define -#ifdef YY_DECL -# undef YY_DECL -#endif -#define YY_DECL int exptocas::scanner::lex (exptocas::parser::semantic_type* yylval) - -typedef exptocas::parser::token token; - -/************************************/ -/* Section 2 */ -/* parsing rules */ -%} - -%% - -"--".* { /* Eat line comments */ } -"(*" { ec_state = YYSTATE; BEGIN(COMM); } -. { /* Eat multiline comments */ } -"*)" { BEGIN(ec_state); } - -"SCHEMA" { return yylval->num = token::KSCHEM; } -"END_SCHEMA" { return yylval->num = token::KENDS; } - -"TYPE" { BEGIN(TYP); return yylval->num = token::KTYP; } -"END_TYPE" { BEGIN(0); return yylval->num = token::KENDT; } - -"ENTITY" { BEGIN(ENT); return yylval->num = token::KENT; } -"END_ENTITY" { BEGIN(0); return yylval->num = token::KENDE; } - -"INVERSE" | -"DERIVE" | -"WHERE" { BEGIN(SKP); } -. { /* eat contents of WHERE and DERIVE subclauses of ENTITY and TYPE */ } - -"SELECT" { return yylval->num = token::KSEL; } -"ENUMERATION" { return yylval->num = token::KENUM; } -"LIST" { return yylval->num = token::KLIST; } -"ARRAY" { return yylval->num = token::KARR; } -"SET" { return yylval->num = token::KSET; } -"BAG" { return yylval->num = token::KBAG; } -"OF" { return yylval->num = token::KOF; } - -"NUMBER" { return yylval->num = token::KNUM; } -"INTEGER" { return yylval->num = token::KINT; } -"REAL" { return yylval->num = token::KDBL; } -"STRING" { return yylval->num = token::KSTR; } -"LOGICAL" { return yylval->num = token::KLOG; } -"BOOLEAN" { return yylval->num = token::KBOOL; } - -"OPTIONAL" { return yylval->num = token::KOPT; } -"UNIQUE" { return yylval->num = token::KUNIQ; } -"SELF" { return yylval->num = token::KSELF; } - -"ABSTRACT" { return yylval->num = token::KABSTR; } -"SUBTYPE" { return yylval->num = token::KSUBT; } -"SUPERTYPE" { return yylval->num = token::KSPRT; } -"ANDOR" { return yylval->num = token::KANDOR; } -"ONEOF" { return yylval->num = token::K1OF; } -"AND" { return yylval->num = token::KAND; } - -"UR"[0-9]+ { yylval->str = strdup ( yytext ); return token::NAME; } - -[a-z_][a-z_0-9]* { yylval->str = strdup ( yytext ); return token::NAME; } - -[0-9]+ { yylval->num = atoi ( yytext ); return token::NUMBER; } -[,=();?:.\\]|"["|"]" { return yylval->num = yytext[0]; } - -"FUNCTION" { BEGIN(FUN); fun_level++; } -"(*" { ec_state = YYSTATE; BEGIN(COMM); /* eat comments in functions */ } -"--".* { /* Eat line comments in functions */ } -[A-Za-z_0-9]* { /* eat FUNCTIONs - skip IDs explicitly */ } -\'[^\']*\' { /* eat FUNCTIONs - skip strings explicitly */ } -. { /* eat FUNCTIONs - skip all other symbols in functions */ } -"END_FUNCTION;" { fun_level--; if ( ! fun_level ) BEGIN(0); } - -"RULE" { BEGIN(RULE); /* eat RULEs */ } -. { /* eat RULEs */ } -"END_RULE;" { BEGIN(0); } - -"CONSTANT"[ \t\na-z_0-9:=;'()|-]+"END_CONSTANT;" { /* eat CONSTANTs */ - char *s = yytext; /* but don't forget to count lines.. */ - while ( *s ) if ( *(s++) == '\n' ) ec_linenum++; - } - -[ \t]+ { /* eat spaces */ } -[A-Za-z0-9_]+ { ec_error ( "unknown keyword ", yytext ); /* put unrecognized keywords to cerr */ } -. { ec_error ( "unknown symbol ", yytext ); /* put unrecognized data to cerr */ } - -\n { ec_linenum++; /* count lines */ } - -%% - -/************************************/ -/* Section 3 */ -/* auxiliary procedures */ - -exptocas::scanner::scanner(std::istream* in, std::ostream* out) - : exptocasFlexLexer(in, out) -{ -} - -/* -int main ( void ) -{ - yylex(); -} -*/ - diff --git a/src/ExpToCasExe/exptocas.tab.cxx b/src/ExpToCasExe/exptocas.tab.cxx deleted file mode 100644 index e57cd25f5e..0000000000 --- a/src/ExpToCasExe/exptocas.tab.cxx +++ /dev/null @@ -1,1616 +0,0 @@ -// A Bison parser, made by GNU Bison 3.7.4. - -// Skeleton implementation for Bison LALR(1) parsers in C++ - -// Copyright (C) 2002-2015, 2018-2020 Free Software Foundation, Inc. - -// This program is free software: you can redistribute it and/or modify -// it under the terms of the GNU General Public License as published by -// the Free Software Foundation, either version 3 of the License, or -// (at your option) any later version. - -// This program is distributed in the hope that it will be useful, -// but WITHOUT ANY WARRANTY; without even the implied warranty of -// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -// GNU General Public License for more details. - -// You should have received a copy of the GNU General Public License -// along with this program. If not, see . - -// As a special exception, you may create a larger work that contains -// part or all of the Bison parser skeleton and distribute that work -// under terms of your choice, so long as that work isn't itself a -// parser generator using the skeleton or a modified version thereof -// as a parser skeleton. Alternatively, if you modify or redistribute -// the parser skeleton itself, you may (at your option) remove this -// special exception, which will cause the skeleton and the resulting -// Bison output files to be licensed under the GNU General Public -// License without this special exception. - -// This special exception was added by the Free Software Foundation in -// version 2.2 of Bison. - -// DO NOT RELY ON FEATURES THAT ARE NOT DOCUMENTED in the manual, -// especially those whose name start with YY_ or yy_. They are -// private implementation details that can be changed or removed. - -// "%code top" blocks. - -// Created: Thu Oct 28 12:21:16 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -/***************************************************************************** - -This YACC parser implements parsing algorithm for EXPRESS -> CASCADE/XSTEP -classes generator - -Input in the form of tokens is obtained from lexical analyser. Then, data -structure representing schema is created on the basis of grammar analysis. - -NOTE: The grammar currently implemented is not full. -FUNCTION, RULE and CONSTANT items, WHERE, INVERSE and DERIVE clauses -of TYPE and ENTITY items are not considered (ignored on the level of lexical -scanner). -SUPERTYPE and UNIQUE clauses of ENTITY item are recognized but ignored. -Also, complex constructs such as using call to function in dimensions of -complex time or redefinition of inherited field are ignored. - -*****************************************************************************/ - -// Take the name prefix into account. -#define yylex exptocaslex - -#include "exptocas.tab.hxx" - -// Unqualified %code blocks. - -#undef yylex -#define yylex scanner->lex -// disable MSVC warnings in bison code -#ifdef _MSC_VER - #pragma warning(disable : 4244 4800) -#endif - -/************************************************/ -/* ERROR MESSAGE FUNCTION */ - -/* external functions (from exptocas.l) */ -int ec_error(const std::string& s, const std::string& text); -int ec_curline(void); - -// int yyerror ( char *s ) -//{ -// printf ( "\nParse error at line %d: %s\n", ec_curline(), s ); -// return 0; -// } - -/************************************************/ -/* FUNCTIONS FOR CREATING SCHEMA REPRESENTATION */ - -static Express_Schema* mkschema(char* name, Express_HSequenceOfItem* ilist); -static Express_HSequenceOfItem* mkilist(Express_Item* item, Express_HSequenceOfItem* seq); -static Express_Item* mkenum(char* name, TColStd_HSequenceOfHAsciiString* tlist); -static Express_Item* mkselect(char* name, TColStd_HSequenceOfHAsciiString* tlist); -static Express_Item* mkalias(char* name, Express_Type* type); -static Express_Item* mkentity(char* name, - TColStd_HSequenceOfHAsciiString* inherit, - Express_HSequenceOfField* field, - int isabstract); -static Express_Reference* mkrefs(char* name, TColStd_HSequenceOfHAsciiString* items); -static TColStd_HSequenceOfHAsciiString* mktlist(char* name, TColStd_HSequenceOfHAsciiString* tlist); -static TColStd_HSequenceOfHAsciiString* mktlists(TColStd_HSequenceOfHAsciiString* tlist1, - TColStd_HSequenceOfHAsciiString* tlist2); -static Express_Type* mktstd(int keyword); -static Express_Type* mktname(char* name); -static Express_Type* mktset(int keyword, int ilow, int ihigh, Express_Type* of); -static Express_Field* mkfield(char* name, Express_Type* type, int optional); -static Express_HSequenceOfField* mkflist(Express_Field* field, Express_HSequenceOfField* seq); - -#ifndef YY_ - #if defined YYENABLE_NLS && YYENABLE_NLS - #if ENABLE_NLS - #include // FIXME: INFRINGES ON USER NAME SPACE. - #define YY_(msgid) dgettext("bison-runtime", msgid) - #endif - #endif - #ifndef YY_ - #define YY_(msgid) msgid - #endif -#endif - -// Whether we are compiled with exception support. -#ifndef YY_EXCEPTIONS - #if defined __GNUC__ && !defined __EXCEPTIONS - #define YY_EXCEPTIONS 0 - #else - #define YY_EXCEPTIONS 1 - #endif -#endif - -// Enable debugging if requested. -#if YYDEBUG - - // A pseudo ostream that takes yydebug_ into account. - #define YYCDEBUG \ - if (yydebug_) \ - (*yycdebug_) - - #define YY_SYMBOL_PRINT(Title, Symbol) \ - do \ - { \ - if (yydebug_) \ - { \ - *yycdebug_ << Title << ' '; \ - yy_print_(*yycdebug_, Symbol); \ - *yycdebug_ << '\n'; \ - } \ - } while (false) - - #define YY_REDUCE_PRINT(Rule) \ - do \ - { \ - if (yydebug_) \ - yy_reduce_print_(Rule); \ - } while (false) - - #define YY_STACK_PRINT() \ - do \ - { \ - if (yydebug_) \ - yy_stack_print_(); \ - } while (false) - -#else // !YYDEBUG - - #define YYCDEBUG \ - if (false) \ - std::cerr - #define YY_SYMBOL_PRINT(Title, Symbol) YYUSE(Symbol) - #define YY_REDUCE_PRINT(Rule) static_cast(0) - #define YY_STACK_PRINT() static_cast(0) - -#endif // !YYDEBUG - -#define yyerrok (yyerrstatus_ = 0) -#define yyclearin (yyla.clear()) - -#define YYACCEPT goto yyacceptlab -#define YYABORT goto yyabortlab -#define YYERROR goto yyerrorlab -#define YYRECOVERING() (!!yyerrstatus_) - -namespace exptocas -{ - -/// Build a parser object. -parser::parser(exptocas::scanner* scanner_yyarg) -#if YYDEBUG - : yydebug_(false), - yycdebug_(&std::cerr), -#else - : -#endif - scanner(scanner_yyarg) -{ -} - -parser::~parser() {} - -parser::syntax_error::~syntax_error() YY_NOEXCEPT YY_NOTHROW {} - -/*---------------. -| symbol kinds. | -`---------------*/ - -// basic_symbol. -template -parser::basic_symbol::basic_symbol(const basic_symbol& that) - : Base(that), - value(that.value) -{ -} - -/// Constructor for valueless symbols. -template -parser::basic_symbol::basic_symbol(typename Base::kind_type t) - : Base(t), - value() -{ -} - -template -parser::basic_symbol::basic_symbol(typename Base::kind_type t, YY_RVREF(semantic_type) v) - : Base(t), - value(YY_MOVE(v)) -{ -} - -template -parser::symbol_kind_type parser::basic_symbol::type_get() const YY_NOEXCEPT -{ - return this->kind(); -} - -template -bool parser::basic_symbol::empty() const YY_NOEXCEPT -{ - return this->kind() == symbol_kind::S_YYEMPTY; -} - -template -void parser::basic_symbol::move(basic_symbol& s) -{ - super_type::move(s); - value = YY_MOVE(s.value); -} - -// by_kind. -parser::by_kind::by_kind() - : kind_(symbol_kind::S_YYEMPTY) -{ -} - -#if 201103L <= YY_CPLUSPLUS -parser::by_kind::by_kind(by_kind&& that) - : kind_(that.kind_) -{ - that.clear(); -} -#endif - -parser::by_kind::by_kind(const by_kind& that) - : kind_(that.kind_) -{ -} - -parser::by_kind::by_kind(token_kind_type t) - : kind_(yytranslate_(t)) -{ -} - -void parser::by_kind::clear() -{ - kind_ = symbol_kind::S_YYEMPTY; -} - -void parser::by_kind::move(by_kind& that) -{ - kind_ = that.kind_; - that.clear(); -} - -parser::symbol_kind_type parser::by_kind::kind() const YY_NOEXCEPT -{ - return kind_; -} - -parser::symbol_kind_type parser::by_kind::type_get() const YY_NOEXCEPT -{ - return this->kind(); -} - -// by_state. -parser::by_state::by_state() YY_NOEXCEPT : state(empty_state) {} - -parser::by_state::by_state(const by_state& that) YY_NOEXCEPT : state(that.state) {} - -void parser::by_state::clear() YY_NOEXCEPT -{ - state = empty_state; -} - -void parser::by_state::move(by_state& that) -{ - state = that.state; - that.clear(); -} - -parser::by_state::by_state(state_type s) YY_NOEXCEPT : state(s) {} - -parser::symbol_kind_type parser::by_state::kind() const YY_NOEXCEPT -{ - if (state == empty_state) - return symbol_kind::S_YYEMPTY; - else - return YY_CAST(symbol_kind_type, yystos_[+state]); -} - -parser::stack_symbol_type::stack_symbol_type() {} - -parser::stack_symbol_type::stack_symbol_type(YY_RVREF(stack_symbol_type) that) - : super_type(YY_MOVE(that.state), YY_MOVE(that.value)) -{ -#if 201103L <= YY_CPLUSPLUS - // that is emptied. - that.state = empty_state; -#endif -} - -parser::stack_symbol_type::stack_symbol_type(state_type s, YY_MOVE_REF(symbol_type) that) - : super_type(s, YY_MOVE(that.value)) -{ - // that is emptied. - that.kind_ = symbol_kind::S_YYEMPTY; -} - -#if YY_CPLUSPLUS < 201103L -parser::stack_symbol_type& parser::stack_symbol_type::operator=(const stack_symbol_type& that) -{ - state = that.state; - value = that.value; - return *this; -} - -parser::stack_symbol_type& parser::stack_symbol_type::operator=(stack_symbol_type& that) -{ - state = that.state; - value = that.value; - // that is emptied. - that.state = empty_state; - return *this; -} -#endif - -template -void parser::yy_destroy_(const char* yymsg, basic_symbol& yysym) const -{ - if (yymsg) - YY_SYMBOL_PRINT(yymsg, yysym); - - // User destructor. - YYUSE(yysym.kind()); -} - -#if YYDEBUG -template -void parser::yy_print_(std::ostream& yyo, const basic_symbol& yysym) const -{ - std::ostream& yyoutput = yyo; - YYUSE(yyoutput); - if (yysym.empty()) - yyo << "empty symbol"; - else - { - symbol_kind_type yykind = yysym.kind(); - yyo << (yykind < YYNTOKENS ? "token" : "nterm") << ' ' << yysym.name() << " ("; - YYUSE(yykind); - yyo << ')'; - } -} -#endif - -void parser::yypush_(const char* m, YY_MOVE_REF(stack_symbol_type) sym) -{ - if (m) - YY_SYMBOL_PRINT(m, sym); - yystack_.push(YY_MOVE(sym)); -} - -void parser::yypush_(const char* m, state_type s, YY_MOVE_REF(symbol_type) sym) -{ -#if 201103L <= YY_CPLUSPLUS - yypush_(m, stack_symbol_type(s, std::move(sym))); -#else - stack_symbol_type ss(s, sym); - yypush_(m, ss); -#endif -} - -void parser::yypop_(int n) -{ - yystack_.pop(n); -} - -#if YYDEBUG -std::ostream& parser::debug_stream() const -{ - return *yycdebug_; -} - -void parser::set_debug_stream(std::ostream& o) -{ - yycdebug_ = &o; -} - -parser::debug_level_type parser::debug_level() const -{ - return yydebug_; -} - -void parser::set_debug_level(debug_level_type l) -{ - yydebug_ = l; -} -#endif // YYDEBUG - -parser::state_type parser::yy_lr_goto_state_(state_type yystate, int yysym) -{ - int yyr = yypgoto_[yysym - YYNTOKENS] + yystate; - if (0 <= yyr && yyr <= yylast_ && yycheck_[yyr] == yystate) - return yytable_[yyr]; - else - return yydefgoto_[yysym - YYNTOKENS]; -} - -bool parser::yy_pact_value_is_default_(int yyvalue) -{ - return yyvalue == yypact_ninf_; -} - -bool parser::yy_table_value_is_error_(int yyvalue) -{ - return yyvalue == yytable_ninf_; -} - -int parser::operator()() -{ - return parse(); -} - -int parser::parse() -{ - int yyn; - /// Length of the RHS of the rule being reduced. - int yylen = 0; - - // Error handling. - int yyerrstatus_ = 0; - - /// The lookahead symbol. - symbol_type yyla; - - /// The return value of parse (). - int yyresult; - -#if YY_EXCEPTIONS - try -#endif // YY_EXCEPTIONS - { - YYCDEBUG << "Starting parse\n"; - - /* Initialize the stack. The initial state will be set in - yynewstate, since the latter expects the semantical and the - location values to have been already stored, initialize these - stacks with a primary value. */ - yystack_.clear(); - yypush_(YY_NULLPTR, 0, YY_MOVE(yyla)); - - /*-----------------------------------------------. - | yynewstate -- push a new symbol on the stack. | - `-----------------------------------------------*/ - yynewstate: - YYCDEBUG << "Entering state " << int(yystack_[0].state) << '\n'; - YY_STACK_PRINT(); - - // Accept? - if (yystack_[0].state == yyfinal_) - YYACCEPT; - - goto yybackup; - - /*-----------. - | yybackup. | - `-----------*/ - yybackup: - // Try to take a decision without lookahead. - yyn = yypact_[+yystack_[0].state]; - if (yy_pact_value_is_default_(yyn)) - goto yydefault; - - // Read a lookahead token. - if (yyla.empty()) - { - YYCDEBUG << "Reading a token\n"; -#if YY_EXCEPTIONS - try -#endif // YY_EXCEPTIONS - { - yyla.kind_ = yytranslate_(yylex(&yyla.value)); - } -#if YY_EXCEPTIONS - catch (const syntax_error& yyexc) - { - YYCDEBUG << "Caught exception: " << yyexc.what() << '\n'; - error(yyexc); - goto yyerrlab1; - } -#endif // YY_EXCEPTIONS - } - YY_SYMBOL_PRINT("Next token is", yyla); - - if (yyla.kind() == symbol_kind::S_YYerror) - { - // The scanner already issued an error message, process directly - // to error recovery. But do not keep the error token as - // lookahead, it is too special and may lead us to an endless - // loop in error recovery. */ - yyla.kind_ = symbol_kind::S_YYUNDEF; - goto yyerrlab1; - } - - /* If the proper action on seeing token YYLA.TYPE is to reduce or - to detect an error, take that action. */ - yyn += yyla.kind(); - if (yyn < 0 || yylast_ < yyn || yycheck_[yyn] != yyla.kind()) - { - goto yydefault; - } - - // Reduce or error. - yyn = yytable_[yyn]; - if (yyn <= 0) - { - if (yy_table_value_is_error_(yyn)) - goto yyerrlab; - yyn = -yyn; - goto yyreduce; - } - - // Count tokens shifted since error; after three, turn off error status. - if (yyerrstatus_) - --yyerrstatus_; - - // Shift the lookahead token. - yypush_("Shifting", state_type(yyn), YY_MOVE(yyla)); - goto yynewstate; - - /*-----------------------------------------------------------. - | yydefault -- do the default action for the current state. | - `-----------------------------------------------------------*/ - yydefault: - yyn = yydefact_[+yystack_[0].state]; - if (yyn == 0) - goto yyerrlab; - goto yyreduce; - - /*-----------------------------. - | yyreduce -- do a reduction. | - `-----------------------------*/ - yyreduce: - yylen = yyr2_[yyn]; - { - stack_symbol_type yylhs; - yylhs.state = yy_lr_goto_state_(yystack_[yylen].state, yyr1_[yyn]); - /* If YYLEN is nonzero, implement the default value of the - action: '$$ = $1'. Otherwise, use the top of the stack. - - Otherwise, the following line sets YYLHS.VALUE to garbage. - This behavior is undocumented and Bison users should not rely - upon it. */ - if (yylen) - yylhs.value = yystack_[yylen - 1].value; - else - yylhs.value = yystack_[0].value; - - // Perform the reduction. - YY_REDUCE_PRINT(yyn); -#if YY_EXCEPTIONS - try -#endif // YY_EXCEPTIONS - { - switch (yyn) - { - case 2: // SCHEMA: KSCHEM NAME ';' ILIST KENDS ';' - { - (yylhs.value.schema) = mkschema((yystack_[4].value.str), - (yystack_[2].value.ilist)); /* Root: EXPRESS schema */ - } - break; - - case 3: // ILIST: ITEM - { - (yylhs.value.ilist) = - mkilist((yystack_[0].value.item), 0); /* list of items for schema */ - } - break; - - case 4: // ILIST: ITEM ILIST - { - (yylhs.value.ilist) = mkilist((yystack_[1].value.item), (yystack_[0].value.ilist)); - } - break; - - case 5: // ITEM: ENUM - { - (yylhs.value.item) = (yystack_[0].value.item); - } - break; - - case 6: // ITEM: SELECT - { - (yylhs.value.item) = (yystack_[0].value.item); - } - break; - - case 7: // ITEM: ALIAS - { - (yylhs.value.item) = (yystack_[0].value.item); - } - break; - - case 9: // ITEM: ENTITY - { - (yylhs.value.item) = (yystack_[0].value.item); /* item of schema (type definition) */ - } - break; - - case 10: // ENUM: KTYP NAME '=' KENUM KOF TLIST1 ';' KENDT ';' - { - (yylhs.value.item) = - mkenum((yystack_[7].value.str), - (yystack_[3].value.tlist)); /* TYPE ENUMERATION definition */ - } - break; - - case 11: // SELECT: KTYP NAME '=' KSEL TLIST1 ';' KENDT ';' - { - (yylhs.value.item) = mkselect((yystack_[6].value.str), - (yystack_[3].value.tlist)); /* TYPE SELECT definition */ - } - break; - - case 12: // ALIAS: KTYP NAME '=' TYPE ';' KENDT ';' - { - (yylhs.value.item) = - mkalias((yystack_[5].value.str), - (yystack_[3].value.type)); /* TYPE '=' definition (alias) */ - } - break; - - case 13: // ENTITY: KENT NAME SUPERT SUBT ';' FLIST1 UNIQUE KENDE ';' - { - (yylhs.value.item) = mkentity((yystack_[7].value.str), - (yystack_[5].value.tlist), - (yystack_[3].value.flist), - 0); /* ENTITY definition */ - } - break; - - case 14: // ENTITY: KENT NAME KABSTR SUPERT SUBT ';' FLIST1 UNIQUE KENDE ';' - { - (yylhs.value.item) = mkentity((yystack_[8].value.str), - (yystack_[5].value.tlist), - (yystack_[3].value.flist), - 1); /* ENTITY definition */ - } - break; - - case 15: // REFERENCE: KREF KFROM NAME TLIST1 ';' - { - (yylhs.value.ref) = mkrefs((yystack_[2].value.str), - (yystack_[1].value.tlist)); /* REFERENCE FROM definition */ - } - break; - - case 16: // TLIST: NAME - { - (yylhs.value.tlist) = mktlist((yystack_[0].value.str), 0); /* list of (type) names */ - } - break; - - case 17: // TLIST: NAME ',' TLIST - { - (yylhs.value.tlist) = mktlist((yystack_[2].value.str), (yystack_[0].value.tlist)); - } - break; - - case 18: // TLIST1: '(' TLIST ')' - { - (yylhs.value.tlist) = (yystack_[1].value.tlist); /* TLIST in brackets */ - } - break; - - case 19: // TYPE: TSTD - { - (yylhs.value.type) = (yystack_[0].value.type); - } - break; - - case 20: // TYPE: TNAME - { - (yylhs.value.type) = (yystack_[0].value.type); - } - break; - - case 21: // TYPE: TSET - { - (yylhs.value.type) = (yystack_[0].value.type); /* type, simple or complex */ - } - break; - - case 22: // TSTD: KINT - { - (yylhs.value.type) = mktstd((yystack_[0].value.num)); /* predefined type: INTEGER */ - } - break; - - case 23: // TSTD: KNUM - { - (yylhs.value.type) = mktstd((yystack_[0].value.num)); /* predefined type: NUMBER */ - } - break; - - case 24: // TSTD: KDBL - { - (yylhs.value.type) = mktstd((yystack_[0].value.num)); /* predefined type: REAL */ - } - break; - - case 25: // TSTD: KSTR - { - (yylhs.value.type) = mktstd((yystack_[0].value.num)); /* predefined type: STRING */ - } - break; - - case 26: // TSTD: KLOG - { - (yylhs.value.type) = mktstd((yystack_[0].value.num)); /* predefined type: LOGICAL */ - } - break; - - case 27: // TSTD: KBOOL - { - (yylhs.value.type) = mktstd((yystack_[0].value.num)); /* predefined type: BOOLEAN */ - } - break; - - case 28: // TNAME: NAME - { - (yylhs.value.type) = mktname((yystack_[0].value.str)); /* named type */ - } - break; - - case 29: // TSET: KLIST '[' INDEX ':' INDEX ']' KOF OPTUNI TYPE - { - (yylhs.value.type) = mktset((yystack_[8].value.num), - (yystack_[6].value.num), - (yystack_[4].value.num), - (yystack_[0].value.type)); /* complex type: LIST */ - } - break; - - case 30: // TSET: KARR '[' INDEX ':' INDEX ']' KOF OPTUNI TYPE - { - (yylhs.value.type) = mktset((yystack_[8].value.num), - (yystack_[6].value.num), - (yystack_[4].value.num), - (yystack_[0].value.type)); /* complex type: ARRAY */ - } - break; - - case 31: // TSET: KSET '[' INDEX ':' INDEX ']' KOF OPTUNI TYPE - { - (yylhs.value.type) = mktset((yystack_[8].value.num), - (yystack_[6].value.num), - (yystack_[4].value.num), - (yystack_[0].value.type)); /* complex type: SET */ - } - break; - - case 32: // TSET: KBAG '[' INDEX ':' INDEX ']' KOF OPTUNI TYPE - { - (yylhs.value.type) = mktset((yystack_[8].value.num), - (yystack_[6].value.num), - (yystack_[4].value.num), - (yystack_[0].value.type)); /* complex type: BAG */ - } - break; - - case 33: // INDEX: NUMBER - { - (yylhs.value.num) = (yystack_[0].value.num); /* index for array, set, bag, list range */ - } - break; - - case 34: // INDEX: '?' - { - (yylhs.value.num) = -1; /* undefined */ - } - break; - - case 35: // INDEX: NAME '(' NAME ')' - { - (yylhs.value.num) = -1; - printf("Warning at line %d: index function %s(%s) ignored\n", - ec_curline(), - (yystack_[3].value.str), - (yystack_[1].value.str)); /* some function.. */ - } - break; - - case 36: // OPTUNI: %empty - { - (yylhs.value.num) = 0; /* UNIQUE keyword for complex type definition */ - } - break; - - case 37: // OPTUNI: KUNIQ - { - (yylhs.value.num) = 1; - } - break; - - case 38: // SUBT: %empty - { - (yylhs.value.tlist) = NULL; /* no subtype clause */ - } - break; - - case 39: // SUBT: KSUBT KOF TLIST1 - { - (yylhs.value.tlist) = (yystack_[0].value.tlist); /* subtype clause */ - } - break; - - case 40: // SUPERT: %empty - { - (yylhs.value.num) = 0; /* no supertype clause */ - } - break; - - case 41: // SUPERT: KSPRT - { - (yylhs.value.num) = 0; /* supertype clause (ignored) */ - } - break; - - case 42: // SUPERT: KSPRT KOF SUPLST - { - (yylhs.value.num) = 0; /* supertype clause (ignored) */ - } - break; - - case 43: // SUPLST: NAME - { - (yylhs.value.num) = 0; /* simple list of supertypes */ - } - break; - - case 44: // SUPLST: '(' SUPLST ')' - { - (yylhs.value.num) = 0; /* allow bracketing */ - } - break; - - case 45: // SUPLST: NAME ',' SUPLST - { - (yylhs.value.num) = 0; /* ... */ - } - break; - - case 46: // SUPLST: K1OF SUPLST - { - (yylhs.value.num) = 0; /* ONEOF construct */ - } - break; - - case 47: // SUPLST: SUPLST KANDOR SUPLST - { - (yylhs.value.num) = 0; /* ANDOR construct */ - } - break; - - case 48: // FLIST: FIELD - { - (yylhs.value.flist) = - mkflist((yystack_[0].value.field), 0); /* list of fields of ENTITY item */ - } - break; - - case 49: // FLIST: FIELD FLIST - { - (yylhs.value.flist) = mkflist((yystack_[1].value.field), (yystack_[0].value.flist)); - } - break; - - case 50: // FLIST: REDEF - { - (yylhs.value.flist) = 0; /* redefinition of inherited field, just skip */ - } - break; - - case 51: // FLIST: REDEF FLIST - { - (yylhs.value.flist) = - (yystack_[0] - .value.flist); /* ignore redefinition of inherited field, take trailing list */ - } - break; - - case 52: // FLIST1: %empty - { - (yylhs.value.flist) = NULL; /* empty list of fields */ - } - break; - - case 53: // FLIST1: FLIST - { - (yylhs.value.flist) = - (yystack_[0].value.flist); /* or not empty.. just to fix reduce/reduce conflict */ - } - break; - - case 54: // FIELD: NAME ':' OPTNL TYPE ';' - { - (yylhs.value.field) = - mkfield((yystack_[4].value.str), (yystack_[1].value.type), (yystack_[2].value.num)); - } - break; - - case 55: // REDEF: KSELF '\\' SPECIF ':' TYPE ';' - { - (yylhs.value.num) = 0; - printf("Warning at line %d: field redefinition ignored\n", - ec_curline()); /* redefinition of inherited field */ - } - break; - - case 56: // SPECIF: NAME - { - (yylhs.value.tlist) = - mktlist((yystack_[0].value.str), 0); /* inherited field specification */ - } - break; - - case 57: // SPECIF: NAME '.' SPECIF - { - (yylhs.value.tlist) = mktlist((yystack_[2].value.str), (yystack_[0].value.tlist)); - } - break; - - case 58: // OPTNL: %empty - { - (yylhs.value.num) = 0; - } - break; - - case 59: // OPTNL: KOPT - { - (yylhs.value.num) = 1; - } - break; - - case 60: // UNIQIT: NAME ':' TLIST ';' - { - (yylhs.value.tlist) = (yystack_[1].value.tlist); /* UNIQUE statement */ - } - break; - - case 61: // UNIQIT: NAME ':' SPCLST ';' - { - (yylhs.value.tlist) = NULL; /* UNIQUE statement */ - } - break; - - case 62: // UNIQLS: UNIQIT - { - (yylhs.value.tlist) = NULL; /* list of 1 UNIQUE statements */ - } - break; - - case 63: // UNIQLS: UNIQIT UNIQLS - { - (yylhs.value.tlist) = - mktlists((yystack_[1].value.tlist), - (yystack_[0].value.tlist)); /* list of UNIQUE statements */ - } - break; - - case 64: // UNIQUE: %empty - { - (yylhs.value.tlist) = NULL; /* no UNIQUE clause in ENTITY */ - } - break; - - case 65: // UNIQUE: KUNIQ UNIQLS - { - (yylhs.value.tlist) = (yystack_[0].value.tlist); /* UNIQUE clause in ENTITY */ - } - break; - - case 66: // SPCLST: KSELF '\\' SPECIF - { - (yylhs.value.num) = 0; /* list of specifications */ - } - break; - - case 67: // SPCLST: KSELF '\\' SPECIF ',' SPCLST - { - (yylhs.value.num) = 0; - } - break; - - case 68: // SPCLST: NAME ',' SPCLST - { - (yylhs.value.num) = 0; - } - break; - - default: - break; - } - } -#if YY_EXCEPTIONS - catch (const syntax_error& yyexc) - { - YYCDEBUG << "Caught exception: " << yyexc.what() << '\n'; - error(yyexc); - YYERROR; - } -#endif // YY_EXCEPTIONS - YY_SYMBOL_PRINT("-> $$ =", yylhs); - yypop_(yylen); - yylen = 0; - - // Shift the result of the reduction. - yypush_(YY_NULLPTR, YY_MOVE(yylhs)); - } - goto yynewstate; - - /*--------------------------------------. - | yyerrlab -- here on detecting error. | - `--------------------------------------*/ - yyerrlab: - // If not already recovering from an error, report this error. - if (!yyerrstatus_) - { - std::string msg = YY_("syntax error"); - error(YY_MOVE(msg)); - } - - if (yyerrstatus_ == 3) - { - /* If just tried and failed to reuse lookahead token after an - error, discard it. */ - - // Return failure if at end of input. - if (yyla.kind() == symbol_kind::S_YYEOF) - YYABORT; - else if (!yyla.empty()) - { - yy_destroy_("Error: discarding", yyla); - yyla.clear(); - } - } - - // Else will try to reuse lookahead token after shifting the error token. - goto yyerrlab1; - - /*---------------------------------------------------. - | yyerrorlab -- error raised explicitly by YYERROR. | - `---------------------------------------------------*/ - yyerrorlab: - /* Pacify compilers when the user code never invokes YYERROR and - the label yyerrorlab therefore never appears in user code. */ - if (false) - YYERROR; - - /* Do not reclaim the symbols of the rule whose action triggered - this YYERROR. */ - yypop_(yylen); - yylen = 0; - YY_STACK_PRINT(); - goto yyerrlab1; - - /*-------------------------------------------------------------. - | yyerrlab1 -- common code for both syntax error and YYERROR. | - `-------------------------------------------------------------*/ - yyerrlab1: - yyerrstatus_ = 3; // Each real token shifted decrements this. - // Pop stack until we find a state that shifts the error token. - for (;;) - { - yyn = yypact_[+yystack_[0].state]; - if (!yy_pact_value_is_default_(yyn)) - { - yyn += symbol_kind::S_YYerror; - if (0 <= yyn && yyn <= yylast_ && yycheck_[yyn] == symbol_kind::S_YYerror) - { - yyn = yytable_[yyn]; - if (0 < yyn) - break; - } - } - - // Pop the current state because it cannot handle the error token. - if (yystack_.size() == 1) - YYABORT; - - yy_destroy_("Error: popping", yystack_[0]); - yypop_(); - YY_STACK_PRINT(); - } - { - stack_symbol_type error_token; - - // Shift the error token. - error_token.state = state_type(yyn); - yypush_("Shifting", YY_MOVE(error_token)); - } - goto yynewstate; - - /*-------------------------------------. - | yyacceptlab -- YYACCEPT comes here. | - `-------------------------------------*/ - yyacceptlab: - yyresult = 0; - goto yyreturn; - - /*-----------------------------------. - | yyabortlab -- YYABORT comes here. | - `-----------------------------------*/ - yyabortlab: - yyresult = 1; - goto yyreturn; - - /*-----------------------------------------------------. - | yyreturn -- parsing is finished, return the result. | - `-----------------------------------------------------*/ - yyreturn: - if (!yyla.empty()) - yy_destroy_("Cleanup: discarding lookahead", yyla); - - /* Do not reclaim the symbols of the rule whose action triggered - this YYABORT or YYACCEPT. */ - yypop_(yylen); - YY_STACK_PRINT(); - while (1 < yystack_.size()) - { - yy_destroy_("Cleanup: popping", yystack_[0]); - yypop_(); - } - - return yyresult; - } -#if YY_EXCEPTIONS - catch (...) - { - YYCDEBUG << "Exception caught: cleaning lookahead and stack\n"; - // Do not try to display the values of the reclaimed symbols, - // as their printers might throw an exception. - if (!yyla.empty()) - yy_destroy_(YY_NULLPTR, yyla); - - while (1 < yystack_.size()) - { - yy_destroy_(YY_NULLPTR, yystack_[0]); - yypop_(); - } - throw; - } -#endif // YY_EXCEPTIONS -} - -void parser::error(const syntax_error& yyexc) -{ - error(yyexc.what()); -} - -#if YYDEBUG || 0 -const char* parser::symbol_name(symbol_kind_type yysymbol) -{ - return yytname_[yysymbol]; -} -#endif // #if YYDEBUG || 0 - -const short parser::yypact_ninf_ = -134; - -const signed char parser::yytable_ninf_ = -1; - -const short parser::yypact_[] = { - 24, 3, 51, 5, -134, 73, 20, 34, 60, 70, 73, -134, -134, -134, -134, -134, - 42, 44, 47, 48, -134, -1, 54, 68, 58, 49, -134, 49, 72, 50, 52, 53, - 55, -134, -134, -134, -134, -134, -134, -134, 61, -134, -134, -134, 58, 38, 74, 62, - 65, 64, 66, 49, -8, -8, -8, -8, 88, 67, 38, 69, 38, 71, 49, 12, - 75, 57, -134, 99, 76, -134, 77, -134, 78, 79, 80, 81, 82, 12, -134, 38, - 1, 38, -134, 63, 83, -134, 84, 12, 12, 65, -134, 87, 100, 91, -8, -8, - -8, -8, -134, 84, -134, -134, -134, 92, 89, 93, 103, -134, -134, -134, -134, 94, - 90, 86, 95, 96, 97, 106, 98, 101, -134, 43, 104, 93, -134, 105, -134, -134, - 114, 115, 116, 117, 108, 92, 43, 110, 26, -134, -134, 111, 111, 111, 111, -134, - -134, 112, -134, 107, 118, 113, 119, -134, 43, 43, 43, 43, -134, 92, 26, -134, - -134, -134, -134, -134, -134, 121, -134, 41, 122, -134, 41}; - -const signed char parser::yydefact_[] = { - 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 3, 5, 6, 7, 9, 8, 0, 40, 0, 0, 4, 0, 40, 41, 38, - 0, 2, 0, 0, 0, 0, 0, 0, 23, 22, 24, 25, 26, 27, 28, 0, 19, 20, 21, 38, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 43, 0, 42, 0, 52, 16, 0, 15, 0, 0, 33, 0, 34, 0, 0, 0, - 0, 0, 52, 46, 0, 0, 0, 39, 0, 0, 53, 64, 48, 50, 0, 18, 0, 0, 0, 0, 0, 0, 0, 12, 64, - 45, 44, 47, 0, 58, 0, 0, 49, 51, 17, 11, 0, 0, 0, 0, 0, 0, 0, 56, 0, 59, 0, 0, 62, 65, - 0, 10, 35, 0, 0, 0, 0, 0, 0, 0, 0, 0, 63, 13, 36, 36, 36, 36, 14, 57, 0, 54, 0, 16, 0, - 0, 37, 0, 0, 0, 0, 55, 0, 0, 60, 61, 29, 30, 32, 31, 66, 68, 0, 0, 67, 0}; - -const short parser::yypgoto_[] = {-134, -134, 125, -134, -134, -134, -134, -134, -134, -48, - -23, -105, -134, -134, -134, -52, -133, 120, 128, -26, - -64, 31, -134, -134, -127, -134, -134, -7, 18, -131}; - -const short parser::yydefgoto_[] = {-1, 2, 9, 10, 11, 12, 13, 14, 15, 109, - 49, 40, 41, 42, 43, 72, 152, 47, 24, 61, - 85, 86, 87, 88, 119, 121, 123, 124, 106, 166}; - -const unsigned char parser::yytable_[] = { - 65, 73, 74, 75, 50, 150, 144, 153, 154, 155, 27, 28, 29, 30, 31, 32, 135, 33, 34, - 35, 36, 37, 38, 107, 108, 69, 70, 1, 68, 145, 165, 81, 78, 39, 80, 71, 169, 3, - 83, 82, 101, 5, 113, 114, 115, 116, 84, 161, 162, 163, 164, 4, 147, 100, 16, 102, 29, - 30, 31, 32, 148, 33, 34, 35, 36, 37, 38, 147, 17, 58, 18, 22, 59, 23, 19, 168, - 60, 39, 6, 21, 7, 25, 8, 23, 26, 45, 46, 48, 149, 51, 52, 62, 53, 54, 76, - 55, 90, 56, 63, 64, 66, 81, 67, 77, 79, 91, 111, 103, 99, 105, 89, 125, 92, 120, - 132, 93, 137, 117, 98, 94, 95, 96, 97, 110, 104, 112, 118, 122, 128, 127, 126, 139, 140, - 141, 142, 20, 151, 129, 130, 131, 0, 138, 134, 133, 143, 136, 146, 0, 156, 159, 44, 157, - 0, 158, 0, 160, 167, 170, 0, 0, 0, 0, 0, 0, 57}; - -const short parser::yycheck_[] = { - 48, 53, 54, 55, 27, 136, 133, 140, 141, 142, 11, 12, 13, 14, 15, 16, 121, 18, 19, 20, 21, - 22, 23, 87, 88, 33, 34, 3, 51, 134, 157, 30, 58, 34, 60, 43, 167, 34, 26, 62, 39, 36, - 94, 95, 96, 97, 34, 152, 153, 154, 155, 0, 26, 79, 34, 81, 13, 14, 15, 16, 34, 18, 19, - 20, 21, 22, 23, 26, 34, 31, 10, 27, 34, 29, 4, 34, 38, 34, 5, 37, 7, 34, 9, 29, - 36, 17, 28, 38, 136, 17, 40, 17, 40, 40, 6, 40, 39, 36, 36, 34, 36, 30, 36, 36, 35, - 6, 6, 44, 77, 25, 35, 8, 36, 24, 8, 38, 123, 99, 36, 41, 41, 41, 41, 36, 41, 34, - 34, 34, 42, 39, 36, 17, 17, 17, 17, 10, 25, 42, 42, 42, -1, 36, 41, 45, 36, 41, 36, - -1, 36, 36, 22, 44, -1, 35, -1, 36, 35, 35, -1, -1, -1, -1, -1, -1, 44}; - -const signed char parser::yystos_[] = { - 0, 3, 47, 34, 0, 36, 5, 7, 9, 48, 49, 50, 51, 52, 53, 54, 34, 34, 10, 4, 48, 37, - 27, 29, 64, 34, 36, 11, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 34, 57, 58, 59, 60, - 64, 17, 28, 63, 38, 56, 56, 17, 40, 40, 40, 40, 36, 63, 31, 34, 38, 65, 17, 36, 34, 55, - 36, 36, 56, 33, 34, 43, 61, 61, 61, 61, 6, 36, 65, 35, 65, 30, 56, 26, 34, 66, 67, 68, - 69, 35, 39, 6, 36, 38, 41, 41, 41, 41, 36, 67, 65, 39, 65, 44, 41, 25, 74, 66, 66, 55, - 36, 6, 34, 61, 61, 61, 61, 74, 34, 70, 24, 71, 34, 72, 73, 8, 36, 39, 42, 42, 42, 42, - 8, 45, 41, 57, 41, 73, 36, 17, 17, 17, 17, 36, 70, 57, 36, 26, 34, 55, 75, 25, 62, 62, - 62, 62, 36, 44, 35, 36, 36, 57, 57, 57, 57, 70, 75, 35, 34, 75, 35}; - -const signed char parser::yyr1_[] = { - 0, 46, 47, 48, 48, 49, 49, 49, 49, 49, 50, 51, 52, 53, 53, 54, 55, 55, 56, 57, 57, 57, 58, - 58, 58, 58, 58, 58, 59, 60, 60, 60, 60, 61, 61, 61, 62, 62, 63, 63, 64, 64, 64, 65, 65, 65, - 65, 65, 66, 66, 66, 66, 67, 67, 68, 69, 70, 70, 71, 71, 72, 72, 73, 73, 74, 74, 75, 75, 75}; - -const signed char parser::yyr2_[] = {0, 2, 6, 1, 2, 1, 1, 1, 1, 1, 9, 8, 7, 9, 10, 5, 1, 3, - 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 9, 9, 9, 9, 1, 1, 4, - 0, 1, 0, 3, 0, 1, 3, 1, 3, 3, 2, 3, 1, 2, 1, 2, 0, 1, - 5, 6, 1, 3, 0, 1, 4, 4, 1, 2, 0, 2, 3, 5, 3}; - -#if YYDEBUG -// YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. -// First, the terminals, then, starting at \a YYNTOKENS, nonterminals. -const char* const parser::yytname_[] = {"\"end of file\"", - "error", - "\"invalid token\"", - "KSCHEM", - "KENDS", - "KTYP", - "KENDT", - "KENT", - "KENDE", - "KREF", - "KFROM", - "KSEL", - "KENUM", - "KLIST", - "KARR", - "KBAG", - "KSET", - "KOF", - "KNUM", - "KINT", - "KDBL", - "KSTR", - "KLOG", - "KBOOL", - "KOPT", - "KUNIQ", - "KSELF", - "KABSTR", - "KSUBT", - "KSPRT", - "KANDOR", - "K1OF", - "KAND", - "NUMBER", - "NAME", - "','", - "';'", - "'='", - "'('", - "')'", - "'['", - "':'", - "']'", - "'?'", - "'\\\\'", - "'.'", - "$accept", - "SCHEMA", - "ILIST", - "ITEM", - "ENUM", - "SELECT", - "ALIAS", - "ENTITY", - "REFERENCE", - "TLIST", - "TLIST1", - "TYPE", - "TSTD", - "TNAME", - "TSET", - "INDEX", - "OPTUNI", - "SUBT", - "SUPERT", - "SUPLST", - "FLIST", - "FLIST1", - "FIELD", - "REDEF", - "SPECIF", - "OPTNL", - "UNIQIT", - "UNIQLS", - "UNIQUE", - "SPCLST", - YY_NULLPTR}; -#endif - -#if YYDEBUG -const short parser::yyrline_[] = { - 0, 230, 230, 232, 233, 236, 237, 238, 239, 240, 242, 244, 246, 248, 249, 252, 255, 256, - 258, 261, 262, 263, 265, 266, 267, 268, 269, 270, 272, 274, 275, 276, 277, 279, 280, 281, - 283, 284, 287, 288, 290, 291, 292, 294, 295, 296, 297, 298, 301, 302, 303, 304, 306, 307, - 309, 311, 313, 314, 317, 318, 321, 322, 324, 325, 327, 328, 330, 331, 332}; - -void parser::yy_stack_print_() const -{ - *yycdebug_ << "Stack now"; - for (stack_type::const_iterator i = yystack_.begin(), i_end = yystack_.end(); i != i_end; ++i) - *yycdebug_ << ' ' << int(i->state); - *yycdebug_ << '\n'; -} - -void parser::yy_reduce_print_(int yyrule) const -{ - int yylno = yyrline_[yyrule]; - int yynrhs = yyr2_[yyrule]; - // Print the symbols being reduced, and their result. - *yycdebug_ << "Reducing stack by rule " << yyrule - 1 << " (line " << yylno << "):\n"; - // The symbols being reduced. - for (int yyi = 0; yyi < yynrhs; yyi++) - YY_SYMBOL_PRINT(" $" << yyi + 1 << " =", yystack_[(yynrhs) - (yyi + 1)]); -} -#endif // YYDEBUG - -parser::symbol_kind_type parser::yytranslate_(int t) -{ - // YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to - // TOKEN-NUM as returned by yylex. - static const signed char translate_table[] = { - 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 38, 39, 2, 2, 35, 2, - 45, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 41, 36, 2, 37, 2, 43, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 40, - 44, 42, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, - 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34}; - // Last valid token kind. - const int code_max = 289; - - if (t <= 0) - return symbol_kind::S_YYEOF; - else if (t <= code_max) - return YY_CAST(symbol_kind_type, translate_table[t]); - else - return symbol_kind::S_YYUNDEF; -} - -} // namespace exptocas - -/************************************************/ -/* FUNCTIONS FOR CREATING SCHEMA REPRESENTATION */ - -static Express_Schema* mkschema(char* name, Express_HSequenceOfItem* ilist) -{ - Express_Schema* sch = new Express_Schema(name, ilist); - Express::Schema() = sch; - return sch; -} - -static Express_HSequenceOfItem* mkilist(Express_Item* item, Express_HSequenceOfItem* seq) -{ - if (!seq) - { - seq = new Express_HSequenceOfItem; - seq->Append(item); - } - else - seq->Prepend(item); - return seq; -} - -static Express_Item* mkenum(char* name, TColStd_HSequenceOfHAsciiString* tlist) -{ - return new Express_Enum(name, tlist); -} - -static Express_Item* mkselect(char* name, TColStd_HSequenceOfHAsciiString* tlist) -{ - return new Express_Select(name, tlist); -} - -static Express_Item* mkalias(char* name, Express_Type* type) -{ - return new Express_Alias(name, type); -} - -static Express_Item* mkentity(char* name, - TColStd_HSequenceOfHAsciiString* inherit, - Express_HSequenceOfField* field, - int isabstract) -{ - Express_Entity* ent = new Express_Entity(name, inherit, field); - if (isabstract) - ent->SetAbstractFlag(Standard_True); - return ent; -} - -static Express_Reference* mkrefs(char* name, TColStd_HSequenceOfHAsciiString* items) -{ - return new Express_Reference(name, items); -} - -static TColStd_HSequenceOfHAsciiString* mktlist(char* name, TColStd_HSequenceOfHAsciiString* tlist) -{ - Handle(TCollection_HAsciiString) str = new TCollection_HAsciiString(name); - if (tlist) - tlist->Prepend(str); - else - { - tlist = new TColStd_HSequenceOfHAsciiString; - tlist->Append(str); - } - return tlist; -} - -static TColStd_HSequenceOfHAsciiString* mktlists(TColStd_HSequenceOfHAsciiString* tlist1, - TColStd_HSequenceOfHAsciiString* tlist2) -{ - if (!tlist1) - return tlist2; - if (!tlist2) - return tlist1; - for (int i = 1; i <= tlist2->Length(); i++) - tlist1->Append(tlist2->Value(i)); - return tlist1; -} - -static Express_Type* mktstd(int keyword) -{ - switch (keyword) - { - case exptocas::parser::token::KINT: - return new Express_Integer; - case exptocas::parser::token::KNUM: - return new Express_Number; - case exptocas::parser::token::KDBL: - return new Express_Real; - case exptocas::parser::token::KSTR: - return new Express_String; - case exptocas::parser::token::KBOOL: - return new Express_Boolean; - case exptocas::parser::token::KLOG: - return new Express_Logical; - default: - ec_error("Predefined type not treated!", ""); - return NULL; - } -} - -static Express_Type* mktname(char* name) -{ - return new Express_NamedType(name); -} - -static Express_Type* mktset(int keyword, int ilow, int ihigh, Express_Type* of) -{ - switch (keyword) - { - case exptocas::parser::token::KLIST: - return new Express_List(ilow, ihigh, of); - case exptocas::parser::token::KARR: - return new Express_Array(ilow, ihigh, of); - case exptocas::parser::token::KBAG: - return new Express_Bag(ilow, ihigh, of); - case exptocas::parser::token::KSET: - return new Express_Set(ilow, ihigh, of); - default: - ec_error("Complex type not treated!", ""); - return NULL; - } -} - -static Express_Field* mkfield(char* name, Express_Type* type, int optional) -{ - return new Express_Field(name, type, optional); -} - -static Express_HSequenceOfField* mkflist(Express_Field* field, Express_HSequenceOfField* seq) -{ - if (seq) - seq->Prepend(field); - else - { - seq = new Express_HSequenceOfField; - seq->Append(field); - } - return seq; -} - -/*******************************************************************/ -/* MAIN & co */ - -/* -void tlistfree ( struct tlist *list ) -{ - if ( ! list ) return; - tlistfree ( list->next ); - list->next = 0; - free ( list->str ); - list->str = 0; -} -* / - -int printtlist ( struct ec_tlist *tl ) -{ - int num=0; - while ( tl ) { - num++; - printf ( "%s\n", tl->name ); - tl = tl->next; - } - return num; -} - -int main ( void ) -{ - int num = 0; - yyparse(); - - printf ( "\nFinished\n" ); - if ( schema ) { - struct ec_item *it; - it = schema->items; - printf ( "\nSchema %s", schema->name ); - printf ( "\nItems:" ); - while ( it ) { - num++; - printf ( "\n%s", it->name ); - it = it->next; - } -// num = printtlist ( res ); - printf ( "\nTotal %d", num ); - } - -// tlistfree ( yylval.tlist ); - return num; -} -*/ - -void exptocas::parser::error(const std::string& s) -{ - printf("\nParse error at line %d: %s\n", scanner->lineno(), s.c_str()); -} diff --git a/src/ExpToCasExe/exptocas.tab.hxx b/src/ExpToCasExe/exptocas.tab.hxx deleted file mode 100644 index 631706d84e..0000000000 --- a/src/ExpToCasExe/exptocas.tab.hxx +++ /dev/null @@ -1,856 +0,0 @@ -// A Bison parser, made by GNU Bison 3.7.4. - -// Skeleton interface for Bison LALR(1) parsers in C++ - -// Copyright (C) 2002-2015, 2018-2020 Free Software Foundation, Inc. - -// This program is free software: you can redistribute it and/or modify -// it under the terms of the GNU General Public License as published by -// the Free Software Foundation, either version 3 of the License, or -// (at your option) any later version. - -// This program is distributed in the hope that it will be useful, -// but WITHOUT ANY WARRANTY; without even the implied warranty of -// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -// GNU General Public License for more details. - -// You should have received a copy of the GNU General Public License -// along with this program. If not, see . - -// As a special exception, you may create a larger work that contains -// part or all of the Bison parser skeleton and distribute that work -// under terms of your choice, so long as that work isn't itself a -// parser generator using the skeleton or a modified version thereof -// as a parser skeleton. Alternatively, if you modify or redistribute -// the parser skeleton itself, you may (at your option) remove this -// special exception, which will cause the skeleton and the resulting -// Bison output files to be licensed under the GNU General Public -// License without this special exception. - -// This special exception was added by the Free Software Foundation in -// version 2.2 of Bison. - -/** - ** \file ExpToCasExe/exptocas.tab.hxx - ** Define the exptocas::parser class. - */ - -// C++ LALR(1) parser skeleton written by Akim Demaille. - -// DO NOT RELY ON FEATURES THAT ARE NOT DOCUMENTED in the manual, -// especially those whose name start with YY_ or yy_. They are -// private implementation details that can be changed or removed. - -#ifndef YY_EXPTOCAS_EXPTOCASEXE_EXPTOCAS_TAB_HXX_INCLUDED -#define YY_EXPTOCAS_EXPTOCASEXE_EXPTOCAS_TAB_HXX_INCLUDED -// "%code requires" blocks. - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -namespace exptocas -{ -class scanner; -}; -#ifdef _MSC_VER - // disable MSVC warning C4522: 'exptocas::parser::stack_symbol_type': multiple assignment - // operators - #pragma warning(disable : 4522) -#endif - -#include // std::abort -#include -#include -#include -#include - -#if defined __cplusplus - #define YY_CPLUSPLUS __cplusplus -#else - #define YY_CPLUSPLUS 199711L -#endif - -// Support move semantics when possible. -#if 201103L <= YY_CPLUSPLUS - #define YY_MOVE std::move - #define YY_MOVE_OR_COPY move - #define YY_MOVE_REF(Type) Type&& - #define YY_RVREF(Type) Type&& - #define YY_COPY(Type) Type -#else - #define YY_MOVE - #define YY_MOVE_OR_COPY copy - #define YY_MOVE_REF(Type) Type& - #define YY_RVREF(Type) const Type& - #define YY_COPY(Type) const Type& -#endif - -// Support noexcept when possible. -#if 201103L <= YY_CPLUSPLUS - #define YY_NOEXCEPT noexcept - #define YY_NOTHROW -#else - #define YY_NOEXCEPT - #define YY_NOTHROW throw() -#endif - -// Support constexpr when possible. -#if 201703 <= YY_CPLUSPLUS - #define YY_CONSTEXPR constexpr -#else - #define YY_CONSTEXPR -#endif - -#ifndef YY_ATTRIBUTE_PURE - #if defined __GNUC__ && 2 < __GNUC__ + (96 <= __GNUC_MINOR__) - #define YY_ATTRIBUTE_PURE __attribute__((__pure__)) - #else - #define YY_ATTRIBUTE_PURE - #endif -#endif - -#ifndef YY_ATTRIBUTE_UNUSED - #if defined __GNUC__ && 2 < __GNUC__ + (7 <= __GNUC_MINOR__) - #define YY_ATTRIBUTE_UNUSED __attribute__((__unused__)) - #else - #define YY_ATTRIBUTE_UNUSED - #endif -#endif - -/* Suppress unused-variable warnings by "using" E. */ -#if !defined lint || defined __GNUC__ - #define YYUSE(E) ((void)(E)) -#else - #define YYUSE(E) /* empty */ -#endif - -#if defined __GNUC__ && !defined __ICC && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ - /* Suppress an incorrect diagnostic about yylval being uninitialized. */ - #define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ - _Pragma("GCC diagnostic push") _Pragma("GCC diagnostic ignored \"-Wuninitialized\"") \ - _Pragma("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") - #define YY_IGNORE_MAYBE_UNINITIALIZED_END _Pragma("GCC diagnostic pop") -#else - #define YY_INITIAL_VALUE(Value) Value -#endif -#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN - #define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN - #define YY_IGNORE_MAYBE_UNINITIALIZED_END -#endif -#ifndef YY_INITIAL_VALUE - #define YY_INITIAL_VALUE(Value) /* Nothing. */ -#endif - -#if defined __cplusplus && defined __GNUC__ && !defined __ICC && 6 <= __GNUC__ - #define YY_IGNORE_USELESS_CAST_BEGIN \ - _Pragma("GCC diagnostic push") _Pragma("GCC diagnostic ignored \"-Wuseless-cast\"") - #define YY_IGNORE_USELESS_CAST_END _Pragma("GCC diagnostic pop") -#endif -#ifndef YY_IGNORE_USELESS_CAST_BEGIN - #define YY_IGNORE_USELESS_CAST_BEGIN - #define YY_IGNORE_USELESS_CAST_END -#endif - -#ifndef YY_CAST - #ifdef __cplusplus - #define YY_CAST(Type, Val) static_cast(Val) - #define YY_REINTERPRET_CAST(Type, Val) reinterpret_cast(Val) - #else - #define YY_CAST(Type, Val) ((Type)(Val)) - #define YY_REINTERPRET_CAST(Type, Val) ((Type)(Val)) - #endif -#endif -#ifndef YY_NULLPTR - #if defined __cplusplus - #if 201103L <= __cplusplus - #define YY_NULLPTR nullptr - #else - #define YY_NULLPTR 0 - #endif - #else - #define YY_NULLPTR ((void*)0) - #endif -#endif - -/* Debug traces. */ -#ifndef YYDEBUG - #define YYDEBUG 0 -#endif - -namespace exptocas -{ - -/// A Bison parser. -class parser -{ -public: -#ifndef YYSTYPE - /// Symbol semantic values. - union semantic_type { - - int num; - char* str; - TColStd_HSequenceOfHAsciiString* tlist; - Express_HSequenceOfField* flist; - Express_HSequenceOfItem* ilist; - Express_Field* field; - Express_Item* item; - Express_Type* type; - Express_Schema* schema; - Express_Reference* ref; - }; -#else - typedef YYSTYPE semantic_type; -#endif - - /// Syntax errors thrown from user actions. - struct syntax_error : std::runtime_error - { - syntax_error(const std::string& m) - : std::runtime_error(m) - { - } - - syntax_error(const syntax_error& s) - : std::runtime_error(s.what()) - { - } - - ~syntax_error() YY_NOEXCEPT YY_NOTHROW; - }; - - /// Token kinds. - struct token - { - enum token_kind_type - { - YYEMPTY = -2, - YYEOF = 0, // "end of file" - YYerror = 256, // error - YYUNDEF = 257, // "invalid token" - KSCHEM = 258, // KSCHEM - KENDS = 259, // KENDS - KTYP = 260, // KTYP - KENDT = 261, // KENDT - KENT = 262, // KENT - KENDE = 263, // KENDE - KREF = 264, // KREF - KFROM = 265, // KFROM - KSEL = 266, // KSEL - KENUM = 267, // KENUM - KLIST = 268, // KLIST - KARR = 269, // KARR - KBAG = 270, // KBAG - KSET = 271, // KSET - KOF = 272, // KOF - KNUM = 273, // KNUM - KINT = 274, // KINT - KDBL = 275, // KDBL - KSTR = 276, // KSTR - KLOG = 277, // KLOG - KBOOL = 278, // KBOOL - KOPT = 279, // KOPT - KUNIQ = 280, // KUNIQ - KSELF = 281, // KSELF - KABSTR = 282, // KABSTR - KSUBT = 283, // KSUBT - KSPRT = 284, // KSPRT - KANDOR = 285, // KANDOR - K1OF = 286, // K1OF - KAND = 287, // KAND - NUMBER = 288, // NUMBER - NAME = 289 // NAME - }; - - /// Backward compatibility alias (Bison 3.6). - typedef token_kind_type yytokentype; - }; - - /// Token kind, as returned by yylex. - typedef token::yytokentype token_kind_type; - - /// Backward compatibility alias (Bison 3.6). - typedef token_kind_type token_type; - - /// Symbol kinds. - struct symbol_kind - { - enum symbol_kind_type - { - YYNTOKENS = 46, ///< Number of tokens. - S_YYEMPTY = -2, - S_YYEOF = 0, // "end of file" - S_YYerror = 1, // error - S_YYUNDEF = 2, // "invalid token" - S_KSCHEM = 3, // KSCHEM - S_KENDS = 4, // KENDS - S_KTYP = 5, // KTYP - S_KENDT = 6, // KENDT - S_KENT = 7, // KENT - S_KENDE = 8, // KENDE - S_KREF = 9, // KREF - S_KFROM = 10, // KFROM - S_KSEL = 11, // KSEL - S_KENUM = 12, // KENUM - S_KLIST = 13, // KLIST - S_KARR = 14, // KARR - S_KBAG = 15, // KBAG - S_KSET = 16, // KSET - S_KOF = 17, // KOF - S_KNUM = 18, // KNUM - S_KINT = 19, // KINT - S_KDBL = 20, // KDBL - S_KSTR = 21, // KSTR - S_KLOG = 22, // KLOG - S_KBOOL = 23, // KBOOL - S_KOPT = 24, // KOPT - S_KUNIQ = 25, // KUNIQ - S_KSELF = 26, // KSELF - S_KABSTR = 27, // KABSTR - S_KSUBT = 28, // KSUBT - S_KSPRT = 29, // KSPRT - S_KANDOR = 30, // KANDOR - S_K1OF = 31, // K1OF - S_KAND = 32, // KAND - S_NUMBER = 33, // NUMBER - S_NAME = 34, // NAME - S_35_ = 35, // ',' - S_36_ = 36, // ';' - S_37_ = 37, // '=' - S_38_ = 38, // '(' - S_39_ = 39, // ')' - S_40_ = 40, // '[' - S_41_ = 41, // ':' - S_42_ = 42, // ']' - S_43_ = 43, // '?' - S_44_ = 44, // '\\' - S_45_ = 45, // '.' - S_YYACCEPT = 46, // $accept - S_SCHEMA = 47, // SCHEMA - S_ILIST = 48, // ILIST - S_ITEM = 49, // ITEM - S_ENUM = 50, // ENUM - S_SELECT = 51, // SELECT - S_ALIAS = 52, // ALIAS - S_ENTITY = 53, // ENTITY - S_REFERENCE = 54, // REFERENCE - S_TLIST = 55, // TLIST - S_TLIST1 = 56, // TLIST1 - S_TYPE = 57, // TYPE - S_TSTD = 58, // TSTD - S_TNAME = 59, // TNAME - S_TSET = 60, // TSET - S_INDEX = 61, // INDEX - S_OPTUNI = 62, // OPTUNI - S_SUBT = 63, // SUBT - S_SUPERT = 64, // SUPERT - S_SUPLST = 65, // SUPLST - S_FLIST = 66, // FLIST - S_FLIST1 = 67, // FLIST1 - S_FIELD = 68, // FIELD - S_REDEF = 69, // REDEF - S_SPECIF = 70, // SPECIF - S_OPTNL = 71, // OPTNL - S_UNIQIT = 72, // UNIQIT - S_UNIQLS = 73, // UNIQLS - S_UNIQUE = 74, // UNIQUE - S_SPCLST = 75 // SPCLST - }; - }; - - /// (Internal) symbol kind. - typedef symbol_kind::symbol_kind_type symbol_kind_type; - - /// The number of tokens. - static const symbol_kind_type YYNTOKENS = symbol_kind::YYNTOKENS; - - /// A complete symbol. - /// - /// Expects its Base type to provide access to the symbol kind - /// via kind (). - /// - /// Provide access to semantic value. - template - struct basic_symbol : Base - { - /// Alias to Base. - typedef Base super_type; - - /// Default constructor. - basic_symbol() - : value() - { - } - -#if 201103L <= YY_CPLUSPLUS - /// Move constructor. - basic_symbol(basic_symbol&& that) - : Base(std::move(that)), - value(std::move(that.value)) - { - } -#endif - - /// Copy constructor. - basic_symbol(const basic_symbol& that); - /// Constructor for valueless symbols. - basic_symbol(typename Base::kind_type t); - - /// Constructor for symbols with semantic value. - basic_symbol(typename Base::kind_type t, YY_RVREF(semantic_type) v); - - /// Destroy the symbol. - ~basic_symbol() { clear(); } - - /// Destroy contents, and record that is empty. - void clear() { Base::clear(); } - -#if YYDEBUG || 0 - /// The user-facing name of this symbol. - const char* name() const YY_NOEXCEPT { return parser::symbol_name(this->kind()); } -#endif // #if YYDEBUG || 0 - - /// Backward compatibility (Bison 3.6). - symbol_kind_type type_get() const YY_NOEXCEPT; - - /// Whether empty. - bool empty() const YY_NOEXCEPT; - - /// Destructive move, \a s is emptied into this. - void move(basic_symbol& s); - - /// The semantic value. - semantic_type value; - - private: -#if YY_CPLUSPLUS < 201103L - /// Assignment operator. - basic_symbol& operator=(const basic_symbol& that); -#endif - }; - - /// Type access provider for token (enum) based symbols. - struct by_kind - { - /// Default constructor. - by_kind(); - -#if 201103L <= YY_CPLUSPLUS - /// Move constructor. - by_kind(by_kind&& that); -#endif - - /// Copy constructor. - by_kind(const by_kind& that); - - /// The symbol kind as needed by the constructor. - typedef token_kind_type kind_type; - - /// Constructor from (external) token numbers. - by_kind(kind_type t); - - /// Record that this symbol is empty. - void clear(); - - /// Steal the symbol kind from \a that. - void move(by_kind& that); - - /// The (internal) type number (corresponding to \a type). - /// \a empty when empty. - symbol_kind_type kind() const YY_NOEXCEPT; - - /// Backward compatibility (Bison 3.6). - symbol_kind_type type_get() const YY_NOEXCEPT; - - /// The symbol kind. - /// \a S_YYEMPTY when empty. - symbol_kind_type kind_; - }; - - /// Backward compatibility for a private implementation detail (Bison 3.6). - typedef by_kind by_type; - - /// "External" symbols: returned by the scanner. - struct symbol_type : basic_symbol - { - }; - - /// Build a parser object. - parser(exptocas::scanner* scanner_yyarg); - virtual ~parser(); - -#if 201103L <= YY_CPLUSPLUS - /// Non copyable. - parser(const parser&) = delete; - /// Non copyable. - parser& operator=(const parser&) = delete; -#endif - - /// Parse. An alias for parse (). - /// \returns 0 iff parsing succeeded. - int operator()(); - - /// Parse. - /// \returns 0 iff parsing succeeded. - virtual int parse(); - -#if YYDEBUG - /// The current debugging stream. - std::ostream& debug_stream() const YY_ATTRIBUTE_PURE; - /// Set the current debugging stream. - void set_debug_stream(std::ostream&); - - /// Type for debugging levels. - typedef int debug_level_type; - /// The current debugging level. - debug_level_type debug_level() const YY_ATTRIBUTE_PURE; - /// Set the current debugging level. - void set_debug_level(debug_level_type l); -#endif - - /// Report a syntax error. - /// \param msg a description of the syntax error. - virtual void error(const std::string& msg); - - /// Report a syntax error. - void error(const syntax_error& err); - -#if YYDEBUG || 0 - /// The user-facing name of the symbol whose (internal) number is - /// YYSYMBOL. No bounds checking. - static const char* symbol_name(symbol_kind_type yysymbol); -#endif // #if YYDEBUG || 0 - -private: -#if YY_CPLUSPLUS < 201103L - /// Non copyable. - parser(const parser&); - /// Non copyable. - parser& operator=(const parser&); -#endif - - /// Stored state numbers (used for stacks). - typedef unsigned char state_type; - - /// Compute post-reduction state. - /// \param yystate the current state - /// \param yysym the nonterminal to push on the stack - static state_type yy_lr_goto_state_(state_type yystate, int yysym); - - /// Whether the given \c yypact_ value indicates a defaulted state. - /// \param yyvalue the value to check - static bool yy_pact_value_is_default_(int yyvalue); - - /// Whether the given \c yytable_ value indicates a syntax error. - /// \param yyvalue the value to check - static bool yy_table_value_is_error_(int yyvalue); - - static const short yypact_ninf_; - static const signed char yytable_ninf_; - - /// Convert a scanner token kind \a t to a symbol kind. - /// In theory \a t should be a token_kind_type, but character literals - /// are valid, yet not members of the token_type enum. - static symbol_kind_type yytranslate_(int t); - -#if YYDEBUG || 0 - /// For a symbol, its name in clear. - static const char* const yytname_[]; -#endif // #if YYDEBUG || 0 - - // Tables. - // YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing - // STATE-NUM. - static const short yypact_[]; - - // YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. - // Performed when YYTABLE does not specify something else to do. Zero - // means the default is an error. - static const signed char yydefact_[]; - - // YYPGOTO[NTERM-NUM]. - static const short yypgoto_[]; - - // YYDEFGOTO[NTERM-NUM]. - static const short yydefgoto_[]; - - // YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If - // positive, shift that token. If negative, reduce the rule whose - // number is the opposite. If YYTABLE_NINF, syntax error. - static const unsigned char yytable_[]; - - static const short yycheck_[]; - - // YYSTOS[STATE-NUM] -- The (internal number of the) accessing - // symbol of state STATE-NUM. - static const signed char yystos_[]; - - // YYR1[YYN] -- Symbol number of symbol that rule YYN derives. - static const signed char yyr1_[]; - - // YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. - static const signed char yyr2_[]; - -#if YYDEBUG - // YYRLINE[YYN] -- Source line where rule number YYN was defined. - static const short yyrline_[]; - /// Report on the debug stream that the rule \a r is going to be reduced. - virtual void yy_reduce_print_(int r) const; - /// Print the state stack on the debug stream. - virtual void yy_stack_print_() const; - - /// Debugging level. - int yydebug_; - /// Debug stream. - std::ostream* yycdebug_; - - /// \brief Display a symbol kind, value and location. - /// \param yyo The output stream. - /// \param yysym The symbol. - template - void yy_print_(std::ostream& yyo, const basic_symbol& yysym) const; -#endif - - /// \brief Reclaim the memory associated to a symbol. - /// \param yymsg Why this token is reclaimed. - /// If null, print nothing. - /// \param yysym The symbol. - template - void yy_destroy_(const char* yymsg, basic_symbol& yysym) const; - -private: - /// Type access provider for state based symbols. - struct by_state - { - /// Default constructor. - by_state() YY_NOEXCEPT; - - /// The symbol kind as needed by the constructor. - typedef state_type kind_type; - - /// Constructor. - by_state(kind_type s) YY_NOEXCEPT; - - /// Copy constructor. - by_state(const by_state& that) YY_NOEXCEPT; - - /// Record that this symbol is empty. - void clear() YY_NOEXCEPT; - - /// Steal the symbol kind from \a that. - void move(by_state& that); - - /// The symbol kind (corresponding to \a state). - /// \a symbol_kind::S_YYEMPTY when empty. - symbol_kind_type kind() const YY_NOEXCEPT; - - /// The state number used to denote an empty symbol. - /// We use the initial state, as it does not have a value. - enum - { - empty_state = 0 - }; - - /// The state. - /// \a empty when empty. - state_type state; - }; - - /// "Internal" symbol: element of the stack. - struct stack_symbol_type : basic_symbol - { - /// Superclass. - typedef basic_symbol super_type; - /// Construct an empty symbol. - stack_symbol_type(); - /// Move or copy construction. - stack_symbol_type(YY_RVREF(stack_symbol_type) that); - /// Steal the contents from \a sym to build this. - stack_symbol_type(state_type s, YY_MOVE_REF(symbol_type) sym); -#if YY_CPLUSPLUS < 201103L - /// Assignment, needed by push_back by some old implementations. - /// Moves the contents of that. - stack_symbol_type& operator=(stack_symbol_type& that); - - /// Assignment, needed by push_back by other implementations. - /// Needed by some other old implementations. - stack_symbol_type& operator=(const stack_symbol_type& that); -#endif - }; - - /// A stack with random access from its top. - template > - class stack - { - public: - // Hide our reversed order. - typedef typename S::iterator iterator; - typedef typename S::const_iterator const_iterator; - typedef typename S::size_type size_type; - typedef typename std::ptrdiff_t index_type; - - stack(size_type n = 200) - : seq_(n) - { - } - -#if 201103L <= YY_CPLUSPLUS - /// Non copyable. - stack(const stack&) = delete; - /// Non copyable. - stack& operator=(const stack&) = delete; -#endif - - /// Random access. - /// - /// Index 0 returns the topmost element. - const T& operator[](index_type i) const { return seq_[size_type(size() - 1 - i)]; } - - /// Random access. - /// - /// Index 0 returns the topmost element. - T& operator[](index_type i) { return seq_[size_type(size() - 1 - i)]; } - - /// Steal the contents of \a t. - /// - /// Close to move-semantics. - void push(YY_MOVE_REF(T) t) - { - seq_.push_back(T()); - operator[](0).move(t); - } - - /// Pop elements from the stack. - void pop(std::ptrdiff_t n = 1) YY_NOEXCEPT - { - for (; 0 < n; --n) - seq_.pop_back(); - } - - /// Pop all elements from the stack. - void clear() YY_NOEXCEPT { seq_.clear(); } - - /// Number of elements on the stack. - index_type size() const YY_NOEXCEPT { return index_type(seq_.size()); } - - /// Iterator on top of the stack (going downwards). - const_iterator begin() const YY_NOEXCEPT { return seq_.begin(); } - - /// Bottom of the stack. - const_iterator end() const YY_NOEXCEPT { return seq_.end(); } - - /// Present a slice of the top of a stack. - class slice - { - public: - slice(const stack& stack, index_type range) - : stack_(stack), - range_(range) - { - } - - const T& operator[](index_type i) const { return stack_[range_ - i]; } - - private: - const stack& stack_; - index_type range_; - }; - - private: -#if YY_CPLUSPLUS < 201103L - /// Non copyable. - stack(const stack&); - /// Non copyable. - stack& operator=(const stack&); -#endif - /// The wrapped container. - S seq_; - }; - - /// Stack type. - typedef stack stack_type; - - /// The stack. - stack_type yystack_; - - /// Push a new state on the stack. - /// \param m a debug message to display - /// if null, no trace is output. - /// \param sym the symbol - /// \warning the contents of \a s.value is stolen. - void yypush_(const char* m, YY_MOVE_REF(stack_symbol_type) sym); - - /// Push a new look ahead token on the state on the stack. - /// \param m a debug message to display - /// if null, no trace is output. - /// \param s the state - /// \param sym the symbol (for its value and location). - /// \warning the contents of \a sym.value is stolen. - void yypush_(const char* m, state_type s, YY_MOVE_REF(symbol_type) sym); - - /// Pop \a n symbols from the stack. - void yypop_(int n = 1); - - /// Constants. - enum - { - yylast_ = 164, ///< Last index in yytable_. - yynnts_ = 30, ///< Number of nonterminal symbols. - yyfinal_ = 4 ///< Termination state number. - }; - - // User arguments. - exptocas::scanner* scanner; -}; - -} // namespace exptocas - -// "%code provides" blocks. - -#if !defined(yyFlexLexer) && !defined(FlexLexerOnce) - #define yyFlexLexer exptocasFlexLexer - #include "FlexLexer.h" -#endif -namespace exptocas -{ -// To feed data back to bison, the yylex method needs yylval and -// yylloc parameters. Since the exptocasFlexLexer class is defined in the -// system header the signature of its yylex() method -// can not be changed anymore. This makes it necessary to derive a -// scanner class that provides a method with the desired signature: -class scanner : public exptocasFlexLexer -{ -public: - explicit scanner(std::istream* in = 0, std::ostream* out = 0); - - int lex(exptocas::parser::semantic_type* yylval); -}; -}; // namespace exptocas - -#endif // !YY_EXPTOCAS_EXPTOCASEXE_EXPTOCAS_TAB_HXX_INCLUDED diff --git a/src/ExpToCasExe/exptocas.yacc b/src/ExpToCasExe/exptocas.yacc deleted file mode 100644 index 1f703d6072..0000000000 --- a/src/ExpToCasExe/exptocas.yacc +++ /dev/null @@ -1,506 +0,0 @@ -/* - Copyright (c) 1999-2022 OPEN CASCADE SAS - - This file is part of Open CASCADE Technology software library. - - This library is free software; you can redistribute it and/or modify it under - the terms of the GNU Lesser General Public License version 2.1 as published - by the Free Software Foundation, with special exception defined in the file - OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT - distribution for complete text of the license and disclaimer of any warranty. - - Alternatively, this file may be used under the terms of Open CASCADE - commercial license or contractual agreement. -*/ - -%code top { - // Created: Thu Oct 28 12:21:16 1999 - // Author: Andrey BETENEV - // Copyright (c) 1999-2020 OPEN CASCADE SAS - // - // This file is part of Open CASCADE Technology software library. - // - // This library is free software; you can redistribute it and/or modify it under - // the terms of the GNU Lesser General Public License version 2.1 as published - // by the Free Software Foundation, with special exception defined in the file - // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT - // distribution for complete text of the license and disclaimer of any warranty. - // - // Alternatively, this file may be used under the terms of Open CASCADE - // commercial license or contractual agreement. - - /***************************************************************************** - - This YACC parser implements parsing algorithm for EXPRESS -> CASCADE/XSTEP - classes generator - - Input in the form of tokens is obtained from lexical analyser. Then, data - structure representing schema is created on the basis of grammar analysis. - - NOTE: The grammar currently implemented is not full. - FUNCTION, RULE and CONSTANT items, WHERE, INVERSE and DERIVE clauses - of TYPE and ENTITY items are not considered (ignored on the level of lexical - scanner). - SUPERTYPE and UNIQUE clauses of ENTITY item are recognized but ignored. - Also, complex constructs such as using call to function in dimensions of - complex time or redefinition of inherited field are ignored. - - *****************************************************************************/ -} - -%language "C++" -%require "3.2" -%parse-param {exptocas::scanner* scanner} - -%code requires { -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -namespace exptocas { - class scanner; -}; -#ifdef _MSC_VER -// disable MSVC warning C4522: 'exptocas::parser::stack_symbol_type': multiple assignment operators -#pragma warning(disable: 4522) -#endif -} - -%code { -#undef yylex -#define yylex scanner->lex -// disable MSVC warnings in bison code -#ifdef _MSC_VER -#pragma warning(disable:4244 4800) -#endif - -/************************************************/ -/* ERROR MESSAGE FUNCTION */ - -/* external functions (from exptocas.l) */ -int ec_error ( const std::string& s, const std::string& text ); -int ec_curline ( void ); - -//int yyerror ( char *s ) -//{ -// printf ( "\nParse error at line %d: %s\n", ec_curline(), s ); -// return 0; -//} - -/************************************************/ -/* FUNCTIONS FOR CREATING SCHEMA REPRESENTATION */ - -static Express_Schema *mkschema ( char *name, Express_HSequenceOfItem *ilist ); -static Express_HSequenceOfItem *mkilist ( Express_Item *item, Express_HSequenceOfItem *seq ); -static Express_Item *mkenum ( char *name, TColStd_HSequenceOfHAsciiString *tlist ); -static Express_Item *mkselect ( char *name, TColStd_HSequenceOfHAsciiString *tlist ); -static Express_Item *mkalias ( char *name, Express_Type *type ); -static Express_Item *mkentity ( char *name, TColStd_HSequenceOfHAsciiString *inherit, - Express_HSequenceOfField *field, int isabstract ); -static Express_Reference *mkrefs ( char *name, TColStd_HSequenceOfHAsciiString *items); -static TColStd_HSequenceOfHAsciiString *mktlist ( char *name, TColStd_HSequenceOfHAsciiString *tlist ); -static TColStd_HSequenceOfHAsciiString *mktlists ( TColStd_HSequenceOfHAsciiString *tlist1, TColStd_HSequenceOfHAsciiString *tlist2 ); -static Express_Type *mktstd ( int keyword ); -static Express_Type *mktname ( char *name ); -static Express_Type *mktset ( int keyword, int ilow, int ihigh, Express_Type *of ); -static Express_Field *mkfield ( char *name, Express_Type *type, int optional ); -static Express_HSequenceOfField *mkflist ( Express_Field *field, Express_HSequenceOfField *seq ); -} - -%code provides { -#if !defined(yyFlexLexer) && !defined(FlexLexerOnce) -#define yyFlexLexer exptocasFlexLexer -#include "FlexLexer.h" -#endif -namespace exptocas { - // To feed data back to bison, the yylex method needs yylval and - // yylloc parameters. Since the exptocasFlexLexer class is defined in the - // system header the signature of its yylex() method - // can not be changed anymore. This makes it necessary to derive a - // scanner class that provides a method with the desired signature: - class scanner : public exptocasFlexLexer - { - public: - explicit scanner(std::istream* in = 0, std::ostream* out = 0); - - int lex(exptocas::parser::semantic_type* yylval); - }; -}; -} - -/* Definition of possible types of expressions */ -%union { - int num; - char *str; - TColStd_HSequenceOfHAsciiString *tlist; - Express_HSequenceOfField *flist; - Express_HSequenceOfItem *ilist; - Express_Field *field; - Express_Item *item; - Express_Type *type; - Express_Schema *schema; - Express_Reference *ref; -} - -/* Definition of keywords */ - -%token KSCHEM /* SCHEMA keyword */ -%token KENDS /* END_SCHEMA keyword */ -%token KTYP /* TYPE keyword */ -%token KENDT /* END_TYPE keyword */ -%token KENT /* ENTITY keyword */ -%token KENDE /* END_ENTITY keyword */ -%token KREF /* REFERENCE keyword */ -%token KFROM /* FROM keyword */ - -%token KSEL /* SELECT keyword */ -%token KENUM /* ENUMERATION keyword */ -%token KLIST /* LIST keyword */ -%token KARR /* ARRAY keyword */ -%token KBAG /* BAG keyword */ -%token KSET /* SET keyword */ -%token KOF /* OF keyword */ - -%token KNUM /* NUMBER keyword */ -%token KINT /* INTEGER keyword */ -%token KDBL /* REAL keyword */ -%token KSTR /* STRING keyword */ -%token KLOG /* LOGICAL keyword */ -%token KBOOL /* BOOLEAN keyword */ - -%token KOPT /* OPTIONAL keyword */ -%token KUNIQ /* UNIQUE keyword */ -%token KSELF /* SELF keyword */ - -%token KABSTR /* ABSTRACT keyword */ -%token KSUBT /* SUBTYPE keyword */ -%token KSPRT /* SUPERTYPE keyword */ -%left KANDOR /* ANDOR keyword (%left is for eliminating shift/reduce conflict on SUPLST) */ -%left K1OF /* ONEOF keyword */ -%token KAND /* AND keyword */ - -%token NUMBER /* integer value */ -%token NAME /* name of type or entity */ - -%left ',' /* to eliminate shift/reduce conflict in SUPERTYPE */ - - /* Definition of expressions and their types */ - -%type INDEX OPTNL OPTUNI SUPERT SUPLST REDEF SPCLST -%type TLIST TLIST1 UNIQIT UNIQLS UNIQUE SUBT SPECIF -%type TYPE TSTD TNAME TSET -%type ENUM SELECT ALIAS ENTITY ITEM -%type ILIST -%type FIELD -%type FLIST FLIST1 -%type SCHEMA -%type REFERENCE - -%% - - /************************************************/ - /* Definition of parsing rules (expressions) */ - /************************************************/ - -SCHEMA: KSCHEM NAME ';' ILIST KENDS ';' { $$ = mkschema ( $2, $4 ); /* Root: EXPRESS schema */ } - ; -ILIST : ITEM { $$ = mkilist ( $1, 0 ); /* list of items for schema */ } - | ITEM ILIST { $$ = mkilist ( $1, $2 ); } - ; - -ITEM : ENUM - | SELECT - | ALIAS - | REFERENCE - | ENTITY { $$ = $1; /* item of schema (type definition) */ } - ; -ENUM : KTYP NAME '=' KENUM KOF TLIST1 ';' KENDT ';' { $$ = mkenum ( $2, $6 ); /* TYPE ENUMERATION definition */ } - ; -SELECT: KTYP NAME '=' KSEL TLIST1 ';' KENDT ';' { $$ = mkselect ( $2, $5 ); /* TYPE SELECT definition */ } - ; -ALIAS : KTYP NAME '=' TYPE ';' KENDT ';' { $$ = mkalias ( $2, $4 ); /* TYPE '=' definition (alias) */ } - ; -ENTITY: KENT NAME SUPERT SUBT ';' FLIST1 UNIQUE KENDE ';' { $$ = mkentity ( $2, $4, $6, 0 ); /* ENTITY definition */ } - | KENT NAME KABSTR SUPERT SUBT ';' FLIST1 UNIQUE KENDE ';' { $$ = mkentity ( $2, $5, $7, 1 ); /* ENTITY definition */ } - ; - -REFERENCE: KREF KFROM NAME TLIST1 ';' { $$ = mkrefs ( $3, $4 ); /* REFERENCE FROM definition */ } - ; - -TLIST : NAME { $$ = mktlist ( $1, 0 ); /* list of (type) names */ } - | NAME ',' TLIST { $$ = mktlist ( $1, $3 ); } - ; -TLIST1: '(' TLIST ')' { $$ = $2; /* TLIST in brackets */ } - ; - -TYPE : TSTD - | TNAME - | TSET { $$ = $1; /* type, simple or complex */ } - ; -TSTD : KINT { $$ = mktstd ( $1 ); /* predefined type: INTEGER */ } - | KNUM { $$ = mktstd ( $1 ); /* predefined type: NUMBER */ } - | KDBL { $$ = mktstd ( $1 ); /* predefined type: REAL */ } - | KSTR { $$ = mktstd ( $1 ); /* predefined type: STRING */ } - | KLOG { $$ = mktstd ( $1 ); /* predefined type: LOGICAL */ } - | KBOOL { $$ = mktstd ( $1 ); /* predefined type: BOOLEAN */ } - ; -TNAME : NAME { $$ = mktname ( $1 ); /* named type */ } - ; -TSET : KLIST '[' INDEX ':' INDEX ']' KOF OPTUNI TYPE { $$ = mktset ( $1, $3, $5, $9 ); /* complex type: LIST */ } - | KARR '[' INDEX ':' INDEX ']' KOF OPTUNI TYPE { $$ = mktset ( $1, $3, $5, $9 ); /* complex type: ARRAY */ } - | KSET '[' INDEX ':' INDEX ']' KOF OPTUNI TYPE { $$ = mktset ( $1, $3, $5, $9 ); /* complex type: SET */ } - | KBAG '[' INDEX ':' INDEX ']' KOF OPTUNI TYPE { $$ = mktset ( $1, $3, $5, $9 ); /* complex type: BAG */ } - ; -INDEX : NUMBER { $$ = $1; /* index for array, set, bag, list range */ } - | '?' { $$ = -1; /* undefined */ } - | NAME '(' NAME ')' {$$ = -1; printf ( "Warning at line %d: index function %s(%s) ignored\n", ec_curline(), $1, $3 ); /* some function.. */ } - ; -OPTUNI: /* empty */ { $$ = 0; /* UNIQUE keyword for complex type definition */ } - | KUNIQ { $$ = 1; } - ; - -SUBT : /* empty */ { $$ = NULL; /* no subtype clause */ } - | KSUBT KOF TLIST1 { $$ = $3; /* subtype clause */ } - ; -SUPERT: /* empty */ { $$ = 0; /* no supertype clause */ } - | KSPRT { $$ = 0; /* supertype clause (ignored) */ } - | KSPRT KOF SUPLST { $$ = 0; /* supertype clause (ignored) */ } - ; -SUPLST: NAME { $$ = 0; /* simple list of supertypes */ } - | '(' SUPLST ')' { $$ = 0; /* allow bracketing */ } - | NAME ',' SUPLST { $$ = 0; /* ... */ } - | K1OF SUPLST { $$ = 0; /* ONEOF construct */ } - | SUPLST KANDOR SUPLST { $$ = 0; /* ANDOR construct */ } - ; - -FLIST : FIELD { $$ = mkflist ( $1, 0 ); /* list of fields of ENTITY item */ } - | FIELD FLIST { $$ = mkflist ( $1, $2 ); } - | REDEF { $$ = 0; /* redefinition of inherited field, just skip */ } - | REDEF FLIST { $$ = $2; /* ignore redefinition of inherited field, take trailing list */ } - ; -FLIST1: /* empty */ { $$ = NULL; /* empty list of fields */ } - | FLIST { $$ = $1; /* or not empty.. just to fix reduce/reduce conflict */ } - ; -FIELD : NAME ':' OPTNL TYPE ';' { $$ = mkfield ( $1, $4, $3 ); } - ; -REDEF : KSELF '\\' SPECIF ':' TYPE ';' { $$ = 0; printf ( "Warning at line %d: field redefinition ignored\n", ec_curline() ); /* redefinition of inherited field */ } - ; -SPECIF: NAME { $$ = mktlist ( $1, 0 ); /* inherited field specification */ } - | NAME '.' SPECIF { $$ = mktlist ( $1, $3 ); } - ; - -OPTNL : /* empty */ { $$ = 0; } - | KOPT { $$ = 1; } - ; - -UNIQIT: NAME ':' TLIST ';' { $$ = $3; /* UNIQUE statement */ } - | NAME ':' SPCLST ';' { $$ = NULL; /* UNIQUE statement */ } - ; -UNIQLS: UNIQIT { $$ = NULL; /* list of 1 UNIQUE statements */ } - | UNIQIT UNIQLS { $$ = mktlists ( $1, $2 );/* list of UNIQUE statements */ } - ; -UNIQUE: /* empty */ { $$ = NULL; /* no UNIQUE clause in ENTITY */ } - | KUNIQ UNIQLS { $$ = $2; /* UNIQUE clause in ENTITY */ } - ; -SPCLST: KSELF '\\' SPECIF { $$ = 0; /* list of specifications */ } - | KSELF '\\' SPECIF ',' SPCLST { $$ = 0; } - | NAME ',' SPCLST { $$ = 0; } - ; - -%% - -/************************************************/ -/* FUNCTIONS FOR CREATING SCHEMA REPRESENTATION */ - -static Express_Schema *mkschema ( char *name, Express_HSequenceOfItem *ilist ) -{ - Express_Schema *sch = new Express_Schema ( name, ilist ); - Express::Schema() = sch; - return sch; -} - -static Express_HSequenceOfItem *mkilist ( Express_Item *item, Express_HSequenceOfItem *seq ) -{ - if ( ! seq ) { - seq = new Express_HSequenceOfItem; - seq->Append ( item ); - } - else seq->Prepend ( item ); - return seq; -} - -static Express_Item *mkenum ( char *name, TColStd_HSequenceOfHAsciiString *tlist ) -{ - return new Express_Enum ( name, tlist ); -} - -static Express_Item *mkselect ( char *name, TColStd_HSequenceOfHAsciiString *tlist ) -{ - return new Express_Select ( name, tlist ); -} - -static Express_Item *mkalias ( char *name, Express_Type *type ) -{ - return new Express_Alias ( name, type ); -} - -static Express_Item *mkentity ( char *name, TColStd_HSequenceOfHAsciiString *inherit, - Express_HSequenceOfField *field, int isabstract ) -{ - Express_Entity *ent = new Express_Entity ( name, inherit, field ); - if ( isabstract ) ent->SetAbstractFlag ( Standard_True ); - return ent; -} - -static Express_Reference *mkrefs ( char *name, TColStd_HSequenceOfHAsciiString *items) -{ - return new Express_Reference ( name, items ); -} - -static TColStd_HSequenceOfHAsciiString *mktlist ( char *name, TColStd_HSequenceOfHAsciiString *tlist ) -{ - Handle(TCollection_HAsciiString) str = new TCollection_HAsciiString ( name ); - if ( tlist ) tlist->Prepend ( str ); - else { - tlist = new TColStd_HSequenceOfHAsciiString; - tlist->Append ( str ); - } - return tlist; -} - -static TColStd_HSequenceOfHAsciiString *mktlists ( TColStd_HSequenceOfHAsciiString *tlist1, - TColStd_HSequenceOfHAsciiString *tlist2 ) -{ - if ( ! tlist1 ) return tlist2; - if ( ! tlist2 ) return tlist1; - for ( int i=1; i <= tlist2->Length(); i++ ) - tlist1->Append ( tlist2->Value(i) ); - return tlist1; -} - -static Express_Type *mktstd ( int keyword ) -{ - switch ( keyword ) { - case exptocas::parser::token::KINT : return new Express_Integer; - case exptocas::parser::token::KNUM : return new Express_Number; - case exptocas::parser::token::KDBL : return new Express_Real; - case exptocas::parser::token::KSTR : return new Express_String; - case exptocas::parser::token::KBOOL: return new Express_Boolean; - case exptocas::parser::token::KLOG : return new Express_Logical; - default : ec_error ( "Predefined type not treated!", "" ); - return NULL; - } -} - -static Express_Type *mktname ( char *name ) -{ - return new Express_NamedType ( name ); -} - -static Express_Type *mktset ( int keyword, int ilow, int ihigh, Express_Type *of ) -{ - switch ( keyword ) { - case exptocas::parser::token::KLIST: return new Express_List ( ilow, ihigh, of ); - case exptocas::parser::token::KARR : return new Express_Array ( ilow, ihigh, of ); - case exptocas::parser::token::KBAG : return new Express_Bag ( ilow, ihigh, of ); - case exptocas::parser::token::KSET : return new Express_Set ( ilow, ihigh, of ); - default : ec_error ( "Complex type not treated!", "" ); - return NULL; - } -} - -static Express_Field *mkfield ( char *name, Express_Type *type, int optional ) -{ - return new Express_Field ( name, type, optional ); -} - -static Express_HSequenceOfField *mkflist ( Express_Field *field, Express_HSequenceOfField *seq ) -{ - if ( seq ) seq->Prepend ( field ); - else { - seq = new Express_HSequenceOfField; - seq->Append ( field ); - } - return seq; -} - -/*******************************************************************/ -/* MAIN & co */ - -/* -void tlistfree ( struct tlist *list ) -{ - if ( ! list ) return; - tlistfree ( list->next ); - list->next = 0; - free ( list->str ); - list->str = 0; -} -* / - -int printtlist ( struct ec_tlist *tl ) -{ - int num=0; - while ( tl ) { - num++; - printf ( "%s\n", tl->name ); - tl = tl->next; - } - return num; -} - -int main ( void ) -{ - int num = 0; - yyparse(); - - printf ( "\nFinished\n" ); - if ( schema ) { - struct ec_item *it; - it = schema->items; - printf ( "\nSchema %s", schema->name ); - printf ( "\nItems:" ); - while ( it ) { - num++; - printf ( "\n%s", it->name ); - it = it->next; - } -// num = printtlist ( res ); - printf ( "\nTotal %d", num ); - } - -// tlistfree ( yylval.tlist ); - return num; -} -*/ - -void exptocas::parser::error(const std::string& s) -{ - printf("\nParse error at line %d: %s\n", scanner->lineno(), s.c_str()); -} - diff --git a/src/ExpToCasExe/lex.exptocas.cxx b/src/ExpToCasExe/lex.exptocas.cxx deleted file mode 100644 index dc9f6b6b23..0000000000 --- a/src/ExpToCasExe/lex.exptocas.cxx +++ /dev/null @@ -1,2100 +0,0 @@ -// Pre-include stdlib.h to avoid redefinition of integer type macros (INT8_MIN and similar in -// generated code) -#if !defined(_MSC_VER) || (_MSC_VER >= 1600) // Visual Studio 2010+ - #include "stdint.h" -#endif - -#define YY_INT_ALIGNED short int - -/* A lexical scanner generated by flex */ - -#define FLEX_SCANNER -#define YY_FLEX_MAJOR_VERSION 2 -#define YY_FLEX_MINOR_VERSION 6 -#define YY_FLEX_SUBMINOR_VERSION 4 -#if YY_FLEX_SUBMINOR_VERSION > 0 - #define FLEX_BETA -#endif - -/* The c++ scanner is a mess. The FlexLexer.h header file relies on the - * following macro. This is required in order to pass the c++-multiple-scanners - * test in the regression suite. We get reports that it breaks inheritance. - * We will address this in a future release of flex, or omit the C++ scanner - * altogether. - */ -#define yyFlexLexer exptocasFlexLexer - -#ifdef yyalloc - #define exptocasalloc_ALREADY_DEFINED -#else - #define yyalloc exptocasalloc -#endif - -#ifdef yyrealloc - #define exptocasrealloc_ALREADY_DEFINED -#else - #define yyrealloc exptocasrealloc -#endif - -#ifdef yyfree - #define exptocasfree_ALREADY_DEFINED -#else - #define yyfree exptocasfree -#endif - -/* First, we deal with platform-specific or compiler-specific issues. */ - -/* begin standard C headers. */ - -/* end standard C headers. */ - -/* flex integer type definitions */ - -#ifndef FLEXINT_H - #define FLEXINT_H - -/* C99 systems have . Non-C99 systems may or may not. */ - - #if defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L - - /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h, - * if you want the limit (max/min) macros for int types. - */ - #ifndef __STDC_LIMIT_MACROS - #define __STDC_LIMIT_MACROS 1 - #endif - - #include -typedef int8_t flex_int8_t; -typedef uint8_t flex_uint8_t; -typedef int16_t flex_int16_t; -typedef uint16_t flex_uint16_t; -typedef int32_t flex_int32_t; -typedef uint32_t flex_uint32_t; - #else -typedef signed char flex_int8_t; -typedef short int flex_int16_t; -typedef int flex_int32_t; -typedef unsigned char flex_uint8_t; -typedef unsigned short int flex_uint16_t; -typedef unsigned int flex_uint32_t; - - /* Limits of integral types. */ - #ifndef INT8_MIN - #define INT8_MIN (-128) - #endif - #ifndef INT16_MIN - #define INT16_MIN (-32767 - 1) - #endif - #ifndef INT32_MIN - #define INT32_MIN (-2147483647 - 1) - #endif - #ifndef INT8_MAX - #define INT8_MAX (127) - #endif - #ifndef INT16_MAX - #define INT16_MAX (32767) - #endif - #ifndef INT32_MAX - #define INT32_MAX (2147483647) - #endif - #ifndef UINT8_MAX - #define UINT8_MAX (255U) - #endif - #ifndef UINT16_MAX - #define UINT16_MAX (65535U) - #endif - #ifndef UINT32_MAX - #define UINT32_MAX (4294967295U) - #endif - - #ifndef SIZE_MAX - #define SIZE_MAX (~(size_t)0) - #endif - - #endif /* ! C99 */ - -#endif /* ! FLEXINT_H */ - -/* begin standard C++ headers. */ -#include -#include -#include -#include -#include -/* end standard C++ headers. */ - -/* TODO: this is always defined, so inline it */ -#define yyconst const - -#if defined(__GNUC__) && __GNUC__ >= 3 - #define yynoreturn __attribute__((__noreturn__)) -#else - #define yynoreturn -#endif - -/* Returned upon end-of-file. */ -#define YY_NULL 0 - -/* Promotes a possibly negative, possibly signed char to an - * integer in range [0..255] for use as an array index. - */ -#define YY_SC_TO_UI(c) ((YY_CHAR)(c)) - -/* Enter a start condition. This macro really ought to take a parameter, - * but we do it the disgusting crufty way forced on us by the ()-less - * definition of BEGIN. - */ -#define BEGIN (yy_start) = 1 + 2 * -/* Translate the current start state into a value that can be later handed - * to BEGIN to return to the state. The YYSTATE alias is for lex - * compatibility. - */ -#define YY_START (((yy_start) - 1) / 2) -#define YYSTATE YY_START -/* Action number for EOF rule of a given start state. */ -#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) -/* Special action meaning "start processing a new file". */ -#define YY_NEW_FILE yyrestart(yyin) -#define YY_END_OF_BUFFER_CHAR 0 - -/* Size of default input buffer. */ -#ifndef YY_BUF_SIZE - #ifdef __ia64__ - /* On IA-64, the buffer size is 16k, not 8k. - * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case. - * Ditto for the __ia64__ case accordingly. - */ - #define YY_BUF_SIZE 32768 - #else - #define YY_BUF_SIZE 16384 - #endif /* __ia64__ */ -#endif - -/* The state buf must be large enough to hold one state per character in the main buffer. - */ -#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type)) - -#ifndef YY_TYPEDEF_YY_BUFFER_STATE - #define YY_TYPEDEF_YY_BUFFER_STATE -typedef struct yy_buffer_state* YY_BUFFER_STATE; -#endif - -#ifndef YY_TYPEDEF_YY_SIZE_T - #define YY_TYPEDEF_YY_SIZE_T -typedef size_t yy_size_t; -#endif - -extern int yyleng; - -#define EOB_ACT_CONTINUE_SCAN 0 -#define EOB_ACT_END_OF_FILE 1 -#define EOB_ACT_LAST_MATCH 2 - -#define YY_LESS_LINENO(n) -#define YY_LINENO_REWIND_TO(ptr) - -/* Return all but the first "n" matched characters back to the input stream. */ -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg); \ - *yy_cp = (yy_hold_char); \ - YY_RESTORE_YY_MORE_OFFSET(yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \ - YY_DO_BEFORE_ACTION; /* set up yytext again */ \ - } while (0) -#define unput(c) yyunput(c, (yytext_ptr)) - -#ifndef YY_STRUCT_YY_BUFFER_STATE - #define YY_STRUCT_YY_BUFFER_STATE - -struct yy_buffer_state -{ - - std::streambuf* yy_input_file; - - char* yy_ch_buf; /* input buffer */ - char* yy_buf_pos; /* current position in input buffer */ - - /* Size of input buffer in bytes, not including room for EOB - * characters. - */ - int yy_buf_size; - - /* Number of characters read into yy_ch_buf, not including EOB - * characters. - */ - int yy_n_chars; - - /* Whether we "own" the buffer - i.e., we know we created it, - * and can realloc() it to grow it, and should free() it to - * delete it. - */ - int yy_is_our_buffer; - - /* Whether this is an "interactive" input source; if so, and - * if we're using stdio for input, then we want to use getc() - * instead of fread(), to make sure we stop fetching input after - * each newline. - */ - int yy_is_interactive; - - /* Whether we're considered to be at the beginning of a line. - * If so, '^' rules will be active on the next match, otherwise - * not. - */ - int yy_at_bol; - - int yy_bs_lineno; /**< The line count. */ - int yy_bs_column; /**< The column count. */ - - /* Whether to try to fill the input buffer when we reach the - * end of it. - */ - int yy_fill_buffer; - - int yy_buffer_status; - - #define YY_BUFFER_NEW 0 - #define YY_BUFFER_NORMAL 1 - /* When an EOF's been seen but there's still some text to process - * then we mark the buffer as YY_EOF_PENDING, to indicate that we - * shouldn't try reading from the input source any more. We might - * still have a bunch of tokens to match, though, because of - * possible backing-up. - * - * When we actually see the EOF, we change the status to "new" - * (via yyrestart()), so that the user can continue scanning by - * just pointing yyin at a new input file. - */ - #define YY_BUFFER_EOF_PENDING 2 -}; -#endif /* !YY_STRUCT_YY_BUFFER_STATE */ - -/* We provide macros for accessing buffer states in case in the - * future we want to put the buffer states in a more general - * "scanner state". - * - * Returns the top of the stack, or NULL. - */ -#define YY_CURRENT_BUFFER ((yy_buffer_stack) ? (yy_buffer_stack)[(yy_buffer_stack_top)] : NULL) -/* Same as previous macro, but useful when we know that the buffer stack is not - * NULL or when we need an lvalue. For internal use only. - */ -#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)] - -void* yyalloc(yy_size_t); -void* yyrealloc(void*, yy_size_t); -void yyfree(void*); - -#define yy_new_buffer yy_create_buffer -#define yy_set_interactive(is_interactive) \ - { \ - if (!YY_CURRENT_BUFFER) \ - { \ - yyensure_buffer_stack(); \ - YY_CURRENT_BUFFER_LVALUE = yy_create_buffer(yyin, YY_BUF_SIZE); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \ - } -#define yy_set_bol(at_bol) \ - { \ - if (!YY_CURRENT_BUFFER) \ - { \ - yyensure_buffer_stack(); \ - YY_CURRENT_BUFFER_LVALUE = yy_create_buffer(yyin, YY_BUF_SIZE); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \ - } -#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol) - -/* Begin user sect3 */ -#define YY_SKIP_YYWRAP -typedef flex_uint8_t YY_CHAR; - -#define yytext_ptr yytext -#define YY_INTERACTIVE - -#include - -inline int yyFlexLexer::yywrap() -{ - return 1; -} - -int yyFlexLexer::yylex() -{ - LexerError("yyFlexLexer::yylex invoked but %option yyclass used"); - return 0; -} - -#define YY_DECL int exptocas::scanner::yylex() - -/* Done after the current pattern has been matched and before the - * corresponding action - sets up yytext. - */ -#define YY_DO_BEFORE_ACTION \ - (yytext_ptr) = yy_bp; \ - yyleng = (int)(yy_cp - yy_bp); \ - (yy_hold_char) = *yy_cp; \ - *yy_cp = '\0'; \ - (yy_c_buf_p) = yy_cp; -#define YY_NUM_RULES 56 -#define YY_END_OF_BUFFER 57 - -/* This struct is not used in this scanner, - but its presence is necessary. */ -struct yy_trans_info -{ - flex_int32_t yy_verify; - flex_int32_t yy_nxt; -}; - -static const flex_int16_t yy_accept[306] = { - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 44, 44, 57, 54, 52, 55, 40, 40, - 54, 39, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 38, 53, 53, 53, 53, - 53, 3, 3, 14, 14, 49, 49, 46, 46, 46, 46, 44, 44, 44, 52, 2, 1, 39, 53, 53, 53, - 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 21, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, - 53, 38, 53, 53, 53, 53, 53, 4, 0, 0, 0, 45, 42, 43, 44, 44, 44, - - 1, 53, 36, 53, 20, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, 53, - 19, 53, 53, 53, 53, 53, 37, 53, 53, 53, 53, 53, 0, 0, 43, 44, 44, 53, 53, 53, 53, - 53, 53, 53, 53, 53, 53, 17, 53, 53, 53, 53, 24, 48, 53, 53, 30, 53, 53, 53, 7, 53, - 53, 53, 53, 53, 53, 0, 0, 44, 44, 53, 34, 18, 53, 53, 53, 53, 53, 53, 53, 53, 53, - 35, 53, 53, 53, 53, 53, 53, 53, 53, 13, 53, 53, 53, 0, 0, 0, - - 44, 44, 53, 53, 53, 53, 9, 53, 53, 53, 53, 22, 53, 5, 15, 25, 53, 53, 29, 53, 12, - 53, 53, 0, 0, 0, 44, 44, 53, 27, 53, 53, 53, 53, 23, 26, 53, 32, 53, 53, 53, 11, - 0, 0, 0, 44, 44, 31, 53, 53, 53, 41, 28, 53, 8, 53, 0, 8, 0, 44, 41, 0, 53, - 53, 53, 33, 53, 0, 50, 44, 0, 53, 6, 53, 10, 10, 44, 0, 53, 16, 44, 0, 53, 44, - 0, 53, 47, 0, 53, 0, 53, 0, 53, 0, 53, 0, 53, 0, 53, 0, - - 53, 0, 53, 51, 0}; - -static const YY_CHAR yy_ec[256] = { - 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 4, 5, 6, - 7, 1, 8, 9, 8, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 11, 12, 1, 11, 1, - 8, 1, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 22, 23, 24, 25, 26, 27, 28, 29, 30, - 31, 32, 33, 34, 22, 35, 22, 36, 8, 37, 1, 38, 1, 39, 39, 39, 39, - - 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, - 39, 1, 40, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}; - -static const YY_CHAR yy_meta[41] = {0, 1, 2, 3, 2, 2, 2, 1, 1, 2, 4, 2, 2, 5, 5, 5, 5, 4, 5, 5, 5, - 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1, 1, 4, 4, 2}; - -static const flex_int16_t yy_base[316] = { - 0, 0, 0, 24, 26, 29, 35, 52, 54, 45, 51, 61, 62, 79, 119, 412, 413, - 409, 413, 403, 413, 400, 398, 75, 79, 381, 0, 381, 373, 379, 45, 371, 49, 76, - 86, 367, 48, 60, 376, 380, 382, 373, 372, 413, 390, 413, 370, 413, 369, 413, 389, - 385, 382, 0, 365, 357, 386, 413, 0, 377, 0, 356, 369, 355, 364, 356, 356, 78, - 355, 348, 348, 358, 352, 0, 358, 343, 360, 349, 351, 83, 341, 115, 342, 347, 357, - 101, 116, 349, 336, 118, 102, 413, 348, 347, 358, 413, 413, 0, 0, 345, 335, - - 0, 328, 332, 344, 0, 333, 325, 316, 332, 328, 336, 333, 318, 327, 333, 320, 324, - 321, 326, 325, 95, 0, 320, 309, 322, 321, 309, 326, 297, 305, 312, 294, 314, 292, - 291, 0, 290, 312, 297, 296, 289, 306, 291, 291, 289, 302, 287, 298, 0, 301, 298, - 296, 287, 0, 0, 288, 296, 0, 285, 274, 279, 0, 275, 113, 289, 272, 121, 275, - 129, 274, 284, 270, 287, 0, 0, 286, 285, 282, 261, 266, 273, 276, 279, 262, 0, - 265, 276, 257, 268, 259, 254, 267, 248, 0, 265, 256, 250, 254, 243, 245, - - 244, 254, 259, 248, 247, 251, 0, 257, 243, 239, 244, 0, 253, 0, 0, 0, 248, - 229, 0, 236, 0, 231, 244, 229, 232, 235, 232, 230, 224, 0, 223, 236, 221, 226, - 0, 0, 227, 0, 222, 231, 226, 0, 225, 228, 227, 228, 217, 0, 159, 212, 210, - 0, 0, 179, 0, 164, 163, 413, 181, 161, 0, 174, 173, 176, 162, 0, 152, 151, - 413, 164, 159, 158, 0, 157, 0, 413, 155, 164, 163, 0, 153, 139, 138, 163, 159, - 158, 413, 146, 141, 141, 133, 127, 124, 122, 121, 132, 128, 82, 77, 64, - - 44, 60, 37, 413, 413, 199, 204, 209, 214, 216, 221, 223, 228, 233, 237}; - -static const flex_int16_t yy_def[316] = { - 0, 305, 1, 1, 1, 1, 1, 306, 306, 307, 307, 308, 308, 309, 309, 305, 305, - 305, 305, 305, 305, 305, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, - 310, 310, 310, 310, 310, 310, 310, 310, 310, 305, 305, 305, 305, 305, 305, 305, 311, - 305, 305, 312, 312, 312, 305, 305, 313, 310, 310, 310, 310, 310, 310, 310, 310, 310, - 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, - 310, 310, 310, 310, 310, 310, 305, 305, 305, 311, 305, 305, 314, 312, 312, 312, - - 313, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, - 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 305, - 305, 314, 312, 312, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, - 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, - 305, 305, 312, 312, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, - 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 305, 305, 305, - - 312, 312, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, - 310, 310, 310, 310, 310, 310, 305, 305, 305, 312, 312, 310, 310, 310, 310, 310, 310, - 310, 310, 310, 310, 310, 310, 310, 310, 305, 305, 305, 312, 312, 310, 310, 310, 310, - 310, 310, 310, 310, 310, 305, 305, 305, 312, 312, 315, 249, 310, 310, 310, 310, 305, - 305, 312, 305, 310, 310, 310, 310, 305, 312, 305, 310, 310, 312, 305, 310, 312, 305, - 310, 305, 305, 310, 305, 310, 305, 310, 305, 310, 305, 310, 305, 310, 305, - - 310, 305, 310, 305, 0, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305}; - -static const flex_int16_t yy_nxt[454] = { - 0, 16, 17, 18, 16, 19, 20, 16, 20, 21, 22, 20, 20, 23, 24, 25, 26, 27, - 28, 26, 26, 29, 26, 30, 26, 31, 32, 26, 26, 33, 34, 35, 36, 26, 26, 26, - 20, 20, 37, 37, 16, 38, 26, 38, 26, 40, 41, 26, 18, 304, 42, 40, 41, 26, - 18, 18, 42, 18, 39, 44, 39, 44, 46, 39, 18, 18, 70, 73, 46, 39, 85, 71, - 304, 83, 74, 303, 75, 84, 48, 48, 49, 49, 18, 50, 51, 49, 49, 49, 52, 61, - 49, 49, 64, 76, 108, 302, 54, 55, 85, 85, 62, - - 78, 301, 79, 63, 65, 121, 300, 77, 109, 110, 85, 157, 158, 122, 49, 49, 80, 81, - 49, 49, 49, 18, 50, 51, 49, 49, 49, 52, 124, 49, 49, 129, 112, 132, 133, 54, - 55, 196, 85, 85, 299, 125, 178, 193, 298, 198, 109, 110, 109, 110, 178, 297, 296, 295, - 49, 49, 294, 293, 49, 199, 262, 262, 262, 262, 262, 292, 291, 262, 263, 262, 262, 290, - 289, 288, 287, 286, 285, 284, 283, 282, 281, 280, 279, 278, 277, 276, 275, 274, 273, 272, - 271, 270, 269, 268, 267, 266, 263, 263, 262, 43, - - 43, 43, 43, 43, 45, 45, 45, 45, 45, 47, 47, 47, 47, 47, 53, 53, 53, 53, - 53, 60, 60, 94, 94, 94, 94, 94, 98, 98, 101, 101, 265, 101, 101, 136, 136, 264, - 136, 136, 262, 262, 262, 261, 260, 259, 258, 257, 256, 255, 254, 253, 252, 251, 250, 249, - 248, 247, 246, 245, 244, 243, 242, 241, 240, 239, 238, 237, 236, 235, 234, 233, 232, 231, - 230, 229, 228, 227, 226, 225, 224, 223, 222, 221, 220, 219, 218, 217, 216, 215, 214, 213, - 212, 211, 210, 209, 208, 207, 206, 205, 204, 203, - - 202, 201, 200, 197, 195, 194, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, - 180, 179, 178, 177, 176, 175, 174, 173, 172, 171, 170, 169, 168, 167, 166, 165, 164, 128, - 163, 162, 161, 160, 159, 156, 155, 154, 153, 152, 151, 150, 149, 148, 147, 146, 145, 144, - 143, 142, 141, 140, 139, 138, 137, 95, 135, 134, 131, 130, 128, 127, 126, 123, 120, 119, - 118, 117, 116, 115, 114, 113, 112, 111, 107, 106, 105, 104, 103, 102, 59, 56, 100, 99, - 97, 96, 95, 93, 92, 91, 90, 89, 88, 87, - - 86, 82, 72, 69, 68, 67, 66, 59, 58, 57, 56, 305, 15, 305, 305, 305, 305, 305, - 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, - 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305}; - -static const flex_int16_t yy_chk[454] = { - 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 3, 3, 4, 4, 5, 5, 5, 9, 303, 5, 6, 6, 6, - 10, 7, 6, 8, 3, 7, 4, 8, 9, 5, 11, 12, 30, 32, 10, 6, 37, 30, - 302, 36, 32, 301, 32, 36, 11, 12, 13, 13, 13, 13, 13, 13, 13, 13, 13, 23, - 13, 13, 24, 33, 67, 300, 13, 13, 37, 37, 23, - - 34, 299, 34, 23, 24, 79, 298, 33, 67, 67, 85, 121, 121, 79, 13, 13, 34, 34, - 13, 14, 14, 14, 14, 14, 14, 14, 14, 14, 81, 14, 14, 86, 90, 89, 90, 14, - 14, 167, 85, 85, 297, 81, 164, 164, 296, 169, 86, 86, 89, 89, 167, 295, 294, 293, - 14, 14, 292, 291, 14, 169, 249, 249, 249, 249, 249, 290, 289, 249, 249, 249, 249, 288, - 286, 285, 284, 283, 282, 281, 279, 278, 277, 274, 272, 271, 270, 268, 267, 265, 264, 263, - 262, 260, 259, 257, 256, 254, 249, 249, 249, 306, - - 306, 306, 306, 306, 307, 307, 307, 307, 307, 308, 308, 308, 308, 308, 309, 309, 309, 309, - 309, 310, 310, 311, 311, 311, 311, 311, 312, 312, 313, 313, 251, 313, 313, 314, 314, 250, - 314, 314, 315, 315, 315, 247, 246, 245, 244, 243, 241, 240, 239, 237, 234, 233, 232, 231, - 229, 228, 227, 226, 225, 224, 223, 222, 220, 218, 217, 213, 211, 210, 209, 208, 206, 205, - 204, 203, 202, 201, 200, 199, 198, 197, 196, 195, 193, 192, 191, 190, 189, 188, 187, 186, - 184, 183, 182, 181, 180, 179, 178, 177, 176, 173, - - 172, 171, 170, 168, 166, 165, 163, 161, 160, 159, 157, 156, 153, 152, 151, 150, 148, 147, - 146, 145, 144, 143, 142, 141, 140, 139, 138, 137, 135, 134, 133, 132, 131, 130, 129, 128, - 127, 126, 125, 124, 123, 120, 119, 118, 117, 116, 115, 114, 113, 112, 111, 110, 109, 108, - 107, 106, 104, 103, 102, 100, 99, 94, 93, 92, 88, 87, 84, 83, 82, 80, 78, 77, - 76, 75, 74, 72, 71, 70, 69, 68, 66, 65, 64, 63, 62, 61, 59, 56, 55, 54, - 52, 51, 50, 48, 46, 44, 42, 41, 40, 39, - - 38, 35, 31, 29, 28, 27, 25, 22, 21, 19, 17, 15, 305, 305, 305, 305, 305, 305, - 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, - 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305, 305}; - -/* The intent behind this definition is that it'll catch - * any uses of REJECT which flex missed. - */ -#define REJECT reject_used_but_not_detected -#define yymore() yymore_used_but_not_detected -#define YY_MORE_ADJ 0 -#define YY_RESTORE_YY_MORE_OFFSET - -// Created: Thu Oct 28 12:21:16 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -/***************************************************************************** - -This LEX scanner is performs lexical analysis of EXPRESS schema file -for EXPRESS -> CASCADE/XSTEP classes generator - -On the stage of lexical scanner comments (single- and multi-line), -definitions of CONSTANT, FUNCTION, RULE items and clauses WHERE, INVERSE -and DERIVE of TYPE amd ENTITY items are dismissed (ignored) - -Then, keywords such as ENTITY, SUPERTYPE, SET etc., names of items -and special symbols are identified and returned to parser (yacc) as tokens - -Also, error processing and current line number tracking functions are defined - -*****************************************************************************/ - -/************************************/ -/* Section 1 */ -/* definitions */ - -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include - -#include "exptocas.tab.hxx" /* define tokens */ - -/* Auxiliary functions */ - -static int fun_level = 0; -static int ec_linenum = 1; -static int ec_state = 0; - -int yywrap(void) -{ - return 1; -} - -int ec_curline(void) -{ - return ec_linenum; -} - -int ec_error(const std::string& s, const std::string& text) -{ - printf("\nError at line %d: %s \"%s\"\n", ec_curline(), s.c_str(), text.c_str()); - return 0; -} - -/* - c++ generate C++ parser class -*/ -#define YY_NO_UNISTD_H 1 - -// Tell flex which function to define -#ifdef YY_DECL - #undef YY_DECL -#endif -#define YY_DECL int exptocas::scanner::lex(exptocas::parser::semantic_type* yylval) - -typedef exptocas::parser::token token; - -/************************************/ -/* Section 2 */ -/* parsing rules */ - -#define INITIAL 0 -#define TYP 1 -#define ENT 2 -#define COMM 3 -#define SKP 4 -#define RULE 5 -#define FUN 6 - -#ifndef YY_NO_UNISTD_H - /* Special case for "unistd.h", since it is non-ANSI. We include it way - * down here because we want the user's section 1 to have been scanned first. - * The user has a chance to override it with an option. - */ - #include -#endif - -#ifndef YY_EXTRA_TYPE - #define YY_EXTRA_TYPE void* -#endif - -#ifndef yytext_ptr -static void yy_flex_strncpy(char*, const char*, int); -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen(const char*); -#endif - -#ifndef YY_NO_INPUT - -#endif - -/* Amount of stuff to slurp up with each read. */ -#ifndef YY_READ_BUF_SIZE - #ifdef __ia64__ - /* On IA-64, the buffer size is 16k, not 8k */ - #define YY_READ_BUF_SIZE 16384 - #else - #define YY_READ_BUF_SIZE 8192 - #endif /* __ia64__ */ -#endif - -/* Copy whatever the last rule matched to the standard output. */ -#ifndef ECHO - #define ECHO LexerOutput(yytext, yyleng) -#endif - -/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, - * is returned in "result". - */ -#ifndef YY_INPUT - #define YY_INPUT(buf, result, max_size) \ - \ - if ((int)(result = LexerInput((char*)buf, max_size)) < 0) \ - YY_FATAL_ERROR("input in flex scanner failed"); - -#endif - -/* No semi-colon after return; correct usage is to write "yyterminate();" - - * we don't want an extra ';' after the "return" because that will cause - * some compilers to complain about unreachable statements. - */ -#ifndef yyterminate - #define yyterminate() return YY_NULL -#endif - -/* Number of entries by which start-condition stack grows. */ -#ifndef YY_START_STACK_INCR - #define YY_START_STACK_INCR 25 -#endif - -/* Report a fatal error. */ -#ifndef YY_FATAL_ERROR - #define YY_FATAL_ERROR(msg) LexerError(msg) -#endif - -/* end tables serialization structures and prototypes */ - -/* Default declaration of generated scanner - a define so the user can - * easily add parameters. - */ -#ifndef YY_DECL - #define YY_DECL_IS_OURS 1 - #define YY_DECL int yyFlexLexer::yylex() -#endif /* !YY_DECL */ - -/* Code executed at the beginning of each rule, after yytext and yyleng - * have been set up. - */ -#ifndef YY_USER_ACTION - #define YY_USER_ACTION -#endif - -/* Code executed at the end of each rule. */ -#ifndef YY_BREAK - #define YY_BREAK /*LINTED*/ break; -#endif - -#define YY_RULE_SETUP YY_USER_ACTION - -/** The main scanner function which does all the work. - */ -YY_DECL -{ - yy_state_type yy_current_state; - char * yy_cp, *yy_bp; - int yy_act; - - if (!(yy_init)) - { - (yy_init) = 1; - -#ifdef YY_USER_INIT - YY_USER_INIT; -#endif - - if (!(yy_start)) - (yy_start) = 1; /* first start state */ - - if (!yyin) - yyin.rdbuf(std::cin.rdbuf()); - - if (!yyout) - yyout.rdbuf(std::cout.rdbuf()); - - if (!YY_CURRENT_BUFFER) - { - yyensure_buffer_stack(); - YY_CURRENT_BUFFER_LVALUE = yy_create_buffer(yyin, YY_BUF_SIZE); - } - - yy_load_buffer_state(); - } - - { - - while (/*CONSTCOND*/ 1) /* loops until end-of-file is reached */ - { - yy_cp = (yy_c_buf_p); - - /* Support of yytext. */ - *yy_cp = (yy_hold_char); - - /* yy_bp points to the position in yy_ch_buf of the start of - * the current run. - */ - yy_bp = yy_cp; - - yy_current_state = (yy_start); - yy_match: - do - { - YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)]; - if (yy_accept[yy_current_state]) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - while (yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state) - { - yy_current_state = (int)yy_def[yy_current_state]; - if (yy_current_state >= 306) - yy_c = yy_meta[yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; - ++yy_cp; - } while (yy_base[yy_current_state] != 413); - - yy_find_action: - yy_act = yy_accept[yy_current_state]; - if (yy_act == 0) - { /* have to back up */ - yy_cp = (yy_last_accepting_cpos); - yy_current_state = (yy_last_accepting_state); - yy_act = yy_accept[yy_current_state]; - } - - YY_DO_BEFORE_ACTION; - - do_action: /* This label is used only to access EOF actions. */ - - switch (yy_act) - { /* beginning of action switch */ - case 0: /* must back up */ - /* undo the effects of YY_DO_BEFORE_ACTION */ - *yy_cp = (yy_hold_char); - yy_cp = (yy_last_accepting_cpos); - yy_current_state = (yy_last_accepting_state); - goto yy_find_action; - - case 1: - YY_RULE_SETUP - { /* Eat line comments */ - } - YY_BREAK - case 2: - YY_RULE_SETUP - { - ec_state = YYSTATE; - BEGIN(COMM); - } - YY_BREAK - case 3: - YY_RULE_SETUP - { /* Eat multiline comments */ - } - YY_BREAK - case 4: - YY_RULE_SETUP - { - BEGIN(ec_state); - } - YY_BREAK - case 5: - YY_RULE_SETUP - { - return yylval->num = token::KSCHEM; - } - YY_BREAK - case 6: - YY_RULE_SETUP - { - return yylval->num = token::KENDS; - } - YY_BREAK - case 7: - YY_RULE_SETUP - { - BEGIN(TYP); - return yylval->num = token::KTYP; - } - YY_BREAK - case 8: - YY_RULE_SETUP - { - BEGIN(0); - return yylval->num = token::KENDT; - } - YY_BREAK - case 9: - YY_RULE_SETUP - { - BEGIN(ENT); - return yylval->num = token::KENT; - } - YY_BREAK - case 10: - YY_RULE_SETUP - { - BEGIN(0); - return yylval->num = token::KENDE; - } - YY_BREAK - case 11: - case 12: - case 13: - YY_RULE_SETUP - { - BEGIN(SKP); - } - YY_BREAK - case 14: - YY_RULE_SETUP - { /* eat contents of WHERE and DERIVE subclauses of ENTITY and TYPE */ - } - YY_BREAK - case 15: - YY_RULE_SETUP - { - return yylval->num = token::KSEL; - } - YY_BREAK - case 16: - YY_RULE_SETUP - { - return yylval->num = token::KENUM; - } - YY_BREAK - case 17: - YY_RULE_SETUP - { - return yylval->num = token::KLIST; - } - YY_BREAK - case 18: - YY_RULE_SETUP - { - return yylval->num = token::KARR; - } - YY_BREAK - case 19: - YY_RULE_SETUP - { - return yylval->num = token::KSET; - } - YY_BREAK - case 20: - YY_RULE_SETUP - { - return yylval->num = token::KBAG; - } - YY_BREAK - case 21: - YY_RULE_SETUP - { - return yylval->num = token::KOF; - } - YY_BREAK - case 22: - YY_RULE_SETUP - { - return yylval->num = token::KNUM; - } - YY_BREAK - case 23: - YY_RULE_SETUP - { - return yylval->num = token::KINT; - } - YY_BREAK - case 24: - YY_RULE_SETUP - { - return yylval->num = token::KDBL; - } - YY_BREAK - case 25: - YY_RULE_SETUP - { - return yylval->num = token::KSTR; - } - YY_BREAK - case 26: - YY_RULE_SETUP - { - return yylval->num = token::KLOG; - } - YY_BREAK - case 27: - YY_RULE_SETUP - { - return yylval->num = token::KBOOL; - } - YY_BREAK - case 28: - YY_RULE_SETUP - { - return yylval->num = token::KOPT; - } - YY_BREAK - case 29: - YY_RULE_SETUP - { - return yylval->num = token::KUNIQ; - } - YY_BREAK - case 30: - YY_RULE_SETUP - { - return yylval->num = token::KSELF; - } - YY_BREAK - case 31: - YY_RULE_SETUP - { - return yylval->num = token::KABSTR; - } - YY_BREAK - case 32: - YY_RULE_SETUP - { - return yylval->num = token::KSUBT; - } - YY_BREAK - case 33: - YY_RULE_SETUP - { - return yylval->num = token::KSPRT; - } - YY_BREAK - case 34: - YY_RULE_SETUP - { - return yylval->num = token::KANDOR; - } - YY_BREAK - case 35: - YY_RULE_SETUP - { - return yylval->num = token::K1OF; - } - YY_BREAK - case 36: - YY_RULE_SETUP - { - return yylval->num = token::KAND; - } - YY_BREAK - case 37: - YY_RULE_SETUP - { - yylval->str = strdup(yytext); - return token::NAME; - } - YY_BREAK - case 38: - YY_RULE_SETUP - { - yylval->str = strdup(yytext); - return token::NAME; - } - YY_BREAK - case 39: - YY_RULE_SETUP - { - yylval->num = atoi(yytext); - return token::NUMBER; - } - YY_BREAK - case 40: - YY_RULE_SETUP - { - return yylval->num = yytext[0]; - } - YY_BREAK - case 41: - YY_RULE_SETUP - { - BEGIN(FUN); - fun_level++; - } - YY_BREAK - case 42: - YY_RULE_SETUP - { - ec_state = YYSTATE; - BEGIN(COMM); /* eat comments in functions */ - } - YY_BREAK - case 43: - YY_RULE_SETUP - { /* Eat line comments in functions */ - } - YY_BREAK - case 44: - YY_RULE_SETUP - { /* eat FUNCTIONs - skip IDs explicitly */ - } - YY_BREAK - case 45: - /* rule 45 can match eol */ - YY_RULE_SETUP - { /* eat FUNCTIONs - skip strings explicitly */ - } - YY_BREAK - case 46: - YY_RULE_SETUP - { /* eat FUNCTIONs - skip all other symbols in functions */ - } - YY_BREAK - case 47: - YY_RULE_SETUP - { - fun_level--; - if (!fun_level) - BEGIN(0); - } - YY_BREAK - case 48: - YY_RULE_SETUP - { - BEGIN(RULE); /* eat RULEs */ - } - YY_BREAK - case 49: - YY_RULE_SETUP - { /* eat RULEs */ - } - YY_BREAK - case 50: - YY_RULE_SETUP - { - BEGIN(0); - } - YY_BREAK - case 51: - /* rule 51 can match eol */ - YY_RULE_SETUP - { /* eat CONSTANTs */ - char* s = yytext; /* but don't forget to count lines.. */ - while (*s) - if (*(s++) == '\n') - ec_linenum++; - } - YY_BREAK - case 52: - YY_RULE_SETUP - { /* eat spaces */ - } - YY_BREAK - case 53: - YY_RULE_SETUP - { - ec_error("unknown keyword ", yytext); /* put unrecognized keywords to cerr */ - } - YY_BREAK - case 54: - YY_RULE_SETUP - { - ec_error("unknown symbol ", yytext); /* put unrecognized data to cerr */ - } - YY_BREAK - case 55: - /* rule 55 can match eol */ - YY_RULE_SETUP - { - ec_linenum++; /* count lines */ - } - YY_BREAK - case 56: - YY_RULE_SETUP - ECHO; - YY_BREAK - case YY_STATE_EOF(INITIAL): - case YY_STATE_EOF(TYP): - case YY_STATE_EOF(ENT): - case YY_STATE_EOF(COMM): - case YY_STATE_EOF(SKP): - case YY_STATE_EOF(RULE): - case YY_STATE_EOF(FUN): - yyterminate(); - - case YY_END_OF_BUFFER: { - /* Amount of text matched not including the EOB char. */ - int yy_amount_of_matched_text = (int)(yy_cp - (yytext_ptr)) - 1; - - /* Undo the effects of YY_DO_BEFORE_ACTION. */ - *yy_cp = (yy_hold_char); - YY_RESTORE_YY_MORE_OFFSET - - if (YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW) - { - /* We're scanning a new file or input source. It's - * possible that this happened because the user - * just pointed yyin at a new source and called - * yylex(). If so, then we have to assure - * consistency between YY_CURRENT_BUFFER and our - * globals. Here is the right place to do so, because - * this is the first action (other than possibly a - * back-up) that will match for the new input source. - */ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin.rdbuf(); - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL; - } - - /* Note that here we test for yy_c_buf_p "<=" to the position - * of the first EOB in the buffer, since yy_c_buf_p will - * already have been incremented past the NUL character - * (since all states make transitions on EOB to the - * end-of-buffer state). Contrast this with the test - * in input(). - */ - if ((yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)]) - { /* This was really a NUL. */ - yy_state_type yy_next_state; - - (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state(); - - /* Okay, we're now positioned to make the NUL - * transition. We couldn't have - * yy_get_previous_state() go ahead and do it - * for us because it doesn't know how to deal - * with the possibility of jamming (and we don't - * want to build jamming into it because then it - * will run more slowly). - */ - - yy_next_state = yy_try_NUL_trans(yy_current_state); - - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - - if (yy_next_state) - { - /* Consume the NUL. */ - yy_cp = ++(yy_c_buf_p); - yy_current_state = yy_next_state; - goto yy_match; - } - - else - { - yy_cp = (yy_c_buf_p); - goto yy_find_action; - } - } - - else - switch (yy_get_next_buffer()) - { - case EOB_ACT_END_OF_FILE: { - (yy_did_buffer_switch_on_eof) = 0; - - if (yywrap()) - { - /* Note: because we've taken care in - * yy_get_next_buffer() to have set up - * yytext, we can now set up - * yy_c_buf_p so that if some total - * hoser (like flex itself) wants to - * call the scanner after we return the - * YY_NULL, it'll still work - another - * YY_NULL will get returned. - */ - (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ; - - yy_act = YY_STATE_EOF(YY_START); - goto do_action; - } - - else - { - if (!(yy_did_buffer_switch_on_eof)) - YY_NEW_FILE; - } - break; - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state(); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_match; - - case EOB_ACT_LAST_MATCH: - (yy_c_buf_p) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)]; - - yy_current_state = yy_get_previous_state(); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_find_action; - } - break; - } - - default: - YY_FATAL_ERROR("fatal flex scanner internal error--no action found"); - } /* end of action switch */ - } /* end of scanning one token */ - } /* end of user's declarations */ -} /* end of yylex */ - -/* The contents of this function are C++ specific, so the () macro is not used. - * This constructor simply maintains backward compatibility. - * DEPRECATED - */ -yyFlexLexer::yyFlexLexer(std::istream* arg_yyin, std::ostream* arg_yyout) - : yyin(arg_yyin ? arg_yyin->rdbuf() : std::cin.rdbuf()), - yyout(arg_yyout ? arg_yyout->rdbuf() : std::cout.rdbuf()) -{ - ctor_common(); -} - -/* The contents of this function are C++ specific, so the () macro is not used. - */ -yyFlexLexer::yyFlexLexer(std::istream& arg_yyin, std::ostream& arg_yyout) - : yyin(arg_yyin.rdbuf()), - yyout(arg_yyout.rdbuf()) -{ - ctor_common(); -} - -/* The contents of this function are C++ specific, so the () macro is not used. - */ -void yyFlexLexer::ctor_common() -{ - yy_c_buf_p = 0; - yy_init = 0; - yy_start = 0; - yy_flex_debug = 0; - yylineno = 1; // this will only get updated if %option yylineno - - yy_did_buffer_switch_on_eof = 0; - - yy_looking_for_trail_begin = 0; - yy_more_flag = 0; - yy_more_len = 0; - yy_more_offset = yy_prev_more_offset = 0; - - yy_start_stack_ptr = yy_start_stack_depth = 0; - yy_start_stack = NULL; - - yy_buffer_stack = NULL; - yy_buffer_stack_top = 0; - yy_buffer_stack_max = 0; - - yy_state_buf = 0; -} - -/* The contents of this function are C++ specific, so the () macro is not used. - */ -yyFlexLexer::~yyFlexLexer() -{ - delete[] yy_state_buf; - yyfree(yy_start_stack); - yy_delete_buffer(YY_CURRENT_BUFFER); - yyfree(yy_buffer_stack); -} - -/* The contents of this function are C++ specific, so the () macro is not used. - */ -void yyFlexLexer::switch_streams(std::istream& new_in, std::ostream& new_out) -{ - // was if( new_in ) - yy_delete_buffer(YY_CURRENT_BUFFER); - yy_switch_to_buffer(yy_create_buffer(new_in, YY_BUF_SIZE)); - - // was if( new_out ) - yyout.rdbuf(new_out.rdbuf()); -} - -/* The contents of this function are C++ specific, so the () macro is not used. - */ -void yyFlexLexer::switch_streams(std::istream* new_in, std::ostream* new_out) -{ - if (!new_in) - { - new_in = &yyin; - } - - if (!new_out) - { - new_out = &yyout; - } - - switch_streams(*new_in, *new_out); -} - -#ifdef YY_INTERACTIVE -int yyFlexLexer::LexerInput(char* buf, int /* max_size */) -#else -int yyFlexLexer::LexerInput(char* buf, int max_size) -#endif -{ - if (yyin.eof() || yyin.fail()) - return 0; - -#ifdef YY_INTERACTIVE - yyin.get(buf[0]); - - if (yyin.eof()) - return 0; - - if (yyin.bad()) - return -1; - - return 1; - -#else - (void)yyin.read(buf, max_size); - - if (yyin.bad()) - return -1; - else - return yyin.gcount(); -#endif -} - -void yyFlexLexer::LexerOutput(const char* buf, int size) -{ - (void)yyout.write(buf, size); -} - -/* yy_get_next_buffer - try to read in a new buffer - * - * Returns a code representing an action: - * EOB_ACT_LAST_MATCH - - * EOB_ACT_CONTINUE_SCAN - continue scanning from current position - * EOB_ACT_END_OF_FILE - end of file - */ -int yyFlexLexer::yy_get_next_buffer() -{ - char* dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; - char* source = (yytext_ptr); - int number_to_move, i; - int ret_val; - - if ((yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1]) - YY_FATAL_ERROR("fatal flex scanner internal error--end of buffer missed"); - - if (YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0) - { /* Don't try to fill the buffer, so this is an EOF. */ - if ((yy_c_buf_p) - (yytext_ptr)-YY_MORE_ADJ == 1) - { - /* We matched a single character, the EOB, so - * treat this as a final EOF. - */ - return EOB_ACT_END_OF_FILE; - } - - else - { - /* We matched some text prior to the EOB, first - * process it. - */ - return EOB_ACT_LAST_MATCH; - } - } - - /* Try to read more data. */ - - /* First move last chars to start of buffer. */ - number_to_move = (int)((yy_c_buf_p) - (yytext_ptr)-1); - - for (i = 0; i < number_to_move; ++i) - *(dest++) = *(source++); - - if (YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING) - /* don't do the read, it's not guaranteed to return an EOF, - * just force an EOF - */ - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0; - - else - { - int num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1; - - while (num_to_read <= 0) - { /* Not enough room in the buffer - grow it. */ - - /* just a shorter name for the current buffer */ - YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE; - - int yy_c_buf_p_offset = (int)((yy_c_buf_p)-b->yy_ch_buf); - - if (b->yy_is_our_buffer) - { - int new_size = b->yy_buf_size * 2; - - if (new_size <= 0) - b->yy_buf_size += b->yy_buf_size / 8; - else - b->yy_buf_size *= 2; - - b->yy_ch_buf = (char*) - /* Include room in for 2 EOB chars. */ - yyrealloc((void*)b->yy_ch_buf, (yy_size_t)(b->yy_buf_size + 2)); - } - else - /* Can't grow it, we don't own it. */ - b->yy_ch_buf = NULL; - - if (!b->yy_ch_buf) - YY_FATAL_ERROR("fatal error - scanner input buffer overflow"); - - (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset]; - - num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1; - } - - if (num_to_read > YY_READ_BUF_SIZE) - num_to_read = YY_READ_BUF_SIZE; - - /* Read in more data. */ - YY_INPUT((&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]), (yy_n_chars), num_to_read); - - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - if ((yy_n_chars) == 0) - { - if (number_to_move == YY_MORE_ADJ) - { - ret_val = EOB_ACT_END_OF_FILE; - yyrestart(yyin); - } - - else - { - ret_val = EOB_ACT_LAST_MATCH; - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_EOF_PENDING; - } - } - - else - ret_val = EOB_ACT_CONTINUE_SCAN; - - if (((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) - { - /* Extend the array by 50%, plus the number we really need. */ - int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = - (char*)yyrealloc((void*)YY_CURRENT_BUFFER_LVALUE->yy_ch_buf, (yy_size_t)new_size); - if (!YY_CURRENT_BUFFER_LVALUE->yy_ch_buf) - YY_FATAL_ERROR("out of dynamic memory in yy_get_next_buffer()"); - /* "- 2" to take care of EOB's */ - YY_CURRENT_BUFFER_LVALUE->yy_buf_size = (int)(new_size - 2); - } - - (yy_n_chars) += number_to_move; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR; - - (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0]; - - return ret_val; -} - -/* yy_get_previous_state - get the state just before the EOB char was reached */ - -yy_state_type yyFlexLexer::yy_get_previous_state() -{ - yy_state_type yy_current_state; - char* yy_cp; - - yy_current_state = (yy_start); - - for (yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp) - { - YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); - if (yy_accept[yy_current_state]) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - while (yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state) - { - yy_current_state = (int)yy_def[yy_current_state]; - if (yy_current_state >= 306) - yy_c = yy_meta[yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; - } - - return yy_current_state; -} - -/* yy_try_NUL_trans - try to make a transition on the NUL character - * - * synopsis - * next_state = yy_try_NUL_trans( current_state ); - */ -yy_state_type yyFlexLexer::yy_try_NUL_trans(yy_state_type yy_current_state) -{ - int yy_is_jam; - char* yy_cp = (yy_c_buf_p); - - YY_CHAR yy_c = 1; - if (yy_accept[yy_current_state]) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - while (yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state) - { - yy_current_state = (int)yy_def[yy_current_state]; - if (yy_current_state >= 306) - yy_c = yy_meta[yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; - yy_is_jam = (yy_current_state == 305); - - return yy_is_jam ? 0 : yy_current_state; -} - -#ifndef YY_NO_UNPUT -void yyFlexLexer::yyunput(int c, char* yy_bp) -{ - char* yy_cp; - - yy_cp = (yy_c_buf_p); - - /* undo effects of setting up yytext */ - *yy_cp = (yy_hold_char); - - if (yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2) - { /* need to shift things up to make room */ - /* +2 for EOB chars. */ - int number_to_move = (yy_n_chars) + 2; - char* dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2]; - char* source = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]; - - while (source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf) - *--dest = *--source; - - yy_cp += (int)(dest - source); - yy_bp += (int)(dest - source); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = - (int)YY_CURRENT_BUFFER_LVALUE->yy_buf_size; - - if (yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2) - YY_FATAL_ERROR("flex scanner push-back overflow"); - } - - *--yy_cp = (char)c; - - (yytext_ptr) = yy_bp; - (yy_hold_char) = *yy_cp; - (yy_c_buf_p) = yy_cp; -} -#endif - -int yyFlexLexer::yyinput() -{ - int c; - - *(yy_c_buf_p) = (yy_hold_char); - - if (*(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR) - { - /* yy_c_buf_p now points to the character we want to return. - * If this occurs *before* the EOB characters, then it's a - * valid NUL; if not, then we've hit the end of the buffer. - */ - if ((yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)]) - /* This was really a NUL. */ - *(yy_c_buf_p) = '\0'; - - else - { /* need more input */ - int offset = (int)((yy_c_buf_p) - (yytext_ptr)); - ++(yy_c_buf_p); - - switch (yy_get_next_buffer()) - { - case EOB_ACT_LAST_MATCH: - /* This happens because yy_g_n_b() - * sees that we've accumulated a - * token and flags that we need to - * try matching the token before - * proceeding. But for input(), - * there's no matching to consider. - * So convert the EOB_ACT_LAST_MATCH - * to EOB_ACT_END_OF_FILE. - */ - - /* Reset buffer status. */ - yyrestart(yyin); - - /*FALLTHROUGH*/ - - case EOB_ACT_END_OF_FILE: { - if (yywrap()) - return 0; - - if (!(yy_did_buffer_switch_on_eof)) - YY_NEW_FILE; -#ifdef __cplusplus - return yyinput(); -#else - return input(); -#endif - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = (yytext_ptr) + offset; - break; - } - } - } - - c = *(unsigned char*)(yy_c_buf_p); /* cast for 8-bit char's */ - *(yy_c_buf_p) = '\0'; /* preserve yytext */ - (yy_hold_char) = *++(yy_c_buf_p); - - return c; -} - -/** Immediately switch to a different input stream. - * @param input_file A readable stream. - * - * @note This function does not reset the start condition to @c INITIAL . - */ -void yyFlexLexer::yyrestart(std::istream& input_file) -{ - - if (!YY_CURRENT_BUFFER) - { - yyensure_buffer_stack(); - YY_CURRENT_BUFFER_LVALUE = yy_create_buffer(yyin, YY_BUF_SIZE); - } - - yy_init_buffer(YY_CURRENT_BUFFER, input_file); - yy_load_buffer_state(); -} - -/** Delegate to the new version that takes an istream reference. - * @param input_file A readable stream. - * - * @note This function does not reset the start condition to @c INITIAL . - */ -void yyFlexLexer::yyrestart(std::istream* input_file) -{ - if (!input_file) - { - input_file = &yyin; - } - yyrestart(*input_file); -} - -/** Switch to a different input buffer. - * @param new_buffer The new input buffer. - * - */ -void yyFlexLexer::yy_switch_to_buffer(YY_BUFFER_STATE new_buffer) -{ - - /* TODO. We should be able to replace this entire function body - * with - * yypop_buffer_state(); - * yypush_buffer_state(new_buffer); - */ - yyensure_buffer_stack(); - if (YY_CURRENT_BUFFER == new_buffer) - return; - - if (YY_CURRENT_BUFFER) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - YY_CURRENT_BUFFER_LVALUE = new_buffer; - yy_load_buffer_state(); - - /* We don't actually know whether we did this switch during - * EOF (yywrap()) processing, but the only time this flag - * is looked at is after yywrap() is called, so it's safe - * to go ahead and always set it. - */ - (yy_did_buffer_switch_on_eof) = 1; -} - -void yyFlexLexer::yy_load_buffer_state() -{ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos; - yyin.rdbuf(YY_CURRENT_BUFFER_LVALUE->yy_input_file); - (yy_hold_char) = *(yy_c_buf_p); -} - -/** Allocate and initialize an input buffer state. - * @param file A readable stream. - * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE. - * - * @return the allocated buffer state. - */ -YY_BUFFER_STATE yyFlexLexer::yy_create_buffer(std::istream& file, int size) -{ - YY_BUFFER_STATE b; - - b = (YY_BUFFER_STATE)yyalloc(sizeof(struct yy_buffer_state)); - if (!b) - YY_FATAL_ERROR("out of dynamic memory in yy_create_buffer()"); - - b->yy_buf_size = size; - - /* yy_ch_buf has to be 2 characters longer than the size given because - * we need to put in 2 end-of-buffer characters. - */ - b->yy_ch_buf = (char*)yyalloc((yy_size_t)(b->yy_buf_size + 2)); - if (!b->yy_ch_buf) - YY_FATAL_ERROR("out of dynamic memory in yy_create_buffer()"); - - b->yy_is_our_buffer = 1; - - yy_init_buffer(b, file); - - return b; -} - -/** Delegate creation of buffers to the new version that takes an istream reference. - * @param file A readable stream. - * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE. - * - * @return the allocated buffer state. - */ -YY_BUFFER_STATE yyFlexLexer::yy_create_buffer(std::istream* file, int size) -{ - return yy_create_buffer(*file, size); -} - -/** Destroy the buffer. - * @param b a buffer created with yy_create_buffer() - * - */ -void yyFlexLexer::yy_delete_buffer(YY_BUFFER_STATE b) -{ - - if (!b) - return; - - if (b == YY_CURRENT_BUFFER) /* Not sure if we should pop here. */ - YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE)0; - - if (b->yy_is_our_buffer) - yyfree((void*)b->yy_ch_buf); - - yyfree((void*)b); -} - -/* Initializes or reinitializes a buffer. - * This function is sometimes called more than once on the same buffer, - * such as during a yyrestart() or at EOF. - */ -void yyFlexLexer::yy_init_buffer(YY_BUFFER_STATE b, std::istream& file) - -{ - int oerrno = errno; - - yy_flush_buffer(b); - - b->yy_input_file = file.rdbuf(); - b->yy_fill_buffer = 1; - - /* If b is the current buffer, then yy_init_buffer was _probably_ - * called from yyrestart() or through yy_get_next_buffer. - * In that case, we don't want to reset the lineno or column. - */ - if (b != YY_CURRENT_BUFFER) - { - b->yy_bs_lineno = 1; - b->yy_bs_column = 0; - } - - b->yy_is_interactive = 0; - errno = oerrno; -} - -/** Discard all buffered characters. On the next scan, YY_INPUT will be called. - * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER. - * - */ -void yyFlexLexer::yy_flush_buffer(YY_BUFFER_STATE b) -{ - if (!b) - return; - - b->yy_n_chars = 0; - - /* We always need two end-of-buffer characters. The first causes - * a transition to the end-of-buffer state. The second causes - * a jam in that state. - */ - b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR; - b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR; - - b->yy_buf_pos = &b->yy_ch_buf[0]; - - b->yy_at_bol = 1; - b->yy_buffer_status = YY_BUFFER_NEW; - - if (b == YY_CURRENT_BUFFER) - yy_load_buffer_state(); -} - -/** Pushes the new state onto the stack. The new state becomes - * the current state. This function will allocate the stack - * if necessary. - * @param new_buffer The new state. - * - */ -void yyFlexLexer::yypush_buffer_state(YY_BUFFER_STATE new_buffer) -{ - if (new_buffer == NULL) - return; - - yyensure_buffer_stack(); - - /* This block is copied from yy_switch_to_buffer. */ - if (YY_CURRENT_BUFFER) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - /* Only push if top exists. Otherwise, replace top. */ - if (YY_CURRENT_BUFFER) - (yy_buffer_stack_top)++; - YY_CURRENT_BUFFER_LVALUE = new_buffer; - - /* copied from yy_switch_to_buffer. */ - yy_load_buffer_state(); - (yy_did_buffer_switch_on_eof) = 1; -} - -/** Removes and deletes the top of the stack, if present. - * The next element becomes the new top. - * - */ -void yyFlexLexer::yypop_buffer_state(void) -{ - if (!YY_CURRENT_BUFFER) - return; - - yy_delete_buffer(YY_CURRENT_BUFFER); - YY_CURRENT_BUFFER_LVALUE = NULL; - if ((yy_buffer_stack_top) > 0) - --(yy_buffer_stack_top); - - if (YY_CURRENT_BUFFER) - { - yy_load_buffer_state(); - (yy_did_buffer_switch_on_eof) = 1; - } -} - -/* Allocates the stack if it does not exist. - * Guarantees space for at least one push. - */ -void yyFlexLexer::yyensure_buffer_stack(void) -{ - yy_size_t num_to_alloc; - - if (!(yy_buffer_stack)) - { - - /* First allocation is just for 2 elements, since we don't know if this - * scanner will even need a stack. We use 2 instead of 1 to avoid an - * immediate realloc on the next call. - */ - num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */ - (yy_buffer_stack) = - (struct yy_buffer_state**)yyalloc(num_to_alloc * sizeof(struct yy_buffer_state*)); - if (!(yy_buffer_stack)) - YY_FATAL_ERROR("out of dynamic memory in yyensure_buffer_stack()"); - - memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*)); - - (yy_buffer_stack_max) = num_to_alloc; - (yy_buffer_stack_top) = 0; - return; - } - - if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1) - { - - /* Increase the buffer to prepare for a possible push. */ - yy_size_t grow_size = 8 /* arbitrary grow size */; - - num_to_alloc = (yy_buffer_stack_max) + grow_size; - (yy_buffer_stack) = - (struct yy_buffer_state**)yyrealloc((yy_buffer_stack), - num_to_alloc * sizeof(struct yy_buffer_state*)); - if (!(yy_buffer_stack)) - YY_FATAL_ERROR("out of dynamic memory in yyensure_buffer_stack()"); - - /* zero only the new slots.*/ - memset((yy_buffer_stack) + (yy_buffer_stack_max), - 0, - grow_size * sizeof(struct yy_buffer_state*)); - (yy_buffer_stack_max) = num_to_alloc; - } -} - -void yyFlexLexer::yy_push_state(int _new_state) -{ - if ((yy_start_stack_ptr) >= (yy_start_stack_depth)) - { - yy_size_t new_size; - - (yy_start_stack_depth) += YY_START_STACK_INCR; - new_size = (yy_size_t)(yy_start_stack_depth) * sizeof(int); - - if (!(yy_start_stack)) - (yy_start_stack) = (int*)yyalloc(new_size); - - else - (yy_start_stack) = (int*)yyrealloc((void*)(yy_start_stack), new_size); - - if (!(yy_start_stack)) - YY_FATAL_ERROR("out of memory expanding start-condition stack"); - } - - (yy_start_stack)[(yy_start_stack_ptr)++] = YY_START; - - BEGIN(_new_state); -} - -void yyFlexLexer::yy_pop_state() -{ - if (--(yy_start_stack_ptr) < 0) - YY_FATAL_ERROR("start-condition stack underflow"); - - BEGIN((yy_start_stack)[(yy_start_stack_ptr)]); -} - -int yyFlexLexer::yy_top_state() -{ - return (yy_start_stack)[(yy_start_stack_ptr)-1]; -} - -#ifndef YY_EXIT_FAILURE - #define YY_EXIT_FAILURE 2 -#endif - -void yyFlexLexer::LexerError(const char* msg) -{ - std::cerr << msg << std::endl; - exit(YY_EXIT_FAILURE); -} - -/* Redefine yyless() so it works in section 3 code. */ - -#undef yyless -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg); \ - yytext[yyleng] = (yy_hold_char); \ - (yy_c_buf_p) = yytext + yyless_macro_arg; \ - (yy_hold_char) = *(yy_c_buf_p); \ - *(yy_c_buf_p) = '\0'; \ - yyleng = yyless_macro_arg; \ - } while (0) - -/* Accessor methods (get/set functions) to struct members. */ - -/* - * Internal utility routines. - */ - -#ifndef yytext_ptr -static void yy_flex_strncpy(char* s1, const char* s2, int n) -{ - - int i; - for (i = 0; i < n; ++i) - s1[i] = s2[i]; -} -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen(const char* s) -{ - int n; - for (n = 0; s[n]; ++n) - ; - - return n; -} -#endif - -void* yyalloc(yy_size_t size) -{ - return malloc(size); -} - -void* yyrealloc(void* ptr, yy_size_t size) -{ - - /* The cast to (char *) in the following accommodates both - * implementations that use char* generic pointers, and those - * that use void* generic pointers. It works with the latter - * because both ANSI C and C++ allow castless assignment from - * any pointer type to void*, and deal with argument conversions - * as though doing an assignment. - */ - return realloc(ptr, size); -} - -void yyfree(void* ptr) -{ - free((char*)ptr); /* see yyrealloc() for (char *) cast */ -} - -#define YYTABLES_NAME "yytables" - -/************************************/ -/* Section 3 */ -/* auxiliary procedures */ - -exptocas::scanner::scanner(std::istream* in, std::ostream* out) - : exptocasFlexLexer(in, out) -{ -} - -/* -int main ( void ) -{ - yylex(); -} -*/ diff --git a/src/ExpToCasExe/occt_existed_step_entities.lst b/src/ExpToCasExe/occt_existed_step_entities.lst deleted file mode 100644 index 290db61a95..0000000000 --- a/src/ExpToCasExe/occt_existed_step_entities.lst +++ /dev/null @@ -1,942 +0,0 @@ -# Last update 27.10.2021 -#=============================================== -# package StepAP203 -#=============================================== -ApprovedItem StepAP203 -CcDesignApproval StepAP203 -CcDesignCertification StepAP203 -CcDesignContract StepAP203 -CcDesignDateAndTimeAssignment StepAP203 -CcDesignPersonAndOrganizationAssignment StepAP203 -CcDesignSecurityClassification StepAP203 -CcDesignSpecificationReference StepAP203 -CertifiedItem StepAP203 -Change StepAP203 -ChangeRequest StepAP203 -ChangeRequestItem StepAP203 -ClassifiedItem StepAP203 -ContractedItem StepAP203 -DateTimeItem StepAP203 -PersonOrganizationItem StepAP203 -SpecifiedItem StepAP203 -StartRequest StepAP203 -StartRequestItem StepAP203 -StartWork StepAP203 -WorkItem StepAP203 - -#=============================================== -# package StepAP214 -#=============================================== -AppliedApprovalAssignment StepAP214 -AppliedDateAndTimeAssignment StepAP214 -AppliedDateAssignment StepAP214 -AppliedDocumentReference StepAP214 -AppliedExternalIdentificationAssignment StepAP214 -AppliedGroupAssignment StepAP214 -AppliedOrganizationAssignment StepAP214 -AppliedPersonAndOrganizationAssignment StepAP214 -AppliedPresentedItem StepAP214 -AppliedSecurityClassificationAssignment StepAP214 -ApprovalItem StepAP214 -AutoDesignActualDateAndTimeAssignment StepAP214 -AutoDesignActualDateAssignment StepAP214 -AutoDesignApprovalAssignment StepAP214 -AutoDesignDateAndPersonAssignment StepAP214 -AutoDesignDateAndPersonItem StepAP214 -AutoDesignDateAndTimeItem StepAP214 -AutoDesignDatedItem StepAP214 -AutoDesignDocumentReference StepAP214 -AutoDesignGeneralOrgItem StepAP214 -AutoDesignGroupAssignment StepAP214 -AutoDesignGroupedItem StepAP214 -AutoDesignNominalDateAndTimeAssignment StepAP214 -AutoDesignNominalDateAssignment StepAP214 -AutoDesignOrganizationAssignment StepAP214 -AutoDesignOrganizationItem StepAP214 -AutoDesignPersonAndOrganizationAssignment StepAP214 -AutoDesignPresentedItem StepAP214 -AutoDesignPresentedItemSelect StepAP214 -AutoDesignReferencingItem StepAP214 -AutoDesignSecurityClassificationAssignment StepAP214 -Class StepAP214 -DateAndTimeItem StepAP214 -DateItem StepAP214 -DocumentReferenceItem StepAP214 -ExternalIdentificationItem StepAP214 -ExternallyDefinedClass StepAP214 -ExternallyDefinedGeneralProperty StepAP214 -GroupItem StepAP214 -OrganizationItem StepAP214 -PersonAndOrganizationItem StepAP214 -PresentedItemSelect StepAP214 -Protocol StepAP214 -RepItemGroup StepAP214 -SecurityClassificationItem StepAP214 - -#=============================================== -# package StepAP242 -#=============================================== -DraughtingModelItemAssociation StepAP242 -GeometricItemSpecificUsage StepAP242 -IdAttribute StepAP242 -IdAttributeSelect StepAP242 -ItemIdentifiedRepresentationUsage StepAP242 -ItemIdentifiedRepresentationUsageDefinition StepAP242 - -#=============================================== -# package StepBasic -#=============================================== -Action StepBasic -ActionAssignment StepBasic -ActionMethod StepBasic -ActionRequestAssignment StepBasic -ActionRequestSolution StepBasic -Address StepBasic -AheadOrBehind StepBasic -ApplicationContext StepBasic -ApplicationContextElement StepBasic -ApplicationProtocolDefinition StepBasic -Approval StepBasic -ApprovalAssignment StepBasic -ApprovalDateTime StepBasic -ApprovalPersonOrganization StepBasic -ApprovalRelationship StepBasic -ApprovalRole StepBasic -ApprovalStatus StepBasic -AreaUnit StepBasic -CalendarDate StepBasic -Certification StepBasic -CertificationAssignment StepBasic -CertificationType StepBasic -CharacterizedObject StepBasic -Contract StepBasic -ContractAssignment StepBasic -ContractType StepBasic -ConversionBasedUnit StepBasic -ConversionBasedUnitAndAreaUnit StepBasic -ConversionBasedUnitAndLengthUnit StepBasic -ConversionBasedUnitAndMassUnit StepBasic -ConversionBasedUnitAndPlaneAngleUnit StepBasic -ConversionBasedUnitAndRatioUnit StepBasic -ConversionBasedUnitAndSolidAngleUnit StepBasic -ConversionBasedUnitAndTimeUnit StepBasic -ConversionBasedUnitAndVolumeUnit StepBasic -CoordinatedUniversalTimeOffset StepBasic -Date StepBasic -DateAndTime StepBasic -DateAndTimeAssignment StepBasic -DateAssignment StepBasic -DateRole StepBasic -DateTimeRole StepBasic -DateTimeSelect StepBasic -DerivedUnit StepBasic -DerivedUnitElement StepBasic -DesignContext StepBasic -DigitalDocument StepBasic -DimensionalExponents StepBasic -Document StepBasic -DocumentFile StepBasic -DocumentProductAssociation StepBasic -DocumentProductEquivalence StepBasic -DocumentReference StepBasic -DocumentRelationship StepBasic -DocumentRepresentationType StepBasic -DocumentType StepBasic -DocumentUsageConstraint StepBasic -Effectivity StepBasic -EffectivityAssignment StepBasic -EulerAngles StepBasic -ExternalIdentificationAssignment StepBasic -ExternallyDefinedItem StepBasic -ExternalSource StepBasic -GeneralProperty StepBasic -Group StepBasic -GroupAssignment StepBasic -GroupRelationship StepBasic -IdentificationAssignment StepBasic -IdentificationRole StepBasic -LengthMeasureWithUnit StepBasic -LengthUnit StepBasic -LocalTime StepBasic -MassMeasureWithUnit StepBasic -MassUnit StepBasic -MeasureValueMember StepBasic -MeasureWithUnit StepBasic -MechanicalContext StepBasic -NameAssignment StepBasic -NamedUnit StepBasic -ObjectRole StepBasic -OrdinalDate StepBasic -Organization StepBasic -OrganizationalAddress StepBasic -OrganizationAssignment StepBasic -OrganizationRole StepBasic -Person StepBasic -PersonalAddress StepBasic -PersonAndOrganization StepBasic -PersonAndOrganizationAssignment StepBasic -PersonAndOrganizationRole StepBasic -PersonOrganizationSelect StepBasic -PhysicallyModeledProductDefinition StepBasic -PlaneAngleMeasureWithUnit StepBasic -PlaneAngleUnit StepBasic -Product StepBasic -ProductCategory StepBasic -ProductCategoryRelationship StepBasic -ProductConceptContext StepBasic -ProductContext StepBasic -ProductDefinition StepBasic -ProductDefinitionContext StepBasic -ProductDefinitionEffectivity StepBasic -ProductDefinitionFormation StepBasic -ProductDefinitionFormationRelationship StepBasic -ProductDefinitionFormationWithSpecifiedSource StepBasic -ProductDefinitionOrReference StepBasic -ProductDefinitionReference StepBasic -ProductDefinitionReferenceWithLocalRepresentation StepBasic -ProductDefinitionRelationship StepBasic -ProductDefinitionWithAssociatedDocuments StepBasic -ProductOrFormationOrDefinition StepBasic -ProductRelatedProductCategory StepBasic -ProductType StepBasic -RatioMeasureWithUnit StepBasic -RatioUnit StepBasic -RoleAssociation StepBasic -RoleSelect StepBasic -SecurityClassification StepBasic -SecurityClassificationAssignment StepBasic -SecurityClassificationLevel StepBasic -SiPrefix StepBasic -SiUnit StepBasic -SiUnitAndAreaUnit StepBasic -SiUnitAndLengthUnit StepBasic -SiUnitAndMassUnit StepBasic -SiUnitAndPlaneAngleUnit StepBasic -SiUnitAndRatioUnit StepBasic -SiUnitAndSolidAngleUnit StepBasic -SiUnitAndThermodynamicTemperatureUnit StepBasic -SiUnitAndTimeUnit StepBasic -SiUnitAndVolumeUnit StepBasic -SiUnitName StepBasic -SizeMember StepBasic -SizeSelect StepBasic -SolidAngleMeasureWithUnit StepBasic -SolidAngleUnit StepBasic -Source StepBasic -SourceItem StepBasic -ThermodynamicTemperatureUnit StepBasic -TimeMeasureWithUnit StepBasic -TimeUnit StepBasic -UncertaintyMeasureWithUnit StepBasic -Unit StepBasic -VersionedActionRequest StepBasic -VolumeUnit StepBasic -WeekOfYearAndDayDate StepBasic - -#=============================================== -# package StepDimTol -#=============================================== -AngularityTolerance StepDimTol -AreaUnitType StepDimTol -CircularRunoutTolerance StepDimTol -CoaxialityTolerance StepDimTol -CommonDatum StepDimTol -ConcentricityTolerance StepDimTol -CylindricityTolerance StepDimTol -Datum StepDimTol -DatumFeature StepDimTol -DatumOrCommonDatum StepDimTol -DatumReference StepDimTol -DatumReferenceCompartment StepDimTol -DatumReferenceElement StepDimTol -DatumReferenceModifier StepDimTol -DatumReferenceModifierType StepDimTol -DatumReferenceModifierWithValue StepDimTol -DatumSystem StepDimTol -DatumSystemOrReference StepDimTol -DatumTarget StepDimTol -FlatnessTolerance StepDimTol -GeneralDatumReference StepDimTol -GeometricTolerance StepDimTol -GeometricToleranceModifier StepDimTol -GeometricToleranceRelationship StepDimTol -GeometricToleranceTarget StepDimTol -GeometricToleranceType StepDimTol -GeometricToleranceWithDatumReference StepDimTol -GeometricToleranceWithDefinedAreaUnit StepDimTol -GeometricToleranceWithDefinedUnit StepDimTol -GeometricToleranceWithMaximumTolerance StepDimTol -GeometricToleranceWithModifiers StepDimTol -GeoTolAndGeoTolWthDatRef StepDimTol -GeoTolAndGeoTolWthDatRefAndGeoTolWthMaxTol StepDimTol -GeoTolAndGeoTolWthDatRefAndGeoTolWthMod StepDimTol -GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol StepDimTol -GeoTolAndGeoTolWthDatRefAndUneqDisGeoTol StepDimTol -GeoTolAndGeoTolWthMaxTol StepDimTol -GeoTolAndGeoTolWthMod StepDimTol -LimitCondition StepDimTol -LineProfileTolerance StepDimTol -ModifiedGeometricTolerance StepDimTol -NonUniformZoneDefinition StepDimTol -ParallelismTolerance StepDimTol -PerpendicularityTolerance StepDimTol -PlacedDatumTargetFeature StepDimTol -PositionTolerance StepDimTol -ProjectedZoneDefinition StepDimTol -RoundnessTolerance StepDimTol -RunoutZoneDefinition StepDimTol -RunoutZoneOrientation StepDimTol -ShapeToleranceSelect StepDimTol -SimpleDatumReferenceModifier StepDimTol -SimpleDatumReferenceModifierMember StepDimTol -StraightnessTolerance StepDimTol -SurfaceProfileTolerance StepDimTol -SymmetryTolerance StepDimTol -ToleranceZone StepDimTol -ToleranceZoneDefinition StepDimTol -ToleranceZoneForm StepDimTol -ToleranceZoneTarget StepDimTol -TotalRunoutTolerance StepDimTol -UnequallyDisposedGeometricTolerance StepDimTol - -#=============================================== -# package StepElement -#=============================================== -AnalysisItemWithinRepresentation StepElement -Curve3dElementDescriptor StepElement -CurveEdge StepElement -CurveElementEndReleasePacket StepElement -CurveElementFreedom StepElement -CurveElementFreedomMember StepElement -CurveElementPurpose StepElement -CurveElementPurposeMember StepElement -CurveElementSectionDefinition StepElement -CurveElementSectionDerivedDefinitions StepElement -Element2dShape StepElement -ElementAspect StepElement -ElementAspectMember StepElement -ElementDescriptor StepElement -ElementMaterial StepElement -ElementOrder StepElement -ElementVolume StepElement -EnumeratedCurveElementFreedom StepElement -EnumeratedCurveElementPurpose StepElement -EnumeratedSurfaceElementPurpose StepElement -EnumeratedVolumeElementPurpose StepElement -MeasureOrUnspecifiedValue StepElement -MeasureOrUnspecifiedValueMember StepElement -Surface3dElementDescriptor StepElement -SurfaceElementProperty StepElement -SurfaceElementPurpose StepElement -SurfaceElementPurposeMember StepElement -SurfaceSection StepElement -SurfaceSectionField StepElement -SurfaceSectionFieldConstant StepElement -SurfaceSectionFieldVarying StepElement -UniformSurfaceSection StepElement -UnspecifiedValue StepElement -Volume3dElementDescriptor StepElement -Volume3dElementShape StepElement -VolumeElementPurpose StepElement -VolumeElementPurposeMember StepElement - -#=============================================== -# package StepFEA -#=============================================== -AlignedCurve3dElementCoordinateSystem StepFEA -AlignedSurface3dElementCoordinateSystem StepFEA -ArbitraryVolume3dElementCoordinateSystem StepFEA -ConstantSurface3dElementCoordinateSystem StepFEA -CoordinateSystemType StepFEA -Curve3dElementProperty StepFEA -Curve3dElementRepresentation StepFEA -CurveEdge StepFEA -CurveElementEndCoordinateSystem StepFEA -CurveElementEndOffset StepFEA -CurveElementEndRelease StepFEA -CurveElementInterval StepFEA -CurveElementIntervalConstant StepFEA -CurveElementIntervalLinearlyVarying StepFEA -CurveElementLocation StepFEA -DegreeOfFreedom StepFEA -DegreeOfFreedomMember StepFEA -DummyNode StepFEA -ElementGeometricRelationship StepFEA -ElementGroup StepFEA -ElementOrElementGroup StepFEA -ElementRepresentation StepFEA -ElementVolume StepFEA -EnumeratedDegreeOfFreedom StepFEA -FeaAreaDensity StepFEA -FeaAxis2Placement3d StepFEA -FeaCurveSectionGeometricRelationship StepFEA -FeaGroup StepFEA -FeaLinearElasticity StepFEA -FeaMassDensity StepFEA -FeaMaterialPropertyRepresentation StepFEA -FeaMaterialPropertyRepresentationItem StepFEA -FeaModel StepFEA -FeaModel3d StepFEA -FeaModelDefinition StepFEA -FeaMoistureAbsorption StepFEA -FeaParametricPoint StepFEA -FeaRepresentationItem StepFEA -FeaSecantCoefficientOfLinearThermalExpansion StepFEA -FeaShellBendingStiffness StepFEA -FeaShellMembraneBendingCouplingStiffness StepFEA -FeaShellMembraneStiffness StepFEA -FeaShellShearStiffness StepFEA -FeaSurfaceSectionGeometricRelationship StepFEA -FeaTangentialCoefficientOfLinearThermalExpansion StepFEA -FreedomAndCoefficient StepFEA -FreedomsList StepFEA -GeometricNode StepFEA -Node StepFEA -NodeDefinition StepFEA -NodeGroup StepFEA -NodeRepresentation StepFEA -NodeSet StepFEA -NodeWithSolutionCoordinateSystem StepFEA -NodeWithVector StepFEA -ParametricCurve3dElementCoordinateDirection StepFEA -ParametricCurve3dElementCoordinateSystem StepFEA -ParametricSurface3dElementCoordinateSystem StepFEA -Surface3dElementRepresentation StepFEA -SymmetricTensor22d StepFEA -SymmetricTensor23d StepFEA -SymmetricTensor23dMember StepFEA -SymmetricTensor42d StepFEA -SymmetricTensor43d StepFEA -SymmetricTensor43dMember StepFEA -UnspecifiedValue StepFEA -Volume3dElementRepresentation StepFEA - -#=============================================== -# package StepGeom -#=============================================== -Axis1Placement StepGeom -Axis2Placement StepGeom -Axis2Placement2d StepGeom -Axis2Placement3d StepGeom -BezierCurve StepGeom -BezierCurveAndRationalBSplineCurve StepGeom -BezierSurface StepGeom -BezierSurfaceAndRationalBSplineSurface StepGeom -BoundaryCurve StepGeom -BoundedCurve StepGeom -BoundedSurface StepGeom -BSplineCurve StepGeom -BSplineCurveForm StepGeom -BSplineCurveWithKnots StepGeom -BSplineCurveWithKnotsAndRationalBSplineCurve StepGeom -BSplineSurface StepGeom -BSplineSurfaceForm StepGeom -BSplineSurfaceWithKnots StepGeom -BSplineSurfaceWithKnotsAndRationalBSplineSurface StepGeom -CartesianPoint StepGeom -CartesianTransformationOperator StepGeom -CartesianTransformationOperator2d StepGeom -CartesianTransformationOperator3d StepGeom -Circle StepGeom -CompositeCurve StepGeom -CompositeCurveOnSurface StepGeom -CompositeCurveSegment StepGeom -Conic StepGeom -ConicalSurface StepGeom -Curve StepGeom -CurveBoundedSurface StepGeom -CurveOnSurface StepGeom -CurveReplica StepGeom -CylindricalSurface StepGeom -DegeneratePcurve StepGeom -DegenerateToroidalSurface StepGeom -Direction StepGeom -ElementarySurface StepGeom -Ellipse StepGeom -EvaluatedDegeneratePcurve StepGeom -GeometricRepresentationContext StepGeom -GeometricRepresentationContextAndGlobalUnitAssignedContext StepGeom -GeometricRepresentationContextAndParametricRepresentationContext StepGeom -GeometricRepresentationItem StepGeom -GeomRepContextAndGlobUnitAssCtxAndGlobUncertaintyAssCtx StepGeom -Hyperbola StepGeom -IntersectionCurve StepGeom -KnotType StepGeom -Line StepGeom -OffsetCurve3d StepGeom -OffsetSurface StepGeom -OrientedSurface StepGeom -OuterBoundaryCurve StepGeom -Parabola StepGeom -Pcurve StepGeom -PcurveOrSurface StepGeom -Placement StepGeom -Plane StepGeom -Point StepGeom -PointOnCurve StepGeom -PointOnSurface StepGeom -PointReplica StepGeom -Polyline StepGeom -PreferredSurfaceCurveRepresentation StepGeom -QuasiUniformCurve StepGeom -QuasiUniformCurveAndRationalBSplineCurve StepGeom -QuasiUniformSurface StepGeom -QuasiUniformSurfaceAndRationalBSplineSurface StepGeom -RationalBSplineCurve StepGeom -RationalBSplineSurface StepGeom -RectangularCompositeSurface StepGeom -RectangularTrimmedSurface StepGeom -ReparametrisedCompositeCurveSegment StepGeom -SeamCurve StepGeom -SphericalSurface StepGeom -SuParameters StepGeom -Surface StepGeom -SurfaceBoundary StepGeom -SurfaceCurve StepGeom -SurfaceCurveAndBoundedCurve StepGeom -SurfaceOfLinearExtrusion StepGeom -SurfaceOfRevolution StepGeom -SurfacePatch StepGeom -SurfaceReplica StepGeom -SweptSurface StepGeom -ToroidalSurface StepGeom -TransitionCode StepGeom -TrimmedCurve StepGeom -TrimmingMember StepGeom -TrimmingPreference StepGeom -TrimmingSelect StepGeom -UniformCurve StepGeom -UniformCurveAndRationalBSplineCurve StepGeom -UniformSurface StepGeom -UniformSurfaceAndRationalBSplineSurface StepGeom -Vector StepGeom -VectorOrDirection StepGeom - -#=============================================== -# package StepKinematics -#=============================================== -ActuatedDirection StepKinematics -ActuatedKinematicPair StepKinematics -ActuatedKinPairAndOrderKinPair StepKinematics -ContextDependentKinematicLinkRepresentation StepKinematics -CylindricalPair StepKinematics -CylindricalPairValue StepKinematics -CylindricalPairWithRange StepKinematics -FullyConstrainedPair StepKinematics -GearPair StepKinematics -GearPairValue StepKinematics -GearPairWithRange StepKinematics -HighOrderKinematicPair StepKinematics -HomokineticPair StepKinematics -KinematicJoint StepKinematics -KinematicLink StepKinematics -KinematicLinkRepresentation StepKinematics -KinematicLinkRepresentationAssociation StepKinematics -KinematicPair StepKinematics -KinematicPropertyDefinitionRepresentation StepKinematics -KinematicPropertyMechanismRepresentation StepKinematics -KinematicTopologyDirectedStructure StepKinematics -KinematicTopologyNetworkStructure StepKinematics -KinematicTopologyRepresentationSelect StepKinematics -KinematicTopologyStructure StepKinematics -LinearFlexibleAndPinionPair StepKinematics -LinearFlexibleAndPlanarCurvePair StepKinematics -LinearFlexibleLinkRepresentation StepKinematics -LowOrderKinematicPair StepKinematics -LowOrderKinematicPairValue StepKinematics -LowOrderKinematicPairWithMotionCoupling StepKinematics -LowOrderKinematicPairWithRange StepKinematics -MechanismRepresentation StepKinematics -MechanismStateRepresentation StepKinematics -OrientedJoint StepKinematics -PairRepresentationRelationship StepKinematics -PairValue StepKinematics -PlanarCurvePair StepKinematics -PlanarCurvePairRange StepKinematics -PlanarPair StepKinematics -PlanarPairValue StepKinematics -PlanarPairWithRange StepKinematics -PointOnPlanarCurvePair StepKinematics -PointOnPlanarCurvePairValue StepKinematics -PointOnPlanarCurvePairWithRange StepKinematics -PointOnSurfacePair StepKinematics -PointOnSurfacePairValue StepKinematics -PointOnSurfacePairWithRange StepKinematics -PrismaticPair StepKinematics -PrismaticPairValue StepKinematics -PrismaticPairWithRange StepKinematics -ProductDefinitionKinematics StepKinematics -ProductDefinitionRelationshipKinematics StepKinematics -RackAndPinionPair StepKinematics -RackAndPinionPairValue StepKinematics -RackAndPinionPairWithRange StepKinematics -RevolutePair StepKinematics -RevolutePairValue StepKinematics -RevolutePairWithRange StepKinematics -RigidLinkRepresentation StepKinematics -RigidPlacement StepKinematics -RollingCurvePair StepKinematics -RollingCurvePairValue StepKinematics -RollingSurfacePair StepKinematics -RollingSurfacePairValue StepKinematics -RotationAboutDirection StepKinematics -ScrewPair StepKinematics -ScrewPairValue StepKinematics -ScrewPairWithRange StepKinematics -SlidingCurvePair StepKinematics -SlidingCurvePairValue StepKinematics -SlidingSurfacePair StepKinematics -SlidingSurfacePairValue StepKinematics -SpatialRotation StepKinematics -SphericalPair StepKinematics -SphericalPairSelect StepKinematics -SphericalPairValue StepKinematics -SphericalPairWithPin StepKinematics -SphericalPairWithPinAndRange StepKinematics -SphericalPairWithRange StepKinematics -SurfacePair StepKinematics -SurfacePairWithRange StepKinematics -UnconstrainedPair StepKinematics -UnconstrainedPairValue StepKinematics -UniversalPair StepKinematics -UniversalPairValue StepKinematics -UniversalPairWithRange StepKinematics - -#=============================================== -# package StepRepr -#=============================================== -AllAroundShapeAspect StepRepr -Apex StepRepr -AssemblyComponentUsage StepRepr -AssemblyComponentUsageSubstitute StepRepr -BetweenShapeAspect StepRepr -CentreOfSymmetry StepRepr -CharacterizedDefinition StepRepr -CharacterizedRepresentation StepRepr -CompGroupShAspAndCompShAspAndDatumFeatAndShAsp StepRepr -CompositeGroupShapeAspect StepRepr -CompositeShapeAspect StepRepr -CompoundRepresentationItem StepRepr -CompShAspAndDatumFeatAndShAsp StepRepr -ConfigurationDesign StepRepr -ConfigurationDesignItem StepRepr -ConfigurationEffectivity StepRepr -ConfigurationItem StepRepr -ConstructiveGeometryRepresentation StepRepr -ConstructiveGeometryRepresentationRelationship StepRepr -ContinuosShapeAspect StepRepr -DataEnvironment StepRepr -DefinitionalRepresentation StepRepr -DerivedShapeAspect StepRepr -DescriptiveRepresentationItem StepRepr -Extension StepRepr -ExternallyDefinedRepresentation StepRepr -FeatureForDatumTargetRelationship StepRepr -FunctionallyDefinedTransformation StepRepr -GeometricAlignment StepRepr -GlobalUncertaintyAssignedContext StepRepr -GlobalUnitAssignedContext StepRepr -IntegerRepresentationItem StepRepr -ItemDefinedTransformation StepRepr -MakeFromUsageOption StepRepr -MappedItem StepRepr -MaterialDesignation StepRepr -MaterialProperty StepRepr -MaterialPropertyRepresentation StepRepr -MeasureRepresentationItem StepRepr -NextAssemblyUsageOccurrence StepRepr -ParallelOffset StepRepr -ParametricRepresentationContext StepRepr -PerpendicularTo StepRepr -ProductConcept StepRepr -ProductDefinitionShape StepRepr -ProductDefinitionUsage StepRepr -PromissoryUsageOccurrence StepRepr -PropertyDefinition StepRepr -PropertyDefinitionRelationship StepRepr -PropertyDefinitionRepresentation StepRepr -QuantifiedAssemblyComponentUsage StepRepr -Representation StepRepr -RepresentationContext StepRepr -RepresentationContextReference StepRepr -RepresentationItem StepRepr -RepresentationMap StepRepr -RepresentationOrRepresentationReference StepRepr -RepresentationReference StepRepr -RepresentationRelationship StepRepr -RepresentationRelationshipWithTransformation StepRepr -RepresentedDefinition StepRepr -ReprItemAndLengthMeasureWithUnit StepRepr -ReprItemAndLengthMeasureWithUnitAndQRI StepRepr -ReprItemAndMeasureWithUnit StepRepr -ReprItemAndMeasureWithUnitAndQRI StepRepr -ReprItemAndPlaneAngleMeasureWithUnit StepRepr -ReprItemAndPlaneAngleMeasureWithUnitAndQRI StepRepr -ShapeAspect StepRepr -ShapeAspectDerivingRelationship StepRepr -ShapeAspectRelationship StepRepr -ShapeAspectTransition StepRepr -ShapeDefinition StepRepr -ShapeRepresentationRelationship StepRepr -ShapeRepresentationRelationshipWithTransformation StepRepr -SpecifiedHigherUsageOccurrence StepRepr -StructuralResponseProperty StepRepr -StructuralResponsePropertyDefinitionRepresentation StepRepr -SuppliedPartRelationship StepRepr -Tangent StepRepr -Transformation StepRepr -ValueRange StepRepr -ValueRepresentationItem StepRepr - -#=============================================== -# package StepShape -#=============================================== -AdvancedBrepShapeRepresentation StepShape -AdvancedFace StepShape -AngleRelator StepShape -AngularLocation StepShape -AngularSize StepShape -Block StepShape -BooleanOperand StepShape -BooleanOperator StepShape -BooleanResult StepShape -BoxDomain StepShape -BoxedHalfSpace StepShape -BrepWithVoids StepShape -ClosedShell StepShape -CompoundShapeRepresentation StepShape -ConnectedEdgeSet StepShape -ConnectedFaceSet StepShape -ConnectedFaceShapeRepresentation StepShape -ConnectedFaceSubSet StepShape -ContextDependentShapeRepresentation StepShape -CsgPrimitive StepShape -CsgSelect StepShape -CsgShapeRepresentation StepShape -CsgSolid StepShape -DefinitionalRepresentationAndShapeRepresentation StepShape -DimensionalCharacteristic StepShape -DimensionalCharacteristicRepresentation StepShape -DimensionalLocation StepShape -DimensionalLocationWithPath StepShape -DimensionalSize StepShape -DimensionalSizeWithPath StepShape -DirectedDimensionalLocation StepShape -Edge StepShape -EdgeBasedWireframeModel StepShape -EdgeBasedWireframeShapeRepresentation StepShape -EdgeCurve StepShape -EdgeLoop StepShape -ExtrudedAreaSolid StepShape -ExtrudedFaceSolid StepShape -Face StepShape -FaceBasedSurfaceModel StepShape -FaceBound StepShape -FaceOuterBound StepShape -FaceSurface StepShape -FacetedBrep StepShape -FacetedBrepAndBrepWithVoids StepShape -FacetedBrepShapeRepresentation StepShape -GeometricallyBoundedSurfaceShapeRepresentation StepShape -GeometricallyBoundedWireframeShapeRepresentation StepShape -GeometricCurveSet StepShape -GeometricSet StepShape -GeometricSetSelect StepShape -HalfSpaceSolid StepShape -LimitsAndFits StepShape -Loop StepShape -LoopAndPath StepShape -ManifoldSolidBrep StepShape -ManifoldSurfaceShapeRepresentation StepShape -MeasureQualification StepShape -MeasureRepresentationItemAndQualifiedRepresentationItem StepShape -NonManifoldSurfaceShapeRepresentation StepShape -OpenShell StepShape -OrientedClosedShell StepShape -OrientedEdge StepShape -OrientedFace StepShape -OrientedOpenShell StepShape -OrientedPath StepShape -Path StepShape -PlusMinusTolerance StepShape -PointRepresentation StepShape -PolyLoop StepShape -PrecisionQualifier StepShape -QualifiedRepresentationItem StepShape -ReversibleTopologyItem StepShape -RevolvedAreaSolid StepShape -RevolvedFaceSolid StepShape -RightAngularWedge StepShape -RightCircularCone StepShape -RightCircularCylinder StepShape -SeamEdge StepShape -ShapeDefinitionRepresentation StepShape -ShapeDimensionRepresentation StepShape -ShapeDimensionRepresentationItem StepShape -ShapeRepresentation StepShape -ShapeRepresentationWithParameters StepShape -Shell StepShape -ShellBasedSurfaceModel StepShape -SolidModel StepShape -SolidReplica StepShape -Sphere StepShape -Subedge StepShape -Subface StepShape -SurfaceModel StepShape -SweptAreaSolid StepShape -SweptFaceSolid StepShape -ToleranceMethodDefinition StepShape -ToleranceValue StepShape -TopologicalRepresentationItem StepShape -Torus StepShape -TransitionalShapeRepresentation StepShape -TypeQualifier StepShape -ValueFormatTypeQualifier StepShape -ValueQualifier StepShape -Vertex StepShape -VertexLoop StepShape -VertexPoint StepShape - -#=============================================== -# package StepVisual -#=============================================== -AnnotationCurveOccurrence StepVisual -AnnotationCurveOccurrenceAndGeomReprItem StepVisual -AnnotationFillArea StepVisual -AnnotationFillAreaOccurrence StepVisual -AnnotationOccurrence StepVisual -AnnotationPlane StepVisual -AnnotationPlaneElement StepVisual -AnnotationText StepVisual -AnnotationTextOccurrence StepVisual -AreaInSet StepVisual -AreaOrView StepVisual -BackgroundColour StepVisual -BoxCharacteristicSelect StepVisual -CameraImage StepVisual -CameraImage2dWithScale StepVisual -CameraImage3dWithScale StepVisual -CameraModel StepVisual -CameraModelD2 StepVisual -CameraModelD3 StepVisual -CameraModelD3MultiClipping StepVisual -CameraModelD3MultiClippingInterectionSelect StepVisual -CameraModelD3MultiClippingIntersection StepVisual -CameraModelD3MultiClippingUnion StepVisual -CameraModelD3MultiClippingUnionSelect StepVisual -CameraUsage StepVisual -CentralOrParallel StepVisual -CharacterizedObjAndRepresentationAndDraughtingModel StepVisual -Colour StepVisual -ColourRgb StepVisual -ColourSpecification StepVisual -ComplexTriangulatedFace StepVisual -ComplexTriangulatedSurfaceSet StepVisual -CompositeText StepVisual -CompositeTextWithExtent StepVisual -ContextDependentInvisibility StepVisual -ContextDependentOverRidingStyledItem StepVisual -CoordinatesList StepVisual -CubicBezierTessellatedEdge StepVisual -CubicBezierTriangulatedFace StepVisual -CurveStyle StepVisual -CurveStyleFont StepVisual -CurveStyleFontPattern StepVisual -CurveStyleFontSelect StepVisual -DirectionCountSelect StepVisual -DraughtingAnnotationOccurrence StepVisual -DraughtingCallout StepVisual -DraughtingCalloutElement StepVisual -DraughtingModel StepVisual -DraughtingPreDefinedColour StepVisual -DraughtingPreDefinedCurveFont StepVisual -EdgeOrCurve StepVisual -ExternallyDefinedCurveFont StepVisual -ExternallyDefinedTextFont StepVisual -FaceOrSurface StepVisual -FillAreaStyle StepVisual -FillAreaStyleColour StepVisual -FillStyleSelect StepVisual -FontSelect StepVisual -Invisibility StepVisual -InvisibilityContext StepVisual -InvisibleItem StepVisual -LayeredItem StepVisual -MarkerMember StepVisual -MarkerSelect StepVisual -MarkerType StepVisual -MechanicalDesignGeometricPresentationArea StepVisual -MechanicalDesignGeometricPresentationRepresentation StepVisual -NullStyle StepVisual -NullStyleMember StepVisual -OverRidingStyledItem StepVisual -PathOrCompositeCurve StepVisual -PlanarBox StepVisual -PlanarExtent StepVisual -PointStyle StepVisual -PreDefinedColour StepVisual -PreDefinedCurveFont StepVisual -PreDefinedItem StepVisual -PreDefinedTextFont StepVisual -PresentationArea StepVisual -PresentationLayerAssignment StepVisual -PresentationLayerUsage StepVisual -PresentationRepresentation StepVisual -PresentationRepresentationSelect StepVisual -PresentationSet StepVisual -PresentationSize StepVisual -PresentationSizeAssignmentSelect StepVisual -PresentationStyleAssignment StepVisual -PresentationStyleByContext StepVisual -PresentationStyleSelect StepVisual -PresentationView StepVisual -PresentedItem StepVisual -PresentedItemRepresentation StepVisual -RenderingPropertiesSelect StepVisual -RepositionedTessellatedGeometricSet StepVisual -RepositionedTessellatedItem StepVisual -ShadingSurfaceMethod StepVisual -StyleContextSelect StepVisual -StyledItem StepVisual -StyledItemTarget StepVisual -SurfaceSide StepVisual -SurfaceSideStyle StepVisual -SurfaceStyleBoundary StepVisual -SurfaceStyleControlGrid StepVisual -SurfaceStyleElementSelect StepVisual -SurfaceStyleFillArea StepVisual -SurfaceStyleParameterLine StepVisual -SurfaceStyleReflectanceAmbient StepVisual -SurfaceStyleRendering StepVisual -SurfaceStyleRenderingWithProperties StepVisual -SurfaceStyleSegmentationCurve StepVisual -SurfaceStyleSilhouette StepVisual -SurfaceStyleTransparent StepVisual -SurfaceStyleUsage StepVisual -Template StepVisual -TemplateInstance StepVisual -TessellatedAnnotationOccurrence StepVisual -TessellatedConnectingEdge StepVisual -TessellatedCurveSet StepVisual -TessellatedEdge StepVisual -TessellatedEdgeOrVertex StepVisual -TessellatedFace StepVisual -TessellatedGeometricSet StepVisual -TessellatedItem StepVisual -TessellatedPointSet StepVisual -TessellatedShapeRepresentation StepVisual -TessellatedShapeRepresentationWithAccuracyParameters StepVisual -TessellatedShell StepVisual -TessellatedSolid StepVisual -TessellatedStructuredItem StepVisual -TessellatedSurfaceSet StepVisual -TessellatedVertex StepVisual -TessellatedWire StepVisual -TextLiteral StepVisual -TextOrCharacter StepVisual -TextPath StepVisual -TextStyle StepVisual -TextStyleForDefinedFont StepVisual -TextStyleWithBoxCharacteristics StepVisual -TriangulatedFace StepVisual -ViewVolume StepVisual diff --git a/src/Express/Express.cxx b/src/Express/Express.cxx deleted file mode 100644 index 6acb5a71f5..0000000000 --- a/src/Express/Express.cxx +++ /dev/null @@ -1,125 +0,0 @@ -// Created: Wed Nov 3 14:39:28 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include -#include -#include -#include -#include - -//================================================================================================= - -Handle(Express_Schema)& Express::Schema() -{ - static Handle(Express_Schema) aSchema; - return aSchema; -} - -//======================================================================= -// function : WriteFileStamp -// purpose : Write header of HXX or CXX file -//======================================================================= - -void Express::WriteFileStamp(Standard_OStream& theOS) -{ - static const char* EC_VERSION = "2.0"; - - OSD_Process aProcess; - Quantity_Date aCurTime = aProcess.SystemDate(); - OSD_Environment anEnv("EXPTOCAS_TIME"); - TCollection_AsciiString aTimeString = anEnv.Value(); - if (aTimeString.IsEmpty()) - { - aTimeString += aCurTime.Year(); - aTimeString += "-"; - aTimeString += aCurTime.Month(); - aTimeString += "-"; - aTimeString += aCurTime.Day(); - } - - theOS << "// Created on : " << aTimeString - << "\n" - "// Created by: " - << aProcess.UserName() - << "\n" - "// Generator: ExpToCasExe (EXPRESS -> CASCADE/XSTEP Translator) V" - << EC_VERSION - << "\n" - "// Copyright (c) Open CASCADE " - << aCurTime.Year() - << "\n" - "//\n" - "// This file is part of Open CASCADE Technology software library.\n" - "//\n" - "// This library is free software; you can redistribute it and/or modify it under\n" - "// the terms of the GNU Lesser General Public License version 2.1 as published\n" - "// by the Free Software Foundation, with special exception defined in the file\n" - "// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT\n" - "// distribution for complete text of the license and disclaimer of any warranty.\n" - "//\n" - "// Alternatively, this file may be used under the terms of Open CASCADE\n" - "// commercial license or contractual agreement.\n" - "\n"; -} - -//================================================================================================= - -void Express::WriteMethodStamp(Standard_OStream& theOS, const TCollection_AsciiString& theName) -{ - theOS << "\n" - "//=======================================================================\n" - "// function : " - << theName - << "\n" - "// purpose :\n" - "//=======================================================================\n" - "\n"; -} - -//================================================================================================= - -TCollection_AsciiString Express::ToStepName(const TCollection_AsciiString& theName) -{ - TCollection_AsciiString aStepName(theName); - for (Standard_Integer i = 2; i <= aStepName.Length(); i++) - { - if (isupper(aStepName.Value(i))) - { - aStepName.Insert(i++, '_'); - } - } - aStepName.LowerCase(); - - return aStepName; -} - -//================================================================================================= - -TCollection_AsciiString Express::EnumPrefix(const TCollection_AsciiString& theName) -{ - TCollection_AsciiString aStepName; - for (Standard_Integer i = 1; i <= theName.Length(); i++) - { - if (isupper(theName.Value(i))) - { - aStepName += theName.Value(i); - } - } - aStepName.LowerCase(); - - return aStepName; -} diff --git a/src/Express/Express.hxx b/src/Express/Express.hxx deleted file mode 100644 index ef396b31a1..0000000000 --- a/src/Express/Express.hxx +++ /dev/null @@ -1,52 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_HeaderFile -#define _Express_HeaderFile - -#include -#include -#include - -class Express_Schema; -class TCollection_AsciiString; - -//! Provides data structures for representation of EXPRESS schema -//! (items, types, entities etc.) -//! and tools for generating XSTEP classes (HXX and CXX) from -//! items of the schema -class Express -{ -public: - DEFINE_STANDARD_ALLOC - - //! Returns (modifiable) handle to static schema object - Standard_EXPORT static Handle(Express_Schema)& Schema(); - - //! Writes standard copyright stamp (creation date/time, user, etc.) - Standard_EXPORT static void WriteFileStamp(Standard_OStream& theOS); - - //! Writes standard comment for method in CXX file - Standard_EXPORT static void WriteMethodStamp(Standard_OStream& theOS, - const TCollection_AsciiString& theName); - - //! Converts item name from CASCADE to STEP style - //! e.g. BoundedCurve -> bounded_curve - Standard_EXPORT static TCollection_AsciiString ToStepName(const TCollection_AsciiString& theName); - - //! Converts item name from CASCADE to STEP style - //! e.g. BoundedCurve -> bounded_curve - Standard_EXPORT static TCollection_AsciiString EnumPrefix(const TCollection_AsciiString& theName); -}; - -#endif // _Express_HeaderFile diff --git a/src/Express/Express_Alias.cxx b/src/Express/Express_Alias.cxx deleted file mode 100644 index 15ae4f7d5b..0000000000 --- a/src/Express/Express_Alias.cxx +++ /dev/null @@ -1,56 +0,0 @@ -// Created: Tue Nov 2 14:40:06 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Alias, Express_Item) - -//================================================================================================= - -Express_Alias::Express_Alias(const Standard_CString theName, const Handle(Express_Type)& theType) - : Express_Item(theName), - myType(theType) -{ -} - -//================================================================================================= - -const Handle(Express_Type)& Express_Alias::Type() const -{ - return myType; -} - -//================================================================================================= - -const TCollection_AsciiString Express_Alias::CPPName() const -{ - return myType->CPPName(); -} - -//================================================================================================= - -Standard_Boolean Express_Alias::GenerateClass() const -{ - Message::SendInfo() << "ALIAS " << Name() << " = " << Type()->CPPName() - << " used; no generation is needed"; - return Standard_False; -} - -//================================================================================================= - -void Express_Alias::PropagateUse() const {} diff --git a/src/Express/Express_Alias.hxx b/src/Express/Express_Alias.hxx deleted file mode 100644 index 8c645178ce..0000000000 --- a/src/Express/Express_Alias.hxx +++ /dev/null @@ -1,52 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Alias_HeaderFile -#define _Express_Alias_HeaderFile - -#include -#include -#include - -class TCollection_AsciiString; - -//! Implements TYPE = type (alias) item of the EXPRESS -//! schema, with interface for deferred Item class. -class Express_Alias : public Express_Item -{ - -public: - //! Create ALIAS item and initialize it - Standard_EXPORT Express_Alias(const Standard_CString theName, - const Handle(Express_Type)& theType); - - //! Returns aliased type - Standard_EXPORT const Handle(Express_Type)& Type() const; - - //! Returns name of aliased type - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const Standard_OVERRIDE; - - //! Create HXX/CXX files from item - Standard_EXPORT virtual Standard_Boolean GenerateClass() const Standard_OVERRIDE; - - //! Propagates the calls of Use function - Standard_EXPORT virtual void PropagateUse() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_Alias, Express_Item) - -protected: -private: - Handle(Express_Type) myType; -}; - -#endif // _Express_Alias_HeaderFile diff --git a/src/Express/Express_Array.hxx b/src/Express/Express_Array.hxx deleted file mode 100644 index 8757064a95..0000000000 --- a/src/Express/Express_Array.hxx +++ /dev/null @@ -1,21 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Array_HeaderFile -#define _Express_Array_HeaderFile - -#include - -typedef Express_ComplexType Express_Array; - -#endif // _Express_Array_HeaderFile diff --git a/src/Express/Express_Bag.hxx b/src/Express/Express_Bag.hxx deleted file mode 100644 index e55a2b6a05..0000000000 --- a/src/Express/Express_Bag.hxx +++ /dev/null @@ -1,21 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Bag_HeaderFile -#define _Express_Bag_HeaderFile - -#include - -typedef Express_ComplexType Express_Bag; - -#endif // _Express_Bag_HeaderFile diff --git a/src/Express/Express_Boolean.cxx b/src/Express/Express_Boolean.cxx deleted file mode 100644 index f5c7733dd7..0000000000 --- a/src/Express/Express_Boolean.cxx +++ /dev/null @@ -1,31 +0,0 @@ -// Created: Tue Nov 2 15:27:26 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Boolean, Express_PredefinedType) - -//================================================================================================= - -Express_Boolean::Express_Boolean() {} - -//================================================================================================= - -const TCollection_AsciiString Express_Boolean::CPPName() const -{ - return "Standard_Boolean"; -} diff --git a/src/Express/Express_Boolean.hxx b/src/Express/Express_Boolean.hxx deleted file mode 100644 index eb8d95626f..0000000000 --- a/src/Express/Express_Boolean.hxx +++ /dev/null @@ -1,39 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Boolean_HeaderFile -#define _Express_Boolean_HeaderFile - -#include -#include - -class TCollection_AsciiString; - -//! Implements EXPRESS type 'BOOLEAN' -class Express_Boolean : public Express_PredefinedType -{ - -public: - //! Empty constructor - Standard_EXPORT Express_Boolean(); - - //! Returns "Standard_Boolean" - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_Boolean, Express_PredefinedType) - -protected: -private: -}; - -#endif // _Express_Boolean_HeaderFile diff --git a/src/Express/Express_ComplexType.cxx b/src/Express/Express_ComplexType.cxx deleted file mode 100644 index 9612424c90..0000000000 --- a/src/Express/Express_ComplexType.cxx +++ /dev/null @@ -1,100 +0,0 @@ -// Created: Tue Nov 2 15:13:31 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_ComplexType, Express_Type) - -//================================================================================================= - -Express_ComplexType::Express_ComplexType(const Standard_Integer theImin, - const Standard_Integer theImax, - const Handle(Express_Type)& theType) -{ - myMin = theImin; - myMax = theImax; - myType = theType; -} - -//================================================================================================= - -const Handle(Express_Type)& Express_ComplexType::Type() const -{ - return myType; -} - -//================================================================================================= - -const TCollection_AsciiString Express_ComplexType::CPPName() const -{ - // check if array 2 - Handle(Express_Type) aType = myType; - if (aType->IsKind(STANDARD_TYPE(Express_ComplexType))) - { - Handle(Express_ComplexType) aType2 = Handle(Express_ComplexType)::DownCast(aType); - aType = aType2->Type(); - } - - // parse name of array argument - TCollection_AsciiString aName = aType->CPPName(); - Standard_Integer aSplitIdx = aName.Location(1, '_', 1, aName.Length()); - TCollection_AsciiString aClassName; - if (aSplitIdx) - { - aClassName = aName.Split(aSplitIdx); - } - else - { - aClassName = aName; - } - Standard_Integer anIdx = aName.Location("TCollection", 1, aName.Length()); - if (anIdx) - { - aName = "Interface_"; - } - // generate name - if (aType->IsStandard() || !aSplitIdx) - { - aName = "TColStd_"; - } - if (aType == myType) - { - aName += "HArray1Of"; - } - else - { - aName += "HArray2Of"; - } - aName += aClassName; - - return aName; -} - -//================================================================================================= - -Standard_Boolean Express_ComplexType::Use() const -{ - return myType->Use(); -} - -//================================================================================================= - -void Express_ComplexType::Use2(const TCollection_AsciiString& theRefName, - const TCollection_AsciiString& theRefPack) const -{ - myType->Use2(theRefName, theRefPack); -} diff --git a/src/Express/Express_ComplexType.hxx b/src/Express/Express_ComplexType.hxx deleted file mode 100644 index 043473ff5a..0000000000 --- a/src/Express/Express_ComplexType.hxx +++ /dev/null @@ -1,59 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_ComplexType_HeaderFile -#define _Express_ComplexType_HeaderFile - -#include -#include - -class TCollection_AsciiString; - -//! Base class for complex types (ARRAY, LIST, BAG, SET) -//! in EXPRESS schema -//! Stores type of elements and -class Express_ComplexType : public Express_Type -{ - -public: - //! Creates an object and initializes fields - Standard_EXPORT Express_ComplexType(const Standard_Integer theImin, - const Standard_Integer theImax, - const Handle(Express_Type)& theType); - - //! Returns type of complex type items - Standard_EXPORT const Handle(Express_Type)& Type() const; - - //! Returns CPP-style name of the type - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const Standard_OVERRIDE; - - //! Declares type as used by some item being generated. - //! Calls Use() for type of elements - Standard_EXPORT virtual Standard_Boolean Use() const Standard_OVERRIDE; - - //! Declares type as used by some item being generated. - //! Calls Use() for type of elements - Standard_EXPORT virtual void Use2(const TCollection_AsciiString& theRefName, - const TCollection_AsciiString& theRefPack) const - Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_ComplexType, Express_Type) - -protected: -private: - Standard_Integer myMin; - Standard_Integer myMax; - Handle(Express_Type) myType; -}; - -#endif // _Express_ComplexType_HeaderFile diff --git a/src/Express/Express_DataMapOfAsciiStringItem.hxx b/src/Express/Express_DataMapOfAsciiStringItem.hxx deleted file mode 100644 index 7a84bb2ee2..0000000000 --- a/src/Express/Express_DataMapOfAsciiStringItem.hxx +++ /dev/null @@ -1,24 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef Express_DataMapOfAsciiStringItem_HeaderFile -#define Express_DataMapOfAsciiStringItem_HeaderFile - -#include -#include -#include - -typedef NCollection_DataMap - Express_DataMapOfAsciiStringItem; - -#endif diff --git a/src/Express/Express_Entity.cxx b/src/Express/Express_Entity.cxx deleted file mode 100644 index 7933bb0d1d..0000000000 --- a/src/Express/Express_Entity.cxx +++ /dev/null @@ -1,1946 +0,0 @@ -// Created: Tue Nov 2 14:40:06 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Entity, Express_Item) - -//================================================================================================= - -Express_Entity::Express_Entity(const Standard_CString theName, - const Handle(TColStd_HSequenceOfHAsciiString)& theInherit, - const Handle(Express_HSequenceOfField)& theFields) - : Express_Item(theName), - mySupers(theInherit), - myFields(theFields) -{ - // make empty lists to avoid checking every time - myInherit = new Express_HSequenceOfEntity; - if (mySupers.IsNull()) - { - mySupers = new TColStd_HSequenceOfHAsciiString; - } - if (myFields.IsNull()) - { - myFields = new Express_HSequenceOfField; - } - myIsAbstract = Standard_False; -} - -//================================================================================================= - -const Handle(TColStd_HSequenceOfHAsciiString)& Express_Entity::SuperTypes() const -{ - return mySupers; -} - -//================================================================================================= - -const Handle(Express_HSequenceOfEntity)& Express_Entity::Inherit() const -{ - return myInherit; -} - -//================================================================================================= - -const Handle(Express_HSequenceOfField)& Express_Entity::Fields() const -{ - return myFields; -} - -//================================================================================================= - -Standard_Integer Express_Entity::NbFields(const Standard_Boolean theInherited) const -{ - Standard_Integer aNb = myFields->Length(); - if (theInherited) - { - for (Standard_Integer i = 1; i <= myInherit->Length(); i++) - { - aNb += myInherit->Value(i)->NbFields(theInherited); - } - } - return aNb; -} - -//================================================================================================= - -static void writeGetMethod(Standard_OStream& theOS, - const TCollection_AsciiString& theName, - const TCollection_AsciiString& theField, - const TCollection_AsciiString& theType, - const Standard_Boolean isHandle, - const Standard_Boolean /*isSimple*/) -{ - const TCollection_AsciiString& aMethod = theField; - Express::WriteMethodStamp(theOS, aMethod); - theOS << (isHandle ? "Handle(" : "") << theType << (isHandle ? ") " : " ") << theName - << "::" << aMethod - << "() const\n" - "{\n" - " return my" - << theField - << ";\n" - "}\n"; -} - -//================================================================================================= - -static void writeSetMethod(Standard_OStream& theOS, - const TCollection_AsciiString& theName, - const TCollection_AsciiString& theField, - const TCollection_AsciiString& theType, - const Standard_Boolean isHandle, - const Standard_Boolean isSimple) -{ - TCollection_AsciiString aMethod = "Set"; - aMethod += theField; - Express::WriteMethodStamp(theOS, aMethod); - theOS << "void " << theName << "::" << aMethod << " (const " << (isHandle ? "Handle(" : "") - << theType << (isHandle ? ")" : "") << (isSimple ? "" : "&") << " the" << theField - << ")\n" - "{\n" - " my" - << theField << " = the" << theField - << ";\n" - "}\n"; -} - -//================================================================================================= - -static inline void writeSpaces(Standard_OStream& theOS, Standard_Integer theNum) -{ - for (Standard_Integer i = 0; i < theNum; i++) - theOS << " "; -} - -//================================================================================================= - -Standard_Boolean Express_Entity::GenerateClass() const -{ - const TCollection_AsciiString aCPPName = CPPName(); - Message::SendInfo() << "Generating ENTITY " << aCPPName; - - // create a package directory (if not yet exist) - OSD_Protection aProt(OSD_RWXD, OSD_RWXD, OSD_RX, OSD_RX); - TCollection_AsciiString aPack = GetPackageName(); - OSD_Path aPath(aPack); - OSD_Directory aDir(aPath); - aDir.Build(aProt); - aPack += "/"; - aPack += aCPPName; - const Handle(OSD_FileSystem)& aFileSystem = OSD_FileSystem::DefaultFileSystem(); - - //=============================== - // Step 1: generating HXX - TCollection_AsciiString anInheritName; - { - // Open HXX file - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aPack.Cat(".hxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - - // write header - Express::WriteFileStamp(anOS); - - // write include protection and "standard" includes - anOS << "#ifndef _" << aCPPName - << "_HeaderFile_\n" - "#define _" - << aCPPName - << "_HeaderFile_\n" - "\n" - "#include \n" - "#include \n"; - if (myInherit->Length() < 1) - { - anInheritName = "Standard_Transient"; - anOS << "#include <" << anInheritName << ".hxx>\n"; - } - else - { - // first inherited class will be actually inherited - Handle(Express_Entity) anEntity = myInherit->Value(1); - anInheritName = anEntity->CPPName(); - // make warning if there are more than one inherits - if (myInherit->Length() > 1) - { - Message::SendWarning() << "Warning: ENTITY " << Name() - << " defined with multiple inheritance;"; - Message::SendWarning() << "Warning: only first base class " << anInheritName - << " is actually inherited, others are made fields"; - } - } - // write other includes (inherits and used types) - writeIncludes(anOS); - - // write HANDLE MACRO - anOS << "\n" - "DEFINE_STANDARD_HANDLE(" - << aCPPName << ", " << anInheritName - << ")\n" - "\n"; - - // write start of declaration (inheritance) - anOS << "//! Representation of STEP entity " << Name() - << "\n" - "class " - << aCPPName << " : public " << anInheritName - << "\n" - "{\n" - "\n" - "public :\n" - "\n"; - - // write constructor - anOS << " //! default constructor\n" - " Standard_EXPORT " - << aCPPName - << "();\n" - "\n"; - - // write Init methods - if (myInherit->Length() > 1 || myFields->Length() > 0) - { - anOS << " //! Initialize all fields (own and inherited)\n" - " Standard_EXPORT void Init ("; - makeInit(anOS, 29, Standard_True, 0); - anOS << ");\n" - "\n"; - } - - // write methods Get/Set - for (Standard_Integer i = 2; i <= myInherit->Length(); i++) - { - Handle(Express_Entity) anEntity = myInherit->Value(i); - const TCollection_AsciiString& aName = anEntity->Name(); - const TCollection_AsciiString& anEntityCPPName = anEntity->CPPName(); - anOS << " //! Returns data for supertype " << aName - << "\n" - " Standard_EXPORT Handle(" - << anEntityCPPName << ") " << aName - << "() const;\n" - " //! Sets data for supertype " - << aName - << "\n" - " Standard_EXPORT void Set" - << aName << " (const Handle(" << anEntityCPPName << ")& the" << aName - << ");\n" - "\n"; - } - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Field) aField = myFields->Value(i); - Handle(Express_Type) aFieldType = aField->Type(); - TCollection_AsciiString aFieldCPPName = aFieldType->CPPName(); - anOS << " //! Returns field " << aField->Name() << "\n"; - if (aFieldType->IsHandle()) - { - anOS << " Standard_EXPORT Handle(" << aFieldCPPName << ") " << aField->Name() - << "() const;\n"; - } - else - { - anOS << " Standard_EXPORT " << aFieldCPPName << " " << aField->Name() << "() const;\n"; - } - anOS << "\n" - " //! Sets field " - << aField->Name() << "\n"; - if (aFieldType->IsHandle()) - { - anOS << " Standard_EXPORT void Set" << aField->Name() << " (const Handle(" << aFieldCPPName - << ")& the" << aField->Name() << ");\n"; - } - else - { - anOS << " Standard_EXPORT void Set" << aField->Name() << " (const " << aFieldCPPName - << (aFieldType->IsSimple() ? "" : "&") << " the" << aField->Name() << ");\n"; - } - if (aField->IsOptional()) - { - anOS << "\n" - " //! Returns True if optional field " - << aField->Name() - << " is defined\n" - " Standard_EXPORT Standard_Boolean Has" - << aField->Name() << "() const;\n"; - } - anOS << "\n"; - - // prepare additional methods for HArray1 field (NbField() and FieldValue(int - // num)) - Standard_Integer aFindPos = aFieldCPPName.Search("_HArray"); - if (aFindPos > -1) - { - TCollection_AsciiString aNamePack = aFieldCPPName.SubString(1, aFindPos); - TCollection_AsciiString aNameClass; - if (aNamePack.IsEqual("TColStd_")) - { - Standard_Integer aFindPos2 = aFieldCPPName.Search("Integer"); - if (aFindPos2 > -1) - { - aNameClass = "Standard_Integer"; - } - else - { - aFindPos2 = aFieldCPPName.Search("Real"); - if (aFindPos2 > -1) - { - aNameClass = "Standard_Real"; - } - else - { - aNameClass = "Standard_Boolean"; - } - } - } - else - { - if (aNamePack.IsEqual("Interface_")) - { - aNameClass = "Handle(TCollection_HAsciiString)"; - } - else - { - aNameClass = "Handle("; - aNameClass += aNamePack; - aNameClass += aFieldCPPName.SubString(aFindPos + 10, aFieldCPPName.Length()); - aNameClass += ")"; - } - } - anOS << " //! Returns number of " << aField->Name() - << "\n" - " Standard_EXPORT Standard_Integer Nb" - << aField->Name() - << "() const;\n" - "\n" - " //! Returns value of " - << aField->Name() - << " by its num\n" - " Standard_EXPORT " - << aNameClass << " " << aField->Name() - << "Value (const Standard_Integer theNum) const;\n" - "\n"; - } - } - - anOS << " DEFINE_STANDARD_RTTIEXT(" << aCPPName << ", " << anInheritName - << ")\n" - "\n"; - - // write fields section - if (myInherit->Length() > 1 || myFields->Length() > 0) - { - anOS << "private:\n" - "\n"; - for (Standard_Integer i = 2; i <= myInherit->Length(); i++) - { - Handle(Express_Entity) anEntity = myInherit->Value(i); - // clang-format off - anOS << " Handle(" << anEntity->CPPName() << ") my" << anEntity->Name() << "; //!< supertype\n"; - // clang-format on - } - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Field) aField = myFields->Value(i); - Handle(Express_Type) aFieldType = aField->Type(); - if (aFieldType->IsHandle()) - { - anOS << " Handle(" << aFieldType->CPPName() << ") my" << aField->Name() << ";"; - } - else - { - anOS << " " << aFieldType->CPPName() << " my" << aField->Name() << ";"; - } - if (aField->IsOptional()) - { - anOS << " //!< optional"; - } - anOS << "\n"; - } - // optional fields: flag 'is field set' - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Field) aField = myFields->Value(i); - if (!aField->IsOptional()) - { - continue; - } - anOS << " Standard_Boolean myHas" << aField->Name() << "; //!< flag \"is " - << aField->Name() << " defined\"\n"; - } - anOS << "\n"; - } - - // write end - anOS << "};\n" - "\n" - "#endif // _" - << aCPPName << "_HeaderFile_\n"; - aStreamPtr.reset(); - } - //=============================== - // Step 2: generating CXX - { - // Open CXX file - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aPack.Cat(".cxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - - // write header - Express::WriteFileStamp(anOS); - - // write include section - anOS << "#include <" << aCPPName - << ".hxx>\n" - "\n" - "IMPLEMENT_STANDARD_RTTIEXT(" - << aCPPName << ", " << anInheritName << ")\n"; - - // write constructor - Express::WriteMethodStamp(anOS, aCPPName); - anOS << aCPPName << "::" << aCPPName - << "()\n" - "{\n"; - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Field) aField = myFields->Value(i); - if (aField->IsOptional()) - anOS << " myHas" << aField->Name() << " = Standard_False;\n"; - } - anOS << "}\n"; - - // write method Init() - if (myInherit->Length() > 1 || myFields->Length() > 0) - { - Express::WriteMethodStamp(anOS, "Init"); - anOS << "void " << aCPPName << "::Init ("; - makeInit(anOS, 13 + aCPPName.Length(), Standard_True, 1); - anOS << ")\n" - "{"; - makeInit(anOS, -2, Standard_True, 3); - anOS << "\n" - "}\n"; - } - - // write "methods" section - for (Standard_Integer i = 2; i <= myInherit->Length(); i++) - { - Handle(Express_Entity) anEntity = myInherit->Value(i); - const TCollection_AsciiString& anEntityCPPName = anEntity->CPPName(); - writeGetMethod(anOS, - aCPPName, - anEntity->Name(), - anEntityCPPName, - Standard_True, - Standard_False); - writeSetMethod(anOS, - aCPPName, - anEntity->Name(), - anEntityCPPName, - Standard_True, - Standard_False); - } - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Field) aField = myFields->Value(i); - Handle(Express_Type) aFieldType = aField->Type(); - TCollection_AsciiString aFieldCPPName = aFieldType->CPPName(); - writeGetMethod(anOS, - aCPPName, - aField->Name(), - aFieldCPPName, - aFieldType->IsHandle(), - aFieldType->IsSimple()); - writeSetMethod(anOS, - aCPPName, - aField->Name(), - aFieldCPPName, - aFieldType->IsHandle(), - aFieldType->IsSimple()); - if (aField->IsOptional()) - { - TCollection_AsciiString aMethod = "Has"; - aMethod += aField->Name(); - Express::WriteMethodStamp(anOS, aMethod); - anOS << "Standard_Boolean " << aCPPName << "::" << aMethod - << "() const\n" - "{\n" - " return myHas" - << aField->Name() - << ";\n" - "}\n"; - } - - // prepare additional methods for HArray1 field - Standard_Integer aFindPos = aFieldCPPName.Search("_HArray1"); - if (aFindPos > -1) - { - TCollection_AsciiString aNamePack = aFieldCPPName.SubString(1, aFindPos); - TCollection_AsciiString aNameClass(""); - if (aNamePack.IsEqual("TColStd_")) - { - Standard_Integer aFindPos2 = aFieldCPPName.Search("Integer"); - if (aFindPos2 > -1) - { - aNameClass = "Standard_Integer"; - } - else - { - aFindPos2 = aFieldCPPName.Search("Real"); - if (aFindPos2 > -1) - { - aNameClass = "Standard_Real"; - } - else - { - aNameClass = "Standard_Boolean"; - } - } - } - else - { - if (aNamePack.IsEqual("Interface_")) - { - aNameClass = "Handle(TCollection_HAsciiString)"; - } - else - { - aNameClass = "Handle("; - aNameClass += aNamePack; - aNameClass += aFieldCPPName.SubString(aFindPos + 10, aFieldCPPName.Length()); - aNameClass += ")"; - } - } - // write method ::NbField() - anOS << "\n"; - TCollection_AsciiString aMethodName = "Nb"; - aMethodName += aField->Name(); - Express::WriteMethodStamp(anOS, aMethodName); - anOS << "Standard_Integer " << aCPPName << "::Nb" << aField->Name() - << "() const;\n" - "{\n" - " if (my" - << aField->Name() - << ".IsNull())\n" - " {\n" - " return 0;\n" - " }\n" - " return my" - << aField->Name() - << "->Length();\n" - "}\n"; - // write method ::FieldValue(num) - anOS << "\n"; - aMethodName = aField->Name(); - aMethodName += "Value"; - Express::WriteMethodStamp(anOS, aMethodName); - anOS << aNameClass << " " << aCPPName << "::" << aField->Name() - << "Value (const Standard_Integer theNum) const;\n" - "{\n" - " return my" - << aField->Name() - << "->Value (theNum);\n" - "}\n"; - } - } - - // close - aStreamPtr.reset(); - - if (AbstractFlag()) - { - // generation of RW class is not needed - return Standard_True; - } - } - //=============================== - // Step 3: generating HXX for Reader/Writer class - TCollection_AsciiString aRWCPPName; - { - // Open HXX file - aRWCPPName = "RW"; - aRWCPPName += GetPackageName(); - aRWCPPName += "_RW"; - aRWCPPName += Name(); - - aPack = "RW"; - aPack += GetPackageName(); - OSD_Path aRWPath(aPack); - OSD_Directory aRWDir(aRWPath); - aRWDir.Build(aProt); - aPack += "/"; - aPack += aRWCPPName; - - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aPack.Cat(".hxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - - // write header - Express::WriteFileStamp(anOS); - - anOS << "#ifndef _" << aRWCPPName - << "_HeaderFile_\n" - "#define _" - << aRWCPPName - << "_HeaderFile_\n" - "\n"; - - // write includes - anOS << "#include \n" - "#include \n" - "#include \n" - "\n" - "class StepData_StepReaderData;\n" - "class Interface_Check;\n" - "class StepData_StepWriter;\n" - "class Interface_EntityIterator;\n" - "class " - << aCPPName - << ";\n" - "\n"; - - // write start of declaration (inheritance) - anOS << "//! Read & Write tool for " << Name() - << "\n" - "class " - << aRWCPPName - << "\n" - "{\n" - "\n" - "public:\n" - "\n" - " DEFINE_STANDARD_ALLOC\n" - "\n"; - - // default constructor - anOS << " Standard_EXPORT " << aRWCPPName - << "();\n" - "\n"; - - // read step - anOS << " Standard_EXPORT void ReadStep (const Handle(StepData_StepReaderData)& theData,\n" - " const Standard_Integer theNum,\n" - " Handle(Interface_Check)& theCheck,\n" - " const Handle(" - << aCPPName - << ")& theEnt) const;\n" - "\n"; - - // write step - anOS << " Standard_EXPORT void WriteStep (StepData_StepWriter& theSW,\n" - " const Handle(" - << aCPPName - << ")& theEnt) const;\n" - "\n"; - - // share - anOS << " Standard_EXPORT void Share (const Handle(" << aCPPName - << ")& theEnt,\n" - " Interface_EntityIterator& theIter) const;\n" - "\n"; - - // write end - anOS << "};\n" - "\n" - "#endif // _" - << aRWCPPName << "_HeaderFile_\n"; - aStreamPtr.reset(); - } - //=============================== - // Step 4: generating CXX for Read/Write tool - { - // Open CXX file - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aPack.Cat(".cxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - - // write header - Express::WriteFileStamp(anOS); - - // write include section - anOS << "#include <" << aRWCPPName << ".hxx>\n"; - anOS << "#include <" << aCPPName << ".hxx>\n"; - anOS << "#include \n" - "#include \n" - "#include \n"; - // write constructor - Express::WriteMethodStamp(anOS, aRWCPPName); - anOS << aRWCPPName << "::" << aRWCPPName - << "() {}\n" - "\n"; - - // write method ReadStep - Express::WriteMethodStamp(anOS, "ReadStep"); - if (aRWCPPName.Length() < 40) - { - anOS << "void " << aRWCPPName - << "::ReadStep (const Handle(StepData_StepReaderData)& theData,\n"; - writeSpaces(anOS, 17 + aRWCPPName.Length()); - anOS << "const Standard_Integer theNum,\n"; - writeSpaces(anOS, 17 + aRWCPPName.Length()); - anOS << "Handle(Interface_Check)& theCheck,\n"; - writeSpaces(anOS, 17 + aRWCPPName.Length()); - anOS << "const Handle(" << aCPPName << ")& theEnt) const\n"; - } - else - { - anOS << "void " << aRWCPPName - << "::ReadStep (\n" - " const Handle(StepData_StepReaderData)& theData,\n" - " const Standard_Integer theNum,\n" - " Handle(Interface_Check)& theCheck,\n" - " const Handle(" - << aCPPName << ")& theEnt) const\n"; - } - anOS << "{\n"; - Standard_Integer aNbFields = NbFields(Standard_True); - - anOS << " // Check number of parameters\n" - " if (!theData->CheckNbParams (theNum, " - << aNbFields << ", theCheck, \"" << Express::ToStepName(Name()) - << "\"))\n" - " {\n" - " return;\n" - " }\n"; - writeRWReadCode(anOS, 1, Standard_True); // write code for reading inherited and own fields - anOS << "\n" - " // Initialize entity\n" - " theEnt->Init ("; - makeInit(anOS, 15, Standard_True, 4); - anOS << ");\n" - "}\n"; - - // write method WriteStep - Express::WriteMethodStamp(anOS, "WriteStep"); - if (aRWCPPName.Length() < 40) - { - anOS << "void " << aRWCPPName << "::WriteStep (StepData_StepWriter& theSW,\n"; - writeSpaces(anOS, 18 + aRWCPPName.Length()); - anOS << "const Handle(" << aCPPName << ")& theEnt) const\n"; - } - else - { - anOS << "void " << aRWCPPName - << "::WriteStep (\n" - " StepData_StepWriter& theSW,\n" - " const Handle(" - << aCPPName << ")& theEnt) const\n"; - } - anOS << "{\n"; - - writeRWWriteCode(anOS, 0, Standard_True); // write code for writing inherited and own fields - anOS << "}\n"; - - // write method Share - Express::WriteMethodStamp(anOS, "Share"); - std::ostringstream aStringOS; - // clang-format off - Standard_Integer aNnFileds2 = writeRWShareCode (aStringOS, 1, Standard_True); // write code for filling graph of references - // clang-format on - if (aRWCPPName.Length() < 40) - { - anOS << "void " << aRWCPPName << "::Share (const Handle(" << aCPPName << ")&" - << ((aNnFileds2 > 1) ? "theEnt," : ",") << "\n"; - writeSpaces(anOS, 14 + aRWCPPName.Length()); - if (aNnFileds2 > 1) - { - anOS << "Interface_EntityIterator& theIter) const\n"; - } - else - { - anOS << "Interface_EntityIterator&) const\n"; - } - } - else - { - anOS << "void " << aRWCPPName - << "::Share(\n" - " const Handle(" - << aCPPName << ")&" << ((aNnFileds2 > 1) ? "theEnt," : ",") << "\n"; - if (aNnFileds2 > 1) - { - anOS << "Interface_EntityIterator& theIter) const\n"; - } - else - { - anOS << "Interface_EntityIterator&) const\n"; - } - } - anOS << "{\n"; - if (aNnFileds2 > 1) - { - anOS << aStringOS.str(); - } - anOS << "}\n"; - if (CheckFlag()) - { - Express::WriteMethodStamp(anOS, "Check"); - anOS << "void " << aRWCPPName << "::Check (const Handle(Standard_Transient)& entt,\n"; - writeSpaces(anOS, 18 + aRWCPPName.Length()); - anOS << "const Interface_ShareTool& shares,\n"; - writeSpaces(anOS, 18 + aRWCPPName.Length()); - anOS << "Interface_Check& check) const\n" - "{\n"; - // DownCast entity to it's type - anOS << " Handle(" << aCPPName << ") ent = Handle(" << aCPPName - << ")::DownCast(entt);\n" - "}\n"; - } - if (FillSharedFlag()) - { - Express::WriteMethodStamp(anOS, "FillShared"); - anOS << "void " << aRWCPPName << "::Share(const Handle(Interface_InterfaceModel)& model,\n"; - writeSpaces(anOS, 18 + aRWCPPName.Length()); - anOS << "const Handle(Standard_Transient)& entt,\n"; - writeSpaces(anOS, 18 + aRWCPPName.Length()); - anOS << "Interface_EntityIterator& iter) const\n" - "{\n"; - // DownCast entity to it's type - anOS << " Handle(" << aCPPName << ") ent = Handle(" << aCPPName - << ")::DownCast(entt)\n" - "}\n"; - } - - // close - aStreamPtr.reset(); - } - //=============================== - // Step 5: adding method for registration of entities and include - { - Standard_Integer anIndex = Express_Item::Index(); - TCollection_AsciiString aRegDir = "Registration"; - OSD_Path aPathReg(aRegDir); - OSD_Directory aDirReg(aRegDir); - aDirReg.Build(aProt); - aRegDir += "/"; - - // write file with includes - { - TCollection_AsciiString aPackNameInc = "inc.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameInc), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << "#include <" << aCPPName << ".hxx>\n"; - aStreamPtr.reset(); - } - // write file with RW includes - { - TCollection_AsciiString aPackNameRWInc = "rwinc.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameRWInc), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << "#include <" << aRWCPPName << ".hxx>\n"; - aStreamPtr.reset(); - } - - // generate data for entity registration - if (anIndex > 0) - { - // StepAP214_Protocol.cxx - { - TCollection_AsciiString aPackNameProtocol = "protocol.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameProtocol), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << "types.Bind (STANDARD_TYPE(" << aCPPName << "), " << anIndex << ");\n"; - aStreamPtr.reset(); - } - // RWStepAP214_GeneralModule.cxx - // FillSharedCase - { - TCollection_AsciiString aPackNameFillShared = "fillshared.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameFillShared), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << " case " << anIndex - << ":\n" - " {\n" - " DeclareAndCast (" - << aCPPName - << ", anent, ent);\n" - " " - << aRWCPPName - << " aTool;\n" - " aTool.Share(anent, iter);\n" - " }\n" - " break;\n"; - aStreamPtr.reset(); - } - // NewVoid - { - TCollection_AsciiString aPackNameNewVoid = "newvoid.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameNewVoid), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << " case " << anIndex - << ":\n" - " ent = new " - << aCPPName - << ";\n" - " break;\n"; - aStreamPtr.reset(); - } - // CategoryNumber - { - TCollection_AsciiString aPackNameCategory = "category.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameCategory), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << " case " << anIndex << ": return " << Category() << ";\n"; - aStreamPtr.reset(); - } - // RWStepAP214_ReadWriteModule.cxx - // Reco - { - TCollection_AsciiString aRecoName = Express::ToStepName(Name()); - aRecoName.UpperCase(); - TCollection_AsciiString aPackNameReco = "reco.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameReco), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << " static TCollection_AsciiString Reco_" << Name() << " (\"" << aRecoName - << "\");\n"; - aStreamPtr.reset(); - } - // type bind - { - TCollection_AsciiString aPackNameTypeBind = "typebind.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameTypeBind), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << " typenums.Bind (Reco_" << Name() << ", " << anIndex << ");\n"; - aStreamPtr.reset(); - } - // StepType - { - TCollection_AsciiString aPackNameStepType = "steptype.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameStepType), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << " case " << anIndex << ": return Reco_" << Name() << ";\n"; - aStreamPtr.reset(); - } - // ReadStep - { - TCollection_AsciiString aPackNameReadStep = "readstep.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameReadStep), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << " case " << anIndex - << ":\n" - " {\n" - " DeclareAndCast (" - << aCPPName - << ", anent, ent);\n" - " " - << aRWCPPName - << " aTool;\n" - " aTool.ReadStep (data, num, ach, anent);\n" - " }\n" - " break;\n"; - aStreamPtr.reset(); - } - // WriteStep - { - TCollection_AsciiString aPackNameWriteStep = "writestep.txt"; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aRegDir.Cat(aPackNameWriteStep), - std::ios::out | std::ios::binary | std::ios::app); - Standard_OStream& anOS = *aStreamPtr; - anOS << " case " << anIndex - << ":\n" - " {\n" - " DeclareAndCast (" - << aCPPName - << ", anent, ent);\n" - " " - << aRWCPPName - << " aTool;\n" - " aTool.WriteStep (SW, anent);\n" - " }\n" - " break;\n"; - aStreamPtr.reset(); - } - Express_Item::SetIndex(anIndex + 1); - } - } - return Standard_True; -} - -//================================================================================================= - -void Express_Entity::PropagateUse() const -{ - const TCollection_AsciiString& aPack = GetPackageName(); - const TCollection_AsciiString& aName = Name(); - - for (Standard_Integer i = 1; i <= myInherit->Length(); i++) - { - Handle(Express_Entity) anEntity = myInherit->Value(i); - anEntity->Use2(aName, aPack); - } - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Type) aType = myFields->Value(i)->Type(); - aType->Use2(aName, aPack); - } -} - -//================================================================================================= - -Standard_Boolean Express_Entity::writeIncludes(Standard_OStream& theOS) const -{ - DataMapOfStringInteger aDict; - - for (Standard_Integer i = 1; i <= myInherit->Length(); i++) - { - Handle(Express_Entity) anEntity = myInherit->Value(i); - anEntity->Use(); - const TCollection_AsciiString& anEntityCPPName = anEntity->CPPName(); - if (aDict.IsBound(anEntityCPPName)) - { - continue; // avoid duplicating - } - aDict.Bind(anEntityCPPName, 1); - theOS << "#include <" << anEntityCPPName << ".hxx>\n"; - } - // write includes for own fields - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Type) aType = myFields->Value(i)->Type(); - aType->Use(); - const TCollection_AsciiString aTypeCPPName = aType->CPPName(); - if (aDict.IsBound(aTypeCPPName)) - { - continue; // avoid duplicating - } - aDict.Bind(aTypeCPPName, 1); - if (aType->IsStandard()) - { - continue; - } - theOS << "#include <" << aTypeCPPName << ".hxx>\n"; - const TCollection_AsciiString& aPack = GetPackageName(); - // check that last include is for array - TCollection_AsciiString aStrForSearch = aPack; - aStrForSearch += "_HArray"; - Standard_Integer aFindPos = aTypeCPPName.Search(aStrForSearch.ToCString()); - if (aFindPos > -1) - { - // prepare file names - aFindPos = aPack.Length(); - const TCollection_AsciiString& aNameHA = aTypeCPPName; - TCollection_AsciiString aNameA = aNameHA.SubString(1, aFindPos + 1); - aNameA += aNameHA.SubString(aFindPos + 3, aNameHA.Length()); - TCollection_AsciiString aNameClass = aNameHA.SubString(aFindPos + 11, aNameHA.Length()); - const Handle(OSD_FileSystem)& aFileSystem = OSD_FileSystem::DefaultFileSystem(); - // create a package directory (if not yet exist) - OSD_Protection aProt(OSD_RWXD, OSD_RWXD, OSD_RX, OSD_RX); - OSD_Path aPath(aPack); - OSD_Directory aDir(aPath); - aDir.Build(aProt); - // create hxx files for Array1 - { - // Open HXX file - TCollection_AsciiString aFileName = aPack; - aFileName += "/"; - aFileName += aNameA; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aFileName.Cat(".hxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - // write header - Express::WriteFileStamp(anOS); - anOS << "\n" - "#ifndef " - << aNameA - << "_HeaderFile\n" - "#define " - << aNameA - << "_HeaderFile\n" - "\n" - "#include <" - << aPack << "_" << aNameClass - << ".hxx>\n" - "#include \n" - "\n" - "typedef NCollection_" - << aNameHA.SubString(aFindPos + 3, aFindPos + 8) << " " << aNameA - << ";\n" - "\n" - "#endif\n"; - aStreamPtr.reset(); - } - // create hxx files for HArray1 - { - // Open HXX file - TCollection_AsciiString aFileName = aPack; - aFileName += "/"; - aFileName += aNameHA; - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aFileName.Cat(".hxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - // write header - Express::WriteFileStamp(anOS); - anOS << "\n" - "#ifndef " - << aNameHA - << "_HeaderFile\n" - "#define " - << aNameHA - << "_HeaderFile\n" - "\n" - "#include <" - << aNameA - << ".hxx>\n" - "#include \n" - "\n" - "DEFINE_HARRAY" - << aNameHA.SubString(aFindPos + 8, aFindPos + 8) << "(" << aNameHA << ", " << aNameA - << ");\n" - "\n" - "#endif\n"; - aStreamPtr.reset(); - } - } - } - - return Standard_True; -} - -//======================================================================= -// function : typeToSTEPName -// purpose : auxiliary for WriteRWReadField -//======================================================================= - -static TCollection_AsciiString typeToSTEPName(const Handle(Express_Type)& theType) -{ - TCollection_AsciiString aCPPName = theType->CPPName(); - TCollection_AsciiString aCls = aCPPName.Token("_", 2); - if (aCls.Length() < 1) - { - aCls = aCPPName; - } - return Express::ToStepName(aCls); -} - -//================================================================================================= - -static void writeRWReadField(Standard_OStream& theOS, - const TCollection_AsciiString& theIndex, - const TCollection_AsciiString& theSTEPName, - const TCollection_AsciiString& theVarName, - const Handle(Express_Type)& theVarType, - const Standard_Integer theLevel, - const Standard_Boolean isOptional) -{ - // indent - TCollection_AsciiString anIdent(" "); - Standard_Integer aLevel = 0; - for (; aLevel < theLevel; aLevel++) - { - anIdent += " "; - } - aLevel += 2; - - // name of variable identifying number of parameter in data - TCollection_AsciiString aParam("theNum"); - if (theLevel > 0) - { - aParam = TCollection_AsciiString("aNum"); - aParam += TCollection_AsciiString(theLevel); - } - - // decode aliased types - Handle(Express_Type) aType = theVarType; - const TCollection_AsciiString aTypeCPPName = aType->CPPName(); - while (aType->IsKind(STANDARD_TYPE(Express_NamedType))) - { - Handle(Express_NamedType) aNamedType = Handle(Express_NamedType)::DownCast(aType); - if (!aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Alias))) - { - break; - } - Handle(Express_Alias) anAlias = Handle(Express_Alias)::DownCast(aNamedType->Item()); - aType = anAlias->Type(); - } - - // declare variable - if (aType->IsHandle()) - { - theOS << anIdent << "Handle(" << aTypeCPPName << ") a"; - } - else - { - theOS << anIdent << aTypeCPPName << " a"; - } - theOS << theVarName << ";\n"; - - if (isOptional) - { - theOS << anIdent << "Standard_Boolean has" << theVarName << " = Standard_True;\n" - << anIdent << "if (theData->IsParamDefined (" << aParam << ", " << theIndex << "))\n" - << anIdent << "{\n"; - anIdent += " "; - aLevel++; - } - - // read variable depending on its type - if (aType->IsKind(STANDARD_TYPE(Express_NamedType))) - { - Handle(Express_NamedType) aNamedType = Handle(Express_NamedType)::DownCast(aType); - if (aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Entity))) - { - theOS << anIdent << "theData->ReadEntity (" << aParam << ", " << theIndex << ", \"" - << theSTEPName << "\", theCheck,\n" - << anIdent << " STANDARD_TYPE(" << aNamedType->CPPName() << "), a" << theVarName - << ");\n"; - } - else if (aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Select))) - { - theOS << anIdent << "theData->ReadEntity (" << aParam << ", " << theIndex << ", \"" - << theSTEPName << "\", theCheck, a" << theVarName << ");\n"; - } - else if (aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Enum))) - { - theOS << anIdent << "if (theData->ParamType(" << aParam << ", " << theIndex - << ") == Interface_ParamEnum)\n" - << anIdent << "{\n" - << anIdent << " Standard_CString text = theData->ParamCValue(" << aParam << ", " - << theIndex << ");\n"; - Handle(Express_Enum) anEnum = Handle(Express_Enum)::DownCast(aNamedType->Item()); - TCollection_AsciiString aPrefix = Express::EnumPrefix(anEnum->Name()); - Handle(TColStd_HSequenceOfHAsciiString) aNames = anEnum->Names(); - TCollection_AsciiString anEnumPack = anEnum->GetPackageName(); - for (Standard_Integer i = 1; i <= aNames->Length(); i++) - { - TCollection_AsciiString anEnumName = Express::ToStepName(aNames->Value(i)->String()); - anEnumName.UpperCase(); - theOS << anIdent << (i == 1 ? " if " : " else if") << " (strcmp (text, \"." - << anEnumName << ".\")) a" << theVarName << " = " << anEnumPack << "_" << aPrefix - << aNames->Value(i)->String() << ";\n"; - } - theOS << anIdent << " else\n" - << anIdent << " {\n" - << anIdent << " theCheck->AddFail (\"Parameter #" << theIndex << " (" << theSTEPName - << ") has not allowed value\");\n" - << anIdent << " }\n" - << anIdent << "}\n" - << anIdent << "else\n" - << anIdent << "{\n" - << anIdent << " theCheck->AddFail (\"Parameter #" << theIndex << " (" << theSTEPName - << ") is not enumeration\");\n" - << anIdent << "}\n"; - } - } - else if (aType->IsKind(STANDARD_TYPE(Express_ComplexType))) - { - Handle(Express_ComplexType) aComplex = Handle(Express_ComplexType)::DownCast(aType); - theOS << anIdent << "Standard_Integer aSub" << theIndex << " = 0;\n" - << anIdent << "if (theData->ReadSubList (" << aParam << ", " << theIndex << ", \"" - << theSTEPName << "\", theCheck, aSub" << theIndex << "))\n" - << anIdent << "{\n" - << anIdent << " Standard_Integer aNb" << theLevel << " = theData->NbParams (aSub" - << theIndex << ");\n"; - TCollection_AsciiString anIterI = theLevel; - anIterI.Prepend("i"); - TCollection_AsciiString aVar = theLevel; - aVar.Prepend("nIt"); - if (aComplex->Type()->IsKind(STANDARD_TYPE(Express_ComplexType))) - { - // array 2 - Handle(Express_ComplexType) aComplex2 = - Handle(Express_ComplexType)::DownCast(aComplex->Type()); - TCollection_AsciiString anIterJ = theLevel; - anIterJ.Prepend("j"); - theOS << anIdent << " Standard_Integer nbj" << theLevel - << " = theData->NbParams (theData->ParamNumber (aSub" << theIndex << ", 1));\n" - << anIdent << " a" << theVarName << " = new " << aTypeCPPName << "(1, aNb" << theLevel - << ", 1, nbj" << theLevel << ");\n" - << anIdent << " for (Standard_Integer " << anIterI << " = 1; " << anIterI << " <= aNb" - << theLevel << "; " << anIterI << "++)\n" - << anIdent << " {\n" - << anIdent << " Standard_Integer subj" << theIndex << " = 0;\n" - << anIdent << " if ( theData->ReadSubList (aSub" << theIndex << ", " << anIterI - << ", \"sub-part(" << theSTEPName << ")\", theCheck, subj" << theIndex << ") ) {\n" - << anIdent << " Standard_Integer aNum" << aLevel + 2 << " = subj" << theIndex - << ";\n" - << anIdent << " for (Standard_Integer " << anIterJ << " = 1; " << anIterJ - << " <= nbj" << theLevel << "; " << anIterJ << "++)\n" - << anIdent << " {\n"; - TCollection_AsciiString aSubName = typeToSTEPName(aComplex2->Type()); - writeRWReadField(theOS, - anIterJ, - aSubName, - aVar, - aComplex2->Type(), - aLevel + 2, - Standard_False); - theOS << anIdent << " a" << theVarName << "->SetValue(" << anIterI << "," << anIterJ - << ", a" << aVar << ");\n" - << anIdent << " }\n" - << anIdent << " }\n"; - } - else - { - // simple array - theOS << anIdent << " a" << theVarName << " = new " << aTypeCPPName << "(1, aNb" << theLevel - << ");\n" - << anIdent << " Standard_Integer aNum" << aLevel << " = aSub" << theIndex << ";\n" - << anIdent << " for (Standard_Integer " << anIterI << " = 1; " << anIterI << " <= aNb" - << theLevel << "; " << anIterI << "++)\n" - << anIdent << " {\n"; - TCollection_AsciiString aSubName = typeToSTEPName(aComplex->Type()); - writeRWReadField(theOS, anIterI, aSubName, aVar, aComplex->Type(), aLevel, Standard_False); - theOS << anIdent << " a" << theVarName << "->SetValue(" << anIterI << ", a" << aVar - << ");\n"; - } - theOS << anIdent << " }\n" << anIdent << "}\n"; - } - else if (aType->IsKind(STANDARD_TYPE(Express_String))) - { - if (theSTEPName.Length() + theVarName.Length() < 70) - { - theOS << anIdent << "theData->ReadString (" << aParam << ", " << theIndex << ", \"" - << theSTEPName << "\", theCheck, a" << theVarName << ");\n"; - } - else - { - theOS << anIdent << "theData->ReadString (" << aParam << ", " << theIndex << ", \"" - << theSTEPName << "\", theCheck,\n" - << anIdent << " a" << theVarName << ");\n"; - } - } - else if (aType->IsKind(STANDARD_TYPE(Express_Logical))) - { - theOS << anIdent << "theData->ReadLogical (" << aParam << ", " << theIndex << ", \"" - << theSTEPName << "\", theCheck, a" << theVarName << ");\n"; - } - else if (aType->IsKind(STANDARD_TYPE(Express_Boolean))) - { - theOS << anIdent << "theData->ReadBoolean (" << aParam << ", " << theIndex << ", \"" - << theSTEPName << "\", theCheck, a" << theVarName << ");\n"; - } - else if (aType->IsKind(STANDARD_TYPE(Express_Number)) - || aType->IsKind(STANDARD_TYPE(Express_Integer))) - { - theOS << anIdent << "theData->ReadInteger (" << aParam << ", " << theIndex << ", \"" - << theSTEPName << "\", theCheck, a" << theVarName << ");\n"; - } - else if (aType->IsKind(STANDARD_TYPE(Express_Real))) - { - theOS << anIdent << "theData->ReadReal (" << aParam << ", " << theIndex << ", \"" << theSTEPName - << "\", theCheck, a" << theVarName << ");\n"; - } - - if (isOptional) - { - anIdent.Remove(1, 2); - theOS << anIdent << "}\n" - << anIdent << "else\n" - << anIdent << "{\n" - << anIdent << " has" << theVarName << " = Standard_False;\n" - << anIdent << " a" << theVarName; - if (aType->IsHandle()) - { - theOS << ".Nullify();"; - } - else if (aType->IsStandard()) - { - theOS << " = 0;"; - } - else - { - theOS << " = " << aTypeCPPName << "();"; - } - theOS << "\n"; - theOS << anIdent << "}\n"; - } -} - -//================================================================================================= - -Standard_Integer Express_Entity::writeRWReadCode(Standard_OStream& theOS, - const Standard_Integer theStart, - const Standard_Integer theOwn) const -{ - Standard_Integer aNum = theStart; - - // write code for reading inherited fields - for (Standard_Integer i = 1; i <= myInherit->Length(); i++) - { - aNum = myInherit->Value(i)->writeRWReadCode(theOS, aNum, Standard_False); - } - - // write code for reading own fields - if (myFields->Length() > 0) - { - if (aNum > 0) - theOS << "\n"; - theOS << " // " << (theOwn ? "Own" : "Inherited") << " fields of " << Name() << "\n"; - } - - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Field) aField = myFields->Value(i); - TCollection_AsciiString aSTEPName = Express::ToStepName(aField->Name()); - if (!theOwn) - { - aSTEPName.Prepend(Express::ToStepName(Name().Cat("."))); - } - TCollection_AsciiString aVarName(aField->Name()); - if (!theOwn) - { - aVarName.Prepend(Name().Cat("_")); - } - theOS << "\n"; - writeRWReadField(theOS, - TCollection_AsciiString(aNum), - aSTEPName, - aVarName, - aField->Type(), - 0, - aField->IsOptional()); - aNum++; - } - - return aNum; -} - -//================================================================================================= - -static void writeRWWriteField(Standard_OStream& theOS, - const TCollection_AsciiString& theVarName, - const Handle(Express_Type)& theVarType, - const Standard_Integer theIndex, - const Standard_Integer theLevel) -{ - // indent - TCollection_AsciiString anIdent(" "); - Standard_Integer aLevel = 0; - for (; aLevel < theLevel; aLevel++) - { - anIdent += " "; - } - aLevel++; - - // decode aliased types - Handle(Express_Type) aType = theVarType; - while (aType->IsKind(STANDARD_TYPE(Express_NamedType))) - { - Handle(Express_NamedType) aNamedType = Handle(Express_NamedType)::DownCast(aType); - if (!aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Alias))) - { - break; - } - Handle(Express_Alias) anAlias = Handle(Express_Alias)::DownCast(aNamedType->Item()); - aType = anAlias->Type(); - } - - // write variable depending on its type - if (aType->IsKind(STANDARD_TYPE(Express_ComplexType))) - { - Handle(Express_ComplexType) aComplex = Handle(Express_ComplexType)::DownCast(aType); - aType = aComplex->Type(); - TCollection_AsciiString aVar(theLevel); - aVar.Prepend("aVar"); - theOS << anIdent << "theSW.OpenSub();\n" - << anIdent << "for (Standard_Integer i" << theIndex << " = 1; i" << theIndex << " <= "; - if (aType->IsKind(STANDARD_TYPE(Express_ComplexType))) - { - // array 2 - Handle(Express_ComplexType) complex2 = Handle(Express_ComplexType)::DownCast(aType); - aType = complex2->Type(); - theOS << theVarName << "->RowLength(); i" << theIndex << "++)\n" - << anIdent << "{\n" - << anIdent << " theSW.NewLine(Standard_False);\n" - << anIdent << " theSW.OpenSub();\n" - << anIdent << " for (Standard_Integer j" << theIndex << " = 1; j" << theIndex - << " <= " << theVarName << "->ColLength(); j" << theIndex << "++)\n" - << anIdent << " {\n" - << anIdent << " " << (aType->IsHandle() ? " Handle(" : " ") << aType->CPPName() - << (aType->IsHandle() ? ") " : " ") << aVar << " = " << theVarName << "->Value (i" - << theIndex << ", j" << theIndex << ");\n"; - writeRWWriteField(theOS, aVar, aType, theIndex + 1, aLevel + 1); - theOS << anIdent << " }\n" << anIdent << " theSW.CloseSub();\n"; - } - else - { - // simple array - theOS << theVarName << "->Length(); i" << theIndex << "++)\n" - << anIdent << "{\n" - << anIdent << (aType->IsHandle() ? " Handle(" : " ") << aType->CPPName() - << (aType->IsHandle() ? ") " : " ") << aVar << " = " << theVarName << "->Value (i" - << theIndex << ");\n"; - writeRWWriteField(theOS, aVar, aType, theIndex + 1, aLevel); - } - theOS << anIdent << "}\n" << anIdent << "theSW.CloseSub();\n"; - } - else if (aType->IsKind(STANDARD_TYPE(Express_Boolean))) - { - theOS << anIdent << "theSW.SendBoolean (" << theVarName << ");\n"; - } - else if (aType->IsKind(STANDARD_TYPE(Express_Logical))) - { - theOS << anIdent << "theSW.SendLogical (" << theVarName << ");\n"; - } - else - { - Handle(Express_NamedType) aNamedType = Handle(Express_NamedType)::DownCast(aType); - if (!aNamedType.IsNull() && aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Enum))) - { - Handle(Express_Enum) anEnum = Handle(Express_Enum)::DownCast(aNamedType->Item()); - TCollection_AsciiString aPrefix = Express::EnumPrefix(anEnum->Name()); - Handle(TColStd_HSequenceOfHAsciiString) aNames = anEnum->Names(); - TCollection_AsciiString anEnumPack = anEnum->GetPackageName(); - theOS << anIdent << "switch (" << theVarName << ")\n"; - theOS << anIdent << "{\n"; - for (Standard_Integer i = 1; i <= aNames->Length(); i++) - { - TCollection_AsciiString anEnumName = Express::ToStepName(aNames->Value(i)->String()); - anEnumName.UpperCase(); - theOS << anIdent << " case " << anEnumPack << "_" << aPrefix << aNames->Value(i)->String() - << ": theSW.SendEnum (\"." << anEnumName << ".\"); break;\n"; - } - theOS << anIdent << "}\n"; - } - else - { - theOS << anIdent << "theSW.Send (" << theVarName; - if (!aNamedType.IsNull() && aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Select))) - { - theOS << ".Value()"; - } - theOS << ");\n"; - } - } -} - -//================================================================================================= - -Standard_Integer Express_Entity::writeRWWriteCode(Standard_OStream& theOS, - const Standard_Integer theStart, - const Standard_Integer theOwn) const -{ - Standard_Integer aNum = theStart; - - // write code for writing inherited fields - for (Standard_Integer i = 1; i <= myInherit->Length(); i++) - { - aNum = myInherit->Value(i)->writeRWWriteCode(theOS, aNum, (i > 1 ? -1 : 1)); - } - - // write code for writing own fields - if (myFields->Length() > 0) - { - theOS << "\n" - " // " - << (theOwn == 1 ? "Own" : "Inherited") << " fields of " << Name() << "\n"; - } - - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Field) aField = myFields->Value(i); - TCollection_AsciiString aVarName(aField->Name()); - if (!theOwn) - { - aVarName.Prepend(CPPName().Cat("::")); - } - else if (theOwn == -1) - { - // inherited base class implemented as field - aVarName.Prepend(Name().Cat("()->")); - } - aVarName.Prepend("theEnt->"); - aVarName += "()"; - theOS << "\n"; - - if (aField->IsOptional()) - { - theOS << " if (theEnt->"; - if (!theOwn) - { - theOS << CPPName() << "::"; - } - else if (theOwn == -1) - { - theOS << Name() << "()->"; - } - theOS << "Has" << aField->Name() << "())\n"; - theOS << " {\n"; - } - writeRWWriteField(theOS, aVarName, aField->Type(), aNum, (aField->IsOptional() ? 1 : 0)); - if (aField->IsOptional()) - { - theOS << " }\n" - " else\n" - " {\n" - " theSW.SendUndef();\n" - " }\n"; - } - aNum++; - } - - return aNum; -} - -//================================================================================================= - -static Standard_Boolean writeRWShareField(Standard_OStream& theOS, - const TCollection_AsciiString& theVarName, - const Handle(Express_Type)& theVarType, - const Standard_Integer theIndex, - const Standard_Integer theLevel) -{ - // indent - TCollection_AsciiString anIdent(" "); - Standard_Integer aLevel = 0; - for (; aLevel < theLevel; aLevel++) - { - anIdent += " "; - } - aLevel++; - - // decode aliased types - Handle(Express_Type) aType = theVarType; - while (aType->IsKind(STANDARD_TYPE(Express_NamedType))) - { - Handle(Express_NamedType) aNamedType = Handle(Express_NamedType)::DownCast(aType); - if (!aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Alias))) - { - break; - } - Handle(Express_Alias) anAlias = Handle(Express_Alias)::DownCast(aNamedType->Item()); - aType = anAlias->Type(); - } - - // write variable depending on its type - if (aType->IsKind(STANDARD_TYPE(Express_ComplexType))) - { - Handle(Express_ComplexType) aComplex = Handle(Express_ComplexType)::DownCast(aType); - aType = aComplex->Type(); - TCollection_AsciiString aVar(theLevel); - aVar.Prepend("aVar"); - std::ostringstream aStringOS; - if (!writeRWShareField(aStringOS, aVar, aType, theIndex + 1, aLevel)) - { - return Standard_False; - } - theOS << anIdent << "for (Standard_Integer i" << theIndex << " = 1; i" << theIndex - << " <= " << theVarName << "->Length(); i" << theIndex << "++)\n" - << anIdent << "{\n" - << anIdent << (aType->IsHandle() ? " Handle(" : " ") << aType->CPPName() - << (aType->IsHandle() ? ") " : " ") << aVar << " = " << theVarName << "->Value (i" - << theIndex << ");\n"; - theOS << aStringOS.str(); - theOS << anIdent << "}\n"; - return Standard_True; - } - if (aType->IsKind(STANDARD_TYPE(Express_NamedType))) - { - Handle(Express_NamedType) aNamedType = Handle(Express_NamedType)::DownCast(aType); - if (aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Entity))) - { - theOS << anIdent << "theIter.AddItem (" << theVarName << ");\n"; - return Standard_True; - } - if (aNamedType->Item()->IsKind(STANDARD_TYPE(Express_Select))) - { - theOS << anIdent << "theIter.AddItem (" << theVarName << ".Value());\n"; - return Standard_True; - } - } - - return Standard_False; -} - -//================================================================================================= - -Standard_Integer Express_Entity::writeRWShareCode(Standard_OStream& theOS, - const Standard_Integer theStart, - const Standard_Integer theOwn) const -{ - Standard_Integer aNum = theStart; - - // write code for sharing inherited fields - for (Standard_Integer i = 1; i <= myInherit->Length(); i++) - { - aNum = myInherit->Value(i)->writeRWShareCode(theOS, aNum, (i > 1 ? -1 : Standard_False)); - } - - // write code for sharing own fields - if (myFields->Length() > 0) - { - theOS << "\n" - " // " - << (theOwn == 1 ? "Own" : "Inherited") << " fields of " << Name() << "\n"; - } - - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Field) aField = myFields->Value(i); - TCollection_AsciiString aVarName(aField->Name()); - if (!theOwn) - { - aVarName.Prepend(CPPName().Cat("::")); - } - else if (theOwn == -1) - { - // inherited base class implemented as field - aVarName.Prepend(Name().Cat("()->")); - } - aVarName.Prepend("theEnt->"); - aVarName += "()"; - - std::ostringstream aStringOS; - if (!writeRWShareField(aStringOS, - aVarName, - aField->Type(), - aNum, - (aField->IsOptional() ? 1 : 0))) - { - continue; - } - aNum++; - theOS << "\n"; - if (aField->IsOptional()) - { - theOS << " if (theEnt->"; - if (!theOwn) - theOS << CPPName() << "::"; - else if (theOwn == -1) - theOS << Name() << "()->"; - theOS << "Has" << aField->Name() - << "())\n" - " {\n"; - } - theOS << aStringOS.str(); - if (aField->IsOptional()) - { - theOS << " }\n"; - } - } - - return aNum; -} - -//================================================================================================= - -Standard_Integer Express_Entity::makeInit(Standard_OStream& theOS, - const Standard_Integer theShift, - const Standard_Integer theOwn, - const Standard_Integer theMode) const -{ - Standard_Integer aShift = theShift; - - // write code for inherited fields - for (Standard_Integer i = 1; i <= myInherit->Length(); i++) - { - Handle(Express_Entity) anEntity = myInherit->Value(i); - const TCollection_AsciiString& anEntityCPPName = anEntity->CPPName(); - if (theMode == 3) - { - Standard_Integer aShift2 = 0; - if (i > 1) - { - theOS << "\n my" << anEntity->Name() << " = new " << anEntityCPPName - << ";" - "\n my" - << anEntity->Name() << "->Init ("; - aShift2 = 12 + anEntity->Name().Length(); - } - else - { - theOS << "\n " << anEntityCPPName << "::Init ("; - aShift2 = 10 + anEntityCPPName.Length(); - } - anEntity->makeInit(theOS, aShift2, Standard_False, 2); - theOS << ");"; - } - else - { - aShift = anEntity->makeInit(theOS, aShift, (i > 1 ? -1 : Standard_False), theMode); - } - } - - // write code for own fields - for (Standard_Integer i = 1; i <= myFields->Length(); i++) - { - Handle(Express_Field) aField = myFields->Value(i); - Handle(Express_Type) aFieldType = aField->Type(); - TCollection_AsciiString aVarName(aField->Name()); - if (theOwn != 1) - { - aVarName.Prepend(Name().Cat("_")); - } - - // make CR and indent - TCollection_AsciiString aSpaces = ""; - for (Standard_Integer aSpaceNum = 0; aSpaceNum < abs(aShift); aSpaceNum++) - { - aSpaces += " "; - } - Standard_Character aDelim = (theMode == 0 ? ',' : (theMode == 3 ? '\n' : ',')); - if (aShift < 0) - { - if (i == 1 && myInherit->Length() == 0 && theMode == 3) - { - theOS << aDelim << aSpaces; - } - else if (theMode == 4) - { - theOS << ", "; - } - else - { - theOS << aDelim << "\n" << aSpaces; - } - } - else - { - aShift = -aShift; - } - - if (aField->IsOptional()) - { - if (theMode == 0) - { - theOS << "const Standard_Boolean theHas" << aVarName << ",\n" << aSpaces; - } - else if (theMode == 1) - { - theOS << "const Standard_Boolean theHas" << aVarName << ",\n" << aSpaces; - } - else if (theMode == 2) - { - theOS << "has" << aVarName << ",\n" << aSpaces; - } - else if (theMode == 4) - { - theOS << "has" << aVarName << ", "; - } - } - - // write field - if (theMode == 0 || theMode == 1) - { - theOS << "const " << (aFieldType->IsHandle() ? "Handle(" : "") << aFieldType->CPPName() - << (aFieldType->IsHandle() ? ")" : "") << (aFieldType->IsSimple() ? " the" : "& the") - << aVarName; - } - else if (theMode == 2) - { - theOS << "the" << aVarName; - } - else if (theMode == 4) - { - theOS << "a" << aVarName; - } - else - { - if (aField->IsOptional()) - { - theOS << "myHas" << aField->Name() << " = theHas" << aVarName - << ";\n" - " if (myHas" - << aField->Name() - << ")\n" - " {\n" - " my" - << aField->Name() << " = the" << aVarName - << ";\n" - " }\n" - " else\n" - " {\n" - " my" - << aField->Name(); - if (aFieldType->IsHandle()) - { - theOS << ".Nullify();"; - } - else if (aFieldType->IsStandard()) - { - theOS << " = 0;"; - } - else - { - theOS << " = " << aFieldType->CPPName() << "();"; - } - theOS << "\n }"; - } - else - { - theOS << "my" << aField->Name() << " = the" << aVarName << ";"; - } - } - if (aShift > 0) - { - aShift = -aShift; - } - } - - return aShift; -} - -//================================================================================================= - -void Express_Entity::SetAbstractFlag(const Standard_Boolean isAbstract) -{ - myIsAbstract = isAbstract; -} - -//================================================================================================= - -Standard_Boolean Express_Entity::AbstractFlag() const -{ - return myIsAbstract; -} diff --git a/src/Express/Express_Entity.hxx b/src/Express/Express_Entity.hxx deleted file mode 100644 index 06839942ef..0000000000 --- a/src/Express/Express_Entity.hxx +++ /dev/null @@ -1,111 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Entity_HeaderFile -#define _Express_Entity_HeaderFile - -#include -#include -#include -#include -#include - -class Express_HSequenceOfEntity; - -class Express_HSequenceOfField; - -class Dico_DictionaryOfInteger; - -//! Implements ENTITY item of the EXPRESS -//! schema, with interface for deferred Item class. -class Express_Entity : public Express_Item -{ - -public: - //! Create ENTITY item and initialize it - //! flags hasCheck and hasFillShared mark if generated class has - //! methods Check and FillShared correspondingly. - Standard_EXPORT Express_Entity(const Standard_CString theName, - const Handle(TColStd_HSequenceOfHAsciiString)& theInherit, - const Handle(Express_HSequenceOfField)& theFields); - - //! Returns sequence of inherited classes (names) - Standard_EXPORT const Handle(TColStd_HSequenceOfHAsciiString)& SuperTypes() const; - - //! Returns sequence of inherited items - Standard_EXPORT const Handle(Express_HSequenceOfEntity)& Inherit() const; - - //! Returns sequence of fields - Standard_EXPORT const Handle(Express_HSequenceOfField)& Fields() const; - - //! Returns number of fields (only own fields if inherited is False - //! and including fields of all supertypes if it is True) - Standard_EXPORT Standard_Integer - NbFields(const Standard_Boolean theInherited = Standard_False) const; - - //! Sets abstract flag for entity; - Standard_EXPORT void SetAbstractFlag(const Standard_Boolean theIsAbstract); - - //! Returns abstract flag. - Standard_EXPORT inline Standard_Boolean AbstractFlag() const; - - DEFINE_STANDARD_RTTIEXT(Express_Entity, Express_Item) - -protected: -private: - typedef NCollection_DataMap DataMapOfStringInteger; - - //! Create HXX/CXX files from item - Standard_EXPORT virtual Standard_Boolean GenerateClass() const Standard_OVERRIDE; - - //! Propagates the calls of Use function - Standard_EXPORT virtual void PropagateUse() const Standard_OVERRIDE; - - //! Writes includes section of HXX - Standard_EXPORT Standard_Boolean writeIncludes(Standard_OStream& theOS) const; - - //! Writes code for reading all fields - Standard_EXPORT Standard_Integer writeRWReadCode(Standard_OStream& theOS, - const Standard_Integer theStart, - const Standard_Integer theOwn) const; - - //! Writes code for writing all fields - Standard_EXPORT Standard_Integer writeRWWriteCode(Standard_OStream& theOS, - const Standard_Integer theStart, - const Standard_Integer theOwn) const; - - //! Writes code for adding shared entities to the graph - Standard_EXPORT Standard_Integer writeRWShareCode(Standard_OStream& theOS, - const Standard_Integer theStart, - const Standard_Integer theOwn) const; - - //! Writes arguments and code for method Init() - //! Mode identifies what code is being written: - //! 0 - HXX declaration - //! 1 - CXX declaration - //! 2 - call (argument list) - //! 3 - implementation - //! 4 - call (argument list for RW) - Standard_EXPORT Standard_Integer makeInit(Standard_OStream& theOS, - const Standard_Integer theShift, - const Standard_Integer theOwn, - const Standard_Integer theMode) const; - -private: - Handle(TColStd_HSequenceOfHAsciiString) mySupers; - Handle(Express_HSequenceOfEntity) myInherit; - Handle(Express_HSequenceOfField) myFields; - Standard_Boolean myIsAbstract; -}; - -#endif // _Express_Entity_HeaderFile diff --git a/src/Express/Express_Enum.cxx b/src/Express/Express_Enum.cxx deleted file mode 100644 index 1dd81bac50..0000000000 --- a/src/Express/Express_Enum.cxx +++ /dev/null @@ -1,102 +0,0 @@ -// Created: Tue Nov 2 14:40:06 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include -#include -#include -#include -#include -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Enum, Express_Item) - -//================================================================================================= - -Express_Enum::Express_Enum(const Standard_CString theName, - const Handle(TColStd_HSequenceOfHAsciiString)& theNames) - : Express_Item(theName), - myNames(theNames) -{ -} - -//================================================================================================= - -const Handle(TColStd_HSequenceOfHAsciiString)& Express_Enum::Names() const -{ - return myNames; -} - -//================================================================================================= - -Standard_Boolean Express_Enum::GenerateClass() const -{ - const TCollection_AsciiString aCPPName = CPPName(); - Message::SendInfo() << "Generating ENUMERATION " << aCPPName; - - // create a package directory (if not yet exist) - OSD_Protection aProt(OSD_RWXD, OSD_RWXD, OSD_RX, OSD_RX); - TCollection_AsciiString aPack = GetPackageName(); - OSD_Path aPath(aPack); - OSD_Directory aDir(aPath); - aDir.Build(aProt); - aPack += "/"; - aPack += aCPPName; - const Handle(OSD_FileSystem)& aFileSystem = OSD_FileSystem::DefaultFileSystem(); - - // Open HXX file - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aPack.Cat(".hxx"), std::ios::out | std::ios::ate); - Standard_OStream& anOS = *aStreamPtr; - - // write header - Express::WriteFileStamp(anOS); - - // write defines - anOS << "#ifndef _" << aCPPName - << "_HeaderFile\n" - "#define _" - << aCPPName - << "_HeaderFile\n" - "\n" - "enum " - << aCPPName - << "\n" - "{\n"; - TCollection_AsciiString aPrefix = Express::EnumPrefix(Name()); - for (Standard_Integer i = 1; i <= myNames->Length(); i++) - { - if (i > 1) - { - anOS << ",\n"; - } - anOS << " " << GetPackageName() << "_" << aPrefix << myNames->Value(i)->String(); - } - - anOS << "\n" - "};\n" - "\n" - "#endif // _" - << aCPPName << "_HeaderFile\n"; - - aStreamPtr.reset(); - - return Standard_False; -} - -//================================================================================================= - -void Express_Enum::PropagateUse() const {} diff --git a/src/Express/Express_Enum.hxx b/src/Express/Express_Enum.hxx deleted file mode 100644 index 9d8e923cbf..0000000000 --- a/src/Express/Express_Enum.hxx +++ /dev/null @@ -1,47 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Enum_HeaderFile -#define _Express_Enum_HeaderFile - -#include -#include -#include - -//! Implements TYPE ENUMERATION item of the EXPRESS -//! schema, with interface for deferred Item class. -class Express_Enum : public Express_Item -{ - -public: - //! Create ENUM item and initialize it - Standard_EXPORT Express_Enum(const Standard_CString theName, - const Handle(TColStd_HSequenceOfHAsciiString)& theNames); - - //! Returns names of enumeration variants - Standard_EXPORT const Handle(TColStd_HSequenceOfHAsciiString)& Names() const; - - //! Create HXX/CXX files from item - Standard_EXPORT virtual Standard_Boolean GenerateClass() const Standard_OVERRIDE; - - //! Propagates the calls of Use function - Standard_EXPORT virtual void PropagateUse() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_Enum, Express_Item) - -protected: -private: - Handle(TColStd_HSequenceOfHAsciiString) myNames; -}; - -#endif // _Express_Enum_HeaderFile diff --git a/src/Express/Express_Field.cxx b/src/Express/Express_Field.cxx deleted file mode 100644 index a07d54d49b..0000000000 --- a/src/Express/Express_Field.cxx +++ /dev/null @@ -1,71 +0,0 @@ -// Created: Tue Nov 2 16:40:51 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Field, Standard_Transient) - -//================================================================================================= - -Express_Field::Express_Field(const Standard_CString theName, - const Handle(Express_Type)& theType, - const Standard_Boolean theOpt) -{ - myName = new TCollection_HAsciiString(theName); - myType = theType; - myOpt = theOpt; -} - -//================================================================================================= - -Express_Field::Express_Field(const Handle(TCollection_HAsciiString)& theName, - const Handle(Express_Type)& theType, - const Standard_Boolean theOpt) -{ - myName = theName; - myType = theType; - myOpt = theOpt; -} - -//================================================================================================= - -const TCollection_AsciiString& Express_Field::Name() const -{ - return myName->String(); -} - -//================================================================================================= - -Handle(TCollection_HAsciiString) Express_Field::HName() const -{ - return myName; -} - -//================================================================================================= - -const Handle(Express_Type)& Express_Field::Type() const -{ - return myType; -} - -//================================================================================================= - -Standard_Boolean Express_Field::IsOptional() const -{ - return myOpt; -} diff --git a/src/Express/Express_Field.hxx b/src/Express/Express_Field.hxx deleted file mode 100644 index 183eaf2754..0000000000 --- a/src/Express/Express_Field.hxx +++ /dev/null @@ -1,59 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Field_HeaderFile -#define _Express_Field_HeaderFile - -#include - -class Express_Type; -class TCollection_HAsciiString; -class TCollection_AsciiString; - -//! Represents field of the ENTITY item in the EXPRESS schema -class Express_Field : public Standard_Transient -{ - -public: - //! Create object and initialize it - Standard_EXPORT Express_Field(const Standard_CString theName, - const Handle(Express_Type)& theType, - const Standard_Boolean theOpt); - - //! Create object and initialize it - Standard_EXPORT Express_Field(const Handle(TCollection_HAsciiString)& theName, - const Handle(Express_Type)& theType, - const Standard_Boolean theOpt); - - //! Returns field name - Standard_EXPORT const TCollection_AsciiString& Name() const; - - //! Returns a pointer to the field name to modify it - Standard_EXPORT Handle(TCollection_HAsciiString) HName() const; - - //! Returns field type - Standard_EXPORT const Handle(Express_Type)& Type() const; - - //! Returns True if field is optional - Standard_EXPORT Standard_Boolean IsOptional() const; - - DEFINE_STANDARD_RTTIEXT(Express_Field, Standard_Transient) - -protected: -private: - Handle(TCollection_HAsciiString) myName; - Handle(Express_Type) myType; - Standard_Boolean myOpt; -}; - -#endif // _Express_Field_HeaderFile diff --git a/src/Express/Express_HSequenceOfEntity.hxx b/src/Express/Express_HSequenceOfEntity.hxx deleted file mode 100644 index 649e818469..0000000000 --- a/src/Express/Express_HSequenceOfEntity.hxx +++ /dev/null @@ -1,22 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef Express_HSequenceOfEntity_HeaderFile -#define Express_HSequenceOfEntity_HeaderFile - -#include -#include - -DEFINE_HSEQUENCE(Express_HSequenceOfEntity, Express_SequenceOfEntity) - -#endif diff --git a/src/Express/Express_HSequenceOfField.hxx b/src/Express/Express_HSequenceOfField.hxx deleted file mode 100644 index 4fde3dee92..0000000000 --- a/src/Express/Express_HSequenceOfField.hxx +++ /dev/null @@ -1,22 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef Express_HSequenceOfField_HeaderFile -#define Express_HSequenceOfField_HeaderFile - -#include -#include - -DEFINE_HSEQUENCE(Express_HSequenceOfField, Express_SequenceOfField) - -#endif diff --git a/src/Express/Express_HSequenceOfItem.hxx b/src/Express/Express_HSequenceOfItem.hxx deleted file mode 100644 index a6ea4fa99a..0000000000 --- a/src/Express/Express_HSequenceOfItem.hxx +++ /dev/null @@ -1,22 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef Express_HSequenceOfItem_HeaderFile -#define Express_HSequenceOfItem_HeaderFile - -#include -#include - -DEFINE_HSEQUENCE(Express_HSequenceOfItem, Express_SequenceOfItem) - -#endif diff --git a/src/Express/Express_Integer.cxx b/src/Express/Express_Integer.cxx deleted file mode 100644 index 3b8a1d9034..0000000000 --- a/src/Express/Express_Integer.cxx +++ /dev/null @@ -1,31 +0,0 @@ -// Created: Tue Nov 2 15:27:26 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Integer, Express_PredefinedType) - -//================================================================================================= - -Express_Integer::Express_Integer() {} - -//================================================================================================= - -const TCollection_AsciiString Express_Integer::CPPName() const -{ - return "Standard_Integer"; -} diff --git a/src/Express/Express_Integer.hxx b/src/Express/Express_Integer.hxx deleted file mode 100644 index 51c9327100..0000000000 --- a/src/Express/Express_Integer.hxx +++ /dev/null @@ -1,39 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Integer_HeaderFile -#define _Express_Integer_HeaderFile - -#include -#include - -class TCollection_AsciiString; - -//! Implements EXPRESS type 'INTEGER' -class Express_Integer : public Express_PredefinedType -{ - -public: - //! Empty constructor - Standard_EXPORT Express_Integer(); - - //! Returns "Standard_Integer" - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_Integer, Express_PredefinedType) - -protected: -private: -}; - -#endif // _Express_Integer_HeaderFile diff --git a/src/Express/Express_Item.cxx b/src/Express/Express_Item.cxx deleted file mode 100644 index 66665fd295..0000000000 --- a/src/Express/Express_Item.cxx +++ /dev/null @@ -1,264 +0,0 @@ -// Created: Tue Nov 2 13:14:31 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include -#include -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Item, Standard_Transient) - -Standard_Integer Express_Item::myIndex = -1; - -//================================================================================================= - -Express_Item::Express_Item(const Standard_CString theName) -{ - myName = new TCollection_HAsciiString(theName); - myGenMode = GM_Undefined; - myShortName = new TCollection_HAsciiString; - myCategory = new TCollection_HAsciiString; - myhasCheck = Standard_False; - myhasFillShared = Standard_False; - myLoopFlag = Standard_False; -} - -//================================================================================================= - -Express_Item::Express_Item(const Handle(TCollection_HAsciiString)& theName) -{ - myName = theName; - myGenMode = GM_Undefined; - myShortName = new TCollection_HAsciiString; - myCategory = new TCollection_HAsciiString; - myhasCheck = Standard_False; - myhasFillShared = Standard_False; - myLoopFlag = Standard_False; -} - -//================================================================================================= - -const TCollection_AsciiString& Express_Item::Name() const -{ - return myName->String(); -} - -//================================================================================================= - -Handle(TCollection_HAsciiString) Express_Item::HName() const -{ - return myName; -} - -//================================================================================================= - -const TCollection_AsciiString Express_Item::CPPName() const -{ - TCollection_AsciiString aName = GetPackageName(); - aName += "_"; - aName += Name(); - return aName; -} - -//================================================================================================= - -void Express_Item::SetPackageName(const TCollection_AsciiString& thePack) -{ - myPack = new TCollection_HAsciiString(thePack); -} - -//================================================================================================= - -const TCollection_AsciiString& Express_Item::GetPackageName() const -{ - if (myPack.IsNull()) - { - Message::SendWarning() << "Warning: item " << Name() << " still has no package assigned, used " - << GetUnknownPackageName(); - return GetUnknownPackageName(); - } - return myPack->String(); -} - -//================================================================================================= - -Standard_Boolean Express_Item::IsPackageNameSet() const -{ - return !myPack.IsNull(); -} - -//================================================================================================= - -TCollection_AsciiString& Express_Item::GetUnknownPackageName() -{ - static TCollection_AsciiString aUnknownPackageName = "StepStep"; - - return aUnknownPackageName; -} - -//================================================================================================= - -Express_Item::GenMode Express_Item::GetGenMode() const -{ - return myGenMode; -} - -//================================================================================================= - -void Express_Item::SetGenMode(const Express_Item::GenMode theGenMode) -{ - myGenMode = theGenMode; -} - -//================================================================================================= - -void Express_Item::ResetLoopFlag() -{ - myLoopFlag = Standard_False; -} - -//================================================================================================= - -Standard_Boolean Express_Item::Generate() -{ - // skip items without "generate" mark - GenMode aMode = GetGenMode(); - if (!(aMode == GM_GenByUser || aMode == GM_GenByAlgo)) - { - return Standard_False; - } - // manage indent for cout in order to mark structure of calls - static Standard_Integer aShift = -1; - aShift++; - for (Standard_Integer i = 0; i < aShift; i++) - { - std::cout << " "; - } - // sets the mode to generated before "GenerateClass" function to avoid looping - SetGenMode(GM_Generated); - Standard_Boolean aRes = GenerateClass(); - aShift--; - - return aRes; -} - -//================================================================================================= - -Standard_Boolean Express_Item::Use() -{ - // if Item is not mentioned by the user but is used, then it is necessary to generate - if (GetGenMode() != GM_Undefined) - { - return Standard_False; - } - SetGenMode(GM_GenByAlgo); - - return Generate(); -} - -//================================================================================================= - -void Express_Item::Use2(const TCollection_AsciiString& theRefName, - const TCollection_AsciiString& theRefPack) -{ - if (myLoopFlag) - { - return; - } - else - { - myLoopFlag = Standard_True; - } - // issue a warning message if item does not have package assigned - if (!IsPackageNameSet()) - { - Message::SendWarning() << "Warning: item " << Name() << " has no package assigned but used by " - << theRefName << ", setting " << theRefPack; - SetPackageName(theRefPack); - } - - PropagateUse(); -} - -//================================================================================================= - -void Express_Item::SetCategory(const Handle(TCollection_HAsciiString)& theCateg) -{ - myCategory = theCateg; -} - -//================================================================================================= - -const TCollection_AsciiString& Express_Item::Category() const -{ - return myCategory->String(); -} - -//================================================================================================= - -void Express_Item::SetShortName(const Handle(TCollection_HAsciiString)& theShName) -{ - myShortName = theShName; -} - -//================================================================================================= - -Handle(TCollection_HAsciiString) Express_Item::ShortName() const -{ - return myShortName; -} - -//================================================================================================= - -void Express_Item::SetCheckFlag(const Standard_Boolean theCheckFlag) -{ - myhasCheck = theCheckFlag; -} - -//================================================================================================= - -Standard_Boolean Express_Item::CheckFlag() const -{ - return myhasCheck; -} - -//================================================================================================= - -void Express_Item::SetFillSharedFlag(const Standard_Boolean theFillSharedFlag) -{ - myhasFillShared = theFillSharedFlag; -} - -//================================================================================================= - -Standard_Boolean Express_Item::FillSharedFlag() const -{ - return myhasFillShared; -} - -//================================================================================================= - -void Express_Item::SetIndex(const Standard_Integer theIndex) -{ - myIndex = theIndex; -} - -//================================================================================================= - -Standard_Integer Express_Item::Index() -{ - return myIndex; -} diff --git a/src/Express/Express_Item.hxx b/src/Express/Express_Item.hxx deleted file mode 100644 index c0f7303c3b..0000000000 --- a/src/Express/Express_Item.hxx +++ /dev/null @@ -1,149 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Item_HeaderFile -#define _Express_Item_HeaderFile - -#include -#include -#include -#include -#include - -class TCollection_AsciiString; -class TCollection_HAsciiString; - -//! Base class for items of the schema. Stores a name of the class, -//! package name and flag used to mark items for generation. -//! Provides interface for writing generated class definitions to HXX -//! and CXX files. -class Express_Item : public Standard_Transient -{ - -public: - enum GenMode - { - GM_NoGen, // Item in existed list - no need to generate - GM_GenByUser, // Item in new list - need to generate - GM_GenByAlgo, // Item isn't in any list but is used by needed item - GM_Undefined, // Item isn't in any list - GM_Generated // Item has been generated - }; - - //! Returns item name - Standard_EXPORT const TCollection_AsciiString& Name() const; - - //! Returns a pointer to the item name to modify it - Standard_EXPORT Handle(TCollection_HAsciiString) HName() const; - - //! Returns (generated) name for the item in CXX-style (Package_Class) - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const; - - //! Returns package name - //! If not defined, returns unknown package name: "StepStep" - Standard_EXPORT const TCollection_AsciiString& GetPackageName() const; - - //! Returns whether the package name is set. - Standard_EXPORT Standard_Boolean IsPackageNameSet() const; - - //! Returns unknown package name: "StepStep" - Standard_EXPORT static TCollection_AsciiString& GetUnknownPackageName(); - - //! Sets package name - Standard_EXPORT void SetPackageName(const TCollection_AsciiString& thePack); - - //! Returns item generation mode - Standard_EXPORT GenMode GetGenMode() const; - - //! Change generation mode for item - Standard_EXPORT void SetGenMode(const GenMode theGenMode); - - //! Reset loop flag - Standard_EXPORT void ResetLoopFlag(); - - //! General interface for creating HXX/CXX files from item - Standard_EXPORT virtual Standard_Boolean GenerateClass() const = 0; - - //! Propagates the calls of Use function - Standard_EXPORT virtual void PropagateUse() const = 0; - - //! Checks that item is marked for generation and if yes, - //! generate it by calling GenerateClass. But firstly define - //! PackageName to "StepStep" if not yet defined and drop Mark flag. - Standard_EXPORT Standard_Boolean Generate(); - - //! Declares item as used by other item being generated - //! If Item is not mentioned by the user (as new or existed) but is used, - //! then it sets GenMode to GM_GenByAlgo and Calls Generate(). - Standard_EXPORT Standard_Boolean Use(); - - //! Mark Item as visited in PropagateUse flow and defined the package name if not set. - Standard_EXPORT void Use2(const TCollection_AsciiString& theRefName, - const TCollection_AsciiString& theRefPack); - - //! Set category for item - Standard_EXPORT void SetCategory(const Handle(TCollection_HAsciiString)& theCateg); - - //! Get item category - Standard_EXPORT const TCollection_AsciiString& Category() const; - - //! Set short name for item - Standard_EXPORT void SetShortName(const Handle(TCollection_HAsciiString)& theShName); - - //! Get item short name - Standard_EXPORT Handle(TCollection_HAsciiString) ShortName() const; - - //! Set flag for presence of method Check in the class - Standard_EXPORT void SetCheckFlag(const Standard_Boolean theCheckFlag); - - //! Get flag responsible for presence of method Check in the class - Standard_EXPORT Standard_Boolean CheckFlag() const; - - //! Set flag for presence of method FillShared in the class - Standard_EXPORT void SetFillSharedFlag(const Standard_Boolean theFillSharedFlag); - - //! Get flag responsible for presence of method FillShared in the class - Standard_EXPORT Standard_Boolean FillSharedFlag() const; - - //! Set start entity index - Standard_EXPORT static void SetIndex(const Standard_Integer theIndex); - - //! Get current entity index - Standard_EXPORT static Standard_Integer Index(); - - DEFINE_STANDARD_RTTIEXT(Express_Item, Standard_Transient) - -protected: - //! Creates object and initializes fields PackageName and - //! CreateFlag by 0 - Standard_EXPORT Express_Item(const Standard_CString theName); - - //! Creates object and initializes fields PackageName and - //! CreateFlag by 0 - Standard_EXPORT Express_Item(const Handle(TCollection_HAsciiString)& theName); - -private: - Handle(TCollection_HAsciiString) myName; - Handle(TCollection_HAsciiString) myPack; - // "Generate" mark. If is TRUE a class will be generated for the item - GenMode myGenMode; - // Flag to avoid looping - Standard_Boolean myLoopFlag; - Handle(TCollection_HAsciiString) myShortName; - Handle(TCollection_HAsciiString) myCategory; - Standard_Boolean myhasCheck; - Standard_Boolean myhasFillShared; - static Standard_Integer myIndex; -}; - -#endif // _Express_Item_HeaderFile diff --git a/src/Express/Express_List.hxx b/src/Express/Express_List.hxx deleted file mode 100644 index ec0a961578..0000000000 --- a/src/Express/Express_List.hxx +++ /dev/null @@ -1,21 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_List_HeaderFile -#define _Express_List_HeaderFile - -#include - -typedef Express_ComplexType Express_List; - -#endif // _Express_List_HeaderFile diff --git a/src/Express/Express_Logical.cxx b/src/Express/Express_Logical.cxx deleted file mode 100644 index 25c37a7690..0000000000 --- a/src/Express/Express_Logical.cxx +++ /dev/null @@ -1,52 +0,0 @@ -// Created: Tue Nov 2 15:27:26 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Logical, Express_PredefinedType) - -//================================================================================================= - -Express_Logical::Express_Logical() {} - -//================================================================================================= - -const TCollection_AsciiString Express_Logical::CPPName() const -{ - return "StepData_Logical"; -} - -//================================================================================================= - -Standard_Boolean Express_Logical::IsStandard() const -{ - return Standard_False; -} - -//================================================================================================= - -Standard_Boolean Express_Logical::IsSimple() const -{ - return Standard_True; -} - -//================================================================================================= - -Standard_Boolean Express_Logical::IsHandle() const -{ - return Standard_False; -} diff --git a/src/Express/Express_Logical.hxx b/src/Express/Express_Logical.hxx deleted file mode 100644 index 74db2ccb61..0000000000 --- a/src/Express/Express_Logical.hxx +++ /dev/null @@ -1,48 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Logical_HeaderFile -#define _Express_Logical_HeaderFile - -#include -#include - -class TCollection_AsciiString; - -//! Implements EXPRESS type 'LOGICAL' -class Express_Logical : public Express_PredefinedType -{ - -public: - //! Empty constructor - Standard_EXPORT Express_Logical(); - - //! Returns "StepData_Logical" - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const Standard_OVERRIDE; - - //! Return False - Standard_EXPORT virtual Standard_Boolean IsStandard() const Standard_OVERRIDE; - - //! Return False - Standard_EXPORT virtual Standard_Boolean IsSimple() const Standard_OVERRIDE; - - //! Return False - Standard_EXPORT virtual Standard_Boolean IsHandle() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_Logical, Express_PredefinedType) - -protected: -private: -}; - -#endif // _Express_Logical_HeaderFile diff --git a/src/Express/Express_NamedType.cxx b/src/Express/Express_NamedType.cxx deleted file mode 100644 index 2ff27b9048..0000000000 --- a/src/Express/Express_NamedType.cxx +++ /dev/null @@ -1,132 +0,0 @@ -// Created: Tue Nov 2 15:13:31 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include -#include -#include -#include -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_NamedType, Express_Type) - -//================================================================================================= - -Express_NamedType::Express_NamedType(const Standard_CString theName) -{ - myName = new TCollection_HAsciiString(theName); -} - -//================================================================================================= - -Express_NamedType::Express_NamedType(const Handle(TCollection_HAsciiString)& theName) -{ - myName = theName; -} - -//================================================================================================= - -const TCollection_AsciiString& Express_NamedType::Name() const -{ - return myName->String(); -} - -//================================================================================================= - -Handle(TCollection_HAsciiString) Express_NamedType::HName() const -{ - return myName; -} - -//================================================================================================= - -const Handle(Express_Item)& Express_NamedType::Item() const -{ - return myItem; -} - -//================================================================================================= - -void Express_NamedType::SetItem(const Handle(Express_Item)& theItem) -{ - myItem = theItem; -} - -//================================================================================================= - -const TCollection_AsciiString Express_NamedType::CPPName() const -{ - return myItem->CPPName(); -} - -//================================================================================================= - -Standard_Boolean Express_NamedType::IsStandard() const -{ - if (myItem->IsKind(STANDARD_TYPE(Express_Alias))) - { - Handle(Express_Alias) anAlias = Handle(Express_Alias)::DownCast(myItem); - return anAlias->Type()->IsStandard(); - } - return Standard_False; -} - -//================================================================================================= - -Standard_Boolean Express_NamedType::IsSimple() const -{ - if (myItem->IsKind(STANDARD_TYPE(Express_Alias))) - { - Handle(Express_Alias) anAlias = Handle(Express_Alias)::DownCast(myItem); - return anAlias->Type()->IsSimple(); - } - if (myItem->IsKind(STANDARD_TYPE(Express_Enum))) - { - return Standard_True; - } - return Standard_False; // SELECT & ENTITY -} - -//================================================================================================= - -Standard_Boolean Express_NamedType::IsHandle() const -{ - if (myItem->IsKind(STANDARD_TYPE(Express_Alias))) - { - Handle(Express_Alias) alias = Handle(Express_Alias)::DownCast(myItem); - return alias->Type()->IsHandle(); - } - if (myItem->IsKind(STANDARD_TYPE(Express_Entity))) - { - return Standard_True; - } - return Standard_False; // SELECT & ENUMERATION -} - -//================================================================================================= - -Standard_Boolean Express_NamedType::Use() const -{ - return myItem->Use(); -} - -//================================================================================================= - -void Express_NamedType::Use2(const TCollection_AsciiString& theRefName, - const TCollection_AsciiString& theRefPack) const -{ - myItem->Use2(theRefName, theRefPack); -} diff --git a/src/Express/Express_NamedType.hxx b/src/Express/Express_NamedType.hxx deleted file mode 100644 index cf5f795347..0000000000 --- a/src/Express/Express_NamedType.hxx +++ /dev/null @@ -1,79 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_NamedType_HeaderFile -#define _Express_NamedType_HeaderFile - -#include -#include - -class Express_Item; -class TCollection_AsciiString; -class TCollection_HAsciiString; - -//! Base class for complex types (ARRAY, LIST, BAG, SET) -//! in EXPRESS schema -//! Stores type of elements and -class Express_NamedType : public Express_Type -{ - -public: - //! Creates an object and initializes by name - Standard_EXPORT Express_NamedType(const Standard_CString theName); - - //! Creates an object and initializes by name - Standard_EXPORT Express_NamedType(const Handle(TCollection_HAsciiString)& theName); - - //! Returns name of type (item in schema) - Standard_EXPORT const TCollection_AsciiString& Name() const; - - //! Returns a pointer to the type name to modify it - Standard_EXPORT Handle(TCollection_HAsciiString) HName() const; - - //! Returns handle to referred item in schema - Standard_EXPORT const Handle(Express_Item)& Item() const; - - //! Sets handle to referred item in schema - Standard_EXPORT void SetItem(const Handle(Express_Item)& theItem); - - //! Returns CPP-style name of the type - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const Standard_OVERRIDE; - - //! Return True if type is defined in package Standard - Standard_EXPORT virtual Standard_Boolean IsStandard() const Standard_OVERRIDE; - - //! Return True if type is simple (not a class) - Standard_EXPORT virtual Standard_Boolean IsSimple() const Standard_OVERRIDE; - - //! Return True if type is inherited from Transient - Standard_EXPORT virtual Standard_Boolean IsHandle() const Standard_OVERRIDE; - - //! Declares type as used by some item being generated. - //! Calls Use() for referred item (found by name). - Standard_EXPORT virtual Standard_Boolean Use() const Standard_OVERRIDE; - - //! Declares type as used by some item being generated. - //! Calls Use() for referred item (found by name). - Standard_EXPORT virtual void Use2(const TCollection_AsciiString& theRefName, - const TCollection_AsciiString& theRefPack) const - Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_NamedType, Express_Type) - -protected: -private: - Handle(TCollection_HAsciiString) myName; - Handle(Express_Item) myItem; -}; - -#endif // _Express_NamedType_HeaderFile diff --git a/src/Express/Express_Number.hxx b/src/Express/Express_Number.hxx deleted file mode 100644 index 7094c0ed2b..0000000000 --- a/src/Express/Express_Number.hxx +++ /dev/null @@ -1,21 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Number_HeaderFile -#define _Express_Number_HeaderFile - -#include - -typedef Express_Integer Express_Number; - -#endif // _Express_Number_HeaderFile diff --git a/src/Express/Express_PredefinedType.cxx b/src/Express/Express_PredefinedType.cxx deleted file mode 100644 index 61f7a2c77f..0000000000 --- a/src/Express/Express_PredefinedType.cxx +++ /dev/null @@ -1,29 +0,0 @@ -// Created: Tue Nov 2 15:13:31 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_PredefinedType, Express_Type) - -//================================================================================================= - -Express_PredefinedType::Express_PredefinedType() {} - -//================================================================================================= - -Standard_Boolean Express_PredefinedType::IsStandard() const -{ - return Standard_True; -} diff --git a/src/Express/Express_PredefinedType.hxx b/src/Express/Express_PredefinedType.hxx deleted file mode 100644 index 5ef4b107bc..0000000000 --- a/src/Express/Express_PredefinedType.hxx +++ /dev/null @@ -1,38 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_PredefinedType_HeaderFile -#define _Express_PredefinedType_HeaderFile - -#include -#include - -//! Base class for predefined types (like NUMBER or STRING) -//! in EXPRESS schema -class Express_PredefinedType : public Express_Type -{ - -public: - //! Returns True - Standard_EXPORT virtual Standard_Boolean IsStandard() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_PredefinedType, Express_Type) - -protected: - //! Empty constructor - Standard_EXPORT Express_PredefinedType(); - -private: -}; - -#endif // _Express_PredefinedType_HeaderFile diff --git a/src/Express/Express_Real.cxx b/src/Express/Express_Real.cxx deleted file mode 100644 index b03e7a3d64..0000000000 --- a/src/Express/Express_Real.cxx +++ /dev/null @@ -1,31 +0,0 @@ -// Created: Tue Nov 2 15:27:26 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Real, Express_PredefinedType) - -//================================================================================================= - -Express_Real::Express_Real() {} - -//================================================================================================= - -const TCollection_AsciiString Express_Real::CPPName() const -{ - return "Standard_Real"; -} diff --git a/src/Express/Express_Real.hxx b/src/Express/Express_Real.hxx deleted file mode 100644 index d2ad56f607..0000000000 --- a/src/Express/Express_Real.hxx +++ /dev/null @@ -1,39 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Real_HeaderFile -#define _Express_Real_HeaderFile - -#include -#include - -class TCollection_AsciiString; - -//! Implements EXPRESS type 'REAL' -class Express_Real : public Express_PredefinedType -{ - -public: - //! Empty constructor - Standard_EXPORT Express_Real(); - - //! Returns "Standard_Real" - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_Real, Express_PredefinedType) - -protected: -private: -}; - -#endif // _Express_Real_HeaderFile diff --git a/src/Express/Express_Reference.cxx b/src/Express/Express_Reference.cxx deleted file mode 100644 index 0e97eeb338..0000000000 --- a/src/Express/Express_Reference.cxx +++ /dev/null @@ -1,38 +0,0 @@ -// Created: Fri Nov 22 13:32:26 2002 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Reference, Express_Item) - -//================================================================================================= - -Express_Reference::Express_Reference(const Standard_CString theName, - const Handle(TColStd_HSequenceOfHAsciiString)& theTypes) - : Express_Item(theName) -{ - myTypes = theTypes; -} - -//================================================================================================= - -Standard_Boolean Express_Reference::GenerateClass() const -{ - return Standard_False; -} - -//================================================================================================= - -void Express_Reference::PropagateUse() const {} diff --git a/src/Express/Express_Reference.hxx b/src/Express/Express_Reference.hxx deleted file mode 100644 index dec569aa38..0000000000 --- a/src/Express/Express_Reference.hxx +++ /dev/null @@ -1,55 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Reference_HeaderFile -#define _Express_Reference_HeaderFile - -#include -#include -#include - -class Express_HSequenceOfItem; - -//! Implements REFERENCE FROM (list of types used from other schema) -//! item of the EXPRESS schema, with interface for Item class. -class Express_Reference : public Express_Item -{ - -public: - //! Create Reference item and initialize it - Standard_EXPORT Express_Reference(const Standard_CString theName, - const Handle(TColStd_HSequenceOfHAsciiString)& theTypes); - - //! Returns list of types referenced - const Handle(TColStd_HSequenceOfHAsciiString)& Types() const { return myTypes; } - - //! Returns handle to sequence of items corresponding to - //! listed types - const Handle(Express_HSequenceOfItem)& Items() const { return myItems; } - - //! Redefined to empty (in order to be able to instantiate) - //! Return False - Standard_EXPORT virtual Standard_Boolean GenerateClass() const Standard_OVERRIDE; - - //! Propagates the calls of Use function - Standard_EXPORT virtual void PropagateUse() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_Reference, Express_Item) - -protected: -private: - Handle(TColStd_HSequenceOfHAsciiString) myTypes; - Handle(Express_HSequenceOfItem) myItems; -}; - -#endif // _Express_Reference_HeaderFile diff --git a/src/Express/Express_Schema.cxx b/src/Express/Express_Schema.cxx deleted file mode 100644 index ca2d9bdaf8..0000000000 --- a/src/Express/Express_Schema.cxx +++ /dev/null @@ -1,302 +0,0 @@ -// Created: Tue Nov 2 12:29:06 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Schema, Standard_Transient) - -//================================================================================================= - -Express_Schema::Express_Schema(const Standard_CString theName, - const Handle(Express_HSequenceOfItem)& theItems) -{ - myName = new TCollection_HAsciiString(theName); - myItems = theItems; - Prepare(); -} - -//================================================================================================= - -Express_Schema::Express_Schema(const Handle(TCollection_HAsciiString)& theName, - const Handle(Express_HSequenceOfItem)& theItems) -{ - myName = theName; - myItems = theItems; - Prepare(); -} - -//================================================================================================= - -const Handle(TCollection_HAsciiString)& Express_Schema::Name() const -{ - return myName; -} - -//================================================================================================= - -const Handle(Express_HSequenceOfItem)& Express_Schema::Items() const -{ - return myItems; -} - -//================================================================================================= - -Standard_Integer Express_Schema::NbItems() const -{ - return myItems->Length(); -} - -//================================================================================================= - -Handle(Express_Item) Express_Schema::Item(const Standard_Integer theNum) const -{ - return myItems->Value(theNum); -} - -//================================================================================================= - -Handle(Express_Item) Express_Schema::Item(const Standard_CString theName, - const Standard_Boolean theSilent) const -{ - if (!myDict.IsBound(theName)) - { - if (!theSilent) - { - Message::SendFail() << "Error: attempt to access unknown item by name " << theName; - } - return {}; - } - return myDict.Find(theName); -} - -//================================================================================================= - -Handle(Express_Item) Express_Schema::Item(const TCollection_AsciiString& theName) const -{ - return Item(theName.ToCString()); -} - -//================================================================================================= - -Handle(Express_Item) Express_Schema::Item(const Handle(TCollection_HAsciiString)& theName) const -{ - return Item(theName->ToCString()); -} - -//======================================================================= -// function : nameToCasCade -// purpose : auxiliary for Prepare() -// Convert STEP-style name (lowercase, with underscores) -// to CASCADE-style name (each word starts with uppercase, no intervals) -//======================================================================= -static void nameToCasCade(const Handle(TCollection_HAsciiString)& theName) -{ - if (theName.IsNull()) - { - return; - } - for (Standard_Integer i = 1; i <= theName->Length(); i++) - { - if (theName->Value(i) == '_') - { - theName->Remove(i); - } - else if (i > 1) - { - continue; - } - theName->SetValue(i, UpperCase(theName->Value(i))); - } -} - -//======================================================================= -// function : nameToCasCade -// purpose : auxiliary for Prepare() -// Convert names for Type object -//======================================================================= -static void nameToCasCade(const Handle(Express_Type)& theType) -{ - if (theType->IsKind(STANDARD_TYPE(Express_NamedType))) - { - const Handle(Express_NamedType) aNamedType = Handle(Express_NamedType)::DownCast(theType); - nameToCasCade(aNamedType->HName()); - } - else if (theType->IsKind(STANDARD_TYPE(Express_ComplexType))) - { - const Handle(Express_ComplexType) aComplexType = Handle(Express_ComplexType)::DownCast(theType); - nameToCasCade(aComplexType->Type()); - } -} - -//======================================================================= -// function : Prepare -// purpose : Prepare data: convert names to CasCade, fill dictionary of typenames -// and set handles to items where they are referenced by names -//======================================================================= - -void Express_Schema::Prepare() -{ - myDict.Clear(); - if (myItems.IsNull()) - { - return; - } - - Standard_Integer aNbItems = NbItems(); - - // convert names and fill dictionary - for (Standard_Integer aNum = 1; aNum <= aNbItems; aNum++) - { - // get item - const Handle(Express_Item) anItem = Item(aNum); - - // change item name - nameToCasCade(anItem->HName()); - - // change names of referred types and other names - if (anItem->IsKind(STANDARD_TYPE(Express_Alias))) - { - const Handle(Express_Alias) anAlias = Handle(Express_Alias)::DownCast(anItem); - nameToCasCade(anAlias->Type()); - } - else if (anItem->IsKind(STANDARD_TYPE(Express_Select))) - { - const Handle(Express_Select) aSelect = Handle(Express_Select)::DownCast(anItem); - for (Standard_Integer i = 1; i <= aSelect->Names()->Length(); i++) - { - nameToCasCade(aSelect->Names()->Value(i)); - } - } - else if (anItem->IsKind(STANDARD_TYPE(Express_Enum))) - { - const Handle(Express_Enum) anEnum = Handle(Express_Enum)::DownCast(anItem); - for (Standard_Integer i = 1; i <= anEnum->Names()->Length(); i++) - { - nameToCasCade(anEnum->Names()->Value(i)); - } - } - else if (anItem->IsKind(STANDARD_TYPE(Express_Entity))) - { - const Handle(Express_Entity) anEntity = Handle(Express_Entity)::DownCast(anItem); - for (Standard_Integer i = 1; i <= anEntity->SuperTypes()->Length(); i++) - { - nameToCasCade(anEntity->SuperTypes()->Value(i)); - } - const Handle(Express_HSequenceOfField) aFields = anEntity->Fields(); - for (Standard_Integer i = 1; i <= aFields->Length(); i++) - { - nameToCasCade(aFields->Value(i)->HName()); - nameToCasCade(aFields->Value(i)->Type()); - } - } - - // add to dictionary - myDict.Bind(anItem->Name(), anItem); - } - - // set references to items from other items and types - for (Standard_Integer aNum = 1; aNum <= aNbItems; aNum++) - { - const Handle(Express_Item) anItem = Item(aNum); - - if (anItem->IsKind(STANDARD_TYPE(Express_Alias))) - { - const Handle(Express_Alias) anAlias = Handle(Express_Alias)::DownCast(anItem); - PrepareType(anAlias->Type()); - // for aliases, define package to avoid warnings - anAlias->SetPackageName("Standard"); - continue; - } - else if (anItem->IsKind(STANDARD_TYPE(Express_Select))) - { - const Handle(Express_Select) aSelect = Handle(Express_Select)::DownCast(anItem); - Handle(TColStd_HSequenceOfHAsciiString) aNames = aSelect->Names(); - Handle(Express_HSequenceOfItem) anItems = aSelect->Items(); - for (Standard_Integer i = 1; i <= aNames->Length(); i++) - { - Handle(Express_Item) aSubItem = Item(aNames->Value(i)); - // if select refers to another select, expand it - if (aSubItem->IsKind(STANDARD_TYPE(Express_Select))) - { - Message::SendInfo() << "Info: SELECT " << anItem->Name() << " refers to another SELECT " - << aSubItem->Name() << "; expanded"; - const Handle(Express_Select) aSubSelect = Handle(Express_Select)::DownCast(aSubItem); - Standard_Integer j = 1; - for (; j <= aSubSelect->Names()->Length(); j++) - { - aNames->InsertBefore(i + j - 1, aSubSelect->Names()->Value(j)); - } - aNames->Remove(i + j - 1); - i--; - continue; - } - anItems->Append(aSubItem); - } - } - else if (anItem->IsKind(STANDARD_TYPE(Express_Entity))) - { - const Handle(Express_Entity) anEntity = Handle(Express_Entity)::DownCast(anItem); - Handle(TColStd_HSequenceOfHAsciiString) aNames = anEntity->SuperTypes(); - Handle(Express_HSequenceOfEntity) anInhItems = anEntity->Inherit(); - for (Standard_Integer i = 1; i <= aNames->Length(); i++) - { - Handle(Express_Entity) aSubEntity = - Handle(Express_Entity)::DownCast(Item(aNames->Value(i))); - if (!aSubEntity.IsNull()) - { - anInhItems->Append(aSubEntity); - } - else - { - Message::SendFail() << "Error in " << anItem->Name() << ": supertype " - << aNames->Value(i)->String() << " is not an ENTITY; ignored"; - } - } - const Handle(Express_HSequenceOfField) aFields = anEntity->Fields(); - for (Standard_Integer i = 1; i <= aFields->Length(); i++) - { - PrepareType(aFields->Value(i)->Type()); - } - } - } -} - -//================================================================================================= - -void Express_Schema::PrepareType(const Handle(Express_Type)& theType) const -{ - if (theType->IsKind(STANDARD_TYPE(Express_NamedType))) - { - Handle(Express_NamedType) aNamedType = Handle(Express_NamedType)::DownCast(theType); - aNamedType->SetItem(Item(aNamedType->Name())); - } - else if (theType->IsKind(STANDARD_TYPE(Express_ComplexType))) - { - Handle(Express_ComplexType) aComplexType = Handle(Express_ComplexType)::DownCast(theType); - PrepareType(aComplexType->Type()); - } -} diff --git a/src/Express/Express_Schema.hxx b/src/Express/Express_Schema.hxx deleted file mode 100644 index 006d94ff2c..0000000000 --- a/src/Express/Express_Schema.hxx +++ /dev/null @@ -1,88 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Schema_HeaderFile -#define _Express_Schema_HeaderFile - -#include -#include -#include - -class TCollection_HAsciiString; -class Express_HSequenceOfItem; -class Express_Item; -class TCollection_AsciiString; -class Express_Type; - -//! Represents a schema as a list of items and provides general -//! tools for generating HXX/CXX files (including dictionary of -//! item names) -class Express_Schema : public Standard_Transient -{ - -public: - //! Creates a schema with given name and given set of items - //! and calls Prepare() - Standard_EXPORT Express_Schema(const Standard_CString theName, - const Handle(Express_HSequenceOfItem)& theItems); - - //! Creates a schema with given name and given set of items - //! and calls Prepare() - Standard_EXPORT Express_Schema(const Handle(TCollection_HAsciiString)& theName, - const Handle(Express_HSequenceOfItem)& theItems); - - //! Returns schema name - Standard_EXPORT const Handle(TCollection_HAsciiString)& Name() const; - - //! Returns sequence of items - Standard_EXPORT const Handle(Express_HSequenceOfItem)& Items() const; - - //! Returns number of items - Standard_EXPORT Standard_Integer NbItems() const; - - //! Returns item by index - Standard_EXPORT Handle(Express_Item) Item(const Standard_Integer theNum) const; - - //! Returns item by name - Standard_EXPORT Handle(Express_Item) Item( - const Standard_CString theName, - const Standard_Boolean theSilent = Standard_False) const; - - //! Returns item by name - Standard_EXPORT Handle(Express_Item) Item(const TCollection_AsciiString& theName) const; - - //! Returns item by name - Standard_EXPORT Handle(Express_Item) Item(const Handle(TCollection_HAsciiString)& theName) const; - - DEFINE_STANDARD_RTTIEXT(Express_Schema, Standard_Transient) - -protected: -private: - //! Prepares data for further work. Converts all item names - //! from EXPRESS style (aaa_bb) to CASCADE style (AaaBb). - //! Then, makes a dictionary of item names and sets handles - //! to all items referred initially by name - Standard_EXPORT void Prepare(); - - //! Prepares type for work by setting its handle to item in the - //! schema according to dictionary (for types which refer items - //! by name) - Standard_EXPORT void PrepareType(const Handle(Express_Type)& theType) const; - -private: - Handle(TCollection_HAsciiString) myName; - Handle(Express_HSequenceOfItem) myItems; - Express_DataMapOfAsciiStringItem myDict; -}; - -#endif // _Express_Schema_HeaderFile diff --git a/src/Express/Express_Select.cxx b/src/Express/Express_Select.cxx deleted file mode 100644 index d26caa8d82..0000000000 --- a/src/Express/Express_Select.cxx +++ /dev/null @@ -1,714 +0,0 @@ -// Created: Tue Nov 2 14:40:06 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Select, Express_Item) - -//================================================================================================= - -Express_Select::Express_Select(const Standard_CString theName, - const Handle(TColStd_HSequenceOfHAsciiString)& theNames) - : Express_Item(theName), - myNames(theNames) -{ - myItems = new Express_HSequenceOfItem; -} - -//================================================================================================= - -const Handle(TColStd_HSequenceOfHAsciiString)& Express_Select::Names() const -{ - return myNames; -} - -//================================================================================================= - -const Handle(Express_HSequenceOfItem)& Express_Select::Items() const -{ - return myItems; -} - -//================================================================================================= - -Standard_Boolean Express_Select::GenerateClass() const -{ - const TCollection_AsciiString aCPPName = CPPName(); - - Handle(TColStd_HSequenceOfInteger) aSeqMember = new TColStd_HSequenceOfInteger; - Handle(TColStd_HSequenceOfInteger) aSeqEntities = new TColStd_HSequenceOfInteger; - for (Standard_Integer i = 1; i <= myItems->Length(); i++) - { - Handle(Express_Item) anItem = myItems->Value(i); - if (anItem->IsKind(STANDARD_TYPE(Express_Entity)) - || anItem->IsKind(STANDARD_TYPE(Express_Select)) - || anItem->IsKind(STANDARD_TYPE(Express_Alias)) - || anItem->IsKind(STANDARD_TYPE(Express_ComplexType))) - { - aSeqEntities->Append(i); - } - else - { - aSeqMember->Append(i); - } - } - Message::SendInfo() << "Generating SELECT " << aCPPName; - if (!aSeqMember->IsEmpty()) - { - Message::SendInfo() << "Generating SELECTMember " << aCPPName << "Member"; - generateSelectMember(aSeqMember); - } - // create a package directory (if not yet exist) - OSD_Protection aProt(OSD_RWXD, OSD_RWXD, OSD_RX, OSD_RX); - TCollection_AsciiString aPack = GetPackageName(); - OSD_Path aPath(aPack); - OSD_Directory aDir(aPath); - aDir.Build(aProt); - aPack += "/"; - aPack += aCPPName; - const Handle(OSD_FileSystem)& aFileSystem = OSD_FileSystem::DefaultFileSystem(); - - //=============================== - // Step 1: generating HXX - { - // Open HXX file - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aPack.Cat(".hxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - - // write header - Express::WriteFileStamp(anOS); - - // write start define - anOS << "#ifndef _" << aCPPName - << "_HeaderFile\n" - "#define _" - << aCPPName - << "_HeaderFile\n" - "\n"; - - // write common includes - anOS << "#include \n" - "#include \n" - "#include \n" - "#include \n" - "#include \n" - "\n"; - - anOS << "class Standard_Transient;\n"; - if (!aSeqMember->IsEmpty()) - anOS << "class StepData_SelectMember;\n"; - - for (Standard_Integer i = 1; i <= myItems->Length(); i++) - { - Handle(Express_Item) anItem = myItems->Value(i); - anItem->Use(); - if (anItem->IsKind(STANDARD_TYPE(Express_Alias))) - { - Handle(Express_Type) aType = Handle(Express_Alias)::DownCast(anItem)->Type(); - if (aType->IsStandard()) - { - continue; - } - } - anOS << "class " << anItem->CPPName() << ";\n"; - } - anOS << "\n"; - - // class declaration - anOS << "//! Representation of STEP SELECT type " << Name() - << "\n" - "class " - << aCPPName - << " : public StepData_SelectType\n" - "{\n" - "\n" - "public:\n" - "\n" - " DEFINE_STANDARD_ALLOC\n" - "\n"; - - // default constructor - anOS << " //! Empty constructor\n" - " Standard_EXPORT " - << aCPPName - << "();\n" - "\n"; - - // write common methods section - anOS << " //! Recognizes a kind of " << Name() << " select type\n"; - for (Standard_Integer i = 1; i <= aSeqEntities->Length(); i++) - { - Standard_Integer anIdx = aSeqEntities->Value(i); - anOS << " //! -- " << i << " -> " << myNames->Value(anIdx)->String() << "\n"; - } - anOS << " Standard_EXPORT Standard_Integer CaseNum (const Handle(Standard_Transient)& theEnt) " - "const Standard_OVERRIDE;\n" - "\n"; - - if (!aSeqMember->IsEmpty()) - { - anOS << " //! Recognizes items of select member " << Name() << "Member\n"; - for (Standard_Integer i = 1; i <= aSeqMember->Length(); i++) - { - Standard_Integer anIdx = aSeqMember->Value(i); - anOS << " //! -- " << i << " -> " << myNames->Value(anIdx)->String() << "\n"; - } - anOS << " //! -- 0 else\n" - " Standard_EXPORT virtual Standard_Integer CaseMem (const " - "Handle(StepData_SelectMember)& theEnt) const Standard_OVERRIDE;\n" - "\n" - " //! Returns a new select member the type " - << Name() - << "Member\n" - " Standard_EXPORT virtual Handle(StepData_SelectMember) NewMember() const " - "Standard_OVERRIDE;\n" - "\n"; - } - - // write methods get for entities - for (Standard_Integer i = 1; i <= aSeqEntities->Length(); i++) - { - Standard_Integer anIdx = aSeqEntities->Value(i); - Handle(Express_Item) anItem = myItems->Value(anIdx); - const TCollection_AsciiString& aName = anItem->Name(); - anOS << " //! Returns Value as " << aName - << " (or Null if another type)\n" - " Standard_EXPORT Handle(" - << anItem->CPPName() << ") " << aName - << "() const;\n" - "\n"; - } - - // writes method set and get for enum , integer, real and string. - for (Standard_Integer i = 1; i <= aSeqMember->Length(); i++) - { - Standard_Integer anIdx = aSeqMember->Value(i); - Handle(Express_Item) anItem = myItems->Value(anIdx); - const TCollection_AsciiString& aName = anItem->Name(); - const TCollection_AsciiString& anItemCPPName = anItem->CPPName(); - anOS << " //! Set Value for " << aName - << "\n" - " Standard_EXPORT void Set" - << aName << " (const " << anItemCPPName - << " theVal);\n" - "\n" - " //! Returns Value as " - << aName - << " (or Null if another type)\n" - " " - << anItemCPPName << " " << aName - << "() const;\n" - "\n"; - } - - // write end - anOS << "};\n" - "#endif // _" - << aCPPName << "_HeaderFile\n"; - aStreamPtr.reset(); - } - //=============================== - // Step 2: generating CXX - { - // Open CXX file - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aPack.Cat(".cxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - - // write header - Express::WriteFileStamp(anOS); - - // write include section - anOS << "#include <" << aCPPName << ".hxx>\n"; - if (!aSeqMember->IsEmpty()) - { - anOS << "#include <" << aCPPName - << "Member.hxx>\n" - "#include \n"; - } - for (Standard_Integer i = 1; i <= aSeqEntities->Length(); i++) - { - Standard_Integer anIdx = aSeqEntities->Value(i); - anOS << "#include <" << myItems->Value(anIdx)->CPPName() << ".hxx>\n"; - } - - // write constructor - Express::WriteMethodStamp(anOS, aCPPName); - anOS << aCPPName << "::" << aCPPName - << "()\n" - "{\n" - "}\n"; - - // write CaseNum method - Express::WriteMethodStamp(anOS, "CaseNum"); - anOS << "Standard_Integer " << aCPPName - << "::CaseNum (const Handle(Standard_Transient)& theEnt) const\n" - "{\n"; - - if (!aSeqEntities->IsEmpty()) - { - anOS << " if (theEnt.IsNull()) return 0;\n"; - for (Standard_Integer i = 1; i <= aSeqEntities->Length(); i++) - { - Standard_Integer anIdx = aSeqEntities->Value(i); - anOS << " if (theEnt->IsKind (STANDARD_TYPE(" << myItems->Value(anIdx)->CPPName() - << "))) return " << i << ";\n"; - } - anOS << " return 0;\n" - "}\n"; - } - else - { - anOS << " return 0;\n" - "}\n"; - } - - if (!aSeqMember->IsEmpty()) - { - // write CaseMem method - Express::WriteMethodStamp(anOS, "CaseMem"); - anOS << "Standard_Integer " << aCPPName - << "::CaseMem (const Handle(StepData_SelectMember)& theEnt) const\n" - "{\n" - " if (theEnt.IsNull()) return 0;\n"; - for (int j = 1; j <= aSeqMember->Length(); j++) - { - Standard_Integer anIdx = aSeqMember->Value(j); - if (j == 1) - { - anOS << " if (theEnt->Matches (\"" << myNames->Value(anIdx)->String() << "\")) return " - << j << ";\n"; - } - else - { - anOS << " else if (theEnt->Matches (\"" << myNames->Value(anIdx)->String() - << "\")) return " << j << ";\n"; - } - } - anOS << " else return 0;\n" - "}\n"; - - // write NewMember method - Express::WriteMethodStamp(anOS, "NewMember"); - anOS << "Handle(StepData_SelectMember) " << aCPPName - << "::NewMember() const\n" - "{\n" - " return new " - << aCPPName - << "Member;\n" - "}\n"; - } - - // write methods Get for entities. - for (Standard_Integer i = 1; i <= aSeqEntities->Length(); i++) - { - Standard_Integer anIdx = aSeqEntities->Value(i); - Handle(Express_Item) anItem = myItems->Value(anIdx); - const TCollection_AsciiString& aName = anItem->Name(); - const TCollection_AsciiString& anItemCPPName = anItem->CPPName(); - Express::WriteMethodStamp(anOS, aName); - anOS << "Handle(" << anItemCPPName << ") " << aCPPName << "::" << aName - << "() const\n" - "{\n" - " return Handle(" - << anItemCPPName - << ")::DownCast(Value());\n" - "}\n"; - } - - // write methods Set and Get for Integer, Real, String and Enum - for (Standard_Integer i = 1; i <= aSeqMember->Length(); i++) - { - Standard_Integer anIdx = aSeqMember->Value(i); - Handle(Express_Item) anItem = myItems->Value(anIdx); - const TCollection_AsciiString& aName = anItem->Name(); - const TCollection_AsciiString& anItemCPPName = anItem->CPPName(); - TCollection_AsciiString aStamp = "Set"; - aStamp += aName; - Express::WriteMethodStamp(anOS, aStamp); - - Standard_Boolean isString = - (anItemCPPName.Location("HAsciiString", 1, anItemCPPName.Length()) > 0); - TCollection_AsciiString aNameFunc; - TCollection_AsciiString aFunc; - Standard_Boolean isEnum = anItem->IsKind(STANDARD_TYPE(Express_Enum)); - if (!isEnum) - { - if (isString) - { - aFunc += "String"; - } - else - { - aNameFunc += anItemCPPName; - aFunc = aNameFunc; - Standard_Integer aSplitInd = aNameFunc.Location("_", 1, anItemCPPName.Length()); - if (aSplitInd) - { - aFunc = aNameFunc.Split(aSplitInd); - } - } - } - - // write method set - if (isString) - { - anOS << "void " << aCPPName << "::Set" << aName << " (const Handle(" << anItemCPPName - << ") &theVal)\n"; - } - else - { - anOS << "void " << aCPPName << "::Set" << aName << " (const " << anItemCPPName - << " theVal)\n"; - } - - anOS << "{\n" - " Handle(" - << aCPPName << "Member) SelMem = Handle(" << aCPPName - << "Member)::DownCast(Value());\n" - " if (SelMem.IsNull()) return;\n" - " Handle(TCollection_HAsciiString) aName = new TCollection_HAsciiString(\"" - << aName - << "\");\n" - " SelMem->SetName (aName->ToCString());\n"; - if (isEnum) - { - anOS << " SelMem->SetEnum ((Standard_Integer)theVal);\n"; - } - else if (isString) - { - anOS << " SelMem->Set" << aFunc << " (theVal->ToCString());\n"; - } - else - { - anOS << " SelMem->Set" << aFunc << " (theVal);\n"; - } - anOS << "}\n"; - - // write method get - Express::WriteMethodStamp(anOS, aName); - if (isString) - { - anOS << "Handle(" << anItemCPPName << ") " << aCPPName << "::" << aName << "() const\n"; - } - else - { - anOS << anItemCPPName << " " << aCPPName << "::" << aName << "() const\n"; - } - - anOS << "{\n" - " Handle(" - << aCPPName << "Member) SelMem = Handle(" << aCPPName - << "Member)::DownCast (Value());\n" - " if (SelMem.IsNull()) return 0;\n" - " Handle(TCollection_HAsciiString) aName = new TCollection_HAsciiString;\n" - " aName->AssignCat (SelMem->Name());\n" - " Handle(TCollection_HAsciiString) aNameItem = new TCollection_HAsciiString(\"" - << aName - << "\");\n" - " if (aName->IsDifferent (aNameItem)) return 0;\n"; - if (isEnum) - { - anOS << " Standard_Integer aNumIt = SelMem->Enum();\n" - " " - << anItemCPPName - << " aVal;\n" - " switch (aNumIt)\n" - " {\n"; - Handle(Express_Enum) anEnum = Handle(Express_Enum)::DownCast(anItem); - Handle(TColStd_HSequenceOfHAsciiString) anEnItems = anEnum->Names(); - TCollection_AsciiString aPrefix = Express::EnumPrefix(aName); - for (Standard_Integer k = 1; k <= anEnItems->Length(); k++) - { - anOS << " case " << k << " : aVal = " << aName << "_" << aPrefix - << anEnItems->Value(k)->String() << "; break;\n"; - } - anOS << " default : return 0; break;\n" - " }\n"; - } - else if (isString) - { - anOS << " Handle(TCollection_HAsciiString) aVal = new TCollection_HAsciiString;\n" - " aVal->AssignCat (SelMem->String());\n"; - } - else - { - anOS << " " << anItemCPPName << " aVal = SelMem->" << aFunc << "();\n"; - } - - anOS << " return aVal;\n" - "}\n"; - } - aStreamPtr.reset(); - } - - return Standard_True; -} - -//================================================================================================= - -void Express_Select::PropagateUse() const -{ - const TCollection_AsciiString& aPack = GetPackageName(); - const TCollection_AsciiString& aName = Name(); - - for (Standard_Integer i = 1; i <= myItems->Length(); i++) - { - Handle(Express_Item) anItem = myItems->Value(i); - anItem->Use2(aName, aPack); - } -} - -//================================================================================================= - -Standard_Boolean Express_Select::generateSelectMember( - const Handle(TColStd_HSequenceOfInteger)& theSeqMember) const -{ - TCollection_AsciiString aCPPname = CPPName(); - aCPPname += "Member"; - - // create a package directory (if not yet exist) - OSD_Protection aProt(OSD_RWXD, OSD_RWXD, OSD_RX, OSD_RX); - TCollection_AsciiString aPack = GetPackageName(); - OSD_Path aPath(aPack); - OSD_Directory aDir(aPath); - aDir.Build(aProt); - aPack += "/"; - aPack += aCPPname; - const Handle(OSD_FileSystem)& aFileSystem = OSD_FileSystem::DefaultFileSystem(); - - // Step 1: generating HXX - { - // Open HXX file - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aPack.Cat(".hxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - // write header - Express::WriteFileStamp(anOS); - - // write start define - anOS << "#ifndef _" << aCPPname - << "_HeaderFile\n" - "#define _" - << aCPPname - << "_HeaderFile\n" - "\n"; - - // includes - anOS << "#include \n" - "#include \n" - "#include \n" - "#include \n" - "#include \n" - "#include \n" - "\n" - "DEFINE_STANDARD_HANDLE(" - << aCPPname - << ", StepData_SelectNamed)\n" - "\n"; - - // write start of declaration (inheritance) - anOS << " //! Representation of member for STEP SELECT type " << Name() - << "\n" - "class " - << aCPPname - << " : public StepData_SelectNamed\n" - "{\n" - "public:\n"; - - // write methods - anOS << " //! Empty constructor\n" - " Standard_EXPORT " - << aCPPname - << "();\n" - "\n" - " //! Returns True if has name\n" - " Standard_EXPORT virtual Standard_Boolean HasName() const Standard_OVERRIDE;\n" - "\n" - " //! Returns name\n" - " Standard_EXPORT virtual Standard_CString Name() const Standard_OVERRIDE;\n" - "\n" - " //! Set name\n" - " Standard_EXPORT virtual Standard_Boolean SetName(const Standard_CString name) " - "Standard_OVERRIDE;\n" - "\n" - " //! Tells if the name of a SelectMember matches a given one;\n" - " Standard_EXPORT virtual Standard_Boolean Matches (const Standard_CString name) " - "const Standard_OVERRIDE;\n" - "\n"; - - // write fields - anOS << "private:\n" - " Standard_Integer myCase;\n" - "\n"; - // write end - anOS << "};\n" - "#endif // _" - << aCPPname << "_HeaderFile\n"; - aStreamPtr.reset(); - } - //=============================== - // Step 2: generating CXX - { - // Open CXX file - std::shared_ptr aStreamPtr = - aFileSystem->OpenOStream(aPack.Cat(".cxx"), std::ios::out | std::ios::binary); - Standard_OStream& anOS = *aStreamPtr; - - // write header - Express::WriteFileStamp(anOS); - - // write include section - anOS << "#include <" << aCPPname - << ".hxx>\n" - "#include \n"; - // write constructor - Express::WriteMethodStamp(anOS, aCPPname); - anOS << aCPPname << "::" << aCPPname - << "() : myCase(0) \n" - "{\n" - "}\n"; - - // write method HasName - Express::WriteMethodStamp(anOS, "HasName"); - anOS << "Standard_Boolean " << aCPPname - << "::HasName() const\n" - "{\n" - " return myCase > 0;\n" - "}\n"; - - Standard_Boolean hasEnum = Standard_False; - // write method Name - Express::WriteMethodStamp(anOS, "Name"); - anOS << "Standard_CString " << aCPPname - << "::Name() const\n" - "{\n" - " Handle(TCollection_HAsciiString) aName = new TCollection_HAsciiString;\n" - " switch (myCase)" - " {\n"; - for (Standard_Integer i = 1; i <= theSeqMember->Length(); i++) - { - Standard_Integer anIdx = theSeqMember->Value(i); - Handle(Express_Item) anItem = myItems->Value(anIdx); - if (anItem->IsKind(STANDARD_TYPE(Express_Enum))) - { - hasEnum = Standard_True; - } - anOS << " case " << i << " : aName->AssignCat (\"" << myNames->Value(anIdx)->String() - << "\"); break;\n"; - } - anOS << " default : break;\n" - " }\n" - " return aName->String();\n" - "}\n"; - - // write static method for compare name - Express::WriteMethodStamp(anOS, "CompareNames"); - anOS << "static Standard_Integer CompareNames (const Standard_CString theName"; - if (hasEnum) - { - anOS << ", Standard_Integer &theNumEn)\n"; - } - else - { - anOS << ")\n"; - } - anOS << "{\n" - " Standard_Integer aCase = 0;\n" - " if (!theName || theName[0] == \'/0\') aCase = 0;\n"; - for (Standard_Integer i = 1; i <= theSeqMember->Length(); i++) - { - Standard_Integer anIdx = theSeqMember->Value(i); - Handle(Express_Item) anItem = myItems->Value(anIdx); - if (anItem->IsKind(STANDARD_TYPE(Express_Enum))) - { - Handle(Express_Enum) en = Handle(Express_Enum)::DownCast(anItem); - for (Standard_Integer k = 1; k <= en->Names()->Length(); k++) - { - anOS << " else if (!strcmp (theName, \"" << en->Names()->Value(k)->String() - << "\"))\n" - " {\n" - " aCase = " - << i - << ";\n" - " theNumEn = " - << k - << ";\n" - " }\n"; - } - } - else - { - anOS << " else if (!strcmp (theName, \"" << myNames->Value(anIdx)->String() - << "\")) aCase = " << i << ";\n"; - } - } - anOS << " return aCase;\n" - "}\n"; - - // write method SetName - Express::WriteMethodStamp(anOS, "SetName"); - anOS << "Standard_Boolean " << aCPPname - << "::SetName (const Standard_CString theName) \n" - "{\n"; - if (hasEnum) - { - anOS << " Standard_Integer aNumIt = 0;\n" - " myCase = CompareNames (theName, aNumIt);\n" - " if (aNumIt) SetInteger (aNumIt);\n"; - } - else - { - anOS << " myCase = CompareNames (theName);\n"; - } - anOS << " return (myCase > 0);\n" - "}\n"; - - // write method Matches - Express::WriteMethodStamp(anOS, "Matches"); - anOS << "Standard_Boolean " << aCPPname - << "::Matches (const Standard_CString theName) const\n" - "{\n"; - if (hasEnum) - { - anOS << " Standard_Integer aNumIt = 0;\n" - " Standard_Integer aCase = CompareNames (theName, aNumIt);\n"; - } - else - { - anOS << " Standard_Integer aCase = CompareNames (theName);\n"; - } - anOS << " return (aCase > 0);\n" - "}\n"; - aStreamPtr.reset(); - } - - return Standard_True; -} diff --git a/src/Express/Express_Select.hxx b/src/Express/Express_Select.hxx deleted file mode 100644 index 06c5086556..0000000000 --- a/src/Express/Express_Select.hxx +++ /dev/null @@ -1,60 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Select_HeaderFile -#define _Express_Select_HeaderFile - -#include - -#include -#include -#include -#include -#include - -class Express_HSequenceOfItem; - -//! Implements TYPE SELECT item of the EXPRESS -//! schema, with interface for deferred Item class. -class Express_Select : public Express_Item -{ - -public: - //! Create SELECT item and initialize it - Standard_EXPORT Express_Select(const Standard_CString theName, - const Handle(TColStd_HSequenceOfHAsciiString)& theNames); - - //! Returns names of types included in this SELECT - Standard_EXPORT const Handle(TColStd_HSequenceOfHAsciiString)& Names() const; - - //! Returns sequence of items corresponding to typenames - Standard_EXPORT const Handle(Express_HSequenceOfItem)& Items() const; - - //! Create HXX/CXX files from item - Standard_EXPORT virtual Standard_Boolean GenerateClass() const Standard_OVERRIDE; - - //! Propagates the calls of Use function - Standard_EXPORT virtual void PropagateUse() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_Select, Express_Item) - -protected: -private: - Standard_EXPORT Standard_Boolean - generateSelectMember(const Handle(TColStd_HSequenceOfInteger)& theSeqMember) const; - - Handle(TColStd_HSequenceOfHAsciiString) myNames; - Handle(Express_HSequenceOfItem) myItems; -}; - -#endif // _Express_Select_HeaderFile diff --git a/src/Express/Express_SequenceOfEntity.hxx b/src/Express/Express_SequenceOfEntity.hxx deleted file mode 100644 index 621e6dd1a1..0000000000 --- a/src/Express/Express_SequenceOfEntity.hxx +++ /dev/null @@ -1,22 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef Express_SequenceOfEntity_HeaderFile -#define Express_SequenceOfEntity_HeaderFile - -#include -#include - -typedef NCollection_Sequence Express_SequenceOfEntity; - -#endif diff --git a/src/Express/Express_SequenceOfField.hxx b/src/Express/Express_SequenceOfField.hxx deleted file mode 100644 index 77f6150585..0000000000 --- a/src/Express/Express_SequenceOfField.hxx +++ /dev/null @@ -1,22 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef Express_SequenceOfField_HeaderFile -#define Express_SequenceOfField_HeaderFile - -#include -#include - -typedef NCollection_Sequence Express_SequenceOfField; - -#endif diff --git a/src/Express/Express_SequenceOfItem.hxx b/src/Express/Express_SequenceOfItem.hxx deleted file mode 100644 index 4ab9afd9ea..0000000000 --- a/src/Express/Express_SequenceOfItem.hxx +++ /dev/null @@ -1,22 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef Express_SequenceOfItem_HeaderFile -#define Express_SequenceOfItem_HeaderFile - -#include -#include - -typedef NCollection_Sequence Express_SequenceOfItem; - -#endif diff --git a/src/Express/Express_Set.hxx b/src/Express/Express_Set.hxx deleted file mode 100644 index 686115d4bf..0000000000 --- a/src/Express/Express_Set.hxx +++ /dev/null @@ -1,21 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Set_HeaderFile -#define _Express_Set_HeaderFile - -#include - -typedef Express_ComplexType Express_Set; - -#endif // _Express_Set_HeaderFile diff --git a/src/Express/Express_String.cxx b/src/Express/Express_String.cxx deleted file mode 100644 index 8f8c293e47..0000000000 --- a/src/Express/Express_String.cxx +++ /dev/null @@ -1,37 +0,0 @@ -// Created: Tue Nov 2 15:27:26 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_String, Express_PredefinedType) - -//================================================================================================= - -Express_String::Express_String() {} - -//================================================================================================= - -const TCollection_AsciiString Express_String::CPPName() const -{ - return "TCollection_HAsciiString"; -} - -//================================================================================================= - -Standard_Boolean Express_String::IsStandard() const -{ - return Standard_False; -} diff --git a/src/Express/Express_String.hxx b/src/Express/Express_String.hxx deleted file mode 100644 index df6b85ee7f..0000000000 --- a/src/Express/Express_String.hxx +++ /dev/null @@ -1,42 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_String_HeaderFile -#define _Express_String_HeaderFile - -#include -#include - -class TCollection_AsciiString; - -//! Implements EXPRESS type 'STRING' -class Express_String : public Express_PredefinedType -{ - -public: - //! Empty constructor - Standard_EXPORT Express_String(); - - //! Returns "TCollection_HAsciiString" - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const Standard_OVERRIDE; - - //! Returns False - Standard_EXPORT virtual Standard_Boolean IsStandard() const Standard_OVERRIDE; - - DEFINE_STANDARD_RTTIEXT(Express_String, Express_PredefinedType) - -protected: -private: -}; - -#endif // _Express_String_HeaderFile diff --git a/src/Express/Express_Type.cxx b/src/Express/Express_Type.cxx deleted file mode 100644 index e1068eefa2..0000000000 --- a/src/Express/Express_Type.cxx +++ /dev/null @@ -1,54 +0,0 @@ -// Created: Tue Nov 2 15:11:36 1999 -// Author: Andrey BETENEV -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#include - -IMPLEMENT_STANDARD_RTTIEXT(Express_Type, Standard_Transient) - -//================================================================================================= - -Express_Type::Express_Type() {} - -//================================================================================================= - -Standard_Boolean Express_Type::IsStandard() const -{ - return Standard_False; -} - -//================================================================================================= - -Standard_Boolean Express_Type::IsSimple() const -{ - return IsStandard(); -} - -//================================================================================================= - -Standard_Boolean Express_Type::IsHandle() const -{ - return !IsSimple(); -} - -//================================================================================================= - -Standard_Boolean Express_Type::Use() const -{ - return Standard_False; -} - -//================================================================================================= - -void Express_Type::Use2(const TCollection_AsciiString&, const TCollection_AsciiString&) const {} diff --git a/src/Express/Express_Type.hxx b/src/Express/Express_Type.hxx deleted file mode 100644 index 34ec931ff8..0000000000 --- a/src/Express/Express_Type.hxx +++ /dev/null @@ -1,61 +0,0 @@ -// Copyright (c) 1999-2020 OPEN CASCADE SAS -// -// This file is part of Open CASCADE Technology software library. -// -// This library is free software; you can redistribute it and/or modify it under -// the terms of the GNU Lesser General Public License version 2.1 as published -// by the Free Software Foundation, with special exception defined in the file -// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT -// distribution for complete text of the license and disclaimer of any warranty. -// -// Alternatively, this file may be used under the terms of Open CASCADE -// commercial license or contractual agreement. - -#ifndef _Express_Type_HeaderFile -#define _Express_Type_HeaderFile - -#include - -class TCollection_AsciiString; - -//! Provides basis for identification (reference) to some type -//! in express schema -class Express_Type : public Standard_Transient -{ - -public: - //! Returns CPP-style name of the type - Standard_EXPORT virtual const TCollection_AsciiString CPPName() const = 0; - - //! Return True if type is defined in package Standard (False by default) - Standard_EXPORT virtual Standard_Boolean IsStandard() const; - - //! Return True if type is simple (not a class) - //! (by default returns IsStandard()) - Standard_EXPORT virtual Standard_Boolean IsSimple() const; - - //! Return True if type is Transient - //! (by default returns ! IsSimple()) - Standard_EXPORT virtual Standard_Boolean IsHandle() const; - - //! Declares type as used by some item being generated. - //! Calls Use() for all referred types and schema items. - //! Default instantiation does nothing - Standard_EXPORT virtual Standard_Boolean Use() const; - - //! Declares type as used by some item being generated. - //! Calls Use() for all referred types and schema items. - //! Default instantiation does nothing - Standard_EXPORT virtual void Use2(const TCollection_AsciiString& theRefName, - const TCollection_AsciiString& theRefPack) const; - - DEFINE_STANDARD_RTTIEXT(Express_Type, Standard_Transient) - -protected: - //! Empty constructor - Standard_EXPORT Express_Type(); - -private: -}; - -#endif // _Express_Type_HeaderFile diff --git a/src/Express/FILES b/src/Express/FILES deleted file mode 100644 index 3f35ed5963..0000000000 --- a/src/Express/FILES +++ /dev/null @@ -1,48 +0,0 @@ -Express.cxx -Express.hxx -Express_Alias.cxx -Express_Alias.hxx -Express_Array.hxx -Express_Bag.hxx -Express_Boolean.cxx -Express_Boolean.hxx -Express_ComplexType.cxx -Express_ComplexType.hxx -Express_DataMapOfAsciiStringItem.hxx -Express_Entity.cxx -Express_Entity.hxx -Express_Enum.cxx -Express_Enum.hxx -Express_Field.cxx -Express_Field.hxx -Express_HSequenceOfEntity.hxx -Express_HSequenceOfField.hxx -Express_HSequenceOfItem.hxx -Express_Integer.cxx -Express_Integer.hxx -Express_Item.cxx -Express_Item.hxx -Express_List.hxx -Express_Logical.cxx -Express_Logical.hxx -Express_NamedType.cxx -Express_NamedType.hxx -Express_Number.hxx -Express_PredefinedType.cxx -Express_PredefinedType.hxx -Express_Real.cxx -Express_Real.hxx -Express_Reference.cxx -Express_Reference.hxx -Express_Schema.cxx -Express_Schema.hxx -Express_Select.cxx -Express_Select.hxx -Express_SequenceOfEntity.hxx -Express_SequenceOfField.hxx -Express_SequenceOfItem.hxx -Express_Set.hxx -Express_String.cxx -Express_String.hxx -Express_Type.cxx -Express_Type.hxx diff --git a/src/TKExpress/PACKAGES b/src/TKExpress/PACKAGES index b659cccb8d..da70d60dce 100644 --- a/src/TKExpress/PACKAGES +++ b/src/TKExpress/PACKAGES @@ -1,3 +1,2 @@ -Express Expr -ExprIntrp \ No newline at end of file +ExprIntrp