[ { "path": ".editorconfig", "content": "\n\n# EditorConfig is awesome: https://EditorConfig.org\n\n# top-most EditorConfig file\nroot = true\n\n# Unix-style newlines with a newline ending every file\n[*]\nend_of_line = lf\ninsert_final_newline = true\nindent_style = space\nindent_size = 2\n\n# Tab indentation\n[Makefile]\nindent_style = tab\n" }, { "path": ".github/ISSUE_TEMPLATE/bug_report.md", "content": "---\nname: Bug report\nabout: Create a report to help us improve\n\n---\n\n**Describe the bug**\nA clear and concise description of what the bug is.\n\n**To Reproduce**\nSteps to reproduce the behavior:\n1. Create a directory containing the following files and change into it: '...'\n2. Run Concuerror in the following way: '...'\n\n**Expected behavior**\nA clear and concise description of what you expected to happen.\n\n**Environment (please complete the following information):**\n - OS: [e.g. Debian]\n - Concuerror Version: [retrieve by `concuerror --version`]\n\n**Additional context**\nAdd any other context about the problem here.\n" }, { "path": ".github/ISSUE_TEMPLATE/feature_request.md", "content": "---\nname: Feature request\nabout: Suggest an idea for this project\n\n---\n\n**Is your feature request related to a problem? Please describe.**\nA clear and concise description of what the problem is. Ex. I'm always frustrated when [...]\n\n**Describe the solution you'd like**\nA clear and concise description of what you want to happen.\n\n**Describe alternatives you've considered**\nA clear and concise description of any alternative solutions or features you've considered.\n\n**Additional context**\nAdd any other context or screenshots about the feature request here.\n" }, { "path": ".github/ISSUE_TEMPLATE/other-issue.md", "content": "---\nname: Other Issue\nabout: An issue that is not a bug report or feature request\n\n---\n\nPlease think about the following before opening an Issue (click `Preview` above to read this more easily):\n\n* If you need help using Concuerror, visit the [website][website] for tutorials and general info.\n\n* If you have a question, read [the relevant section in the CONTRIBUTING guide][guide ask] first.\n\n* If you want to report a bug, read [the relevant section in the CONTRIBUTING guide][guide report a bug] first.\n\n* If you want to suggest a feature, read [the relevant section in the CONTRIBUTING guide][guide suggest feature] first.\n\n\n[guide ask]: /parapluu/Concuerror/blob/master/CONTRIBUTING.md#i-want-to-ask-a-question\n[guide report a bug]: /parapluu/Concuerror/blob/master/CONTRIBUTING.md#i-want-to-report-a-bug\n[guide suggest feature]: /parapluu/Concuerror/blob/master/CONTRIBUTING.md#i-want-to-suggest-a-feature\n[website]: http://parapluu.github.io/Concuerror\n" }, { "path": ".github/codecov.yml", "content": "codecov:\n notify:\n after_n_builds: 4\ncomment:\n after_n_builds: 4\ncoverage:\n status:\n project:\n default:\n target: 94%\n patch:\n default:\n target: 90%\nfixes:\n - \"_build/default/lib/concuerror/::\"\n" }, { "path": ".github/pull_request_template.md", "content": "## Summary\n\nDescribe what will be improved after merging this Pull Request.\n\n## Checklist\n\n* [ ] Has tests (or doesn't need them)\n* [ ] Updates CHANGELOG (or too minor)\n* [ ] References related Issues\n" }, { "path": ".github/scripts/covertool_combine", "content": "#!/usr/bin/env bash\nset -euo pipefail\n\nEBIN=$(rebar3 path --ebin --app concuerror)\ncd cover\nexport COVER_COMBINE=all.coverdata\n./cover-report data || true\ncovertool/covertool -cover $COVER_COMBINE -ebin $EBIN -appname concuerror\ncd ..\n" }, { "path": ".github/scripts/covertool_setup", "content": "#!/usr/bin/env bash\nset -euo pipefail\n\nmake cover/data\ncd cover\ngit clone https://github.com/covertool/covertool.git --branch 2.0.3\ncd covertool\nmake compile\n" }, { "path": ".github/workflows/tests.yml", "content": "name: Tests\n\non:\n push:\n branches: master\n pull_request:\n branches: master\n paths-ignore:\n - 'docs/**'\n schedule:\n # Run at 00:00 UTC on the first day of each month\n - cron: '00 00 1 * *'\n\nenv:\n THREADS: 2\n\njobs:\n basic:\n runs-on: ubuntu-latest\n strategy:\n matrix:\n target:\n - lint\n - dialyzer\n container: erlang:23\n name: ${{ matrix.target }}\n steps:\n - uses: actions/checkout@v4\n - uses: actions/cache@v4\n with:\n path: '~/.cache'\n key: ${{ runner.os }}-rebar-${{ matrix.target }}-${{ hashFiles(format('{0}{1}', github.workspace, '/rebar.config')) }}\n restore-keys: |\n ${{ runner.os }}-rebar-${{ matrix.target }}-\n ${{ runner.os }}-rebar-\n - run: make ${{ matrix.target }}\n doc:\n runs-on: ubuntu-latest\n steps:\n - uses: actions/checkout@v4\n - uses: ruby/setup-ruby@v1\n with:\n ruby-version: 2.7\n bundler-cache: true\n working-directory: doc\n - uses: erlef/setup-beam@v1\n with:\n otp-version: '24'\n rebar3-version: 3.23.0\n - run: make -C doc test\n tests-latest:\n runs-on: ubuntu-latest\n strategy:\n matrix:\n otp:\n # Two latest minor versions of the most recent OTP release,\n # if supported.\n # When a new major OTP release is enabled, also update the badge in\n # README.md and the argument given to generate_version_hrl in\n # rebar.config\n - '23'\n target:\n - 'tests-unit'\n - 'tests-1'\n - 'tests-2'\n - 'tests-real'\n container: erlang:${{ matrix.otp }}\n name: OTP ${{ matrix.otp }} - ${{ matrix.target }}\n steps:\n - uses: actions/checkout@v4\n - if: matrix.target != 'tests-unit'\n run: .github/scripts/covertool_setup\n - run: make ${{ matrix.target }}\n env:\n CONCUERROR: ${{ github.workspace }}/priv/concuerror\n CONCUERROR_COVER: ${{ github.workspace}}/cover/data\n - if: matrix.target == 'tests-unit'\n run: |\n rebar3 covertool generate\n cp _build/test/covertool/concuerror.covertool.xml coverage.xml\n - if: matrix.target != 'tests-unit'\n run: |\n .github/scripts/covertool_combine\n cp cover/coverage.xml coverage.xml\n - uses: codecov/codecov-action@v3\n with:\n file: coverage.xml\n flags: ${{ matrix.target }}\n tests-older:\n runs-on: ubuntu-latest\n strategy:\n matrix:\n # Last minor version of older OTP releases\n otp:\n - '22'\n - '21'\n - '20'\n target:\n - 'tests-1'\n - 'tests-2'\n - 'tests-real'\n container: erlang:${{ matrix.otp }}\n name: OTP ${{ matrix.otp }} - ${{ matrix.target }}\n steps:\n - uses: actions/checkout@v4\n - run: make ${{ matrix.target }}\n" }, { "path": ".github/workflows/website.yml", "content": "name: Website\n\non:\n push:\n branches: master\n paths: 'docs/**'\n pull_request:\n branches: master\n paths: 'docs/**'\n schedule:\n # Run at 00:00 UTC on the first day of each month\n - cron: '00 00 1 * *'\n\njobs:\n test:\n strategy:\n matrix:\n target:\n - test\n - test-external\n name: ${{ matrix.target }}\n runs-on: ubuntu-latest\n steps:\n - uses: actions/checkout@v4\n - uses: ruby/setup-ruby@v1\n with:\n ruby-version: 3.2\n bundler-cache: true\n working-directory: docs\n - run: make -C docs ${{ matrix.target }}\n" }, { "path": ".gitignore", "content": "# NOTE! Please use 'git ls-files -i --exclude-standard'\n# command after changing this file, to see if there are\n# any tracked files which get ignored after the change.\n\n_build\n*.beam\nconcuerror_report.txt\nerl_crash.dump\nthediff\nrebar3\n" }, { "path": "CHANGELOG.md", "content": "# Changelog\n\nAll notable changes to this project will be documented in this file.\n\nThe format is based on [Keep a Changelog](http://keepachangelog.com/en/1.0.0/)\nand this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0.html).\n\n\n## [Unreleased](https://github.com/parapluu/Concuerror/tree/master)\n\n### Added\n\n### Removed\n\n### Changed\n\n- moved from Travis to Github Actions\n\n### Fixed\n\n\n## [0.21.0](https://github.com/parapluu/Concuerror/releases/tag/0.21.0) - 2020-10-31\n\n### Added\n- bash_completion (#308)\n- log_all option (#320)\n- support for OTP 23.0 (#311)\n\n### Removed\n- support for OTP 16, OTP 17, OTP 18, and OTP 19\n\n### Changed\n- handling of demonitors (#281)\n- handling of process_info(..., messages) (#283)\n\n### Fixed\n- fixed stacktrace information (#276)\n\n## [0.20](https://github.com/parapluu/Concuerror/releases/tag/0.20) - 2018-07-15\n\n### Added\n- edoc documentation (#274)\n- support for OTP 21.0 (#264)\n- style checking by Elvis (#266)\n- base infrastructure for EUnit tests (and CT eventually) (#263)\n\n### Changed\n- use rebar3 for building (#255)\n\n\n## [0.19](https://github.com/parapluu/Concuerror/releases/tag/0.19) - 2018-05-21\n\n### Added\n- Total state space size and time to completion estimation\n- `--first_process_errors_only` option\n- Parts of [aronisstav/erlang-concurrency-litmus-tests](https://github.com/aronisstav/erlang-concurrency-litmus-tests) as a testsuite\n- [Codecov](https://codecov.io/github/parapluu/Concuerror) code coverage tracking\n- [contributor's guide](./CONTRIBUTING.md)\n- [Github Pull Request and Issue templates](./.github/)\n\n### Removed\n- untested code for 'hijacking' processes (e.g. application_controller (#2))\n\n### Changed\n- progress bar format\n- symbolic PIDs are now shown as \"\"\n- report shows mailbox contents when a deadlock is detected\n- significantly optimized DPOR implementations\n- moved concuerror executable to /bin directory\n\n### Fixed\n- handling of stacktraces\n- exclude instrumentation time from timeouts\n\n\n## [0.18](https://github.com/parapluu/Concuerror/releases/tag/0.18) - 2018-02-20\n\n### Added\n- `--observers` option as a synonym of `--use_receive_patterns`\n- Support for erlang:hibernate/3\n- Support for more safe built-in operations\n- A Changelog\n\n### Changed\n- Completely reworked the implementation of `--use_receive_patterns`\n- `--use_receive_patterns` default is now `true`\n\n### Fixed\n- Handling of exit_signals sent to self() (#5)\n\n\n## [0.17](https://github.com/parapluu/Concuerror/releases/tag/0.17) - 2017-10-17\n\n\n## [0.16](https://github.com/parapluu/Concuerror/releases/tag/0.16) - 2016-10-25\n\n\n## [0.15](https://github.com/parapluu/Concuerror/releases/tag/0.15) - 2016-08-29\n\n\n## [0.14](https://github.com/parapluu/Concuerror/releases/tag/0.14) - 2015-06-10\n" }, { "path": "CODE_OF_CONDUCT.md", "content": "# Contributor Covenant Code of Conduct\n\n## Our Pledge\n\nIn the interest of fostering an open and welcoming environment, we as\ncontributors and maintainers pledge to making participation in our project and\nour community a harassment-free experience for everyone, regardless of age, body\nsize, disability, ethnicity, gender identity and expression, level of experience,\neducation, socio-economic status, nationality, personal appearance, race,\nreligion, or sexual identity and orientation.\n\n## Our Standards\n\nExamples of behavior that contributes to creating a positive environment\ninclude:\n\n* Using welcoming and inclusive language\n* Being respectful of differing viewpoints and experiences\n* Gracefully accepting constructive criticism\n* Focusing on what is best for the community\n* Showing empathy towards other community members\n\nExamples of unacceptable behavior by participants include:\n\n* The use of sexualized language or imagery and unwelcome sexual attention or\n advances\n* Trolling, insulting/derogatory comments, and personal or political attacks\n* Public or private harassment\n* Publishing others' private information, such as a physical or electronic\n address, without explicit permission\n* Other conduct which could reasonably be considered inappropriate in a\n professional setting\n\n## Our Responsibilities\n\nProject maintainers are responsible for clarifying the standards of acceptable\nbehavior and are expected to take appropriate and fair corrective action in\nresponse to any instances of unacceptable behavior.\n\nProject maintainers have the right and responsibility to remove, edit, or\nreject comments, commits, code, wiki edits, issues, and other contributions\nthat are not aligned to this Code of Conduct, or to ban temporarily or\npermanently any contributor for other behaviors that they deem inappropriate,\nthreatening, offensive, or harmful.\n\n## Scope\n\nThis Code of Conduct applies both within project spaces and in public spaces\nwhen an individual is representing the project or its community. Examples of\nrepresenting a project or community include using an official project e-mail\naddress, posting via an official social media account, or acting as an appointed\nrepresentative at an online or offline event. Representation of a project may be\nfurther defined and clarified by project maintainers.\n\n## Enforcement\n\nInstances of abusive, harassing, or otherwise unacceptable behavior may be\nreported by contacting the project team at . All\ncomplaints will be reviewed and investigated and will result in a response that\nis deemed necessary and appropriate to the circumstances. The project team is\nobligated to maintain confidentiality with regard to the reporter of an incident.\nFurther details of specific enforcement policies may be posted separately.\n\nProject maintainers who do not follow or enforce the Code of Conduct in good\nfaith may face temporary or permanent repercussions as determined by other\nmembers of the project's leadership.\n\n## Attribution\n\nThis Code of Conduct is adapted from the [Contributor Covenant][homepage], version 1.4,\navailable at https://www.contributor-covenant.org/version/1/4/code-of-conduct.html\n\n[homepage]: https://www.contributor-covenant.org\n" }, { "path": "CONTRIBUTING.md", "content": "# How to contribute to Concuerror\n\nFirst of all, thank you for taking time to contribute to Concuerror!\n\nIf you don't know where to start, here are some [\"help wanted\"][help wanted] issues.\n\n\n## I want to ask a question.\n\nUse the [mailing list][mailing list] and take a look at the [FAQ][faq] if you haven't already!\n\n\n## I want to report a bug.\n\n* Ensure that you can reproduce the bug on the [latest version of the `master` branch][latest].\n\n* Take a moment to check whether the bug has already been reported by searching Github's [Issues][Issues]. If you find a relevant one, leave a comment there.\n\n* If you cannot find an existing relevant Issue, [open a new bug Issue][open a new bug Issue].\n\n\n## I want to write a patch that fixes a bug.\n\n* Find/write at least one small test that fails without the patch.\n\n* Fork Concuerror's repository and push a new branch for your patch, using a suitably descriptive name.\n\n* Make sure to also commit the tests that need the patch. You can find out how test suites are organized in the README files of the [test][test], [tests][tests] and [tests-real][tests-real] directories.\n\n* Make a [Pull Request][pull request].\n\n\n## I want to suggest a feature.\n\n* **Take a moment to check whether a similar feature has already been requested** by searching Github's [Issues][Issues]. If you find a relevant Issue, leave a comment there.\n\n* Apart from the main repository, take a look at the Issues page of the developer's own fork: [@aronisstav Issues][aronisstav Issues]\n\n* If you cannot find an existing relevant Issue, [open a new feature Issue][open a new feature Issue].\n\n\n## Code of Conduct\n\nThis project and everyone participating in it is governed by the [Contributor Covenant Code of Conduct][Contributor Covenant Code of Conduct]. By participating, you are expected to uphold this code. Please report unacceptable behavior to info@concuerror.com.\n\n\nThanks! :heart:\n\n[@aronisstav](https://github.com/aronisstav)\n\n\n\n[aronisstav Issues]: https://github.com/aronisstav/Concuerror/issues\n[Contributor Covenant Code of Conduct]: ./CODE_OF_CONDUCT.md\n[faq]: http://parapluu.github.io/Concuerror/faq\n[help wanted]: https://github.com/parapluu/Concuerror/labels/help%20wanted\n[Issues]: https://github.com/parapluu/Concuerror/issues\n[latest]: https://github.com/parapluu/Concuerror/\n[mailing list]: http://parapluu.github.io/Concuerror/contact\n[open a new bug Issue]: https://github.com/parapluu/Concuerror/issues/new?template=issue_template_bug.md&labels=bug\n[open a new feature Issue]: https://github.com/parapluu/Concuerror/issues/new?template=issue_template_feature.md&labels=feature\n[pull request]: https://github.com/parapluu/Concuerror/compare\n[test]: ./test\n[tests]: ./tests\n[tests-real]: ./tests-real\n" }, { "path": "LICENSE", "content": " Copyright (c) 2014-2018, Stavros Aronis () and Kostis Sagonas ().\n All rights reserved.\n\nRedistribution and use in source and binary forms, with or without modification,\nare permitted provided that the following conditions are met:\n\n 1. Redistributions of source code must retain the above copyright notice,\n this list of conditions and the following disclaimer.\n\n 2. Redistributions in binary form must reproduce the above copyright\n notice, this list of conditions and the following disclaimer in the\n documentation and/or other materials provided with the distribution.\n\nTHIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS \"AS IS\" AND\nANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED\nWARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE\nDISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR\nANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES\n(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;\nLOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON\nANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS\nSOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\n" }, { "path": "Makefile", "content": "###-----------------------------------------------------------------------------\n### Application info\n###-----------------------------------------------------------------------------\n\nNAME := concuerror\n\nREBAR=$(shell which rebar3 || echo \"./rebar3\")\n\n.PHONY: default\ndefault bin/$(NAME): $(REBAR)\n\t$(REBAR) escriptize\n\nMAKEFLAGS += --no-builtin-rules\n.SUFFIXES:\n\n###-----------------------------------------------------------------------------\n### Rebar\n###-----------------------------------------------------------------------------\n\nREBAR_URL=\"https://s3.amazonaws.com/rebar3/rebar3\"\n\n./$(REBAR):\n\tcurl -o $@ $(REBAR_URL) && chmod +x $@\n\n###-----------------------------------------------------------------------------\n### Compile\n###-----------------------------------------------------------------------------\n\n.PHONY: dev native pedantic\ndev native pedantic: $(REBAR)\n\t$(REBAR) as $@ escriptize\n\n###-----------------------------------------------------------------------------\n### Edoc\n###-----------------------------------------------------------------------------\n\n.PHONY: edoc\nedoc: $(REBAR)\n\t$(REBAR) edoc\n\n###-----------------------------------------------------------------------------\n### Lint\n###-----------------------------------------------------------------------------\n\n.PHONY: lint\nlint: $(REBAR)\n\t$(REBAR) as lint lint\n\n###-----------------------------------------------------------------------------\n### Dialyzer\n###-----------------------------------------------------------------------------\n\n.PHONY: dialyzer\ndialyzer: $(REBAR)\n\t$(REBAR) dialyzer\n\n###-----------------------------------------------------------------------------\n### Test\n###-----------------------------------------------------------------------------\n\nCONCUERROR?=$(abspath bin/$(NAME))\n\n.PHONY: tests\ntests: tests-1 tests-2\n\n.PHONY: tests-1\ntests-1: bin/$(NAME)\n\t@$(RM) tests/thediff\n\t@(cd tests; ./runtests.py suites/ba*/src/*)\n\n.PHONY: tests-2\ntests-2: bin/$(NAME)\n\t@$(RM) tests/thediff\n\t@(cd tests; ./runtests.py suites/b[^a]*/src/* suites/[^b]*/src/*)\n\n## -j 1: ensure that the outputs of different suites are not interleaved\n.PHONY: tests-real\ntests-real: bin/$(NAME)\n\t@$(RM) $@/thediff\n\t$(MAKE) -j 1 -C $@ \\\n\t\tTOP_DIR=$(abspath .) \\\n\t\tCONCUERROR=$(CONCUERROR) \\\n\t\tDIFFER=$(abspath tests/differ) \\\n\t\tDIFFPRINTER=$(abspath $@/thediff)\n\n.PHONY: tests-unit\ntests-unit: bin/$(NAME)\n\t$(REBAR) eunit\n\n###-----------------------------------------------------------------------------\n### Cover\n###-----------------------------------------------------------------------------\n\n.PHONY: cover\ncover: cover/data bin/$(NAME)\n\t$(RM) $) and\nKostis Sagonas ().\nAll rights reserved\n\nCopyright (c) 2011-2013,\nAlkis Gotovos (),\nMaria Christakis () and\nKostis Sagonas ().\nAll rights reserved.\n\nConcuerror is distributed under the Simplified BSD License.\nDetails can be found in the [LICENSE][license] file.\n\n\n[bash_completion]: ./resources/bash_completion/concuerror\n[changelog]: ./CHANGELOG.md\n[codecov]: https://codecov.io/gh/parapluu/Concuerror\n[hex]: https://hexdocs.pm/concuerror/\n[license]: ./LICENSE\n[release]: ./resources/how-to-release.md\n[tests]: https://github.com/parapluu/Concuerror/actions/workflows/tests.yml\n[website]: http://parapluu.github.io/Concuerror\n\n\n[codecov badge]: https://codecov.io/gh/parapluu/Concuerror/branch/master/graph/badge.svg\n[erlang versions badge]: https://img.shields.io/badge/erlang-20.3%20to%2023.3-blue.svg\n[hex badge]: https://img.shields.io/badge/hex-docs-green.svg\n[tests badge]: https://github.com/parapluu/Concuerror/actions/workflows/tests.yml/badge.svg\n" }, { "path": "bin/.gitignore", "content": "concuerror\n" }, { "path": "cover/.gitignore", "content": "*.coverdata\n*.COVER.html\ncovertool\ndata\n" }, { "path": "cover/cover-report", "content": "#!/usr/bin/env escript\n%%! +S1 -nostick -noshell -pa ../_build/default/lib/concuerror/ebin\n\nmain([CoverDir]) ->\n {ok, Files} = file:list_dir(CoverDir),\n Full = [filename:join([CoverDir,F]) || F <- Files],\n Foreach = fun(F) -> cover:import(F) end,\n lists:foreach(Foreach, Full),\n case is_run_to_combine() of\n false ->\n Foreach2 = fun(M) -> cover:analyse_to_file(M, [html]) end,\n lists:foreach(Foreach2, cover:imported_modules());\n {true, OutputFile} ->\n cover:export(OutputFile)\n end,\n {result, Result, _} = cover:analyse(coverage, module),\n print(Result).\n\nprint(List) ->\n\n %% THRESHOLDS\n ThresholdSingle = 0.85,\n Threshold = 0.94,\n\n %% HEADER\n to_stderr(\"~-30s | ~5s | ~6s | ~5s~n\", [\"Module\", \"Lines\", \"NotCov\", \"Cov %\"]),\n print_separator(),\n\n AddPointerSuffix =\n fun(true) -> \" <--\";\n (false) -> \"\"\n end,\n\n Fold =\n fun({Mod, {Cov, NotCov}}, {Fail, TotSum, CovSum}) ->\n Tot = Cov + NotCov,\n Pct = Cov / Tot,\n Fails = Pct < ThresholdSingle,\n %% PER MODULE ENTRY\n to_stderr(\n \"~-30s | ~5w | ~6w | ~5.1f~s~n\",\n [Mod, Tot, NotCov, Pct * 100, AddPointerSuffix(Fails)]),\n {Fail orelse Fails, TotSum + Tot, CovSum + Cov}\n end,\n {Fail, TotSum, CovSum} = lists:foldl(Fold, {false, 0,0}, List),\n Pct = CovSum / TotSum,\n TotalFail = Pct < Threshold,\n %% FOOTER\n print_separator(),\n to_stderr(\"~-30s ~5w ~6w ~5.1f~s~n\",\n [\"Total\", TotSum, CovSum, Pct * 100, AddPointerSuffix(TotalFail)]),\n case Fail of\n false -> ok;\n true ->\n to_stderr(\n \"~nFail: Code coverage for some module(s) is below ~.1f% threshold!~n\",\n [ThresholdSingle * 100])\n end,\n case TotalFail of\n false -> ok;\n true ->\n to_stderr(\n \"~nFail: Total code coverage is below ~.1f% threshold!~n\",\n [Threshold * 100])\n end,\n case Fail orelse TotalFail of\n true -> halt(1);\n false -> halt(0)\n end.\n\nprint_separator() ->\n to_stderr(\"~s~n\", [[$- || _ <- lists:seq(1, 55)]]).\n\nto_stderr(Format, Args) ->\n io:format(standard_error, Format, Args).\n\nis_run_to_combine() ->\n case os:getenv(\"COVER_COMBINE\") of\n false -> false;\n OutputFile -> {true, OutputFile}\n end.\n" }, { "path": "doc/.gitignore", "content": "*_option.edoc\n*.css\n*.html\nedoc-info\nerlang.png\nGemfile.lock\n" }, { "path": "doc/Gemfile", "content": "source 'https://rubygems.org'\n\ngem \"html-proofer\"\n" }, { "path": "doc/Makefile", "content": ".PHONY: default\ndefault: build\n\nGemfile.lock: Gemfile\n\tbundle install\n\ttouch $@\n\n.PHONY: build\nbuild:\n\tmake -C .. edoc\n\n.PHONY: test\ntest: build Gemfile.lock\n\tbundle exec htmlproofer --disable-external=true --ignore-files \"/vendor/\" --log_level=debug --allow_missing_href=true --enforce_https=false .\n\n.PHONY: clean\nclean:\n\t$(RM) *_option.edoc *.html *.css erlang.png edoc-info Gemfile.lock\n" }, { "path": "doc/overview.edoc", "content": "@title Concuerror's API specification\n@doc\n\n== Welcome! ==\n\nThis documentation contains Concuerror's API specification. It is\ncomplementary to the user guides and tutorials available at\n[https://parapluu.github.io/Concuerror]. Please start there if you\nare looking for general information about what the tool can do and how\nit works.\n\n== Table of Contents ==\n\n
    \n
  • {@section Invoking Concuerror}
    • \n
  • {@section Help}
    • \n
  • {@section Options}
    • \n
  • {@section Standard Error Printout}
    • \n
  • {@section Report File}
    • \n
  • {@section Graph Output}
    • \n
\n\n== Invoking Concuerror ==\n\nThe recommended method to invoke Concuerror is via the `bin/concuerror'\nescript (available after running `make').\n\nSee the documentation of the {@link concuerror} module for more\ninformation about the entry points and return values.\n\n== Options ==\n\nConcuerror is configured using a number of options.\n\nSee the documentation of the {@link concuerror_options} module.\n\n== Help ==\n\nThe {@link concuerror_options:help_option/0. `help'} option can be\nused to access help.\n\n== Standard Error Printout ==\n\nBy default, Concuerror prints diagnostic messages in the standard\nerror stream.\n\nSee the documentation of the {@link\nconcuerror_options:verbosity_option/0. `verbosity'} option.\n\n== Report File ==\n\nBy default, Concuerror prints analysis findings in a report file.\n\nSee the documentation of the {@link\nconcuerror_options:output_option/0. `output'} option.\n\n== Graph Output ==\n\nOptionally, Concuerror can produce a graphical representation of the\nexploration tree, by combining the explored interleavings.\n\nSee the documentation of the {@link\nconcuerror_options:graph_option/0. `graph'} option.\n" }, { "path": "docs/.bundle/config", "content": "---\nBUNDLE_PATH: \"vendor/bundle\"\n" }, { "path": "docs/.gitignore", "content": "/_site\n.jekyll-cache\nvendor\n" }, { "path": "docs/404.md", "content": "---\nlayout: search\ntitle: \"Page Not Found\"\ndescription: \"Page not found\"\n--- \n\n## 404 Error\n\nSorry, but the page you were trying to view does not exist.\n\nSearch the site:\n" }, { "path": "docs/CNAME", "content": "concuerror.com" }, { "path": "docs/Gemfile", "content": "source 'https://rubygems.org'\n\ngem \"github-pages\", group: :jekyll_plugins\ngem \"html-proofer\"\ngem \"webrick\"\n" }, { "path": "docs/Makefile", "content": ".PHONY: default\ndefault: build\n\nJEKYLL = bundle exec jekyll\nPROOFER = bundle exec htmlproofer ./_site --checks \"Images,Links,Script,Favicon,OpenGraph\"\n\n.PHONY: jekyll\njekyll: Gemfile\n\tbundle install\n\n.PHONY: build\nbuild: jekyll\n\t$(JEKYLL) build\n\n.PHONY: serve\nserve: jekyll\n\t$(JEKYLL) serve --config _config.yml,_config_local.yml\n\n.PHONY: test\ntest: build\n\t$(PROOFER) --disable_external\n\n.PHONY: test-external\ntest-external: build\n\t$(PROOFER) --ignore-status-codes \"302,403\"\n" }, { "path": "docs/README.md", "content": "# Concuerror's Website\n\nBased on the [**So Simple Theme**](http://mmistakes.github.io)\n\n## How to build\n\n`bundle install`\n`jekyll serve`\n" }, { "path": "docs/_config.yml", "content": "# Base config\ntitle: \"Concuerror\"\ndescription: \"Concuerror is a model checking tool for debugging, testing and verifying concurrent Erlang programs.\"\nlogo: \"/images/site-logo.png\"\nurl: \"https://concuerror.com\"\n\n# Owner/author information\nauthor: stavros\n\n# Theme\nremote_theme: \"aronisstav/so-simple-theme@b968090\"\nskin: \"/assets/css/skins/default.css\"\nlocale: en-US\ndate_format: \"%B %-d, %Y\"\n\n# Front Matter Defaults\ndefaults:\n # Posts defaults\n - scope:\n path: \"_posts\"\n type: posts\n values:\n layout: post\n share: true\n\nread_time: true\nwords_per_minute: 50\n\n# Search\nsearch_full_content: true\n\n# Taxonomy pages\ncategory_archive_path: /\n\n# Fonts\ngoogle_fonts:\n - name: \"Source Sans Pro\"\n weights: \"400,400i,700,700i\"\n - name: \"Lora\"\n weights: \"400,400i,700,700i\"\n\n# Footer Links\nfooter_links:\n - title: Home\n url: /\n icon: fas fa-home\n - title: Github\n url: https://github.com/parapluu/Concuerror\n icon: fab fa-github\n - title: Github Stars\n url: https://github.com/parapluu/Concuerror/stargazers\n icon: fas fa-star\n - title: Feed\n url: feed.xml\n icon: fas fa-rss-square\n\n# Liquid\nliquid:\n error_mode: strict\n\n# https://github.com/mojombo/jekyll/wiki/Permalinks\npermalink: /:categories/:title:output_ext\n\n# Markdown\nmarkdown: kramdown\nkramdown:\n auto_ids: true\n footnote_nr: 1\n entity_output: as_char\n syntax_highlighter: rouge\n toc_levels: 1..6\n\n# Plugins\nplugins:\n - jekyll-feed\n - jekyll-gist\n - jekyll-redirect-from\n - jekyll-seo-tag\n\n# Feed\nfeed:\n path: \"feed.xml\"\n\n# Redirects\nredirect_from:\n json: false\n\n# Include/exclude\ninclude: [\".htaccess\"]\nexclude: [\"CNAME\", \"Gemfile\", \"Gemfile.lock\", \"Makefile\", \"README.md\", \"vendor\"]\n\n" }, { "path": "docs/_config_local.yml", "content": "url: \"\"\n" }, { "path": "docs/_data/authors.yml", "content": "stavros:\n name: Stavros Aronis\n picture: https://www.gravatar.com/avatar/5730e85681def67cb10151437519f39d?s=200\n email: aronisstav@gmail.com\n twitter: \"@Vahnatai\"\n links:\n - title: Twitter\n url: https://twitter.com/Vahnatai\n icon: fab fa-twitter-square\n - title: Github\n url: https://github.com/aronisstav\n icon: fab fa-github\n" }, { "path": "docs/_data/navigation.yml", "content": "- title: Home\n url: /\n- title: News\n url: /news\n- title: Download\n url: /download\n- title: FAQ\n url: /faq\n- title: Tutorials\n url: /tutorials\n- title: API (Hexdocs)\n url: https://hexdocs.pm/concuerror\n- title: Publications\n url: /publications\n- title: Contact\n url: /contact\n icon: fas fa-envelope\n- title: Search\n url: /search\n- title: Github\n url: https://github.com/parapluu/Concuerror\n" }, { "path": "docs/_data/text.yml", "content": "# Theme text and labels\n\n\n# English (default)\n# -----------------\nen: &DEFAULT_EN\n skip_links: \"Skip links\"\n skip_primary_nav: \"Skip to primary navigation\"\n skip_content: \"Skip to content\"\n skip_footer: \"Skip to footer\"\n menu_label: \"Menu\"\n by: \"by\"\n min_read: \"min read\"\n read_more: \"Read more…\"\n categories: \"Categories\"\n tags: \"Tags\"\n pages_categorized: \"Pages filed under\"\n pages_tagged: \"Pages tagged\"\n table_of_contents: \"Table of Contents\"\n results_found: \"Result(s) found\"\n share: \"Share\"\n tweet: \"Tweet\"\n next: \"Next\"\n previous: \"Previous\"\n newer: \"Newer\"\n older: \"Older\"\n back_to_top: \"Back to Top\"\n search_placeholder_text: \"Enter your search term...\"\n powered_by: \"Powered by\"\nen-US:\n <<: *DEFAULT_EN\nen-CA:\n <<: *DEFAULT_EN\nen-GB:\n <<: *DEFAULT_EN\nen-AU:\n <<: *DEFAULT_EN\n\n\n# German\n# -----------------\nde: &DEFAULT_DE\n skip_links: \"Links überspringen\"\n skip_primary_nav: \"Zu Hauptmenü springen\"\n skip_content: \"Zu Inhalt springen\"\n skip_footer: \"Zu Fußzeile springen\"\n menu_label: \"Menü\"\n by: \"von\"\n min_read: \"min read\"\n read_more: \"Mehr lesen…\"\n categories: \"Kategorien\"\n tags: \"Tags\"\n pages_categorized: \"Seiten kategorisiert als\"\n pages_tagged: \"Seiten, getaggt als\"\n table_of_contents: \"Inhaltsverzeichnis\"\n results_found: \"Ergebnis(se) gefunden\"\n share: \"Teilen\"\n tweet: \"Tweet\"\n next: \"Vor\"\n previous: \"Zurück\"\n newer: \"Neuer\"\n older: \"Älter\"\n back_to_top: \"Zurück nach Oben\"\n search_placeholder_text: \"Suchtext eingeben...\"\n powered_by: \"Unterstützt von\"\nde-DE:\n <<: *DEFAULT_DE\nde-AU:\n <<: *DEFAULT_DE\nde-CH:\n <<: *DEFAULT_DE\n\n\n# Spanish\n# -------\nes: &DEFAULT_ES\n skip_links: \"Saltar enlaces\"\n skip_primary_nav: \"Saltar a la navegación primaria\"\n skip_content: \"Saltar al contenido\"\n skip_footer: \"Saltar al pie de página\"\n menu_label: \"Menú\"\n by: \"por\"\n min_read: \"minuto(s) de lectura\"\n read_more: \"Leer más…\"\n categories: \"Categorías\"\n tags: \"Etiquetas\"\n pages_categorized: \"Páginas archivadas bajo\"\n pages_tagged: \"Páginas etiquetadas\"\n table_of_contents: \"Tabla de contenidos\"\n results_found: \"Resultado(s) encontrado(s)\"\n share: \"Compartir\"\n tweet: \"Tweet\"\n next: \"Siguiente\"\n previous: \"Anterior\"\n newer: \"Nuevo\"\n older: \"Antiguo\"\n back_to_top: \"Volver arriba\"\n search_placeholder_text: \"Ingrese su término de búsqueda ...\"\n powered_by: \"Energizado por\"\nes-ES:\n <<: *DEFAULT_ES\nes-CL:\n <<: *DEFAULT_ES\n\n\n# French\n# -----------------\nfr: &DEFAULT_FR\n skip_links: \"Sauter les liens\"\n skip_primary_nav: \"Aller à la navigation principale\"\n skip_content: \"Aller au contenu\"\n skip_footer: \"Aller au pied de page\"\n menu_label: \"Menu\"\n by: \"par\"\n min_read: \"min de lecture\"\n read_more: \"En savoir plus…\"\n categories: \"Catégories\"\n tags: \"Tags\"\n pages_categorized: \"Pages catégorisées dans\"\n pages_tagged: \"Pages étiquettées\"\n table_of_contents: \"Table des matières\"\n results_found: \"Résultat(s) trouvé(s)\"\n share: \"Partager\"\n tweet: \"Tweet\"\n next: \"Suivant\"\n previous: \"Précédent\"\n newer: \"Plus récent\"\n older: \"Plus ancier\"\n back_to_top: \"Retour en haut\"\n search_placeholder_text: \"Entrer le terme à rechercher...\"\n powered_by: \"Propulsé par\"\nfr-FR:\n <<: *DEFAULT_FR\nfr-BE:\n <<: *DEFAULT_FR\nfr-CA:\n <<: *DEFAULT_FR\n\nit: &DEFAULT_IT\n skip_links: \"Salta links\"\n skip_primary_nav: \"Salta alla navigazione primaria\"\n skip_content: \"Vai al contenuto\"\n skip_footer: \"Vai al footer\"\n menu_label: \"Menu\"\n by: \"di\"\n min_read: \"min. per leggere\"\n read_more: \"Leggi di più…\"\n categories: \"Categorie\"\n tags: \"Tags\"\n pages_categorized: \"Pagine categorizzate come\"\n pages_tagged: \"Pagine con tag\"\n table_of_contents: \"Indice dei Contenuti\"\n results_found: \"Risultati della ricerca\"\n share: \"Condividi\"\n tweet: \"Tweet\"\n next: \"Avanti\"\n previous: \"Indietro\"\n newer: \"Nuovi\"\n older: \"Vecchi\"\n back_to_top: \"Torna in cima\"\n search_placeholder_text: \"Inserisci una parola da cercare...\"\n powered_by: \"Generato da\"\nit-IT:\n <<: *DEFAULT_IT\n\n# Turkish\n# -----------------\ntr: &DEFAULT_TR\n skip_links: \"Linklere git\"\n skip_primary_nav: \"Birincil navigasyona git\"\n skip_content: \"İçeriğe git\"\n skip_footer: \"Sayfa altbilgisine git\"\n menu_label: \"Menü\"\n by: \"by\"\n min_read: \"dakikalık okuma\"\n read_more: \"Daha fazla…\"\n categories: \"Kategoriler\"\n tags: \"Etiketler\"\n pages_categorized: \"Pages filed under\"\n pages_tagged: \"Pages tagged\"\n table_of_contents: \"Başlıklar\"\n results_found: \"Sonuç bulundu\"\n share: \"Paylaş\"\n tweet: \"Tweet\"\n next: \"Sonraki\"\n previous: \"Önceki\"\n newer: \"Daha Yeni\"\n older: \"Daha Eski\"\n back_to_top: \"Başa Dön\"\n search_placeholder_text: \"Arama teriminizi girin...\"\n powered_by: \"Powered by\"\ntr-TR:\n <<: *DEFAULT_TR\n" }, { "path": "docs/_includes/footer-custom.html", "content": "
{% if page.updated %}Page last modified on {{ page.updated | date: site.date_format }} | {% endif %} {{ site.data.text[site.locale].back_to_top | default: 'Back to Top' }} ↑
\n
\n" }, { "path": "docs/_includes/head-custom.html", "content": "\n" }, { "path": "docs/_includes/masthead.html", "content": "
\n
\n {% if site.logo %}\n \n \"{{\n \n {% endif %}\n {% assign page_image = page.image.path | default: page.image %}\n
\n
\n" }, { "path": "docs/_includes/yt.html", "content": "\n" }, { "path": "docs/_posts/2013-09-03-site.md", "content": "---\nlayout: post\ntitle: \"Concuerror's website\"\ncategory: news\nredirect_from: /site.html\n---\n\nConcuerror just got a website!\n" }, { "path": "docs/_posts/2013-09-23-euc-2013.md", "content": "---\nlayout: post\ntitle: \"Tutorial at EUC 2013: Video and Slides\"\nauthor: Kostis Sagonas\ncategory: tutorials\n---\n\nKostis Sagonas gave a presentation about Concuerror at the Erlang User Conference 2013.\n\n{% assign yt-link = \"FpkjKN9wTKg\" %}\n{% include yt.html %}\n\n[Get the slides](https://www.erlang-factory.com/upload/presentations/858/euc_pres.pdf).\n\nYou can also find the video and slides [here](https://www.erlang-factory.com/conference/ErlangUserConference2013/speakers/KostisSagonas).\n" }, { "path": "docs/_posts/2014-06-02-poolboy-example.md", "content": "---\nlayout: post\ntitle: \"Concuerror basics (Testing Poolboy, Part 1)\"\ncategory: tutorials\nupdated: 2018-03-21\n---\n\nIn this tutorial we will explain some basic use of Concuerror\nto analyze a few tests written for the\n[Poolboy](https://github.com/devinus/poolboy) library.\n\n{:.no_toc}\nIndex\n-----\n1. This text will be replaced by the ToC, excluding the previous header (WOW!)\n{:toc}\n\nSetting up Concuerror, Poolboy and our first test\n-------------------------------------------------\n\n### Setting up Concuerror\n\nThe first step is to download and make Concuerror as described in the [Download](/download) page.\n\nFor the rest of the tutorial we will assume that the `concuerror` executable\nis in our path. For example, to get help for all of Concuerror's options we just\nrun:\n\n{% highlight bash %}\n$ concuerror -h\nUsage: ./concuerror [-m ] [-t []] [-o []] [-h]\n [--version] [--pa ] [--pz ] [-f ]\n [-v ] [-q] [--print_depth []]\n[...]\n{% endhighlight %}\n\n### Setting up Poolboy\n\nWe will be using version\n[`1.2.2`](https://github.com/devinus/poolboy/releases/tag/1.2.2) of Poolboy.\n\n{% highlight bash %}\n$ git clone https://github.com/devinus/poolboy.git --branch 1.2.2\n[...]\n$ cd poolboy\npoolboy $ make\n==> poolboy (compile)\nCompiled src/poolboy_worker.erl\nCompiled src/poolboy_sup.erl\nCompiled src/poolboy.erl\n{% endhighlight %}\n\nWe will be using the sample worker used in Poolboy's own tests, so we should\n`make` the tests as well:\n\n{% highlight bash %}\npoolboy $ make test\n[...]\n{% endhighlight %}\n\nWe don't care about the actual result of the tests, but we now have a\n`.eunit` directory with `poolboy_test_worker.beam`.\n\n#### No special compilation needed\n\nNotice that we don't need to compile anything in a special way. Concuerror will\nintercept calls to any module that is in Erlang's code path and instrument the\ncode before our test reaches it.\n\n### Our first test\n\nConcuerror explores all the interleavings of an arbitrary execution scenario of\na program with a single entry point. We will be extracting tests from [Poolboy's\nown test\nsuite](https://github.com/devinus/poolboy/blob/1.2.2/test/poolboy_tests.erl).\n\nLet's begin with an adapted version of the start/stop test, which we save as\n[`poolboy_tests_1.erl`](https://gist.github.com/aronisstav/b67df16361cd9a2fa87e#file-poolboy_tests_1-erl):\n\n{% gist aronisstav/b67df16361cd9a2fa87e %}\n\n#### Using `.erl` files\n\nWe don't have to compile our test, as Concuerror can also analyze `.erl` files,\nwhich are instrumented and compiled before the test starts.\n\nWe are now ready to...\n\nStart testing!\n--------------\n\nWe now have our application code compiled and ready to go, and have written a\nsmall test. Next, we have to tell Concuerror to compile and load our test file\n(using option `-f`) and then start testing from module\n`poolboy_tests_1`, calling function `pool_startup`, which must have zero\narity:\n\n{% highlight bash %}\npoolboy $ concuerror -f poolboy_tests_1.erl -m poolboy_tests_1 -t pool_startup\n{% endhighlight %}\n\nSeveral lines should be printed on our screen. Let's focus on a few of them:\n\n### The output file\n\n{% highlight text %}\nConcuerror started at 02 Jun 2014 09:00:00\nWriting results in concuerror_report.txt\n{% endhighlight %}\n\nConcuerror mainly produces a textual log, saved by default as\n`concuerror_report.txt`. You can specify a different filename with the `-o`\noption.\n\n### Info messages\n\n{% highlight text %}\nInfo: Instrumented poolboy_tests_1\n{% endhighlight %}\n\nLog messages tagged as *Info* are standard, normal operation messages.\nHere, Concuerror reports that it compiled and instrumented our test file and\nstarted to run the test.\n\n{% highlight text %}\nInfo: Instrumented io_lib\nInfo: Instrumented poolboy\nInfo: Instrumented proplists\nInfo: Instrumented gen_server\n[...]\n{% endhighlight %}\n\nConcuerror can detect which modules are being used by the test, and instruments\nthem automatically. You can see a few of them listed above. `io_lib` is also\nincluded, for reasons that are not important to explain right now.\n\n### Warning messages\n\n{% highlight text %}\nWarning: Concuerror does not fully support erlang:get_stacktrace/0 ...\n{% endhighlight %}\n\nLog messages tagged as *Warnings* are non-critical, notifying about weak\nsupport for some feature or the use of an option that alters the output\n\n### Tip messages\n\n{% highlight text %}\nTip: An abnormal exit signal was sent to a process...\n{% endhighlight %}\n\nLog messages tagged as *Tips* are also non-critical, notifying of a\nsuggested refactoring or option that can be used to make testing more efficient.\n\n### The interesting bits!\n\nBy default, Concuerror will stop exploration on the first error it encounters.\nIn this particular case, it seems that in the very first interleaving we managed\nto trigger some behavior that the tool considers problematic. If we take a look\nat the output file `concuerror_report.txt`, we will see something like the\nfollowing:\n\n{% highlight text %}\n{% raw %}\n* At step 49 process P.1 exited abnormally\n Reason:\n {{badmatch,\n {error,\n {'EXIT',\n {undef,\n [{poolboy_test_worker,start_link,\n [[{name,{local,poolboy_test}},\n {worker_module,poolboy_test_worker},\n {size,1},\n {max_overflow,...}]],\n []},\n {supervisor,do_start_child_i,3,\n [{file,\"supervisor.erl\"},{line,330}]},\n {supervisor,handle_call,3,[{file,[...]},{line,...}]},\n {gen_server,handle_msg,5,[{file,...},{...}]},\n {proc_lib,init_p_do_apply,3,[{...}|...]},\n {concuerror_callback,process_top_loop,1,[...]}]}}}},\n [{poolboy,new_worker,1,[{file,\"src/poolboy.erl\"},{line,242}]},\n[...]\n{% endraw %}\n{% endhighlight %}\n\n### Using `-pa` to add directories in Erlang's code path\n\nWhoops! We forgot to add the `poolboy_test_worker` module to Erlang's code\npath. Concuerror uses the `--pa` option for this (notice the *two* dashes).\n\nRunning it again...\n\n{% highlight bash %}\npoolboy $ concuerror -f poolboy_tests_1.erl -m poolboy_tests_1 -t pool_startup \\\n --pa .eunit\n{% endhighlight %}\n\n... yields:\n\n{% highlight text %}\n[...]\nTip: A process crashed with reason '{timeout, ...}'. This may happen when a call\n to a gen_server (or similar) does not receive a reply within some standard\n timeout. Use the '--after_timeout' option to treat after clauses that exceed some\n threshold as 'impossible'. \n\nTip: An abnormal exit signal was sent to a process. This is probably the worst\n thing that can happen race-wise, as any other side-effecting operation races\n with the arrival of the signal. If the test produces too many interleavings\n consider refactoring your code.\n\nTip: A process crashed with reason 'shutdown'. This may happen when a supervisor\n is terminating its children. You can use '--treat_as_normal shutdown' if this is\n expected behavior.\n\nError: Stop testing on first error. (Check '-h keep_going').\n[...]\n{% endhighlight %}\n\nThree tips and the same error. This time however, `concuerror_report.txt`\ncontains something like:\n\n{% highlight text %}\n{% raw %}\nErroneous interleaving 1:\n* At step 52 process P exited abnormally\n Reason:\n {timeout,{gen_server,call,[P.1,stop]}}\n Stacktrace:\n [{gen_server,call,2,[{file,\"gen_server.erl\"},{line,182}]},\n {poolboy_tests_1,pool_startup,0,\n [{file,\"poolboy_tests_1.erl\"},{line,8}]}]\n* At step 76 process P.1.1.1 exited abnormally\n Reason:\n shutdown\n Stacktrace:\n []\n* At step 85 process P.1.1 exited abnormally\n Reason:\n shutdown\n Stacktrace:\n [{proc_lib,exit_p,2,[{file,\"proc_lib.erl\"},{line,260}]}]\n{% endraw %}\n{% endhighlight %}\n\nThis behavior seems to be expected within the context of the test. Find out why\nConcuerror reports it as problematic in the next part of this tutorial.\n\n{:.no_toc}\n# [
Continue to the next part!
]({% post_url 2014-06-03-poolboy-example-errors %})\n" }, { "path": "docs/_posts/2014-06-03-poolboy-example-errors.md", "content": "---\nlayout: post\ntitle: \"Reading Concuerror's reports (Testing Poolboy, Part 2)\"\ncategory: tutorials\nupdated: 2018-03-21\n---\n\nWe continue our tutorial on Concuerror, explaining the errors it can detect and\nthe options that you can use to filter out those that are not important for your\napplication.\n\nRead also the [first part]({% post_url 2014-06-02-poolboy-example %})!\n\n{:.no_toc}\nIndex\n-----\n1. This text will be replaced by the ToC, excluding the previous header (WOW!)\n{:toc}\n\nSymbolic names\n--------------\n\nConcuerror makes an effort to replace every Erlang PID that appears in its\nreport with a symbolic name. The first process spawned is labelled *P* and\nevery other process is named after the process that spawned it, with an integer\ndenoting the order in which it was spawned i.e. *P*'s first \"child\" is named\n*P.1*, *P.1*'s third child is named *P.1.3* and so on.\n\nIf you prefer to see the raw PIDs you can use\n`--symbolic_names false`. Concuerror is reusing the same processes, so the\nresults should be consistent across different interleavings.\n\nAbnormal exits\n--------------\n\nEvery time a process exits abnormally, Concuerror will mark the interleaving as\nerroneous. This means that any exception that escapes to the top-level will\ntrigger a warning. [In our example]({% post_url 2014-06-02-poolboy-example%}/#using--pa-to-add-directories-in-erlangs-code-path),\nprocesses *P*, *P.1.1* and *P.1.1.1* exited abnormally.\n\n{% highlight text %}\n{% raw %}\nErroneous interleaving 1:\n* At step 52 process P exited abnormally\n Reason:\n {timeout,{gen_server,call,[P.1,stop]}}\n Stacktrace:\n [{gen_server,call,2,[{file,\"gen_server.erl\"},{line,182}]},\n {poolboy_tests_1,pool_startup,0,\n [{file,\"poolboy_tests_1.erl\"},{line,8}]}]\n* At step 76 process P.1.1.1 exited abnormally\n Reason:\n shutdown\n Stacktrace:\n []\n* At step 85 process P.1.1 exited abnormally\n Reason:\n shutdown\n Stacktrace:\n [{proc_lib,exit_p,2,[{file,\"proc_lib.erl\"},{line,260}]}]\n{% endraw %}\n{% endhighlight %}\n\n### Ignoring \"after\" timeouts\n\nIf we take a look at the trace we can see that *P* triggered the standard\ntimeout clause of a `gen` call:\n\n{% highlight text %}\n 50: P: receive timeout expired after 5000 ms\n in gen.erl line 213\n [...]\n 52: P: exits abnormally ({timeout,{gen_server,call,[P.1,stop]}})\n{% endhighlight %}\n\nAs explained\n[here](/faq/#how-does-concuerror-handle-timeouts-and-other-time-related-functions),\nConcuerror by default assumes that any *receive* statement may trigger the\n*after* clause, unless it is impossible for a matching message not to have\nalready arrived.\n\nHowever, let's assume that we don't care about such timeouts. We can use the\n`--after_timeout 1000` to treat any timeout *higher than 1000ms* as\n*infinity*. Notice that the one of the tips we got earlier suggests the same\ncourse of action:\n\n{% highlight text %}\nTip: A process crashed with reason '{timeout, ...}'. This may happen when a call\n to a gen_server (or similar) does not receive a reply within some standard\n timeout. Use the '--after_timeout' option to treat after clauses that exceed some\n threshold as 'impossible'. \n{% endhighlight %}\n\n### Treating abnormal exit reasons as normal\n\nThe other two processes exited abnormally because they were terminated by events\ngenerated by the delivery of a `stop` message to a supervisor. The supervisor\nthen sent `shutdown` exit signals to the relevant processes. Again, let's assume\nthat this is acceptable behaviour in our context, using `--treat_as_normal\nshutdown` (also suggested by a tip).\n\n{% highlight text %}\nTip: A process crashed with reason 'shutdown'. This may happen when a supervisor\n is terminating its children. You can use '--treat_as_normal shutdown' if this is\n expected behavior.\n{% endhighlight %}\n\nA report without problems\n-------------------------\n\nWe now run Concuerror again, using the new options:\n\n{% highlight bash %}\npoolboy $ concuerror -f poolboy_tests_1.erl -m poolboy_tests_1 -t pool_startup \\\n --pa .eunit --after_timeout 1000 --treat_as_normal shutdown\n{% endhighlight %}\n\nThis time the output finishes in:\n\n{% highlight text %}\n[...]\nWarning: Some abnormal exit reasons were treated as normal ('--treat_as_normal').\nDone! (Exit status: completed)\n Summary: 0 errors, ... interleavings explored\n{% endhighlight %}\n\nConcuerror finished the exploration, finding all the different states that the\nprogram can reach. None of these interleavings had any processes terminating\nabnormally with a reason different from `shutdown`, nor any other errors.\n\n### Interleavings as a graph\n\nConcuerror can also produce a\n[DOT](https://en.wikipedia.org/wiki/DOT_(graph_description_language)) file,\nincluding all the interleavings. This feature can be enabled with `--graph `.\nYou can then use `dot` to convert\nthe DOT file to an image.\n\n### Racing events\n\n The report includes a section where each pair of events that are racing is\nreported, to justify each additional interleaving. Let's take a look at the\noutput:\n\n{% highlight text %}\n[...]\n################################################################################\nRace Pairs:\n--------------------------------------------------------------------------------\nYou can disable race pair messages with '--show_races false'\n* Exit signal (normal) from P.1 reaches P.1.1\n is in race with\n Message ({'DOWN',#Ref<0.0.0.508>,process,P.1.1.1,shutdown}) from P.1.1.1 reaches P.1.1\n* Message ({'DOWN',#Ref<0.0.0.508>,process,P.1.1.1,shutdown}) from P.1.1.1 reaches P.1.1\n is in race with\n Timer #Ref<0.0.0.522>: expires, delivering {timeout,#Ref<0.0.0.522>,kill} to P.1.1\n* P.1: exits normally\n is in race with\n P: true = erlang:demonitor(#Ref<0.0.0.407>, [flush])\n in gen.erl line 215\n{% endhighlight %}\n\nWe can see e.g. that the delivery of an exit signal from a linked process races\nwith the delivery of an arbitrary message, (since `P.1.1` is trapping exits), a\nsimilar race appears between a message from a timer and finally a process\nexiting races with the cancellation of a monitor, as the monitor message will be\nsent in one case but not in the other.\n\nThe same pair of events may be reported multiple times, but this should happen\nonly if we are exploring the reverse interleaving of a different race.\n\n**If you see a pair of events that you believe should not be racing, feel free\n to [report the\n discrepancy!](https://github.com/parapluu/Concuerror/issues/new) Concuerror's\n race detection accuracy is the most sensitive component regarding the total\n number of interleavings explored!**\n\n\"Deadlocked\" processes\n---------------------\n\nSince we called `poolboy:stop/1`, all processes were properly stopped. What\nwould happen if we had let a process lingering? We already have such a test,\n`pool_startup_no_stop/0` (we need to use `poolboy:start/1` instead of\n`start_link`, as the normal exit signal from the initial process also causes a\nshutdown).\n\n{% gist aronisstav/b67df16361cd9a2fa87e %}\n\nRunning this test, yields:\n\n{% highlight bash %}\npoolboy $ concuerror -f poolboy_tests_1.erl -m poolboy_tests_1 --pa .eunit \\\n -t pool_startup_no_stop\nConcuerror started at 03 Jun 2014 12:00:00\nWriting results in concuerror_report.txt\n[...]\nDone! (Exit status: warning)\n Summary: 1 errors, 1/1 interleavings explored\n{% endhighlight %}\n\nThe output file now contains the following description:\n\n{% highlight text %}\nErroneous interleaving 1:\n* Blocked at a 'receive' (\"deadlocked\"; other processes have exited):\n P.1 in gen_server.erl line 360\n P.1.1 in gen_server.erl line 360\n P.1.1.1 in gen_server.erl line 360\n{% endhighlight %}\n\nConcuerror reports any processes that have not exited, when no other processes\nare available to run. Such processes are blocked at a *receive* statement and\nare considered \"deadlocked\". These warnings can be turned off by `--ignore_error\ndeadlock`.\n\nConcuerror will always reset the test to the initial state, so leaving some\nprocesses running may be a better alternative to suffering from all the races\nbetween exit signals that appear at termination.\n" }, { "path": "docs/_posts/2014-08-11-euc-2014.md", "content": "---\nlayout: post\ntitle: \"Talk at EUC 2014: Video and Slides\"\nupdated: 2015-06-17\ncategory: news\nredirect_from: /euc-2014.html\n---\n\nStavros Aronis gave a presentation about Concuerror at the Erlang User Conference 2014.\n\n

Stavros Aronis - Concuerror: Into Real Code from Erlang Solutions on Vimeo.

\n\n[Get the slides](https://www.erlang-factory.com/static/upload/media/1402329241902242concuerrorintorealcodestavrosaroniseuc14.pdf).\n\nYou can also find the video and slides [here](https://www.erlang-factory.com/euc2014/stavros-aronis).\n" }, { "path": "docs/_posts/2015-06-10-euc-2015.md", "content": "---\nlayout: post\ntitle: \"Tutorial at EUC 2015: Slides\"\ncategory: tutorials\nupdated: 2015-06-10\n---\n\nStavros Aronis is presenting a tutorial on Concuerror at the Erlang User Conference 2015.\n\nYou can find more info [here](https://www.erlang-factory.com/euc2015/stavros-aronis).\n\nThe slides are [here](https://docs.google.com/presentation/d/1dRUQ1jC0NXRyM-6WJWo15n-3hSZ1p7F8fl3X4bdhis8/pub?start=false&loop=false&delayms=60000).\n" }, { "path": "docs/_posts/2017-08-14-euc-2017-talk.md", "content": "---\nlayout: post\ntitle: \"Talk at EUC 2017: Video and Slides\"\ncategory: news\nredirect_from: /euc-2017-talk.html\n---\n\nKostis Sagonas presented a talk on Concuerror at the Erlang User Conference 2017.\n\n{% assign yt-link = \"WWBDUpmCUsI\" %}\n{% include yt.html %}\n\n[Get the slides](https://docs.google.com/presentation/d/11nidXG5JazNXsNSoqW98oRlx7-e64ghQ_E1p_WMLitg).\n\nYou can find more info [here](https://www.erlang-factory.com/euc2017/kostis-sagonas).\n" }, { "path": "docs/_posts/2017-08-14-euc-2017-tutorial.md", "content": "---\nlayout: post\ntitle: \"Tutorial at EUC 2017: Slides\"\ncategory: tutorials\n---\n\nStavros Aronis presented a tutorial on Concuerror at the Erlang User Conference 2017.\n\nYou can find more info [here](https://www.erlang-factory.com/euc2017/stavros-aronis).\n\nThe slides are [here](https://goo.gl/Mhulbn).\n" }, { "path": "docs/_posts/2017-10-03-publications-update.md", "content": "---\nlayout: post\ntitle: \"Recent Publications and Homepage\"\ncategory: news\nredirect_from: /publications-update.html\n---\n\nThe [Publications](/publications) page was updated with some recent publications.\n\nThe [Homepage](/) was extended with more info.\n" }, { "path": "docs/_posts/2017-10-08-concuerror-eunit.md", "content": "---\nlayout: post\ntitle: \"How to run Concuerror with EUnit\"\ncategory: tutorials\nupdated: 2018-03-09\n---\n\nHere are some guidelines on how to use Concuerror as part of an EUnit\nsuite.\n\nFirst of all, the \"order\" in which you run the two tools is\nsignificant: e.g. invoking Concuerror with the `test/0` function\ngenerated by EUnit is a bad idea, for at least two reasons:\n\n1. you probably don't want to test all of EUnit's boilerplate code\n systematically and\n\n2. the default test function generated by EUnit runs all tests, one\n after another; as a result, systematic testing will have to explore\n a number of schedulings that is the **product** of every individual\n test's schedulings! You should use Concuerror on single tests\n instead.\n\nSuppose you have the following EUnit tests:\n\n{% highlight erlang %}\n-module(eunit_sample).\n\n-include_lib(\"eunit/include/eunit.hrl\").\n\n%%==============================================================================\n\nfoo_test() ->\n ?assert(true).\n\nmsg_test() ->\n P = self(),\n spawn(fun() -> P ! foo end),\n spawn(fun() -> P ! bar end),\n receive\n Msg -> ?assert(foo, Msg)\n end.\n\nreg_test() ->\n Fun =\n fun() ->\n receive message -> ok\n after 100 -> timeout\n end\n end,\n P = spawn(Fun),\n register(p, P),\n p ! message,\n ?assert(true).\n{% endhighlight %}\n\nFor this suite, running EUnit yields:\n\n{% highlight bash %}\n$ erlc eunit_sample.erl\n$ erl -noinput -s eunit_sample test -s erlang halt\n All 3 tests passed.\n{% endhighlight %}\n\nIt is fairly easy to see, however, that the two latter tests can fail\nin particular interleavings[^1].\n\n[^1]: In fact, the second and third tests MAY fail once in a while, but most times they won't!\n\nInvoking Concuerror on `msg_test/0` easily finds the error:\n\n{% highlight bash %}\n$ concuerror -m eunit_sample -t msg_test\nConcuerror v0.17 (...) started at 08 Oct 2017 16:19:48\n[...]\nErrors were found! (check concuerror_report.txt)\nDone at 08 Oct 2017 16:23:49 (Exit status: error)\n Summary: 1 errors, 2/2 interleavings explored\n{% endhighlight %}\n\nThe output file contains the trace:\n\n{% highlight text %}\n{% raw %}\nConcuerror v0.17 (...) started at 08 Oct 2017 16:23:49\n Options:\n [...]\n################################################################################\nInterleaving #2\n--------------------------------------------------------------------------------\nErrors found:\n* At step 6 process P exited abnormally\n Reason:\n {{assertEqual,[{module,eunit_sample},\n {line,15},\n {expression,\"Msg\"},\n {expected,foo},\n {value,bar}]},\n [...]}\n Stacktrace:\n [...]\n--------------------------------------------------------------------------------\nEvent trace:\n 1: P: P.1 = erlang:spawn(erlang, apply, [#Fun,[]])\n in erlang.erl line 2693\n 2: P: P.2 = erlang:spawn(erlang, apply, [#Fun,[]])\n in erlang.erl line 2693\n 3: P.2: bar = P ! bar\n in eunit_sample.erl line 13\n 4: P.2: exits normally\n 5: P: receives message (bar)\n in eunit_sample.erl line 14\n 6: P: exits abnormally ({{assertEqual,[{module,eunit_sample},{line,15},..]}})\n 7: P.1: foo = P ! foo\n in eunit_sample.erl line 12\n 8: P.1: exits normally\n################################################################################\nExploration completed!\n################################################################################\n[...]\nInfo:\n--------------------------------------------------------------------------------\n* Automatically instrumented module io_lib\n* Automatically instrumented module gen_server\n* Automatically instrumented module eunit_sample\n* Automatically instrumented module erlang\n* You can see pairs of racing instructions (in the report and '--graph') with '--show_races true'\n\n################################################################################\nDone at 08 Oct 2017 16:23:49 (Exit status: error)\n Summary: 1 errors, 2/2 interleavings explored\n{% endraw %}\n{% endhighlight %}\n\nNotice that Concuerror instrumented only some very basic modules. In\ncontrast, invoking Concuerror on the `test/0` function that is\nautomatically generated by EUnit (and is automatically tested by\nConcuerror), yields:\n\n{% highlight text %}\n$ concuerror -m eunit_sample\nConcuerror v0.17 (...) started at 08 Oct 2017 16:28:38\n\nWriting results in concuerror_report.txt\n\n* Info: Automatically instrumented module io_lib\n* Info: Automatically instrumented module gen_server\n* Info: Automatically instrumented module eunit_sample\n* Info: Automatically instrumented module eunit\n* Info: Automatically instrumented module proplists\n* Info: Automatically instrumented module eunit_tty\n* Info: Automatically instrumented module eunit_listener\n* Info: Automatically instrumented module erlang\n* Info: Automatically instrumented module eunit_serial\n* Info: Automatically instrumented module sets\n* Info: Automatically instrumented module lists\n* Info: Automatically instrumented module eunit_lib\n* Info: Automatically instrumented module gb_trees\n* Info: Automatically instrumented module dict\n* Info: Automatically instrumented module eunit_server\n* Warning: Your test seems to try to set up an EUnit server. This is a bad idea, for at least two reasons: 1) you probably don't want to test all of EUnit's boilerplate code systematically and 2) the default test function generated by EUnit runs all tests, one after another; as a result, systematic testing will have to explore a number of schedulings that is the product of every individual test's schedulings! You should use Concuerror on single tests instead.\n* Info: Automatically instrumented module queue\n* Info: Automatically instrumented module eunit_proc\n* Tip: Increase '--print_depth' if output/graph contains \"...\".\n* Error: Stop testing on first error. (Check '-h keep_going').\n* Error: Concuerror does not support calls to built-in erlang:statistics/1 (found in eunit_proc.erl line 324).\n If you cannot avoid its use, please contact the developers.\n Stacktrace:\n [{eunit_proc,with_timeout,3,[{file,\"eunit_proc.erl\"},{line,324}]},\n {eunit_proc,run_group,2,[{file,\"eunit_proc.erl\"},{line,549}]},\n {eunit_proc,child_process,2,[{file,\"eunit_proc.erl\"},{line,353}]}]\n\nDone at 08 Oct 2017 16:28:39 (Exit status: fail)\n Summary: 1 errors, 1/1 interleavings explored\n{% endhighlight %}\n\nConcuerror does not support calls to\n`erlang:statistics/1`. Additionally, it emits a *Warning* that this\nparticular use is problematic.\n\nFortunately, the EUnit suite can be extended to also run the tests\nwith Concuerror:\n\n{% highlight erlang %}\n%%==============================================================================\n\n-define(concuerror_options, [{module, ?MODULE}, quiet]).\n\nfoo_concuerror_test() ->\n ?assertEqual(ok, concuerror:run([{test, foo_test}|?concuerror_options])).\n\nmsg_concuerror_test() ->\n ?assertEqual(ok, concuerror:run([{test, msg_test}|?concuerror_options])).\n\nreg_concuerror_test() ->\n ?assertEqual(ok, concuerror:run([{test, reg_test}|?concuerror_options])).\n{% endhighlight %}\n\nInvoking Concuerror again, yields:\n\n{% highlight bash %}\n$ erlc eunit_sample.erl\n$ erl -noinput -s eunit_sample test -s erlang halt\neunit_sample: msg_concuerror_test...*failed*\nin function eunit_sample:'-msg_concuerror_test/0-fun-0-'/0 (/home/stavros/git/Concuerror/tests-real/suites/options/eunit/eunit_sample.erl, line 38)\n**error:{assertEqual,[{module,eunit_sample},\n {line,38},\n {expression,\"concuerror : run ( [ { test , msg_test } | ? concuerror_options ] )\"},\n {expected,ok},\n {value,error}]}\n output:<<\"\">>\n\neunit_sample: reg_concuerror_test...*failed*\nin function eunit_sample:'-reg_concuerror_test/0-fun-0-'/0 (/home/stavros/git/Concuerror/tests-real/suites/options/eunit/eunit_sample.erl, line 41)\n**error:{assertEqual,[{module,eunit_sample},\n {line,41},\n {expression,\"concuerror : run ( [ { test , reg_test } | ? concuerror_options ] )\"},\n {expected,ok},\n {value,error}]}\n output:<<\"\">>\n\n=======================================================\n Failed: 2. Skipped: 0. Passed: 4.\n{% endhighlight %}\n\nThe second and third tests have failed as expected and if run\nindividually you can debug them from the report.\n\nHave fun and keep testing!\n" }, { "path": "docs/_posts/2017-10-14-concuerring-concuerror-ep-1.md", "content": "---\nlayout: post\ntitle: \"Concuerring Concuerror\"\ncategory: tutorials\nredirect_from: /concuerring-concuerror-ep-1.html\n---\n\n### ... and some useful lessons for testing complex applications.\n\nDevelopers learn the term 'heisenbug' when they run their concurrent\ncode and see it succeeding and failing 'randomly'. Concurrent\nprogramming is hard and errors in concurrent programs are difficult to\ntrigger and debug. Changing the program makes the bug go away. Tools\nthat can detect such errors are complex, usually have limited\nabilities and are difficult to use. Hope must be abandoned.\n\nConcuerror, a stateless model checking tool capable of detecting\nconcurrency errors in Erlang programs, recently started showing\nsymptoms of suffering from a heisenbug itself. Some of the continuous\nintegration jobs on\n[Travis CI](https://travis-ci.org/parapluu/Concuerror) would get stuck\nand timeout due to inactivity\n([here](https://travis-ci.org/parapluu/Concuerror/builds/286063501)\n[are](https://travis-ci.org/parapluu/Concuerror/builds/286108892)\n[a](https://travis-ci.org/parapluu/Concuerror/builds/286510470)\n[few](https://travis-ci.org/parapluu/Concuerror/builds/286544528)).\nStarting those jobs again would sometimes make them succeed. Other,\nlocal runs of the test suite, would sometimes crash with Concuerror's\nown timeout message ('a process did not respond...'). These crashes\nwould notably show up at different points within Concuerror's\nexploration of program schedulings.\n\nThese are all symptoms of heisenbugs.\n\nA fairly common challenge for a program whose input is some other\nprogram (e.g. compilers, code analyzers, etc) is to run such program\nwith itself as input. Especially for analysis tools, such as\nConcuerror, the goal is to assert that the program does not suffer\nfrom the errors it can detect.\n\nThis is also known as\n\"[eating one's own dog food](https://en.wikipedia.org/wiki/Eating_your_own_dog_food)\".\n\nCould Concuerror find the concurrency bug it had? As its main\ndeveloper I wanted the answer to be an easy \"yes\". Sadly, the\ncomplexity of the tool itself was initially too high for such a task.\n\nThus began project\n[`dogfood`](https://github.com/aronisstav/Concuerror/tree/dogfood).\nConcuerror should be able to analyze itself, either by supporting more\nfeatures or by not using them at all. As the 'Concuerror under test'\nwould still need an\n[input](https://en.wikipedia.org/wiki/Turtles_all_the_way_down), the\nsimplest Erlang function was picked: `test() -> ok.`.\n\nThe stage was set for a (very nerdy) action film!\n\n## Instrumentation and Code loading\n\nOne of Concuerror's most useful features is its ability to find source\ncode, instrument it, recompile and reload it on an Erlang VM\n[in a totally automatic and seamless way](/tutorials/basic-tutorial.html/#-is-it-really-that-simple).\nDoing this as part of a test, however, would require handling files\nand this is a very hard task in stateless model checking. In Erlang,\nthis could entail unloads, resets and other similar horrors.\n\nFortunately, Concuerror lets programs communicate with existing\nregistered Erlang processes and allows them to read public ETS\ntables. Concuerror is using such an ETS table to mark code that has\nbeen already instrumented and loaded. By appending a run of the simple\ntest input before the run of 'Concuerror under test' on that input,\nany code that needed instrumentation would be readily instrumented\nwhen inspected by the inner Concuerror.\n\nIt is unclear how this trick can be generalized. Using files or ports\nis still hard in code under stateless model checking.\n\n## Unsupported operations\n\nThe next challenge was in the use of several Erlang builtin operations\nwhose handling has not yet been implemented in Concuerror. Examples\ninclude operations that are\n[fairly problematic to begin with (e.g. `os:timestamp`)](/faq/#limitations)\nand others that are simply not yet implemented\n(e.g. `ets:update_element`). Such operations were either simplified in\nthe tool or minimal support for them was added. The last approach was\neasy, as Concuerror simulates very few parts of Erlang; letting the\ntool 'just run' the operations (and consider them racing with\neverything else) is a good first approximation.\n\n## Full sequentialization\n\nAn early goal of the self-analysis was to assert that Concuerror would\nbe a fully sequential tool: only one process could run at anytime, a\nconstraint that could be enforced by synchronous requests between the\ncomponents of the application. This approach was abandoned early as\nfull sequentialization of the communication with the logger component\nwas deemed too silly.\n\nConcurrent operations would instead be allowed, but any racing\noperations would be eliminated.\n\n## Looking at the magic\n\nOnce the first issues were handled, tests started showing a trace of\nevents before getting stuck here or crashing there. This was the first\ntime I saw how much is going on in a run of Concuerror. ETS tables\nwere written and read, messages and signals were flying. I was\ndazzled.\n\nA number of simplifications were done using this info. When the\nanalysis is over, processes can be\n[gently signaled to exit](https://github.com/parapluu/Concuerror/commit/cd55afb)\n(Concuerror used to kill them, something which is discouraged in\nsystematic testing, as such kill signals race with almost every other\noperation). Some synchronization was\n[added](https://github.com/parapluu/Concuerror/commit/c20def7) in\nplaces where it would retain simplicity in the code.\n\n## Improving the user experience\n\nEating one's own dog food reveals small frustrating details that can\nruin user experience. Badly formed options that are ignored. Unclear\nmessages to the user. Sanding those hard edges is trivial once they\nare detected. Using the tool for real is the only way to do so.\n\n## Simplifying the code\n\nIn the end, solving a tricky knot involving the marking of 'processes\nunder Concuerror' and the handling of `receive` statements split the\ncommit history of the 'dog food' branch into two parts:\n\n* Before the\n [fix](https://github.com/parapluu/Concuerror/commit/c1c641e),\n Concuerror could not analyze itself: messages would be mysteriously\n lost between the outer and inner instances and the outer instance\n would get always stuck. This was not surprising: recursive use of\n the tool is (still) an esoteric endeavor and getting the\n instrumentation right is tricky.\n* After the fix, Concuerror **could analyze itself!** However, the\n analysis would terminate after exploring just one scheduling, which\n was correct. No races existed.\n \nWas it the case that the bug was still there, but could only be\ntriggered with more complex input? That's what I initially\nthought. Stateless model checking is a very practical technique for\nfinding concurrency errors, but cannot cover all inputs of a program\nunder test.\n\nThe reason to believe that the bug had not been fixed was that the fix\nwas just preventing a send operation from being instrumented by moving\nit elsewhere. To avoid introducing a race **due** to the movement,\nanother send operation was also moved. Their order remained the\nsame. Or so I thought.\n\n## Fixing the bug\n\nConcuerror instruments and reloads code in a way that is completely\ntransparent, unless a process has been 'marked' by the tool. Marked\nprocesses mostly execute their original code, but wait for permission\nfrom Concuerror's scheduler before performing any operations that\ncould be involved in races and also notify the scheduler about the\nresult of any such operation.\n\nWhen a process under Concuerror receives a message, Concuerror's\ninstrumentation intercepts it and places it in a separate queue. This\nis done because Concuerror's scheduler itself communicates with\nprocesses via messages and this interception keeps channels of\ncommunication clean.\n \nWhen a process under Concuerror is about to execute a receive\nstatement, the instrumentation inspects the patterns, the existence of\nan after clause and the messages in the queue. If a matching message\nis found it's \"sent again\" (the first send in the story above), so\nthat the actual receive statement can then be executed, finding the\nmessage in the mailbox. If no intercepted message matches but an after\nstatement should be executed, no message should be placed in the\nmailbox.\n\nIn either case, the process would notify Concuerror's scheduler,\nsending a message to it (the second send in the story above) *before*\nexecuting the actual receive statement.\n\nThis opened up the possibility that the scheduler would send a message\nof its own, asking for the next event, before the receive statement\nwas really executed. This was fine and well if a message was about to\nbe received (the message would already be in the mailbox), but if the\nprocess was supposed to execute the after clause, it could\n'accidentally' receive Concuerror's scheduler message.\n\nThe process might then crash. Or it might ignore the message and reach\nthe point before the next operation for which it would have to notify\nthe scheduler. It would then wait forever for the scheduler's message\n(which was already accidentally consumed).\n\nThe scheduler would also either crash, blaming the process for not\nresponding within reasonable time to its request for a next event, or\nwait forever (depending on the `--timeout` option used).\n\nHaving to do the possible \"send again\" as the absolutely last thing\n(as this was the operation moved into uninstrumented code), forced the\nnotification to also be moved after the receive statement (with the\ntimeout) was completed. The scheduler's message could no longer be\nlost. The test had only one interleaving.\n\nThe bug was fixed.\n\n## ... and a philosophical question\n\nIn the version before the fix, Concuerror could **not** cleanly find\nthis bug, but was also prevented from running correctly: there was too\nmuch instrumentation on the \"sent again\" handling of a message. After\na partial fix the bug could still not really be found: the `receive`\nstatement whose after clause was vulnerable would be uninstrumented\n(all the inspection would have happened beforehand).\n\nYet, in the version after the fix, Concuerror did not have the bug.\n\nSo, at the end of the day, did Concuerror find the bug, or was it me?\n:-)\n" }, { "path": "docs/_posts/2017-11-06-Announcing-Mailing-List.md", "content": "---\nlayout: post\ntitle: \"Announcing a Mailing List\"\ncategory: news\nredirect_from: /Announcing-Mailing-List.html\n---\n\nConcuerror now has a [mailing list](/contact).\n" }, { "path": "docs/_posts/2018-07-15-hex.md", "content": "---\nlayout: post\ntitle: \"Available on Hex.pm (with API specification)\"\ncategory: news\nredirect_from: /hex.html\n---\n\nConcuerror is now also available via\n[Hex.pm](https://hex.pm/packages/concuerror).\n\nSpecification about its API is available on\n[Hexdocs](https://hexdocs.pm/concuerror).\n" }, { "path": "docs/_posts/2020-10-10-tips.md", "content": "---\nlayout: post\ntitle: \"How to optimize Concuerror's search?\"\ncategory: news\nredirect_from: /tips.html\n---\n\n## Table of contents\n{:.no_toc}\n\n1. This text will be replaced by the ToC\n{:toc}\n\nThis post contains tips for optimizing Concuerror's search.\n\n## The bound options\n\nConcuerror has a number of different bound-related options. These can\nbe used to reduce the search space is different ways.\n\n### Depth bound\n\nThe depth bound (`-d, --depth_bound`) is a limit on how many\nevents[^1] there can be in a single\nexecution of the given test. Concuerror requires test executions to\nhave finite length, and the depth limit is a simple way to guarantee\nthat every execution has a limited number of events. However, **if an\nexecution reaches this limit Concuerror cannot prove correctness of\nthe test** (and it will report so but you can make it keep exploring\nexecutions anyway).\n\n### Interleaving bound\n\nThe interleaving bound (`-i, --interleaving_bound`) is a hard limit on\nhow many interleavings of the given test will be explored. Concuerror\nis currently always deterministic, so, unless the test or other\noptions are modified, the same interleavings will be explored, in the\nsame order, and running a test repeatedly will not return different\nresults.\n\n### Scheduling bound\n\nExploring all the interleavings of a concurrent program (and therefore\nverifying it), even with Concuerror's specialized techniques, can lead\nto exploring a number of interleavings that grows exponentially with\nthe length of the execution. If one is interested in finding bugs, on\nthe other hand, it might be fruitful to explore \"simpler\" schedulings\nbefore trying more elaborate ones.\n\nConcuerror can help achieve that goal by using a scheduling bound. As\nexplained in the Bounding chapter in [\"Effective Techniques for\nStateless Model Checking\"](/publications):\n\n>This [goal] can be achieved using bounding techniques, that impose\n constraints on how/when processes can be scheduled by a stateless\n model checking algorithm and force the algorithm to focus the\n exploration on schedulings that satisfy those constraints. In this\n way, bugs in ‘simpler’ schedulings can be detected faster than when\n using exhaustive exploration. Schedulings that violate the\n constraints can also be explored, but each exploration begins with a\n budget (also called a bound), which is spent whenever the algorithm\n schedules processes in a way that violates the constraints. When no\n budget remains, the SMC algorithm can only explore schedulings that\n satisfy the constraints.\n\n#### \"Simpler\" schedulings\n\nWhen schedule bounding techniques are used, the \"simplest\" scheduling\nis chosen by the combination of scheduling options, currently\n`--scheduling` and `--strict_scheduling`.\n\n#### Scheduling bound\n\nThe `-b, --scheduling_bound` option defines the value of the\nscheduling bound.\n\n#### Scheduling bound types\n\nThe possible options for scheduling bounding are\n\n* `none` (default), if no scheduling bounding should be used\n\n* `delay` (recommended, when using bounding, and selected by default\n if a value is chosen for `--scheduling_bound` and no type is\n specified), which in Concuerror does **not** correspond to the\n technique found in other bibliography, but at a variant which we\n have named \"exploration tree bounding\" in the same\n publication[^2]. A benefit of this\n technique is that it is compatible with any DPOR algorithm and leads\n to fairly smooth scaling of the explored search space with the\n increase of the bound.\n\n* `bpor`, as described by \\[16\\] in the same publication[^3],\n which is based on limiting the number\n of times a process can be preempted. A practical weakness of this\n technique is that when a process becomes blocked *any* other process\n can be scheduled without consuming bounding budget, possibly leading\n to unpredictable scaling behaviours.\n\n* `ubpor`, which is a mostly abandoned experimental variant of `bpor`\n and is not recommended.\n\n## Using the bounds and optimizing your tests\n\nThis section provides some general guidelines on how to use Concuerror\neffectively.\n\n### See why Concuerror is exploring interleavings\n\nConcuerror explores interleavings based on racing operations it\ndetects. Using the `log_all` option together with `show_races` (and a\nsmall `interleaving bound`, to just sample the space of the test) can\nlet you see the racing operations in a test, and can be a useful aid\nin simplifying.\n\n### \"Shutdown\" sequences of OTP behaviours\n\nIf you are spawning processes using supervisors or OTP behaviours, it\nis often the case that when your main test process finishes a cascade\nof shutdowns will be triggered, which may or may not lead to more\nraces. If you are not interested in the behaviour of your processes\nshutting down, blocking the main test process with a `receive after\ninfinity -> ok end` (and ignoring the deadlocks with `--ignore-error\ndeadlock`) might simplify your test.\n\n\n### Start simple\n\nTwo or three processes and relatively simple test scenarios are enough\nto trigger most race conditions. Even a simple \"sequential\nconcatenation\" of two complex racing scenarios will lead to a state\nspace that has the size of the product of the two individual scenarios\n(Concuerror is dynamic and cannot know e.g. that the second scenario\nalways, independently follows the first).\n\n### Use a scheduling bound\n\nUsing a scheduling bound can quickly and effectively lead to a better\nsearch for bugs in your tests. A good way to summarize this is: \"if\nyou suspect a bug is there, a small scheduling bound will find it\".\n\n### Read the hints\n\nConcuerror emits hints upon detecting some patterns that may lead to\nunexpected explosion of the search space. Reading and understanding\nthem is recommended.\n\n## Final note\n\nConcuerror is a fairly expert tool and mastering its use requires\npractise. If you have further questions consider communicating over\nthe [suggested channels](/contact)!\n\n[^1]: As events, Concuerror considers any kind of Erlang built-in\n operation that can be potentially interfering with operations in\n other processes, such as the delivery of a message, the expiration\n of a timeout, or writing and reading values in an ETS table. If\n you are interested in a snapshot of what kind of operations in\n Erlang programs can interfere, read the paper [\"The shared-memory\n interferences of Erlang/OTP built-ins\"](/publications).\n\n[^2]: [\"Effective Techniques for Stateless Model\n Checking\"](/publications)\n\n[^3]: Same as above.\n" }, { "path": "docs/_posts/2020-10-17-code-beam-sf-2019.md", "content": "---\nlayout: post\ntitle: \"Talk at CODE BEAM SF 2019: Slides\"\ncategory: news\nredirect_from: /code-beam-sf-2019.html\n---\n\nStavros Aronis presented a talk on Concuerror at CODE BEAM 2019.\n\nYou can find more info [here](https://codesync.global/speaker/stavros-aronis/#301modeling-and-verifying-distributed-applications-with-concuerror).\n\nThe slides are [here](/assets/pdf/CodeBEAMSF2019.pdf).\n" }, { "path": "docs/_posts/2020-10-17-functional-conf-2018.md", "content": "---\nlayout: post\ntitle: \"Talk at Functional Conf 2018: Video and Slides\"\ncategory: news\nredirect_from: /functional-conf-2018.html\n---\n\nStavros Aronis presented a talk on Concuerror at Functional Conf 2018.\n\n{% assign yt-link = \"xAoIn_3b_n8\" %}\n{% include yt.html %}\n\nYou can find more info [here](https://confengine.com/functional-conf-2018/proposal/8528/conquering-race-conditions-in-erlang-programs-with-concuerror).\n\nThe slides are [here](https://drive.google.com/file/d/11dhg9lG2v1cHpDrgLPcUlVvna39qHVFG/preview?feature=oembed).\n" }, { "path": "docs/_posts/2020-10-24-basic-tutorial.md", "content": "---\nlayout: post\ncategory: tutorials\n---\n\nBefore you launch Concuerror, you need a test that is **terminating**\n(ideally in any scheduling of the processes) and **closed** (does not\nrequire any inputs).\n\nYou should also keep in mind that systematic testing (unlike\nstress-testing) does not encourage (or require) the use of too many\nprocesses! **All** schedulings of the test will be explored, so \"the\nsimpler, the better\"!\n\nOnce you have such a test, all you have to do is compile your code as\nusual (preferably with `debug_info`) and then invoke Concuerror from\nyour shell, specifying the module and function that contains your\ntest:\n\n{% highlight bash %}\n$ concuerror -m my_module -t my_test\n{% endhighlight %}\n\nYou can also invoke `concuerror:run/1` from an Erlang shell:\n\n{% highlight erlang %}\n1> concuerror:run([{module, my_module}, {test, my_test}]).\n{% endhighlight %}\n\nor:\n\n{% highlight erlang %}\n2> concuerror:run([{entry_point, {my_module, my_test, []}]).\n{% endhighlight %}\n\nThe tool automatically instruments any modules used in the test, using\nErlang's automatic code loading infrastructure, so nothing more is in\nprinciple needed!\n\nRead the [FAQ](/faq) for more help.\n\n## ... is it really that simple?\n\nWell, for many programs that is probably enough! If your test is\nnamed `test` you can even skip the `-t` option!\n\nIf a scheduling leads to one or more processes crashing or\ndeadlocking, Concuerror will print a detailed trace of all the events\nthat lead to the error and by default stop the exploration. You can\nthen use this trace to debug the detected error.\n\nOtherwise it will keep exploring schedulings, until it has checked\nthem all. [Will the exploration ever\nfinish?](/faq/#will-the-exploration-ever-finish)\n\n## Read more\n\nA more detailed introductory tutorial, including sample code is\navailable [here](/tutorials/poolboy-example.html).\n\n[Check out more tutorials here!](/tutorials)\n" }, { "path": "docs/contact.md", "content": "---\nlayout: page\npermalink: /contact/index.html\ntitle: \"Contact\"\ndescription: \"Information about contacting Concuerror's developers\"\nupdated: 2018-02-22\n---\n\nHere is information about how to contact the developers.\n\n## Mailing List\n\nThe preferred way of communication is the mailing list.\n\n### Archives\n\n\n\n### Subscribe\n\nSend an email to\n[concuerror-request@freelists.org](mailto:concuerror-request@freelists.org?subject=Subscribe&body=I+want+to+subscribe+to+Concuerror's+mailing+list!)\nwith 'Subscribe' in the Subject field\n\nOR\n\nVisit the list's page at .\n\n### FAQ\n\nYou can find FAQ about mailing lists hosted by freelists.org at\n.\n" }, { "path": "docs/download.md", "content": "---\nlayout: page\npermalink: /download/index.html\ntitle: \"Download Concuerror\"\ndescription: \"Information on how to download Concuerror.\"\n---\n\n## Github\n\nConcuerror's latest stable version is available on [Github](https://github.com/parapluu/Concuerror):\n\n{% highlight bash %}\n$ git clone https://github.com/parapluu/Concuerror.git\n$ cd Concuerror\n$ make\n{% endhighlight %}\n\nThe preferred way to start concuerror is via the `bin/concuerror` escript.\n\n## Hex.pm\n\nConcuerror is also [available via Hex.pm](https://hex.pm/packages/concuerror).\n\nThis enables you to include it in your project using any of the\nbuilding tools that support Hex.pm dependencies.\n\n## Supported OTP Releases\n\nSee [Supported OTP\nReleases](https://github.com/parapluu/Concuerror#supported-otp-releases).\nWe use [Github Actions](https://github.com/parapluu/Concuerror/actions) to test:\n\n* The *two last* minor versions of the 'current' major Erlang/OTP release\n* The *last* minor version of recent older major releases\n\nYou can also find older versions of Concuerror\n[here](https://github.com/mariachris/Concuerror.git).\n" }, { "path": "docs/faq.md", "content": "---\nlayout: page\npermalink: /faq/index.html\ntitle: \"Concuerror's FAQ\"\ndescription: \"Concuerror's Frequently Asked Questions\"\nupdated: 2017-10-16\n---\n\n# Frequently Asked Questions\n{:.no_toc}\n\n1. This text will be replaced by the ToC, excluding the previous header (WOW!)\n{:toc}\n\n## How do I report a bug?\n\nThe preferred way is to use the repository's [Issues\npage](https://github.com/parapluu/Concuerror/issues/new), but you can also [contact the developers]({% link contact.md %}) in other ways.\n\n## How can I tell Concuerror where to find the code used by my test?\n\nConcuerror automatically instruments and reloads any code used by your test transparently relying on Erlang's code path.\nIt also supports a number of familiar options to specify input files.\nCheck `concuerror -h input` for more info.\n\n## Will the exploration ever finish?\n\nComplex concurrent programs can have a LOT of schedulings! Concuerror\nuses a technique called Optimal Dynamic Partial Order Reduction to\nfilter through them and has special knowledge about the interferences\nof Erlang/OTP built-ins (see the relevant [Publications](/publications)).\nStill, all this reduction power may sometimes not be enough.\n\nIf Concuerror keeps running for a while, you may want to limit the exploration\n(using e.g. the `--interleaving_bound` option)\nand visualize the explored schedulings\nvia the `--graph` option (the [dot](https://graphviz.org/) tool\nis needed to produce an image).\nYou can then see which operations the tool considers as racing\nusing the `--show_races` option and possibly simplify the test.\n\nConcuerror may also print tips during its execution,\nsuggesting ways to improve the effectiveness of testing.\nA large number of options are available to fine tune the tool.\nYou can find out more about them by using `--help all`.\n\n## Can Concuerror do 'random testing'?\n\nA 'random testing' mode has not yet been implemented in Concuerror (add\nyour voice to the related\n[Issue page](https://github.com/parapluu/Concuerror/issues/16)).\n\nIf your goal is not verification, Concuerror has its own way to sample\nthe interleavings in a less systematic way: schedule bounding. You can\nread more about it by `--help bound`.\n\n## How does Concuerror work? (extended)\n\nConcuerror runs the program under test in a controlled way so that only one\nprocess runs at a time.\n\n1. It begins with an arbitrary initial run, during which it logs any operations\n that affect shared state, such as sending and delivery of messages,\n operations on ETS tables etc. The result is a sequence of such events, called\n an *interleaving*.\n2. Afterwards it analyses this interleaving, finding pairs of events that could\n have different results if they were to happen in the reverse order (e.g. a\n message being delivered before the receiving process could have executed an\n after clause instead).\n3. Then it \"plans\" new interleavings of the program that will force this reverse\n order for each such pair. Any such interleavings \"replay\" some events from\n the one currently analyzed up to some instruction and then diverge, in order\n to execute other events before those involved in a race.\n4. Finally it checks for the \"latest\" place where it has made such a \"plan\",\n actually replays all events up to that point and continues as described in\n the plan. At some point in this new interleaving new behaviours may emerge.\n5. It repeats this approach from step 2, until no other such plans remain.\n\nThis is a technique known as _stateless model checking with dynamic\npartial order reduction_ ([read more](/publications)).\n\n## How does Concuerror control the scheduling of processes?\n\nConcuerror automatically adds instrumentation code and reloads any module that\nis used by the test. The instrumentation forces any process involved in the test\nto stop and report any operation that affects shared state.\n\n## Does Concuerror support all of Erlang's operations/libraries?\n\nConcuerror supports the complete Erlang language and can instrument programs of\nany size. It can be the case that support for some built-in operations is not complete\nbut this is a matter of prioritization of tasks.\nThere are however certain limitations regarding e.g.\n[timeouts](#how-does-concuerror-handle-timeouts-and-other-time-related-functions)\nand [non-deterministic\nfunctions](#how-does-concuerror-handle-non-deterministic-functions).\n\n## How can I get rid of '...' in output files?\n\nUse a higher `--print_depth`.\n\n## Is there a mailing list?\n\n[Yes]({% link contact.md %})!\n\n## Is there a changelog?\n\n[Yes](https://github.com/parapluu/Concuerror/blob/master/CHANGELOG.md)!\n\n## Limitations\n\n### How does Concuerror handle timeouts and other time-related functions?\n\n#### Timeouts\n\nTimeouts may appear as part of an Erlang\n[`receive`](https://www.erlang.org/doc/system/expressions.html#receive)\nstatement or calls to\n[`erlang:send_after/3`](https://www.erlang.org/doc/apps/erts/erlang.html#send_after/3) and\n[`erlang:start_timer/3`](https://www.erlang.org/doc/apps/erts/erlang.html#start_timer/3). Due\nto the fact that Concuerror's instrumentation has an overhead on the execution\ntime of the program, Concuerror normally disregards the actual timeout values\nand assumes:\n\n* **For** `receive` **timeouts**: the `after` clause is always assumed to be\n possible to reach. Concuerror *will* explore interleavings that trigger the\n `after` clause, unless it is impossible for a matching message to not have\n arrived by the time the `receive` statement is reached.\n\n* **For** `send_after`**-like timeouts**: The timeout message may arrive at\n any time until canceled.\n\nYou can use `-- after-timeout N` to make Concuerror regard timeouts higher than\n`N` as infinity.\n\n#### Time-related functions (E.g. `erlang:time/0`)\n\nConcuerror handles such functions together with other [non-deterministic\nfunctions](#how-does-concuerror-handle-non-deterministic-functions).\n\n### How does Concuerror handle non-deterministic functions?\n\nThe first time Concuerror encounters a non-deterministic function it records the\nreturned result. In every subsequent interleaving that is supposed to\n'branch-out' *after* the point where the non-deterministic function was called,\nthe recorded result will be supplied, to ensure consistent exploration of the\ninterleavings.\n\nThis may result in unexpected effects, as for example measuring elapsed time by\ncalling `erlang:time/0` twice may use a recorded result for the first call and\nan updated result for the second call (if it after the branching-out point),\nwith the difference between the two increasing in every interleaving.\n\n### How does Concuerror handle NIFs?\n\nConcuerror cannot intercept, instrument or perform race analysis in modules using NIFs and is very likely to crash if such modules are used. Better support may be included in the future.\n" }, { "path": "docs/feed.xml", "content": "---\nlayout: null\n---\n\n\n{{ site.title }}\nJekyll\n\n\n{{ site.time | date_to_xmlschema }}\n{{ site.url }}/\n\n {{ site.owner.name }}\n {{ site.url }}/\n {{ site.owner.email }}\n\n{% for post in site.posts limit:20 %}\n\n\n <![CDATA[{{ post.title | cdata_escape }}]]>\n {% if post.link %}{{ post.link }}{% else %}{{ site.url }}{{ post.url }}{% endif %}\n {{ site.url }}{{ post.id }}\n {% if post.modified %}{{ post.modified | to_xmlschema }}T00:00:00-00:00\n {{ post.date | date_to_xmlschema }}\n {% else %}{{ post.date | date_to_xmlschema }}\n {{ post.date | date_to_xmlschema }}{% endif %}\n \n {{ site.owner.name }}\n {{ site.url }}\n {{ site.owner.email }}\n \n {{ post.excerpt | xml_escape }}\n <p><a href="{{ site.url }}{{ post.url }}">{{ post.title }}</a> was originally published by {{ site.owner.name }} at <a href="{{ site.url }}">{{ site.title }}</a> on {{ post.date | date: \"%B %d, %Y\" }}.</p>\n\n{% endfor %}\n\n" }, { "path": "docs/index.md", "content": "---\nlayout: page\nupdated: 2020-10-25\ndescription: \"Homepage of the Concuerror, a tool for debugging, testing and verifying concurrent Erlang programs.\"\n---\n\n**Concuerror** is a **stateless model checking tool** for **Erlang**\nprograms. It can be used to **detect** and **debug** concurrency\nerrors, such as **deadlocks** and errors due to **race conditions**.\nMoreover it can **verify** the absence of such errors, because it\ntests programs **systematically**, unlike techniques based on\nrandomness.\n\n
\n [Get Concuerror!](/download){: .btn .btn--success .btn--large }\n
\n\n## Latest News\n\n[Read the latest news here](/news).\n\n## How to use Concuerror?\n\n[Read the basic tutorial here]({% post_url 2020-10-24-basic-tutorial %}).\n\n## What are race conditions?\n\nConcuerror's operation is based on detecting pairs of operations that\nare racing, i.e. could have a different result if scheduled in the\nopposite order. You can see some of these pairs by using the\n[`--show_races`\noption](https://hexdocs.pm/concuerror/concuerror_options.html#show_races_option-0).\n\nRemember, however, that not all race conditions are necessarily bad!\nAn example of benign racing is when worker processes report their\nprogress by sending messages to a work managing process. These\nmessages are racing, as they may reach (and be received) by the\nmanaging process in different orders.\n\nRace conditions become can lead to errors when the program expects\ncertain events to occur in a particular order, but that order is not\nalways guaranteed. Such errors are often hard to reproduce, when they\nrequire rare, particular schedulings.\n\nConcuerror systematically explores all \"meaningfully different\"\nschedulings, detecting all such errors or verifying their absence.\n\n## How does Concuerror work?\n\nConcuerror schedules the Erlang processes spawned in the test as if\nonly a single scheduler was available. During execution, the tool\nrecords a trace of any calls to built-in operations that can behave\ndifferently depending on the scheduling (e.g., receive statements,\nregistry operations, ETS operations). It then analyzes the trace,\ndetecting pairs of operations that are really racing. Based on this\nanalysis, it explores more schedulings, reversing the order of\nexecution of such pairs. This is a technique known as _stateless\nmodel checking with dynamic partial order reduction_.\n\n[Read more details about how Concuerror works here](/faq/#how-does-concuerror-work-extended).\n" }, { "path": "docs/news.md", "content": "---\nlayout: posts\npermalink: /news/index.html\ntitle: News\ndescription: \"Links to all posts on this website, sorted by date.\"\nshow_excerpts: false\n---\n" }, { "path": "docs/publications.md", "content": "---\nlayout: page\npermalink: /publications/index.html\ntitle: Publications\ndescription: \"Scientific publications regarding and involving Concuerror.\"\nupdated: 2020-10-03\n---\n\nThis is a list of publications related to Concuerror. Most titles are\nlinks to official versions of the articles.\n\n## Dissertation\n\n
\n[**Effective Techniques for Stateless Model Checking**](https://urn.kb.se/resolve?urn=urn:nbn:se:uu:diva-333541)
\nStavros Aronis.
\nPhD Dissertation, Uppsala University, 2018.\n
\n\n## Papers\n\n

\n\n

\"ACM**Modelling distributed Erlang within a single node**
Stavros Aronis, Viktória Fördős, and Dániel Szoboszlay
Erlang 2018 Proceedings of the 17th ACM SIGPLAN International Workshop on Erlang, 2018
\n\n
\n

\n\n
\n[**Optimal Dynamic Partial Order Reduction with Observers**](https://rdcu.be/LLeU)
\nStavros Aronis, Bengt Jonsson, Magnus Lång, and Konstantinos Sagonas.
\nTACAS 2018, Tools and Algorithms for the Construction and Analysis of Systems. Lecture Notes in Computer Science, vol 10806, 2018.
\n\nThe official publication is available at link.springer.com via [its DOI link](https://doi.org/10.1007/978-3-319-89963-3_14).\n\n
\n\n
\n[**Testing and Verifying Chain Repair Methods for Corfu Using Stateless Model Checking**](/assets/pdf/iFM2017.pdf)
\nStavros Aronis, Scott Lystig Fritchie, and Konstantinos Sagonas.
\nIFM 2017, Integrated Formal Methods: Proceedings of the 13th International Conference, 2017.
\n\nThe official publication is available at link.springer.com via [its DOI link](https://doi.org/10.1007/978-3-319-66845-1_15).\n\n
\n\n

\n\n

\"ACM**The shared-memory interferences of Erlang/OTP built-ins**
Stavros Aronis and Konstantinos Sagonas.
Erlang 2017, Proceedings of the 16th ACM SIGPLAN International Workshop on Erlang, 2017.
\n\n
\n

\n\n

\n\n

\n\n
\n

\n\n

\n\n

\"ACM**Optimal dynamic partial order reduction**
Parosh Abdulla, Stavros Aronis, Bengt Jonsson, and Konstantinos Sagonas.
POPL '14, Proceedings of the 41st ACM SIGPLAN-SIGACT Symposium on Principles of Programming Languages, 2014.
\n\n
\n

\n\n
\n[**Systematic Testing for Detecting Concurrency Errors in Erlang Programs**](/assets/pdf/ICST2013.pdf)
\nMaria Christakis, Alkis Gotovos, and Konstantinos Sagonas.
\nICST 2013, Proceedings of the International Conference on Software Testing, Verification and Validation (ICST), 2013.
\n\nThe official publication is available at ieeexplore.ieee.org via [its DOI link](https://doi.org/10.1109/ICST.2013.50).\n\n
\n\n

\n\n

\"ACM**Test-driven development of concurrent programs using Concuerror**
Alkis Gotovos, Maria Christakis, and Konstantinos Sagonas.
Erlang '11, Proceedings of the 10th ACM SIGPLAN workshop on Erlang, 2011.
\n\n
\n

\n\n## Theses\n\n
\n[**Systematic Testing of Concurrent Erlang Programs: Some Experiences**](https://dx.doi.org/10.26240/heal.ntua.16898)
\nIlias Tsitsimpis.
\nDiploma Thesis, National Technical University of Athens, 2013.\n
\n\n
\n[**Dynamic Systematic Testing of Concurrent Erlang Programs**](https://dx.doi.org/10.26240/heal.ntua.7193)
\nAlkis Gotovos.
\nDiploma Thesis, National Technical University of Athens, 2011.\n
\n" }, { "path": "docs/search.md", "content": "---\nlayout: search\npermalink: /search/index.html\ntitle: Search\ndescription: \"Search Concuerror's website\"\n---\n" }, { "path": "docs/sitemap.xml", "content": "---\nlayout: null\n---\n\n\n \n {{ site.url }}\n \n \n {% for post in site.posts %}\n \n {{ site.url }}{{ post.url }}\n \n {% endfor %}\n\n" }, { "path": "docs/tutorials.md", "content": "---\nlayout: category\npermalink: /tutorials/index.html\ntitle: Tutorials\ndescription: \"Links to tutorials on how to use Concuerror, sorted by date.\"\nshow_excerpts: false\ntaxonomy: tutorials\n---\n\nThis is a list of tutorials on how to use Concuerror.\nIf you are looking for documentation, check the\n[API](https://hexdocs.pm/concuerror).\n" }, { "path": "elvis.config", "content": "[{elvis, [{config,\n [ #{ dirs => [\"src\"]\n , filter => \"*.erl\"\n , rules =>\n [ {elvis_style, module_naming_convention,\n #{ regex => \"^concuerror(_[a-z]+)*$\"\n , ignore => []\n }}\n , {elvis_style, no_tabs}\n , {elvis_style, no_trailing_whitespace}\n , {elvis_style, macro_module_names}\n , {elvis_style, operator_spaces,\n #{ rules =>\n [ {right, \"++\"}\n , {left, \"++\"}\n , {right, \"->\"}\n , {left, \"->\"}\n , {right, \"!\"}\n , {left, \"!\"}\n ]}}\n , {elvis_style, nesting_level, #{level => 5}}\n , {elvis_style, god_modules,\n #{ limit => 20\n , ignore => [ concuerror_options\n ]\n }}\n , {elvis_style, no_if_expression}\n , {elvis_style, function_naming_convention,\n #{ regex => \"^[a-z]{2}([a-z0-9]*_?)*$\"}}\n , {elvis_style, state_record_and_type}\n , {elvis_style, no_spec_with_records}\n , {elvis_style, dont_repeat_yourself, #{min_complexity => 13}}\n , {elvis_style, used_ignored_variable}\n , {elvis_style, no_debug_call, #{ignore => []}}\n ]\n }\n , #{ dirs => [\"src\"]\n , filter => \"*.erl\"\n , rules =>\n [ {elvis_style, operator_spaces,\n #{ rules =>\n [ {right, \",\"}\n ]\n }}\n , {elvis_style, line_length,\n #{ limit => 80\n , skip_comments => false\n }}\n ]\n , ignore =>\n [ concuerror_dependencies\n ]\n }\n , #{ dirs => [\".\"]\n , filter => \"rebar.config\"\n , rules =>\n [ {elvis_project, no_deps_master_rebar, #{ignore => []}}\n , {elvis_project, protocol_for_deps_rebar, #{ignore => []}}\n ]\n }\n ]\n}]}].\n" }, { "path": "priv/concuerror", "content": "#!/usr/bin/env escript\n%%! +S1 -boot start_clean -noshell -pa . -pa ebin\n\n%% This script is used instead of the 'escriptized' version of the\n%% tool to collect code coverage data, as it was not obvious how to\n%% use cover with escript's embedded zip archive.\n\nmain(Args) ->\n ScriptName = read_link(escript:script_name()),\n ScriptDir = filename:dirname(ScriptName),\n TopDir = filename:dirname(ScriptDir),\n ExtraDirs =\n [filename:join([TopDir, \"_build\", Profile, \"lib\", App, \"ebin\"]) ||\n Profile <- [\"default\", \"dev\"],\n App <- [\"concuerror\", \"getopt\"]\n ],\n ok = code:add_pathsa(ExtraDirs),\n concuerror:main(Args).\n\n-spec read_link(file:filename()) -> file:filename().\n\nread_link(Filename) ->\n case file:read_link_all(Filename) of\n {ok, Follow} -> read_link(Follow);\n _Other -> Filename\n end.\n" }, { "path": "priv/generate_option_docfiles", "content": "#!/usr/bin/env escript\n%%! -noshell -pa _build/docs/lib/concuerror/ebin\n\nmain(Dir) ->\n concuerror_options:generate_option_docfiles(Dir).\n" }, { "path": "priv/generate_version_hrl", "content": "#!/usr/bin/env escript\n%%! -noshell\n\n%% The expected argument is the latest OTP version supported by\n%% Concuerror.\nmain([[LD, LU|_] = _LatestOTP]) ->\n MasterMajor = list_to_integer([LD, LU]) + 1,\n CurrentOTPRelease =\n case erlang:system_info(otp_release) of\n \"R\" ++ _ -> 16; %% ... or earlier\n [D,U|_] -> list_to_integer([D,U])\n end,\n io:format(\"-define(OTP_VERSION, ~w).~n\", [CurrentOTPRelease]),\n add_befores_for(CurrentOTPRelease + 1, MasterMajor).\n\nadd_befores_for(Release, MasterMajor) when Release =< MasterMajor ->\n add_before_for(Release),\n add_befores_for(Release + 1, MasterMajor);\nadd_befores_for(_, _MasterMajor) -> ok.\n\nadd_before_for(Release) ->\n io:format(\"-define(BEFORE_OTP_~p, true).~n\", [Release]).\n" }, { "path": "rebar.config", "content": "{minimum_otp_vsn, \"20.0\"}.\n\n{erl_opts,\n [ debug_info\n , warn_export_vars\n , warn_unused_import\n , warn_missing_spec\n , warn_untyped_record\n ]}.\n\n{deps, [{getopt, \"1.0.1\"}]}.\n\n{escript_incl_apps, [concuerror, getopt]}.\n{escript_main_app, concuerror}.\n{escript_name, concuerror}.\n{escript_emu_args, \"%%! +S1 -boot start_clean -noshell -pa . -pa ebin\\n\"}.\n\n{pre_hooks,\n [ {compile, \"priv/generate_version_hrl 23 > src/concuerror_otp_version.hrl\"}\n , {edoc, \"priv/generate_option_docfiles doc\"}\n ]}.\n\n{post_hooks,\n [ {escriptize, \"cp \\\"$REBAR_BUILD_DIR/bin/concuerror\\\" ./bin\"}\n ]}.\n\n{profiles,\n [ {dev,\n [ {erl_opts, [{d, 'DEV', \"true\"}]}\n ]}\n , {docs,\n [ {erl_opts, [{d, 'DOC', \"true\"}]}\n ]}\n , {lint,\n [ {plugins, [{rebar3_lint, \"0.1.10\"}]}\n ]}\n , {native,\n [ {erl_opts, [native]}\n ]}\n , {pedantic,\n [ {erl_opts, [warnings_as_errors]}\n ]}\n , {test,\n [ {erl_opts, [export_all, nowarn_missing_spec]}\n ]}\n ]}.\n\n{edoc_opts,\n [ {macros, [{'DOC', \"true\"}]}\n , {preprocess, true}\n , {title, \"Concuerror's API specification\"}\n ]}.\n\n{dialyzer,\n [ {warnings,\n [ unmatched_returns\n , unknown\n ]}\n , {base_plt_apps,\n [ compiler\n , crypto\n , erts\n , getopt\n , kernel\n , stdlib\n , syntax_tools\n , tools\n ]}\n ]}.\n\n{project_plugins, [covertool]}.\n{cover_enabled, true}.\n{cover_export_enabled, true}.\n{covertool,\n [ {coverdata_files,\n [ \"eunit.coverdata\"\n ]}\n , {include_apps, [concuerror]}\n ]}.\n" }, { "path": "resources/DPOR_paper_material/DPOR_README", "content": "Optimal Dynamic Partial Order Reduction for Analysis of Concurrent Programs\n---------------------------------------------------------------------------\n\nContents:\n---------\n\n1. Introduction\n2. Prerequisites\n3. Quick intro\n4. Tests\n5. Interesting details in the code\n\n1. Introduction\n---------------\n\nThe purpose of this readme file is to offer a brief guide around an\nexperimental version of the Concuerror tool, which was developed to include an\nalgorithm for optimal partial order reduction of the state space generated by\nthe exploration of concurrent applications written in the Erlang language.\n\nThe experimental functionality, as well as two more similar\nextensions/modifications are enabled with command line options. The tool runs\nthe stable version, if these are not provided. The stable version supports a few\nmore Erlang built-in functions that require preemption points and has been\ntested and integrated with a GUI. The experimental versions use the command line\ninterface.\n\n2. Prerequisites\n----------------\n\nConcuerror is an Erlang application, so you will need an Erlang runtime system\nto run it. Most Linux distributions have suitable packages. To run the original\nConcuerror testsuite you will also need Python. The application startup and\nshutdown relies on a bash script, so it is currently not possible to run\nConcuerror on a Windows machine.\n\nYou can build the application using 'make'\n\nCAUTION: This file's information refer to a version of the code that has been\n tagged under git as 'POPL_submission'. Check out that version before\n continuing.\n\n3. Quick intro\n--------------\n\nConcuerror expects as input a set of Erlang source modules, a target function\nand a preemption bound. Its output in results.txt are all the traces of the\nprogram that had some concurrency error.\n\nWe explain each briefly the command line options:\n\n- source files : are the files that will be instrumented to include preemption\n points before built-in functions that may affect the global\n state.\n\n Option: -f \n\n- target function : is an exported function in one of the files given as\n input. This is the function that will be run by the first\n process.\n\n Option: -t [ ] (arguments are optional. If none is\n given, the function with 0 arity\n will be called)\n\n- preemption bound : designates how many 'unnecessary' preemptions are allowed\n in the current run. Concuerror will always allow enabled\n processes to run after a process has become blocked (by\n trying to execute a receive when no matching messages are\n in its mailbox) and will also allow processes to be\n interrupted while still being enabled for other processes\n to be scheduled instead as many times as the preemption\n bound.\n\n Option: -p (default value is 2)\n\n- versions : by default you will be running the stable version of\n Concuerror. The following command line options can be used to\n enable 3 alternative versions, based on the same machinery:\n\n --dpor_fake : is a 'sanity' check version of Concuerror using the\n modified scheduler, but treating all operations as\n dependent. Should give results similar to those of\n the stable version, with maybe a few more\n interleavings.\n\n --dpor : is our experimental extension. Uses simple source sets to\n decide additional interleavings, together with our set of\n rules for dependencies between Erlang built-in functions.\n\n --dpor_flanagan : is a version using the algorithm proposed by\n Flanagan and Godefroid, extended with sleep sets\n as described in our cited paper.\n\nExamples:\n\nTo run stable Concuerror on two modules test.erl and foo.erl in your home\ndirectory, using test:run/0 as your starting function and infinite preemption\nbound:\n\n ./concuerror -f ~/test.erl ~/foo.erl -t test run -p inf\n\nTo run the same test using our experimental extension:\n\n ./concuerror -f ~/test.erl ~/foo.erl -t test run -p inf --dpor\n\nYou can run ./concuerror --help for description of a few more command line\noptions.\n\n4. Tests\n--------\n\nYou can instantly run two different testsuites that showcase the experimental\nversion:\n\na) The dpor_tests collection\n\nb) Concuerror's stable testsuite, which has been adapted slightly to run the\n experimental version instead of the stable one.\n\nLet's go into more details:\n\na) dpor_tests\n-------------\n\nThis is a collection of motivating examples that were used during the\ndevelopment of the experimental version. They include toy Erlang programs as\nwell as all the examples presented in the paper. The toy tests were written to\nexpose dependencies in the supported Erlang built-in functions and to showcase\nthe differences and strengths between the different versions of the tool.\n\nThe tests output is compared against a stored expected output to decide success\nor failure. A few (less than 5, usually 1) of the tests are expected to fail: in\nthese cases a diff of the expected output and the real output should show\nenvironment related changes, as the traces sometimes include information that is\nenvironment sensitive.\n\nThese tests are in the dpor_tests directory and you can run all of them by:\n\n dpor_tests/dpor_test\n\n... and a specific test by:\n\n dpor_tests/dpor_test dpor_tests/dpor_test/src/.erl\n\nThe output is written in the dpor_tests/new_results directory and is compared\nwith the reference output in dpor_tests/results. If it differs the test is\nreported as FAILED and the output is left for comparison. You can then use a\n(graphical) diff tool (e.g. meld) to see the differences in the outputs.\n\nYou can of course run any of the tests with e.g.:\n\n./concuerror -f dpor_tests/src/.erl -t -p inf --dpor\n\nInteresting tests in dpor_tests:\n--------------------------------\n\n- ets_dependencies.erl : This is the simple 2 readers vs 1 writer example.\n- ets_dependencies_n.erl : This is the extended example presented in the paper.\n You can run this example with a varying number of readers like this:\n\n T=ets_dependencies\n ./concuerror -f dpor_tests/src/$T.erl -t $T $T -p inf --dpor\n\n- file_system_example.erl : The file system example written in Erlang\n- independent_receivers.erl : A test with just two interleavings, where stable\n Concuerror explores 234300 interleavings.\n- register_again.erl : A test showing usage of Erlang built in functions.\n- ring_leader_election_symmetric : An implementation of leader election in a\n set of processes connected in a ring.\n- ring_leader_election_symmetric_buffer.erl : Same as before, with the\n difference that here mailboxes are 'modeled' as separate processes in such a\n way that 'sends' and 'receives' are also interleaved, leading to an\n explosion in the number of explored interleavings.\n- send_it_ets.erl : An example showing why send operations with the same message\n to the same process must be also interleaved.\n\nb) Concuerror's stable testsuite\n--------------------------------\n\nConcuerror's stable testsuite has also been run with --dpor to check for any\nmissing dependencies. The files are stored in testsuite/suites, including\nreference results. Running the tests creates the testsuite/results (which can\nagain be diffed against the reference directory in case of failures).\n\nYou can run the suite by:\n\n make test\n\n87 of the tests are expected to fail because the reference results are those\nobtained by running --dpor_fake. This is to show the difference, which in most\ncases favors --dpor (unless an unsupported instruction is used, in which case\nthe program crashes).\n\nThe --dpor_fake results are in the dpor directories under each suite. They have\nbeen compared against the results (stored in the vanilla directories) obtained\nby running the stable version with a few added preemption points. These are in\nturn comparable with the original results (stored in the results directories).\n\nInteresting test in Concuerror's testsuite\n------------------------------------------\n\n- manolis_test_2workers: Corresponds to the rush_hour test presented in the\n paper.\n\n5. Interesting details in the code\n----------------------------------\n\nApart from concuerror_rep.erl which has all the replacement functions for the\nactual calls that are found in the instrumented modules, all the main algorithm\nrun from concuerror_sched.erl. The dependent/2 boolean function returns true\nwhen two operations are dependent. The main loop of the algorithm is in the\nexplore/1 function. Finally the two different DPOR versions differ in the details\nof add_all_backtracks/1 function.\n" }, { "path": "resources/DPOR_paper_material/foo.erl", "content": "-module(foo).\n\n-export([foo/0]).\n\nfoo() ->\n P = self(),\n spawn(fun() -> P ! a end),\n spawn(fun() -> P ! b end),\n spawn(fun() -> P ! c end),\n receive\n V -> V\n after\n 0 -> bloo\n end.\n" }, { "path": "resources/DPOR_paper_material/foobar.erl", "content": "-module(foobar).\n\n-export([foo/0]).\n\nfoo() ->\n bar().\n\nbar() ->\n ok.\n" }, { "path": "resources/DPOR_paper_material/my_test.erl", "content": "-module(my_test).\n\n-export([test/1]).\n\ntest(small) ->\n foo_test();\ntest(large) ->\n foobar_test().\n\nfoo_test() ->\n dialyzer:run([{files, [\"/home/stavros/git/Concuerror/resources/DPOR_paper_material/foo.erl\"]}, {from, src_code}]).\n\nfoobar_test() ->\n dialyzer:run([{files, [\"/home/stavros/git/Concuerror/foobar.erl\"]}, {from, src_code}]).\n" }, { "path": "resources/DPOR_paper_material/run_dialyzer.sh", "content": "#!/usr/bin/env bash\n\necho \"\\\\hline\"\nfor i in small large; do\n f=0\n for t in --dpor --dpor_source --dpor_classic; do\n if [ $f -eq 0 ]; then\n echo \"\\multirow{3}{*}{$T} & \\multirow{3}{*}{$i} & \"\n echo -n \" o-DPOR &\"\n elif [ $f -eq 1 ]; then\n echo -n \" & & s-DPOR &\"\n else\n echo -n \" & & DPOR &\"\n fi\n f=$((f+1))\n ./conc_dia.sh $i $t | grep \"OUT\" | sed 's/OUT//'\n done\n echo \"\\\\hline\"\ndone" }, { "path": "resources/DPOR_paper_material/run_filesystem.sh", "content": "#!/usr/bin/env bash\n\nT=file_system_example\n\necho \"\\\\hline\"\nfor i in 16 18; do\n f=0\n for t in --dpor --dpor_source --dpor_classic; do\n if [ $f -eq 0 ]; then\n echo \"\\multirow{3}{*}{file\\_system} & \\multirow{3}{*}{$i} & \"\n echo -n \" o-DPOR &\"\n elif [ $f -eq 1 ]; then\n echo -n \" & & s-DPOR &\"\n else\n echo -n \" & & DPOR &\"\n fi\n f=$((f+1))\n ./concuerror_mem --noprogress -f testsuite/suites/dpor/src/$T.erl \\\n -t $T main $i -p inf $t \\\n | grep \"OUT\" | sed 's/OUT//'\n done\n echo \"\\\\hline\"\ndone" }, { "path": "resources/DPOR_paper_material/run_indexer.sh", "content": "#!/usr/bin/env bash\n\nT=indexer_example\n\necho \"\\\\hline\"\nfor i in 12 15; do\n f=0\n for t in --dpor --dpor_source --dpor_classic; do\n if [ $f -eq 0 ]; then\n echo \"\\multirow{3}{*}{$T} & \\multirow{3}{*}{$i} & \"\n echo -n \" o-DPOR &\"\n elif [ $f -eq 1 ]; then\n echo -n \" & & s-DPOR &\"\n else\n echo -n \" & & DPOR &\"\n fi\n f=$((f+1))\n ./concuerror_mem --noprogress -f testsuite/suites/dpor/src/$T.erl \\\n -t $T main $i -p inf $t \\\n | grep \"OUT\" | sed 's/OUT//'\n done\n echo \"\\\\hline\"\ndone" }, { "path": "resources/DPOR_paper_material/run_last_zero.sh", "content": "#!/usr/bin/env bash\n\nT=sleeping_races_8\n\necho \"\\\\hline\"\nfor i in 2 5 10; do\n f=0\n for t in --dpor --dpor_source --dpor_classic; do\n if [ $f -eq 0 ]; then\n echo \"\\multirow{3}{*}{last_zero} & \\multirow{3}{*}{$i} & \"\n echo -n \" o-DPOR &\"\n elif [ $f -eq 1 ]; then\n echo -n \" & & s-DPOR &\"\n else\n echo -n \" & & DPOR &\"\n fi\n f=$((f+1))\n ./concuerror_mem --noprogress -f testsuite/suites/dpor/src/$T.erl \\\n -t $T $T $i -p inf $t \\\n | grep \"OUT\" | sed 's/OUT//'\n done\n echo \"\\\\hline\"\ndone" }, { "path": "resources/DPOR_paper_material/run_readers.sh", "content": "#!/usr/bin/env bash\n\nT=readers\n\necho \"\\\\hline\"\nfor i in 2 8; do\n f=0\n for t in --dpor --dpor_source --dpor_classic; do\n if [ $f -eq 0 ]; then\n echo \"\\multirow{3}{*}{$T} & \\multirow{3}{*}{$i} & \"\n echo -n \" o-DPOR &\"\n elif [ $f -eq 1 ]; then\n echo -n \" & & s-DPOR &\"\n else\n echo -n \" & & DPOR &\"\n fi\n f=$((f+1))\n ./concuerror_mem --noprogress -f testsuite/suites/dpor/src/$T.erl \\\n -t $T $T $i -p inf $t \\\n | grep \"OUT\" | sed 's/OUT//'\n done\n echo \"\\\\hline\"\ndone" }, { "path": "resources/DPOR_paper_material/run_rush_hour.sh", "content": "#!/usr/bin/env bash\n\nT=rush_hour\n\necho \"\\\\hline\"\nfor i in -; do\n f=0\n for t in --dpor --dpor_source --dpor_classic; do\n if [ $f -eq 0 ]; then\n echo \"\\multirow{3}{*}{rush\\_hour} & \\multirow{3}{*}{$i} & \"\n echo -n \" o-DPOR &\"\n elif [ $f -eq 1 ]; then\n echo -n \" & & s-DPOR &\"\n else\n echo -n \" & & DPOR &\"\n fi\n f=$((f+1))\n ./concuerror_mem --noprogress -f testsuite/suites/resources/src/manolis/*.erl \\\n -t rush_hour test_2workers_benchmark -p inf $t | \\\n grep \"OUT\" | sed 's/OUT//'\n done\n echo \"\\\\hline\"\ndone" }, { "path": "resources/bash_completion/concuerror", "content": "#!/bin/bash\n# bash_completion for concuerror\n\n# To use it, you can either:\n# - Link the file to e.g. `/etc/bash_completion.d`\n# - Run `. /path-to-the-file`, if you want to use it only for the current shell session\n# - Add `[ -s \"/path-to-the-file\" ] && \\. \"/path-to-the-file\"` to your e.g. `.bashrc` file\n\n_concuerror()\n{\n # Keep this sorted alphabetically\n long_opts=\"--after_timeout --assertions_only --assume_racing --depth_bound\n --disable_sleep_sets --dpor --exclude_module --file --first_process_errors_only\n --graph --help --ignore_error --instant_delivery --interleaving_bound --keep_going\n --log_all --module --no_output --non_racing_system --observers --optimal --output --pa\n --print_depth --pz --quiet --scheduling --scheduling_bound --scheduling_bound_type\n --show_races --strict_scheduling --symbolic_names --test --timeout --treat_as_normal\n --use_receive_patterns --verbosity --version\"\n\n # Keep this sorted alphabetically\n opts=\"-a -b -c -d -f -g -h -i -k -m -o -q -s -t -v -x\"\n local cur prev\n if type _get_comp_words_by_ref &>/dev/null ; then\n _get_comp_words_by_ref cur prev\n else\n cur=$2 prev=$3\n fi\n case $prev in\n --dpor)\n COMPREPLY=($(compgen -W \"none optimal persistent source\" -- ${cur}))\n ;;\n -f|--file|--pa|--pz)\n _filedir\n ;;\n -h|--help)\n help_args=\"all attributes progress\"\n keywords=\"advanced basic bound console erlang errors experimental input output por visual\"\n COMPREPLY=($(compgen -W \"${help_args} ${keywords}\" -- ${cur}))\n ;;\n -c|--scheduling_bound_type)\n COMPREPLY=($(compgen -W \"bpor delay none ubpor\" -- ${cur}))\n ;;\n --scheduling)\n COMPREPLY=($(compgen -W \"newest oldest round_robin\" -- ${cur}))\n ;;\n -a|--after_timeout|-i|--interleaving_bound|--timeout)\n COMPREPLY=($(compgen -W \"infinity\" -- ${cur}))\n ;;\n *)\n if [[ ${cur} == --* ]] ; then\n COMPREPLY=($(compgen -W \"${long_opts}\" -- ${cur}))\n elif [[ ${cur} == -* ]] ; then\n COMPREPLY=($(compgen -W \"${opts}\" -- ${cur}))\n else\n _filedir\n fi\n ;;\n esac\n}\n\ncomplete -F _concuerror concuerror\n" }, { "path": "resources/erlang_questions/dets_bugs/alt_dets_bugs.erl", "content": "-module(alt_dets_bugs).\n\n-export([bug3/0, bug5/0, bug6/0]).\n\n-include_lib(\"eunit/include/eunit.hrl\").\n\n%% should always print [{0,0}], but sometimes prints []\nbug3() ->\n dets:close(dets_table),\n sched:yield(),\n file:delete(dets_table),\n sched:yield(),\n dets:open_file(dets_table,[{type,bag}]),\n sched:yield(),\n spawn(fun() -> dets:open_file(dets_table,[{type,bag}]),\n sched:yield()\n end),\n spawn(fun() ->\n dets:insert(dets_table,[{0,0}]),\n sched:yield(),\n ?assertEqual([{0,0}], get_contents(dets_table))\n end).\n\n%% should always print [{0,0}], but sometimes prints []\nbug5() -> \n Self = self(),\n spawn(fun() ->\n [dets:close(dets_table) || _ <- \"abcdefghijkl\"],\n file:delete(dets_table),\n Parent = self(),\n {ok, _T} = dets:open_file(dets_table,[{type,bag}]),\n sched:yield(),\n spawn(fun() ->\n dets:open_file(dets_table,[{type,bag}]),\n sched:yield(),\n Parent ! done\n end),\n spawn(fun() ->\n dets:insert(dets_table,[{0,0}]),\n sched:yield(),\n ?assertEqual([{0,0}], get_contents(dets_table)),\n Parent ! done\n end),\n receive done -> receive done -> ok end end,\n Self ! ok\n end),\n receive ok -> ok end.\n\nbug6() ->\n dets:open_file(dets_table,[{type,bag}]),\n sched:yield(),\n dets:close(dets_table),\n sched:yield(),\n dets:open_file(dets_table,[{type,bag}]),\n sched:yield(),\n spawn(fun() -> dets:lookup(dets_table,0),\n sched:yield()\n end),\n spawn(fun() -> dets:insert(dets_table,{0,0}),\n sched:yield()\n end),\n dets:insert(dets_table,{0,0}),\n sched:yield(),\n ?assertEqual([{0,0}], match_object(dets_table)).\n\nget_contents(Name) ->\n Ret = dets:traverse(Name, fun(X)-> {continue,X} end),\n sched:yield(),\n Ret.\n\nmatch_object(Name) ->\n Ret = dets:match_object(Name,'_'),\n sched:yield(),\n Ret.\n" }, { "path": "resources/erlang_questions/dets_bugs/dets_bugs.erl", "content": "-module(dets_bugs).\n\n-export([bug1/0, bug2/0, bug3/0, bug4/0, bug5/0, bug6/0]).\n\n%% should always print a boolean, but sometimes prints 'ok'\nbug1() ->\n {ok,T} = dets:open_file(dets_table,[{type,bag}]),\n spawn(fun()->dets:insert(T,[]) end),\n spawn(fun()->io:format(\"~p\\n\",[dets:insert_new(T,[])]) end). \n\n%% causes a bug message to appear\nbug2() ->\n file:delete(dets_table),\n T = dets:open_file(dets_table,[{type,set}]),\n spawn(fun() -> dets:delete(T,0) end),\n spawn(fun() -> dets:insert_new(T,{0,0}) end),\n ok.\n\n%% should always print [{0,0}], but sometimes prints []\nbug3() ->\n dets:close(dets_table),\n file:delete(dets_table),\n {ok,_T} = dets:open_file(dets_table,[{type,bag}]),\n spawn(fun() -> dets:open_file(dets_table,[{type,bag}]) end),\n spawn(fun() ->\n dets:insert(dets_table,[{0,0}]),\n io:format(\"~p\\n\",[get_contents(dets_table)])\n end).\n\n%% should always print [], but sometimes prints [{7,0}]\nbug4() ->\n dets:close(dets_table),\n file:delete(dets_table),\n {ok,_T} = dets:open_file(dets_table,[{type,bag}]),\n dets:insert(dets_table,{7,0}),\n spawn(fun() -> dets:open_file(dets_table,[{type,bag}]) end),\n spawn(fun() ->\n dets:delete(dets_table,7),\n io:format(\"~p\\n\",[get_contents(dets_table)])\n end).\n\n%% should always print [{0,0}], but sometimes prints []\nbug5() ->\n Self = self(),\n spawn(fun() ->\n [dets:close(dets_table) || _ <- \"abcdefghijkl\"],\n file:delete(dets_table),\n Parent = self(),\n {ok,_T} = dets:open_file(dets_table,[{type,bag}]),\n spawn(fun() -> dets:open_file(dets_table,[{type,bag}]),\n Parent ! done\n end),\n spawn(fun() ->\n dets:insert(dets_table,[{0,0}]),\n io:format(\"~p\\n\",[get_contents(dets_table)]),\n Parent ! done\n end),\n receive done -> receive done -> ok end end,\n Self ! ok\n end),\n receive ok -> ok end.\n\nbug6() ->\n dets:open_file(dets_table,[{type,bag}]), \n dets:close(dets_table), \n dets:open_file(dets_table,[{type,bag}]), \n spawn(fun() -> dets:lookup(dets_table,0)\n end),\n spawn(fun() -> dets:insert(dets_table,{0,0})\n end),\n dets:insert(dets_table,{0,0}),\n dets:match_object(dets_table,'_').\n \n\nget_contents(Name) ->\n dets:traverse(Name,fun(X)->{continue,X}end).\n" }, { "path": "resources/flanagan.erl", "content": "%% -*- erlang-indent-level: 2 -*-\n\n-module(flanagan).\n\n-export([test/1, explore/2]).\n\n%% -define(DEBUG, true).\n%% -define(STEPWISE, true).\n-define(STATS, true).\n-define(STACK, true).\n\n-ifdef(DEBUG).\n-ifndef(STACK).\n-define(STACK, true).\n-endif.\n-endif.\n\n%%------------------------------------------------------------------------------\n\n-record(state, {\n i,\n last,\n pstates,\n backtrack = [],\n done = []\n }).\n\n-record(pstate, {\n commands,\n mailbox = 0\n }).\n\n%%------------------------------------------------------------------------------\n\n%% Sample Inputs\n\n%% M1 : INDEPENDENT SENDER RECEIVER PAIRS\n\n%% The following program has 5 processes: m1 (main), a & b (sender), c & d\n%% (receiver). Run with test(m1).\n\n%% main() ->\n%% Parent = self(),\n%% Rec1 = spawn(fun() -> receiver(Parent) end),\n%% Rec2 = spawn(fun() -> receiver(Parent) end),\n%% Snd1 = spawn(fun() -> sender(Rec1) end),\n%% Snd2 = spawn(fun() -> sender(Rec2) end),\n%% receive\n%% ok ->\n%% receive\n%% ok -> done\n%% end\n%% end.\n\n%% sender(Pid) ->\n%% Pid ! ok.\n\n%% receiver(Parent) ->\n%% receive\n%% ok -> Parent ! ok\n%% end.\n\n\n-ifdef(STATS).\n-define(stats_start, put(interleavings, 0)).\n-define(stats_report, io:format(\"Interleavings: ~p\\n\", [get(interleavings)])).\n-define(stats_inc, begin\n I = get(interleavings) + 1,\n put(interleavings, I)\n end).\n-else.\n-define(stats_start, ok).\n-define(stats_report, ok).\n-define(stats_inc, ok).\n-endif.\n\n-ifdef(STACK).\n\n-define(show_stack(Trace), io:format(\"~p\\n\",[get_stack(Trace)])).\n \nget_stack(Trace) ->\n get_stack(Trace, []).\n\nget_stack([], Acc) -> Acc;\nget_stack([#state{last = P}|Rest], Acc) -> get_stack(Rest, [P|Acc]).\n\n-else.\n\n-define(show_stack(_Trace), ok).\n\n-endif.\n\ntest(M) ->\n InitPStates = dict:store(M, new_pstate(M), dict:new()),\n ?stats_start,\n Trace = init_trace(InitPStates),\n explore(Trace, new_clock_vector_dict()),\n ?stats_report.\n\nnew_pstate(P) -> #pstate{commands = p(P)}.\n\ninit_trace(InitPStates) -> [#state{i = 0, last = init, pstates = InitPStates}].\n\nnew_clock_vector_dict() -> dict:new().\n\np(m1) ->\n [{spawn, c},\n {spawn, d},\n {spawn, a},\n {spawn, b},\n rec,\n rec,\n exit];\n\np(a) ->\n [{send, c},\n exit];\np(b) ->\n [{send, d},\n exit];\np(c) ->\n [rec,\n {send, m1},\n exit];\np(d) ->\n [rec,\n {send, m1},\n exit];\n\np(m2) ->\n [{spawn, x},\n {spawn, y},\n {spawn, z},\n {spawn, w},\n {send, y},\n exit];\np(x) ->\n [rec,\n {send,y},\n exit];\np(y) ->\n [rec,\n rec,\n exit];\np(z) ->\n [rec,\n {send,x},\n exit];\np(w) ->\n [{send,z},\n exit].\n\n%%------------------------------------------------------------------------------\n\ndo_command(#pstate{commands = [Command|Rest]} = PState) ->\n {Command, PState#pstate{commands = Rest}}.\n\ninc_mail(#pstate{mailbox = Mailbox} = PState) ->\n PState#pstate{mailbox = Mailbox + 1}.\n\ndec_mail(#pstate{mailbox = Mailbox} = PState) ->\n PState#pstate{mailbox = Mailbox - 1}.\n\nis_p_enabled(#pstate{commands = [Command|_], mailbox = Mailbox}) ->\n Value =\n case Command of\n exit -> true;\n {spawn, _Q} -> true;\n {send, _Q} -> true;\n rec -> Mailbox > 0\n end,\n case Value of\n true -> {true, Command};\n false -> false\n end;\nis_p_enabled(_) -> false.\n\nrun(P, PStates) ->\n PState = dict:fetch(P, PStates),\n {Command, NextPState} = do_command(PState),\n case Command of\n {spawn, Q} ->\n NewPStates0 = dict:store(Q, #pstate{commands = p(Q)}, PStates),\n {Command, {ok, dict:store(P, NextPState, NewPStates0)}};\n {send, Q} ->\n QState = dict:fetch(Q, PStates),\n NewPStates0 = dict:store(Q, inc_mail(QState), PStates),\n {Command, {ok, dict:store(P, NextPState, NewPStates0)}};\n rec ->\n {Command, {ok, dict:store(P, dec_mail(NextPState), PStates)}};\n exit ->\n {Command, {ok, dict:store(P, NextPState, PStates)}}\n end.\n\n%%------------------------------------------------------------------------------\n\n%% ---------------------------\n%% Erlang dependency semantics\n%% ---------------------------\n\ndependent({ P1, _C1}, { P2, _C2}) when P1 =:= P2 -> true;\ndependent({_P1, {send, P2}}, {_P3, {send, P4}}) when P2 =:= P4 -> true;\n%dependent({_P1, {send, P2}}, { P3, rec}) when P2 =:= P3 -> true;\n%dependent({ P1, rec}, {_P2, {send, P3}}) when P1 =:= P3 -> true;\ndependent( _, _) -> false.\n\ndependent2({ P1, _C1}, { P2, _C2}) when P1 =:= P2 -> true;\ndependent2({_P1, {send, P2}}, {_P3, {send, P4}}) when P2 =:= P4 -> true;\ndependent2({_P1, {send, P2}}, { P3, rec}) when P2 =:= P3 -> true;\ndependent2({ P1, rec}, {_P2, {send, P3}}) when P1 =:= P3 -> true;\ndependent2( _, _) -> false.\n\n%%------------------------------------------------------------------------------\n\n-define(breakpoint, case io:get_line(\"\") of \"q\\n\" -> throw(q); _ -> ok end).\n\n-ifdef(STEPWISE).\n-define(stepwise, ?breakpoint).\n-else.\n-define(stepwise, ok).\n-endif.\n\n-ifdef(DEBUG).\n-define(debug(A, B), io:format(A, B), ?stepwise).\n-define(debug_break(A, B), io:format(A, B), ?breakpoint).\n-else.\n-define(debug(_A, _B), ok).\n-define(debug_break(_A, _B), ok).\n-endif.\n\n-define(debug(A), ?debug(A, [])).\n\nexplore(Trace, ClockMap) ->\n ?debug(\"Explore ~p:\\n\", [get_stack(Trace)]),\n UpdatedTrace = add_old_backtracks(Trace, ClockMap),\n FinalTrace =\n case pick_random_enabled(Trace) of\n none ->\n %% TODO: Report Check for deadlocks\n ?show_stack(Trace),\n ?stats_inc,\n UpdatedTrace;\n {ok, P} ->\n ?debug(\"Picking ~p for new step.\\n\", [P]),\n NewTrace = add_new_backtrack(P, UpdatedTrace),\n explore_backtracks(NewTrace, ClockMap)\n end,\n remove_last(FinalTrace).\n\nadd_old_backtracks([#state{pstates=PStates}|_] = Trace, ClockMap) ->\n Nexts = get_all_nexts(PStates),\n ?debug(\"Backtrack points: Forall processes: ~p\\n\", [Nexts]),\n add_old_backtracks(Nexts, Trace, ClockMap).\n\nget_all_nexts(PStates) ->\n Fold =\n fun(P, #pstate{commands = Commands}, Acc) ->\n case Commands of\n [] -> Acc;\n [C|_] -> [{P,C}|Acc]\n end\n end,\n dict:fold(Fold, [], PStates).\n\nadd_old_backtracks([], Trace, _ClockMap) ->\n ?debug(\"Done adding backtrack points\\n\"),\n Trace;\nadd_old_backtracks([Command|Rest], Trace, ClockMap) ->\n ?debug(\" ~p:\\n\",[Command]),\n NewTrace = add_old_backtracks_for_p(Command, Trace, [], ClockMap),\n add_old_backtracks(Rest, NewTrace, ClockMap).\n\nadd_old_backtracks_for_p(_Cmd1, [], Acc, _ClockMap) ->\n lists:reverse(Acc);\nadd_old_backtracks_for_p({ProcNext, _} = Next, [StateI|Rest], Acc, ClockMap) ->\n case StateI of\n #state{i = I, last = {ProcSi, _} = Si} ->\n Dependent = dependent(Next, Si),\n Clock = lookup_clock_value(ProcSi, lookup_clock(ProcNext, ClockMap)),\n ?debug(\" ~p: ~p (Dep: ~p C: ~p)\\n\",\n [I, Si] ++ [Dependent] ++ [Clock]),\n case Dependent andalso I > Clock of\n false ->\n add_old_backtracks_for_p(Next, Rest, [StateI|Acc], ClockMap);\n true ->\n ?debug(\" Dependent and i < Clock. Backtracking.\\n\"),\n [#state{pstates = PStates, backtrack = Backtrack} = Spi|Rest2] = Rest,\n ?debug(\" Old backtrack: ~p\\n\", [Backtrack]),\n NewBacktrack =\n add_from_E(ProcNext, PStates, [StateI|Acc], ClockMap, Backtrack),\n ?debug(\" New backtrack: ~p\\n\", [NewBacktrack]),\n lists:reverse(Acc, [StateI,Spi#state{backtrack = NewBacktrack}|Rest2])\n end;\n #state{i = 0, last = init} ->\n add_old_backtracks_for_p(Next, Rest, [StateI|Acc], ClockMap)\n end.\n\nadd_from_E(P, PStates, ForwardTrace, ClockMap, Backtrack) ->\n Enabled = all_enabled(PStates),\n case lists:member(P, Enabled) of\n true ->\n ?debug(\" Enabled.\\n\"),\n ordsets:add_element(P, Backtrack);\n false ->\n ?debug(\" Not Enabled.\\n\"),\n ClockVector = lookup_clock(P, ClockMap),\n case find_one_from_E(P, ClockVector, Enabled, ForwardTrace) of\n {true, Q} ->\n ?debug(\" Q needs to happen: ~p\\n\", [Q]),\n ordsets:add_element(Q, Backtrack);\n false ->\n ?debug(\" Adding all enabled: ~p\\n\", [Enabled]),\n ordsets:union(Backtrack, ordsets:from_list(Enabled))\n end\n end.\n\nfind_one_from_E(_P, _ClockVector, _Enabled, []) -> false;\nfind_one_from_E(P, ClockVector, Enabled, [Sj|Rest]) ->\n #state{i = J, last = _Sj = {ProcSj, _}} = Sj,\n ?debug(\" ~p: ~p\\n\", [J, ProcSj]),\n Satisfies =\n case lists:member(ProcSj, Enabled) of\n false ->\n ?debug(\" Was not enabled\\n\"),\n false;\n true -> \n ClockValue = lookup_clock_value(ProcSj, ClockVector),\n ?debug(\" Clock is: ~p\\n\", [ClockValue]),\n J =< ClockValue\n end,\n case Satisfies of\n true ->\n ?debug(\" Found ~p\\n\", [ProcSj]),\n {true, ProcSj};\n false -> find_one_from_E(P, ClockVector, Enabled, Rest)\n end.\n\nlookup_clock(PorS, ClockMap) ->\n case dict:find(PorS, ClockMap) of\n {ok, Clock} -> Clock;\n error -> dict:new()\n end.\n\nlookup_clock_value(P, CV) ->\n case dict:find(P, CV) of\n {ok, Value} -> Value;\n error -> 0\n end.\n\npick_random_enabled([#state{pstates = PStates}|_]) ->\n %% TODO: This is not really efficient\n case all_enabled(PStates) of\n [] -> none;\n [P|_] -> {ok, P}\n end.\n\nall_enabled(PStates) ->\n Fun =\n fun(P, PState, Acc) ->\n case is_p_enabled(PState) of\n false -> Acc;\n {true, _C} -> [P|Acc]\n end\n end,\n dict:fold(Fun, [], PStates).\n\nremove_last([_Last|Trace]) ->\n %% TODO: Replay trace till previous step.\n Trace.\n\nadd_new_backtrack(P, [#state{} = State|Trace]) ->\n [State#state{backtrack = [P]}|Trace].\n\nexplore_backtracks(Trace, ClockMap) ->\n case pick_unexplored(Trace) of\n none ->\n ?debug(\"All backtracks explored.\\n\"),\n Trace;\n {ok, P, NewTrace} ->\n ?debug(\"Picking unexplored: ~p\\n\", [P]),\n case let_run(P, NewTrace) of\n {error, _Command, _Info} ->\n %% TODO: Report Something crashed\n %% TODO: Replay trace till previous step\n explore_backtracks(NewTrace, ClockMap);\n {ok, NewTrace2} ->\n NewClockMap = update_clock_map(NewTrace2, ClockMap),\n NewTrace3 = explore(NewTrace2, NewClockMap),\n explore_backtracks(NewTrace3, ClockMap)\n end\n end.\n\npick_unexplored([State|Rest]) ->\n #state{backtrack = Backtrack, done = Done} = State,\n ?debug(\"Back:~p\\nDone:~p\\n\",[Backtrack, Done]),\n case find_unique(Backtrack, Done) of\n {ok, P} -> {ok, P, [State#state{done = ordsets:add_element(P, Done)}|Rest]};\n none -> none\n end.\n\nfind_unique([], _Set2) -> none;\nfind_unique([P|Set1], Set2) ->\n case ordsets:is_element(P, Set2) of\n true -> find_unique(Set1, Set2);\n false -> {ok, P}\n end.\n\nlet_run(P, [#state{i = N, pstates = PStates}|_] = Trace) ->\n {Command, Result} = run(P, PStates),\n case Result of\n {ok, NewPStates} ->\n NewState = #state{i = N+1, last = {P, Command}, pstates = NewPStates},\n NewTrace = [NewState|Trace],\n {ok, NewTrace};\n {error, Info} ->\n {error, Command, Info}\n end.\n\nupdate_clock_map([#state{i = N, last = {P, _C} = Command}|Trace], ClockMap) ->\n CV = max_dependent(Command, Trace, ClockMap),\n CV2 = dict:store(P, N, CV),\n Ca = dict:store(P, CV2, ClockMap),\n dict:store(N, CV2, Ca).\n\nmax_dependent(Command, Trace, ClockMap) ->\n max_dependent(Command, Trace, ClockMap, dict:new()).\n\nmax_dependent(_Cmd, [], _ClockMap, Acc) -> Acc;\nmax_dependent(Cmd1, [#state{i = N, last = Cmd2}|Trace], ClockMap, Acc) ->\n case dependent2(Cmd1, Cmd2) of\n true ->\n CI = lookup_clock(N, ClockMap),\n Merger = fun(_Key, V1, V2) -> max(V1, V2) end,\n NewAcc = dict:merge(Merger, CI, Acc),\n max_dependent(Cmd1, Trace, ClockMap, NewAcc);\n false ->\n max_dependent(Cmd1, Trace, ClockMap, Acc)\n end.\n" }, { "path": "resources/how-to-release.md", "content": "# How to make a release\n\nHere is how to prepare a new release of Concuerror\n\n## Decide release number\n\nFollow semantic versioning (link in CHANGELOG.md)\n\n`RELEASE=0.42`\n\n## Fix and commit release number in CHANGELOG.md\n\nFormat the UNRELEASED section in CHANGELOG.md\n\n`## [0.42](https://github.com/parapluu/Concuerror/releases/tag/0.42) - 2042-11-20`\n\nThen commit:\n\n`git commit -m \"Update CHANGELOG for release ${RELEASE}\"`\n\nThe UNRELEASED section will be added back as the last step.\n\n## Make the release tag\n\n`git tag -a ${RELEASE} -m \"Release ${RELEASE}\" -s`\n\n## Ensure you are logged in to Hex\n\n`rebar3 hex user whoami`\n\nIf no info shown:\n\n`rebar3 hex user auth`\n\n## Push package to Hex\n\n`rebar3 hex publish`\n\n## Push tag to repository\n\n`git push parapluu ${RELEASE}`\n\n## Create release from tag\n\nCopy the most recent section of the CHANGELOG as description and leave title empty\n\n## Add a new UNRELEASED section in CHANGELOG.md\n\n```\n## [Unreleased](https://github.com/parapluu/Concuerror/tree/master)\n\n### Added\n\n### Removed\n\n### Changed\n\n### Fixed\n\n\n\n```\n" }, { "path": "resources/old_include/gen.hrl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : General header file\n%%%----------------------------------------------------------------------\n\n%%%----------------------------------------------------------------------\n%%% Definitions\n%%%----------------------------------------------------------------------\n\n%% Application name (atom and string).\n-define(APP_ATOM, list_to_atom(?APP_STRING)).\n\n%% Registered process names.\n-define(RP_GUI, '_._gui').\n-define(RP_GUI_ANALYSIS, '_._gui_analysis').\n-define(RP_SCHED, '_._sched').\n-define(RP_SCHED_SEND, ?RP_SCHED).\n-define(RP_LID, '_._lid').\n-define(RP_LID_SEND, ?RP_LID).\n\n%% Named ets table names.\n-define(NT_BLOCKED, '_._blocked').\n-define(NT_ERROR, '_._error').\n-define(NT_LID, '_._lid').\n-define(NT_PID, '_._pid').\n-define(NT_REF, '_._ref').\n-define(NT_STATE1, '_._state1').\n-define(NT_STATE2, '_._state2').\n-define(NT_STATELEN, '_._state_len').\n-define(NT_USED, '_._used').\n-define(NT_TIMER, '_._timer').\n-define(NT_INSTR_MODS, '_._instr_mods').\n-define(NT_INSTR_BIFS, '_._instr_bifs').\n-define(NT_INSTR_IGNORED, '_._instr_ignored').\n-define(NT_INSTR, '_._instr_table').\n-define(NT_OPTIONS, '_._conc_options').\n\n%% Module containing replacement functions.\n-define(REP_MOD, concuerror_rep).\n\n%% Instrumented message atom.\n-define(INSTR_MSG, '_._instr_msg').\n%% Instrumented modules prefix.\n-define(INSTR_PREFIX, \"conc__\").\n\n%% Set-like data structure used in sched, lid and error modules.\n-define(SETS, ordsets).\n-define(SET_TYPE(X), [X]). %% XXX: bad -- ordsets does not export the type!\n\n%% Default options\n-define(DEFAULT_PREB, 2).\n-define(DEFAULT_INCLUDE, []).\n-define(DEFAULT_DEFINE, []).\n-define(DEFAULT_VERBOSITY, 0).\n\n%% Default export file.\n-define(EXPORT_EXT, \".txt\").\n-define(EXPORT_FILE, \"results\" ++ ?EXPORT_EXT).\n\n%% Internal error return code.\n-define(RET_INTERNAL_ERROR, 1).\n\n%% Host - Node names.\n-define(NODE, atom_to_list(node())).\n-define(HOST, lists:dropwhile(fun(E) -> E /= $@ end, ?NODE)).\n\n%% 'About' message\n-define(INFO_MSG,\n\"\n Concuerror\nA systematic testing tool for concurrent Erlang programs.\n Version \" ?VSN \"\n\").\n\n%% Debug macros.\n-ifdef(COND_DEBUG).\n-define(debug_start, put(debug, true)).\n-define(debug_stop, erase(debug)).\n-define(debug(S_, L_),\n begin\n case get(debug) of\n true -> io:format(S_, L_);\n _ -> ok\n end\n end).\n-else.\n-define(debug_start, ok).\n-define(debug_stop, ok).\n-endif.\n\n-ifndef(COND_DEBUG).\n-ifdef(DEBUG).\n-define(debug(S_, L_), io:format(S_, L_)).\n-else.\n-define(debug(S_, L_), ok).\n-endif. %DEBUG\n-endif. %COND_DEBUG\n\n\n-define(debug(S_), ?debug(S_,[])).\n-define(DEBUG_DEPTH, 12).\n" }, { "path": "resources/old_include/gui.hrl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : GUI header file\n%%%----------------------------------------------------------------------\n\n%%%----------------------------------------------------------------------\n%%% Definitions\n%%%----------------------------------------------------------------------\n\n%% Initial frame size.\n-define(FRAME_SIZE_INIT, {1024, 768}).\n\n%% Menu specification:\n%% [{MenuName1, [MenuItem11, MenuItem12, ...]}, ...]\n-define(MENU_SPEC,\n\t[{\"&File\",\n [[{id, ?SAVEAS}, {text, \"&Save As...\\tCtrl-S\"},\n {help, \"Save analysis information to file.\"},\n {label, ?SAVEAS_MENU_ITEM}],\n\t [{id, ?wxID_SEPARATOR}, {kind, ?wxITEM_SEPARATOR}],\n [{id, ?EXIT}, {help, \"Quit Concuerror.\"}]]},\n\t {\"&Edit\",\n\t [[{id, ?PREFS}, {text, \"&Preferences...\\tCtrl-P\"},\n\t {help, \"Edit Concuerror preferences.\"}]]},\n {\"&Module\",\n\t [[{id, ?ADD}, {text, \"&Add...\\tCtrl-A\"},\n\t {help, \"Add an existing erlang module.\"}],\n\t [{id, ?REMOVE}, {text, \"&Remove\\tCtrl-R\"},\n\t {help, \"Remove selected module.\"}],\n\t [{id, ?wxID_SEPARATOR}, {kind, ?wxITEM_SEPARATOR}],\n\t [{id, ?CLEAR}, {text, \"&Clear\\tCtrl-C\"},\n\t {help, \"Clear module list.\"}],\n\t [{id, ?REFRESH}, {text, \"Re&fresh\\tF5\"},\n\t {help, \"Refresh selected module (reload file from disk).\"}]]},\n\t {\"&Run\",\n\t [[{id, ?ANALYZE}, {text, \"Ana&lyze\\tCtrl-L\"},\n\t {help, \"Analyze selected function.\"},\n {label, ?ANALYZE_MENU_ITEM}],\n [{id, ?STOP}, {text, \"Sto&p\\tCtrl-P\"},\n {help, \"Stop analysis of selected function.\"},\n {label, ?STOP_MENU_ITEM}]]},\n\t {\"&View\",\n\t [[{id, ?wxID_ANY}, {text, \"Source viewer color theme\"},\n\t {help, \"Select a color theme for the source viewer.\"},\n\t {sub,\n\t [[{id, ?THEME_LIGHT}, {text, \"Light theme\"},\n\t {kind, ?wxITEM_RADIO}],\n\t [{id, ?THEME_DARK}, {text, \"Dark theme\"},\n\t {kind, ?wxITEM_RADIO}]]}\n\t ]]},\n\t {\"&Help\",\n\t [[{id, ?ABOUT}, {text, \"&About\"},\n\t {help, \"Show project info.\"}]]}\n\t]).\n\n%% GUI component definitions\n-define(ABOUT, ?wxID_ABOUT).\n-define(ADD, ?wxID_ADD).\n-define(CLEAR, ?wxID_CLEAR).\n-define(REMOVE, ?wxID_REMOVE).\n-define(SEPARATOR, ?wxID_SEPARATOR).\n-define(EXIT, ?wxID_EXIT).\n-define(SAVEAS, ?wxID_SAVEAS).\n-define(REFRESH, ?wxID_REFRESH).\n\n-define(ANAL_STOP_SIZER, 500).\n-define(ANALYZE, 501).\n-define(ANALYZE_GAUGE, 502).\n-define(ANALYZE_MENU_ITEM, 503).\n-define(ERROR_ILEAVE_SPLITTER, 504).\n-define(ERROR_LIST, 505).\n-define(ERROR_TEXT, 506).\n-define(SAVEAS_MENU_ITEM, 508).\n-define(FRAME, 509).\n-define(FUNCTION_LIST, 510).\n-define(GRAPH_PANEL, 511).\n-define(ILEAVE_LIST, 512).\n-define(LOG_NOTEBOOK, 515).\n-define(LOG_TEXT, 516).\n-define(MOD_FUN_SPLITTER, 517).\n-define(MODULE_LIST, 518).\n-define(NOTEBOOK, 519).\n-define(NOTEBOOK_SPLITTER, 520).\n-define(PREB_BOUND_SPIN, 521).\n-define(PREB_ENABLED_CBOX, 522).\n-define(PREFS, 523).\n-define(PROC_TEXT, 524).\n-define(SCR_GRAPH, 526).\n-define(SOURCE_TEXT, 527).\n-define(STATIC_BMP, 528).\n-define(STATUS_BAR, 529).\n-define(STOP, 530).\n-define(STOP_GAUGE, 531).\n-define(STOP_MENU_ITEM, 532).\n-define(THEME_DARK, 533).\n-define(THEME_LIGHT, 534).\n-define(TOP_SPLITTER, 535).\n\n%% Splitter init-sizes\n-define(SPLITTER_INIT, [{?TOP_SPLITTER, 300},\n\t\t\t{?MOD_FUN_SPLITTER, 300},\n\t\t\t{?NOTEBOOK_SPLITTER, 530},\n\t\t\t{?ERROR_ILEAVE_SPLITTER, 250}]).\n\n%% Splitter min-sizes\n-define(MIN_TOP, 250).\n-define(MIN_MOD_FUN, 50).\n-define(MIN_NOTEBOOK, 50).\n-define(MIN_ERROR_ILEAVE, 50).\n\n%% Splitter gravities\n-define(GRAV_TOP, 0.0).\n-define(GRAV_MOD_FUN, 0.3).\n-define(GRAV_NOTEBOOK, 0.8).\n-define(GRAV_ERROR_ILEAVE, 0.2).\n\n%% Preferences related definitions\n-define(PREF_PREB_ENABLED, 560).\n-define(PREF_PREB_BOUND, 561).\n-define(PREF_INCLUDE, 562).\n-define(PREF_DEFINE, 563).\n\n%% Analysis Result definitions\n-define(ANALYSIS_RET, 564).\n\n%% Other definitions\n-define(FILE_PATH, 565).\n\n%% Erlang keywords\n-define(KEYWORDS, \"after begin case try cond catch andalso orelse end fun \"\n \"if let of query receive when bnot not div rem band and \"\n \"bor bxor bsl bsr or xor\").\n\n%% Source viewer styles\n-define(SOURCE_BG_DARK, {63, 63, 63}).\n-define(SOURCE_FG_DARK, {220, 220, 204}).\n%% -define(SOURCE_FG_DARK, {204, 220, 220}).\n-define(SOURCE_STYLES_DARK,\n\t[{?wxSTC_ERLANG_ATOM, ?SOURCE_FG_DARK, normal},\n\t {?wxSTC_ERLANG_CHARACTER, {204, 147, 147}, normal},\n\t {?wxSTC_ERLANG_COMMENT, {127, 159, 127}, normal},\n\t {?wxSTC_ERLANG_DEFAULT, ?SOURCE_FG_DARK, normal},\n\t {?wxSTC_ERLANG_FUNCTION_NAME, ?SOURCE_FG_DARK, normal},\n\t {?wxSTC_ERLANG_KEYWORD, {240, 223, 175}, bold},\n\t {?wxSTC_ERLANG_MACRO, {255, 207, 175}, normal},\n\t {?wxSTC_ERLANG_NODE_NAME, ?SOURCE_FG_DARK, normal},\n\t {?wxSTC_ERLANG_NUMBER, {140, 208, 211}, normal},\n\t {?wxSTC_ERLANG_OPERATOR, ?SOURCE_FG_DARK, normal},\n\t {?wxSTC_ERLANG_RECORD, {232, 147, 147}, normal},\n\t {?wxSTC_ERLANG_SEPARATOR, ?SOURCE_FG_DARK, normal},\n\t {?wxSTC_ERLANG_STRING, {204, 147, 147}, normal},\n\t {?wxSTC_ERLANG_VARIABLE, {239, 239, 175}, bold},\n\t {?wxSTC_ERLANG_UNKNOWN, {255, 0, 0}, normal}]).\n-define(SOURCE_BG_LIGHT, {255, 255, 255}).\n-define(SOURCE_FG_LIGHT, {30, 30, 30}).\n-define(SOURCE_STYLES_LIGHT,\n\t[{?wxSTC_ERLANG_ATOM, ?SOURCE_FG_LIGHT, normal},\n\t {?wxSTC_ERLANG_CHARACTER, {120, 190, 120}, normal},\n\t {?wxSTC_ERLANG_COMMENT, {20, 140, 20}, normal},\n\t {?wxSTC_ERLANG_DEFAULT, ?SOURCE_FG_LIGHT, normal},\n\t {?wxSTC_ERLANG_FUNCTION_NAME, ?SOURCE_FG_LIGHT, normal},\n\t {?wxSTC_ERLANG_KEYWORD, {140, 40, 170}, bold},\n\t {?wxSTC_ERLANG_MACRO, {180, 40, 40}, normal},\n\t {?wxSTC_ERLANG_NODE_NAME, ?SOURCE_FG_LIGHT, normal},\n\t {?wxSTC_ERLANG_NUMBER, ?SOURCE_FG_LIGHT, normal},\n\t {?wxSTC_ERLANG_OPERATOR, {70, 70, 70}, normal},\n\t {?wxSTC_ERLANG_RECORD, {150, 140, 40}, normal},\n\t {?wxSTC_ERLANG_SEPARATOR, ?SOURCE_FG_LIGHT, normal},\n\t {?wxSTC_ERLANG_STRING, {50, 50, 200}, normal},\n\t {?wxSTC_ERLANG_VARIABLE, {20, 120, 140}, bold},\n\t {?wxSTC_ERLANG_UNKNOWN, {255, 0, 0}, normal}]).\n" }, { "path": "resources/old_include/instr.hrl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2013, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Ilias Tsitsimpis \n%%% Description : Instrumentation header file\n%%%----------------------------------------------------------------------\n\n%%%----------------------------------------------------------------------\n%%% Definitions\n%%%----------------------------------------------------------------------\n\n%% List of attributes that should be stripped.\n-define(ATTR_STRIP, [type, spec, opaque, export_type, import_type, callback]).\n\n%% Instrumented auto-imported functions of 'erlang' module.\n-define(INSTR_ERL_FUN,\n [{demonitor, 1},\n {demonitor, 2},\n {exit, 2},\n {halt, 0},\n {halt, 1},\n {is_process_alive, 1},\n {link, 1},\n {monitor, 2},\n {process_flag, 2},\n {register, 2},\n {spawn, 1},\n {spawn, 3},\n {spawn_link, 1},\n {spawn_link, 3},\n {spawn_monitor, 1},\n {spawn_monitor, 3},\n {spawn_opt, 2},\n {spawn_opt, 4},\n {unlink, 1},\n {unregister, 1},\n {port_command, 2},\n {port_command, 3},\n {port_control, 3},\n {apply, 3},\n {whereis, 1}]).\n\n%% Instrumented functions called as erlang:FUNCTION.\n-define(INSTR_ERL_MOD_FUN,\n [{erlang, send, 2},\n {erlang, send, 3},\n {erlang, send_after, 3},\n {erlang, start_timer, 3}] ++\n [{erlang, F, A} || {F, A} <- ?INSTR_ERL_FUN]).\n\n%% Instrumented functions from ets module.\n-define(INSTR_ETS_FUN,\n [{ets, insert_new, 2},\n {ets, lookup, 2},\n {ets, select_delete, 2},\n {ets, insert, 2},\n {ets, delete, 1},\n {ets, delete, 2},\n {ets, filter, 3},\n {ets, match, 2},\n {ets, match, 3},\n {ets, match_object, 2},\n {ets, match_object, 3},\n {ets, match_delete, 2},\n {ets, new, 2},\n {ets, info, 1},\n {ets, info, 2},\n {ets, foldl, 3}]).\n\n%% Instrumented mod:fun.\n-define(INSTR_MOD_FUN, ?INSTR_ERL_MOD_FUN ++ ?INSTR_ETS_FUN).\n\n%% Key in ?NT_INSTR to use for temp directory.\n-define(INSTR_TEMP_DIR, '_._instr_temp_dir').\n%% Key in ?NT_INSTR to use for `fail-uninstrumented' flag.\n-define(FAIL_BB, '_._instr_fail_bb').\n\n%% -------------------------------------------------------------------\n%% BIFs (taken from file `otp/erts/emulator/beam/bif.tab'\n%% We don't care about `erlang' and `ets' BIFS as\n%% we don't rename them anyway.\n-define(PREDEF_BIFS,\n [% Bifs in `math' module\n {math, cos, 1},\n {math, cosh, 1},\n {math, sin, 1},\n {math, sinh, 1},\n {math, tan, 1},\n {math, tanh, 1},\n {math, acos, 1},\n {math, acosh, 1},\n {math, asin, 1},\n {math, asinh, 1},\n {math, atan, 1},\n {math, atanh, 1},\n {math, erf, 1},\n {math, erfc, 1},\n {math, exp, 1},\n {math, log, 1},\n {math, log10, 1},\n {math, sqrt, 1},\n {math, atan2, 2},\n {math, pow, 2},\n % Bifs in `os' module\n {os, putenv, 2},\n {os, getenv, 0},\n {os, getenv, 1},\n {os, getpid, 0},\n {os, timestamp, 0},\n % Bifs in the `re' module\n {re, compile, 1},\n {re, compile, 2},\n {re, run, 2},\n {re, run, 3},\n % Bifs in the `lists' module\n {lists, member, 2},\n {lists, reverse, 2},\n {lists, keymember, 3},\n {lists, keysearch, 3},\n {lists, keyfind, 3},\n % Bifs for `debugging'\n {erts_debug, disassemble, 1},\n {erts_debug, breakpoint, 2},\n {erts_debug, same, 2},\n {erts_debug, flat_size, 1},\n {erts_debug, get_internal_state, 1},\n {erts_debug, set_internal_state, 2},\n {erts_debug, display, 1},\n {erts_debug, dist_ext_to_term, 2},\n {erts_debug, instructions, 0},\n % `Monitor testing' bif's\n {erts_debug, dump_monitors, 1},\n {erts_debug, dump_links, 1},\n % `Lock counter' bif's\n {erts_debug, lock_counters, 1},\n % New Bifs in `R8'\n {code, get_chunk, 2},\n {code, module_md5, 1},\n {code, make_stub_module, 3},\n {code, is_module_native, 1},\n % New Bifs in `R10B'\n {string, to_integer, 1},\n {string, to_float, 1},\n % New Bifs in `R12B-5'\n {unicode, characters_to_binary, 2},\n {unicode, characters_to_list, 2},\n {unicode, bin_is_7bit, 1},\n % New Bifs in `R13B-1'\n {net_kernel, dflag_unicode_io, 1},\n % The `binary' match bifs\n {binary, compile_pattern, 1},\n {binary, match, 2},\n {binary, match, 3},\n {binary, matches, 2},\n {binary, matches, 3},\n {binary, longest_common_prefix, 1},\n {binary, longest_common_suffix, 1},\n {binary, first, 1},\n {binary, last, 1},\n {binary, at, 2},\n {binary, part, 2},\n {binary, part, 3},\n {binary, bin_to_list, 1},\n {binary, bin_to_list, 2},\n {binary, bin_to_list, 3},\n {binary, list_to_bin, 1},\n {binary, copy, 1},\n {binary, copy, 2},\n {binary, referenced_byte_size, 1},\n {binary, encode_unsigned, 1},\n {binary, encode_unsigned, 2},\n {binary, decode_unsigned, 1},\n {binary, decode_unsigned, 2},\n % Helpers for unicode filenames\n {file, native_name_encoding, 0}\n ]).\n" }, { "path": "resources/old_source/LICENSE", "content": " Copyright (c) 2011, Alkis Gotovos ,\n Maria Christakis and\n Kostis Sagonas .\n All rights reserved.\n\nRedistribution and use in source and binary forms, with or without modification,\nare permitted provided that the following conditions are met:\n\n 1. Redistributions of source code must retain the above copyright notice,\n this list of conditions and the following disclaimer.\n\n 2. Redistributions in binary form must reproduce the above copyright\n notice, this list of conditions and the following disclaimer in the\n documentation and/or other materials provided with the distribution.\n\nTHIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS \"AS IS\" AND\nANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED\nWARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE\nDISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR\nANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES\n(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;\nLOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON\nANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\n(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS\nSOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE." }, { "path": "resources/old_source/concuerror.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2012, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Ilias Tsitsimpis \n%%% Description : Command Line Interface\n%%%----------------------------------------------------------------------\n\n-module(concuerror).\n\n%% UI exports.\n-export([gui/1, cli/0, analyze/1, export/2, stop/0, stop/1]).\n%% Log server callback exports.\n-export([init/1, terminate/2, handle_event/2]).\n\n-export_type([options/0]).\n\n-include(\"gen.hrl\").\n\n%%%----------------------------------------------------------------------\n%%% Debug\n%%%----------------------------------------------------------------------\n\n%%-define(TTY, true).\n-ifdef(TTY).\n-define(tty(), ok).\n-else.\n-define(tty(), error_logger:tty(false)).\n-endif.\n\n%%%----------------------------------------------------------------------\n%%% Types\n%%%----------------------------------------------------------------------\n\n-type analysis_ret() ::\n concuerror_sched:analysis_ret()\n | {'error', 'arguments', string()}.\n\n%% Command line options\n-type option() ::\n {'target', concuerror_sched:analysis_target()}\n | {'files', [file:filename()]}\n | {'output', file:filename()}\n | {'include', [file:name()]}\n | {'define', concuerror_instr:macros()}\n | {'dpor', 'full' | 'source' | 'classic'}\n | {'noprogress'}\n | {'quiet'}\n | {'preb', concuerror_sched:bound()}\n | {'gui'}\n | {'verbose', non_neg_integer()}\n | {'keep_temp'}\n | {'show_output'}\n | {'fail_uninstrumented'}\n | {'wait_messages'}\n | {'ignore_timeout', pos_integer()}\n | {'ignore', [module()]}\n | {'app_controller'}\n | {'help'}.\n\n-type options() :: [option()].\n\n%%%----------------------------------------------------------------------\n%%% UI functions\n%%%----------------------------------------------------------------------\n\n%% @spec stop() -> ok\n%% @doc: Stop the Concuerror analysis\n-spec stop() -> ok.\nstop() ->\n try ?RP_SCHED ! stop_analysis\n catch\n error:badarg ->\n init:stop()\n end,\n ok.\n\n%% @spec stop_node([string(),...]) -> ok\n%% @doc: Stop the Concuerror analysis\n-spec stop([string(),...]) -> ok.\nstop([Name]) ->\n %% Disable error logging messages.\n ?tty(),\n Node = list_to_atom(Name ++ ?HOST),\n case rpc:call(Node, ?MODULE, stop, []) of\n {badrpc, _Reason} ->\n %% Retry\n stop([Name]);\n _Res ->\n ok\n end.\n\n%% @spec gui(options()) -> 'true'\n%% @doc: Start the Concuerror GUI.\n-spec gui(options()) -> 'true'.\ngui(Options) ->\n %% Disable error logging messages.\n ?tty(),\n concuerror_gui:start(Options).\n\n%% @spec cli() -> 'true'\n%% @doc: Parse the command line arguments and start Concuerror.\n-spec cli() -> 'true'.\ncli() ->\n %% Disable error logging messages.\n ?tty(),\n %% First get the command line options\n Args = init:get_arguments(),\n %% There should be no plain_arguments\n case init:get_plain_arguments() of\n [PlArg|_] ->\n io:format(\"~s: unrecognised argument: ~s\\n\", [?APP_STRING, PlArg]);\n [] ->\n case parse(Args, [{'verbose', 0}]) of\n {'error', 'arguments', Msg1} ->\n io:format(\"~s: ~s\\n\", [?APP_STRING, Msg1]);\n Opts -> cliAux(Opts)\n end\n end.\n\ncliAux(Options) ->\n %% Initialize timer table.\n concuerror_util:timer_init(),\n %% Start the log manager.\n _ = concuerror_log:start(),\n %% Create table to save options\n ?NT_OPTIONS = ets:new(?NT_OPTIONS, [named_table, public, set]),\n ets:insert(?NT_OPTIONS, Options),\n %% Handle options\n case lists:keyfind('gui', 1, Options) of\n {'gui'} -> gui(Options);\n false ->\n %% Attach the event handler below.\n case lists:keyfind('quiet', 1, Options) of\n false ->\n _ = concuerror_log:attach(?MODULE, Options),\n ok;\n {'quiet'} -> ok\n end,\n %% Run analysis\n case analyzeAux(Options) of\n {'error', 'arguments', Msg1} ->\n io:format(\"~s: ~s\\n\", [?APP_STRING, Msg1]);\n Result ->\n %% Set output file\n Output =\n case lists:keyfind(output, 1, Options) of\n {output, O} -> O;\n false -> ?EXPORT_FILE\n end,\n concuerror_log:log(0,\n \"\\nWriting output to file ~s... \", [Output]),\n case export(Result, Output) of\n {'error', Msg2} ->\n concuerror_log:log(0,\n \"~s\\n\", [file:format_error(Msg2)]);\n ok ->\n concuerror_log:log(0, \"done\\n\")\n end\n end\n end,\n %% Remove options table\n ets:delete(?NT_OPTIONS),\n %% Stop event handler\n concuerror_log:stop(),\n %% Destroy timer table.\n concuerror_util:timer_destroy(),\n 'true'.\n\n%% Parse command line arguments\nparse([], Options) ->\n Options;\nparse([{Opt, Param} | Args], Options) ->\n case atom_to_list(Opt) of\n T when T=:=\"t\"; T=:=\"-target\" ->\n case Param of\n [Module,Func|Pars] ->\n AtomModule = erlang:list_to_atom(Module),\n AtomFunc = erlang:list_to_atom(Func),\n case validateTerms(Pars, []) of\n {'error',_,_}=Error -> Error;\n AtomParams ->\n Target = {AtomModule, AtomFunc, AtomParams},\n NewOptions = lists:keystore(target, 1,\n Options, {target, Target}),\n parse(Args, NewOptions)\n end;\n %% Run Eunit tests for specific module\n [Module] ->\n AtomModule = ?REP_MOD,\n AtomFunc = 'rep_eunit',\n Pars = [Module],\n case validateTerms(Pars, []) of\n {'error',_,_}=Error -> Error;\n AtomParams ->\n Target = {AtomModule, AtomFunc, AtomParams},\n NewOptions = lists:keystore(target, 1,\n Options, {target, Target}),\n NewArgs = [{'D',[\"TEST\"]} | Args],\n parse(NewArgs, NewOptions)\n end;\n _Other -> wrongArgument('number', Opt)\n end;\n\n F when F=:=\"f\"; F=:=\"-files\" ->\n case Param of\n [] -> wrongArgument('number', Opt);\n Files ->\n NewOptions = keyAppend(files, 1, Options, Files),\n parse(Args, NewOptions)\n end;\n\n O when O=:=\"o\"; O=:=\"-output\" ->\n case Param of\n [File] ->\n NewOptions = lists:keystore(output, 1,\n Options, {output, File}),\n parse(Args, NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"I\" ->\n case Param of\n [Par] ->\n NewOptions = keyAppend('include', 1,\n Options, [Par]),\n parse(Args, NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n \"I\" ++ Include ->\n case Param of\n [] -> parse([{'I', [Include]} | Args], Options);\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"D\" ->\n case Param of\n [Par] ->\n case string:tokens(Par, \"=\") of\n [Name, Term] ->\n AtomName = erlang:list_to_atom(Name),\n case validateTerms([Term], []) of\n {'error',_,_}=Error -> Error;\n [AtomTerm] ->\n NewOptions = keyAppend('define', 1,\n Options, [{AtomName, AtomTerm}]),\n parse(Args, NewOptions)\n end;\n [Name] ->\n AtomName = erlang:list_to_atom(Name),\n case validateTerms([\"true\"], []) of\n {'error',_,_}=Error -> Error;\n [AtomTerm] ->\n NewOptions = keyAppend('define', 1,\n Options, [{AtomName, AtomTerm}]),\n parse(Args, NewOptions)\n end;\n _Other -> wrongArgument('type', Opt)\n end;\n _Other -> wrongArgument('number', Opt)\n end;\n \"D\" ++ Define ->\n case Param of\n [] -> parse([{'D', [Define]} | Args], Options);\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"-noprogress\" ->\n case Param of\n [] ->\n NewOptions = lists:keystore(noprogress, 1,\n Options, {noprogress}),\n parse(Args, NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n\n Q when Q=:=\"q\"; Q=:=\"-quiet\" ->\n case Param of\n [] ->\n NewOptions = lists:keystore(quiet, 1,\n Options, {quiet}),\n parse(Args, NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n\n P when P=:=\"p\"; P=:=\"-preb\" ->\n case Param of\n [Preb] ->\n case string:to_integer(Preb) of\n {I, []} when I>=0 ->\n NewOptions = lists:keystore(preb, 1, Options,\n {preb, I}),\n parse(Args, NewOptions);\n _ when Preb=:=\"inf\"; Preb=:=\"off\" ->\n NewOptions = lists:keystore(preb, 1, Options,\n {preb, inf}),\n parse(Args, NewOptions);\n _Other -> wrongArgument('type', Opt)\n end;\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"-gui\" ->\n case Param of\n [] ->\n NewOptions = lists:keystore(gui, 1,\n Options, {gui}),\n parse(Args, NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"v\" ->\n case Param of\n [] ->\n NewOptions = keyIncrease('verbose', 1, Options),\n parse(Args, NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"-keep-tmp-files\" ->\n case Param of\n [] ->\n NewOptions = lists:keystore('keep_temp', 1,\n Options, {'keep_temp'}),\n parse(Args, NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"-fail-uninstrumented\" ->\n case Param of\n [] ->\n NewOptions = lists:keystore('fail_uninstrumented', 1,\n Options, {'fail_uninstrumented'}),\n parse(Args, NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"-app-controller\" ->\n case Param of\n [] ->\n NewOptions = lists:keystore('app_controller', 1,\n Options, {'app_controller'}),\n parse(Args, NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"-ignore\" ->\n case Param of\n [] -> wrongArgument('number', Opt);\n Ignores ->\n AtomIgns = [list_to_atom(Ign) || Ign <- Ignores],\n NewOptions = keyAppend('ignore', 1, Options, AtomIgns),\n parse(Args, NewOptions)\n end;\n\n \"-show-output\" ->\n case Param of\n [] ->\n NewOptions = lists:keystore('show_output', 1,\n Options, {'show_output'}),\n %% Disable progress\n parse([{'-noprogress', []} | Args], NewOptions);\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"-wait-messages\" ->\n case Param of\n [] ->\n NewOptions = lists:keystore('wait_messages', 1,\n Options, {'wait_messages'}),\n parse(Args, NewOptions);\n _Ohter -> wrongArgument('number', Opt)\n end;\n\n T when T =:= \"T\"; T =:= \"-ignore-timeout\" ->\n case Param of\n [Timeout] ->\n case string:to_integer(Timeout) of\n {Timeout_Int, []} when Timeout_Int > 0 ->\n NewOptions = lists:keystore('ignore_timeout',\n 1, Options, {'ignore_timeout', Timeout_Int}),\n parse(Args, NewOptions);\n _Other -> wrongArgument('type', Opt)\n end;\n _Other -> wrongArgument('number', Opt)\n end;\n\n \"-help\" ->\n help(),\n erlang:halt();\n\n DPOR when\n DPOR =:= \"-dpor\";\n DPOR =:= \"-dpor_optimal\";\n DPOR =:= \"-dpor_source\";\n DPOR =:= \"-dpor_classic\" ->\n Flavor =\n case DPOR of\n \"-dpor\" -> full;\n \"-dpor_optimal\" -> full;\n \"-dpor_source\" -> source;\n \"-dpor_classic\" -> classic\n end,\n case lists:keysearch(dpor, 1, Options) of\n false ->\n NewOptions = [{dpor, Flavor}|Options],\n parse(Args, NewOptions);\n _ ->\n Msg = \"multiple DPOR algorithms specified\",\n {'error', 'arguments', Msg}\n end;\n\n EF when EF=:=\"root\"; EF=:=\"progname\"; EF=:=\"home\"; EF=:=\"smp\";\n EF=:=\"noshell\"; EF=:=\"noinput\"; EF=:=\"sname\"; EF=:=\"pa\";\n EF=:=\"cookie\" ->\n %% erl flag (ignore it)\n parse(Args, Options);\n\n Other ->\n Msg = io_lib:format(\"unrecognised concuerror flag: -~s\", [Other]),\n {'error', 'arguments', Msg}\n end.\n\n\n%% Validate user provided terms.\nvalidateTerms([], Terms) ->\n lists:reverse(Terms);\nvalidateTerms([String|Strings], Terms) ->\n case erl_scan:string(String ++ \".\") of\n {ok, T, _} ->\n case erl_parse:parse_term(T) of\n {ok, Term} -> validateTerms(Strings, [Term|Terms]);\n {error, {_, _, Info}} ->\n Msg1 = io_lib:format(\"arg ~s - ~s\", [String, Info]),\n {'error', 'arguments', Msg1}\n end;\n {error, {_, _, Info}, _} ->\n Msg2 = io_lib:format(\"info ~s\", [Info]),\n {'error', 'arguments', Msg2}\n end.\n\nkeyAppend(Key, Pos, TupleList, Value) ->\n case lists:keytake(Key, Pos, TupleList) of\n {value, {Key, PrevValue}, TupleList2} ->\n [{Key, Value ++ PrevValue} | TupleList2];\n false ->\n [{Key, Value} | TupleList]\n end.\n\nkeyIncrease(Key, Pos, TupleList) ->\n case lists:keytake(Key, Pos, TupleList) of\n {value, {Key, PrevValue}, TupleList2} ->\n [{Key, PrevValue+1} | TupleList2];\n false ->\n [{Key, ?DEFAULT_VERBOSITY + 1} | TupleList]\n end.\n\nwrongArgument('number', Option) ->\n Msg = io_lib:format(\"wrong number of arguments for option -~s\", [Option]),\n {'error', 'arguments', Msg};\nwrongArgument('type', Option) ->\n Msg = io_lib:format(\"wrong type of argument for option -~s\", [Option]),\n {'error', 'arguments', Msg}.\n\nhelp() ->\n io:format(\n ?INFO_MSG\n \"\\n\"\n \"usage: concuerror []\\n\"\n \"Arguments:\\n\"\n \" -t|--target module Run eunit tests for this module\\n\"\n \" -t|--target module function [args]\\n\"\n \" Specify the function to execute\\n\"\n \" -f|--files modules Specify the files (modules) to instrument\\n\"\n \" -o|--output file Specify the output file (default results.txt)\\n\"\n \" -p|--preb number|inf Set preemption bound (default is 2)\\n\"\n \" -I include_dir Pass the include_dir to concuerror\\n\"\n \" -D name=value Define a macro\\n\"\n \" --noprogress Disable progress bar\\n\"\n \" -q|--quiet Disable logging (implies --noprogress)\\n\"\n \" -v Verbose [use twice to be more verbose]\\n\"\n \" --keep-tmp-files Retain all intermediate temporary files\\n\"\n \" --fail-uninstrumented Fail if there are uninstrumented modules\\n\"\n \" --ignore modules It is OK for these modules to be uninstrumented\\n\"\n \" --show-output Allow program under test to print to stdout\\n\"\n \" --wait-messages Wait for uninstrumented messages to arrive\\n\"\n \" --app-controller Start an (instrumented) application controller\\n\"\n \" -T|--ignore-timeout bound\\n\"\n \" Treat big after Timeouts as infinity timeouts\\n\"\n \" --gui Run concuerror with a graphical interface\\n\"\n \" --help Show this help message\\n\"\n \"\\n\"\n \" DPOR algorithms:\\n\"\n \" --dpor|--dpor_optimal Enables the optimal DPOR algorithm\\n\"\n \" --dpor_classic Enables the classic DPOR algorithm\\n\"\n \" --dpor_source Enables the DPOR algorithm based on source sets\\n\"\n \"\\n\"\n \"Examples:\\n\"\n \" concuerror -DVSN=\\\\\\\"1.0\\\\\\\" --target foo bar arg1 arg2 \"\n \"--files \\\"foo.erl\\\" -o out.txt\\n\"\n \" concuerror --gui -I./include --files foo.erl --preb inf\\n\\n\").\n\n\n%%%----------------------------------------------------------------------\n%%% Analyze Commnad\n%%%----------------------------------------------------------------------\n\n%% @spec analyze(options()) -> 'true'\n%% @doc: Run Concuerror analysis with the given options.\n-spec analyze(options()) -> analysis_ret().\nanalyze(Options) ->\n %% Disable error logging messages.\n ?tty(),\n %% Start the log manager.\n _ = concuerror_log:start(),\n Res = analyzeAux(Options),\n %% Stop event handler\n concuerror_log:stop(),\n Res.\n\nanalyzeAux(Options) ->\n %% Get target\n Result =\n case lists:keyfind(target, 1, Options) of\n false ->\n Msg1 = \"no target specified\",\n {'error', 'arguments', Msg1};\n {target, Target} ->\n %% Get input files\n case lists:keyfind(files, 1, Options) of\n false ->\n Msg2 = \"no input files specified\",\n {'error', 'arguments', Msg2};\n {files, Files} ->\n %% Start the analysis\n concuerror_sched:analyze(Target, Files, Options)\n end\n end,\n %% Return result\n Result.\n\n\n%%%----------------------------------------------------------------------\n%%% Export Analysis results into a file\n%%%----------------------------------------------------------------------\n\n%% @spec export(concuerror_sched:analysis_ret(), file:filename()) ->\n%% 'ok' | {'error', file:posix() | badarg | system_limit}\n%% @doc: Export the analysis results into a text file.\n-spec export(concuerror_sched:analysis_ret(), file:filename()) ->\n 'ok' | {'error', file:posix() | badarg | system_limit | terminated}.\nexport(Results, File) ->\n case file:open(File, ['write']) of\n {ok, IoDevice} ->\n case exportAux(Results, IoDevice) of\n ok -> file:close(IoDevice);\n Error -> Error\n end;\n Error -> Error\n end.\n\nexportAux({'ok', {_Target, RunCount, SBlocked}}, IoDevice) ->\n Msg = io_lib:format(\"Checked ~w interleaving(s). No errors found.\\n\",\n [RunCount]),\n SBMsg =\n case SBlocked of\n 0 -> \"\";\n _ -> io_lib:format(\" Encountered ~w sleep-set blocked trace(s).\\n\",\n [SBlocked])\n end,\n file:write(IoDevice, Msg++SBMsg);\nexportAux({error, instr,\n {_Target, _RunCount, _SBlocked}}, IoDevice) ->\n Msg = \"Instrumentation error.\\n\",\n file:write(IoDevice, Msg);\nexportAux({error, analysis,\n {_Target, RunCount, SBlocked}, Tickets}, IoDevice) ->\n TickLen = length(Tickets),\n Msg = io_lib:format(\"Checked ~w interleaving(s). ~w errors found.\\n\",\n [RunCount, TickLen]),\n SBMsg =\n case SBlocked of\n 0 -> \"\\n\";\n _ -> io_lib:format(\n \" Encountered ~w sleep-set blocked trace(s).\\n\\n\",\n [SBlocked])\n end,\n case file:write(IoDevice, Msg++SBMsg) of\n ok ->\n case lists:foldl(fun writeDetails/2, {1, IoDevice},\n concuerror_ticket:sort(Tickets)) of\n {'error', _Reason}=Error -> Error;\n _Ok -> ok\n end;\n Error -> Error\n end.\n\n%% Write details about each ticket\nwriteDetails(_Ticket, {'error', _Reason}=Error) ->\n Error;\nwriteDetails(Ticket, {Count, IoDevice}) ->\n Error = concuerror_ticket:get_error(Ticket),\n Description = io_lib:format(\"~p\\n~s\\n\",\n [Count, concuerror_error:long(Error)]),\n Details = [\" \" ++ M ++ \"\\n\"\n || M <- concuerror_ticket:details_to_strings(Ticket)],\n Msg = lists:flatten([Description | Details]),\n case file:write(IoDevice, Msg ++ \"\\n\\n\") of\n ok -> {Count+1, IoDevice};\n WriteError -> WriteError\n end.\n\n\n%%%----------------------------------------------------------------------\n%%% Log event handler callback functions\n%%%----------------------------------------------------------------------\n\n-type state() :: {non_neg_integer(), %% Verbose level\n concuerror_util:progress() | 'noprogress'}.\n\n-spec init(term()) -> {'ok', state()}.\n\n%% @doc: Initialize the event handler.\ninit(Options) ->\n Progress =\n case lists:keyfind(noprogress, 1, Options) of\n {noprogress} -> noprogress;\n false -> concuerror_util:init_state()\n end,\n Verbosity =\n case lists:keyfind('verbose', 1, Options) of\n {'verbose', V} -> V;\n false -> 0\n end,\n {ok, {Verbosity, Progress}}.\n\n-spec terminate(term(), state()) -> 'ok'.\nterminate(_Reason, {_Verb, 'noprogress'}) ->\n ok;\nterminate(_Reason, {_Verb, {_RunCnt, _Errors, _Elapsed, Timer}}) ->\n concuerror_util:timer_stop(Timer),\n ok.\n\n-spec handle_event(concuerror_log:event(), state()) -> {'ok', state()}.\nhandle_event({msg, String, MsgVerb}, {Verb, _Progress}=State) ->\n if\n Verb >= MsgVerb ->\n io:format(\"~s\", [String]);\n true ->\n ok\n end,\n {ok, State};\n\nhandle_event({progress, _Type}, {_Verb, 'noprogress'}=State) ->\n {ok, State};\nhandle_event({progress, Type}, {Verb, Progress}) ->\n case concuerror_util:progress_bar(Type, Progress) of\n {NewProgress, \"\"} ->\n {ok, {Verb, NewProgress}};\n {NewProgress, Msg} ->\n io:fwrite(\"\\r\\033[K\" ++ Msg),\n {ok, {Verb, NewProgress}}\n end;\n\nhandle_event('reset', {_Verb, 'noprogress'}=State) ->\n {ok, State};\nhandle_event('reset', {Verb, _Progress}) ->\n {ok, {Verb, concuerror_util:init_state()}}.\n" }, { "path": "resources/old_source/concuerror_deps.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2013, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Stavros Aronis \n%%% Description : Dependency relation for Erlang\n%%%----------------------------------------------------------------------\n\n-module(concuerror_deps).\n\n-export([may_have_dependencies/1,\n dependent/2,\n lock_release_atom/0]).\n\n-spec may_have_dependencies(concuerror_sched:transition()) -> boolean().\n\nmay_have_dependencies({_Lid, {error, _}, []}) -> false;\nmay_have_dependencies({_Lid, {Spawn, _}, []})\n when Spawn =:= spawn; Spawn =:= spawn_link; Spawn =:= spawn_monitor;\n Spawn =:= spawn_opt -> false;\nmay_have_dependencies({_Lid, {'receive', {unblocked, _, _}}, []}) -> false;\nmay_have_dependencies({_Lid, exited, []}) -> false;\nmay_have_dependencies(_Else) -> true.\n\n-spec lock_release_atom() -> '_._concuerror_lock_release'.\n\nlock_release_atom() -> '_._concuerror_lock_release'.\n\n-define( ONLY_INITIALLY, true).\n-define( SYMMETRIC, true).\n-define( CHECK_MSG, true).\n-define( ALLOW_SWAP, true).\n-define(DONT_ALLOW_SWAP, false).\n-define(ONLY_AFTER_SWAP, false).\n-define( DONT_CHECK_MSG, false).\n\n-spec dependent(concuerror_sched:transition(),\n concuerror_sched:transition()) -> boolean().\n\ndependent(A, B) ->\n dependent(A, B, ?CHECK_MSG, ?ALLOW_SWAP).\n\n%%==============================================================================\n\n%% Instructions from the same process are always dependent\ndependent({Lid, _Instr1, _Msgs1},\n {Lid, _Instr2, _Msgs2}, ?ONLY_INITIALLY, ?ONLY_INITIALLY) ->\n true;\n\n%%==============================================================================\n\n%% XXX: This should be fixed in sched:recent_dependency_cv and removed\ndependent({_Lid1, _Instr1, _Msgs1},\n {_Lid2, 'init', _Msgs2}, ?ONLY_INITIALLY, ?ONLY_INITIALLY) ->\n false;\n\n%%==============================================================================\n\n%% Decisions depending on send and receive statements:\n\n%%==============================================================================\n\n%% Sending to the same process:\ndependent({ Lid1, Instr1, PreMsgs1} = Trans1,\n { Lid2, Instr2, PreMsgs2} = Trans2,\n ?CHECK_MSG, AllowSwap) ->\n %% ProcEvidence = [{P, L} || {P, {_M, L}} <- PreMsgs2],\n %% Msgs2 = [{P, M} || {P, {M, _L}} <- PreMsgs2],\n %% Msgs1 = add_missing_messages(Lid1, Instr1, PreMsgs1, ProcEvidence),\n ProcEvidence1 = [{P, L, M} || {P, {_M, L, M}} <- PreMsgs1],\n ProcEvidence2 = [{P, L, M} || {P, {_M, L, M}} <- PreMsgs2],\n Msgs1 = add_missing_messages(Lid1, Instr1, PreMsgs1, ProcEvidence2),\n Msgs2 = add_missing_messages(Lid2, Instr2, PreMsgs2, ProcEvidence1),\n case Msgs1 =:= [] orelse Msgs2 =:= [] of\n true -> dependent(Trans1, Trans2, ?DONT_CHECK_MSG, AllowSwap);\n false ->\n Lids1 = ordsets:from_list(orddict:fetch_keys(Msgs1)),\n Lids2 = ordsets:from_list(orddict:fetch_keys(Msgs2)),\n case ordsets:intersection(Lids1, Lids2) of\n [] ->\n dependent(Trans1, Trans2, ?DONT_CHECK_MSG, AllowSwap);\n [Key] ->\n %% XXX: Can be refined\n case {orddict:fetch(Key, Msgs1), orddict:fetch(Key, Msgs2)} of\n {[V1], [V2]} ->\n LockReleaseAtom = lock_release_atom(),\n V1 =/= LockReleaseAtom andalso V2 =/= LockReleaseAtom;\n _Else -> true\n end;\n _ -> true %% XXX: Can be refined\n end\n end;\n\n%%==============================================================================\n\n%% Sending to an activated after clause depends on that receive's patterns OR\n%% Sending the message that triggered a receive's 'had_after'\ndependent({Lid1, Instr1, PreMsgs1} = Trans1,\n {Lid2, {Receive, Info}, _Msgs2} = Trans2,\n _CheckMsg, AllowSwap) when\n Receive =:= 'after';\n (Receive =:= 'receive' andalso\n element(1, Info) =:= had_after) ->\n ProcEvidence =\n case Receive =:= 'after' of\n true -> [{Lid2, element(2, Info), element(3, Info)}];\n false -> []\n end,\n Msgs1 = add_missing_messages(Lid1, Instr1, PreMsgs1, ProcEvidence),\n Dependent =\n case orddict:find(Lid2, Msgs1) of\n {ok, MsgsToLid2} ->\n Fun =\n case Receive of\n 'after' -> element(1, Info);\n 'receive' ->\n Target = element(3, Info),\n OLid = element(2, Info),\n fun(X) -> X =:= Target andalso OLid =:= Lid1 end\n end,\n lists:any(Fun, MsgsToLid2);\n error -> false\n end,\n Dependent orelse (AllowSwap andalso\n\t\t dependent(Trans2, Trans1, ?CHECK_MSG, ?DONT_ALLOW_SWAP));\n%%==============================================================================\n\n%% Other instructions are not in race with receive or after, if not caught by\n%% the message checking part.\ndependent({_Lid1, { _Any, _Details1}, _Msgs1},\n {_Lid2, {Receive, _Details2}, _Msgs2},\n _CheckMsg, ?ONLY_AFTER_SWAP) when\n Receive =:= 'after';\n Receive =:= 'receive' ->\n false;\n\n%% Swapped version, as the message checking code can force a swap.\ndependent({_Lid1, {Receive, _Details1}, _Msgs1},\n {_Lid2, { _Any, _Details2}, _Msgs2},\n _CheckMsg, ?ONLY_AFTER_SWAP) when\n Receive =:= 'after';\n Receive =:= 'receive' ->\n false;\n\n%%==============================================================================\n%% From here onwards, we have taken care of messaging races.\n%%==============================================================================\n\n%% ETS operations live in their own small world.\ndependent({_Lid1, {ets, Op1}, _Msgs1},\n {_Lid2, {ets, Op2}, _Msgs2},\n _CheckMsg, ?SYMMETRIC) ->\n dependent_ets(Op1, Op2);\n\n%%==============================================================================\n\n%% Registering a table with the same name as an existing one.\ndependent({_Lid1, { ets, { new, [_Table, Name, Options]}}, _Msgs1},\n {_Lid2, {exit, {normal, {{_Heirs, Tables}, _Na, _Li, _Mo}}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n NamedTables = [N || {_Lid, {ok, N}} <- Tables],\n lists:member(named_table, Options) andalso\n lists:member(Name, NamedTables);\n\n%% Table owners exits race with any ets operation on the same table.\ndependent({_Lid1, { ets, { _Op, [Table|_Rest]}}, _Msgs1},\n {_Lid2, {exit, {normal, {{_Heirs, Tables}, _Na, _Li, _Mo}}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n lists:keymember(Table, 1, Tables);\n\n%% %% Covered by next\n%% dependent({_Lid1, { ets, _Details1}, _Msgs1},\n%% {_Lid2, {exit, _Details2}, _Msgs2},\n%% _CheckMsg, _AllowSwap) ->\n%% false;\n\n%%==============================================================================\n\n%% No other operations race with ets operations.\ndependent({_Lid1, { ets, _Details1}, _Msgs1},\n {_Lid2, {_Any, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n false;\n\n%%==============================================================================\n\n%% Exits with heirs, links, monitors induce messages that create dependencies\n%% XXX: Should be removed when tracking reversals accurately.\ndependent({Lid1, {exit, {normal, {{Heirs1, _Tbls1}, _N1, L1, M1}}}, _Msgs1},\n {Lid2, {exit, {normal, {{Heirs2, _Tbls2}, _N2, L2, M2}}}, _Msgs2},\n _CheckMsg, ?SYMMETRIC) ->\n lists:member(Lid1, Heirs2) orelse lists:member(Lid2, Heirs1) orelse\n lists:member(Lid1, L2) orelse lists:member(Lid2, L1) orelse\n lists:member(Lid1, M2) orelse lists:member(Lid2, M1);\n\n%%==============================================================================\n\n%% Registered processes:\n\n%% Sending using name to a process that may exit and unregister.\ndependent({_Lid1, {send, {TName, _TLid, _Msg}}, _Msgs1},\n {_Lid2, {exit, {normal, {_Tables, {ok, TName}, _L, _M}}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n true;\ndependent({_Lid1, {send, _Details1}, _Msgs1},\n {_Lid2, {exit, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n false;\n\n%%==============================================================================\n\n%% Register and unregister have the same dependencies.\n%% Use a unique value for the Pid to avoid checks there.\ndependent({Lid, {unregister, RegName}, Msgs}, B, CheckMsg, AllowSwap) ->\n dependent({Lid, {register, {RegName, make_ref()}}, Msgs}, B,\n CheckMsg, AllowSwap);\ndependent(A, {Lid, {unregister, RegName}, Msgs}, CheckMsg, AllowSwap) ->\n dependent(A, {Lid, {register, {RegName, make_ref()}}, Msgs},\n CheckMsg, AllowSwap);\n\n%%==============================================================================\n\n%% Send using name before process has registered itself (or after unregistering).\ndependent({_Lid1, {register, {RegName, _TLid}}, _Msgs1},\n {_Lid2, { send, {RegName, _Lid, _Msg}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n true;\n\n%% No other races between register and send.\ndependent({_Lid1, {register, _Details1}, _Msgs1},\n {_Lid2, { send, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n false;\n\n%%==============================================================================\n\n%% Two registers using the same name or the same process.\ndependent({_Lid1, {register, {RegName1, TLid1}}, _Msgs1},\n {_Lid2, {register, {RegName2, TLid2}}, _Msgs2},\n _CheckMsg, ?SYMMETRIC) ->\n RegName1 =:= RegName2 orelse TLid1 =:= TLid2;\n\n%%==============================================================================\n\n%% Register a process that may exit.\ndependent({_Lid1, {register, {_RegName, TLid}}, _Msgs1},\n { TLid, { exit, {normal, _Info}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n true;\n\n%% Register for a name that might be in use.\ndependent({_Lid1, {register, {Name, _TLid}}, _Msgs1},\n {_Lid2, { exit, {normal, {_Tables, {ok, Name}, _L, _M}}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n true;\n\n%% No other races between register and exit.\ndependent({_Lid1, {register, _Details1}, _Msgs1},\n {_Lid2, { exit, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n false;\n\n%%==============================================================================\n\n%% Whereis using name before process has registered itself.\ndependent({_Lid1, {register, {RegName, _TLid1}}, _Msgs1},\n {_Lid2, { whereis, {RegName, _TLid2}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n true;\n\n%% No other races between register and whereis.\ndependent({_Lid1, {register, _Details1}, _Msgs1},\n {_Lid2, { whereis, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n false;\n\n%%==============================================================================\n\n%% Process alive and exits.\ndependent({_Lid1, {is_process_alive, TLid}, _Msgs1},\n { TLid, { exit, {normal, _Info}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n true;\n\n%% No other races between is_process_alive and exit.\ndependent({_Lid1, {is_process_alive, _Details1}, _Msgs1},\n {_Lid2, { exit, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n false;\n\n%%==============================================================================\n\n%% Process registered and exits.\ndependent({_Lid1, {whereis, {Name, _TLid1}}, _Msgs1},\n {_Lid2, { exit, {normal, {_Tables, {ok, Name}, _L, _M}}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n true;\n\n%% No other races between whereis and exit.\ndependent({_Lid1, {whereis, _Details1}, _Msgs1},\n {_Lid2, { exit, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n false;\n\n%%==============================================================================\n\n%% Demonitor/link/unlink and exit.\ndependent({_Lid, {Linker, TLid}, _Msgs1},\n {TLid, { exit, {normal, _Info}}, _Msgs2},\n _CheckMsg, _AllowSwap)\n when Linker =:= demonitor; Linker =:= link; Linker =:= unlink ->\n true;\n\n%% No other races between demonitor/link/unlink and exit.\ndependent({_Lid1, {Linker, _Details1}, _Msgs1},\n {_Lid2, { exit, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap)\n when Linker =:= demonitor; Linker =:= link; Linker =:= unlink ->\n false;\n\n%%==============================================================================\n\n%% Depending on the order, monitor's Info is different.\ndependent({_Lid, {monitor, {TLid, _MonRef}}, _Msgs1},\n {TLid, { exit, {normal, _Info}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n true;\n\ndependent({_Lid1, {monitor, _Details1}, _Msgs1},\n {_Lid2, { exit, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n false;\n\n%%==============================================================================\n\n%% Trap exits flag and linked process exiting.\ndependent({Lid1, {process_flag, {trap_exit, _Value, Links1}}, _Msgs1},\n {Lid2, { exit, {normal, {_Tables, _N, Links2, _M}}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n lists:member(Lid2, Links1) orelse lists:member(Lid1, Links2);\n\n%% Trap exits flag and explicit exit signals.\ndependent({ Lid1, {process_flag, {trap_exit, _Value, _Links1}}, _Msgs1},\n {_Lid2, { exit_2, {TLid, _Reason}}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n Lid1 =:= TLid;\n\n%% No other races between setting a process flag and exiting.\ndependent({_Lid1, {process_flag, _Details1}, _Msgs1},\n {_Lid2, { exit, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap) ->\n false;\n\n%%==============================================================================\n\n%% Setting a process_flag is not in race with linking. Happening together, they\n%% can cause other races, however.\ndependent({_Lid1, {process_flag, _Details1}, _Msgs1},\n {_Lid2, {LinkOrUnlink, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap)\n when LinkOrUnlink =:= link; LinkOrUnlink =:= unlink ->\n false;\n\n%%==============================================================================\n\n%% Spawning is independent with everything else.\ndependent({_Lid1, {Spawn, _Details1}, _Msgs1},\n {_Lid2, { _Any, _Details2}, _Msgs2},\n _CheckMsg, _AllowSwap)\n when Spawn =:= spawn; Spawn =:= spawn_link; Spawn =:= spawn_monitor;\n Spawn =:= spawn_opt ->\n false;\n\n%%==============================================================================\n\n%% Swap the two arguments if the test is not symmetric by itself.\ndependent(TransitionA, TransitionB, _CheckMsg, ?ALLOW_SWAP) ->\n dependent(TransitionB, TransitionA, ?CHECK_MSG, ?DONT_ALLOW_SWAP);\n\ndependent(TransitionA, TransitionB, _CheckMsg, ?DONT_ALLOW_SWAP) ->\n case independent(TransitionA, TransitionB) of\n true -> false;\n maybe ->\n io:format(\"ALERT! Not certainly independent:\\n ~p\\n ~p\\n\",\n [TransitionA, TransitionB]),\n true\n end.\n\n%%==============================================================================\n%%==============================================================================\n\n-spec independent(concuerror_sched:transition(),\n concuerror_sched:transition()) -> 'true' | 'maybe'.\n\nindependent({_Lid1, {Op1, _}, _Msgs1}, {_Lid2, {Op2, _}, _Msgs2}) ->\n Independent =\n [\n { monitor, demonitor},\n { monitor, send},\n { demonitor, send},\n { whereis, send},\n { link, send},\n { unlink, send},\n {process_flag, send},\n {process_flag, monitor},\n { unlink, monitor},\n { register, monitor},\n { whereis, unlink},\n { unlink, register},\n { whereis, monitor},\n { whereis, demonitor},\n { unlink, demonitor},\n { register, demonitor},\n {process_flag, register},\n { whereis, is_process_alive},\n { demonitor, is_process_alive},\n { monitor, is_process_alive},\n { send, is_process_alive},\n { link, monitor}\n ],\n %% XXX: This should probably be removed.\n Solo = [send_after,exit_2],\n case\n %% Assuming that all the races of an instruction with another instance\n %% of itself have already been caught.\n Op1 =:= Op2\n orelse lists:member({Op1, Op2},Independent)\n orelse lists:member({Op2, Op1},Independent)\n orelse lists:member(Op1, Solo)\n orelse lists:member(Op2, Solo)\n of\n true -> true;\n false -> maybe\n end.\n\nadd_missing_messages(Lid, Instr, PreMsgs, ProcEvidence) ->\n Msgs = [{P, M} || {P, {M, _L, _M}} <- PreMsgs],\n case Instr of\n {send, {_RegName, Lid2, Msg}} ->\n add_missing_message(Lid2, Msg, Msgs);\n {exit, _} ->\n LMsg = {'EXIT', Lid, normal},\n %% XXX: Dummy could be problematic\n MMsg = {'DOWN', dummy, process, Lid, normal},\n LAdder = fun(P, M) -> add_missing_message(P, LMsg, M) end,\n MAdder = fun(P, M) -> add_missing_message(P, MMsg, M) end,\n Fold =\n fun({P, Links, Monitors}, Acc) ->\n Acc1 =\n case lists:member(Lid, Links) of\n true -> LAdder(P, Acc);\n false -> Acc\n end,\n Acc2 =\n case lists:member(Lid, Monitors) of\n true -> MAdder(P, Acc1);\n false -> Acc1\n end,\n Acc2\n end,\n lists:foldl(Fold, Msgs, ProcEvidence);\n {exit_2, {To, Msg}} ->\n %% XXX: Too strong.\n add_missing_message(To, Msg, Msgs);\n _ -> Msgs\n end.\n\n%% XXX: Not accurate for monitor DOWN messages due to dummy\nadd_missing_message(Lid, Msg, Msgs) ->\n try true = lists:member(Msg, orddict:fetch(Lid, Msgs)) of\n _ -> Msgs\n catch\n _:_ -> orddict:append(Lid, Msg, Msgs)\n end.\n\n%% ETS table dependencies:\n\ndependent_ets(Op1, Op2) ->\n dependent_ets(Op1, Op2, ?ALLOW_SWAP).\n\n%%==============================================================================\n\ndependent_ets({MajorOp, [Tid1, Name1|_]}, {_, [Tid2, Name2|_]}, _AllowSwap)\n when MajorOp =:= info; MajorOp =:= delete ->\n (Tid1 =:= Tid2) orelse (Name1 =:= Name2);\n\n%%==============================================================================\n\ndependent_ets({insert, [T, _, Keys1, KP, Objects1, true]},\n {insert, [T, _, Keys2, KP, Objects2, true]}, ?SYMMETRIC) ->\n case ordsets:intersection(Keys1, Keys2) of\n [] -> false;\n Keys ->\n Fold =\n fun(_K, true) -> true;\n (K, false) ->\n lists:keyfind(K, KP, Objects1) =/=\n lists:keyfind(K, KP, Objects2)\n end,\n lists:foldl(Fold, false, Keys)\n end;\n\ndependent_ets({insert, _Details1},\n {insert, _Details2}, ?SYMMETRIC) ->\n false;\n\n%%==============================================================================\n\ndependent_ets({insert_new, [_, _, _, _, _, false]},\n {insert_new, [_, _, _, _, _, false]}, ?SYMMETRIC) ->\n false;\n\ndependent_ets({insert_new, [T, _, Keys1, KP, _Objects1, _Status1]},\n {insert_new, [T, _, Keys2, KP, _Objects2, _Status2]},\n ?SYMMETRIC) ->\n ordsets:intersection(Keys1, Keys2) =/= [];\n\ndependent_ets({insert_new, _Details1},\n {insert_new, _Details2}, ?SYMMETRIC) ->\n false;\n\n%%==============================================================================\n\ndependent_ets({insert_new, [T, _, Keys1, KP, _Objects1, _Status1]},\n { insert, [T, _, Keys2, KP, _Objects2, true]},\n _AllowSwap) ->\n ordsets:intersection(Keys1, Keys2) =/= [];\n\ndependent_ets({insert_new, _Details1},\n { insert, _Details2},\n _AllowSwap) ->\n false;\n\n%%==============================================================================\n\ndependent_ets({Insert, [T, _, Keys, _KP, _Objects1, true]},\n {lookup, [T, _, K]}, _AllowSwap)\n when Insert =:= insert; Insert =:= insert_new ->\n ordsets:is_element(K, Keys);\n\ndependent_ets({Insert, _Details1},\n {lookup, _Details2}, _AllowSwap)\n when Insert =:= insert; Insert =:= insert_new ->\n false;\n\n%%==============================================================================\n\ndependent_ets({lookup, _Details1}, {lookup, _Details2}, ?SYMMETRIC) ->\n false;\n\n%%==============================================================================\n\ndependent_ets({new, [_Tid1, Name, Options1]},\n {new, [_Tid2, Name, Options2]}, ?SYMMETRIC) ->\n lists:member(named_table, Options1) andalso\n lists:member(named_table, Options2);\n\n%%==============================================================================\n\ndependent_ets({ new, _Details1}, {_Any, _Details2}, ?DONT_ALLOW_SWAP) ->\n false;\n\ndependent_ets({_Any, _Details1}, { new, _Details2}, ?DONT_ALLOW_SWAP) ->\n false;\n\n%%==============================================================================\n\ndependent_ets(Op1, Op2, ?ALLOW_SWAP) ->\n dependent_ets(Op2, Op1, ?DONT_ALLOW_SWAP);\ndependent_ets(Op1, Op2, ?DONT_ALLOW_SWAP) ->\n concuerror_log:log(3, \"Not certainly independent (ETS):\\n ~p\\n ~p\\n\",\n [Op1, Op2]),\n true.\n" }, { "path": "resources/old_source/concuerror_error.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Error interface\n%%%----------------------------------------------------------------------\n\n-module(concuerror_error).\n\n-export([long/1, mock/0, new/1, short/1, type/1]).\n\n-export_type([error/0]).\n\n-include(\"gen.hrl\").\n\n-type error_type() :: 'assertion_violation' | 'deadlock' | 'exception'.\n-type error() :: {error_type(), term()}.\n\n-spec new(term()) -> error().\n\nnew({deadlock, _Set} = Deadlock) -> Deadlock;\nnew({{assertion_failed, Details}, _Any}) -> {assertion_violation, Details};\nnew({{assertEqual_failed, Details}, _Any}) -> {assertion_violation, Details};\nnew(Reason) -> {exception, Reason}.\n\n-spec type(error()) -> nonempty_string().\n\ntype({deadlock, _Blocked}) -> \"Deadlock\";\ntype({assertion_violation, _Details}) -> \"Assertion violation\";\ntype({exception, _Details}) -> \"Exception\".\n\n-spec short(error()) -> nonempty_string().\n\nshort({deadlock, Blocked}) ->\n OldList = lists:sort(?SETS:to_list(Blocked)),\n {List, [Last]} = lists:split(length(OldList) - 1, OldList),\n Fun = fun(L, A) -> A ++ concuerror_lid:to_string(L) ++ \", \" end,\n lists:foldl(Fun, \"\", List) ++ concuerror_lid:to_string(Last);\nshort({assertion_violation, [{module, Module}, {line, Line}|_Rest]}) ->\n OldModule = concuerror_instr:old_module_name(Module),\n concuerror_util:flat_format(\"~p.erl:~p\", [OldModule, Line]);\nshort({exception, Reason}) ->\n lists:flatten(io_lib:format(\"~W\", [Reason, 3])).\n\n-spec long(error()) -> nonempty_string().\n\nlong({deadlock, _Blocked} = Error) ->\n Format = \"Error type : Deadlock~n\"\n \"Blocked processes : ~s\",\n concuerror_util:flat_format(Format, [short(Error)]);\nlong({assertion_violation,\n [{module, Module}, {line, Line}, _Xpr, {expected, Exp}, {value, Val}]}) ->\n Format = \"Error type : Assertion violation~n\"\n \"Module:Line : ~p.erl:~p~n\"\n \"Expected : ~p~n\"\n \"Value : ~p\",\n OldModule = concuerror_instr:old_module_name(Module),\n concuerror_util:flat_format(Format, [OldModule, Line, Exp, Val]);\nlong({exception, Details}) ->\n Format = \"Error type : Exception~n\"\n \"Details : ~p\",\n concuerror_util:flat_format(Format, [Details]).\n\n-spec mock() -> {'exception', 'foobar'}.\n\nmock() -> {exception, foobar}.\n" }, { "path": "resources/old_source/concuerror_gui.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Graphical User Interface\n%%%----------------------------------------------------------------------\n\n-module(concuerror_gui).\n\n%% UI exports.\n-export([start/1]).\n%% Log server callback exports.\n-export([init/1, terminate/2, handle_event/2]).\n\n-include_lib(\"wx/include/wx.hrl\").\n-include(\"gen.hrl\").\n-include(\"gui.hrl\").\n\n%% Log event handler internal state.\n-type state() :: {non_neg_integer(), %% Verbose level\n concuerror_util:progress() | 'noprogress'}.\n\n%%%----------------------------------------------------------------------\n%%% UI functions\n%%%----------------------------------------------------------------------\n\n%% @spec start(concuerror:options()) -> 'true'\n%% @doc: Start the Concuerror GUI.\n-spec start(concuerror:options()) -> 'true'.\n\nstart(Options) ->\n register(?RP_GUI, self()),\n _ = wx:new(),\n %% Start the object reference mapping service.\n ref_start(),\n Frame = setupFrame(),\n wxFrame:show(Frame),\n setSplitterInitSizes(),\n %% Attach the event handler below.\n _ = concuerror_log:attach(?MODULE, {wx:get_env(), Options}),\n %% Load preferences from Options.\n loadPrefs(Options),\n refresh(),\n %% Start the replay server.\n loop(),\n %% Save possibly edited preferences to file.\n savePrefs(),\n ref_stop(),\n wx:destroy(),\n unregister(?RP_GUI).\n\n%%%----------------------------------------------------------------------\n%%% Log event handler callback functions\n%%%----------------------------------------------------------------------\n\n-spec init(term()) -> {'ok', state()}.\n\n%% @doc: Initialize the event handler.\n%%\n%% Note: The wx environment is set once in this function and is subsequently\n%% used by all callback functions. If any change is to happen to the\n%% environment (e.g. new elements added dynamically), `set_env' will have\n%% to be called again (by manually calling a special update_environment\n%% function for each update?).\ninit({Env, Options}) ->\n wx:set_env(Env),\n Progress =\n case lists:keyfind(noprogress, 1, Options) of\n {noprogress} -> noprogress;\n false -> concuerror_util:init_state()\n end,\n Verbosity =\n case lists:keyfind('verbose', 1, Options) of\n {'verbose', V} -> V;\n false -> 0\n end,\n {ok, {Verbosity, Progress}}.\n\n-spec terminate(term(), state()) -> 'ok'.\n\nterminate(_Reason, {_Verb, 'noprogress'}) ->\n ok;\nterminate(_Reason, {_Verb, {_RunCnt, _NumErrors, _Elapsed, Timer}}) ->\n concuerror_util:timer_stop(Timer),\n ok.\n\n-spec handle_event(concuerror_log:event(), state()) -> {'ok', state()}.\n\nhandle_event({msg, String, MsgVerb}, {Verb, _Progress}=State) ->\n if\n Verb >= MsgVerb ->\n wxTextCtrl:appendText(ref_lookup(?LOG_TEXT), String);\n true ->\n ok\n end,\n {ok, State};\n\nhandle_event({progress, _Type}, {_Verb, 'noprogress'}=State) ->\n {ok, State};\nhandle_event({progress, Type}, {Verb, Progress}) ->\n case Type of\n {error, Ticket} ->\n Error = concuerror_ticket:get_error(Ticket),\n ErrorItem = concuerror_util:flat_format(\"~s~n~s\",\n [concuerror_error:type(Error), concuerror_error:short(Error)]),\n List = ref_lookup(?ERROR_LIST),\n wxControlWithItems:append(List, ErrorItem),\n addListData(?ERROR_LIST, [Ticket]),\n ok;\n _Other ->\n ok\n end,\n case concuerror_util:progress_bar(Type, Progress) of\n {NewProgress, \"\"} ->\n {ok, {Verb, NewProgress}};\n {NewProgress, Msg} ->\n This = ref_lookup(?LOG_TEXT),\n NumLines = wxTextCtrl:getNumberOfLines(This),\n FromPos = wxTextCtrl:xYToPosition(This, 0, NumLines-1),\n EndPos = wxTextCtrl:getLastPosition(This),\n wxTextCtrl:replace(This, FromPos, EndPos, Msg),\n {ok, {Verb, NewProgress}}\n end;\n\nhandle_event('reset', {_Verb, 'noprogress'}=State) ->\n {ok, State};\nhandle_event('reset', {Verb, _Progress}) ->\n {ok, {Verb, concuerror_util:init_state()}}.\n\n\n%%%----------------------------------------------------------------------\n%%% Setup functions\n%%%----------------------------------------------------------------------\n\nsetupFrame() ->\n Frame = wxFrame:new(wx:null(), ?FRAME, ?APP_STRING),\n ref_add(?FRAME, Frame),\n MenuBar = wxMenuBar:new(),\n setupMenu(MenuBar, ?MENU_SPEC),\n wxFrame:setMenuBar(Frame, MenuBar),\n _ = wxFrame:createStatusBar(Frame, [{id, ?STATUS_BAR}]),\n wxEvtHandler:connect(Frame, close_window),\n wxEvtHandler:connect(Frame, command_menu_selected),\n wxEvtHandler:connect(Frame, command_button_clicked),\n wxEvtHandler:connect(Frame, command_listbox_selected),\n wxEvtHandler:connect(Frame, command_listbox_doubleclicked),\n wxEvtHandler:connect(Frame, command_splitter_sash_pos_changed),\n _ = setupTopSplitter(Frame),\n wxWindow:setSize(Frame, ?FRAME_SIZE_INIT),\n %% wxWindow:fit(Frame),\n wxFrame:center(Frame),\n Frame.\n\nsetupTopSplitter(Parent) ->\n Splitter = wxSplitterWindow:new(Parent, [{id, ?TOP_SPLITTER}]),\n ref_add(?TOP_SPLITTER, Splitter),\n LeftPanel = wxPanel:new(Splitter),\n LeftSizer = setupLeftColumn(LeftPanel),\n wxWindow:setSizer(LeftPanel, LeftSizer),\n _ = wxSizer:fit(LeftSizer, LeftPanel),\n RightPanel = wxPanel:new(Splitter),\n RightSizer = setupRightColumn(RightPanel),\n wxWindow:setSizer(RightPanel, RightSizer),\n _ = wxSizer:fit(RightSizer, RightPanel),\n wxSplitterWindow:setMinimumPaneSize(Splitter, ?MIN_TOP),\n wxSplitterWindow:setSashGravity(Splitter, ?GRAV_TOP),\n wxSplitterWindow:splitVertically(Splitter, LeftPanel, RightPanel),\n Splitter.\n\n%% Sets initial sizes for all splitters.\nsetSplitterInitSizes() ->\n Fun = fun(S, V) -> wxSplitterWindow:setSashPosition(ref_lookup(S), V)\n end,\n lists:foreach(fun ({S, V}) -> Fun(S, V) end, ?SPLITTER_INIT).\n\n%% Setup left column of top-level panel, including module and function\n%% listboxes and several buttons.\nsetupLeftColumn(Parent) ->\n Splitter = wxSplitterWindow:new(Parent, [{id, ?MOD_FUN_SPLITTER}]),\n ref_add(?MOD_FUN_SPLITTER, Splitter),\n ModulePanel = wxPanel:new(Splitter),\n ModuleSizer = setupModuleSizer(ModulePanel),\n wxWindow:setSizerAndFit(ModulePanel, ModuleSizer),\n FunctionPanel = wxPanel:new(Splitter),\n FunctionSizer = setupFunctionSizer(FunctionPanel),\n wxWindow:setSizerAndFit(FunctionPanel, FunctionSizer),\n wxSplitterWindow:setMinimumPaneSize(Splitter, ?MIN_MOD_FUN),\n wxSplitterWindow:setSashGravity(Splitter, ?GRAV_MOD_FUN),\n wxSplitterWindow:splitHorizontally(Splitter, ModulePanel, FunctionPanel),\n %% Add padding to the whole sizer.\n LeftColumnSizerOuter = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(LeftColumnSizerOuter, Splitter,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n LeftColumnSizerOuter.\n\nsetupModuleSizer(Parent) ->\n ModuleBox = wxStaticBox:new(Parent, ?wxID_ANY, \"Modules\"),\n ModuleList = wxListBox:new(Parent, ?MODULE_LIST),\n ref_add(?MODULE_LIST, ModuleList),\n AddButton = wxButton:new(Parent, ?ADD),\n RemButton = wxButton:new(Parent, ?REMOVE),\n ClearButton = wxButton:new(Parent, ?CLEAR),\n RefreshButton = wxButton:new(Parent, ?REFRESH),\n %% Setup button sizers\n AddRemSizer = wxBoxSizer:new(?wxHORIZONTAL),\n _ = wxSizer:add(AddRemSizer, AddButton,\n [{proportion, 1}, {flag, ?wxRIGHT}, {border, 5}]),\n _ = wxSizer:add(AddRemSizer, RemButton,\n [{proportion, 1}, {flag, ?wxLEFT}, {border, 5}]),\n ClrSizer = wxBoxSizer:new(?wxHORIZONTAL),\n _ = wxSizer:add(ClrSizer, ClearButton,\n [{proportion, 1}, {flag, ?wxRIGHT}, {border, 5}]),\n _ = wxSizer:add(ClrSizer, RefreshButton,\n [{proportion, 1}, {flag, ?wxLEFT}, {border, 5}]),\n %% Setup module sizers\n ModuleSizer = wxStaticBoxSizer:new(ModuleBox, ?wxVERTICAL),\n _ = wxSizer:add(ModuleSizer, ModuleList,\n [{proportion, 1},\n {flag, ?wxEXPAND bor ?wxTOP bor ?wxLEFT bor ?wxRIGHT},\n {border, 10}]),\n _ = wxSizer:add(ModuleSizer, AddRemSizer,\n [{proportion, 0},\n {flag, ?wxEXPAND bor ?wxTOP bor ?wxLEFT bor ?wxRIGHT},\n {border, 10}]),\n _ = wxSizer:add(ModuleSizer, ClrSizer,\n [{proportion, 0}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n %% Add padding to the whole sizer.\n ModuleSizerOuter = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(ModuleSizerOuter, ModuleSizer,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxBOTTOM},\n {border, 5}]),\n ModuleSizerOuter.\n\nsetupFunctionSizer(Parent) ->\n %% Create widgets\n FunctionBox = wxStaticBox:new(Parent, ?wxID_ANY, \"Functions\"),\n FunctionList = wxListBox:new(Parent, ?FUNCTION_LIST, [{style, ?wxLB_SORT}]),\n ref_add(?FUNCTION_LIST, FunctionList),\n AnalyzeButton = wxButton:new(Parent, ?ANALYZE, [{label, \"Ana&lyze\"}]),\n ref_add(?ANALYZE, AnalyzeButton),\n StopButton = wxButton:new(Parent, ?STOP, [{label, \"&Stop\"}]),\n ref_add(?STOP, StopButton),\n %% Setup sizers\n AnalStopSizer = wxBoxSizer:new(?wxHORIZONTAL),\n _ = wxSizer:add(AnalStopSizer, AnalyzeButton,\n [{proportion, 1}, {flag, ?wxRIGHT}, {border, 5}]),\n _ = wxSizer:add(AnalStopSizer, StopButton,\n [{proportion, 1}, {flag, ?wxLEFT}, {border, 5}]),\n ref_add(?ANAL_STOP_SIZER, AnalStopSizer),\n FunctionSizer = wxStaticBoxSizer:new(FunctionBox, ?wxVERTICAL),\n _ = wxSizer:add(FunctionSizer, FunctionList,\n [{proportion, 1},\n {flag, ?wxEXPAND bor ?wxTOP bor ?wxLEFT bor ?wxRIGHT},\n {border, 10}]),\n _ = wxSizer:add(FunctionSizer, AnalStopSizer,\n [{proportion, 0}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n %% Add padding to the whole sizer.\n FunctionSizerOuter = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(FunctionSizerOuter, FunctionSizer,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxTOP},\n {border, 0}]),\n FunctionSizerOuter.\n\n%% Setup right column of top-level panel, including a notebook for displaying\n%% tabbed main, graph and source code panels and another notebook for displaying\n%% log messages.\nsetupRightColumn(Parent) ->\n Splitter = wxSplitterWindow:new(Parent, [{id, ?NOTEBOOK_SPLITTER}]),\n ref_add(?NOTEBOOK_SPLITTER, Splitter),\n TopPanel = wxPanel:new(Splitter),\n TopSizer = setupMainNotebookSizer(TopPanel),\n wxWindow:setSizerAndFit(TopPanel, TopSizer),\n BottomPanel = wxPanel:new(Splitter),\n BottomSizer = setupLogNotebookSizer(BottomPanel),\n wxWindow:setSizerAndFit(BottomPanel, BottomSizer),\n wxSplitterWindow:setMinimumPaneSize(Splitter, ?MIN_NOTEBOOK),\n wxSplitterWindow:setSashGravity(Splitter, ?GRAV_NOTEBOOK),\n wxSplitterWindow:splitHorizontally(Splitter, TopPanel, BottomPanel),\n %% Add padding to the whole sizer.\n RightColumnSizerOuter = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(RightColumnSizerOuter, Splitter,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n RightColumnSizerOuter.\n\n%% Setup main notebook, containing 3 tabs:\n%% Main tab: Contains a list showing the errors encountered and another list\n%% showing the selected erroneous interleaving.\n%% Graph tab: Displays a process interaction graph of the selected erroneous\n%% interleaving.\n%% Source tab: Displays the source code for the selected module.\n%% TODO: Temporarily removed graph tab.\nsetupMainNotebookSizer(Parent) ->\n %% Notebook widgets.\n Notebook = wxNotebook:new(Parent, ?NOTEBOOK, [{style, ?wxNB_NOPAGETHEME}]),\n ref_add(?NOTEBOOK, Notebook),\n %% Setup tab panels.\n MainPanel = setupMainPanel(Notebook),\n _GraphPanel = setupGraphPanel(Notebook),\n SourcePanel = setupSourcePanel(Notebook),\n %% Add tabs to notebook.\n wxNotebook:addPage(Notebook, MainPanel, \"Main\", [{bSelect, true}]),\n %% TODO: Temporarily removed graph tab.\n %% wxNotebook:addPage(Notebook, GraphPanel, \"Graph\", [{bSelect, false}]),\n wxNotebook:addPage(Notebook, SourcePanel, \"Source\", [{bSelect, false}]),\n %% Add padding to the notebook.\n NotebookSizerOuter = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(NotebookSizerOuter, Notebook,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxBOTTOM},\n {border, 5}]),\n NotebookSizerOuter.\n\nsetupMainPanel(Parent) ->\n MainPanel = wxPanel:new(Parent),\n Splitter = wxSplitterWindow:new(MainPanel, [{id, ?ERROR_ILEAVE_SPLITTER}]),\n ref_add(?ERROR_ILEAVE_SPLITTER, Splitter),\n ErrorPanel = wxPanel:new(Splitter),\n ErrorSizer = setupErrorListSizer(ErrorPanel),\n wxWindow:setSizerAndFit(ErrorPanel, ErrorSizer),\n IleavePanel = wxPanel:new(Splitter),\n IleaveSizer = setupIleaveListSizer(IleavePanel),\n wxWindow:setSizerAndFit(IleavePanel, IleaveSizer),\n wxSplitterWindow:setMinimumPaneSize(Splitter, ?MIN_ERROR_ILEAVE),\n wxSplitterWindow:setSashGravity(Splitter, ?GRAV_ERROR_ILEAVE),\n wxSplitterWindow:splitVertically(Splitter, ErrorPanel, IleavePanel),\n %% Add padding to the panel.\n MainPanelSizerOuter = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(MainPanelSizerOuter, Splitter,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n wxWindow:setSizer(MainPanel, MainPanelSizerOuter),\n MainPanel.\n\nsetupErrorListSizer(Parent) ->\n ErrorBox = wxStaticBox:new(Parent, ?wxID_ANY, \"Errors\"),\n ErrorList = wxListBox:new(Parent, ?ERROR_LIST),\n ref_add(?ERROR_LIST, ErrorList),\n %% Setup sizers.\n ErrorSizer = wxStaticBoxSizer:new(ErrorBox, ?wxVERTICAL),\n _ = wxSizer:add(ErrorSizer, ErrorList,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n %% Add padding to the whole sizer.\n ErrorSizerOuter = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(ErrorSizerOuter, ErrorSizer,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxRIGHT},\n {border, 5}]),\n ErrorSizerOuter.\n\nsetupIleaveListSizer(Parent) ->\n IleaveBox = wxStaticBox:new(Parent, ?wxID_ANY, \"Process interleaving\"),\n IleaveList = wxListBox:new(Parent, ?ILEAVE_LIST),\n ref_add(?ILEAVE_LIST, IleaveList),\n %% Setup sizers.\n IleaveSizer = wxStaticBoxSizer:new(IleaveBox, ?wxVERTICAL),\n _ = wxSizer:add(IleaveSizer, IleaveList,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n %% Add padding to the whole sizer.\n IleaveSizerOuter = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(IleaveSizerOuter, IleaveSizer,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxLEFT},\n {border, 5}]),\n IleaveSizerOuter.\n\n%% Setup the graph panel.\n%% A static bitmap combined with a scrolled window is used for\n%% displaying the graph image.\nsetupGraphPanel(Parent) ->\n Panel = wxPanel:new(Parent),\n ScrGraph = wxScrolledWindow:new(Panel),\n ref_add(?SCR_GRAPH, ScrGraph),\n wxWindow:setOwnBackgroundColour(ScrGraph, {255, 255, 255}),\n wxWindow:clearBackground(ScrGraph),\n Bmp = wxBitmap:new(),\n StaticBmp = wxStaticBitmap:new(ScrGraph, ?STATIC_BMP, Bmp),\n ref_add(?STATIC_BMP, StaticBmp),\n %% Setup sizer.\n PanelSizer = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(PanelSizer, ScrGraph,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n wxWindow:setSizer(Panel, PanelSizer),\n Panel.\n\nsetupSourcePanel(Parent) ->\n Panel = wxPanel:new(Parent),\n SourceText = wxStyledTextCtrl:new(Panel),\n ref_add(?SOURCE_TEXT, SourceText),\n setupSourceText(SourceText, light),\n %% Setup sizer.\n PanelSizer = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(PanelSizer, SourceText,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n wxWindow:setSizer(Panel, PanelSizer),\n Panel.\n\n%% Setup source viewer, using a styled text control.\n%% Ref is a reference to the wxStyledTextCtrl object and theme is\n%% either 'light' or 'dark'.\nsetupSourceText(Ref, Theme) ->\n NormalFont = wxFont:new(10, ?wxFONTFAMILY_TELETYPE, ?wxNORMAL,\n ?wxNORMAL, []),\n BoldFont = wxFont:new(10, ?wxFONTFAMILY_TELETYPE, ?wxNORMAL,\n ?wxBOLD, []),\n case Theme of\n dark ->\n Styles = ?SOURCE_STYLES_DARK,\n BgColor = ?SOURCE_BG_DARK;\n light ->\n Styles = ?SOURCE_STYLES_LIGHT,\n BgColor = ?SOURCE_BG_LIGHT\n end,\n wxStyledTextCtrl:styleClearAll(Ref),\n wxStyledTextCtrl:styleSetFont(Ref, ?wxSTC_STYLE_DEFAULT, NormalFont),\n wxStyledTextCtrl:styleSetBackground(Ref, ?wxSTC_STYLE_DEFAULT, BgColor),\n wxStyledTextCtrl:setLexer(Ref, ?wxSTC_LEX_ERLANG),\n wxStyledTextCtrl:setMarginType(Ref, 0, ?wxSTC_MARGIN_NUMBER),\n Width = wxStyledTextCtrl:textWidth(Ref, ?wxSTC_STYLE_LINENUMBER, \"99999\"),\n wxStyledTextCtrl:setMarginWidth(Ref, 0, Width),\n wxStyledTextCtrl:setMarginWidth(Ref, 1, 0),\n %% wxStyledTextCtrl:setScrollWidth(Ref, 1000),\n %% wxStyledTextCtrl:setSelectionMode(Ref, ?wxSTC_SEL_LINES),\n wxStyledTextCtrl:setReadOnly(Ref, true),\n wxStyledTextCtrl:setWrapMode(Ref, ?wxSTC_WRAP_WORD),\n SetStyles = fun({Style, Color, Option}) ->\n case Option of\n bold ->\n wxStyledTextCtrl:styleSetFont(Ref,\n Style,\n BoldFont);\n _Other ->\n wxStyledTextCtrl:styleSetFont(Ref,\n Style,\n NormalFont)\n end,\n wxStyledTextCtrl:styleSetForeground(Ref, Style, Color),\n wxStyledTextCtrl:styleSetBackground(Ref, Style, BgColor)\n end,\n lists:foreach(fun(Style) -> SetStyles(Style) end, Styles),\n wxStyledTextCtrl:setKeyWords(Ref, 0, ?KEYWORDS).\n\n%% Setup a notebook for displaying log messages.\nsetupLogNotebookSizer(Parent) ->\n %% Log notebook widgets (notebook -> panel -> textcontrol).\n Notebook = wxNotebook:new(Parent, ?LOG_NOTEBOOK,\n [{style, ?wxNB_NOPAGETHEME}]),\n ref_add(?LOG_NOTEBOOK, Notebook),\n %% Setup tab panels\n LogPanel = setupLogPanel(Notebook),\n ErrorPanel = setupErrorPanel(Notebook),\n %% Add tabs to log notebook.\n wxNotebook:addPage(Notebook, LogPanel, \"Log\", [{bSelect, true}]),\n wxNotebook:addPage(Notebook, ErrorPanel, \"Problems\", [{bSelect, false}]),\n NotebookSizerOuter = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(NotebookSizerOuter, Notebook,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxBOTTOM},\n {border, 0}]),\n NotebookSizerOuter.\n\nsetupLogPanel(Parent) ->\n Panel = wxPanel:new(Parent),\n LogText = wxTextCtrl:new(Panel, ?LOG_TEXT,\n [{style, ?wxTE_MULTILINE bor ?wxTE_READONLY}]),\n ref_add(?LOG_TEXT, LogText),\n Style = wxTextAttr:new(),\n wxTextAttr:setFont(Style, wxFont:new(10, ?wxFONTFAMILY_MODERN,\n ?wxFONTSTYLE_NORMAL, -1)),\n wxTextCtrl:setDefaultStyle(LogText, Style),\n PanelSizer = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(PanelSizer, LogText,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n wxWindow:setSizer(Panel, PanelSizer),\n Panel.\n\nsetupErrorPanel(Parent) ->\n Panel = wxPanel:new(Parent),\n ErrorText = wxTextCtrl:new(Panel, ?ERROR_TEXT,\n [{style, ?wxTE_MULTILINE bor ?wxTE_READONLY}]),\n ref_add(?ERROR_TEXT, ErrorText),\n Style = wxTextAttr:new(),\n wxTextAttr:setFont(Style, wxFont:new(10, ?wxFONTFAMILY_MODERN,\n ?wxFONTSTYLE_NORMAL, -1)),\n wxTextCtrl:setDefaultStyle(ErrorText, Style),\n PanelSizer = wxBoxSizer:new(?wxVERTICAL),\n _ = wxSizer:add(PanelSizer, ErrorText,\n [{proportion, 1}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n wxWindow:setSizer(Panel, PanelSizer),\n Panel.\n\n%% Menu constructor according to specification (see gui.hrl).\nsetupMenu(MenuBar, [{Title, Items}|Rest]) ->\n setupMenu(MenuBar, [{Title, Items, []}|Rest]);\nsetupMenu(_MenuBar, []) ->\n ok;\nsetupMenu(MenuBar, [{Title, Items, Options}|Rest]) ->\n Menu = wxMenu:new(Options),\n setupMenuItems(Menu, Items),\n wxMenuBar:append(MenuBar, Menu, Title),\n setupMenu(MenuBar, Rest).\n\nsetupMenuItems(_Menu, []) ->\n ok;\nsetupMenuItems(Menu, [Options|Rest]) ->\n Item =\n case lists:keytake(sub, 1, Options) of\n {value, {sub, SubItems}, NewOptions} ->\n Submenu = wxMenu:new(),\n setupMenuItems(Submenu, SubItems),\n I = createMenuItem(NewOptions),\n wxMenuItem:setSubMenu(I, Submenu),\n I;\n false -> createMenuItem(Options)\n end,\n _ = wxMenu:append(Menu, Item),\n setupMenuItems(Menu, Rest).\n\ncreateMenuItem(Options) ->\n case lists:keytake(label, 1, Options) of\n {value, {label, Label}, NewOptions} ->\n Item = wxMenuItem:new(NewOptions),\n ref_add(Label, Item),\n Item;\n false -> wxMenuItem:new(Options)\n end.\n\n%%%----------------------------------------------------------------------\n%%% GUI element reference store/retrieve interface\n%%%----------------------------------------------------------------------\n\nref_add(Id, Ref) ->\n ets:insert(?NT_REF, {Id, Ref}).\n\nref_lookup(Id) ->\n ets:lookup_element(?NT_REF, Id, 2).\n\nref_start() ->\n ?NT_REF = ets:new(?NT_REF, [set, public, named_table]),\n ok.\n\nref_stop() ->\n ets:delete(?NT_REF).\n\n%%%----------------------------------------------------------------------\n%%% Helper functions\n%%%----------------------------------------------------------------------\n\naddArgs(_Parent, _Sizer, Max, Max, Refs) ->\n lists:reverse(Refs);\naddArgs(Parent, Sizer, I, Max, Refs) ->\n %% XXX: semi-hack, custom width, default height (-1)\n Ref = wxTextCtrl:new(Parent, ?wxID_ANY, [{size, {170, -1}}]),\n HorizSizer = wxBoxSizer:new(?wxHORIZONTAL),\n _ = wxSizer:add(HorizSizer,\n wxStaticText:new(Parent, ?wxID_ANY,\n io_lib:format(\"Arg~p: \", [I + 1])),\n [{proportion, 0}, {flag, ?wxALIGN_CENTER bor ?wxRIGHT},\n {border, 5}]),\n _ = wxSizer:add(HorizSizer, Ref, [{proportion, 1},\n {flag, ?wxALIGN_CENTER bor ?wxALL},\n {border, 0}]),\n _ = wxSizer:add(Sizer, HorizSizer, [{proportion, 0},\n {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n addArgs(Parent, Sizer, I + 1, Max, [Ref|Refs]).\n\n%% Module-adding dialog\naddDialog(Parent) ->\n Caption = \"Open erlang module\",\n Wildcard = \"Erlang source|*.erl| All files|*\",\n DefaultDir = ref_lookup(?FILE_PATH),\n DefaultFile = \"\",\n Dialog = wxFileDialog:new(Parent, [{message, Caption},\n {defaultDir, DefaultDir},\n {defaultFile, DefaultFile},\n {wildCard, Wildcard},\n {style, ?wxFD_OPEN bor\n ?wxFD_FILE_MUST_EXIST bor\n ?wxFD_MULTIPLE}]),\n case wxDialog:showModal(Dialog) of\n ?wxID_OK ->\n NewFiles = wxFileDialog:getPaths(Dialog),\n ModuleList = ref_lookup(?MODULE_LIST),\n OldFiles = getStrings(ModuleList),\n case checkDuplicates(OldFiles, NewFiles) of\n false ->\n addListItems(?MODULE_LIST, NewFiles),\n ref_add(?FILE_PATH, getDirectory());\n Duplicates ->\n wxTextCtrl:appendText(ref_lookup(?ERROR_TEXT),\n io_lib:format(\"Duplicate modules: \"\n \"~p~n\",\n [Duplicates])),\n continue\n end;\n _Other -> continue\n end,\n wxDialog:destroy(Dialog).\n\naddListData(Id, DataList) ->\n List = ref_lookup(Id),\n Count = wxControlWithItems:getCount(List),\n setListData_aux(List, DataList, Count - 1).\n\n%% Add items to ListBox (Id) and select first of newly added modules\naddListItems(Id, Items) ->\n List = ref_lookup(Id),\n Count = wxControlWithItems:getCount(List),\n wxListBox:insertItems(List, Items, Count),\n wxControlWithItems:setSelection(List, Count).\n\nanalyze_proc() ->\n Env = wx:get_env(),\n spawn_link(fun() ->\n wx:set_env(Env),\n analyze(),\n send_event_msg_to_self(?ERROR_LIST)\n end).\n\n%% Analyze selected function.\nanalyze() ->\n Module = getModule(),\n {Function, Arity} = getFunction(),\n ModuleList = ref_lookup(?MODULE_LIST),\n %% Get the list of files to be instrumented.\n Files = getStrings(ModuleList),\n %% Check if a module and function is selected.\n if Module =/= '', Function =/= '' ->\n case Arity of\n 0 -> analyze_aux(Module, Function, [], Files);\n %% If the function to be analyzed is of non-zero arity,\n %% a dialog window is displayed prompting the user to enter\n %% the function's arguments.\n Count ->\n Frame = ref_lookup(?FRAME),\n case argDialog(Frame, Count) of\n {ok, Args} ->\n analyze_aux(Module, Function, Args, Files);\n %% User pressed 'cancel' or closed dialog window.\n _Other -> continue\n end\n end;\n true -> continue\n end.\n\nanalyze_aux(Module, Function, Args, Files) ->\n analysis_init(),\n Target = {Module, Function, Args},\n Preb = case ref_lookup(?PREF_PREB_ENABLED) of\n true -> {preb, ref_lookup(?PREF_PREB_BOUND)};\n false -> {preb, inf}\n end,\n Include = {'include', ref_lookup(?PREF_INCLUDE)},\n Define = {'define', ref_lookup(?PREF_DEFINE)},\n Dpor = case ets:lookup(?NT_OPTIONS, 'dpor') of\n [] -> {'dpor', 'none'};\n [Flavor] -> Flavor\n end,\n Opts = [Include, Define, Preb, Dpor],\n Result = concuerror_sched:analyze(Target, Files, Opts),\n ref_add(?ANALYSIS_RET, Result),\n analysis_cleanup().\n\n\n%% Initialization actions before starting analysis (clear log, etc.).\nanalysis_init() ->\n Separator = \"----o----o----o----o----o----o----o----o----o----o----o\\n\",\n wxTextCtrl:appendText(ref_lookup(?LOG_TEXT), Separator),\n clearProbs(),\n clearErrors(),\n clearIleaves(),\n disableMenuItems(),\n AnalStopSizer = ref_lookup(?ANAL_STOP_SIZER),\n AnalyzeButton = ref_lookup(?ANALYZE),\n Parent = wxWindow:getParent(AnalyzeButton),\n AnalyzeGauge = wxGauge:new(Parent, ?wxID_ANY, 100,\n [{style, ?wxGA_HORIZONTAL}]),\n ref_add(?ANALYZE_GAUGE, AnalyzeGauge),\n wxSizer:replace(AnalStopSizer, AnalyzeButton, AnalyzeGauge),\n wxWindow:destroy(AnalyzeButton),\n wxSizer:layout(AnalStopSizer),\n start_pulsing(AnalyzeGauge).\n\n%% Cleanup actions after completing analysis\n%% (reactivate `analyze` button, etc.).\nanalysis_cleanup() ->\n enableMenuItems(),\n AnalyzeGauge = ref_lookup(?ANALYZE_GAUGE),\n stop_pulsing(AnalyzeGauge),\n AnalStopSizer = ref_lookup(?ANAL_STOP_SIZER),\n Parent = wxWindow:getParent(AnalyzeGauge),\n AnalyzeButton = wxButton:new(Parent, ?ANALYZE, [{label, \"Ana&lyze\"}]),\n ref_add(?ANALYZE, AnalyzeButton),\n wxSizer:replace(AnalStopSizer, AnalyzeGauge, AnalyzeButton),\n wxWindow:destroy(AnalyzeGauge),\n wxMenuItem:enable(ref_lookup(?STOP_MENU_ITEM)),\n try\n StopGauge = ref_lookup(?STOP_GAUGE),\n stop_pulsing(StopGauge),\n StopButton = wxButton:new(Parent, ?STOP, [{label, \"&Stop\"}]),\n ref_add(?STOP, StopButton),\n wxSizer:replace(AnalStopSizer, StopGauge, StopButton),\n wxWindow:destroy(StopGauge)\n catch\n error:badarg -> continue\n end,\n wxSizer:layout(AnalStopSizer).\n\ncheckDuplicates(OldFiles, NewFiles) ->\n OldBase = [concuerror_util:get_module_name(O) || O <- OldFiles],\n NewBase = [concuerror_util:get_module_name(N) || N <- NewFiles],\n IBase = sets:intersection(sets:from_list(OldBase), sets:from_list(NewBase)),\n case sets:size(IBase) of\n 0 -> false;\n _ -> sets:to_list(IBase)\n end.\n\nstart_pulsing(Gauge) ->\n Env = wx:get_env(),\n Pid = spawn(fun() -> wx:set_env(Env), pulse(Gauge) end),\n [Hash] = io_lib:format(\"~c\", [erlang:phash2(Gauge)]),\n Reg = list_to_atom(\"_._GP_\" ++ Hash),\n register(Reg, Pid).\n\nstop_pulsing(Gauge) ->\n [Hash] = io_lib:format(\"~c\", [erlang:phash2(Gauge)]),\n Reg = list_to_atom(\"_._GP_\" ++ Hash),\n Reg ! stop.\n\npulse(Gauge) ->\n wxGauge:pulse(Gauge),\n receive\n stop -> ok\n after 200 -> pulse(Gauge)\n end.\n\n%% Dialog prompting the user to insert function arguments (valid erlang terms\n%% without the terminating `.`).\nargDialog(Parent, Argnum) ->\n Dialog = wxDialog:new(Parent, ?wxID_ANY, \"Enter arguments\"),\n TopSizer = wxBoxSizer:new(?wxVERTICAL),\n Box = wxStaticBox:new(Dialog, ?wxID_ANY, \"Arguments\"),\n InSizer = wxStaticBoxSizer:new(Box, ?wxVERTICAL),\n Refs = addArgs(Dialog, InSizer, 0, Argnum, []),\n ButtonSizer = wxBoxSizer:new(?wxHORIZONTAL),\n _ = wxSizer:add(ButtonSizer, wxButton:new(Dialog, ?wxID_OK),\n [{proportion, 0}, {flag, ?wxRIGHT}, {border, 5}]),\n _ = wxSizer:add(ButtonSizer, wxButton:new(Dialog, ?wxID_CANCEL),\n [{proportion, 0}, {flag, ?wxLEFT}, {border, 5}]),\n _ = wxSizer:add(TopSizer, InSizer,\n [{proportion, 0}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n _ = wxSizer:add(TopSizer, ButtonSizer,\n [{proportion, 0},\n {flag, ?wxALIGN_CENTER bor\n ?wxRIGHT bor ?wxLEFT bor ?wxBOTTOM},\n {border, 10}]),\n wxWindow:setSizer(Dialog, TopSizer),\n _ = wxSizer:fit(TopSizer, Dialog),\n case wxDialog:showModal(Dialog) of\n ?wxID_OK ->\n clearProbs(),\n ValResult = validateArgs(0, Refs, [], ?ERROR_TEXT),\n wxDialog:destroy(Dialog),\n case ValResult of\n {ok, _Args} = Ok -> Ok;\n _Other -> argDialog(Parent, Argnum)\n end;\n _Other -> wxDialog:destroy(Dialog), continue\n end.\n\n%% Preferences dialog.\nprefsDialog(Parent) ->\n %% Get current preferences.\n PrebEnabled = ref_lookup(?PREF_PREB_ENABLED),\n PrebBound = ref_lookup(?PREF_PREB_BOUND),\n %% Set up sizers and components.\n Dialog = wxDialog:new(Parent, ?wxID_ANY, \"Preferences\"),\n TopSizer = wxBoxSizer:new(?wxVERTICAL),\n %% Preemption bounding options.\n PrebBox = wxStaticBox:new(Dialog, ?wxID_ANY, \"Preemption bounding\"),\n PrebBoxSizer = wxStaticBoxSizer:new(PrebBox, ?wxVERTICAL),\n HorizSizer1 = wxBoxSizer:new(?wxHORIZONTAL),\n %% Semi-hack: Custom width, default height.\n PrebEnabledCheckBox = wxCheckBox:new(Dialog, ?PREB_ENABLED_CBOX,\n \"\",\n [{style, ?wxALIGN_RIGHT}]),\n ref_add(?PREB_ENABLED_CBOX, PrebEnabledCheckBox),\n wxCheckBox:setValue(PrebEnabledCheckBox, PrebEnabled),\n _ = wxSizer:add(HorizSizer1,\n wxStaticText:new(Dialog, ?wxID_ANY,\n \"Enable preemption bounding:\"),\n [{proportion, 1}, {flag, ?wxALIGN_CENTER bor ?wxALL},\n {border, 0}]),\n _ = wxSizer:add(HorizSizer1, PrebEnabledCheckBox,\n [{proportion, 0}, {flag, ?wxALIGN_CENTER bor ?wxALL},\n {border, 0}]),\n HorizSizer2 = wxBoxSizer:new(?wxHORIZONTAL),\n PrebBoundSpinCtrl = wxSpinCtrl:new(Dialog, [{id, ?PREB_BOUND_SPIN},\n {size, {50, -1}},\n {min, 0},\n {initial, PrebBound}]),\n _ = wxSizer:add(HorizSizer2,\n wxStaticText:new(Dialog, ?wxID_ANY, \"Preemption bound:\"),\n [{proportion, 1}, {flag, ?wxALIGN_CENTER bor ?wxALL},\n {border, 0}]),\n _ = wxSizer:add(HorizSizer2, PrebBoundSpinCtrl,\n [{proportion, 0}, {flag, ?wxALIGN_CENTER bor ?wxALL},\n {border, 0}]),\n _ = wxSizer:add(PrebBoxSizer, HorizSizer1,\n [{proportion, 0}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n _ = wxSizer:add(PrebBoxSizer, HorizSizer2,\n [{proportion, 0}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n %% Buttons.\n ButtonSizer = wxBoxSizer:new(?wxHORIZONTAL),\n _ = wxSizer:add(ButtonSizer, wxButton:new(Dialog, ?wxID_CANCEL),\n [{proportion, 3}, {flag, ?wxLEFT}, {border, 0}]),\n _ = wxSizer:addStretchSpacer(ButtonSizer),\n _ = wxSizer:add(ButtonSizer,\n wxButton:new(Dialog, ?wxID_OK, [{label, \"&Save\"}]),\n [{proportion, 4}, {flag, ?wxRIGHT}, {border, 0}]),\n %% Top level sizer.\n _ = wxSizer:add(TopSizer, PrebBoxSizer,\n [{proportion, 0}, {flag, ?wxEXPAND bor ?wxALL},\n {border, 10}]),\n _ = wxSizer:add(TopSizer, ButtonSizer,\n [{proportion, 0},\n {flag, ?wxALIGN_CENTER bor ?wxEXPAND bor\n ?wxRIGHT bor ?wxLEFT bor ?wxBOTTOM},\n {border, 10}]),\n wxWindow:setSizer(Dialog, TopSizer),\n _ = wxSizer:fit(TopSizer, Dialog),\n %% Show dialog.\n case wxDialog:showModal(Dialog) of\n ?wxID_OK ->\n %% Save preferences.\n ref_add(?PREF_PREB_ENABLED,\n wxCheckBox:getValue(PrebEnabledCheckBox)),\n ref_add(?PREF_PREB_BOUND,\n wxSpinCtrl:getValue(PrebBoundSpinCtrl));\n _Other ->\n continue\n end.\n\n%% For now always load default preferences on startup.\nloadPrefs(Options) ->\n %% Set initial file load path (used by the module addition dialog).\n ref_add(?FILE_PATH, \".\"),\n %% Disable save as (we don't have any results yet)\n wxMenuItem:enable(ref_lookup(?SAVEAS_MENU_ITEM), [{enable, false}]),\n ref_add(?ANALYSIS_RET, undef),\n %% Set files\n case lists:keyfind('files', 1, Options) of\n false -> continue;\n {'files', Files} ->\n AbsFiles = [filename:absname(F) || F <- Files],\n ErlFiles = [F || F <- AbsFiles, concuerror_util:is_erl_source(F)],\n addListItems(?MODULE_LIST, ErlFiles)\n end,\n %% Set include_dirs\n case lists:keyfind('include', 1, Options) of\n false -> ref_add(?PREF_INCLUDE, ?DEFAULT_INCLUDE);\n {'include', Include} -> ref_add(?PREF_INCLUDE, Include)\n end,\n %% Set defined macros\n case lists:keyfind('define', 1, Options) of\n false -> ref_add(?PREF_DEFINE, ?DEFAULT_DEFINE);\n {'define', Define} -> ref_add(?PREF_DEFINE, Define)\n end,\n %% Set preemption bound\n case lists:keyfind('preb', 1, Options) of\n false ->\n ref_add(?PREF_PREB_ENABLED, true),\n ref_add(?PREF_PREB_BOUND, ?DEFAULT_PREB);\n {'preb', inf} ->\n ref_add(?PREF_PREB_ENABLED, false),\n ref_add(?PREF_PREB_BOUND, ?DEFAULT_PREB);\n {'preb', Preb} ->\n ref_add(?PREF_PREB_ENABLED, true),\n ref_add(?PREF_PREB_BOUND, Preb)\n end.\n\n%% Do nothing for now.\nsavePrefs() ->\n ok.\n\n%%clearAll() ->\n%% clearMods(),\n%% clearFuns(),\n%% clearSrc(),\n%% clearLog(),\n%% clearProbs(),\n%% clearErrors(),\n%% clearIleaves().\n\nclearErrors() ->\n ErrorList = ref_lookup(?ERROR_LIST),\n wxListBox:setSelection(ErrorList, ?wxNOT_FOUND),\n wxControlWithItems:clear(ErrorList).\n\nclearFuns() ->\n FunctionList = ref_lookup(?FUNCTION_LIST),\n wxListBox:setSelection(FunctionList, ?wxNOT_FOUND),\n wxControlWithItems:clear(FunctionList).\n\nclearIleaves() ->\n IleaveList = ref_lookup(?ILEAVE_LIST),\n wxListBox:setSelection(IleaveList, ?wxNOT_FOUND),\n wxControlWithItems:clear(IleaveList).\n\n%%clearLog() ->\n%% LogText = ref_lookup(?LOG_TEXT),\n%% wxTextCtrl:clear(LogText).\n\nclearMods() ->\n ModuleList = ref_lookup(?MODULE_LIST),\n wxListBox:setSelection(ModuleList, ?wxNOT_FOUND),\n wxControlWithItems:clear(ModuleList).\n\nclearProbs() ->\n ErrorText = ref_lookup(?ERROR_TEXT),\n wxTextCtrl:clear(ErrorText).\n\nclearSrc() ->\n SourceText = ref_lookup(?SOURCE_TEXT),\n wxStyledTextCtrl:setReadOnly(SourceText, false),\n wxStyledTextCtrl:clearAll(SourceText),\n wxStyledTextCtrl:setReadOnly(SourceText, true).\n\ndisableMenuItems() ->\n Opts = [{enable, false}],\n wxMenuItem:enable(ref_lookup(?ANALYZE_MENU_ITEM), Opts),\n wxMenuItem:enable(ref_lookup(?SAVEAS_MENU_ITEM), Opts).\n\nenableMenuItems() ->\n wxMenuItem:enable(ref_lookup(?ANALYZE_MENU_ITEM)),\n wxMenuItem:enable(ref_lookup(?SAVEAS_MENU_ITEM)).\n\n%% Export dialog\nexportDialog(Parent) ->\n Caption = \"Save to \" ++ ?APP_STRING ++ \" file\",\n Wildcard = \"Text files |*\" ++ ?EXPORT_EXT,\n DefaultDir = \".\",\n DefaultFile = \"\",\n Dialog = wxFileDialog:new(Parent, [{message, Caption},\n {defaultDir, DefaultDir},\n {defaultFile, DefaultFile},\n {wildCard, Wildcard},\n {style, ?wxFD_SAVE bor\n ?wxFD_OVERWRITE_PROMPT}]),\n wxFileDialog:setFilename(Dialog, ?EXPORT_FILE),\n case wxDialog:showModal(Dialog) of\n ?wxID_OK ->\n AnalysisRet = ref_lookup(?ANALYSIS_RET),\n Output = wxFileDialog:getPath(Dialog),\n concuerror_log:log(0, \"Writing output to file ~s... \", [Output]),\n case concuerror:export(AnalysisRet, Output) of\n {'error', Msg} ->\n concuerror_log:log(0, \"~s\\n\", [file:format_error(Msg)]);\n ok ->\n concuerror_log:log(0, \"done\\n\")\n end;\n _Other -> continue\n end,\n wxDialog:destroy(Dialog).\n\n%% Return the directory path of selected module.\ngetDirectory() ->\n ModuleList = ref_lookup(?MODULE_LIST),\n Path = wxControlWithItems:getStringSelection(ModuleList),\n Match = re:run(Path, \"(?.*)/*?\\.erl\\$\",\n [dotall, {capture, ['PATH'], list}]),\n case Match of\n {match, [Dir]} -> Dir;\n nomatch -> \"\"\n end.\n\n%% Return the selected function and arity from the function list.\n%% The result is returned in the form {Function, Arity}, where Function\n%% is an atom and Arity is an integer.\ngetFunction() ->\n FunctionList = ref_lookup(?FUNCTION_LIST),\n Expr = wxControlWithItems:getStringSelection(FunctionList),\n Match = re:run(Expr, \"(?.*)/(?.*)\\$\",\n [dotall, {capture, ['FUN', 'ARITY'], list}]),\n case Match of\n {match, [Fun, Arity]} ->\n {list_to_atom(Fun), list_to_integer(Arity)};\n nomatch -> {'', 0}\n end.\n\n%% Return the selected module from the module list.\n%% The result is an atom.\ngetModule() ->\n ModuleList = ref_lookup(?MODULE_LIST),\n Path = wxControlWithItems:getStringSelection(ModuleList),\n Match = re:run(Path, \".*/(?.*?)\\.erl\\$\",\n [dotall, {capture, ['MODULE'], list}]),\n case Match of\n {match, [Module]} -> list_to_atom(Module);\n nomatch -> ''\n end.\n\n%% wxControlWithItems:getStrings (function missing from wxErlang lib).\ngetStrings(Ref) ->\n Count = wxControlWithItems:getCount(Ref),\n if Count > 0 -> getStrings(Ref, 0, Count, []);\n true -> []\n end.\n\n%% Auxiliary function to the above.\ngetStrings(_Ref, Count, Count, Strings) ->\n Strings;\ngetStrings(Ref, N, Count, Strings) ->\n String = wxControlWithItems:getString(Ref, N),\n getStrings(Ref, N + 1, Count, [String|Strings]).\n\n%% Refresh selected module (reload source code from disk).\n%% NOTE: When switching selected modules, no explicit refresh\n%% by the user is required, because the `command_listbox_selected`\n%% event for the module-list uses this function.\nrefresh() ->\n ModuleList = ref_lookup(?MODULE_LIST),\n case wxListBox:getSelection(ModuleList) of\n ?wxNOT_FOUND -> continue;\n _Other ->\n Module = wxListBox:getStringSelection(ModuleList),\n %% Scan selected module for exported functions.\n Funs = concuerror_util:funs(Module, string),\n setListItems(?FUNCTION_LIST, Funs),\n %% Update source viewer.\n SourceText = ref_lookup(?SOURCE_TEXT),\n wxStyledTextCtrl:setReadOnly(SourceText, false),\n wxStyledTextCtrl:loadFile(SourceText, Module),\n wxStyledTextCtrl:setReadOnly(SourceText, true)\n end.\n\n%% Refresh source code (show selected function).\nrefreshFun() ->\n Module = getModule(),\n {Function, Arity} = getFunction(),\n %% Check if a module and function is selected.\n if Module =/= '', Function =/= '' ->\n ModuleList = ref_lookup(?MODULE_LIST),\n case wxListBox:getSelection(ModuleList) of\n ?wxNOT_FOUND -> continue;\n _Other ->\n Path = wxListBox:getStringSelection(ModuleList),\n %% Scan selected module for selected function line number.\n Line = concuerror_util:funLine(Path, Function, Arity),\n %% Update source viewer.\n SourceText = ref_lookup(?SOURCE_TEXT),\n wxStyledTextCtrl:gotoLine(SourceText, Line),\n wxStyledTextCtrl:lineUpExtend(SourceText)\n end;\n true -> continue\n end.\n\n%% Remove selected module from module list.\nremove() ->\n ModuleList = ref_lookup(?MODULE_LIST),\n Selection = wxListBox:getSelection(ModuleList),\n SourceText = ref_lookup(?SOURCE_TEXT),\n if Selection =:= ?wxNOT_FOUND ->\n continue;\n true ->\n wxControlWithItems:delete(ModuleList, Selection),\n Count = wxControlWithItems:getCount(ModuleList),\n if Count =:= 0 ->\n clearFuns(),\n wxStyledTextCtrl:setReadOnly(SourceText, false),\n wxStyledTextCtrl:clearAll(SourceText),\n wxStyledTextCtrl:setReadOnly(SourceText, true);\n Selection =:= Count ->\n wxControlWithItems:setSelection(ModuleList, Selection - 1);\n true ->\n wxControlWithItems:setSelection(ModuleList, Selection)\n end\n end.\n\n%% Kill the analysis process.\nstop() ->\n try\n ?RP_SCHED ! stop_analysis\n%% wxMenuItem:enable(ref_lookup(?STOP_MENU_ITEM), [{enable, false}]),\n%% StopButton = ref_lookup(?STOP),\n%% Parent = wxWindow:getParent(StopButton),\n%% StopGauge = wxGauge:new(Parent, ?wxID_ANY, 100,\n%% [{style, ?wxGA_HORIZONTAL}]),\n%% ref_add(?STOP_GAUGE, StopGauge),\n%% AnalStopSizer = ref_lookup(?ANAL_STOP_SIZER),\n%% wxSizer:replace(AnalStopSizer, StopButton, StopGauge),\n%% wxWindow:destroy(StopButton),\n%% wxSizer:layout(AnalStopSizer),\n%% start_pulsing(StopGauge)\n catch\n error:badarg -> continue\n end.\n\n%% XXX: hack (send event message to self)\nsend_event_msg_to_self(Id) ->\n Cmd = #wxCommand{type = command_listbox_selected},\n ?RP_GUI ! #wx{id = Id, event = Cmd},\n ok.\n\n%% Set ListBox (Id) data (remove existing).\n%%setListData(Id, DataList) ->\n%% List = ref_lookup(Id),\n%% setListData_aux(List, DataList, 0).\n\nsetListData_aux(_List, [], _N) ->\n ok;\nsetListData_aux(List, [Data|Rest], N) ->\n wxControlWithItems:setClientData(List, N, Data),\n setListData_aux(List, Rest, N + 1).\n\n%% Set ListBox (Id) items (remove existing).\nsetListItems(Id, Items) ->\n if Items =/= [], Items =/= [[]] ->\n List = ref_lookup(Id),\n wxListBox:set(List, Items),\n wxControlWithItems:setSelection(List, 0);\n true -> continue\n end.\n\n%% Show detailed interleaving information about the selected error.\nshow_details() ->\n ErrorList = ref_lookup(?ERROR_LIST),\n IleaveList = ref_lookup(?ILEAVE_LIST),\n case wxControlWithItems:getSelection(ErrorList) of\n ?wxNOT_FOUND -> continue;\n Id ->\n wxControlWithItems:clear(IleaveList),\n Ticket = wxControlWithItems:getClientData(ErrorList, Id),\n setListItems(?ILEAVE_LIST,\n concuerror_ticket:details_to_strings(Ticket)),\n clearProbs(),\n Error = concuerror_ticket:get_error(Ticket),\n wxTextCtrl:appendText(ref_lookup(?ERROR_TEXT),\n concuerror_error:long(Error))\n end.\n\n%% Validate user provided function arguments.\n%% The arguments are first scanned and then parsed to ensure that they\n%% represent valid erlang terms.\n%% Returns {ok, ListOfArgs} if everything is valid, else 'error' is returned\n%% and error messages are written to the log.\nvalidateArgs(_I, [], Args, _ErrorId) ->\n {ok, lists:reverse(Args)};\nvalidateArgs(I, [Ref|Refs], Args, ErrorId) ->\n String = wxTextCtrl:getValue(Ref) ++ \".\",\n case erl_scan:string(String) of\n {ok, T, _} ->\n case erl_parse:parse_term(T) of\n {ok, Arg} -> validateArgs(I + 1, Refs, [Arg|Args], ErrorId);\n {error, {_, _, Info}} ->\n wxTextCtrl:appendText(ref_lookup(?ERROR_TEXT),\n io_lib:format(\"Arg ~p - ~s~n\",\n [I + 1, Info])),\n error\n end;\n {error, {_, _, Info}, _} ->\n wxTextCtrl:appendText(ref_lookup(?ERROR_TEXT), Info ++ \"\\n\"),\n error\n end.\n\n\n\n%%%----------------------------------------------------------------------\n%%% Main event loop\n%%%----------------------------------------------------------------------\n\nloop() ->\n receive\n %% -------------------- Button handlers -------------------- %%\n #wx{id = ?ADD, event = #wxCommand{type = command_button_clicked}} ->\n Frame = ref_lookup(?FRAME),\n addDialog(Frame),\n send_event_msg_to_self(?MODULE_LIST),\n loop();\n #wx{id = ?ANALYZE, event = #wxCommand{type = command_button_clicked}} ->\n analyze_proc(),\n loop();\n #wx{id = ?CLEAR, event = #wxCommand{type = command_button_clicked}} ->\n clearMods(),\n clearFuns(),\n clearSrc(),\n loop();\n #wx{id = ?REMOVE, event = #wxCommand{type = command_button_clicked}} ->\n remove(),\n loop();\n #wx{id = ?STOP, event = #wxCommand{type = command_button_clicked}} ->\n stop(),\n loop();\n #wx{id = ?REFRESH, event = #wxCommand{type = command_button_clicked}} ->\n refresh(),\n loop();\n %% -------------------- Listbox handlers --------------------- %%\n #wx{id = ?ERROR_LIST,\n event = #wxCommand{type = command_listbox_doubleclicked}} ->\n %% do nothing\n loop();\n #wx{id = ?ERROR_LIST,\n event = #wxCommand{type = command_listbox_selected}} ->\n show_details(),\n send_event_msg_to_self(?ILEAVE_LIST),\n loop();\n #wx{id = ?ILEAVE_LIST,\n event = #wxCommand{type = command_listbox_doubleclicked}} ->\n %% do nothing\n loop();\n #wx{id = ?ILEAVE_LIST,\n event = #wxCommand{type = command_listbox_selected}} ->\n %% do nothing\n loop();\n #wx{id = ?FUNCTION_LIST,\n event = #wxCommand{type = command_listbox_doubleclicked}} ->\n analyze_proc(),\n loop();\n #wx{id = ?FUNCTION_LIST,\n event = #wxCommand{type = command_listbox_selected}} ->\n refreshFun(),\n loop();\n #wx{id = ?MODULE_LIST,\n event = #wxCommand{type = command_listbox_doubleclicked}} ->\n %% do nothing\n loop();\n #wx{id = ?MODULE_LIST,\n event = #wxCommand{type = command_listbox_selected}} ->\n refresh(),\n send_event_msg_to_self(?FUNCTION_LIST),\n loop();\n %% -------------------- Menu handlers -------------------- %%\n #wx{id = ?ABOUT, event = #wxCommand{type = command_menu_selected}} ->\n Caption = \"About\" ++ ?APP_STRING,\n Frame = ref_lookup(?FRAME),\n Dialog = wxMessageDialog:new(Frame, ?INFO_MSG,\n [{style, ?wxOK}, {caption, Caption}]),\n wxDialog:showModal(Dialog),\n wxWindow:destroy(Dialog),\n loop();\n #wx{id = ?ADD, event = #wxCommand{type = command_menu_selected}} ->\n Frame = ref_lookup(?FRAME),\n addDialog(Frame),\n send_event_msg_to_self(?MODULE_LIST),\n loop();\n #wx{id = ?ANALYZE, event = #wxCommand{type = command_menu_selected}} ->\n analyze_proc(),\n loop();\n #wx{id = ?CLEAR, event = #wxCommand{type = command_menu_selected}} ->\n clearMods(),\n clearFuns(),\n clearSrc(),\n loop();\n #wx{id = ?EXIT, event = #wxCommand{type = command_menu_selected}} ->\n ok;\n #wx{id = ?SAVEAS, event = #wxCommand{type = command_menu_selected}} ->\n Frame = ref_lookup(?FRAME),\n exportDialog(Frame),\n loop();\n #wx{id = ?PREFS, event = #wxCommand{type = command_menu_selected}} ->\n Frame = ref_lookup(?FRAME),\n prefsDialog(Frame),\n loop();\n #wx{id = ?REFRESH, event = #wxCommand{type = command_menu_selected}} ->\n refresh(),\n send_event_msg_to_self(?FUNCTION_LIST),\n loop();\n #wx{id = ?REMOVE, event = #wxCommand{type = command_menu_selected}} ->\n remove(),\n loop();\n #wx{id = ?STOP, event = #wxCommand{type = command_menu_selected}} ->\n stop(),\n loop();\n #wx{id = ?THEME_LIGHT,\n event = #wxCommand{type = command_menu_selected}} ->\n SourceText = ref_lookup(?SOURCE_TEXT),\n setupSourceText(SourceText, light),\n loop();\n #wx{id = ?THEME_DARK,\n event = #wxCommand{type = command_menu_selected}} ->\n SourceText = ref_lookup(?SOURCE_TEXT),\n setupSourceText(SourceText, dark),\n loop();\n %% -------------------- Misc handlers -------------------- %%\n %% Every time a splitter sash changes its position, refresh the whole\n %% window to avoid annoying artifacts from the previous position of the\n %% sash.\n #wx{event = #wxSplitter{type = command_splitter_sash_pos_changed}} ->\n Frame = ref_lookup(?FRAME),\n wxWindow:refresh(Frame),\n loop();\n #wx{event = #wxClose{type = close_window}} ->\n ok;\n %% Ignore normal 'EXIT' messages from linked processes.\n %% (Added to ignore exit messages coming from calls to compile:file\n %% and compile:forms)\n {'EXIT', _Pid, normal} ->\n loop();\n %% -------------------- Catchall -------------------- %%\n Other ->\n io:format(\"main loop unimplemented: ~p~n\", [Other]),\n loop()\n end.\n" }, { "path": "resources/old_source/concuerror_instr.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Instrumenter\n%%%----------------------------------------------------------------------\n\n-module(concuerror_instr).\n-export([delete_and_purge/1, instrument_and_compile/2, load/1,\n new_module_name/1, check_module_name/3, old_module_name/1,\n delete_temp_files/1]).\n\n-export_type([macros/0]).\n\n-include(\"gen.hrl\").\n-include(\"instr.hrl\").\n\n%%%----------------------------------------------------------------------\n%%% Debug\n%%%----------------------------------------------------------------------\n\n%%-define(PRINT, true).\n-ifdef(PRINT).\n-define(print(S_), io:put_chars(erl_prettypr:format(S_))).\n-else.\n-define(print(S_), ok).\n-endif.\n\n%%%----------------------------------------------------------------------\n%%% Types\n%%%----------------------------------------------------------------------\n\n-type mfb() :: {module(), file:filename(), binary()}.\n\n-type macros() :: [{atom(), term()}].\n\n%%%----------------------------------------------------------------------\n%%% Instrumentation utilities\n%%%----------------------------------------------------------------------\n\n%% ---------------------------\n%% Delete and purge all modules.\n-spec delete_and_purge(concuerror:options()) -> 'ok'.\ndelete_and_purge(_Options) ->\n %% Unload and purge modules.\n ModsToPurge =\n [check_module_name(IM, none, 0) || {IM}<-ets:tab2list(?NT_INSTR_MODS)],\n Fun = fun (M) -> code:purge(M), code:delete(M) end,\n lists:foreach(Fun, ModsToPurge),\n %% Delete ?NT_INSTR_MODS, ?NT_INSTR_BIFS,\n %% ?NT_INSTR_IGNORED and ?NT_INSTR tables.\n ets:delete(?NT_INSTR_MODS),\n ets:delete(?NT_INSTR_BIFS),\n ets:delete(?NT_INSTR_IGNORED),\n ets:delete(?NT_INSTR),\n ok.\n\n%% ---------------------------\n%% Rename a module for the instrumentation.\n%% 1. Don't rename `concuerror_*' modules\n%% 2. Don't rename `ignored' modules\n%% 3. Don't rename `BIFS'.\n%% 4. If module is instrumented rename it.\n%% 5. If we are in `fail_uninstrumented' mode rename all modules.\n-spec check_module_name(module() | {module(),term()}, atom(), non_neg_integer())\n -> module() | {module(), term()}.\ncheck_module_name({Module, Term}, Function, Arity) ->\n {check_module_name(Module, Function, Arity), Term};\ncheck_module_name(Module, Function, Arity) ->\n Conc_Module =\n try atom_to_list(Module) of\n (\"concuerror_\" ++ _Rest) -> true;\n _Other -> false\n catch %% In case atom_to_list fail, we don't want to rename the module\n error:badarg -> true\n end,\n Rename = (not Conc_Module)\n andalso (not ets:member(?NT_INSTR_IGNORED, Module))\n andalso (not ets:member(?NT_INSTR_BIFS, {Module, Function, Arity}))\n andalso (ets:member(?NT_INSTR_MODS, Module)\n orelse ets:lookup_element(?NT_INSTR, ?FAIL_BB, 2)),\n case Rename of\n true -> new_module_name(Module);\n false -> Module\n end.\n\n-spec new_module_name(atom() | string()) -> atom().\nnew_module_name(StrModule) when is_list(StrModule) ->\n %% Check that module is not already renamed.\n case StrModule of\n (?INSTR_PREFIX ++ _OldModule) ->\n %% No need to rename it\n list_to_atom(StrModule);\n _OldModule ->\n list_to_atom(?INSTR_PREFIX ++ StrModule)\n end;\nnew_module_name(Module) ->\n new_module_name(atom_to_list(Module)).\n\n-spec old_module_name(atom()) -> atom().\nold_module_name(NewModule) ->\n case atom_to_list(NewModule) of\n (?INSTR_PREFIX ++ OldModule) -> list_to_atom(OldModule);\n _Module -> NewModule\n end.\n\n%% ---------------------------\n%% @spec instrument_and_compile(Files::[file:filename()], concuerror:options())\n%% -> {'ok', [mfb()]} | 'error'\n%% @doc: Instrument and compile a list of files.\n%%\n%% Each file is first validated (i.e. checked whether it will compile\n%% successfully). If no errors are encountered, the file gets instrumented and\n%% compiled. If these actions are successfull, the function returns `{ok, Bin}',\n%% otherwise `error' is returned. No `.beam' files are produced.\n-spec instrument_and_compile([file:filename()], concuerror:options()) ->\n {'ok', [mfb()]} | 'error'.\ninstrument_and_compile(Files, Options) ->\n Includes =\n case lists:keyfind('include', 1, Options) of\n {'include', I} -> I;\n false -> ?DEFAULT_INCLUDE\n end,\n Defines =\n case lists:keyfind('define', 1, Options) of\n {'define', D} -> D;\n false -> ?DEFAULT_DEFINE\n end,\n Verbosity =\n case lists:keyfind('verbose', 1, Options) of\n {'verbose', V} -> V;\n false -> ?DEFAULT_VERBOSITY\n end,\n FailBB = lists:keymember('fail_uninstrumented', 1, Options),\n Ignores =\n case lists:keyfind('ignore', 1, Options) of\n {'ignore', Igns} -> [{Ign} || Ign <- Igns];\n false -> []\n end,\n %% Initialize tables\n EtsNewOpts = [named_table, public, set, {read_concurrency, true}],\n ?NT_INSTR_MODS = ets:new(?NT_INSTR_MODS, EtsNewOpts),\n InstrModules = [{concuerror_util:get_module_name(F)} || F <- Files],\n ets:insert(?NT_INSTR_MODS, InstrModules),\n ?NT_INSTR_BIFS = ets:new(?NT_INSTR_BIFS, EtsNewOpts),\n PredefBifs = [{PBif} || PBif <- ?PREDEF_BIFS],\n ets:insert(?NT_INSTR_BIFS, PredefBifs),\n ?NT_INSTR_IGNORED = ets:new(?NT_INSTR_IGNORED, EtsNewOpts),\n ets:insert(?NT_INSTR_IGNORED, [{erlang},{ets}] ++ Ignores),\n ?NT_INSTR = ets:new(?NT_INSTR, EtsNewOpts),\n ets:insert(?NT_INSTR, {?FAIL_BB, FailBB}),\n %% Create a temp dir to save renamed code\n case create_tmp_dir() of\n {ok, DirName} ->\n ets:insert(?NT_INSTR, {?INSTR_TEMP_DIR, DirName}),\n concuerror_log:log(0, \"Instrumenting files...\"),\n InstrOne =\n fun(File) ->\n instrument_and_compile_one(File, Includes,\n Defines, Verbosity)\n end,\n Instrumented = concuerror_util:pmap(InstrOne, Files),\n MFBs = [ F || {F,_S} <- Instrumented],\n NumOfLines = lists:sum([S || {_F,S} <- Instrumented]),\n delete_temp_files(Options),\n case lists:member('error', MFBs) of\n true ->\n concuerror_log:log(0, \"\\nInstrumenting files... failed\\n\"),\n error;\n false ->\n case Verbosity of\n 0 -> concuerror_log:log(0, \" done\\n\");\n _ -> concuerror_log:log(0,\n \"\\nInstrumenting files (~p total lines of code)\"\n \"... done\\n\", [NumOfLines])\n end,\n {ok, MFBs}\n end;\n error ->\n error\n end.\n\n%% Instrument and compile a single file.\ninstrument_and_compile_one(File, Includes, Defines, Verbosity) ->\n %% Compilation of original file without emitting code, just to show\n %% warnings or stop if an error is found, before instrumenting it.\n concuerror_log:log(1, \"\\nValidating file ~p...\", [File]),\n OptIncludes = [{i, I} || I <- Includes],\n OptDefines = [{d, M, V} || {M, V} <- Defines],\n OptRest =\n case Verbosity >= 2 of\n true -> [strong_validation, return, verbose];\n false -> [strong_validation, return]\n end,\n PreOptions = OptIncludes ++ OptDefines ++ OptRest,\n %% Compile module.\n case compile:file(File, PreOptions) of\n {ok, OldModule, Warnings} ->\n %% Log warning messages.\n log_warning_list(Warnings),\n %% Instrument given source file.\n concuerror_log:log(1, \"\\nInstrumenting file ~p... \", [File]),\n case instrument(OldModule, File, Includes, Defines) of\n {ok, NewFile, NewForms, NumOfLines} ->\n concuerror_log:log(1,\n \"\\nFile ~p successfully instrumented \"\n \"(~p total lines of code).\", [File, NumOfLines]),\n %% Compile instrumented code.\n %% TODO: More compile options?\n CompOptions =\n case Verbosity >= 2 of\n true ->\n [binary, report_errors, verbose];\n false ->\n [binary, report_errors]\n end,\n case compile:forms(NewForms, CompOptions) of\n {ok, NewModule, Binary} ->\n {{NewModule, NewFile, Binary}, NumOfLines};\n error ->\n concuerror_log:log(0, \"\\nFailed to compile \"\n \"instrumented file ~p.\", [NewFile]),\n {error, 0}\n end;\n {error, Error} ->\n concuerror_log:log(0, \"\\nFailed to instrument \"\n \"file ~p: ~p\", [File, Error]),\n {error, 0}\n end;\n {error, Errors, Warnings} ->\n log_error_list(Errors),\n log_warning_list(Warnings),\n {error, 0}\n end.\n\n%% ---------------------------\n-spec load([mfb()]) -> 'ok' | 'error'.\nload([]) -> ok;\nload([MFB|Rest]) ->\n case load_one(MFB) of\n ok -> load(Rest);\n error -> error\n end.\n\nload_one({Module, File, Binary}) ->\n case code:load_binary(Module, File, Binary) of\n {module, Module} -> ok;\n {error, Error} ->\n concuerror_log:log(0, \"\\nerror\\n~p\\n\", [Error]),\n error\n end.\n\n%% ---------------------------\n-spec delete_temp_files(concuerror:options()) -> 'ok'.\ndelete_temp_files(Options) ->\n %% Delete temp directory (ignore errors).\n case lists:keymember('keep_temp', 1, Options) of\n true ->\n %% Retain temporary files.\n ok;\n false ->\n TmpDir = ets:lookup_element(?NT_INSTR, ?INSTR_TEMP_DIR, 2),\n {ok, TmpFiles} = file:list_dir(TmpDir),\n DelFile = fun(F) -> _ = file:delete(filename:join(TmpDir, F)) end,\n lists:foreach(DelFile, TmpFiles),\n _ = file:del_dir(TmpDir),\n ok\n end.\n\n%% ---------------------------\ninstrument(Module, File, Includes, Defines) ->\n NewIncludes = [filename:dirname(File) | Includes],\n %% Rename module\n case rename_module(Module, File) of\n {ok, NewFile, NumOfLines} ->\n case epp:parse_file(NewFile, NewIncludes, Defines) of\n {ok, OldForms} ->\n %% Remove `type` and `spec` attributes to avoid\n %% errors due to record expansion below.\n %% Also rename our module.\n StrippedForms = strip_attributes(OldForms, []),\n ExpRecForms = erl_expand_records:module(StrippedForms, []),\n %% Convert `erl_parse tree` to `abstract syntax tree`.\n Tree = erl_recomment:recomment_forms(ExpRecForms, []),\n MapFun = fun(T) -> instrument_toplevel(T) end,\n Transformed = erl_syntax_lib:map_subtrees(MapFun, Tree),\n %% Return an `erl_parse-compatible` representation.\n Abstract = erl_syntax:revert(Transformed),\n ?print(Abstract),\n NewForms = erl_syntax:form_list_elements(Abstract),\n {ok, NewFile, NewForms, NumOfLines};\n {error, _} = Error -> Error\n end;\n {error, _} = Error -> Error\n end.\n\n%% ---------------------------\nrename_module(Module, File) ->\n ModuleStr = atom_to_list(Module),\n NewModuleStr = atom_to_list(new_module_name(Module)),\n TmpDir = ets:lookup_element(?NT_INSTR, ?INSTR_TEMP_DIR, 2),\n NewFile = filename:join(TmpDir, NewModuleStr ++ \".erl\"),\n case file:read_file(File) of\n {ok, Binary} ->\n %% Replace the first occurrence of `-module(Module).'\n Pattern = binary:list_to_bin(\n \"-module(\" ++ ModuleStr ++ \").\"),\n Replacement = binary:list_to_bin(\n \"-module(\" ++ NewModuleStr ++ \").\"),\n NewBinary = binary:replace(Binary, Pattern, Replacement),\n %% Count lines of code\n NewLine = binary:list_to_bin(\"\\n\"),\n Lines = length(binary:matches(NewBinary, NewLine)),\n %% Write new file in temp directory\n case file:write_file(NewFile, NewBinary) of\n ok -> {ok, NewFile, Lines};\n Error -> Error\n end;\n Error ->\n Error\n end.\n\n%% ---------------------------\n%% Create an unique temp directory based on (starting with) Stem.\n%% A directory name of the form is generated.\n%% We use this directory to save our renamed code.\ncreate_tmp_dir() ->\n DirName = temp_name(\"./.conc_temp_\"),\n concuerror_log:log(1, \"Create temp dir ~p..\\n\", [DirName]),\n case file:make_dir(DirName) of\n ok ->\n {ok, DirName};\n {error, eexist} ->\n %% Directory exists, try again\n create_tmp_dir();\n {error, Reason} ->\n concuerror_log:log(0, \"\\nerror: ~p\\n\", [Reason]),\n error\n end.\n\ntemp_name(Stem) ->\n {A, B, C} = erlang:now(),\n RandomNum = A bxor B bxor C,\n Stem ++ integer_to_list(RandomNum).\n\n\n%% ---------------------------\n%% XXX: Implementation dependent.\nstrip_attributes([], Acc) ->\n lists:reverse(Acc);\nstrip_attributes([{attribute, _Line, Name, _Misc}=Head | Rest], Acc) ->\n case lists:member(Name, ?ATTR_STRIP) of\n true -> strip_attributes(Rest, Acc);\n false -> strip_attributes(Rest, [Head|Acc])\n end;\nstrip_attributes([Head|Rest], Acc) ->\n strip_attributes(Rest, [Head|Acc]).\n\n%% ---------------------------\n%% Instrument a \"top-level\" element.\n%% Of the \"top-level\" elements, i.e. functions, specs, etc., only functions are\n%% transformed, so leave everything else as is.\ninstrument_toplevel(Tree) ->\n case erl_syntax:type(Tree) of\n function -> instrument_function(Tree);\n _Other -> Tree\n end.\n\n%% Instrument a function.\ninstrument_function(Tree) ->\n %% A set of all variables used in the function.\n Used = erl_syntax_lib:variables(Tree),\n %% Insert the used set into `used` dictionary.\n put(?NT_USED, Used),\n instrument_tree(Tree).\n\n%% Instrument a Tree.\ninstrument_tree(Tree) ->\n MapFun = fun(T) -> instrument_term(T) end,\n erl_syntax_lib:map(MapFun, Tree).\n\n%% Instrument a term.\ninstrument_term(Tree) ->\n case erl_syntax:type(Tree) of\n application ->\n case get_mfa(Tree) of\n no_instr -> Tree;\n {rename, Mfa} -> instrument_rename(Mfa);\n {normal, Mfa} -> instrument_application(Mfa);\n {var, Mfa} -> instrument_var_application(Mfa)\n end;\n infix_expr ->\n Operator = erl_syntax:infix_expr_operator(Tree),\n case erl_syntax:operator_name(Operator) of\n '!' -> instrument_send(Tree);\n _Other -> Tree\n end;\n receive_expr -> instrument_receive(Tree);\n underscore -> new_underscore_variable();\n _Other -> Tree\n end.\n\n%% Return {ModuleAtom, FunctionAtom, [ArgTree]} for a function call that\n%% is going to be instrumented or 'no_instr' otherwise.\nget_mfa(Tree) ->\n Qualifier = erl_syntax:application_operator(Tree),\n ArgTrees = erl_syntax:application_arguments(Tree),\n case erl_syntax:type(Qualifier) of\n atom ->\n Function = erl_syntax:atom_value(Qualifier),\n needs_instrument(Function, ArgTrees);\n module_qualifier ->\n ModTree = erl_syntax:module_qualifier_argument(Qualifier),\n FunTree = erl_syntax:module_qualifier_body(Qualifier),\n case erl_syntax:type(ModTree) =:= atom andalso\n\t\t erl_syntax:type(FunTree) =:= atom of\n true ->\n Module = erl_syntax:atom_value(ModTree),\n Function = erl_syntax:atom_value(FunTree),\n needs_instrument(Module, Function, ArgTrees);\n false -> {var, {ModTree, FunTree, ArgTrees}}\n end;\n _Other -> no_instr\n end.\n\n%% Determine whether an auto-exported BIF call needs instrumentation.\nneeds_instrument(Function, ArgTrees) ->\n Arity = length(ArgTrees),\n case lists:member({Function, Arity}, ?INSTR_ERL_FUN) of\n true -> {normal, {erlang, Function, ArgTrees}};\n false -> no_instr\n end.\n\n%% Determine whether a `foo:bar(...)` call needs instrumentation.\nneeds_instrument(Module, Function, ArgTrees) ->\n Arity = length(ArgTrees),\n case lists:member({Module, Function, Arity}, ?INSTR_MOD_FUN) of\n true ->\n {normal, {Module, Function, ArgTrees}};\n false ->\n {rename, {Module, Function, ArgTrees}}\n end.\n\ninstrument_application({erlang, Function, ArgTrees}) ->\n RepMod = erl_syntax:atom(?REP_MOD),\n RepFun = erl_syntax:atom(list_to_atom(\"rep_\" ++ atom_to_list(Function))),\n erl_syntax:application(RepMod, RepFun, ArgTrees);\ninstrument_application({Module, Function, ArgTrees}) ->\n RepMod = erl_syntax:atom(?REP_MOD),\n RepFun = erl_syntax:atom(list_to_atom(\"rep_\" ++ atom_to_list(Module)\n ++ \"_\" ++ atom_to_list(Function))),\n erl_syntax:application(RepMod, RepFun, ArgTrees).\n\ninstrument_var_application({ModTree, FunTree, ArgTrees}) ->\n RepMod = erl_syntax:atom(?REP_MOD),\n RepFun = erl_syntax:atom(rep_var),\n ArgList = erl_syntax:list(ArgTrees),\n erl_syntax:application(RepMod, RepFun, [ModTree, FunTree, ArgList]).\n\ninstrument_rename({Module, Function, ArgTrees}) ->\n Arity = length(ArgTrees),\n RepMod = erl_syntax:atom(check_module_name(Module, Function, Arity)),\n RepFun = erl_syntax:atom(Function),\n erl_syntax:application(RepMod, RepFun, ArgTrees).\n\n%% Instrument a receive expression.\n%% ----------------------------------------------------------------------\n%% receive\n%% Patterns -> Actions\n%% end\n%%\n%% is transformed into\n%%\n%% ?REP_MOD:rep_receive(Fun),\n%% receive\n%% NewPatterns -> NewActions\n%% end\n%%\n%% where Fun = fun(Aux) ->\n%% receive\n%% NewPatterns -> continue\n%% [_Fresh -> block]\n%% after 0 ->\n%% Aux()\n%% end\n%% end\n%%\n%% The additional _Fresh -> block pattern is only added, if there\n%% is no catch-all pattern among the original receive patterns.\n%%\n%% For each Pattern-Action pair two new pairs are added:\n%% - The first pair is added to handle instrumented messages:\n%% {?INSTR_MSG, Fresh, Pattern} ->\n%% ?REP_MOD:rep_receive_notify(Fresh, Pattern),\n%% Action\n%%\n%% - The second pair is added to handle uninstrumented messages:\n%% Pattern ->\n%% ?REP_MOD:rep_receive_notify(Pattern),\n%% Action\n%% ----------------------------------------------------------------------\n%% receive\n%% Patterns -> Actions\n%% after N -> AfterAction\n%% end\n%%\n%% is transformed into\n%%\n%% case N of\n%% infinity -> ?REP_MOD:rep_receive(Fun),\n%% receive\n%% NewPatterns -> NewActions\n%% end;\n%% Fresh -> receive\n%% NewPatterns -> NewActions\n%% after 0 -> NewAfterAction\n%% end\n%%\n%% That is, if the timeout equals infinity then the expression is\n%% equivalent to a normal receive expression as above. Otherwise,\n%% any positive timeout is transformed into 0.\n%% Pattens and Actions are mapped into NewPatterns and NewActions\n%% as described previously for the case of a `receive' expression\n%% with no `after' clause. AfterAction is transformed into\n%% `?REP_MOD:rep_after_notify(), AfterAction'.\n%% ----------------------------------------------------------------------\n%% receive\n%% after N -> AfterActions\n%% end\n%%\n%% is transformed into\n%%\n%% case N of\n%% infinity -> ?REP_MOD:rep_receive_block();\n%% Fresh -> AfterActions\n%% end\n%% ----------------------------------------------------------------------\ninstrument_receive(Tree) ->\n %% Get old receive expression's clauses.\n OldClauses = erl_syntax:receive_expr_clauses(Tree),\n case OldClauses of\n [] ->\n Timeout = erl_syntax:receive_expr_timeout(Tree),\n Action = erl_syntax:receive_expr_action(Tree),\n AfterBlock = erl_syntax:block_expr(Action),\n ModTree = erl_syntax:atom(?REP_MOD),\n FunTree = erl_syntax:atom(rep_receive_block),\n Fun = erl_syntax:application(ModTree, FunTree, []),\n transform_receive_timeout(Fun, AfterBlock, Timeout);\n _Other ->\n NewClauses = transform_receive_clauses(OldClauses),\n %% Create fun(X) -> case X of ... end end.\n FunVar = new_variable(),\n CaseClauses = transform_receive_case(NewClauses),\n Case = erl_syntax:case_expr(FunVar, CaseClauses),\n FunClause = erl_syntax:clause([FunVar], [], [Case]),\n FunExpr = erl_syntax:fun_expr([FunClause]),\n %% Create ?REP_MOD:rep_receive(fun(X) -> ...).\n Module = erl_syntax:atom(?REP_MOD),\n Function = erl_syntax:atom(rep_receive),\n Timeout = erl_syntax:receive_expr_timeout(Tree),\n HasNoTimeout = Timeout =:= none,\n HasTimeoutExpr =\n case HasNoTimeout of\n true -> erl_syntax:atom(infinity);\n false -> Timeout\n end,\n IgnoreTimeout =\n case ets:lookup(?NT_OPTIONS, 'ignore_timeout') of\n [{'ignore_timeout', ITValue}] ->\n erl_syntax:integer(ITValue);\n _ -> erl_syntax:atom(infinity)\n end,\n RepReceive = erl_syntax:application(\n Module, Function, [FunExpr, HasTimeoutExpr, IgnoreTimeout]),\n %% Create new receive expression.\n NewReceive = erl_syntax:receive_expr(NewClauses),\n %% Result is begin rep_receive(...), NewReceive end.\n Block = erl_syntax:block_expr([RepReceive, NewReceive]),\n case HasNoTimeout of\n %% Instrument `receive` without `after` part.\n true -> Block;\n %% Instrument `receive` with `after` part.\n false ->\n Action = erl_syntax:receive_expr_action(Tree),\n RepMod = erl_syntax:atom(?REP_MOD),\n RepFun = erl_syntax:atom(rep_after_notify),\n RepApp = erl_syntax:application(RepMod, RepFun, []),\n NewAction = [RepApp|Action],\n %% receive NewPatterns -> NewActions after 0 -> NewAfter end\n ZeroTimeout = erl_syntax:integer(0),\n AfterExpr = erl_syntax:receive_expr(NewClauses,\n ZeroTimeout, NewAction),\n AfterBlock = erl_syntax:block_expr([RepReceive,AfterExpr]),\n transform_receive_timeout(Block, AfterBlock, Timeout)\n end\n end.\n\ntransform_receive_case(Clauses) ->\n Fun =\n fun(Clause) ->\n [Pattern] = erl_syntax:clause_patterns(Clause),\n Guard = erl_syntax:clause_guard(Clause),\n NewBody = erl_syntax:atom(continue),\n erl_syntax:clause([Pattern], Guard, [NewBody])\n end,\n NewClauses = lists:map(Fun, Clauses),\n Pattern = new_underscore_variable(),\n Body = erl_syntax:atom(block),\n CatchallClause = erl_syntax:clause([Pattern], [], [Body]),\n NewClauses ++ [CatchallClause].\n\ntransform_receive_clauses(Clauses) ->\n Trans = fun(P) -> [transform_receive_clause_regular(P),\n transform_receive_clause_special(P)]\n end,\n Fold = fun(Clause, Acc) -> Trans(Clause) ++ Acc end,\n lists:foldr(Fold, [], Clauses).\n\n%% Tranform a clause\n%% Pattern -> Action\n%% into\n%% {Fresh, Pattern} -> ?REP_MOD:rep_receive_notify(Fresh, Pattern), Action\ntransform_receive_clause_regular(Clause) ->\n [OldPattern] = erl_syntax:clause_patterns(Clause),\n OldGuard = erl_syntax:clause_guard(Clause),\n OldBody = erl_syntax:clause_body(Clause),\n InstrAtom = erl_syntax:atom(?INSTR_MSG),\n PidVar = new_variable(),\n CV = new_variable(),\n NewPattern = [erl_syntax:tuple([InstrAtom, PidVar, CV, OldPattern])],\n Module = erl_syntax:atom(?REP_MOD),\n Function = erl_syntax:atom(rep_receive_notify),\n Arguments = [PidVar, CV, OldPattern],\n Notify = erl_syntax:application(Module, Function, Arguments),\n NewBody = [Notify|OldBody],\n erl_syntax:clause(NewPattern, OldGuard, NewBody).\n\n%% Transform a clause\n%% Pattern -> Action\n%% into\n%% Pattern -> ?REP_MOD:rep_receive_notify(Pattern), Action\ntransform_receive_clause_special(Clause) ->\n [OldPattern] = erl_syntax:clause_patterns(Clause),\n OldGuard = erl_syntax:clause_guard(Clause),\n OldBody = erl_syntax:clause_body(Clause),\n Module = erl_syntax:atom(?REP_MOD),\n Function = erl_syntax:atom(rep_receive_notify),\n Arguments = [OldPattern],\n Notify = erl_syntax:application(Module, Function, Arguments),\n NewBody = [Notify|OldBody],\n erl_syntax:clause([OldPattern], OldGuard, NewBody).\n\ntransform_receive_timeout(InfBlock, FrBlock, Timeout) ->\n %% Create 'infinity -> ...' clause.\n InfPattern = erl_syntax:atom(infinity),\n InfClause = erl_syntax:clause([InfPattern], [], [InfBlock]),\n %% Create 'Fresh -> ...' clause.\n FrPattern = new_underscore_variable(),\n FrClause = erl_syntax:clause([FrPattern], [], [FrBlock]),\n %% Create 'case Timeout of ...' expression.\n AfterCaseClauses = [InfClause, FrClause],\n erl_syntax:case_expr(Timeout, AfterCaseClauses).\n\n%% Instrument a Pid ! Msg expression.\n%% Pid ! Msg is transformed into ?REP_MOD:rep_send(Pid, Msg).\ninstrument_send(Tree) ->\n Dest = erl_syntax:infix_expr_left(Tree),\n Msg = erl_syntax:infix_expr_right(Tree),\n instrument_application({erlang, send, [Dest, Msg]}).\n\n%%%----------------------------------------------------------------------\n%%% Helper functions\n%%%----------------------------------------------------------------------\n\nnew_variable() ->\n Used = get(?NT_USED),\n Fresh = erl_syntax_lib:new_variable_name(Used),\n put(?NT_USED, sets:add_element(Fresh, Used)),\n erl_syntax:variable(Fresh).\n\nnew_underscore_variable() ->\n Used = get(?NT_USED),\n new_underscore_variable(Used).\n\nnew_underscore_variable(Used) ->\n Fresh1 = erl_syntax_lib:new_variable_name(Used),\n String = \"_\" ++ atom_to_list(Fresh1),\n Fresh2 = list_to_atom(String),\n case is_fresh(Fresh2, Used) of\n true ->\n put(?NT_USED, sets:add_element(Fresh2, Used)),\n erl_syntax:variable(Fresh2);\n false ->\n new_underscore_variable(Used)\n end.\n\nis_fresh(Atom, Set) ->\n not sets:is_element(Atom, Set).\n\n%%%----------------------------------------------------------------------\n%%% Logging\n%%%----------------------------------------------------------------------\n\n%% Log a list of errors, as returned by compile:file/2.\nlog_error_list(List) ->\n log_list(List, \"\", 0).\n\n%% Log a list of warnings, as returned by compile:file/2.\nlog_warning_list(List) ->\n log_list(List, \"Warning:\", 1).\n\n%% Log a list of error or warning descriptors, as returned by compile:file/2.\nlog_list(List, Pre, Verbosity) ->\n Strings = [io_lib:format(\"\\n~s:~p: ~s ~s\",\n [File, Line, Pre, Mod:format_error(Descr)])\n || {File, Info} <- List, {Line, Mod, Descr} <- Info],\n concuerror_log:log(Verbosity, lists:flatten(Strings)),\n ok.\n" }, { "path": "resources/old_source/concuerror_io_server.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2012, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Ilias Tsitsimpis \n%%% Description : An I/O server\n%%%----------------------------------------------------------------------\n\n-module(concuerror_io_server).\n\n-export([new_group_leader/1, group_leader_sync/1]).\n\n\n%% @spec: new_group_leader(pid()) -> pid()\n%% @doc: Create a new process to act as group leader.\n-spec new_group_leader(pid()) -> pid().\nnew_group_leader(Runner) ->\n process_flag(trap_exit, true),\n spawn_link(fun() -> group_leader_process(Runner) end).\n\ngroup_leader_process(Runner) ->\n group_leader_loop(Runner, infinity, []).\n\ngroup_leader_loop(Runner, Wait, Buf) ->\n receive\n {io_request, From, ReplyAs, Req} ->\n P = process_flag(priority, normal),\n %% run this part under normal priority always\n Buf1 = io_request(From, ReplyAs, Req, Buf),\n process_flag(priority, P),\n group_leader_loop(Runner, Wait, Buf1);\n stop ->\n %% quitting time: make a minimal pause, go low on priority,\n %% set receive-timeout to zero and schedule out again\n receive after 2 -> ok end,\n process_flag(priority, low),\n group_leader_loop(Runner, 0, Buf);\n _ ->\n %% discard any other messages\n group_leader_loop(Runner, Wait, Buf)\n after Wait ->\n %% no more messages and nothing to wait for; we ought to\n %% have collected all immediately pending output now\n process_flag(priority, normal),\n Runner ! {self(), buffer_to_binary(Buf)}\n end.\n\nbuffer_to_binary([B]) when is_binary(B) -> B; % avoid unnecessary copying\nbuffer_to_binary(Buf) -> list_to_binary(lists:reverse(Buf)).\n\n%% @spec: group_leader_sync(pid()) -> unicode:chardata()\n%% @doc: Stop the group leader and return it's buffer\n-spec group_leader_sync(pid()) -> unicode:chardata().\ngroup_leader_sync(G) ->\n G ! stop,\n receive {'EXIT', G, normal} -> ok end,\n receive {G, Buf} -> Buf end.\n\n%% Implementation of buffering I/O for group leader processes. (Note that\n%% each batch of characters is just pushed on the buffer, so it needs to\n%% be reversed when it is flushed.)\n\nio_request(From, ReplyAs, Req, Buf) ->\n {Reply, Buf1} = io_request(Req, Buf),\n io_reply(From, ReplyAs, Reply),\n Buf1.\n\nio_reply(From, ReplyAs, Reply) ->\n From ! {io_reply, ReplyAs, Reply},\n ok.\n\nio_request({put_chars, Chars}, Buf) ->\n {ok, [Chars | Buf]};\nio_request({put_chars, M, F, As}, Buf) ->\n try apply(M, F, As) of\n Chars -> {ok, [Chars | Buf]}\n catch\n C:T -> {{error, {C,T,erlang:get_stacktrace()}}, Buf}\n end;\nio_request({put_chars, _Enc, Chars}, Buf) ->\n io_request({put_chars, Chars}, Buf);\nio_request({put_chars, _Enc, Mod, Func, Args}, Buf) ->\n io_request({put_chars, Mod, Func, Args}, Buf);\nio_request({get_chars, _Enc, _Prompt, _N}, Buf) ->\n {eof, Buf};\nio_request({get_chars, _Prompt, _N}, Buf) ->\n {eof, Buf};\nio_request({get_line, _Prompt}, Buf) ->\n {eof, Buf};\nio_request({get_line, _Enc, _Prompt}, Buf) ->\n {eof, Buf};\nio_request({get_until, _Prompt, _M, _F, _As}, Buf) ->\n {eof, Buf};\nio_request({setopts, _Opts}, Buf) ->\n {ok, Buf};\nio_request(getopts, Buf) ->\n {error, {error, enotsup}, Buf};\nio_request({get_geometry,columns}, Buf) ->\n {error, {error, enotsup}, Buf};\nio_request({get_geometry,rows}, Buf) ->\n {error, {error, enotsup}, Buf};\nio_request({requests, Reqs}, Buf) ->\n io_requests(Reqs, {ok, Buf});\nio_request(_, Buf) ->\n {{error, request}, Buf}.\n\nio_requests([R | Rs], {ok, Buf}) ->\n io_requests(Rs, io_request(R, Buf));\nio_requests(_, Result) ->\n Result.\n" }, { "path": "resources/old_source/concuerror_lid.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : LID interface\n%%%----------------------------------------------------------------------\n\n-module(concuerror_lid).\n\n-export([cleanup/1, from_pid/1, fold_pids/2, get_pid/1, mock/1,\n new/2, start/0, stop/0, to_string/1, root_lid/0,\n ets_new/1, ref_new/2, lookup_ref_lid/1]).\n\n-export_type([lid/0, maybe_lid/0, ets_lid/0, ref_lid/0]).\n\n-include(\"gen.hrl\").\n\n%%%----------------------------------------------------------------------\n%%% Definitions\n%%%----------------------------------------------------------------------\n\n%% Information kept in the NT_LID table\n%%\n%% lid : The logical identifier of a process.\n%% pid : The process identifier of a process.\n%% nch : The number of processes spawned by this process.\n-record(info, {lid :: lid(),\n pid :: pid(),\n nch :: non_neg_integer()}).\n\n%% Record element positions, only to be used by ets:update_element/3.\n-define(POS_LID, 2).\n-define(POS_PID, 3).\n-define(POS_NCH, 4).\n\n%%%----------------------------------------------------------------------\n%%% Types\n%%%----------------------------------------------------------------------\n\n%% The logical id (LID) for each process reflects the process' logical\n%% position in the program's \"process creation tree\" and doesn't change\n%% between different runs of the same program (as opposed to erlang pids).\n-type lid() :: string().\n-type ets_lid() :: integer().\n-type ref_lid() :: integer().\n-type maybe_lid() :: lid() | 'not_found'.\n\n%%%----------------------------------------------------------------------\n%%% User interface\n%%%----------------------------------------------------------------------\n\n%% Cleanup all information of a process.\n-spec cleanup(lid()) -> 'ok'.\n\ncleanup(Lid) ->\n [#info{pid = Pid}] = ets:lookup(?NT_LID, Lid),\n %% Delete LID table entry of Lid.\n ets:delete(?NT_LID, Lid),\n %% Delete pid table entry.\n ets:delete(?NT_PID, Pid),\n ok.\n\n%% Return the LID of process Pid or 'not_found' if mapping not in table.\n-spec from_pid(term()) -> lid() | 'not_found'.\n\nfrom_pid(Pid) when is_pid(Pid);\n is_integer(Pid);\n is_atom(Pid);\n is_reference(Pid) ->\n case ets:lookup(?NT_PID, Pid) of\n [{Pid, Lid}] -> Lid;\n [{Pid, Lid, _}] -> Lid;\n [] -> not_found\n end;\nfrom_pid(_Other) -> not_found.\n\n%% Fold function Fun over all known processes (by Pid).\n-spec fold_pids(fun(), term()) -> term().\n\nfold_pids(Fun, InitAcc) ->\n NewFun = fun(A, Acc) ->\n case A of\n {P, _L} ->\n case is_pid(P) andalso is_process_alive(P) of\n true -> Fun(P, Acc);\n false -> Acc\n end;\n _ -> Acc\n end\n end,\n ets:foldl(NewFun, InitAcc, ?NT_PID).\n\n%% Return a mock LID (only to be used with to_string for now).\n-spec mock(integer()) -> lid().\n\nmock(Seed) ->\n lists:flatten(io_lib:format(\"~p\", [Seed])).\n\n%% \"Register\" a new process using its pid (Pid) and its parent's LID (Parent).\n%% If called without a `noparent' argument, \"register\" the first process.\n%% Return the LID of the newly \"registered\" process.\n-spec new(pid(), lid() | 'noparent') -> lid().\n\nnew(Pid, Parent) ->\n Lid =\n case Parent of\n noparent -> root_lid();\n _Other ->\n Children = get_children(Parent),\n set_children(Parent, Children + 1),\n next_lid(Parent, Children)\n end,\n ets:insert(?NT_LID, #info{lid = Lid, pid = Pid, nch = 0}),\n ets:insert(?NT_PID, {Pid, Lid}),\n Lid.\n\n-spec ets_new(ets:tid()) -> ets_lid().\n\nets_new(Tid) ->\n N = ets:update_counter(?NT_PID, ets_counter, 1),\n true = ets:insert(?NT_PID, {Tid, N}),\n N.\n\n-spec ref_new(lid(), reference()) -> ref_lid().\n\nref_new(Lid, Ref) ->\n N = ets:update_counter(?NT_PID, ref_counter, 1),\n true = ets:insert(?NT_PID, {Ref, N, Lid}),\n N.\n\n-spec lookup_ref_lid(reference()) -> maybe_lid().\n\nlookup_ref_lid(RefLid) ->\n case catch ets:lookup_element(?NT_PID, RefLid, 3) of\n {'EXIT', {badarg, _Exception}} -> not_found;\n Lid -> Lid\n end.\n\n%% Initialize LID tables.\n%% Must be called before any other call to lid interface functions.\n-spec start() -> 'ok'.\n\nstart() ->\n %% Table for storing process info.\n ?NT_LID = ets:new(?NT_LID, [named_table, {keypos, 2}]),\n %% Table for reverse lookup (Pid -> Lid) purposes.\n ?NT_PID = ets:new(?NT_PID, [named_table]),\n true = ets:insert(?NT_PID, {ets_counter, 0}),\n true = ets:insert(?NT_PID, {ref_counter, 0}),\n ok.\n\n%% Clean up LID tables.\n-spec stop() -> 'ok'.\n\nstop() ->\n ets:delete(?NT_LID),\n ets:delete(?NT_PID),\n ok.\n\n%%%----------------------------------------------------------------------\n%%% Getter and setter functions\n%%%----------------------------------------------------------------------\n\n%% Return the erlang pid of the process Lid.\n-spec get_pid(lid()) -> pid() | 'not_found'.\n\nget_pid(Lid) ->\n case ets:lookup(?NT_LID, Lid) of\n [] -> not_found;\n [#info{pid = Pid}] -> Pid\n end.\n\nget_children(Lid) ->\n [#info{nch = Children}] = ets:lookup(?NT_LID, Lid),\n Children.\n\nset_children(Lid, Children) ->\n ets:update_element(?NT_LID, Lid, {?POS_NCH, Children}).\n\n%%%----------------------------------------------------------------------\n%%% Helper functions\n%%%----------------------------------------------------------------------\n\n-spec root_lid() -> lid().\n\nroot_lid() ->\n \"1\".\n\n%% Create new lid from parent and its number of children.\nnext_lid(ParentLid, Children) ->\n lists:flatten(io_lib:format(\"~s.~p\", [ParentLid, Children+1])).\n\n-spec to_string(lid() | {dead, lid()}) -> string().\n\nto_string({dead, Lid}) ->\n lists:flatten(io_lib:format(\"~s (dead)\",[to_string(Lid)]));\nto_string({name, Name}) when is_atom(Name)->\n lists:flatten(io_lib:format(\"named '~p'\", [Name]));\nto_string(Lid) ->\n \"P\" ++ Lid.\n" }, { "path": "resources/old_source/concuerror_log.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Logging and error reporting interface\n%%%----------------------------------------------------------------------\n\n-module(concuerror_log).\n%% Non gen_evt exports.\n-export([internal/1, internal/2]).\n%% Log API exports.\n-export([attach/2, detach/2, start/0, stop/0, log/2, log/3,\n progress/1, reset/0]).\n%% Log callback exports.\n-export([init/1, terminate/2, handle_call/2, handle_info/2,\n handle_event/2, code_change/3]).\n\n-behaviour(gen_event).\n\n-include(\"gen.hrl\").\n\n%%%----------------------------------------------------------------------\n%%% Callback types\n%%%----------------------------------------------------------------------\n\n-type progress_type() ::\n {'new', pos_integer(), non_neg_integer()} |\n {'error', concuerror_ticket:ticket()}.\n\n-type event() ::\n {'msg', string(), non_neg_integer()} |\n {'progress', progress_type()}.\n-type state() :: [].\n\n-export_type([progress_type/0, event/0, state/0]).\n\n%%%----------------------------------------------------------------------\n%%% Non gen_evt functions.\n%%%----------------------------------------------------------------------\n\n%% @spec internal(string()) -> no_return()\n%% @doc: Print an internal error message and halt.\n-spec internal(string()) -> no_return().\ninternal(String) ->\n internal(String, []).\n\n%% @spec internal(string(), [term()]) -> no_return()\n%% @doc: Like `internal/1', but prints a formatted message using arguments.\n-spec internal(string(), [term()]) -> no_return().\ninternal(String, Args) ->\n InitPid = whereis(init),\n group_leader(InitPid, self()),\n io:format(\"(Internal) \" ++ String, Args),\n halt(?RET_INTERNAL_ERROR).\n\n%%%----------------------------------------------------------------------\n%%% API functions\n%%%----------------------------------------------------------------------\n\n%% Attach an event handler module.\n-spec attach(module(), term()) -> 'ok' | {'EXIT', term()}.\n\nattach(Mod, Args) ->\n gen_event:add_handler(concuerror_log, Mod, Args).\n\n%% Detach an event handler module.\n-spec detach(module(), term()) -> 'ok' | {'error', 'module_not_found'}.\n\ndetach(Mod, Args) ->\n gen_event:delete_handler(concuerror_log, Mod, Args).\n\n%% @spec start(atom(), term()) -> {'ok', pid()} |\n%% {'error', {'already_started', pid()}}\n%% @doc: Starts the log event manager.\n%%\n%% `Mod' is the module containing the callback functions.\n%% `Args' are the arguments given to the callback function `Mod:init/1'.\n-spec start() -> {'ok', pid()} | {'error', {'already_started', pid()}}.\n\nstart() ->\n gen_event:start({local, concuerror_log}).\n\n%% @spec stop() -> 'ok'\n%% @doc: Terminates the log event manager.\n-spec stop() -> 'ok'.\n\nstop() ->\n gen_event:stop(concuerror_log).\n\n%% @spec log(non_neg_integer(), string()) -> 'ok'\n%% @doc: Logs a string.\n-spec log(non_neg_integer(), string()) -> 'ok'.\n\nlog(Verbosity, String) when is_list(String) ->\n log(Verbosity, String, []).\n\n%% @spec log(non_neg_integer(), string(), [term()]) -> 'ok'\n%% @doc: Logs a formatted string.\n-spec log(non_neg_integer(), string(), [term()]) -> 'ok'.\n\nlog(Verbosity, String, Args) when is_list(String), is_list(Args) ->\n LogMsg = io_lib:format(String, Args),\n gen_event:notify(concuerror_log, {msg, LogMsg, Verbosity}).\n\n%% @spec progress({new, pos_integer(), non_neg_integer()\n%% | {error, concuerror_ticket:ticket()}) -> 'ok'\n%% @doc: Shows analysis progress.\n-spec progress({new, pos_integer(), non_neg_integer()}\n | {error, concuerror_ticket:ticket()}) -> ok.\n\nprogress({new, _RunCnt, _SBlocked}=New) ->\n %% Start a new interleaving\n gen_event:notify(concuerror_log, {progress, New});\nprogress({error, _Ticket}=Error) ->\n %% Encountered error (Ticket)\n gen_event:notify(concuerror_log, {progress, Error}).\n\n%% @spec reset() -> 'ok'\n%% @doc: Reset logger's internal state.\n-spec reset() -> 'ok'.\n\nreset() ->\n gen_event:notify(concuerror_log, 'reset').\n%%%----------------------------------------------------------------------\n%%% Callback functions\n%%%----------------------------------------------------------------------\n\n-spec init(term()) -> {'ok', state()}.\n\ninit(_State) ->\n {ok, []}.\n\n-spec terminate(term(), state()) -> 'ok'.\n\nterminate(_Reason, _State) ->\n ok.\n\n-spec handle_event(event(), state()) -> {'ok', state()}.\n\nhandle_event({msg, String, _MsgVerb}, State) ->\n io:format(\"~s\", [String]),\n {ok, State};\nhandle_event({progress, _Progress}, State) ->\n {ok, State};\nhandle_event('reset', _State) ->\n {ok, []}.\n\n-spec code_change(term(), term(), term()) -> no_return().\n\ncode_change(_OldVsn, _State, _Extra) ->\n internal(\"~p:~p: code_change~n\", [?MODULE, ?LINE]).\n\n-spec handle_info(term(), term()) -> no_return().\n\nhandle_info(_Info, _State) ->\n internal(\"~p:~p: handle_info~n\", [?MODULE, ?LINE]).\n\n-spec handle_call(term(), term()) -> no_return().\n\nhandle_call(_Request, _State) ->\n internal(\"~p:~p: handle_call~n\", [?MODULE, ?LINE]).\n" }, { "path": "resources/old_source/concuerror_proc_action.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Author : Alkis Gotovos \n%%% Description : Process action interface\n%%%----------------------------------------------------------------------\n\n-module(concuerror_proc_action).\n\n-export([to_string/1]).\n\n-export_type([proc_action/0]).\n\n%%%----------------------------------------------------------------------\n%%% Definitions\n%%%----------------------------------------------------------------------\n\n%% Printing depth of terms like messages or exit reasons.\n-define(PRINT_DEPTH, 4).\n-define(PRINT_DEPTH_EXIT, 10).\n\n%%%----------------------------------------------------------------------\n%%% Types\n%%%----------------------------------------------------------------------\n\n-type spawn_opt_opts() :: ['link' | 'monitor'].\n\n%% Tuples providing information about a process' action.\n-type proc_action() :: {'after', concuerror_lid:lid()} |\n {'block', concuerror_lid:lid()} |\n {'demonitor', concuerror_lid:lid(),\n concuerror_lid:maybe_lid()} |\n {'exit', concuerror_lid:lid(), term()} |\n {'exit_2', concuerror_lid:lid(),\n concuerror_lid:lid(), term()} |\n {'fun_exit', concuerror_lid:lid(),\n concuerror_lid:maybe_lid(), term()} |\n {'halt', concuerror_lid:lid()} |\n {'halt', concuerror_lid:lid(),\n non_neg_integer() | string()} |\n {'is_process_alive', concuerror_lid:lid(),\n concuerror_lid:maybe_lid()} |\n {'link', concuerror_lid:lid(),\n concuerror_lid:maybe_lid()} |\n {'monitor', concuerror_lid:lid(),\n concuerror_lid:maybe_lid()} |\n {'process_flag', concuerror_lid:lid(),\n 'trap_exit', boolean()} |\n {'receive', concuerror_lid:lid(),\n concuerror_lid:lid(), term()} |\n {'receive_no_instr', concuerror_lid:lid(), term()} |\n {'register', concuerror_lid:lid(),\n atom(), concuerror_lid:lid()} |\n {'send', concuerror_lid:lid(),\n concuerror_lid:maybe_lid(), term()} |\n {'send_after', concuerror_lid:lid(),\n concuerror_lid:maybe_lid(), term()} |\n {'start_timer', concuerror_lid:lid(),\n concuerror_lid:maybe_lid(), term()} |\n {'spawn', concuerror_lid:maybe_lid(),\n concuerror_lid:lid()} |\n {'spawn_link', concuerror_lid:maybe_lid(),\n concuerror_lid:lid()} |\n {'spawn_monitor', concuerror_lid:maybe_lid(),\n concuerror_lid:lid()} |\n {'spawn_opt', concuerror_lid:maybe_lid(),\n concuerror_lid:lid(), spawn_opt_opts()} |\n {'unlink', concuerror_lid:lid(),\n concuerror_lid:maybe_lid()} |\n {'unregister', concuerror_lid:lid(), atom()} |\n {'port_command', concuerror_lid:lid(), port()} |\n {'port_control', concuerror_lid:lid(), port()} |\n {'whereis', concuerror_lid:lid(), atom(),\n concuerror_lid:maybe_lid()}.\n\n%%%----------------------------------------------------------------------\n%%% User interface\n%%%----------------------------------------------------------------------\n\n-spec to_string(proc_action()) -> string().\n\nto_string({'after', Proc}) ->\n io_lib:format(\"Process ~s receives no matching messages\",\n [concuerror_lid:to_string(Proc)]);\nto_string({block, Proc}) ->\n io_lib:format(\"Process ~s blocks\", [concuerror_lid:to_string(Proc)]);\nto_string({demonitor, Proc, not_found}) ->\n io_lib:format(\"Process ~s demonitors nonexisting process\",\n [concuerror_lid:to_string(Proc)]);\nto_string({demonitor, Proc1, Proc2}) ->\n io_lib:format(\"Process ~s demonitors process ~s\",\n [concuerror_lid:to_string(Proc1),\n concuerror_lid:to_string(Proc2)]);\nto_string({exit, Proc, Reason}) ->\n io_lib:format(\"Process ~s exits (~P)\",\n [concuerror_lid:to_string(Proc),\n Reason, ?PRINT_DEPTH_EXIT]);\nto_string({exit_2, From, To, Reason}) ->\n io_lib:format(\"Process ~s sends an exit signal to ~p (~P)\",\n [concuerror_lid:to_string(From),\n concuerror_lid:to_string(To),\n Reason, ?PRINT_DEPTH_EXIT]);\nto_string({fun_exit, Proc, not_found, Reason}) ->\n io_lib:format(\"Process ~s sends exit signal (~W) to nonexisting process\",\n [concuerror_lid:to_string(Proc),\n Reason, ?PRINT_DEPTH]);\nto_string({fun_exit, Proc, Target, Reason}) ->\n io_lib:format(\"Process ~s sends exit signal (~p) to process ~s\",\n [concuerror_lid:to_string(Proc),\n Reason, concuerror_lid:to_string(Target)]);\nto_string({halt, Proc}) ->\n io_lib:format(\"Process ~s halts the system\",\n [concuerror_lid:to_string(Proc)]);\nto_string({halt, Proc, Status}) ->\n io_lib:format(\"Process ~s halts the system with status ~p\",\n [concuerror_lid:to_string(Proc), Status]);\nto_string({is_process_alive, Proc, not_found}) ->\n io_lib:format(\"Process ~s checks if nonexisting process is alive\",\n [concuerror_lid:to_string(Proc)]);\nto_string({is_process_alive, Proc1, Proc2}) ->\n io_lib:format(\"Process ~s checks if process ~s is alive\",\n [concuerror_lid:to_string(Proc1),\n concuerror_lid:to_string(Proc2)]);\nto_string({link, Proc, not_found}) ->\n io_lib:format(\"Process ~s links to nonexisting process\",\n [concuerror_lid:to_string(Proc)]);\nto_string({link, Proc1, Proc2}) ->\n io_lib:format(\"Process ~s links to process ~s\",\n [concuerror_lid:to_string(Proc1),\n concuerror_lid:to_string(Proc2)]);\nto_string({monitor, Proc, not_found}) ->\n io_lib:format(\"Process ~s monitors nonexisting process\",\n [concuerror_lid:to_string(Proc)]);\nto_string({monitor, Proc1, Proc2}) ->\n io_lib:format(\"Process ~s monitors process ~s\",\n [concuerror_lid:to_string(Proc1),\n concuerror_lid:to_string(Proc2)]);\nto_string({'process_flag', Proc, Flag, Value}) ->\n io_lib:format(\"Process ~s sets flag `~p` to `~p`\",\n [concuerror_lid:to_string(Proc), Flag, Value]);\nto_string({'receive', Receiver, Sender, Msg}) ->\n io_lib:format(\"Process ~s receives message `~W` from process ~s\",\n [concuerror_lid:to_string(Receiver), Msg, ?PRINT_DEPTH,\n concuerror_lid:to_string(Sender)]);\nto_string({'receive_no_instr', Receiver, Msg}) ->\n io_lib:format(\"Process ~s receives message `~W` from unknown process\",\n [concuerror_lid:to_string(Receiver), Msg, ?PRINT_DEPTH]);\nto_string({register, Proc, RegName, RegLid}) ->\n io_lib:format(\"Process ~s registers process ~s as `~p`\",\n [concuerror_lid:to_string(Proc),\n concuerror_lid:to_string(RegLid), RegName]);\nto_string({send, Sender, not_found, Msg}) ->\n io_lib:format(\"Process ~s sends message `~W` to nonexisting process\",\n [concuerror_lid:to_string(Sender), Msg, ?PRINT_DEPTH]);\nto_string({send, Sender, Receiver, Msg}) ->\n io_lib:format(\"Process ~s sends message `~W` to process ~s\",\n [concuerror_lid:to_string(Sender), Msg, ?PRINT_DEPTH,\n concuerror_lid:to_string(Receiver)]);\nto_string({send_after, Sender, Receiver, Msg}) ->\n io_lib:format(\"Process ~s sends message `~W` to process ~s (send_after emulated as send)\",\n [concuerror_lid:to_string(Sender), Msg, ?PRINT_DEPTH,\n concuerror_lid:to_string(Receiver)]);\nto_string({start_timer, Sender, Receiver, Msg}) ->\n io_lib:format(\"Process ~s sets a timer, with message `~W` to process ~s (expires immediately)\",\n [concuerror_lid:to_string(Sender), Msg, ?PRINT_DEPTH,\n concuerror_lid:to_string(Receiver)]);\nto_string({spawn, not_found, Child}) ->\n io_lib:format(\"Unknown process spawns process ~s\",\n [concuerror_lid:to_string(Child)]);\nto_string({spawn, Parent, Child}) ->\n io_lib:format(\"Process ~s spawns process ~s\",\n [concuerror_lid:to_string(Parent),\n concuerror_lid:to_string(Child)]);\nto_string({spawn_link, not_found, Child}) ->\n io_lib:format(\"Unknown process spawns and links to process ~s\",\n [concuerror_lid:to_string(Child)]);\nto_string({spawn_link, Parent, Child}) ->\n io_lib:format(\"Process ~s spawns and links to process ~s\",\n [concuerror_lid:to_string(Parent),\n concuerror_lid:to_string(Child)]);\nto_string({spawn_monitor, not_found, Child}) ->\n io_lib:format(\"Unknown process spawns and monitors process ~s\",\n [concuerror_lid:to_string(Child)]);\nto_string({spawn_monitor, Parent, Child}) ->\n io_lib:format(\"Process ~s spawns and monitors process ~s\",\n [concuerror_lid:to_string(Parent),\n concuerror_lid:to_string(Child)]);\nto_string({spawn_opt, not_found, Child}) ->\n io_lib:format(\"Unknown process spawns process ~s with opts\",\n [concuerror_lid:to_string(Child)]);\nto_string({spawn_opt, Parent, {Child, _Ref}}) ->\n io_lib:format(\"Process ~s spawns process ~s with opts (and monitors)\",\n [concuerror_lid:to_string(Parent),\n concuerror_lid:to_string(Child)]);\nto_string({spawn_opt, Parent, Child}) ->\n io_lib:format(\"Process ~s spawns process ~s with opts\",\n [concuerror_lid:to_string(Parent),\n concuerror_lid:to_string(Child)]);\nto_string({unlink, Proc, not_found}) ->\n io_lib:format(\"Process ~s unlinks from nonexisting process\",\n [concuerror_lid:to_string(Proc)]);\nto_string({unlink, Proc1, Proc2}) ->\n io_lib:format(\"Process ~s unlinks from process ~s\",\n [concuerror_lid:to_string(Proc1),\n concuerror_lid:to_string(Proc2)]);\nto_string({unregister, Proc, RegName}) ->\n io_lib:format(\"Process ~s unregisters process `~p`\",\n [concuerror_lid:to_string(Proc), RegName]);\nto_string({port_command, Proc, Port}) ->\n io_lib:format(\"Process ~s sends data to port ~w\",\n [concuerror_lid:to_string(Proc), Port]);\nto_string({port_control, Proc, Port}) ->\n io_lib:format(\"Process ~s performs control operation on port ~w\",\n [concuerror_lid:to_string(Proc), Port]);\nto_string({whereis, Proc, RegName, not_found}) ->\n io_lib:format(\"Process ~s requests the pid of unregistered \"\n \"process `~p` (undefined)\",\n [concuerror_lid:to_string(Proc), RegName]);\nto_string({whereis, Proc, RegName, RegLid}) ->\n io_lib:format(\"Process ~s requests the pid of process `~p` (~s)\",\n [concuerror_lid:to_string(Proc), RegName,\n concuerror_lid:to_string(RegLid)]);\nto_string({CallMsg, Proc, Args}) ->\n io_lib:format(\"Process ~s: ~p ~p\", [concuerror_lid:to_string(Proc), CallMsg, Args]).\n" }, { "path": "resources/old_source/concuerror_rep.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Replacement BIFs\n%%%----------------------------------------------------------------------\n\n-module(concuerror_rep).\n\n-export([spawn_fun_wrapper/1,\n start_target/3,\n find_my_links/0,\n find_my_monitors/0]).\n\n-export([rep_var/3, rep_apply/3, rep_send/2, rep_send/3]).\n\n-export([rep_port_command/2, rep_port_command/3, rep_port_control/3]).\n\n-export([rep_spawn/1, rep_spawn/3,\n rep_spawn_link/1, rep_spawn_link/3,\n rep_spawn_opt/2, rep_spawn_opt/4]).\n\n-export([rep_link/1, rep_unlink/1,\n rep_spawn_monitor/1, rep_spawn_monitor/3,\n rep_process_flag/2]).\n\n-export([rep_receive/3, rep_receive_block/0,\n rep_after_notify/0, rep_receive_notify/3,\n rep_receive_notify/1]).\n\n-export([rep_ets_insert_new/2, rep_ets_lookup/2, rep_ets_select_delete/2,\n rep_ets_insert/2, rep_ets_delete/1, rep_ets_delete/2,\n rep_ets_match/2, rep_ets_match/3,\n rep_ets_match_object/2, rep_ets_match_object/3,\n rep_ets_info/1, rep_ets_info/2, rep_ets_filter/3,\n rep_ets_match_delete/2, rep_ets_new/2, rep_ets_foldl/3]).\n\n-export([rep_register/2,\n rep_is_process_alive/1,\n rep_unregister/1,\n rep_whereis/1]).\n\n-export([rep_monitor/2, rep_demonitor/1, rep_demonitor/2]).\n\n-export([rep_halt/0, rep_halt/1]).\n\n-export([rep_start_timer/3, rep_send_after/3]).\n\n-export([rep_exit/2]).\n\n-export([rep_eunit/1]).\n\n-export([debug_print/1, debug_print/2, debug_apply/3]).\n-export([uninstrumented_send/2]).\n\n-export_type([dest/0]).\n\n-include(\"gen.hrl\").\n\n%%%----------------------------------------------------------------------\n%%% Definitions and Types\n%%%----------------------------------------------------------------------\n\n%% Return the calling process' LID.\n-define(LID_FROM_PID(Pid), concuerror_lid:from_pid(Pid)).\n\n%% The destination of a `send' operation.\n-type dest() :: pid() | port() | atom() | {atom(), node()}.\n\n%% Callback function mapping.\n%% TODO: Automatically generate this?\n-define(INSTR_MOD_FUN,\n [{{erlang, demonitor, 1}, fun rep_demonitor/1},\n {{erlang, demonitor, 2}, fun rep_demonitor/2},\n {{erlang, exit, 2}, fun rep_exit/2},\n {{erlang, halt, 0}, fun rep_halt/0},\n {{erlang, halt, 1}, fun rep_halt/1},\n {{erlang, is_process_alive, 1}, fun rep_is_process_alive/1},\n {{erlang, link, 1}, fun rep_link/1},\n {{erlang, monitor, 2}, fun rep_monitor/2},\n {{erlang, process_flag, 2}, fun rep_process_flag/2},\n {{erlang, register, 2}, fun rep_register/2},\n {{erlang, send, 2}, fun rep_send/2},\n {{erlang, send, 3}, fun rep_send/3},\n {{erlang, send_after, 3}, fun rep_send_after/3},\n {{erlang, spawn, 1}, fun rep_spawn/1},\n {{erlang, spawn, 3}, fun rep_spawn/3},\n {{erlang, spawn_link, 1}, fun rep_spawn_link/1},\n {{erlang, spawn_link, 3}, fun rep_spawn_link/3},\n {{erlang, spawn_monitor, 1}, fun rep_spawn_monitor/1},\n {{erlang, spawn_monitor, 3}, fun rep_spawn_monitor/3},\n {{erlang, spawn_opt, 2}, fun rep_spawn_opt/2},\n {{erlang, spawn_opt, 4}, fun rep_spawn_opt/4},\n {{erlang, start_timer, 3}, fun rep_start_timer/3},\n {{erlang, unlink, 1}, fun rep_unlink/1},\n {{erlang, unregister, 1}, fun rep_unregister/1},\n {{erlang, whereis, 1}, fun rep_whereis/1},\n {{erlang, apply, 3}, fun rep_apply/3},\n {{ets, insert_new, 2}, fun rep_ets_insert_new/2},\n {{ets, lookup, 2}, fun rep_ets_lookup/2},\n {{ets, select_delete, 2}, fun rep_ets_select_delete/2},\n {{ets, insert, 2}, fun rep_ets_insert/2},\n {{ets, delete, 1}, fun rep_ets_delete/1},\n {{ets, delete, 2}, fun rep_ets_delete/2},\n {{ets, match, 2}, fun rep_ets_match/2},\n {{ets, match, 3}, fun rep_ets_match/3},\n {{ets, match_object, 2}, fun rep_ets_match_object/2},\n {{ets, match_object, 3}, fun rep_ets_match_object/3},\n {{ets, match_delete, 2}, fun rep_ets_match_delete/2},\n {{ets, new, 2}, fun rep_ets_new/2},\n {{ets, filter, 3}, fun rep_ets_filter/3},\n {{ets, info, 1}, fun rep_ets_info/1},\n {{ets, info, 2}, fun rep_ets_info/2},\n {{ets, foldl, 3}, fun rep_ets_foldl/3}]).\n\n\n%%%----------------------------------------------------------------------\n%%% Start analysis target module/function\n%%%----------------------------------------------------------------------\n-spec start_target(module(), term(), [term()]) -> ok.\nstart_target(Mod, Fun, Args) ->\n InstrAppController = ets:member(?NT_OPTIONS, 'app_controller'),\n AppConModule =\n concuerror_instr:check_module_name(application_controller, none, 0),\n AppModule = concuerror_instr:check_module_name(application, none, 0),\n case InstrAppController of\n true ->\n AppConModule:start({application, kernel, []}),\n AppModule:start(kernel),\n AppModule:start(stdlib),\n ok;\n false ->\n ok\n end,\n apply(Mod, Fun, Args),\n case InstrAppController of\n true ->\n _ = [AppModule:stop(App) ||\n {App, _, _} <- AppModule:loaded_applications()],\n ok;\n false ->\n ok\n end.\n\n\n%%%----------------------------------------------------------------------\n%%% Callbacks\n%%%----------------------------------------------------------------------\n\n%% Handle Mod:Fun(Args) calls.\n-spec rep_var(module(), atom(), [term()]) -> term().\nrep_var(Mod, Fun, Args) ->\n check_unknown_process(),\n LenArgs = length(Args),\n Key = {Mod, Fun, LenArgs},\n case lists:keyfind(Key, 1, ?INSTR_MOD_FUN) of\n {Key, Callback} ->\n apply(Callback, Args);\n false ->\n %% Rename module\n RenameMod = concuerror_instr:check_module_name(Mod, Fun, LenArgs),\n apply(RenameMod, Fun, Args)\n end.\n\n%% Handle apply/3\n-spec rep_apply(module(), atom(), [term()]) -> term().\nrep_apply(Mod, Fun, Args) ->\n rep_var(Mod, Fun, Args).\n\n%% @spec: rep_demonitor(reference()) -> 'true'\n%% @doc: Replacement for `demonitor/1'.\n%%\n%% Just yield before demonitoring.\n-spec rep_demonitor(reference()) -> 'true'.\nrep_demonitor(Ref) ->\n check_unknown_process(),\n concuerror_sched:notify(demonitor, concuerror_lid:lookup_ref_lid(Ref)),\n demonitor(Ref).\n\n%% @spec: rep_demonitor(reference(), ['flush' | 'info']) -> 'true'\n%% @doc: Replacement for `demonitor/2'.\n%%\n%% Just yield before demonitoring.\n-spec rep_demonitor(reference(), ['flush' | 'info']) -> 'true'.\nrep_demonitor(Ref, Opts) ->\n check_unknown_process(),\n concuerror_sched:notify(demonitor, concuerror_lid:lookup_ref_lid(Ref)),\n case lists:member(flush, Opts) of\n true ->\n receive\n {?INSTR_MSG, _, _, {_, Ref, _, _, _}} ->\n true\n after 0 ->\n true\n end;\n false ->\n true\n end,\n demonitor(Ref, Opts).\n\n%% @spec: rep_halt() -> no_return()\n%% @doc: Replacement for `halt/0'.\n%%\n%% Just send halt message and yield.\n-spec rep_halt() -> no_return().\nrep_halt() ->\n check_unknown_process(),\n concuerror_sched:notify(halt, empty).\n\n%% @spec: rep_halt() -> no_return()\n%% @doc: Replacement for `halt/1'.\n%%\n%% Just send halt message and yield.\n-spec rep_halt(non_neg_integer() | string()) -> no_return().\nrep_halt(Status) ->\n check_unknown_process(),\n concuerror_sched:notify(halt, Status).\n\n%% @spec: rep_is_process_alive(pid()) -> boolean()\n%% @doc: Replacement for `is_process_alive/1'.\n-spec rep_is_process_alive(pid()) -> boolean().\nrep_is_process_alive(Pid) ->\n check_unknown_process(),\n case ?LID_FROM_PID(Pid) of\n not_found -> ok;\n PLid -> concuerror_sched:notify(is_process_alive, PLid)\n end,\n is_process_alive(Pid).\n\n%% @spec: rep_link(pid() | port()) -> 'true'\n%% @doc: Replacement for `link/1'.\n%%\n%% Just yield before linking.\n-spec rep_link(pid() | port()) -> 'true'.\nrep_link(Pid) ->\n check_unknown_process(),\n case ?LID_FROM_PID(Pid) of\n not_found -> ok;\n PLid -> concuerror_sched:notify(link, PLid)\n end,\n link(Pid).\n\n%% @spec: rep_monitor('process', pid() | {atom(), node()} | atom()) ->\n%% reference()\n%% @doc: Replacement for `monitor/2'.\n%%\n%% Just yield before monitoring.\n-spec rep_monitor('process', pid() | {atom(), node()} | atom()) ->\n reference().\nrep_monitor(Type, Item) ->\n check_unknown_process(),\n case ?LID_FROM_PID(find_pid(Item)) of\n not_found -> monitor(Type, Item);\n Lid ->\n concuerror_sched:notify(monitor, {Lid, unknown}),\n Ref = monitor(Type, Item),\n concuerror_sched:notify(monitor, {Lid, Ref}, prev),\n concuerror_sched:wait(),\n Ref\n end.\n\n%% @spec: rep_process_flag('trap_exit', boolean()) -> boolean();\n%% ('error_handler', atom()) -> atom();\n%% ('min_heap_size', non_neg_integer()) ->\n%% non_neg_integer();\n%% ('min_bin_vheap_size', non_neg_integer()) ->\n%% non_neg_integer();\n%% ('priority', process_priority_level()) ->\n%% process_priority_level();\n%% ('save_calls', non_neg_integer()) ->\n%% non_neg_integer();\n%% ('sensitive', boolean()) -> boolean()\n%% @doc: Replacement for `process_flag/2'.\n%%\n%% Just yield before altering the process flag.\n-type process_priority_level() :: 'max' | 'high' | 'normal' | 'low'.\n-spec rep_process_flag('trap_exit', boolean()) -> boolean();\n ('error_handler', atom()) -> atom();\n ('min_heap_size', non_neg_integer()) -> non_neg_integer();\n ('min_bin_vheap_size', non_neg_integer()) ->\n non_neg_integer();\n ('priority', process_priority_level()) ->\n process_priority_level();\n ('save_calls', non_neg_integer()) -> non_neg_integer();\n ('sensitive', boolean()) -> boolean().\nrep_process_flag(trap_exit = Flag, Value) ->\n check_unknown_process(),\n {trap_exit, OldValue} = process_info(self(), trap_exit),\n case Value =:= OldValue of\n true -> ok;\n false ->\n PlannedLinks = find_my_links(),\n concuerror_sched:notify(process_flag, {Flag, Value, PlannedLinks}),\n Links = find_my_links(),\n concuerror_sched:notify(process_flag, {Flag, Value, Links}, prev)\n end,\n process_flag(Flag, Value);\nrep_process_flag(Flag, Value) ->\n check_unknown_process(),\n process_flag(Flag, Value).\n\n-spec find_my_links() -> [concuerror_lid:lid()].\n\nfind_my_links() ->\n find_my_links_or_monitors(links).\n\nfind_my_monitored() ->\n find_my_links_or_monitors(monitored_by).\n\nfind_my_links_or_monitors(Type) ->\n PPid = self(),\n {Type, AllPids} = process_info(PPid, Type),\n AllLids = [?LID_FROM_PID(Pid) || Pid <- AllPids],\n [KnownLid || KnownLid <- AllLids, KnownLid =/= not_found].\n\n-spec find_my_monitors() -> [concuerror_lid:lid()].\n\nfind_my_monitors() ->\n PPid = self(),\n {monitors, AllPids} = process_info(PPid, monitors),\n AllLids = [?LID_FROM_PID(Pid) || {process, Pid} <- AllPids],\n [KnownLid || KnownLid <- AllLids, KnownLid =/= not_found].\n\n%% @spec rep_receive(\n%% fun((term()) -> 'block' | 'continue'),\n%% integer() | 'infinity',\n%% integer() | 'infinity') -> 'ok'.\n%% @doc: Function called right before a receive statement.\n%%\n%% If a matching message is found in the process' message queue, continue\n%% to actual receive statement, else block and when unblocked do the same.\n-spec rep_receive(\n fun((term()) -> 'block' | 'continue'),\n integer() | 'infinity',\n integer() | 'infinity') -> 'ok'.\nrep_receive(Fun, HasTimeout, IgnoreTimeout) ->\n check_unknown_process(),\n rep_receive_loop(poll, Fun, HasTimeout, IgnoreTimeout).\n\n-define(IGNORE_TIMEOUT(T, B), B =/= 'infinity' andalso T >= B).\n\nrep_receive_loop(Act, Fun, HasTimeout, Bound) ->\n case Act of\n ok -> ok;\n poll ->\n {messages, Mailbox} = process_info(self(), messages),\n case rep_receive_match(Fun, Mailbox) of\n block ->\n NewAct =\n case HasTimeout of\n infinity ->\n concuerror_sched:notify('receive', blocked);\n Timeout when ?IGNORE_TIMEOUT(Timeout, Bound) ->\n concuerror_sched:notify('receive', blocked);\n _ ->\n NewFun =\n fun(Msg) ->\n case rep_receive_match(Fun, [Msg]) of\n block -> false;\n continue -> true\n end\n end,\n Links = find_my_trappable_links(),\n Monitors = find_my_monitors(),\n Info = {NewFun, Links, Monitors},\n concuerror_sched:notify('after', Info)\n end,\n rep_receive_loop(NewAct, Fun, HasTimeout, Bound);\n continue ->\n Tag =\n case HasTimeout of\n infinity ->\n unblocked;\n Timeout when ?IGNORE_TIMEOUT(Timeout, Bound) ->\n unblocked;\n _ -> had_after\n end,\n ok = concuerror_sched:notify('receive', Tag)\n end\n end.\n\nfind_my_trappable_links() ->\n try {trap_exit, true} = erlang:process_info(self(), trap_exit) of\n _ -> find_my_links()\n catch\n _:_ -> []\n end.\n\nrep_receive_match(_Fun, []) ->\n block;\nrep_receive_match(Fun, [H|T]) ->\n case Fun(H) of\n block -> rep_receive_match(Fun, T);\n continue -> continue\n end.\n\n%% Blocks forever (used for 'receive after infinity -> ...' expressions).\n-spec rep_receive_block() -> no_return().\nrep_receive_block() ->\n Fun = fun(_Message) -> block end,\n rep_receive(Fun, infinity, infinity).\n\n%% @spec rep_after_notify() -> 'ok'\n%% @doc: Auxiliary function used in the `receive..after' statement\n%% instrumentation.\n%%\n%% Called first thing after an `after' clause has been entered.\n-spec rep_after_notify() -> 'ok'.\nrep_after_notify() ->\n check_unknown_process(),\n Info = {find_my_trappable_links(), find_my_monitors()},\n concuerror_sched:notify('after', Info, prev),\n ok.\n\n%% @spec rep_receive_notify(pid(), term()) -> 'ok'\n%% @doc: Auxiliary function used in the `receive' statement instrumentation.\n%%\n%% Called first thing after a message has been received, to inform the scheduler\n%% about the message received and the sender.\n-spec rep_receive_notify(pid(), dict(), term()) -> 'ok'.\nrep_receive_notify(From, CV, Msg) ->\n check_unknown_process(),\n concuerror_sched:notify('receive', {From, CV, Msg}, prev),\n ok.\n\n%% @spec rep_receive_notify(term()) -> 'ok'\n%% @doc: Auxiliary function used in the `receive' statement instrumentation.\n%%\n%% Similar to rep_receive/2, but used to handle 'EXIT' and 'DOWN' messages.\n-spec rep_receive_notify(term()) -> no_return().\nrep_receive_notify(_Msg) ->\n check_unknown_process(),\n %% XXX: Received uninstrumented message\n ok.\n\n%% @spec rep_register(atom(), pid() | port()) -> 'true'\n%% @doc: Replacement for `register/2'.\n%%\n%% Just yield after registering.\n-spec rep_register(atom(), pid() | port()) -> 'true'.\nrep_register(RegName, P) ->\n check_unknown_process(),\n case ?LID_FROM_PID(P) of\n not_found -> ok;\n PLid ->\n concuerror_sched:notify(register, {RegName, PLid})\n end,\n register(RegName, P).\n\n%% @spec rep_send(dest(), term()) -> term()\n%% @doc: Replacement for `send/2' (and the equivalent `!' operator).\n%%\n%% If the target has a registered LID then instrument the message\n%% and yield after sending. Otherwise, send the original message\n%% and continue without yielding.\n-spec rep_send(dest(), term()) -> term().\nrep_send(Dest, Msg) ->\n check_unknown_process(),\n send_center(Dest, Msg),\n Result = Dest ! Msg,\n concuerror_util:wait_messages(find_pid(Dest)),\n Result.\n\n%% @spec rep_send(dest(), term(), ['nosuspend' | 'noconnect']) ->\n%% 'ok' | 'nosuspend' | 'noconnect'\n%% @doc: Replacement for `send/3'.\n%%\n%% For now, call erlang:send/3, but ignore options in internal handling.\n-spec rep_send(dest(), term(), ['nosuspend' | 'noconnect']) ->\n 'ok' | 'nosuspend' | 'noconnect'.\nrep_send(Dest, Msg, Opt) ->\n check_unknown_process(),\n send_center(Dest, Msg),\n Result = erlang:send(Dest, Msg, Opt),\n concuerror_util:wait_messages(find_pid(Dest)),\n Result.\n\nsend_center(Dest, Msg) ->\n PlanLid = ?LID_FROM_PID(find_pid(Dest)),\n concuerror_sched:notify(send, {Dest, PlanLid, Msg}),\n SendLid = ?LID_FROM_PID(find_pid(Dest)),\n concuerror_sched:notify(send, {Dest, SendLid, Msg}, prev),\n ok.\n\n%% @spec rep_spawn(function()) -> pid()\n%% @doc: Replacement for `spawn/1'.\n%%\n%% The argument provided is the argument of the original spawn call.\n%% Before spawned, the new process has to yield.\n-spec rep_spawn(function()) -> pid().\nrep_spawn(Fun) ->\n spawn_center(spawn, Fun).\n\nspawn_center(Kind, Fun) ->\n check_unknown_process(),\n Spawner =\n case Kind of\n {spawn_opt, Opt} -> fun(F) -> spawn_opt(F, Opt) end;\n spawn -> fun spawn/1;\n spawn_link -> fun spawn_link/1;\n spawn_monitor -> fun spawn_monitor/1\n end,\n {Tag, Info} =\n case Kind of\n {spawn_opt, _} = S -> S;\n _ -> {Kind, unknown}\n end,\n concuerror_sched:notify(Tag, Info),\n Result = Spawner(fun() -> spawn_fun_wrapper(Fun) end),\n concuerror_sched:notify(Tag, Result, prev),\n %% Wait before using the PID to be sure that an LID is assigned\n concuerror_sched:wait(),\n Result.\n\n-spec spawn_fun_wrapper(function()) -> term().\nspawn_fun_wrapper(Fun) ->\n try\n ok = concuerror_sched:wait(),\n Fun(),\n exit(normal)\n catch\n exit:Normal when\n (Normal=:=normal orelse\n Normal=:=shutdown orelse\n Normal=:={shutdown, peer_close}) ->\n MyInfo = find_my_info(),\n concuerror_sched:notify(exit, {normal, MyInfo}),\n MyRealInfo = find_my_info(),\n concuerror_sched:notify(exit, {normal, MyRealInfo}, prev);\n Class:Type ->\n concuerror_sched:notify(error,[Class,Type,erlang:get_stacktrace()])\n end.\n\nfind_my_info() ->\n MyEts = find_my_ets_tables(),\n MyName = find_my_registered_name(),\n MyLinks = find_my_links(),\n MyMonitors = find_my_monitored(),\n {MyEts, MyName, MyLinks, MyMonitors}.\n\nfind_my_ets_tables() ->\n Self = self(),\n MyTIDs = [TID || TID <- ets:all(), Self =:= ets:info(TID, owner)],\n Fold =\n fun(TID, {HeirsAcc, TablesAcc}) ->\n Survives =\n case ets:info(TID, heir) of\n none -> false;\n Self -> false;\n Pid ->\n case is_process_alive(Pid) of\n false -> false;\n true ->\n case ?LID_FROM_PID(Pid) of\n not_found -> false;\n HeirLid0 -> {true, HeirLid0}\n end\n end\n end,\n case Survives of\n false ->\n T =\n {?LID_FROM_PID(TID),\n case ets:info(TID, named_table) of\n true -> {ok, ets:info(TID, name)};\n false -> none\n end},\n {HeirsAcc, [T|TablesAcc]};\n {true, HeirLid} ->\n {[HeirLid|HeirsAcc], TablesAcc}\n end\n end,\n lists:foldl(Fold, {[], []}, MyTIDs).\n\nfind_my_registered_name() ->\n case process_info(self(), registered_name) of\n [] -> none;\n {registered_name, Name} -> {ok, Name}\n end.\n\n%% @spec rep_spawn(atom(), atom(), [term()]) -> pid()\n%% @doc: Replacement for `spawn/3'.\n%%\n%% See `rep_spawn/1'.\n-spec rep_spawn(atom(), atom(), [term()]) -> pid().\nrep_spawn(Module, Function, Args) ->\n %% Rename module\n LenArgs = length(Args),\n NewModule = concuerror_instr:check_module_name(Module, Function, LenArgs),\n Fun = fun() -> apply(NewModule, Function, Args) end,\n rep_spawn(Fun).\n\n%% @spec rep_spawn_link(function()) -> pid()\n%% @doc: Replacement for `spawn_link/1'.\n%%\n%% Before spawned, the new process has to yield.\n-spec rep_spawn_link(function()) -> pid().\nrep_spawn_link(Fun) ->\n spawn_center(spawn_link, Fun).\n\n%% @spec rep_spawn_link(atom(), atom(), [term()]) -> pid()\n%% @doc: Replacement for `spawn_link/3'.\n%%\n%% See `rep_spawn_link/1'.\n-spec rep_spawn_link(atom(), atom(), [term()]) -> pid().\nrep_spawn_link(Module, Function, Args) ->\n %% Rename module\n LenArgs = length(Args),\n NewModule = concuerror_instr:check_module_name(Module, Function, LenArgs),\n Fun = fun() -> apply(NewModule, Function, Args) end,\n rep_spawn_link(Fun).\n\n%% @spec rep_spawn_monitor(function()) -> {pid(), reference()}\n%% @doc: Replacement for `spawn_monitor/1'.\n%%\n%% Before spawned, the new process has to yield.\n-spec rep_spawn_monitor(function()) -> {pid(), reference()}.\nrep_spawn_monitor(Fun) ->\n spawn_center(spawn_monitor, Fun).\n\n%% @spec rep_spawn_monitor(atom(), atom(), [term()]) -> {pid(), reference()}\n%% @doc: Replacement for `spawn_monitor/3'.\n%%\n%% See rep_spawn_monitor/1.\n-spec rep_spawn_monitor(atom(), atom(), [term()]) -> {pid(), reference()}.\nrep_spawn_monitor(Module, Function, Args) ->\n %% Rename module\n LenArgs = length(Args),\n NewModule = concuerror_instr:check_module_name(Module, Function, LenArgs),\n Fun = fun() -> apply(NewModule, Function, Args) end,\n rep_spawn_monitor(Fun).\n\n%% @spec rep_spawn_opt(function(),\n%% ['link' | 'monitor' |\n%% {'priority', process_priority_level()} |\n%% {'fullsweep_after', integer()} |\n%% {'min_heap_size', integer()} |\n%% {'min_bin_vheap_size', integer()}]) ->\n%% pid() | {pid(), reference()}\n%% @doc: Replacement for `spawn_opt/2'.\n%%\n%% Before spawned, the new process has to yield.\n-spec rep_spawn_opt(function(),\n ['link' | 'monitor' |\n {'priority', process_priority_level()} |\n {'fullsweep_after', integer()} |\n {'min_heap_size', integer()} |\n {'min_bin_vheap_size', integer()}]) ->\n pid() | {pid(), reference()}.\nrep_spawn_opt(Fun, Opt) ->\n spawn_center({spawn_opt, Opt}, Fun).\n\n%% @spec rep_spawn_opt(atom(), atom(), [term()],\n%% ['link' | 'monitor' |\n%% {'priority', process_priority_level()} |\n%% {'fullsweep_after', integer()} |\n%% {'min_heap_size', integer()} |\n%% {'min_bin_vheap_size', integer()}]) ->\n%% pid() | {pid(), reference()}\n%% @doc: Replacement for `spawn_opt/4'.\n%%\n%% Before spawned, the new process has to yield.\n-spec rep_spawn_opt(atom(), atom(), [term()],\n ['link' | 'monitor' |\n {'priority', process_priority_level()} |\n {'fullsweep_after', integer()} |\n {'min_heap_size', integer()} |\n {'min_bin_vheap_size', integer()}]) ->\n pid() | {pid(), reference()}.\nrep_spawn_opt(Module, Function, Args, Opt) ->\n %% Rename module\n LenArgs = length(Args),\n NewModule = concuerror_instr:check_module_name(Module, Function, LenArgs),\n Fun = fun() -> apply(NewModule, Function, Args) end,\n rep_spawn_opt(Fun, Opt).\n\n%% @spec: rep_start_timer(non_neg_integer(), pid() | atom(), term()) ->\n%% reference().\n%% @doc: Replacement for `start_timer/3'.\n%%\n%% TODO: Currently it sends the message immediately and returns a random ref.\n-spec rep_start_timer(non_neg_integer(), pid() | atom(), term()) -> reference().\nrep_start_timer(Time, Dest, Msg) ->\n check_unknown_process(),\n Ref = make_ref(),\n case ets:lookup(?NT_OPTIONS, 'ignore_timeout') of\n [{'ignore_timeout', ITValue}] when ITValue =< Time ->\n %% Ignore this start_timer operation\n ok;\n _ ->\n concuerror_sched:notify(start_timer, {?LID_FROM_PID(Dest), Msg}),\n Dest ! {timeout, Ref, Msg},\n ok\n end,\n Ref.\n\n%% @spec: rep_send_after(non_neg_integer(), pid() | atom(), term()) ->\n%% reference().\n%% @doc: Replacement for `send_after/3'.\n%%\n%% TODO: Currently it sends the message immediately and returns a random ref.\n-spec rep_send_after(non_neg_integer(), pid() | atom(), term()) -> reference().\nrep_send_after(Time, Dest, Msg) ->\n check_unknown_process(),\n case ets:lookup(?NT_OPTIONS, 'ignore_timeout') of\n [{'ignore_timeout', ITValue}] when ITValue =< Time ->\n %% Ignore this send_after operation\n ok;\n _ ->\n concuerror_sched:notify(send_after, {?LID_FROM_PID(Dest), Msg}),\n Dest ! Msg,\n ok\n end,\n make_ref().\n\n%% @spec: rep_exit(pid() | port(), term()) -> 'true'.\n%% @doc: Replacement for `exit/2'.\n-spec rep_exit(pid() | port(), term()) -> 'true'.\nrep_exit(Pid, Reason) ->\n check_unknown_process(),\n concuerror_sched:notify(exit_2, {?LID_FROM_PID(Pid), Reason}),\n exit(Pid, Reason),\n concuerror_util:wait_messages(find_pid(Pid)),\n true.\n\n%% @spec: rep_unlink(pid() | port()) -> 'true'\n%% @doc: Replacement for `unlink/1'.\n%%\n%% Just yield before unlinking.\n-spec rep_unlink(pid() | port()) -> 'true'.\nrep_unlink(Pid) ->\n check_unknown_process(),\n case ?LID_FROM_PID(Pid) of\n not_found -> ok;\n PLid -> concuerror_sched:notify(unlink, PLid)\n end,\n unlink(Pid).\n\n%% @spec rep_unregister(atom()) -> 'true'\n%% @doc: Replacement for `unregister/1'.\n%%\n%% Just yield before unregistering.\n-spec rep_unregister(atom()) -> 'true'.\nrep_unregister(RegName) ->\n check_unknown_process(),\n concuerror_sched:notify(unregister, RegName),\n unregister(RegName).\n\n%% @spec rep_whereis(atom()) -> pid() | port() | 'undefined'\n%% @doc: Replacement for `whereis/1'.\n%%\n%% Just yield before calling whereis/1.\n-spec rep_whereis(atom()) -> pid() | port() | 'undefined'.\nrep_whereis(RegName) ->\n check_unknown_process(),\n concuerror_sched:notify(whereis, {RegName, unknown}),\n R = whereis(RegName),\n Value =\n case R =:= undefined of\n true -> not_found;\n false -> ?LID_FROM_PID(R)\n end,\n concuerror_sched:notify(whereis, {RegName, Value}, prev),\n R.\n\n%% @spec rep_port_command(port(), term()) -> true\n%% @doc: Replacement for `port_command/2'.\n%%\n%% Just yield before calling port_command/2.\n-spec rep_port_command(port, term()) -> true.\nrep_port_command(Port, Data) ->\n check_unknown_process(),\n %concuerror_sched:notify(port_command, Port),\n port_command(Port, Data),\n concuerror_util:wait_messages(not_found),\n true.\n\n%% @spec rep_port_command(port(), term(), [force | nosuspend]) -> boolean()\n%% @doc: Replacement for `port_command/3'.\n%%\n%% Just yield before calling port_command/3.\n-spec rep_port_command(port, term(), [force | nosuspend]) -> boolean().\nrep_port_command(Port, Data, OptionList) ->\n check_unknown_process(),\n %concuerror_sched:notify(port_command, Port),\n Result = port_command(Port, Data, OptionList),\n concuerror_util:wait_messages(not_found),\n Result.\n\n%% @spec rep_port_control(port(), integer(), term()) -> term()\n%% @doc: Replacement for `port_control/3'.\n%%\n%% Just yield before calling port_control/3.\n-spec rep_port_control(port, integer(), term()) -> term().\nrep_port_control(Port, Operation, Data) ->\n check_unknown_process(),\n %concuerror_sched:notify(port_control, Port),\n Result = port_control(Port, Operation, Data),\n concuerror_util:wait_messages(not_found),\n Result.\n\n\n%%%----------------------------------------------------------------------\n%%% ETS replacements\n%%%----------------------------------------------------------------------\n-type ets_new_option() :: ets_new_type() | ets_new_access() | named_table\n | {keypos,integer()} | {heir,pid(),term()} | {heir,none}\n | ets_new_tweaks().\n-type ets_new_type() :: set | ordered_set | bag | duplicate_bag.\n-type ets_new_access() :: public | protected | private.\n-type ets_new_tweaks() :: {write_concurrency,boolean()}\n | {read_concurrency,boolean()} | compressed.\n\n-spec rep_ets_new(atom(), [ets_new_option()]) -> ets:tab().\nrep_ets_new(Name, Options) ->\n check_unknown_process(),\n NewName = rename_ets_table(Name),\n concuerror_sched:notify(ets, {new, [unknown, NewName, Options]}),\n try\n Tid = ets:new(NewName, Options),\n concuerror_sched:notify(ets, {new, [Tid, NewName, Options]}, prev),\n concuerror_sched:wait(),\n Tid\n catch\n _:_ ->\n %% Report a fake tid...\n concuerror_sched:notify(ets, {new, [-1, NewName, Options]}, prev),\n concuerror_sched:wait(),\n %% And throw the error again...\n ets:new(NewName, Options)\n end.\n\n-spec rep_ets_insert(ets:tab(), tuple() | [tuple()]) -> true.\nrep_ets_insert(Tab, Obj) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n ets_insert_center(insert, NewTab, Obj).\n\n-spec rep_ets_insert_new(ets:tab(), tuple()|[tuple()]) -> boolean().\nrep_ets_insert_new(Tab, Obj) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n ets_insert_center(insert_new, NewTab, Obj).\n\nets_insert_center(Type, Tab, Obj) ->\n KeyPos = ets:info(Tab, keypos),\n Lid = ?LID_FROM_PID(Tab),\n ConvObj =\n case is_tuple(Obj) of\n true -> [Obj];\n false -> Obj\n end,\n Keys = ordsets:from_list([element(KeyPos, O) || O <- ConvObj]),\n concuerror_sched:notify(ets, {Type, [Lid, Tab, Keys, KeyPos, ConvObj, true]}),\n Fun =\n case Type of\n insert -> fun ets:insert/2;\n insert_new -> fun ets:insert_new/2\n end,\n try\n Ret = Fun(Tab, Obj),\n %% XXX: Hardcoded true to avoid sleep set blocking.\n Info = {Type, [Lid, Tab, Keys, KeyPos, ConvObj, true]}, %Ret]},\n concuerror_sched:notify(ets, Info, prev),\n Ret\n catch\n _:_ ->\n %% Report a fake result...\n FailInfo = {Type, [Lid, Tab, Keys, KeyPos, ConvObj, false]},\n concuerror_sched:notify(ets, FailInfo, prev),\n %% And throw the error again...\n Fun(Tab, Obj)\n end.\n\n-spec rep_ets_lookup(ets:tab(), term()) -> [tuple()].\nrep_ets_lookup(Tab, Key) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n Lid = ?LID_FROM_PID(NewTab),\n concuerror_sched:notify(ets, {lookup, [Lid, NewTab, Key]}),\n ets:lookup(NewTab, Key).\n\n-spec rep_ets_delete(ets:tab()) -> true.\nrep_ets_delete(Tab) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n concuerror_sched:notify(ets, {delete, [?LID_FROM_PID(NewTab), NewTab]}),\n ets:delete(NewTab).\n\n-spec rep_ets_delete(ets:tab(), term()) -> true.\nrep_ets_delete(Tab, Key) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n concuerror_sched:notify(ets,\n {delete, [?LID_FROM_PID(NewTab), NewTab, Key]}),\n ets:delete(NewTab, Key).\n\n-type match_spec() :: [{match_pattern(), [term()], [term()]}].\n-type match_pattern() :: atom() | tuple().\n-spec rep_ets_select_delete(ets:tab(), match_spec()) -> non_neg_integer().\nrep_ets_select_delete(Tab, MatchSpec) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n concuerror_sched:notify(ets,\n {select_delete, [?LID_FROM_PID(NewTab), NewTab, MatchSpec]}),\n ets:select_delete(NewTab, MatchSpec).\n\n-spec rep_ets_match_delete(ets:tab(), match_pattern()) -> true.\nrep_ets_match_delete(Tab, Pattern) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n concuerror_sched:notify(ets,\n {match_delete, [?LID_FROM_PID(NewTab), NewTab, Pattern]}),\n ets:match_delete(NewTab, Pattern).\n\n-spec rep_ets_match_object(ets:tab(), tuple()) -> [tuple()].\nrep_ets_match_object(Tab, Pattern) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n concuerror_sched:notify(ets,\n {match_object, [?LID_FROM_PID(NewTab), NewTab, Pattern]}),\n ets:match_object(NewTab, Pattern).\n\n-spec rep_ets_match_object(ets:tab(), tuple(), integer()) ->\n {[[term()]],term()} | '$end_of_table'.\nrep_ets_match_object(Tab, Pattern, Limit) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n concuerror_sched:notify(ets,\n {match_object, [?LID_FROM_PID(NewTab), NewTab, Pattern, Limit]}),\n ets:match_object(NewTab, Pattern, Limit).\n\n-spec rep_ets_foldl(fun((term(), term()) -> term()), term(), ets:tab()) -> term().\nrep_ets_foldl(Function, Acc, Tab) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n concuerror_sched:notify(ets,\n {foldl, [?LID_FROM_PID(NewTab), Function, Acc, NewTab]}),\n ets:foldl(Function, Acc, NewTab).\n\n-spec rep_ets_info(ets:tab()) -> [{atom(), term()}] | undefined.\nrep_ets_info(Tab) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n concuerror_sched:notify(ets,\n {info, [?LID_FROM_PID(NewTab), NewTab]}),\n ets:info(NewTab).\n\n-spec rep_ets_info(ets:tab(), atom()) -> term() | undefined.\nrep_ets_info(Tab, Item) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n concuerror_sched:notify(ets,\n {info, [?LID_FROM_PID(NewTab), NewTab, Item]}),\n ets:info(NewTab, Item).\n\n-spec rep_ets_filter(ets:tab(), fun((term()) -> term()), term()) -> term().\n%% XXX: no preemption point for now.\nrep_ets_filter(Tab, Fun, Args) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n ets:filter(NewTab, Fun, Args).\n\n-spec rep_ets_match(ets:tab(), term()) -> term().\n%%XXX: no preemption point for now.\nrep_ets_match(Tab, Pattern) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n ets:match(NewTab, Pattern).\n\n-spec rep_ets_match(ets:tab(), term(), integer()) -> term().\n%%XXX: no preemption point for now.\nrep_ets_match(Tab, Pattern, Limit) ->\n check_unknown_process(),\n NewTab = rename_ets_table(Tab),\n ets:match(NewTab, Pattern, Limit).\n\n\n%%%----------------------------------------------------------------------\n%%% Helper functions\n%%%----------------------------------------------------------------------\n\nfind_pid(Pid) when is_pid(Pid) ->\n Pid;\nfind_pid(Atom) when is_atom(Atom) ->\n whereis(Atom);\nfind_pid(Other) ->\n Other.\n\ncheck_unknown_process() ->\n %% Check if an unknown (not registered)\n %% process is trying to run instrumented code.\n case ?LID_FROM_PID(self()) of\n not_found ->\n Trace = (catch error('Unregistered')),\n concuerror_log:internal(\"Unregistered process is trying \"\n \"to run instrumented code\\n~p\\n\", [Trace]);\n _Else -> ok\n end.\n\n%% When instrumenting the application controller rename\n%% ac_tab ets table.\nrename_ets_table(ac_tab) ->\n InstrAppController = ets:member(?NT_OPTIONS, 'app_controller'),\n case InstrAppController of\n true -> concuerror_instr:check_module_name(ac_tab, none, 0);\n false -> ac_tab\n end;\nrename_ets_table(Tab) -> Tab.\n\n%%%----------------------------------------------------------------------\n%%% Run eunit tests using concuerror\n%%%----------------------------------------------------------------------\n\n-spec rep_eunit(module()) -> ok.\nrep_eunit(Module) ->\n ReModule = concuerror_instr:check_module_name(Module,none,0),\n rep_apply(eunit, start, []),\n rep_apply(eunit, test, [[{module, ReModule}], [no_tty]]),\n rep_apply(eunit, stop, []).\n\n\n%%%----------------------------------------------------------------------\n%%% For debugging purposes\n%%% This functions can be executed from inside\n%%% instrumented code and will behave as expected\n%%% by bypassing Concuerror's instrumenter and scheduler.\n%%%----------------------------------------------------------------------\n\n-spec debug_print(io:format()) -> true.\ndebug_print(Format) ->\n debug_print(Format, []).\n\n-spec debug_print(io:format(), [term()]) -> true.\ndebug_print(Format, Data) ->\n G = group_leader(),\n InitPid = whereis(init),\n group_leader(InitPid, self()),\n io:format(Format, Data),\n group_leader(G, self()).\n\n-spec debug_apply(module(), atom(), [term()]) -> term().\ndebug_apply(Mod, Fun, Args) ->\n apply(Mod, Fun, Args).\n\n-spec uninstrumented_send(pid(), term()) -> term().\n\nuninstrumented_send(Pid, Term) ->\n Pid ! Term.\n" }, { "path": "resources/old_source/concuerror_sched.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Scheduler\n%%%----------------------------------------------------------------------\n\n-module(concuerror_sched).\n\n%% UI related exports\n-export([analyze/3]).\n\n%% Internal exports\n-export([notify/2, notify/3, wait/0]).\n\n-export_type([analysis_target/0, analysis_ret/0, bound/0, transition/0]).\n\n%%-define(COND_DEBUG, true).\n%%-define(DEBUG, true).\n-define(CLASSIC, classic).\n-define(SOURCE, source).\n-define(FULL, full).\n-include(\"gen.hrl\").\n\n%%%----------------------------------------------------------------------\n%%% Definitions\n%%%----------------------------------------------------------------------\n\n-define(INFINITY, infinity).\n-define(NO_ERROR, undef).\n-define(TIME_LIMIT, 20*1000). % (in ms)\n\n%%%----------------------------------------------------------------------\n%%% Records\n%%%----------------------------------------------------------------------\n\n%% 'next' messages are about next instrumented instruction not yet dispatched\n%% 'prev' messages are about additional effects of a dispatched instruction\n%% 'async' messages are about receives which have become enabled\n-type sched_msg_type() :: 'next' | 'prev' | 'async'.\n\n%% Internal message format\n%%\n%% msg : An atom describing the type of the message.\n%% pid : The sender's LID.\n%% misc : Optional arguments, depending on the message type.\n-record(sched, {msg :: atom(),\n lid :: concuerror_lid:lid(),\n misc = empty :: term(),\n type = next :: sched_msg_type()}).\n\n%%%----------------------------------------------------------------------\n%%% Types\n%%%----------------------------------------------------------------------\n\n-type analysis_info() :: {analysis_target(),\n non_neg_integer(), %% Number of interleavings\n non_neg_integer()}. %% Sleep-Set blocked traces\n\n\n%% Analysis result tuple.\n-type analysis_ret() ::\n {'ok', analysis_info()} |\n {'error', 'instr', analysis_info()} |\n {'error', 'analysis', analysis_info(), [concuerror_ticket:ticket()]}.\n\n%% Module-Function-Arguments tuple.\n-type analysis_target() :: {module(), atom(), [term()]}.\n\n-type bound() :: 'inf' | non_neg_integer().\n\n%% Scheduler notification.\n\n-type notification() :: 'after' | 'block' | 'demonitor' | 'ets_delete' |\n 'ets_foldl' | 'ets_insert' | 'ets_insert_new' |\n 'ets_lookup' | 'ets_match_delete' | 'ets_match_object' |\n 'ets_select_delete' | 'fun_exit' | 'halt' |\n 'is_process_alive' | 'link' | 'monitor' | 'process_flag'\n | 'receive' | 'receive_no_instr' | 'register' | 'send' |\n 'send_after' | 'spawn' | 'spawn_link' | 'spawn_monitor'\n | 'spawn_opt' | 'start_timer' | 'unlink' | 'unregister'\n | 'whereis' | 'port_command' | 'port_control'.\n\n%%%----------------------------------------------------------------------\n%%% User interface\n%%%----------------------------------------------------------------------\n\n%% @spec: analyze(analysis_target(), [file:filename()], concuerror:options()) ->\n%% analysis_ret()\n%% @doc: Produce all interleavings of running `Target'.\n-spec analyze(analysis_target(), [file:filename()], concuerror:options()) ->\n analysis_ret().\n\nanalyze({Mod,Fun,Args}=Target, Files, Options) ->\n PreBound =\n case lists:keyfind(preb, 1, Options) of\n {preb, inf} -> ?INFINITY;\n {preb, Bound} -> Bound;\n false -> ?DEFAULT_PREB\n end,\n Dpor =\n case lists:keyfind(dpor, 1, Options) of\n {dpor, Flavor} -> Flavor;\n false -> 'none'\n end,\n Ret =\n case concuerror_instr:instrument_and_compile(Files, Options) of\n {ok, Bin} ->\n %% Note: No error checking for load\n ok = concuerror_instr:load(Bin),\n %% Rename Target's module\n NewMod = concuerror_instr:check_module_name(Mod, Fun, 0),\n NewTarget = {NewMod, Fun, Args},\n concuerror_log:log(0, \"\\nRunning analysis with preemption \"\n \"bound ~p... \\n\", [PreBound]),\n %% Reset the internal state for the progress logger\n concuerror_log:reset(),\n %% Unregister some key processes\n %% inet_gethos_native will run without supervisor\n %% (Icky fallback)\n catch unregister(kernel_safe_sup),\n catch unregister(net_sup),\n %% Run all possible interleavings\n {T1, _} = statistics(wall_clock),\n Result = do_analysis(NewTarget, PreBound, Dpor, Options),\n {T2, _} = statistics(wall_clock),\n {Mins, Secs} = concuerror_util:to_elapsed_time(T1, T2),\n ?debug(\"Done in ~wm~.2fs\\n\", [Mins, Secs]),\n %% Print analysis summary\n {Tickets, RunCount, SBlocked, Trans, STrans} = Result,\n StrB =\n case SBlocked of\n 0 -> \" \";\n _ -> io_lib:format(\n \" (encountered ~w sleep-set blocked traces (~w transitions)) \",\n [SBlocked, STrans])\n end,\n MemoryStr =\n try erlang:memory(maximum) of\n N ->\n MB = N / (1024*1024),\n io_lib:format(\" (using ~.2fMB)\",[MB])\n catch\n _:_ ->\n \"\"\n end,\n concuerror_log:log(0, \"\\n\\nAnalysis complete. Checked \"\n \"~w interleaving(s) (~w transitions)~sin ~wm~.2fs~s:\\n\",\n [RunCount, Trans, StrB, Mins, Secs, MemoryStr]),\n case Tickets =:= [] of\n true ->\n concuerror_log:log(0, \"No errors found.~n\"),\n {ok, {Target, RunCount, SBlocked}};\n false ->\n TicketCount = length(Tickets),\n concuerror_log:log(0,\n \"Found ~p erroneous interleaving(s).~n\",\n [TicketCount]),\n {error, analysis, {Target, RunCount, SBlocked}, Tickets}\n end;\n error -> {error, instr, {Target, 0, 0}}\n end,\n concuerror_instr:delete_and_purge(Options),\n Ret.\n\n%% Produce all possible process interleavings of (Mod, Fun, Args).\ndo_analysis(Target, PreBound, Dpor, Options) ->\n Self = self(),\n Fun = fun() -> scheduler_main(Target, PreBound, Self, Dpor, Options) end,\n process_flag(trap_exit, true),\n Backend = spawn_link(Fun),\n receive\n {interleave_result, Result} -> Result;\n {'EXIT', Backend, Reason} ->\n Msg = io_lib:format(\"Backend exited with reason:\\n ~p\\n\", [Reason]),\n concuerror_log:internal(Msg)\n end.\n\n%% =============================================================================\n%% DATA STRUCTURES\n%% =============================================================================\n\n-type s_i() :: non_neg_integer().\n-type instr() :: term().\n-type transition() :: {concuerror_lid:lid(), instr(), list()}.\n-type lid_trace() :: [{concuerror_lid:lid(), transition(), lid_trace()}].\n-type clock_map() :: dict(). %% dict(concuerror_lid:lid(), clock_vector()).\n-type clock_vector() :: orddict:orddict(). %% dict(concuerror_lid:lid(), s_i()).\n\n-record(trace_state, {\n i = 0 :: s_i(),\n last = init_tr() :: transition(),\n last_blocked = false :: boolean(),\n enabled = ordsets:new() :: ordsets:ordset(concuerror_lid:lid()),\n blocked = ordsets:new() :: ordsets:ordset(concuerror_lid:lid()),\n pollable = ordsets:new() :: ordsets:ordset(concuerror_lid:lid()),\n backtrack = [] :: lid_trace(),\n done = ordsets:new() :: ordsets:ordset(concuerror_lid:lid()),\n sleep_set = ordsets:new() :: ordsets:ordset(concuerror_lid:lid()),\n nexts = dict:new() :: dict(), % dict(lid(), instr()),\n clock_map = empty_clock_map() :: clock_map(),\n preemptions = 0 :: non_neg_integer(),\n race_checked = false :: boolean(),\n receives_vector = [] :: clock_vector()\n }).\n\n-type trace_state() :: #trace_state{}.\n\n-record(dpor_state, {\n target :: analysis_target(),\n run_count = 1 :: pos_integer(),\n sleep_blocked_count = 0 :: non_neg_integer(),\n total_trans = 0 :: non_neg_integer(),\n sleep_trans = 0 :: non_neg_integer(),\n show_output = false :: boolean(),\n tickets = [] :: [concuerror_ticket:ticket()],\n trace = [] :: [trace_state()],\n must_replay = false :: boolean(),\n bound_flag = false :: boolean(),\n proc_before = [] :: [pid()],\n dpor_flavor = 'none' :: 'full' | 'classic' | 'source' | 'none',\n preemption_bound = inf :: non_neg_integer() | 'inf',\n group_leader :: pid()\n }).\n\n%% =============================================================================\n%% LOGIC (high level description of the exploration algorithm)\n%% =============================================================================\n\nscheduler_main(Target, PreBound, Parent, Dpor, Options) ->\n %% fprof:trace(start),\n ?debug(\"Scheduler spawned\\n\"),\n register(?RP_SCHED, self()),\n Procs = processes(),\n %% To be able to clean up we need to be trapping exits...\n process_flag(trap_exit, true),\n %% Get `show_output' flag from options\n ShowOutput = lists:keymember('show_output', 1, Options),\n {Trace, GroupLeader} = start_target(Target),\n ?debug(\"Initial target spawned\\n\"),\n NewState = #dpor_state{trace = Trace, target = Target, proc_before = Procs,\n dpor_flavor = Dpor, preemption_bound = PreBound,\n show_output = ShowOutput, group_leader = GroupLeader},\n Result = explore(NewState),\n %% fprof:trace(stop),\n unregister(?RP_SCHED),\n Parent ! {interleave_result, Result}.\n\ninit_tr() -> {concuerror_lid:root_lid(), init, []}.\n\nstart_target(Target) ->\n {FirstLid, GroupLeader} = start_target_op(Target),\n Next = wait_next(FirstLid, init),\n New = ordsets:new(),\n MaybeEnabled = ordsets:add_element(FirstLid, New),\n {Pollable, Enabled, Blocked} =\n update_lid_enabled(FirstLid, Next, New, MaybeEnabled, New),\n %% FIXME: check_messages and poll should also be called here for\n %% instrumenting \"black\" initial messages.\n TraceTop =\n #trace_state{nexts = dict:store(FirstLid, Next, dict:new()),\n enabled = Enabled, blocked = Blocked,\n backtrack = new_backtrack([{P, Next} || P <- Enabled]),\n pollable = Pollable},\n {[TraceTop], GroupLeader}.\n\nnew_backtrack(LidList) ->\n [{Lid, Tr, []} || {Lid, Tr} <- LidList].\n\n%% -----------------------------------------------------------------------------\n%% The main explore routine\n%% -----------------------------------------------------------------------------\n\nexplore(State) ->\n receive\n stop_analysis -> dpor_return(State)\n after 0 ->\n case select_from_backtrack(State) of\n {ok, {Lid, Cmd, _} = Selected, UpdState} ->\n case Cmd of\n {error, _ErrorInfo} ->\n RaceCheckState = race_check(UpdState),\n ErrorState = report_error(Selected, RaceCheckState),\n NewState = drop_last_frame(ErrorState),\n explore(NewState);\n _Else ->\n ?debug(\"Plan: ~p\\n\",[Selected]),\n Next = wait_next(Lid, Cmd),\n NextState = update_trace(Selected, Next, UpdState),\n NewState = add_some_next_to_backtrack(NextState),\n explore(NewState)\n end;\n none ->\n UpdState =\n case State#dpor_state.must_replay of\n true ->\n %% Already backtracking\n State;\n false ->\n RaceCheckState = race_check(State),\n report_possible_deadlock(RaceCheckState)\n end,\n NewState = drop_last_frame(UpdState),\n case finished(NewState) of\n false -> explore(NewState);\n true -> dpor_return(NewState)\n end\n end\n end.\n\n%% -----------------------------------------------------------------------------\n\nselect_from_backtrack(#dpor_state{trace = []}) -> none;\nselect_from_backtrack(#dpor_state{must_replay = MustReplay, trace = Trace,\n bound_flag = BoundFlag} = State) ->\n [#trace_state{backtrack = Backtrack,\n done = Done,\n sleep_set = SleepSet} = _TraceTop|_] = Trace,\n ?debug(\"------------\\nExplore ~p\\n------------\\n\",\n [_TraceTop#trace_state.i + 1]),\n Sleepers = ordsets:union(SleepSet, Done),\n case pick_from_backtrack(BoundFlag, Backtrack, Sleepers) of\n none ->\n ?debug(\"Backtrack set explored\\n\",[]),\n none;\n {true, SelectedLid} ->\n UpdState =\n case MustReplay of\n true -> replay_trace(State);\n false -> State\n end,\n [NewTraceTop|RestTrace] = UpdState#dpor_state.trace,\n Instruction =\n dict:fetch(SelectedLid, NewTraceTop#trace_state.nexts),\n NewDone = ordsets:add_element(SelectedLid, Done),\n FinalTraceTop =\n NewTraceTop#trace_state{done = NewDone},\n FinalState = UpdState#dpor_state{trace = [FinalTraceTop|RestTrace]},\n {ok, Instruction, FinalState}\n end.\n\npick_from_backtrack(true, _Backtrack, _Sleepers) -> none;\npick_from_backtrack(_BoundFlag, Backtrack, Sleepers) ->\n pick_from_backtrack(Backtrack, Sleepers).\n\npick_from_backtrack([], _) -> none;\npick_from_backtrack([{B, _, _}|Rest], Done) ->\n case ordsets:is_element(B, Done) of\n true -> pick_from_backtrack(Rest, Done);\n false -> {true, B}\n end.\n\n%% -----------------------------------------------------------------------------\n\n%% - add new entry with new entry\n%% - wait any possible additional messages\n%% - check for async\nupdate_trace(Selected, Next, State) ->\n #dpor_state{trace = Trace, dpor_flavor = Flavor} = State,\n NewTrace = update_trace(Selected, Next, Trace, Flavor, false),\n State#dpor_state{trace = NewTrace}.\n\nupdate_trace({Lid, _, _} = Selected, Next, [PrevTraceTop|_] = Trace,\n Flavor, Replaying) ->\n #trace_state{i = I, enabled = Enabled, blocked = Blocked,\n pollable = Pollable, done = Done, backtrack = Backtrack,\n nexts = Nexts, clock_map = ClockMap, sleep_set = SleepSet,\n preemptions = Preemptions, last = {LLid,_,_}} = PrevTraceTop,\n Expected = dict:fetch(Lid, Nexts),\n NewNexts = dict:store(Lid, Next, Nexts),\n ClockVector = lookup_clock(Lid, ClockMap),\n MaybeNotPollable = ordsets:del_element(Lid, Pollable),\n {NewPollable, NewEnabled, NewBlocked} =\n update_lid_enabled(Lid, Next, MaybeNotPollable, Enabled, Blocked),\n CommonNewTraceTop =\n case Replaying of\n false ->\n NewN = I+1,\n BaseClockVector = orddict:store(Lid, NewN, ClockVector),\n LidsClockVector =\n recent_dependency_cv(Selected, BaseClockVector, Trace),\n NewClockMap = dict:store(Lid, LidsClockVector, ClockMap),\n NewPreemptions =\n case ordsets:is_element(LLid, Enabled) of\n true ->\n case Lid =:= LLid of\n false -> Preemptions + 1;\n true -> Preemptions\n end;\n false -> Preemptions\n end,\n NewSleepSetCandidates =\n ordsets:union(ordsets:del_element(Lid, Done), SleepSet),\n #trace_state{\n i = NewN, last = Selected, nexts = NewNexts,\n enabled = NewEnabled, sleep_set = NewSleepSetCandidates,\n blocked = NewBlocked, clock_map = NewClockMap,\n pollable = NewPollable, preemptions = NewPreemptions};\n {true, ReplayTop} ->\n ReplayTop#trace_state{\n last = Selected, nexts = NewNexts, pollable = NewPollable}\n end,\n InstrNewTraceTop = check_external_changes(CommonNewTraceTop),\n UpdTraceTop =\n #trace_state{last = UpdSelected,\n sleep_set = UpdSleepSet,\n nexts = UpdNexts,\n backtrack = TempBacktrack} =\n update_instr_info(Lid, Selected, InstrNewTraceTop),\n PrevTrace =\n case UpdSelected =:= Expected of\n true -> Trace;\n false ->\n rewrite_while_awaked(UpdSelected, Expected, Trace)\n end,\n FinalTraceTop =\n case Replaying of\n false ->\n ?debug(\"Selected: ~P\\n\", [UpdSelected, ?DEBUG_DEPTH]),\n ?debug(\"Happened before: ~p\\n\",\n [orddict:to_list(\n begin\n CMM = UpdTraceTop#trace_state.clock_map,\n CCC = lookup_clock(Lid, CMM),\n case lookup_clock_value(Lid, ClockVector) of\n 0 -> orddict:erase(Lid, CCC);\n QQ -> orddict:store(Lid, QQ, CCC)\n end\n end)]),\n {NewSleepSet, _NewAwaked} =\n case Flavor =:= 'none' of\n true -> {[], []};\n false ->\n filter_awaked(UpdSleepSet, UpdNexts, UpdSelected)\n end,\n NewBacktrack =\n case TempBacktrack =:= [] of\n true ->\n case {Next, Selected} of\n {_, {_, { halt, _}, _}} -> [];\n {{_, {error, _}, _}, _} ->\n new_backtrack([{Lid, Next}]);\n _ ->\n element(3, lists:keyfind(Lid, 1,\n Backtrack))\n end;\n false -> TempBacktrack\n end,\n NewLastBlocked = ordsets:is_element(Lid, NewBlocked),\n UpdTraceTop#trace_state{\n last_blocked = NewLastBlocked,\n backtrack = NewBacktrack,\n sleep_set = NewSleepSet};\n {true, _ReplayTop} ->\n UpdTraceTop\n end,\n [FinalTraceTop|PrevTrace].\n\nupdate_lid_enabled(Lid, {_, Next, _}, Pollable, Enabled, Blocked) ->\n {NewEnabled, NewBlocked} =\n case is_enabled(Next) of\n true -> {Enabled, Blocked};\n false ->\n {ordsets:del_element(Lid, Enabled),\n ordsets:add_element(Lid, Blocked)}\n end,\n NewPollable =\n case is_pollable(Next) of\n false -> Pollable;\n true -> ordsets:add_element(Lid, Pollable)\n end,\n {NewPollable, NewEnabled, NewBlocked}.\n\nis_enabled({'receive', blocked}) -> false;\nis_enabled(_Else) -> true.\n\nis_pollable({'receive', blocked}) -> true;\nis_pollable({'after', _Info}) -> true;\nis_pollable(_Else) -> false.\n\nrecent_dependency_cv(Transition, ClockVector, Trace) ->\n Fun =\n fun(#trace_state{i = I,\n last = {Lid, _, _} = Transition2,\n clock_map = CM}, CVAcc) ->\n case\n lookup_clock_value(Lid, CVAcc) < I andalso\n concuerror_deps:dependent(Transition, Transition2)\n of\n true ->\n CV = lookup_clock(Lid, CM),\n max_cv(CVAcc, CV);\n false -> CVAcc\n end\n end,\n lists:foldl(Fun, ClockVector, Trace).\n\n%% Handle instruction is broken in two parts to reuse code in replay.\nhandle_instruction(Transition, TraceTop) ->\n {NewTransition, Extra} = handle_instruction_op(Transition),\n handle_instruction_al(NewTransition, TraceTop, Extra).\n\ncheck_external_changes(TraceTop) ->\n case unexpected_exits(TraceTop) of\n {true, NewTraceTop} -> NewTraceTop;\n none ->\n #trace_state{pollable = Pollable} = TraceTop,\n PollableList = ordsets:to_list(Pollable),\n lists:foldl(fun poll_all/2, TraceTop, PollableList)\n end.\n\nunexpected_exits(#trace_state{nexts = Nexts} = TraceTop) ->\n receive\n {'DOWN', _, process, _, normal} -> unexpected_exits(TraceTop);\n {'DOWN', _, process, Pid, Reason} ->\n ?debug(\"Unexpected exit: ~p ~p\\n\", [Pid, Reason]),\n Lid = lid_from_pid(Pid),\n Entry = {Lid, {error, [exit, Reason, []]}, []},\n NewNexts = dict:store(Lid, Entry, Nexts),\n {true, TraceTop#trace_state{nexts = NewNexts,\n backtrack = [{Lid, Entry, []}]\n }}\n after\n 0 -> none\n end.\n\npoll_all(Lid, TraceTop) ->\n case poll(Lid) of\n {'receive', Info} = Res when\n Info =:= unblocked;\n Info =:= had_after ->\n #trace_state{pollable = Pollable,\n blocked = Blocked,\n enabled = Enabled,\n %% TODO: Remove next line\n sleep_set = SleepSet,\n nexts = Nexts} = TraceTop,\n NewPollable = ordsets:del_element(Lid, Pollable),\n NewBlocked = ordsets:del_element(Lid, Blocked),\n NewSleepSet = ordsets:del_element(Lid, SleepSet),\n NewEnabled = ordsets:add_element(Lid, Enabled),\n {Lid, _Old, Msgs} = dict:fetch(Lid, Nexts),\n NewNexts = dict:store(Lid, {Lid, Res, Msgs}, Nexts),\n TraceTop#trace_state{pollable = NewPollable,\n blocked = NewBlocked,\n enabled = NewEnabled,\n sleep_set = NewSleepSet,\n nexts = NewNexts};\n _Else ->\n TraceTop\n end.\n\nupdate_instr_info(Lid, Selected, CommonNewTraceTop) ->\n IntermediateTraceTop = handle_instruction(Selected, CommonNewTraceTop),\n UpdatedClockVector =\n lookup_clock(Lid, IntermediateTraceTop#trace_state.clock_map),\n {Lid, RewrittenInstr, _Msgs} = IntermediateTraceTop#trace_state.last,\n Messages = orddict:from_list(replace_messages(Lid, UpdatedClockVector)),\n IntermediateTraceTop#trace_state{last = {Lid, RewrittenInstr, Messages}}.\n\nfilter_awaked(SleepSet, Nexts, Selected) ->\n Filter =\n fun(Lid) ->\n Instr = dict:fetch(Lid, Nexts),\n Dep = concuerror_deps:dependent(Instr, Selected),\n ?debug(\" vs ~p: ~p\\n\",[Instr, Dep]),\n not Dep\n end,\n {A, NA} = lists:partition(Filter, SleepSet),\n {ordsets:from_list(A), ordsets:from_list(NA)}.\n\nrewrite_while_awaked(Transition, Original, Trace) ->\n rewrite_while_awaked(Transition, Original, Trace, []).\n\nrewrite_while_awaked(_Transition, _Original, [], Acc) -> lists:reverse(Acc);\nrewrite_while_awaked({P, _, _} = Transition, Original,\n [TraceTop|Rest] = Trace, Acc) ->\n #trace_state{sleep_set = SleepSet,\n nexts = Nexts} = TraceTop,\n case\n not ordsets:is_element(P, SleepSet) andalso\n {ok, Original} =:= dict:find(P, Nexts)\n of\n true ->\n NewNexts = dict:store(P, Transition, Nexts),\n NewTraceTop = TraceTop#trace_state{nexts = NewNexts},\n rewrite_while_awaked(Transition, Original, Rest, [NewTraceTop|Acc]);\n false ->\n lists:reverse(Acc, Trace)\n end.\n\n%% -----------------------------------------------------------------------------\n%% Dpor logic\n%% -----------------------------------------------------------------------------\n\nrace_check(#dpor_state{preemption_bound = Bound, trace = Trace,\n dpor_flavor = Flavor, bound_flag = BoundFlag} = State) ->\n case Flavor =:= 'none' of\n true ->\n %% add_some_next will take care of all the backtracks.\n State;\n false ->\n case BoundFlag of\n true -> State;\n false ->\n NewTrace = race_check(Trace, Bound, Flavor),\n State#dpor_state{trace = NewTrace}\n end\n end.\n\nrace_check(Trace, PreBound, Flavor) ->\n race_check(Trace, [], PreBound, Flavor).\n\nrace_check([_] = Trace, _Rest, _PreBound, _Flavor) -> Trace;\nrace_check([#trace_state{race_checked = true}|_] = Trace,\n _Rest, _PreBound, Flavor)\n when Flavor =:= ?CLASSIC; Flavor =:= ?SOURCE ->\n Trace;\nrace_check(Trace, Rest, PreBound, Flavor) ->\n [#trace_state{i = I, last = {Lid, {Tag, Info}, _} = Transition} = Top|\n [#trace_state{clock_map = ClockMap}|_] = PTrace] = Trace,\n NewPTrace = race_check(PTrace, [Top|Rest], PreBound, Flavor),\n NewTop = Top#trace_state{race_checked = true},\n ?debug(\"Race check: ~p ~p\\n\", [I, Transition]),\n case concuerror_deps:may_have_dependencies(Transition) of\n true ->\n BasicClock = orddict:store(Lid, I, lookup_clock(Lid, ClockMap)),\n InescapableReceive =\n case Tag =:= 'receive' of\n false -> false;\n true -> element(1, Info) =:= unblocked\n end,\n ClockVector =\n case InescapableReceive of\n true ->\n MsgVector = Top#trace_state.receives_vector,\n max_cv(BasicClock, MsgVector);\n false ->\n BasicClock\n end,\n add_all_backtracks_trace(Transition, Lid, ClockVector, PreBound,\n Flavor, NewPTrace, [NewTop], Rest);\n false -> [NewTop|NewPTrace]\n end.\n\nadd_all_backtracks_trace(_Transition, _Lid, _ClockVector, _PreBound,\n _Flavor, [_] = Init, Acc, _Rest) ->\n lists:reverse(Acc, Init);\nadd_all_backtracks_trace(Transition, Lid, ClockVector, PreBound, Flavor,\n [#trace_state{preemptions = Preempt} = StateI|Trace],\n Acc, Rest)\n when Preempt + 1 > PreBound, PreBound =/= ?INFINITY ->\n add_all_backtracks_trace(Transition, Lid, ClockVector, PreBound, Flavor,\n Trace, [StateI|Acc], Rest);\nadd_all_backtracks_trace(Transition, Lid, ClockVector, PreBound, Flavor,\n [StateI,PreSI|Rest], Acc, AccRest) ->\n #trace_state{i = I, last = {ProcSI, _, _} = SI} = StateI,\n Clock = lookup_clock_value(ProcSI, ClockVector),\n Action =\n case I > Clock andalso concuerror_deps:dependent(Transition, SI) of\n false -> {continue, PreSI, ClockVector};\n true ->\n ?debug(\"~4w: ~P Clock ~p\\n\", [I, SI, ?DEBUG_DEPTH, Clock]),\n #trace_state{enabled = Enabled,\n backtrack = Backtrack,\n done = Done,\n sleep_set = SleepSet} = PreSI,\n Sleepers = ordsets:union(SleepSet, Done),\n case Flavor of\n ?FULL ->\n Result =\n find_path([StateI|Acc], AccRest, ProcSI, I,\n Sleepers, Backtrack),\n NewClockVector = orddict:store(ProcSI, I, ClockVector),\n case Result of\n inversion_explored ->\n ?debug(\" Inversion is explored...\\n\"),\n {continue, PreSI, NewClockVector};\n equivalent_scheduled ->\n ?debug(\" Equivalent is scheduled...\\n\"),\n {continue, PreSI, NewClockVector};\n {replace, NewBacktrack} ->\n ?debug(\" NewBacktrack: ~p\\n\",[NewBacktrack]),\n {continue,\n PreSI#trace_state{backtrack = NewBacktrack},\n NewClockVector}\n end;\n ?SOURCE ->\n NewClockVector = orddict:store(ProcSI, I, ClockVector),\n Candidates = ordsets:subtract(Enabled, Sleepers),\n {Predecessor, Initial} =\n find_preds_and_initials(Lid, ProcSI, Candidates,\n I, ClockVector, Acc),\n BacktrackSet =\n ordsets:from_list([B || {B,_,_} <- Backtrack]),\n case Predecessor of\n [] ->\n ?debug(\" All sleeping...\\n\"),\n {continue_source, ProcSI, NewClockVector};\n [P] ->\n Intersection =\n ordsets:intersection(BacktrackSet, Initial),\n NewBacktrack =\n case Intersection =/= [] of\n true ->\n ?debug(\" Init in backtrack\\n\"),\n Backtrack;\n false ->\n ?debug(\" Add: ~p\\n\", [P]),\n Backtrack ++ [{P, dummy, []}]\n end,\n ?debug(\" NewBacktrack: ~p\\n\",[NewBacktrack]),\n {continue,\n PreSI#trace_state{backtrack = NewBacktrack},\n NewClockVector}\n end;\n ?CLASSIC ->\n Candidates = ordsets:subtract(Enabled, Sleepers),\n {Predecessor, _Initial} =\n find_preds_and_initials(Lid, ProcSI, Candidates,\n I, ClockVector, Acc),\n decide_classic(Predecessor, Backtrack, Candidates,\n PreSI)\n end\n end,\n case Action of\n {continue, NewPreSI, UpdClockVector} ->\n add_all_backtracks_trace(Transition, Lid, UpdClockVector, PreBound,\n Flavor, [NewPreSI|Rest], [StateI|Acc],\n AccRest);\n {continue_source, UpdProcSI, UpdClockVector} ->\n add_all_backtracks_trace(Transition, UpdProcSI, UpdClockVector,\n PreBound, Flavor, [PreSI|Rest],\n [StateI|Acc], AccRest);\n\n {done, NewPreSI} ->\n lists:reverse([StateI|Acc], [NewPreSI|Rest])\n end.\n\n%% -----------------\n%% For optimal DPOR:\n%% -----------------\n\nfind_path([#trace_state{nexts = Nexts}|Acc],\n Rest, ProcSI, I, Sleepers, Backtrack) ->\n SleepSet = ordsets:del_element(ProcSI, Sleepers),\n Annotated = [{P, dict:fetch(P, Nexts)} || P <- SleepSet],\n NotDeps = not_deps(Acc, Rest, ProcSI, I),\n ?debug(\" NotDeps:~p\\n\",[NotDeps]),\n try\n case find_weak_initial(NotDeps, Annotated) of\n {true, _, _} -> throw(inversion_explored);\n false ->\n Pred = fun({P,_,_}) -> P =/= ProcSI end,\n {Done, [{ProcSI,_,_} = Current|Future]} =\n lists:splitwith(Pred, Backtrack),\n ?debug(\" Future:~p\\n\",[Future]),\n NewFuture = insert_best_match(Future, NotDeps),\n {replace, Done ++ [Current|NewFuture]}\n end\n catch\n throw:Reason -> Reason\n end.\n\nfind_weak_initial( _, []) -> false;\nfind_weak_initial(Trace, [C|R]) ->\n case find_weak_initial(Trace, [C], []) of\n false -> find_weak_initial(Trace, R);\n True -> True\n end.\n\nfind_weak_initial(_, [], _) -> false;\nfind_weak_initial([], [{Lid, _}|_], Acc) ->\n {true, Lid, lists:reverse(Acc)};\nfind_weak_initial([{Lid, _, _} = Tr|Rest], Candidates, Acc) ->\n case lists:keyfind(Lid, 1, Candidates) of\n {Lid, _} -> {true, Lid, lists:reverse(Acc, Rest)};\n false ->\n Pred = fun({_, Tr2}) -> not concuerror_deps:dependent(Tr, Tr2) end,\n NewCandidates = lists:filter(Pred, Candidates),\n find_weak_initial(Rest, NewCandidates, [Tr|Acc])\n end.\n\ninsert_best_match([], Trace) ->\n Fold = fun({P, _,_} = Tr, PAcc) -> [{P, Tr, PAcc}] end,\n lists:foldl(Fold, [], lists:reverse(Trace));\ninsert_best_match(Backtrack, Trace) ->\n ?debug(\" Trace:~p\\n\", [Trace]),\n Ps = [{P,Tr} || {P,Tr,_} <- Backtrack],\n case find_weak_initial(Trace, Ps) of\n {true, Lid, NewTrace} ->\n ?debug(\" WeakIni:~p\\n\", [Lid]),\n {Lid, Tr, Further} = lists:keyfind(Lid, 1, Backtrack),\n ?debug(\" Further:~p\\n\",[Further]),\n case Further =:= [] of\n true -> throw(equivalent_scheduled);\n false ->\n NewFuther = insert_best_match(Further, NewTrace),\n lists:keyreplace(Lid, 1, Backtrack, {Lid, Tr, NewFuther})\n end;\n false ->\n Backtrack ++ insert_best_match([], Trace)\n end.\n\nnot_deps(Acc, Rest, ProcSI, I) ->\n not_deps(Acc, Rest, ProcSI, I, []).\n\nnot_deps([], no_rest, _, _, Path) ->\n lists:reverse(Path);\nnot_deps([#trace_state{last = Last}], Rest, ProcSI, I, Path)\n when Rest =/= no_rest ->\n not_deps(Rest, no_rest, ProcSI, I, [Last|Path]);\nnot_deps([#trace_state{last = {Lid, _, _} = Last, clock_map = ClockMap}|Acc],\n Rest, ProcSI, I, Path) ->\n Lid2Clock = lookup_clock(Lid, ClockMap),\n NewPath =\n case lookup_clock_value(ProcSI, Lid2Clock) >= I of\n true -> Path;\n false -> [Last|Path]\n end,\n not_deps(Acc, Rest, ProcSI, I, NewPath).\n\n%% --------------------------------------\n%% For source set based and classic DPOR:\n%% --------------------------------------\n\nfind_preds_and_initials(Lid, ProcSI, Candidates, I, ClockVector, RevTrace) ->\n {Racing, NonRacing} = find_initials(Candidates, ProcSI, I, RevTrace),\n Initial =\n case not ordsets:is_element(Lid, Candidates)\n orelse ordsets:is_element(Lid, Racing) of\n true -> NonRacing;\n false -> ordsets:add_element(Lid, NonRacing)\n end,\n {predecessor(Initial, I, ClockVector), Initial}.\n\nfind_initials(Candidates, ProcSI, I, RevTrace) ->\n RealCandidates = ordsets:del_element(ProcSI, Candidates),\n find_initials(RealCandidates, I, RevTrace, [ProcSI], []).\n\nfind_initials(Candidates, _I, [_], Racing, NonRacing) ->\n {Racing,ordsets:union(Candidates, NonRacing)};\nfind_initials( [], _I, _Trace, Racing, NonRacing) ->\n {Racing, NonRacing};\nfind_initials(Candidates, I, [Top|Rest], Racing, NonRacing) ->\n #trace_state{last = {P,_,_}, clock_map = CM} = Top,\n ClockVector = lookup_clock(P, CM),\n case ordsets:is_element(P, Candidates) of\n false ->\n find_initials(Candidates, I, Rest, Racing, NonRacing);\n true ->\n Fun2 = fun(K, V, A) -> A andalso (K =:= P orelse V < I) end,\n {NewRacing, NewNonRacing} =\n case orddict:fold(Fun2, true, ClockVector) of\n false ->\n {ordsets:add_element(P, Racing), NonRacing};\n true ->\n {Racing, ordsets:add_element(P, NonRacing)}\n end,\n NewCandidates = ordsets:del_element(P, Candidates),\n find_initials(NewCandidates, I, Rest, NewRacing, NewNonRacing)\n end.\n\npredecessor(Initial, I, ClockVector) ->\n DropWhile = fun(Lid) -> lookup_clock_value(Lid, ClockVector) < I end,\n case lists:dropwhile(DropWhile, Initial) of\n [] -> [];\n [H|_] -> [H]\n end.\n\ndecide_classic(Predecessor, Backtrack, Candidates, PreSI) ->\n BacktrackSet = ordsets:from_list([B || {B,_,_} <- Backtrack]),\n case ordsets:intersection(BacktrackSet, Predecessor) =/= [] of\n true ->\n ?debug(\"One pred already in backtrack.\\n\"),\n {done, PreSI};\n false ->\n Added =\n case Predecessor of\n [OneP] ->\n ?debug(\" Add as 'choose-one': ~p\\n\", [OneP]),\n [{OneP, dummy, []}];\n [] ->\n ?debug(\" Add as 'choose every': ~p\\n\", [Candidates]),\n New = ordsets:subtract(Candidates, BacktrackSet),\n [{P, dummy, []} || P <- New]\n end,\n ?debug(\" Added: ~p\\n\",[Added]),\n {done, PreSI#trace_state{backtrack = Backtrack ++ Added}}\n end.\n\n%% --------------------------------------\n%% Manipulating the clock vectors / maps:\n%% --------------------------------------\n\nempty_clock_map() -> dict:new().\n\nlookup_clock(P, ClockMap) ->\n case dict:find(P, ClockMap) of\n {ok, Clock} -> Clock;\n error -> orddict:new()\n end.\n\nlookup_clock_value(P, CV) ->\n case orddict:find(P, CV) of\n {ok, Value} -> Value;\n error -> 0\n end.\n\nmax_cv(D1, D2) ->\n Merger = fun(_Key, V1, V2) -> max(V1, V2) end,\n orddict:merge(Merger, D1, D2).\n\n%% -----------------------------------------------------------------------------\n\nadd_some_next_to_backtrack(State) ->\n #dpor_state{trace = [TraceTop|Rest], dpor_flavor = Flavor,\n preemption_bound = PreBound} = State,\n #trace_state{enabled = Enabled, sleep_set = SleepSet,\n backtrack = OldBacktrack, last = {Lid, _, _},\n preemptions = Preemptions, nexts = Nexts} = TraceTop,\n ?debug(\"Pick next: Enabled: ~p Sleeping: ~p\\n\", [Enabled, SleepSet]),\n Backtrack =\n case OldBacktrack =:= [] of\n true ->\n Set =\n case Flavor =:= 'none' of\n true ->\n case ordsets:is_element(Lid, Enabled) of\n true when Preemptions =:= PreBound -> [Lid];\n _Else -> Enabled\n end;\n false ->\n case ordsets:subtract(Enabled, SleepSet) of\n [] -> [];\n [H|_] = Candidates ->\n case ordsets:is_element(Lid, Candidates) of\n true -> [Lid];\n false -> [H]\n end\n end\n end,\n Annotated = [{P, dict:fetch(P, Nexts)} || P <- Set],\n new_backtrack(Annotated);\n false ->\n ?debug(\"Predefined: ~p\\n\", [OldBacktrack]),\n [A || {K, _, _} = A <- OldBacktrack,\n not ordsets:is_element(K, SleepSet)]\n end,\n BoundFlag =\n Flavor =:= 'full' andalso\n PreBound =/= ?INFINITY andalso\n Preemptions > PreBound,\n ?debug(\"Picked: ~p\\n\",[Backtrack]),\n NewTraceTop = TraceTop#trace_state{backtrack = Backtrack},\n State#dpor_state{trace = [NewTraceTop|Rest], bound_flag = BoundFlag}.\n\n%% -----------------------------------------------------------------------------\n\nreport_error(Transition, State) ->\n #dpor_state{trace = [TraceTop|_] = Trace, tickets = Tickets,\n total_trans = TotalTrans} = State,\n #trace_state{i = Steps} = TraceTop,\n NewTotalTrans = TotalTrans + Steps,\n ?debug(\"ERROR!\\n~P\\n\",[Transition, ?DEBUG_DEPTH]),\n Error = convert_error_info(Transition),\n LidTrace = convert_trace_to_error_trace(Trace, [Transition]),\n Ticket = create_ticket(Error, LidTrace),\n %% Report the error to the progress logger.\n concuerror_log:progress({'error', Ticket}),\n State#dpor_state{must_replay = true, tickets = [Ticket|Tickets],\n total_trans = NewTotalTrans}.\n\nreport_possible_deadlock(#dpor_state{trace = []} = State) -> State;\nreport_possible_deadlock(State) ->\n #dpor_state{trace = [TraceTop|_] = Trace, tickets = Tickets,\n sleep_blocked_count = SBlocked, bound_flag = BoundFlag,\n total_trans = TotalTrans, sleep_trans = SleepTrans} = State,\n #trace_state{i = Steps} = TraceTop,\n NewTotalTrans = TotalTrans + Steps,\n {NewTickets, NewSBlocked, NewSleepTrans} =\n case TraceTop#trace_state.enabled of\n [] ->\n case TraceTop#trace_state.blocked of\n [] ->\n ?debug(\"NORMAL!\\n\"),\n {Tickets, SBlocked, SleepTrans};\n Blocked ->\n ?debug(\"DEADLOCK!\\n\"),\n Error = {deadlock, Blocked},\n LidTrace = convert_trace_to_error_trace(Trace, []),\n Ticket = create_ticket(Error, LidTrace),\n %% Report error\n concuerror_log:progress({'error', Ticket}),\n {[Ticket|Tickets], SBlocked, SleepTrans}\n end;\n _Else ->\n case\n TraceTop#trace_state.sleep_set =/= [] andalso\n TraceTop#trace_state.done =:= [] andalso\n not BoundFlag\n of\n false ->\n {Tickets, SBlocked, SleepTrans};\n true ->\n ?debug(\"SLEEP SET BLOCK\\n\"),\n %% debug_trace(lists:reverse(Trace)),\n %% exit(sleep_set_block),\n {Tickets, SBlocked+1, SleepTrans+Steps}\n end\n end,\n State#dpor_state{must_replay = true, tickets = NewTickets,\n sleep_blocked_count = NewSBlocked,\n total_trans = NewTotalTrans,\n sleep_trans = NewSleepTrans}.\n\n%% debug_trace([]) -> ok;\n%% debug_trace([Top|Rest]) ->\n%% #trace_state{\n%% i = I,\n%% last = Last,\n%% backtrack = Backtrack,\n%% sleep_set = SleepSet,\n%% done = Done,\n%% nexts = Nexts} = Top,\n%% BT = [K || {K, _, _} <- Backtrack],\n%% Keys = ordsets:union(Done, SleepSet),\n%% Pred = fun(K,_) -> ordsets:is_element(K, Keys) end,\n%% FilteredNexts = dict:filter(Pred, Nexts),\n%% io:format(\"~p: ~p\\nBacktrack:~p\\nSleep Set:~p\\n\"\n%% \"FilteredNexts:~p\\n~p\\n---\\n\",\n%% [I, Last, BT, ordsets:union(Done,SleepSet),\n%% dict:to_list(FilteredNexts)]),\n%% debug_trace(Rest).\n\nconvert_trace_to_error_trace([], Acc) -> Acc;\nconvert_trace_to_error_trace([#trace_state{\n last = {Lid, _, _} = Entry,\n last_blocked = Blocked}|Rest], Acc) ->\n NewAcc =\n [Entry|\n case Blocked of\n false -> Acc;\n true -> [{Lid, block, []}|Acc]\n end],\n convert_trace_to_error_trace(Rest, NewAcc).\n\ncreate_ticket(Error, LidTrace) ->\n InitTr = init_tr(),\n [{P1, init, []} = InitTr|Trace] = LidTrace,\n InitSet = sets:add_element(P1, sets:new()),\n {ErrorState, _Procs} =\n lists:mapfoldl(fun convert_error_trace/2, InitSet, Trace),\n concuerror_ticket:new(Error, ErrorState).\n\nconvert_error_trace({Lid, {error, [ErrorOrThrow,Kind|_]}, _Msgs}, Procs)\n when ErrorOrThrow =:= error; ErrorOrThrow =:= throw ->\n Msg =\n concuerror_error:type(concuerror_error:new({Kind, foo})),\n {{exit, Lid, Msg}, Procs};\nconvert_error_trace({Lid, block, []}, Procs) ->\n {{block, Lid}, Procs};\nconvert_error_trace({Lid, {Instr, Extra}, _Msgs}, Procs) ->\n NewProcs =\n case Instr of\n Spawn when Spawn =:= spawn; Spawn =:= spawn_link;\n Spawn =:= spawn_monitor; Spawn =:= spawn_opt ->\n NewLid =\n case Extra of\n {Lid0, _MonLid} -> Lid0;\n Lid0 -> Lid0\n end,\n sets:add_element(NewLid, Procs);\n exit -> sets:del_element(Lid, Procs);\n _ -> Procs\n end,\n NewInstr =\n case Instr of\n send ->\n {Orig, Dest, Msg} = Extra,\n NewDest =\n case is_atom(Orig) of\n true -> {name, Orig};\n false -> check_lid_liveness(Dest, NewProcs)\n end,\n {send, Lid, NewDest, Msg};\n 'receive' ->\n {_Tag, Origin, Msg} = Extra,\n {'receive', Lid, Origin, Msg};\n 'after' ->\n {'after', Lid};\n is_process_alive ->\n {is_process_alive, Lid, check_lid_liveness(Extra, NewProcs)};\n TwoArg when TwoArg =:= register;\n TwoArg =:= whereis ->\n {Name, TLid} = Extra,\n {TwoArg, Lid, Name, check_lid_liveness(TLid, NewProcs)};\n process_flag ->\n {trap_exit, Value, _Links} = Extra,\n {process_flag, Lid, trap_exit, Value};\n exit ->\n {exit, Lid, normal};\n exit_2 ->\n {Lid2, Reason} = Extra,\n {exit_2, Lid, Lid2, Reason};\n send_after ->\n {Lid2, Msg} = Extra,\n {send_after, Lid, Lid2, Msg};\n start_timer ->\n {Lid2, Msg} = Extra,\n {start_timer, Lid, Lid2, Msg};\n PortOp when PortOp =:= port_command;\n PortOp =:= port_control ->\n {PortOp, Lid, Extra};\n Monitor when Monitor =:= monitor;\n Monitor =:= spawn_monitor ->\n {TLid, _RefLid} = Extra,\n {Monitor, Lid, check_lid_liveness(TLid, NewProcs)};\n ets ->\n case Extra of\n {insert, [_EtsLid, Tid, _K, _KP, Objects, _Status]} ->\n {ets_insert, Lid, {Tid, Objects}};\n {insert_new, [_EtsLid, Tid, _K, _KP, Objects, _Status]} ->\n {ets_insert_new, Lid, {Tid, Objects}};\n {delete, [_EtsLid, Tid]} ->\n {ets_delete, Lid, Tid};\n {C, [_EtsLid | Options]} ->\n ListC = atom_to_list(C),\n AtomC = list_to_atom(\"ets_\" ++ ListC),\n {AtomC, Lid, list_to_tuple(Options)}\n end;\n _ ->\n {Instr, Lid, Extra}\n end,\n {NewInstr, NewProcs}.\n\n\ncheck_lid_liveness(not_found, _Live) ->\n not_found;\ncheck_lid_liveness(Lid, Live) ->\n case sets:is_element(Lid, Live) of\n true -> Lid;\n false -> {dead, Lid}\n end.\n\nconvert_error_info({_Lid, {error, [Kind, Type, Stacktrace]}, _Msgs})->\n NewType =\n case Kind of\n error -> Type;\n throw -> {nocatch, Type};\n exit -> Type\n end,\n {Tag, Details} = concuerror_error:new({NewType, foo}),\n Info =\n case Tag of\n exception -> {NewType, Stacktrace};\n assertion_violation -> Details\n end,\n {Tag, Info}.\n\n%% -----------------------------------------------------------------------------\n\ndrop_last_frame(#dpor_state{trace = []} = State) -> State;\ndrop_last_frame(#dpor_state{trace = [_|Trace]} = State) ->\n State#dpor_state{trace = Trace}.\n\nfinished(#dpor_state{trace = Trace}) ->\n Trace =:= [].\n\ndpor_return(State) ->\n %% First clean up the last interleaving\n GroupLeader = State#dpor_state.group_leader,\n Output = concuerror_io_server:group_leader_sync(GroupLeader),\n case State#dpor_state.show_output of\n true -> io:put_chars(Output);\n false -> ok\n end,\n ProcBefore = State#dpor_state.proc_before,\n proc_cleanup(processes() -- ProcBefore),\n %% Return the analysis result\n RunCnt = State#dpor_state.run_count,\n SBlocked = State#dpor_state.sleep_blocked_count,\n Transitions = State#dpor_state.total_trans,\n STransitions = State#dpor_state.sleep_trans,\n Tickets = State#dpor_state.tickets,\n {Tickets, RunCnt, SBlocked, Transitions, STransitions}.\n\n%% =============================================================================\n%% ENGINE (manipulation of the Erlang processes under the scheduler)\n%% =============================================================================\n\nstart_target_op(Target) ->\n concuerror_lid:start(),\n %% Initialize a new group leader\n GroupLeader = concuerror_io_server:new_group_leader(self()),\n {Mod, Fun, Args} = Target,\n NewFun = fun() -> ?REP_MOD:start_target(Mod, Fun, Args) end,\n SpawnFun = fun() -> concuerror_rep:spawn_fun_wrapper(NewFun) end,\n FirstPid = spawn(SpawnFun),\n %% Set our io_server as the group leader\n group_leader(GroupLeader, FirstPid),\n {concuerror_lid:new(FirstPid, noparent), GroupLeader}.\n\n%% -----------------------------------------------------------------------------\n\nreplay_trace(#dpor_state{proc_before = ProcBefore,\n run_count = RunCnt,\n sleep_blocked_count = SBlocked,\n group_leader = GroupLeader,\n target = Target,\n\t\t\t trace = Trace,\n\t\t\t show_output = ShowOutput} = State) ->\n NewRunCnt = RunCnt + 1,\n ?debug(\"\\nReplay (~p) is required...\\n\", [NewRunCnt]),\n concuerror_lid:stop(),\n %% Get buffered output from group leader\n %% TODO: For now just ignore it. Maybe we can print it\n %% only when we have an error (after the backtrace?)\n Output = concuerror_io_server:group_leader_sync(GroupLeader),\n case ShowOutput of\n true -> io:put_chars(Output);\n false -> ok\n end,\n proc_cleanup(processes() -- ProcBefore),\n concuerror_util:flush_mailbox(),\n {FirstLid, NewGroupLeader} = start_target_op(Target),\n _ = wait_next(FirstLid, init),\n NewTrace = replay_trace_aux(Trace),\n ?debug(\"Done replaying...\\n\\n\"),\n %% Report the start of a new interleaving\n concuerror_log:progress({'new', NewRunCnt, SBlocked}),\n State#dpor_state{run_count = NewRunCnt, must_replay = false,\n bound_flag = false,\n group_leader = NewGroupLeader, trace = NewTrace}.\n\nreplay_trace_aux(Trace) ->\n [Init|Rest] = lists:reverse(Trace),\n replay_trace_aux(Rest, [Init]).\n\nreplay_trace_aux([], Acc) -> Acc;\nreplay_trace_aux([TraceState|Rest], Acc) ->\n #trace_state{i = _I, last = {Lid, Cmd, _} = Last} = TraceState,\n %% ?debug(\" ~-4w: ~P.\",[_I, Last, ?DEBUG_DEPTH]),\n Next = wait_next(Lid, Cmd),\n %% ?debug(\".\"),\n UpdAcc = update_trace(Last, Next, Acc, irrelevant, {true, TraceState}),\n %% [#trace_state{last = _NewLast}|_] = UpdAcc,\n %% ?debug(\"O:~p\\nN:~p\\n\",[Last, _NewLast]),\n %% ?debug(\".\\n\"),\n replay_trace_aux(Rest, UpdAcc).\n\n%% -----------------------------------------------------------------------------\n\nwait_next(Lid, {exit, {normal, _Info}} = Arg2) ->\n Pid = concuerror_lid:get_pid(Lid),\n Ref = monitor(process, Pid),\n continue(Lid),\n receive\n {'DOWN', Ref, process, Pid, normal} -> {Lid, exited, []}\n after\n ?TIME_LIMIT -> error(time_limit, [Lid, Arg2])\n end;\nwait_next(Lid, Plan) ->\n DebugArgs = [Lid, Plan],\n continue(Lid),\n Replace =\n case Plan of\n {Spawn, _Info}\n when Spawn =:= spawn; Spawn =:= spawn_link;\n Spawn =:= spawn_monitor; Spawn =:= spawn_opt ->\n {true,\n %% This interruption happens to make sure that a child has an\n %% LID before the parent wants to do any operation with its PID.\n receive\n #sched{msg = Spawn,\n lid = Lid,\n misc = Info,\n type = prev} = Msg ->\n case Info of\n {Pid, Ref} ->\n monitor(process, Pid),\n ChildLid = concuerror_lid:new(Pid, Lid),\n continue(ChildLid),\n MonRef = concuerror_lid:ref_new(ChildLid, Ref),\n Msg#sched{misc = {ChildLid, MonRef}};\n Pid ->\n monitor(process, Pid),\n ChildLid = concuerror_lid:new(Pid, Lid),\n continue(ChildLid),\n Msg#sched{misc = ChildLid}\n end\n after\n ?TIME_LIMIT -> error(time_limit, DebugArgs)\n end};\n {ets, {new, _Info}} ->\n {true,\n receive\n #sched{msg = ets, lid = Lid, misc = {new, [Tid|Rest]},\n type = prev} = Msg ->\n NewMisc = {new, [concuerror_lid:ets_new(Tid)|Rest]},\n Msg#sched{misc = NewMisc}\n after\n ?TIME_LIMIT -> error(time_limit, DebugArgs)\n end};\n {monitor, _Info} ->\n {true,\n receive\n #sched{msg = monitor, lid = Lid, misc = {TLid, Ref},\n type = prev} = Msg ->\n NewMisc = {TLid, concuerror_lid:ref_new(TLid, Ref)},\n Msg#sched{misc = NewMisc}\n after\n ?TIME_LIMIT -> error(time_limit, DebugArgs)\n end};\n _Other ->\n false\n end,\n case Replace of\n {true, NewMsg} ->\n continue(Lid),\n self() ! NewMsg,\n get_next(Lid);\n false ->\n get_next(Lid)\n end.\n\nget_next(Lid) ->\n receive\n #sched{msg = Type, lid = Lid, misc = Misc, type = next} ->\n {Lid, {Type, Misc}, []}\n after\n ?TIME_LIMIT -> error(time_limit, [Lid])\n end.\n\n%% =============================================================================\n%% INSTRUCTIONS (logic and engine for Erlang instructions)\n%% =============================================================================\n\nhandle_instruction_op({Lid, {Spawn, _Info}, Msgs} = DebugArg)\n when Spawn =:= spawn; Spawn =:= spawn_link; Spawn =:= spawn_monitor;\n Spawn =:= spawn_opt ->\n ParentLid = Lid,\n Info =\n receive\n %% This is the replaced message\n #sched{msg = Spawn, lid = ParentLid,\n misc = Info0, type = prev} ->\n Info0\n after\n ?TIME_LIMIT -> error(time_limit, [DebugArg])\n end,\n ChildLid =\n case Info of\n {Lid0, _MonLid} -> Lid0;\n Lid0 -> Lid0\n end,\n ChildNextInstr = get_next(ChildLid),\n {{Lid, {Spawn, Info}, Msgs}, ChildNextInstr};\nhandle_instruction_op({Lid, {ets, {Updatable, _Info}}, Msgs} = DebugArg)\n when Updatable =:= new; Updatable =:= insert_new; Updatable =:= insert ->\n receive\n %% This is the replaced message\n #sched{msg = ets, lid = Lid, misc = {Updatable, Info}, type = prev} ->\n {{Lid, {ets, {Updatable, Info}}, Msgs}, {}}\n after\n ?TIME_LIMIT -> error(time_limit, [DebugArg])\n end;\nhandle_instruction_op({Lid, {'receive', Tag}, Msgs} = DebugArg) ->\n NewTag =\n case Tag of\n {T, _, _} -> T;\n T -> T\n end,\n receive\n #sched{msg = 'receive', lid = Lid,\n misc = {From, CV, Msg}, type = prev} ->\n {{Lid, {'receive', {NewTag, From, Msg}}, Msgs}, CV}\n after\n ?TIME_LIMIT -> error(time_limit, [DebugArg])\n end;\nhandle_instruction_op({Lid, {'after', {Fun, _, _}}, Msgs} = DebugArg) ->\n receive\n #sched{msg = 'after', lid = Lid,\n misc = {Links, Monitors}, type = prev} ->\n {{Lid, {'after', {Fun, Links, Monitors}}, Msgs}, {}}\n after\n ?TIME_LIMIT -> error(time_limit, [DebugArg])\n end;\nhandle_instruction_op({Lid, {Updatable, _Info}, Msgs} = DebugArg)\n when Updatable =:= exit; Updatable =:= send; Updatable =:= whereis;\n Updatable =:= monitor; Updatable =:= process_flag ->\n receive\n #sched{msg = Updatable, lid = Lid, misc = Info, type = prev} ->\n {{Lid, {Updatable, Info}, Msgs}, {}}\n after\n ?TIME_LIMIT -> error(time_limit, [DebugArg])\n end;\nhandle_instruction_op(Instr) ->\n {Instr, {}}.\n\nhandle_instruction_al({Lid, {exit, _Info}, _Msgs} = Trans, TraceTop, {}) ->\n #trace_state{enabled = Enabled, nexts = Nexts} = TraceTop,\n NewEnabled = ordsets:del_element(Lid, Enabled),\n NewNexts = dict:erase(Lid, Nexts),\n TraceTop#trace_state{enabled = NewEnabled, nexts = NewNexts, last = Trans};\nhandle_instruction_al({Lid, {Spawn, Info}, _Msgs} = Trans,\n TraceTop, ChildNextInstr)\n when Spawn =:= spawn; Spawn =:= spawn_link; Spawn =:= spawn_monitor;\n Spawn =:= spawn_opt ->\n ChildLid =\n case Info of\n {Lid0, _MonLid} -> Lid0;\n Lid0 -> Lid0\n end,\n #trace_state{enabled = Enabled, blocked = Blocked,\n nexts = Nexts, pollable = Pollable,\n clock_map = ClockMap} = TraceTop,\n NewNexts = dict:store(ChildLid, ChildNextInstr, Nexts),\n ClockVector = lookup_clock(Lid, ClockMap),\n NewClockMap = dict:store(ChildLid, ClockVector, ClockMap),\n MaybeEnabled = ordsets:add_element(ChildLid, Enabled),\n {NewPollable, NewEnabled, NewBlocked} =\n update_lid_enabled(ChildLid, ChildNextInstr, Pollable,\n MaybeEnabled, Blocked),\n TraceTop#trace_state{last = Trans,\n clock_map = NewClockMap,\n enabled = NewEnabled,\n blocked = NewBlocked,\n pollable = NewPollable,\n nexts = NewNexts};\nhandle_instruction_al({Lid, {'receive', _Info}, _Msgs} = Trans,\n TraceTop, CV) ->\n #trace_state{clock_map = ClockMap} = TraceTop,\n Vector = lookup_clock(Lid, ClockMap),\n NewVector = max_cv(Vector, CV),\n NewClockMap = dict:store(Lid, NewVector, ClockMap),\n TraceTop#trace_state{last = Trans, clock_map = NewClockMap,\n receives_vector = CV};\nhandle_instruction_al({_Lid, {ets, {Updatable, _Info}}, _Msgs} = Trans,\n TraceTop, {})\n when Updatable =:= new; Updatable =:= insert_new; Updatable =:= insert ->\n TraceTop#trace_state{last = Trans};\nhandle_instruction_al({_Lid, {Updatable, _Info}, _Msgs} = Trans, TraceTop, {})\n when Updatable =:= send; Updatable =:= whereis; Updatable =:= monitor;\n Updatable =:= process_flag; Updatable =:= 'after' ->\n TraceTop#trace_state{last = Trans};\nhandle_instruction_al({_Lid, {register, {Name, PLid}}, _Msgs},\n #trace_state{nexts = Nexts} = TraceTop, {}) ->\n TraceTop#trace_state{nexts = update_named_sends(Name, PLid, Nexts)};\nhandle_instruction_al({_Lid, {halt, _Status}, _Msgs}, TraceTop, {}) ->\n TraceTop#trace_state{enabled = [], blocked = []};\nhandle_instruction_al(_Transition, TraceTop, {}) ->\n TraceTop.\n\nupdate_named_sends(Name, PLid, Nexts) ->\n Map =\n fun(Lid, Instr) ->\n case Instr of\n {Lid, {send, {Name, _OldPLid, Msg}}, Msgs} ->\n {Lid, {send, {Name, PLid, Msg}}, Msgs};\n _Other -> Instr\n end\n end,\n dict:map(Map, Nexts).\n\n%%%----------------------------------------------------------------------\n%%% Helper functions\n%%%----------------------------------------------------------------------\n\n%% Kill any remaining processes.\n%% If the run was terminated by an exception, processes linked to\n%% the one where the exception occurred could have been killed by the\n%% exit signal of the latter without having been deleted from the pid/lid\n%% tables. Thus, 'EXIT' messages with any reason are accepted.\nproc_cleanup(ProcList) ->\n Link_and_kill = fun(P) -> link(P), exit(P, kill) end,\n lists:foreach(Link_and_kill, ProcList),\n wait_for_exit(ProcList).\n\nwait_for_exit([]) -> ok;\nwait_for_exit([P|Rest]) ->\n receive {'EXIT', P, _Reason} -> wait_for_exit(Rest) end.\n\n%%%----------------------------------------------------------------------\n%%% Instrumentation interface\n%%%----------------------------------------------------------------------\n\n%% Prompt process Pid to continue running.\ncontinue(LidOrPid) ->\n send_message(LidOrPid, continue).\n\npoll(Lid) ->\n send_message(Lid, poll),\n {Lid, Res, []} = get_next(Lid),\n Res.\n\nsend_message(Pid, Message) when is_pid(Pid) ->\n Pid ! #sched{msg = Message},\n ok;\nsend_message(Lid, Message) ->\n Pid = concuerror_lid:get_pid(Lid),\n send_message(Pid, Message).\n\n%% Notify the scheduler of an event.\n%% If the calling user process has an associated LID, then send\n%% a notification and yield. Otherwise, for an unknown process\n%% running instrumented code completely ignore this call.\n-spec notify(notification(), any()) -> 'ok' | 'poll' | 'ignore'.\n\nnotify(Msg, Misc) ->\n notify(Msg, Misc, next).\n\n-spec notify(notification(), any(), sched_msg_type()) ->\n 'ok' | 'poll' | 'ignore'.\n\nnotify(Msg, Misc, Type) ->\n case lid_from_pid(self()) of\n not_found -> ok;\n Lid ->\n Rec = #sched{msg = Msg, lid = Lid, misc = Misc, type = Type},\n ?RP_SCHED_SEND ! Rec,\n case Type of\n next -> wait();\n _Else -> ignore\n end\n end.\n\n-spec lid_from_pid(pid()) -> concuerror_lid:lid() | 'not_found'.\n\nlid_from_pid(Pid) ->\n concuerror_lid:from_pid(Pid).\n\n-define(VECTOR_MSG(LID, VC),\n #sched{msg = vector, lid = LID, misc = VC, type = async}).\n\n%% Wait until the scheduler prompts to continue.\n-spec wait() -> 'ok' | 'poll'.\n\nwait() ->\n receive\n #sched{msg = continue} -> ok;\n #sched{msg = poll} -> poll;\n ?VECTOR_MSG(Lid, VC) ->\n Msgs = instrument_my_messages(Lid, VC),\n ignore = notify(vector, Msgs, async),\n wait()\n end.\n\nreplace_messages(Lid, VC) ->\n Fun =\n fun(Pid, MsgAcc) ->\n Pid ! ?VECTOR_MSG(Lid, VC),\n receive\n ?VECTOR_MSG(PidsLid, {Msgs, _, _} = MsgInfo) ->\n case Msgs =:= [] of\n true -> MsgAcc;\n false -> [{PidsLid, MsgInfo}|MsgAcc]\n end\n after\n ?TIME_LIMIT -> error(time_limit, [Pid, MsgAcc])\n end\n end,\n concuerror_lid:fold_pids(Fun, []).\n\n-define(IS_INSTR_MSG(Msg),\n (is_tuple(Msg) andalso\n size(Msg) =:= 4 andalso\n element(1, Msg) =:= ?INSTR_MSG)).\n\ninstrument_my_messages(Lid, VC) ->\n Self = self(),\n Fun =\n fun(Acc) ->\n receive\n Msg when not ?IS_INSTR_MSG(Msg) ->\n Instr = {?INSTR_MSG, Lid, VC, Msg},\n Self ! Instr,\n {cont, [Msg|Acc]}\n after\n 0 ->\n {trap_exit, Trapping} = erlang:process_info(self(), trap_exit),\n Links =\n case Acc =:= [] orelse not Trapping of\n true -> [];\n false -> concuerror_rep:find_my_links()\n end,\n Monitors =\n case Acc =:= [] of\n true -> [];\n false -> concuerror_rep:find_my_monitors()\n end,\n {done, {Acc, Links, Monitors}}\n end\n end,\n dynamic_loop_acc(Fun, []).\n\ndynamic_loop_acc(Fun, Arg) ->\n case Fun(Arg) of\n {done, Ret} -> Ret;\n {cont, NewArg} -> dynamic_loop_acc(Fun, NewArg)\n end.\n" }, { "path": "resources/old_source/concuerror_state.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Author : Alkis Gotovos \n%%% Description : State interface\n%%%----------------------------------------------------------------------\n\n-module(concuerror_state).\n\n-export([extend/2, empty/0, is_empty/1, pack/1, trim_head/1, trim_tail/1]).\n\n-export_type([state/0]).\n\n-include(\"gen.hrl\").\n\n%%-define(ENABLE_COMPRESSION, true).\n-ifdef(ENABLE_COMPRESSION).\n-type state() :: binary().\n-define(OPT_T2B, [compressed]).\n-define(BIN_TO_TERM(X), binary_to_term(X)).\n-define(TERM_TO_BIN(X), term_to_binary(X, ?OPT_T2B)).\n-else.\n-type state() :: {{concuerror_lid:lid(),pos_integer()} | 'undefined',\n queue(),\n {concuerror_lid:lid(),pos_integer()} | 'undefined'}.\n-define(BIN_TO_TERM(X), X).\n-define(TERM_TO_BIN(X), X).\n-endif.\n\n%% Given a state and a process LID, return a new extended state\n%% containing the given LID as its last element.\n-spec extend(state(), concuerror_lid:lid()) -> state().\n\nextend(State, Lid) ->\n {Front, Queue, Rear} = ?BIN_TO_TERM(State),\n case Rear of\n {RLid, N} when RLid==Lid ->\n NewState = {Front, Queue, {RLid, N+1}},\n ?TERM_TO_BIN(NewState);\n {_RLid, _N} ->\n NewQueue = queue:in(Rear, Queue),\n NewState = {Front, NewQueue, {Lid, 1}},\n ?TERM_TO_BIN(NewState);\n undefined ->\n NewState = {Front, Queue, {Lid, 1}},\n ?TERM_TO_BIN(NewState)\n end.\n\n%% Return initial (empty) state.\n-spec empty() -> state().\n\nempty() ->\n NewState = {undefined, queue:new(), undefined},\n ?TERM_TO_BIN(NewState).\n\n%% Check if State is an empty state.\n-spec is_empty(state()) -> boolean().\n\nis_empty(State) ->\n case ?BIN_TO_TERM(State) of\n {undefined, Queue, undefined} ->\n queue:is_empty(Queue);\n _ -> false\n end.\n\n%% Pack out state.\n-spec pack(state()) -> state().\n\npack(State) ->\n {Front, Queue, Rear} = ?BIN_TO_TERM(State),\n Queue1 =\n case Front of\n undefined -> Queue;\n _ -> queue:in_r(Front, Queue)\n end,\n Queue2 =\n case Rear of\n undefined -> Queue1;\n _ -> queue:in(Rear, Queue1)\n end,\n NewState = {undefined, Queue2, undefined},\n ?TERM_TO_BIN(NewState).\n\n%% Return a tuple containing the first Lid in the given state\n%% and a new state with that Lid removed.\n%% Assume the State is packed and not empty.\n-spec trim_head(state()) -> {concuerror_lid:lid(), state()}.\n\ntrim_head(State) ->\n {Front, Queue, Rear} = ?BIN_TO_TERM(State),\n case Front of\n {Lid, N} when N>1 ->\n NewState = {{Lid, N-1}, Queue, Rear},\n {Lid, ?TERM_TO_BIN(NewState)};\n {Lid, N} when N==1 ->\n NewState = {undefined, Queue, Rear},\n {Lid, ?TERM_TO_BIN(NewState)};\n undefined ->\n {{value, NewFront}, NewQueue} = queue:out(Queue),\n NewState = {NewFront, NewQueue, Rear},\n trim_head(?TERM_TO_BIN(NewState))\n end.\n\n%% Return a tuple containing the last Lid in the given state\n%% and a new state with that Lid removed.\n%% Assume the State is packed and not empty.\n-spec trim_tail(state()) -> {concuerror_lid:lid(), state()}.\n\ntrim_tail(State) ->\n {Front, Queue, Rear} = ?BIN_TO_TERM(State),\n case Rear of\n {Lid, N} when N>1 ->\n NewState = {Front, Queue, {Lid, N-1}},\n {Lid, ?TERM_TO_BIN(NewState)};\n {Lid, N} when N==1 ->\n NewState = {Front, Queue, undefined},\n {Lid, ?TERM_TO_BIN(NewState)};\n undefined ->\n {{value, NewRear}, NewQueue} = queue:out_r(Queue),\n NewState = {Front, NewQueue, NewRear},\n trim_tail(?TERM_TO_BIN(NewState))\n end.\n" }, { "path": "resources/old_source/concuerror_ticket.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Error ticket interface\n%%%----------------------------------------------------------------------\n\n-module(concuerror_ticket).\n\n-export([new/2, get_error/1, get_details/1, details_to_strings/1, sort/1]).\n\n-export_type([ticket/0]).\n\n-include(\"gen.hrl\").\n\n%% An error ticket containing all the informations about an error\n%% and the interleaving that caused it.\n-type ticket() :: {concuerror_error:error(),\n [concuerror_proc_action:proc_action()]}.\n\n%% @doc: Create a new error ticket.\n-spec new(concuerror_error:error(), [concuerror_proc_action:proc_action()])\n -> ticket().\n\nnew(Error, ErrorDetails) ->\n NewError =\n case Error of\n {exception, {Type, Stacktrace}} ->\n {exception, {Type, clean_stacktrace(Stacktrace)}};\n Error -> Error\n end,\n {NewError, ErrorDetails}.\n\n%% ---------------------------\nclean_stacktrace(Stacktrace) ->\n clean_stacktrace(Stacktrace, []).\n\nclean_stacktrace([], Acc) ->\n lists:reverse(Acc);\nclean_stacktrace([{?REP_MOD, _, _, _} | Ts], Acc) ->\n %% Ignore concuerror's rep module\n clean_stacktrace(Ts, Acc);\nclean_stacktrace([{Mod, Fun, Args, Pos} | Ts], Acc) ->\n %% Rename modules back to their original names\n OldMod = concuerror_instr:old_module_name(Mod),\n %% Rename files after their modules (for now).\n %% TODO: Rename files back to their original names.\n OldFile = atom_to_list(OldMod) ++ \".erl\",\n OldPos = lists:keyreplace(file, 1, Pos, {file, OldFile}),\n clean_stacktrace(Ts, [{OldMod, Fun, Args, OldPos} | Acc]).\n\n%% ---------------------------\n-spec get_error(ticket()) -> concuerror_error:error().\n\nget_error({Error, _ErrorDetails}) ->\n Error.\n\n-spec get_details(ticket()) -> [concuerror_proc_action:proc_action()].\n\nget_details({_Error, ErrorDetails}) ->\n ErrorDetails.\n\n-spec details_to_strings(ticket()) -> [string()].\n\ndetails_to_strings({_Error, ErrorDetails}) ->\n [concuerror_proc_action:to_string(Detail) || Detail <- ErrorDetails].\n\n%% Sort a list of tickets according to state.\n-spec sort([ticket()]) -> [ticket()].\n\nsort(Tickets) ->\n Compare = fun(T1, T2) -> get_details(T1) =< get_details(T2) end,\n lists:sort(Compare, Tickets).\n" }, { "path": "resources/old_source/concuerror_util.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Utilities\n%%%----------------------------------------------------------------------\n\n-module(concuerror_util).\n-export([doc/1, test/0, flat_format/2, flush_mailbox/0, get_module_name/1,\n is_erl_source/1, funs/1, funs/2, funLine/3, pmap/2, wait_messages/1,\n timer_init/0, timer_start/1, timer/1, timer_stop/1, timer_destroy/0,\n init_state/0, progress_bar/2, to_elapsed_time/1, to_elapsed_time/2]).\n\n-export_type([progress/0]).\n\n-include_lib(\"kernel/include/file.hrl\").\n-include(\"gen.hrl\").\n\n%% @spec doc(string()) -> 'ok'\n%% @doc: Build documentation using edoc.\n-spec doc(string()) -> 'ok'.\n\ndoc(AppDir) ->\n AppName = ?APP_ATOM,\n Options = [],\n edoc:application(AppName, AppDir, Options).\n\n%% @spec test() -> 'ok'\n%% @doc: Run all EUnit tests for the modules in the `src' directory.\n-spec test() -> 'ok'.\n\ntest() ->\n Modules = [concuerror_lid,\n concuerror_state,\n concuerror_error,\n concuerror_ticket,\n concuerror_instr],\n Tests = [{module, M} || M <- Modules],\n eunit:test(Tests, [verbose]).\n\n%% @spec flat_format(string(), [term()]) -> string()\n%% @doc: Equivalent to lists:flatten(io_lib:format(String, Args)).\n-spec flat_format(string(), [term()]) -> string().\n\nflat_format(String, Args) ->\n lists:flatten(io_lib:format(String, Args)).\n\n%% Flush a process' mailbox.\n-spec flush_mailbox() -> 'ok'.\n\nflush_mailbox() ->\n receive\n _Any -> flush_mailbox()\n after 0 -> ok\n end.\n\n%% @spec is_erl_source(file:filename()) -> boolean()\n%% @doc: Check if file exists and has `.erl' suffix\n-spec is_erl_source(file:filename()) -> boolean().\n\nis_erl_source(File) ->\n case filename:extension(File) of\n \".erl\" ->\n case file:read_file_info(File) of\n {ok, Info} ->\n Info#file_info.type == 'regular';\n _Error -> false\n end;\n _Other -> false\n end.\n\n%% @spec get_module_name(file:filename()) -> atom()\n%% @doc: Get the module name of an erlang file name\n-spec get_module_name(file:filename()) -> atom().\n\nget_module_name(File) ->\n list_to_atom(filename:basename(File, \".erl\")).\n\n%% @spec funs(string()) -> [{atom(), non_neg_integer()}]\n%% @doc: Same as `funs(File, tuple)'.\n-spec funs(string()) -> [{atom(), arity()}].\n\nfuns(File) ->\n funs(File, tuple).\n\n%% @type: funs_options() = 'tuple' | 'string'.\n%% @spec funs(string(), Options::funs_options()) ->\n%% [{atom(), non_neg_integer()}] | [string()]\n%% @doc: Scan a file for exported functions.\n%%\n%% If no `export' attribute is found in the file, all functions of the module\n%% are returned.\n%% If called with the `tuple' option, a list of {Fun, Arity} tuples is returned,\n%% otherwise if called with the `string' option, a list of `\"Fun/Arity\"' strings\n%% is returned.\n-spec funs(string(), 'tuple' | 'string') -> [{atom(), arity()}] | [string()].\n\nfuns(File, tuple) ->\n {ok, Form} = epp_dodger:quick_parse_file(File),\n getFuns(Form, []);\nfuns(File, string) ->\n Funs = funs(File, tuple),\n [lists:concat([Name, \"/\", Arity]) || {Name, Arity} <- Funs].\n\ngetFuns([], Funs) ->\n Funs;\ngetFuns([Node|Rest] = L, Funs) ->\n case erl_syntax:type(Node) of\n attribute ->\n Name = erl_syntax:atom_name(erl_syntax:attribute_name(Node)),\n case Name of\n \"export\" ->\n [List] = erl_syntax:attribute_arguments(Node),\n Args = erl_syntax:list_elements(List),\n NewFuns = getExports(Args, []),\n getFuns(Rest, NewFuns ++ Funs);\n _Other -> getFuns(Rest, Funs)\n end;\n function ->\n case Funs of\n [] -> getAllFuns(L, []);\n _Other -> Funs\n end;\n _Other -> getFuns(Rest, Funs)\n end.\n\ngetExports([], Exp) ->\n Exp;\ngetExports([Fun|Rest], Exp) ->\n Name = erl_syntax:atom_name(erl_syntax:arity_qualifier_body(Fun)),\n Arity = erl_syntax:integer_value(erl_syntax:arity_qualifier_argument(Fun)),\n getExports(Rest, [{list_to_atom(Name), Arity}|Exp]).\n\ngetAllFuns([], Funs) ->\n Funs;\ngetAllFuns([Node|Rest], Funs) ->\n case erl_syntax:type(Node) of\n function ->\n Name = erl_syntax:atom_name(erl_syntax:function_name(Node)),\n Arity = erl_syntax:function_arity(Node),\n getAllFuns(Rest, [{list_to_atom(Name), Arity}|Funs]);\n _Other -> getAllFuns(Rest, Funs)\n end.\n\n-spec funLine(string(), atom(), arity()) -> integer().\n\nfunLine(File, Function, Arity) ->\n {ok, Form} = epp_dodger:quick_parse_file(File),\n getFunLine(Form, Function, Arity).\n\ngetFunLine([], _Function, _Arity) ->\n -1;\ngetFunLine([Node|Rest], Function, Arity) ->\n case erl_syntax:type(Node) of\n function ->\n F = erl_syntax:atom_name(erl_syntax:function_name(Node)),\n A = erl_syntax:function_arity(Node),\n case (Function =:= list_to_atom(F)) andalso (Arity =:= A) of\n true -> erl_syntax:get_pos(Node);\n false -> getFunLine(Rest, Function, Arity)\n end;\n _Other -> getFunLine(Rest, Function, Arity)\n end.\n\n\n%% -------------------------------------------------------------------\n%% A timer function\n%% It returns true only after X msec since the last time.\n\n-spec timer_init() -> ok.\ntimer_init() ->\n Tweaks = [{write_concurrency,true}, {read_concurrency,true}],\n ?NT_TIMER = ets:new(?NT_TIMER, [set, public, named_table | Tweaks]),\n true = ets:insert(?NT_TIMER, {ets_counter, 0}),\n ok.\n\n-spec timer_start(non_neg_integer()) -> pos_integer().\ntimer_start(MSec) ->\n %% Create clock\n N = ets:update_counter(?NT_TIMER, ets_counter, 1),\n {T, _} = statistics(wall_clock),\n true = ets:insert(?NT_TIMER, {N, MSec, T}),\n %% Return the clock id\n N.\n\n-spec timer(pos_integer()) -> pos_integer() | 'false'.\ntimer(ClockId) ->\n %% Get old value\n [{ClockId, MSec, T1}] = ets:lookup(?NT_TIMER, ClockId),\n %% Get new value\n {T2, _} = statistics(wall_clock),\n %% Compare\n T = T2 - T1,\n if\n T >= MSec ->\n %% Update the value (last time we asked)\n true = ets:update_element(?NT_TIMER, ClockId, {3, T2}),\n %% Return elapsed time\n T;\n true ->\n %% Not there yet, return false\n false\n end.\n\n-spec timer_stop(pos_integer()) -> ok.\ntimer_stop(ClockId) ->\n true = ets:delete(?NT_TIMER, ClockId),\n ok.\n\n-spec timer_destroy() -> ok.\ntimer_destroy() ->\n true = ets:delete(?NT_TIMER),\n ok.\n\n\n%% -------------------------------------------------------------------\n%% Progress bar\n\n%% Log event handler internal state.\n%% The state (if we want to have progress bar) contains\n%% the number of errors we have found so far,\n%% the elapsed time (in msecs),\n%% the timer.\n-type progress() :: {non_neg_integer(), non_neg_integer(), pos_integer()}.\n\n-spec init_state() -> progress().\ninit_state() ->\n {0, 0, concuerror_util:timer_start(1000)}.\n\n-spec progress_bar(concuerror_log:progress_type(), progress()) ->\n {progress(), string()}.\nprogress_bar({'new', RunCnt, SBlocked}, {Errors, Elapsed, Timer}=State) ->\n case timer(Timer) of\n false -> {State, \"\"};\n Time ->\n NewElapsed = Elapsed + Time,\n {Mins, Secs} = to_elapsed_time(NewElapsed),\n TruncSecs = erlang:trunc(Secs),\n StrSecs =\n case TruncSecs < 10 of\n true -> \"0\" ++ integer_to_list(TruncSecs);\n false -> integer_to_list(TruncSecs)\n end,\n Msg = io_lib:format(\n \"[ ~p checked interleavings, ~p sleep set blocked,\"\n \" ~p errors in ~wm~ss ]\",\n [RunCnt, SBlocked, Errors, Mins, StrSecs]),\n {{Errors, NewElapsed, Timer}, Msg}\n end;\nprogress_bar({'error', _Ticket}, {Error, Elapsed, Timer}) ->\n {{Error+1, Elapsed, Timer}, \"\"}.\n\n\n%% -------------------------------------------------------------------\n%% Elapsed time (from msecs to {Mins, Secs})\n\n-type elapsed_time() :: {integer(), float()}.\n\n-spec to_elapsed_time(pos_integer(), pos_integer()) -> elapsed_time().\nto_elapsed_time(T1, T2) ->\n to_elapsed_time(T2 - T1).\n\n-spec to_elapsed_time(non_neg_integer()) -> elapsed_time().\nto_elapsed_time(ElapsedTime) ->\n Mins = ElapsedTime div 60000,\n Secs = (ElapsedTime rem 60000) / 1000,\n {Mins, Secs}.\n\n%% -------------------------------------------------------------------\n%% A concurrent map\n-spec pmap(fun((term()) -> term()), [term()]) -> [term()].\npmap(Fun, List) ->\n Parent = self(),\n Pids = [spawn(fun() -> Parent ! Fun(L) end) || L <- List],\n [receive Ret -> Ret end || _Pid <- Pids].\n\n\n%% -------------------------------------------------------------------\n%% Wait for uninstrumented messages to be processed.\n-spec wait_messages(concuerror_rep:dest()) -> ok.\nwait_messages(Dest) ->\n WaitFlag = ets:member(?NT_OPTIONS, 'wait_messages'),\n NotInstr = concuerror_lid:from_pid(Dest) =:= 'not_found',\n case (WaitFlag andalso NotInstr) of\n true ->\n Self = self(),\n Pid = spawn(fun() -> trace(Self) end),\n receive {Pid, ok} -> ok end;\n false ->\n ok\n end.\n\ntrace(Pid) ->\n %% Wait until Pid receives a message\n {message_queue_len, MsgQueueLen} = process_info(Pid, message_queue_len),\n traceLoop(Pid, MsgQueueLen, 5),\n Pid ! {self(), ok}.\n\ntraceLoop(_Pid, _MsgQueueLen, 0) ->\n ok;\ntraceLoop(Pid, MsgQueueLen, I) ->\n {message_queue_len, NewLen} = process_info(Pid, message_queue_len),\n case NewLen > MsgQueueLen of\n true -> ok;\n false ->\n receive after 2 -> traceLoop(Pid, MsgQueueLen, I-1) end\n end.\n" }, { "path": "resources/perm_tests/run_perm_tests", "content": "#!/usr/bin/env bash\nMYNAME=$(basename $0)\n\nexport DIR=$(dirname $0)\n\nperm() {\n local items=\"$1\"\n local out=\"$2\"\n local i\n [[ \"$items\" == \"\" ]] && echo \"$out\" && return\n for (( i=0; i<${#items}; i++ )) ; do\n perm \"${items:0:i}${items:i+1}\" \"$out${items:i:1}\"\n done\n}\n\nrunme() {\n R=$($DIR/../concuerror --dpor -p inf -f $DIR/src/$TEST.erl -t $TEST run $1 | \\\n if [ \"$MODE\" = \"STRICT\" ]; then\n grep Checked | cut -d' ' -f4\n else\n grep erroneous | cut -d' ' -f2\n fi)\n echo \".\" >> $TOTAL\n if [ \"$R\" != \"$RESULT\" ]; then\n echo \" $TEST $1: FAIL! (Expecting $RESULT got $R)\"\n echo \".\" >> $FAIL\n exit 1\n fi\n exit 0\n}\n\nusage() {\n cat <&2; exit 1;;\n esac\ndone\n\nshift $((OPTIND-1))\n\nif [ -z \"$1\" ]; then\n usage\n exit 0\nfi\n\nfor i in \"$@\"; do\n export TOTAL=$(mktemp)\n export FAIL=$(mktemp)\n export TEST=$(basename $i .erl)\n erlc -o /tmp $DIR/src/$TEST.erl\n export RESULT=$(erl -pa /tmp -noshell -s $TEST result -s erlang halt)\n PROCS=$(erl -pa /tmp -noshell -s $TEST procs -s erlang halt)\n rm /tmp/$TEST.beam\n\n export -f runme\n\n (perm $(seq -s '' $PROCS) | \\\n xargs -n 1 -P 10 -i bash -c 'runme \"$@\"' _ {} \\;) && \\\n echo \"$TEST: OK ($(wc -l < $TOTAL))\" || \\\n echo \"$TEST: FAILED! ($(wc -l < $FAIL)/$(wc -l < $TOTAL))\"\n rm $TOTAL\n rm $FAIL\ndone\n" }, { "path": "resources/perm_tests/src/complete_test_3.erl", "content": "-module(complete_test_3).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"80\").\n\nprocs() -> io:format(\"6\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {x, 0}),\n ets:insert(table, {y, 0}),\n ets:insert(table, {z, 0}).\n\n-define(cover, ets:insert(table, {self(), ?LINE})).\n\nproc($1) ->\n ?cover, ets:insert(table, {x, 1});\nproc($2) ->\n ?cover, ets:insert(table, {z, 1});\nproc($3) ->\n ?cover, [{y, Y}] = ets:lookup(table, y),\n case Y of\n 0 -> ?cover, ets:lookup(table, x);\n _ -> ok\n end;\nproc($4) ->\n ?cover, [{z, Z}] = ets:lookup(table, z),\n case Z of\n 1 -> ?cover, ets:lookup(table, x);\n _ -> ok\n end,\n ?cover, ets:insert(table, {y, 1});\nproc($5) ->\n ?cover, ets:insert(table, {x, 2});\nproc($6) ->\n ?cover, ets:insert(table, {y, 2}).\n" }, { "path": "resources/perm_tests/src/conditional_readers_3.erl", "content": "-module(conditional_readers_3).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"6\").\n\nprocs() -> io:format(\"3\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {x, 0}),\n ets:insert(table, {y, 0}).\n\nproc($1) ->\n ets:insert(table, {x, 1});\nproc($2) ->\n [{y, Y}] = ets:lookup(table, y),\n case Y of\n 0 -> ets:lookup(table, x);\n _ -> ok\n end;\nproc($3) ->\n ets:lookup(table, x),\n ets:insert(table, {y, 1}).\n" }, { "path": "resources/perm_tests/src/depend_4_1.erl", "content": "-module(depend_4_1).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"30\").\n\nprocs() -> io:format(\"6\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {x, 0}),\n ets:insert(table, {y, 0}),\n ets:insert(table, {z, 0}).\n\nproc($1) ->\n ets:insert(table, {z, 1});\nproc($2) ->\n ets:insert(table, {x, 1});\nproc($3) ->\n ets:insert(table, {y, 1});\nproc($4) ->\n [{x, X}] = ets:lookup(table, x),\n case X of\n 1 ->\n [{y, Y}] = ets:lookup(table, y),\n case Y of\n 1 -> ets:lookup(table, z);\n _ -> ok\n end;\n _ -> ok\n end;\nproc($5) ->\n [{y, Y}] = ets:lookup(table, y),\n case Y of\n 1 -> ets:lookup(table, z);\n _ -> ok\n end;\nproc($6) ->\n ets:insert(table, {x, 2}).\n" }, { "path": "resources/perm_tests/src/depend_4_2.erl", "content": "-module(depend_4_2).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"20\").\n\nprocs() -> io:format(\"6\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {x, 0}),\n ets:insert(table, {y, 0}),\n ets:insert(table, {z, 0}).\n\nproc($1) ->\n ets:insert(table, {z, 1});\nproc($2) ->\n ets:insert(table, {x, 1});\nproc($3) ->\n ets:insert(table, {y, 1});\nproc($4) ->\n [{x, X}] = ets:lookup(table, x),\n case X of\n 1 ->\n [{y, Y}] = ets:lookup(table, y),\n case Y of\n 1 -> ets:lookup(table, z);\n _ -> ok\n end;\n _ -> ok\n end;\nproc($5) ->\n ets:lookup(table, y);\nproc($6) ->\n ets:insert(table, {x, 2}).\n" }, { "path": "resources/perm_tests/src/depend_4_3.erl", "content": "-module(depend_4_3).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"16\").\n\nprocs() -> io:format(\"5\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {x, 0}),\n ets:insert(table, {y, 0}).\n\nproc($1) ->\n ets:insert(table, {x, 1});\nproc($2) ->\n ets:insert(table, {y, 1});\nproc($3) ->\n [{x, X}] = ets:lookup(table, x),\n case X of\n 1 -> ets:lookup(table, y);\n _ -> ok\n end;\nproc($4) ->\n ets:lookup(table, y);\nproc($5) ->\n ets:insert(table, {x, 2}).\n" }, { "path": "resources/perm_tests/src/depend_6_1.erl", "content": "-module(depend_6_1).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"18\").\n\nprocs() -> io:format(\"4\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {y, 0}),\n ets:insert(table, {z, 0}).\n\nproc($1) ->\n ets:lookup(table, y),\n ets:lookup(table, z);\nproc($2) ->\n ets:lookup(table, y);\nproc($3) ->\n ets:insert(table, {z, 1});\nproc($4) ->\n ets:insert(table, {y, 1}),\n ets:insert(table, {y, 2}).\n" }, { "path": "resources/perm_tests/src/depend_6_2.erl", "content": "-module(depend_6_2).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"27\").\n\nprocs() -> io:format(\"4\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {y, 0}),\n ets:insert(table, {z, 0}).\n\nproc($1) ->\n ets:lookup(table, y),\n ets:lookup(table, z);\nproc($2) ->\n ets:lookup(table, y);\nproc($3) ->\n ets:insert(table, {y, 1});\nproc($4) ->\n ets:insert(table, {z, 1}),\n ets:insert(table, {y, 2}).\n" }, { "path": "resources/perm_tests/src/depend_6_3.erl", "content": "-module(depend_6_3).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"36\").\n\nprocs() -> io:format(\"4\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {y, 0}),\n ets:insert(table, {z, 0}).\n\nproc($1) ->\n ets:lookup(table, y),\n ets:lookup(table, z);\nproc($2) ->\n ets:lookup(table, y);\nproc($3) ->\n ets:insert(table, {y, 1});\nproc($4) ->\n ets:insert(table, {y, 2}),\n ets:insert(table, {z, 1}).\n" }, { "path": "resources/perm_tests/src/depend_6_4.erl", "content": "-module(depend_6_4).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"18\").\n\nprocs() -> io:format(\"4\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {y, 0}),\n ets:insert(table, {z, 0}).\n\nproc($1) ->\n ets:lookup(table, y),\n ets:lookup(table, z);\nproc($2) ->\n ets:lookup(table, z);\nproc($3) ->\n ets:insert(table, {y, 1});\nproc($4) ->\n ets:insert(table, {z, 1}),\n ets:insert(table, {y, 2}).\n" }, { "path": "resources/perm_tests/src/depend_6_5.erl", "content": "-module(depend_6_5).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"12\").\n\nprocs() -> io:format(\"4\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {y, 0}),\n ets:insert(table, {z, 0}).\n\nproc($1) ->\n ets:lookup(table, y);\nproc($2) ->\n ets:lookup(table, z);\nproc($3) ->\n ets:insert(table, {y, 1});\nproc($4) ->\n ets:insert(table, {z, 1}),\n ets:insert(table, {y, 2}).\n" }, { "path": "resources/perm_tests/src/etsi.erl", "content": "-module(etsi).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"7\").\n\nprocs() -> io:format(\"3\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {x, 0}),\n ets:insert(table, {y, 0}),\n ets:insert(table, {z, 0}).\n\nproc($1) -> fun_abc(x, y, z);\nproc($2) -> fun_abc(y, z, x);\nproc($3) -> fun_abc(z, x, y).\n\nfun_abc(A, B, C) ->\n [{A, V}] = ets:lookup(table, A),\n case V of\n 0 -> ets:insert(table, {B, 1});\n 1 -> ets:insert(table, {C, 0})\n end.\n" }, { "path": "resources/perm_tests/src/readers_2.erl", "content": "-module(readers_2).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"4\").\n\nprocs() -> io:format(\"3\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {x, 0}),\n ets:insert(table, {y, 0}).\n\nproc($1) ->\n ets:lookup(table, y),\n ets:insert(table, {x, 1});\nproc($2) ->\n ets:lookup(table, y),\n ets:lookup(table, x);\nproc($3) ->\n proc($2).\n" }, { "path": "resources/perm_tests/src/readers_3.erl", "content": "-module(readers_3).\n\n-export([result/0, procs/0, run/1]).\n\nresult() -> io:format(\"8\").\n\nprocs() -> io:format(\"4\").\n\nrun(Procs) ->\n [S] = io_lib:format(\"~p\",[Procs]),\n initial(),\n run_aux(S),\n block().\n\nrun_aux([]) -> ok;\nrun_aux([P|R]) ->\n spawn(fun() -> proc(P) end),\n run_aux(R).\n\nblock() ->\n receive\n after infinity -> never\n end.\n\ninitial() ->\n ets:new(table, [public, named_table]),\n ets:insert(table, {x, 0}),\n ets:insert(table, {y, 0}).\n\nproc($1) ->\n ets:lookup(table, y),\n ets:insert(table, {x, 1});\nproc($2) ->\n ets:lookup(table, y),\n ets:lookup(table, x);\nproc($3) ->\n proc($2);\nproc($4) ->\n proc($2).\n" }, { "path": "resources/syntax/block_after.erl", "content": "%%%----------------------------------------------------------------------\n%%% File : block_after.erl\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Test block expression in after clause\n%%% Created : 3 Jan 2010\n%%%----------------------------------------------------------------------\n\n-module(block_after).\n\n-export([block_after_test/0]).\n\nblock_after_test() ->\n receive\n\t_Any -> ok\n after 42 ->\n\t foo,\n\t bar\n end.\n" }, { "path": "resources/syntax/non_local_pat.erl", "content": "%%%----------------------------------------------------------------------\n%%% File : non_local_pat.erl\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Test assignment to non-local variables in patterns\n%%% Created : 3 Jan 2010\n%%%----------------------------------------------------------------------\n\n-module(non_local_pat).\n\n-export([non_local_pat_test/0]).\n\nnon_local_pat_test() ->\n Pid1 = spawn(fun() -> ok end),\n Pid2 = spawn(fun() -> ok end),\n receive\n\tC1 = {Pid1, _} -> nil\n end,\n receive\n\tC2 = {Pid2, _} ->\n\t Pid1 ! C2,\n\t Pid2 ! C1\n end.\n" }, { "path": "resources/syntax/rec_uscore.erl", "content": "%%%----------------------------------------------------------------------\n%%% File : rec_uscore.erl\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Test underscore in record creation\n%%% Created : 3 Jan 2010\n%%%----------------------------------------------------------------------\n\n-module(rec_uscore).\n\n-export([rec_uscore_test/0]).\n\n-record(test, {foo :: integer(), bar :: atom(), baz :: atom()}).\n\nrec_uscore_test() ->\n _Rec = #test{foo = 42, _ = '_'}.\n" }, { "path": "resources/syntax/strip_attr.erl", "content": "%%%----------------------------------------------------------------------\n%%% File : strip_attr.erl\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Test stripping type and spec related attributes\n%%% (type, spec, opaque, export_type, import_type)\n%%% before instrumentation (import_type not tested).\n%%% Created : 9 Jan 2010\n%%%----------------------------------------------------------------------\n\n-module(strip_attr).\n\n-export([foo/0]).\n\n-export_type([mytype/0]).\n\n-record(myrec, {foo :: integer(), bar :: integer()}).\n\n-type mytype() :: #myrec{}.\n\n-opaque mytype_2() :: #myrec{}.\n\n-spec foo() -> {mytype(), mytype_2()}.\n\nfoo() -> {#myrec{foo = 42, bar = 42}, #myrec{foo = 42, bar = 42}}.\n" }, { "path": "resources/tdd/reg_server.erl", "content": "%%%----------------------------------------------------------------------\n%%% Author : Alkis Gotovos \n%%% Description : Generic registration server\n%%%----------------------------------------------------------------------\n\n-module(reg_server).\n\n-export([attach/0, detach/0, ping/0, start/0, stop/0]).\n\n-define(REG_NAME, reg_server).\n-define(REG_REQUEST, reg_request).\n-define(REG_REPLY, reg_reply).\n\n-include(\"reg_server.hrl\").\n\n-record(state, {free, reg}).\n\n\n%%%----------------------------------------------------------------------\n%%% Exports\n%%%----------------------------------------------------------------------\n\nattach() ->\n request(attach).\n\ndetach() ->\n request(detach).\n\nping() ->\n request(ping).\n\nstart() ->\n case whereis(?REG_NAME) of\n\tundefined ->\t \n\t Pid = spawn(fun() -> loop(initState()) end),\n\t try register(?REG_NAME, Pid) of\n\t\ttrue -> ok\n\t catch\n\t\terror:badarg ->\n\t\t Pid ! {?REG_REQUEST, kill},\n\t\t already_started\n\t end;\n\t_Pid -> already_started\n end.\n\nstop() ->\n request(stop).\n\n%%%----------------------------------------------------------------------\n%%% Internals\n%%%----------------------------------------------------------------------\n\ninitState() ->\n FreeList = lists:seq(1, ?MAX_ATTACHED),\n #state{free = ordsets:from_list(FreeList),\n\t reg = dict:new()}.\n\nloop(#state{free = Free, reg = Reg} = State) ->\n receive\n\t{?REG_REQUEST, Target, attach} ->\n\t case dict:find(Target, Reg) of\n\t\t{ok, RegNum} ->\n\t\t reply(Target, RegNum),\n\t\t loop(State);\n\t\terror ->\n\t\t case ordsets:to_list(Free) of\n\t\t\t[] ->\n\t\t\t reply(Target, server_full),\n\t\t\t loop(State);\n\t\t\t[RegNum|NewFreeList] ->\n\t\t\t NewReg = dict:store(Target, RegNum, Reg),\n\t\t\t monitor(process, Target),\n\t\t\t reply(Target, RegNum),\n\t\t\t NewFree = ordsets:from_list(NewFreeList),\n\t\t\t NewState = State#state{free = NewFree,\n\t\t\t\t\t\t reg = NewReg},\n\t\t\t loop(NewState)\n\t\t end\n\t end;\n\t{?REG_REQUEST, Target, detach} ->\n\t {Reply, NewFree, NewReg} =\n\t\tdetach_proc(Target, Free, Reg),\n\t reply(Target, Reply),\n\t NewState = State#state{free = NewFree,\n\t\t\t\t reg = NewReg},\n\t loop(NewState);\n\t{?REG_REQUEST, Target, ping} ->\n\t case dict:find(Target, Reg) of\n\t\t{ok, RegNum} -> reply(Target, RegNum);\n\t\terror -> reply(Target, pong)\n\t end,\n\t loop(State);\n\t{'DOWN', _Ref, process, Target, _Info} ->\n\t NewState =\n\t\tcase dict:is_key(Target, Reg) of\n\t\t true ->\n\t\t\t{ok, NewFree, NewReg} =\n\t\t\t detach_proc(Target, Free, Reg),\n\t\t\tState#state{free = NewFree,\n\t\t\t\t reg = NewReg};\n\t\t false -> State\n\t\tend,\n\t loop(NewState);\n\t{?REG_REQUEST, Target, stop} ->\n\t unregister(?REG_NAME),\n\t reply(Target, ok);\n\t{?REG_REQUEST, kill} -> killed\n end.\n\ndetach_proc(Target, Free, Reg) ->\n case dict:is_key(Target, Reg) of\n\tfalse -> {ok, Free, Reg};\n\ttrue ->\n\t RegNum = dict:fetch(Target, Reg),\n\t NewReg = dict:erase(Target, Reg),\n\t NewFree = ordsets:add_element(RegNum, Free),\n\t {ok, NewFree, NewReg}\n end.\n\nrequest(Request) ->\n case whereis(?REG_NAME) of\n\tundefined -> server_down;\n\tPid ->\n\t Ref = monitor(process, Pid),\n\t Pid ! {?REG_REQUEST, self(), Request},\n\t receive\n\t\t{?REG_REPLY, Reply} ->\n\t\t demonitor(Ref, [flush]),\n\t\t Reply;\n\t\t{'DOWN', Ref, process, Pid, _Reason} ->\n\t\t server_down\n\t end\n end.\n\nreply(Target, Reply) ->\n Target ! {?REG_REPLY, Reply}.\n" }, { "path": "resources/tdd/reg_server.hrl", "content": "-define(MAX_ATTACHED, 2).\n" }, { "path": "resources/tdd/reg_server_tests.erl", "content": "%%%----------------------------------------------------------------------\n%%% Author : Alkis Gotovos \n%%% Description : Generic registration server tests\n%%%----------------------------------------------------------------------\n\n-module(reg_server_tests).\n\n-include_lib(\"eunit/include/eunit.hrl\").\n-include(\"reg_server.hrl\").\n\n-export([start_stop_test/0, ping_test/0, multiple_stops_test/0,\n\t multiple_concurrent_stops_test/0, ping_failure_test/0,\n\t ping_concurrent_failure_test/0, multiple_starts_test/0,\n\t multiple_concurrent_starts_test/0, attach_noping_test/0,\n attach_test/0, max_attached_proc_test/0, detach_test/0,\n detach_attach_test/0, detach_non_attached_test/0,\n detach_on_exit_test/0]).\n\n\nstart_stop_test() ->\n ?assertEqual(ok, reg_server:start()),\n ?assertEqual(ok, reg_server:stop()).\n\nping_test() ->\n reg_server:start(),\n ?assertEqual(pong, reg_server:ping()),\n ?assertEqual(pong, reg_server:ping()),\n reg_server:stop().\n\nmultiple_stops_test() ->\n reg_server:start(),\n ?assertEqual(ok, reg_server:stop()),\n ?assertEqual(server_down, reg_server:stop()).\n\nmultiple_concurrent_stops_test() ->\n Self = self(),\n reg_server:start(),\n spawn(fun() -> Self ! reg_server:stop() end),\n spawn(fun() -> Self ! reg_server:stop() end),\n ?assertEqual(lists:sort([ok, server_down]),\n\t\t lists:sort(receive_two())).\n\nping_failure_test() ->\n ?assertEqual(server_down, reg_server:ping()),\n reg_server:start(),\n reg_server:stop(),\n ?assertEqual(server_down, reg_server:ping()).\n\nping_concurrent_failure_test() ->\n reg_server:start(),\n spawn(fun() ->\n\t\t R = reg_server:ping(),\n\t\t Results = [pong, server_down],\n\t\t ?assertEqual(true, lists:member(R, Results))\n\t end),\n reg_server:stop().\n\nmultiple_starts_test() ->\n reg_server:start(),\n ?assertEqual(already_started, reg_server:start()),\n reg_server:stop().\n\nmultiple_concurrent_starts_test() ->\n Self = self(),\n spawn(fun() -> Self ! reg_server:start() end),\n spawn(fun() -> Self ! reg_server:start() end),\n ?assertEqual(lists:sort([already_started, ok]),\n\t\t lists:sort(receive_two())),\n reg_server:stop().\n\nattach_test() ->\n Self = self(),\n reg_server:start(),\n RegNum1 = reg_server:attach(),\n spawn(fun() ->\n\t\t RegNum2 = reg_server:attach(),\n\t\t ?assertEqual(RegNum2, reg_server:ping()),\n\t\t ?assertEqual(false, RegNum1 =:= RegNum2),\n\t\t Self ! done\n\t end),\n ?assertEqual(RegNum1, reg_server:ping()),\n receive done -> reg_server:stop() end.\n\nattach_noping_test() ->\n Self = self(),\n reg_server:start(),\n reg_server:attach(),\n spawn(fun() -> reg_server:attach() end),\n reg_server:stop().\n\nalready_attached_test() ->\n reg_server:start(),\n RegNum = reg_server:attach(),\n ?assertEqual(RegNum, reg_server:attach()),\n reg_server:stop().\n\nmax_attached_proc_test() ->\n reg_server:start(),\n Ps = [spawn_attach() || _ <- lists:seq(1, ?MAX_ATTACHED)],\n ?assertEqual(server_full, reg_server:attach()),\n lists:foreach(fun(Pid) -> Pid ! ok end, Ps),\n reg_server:stop().\n\ndetach_test() ->\n reg_server:start(),\n reg_server:attach(),\n reg_server:detach(),\n ?assertEqual(pong, reg_server:ping()),\n reg_server:stop().\n\ndetach_attach_test() ->\n Self = self(),\n reg_server:start(),\n Ps = [spawn_attach() || _ <- lists:seq(1, ?MAX_ATTACHED - 1)],\n LastProc = spawn(fun() ->\n\t\t\t RegNum = reg_server:attach(),\n\t\t\t reg_server:detach(),\n\t\t\t Self ! RegNum,\n\t\t\t receive ok -> ok end\n\t\t end),\n receive RegNum -> ok end,\n ?assertEqual(RegNum, reg_server:attach()),\n lists:foreach(fun(Pid) -> Pid ! ok end, [LastProc|Ps]),\n reg_server:stop().\n\ndetach_non_attached_test() ->\n reg_server:start(),\n ?assertEqual(ok, reg_server:detach()),\n reg_server:stop().\n\ndetach_on_exit_test() ->\n Self = self(),\n reg_server:start(),\n Ps = [spawn_attach() || _ <- lists:seq(1, ?MAX_ATTACHED - 1)],\n process_flag(trap_exit, true),\n LastProc = spawn_link(fun() ->\n\t\t\t\t Self ! reg_server:attach()\n\t\t\t end),\n receive RegNum -> ok end,\n receive {'EXIT', LastProc, normal} -> ok end,\n ?assertEqual(RegNum, reg_server:attach()),\n lists:foreach(fun(Pid) -> Pid ! ok end, [LastProc|Ps]),\n reg_server:stop().\n\n%%%----------------------------------------------------------------------\n%%% Helpers\n%%%----------------------------------------------------------------------\n\nreceive_two() ->\n receive\n\tResult1 ->\n\t receive\n\t\tResult2 ->\n\t\t [Result1, Result2]\n\t end\n end.\n\nattach_and_wait(Target) ->\n reg_server:attach(),\n Target ! done,\n receive ok -> ok end.\n\nspawn_attach() ->\n Self = self(),\n Pid = spawn(fun() -> attach_and_wait(Self) end),\n receive done -> Pid end.\n" }, { "path": "resources/utest/concuerror_error_tests.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Error interface unit tests\n%%%----------------------------------------------------------------------\n\n-module(concuerror_error_tests).\n\n-include_lib(\"eunit/include/eunit.hrl\").\n\n-include(\"gen.hrl\").\n\n%% Spec for auto-generated test/0 function (eunit).\n-spec test() -> 'ok' | {'error', term()}.\n\n-spec short_deadlock_test() -> 'ok'.\n\nshort_deadlock_test() ->\n Lid1 = concuerror_lid:mock(1),\n Lid2 = concuerror_lid:mock(2),\n Blocked = ?SETS:add_element(Lid1, ?SETS:add_element(Lid2, ?SETS:new())),\n Error = concuerror_error:new({deadlock, Blocked}),\n ?assertEqual(\"P1, P2\", concuerror_error:short(Error)).\n\n-spec short_system_exception_test() -> 'ok'.\n\nshort_system_exception_test() ->\n Stack = [{erlang,link,[c:pid(0, 2, 3)]},{sched,rep_link,1},{test,test08,0}],\n Error = concuerror_error:new({noproc, Stack}),\n ?assertEqual(\"{noproc,[...]}\", concuerror_error:short(Error)).\n\n-spec short_user_exception_test() -> 'ok'.\n\nshort_user_exception_test() ->\n Error = concuerror_error:new(foobar),\n ?assertEqual(\"foobar\", concuerror_error:short(Error)).\n\n-spec short_user_exception_similar_to_system_test() -> 'ok'.\n\nshort_user_exception_similar_to_system_test() ->\n Error = concuerror_error:new({foo, bar}),\n ?assertEqual(\"{foo,bar}\", concuerror_error:short(Error)).\n\n-spec short_assert_equal_violation_test() -> 'ok'.\n\nshort_assert_equal_violation_test() ->\n Error = concuerror_error:new({{assertEqual_failed,\n\t\t\t[{module, mymodule}, {line, 42},\n\t\t\t {expression, \"false\"},\n\t\t\t {expected, true}, {value, false}]}, []}),\n ?assertEqual(\"mymodule.erl:42\", concuerror_error:short(Error)).\n\n-spec short_assert_violation_test() -> 'ok'.\n\nshort_assert_violation_test() ->\n Error = concuerror_error:new({{assertion_failed,\n\t\t\t[{module, mymodule}, {line, 42},\n\t\t\t {expression, \"true =:= false\"},\n\t\t\t {expected, true}, {value, false}]}, []}),\n ?assertEqual(\"mymodule.erl:42\", concuerror_error:short(Error)).\n" }, { "path": "resources/utest/concuerror_instr_tests.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Authors : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Instrumenter unit tests\n%%%----------------------------------------------------------------------\n\n-module(concuerror_instr_tests).\n\n-include_lib(\"eunit/include/eunit.hrl\").\n-include(\"gen.hrl\").\n\n-define(TEST_PATH, \"./resources/syntax/\").\n\n%% Spec for auto-generated test/0 function (eunit).\n-spec test() -> 'ok' | {'error', term()}.\n\n\n-spec syntax_test_() -> term().\n\nsyntax_test_() ->\n Setup =\n fun() ->\n _ = concuerror_log:start(),\n _ = concuerror_log:attach(concuerror_log, []),\n ?NT_OPTIONS = ets:new(?NT_OPTIONS, [named_table, public, set])\n end,\n Cleanup =\n fun(_Any) ->\n ets:delete(?NT_OPTIONS),\n concuerror_log:stop()\n end,\n Test01 = {\"Block expression in after clause\",\n\t fun(_Any) -> test_ok(\"block_after.erl\") end},\n Test02 = {\"Assignments to non-local variables in patterns\",\n\t fun(_Any) -> test_ok(\"non_local_pat.erl\") end},\n Test03 = {\"Underscore in record creation\",\n\t fun(_Any) -> test_ok(\"rec_uscore.erl\") end},\n Test04 = {\"Strip types and specs\",\n\t fun(_Any) -> test_ok(\"strip_attr.erl\") end},\n Tests = [Test01, Test02, Test03, Test04],\n Inst = fun(X) -> [{D, fun() -> T(X) end} || {D, T} <- Tests] end,\n {foreach, local, Setup, Cleanup, [Inst]}.\n\ntest_ok(File) ->\n %% Initialize test\n Path = filename:join([?TEST_PATH, File]),\n Result = concuerror_instr:instrument_and_compile([Path], []),\n %% Cleanup test\n concuerror_instr:delete_and_purge([]),\n %% Assert Result\n ?assertMatch({ok, _Bin}, Result).\n" }, { "path": "resources/utest/concuerror_lid_tests.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Author : Alkis Gotovos \n%%% Description : LID interface unit tests\n%%%----------------------------------------------------------------------\n\n-module(concuerror_lid_tests).\n\n-include_lib(\"eunit/include/eunit.hrl\").\n\n-include(\"gen.hrl\").\n\n%% Spec for auto-generated test/0 function (eunit).\n-spec test() -> 'ok' | {'error', term()}.\n\n\n-spec one_proc_test_() -> term().\n\none_proc_test_() ->\n Setup =\n fun() -> concuerror_lid:start(),\n Pid = c:pid(0, 2, 3),\n Lid = concuerror_lid:new(Pid, noparent),\n {Pid, Lid}\n end,\n Cleanup = fun(_Any) -> concuerror_lid:stop() end,\n Test1 = {\"LID to Pid\",\n fun({Pid, Lid}) -> ?assertEqual(Pid,concuerror_lid:get_pid(Lid)) end},\n Test2 = {\"Pid to LID\",\n fun({Pid, Lid}) -> ?assertEqual(Lid,concuerror_lid:from_pid(Pid)) end},\n Test3 = {\"Parent -> Child\",\n fun({_Pid, Lid}) ->\n ChildPid = c:pid(0, 2, 4),\n ChildLid = concuerror_lid:new(ChildPid, Lid),\n ?assertEqual(ChildPid, concuerror_lid:get_pid(ChildLid)),\n ?assertEqual(ChildLid, concuerror_lid:from_pid(ChildPid))\n end},\n Tests = [Test1, Test2, Test3],\n Inst = fun(X) -> [{D, fun() -> T(X) end} || {D, T} <- Tests] end,\n {foreach, local, Setup, Cleanup, [Inst]}.\n\n-spec two_proc_test_() -> term().\n\ntwo_proc_test_() ->\n Setup =\n fun() -> concuerror_lid:start(),\n Pid1 = spawn(fun() -> receive ok -> ok end end),\n Pid2 = spawn(fun() -> receive ok -> ok end end),\n Lid1 = concuerror_lid:new(Pid1, noparent),\n Lid2 = concuerror_lid:new(Pid2, Lid1),\n {Pid1, Pid2, Lid1, Lid2}\n end,\n Cleanup =\n fun({Pid1, Pid2, _Lid1, _Lid2}) ->\n Pid1 ! ok, Pid2 ! ok,\n concuerror_lid:stop()\n end,\n Test1 = {\"Fold Pids\",\n fun({Pid1, Pid2, _Lid1, _Lid2}) ->\n Fun = fun(P, A) -> [P|A] end,\n Result = concuerror_lid:fold_pids(Fun, []),\n ?assertEqual(lists:member(Pid1, Result), true),\n ?assertEqual(lists:member(Pid2, Result), true)\n end},\n Test2 = {\"Cleanup\",\n fun({Pid1, _Pid2, Lid1, _Lid2}) ->\n concuerror_lid:cleanup(Lid1),\n ?assertEqual(not_found, concuerror_lid:from_pid(Pid1)),\n ?assertEqual(not_found, concuerror_lid:get_pid(Lid1))\n end},\n Tests = [Test1, Test2],\n Inst = fun(X) -> [{D, fun() -> T(X) end} || {D, T} <- Tests] end,\n {foreach, local, Setup, Cleanup, [Inst]}.\n" }, { "path": "resources/utest/concuerror_state_tests.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Author : Alkis Gotovos \n%%% Description : State interface unit tests\n%%%----------------------------------------------------------------------\n\n-module(concuerror_state_tests).\n\n-include_lib(\"eunit/include/eunit.hrl\").\n\n%% Spec for auto-generated test/0 function (eunit).\n-spec test() -> 'ok' | {'error', term()}.\n\n-spec extend_trim_head_test() -> 'ok'.\n\nextend_trim_head_test() ->\n concuerror_lid:start(),\n Init = concuerror_state:empty(),\n Lid = concuerror_lid:new(c:pid(0, 2, 3), noparent),\n State1 = concuerror_state:extend(Init, Lid),\n State2 = concuerror_state:pack(State1),\n {NewLid, NewState} = concuerror_state:trim_head(State2),\n ?assertEqual(NewLid, Lid),\n ?assertEqual(true, concuerror_state:is_empty(NewState)),\n concuerror_lid:stop().\n\n-spec extend_trim_tail_test() -> 'ok'.\n\nextend_trim_tail_test() ->\n concuerror_lid:start(),\n Init = concuerror_state:empty(),\n Lid = concuerror_lid:new(c:pid(0, 2, 3), noparent),\n State1 = concuerror_state:extend(Init, Lid),\n State2 = concuerror_state:pack(State1),\n {NewLid, NewState} = concuerror_state:trim_tail(State2),\n ?assertEqual(NewLid, Lid),\n ?assertEqual(true, concuerror_state:is_empty(NewState)),\n concuerror_lid:stop().\n" }, { "path": "resources/utest/concuerror_ticket_tests.erl", "content": "%%%----------------------------------------------------------------------\n%%% Copyright (c) 2011, Alkis Gotovos ,\n%%% Maria Christakis \n%%% and Kostis Sagonas .\n%%% All rights reserved.\n%%%\n%%% This file is distributed under the Simplified BSD License.\n%%% Details can be found in the LICENSE file.\n%%%----------------------------------------------------------------------\n%%% Author : Alkis Gotovos \n%%% Maria Christakis \n%%% Description : Ticket interface unit tests\n%%%----------------------------------------------------------------------\n\n-module(concuerror_ticket_tests).\n\n-include_lib(\"eunit/include/eunit.hrl\").\n\n%% Spec for auto-generated test/0 function (eunit).\n-spec test() -> 'ok' | {'error', term()}.\n\n-spec get_error_test() -> 'ok'.\n\nget_error_test() ->\n Error = concuerror_error:mock(),\n Pid = spawn(fun() -> ok end),\n concuerror_lid:start(),\n Lid = concuerror_lid:new(Pid, noparent),\n Actions = [{'after', Lid}, {'block', Lid}],\n Ticket = concuerror_ticket:new(Error, Actions),\n concuerror_lid:stop(),\n ?assertEqual(Error, concuerror_ticket:get_error(Ticket)).\n\n-spec get_details_test() -> 'ok'.\n\nget_details_test() ->\n Error = concuerror_error:mock(),\n Pid = spawn(fun() -> ok end),\n concuerror_lid:start(),\n Lid = concuerror_lid:new(Pid, noparent),\n Actions = [{'after', Lid}, {'block', Lid}],\n Ticket = concuerror_ticket:new(Error, Actions),\n concuerror_lid:stop(),\n ?assertEqual(Actions, concuerror_ticket:get_details(Ticket)).\n" }, { "path": "src/.gitignore", "content": "concuerror_otp_version.hrl\n" }, { "path": "src/concuerror.app.src", "content": "{application, concuerror,\n [ {description,\n \"Concuerror: Stateless Model Checking tool for Erlang programs\"\n }\n , {vsn, \"git\"}\n , {applications, [kernel, stdlib]}\n , {maintainers,\n [ \"Stavros Aronis\"\n , \"Kostis Sagonas\"\n ]}\n , {licenses, [\"BSD-2-Clause\"]}\n , {links,\n [ {\"Github\", \"https://github.com/parapluu/Concuerror\"}\n , {\"Website\", \"http://parapluu.github.io/Concuerror\"}\n ]}\n ]}.\n" }, { "path": "src/concuerror.erl", "content": "%%% @doc\n%%% Concuerror's main module\n%%%\n%%% Contains the entry points for invoking Concuerror, either directly\n%%% from the command-line or from an Erlang program.\n%%%\n%%% For general documentation go to the Overview page.\n\n-module(concuerror).\n\n-export([main/1, run/1, version/0]).\n\n%% Internal export for documentation belonging in this module\n-export([analysis_result_documentation/0]).\n\n%% Internal functions for reloading\n-export([main_internal/1, run_internal/1]).\n\n%%------------------------------------------------------------------------------\n\n-export_type([analysis_result/0]).\n\n-type analysis_result() :: 'ok' | 'error' | 'fail'.\n%% @type analysis_result() = 'ok' | 'error' | 'fail'.\n%% Meaning of Concuerror's analysis results, as returned from {@link\n%% concuerror:run/1} (the corresponding exit status\n%% returned by {@link concuerror:main/1} is given in parenthesis):\n%%
\n%%
`ok' (exit status: 0)
\n%%
\n%% the analysis terminated and found no errors\n%%
\n%%
`error' (exit status: 1)
\n%%
\n%% the analysis terminated and found errors (see the\n%% {@link concuerror_options:output_option/0. `output'} option)\n%%
\n%%
`fail' (exit status: 2)
\n%%
\n%% the analysis failed and it might have found errors or not\n%%
\n%%
\n\n%%------------------------------------------------------------------------------\n\n-include(\"concuerror.hrl\").\n\n%%------------------------------------------------------------------------------\n\n%% @doc\n%% Command-line entry point.\n%%\n%% This function can be used to invoke Concuerror from the\n%% command-line.\n%%\n%% It accepts a list of strings as argument. This list is processed by\n%% {@link concuerror_options:parse_cl/1} and the result is passed to\n%% {@link concuerror:run/1}.\n%%\n%% When {@link concuerror:run/1} returns, the Erlang VM will\n%% terminate, with an exit value corresponding to the {@link\n%% analysis_result()}.\n\n-spec main([string()]) -> no_return().\n\nmain(Args) ->\n _ = application:load(concuerror),\n maybe_cover_compile(),\n ?MODULE:main_internal(Args).\n\n%% @private\n-spec main_internal([string()]) -> no_return().\n\nmain_internal(Args) ->\n AnalysisResult =\n case concuerror_options:parse_cl(Args) of\n {run, Options} -> run(Options);\n {return, Result} -> Result\n end,\n ExitStatus =\n case AnalysisResult of\n ok -> 0;\n error -> 1;\n fail -> 2\n end,\n maybe_cover_export(Args),\n erlang:halt(ExitStatus).\n\n%%------------------------------------------------------------------------------\n\n%% @doc\n%% Erlang entry point.\n%%\n%% This function can be used to invoke Concuerror from an Erlang\n%% program. This is the recommended way to invoke Concuerror when you\n%% use it as part of a test suite.\n%%\n%% This function accepts a `proplists' list as argument. The\n%% supported properties are specified at {@link concuerror_options}.\n%%\n%% The meaning of the return values is explained at {@link\n%% analysis_result()}.\n\n-spec run(concuerror_options:options()) -> analysis_result().\n\nrun(Options) ->\n _ = application:load(concuerror),\n maybe_cover_compile(),\n ?MODULE:run_internal(Options).\n\n%% @private\n-spec run_internal(concuerror_options:options()) -> analysis_result().\n\nrun_internal(Options) ->\n Status =\n case concuerror_options:finalize(Options) of\n {run, FinalOptions, LogMsgs} -> start(FinalOptions, LogMsgs);\n {return, ExitStatus} -> ExitStatus\n end,\n maybe_cover_export(Options),\n Status.\n\n%%-----------------------------------------------------------------------------\n\n%% @doc\n%% Returns a string representation of Concuerror's version.\n\n-spec version() -> string().\n\nversion() ->\n _ = application:load(concuerror),\n {ok, Vsn} = application:get_key(concuerror, vsn),\n io_lib:format(\"Concuerror ~s\", [Vsn]).\n\n%%------------------------------------------------------------------------------\n\n-type string_constant() :: [1..255, ...]. % Dialyzer underspecs is unhappy otw.\n\n%% @private\n-spec analysis_result_documentation() -> string_constant().\n\nanalysis_result_documentation() ->\n \"\"\n \"Exit status:~n\"\n \" 0 ('ok') : Analysis completed. No errors were found.~n\"\n \" 1 ('error') : Analysis completed. Errors were found.~n\"\n \" 2 ('fail') : Analysis failed to complete.~n\".\n\n%%------------------------------------------------------------------------------\n\nstart(Options, LogMsgs) ->\n error_logger:tty(false),\n Processes = ets:new(processes, [public]),\n Estimator = concuerror_estimator:start_link(Options),\n LoggerOptions = [{estimator, Estimator}, {processes, Processes}|Options],\n Logger = concuerror_logger:start(LoggerOptions),\n _ = [?log(Logger, Level, Format, Args) || {Level, Format, Args} <- LogMsgs],\n SchedulerOptions = [{logger, Logger}|LoggerOptions],\n {Pid, Ref} =\n spawn_monitor(concuerror_scheduler, run, [SchedulerOptions]),\n Reason = receive {'DOWN', Ref, process, Pid, R} -> R end,\n SchedulerStatus =\n case Reason =:= normal of\n true -> normal;\n false ->\n ?error(Logger, \"~s~n\", [explain(Reason)]),\n failed\n end,\n ?trace(Logger, \"Reached the end!~n\", []),\n ExitStatus = concuerror_logger:stop(Logger, SchedulerStatus),\n concuerror_estimator:stop(Estimator),\n ets:delete(Processes),\n ExitStatus.\n\n%%------------------------------------------------------------------------------\n\nmaybe_cover_compile() ->\n Cover = os:getenv(\"CONCUERROR_COVER\"),\n case get(concuerror_cover) =:= undefined andalso Cover =/= false of\n true ->\n put(concuerror_cover, Cover),\n case cover:is_compiled(?MODULE) of\n false ->\n {ok, Modules} = application:get_key(concuerror, modules),\n [_|_] = cover:compile_beam(Modules),\n ok;\n _ -> ok\n end;\n false -> ok\n end.\n\n%%------------------------------------------------------------------------------\n\nmaybe_cover_export(Args) ->\n Cover = erase(concuerror_cover),\n case Cover =/= undefined of\n true ->\n Hash = binary:decode_unsigned(erlang:md5(term_to_binary(Args))),\n Out = filename:join([Cover, io_lib:format(\"~.16b\", [Hash])]),\n cover:export(Out),\n ok;\n false -> ok\n end.\n\n%%------------------------------------------------------------------------------\n\nexplain(Reason) ->\n try\n {Module, Info} = Reason,\n Module:explain_error(Info)\n catch\n _:_ ->\n io_lib:format(\"~n Reason: ~p\", [Reason])\n end.\n" }, { "path": "src/concuerror.hrl", "content": "-include(\"concuerror_otp_version.hrl\").\n\n%%------------------------------------------------------------------------------\n-define(join(Strings, Sep), lists:join(Sep, Strings)).\n%%------------------------------------------------------------------------------\n-ifdef(SENSITIVE_DEBUG).\n-define(display(A), erlang:display({A, ?MODULE, ?LINE})).\n-else.\n-define(display(A, B),\n io:format(standard_error,\n \"# ~p ~p l~p: \"++A++\"~n\",\n [self(), ?MODULE, ?LINE|B])).\n-define(display(A), ?display(\"~w\",[A])).\n-endif.\n%%------------------------------------------------------------------------------\n-ifdef(DEBUG_FLAGS).\n-ifndef(DEBUG).\n-define(DEBUG, true).\n-endif.\n-endif.\n%%------------------------------------------------------------------------------\n-ifdef(DEBUG).\n-define(debug(A), ?display(A)).\n-define(debug(A, B), ?display(A, B)).\n-define(if_debug(A), A).\n-else.\n-define(debug(_A), ok).\n-define(debug(_A, _B), ok).\n-define(if_debug(_A), ok).\n-endif.\n%%------------------------------------------------------------------------------\n-ifdef(DEBUG_FLAGS).\n-define(debug_flag(A, B),\n case (?DEBUG_FLAGS band A) =/= 0 of\n true -> ?display(B);\n false -> ok\n end).\n-define(debug_flag(A, B, C),\n case (?DEBUG_FLAGS band A) =/= 0 of\n true ->?display(B, C);\n false -> ok\n end).\n-else.\n-define(debug_flag(_A, _B), ?debug(_B)).\n-define(debug_flag(_A, _B, _C), ?debug(_B, _C)).\n-endif.\n%%------------------------------------------------------------------------------\n-define(opt(A,O), proplists:get_value(A,O)).\n-define(opt(A,O,D), proplists:get_value(A,O,D)).\n%%------------------------------------------------------------------------------\n%% Logger levels\n%% See concuerror_options:verbosity/0 for meaning of each level\n-define(lquiet, 0).\n-define(lerror, 1).\n-define(lwarning, 2).\n-define(ltip, 3).\n-define(linfo, 4).\n-define(ltiming, 5).\n-define(ldebug, 6).\n-define(ltrace, 7).\n-define(MAX_LOG_LEVEL, ?ltrace).\n%%------------------------------------------------------------------------------\n-define(nonunique, none).\n\n-define(log(Logger, Level, Tag, Format, Data),\n concuerror_logger:log(Logger, Level, Tag, Format, Data)).\n\n-define(log(Logger, Level, Format, Data),\n ?log(Logger, Level, ?nonunique, Format, Data)).\n\n-define(error(Logger, Format, Data),\n ?log(Logger, ?lerror, Format, Data)).\n\n-ifdef(DEV).\n-define(dev_log(Logger, Level, Format, Data),\n ?log(Logger, Level, \"(~-25w@~4w) \" ++ Format, [?MODULE, ?LINE| Data])).\n-define(debug(Logger, Format, Data), ?dev_log(Logger, ?ldebug, Format, Data)).\n-define(trace(Logger, Format, Data), ?dev_log(Logger, ?ltrace, Format, Data)).\n-define(has_dev, true).\n-else.\n-define(debug(Logger, Format, Data),ok).\n-define(trace(Logger, Format, Data),ok).\n-define(has_dev, false).\n-endif.\n\n-define(unique(Logger, Level, Param, Format, Data),\n ?log(Logger, Level, {?MODULE, ?LINE, Param}, Format, Data)).\n\n-define(unique(Logger, Level, Format, Data),\n ?unique(Logger, Level, none, Format, Data)).\n\n-define(time(Logger, Tag),\n concuerror_logger:time(Logger, Tag)).\n\n-define(\n autoload_and_log(Module, Logger),\n case concuerror_loader:load(Module) of\n already_done -> ok;\n {ok, Warn} ->\n ?log(Logger, ?linfo,\n \"Automatically instrumented module ~p~n\", [Module]),\n _ = [?log(Logger, ?lwarning, W, []) || W <- Warn],\n ok;\n fail ->\n ?log(Logger, ?lwarning,\n \"Could not load module '~p'. Check '-h input'.~n\", [Module]),\n ok\n end).\n\n-define(pretty_s(I,E), concuerror_io_lib:pretty_s({I,E#event{location = []}},5)).\n-define(pretty_s(E), ?pretty_s(0,E)).\n%%------------------------------------------------------------------------------\n-define(crash(Reason), exit({?MODULE, Reason})).\n-define(can_fix_msg,\n \" If you really need this functionality, contact the developers.\").\n-define(notify_us_msg,\n \" Please notify the developers, as this is a bug of Concuerror.\").\n%%------------------------------------------------------------------------------\n-type processes() :: ets:tid().\n-define(process_name_none, 0).\n%%------------------------------------------------------------------------------\n-type label() :: reference().\n\n-type mfargs() :: {atom(), atom(), [term()]}.\n\n-type location() :: 'exit' | [non_neg_integer() | {file, string()}].\n\n-type index() :: non_neg_integer().\n\n-record(builtin_event, {\n actor = self() :: pid(),\n extra :: term(),\n exiting = false :: boolean(),\n mfargs :: mfargs(),\n result :: term(),\n status = ok :: 'ok' | {'crashed', term()} | 'unknown',\n trapping = false :: boolean()\n }).\n\n-type builtin_event() :: #builtin_event{}.\n\n-type message_id() :: {pid(), pos_integer()} | 'hidden'.\n\n-record(message, {\n data :: term(),\n id :: message_id()\n }).\n\n-type message() :: #message{}.\n\n-type receive_pattern_fun() :: fun((term()) -> boolean()).\n-type receive_info() ::\n 'undefined' |\n 'not_received' |\n {pos_integer() | 'system', receive_pattern_fun()}.\n\n-record(message_event, {\n cause_label :: label(),\n instant = true :: boolean(),\n killing = false :: boolean(),\n message :: message(),\n receive_info :: receive_info(),\n recipient :: pid(),\n sender = self() :: pid(),\n trapping = false :: boolean(),\n type = message :: 'message' | 'exit_signal'\n }).\n\n-type message_event() :: #message_event{}.\n\n-record(receive_event, {\n %% clause_location :: location(),\n message :: message() | 'after',\n receive_info :: receive_info(),\n recipient = self() :: pid(),\n timeout = infinity :: timeout(),\n trapping = false :: boolean()\n }).\n\n-type receive_event() :: #receive_event{}.\n\n-record(exit_event, {\n actor = self() :: pid() | reference(),\n last_status = running :: running | waiting,\n exit_by_signal = false :: boolean(),\n links = [] :: [pid()],\n monitors = [] :: [{reference(), pid()}],\n name = ?process_name_none :: ?process_name_none | atom(),\n reason = normal :: term(),\n stacktrace = [] :: [term()],\n trapping = false :: boolean()\n }).\n\n-type exit_event() :: #exit_event{}.\n\n-type event_info() ::\n builtin_event() |\n exit_event() |\n message_event() |\n receive_event().\n\n-type channel() :: {pid(), pid()}.\n-type actor() :: pid() | channel().\n\n-define(is_channel(A), is_tuple(A)).\n\n-record(event, {\n actor :: 'undefined' | actor(),\n event_info :: 'undefined' | event_info(),\n label :: 'undefined' | label(),\n location = [] :: location(),\n special = [] :: [term()] %% XXX: Specify\n }).\n\n-type event() :: #event{}.\n" }, { "path": "src/concuerror_callback.erl", "content": "%%% @private\n%%% @doc\n%%% This module contains code for:\n%%% - managing and interfacing with processes under Concuerror\n%%% - simulating built-in operations in instrumented processes\n-module(concuerror_callback).\n\n%% Interface to concuerror_inspect:\n-export([instrumented/4]).\n\n%% Interface to scheduler:\n-export([spawn_first_process/1, start_first_process/3,\n deliver_message/3, wait_actor_reply/2, collect_deadlock_info/1,\n enabled/1, reset_processes/1, cleanup_processes/1]).\n\n%% Interface to logger:\n-export([setup_logger/1]).\n\n%% Interface for resetting:\n-export([process_top_loop/1]).\n\n%% Interface to instrumenters:\n-export([is_unsafe/1]).\n\n-export([wrapper/4]).\n\n-export([explain_error/1]).\n\n%%------------------------------------------------------------------------------\n\n%% DEBUGGING SETTINGS\n\n-define(flag(A), (1 bsl A)).\n\n-define(builtin, ?flag(1)).\n-define(non_builtin, ?flag(2)).\n-define(receive_, ?flag(3)).\n-define(receive_messages, ?flag(4)).\n-define(args, ?flag(6)).\n-define(result, ?flag(7)).\n-define(spawn, ?flag(8)).\n-define(short_builtin, ?flag(9)).\n-define(loop, ?flag(10)).\n-define(send, ?flag(11)).\n-define(exit, ?flag(12)).\n-define(trap, ?flag(13)).\n-define(undefined, ?flag(14)).\n-define(heir, ?flag(15)).\n-define(notify, ?flag(16)).\n\n-define(ACTIVE_FLAGS,\n [ ?undefined\n , ?short_builtin\n , ?loop\n , ?notify\n , ?non_builtin\n ]).\n\n%%-define(DEBUG, true).\n%%-define(DEBUG_FLAGS, lists:foldl(fun erlang:'bor'/2, 0, ?ACTIVE_FLAGS)).\n\n-define(badarg_if_not(A), case A of true -> ok; false -> error(badarg) end).\n%%------------------------------------------------------------------------------\n\n-include(\"concuerror.hrl\").\n\n-define(crash_instr(Reason), exit(self(), {?MODULE, Reason})).\n\n%%------------------------------------------------------------------------------\n\n%% In order to be able to keep TIDs constant and reset the system\n%% properly, Concuerror covertly hands all ETS tables to its scheduler\n%% and maintains extra info to determine operation access-rights.\n\n-type ets_tables() :: ets:tid().\n\n-define(ets_name_none, 0).\n\n-define(ets_table_entry(Tid, Name, Owner, Protection, Heir, System),\n {Tid, Name, Owner, Protection, Heir, System, true}).\n-define(ets_table_entry_system(Tid, Name, Protection, Owner),\n ?ets_table_entry(Tid, Name, Owner, Protection, {heir, none}, true)).\n\n-define(ets_tid, 1).\n-define(ets_name, 2).\n-define(ets_owner, 3).\n-define(ets_protection, 4).\n-define(ets_heir, 5).\n-define(ets_system, 6).\n-define(ets_alive, 7).\n\n-define(ets_match_owner_to_heir_info(Owner),\n {'$2', '$3', Owner, '_', '$1', '_', true}).\n-define(ets_match_tid_to_permission_info(Tid),\n {Tid, '$3', '$1', '$2', '_', '$4', true}).\n-define(ets_match_name_to_tid(Name),\n {'$1', Name, '_', '_', '_', '_', true}).\n-define(ets_pattern_mine(),\n {'_', '_', self(), '_', '_', '_', '_'}).\n\n-define(persistent_term, persistent_term_bypass).\n\n%%------------------------------------------------------------------------------\n\n-type links() :: ets:tid().\n\n-define(links(Pid1, Pid2), [{Pid1, Pid2, active}, {Pid2, Pid1, active}]).\n\n%%------------------------------------------------------------------------------\n\n-type monitors() :: ets:tid().\n\n-define(monitor(Ref, Target, As, Status), {Target, {Ref, self(), As}, Status}).\n-define(monitor_match_to_target_source_as(Ref),\n {'$1', {Ref, self(), '$2'}, '$3'}).\n-define(monitor_status, 3).\n\n%%------------------------------------------------------------------------------\n\n-define(new_process(Pid, Symbolic),\n { Pid\n , exited\n , ?process_name_none\n , ?process_name_none\n , undefined\n , Symbolic\n , 0\n , regular\n }).\n-define(new_system_process(Pid, Name, Type),\n { Pid\n , running\n , Name\n , Name\n , undefined\n , \"P.\" ++ atom_to_list(Name)\n , 0\n , Type\n }).\n\n-define(process_status, 2).\n-define(process_name, 3).\n-define(process_last_name, 4).\n-define(process_leader, 5).\n-define(process_symbolic, 6).\n-define(process_children, 7).\n-define(process_kind, 8).\n\n-define(process_pat_pid(Pid),\n {Pid, _, _, _, _, _, _, _}).\n-define(process_pat_pid_name(Pid, Name),\n {Pid, _, Name, _, _, _, _, _}).\n-define(process_pat_pid_status(Pid, Status),\n {Pid, Status, _, _, _, _, _, _}).\n-define(process_pat_pid_kind(Pid, Kind),\n {Pid, _, _, _, _, _, _, Kind}).\n\n-define(process_match_name_to_pid(Name),\n {'$1', '_', Name, '_', '_', '_', '_', '_'}).\n-define(process_match_symbol_to_pid(Symbol),\n {'$1', '_', '_', '_', '_', Symbol, '_', '_'}).\n\n-define(process_match_active(),\n { {'$1', '$2', '_', '_', '_', '_', '_', '_'}\n , [ {'=/=', '$2', exited}\n , {'=/=', '$2', exiting}\n ]\n , ['$1']\n }).\n\n%%------------------------------------------------------------------------------\n\n-type timers() :: ets:tid().\n\n%%------------------------------------------------------------------------------\n\n-type ref_queue() :: queue:queue(reference()).\n-type message_queue() :: queue:queue(#message{}).\n\n-type ref_queue_2() :: {ref_queue(), ref_queue()}.\n\n-type status() :: 'running' | 'waiting' | 'exiting' | 'exited'.\n\n-define(notify_none, 1).\n\n-record(process_flags, {\n trap_exit = false :: boolean(),\n priority = normal :: 'low' | 'normal' | 'high' | 'max'\n }).\n\n-record(concuerror_info, {\n after_timeout :: 'infinite' | integer(),\n delayed_notification = none :: 'none' | {'true', term()},\n demonitors = [] :: [reference()],\n ets_tables :: ets_tables(),\n exit_by_signal = false :: boolean(),\n exit_reason = normal :: term(),\n extra :: term(),\n flags = #process_flags{} :: #process_flags{},\n initial_call :: 'undefined' | mfa(),\n instant_delivery :: boolean(),\n is_timer = false :: 'false' | reference(),\n links :: links(),\n logger :: concuerror_logger:logger(),\n message_counter = 1 :: pos_integer(),\n message_queue = queue:new() :: message_queue(),\n monitors :: monitors(),\n event = none :: 'none' | event(),\n notify_when_ready :: {pid(), boolean()},\n processes :: processes(),\n receive_counter = 1 :: pos_integer(),\n ref_queue = new_ref_queue() :: ref_queue_2(),\n scheduler :: concuerror_scheduler:scheduler(),\n status = 'running' :: status(),\n system_ets_entries :: ets:tid(),\n timeout :: timeout(),\n timers :: timers()\n }).\n\n-type concuerror_info() :: #concuerror_info{}.\n\n%%------------------------------------------------------------------------------\n\n-spec spawn_first_process(concuerror_options:options()) -> pid().\n\nspawn_first_process(Options) ->\n Logger = ?opt(logger, Options),\n Info =\n #concuerror_info{\n after_timeout = ?opt(after_timeout, Options),\n ets_tables = ets:new(ets_tables, [public]),\n instant_delivery = ?opt(instant_delivery, Options),\n links = ets:new(links, [bag, public]),\n logger = Logger,\n monitors = ets:new(monitors, [bag, public]),\n notify_when_ready = {self(), true},\n processes = Processes = ?opt(processes, Options),\n scheduler = self(),\n system_ets_entries = ets:new(system_ets_entries, [bag, public]),\n timeout = ?opt(timeout, Options),\n timers = ets:new(timers, [public])\n },\n ?persistent_term = ets:new(?persistent_term, [named_table, public]),\n system_processes_wrappers(Info),\n system_ets_entries(Info),\n ?autoload_and_log(error_handler, Logger),\n P = new_process(Info),\n true = ets:insert(Processes, ?new_process(P, \"P\")),\n {DefLeader, _} = run_built_in(erlang, whereis, 1, [user], Info),\n true = ets:update_element(Processes, P, {?process_leader, DefLeader}),\n P.\n\n-spec start_first_process(pid(), {atom(), atom(), [term()]}, timeout()) -> ok.\n\nstart_first_process(Pid, {Module, Name, Args}, Timeout) ->\n request_system_reset(Pid),\n Pid ! {start, Module, Name, Args},\n ok = wait_process(Pid, Timeout),\n ok.\n\n-spec setup_logger(processes()) -> ok.\n\nsetup_logger(Processes) ->\n concuerror_inspect:start_inspection({logger, Processes}).\n\n%%------------------------------------------------------------------------------\n\n-type instrumented_return() :: 'doit' |\n {'didit', term()} |\n {'error', term()} |\n {'skip_timeout', 'false' | {'true', term()}}.\n\n-spec instrumented(Tag :: concuerror_inspect:instrumented_tag(),\n Args :: [term()],\n Location :: term(),\n Info :: concuerror_info()) ->\n {instrumented_return(), concuerror_info()}.\n\ninstrumented(call, [Module, Name, Args], Location, Info) ->\n Arity = length(Args),\n instrumented_call(Module, Name, Arity, Args, Location, Info);\ninstrumented(apply, [Fun, Args], Location, Info) ->\n case is_function(Fun) of\n true ->\n Module = get_fun_info(Fun, module),\n Name = get_fun_info(Fun, name),\n Arity = get_fun_info(Fun, arity),\n case length(Args) =:= Arity of\n true -> instrumented_call(Module, Name, Arity, Args, Location, Info);\n false -> {doit, Info}\n end;\n false ->\n {doit, Info}\n end;\ninstrumented('receive', [PatternFun, RealTimeout], Location, Info) ->\n case Info of\n #concuerror_info{after_timeout = AfterTimeout} ->\n Timeout =\n case RealTimeout =:= infinity orelse RealTimeout >= AfterTimeout of\n false -> RealTimeout;\n true -> infinity\n end,\n handle_receive(PatternFun, Timeout, Location, Info);\n _Logger ->\n {doit, Info}\n end.\n\ninstrumented_call(Module, Name, Arity, Args, _Location,\n {logger, Processes} = Info) ->\n case {Module, Name, Arity} of\n {erlang, pid_to_list, 1} ->\n [Term] = Args,\n try\n Symbol = ets:lookup_element(Processes, Term, ?process_symbolic),\n PName = ets:lookup_element(Processes, Term, ?process_last_name),\n Pretty =\n case PName =:= ?process_name_none of\n true -> \"<\" ++ Symbol ++ \">\";\n false ->\n lists:flatten(io_lib:format(\"<~s/~s>\", [Symbol, PName]))\n end,\n {{didit, Pretty}, Info}\n catch\n _:_ -> {doit, Info}\n end;\n {erlang, fun_to_list, 1} ->\n %% Slightly prettier printer than the default...\n [Fun] = Args,\n [M, F, A] =\n [I ||\n {_, I} <-\n [erlang:fun_info(Fun, T) || T <- [module, name, arity]]],\n String = lists:flatten(io_lib:format(\"#Fun<~p.~p.~p>\", [M, F, A])),\n {{didit, String}, Info};\n _ ->\n {doit, Info}\n end;\ninstrumented_call(erlang, apply, 3, [Module, Name, Args], Location, Info) ->\n instrumented_call(Module, Name, length(Args), Args, Location, Info);\ninstrumented_call(Module, Name, Arity, Args, Location, Info)\n when is_atom(Module) ->\n case\n erlang:is_builtin(Module, Name, Arity) andalso\n is_unsafe({Module, Name, Arity})\n of\n true ->\n built_in(Module, Name, Arity, Args, Location, Info);\n false ->\n #concuerror_info{logger = Logger} = Info,\n ?debug_flag(?non_builtin, {Module, Name, Arity, Location}),\n ?autoload_and_log(Module, Logger),\n {doit, Info}\n end;\ninstrumented_call({Module, _} = Tuple, Name, Arity, Args, Location, Info) ->\n instrumented_call(Module, Name, Arity + 1, Args ++ Tuple, Location, Info);\ninstrumented_call(_, _, _, _, _, Info) ->\n {doit, Info}.\n\nget_fun_info(Fun, Tag) ->\n {Tag, Info} = erlang:fun_info(Fun, Tag),\n Info.\n\n%%------------------------------------------------------------------------------\n\nbuilt_in(erlang, Display, 1, [Term], _Location, Info)\n when Display =:= display; Display =:= display_string ->\n ?debug_flag(?builtin, {'built-in', erlang, Display, 1, [Term], _Location}),\n Chars =\n case Display of\n display -> io_lib:format(\"~w~n\", [Term]);\n display_string ->\n _ = erlang:list_to_atom(Term), % Will throw badarg if not string.\n Term\n end,\n concuerror_logger:print(Info#concuerror_info.logger, standard_io, Chars),\n {{didit, true}, Info};\n%% Inner process dictionary has been restored here. No need to report such ops.\n%% Also can't fail, as only true builtins reach this code.\nbuilt_in(erlang, Name, _Arity, Args, _Location, Info)\n when Name =:= get; Name =:= get_keys; Name =:= put; Name =:= erase ->\n {{didit, erlang:apply(erlang, Name, Args)}, Info};\nbuilt_in(erlang, hibernate, 3, Args, _Location, Info) ->\n [Module, Name, HibArgs] = Args,\n self() ! {start, Module, Name, HibArgs},\n erlang:hibernate(?MODULE, process_top_loop, [Info]);\nbuilt_in(erlang, get_stacktrace, 0, [], _Location, Info) ->\n Stacktrace = clean_stacktrace(erlang_get_stacktrace()),\n {{didit, Stacktrace}, Info};\n%% Instrumented processes may just call pid_to_list (we instrument this builtin\n%% for the logger)\nbuilt_in(erlang, pid_to_list, _Arity, _Args, _Location, Info) ->\n {doit, Info};\nbuilt_in(erlang, system_info, 1, [A], _Location, Info)\n when A =:= os_type;\n A =:= schedulers;\n A =:= logical_processors_available;\n A =:= otp_release\n ->\n {doit, Info};\n%% XXX: Check if its redundant (e.g. link to already linked)\nbuilt_in(Module, Name, Arity, Args, Location, InfoIn) ->\n Info = process_loop(InfoIn),\n ?debug_flag(?short_builtin, {'built-in', Module, Name, Arity, Location}),\n #concuerror_info{flags = #process_flags{trap_exit = Trapping}} = LocatedInfo =\n add_location_info(Location, Info#concuerror_info{extra = undefined}),\n try\n {Value, UpdatedInfo} = run_built_in(Module, Name, Arity, Args, LocatedInfo),\n #concuerror_info{extra = Extra, event = MaybeMessageEvent} = UpdatedInfo,\n Event = maybe_deliver_message(MaybeMessageEvent, UpdatedInfo),\n ?debug_flag(?builtin, {'built-in', Module, Name, Arity, Value, Location}),\n ?debug_flag(?args, {args, Args}),\n ?debug_flag(?result, {args, Value}),\n EventInfo =\n #builtin_event{\n exiting = Location =:= exit,\n extra = Extra,\n mfargs = {Module, Name, Args},\n result = Value,\n trapping = Trapping\n },\n Notification = Event#event{event_info = EventInfo},\n NewInfo = notify(Notification, UpdatedInfo),\n {{didit, Value}, NewInfo}\n catch\n throw:Reason ->\n #concuerror_info{scheduler = Scheduler} = Info,\n ?debug_flag(?loop, crashing),\n exit(Scheduler, {Reason, Module, Name, Arity, Args, Location}),\n receive after infinity -> ok end;\n error:Reason ->\n #concuerror_info{event = FEvent} = LocatedInfo,\n FEventInfo =\n #builtin_event{\n mfargs = {Module, Name, Args},\n status = {crashed, Reason},\n trapping = Trapping\n },\n FNotification = FEvent#event{event_info = FEventInfo},\n FinalInfo = notify(FNotification, LocatedInfo),\n {{error, Reason}, FinalInfo}\n end.\n\nrun_built_in(erlang, demonitor, 1, [Ref], Info) ->\n run_built_in(erlang, demonitor, 2, [Ref, []], Info);\nrun_built_in(erlang, demonitor, 2, [Ref, Options], Info) ->\n ?badarg_if_not(is_reference(Ref)),\n SaneOptions =\n try\n [] =:= [O || O <- Options, O =/= flush, O =/= info]\n catch\n _:_ -> false\n end,\n ?badarg_if_not(SaneOptions),\n HasFlush = lists:member(flush, Options),\n HasInfo = lists:member(info, Options),\n #concuerror_info{\n demonitors = Demonitors,\n event = Event,\n monitors = Monitors\n } = Info,\n case ets:match(Monitors, ?monitor_match_to_target_source_as(Ref)) of\n [] ->\n %% Invalid, expired or foreign monitor\n {not HasInfo, Info};\n [[Target, As, Status]] ->\n PatternFun =\n fun(M) ->\n case M of\n {'DOWN', Ref, process, _, _} -> true;\n _ -> false\n end\n end,\n {Flushed, NewInfo} =\n case HasFlush of\n true ->\n {Match, FlushInfo} =\n has_matching_or_after(PatternFun, infinity, Info),\n {Match =/= false, FlushInfo};\n false ->\n {false, Info}\n end,\n Demonitored =\n case Status of\n active ->\n Active = ?monitor(Ref, Target, As, active),\n Inactive = ?monitor(Ref, Target, As, inactive),\n true = ets:delete_object(Monitors, Active),\n true = ets:insert(Monitors, Inactive),\n true;\n inactive ->\n false\n end,\n {Cnt, ReceiveInfo} = get_receive_cnt(NewInfo),\n NewEvent = Event#event{special = [{demonitor, {Ref, {Cnt, PatternFun}}}]},\n FinalInfo =\n ReceiveInfo#concuerror_info{\n demonitors = [Ref|Demonitors],\n event = NewEvent\n },\n case {HasInfo, HasFlush} of\n {false, _} -> {true, FinalInfo};\n {true, false} -> {Demonitored, FinalInfo};\n {true, true} -> {Flushed, FinalInfo}\n end\n end;\nrun_built_in(erlang, exit, 2, [Pid, Reason], Info) ->\n #concuerror_info{\n event = #event{event_info = EventInfo} = Event,\n flags = #process_flags{trap_exit = Trapping}\n } = Info,\n ?badarg_if_not(is_pid(Pid)),\n case EventInfo of\n %% Replaying...\n #builtin_event{result = OldResult} ->\n {_, MsgInfo} = get_message_cnt(Info),\n {OldResult, MsgInfo};\n %% New event...\n undefined ->\n Content =\n case Event#event.location =/= exit andalso Reason =:= kill of\n true -> kill;\n false ->\n case Pid =/= self() orelse Reason =/= normal orelse Trapping of\n true -> ok;\n false ->\n Message = msg(exit_normal_self_abnormal),\n Logger = Info#concuerror_info.logger,\n ?unique(Logger, ?lwarning, Message, [Pid])\n end,\n make_exit_signal(Reason)\n end,\n MsgInfo = make_message(Info, exit_signal, Content, Pid),\n {true, MsgInfo}\n end;\n\nrun_built_in(erlang, group_leader, 0, [], Info) ->\n Leader = get_leader(Info, self()),\n {Leader, Info};\n\nrun_built_in(M, group_leader, 2, [GroupLeader, Pid],\n #concuerror_info{processes = Processes} = Info)\n when M =:= erlang; M =:= erts_internal ->\n try\n {true, Info} =\n run_built_in(erlang, is_process_alive, 1, [Pid], Info),\n {true, Info} =\n run_built_in(erlang, is_process_alive, 1, [GroupLeader], Info),\n ok\n catch\n _:_ -> error(badarg)\n end,\n true = ets:update_element(Processes, Pid, {?process_leader, GroupLeader}),\n {true, Info};\n\nrun_built_in(erlang, halt, _, _, Info) ->\n #concuerror_info{\n event = Event,\n logger = Logger\n } = Info,\n Message = msg(limited_halt),\n Logger = Info#concuerror_info.logger,\n ?unique(Logger, ?lwarning, Message, []),\n NewEvent = Event#event{special = [halt]},\n {no_return, Info#concuerror_info{event = NewEvent}};\n\nrun_built_in(erlang, is_process_alive, 1, [Pid], Info) ->\n ?badarg_if_not(is_pid(Pid)),\n #concuerror_info{processes = Processes} = Info,\n Return =\n case ets:lookup(Processes, Pid) of\n [] -> ?crash_instr({checking_system_process, Pid});\n [?process_pat_pid_status(Pid, Status)] -> is_active(Status)\n end,\n {Return, Info};\n\nrun_built_in(erlang, link, 1, [Pid], Info) ->\n #concuerror_info{\n flags = #process_flags{trap_exit = TrapExit},\n links = Links,\n event = #event{event_info = EventInfo}\n } = Info,\n case run_built_in(erlang, is_process_alive, 1, [Pid], Info) of\n {true, Info} ->\n Self = self(),\n true = ets:insert(Links, ?links(Self, Pid)),\n {true, Info};\n {false, _} ->\n case TrapExit of\n false -> error(noproc);\n true ->\n NewInfo =\n case EventInfo of\n %% Replaying...\n #builtin_event{} ->\n {_, MsgInfo} = get_message_cnt(Info),\n MsgInfo;\n %% New event...\n undefined ->\n Signal = make_exit_signal(Pid, noproc),\n make_message(Info, message, Signal, self())\n end,\n {true, NewInfo}\n end\n end;\n\nrun_built_in(erlang, make_ref, 0, [], Info) ->\n #concuerror_info{event = #event{event_info = EventInfo}} = Info,\n {Ref, NewInfo} = get_ref(Info),\n case EventInfo of\n %% Replaying...\n #builtin_event{result = Ref} -> ok;\n %% New event...\n undefined -> ok\n end,\n {Ref, NewInfo};\nrun_built_in(erlang, monitor, 2, [Type, InTarget], Info) ->\n #concuerror_info{\n monitors = Monitors,\n event = #event{event_info = EventInfo}\n } = Info,\n ?badarg_if_not(Type =:= process),\n {Target, As} =\n case InTarget of\n P when is_pid(P) -> {InTarget, InTarget};\n A when is_atom(A) -> {InTarget, {InTarget, node()}};\n {Name, Node} = Local when is_atom(Name), Node =:= node() ->\n {Name, Local};\n {Name, Node} when is_atom(Name) -> ?crash_instr({not_local_node, Node});\n _ -> error(badarg)\n end,\n {Ref, NewInfo} = get_ref(Info),\n case EventInfo of\n %% Replaying...\n #builtin_event{result = Ref} -> ok;\n %% New event...\n undefined -> ok\n end,\n {IsActive, Pid} =\n case is_pid(Target) of\n true ->\n {IA, _} = run_built_in(erlang, is_process_alive, 1, [Target], Info),\n {IA, Target};\n false ->\n {P1, _} = run_built_in(erlang, whereis, 1, [Target], Info),\n case P1 =:= undefined of\n true -> {false, foo};\n false ->\n {IA, _} = run_built_in(erlang, is_process_alive, 1, [P1], Info),\n {IA, P1}\n end\n end,\n case IsActive of\n true -> true = ets:insert(Monitors, ?monitor(Ref, Pid, As, active));\n false -> ok\n end,\n FinalInfo =\n case IsActive of\n true -> NewInfo;\n false ->\n case EventInfo of\n %% Replaying...\n #builtin_event{} ->\n {_, MsgInfo} = get_message_cnt(NewInfo),\n MsgInfo;\n %% New event...\n undefined ->\n Data = {'DOWN', Ref, process, As, noproc},\n make_message(NewInfo, message, Data, self())\n end\n end,\n {Ref, FinalInfo};\nrun_built_in(erlang, process_info, 2, [Pid, Items], Info) when is_list(Items) ->\n {Alive, _} = run_built_in(erlang, is_process_alive, 1, [Pid], Info),\n case Alive of\n false -> {undefined, Info};\n true ->\n ItemFun =\n fun (Item) ->\n ?badarg_if_not(is_atom(Item)),\n {ItemRes, _} =\n run_built_in(erlang, process_info, 2, [Pid, Item], Info),\n case (Item =:= registered_name) andalso (ItemRes =:= []) of\n true -> {registered_name, []};\n false -> ItemRes\n end\n end,\n {lists:map(ItemFun, Items), Info}\n end;\nrun_built_in(erlang, process_info, 2, [Pid, Item], Info) when is_atom(Item) ->\n {Alive, _} = run_built_in(erlang, is_process_alive, 1, [Pid], Info),\n case Alive of\n false -> {undefined, Info};\n true ->\n {TheirInfo, TheirDict} =\n case Pid =:= self() of\n true -> {Info, get()};\n false -> get_their_info(Pid)\n end,\n Res =\n case Item of\n current_function ->\n case Pid =:= self() of\n true ->\n {_, Stacktrace} = erlang:process_info(Pid, current_stacktrace),\n case clean_stacktrace(Stacktrace) of\n %% Reachable by\n %% basic_tests/process_info/test_current_function_top\n [] -> TheirInfo#concuerror_info.initial_call;\n [{M, F, A, _}|_] -> {M, F, A}\n end;\n false ->\n #concuerror_info{logger = Logger} = TheirInfo,\n Msg =\n \"Concuerror does not properly support\"\n \" erlang:process_info(Other, current_function),\"\n \" returning the initial call instead.~n\",\n ?unique(Logger, ?lwarning, Msg, []),\n TheirInfo#concuerror_info.initial_call\n end;\n current_stacktrace ->\n case Pid =:= self() of\n true ->\n {_, Stacktrace} = erlang:process_info(Pid, current_stacktrace),\n clean_stacktrace(Stacktrace);\n false ->\n #concuerror_info{logger = Logger} = TheirInfo,\n Msg =\n \"Concuerror does not properly support\"\n \" erlang:process_info(Other, current_stacktrace),\"\n \" returning an empty list instead.~n\",\n ?unique(Logger, ?lwarning, Msg, []),\n []\n end;\n dictionary ->\n TheirDict;\n group_leader ->\n get_leader(Info, Pid);\n initial_call ->\n TheirInfo#concuerror_info.initial_call;\n links ->\n #concuerror_info{links = Links} = TheirInfo,\n try ets:lookup_element(Links, Pid, 2)\n catch error:badarg -> []\n end;\n messages ->\n #concuerror_info{logger = Logger} = TheirInfo,\n Msg =\n \"Concuerror does not properly support\"\n \" erlang:process_info(_, messages),\"\n \" returning an empty list instead.~n\",\n ?unique(Logger, ?lwarning, Msg, []),\n [];\n message_queue_len ->\n #concuerror_info{message_queue = Queue} = TheirInfo,\n queue:len(Queue);\n registered_name ->\n #concuerror_info{processes = Processes} = TheirInfo,\n [?process_pat_pid_name(Pid, Name)] = ets:lookup(Processes, Pid),\n case Name =:= ?process_name_none of\n true -> [];\n false -> Name\n end;\n status ->\n #concuerror_info{logger = Logger} = TheirInfo,\n Msg =\n \"Concuerror does not properly support erlang:process_info(_,\"\n \" status), returning always 'running' instead.~n\",\n ?unique(Logger, ?lwarning, Msg, []),\n running;\n trap_exit ->\n TheirInfo#concuerror_info.flags#process_flags.trap_exit;\n ReturnsANumber when\n ReturnsANumber =:= heap_size;\n ReturnsANumber =:= reductions;\n ReturnsANumber =:= stack_size;\n false ->\n #concuerror_info{logger = Logger} = TheirInfo,\n Msg =\n \"Concuerror does not properly support erlang:process_info(_,\"\n \" ~w), returning 42 instead.~n\",\n ?unique(Logger, ?lwarning, ReturnsANumber, Msg, [ReturnsANumber]),\n 42;\n _ ->\n throw({unsupported_process_info, Item})\n end,\n TagRes =\n case Item =:= registered_name andalso Res =:= [] of\n true -> Res;\n false -> {Item, Res}\n end,\n {TagRes, Info}\n end;\nrun_built_in(erlang, register, 2, [Name, Pid], Info) ->\n #concuerror_info{\n logger = Logger,\n processes = Processes\n } = Info,\n case Name of\n eunit_server ->\n ?unique(Logger, ?lwarning, msg(register_eunit_server), []);\n _ -> ok\n end,\n try\n true = is_atom(Name),\n {true, Info} = run_built_in(erlang, is_process_alive, 1, [Pid], Info),\n [] = ets:match(Processes, ?process_match_name_to_pid(Name)),\n ?process_name_none = ets:lookup_element(Processes, Pid, ?process_name),\n false = undefined =:= Name,\n true = ets:update_element(Processes, Pid, [{?process_name, Name},\n {?process_last_name, Name}]),\n {true, Info}\n catch\n _:_ -> error(badarg)\n end;\n\nrun_built_in(erlang, ReadorCancelTimer, 1, [Ref], Info)\n when\n ReadorCancelTimer =:= read_timer;\n ReadorCancelTimer =:= cancel_timer\n ->\n ?badarg_if_not(is_reference(Ref)),\n #concuerror_info{timers = Timers} = Info,\n case ets:lookup(Timers, Ref) of\n [] -> {false, Info};\n [{Ref, Pid, _Dest}] ->\n case ReadorCancelTimer of\n read_timer -> ok;\n cancel_timer ->\n ?debug_flag(?loop, sending_kill_to_cancel),\n ets:delete(Timers, Ref),\n Pid ! {exit_signal, #message{data = kill, id = hidden}, self()},\n {false, true} = receive_message_ack(),\n ok\n end,\n {1, Info}\n end;\n\nrun_built_in(erlang, SendAfter, 3, [0, Dest, Msg], Info)\n when\n SendAfter =:= send_after;\n SendAfter =:= start_timer ->\n #concuerror_info{\n event = #event{event_info = EventInfo}} = Info,\n {Ref, NewInfo} = get_ref(Info),\n case EventInfo of\n %% Replaying...\n #builtin_event{result = Ref} -> ok;\n %% New event...\n undefined -> ok\n end,\n ActualMessage = format_timer_message(SendAfter, Msg, Ref),\n {_, FinalInfo} =\n run_built_in(erlang, send, 2, [Dest, ActualMessage], NewInfo),\n {Ref, FinalInfo};\n\nrun_built_in(erlang, SendAfter, 3, [Timeout, Dest, Msg], Info)\n when\n SendAfter =:= send_after;\n SendAfter =:= start_timer ->\n ?badarg_if_not(\n (is_pid(Dest) orelse is_atom(Dest)) andalso\n is_integer(Timeout) andalso\n Timeout >= 0),\n #concuerror_info{\n event = Event, processes = Processes, timeout = Wait, timers = Timers\n } = Info,\n #event{event_info = EventInfo} = Event,\n {Ref, NewInfo} = get_ref(Info),\n {Pid, FinalInfo} =\n case EventInfo of\n %% Replaying...\n #builtin_event{result = Ref, extra = OldPid} ->\n {OldPid, NewInfo#concuerror_info{extra = OldPid}};\n %% New event...\n undefined ->\n Symbol = \"Timer \" ++ erlang:ref_to_list(Ref),\n P =\n case\n ets:match(Processes, ?process_match_symbol_to_pid(Symbol))\n of\n [] ->\n PassedInfo = reset_concuerror_info(NewInfo),\n TimerInfo =\n PassedInfo#concuerror_info{\n instant_delivery = true,\n is_timer = Ref\n },\n NewP = new_process(TimerInfo),\n true = ets:insert(Processes, ?new_process(NewP, Symbol)),\n NewP;\n [[OldP]] -> OldP\n end,\n NewEvent = Event#event{special = [{new, P}]},\n {P, NewInfo#concuerror_info{event = NewEvent, extra = P}}\n end,\n ActualMessage = format_timer_message(SendAfter, Msg, Ref),\n ets:insert(Timers, {Ref, Pid, Dest}),\n TimerFun =\n fun() ->\n MFArgs = [erlang, send, [Dest, ActualMessage]],\n catch concuerror_inspect:inspect(call, MFArgs, ignored)\n end,\n Pid ! {start, erlang, apply, [TimerFun, []]},\n ok = wait_process(Pid, Wait),\n {Ref, FinalInfo};\n\nrun_built_in(erlang, SendAfter, 4, [Timeout, Dest, Msg, []], Info)\n when\n SendAfter =:= send_after;\n SendAfter =:= start_timer ->\n run_built_in(erlang, SendAfter, 3, [Timeout, Dest, Msg], Info);\n\nrun_built_in(erlang, spawn, 3, [M, F, Args], Info) ->\n run_built_in(erlang, spawn_opt, 1, [{M, F, Args, []}], Info);\nrun_built_in(erlang, spawn_link, 3, [M, F, Args], Info) ->\n run_built_in(erlang, spawn_opt, 1, [{M, F, Args, [link]}], Info);\nrun_built_in(erlang, spawn_opt, 4, [Module, Name, Args, SpawnOpts], Info) ->\n run_built_in(erlang, spawn_opt, 1, [{Module, Name, Args, SpawnOpts}], Info);\nrun_built_in(erlang, spawn_opt, 1, [{Module, Name, Args, SpawnOpts}], Info) ->\n #concuerror_info{\n event = Event,\n processes = Processes,\n timeout = Timeout} = Info,\n #event{event_info = EventInfo} = Event,\n Parent = self(),\n ParentSymbol = ets:lookup_element(Processes, Parent, ?process_symbolic),\n ChildId = ets:update_counter(Processes, Parent, {?process_children, 1}),\n {HasMonitor, NewInfo} =\n case lists:member(monitor, SpawnOpts) of\n false -> {false, Info};\n true -> get_ref(Info)\n end,\n {Result, FinalInfo} =\n case EventInfo of\n %% Replaying...\n #builtin_event{result = OldResult} ->\n case HasMonitor of\n false -> ok;\n Mon ->\n {_, Mon} = OldResult,\n ok\n end,\n {OldResult, NewInfo};\n %% New event...\n undefined ->\n PassedInfo = reset_concuerror_info(NewInfo),\n ?debug_flag(?spawn, {Parent, spawning_new, PassedInfo}),\n ChildSymbol = io_lib:format(\"~s.~w\", [ParentSymbol, ChildId]),\n P =\n case\n ets:match(Processes, ?process_match_symbol_to_pid(ChildSymbol))\n of\n [] ->\n NewP = new_process(PassedInfo),\n true = ets:insert(Processes, ?new_process(NewP, ChildSymbol)),\n NewP;\n [[OldP]] -> OldP\n end,\n NewResult =\n case HasMonitor of\n false -> P;\n Mon -> {P, Mon}\n end,\n NewEvent = Event#event{special = [{new, P}]},\n {NewResult, NewInfo#concuerror_info{event = NewEvent}}\n end,\n Pid =\n case HasMonitor of\n false ->\n Result;\n Ref ->\n {P1, Ref} = Result,\n #concuerror_info{monitors = Monitors} = FinalInfo,\n true = ets:insert(Monitors, ?monitor(Ref, P1, P1, active)),\n P1\n end,\n case lists:member(link, SpawnOpts) of\n true ->\n #concuerror_info{links = Links} = FinalInfo,\n true = ets:insert(Links, ?links(Parent, Pid));\n false -> ok\n end,\n {GroupLeader, _} = run_built_in(erlang, group_leader, 0, [], FinalInfo),\n true = ets:update_element(Processes, Pid, {?process_leader, GroupLeader}),\n Pid ! {start, Module, Name, Args},\n ok = wait_process(Pid, Timeout),\n {Result, FinalInfo};\nrun_built_in(erlang, send, 3, [Recipient, Message, _Options], Info) ->\n {_, FinalInfo} = run_built_in(erlang, send, 2, [Recipient, Message], Info),\n {ok, FinalInfo};\nrun_built_in(erlang, Send, 2, [Recipient, Message], Info)\n when Send =:= '!'; Send =:= 'send' ->\n #concuerror_info{event = #event{event_info = EventInfo}} = Info,\n Pid =\n case is_pid(Recipient) of\n true -> Recipient;\n false ->\n T =\n case Recipient of\n A when is_atom(A) -> Recipient;\n {A, N} when is_atom(A), N =:= node() -> A\n end,\n {P, Info} = run_built_in(erlang, whereis, 1, [T], Info),\n P\n end,\n ?badarg_if_not(is_pid(Pid)),\n Extra =\n case Info#concuerror_info.is_timer of\n false -> undefined;\n Timer ->\n ets:delete(Info#concuerror_info.timers, Timer),\n Timer\n end,\n case EventInfo of\n %% Replaying...\n #builtin_event{result = OldResult} ->\n {_, MsgInfo} = get_message_cnt(Info),\n {OldResult, MsgInfo#concuerror_info{extra = Extra}};\n %% New event...\n undefined ->\n ?debug_flag(?send, {send, Recipient, Message}),\n MsgInfo = make_message(Info, message, Message, Pid),\n ?debug_flag(?send, {send, successful}),\n {Message, MsgInfo#concuerror_info{extra = Extra}}\n end;\n\nrun_built_in(erlang, process_flag, 2, [Flag, Value],\n #concuerror_info{flags = Flags} = Info) ->\n case Flag of\n trap_exit ->\n ?badarg_if_not(is_boolean(Value)),\n {Flags#process_flags.trap_exit,\n Info#concuerror_info{flags = Flags#process_flags{trap_exit = Value}}};\n priority ->\n ?badarg_if_not(lists:member(Value, [low, normal, high, max])),\n {Flags#process_flags.priority,\n Info#concuerror_info{flags = Flags#process_flags{priority = Value}}};\n _ ->\n throw({unsupported_process_flag, {Flag, Value}})\n end;\n\nrun_built_in(erlang, processes, 0, [], Info) ->\n #concuerror_info{processes = Processes} = Info,\n Active = lists:sort(ets:select(Processes, [?process_match_active()])),\n {Active, Info};\n\nrun_built_in(erlang, unlink, 1, [Pid], Info) ->\n #concuerror_info{links = Links} = Info,\n Self = self(),\n [true, true] = [ets:delete_object(Links, L) || L <- ?links(Self, Pid)],\n {true, Info};\nrun_built_in(erlang, unregister, 1, [Name],\n #concuerror_info{processes = Processes} = Info) ->\n try\n [[Pid]] = ets:match(Processes, ?process_match_name_to_pid(Name)),\n true =\n ets:update_element(Processes, Pid, {?process_name, ?process_name_none}),\n NewInfo = Info#concuerror_info{extra = Pid},\n {true, NewInfo}\n catch\n _:_ -> error(badarg)\n end;\nrun_built_in(erlang, whereis, 1, [Name], Info) ->\n #concuerror_info{processes = Processes} = Info,\n case ets:match(Processes, ?process_match_name_to_pid(Name)) of\n [] ->\n case whereis(Name) =:= undefined of\n true -> {undefined, Info};\n false ->\n ?crash_instr({registered_process_not_wrapped, Name})\n end;\n [[Pid]] -> {Pid, Info}\n end;\nrun_built_in(ets, new, 2, [NameArg, Options], Info) ->\n #concuerror_info{\n ets_tables = EtsTables,\n event = #event{event_info = EventInfo},\n scheduler = Scheduler\n } = Info,\n NoNameOptions = [O || O <- Options, O =/= named_table],\n Name =\n case Options =/= NoNameOptions of\n true ->\n MatchExistingName =\n ets:match(EtsTables, ?ets_match_name_to_tid(NameArg)),\n ?badarg_if_not(MatchExistingName =:= []),\n NameArg;\n false -> ?ets_name_none\n end,\n Tid =\n case EventInfo of\n %% Replaying...\n #builtin_event{extra = {T, Name}} ->\n T;\n %% New event...\n undefined ->\n %% The last protection option is the one actually used.\n %% Use that to make the actual table public.\n T = ets:new(NameArg, NoNameOptions ++ [public]),\n true = ets:give_away(T, Scheduler, given_to_scheduler),\n T\n end,\n ProtectFold =\n fun(Option, Selected) ->\n case Option of\n O when O =:= 'private';\n O =:= 'protected';\n O =:= 'public' -> O;\n _ -> Selected\n end\n end,\n Protection = lists:foldl(ProtectFold, protected, NoNameOptions),\n Ret =\n case Name =/= ?ets_name_none of\n true -> Name;\n false -> Tid\n end,\n Heir =\n case proplists:lookup(heir, Options) of\n none -> {heir, none};\n Other -> Other\n end,\n Entry = ?ets_table_entry(Tid, Name, self(), Protection, Heir, false),\n true = ets:insert(EtsTables, Entry),\n ets:delete_all_objects(Tid),\n {Ret, Info#concuerror_info{extra = {Tid, Name}}};\nrun_built_in(ets, rename, 2, [NameOrTid, NewName], Info) ->\n #concuerror_info{ets_tables = EtsTables} = Info,\n ?badarg_if_not(is_atom(NewName)),\n {Tid, _, _} = ets_access_table_info(NameOrTid, {rename, 2}, Info),\n MatchExistingName = ets:match(EtsTables, ?ets_match_name_to_tid(NewName)),\n ?badarg_if_not(MatchExistingName =:= []),\n ets:update_element(EtsTables, Tid, [{?ets_name, NewName}]),\n {NewName, Info#concuerror_info{extra = {Tid, NewName}}};\nrun_built_in(ets, info, 2, [NameOrTid, Field], Info) ->\n #concuerror_info{ets_tables = EtsTables} = Info,\n ?badarg_if_not(is_atom(Field)),\n try\n {Tid, Id, _} = ets_access_table_info(NameOrTid, {info, 2}, Info),\n [TableInfo] = ets:lookup(EtsTables, Tid),\n Ret =\n case Field of\n heir ->\n case element(?ets_heir, TableInfo) of\n {heir, none} -> none;\n {heir, Q, _} -> Q\n end;\n protection ->\n element(?ets_protection, TableInfo);\n owner ->\n element(?ets_owner, TableInfo);\n named_table ->\n element(?ets_name, TableInfo) =/= ?ets_name_none;\n _ ->\n ets:info(Tid, Field)\n end,\n {Ret, Info#concuerror_info{extra = Id}}\n catch\n error:badarg ->\n case is_valid_ets_id(NameOrTid) of\n true -> {undefined, Info};\n false -> error(badarg)\n end\n end;\nrun_built_in(ets, info, 1, [NameOrTid], Info) ->\n try\n {_, Id, _} = ets_access_table_info(NameOrTid, {info, 1}, Info),\n Fun =\n fun(Field) ->\n {FieldRes, _} = run_built_in(ets, info, 2, [NameOrTid, Field], Info),\n {Field, FieldRes}\n end,\n Ret =\n [Fun(F) ||\n F <-\n [ owner\n , heir\n , name\n , named_table\n , type\n , keypos\n , protection\n ]],\n {Ret, Info#concuerror_info{extra = Id}}\n catch\n error:badarg ->\n case is_valid_ets_id(NameOrTid) of\n true -> {undefined, Info};\n false -> error(badarg)\n end\n end;\nrun_built_in(ets, whereis, _, [Name], Info) ->\n ?badarg_if_not(is_atom(Name)),\n try\n {Tid, Id, _} = ets_access_table_info(Name, {whereis, 1}, Info),\n {Tid, Info#concuerror_info{extra = Id}}\n catch\n error:badarg -> {undefined, Info}\n end;\nrun_built_in(ets, delete, 1, [NameOrTid], Info) ->\n #concuerror_info{ets_tables = EtsTables} = Info,\n {Tid, Id, _} = ets_access_table_info(NameOrTid, {delete, 1}, Info),\n ets:update_element(EtsTables, Tid, [{?ets_alive, false}]),\n ets:delete_all_objects(Tid),\n {true, Info#concuerror_info{extra = Id}};\nrun_built_in(ets, give_away, 3, [NameOrTid, Pid, GiftData], Info) ->\n #concuerror_info{\n ets_tables = EtsTables,\n event = #event{event_info = EventInfo}\n } = Info,\n {Tid, Id, _} = ets_access_table_info(NameOrTid, {give_away, 3}, Info),\n {Alive, Info} = run_built_in(erlang, is_process_alive, 1, [Pid], Info),\n Self = self(),\n NameForMsg = ets_get_name_or_tid(Id),\n ?badarg_if_not(is_pid(Pid) andalso Pid =/= Self andalso Alive),\n NewInfo =\n case EventInfo of\n %% Replaying. Keep original message\n #builtin_event{} ->\n {_Id, MsgInfo} = get_message_cnt(Info),\n MsgInfo;\n %% New event...\n undefined ->\n Data = {'ETS-TRANSFER', NameForMsg, Self, GiftData},\n make_message(Info, message, Data, Pid)\n end,\n Update = [{?ets_owner, Pid}],\n true = ets:update_element(EtsTables, Tid, Update),\n {true, NewInfo#concuerror_info{extra = Id}};\nrun_built_in(ets, F, N, [NameOrTid|Args], Info) ->\n try\n _ = ets_ops_access_rights_map({F, N})\n catch\n error:function_clause ->\n #concuerror_info{event = #event{location = Location}} = Info,\n ?crash_instr({unknown_built_in, {ets, F, N, Location}})\n end,\n {Tid, Id, IsSystemInsert} = ets_access_table_info(NameOrTid, {F, N}, Info),\n case IsSystemInsert of\n true ->\n #concuerror_info{system_ets_entries = SystemEtsEntries} = Info,\n ets:insert(SystemEtsEntries, {Tid, Args});\n false ->\n true\n end,\n {erlang:apply(ets, F, [Tid|Args]), Info#concuerror_info{extra = Id}};\n\nrun_built_in(erlang = Module, Name, Arity, Args, Info)\n when\n false\n ;{Name, Arity} =:= {date, 0}\n ;{Name, Arity} =:= {module_loaded, 1}\n ;{Name, Arity} =:= {monotonic_time, 0}\n ;{Name, Arity} =:= {monotonic_time, 1}\n ;{Name, Arity} =:= {now, 0}\n ;{Name, Arity} =:= {system_time, 0}\n ;{Name, Arity} =:= {system_time, 1}\n ;{Name, Arity} =:= {time, 0}\n ;{Name, Arity} =:= {time_offset, 0}\n ;{Name, Arity} =:= {time_offset, 1}\n ;{Name, Arity} =:= {timestamp, 0}\n ;{Name, Arity} =:= {unique_integer, 0}\n ;{Name, Arity} =:= {unique_integer, 1}\n ->\n maybe_reuse_old(Module, Name, Arity, Args, Info);\n\nrun_built_in(os = Module, Name, Arity, Args, Info)\n when\n false\n ;{Name, Arity} =:= {system_time, 0}\n ;{Name, Arity} =:= {system_time, 1}\n ;{Name, Arity} =:= {timestamp, 0}\n ->\n maybe_reuse_old(Module, Name, Arity, Args, Info);\n\nrun_built_in(persistent_term, Name, Arity, Args, Info) ->\n case {Name, Arity} of\n {erase, 1} ->\n run_built_in(ets, delete, 2, [?persistent_term|Args], Info);\n {get, 1} ->\n [Key] = Args,\n run_built_in(ets, lookup_element, 3, [?persistent_term, Key, 2], Info);\n {get, 2} ->\n [Key, Default] = Args,\n {R, NewInfo} =\n run_built_in(ets, lookup, 2, [?persistent_term, Key], Info),\n case R of\n [] -> {Default, NewInfo};\n [{Key, V}] -> {V, NewInfo}\n end;\n {put, 2} ->\n [Key, Value] = Args,\n run_built_in(ets, insert, 2, [?persistent_term, {Key, Value}], Info);\n _Other ->\n #concuerror_info{event = #event{location = Location}} = Info,\n ?crash_instr({unknown_built_in, {persistent_term, Name, Arity, Location}})\n end;\n\nrun_built_in(Module, Name, Arity, _Args,\n #concuerror_info{event = #event{location = Location}}) ->\n ?crash_instr({unknown_built_in, {Module, Name, Arity, Location}}).\n\nmaybe_reuse_old(Module, Name, _Arity, Args, Info) ->\n #concuerror_info{event = #event{event_info = EventInfo}} = Info,\n Res =\n case EventInfo of\n %% Replaying...\n #builtin_event{result = OldResult} -> OldResult;\n %% New event...\n undefined -> erlang:apply(Module, Name, Args)\n end,\n {Res, Info}.\n\n%%------------------------------------------------------------------------------\n\nmaybe_deliver_message(#event{special = Special} = Event, Info) ->\n case proplists:lookup(message, Special) of\n none -> Event;\n {message, MessageEvent} ->\n #concuerror_info{instant_delivery = InstantDelivery} = Info,\n #message_event{recipient = Recipient, instant = Instant} = MessageEvent,\n case (InstantDelivery orelse Recipient =:= self()) andalso Instant of\n false -> Event;\n true ->\n #concuerror_info{timeout = Timeout} = Info,\n TrapExit = Info#concuerror_info.flags#process_flags.trap_exit,\n deliver_message(Event, MessageEvent, Timeout, {true, TrapExit})\n end\n end.\n\n-spec deliver_message(event(), message_event(), timeout()) -> event().\n\ndeliver_message(Event, MessageEvent, Timeout) ->\n assert_no_messages(),\n deliver_message(Event, MessageEvent, Timeout, false).\n\ndeliver_message(Event, MessageEvent, Timeout, Instant) ->\n #event{special = Special} = Event,\n #message_event{\n message = Message,\n recipient = Recipient,\n type = Type} = MessageEvent,\n ?debug_flag(?loop, {deliver_message, Message, Instant}),\n Self = self(),\n Notify =\n case Recipient =:= Self of\n true ->\n %% Instant delivery to self\n {true, SelfTrapping} = Instant,\n SelfKilling = Type =:= exit_signal,\n send_message_ack(Self, SelfTrapping, SelfKilling),\n ?notify_none;\n false -> Self\n end,\n Recipient ! {Type, Message, Notify},\n receive\n {message_ack, Trapping, Killing} ->\n NewMessageEvent =\n MessageEvent#message_event{\n killing = Killing,\n trapping = Trapping\n },\n NewSpecial =\n case already_known_delivery(Message, Special) of\n true -> Special;\n false -> Special ++ [{message_delivered, NewMessageEvent}]\n end,\n Event#event{special = NewSpecial};\n {system_reply, From, Id, Reply, System} ->\n ?debug_flag(?loop, got_system_message),\n case proplists:lookup(message_received, Special) =:= none of\n true ->\n SystemReply =\n #message_event{\n cause_label = Event#event.label,\n message = #message{data = Reply, id = {System, Id}},\n sender = Recipient,\n recipient = From},\n SystemSpecials =\n [{message_delivered, MessageEvent},\n {message_received, Id},\n {system_communication, System},\n {message, SystemReply}],\n NewEvent = Event#event{special = Special ++ SystemSpecials},\n deliver_if_instant(Instant, NewEvent, SystemReply, Timeout);\n false ->\n SystemReply = find_system_reply(Recipient, Special),\n deliver_if_instant(Instant, Event, SystemReply, Timeout)\n end;\n {'EXIT', _, What} ->\n exit(What)\n after\n Timeout ->\n ?crash({no_response_for_message, Timeout, Recipient})\n end.\n\nalready_known_delivery(_, []) -> false;\nalready_known_delivery(Message, [{message_delivered, Event}|Special]) ->\n #message{id = Id} = Message,\n #message_event{message = #message{id = Del}} = Event,\n Id =:= Del orelse already_known_delivery(Message, Special);\nalready_known_delivery(Message, [_|Special]) ->\n already_known_delivery(Message, Special).\n\ndeliver_if_instant(Instant, NewEvent, SystemReply, Timeout) ->\n case Instant =:= false of\n true -> NewEvent;\n false -> deliver_message(NewEvent, SystemReply, Timeout, Instant)\n end.\n\nfind_system_reply(System, [{message, #message_event{sender = System} = M}|_]) ->\n M;\nfind_system_reply(System, [_|Special]) ->\n find_system_reply(System, Special).\n\n%%------------------------------------------------------------------------------\n\n-spec wait_actor_reply(event(), timeout()) -> 'retry' | {'ok', event()}.\n\nwait_actor_reply(Event, Timeout) ->\n Pid = Event#event.actor,\n assert_no_messages(),\n Pid ! Event,\n wait_process(Pid, Timeout).\n\n%% Wait for a process to instrument any code.\nwait_process(Pid, Timeout) ->\n receive\n ready -> ok;\n exited -> retry;\n {blocked, _} -> retry;\n #event{} = NewEvent -> {ok, NewEvent};\n {'ETS-TRANSFER', _, _, given_to_scheduler} ->\n wait_process(Pid, Timeout);\n {'EXIT', _, What} ->\n exit(What)\n after\n Timeout ->\n case concuerror_loader:is_instrumenting() of\n {true, _Module} ->\n wait_process(Pid, Timeout);\n _ ->\n ?crash({process_did_not_respond, Timeout, Pid})\n end\n end.\n\nassert_no_messages() ->\n receive\n Msg -> error({pending_message, Msg})\n after\n 0 -> ok\n end.\n\n%%------------------------------------------------------------------------------\n\n-spec reset_processes(processes()) -> ok.\n\nreset_processes(Processes) ->\n Procs = ets:tab2list(Processes),\n Fold =\n fun(?process_pat_pid_kind(P, Kind), _) ->\n case Kind =:= regular of\n true ->\n P ! reset,\n receive reset_done -> ok end;\n false -> ok\n end,\n ok\n end,\n ok = lists:foldl(Fold, ok, Procs).\n\n%%------------------------------------------------------------------------------\n\n-spec collect_deadlock_info([pid()]) -> [{pid(), location(), [term()]}].\n\ncollect_deadlock_info(Actors) ->\n Fold =\n fun(P, Acc) ->\n P ! deadlock_poll,\n receive\n {blocked, Info} -> [Info|Acc];\n exited -> Acc\n end\n end,\n lists:foldr(Fold, [], Actors).\n\n-spec enabled(pid()) -> boolean().\n\nenabled(P) ->\n P ! enabled,\n receive\n {enabled, Answer} -> Answer\n end.\n\n%%------------------------------------------------------------------------------\n\nhandle_receive(PatternFun, Timeout, Location, Info) ->\n %% No distinction between replaying/new as we have to clear the message from\n %% the queue anyway...\n {MessageOrAfter, NewInfo} =\n has_matching_or_after(PatternFun, Timeout, Location, Info),\n notify_receive(MessageOrAfter, PatternFun, Timeout, Location, NewInfo).\n\nhas_matching_or_after(PatternFun, Timeout, Location, InfoIn) ->\n {Result, Info} = has_matching_or_after(PatternFun, Timeout, InfoIn),\n case Result =:= false of\n true ->\n ?debug_flag(?loop, blocked),\n NewInfo =\n case Info#concuerror_info.status =:= waiting of\n true ->\n Messages = Info#concuerror_info.message_queue,\n MessageList =\n [D || #message{data = D} <- queue:to_list(Messages)],\n Notification = {blocked, {self(), Location, MessageList}},\n process_loop(notify(Notification, Info));\n false ->\n process_loop(set_status(Info, waiting))\n end,\n has_matching_or_after(PatternFun, Timeout, Location, NewInfo);\n false ->\n ?debug_flag(?loop, ready_to_receive),\n NewInfo = process_loop(InfoIn),\n {FinalResult, FinalInfo} =\n has_matching_or_after(PatternFun, Timeout, NewInfo),\n {FinalResult, FinalInfo}\n end.\n\nhas_matching_or_after(PatternFun, Timeout, Info) ->\n #concuerror_info{message_queue = Messages} = Info,\n {MatchingOrFalse, NewMessages} = find_matching_message(PatternFun, Messages),\n Result =\n case MatchingOrFalse =:= false of\n false -> MatchingOrFalse;\n true ->\n case Timeout =:= infinity of\n false -> 'after';\n true -> false\n end\n end,\n {Result, Info#concuerror_info{message_queue = NewMessages}}.\n\nfind_matching_message(PatternFun, Messages) ->\n find_matching_message(PatternFun, Messages, queue:new()).\n\nfind_matching_message(PatternFun, NewMessages, OldMessages) ->\n {Value, NewNewMessages} = queue:out(NewMessages),\n ?debug_flag(?receive_, {inspect, Value}),\n case Value of\n {value, #message{data = Data} = Message} ->\n case PatternFun(Data) of\n true ->\n ?debug_flag(?receive_, matches),\n {Message, queue:join(OldMessages, NewNewMessages)};\n false ->\n ?debug_flag(?receive_, doesnt_match),\n NewOldMessages = queue:in(Message, OldMessages),\n find_matching_message(PatternFun, NewNewMessages, NewOldMessages)\n end;\n empty ->\n {false, OldMessages}\n end.\n\nnotify_receive(MessageOrAfter, PatternFun, Timeout, Location, Info) ->\n {Cnt, ReceiveInfo} = get_receive_cnt(Info),\n #concuerror_info{\n event = NextEvent,\n flags = #process_flags{trap_exit = Trapping}\n } = UpdatedInfo =\n add_location_info(Location, ReceiveInfo),\n ReceiveEvent =\n #receive_event{\n message = MessageOrAfter,\n receive_info = {Cnt, PatternFun},\n timeout = Timeout,\n trapping = Trapping},\n {Special, CreateMessage} =\n case MessageOrAfter of\n #message{data = Data, id = Id} ->\n {[{message_received, Id}], {ok, Data}};\n 'after' -> {[], false}\n end,\n Notification =\n NextEvent#event{event_info = ReceiveEvent, special = Special},\n AddMessage =\n case CreateMessage of\n {ok, D} ->\n ?debug_flag(?receive_, {deliver, D}),\n {true, D};\n false ->\n false\n end,\n {{skip_timeout, AddMessage}, delay_notify(Notification, UpdatedInfo)}.\n\n%%------------------------------------------------------------------------------\n\nnotify(Notification, #concuerror_info{scheduler = Scheduler} = Info) ->\n ?debug_flag(?notify, {notify, Notification}),\n Scheduler ! Notification,\n Info.\n\ndelay_notify(Notification, Info) ->\n Info#concuerror_info{delayed_notification = {true, Notification}}.\n\n-spec process_top_loop(concuerror_info()) -> no_return().\n\nprocess_top_loop(Info) ->\n ?debug_flag(?loop, top_waiting),\n receive\n reset ->\n process_top_loop(notify(reset_done, Info));\n reset_system ->\n reset_system(Info),\n process_top_loop(notify(reset_system_done, Info));\n {start, Module, Name, Args} ->\n ?debug_flag(?loop, {start, Module, Name, Args}),\n wrapper(Info, Module, Name, Args)\n end.\n\n-spec wrapper(concuerror_info(), module(), atom(), [term()]) -> no_return().\n\n-ifdef(BEFORE_OTP_21).\n\nwrapper(InfoIn, Module, Name, Args) ->\n Info = InfoIn#concuerror_info{initial_call = {Module, Name, length(Args)}},\n concuerror_inspect:start_inspection(set_status(Info, running)),\n try\n concuerror_inspect:inspect(call, [Module, Name, Args], []),\n exit(normal)\n catch\n Class:Reason ->\n Stacktrace = erlang:get_stacktrace(),\n case concuerror_inspect:stop_inspection() of\n {true, EndInfo} ->\n CleanStacktrace = clean_stacktrace(Stacktrace),\n ?debug_flag(?exit, {exit, Class, Reason, Stacktrace}),\n NewReason =\n case Class of\n throw -> {{nocatch, Reason}, CleanStacktrace};\n error -> {Reason, CleanStacktrace};\n exit -> Reason\n end,\n exiting(NewReason, CleanStacktrace, EndInfo);\n false -> erlang:raise(Class, Reason, Stacktrace)\n end\n end.\n\n-else.\n\nwrapper(InfoIn, Module, Name, Args) ->\n Info = InfoIn#concuerror_info{initial_call = {Module, Name, length(Args)}},\n concuerror_inspect:start_inspection(set_status(Info, running)),\n try\n concuerror_inspect:inspect(call, [Module, Name, Args], []),\n exit(normal)\n catch\n Class:Reason:Stacktrace ->\n case concuerror_inspect:stop_inspection() of\n {true, EndInfo} ->\n CleanStacktrace = clean_stacktrace(Stacktrace),\n ?debug_flag(?exit, {exit, Class, Reason, Stacktrace}),\n NewReason =\n case Class of\n throw -> {{nocatch, Reason}, CleanStacktrace};\n error -> {Reason, CleanStacktrace};\n exit -> Reason\n end,\n exiting(NewReason, CleanStacktrace, EndInfo);\n false -> erlang:raise(Class, Reason, Stacktrace)\n end\n end.\n\n-endif.\n\nrequest_system_reset(Pid) ->\n Mon = monitor(process, Pid),\n Pid ! reset_system,\n receive\n reset_system_done ->\n demonitor(Mon, [flush]),\n ok;\n {'DOWN', Mon, process, Pid, Reason} ->\n exit(Reason)\n after\n 5000 -> exit(timeout)\n end.\n\nreset_system(Info) ->\n #concuerror_info{\n links = Links,\n monitors = Monitors,\n system_ets_entries = SystemEtsEntries\n } = Info,\n Entries = ets:tab2list(SystemEtsEntries),\n lists:foldl(fun delete_system_entries/2, true, Entries),\n ets:delete_all_objects(SystemEtsEntries),\n ets:delete_all_objects(Links),\n ets:delete_all_objects(Monitors).\n\ndelete_system_entries({T, Objs}, true) when is_list(Objs) ->\n lists:foldl(fun delete_system_entries/2, true, [{T, O} || O <- Objs]);\ndelete_system_entries({T, O}, true) ->\n ets:delete_object(T, O).\n\nnew_process(ParentInfo) ->\n Info = ParentInfo#concuerror_info{notify_when_ready = {self(), true}},\n spawn_link(?MODULE, process_top_loop, [Info]).\n\nprocess_loop(#concuerror_info{delayed_notification = {true, Notification},\n scheduler = Scheduler} = Info) ->\n Scheduler ! Notification,\n process_loop(Info#concuerror_info{delayed_notification = none});\nprocess_loop(#concuerror_info{notify_when_ready = {Pid, true}} = Info) ->\n ?debug_flag(?loop, notifying_parent),\n Pid ! ready,\n process_loop(Info#concuerror_info{notify_when_ready = {Pid, false}});\nprocess_loop(Info) ->\n ?debug_flag(?loop, process_loop),\n receive\n #event{event_info = EventInfo} = Event ->\n ?debug_flag(?loop, got_event),\n Status = Info#concuerror_info.status,\n case Status =:= exited of\n true ->\n ?debug_flag(?loop, exited),\n process_loop(notify(exited, Info));\n false ->\n NewInfo = Info#concuerror_info{event = Event},\n case EventInfo of\n undefined ->\n ?debug_flag(?loop, exploring),\n NewInfo;\n _OtherReplay ->\n ?debug_flag(?loop, replaying),\n NewInfo\n end\n end;\n {exit_signal, #message{data = Data} = Message, Notify} ->\n Trapping = Info#concuerror_info.flags#process_flags.trap_exit,\n case {is_active(Info), Data =:= kill} of\n {true, true} ->\n ?debug_flag(?loop, kill_signal),\n send_message_ack(Notify, Trapping, true),\n exiting(killed, [], Info#concuerror_info{exit_by_signal = true});\n {true, false} ->\n case Trapping of\n true ->\n ?debug_flag(?loop, signal_trapped),\n self() ! {message, Message, Notify},\n process_loop(Info);\n false ->\n {'EXIT', From, Reason} = Data,\n send_message_ack(Notify, Trapping, Reason =/= normal),\n case Reason =:= normal andalso From =/= self() of\n true ->\n ?debug_flag(?loop, ignore_normal_signal),\n process_loop(Info);\n false ->\n ?debug_flag(?loop, error_signal),\n NewInfo = Info#concuerror_info{exit_by_signal = true},\n exiting(Reason, [], NewInfo)\n end\n end;\n {false, _} ->\n ?debug_flag(?loop, ignoring_signal),\n send_message_ack(Notify, Trapping, false),\n process_loop(Info)\n end;\n {message, Message, Notify} ->\n ?debug_flag(?loop, message),\n Trapping = Info#concuerror_info.flags#process_flags.trap_exit,\n NotDemonitored = not_demonitored(Message, Info),\n send_message_ack(Notify, Trapping, false),\n case is_active(Info) andalso NotDemonitored of\n true ->\n ?debug_flag(?loop, enqueueing_message),\n Queue = Info#concuerror_info.message_queue,\n NewInfo =\n Info#concuerror_info{\n message_queue = queue:in(Message, Queue)\n },\n ?debug_flag(?loop, enqueued_msg),\n case NewInfo#concuerror_info.status =:= waiting of\n true -> NewInfo#concuerror_info{status = running};\n false -> process_loop(NewInfo)\n end;\n false ->\n ?debug_flag(?loop, ignoring_message),\n process_loop(Info)\n end;\n reset ->\n ?debug_flag(?loop, reset),\n ResetInfo =\n #concuerror_info{\n ets_tables = EtsTables,\n processes = Processes} = reset_concuerror_info(Info),\n NewInfo = set_status(ResetInfo, exited),\n _ = erase(),\n Symbol = ets:lookup_element(Processes, self(), ?process_symbolic),\n ets:insert(Processes, ?new_process(self(), Symbol)),\n {DefLeader, _} = run_built_in(erlang, whereis, 1, [user], Info),\n true =\n ets:update_element(Processes, self(), {?process_leader, DefLeader}),\n ets:match_delete(EtsTables, ?ets_pattern_mine()),\n FinalInfo = NewInfo#concuerror_info{ref_queue = reset_ref_queue(Info)},\n _ = notify(reset_done, FinalInfo),\n erlang:hibernate(concuerror_callback, process_top_loop, [FinalInfo]);\n deadlock_poll ->\n ?debug_flag(?loop, deadlock_poll),\n Status = Info#concuerror_info.status,\n case Status =:= exited of\n true -> process_loop(notify(exited, Info));\n false -> Info\n end;\n enabled ->\n Status = Info#concuerror_info.status,\n Reply = Status =:= running orelse Status =:= exiting,\n process_loop(notify({enabled, Reply}, Info));\n {get_info, To} ->\n To ! {info, {Info, get()}},\n process_loop(Info);\n quit ->\n exit(normal)\n end.\n\nget_their_info(Pid) ->\n Pid ! {get_info, self()},\n receive\n {info, Info} -> Info\n end.\n\nsend_message_ack(Notify, Trapping, Killing) ->\n case Notify =/= ?notify_none of\n true ->\n Notify ! {message_ack, Trapping, Killing},\n ok;\n false -> ok\n end.\n\nreceive_message_ack() ->\n receive\n {message_ack, Trapping, Killing} ->\n {Trapping, Killing}\n end.\n\nget_leader(#concuerror_info{processes = Processes}, P) ->\n ets:lookup_element(Processes, P, ?process_leader).\n\nnot_demonitored(Message, Info) ->\n case Message of\n #message{data = {'DOWN', Ref, _, _, _}} ->\n #concuerror_info{demonitors = Demonitors} = Info,\n not lists:member(Ref, Demonitors);\n _ -> true\n end.\n\n%%------------------------------------------------------------------------------\n\nexiting(Reason, _,\n #concuerror_info{is_timer = Timer} = InfoIn) when Timer =/= false ->\n Info =\n case Reason of\n killed ->\n #concuerror_info{event = Event} = WaitInfo = process_loop(InfoIn),\n EventInfo = #exit_event{actor = Timer, reason = normal},\n Notification = Event#event{event_info = EventInfo},\n add_location_info(exit, notify(Notification, WaitInfo));\n normal ->\n InfoIn\n end,\n process_loop(set_status(Info, exited));\nexiting(Reason, Stacktrace, InfoIn) ->\n %% XXX: The ordering of the following events has to be verified (e.g. R16B03):\n %% XXX: - process marked as exiting, new messages are not delivered, name is\n %% unregistered\n %% XXX: - cancel timers\n %% XXX: - transfer ets ownership and send message or delete table\n %% XXX: - send link signals\n %% XXX: - send monitor messages\n #concuerror_info{\n exit_by_signal = ExitBySignal,\n logger = Logger,\n status = Status\n } = InfoIn,\n case ExitBySignal of\n true ->\n ?unique(Logger, ?ltip, msg(signal), []);\n false -> ok\n end,\n Info = process_loop(InfoIn),\n Self = self(),\n %% Registered name has to be picked up before the process starts\n %% exiting, otherwise it is no longer alive and process_info returns\n %% 'undefined'.\n {MaybeName, Info} =\n run_built_in(erlang, process_info, 2, [Self, registered_name], Info),\n LocatedInfo = #concuerror_info{event = Event} =\n add_location_info(exit, set_status(Info, exiting)),\n #concuerror_info{\n links = LinksTable,\n monitors = MonitorsTable,\n flags = #process_flags{trap_exit = Trapping}} = Info,\n FetchFun =\n fun(Mode, Table) ->\n [begin\n ets:delete_object(Table, E),\n case Mode of\n delete -> ok;\n deactivate -> ets:insert(Table, {K, D, inactive})\n end,\n {D, S}\n end ||\n {K, D, S} = E <- ets:lookup(Table, Self)]\n end,\n Links = lists:sort(FetchFun(delete, LinksTable)),\n Monitors = lists:sort(FetchFun(deactivate, MonitorsTable)),\n Name =\n case MaybeName of\n [] -> ?process_name_none;\n {registered_name, N} -> N\n end,\n Notification =\n Event#event{\n event_info =\n #exit_event{\n exit_by_signal = ExitBySignal,\n last_status = Status,\n links = [L || {L, _} <- Links],\n monitors = [M || {M, _} <- Monitors],\n name = Name,\n reason = Reason,\n stacktrace = Stacktrace,\n trapping = Trapping\n }\n },\n ExitInfo = notify(Notification, LocatedInfo),\n FunFold = fun(Fun, Acc) -> Fun(Acc) end,\n FunList =\n [fun ets_ownership_exiting_events/1,\n link_monitor_handlers(fun handle_link/4, Links),\n link_monitor_handlers(fun handle_monitor/4, Monitors)],\n NewInfo = ExitInfo#concuerror_info{exit_reason = Reason},\n FinalInfo = lists:foldl(FunFold, NewInfo, FunList),\n ?debug_flag(?loop, exited),\n process_loop(set_status(FinalInfo, exited)).\n\nets_ownership_exiting_events(Info) ->\n %% XXX: - transfer ets ownership and send message or delete table\n %% XXX: Mention that order of deallocation/transfer is not monitored.\n #concuerror_info{ets_tables = EtsTables} = Info,\n case ets:match(EtsTables, ?ets_match_owner_to_heir_info(self())) of\n [] -> Info;\n UnsortedTables ->\n Tables = lists:sort(UnsortedTables),\n Fold =\n fun([HeirSpec, Tid, Name], InfoIn) ->\n NameOrTid = ets_get_name_or_tid({Tid, Name}),\n MFArgs =\n case HeirSpec of\n {heir, none} ->\n ?debug_flag(?heir, no_heir),\n [ets, delete, [NameOrTid]];\n {heir, Pid, Data} ->\n ?debug_flag(?heir, {using_heir, Tid, HeirSpec}),\n [ets, give_away, [NameOrTid, Pid, Data]]\n end,\n case instrumented(call, MFArgs, exit, InfoIn) of\n {{didit, true}, NewInfo} -> NewInfo;\n {_, OtherInfo} ->\n ?debug_flag(?heir, {problematic_heir, NameOrTid, HeirSpec}),\n DelMFArgs = [ets, delete, [NameOrTid]],\n {{didit, true}, NewInfo} =\n instrumented(call, DelMFArgs, exit, OtherInfo),\n NewInfo\n end\n end,\n lists:foldl(Fold, Info, Tables)\n end.\n\nhandle_link(Link, _S, Reason, InfoIn) ->\n MFArgs = [erlang, exit, [Link, Reason]],\n {{didit, true}, NewInfo} =\n instrumented(call, MFArgs, exit, InfoIn),\n NewInfo.\n\nhandle_monitor({Ref, P, As}, S, Reason, InfoIn) ->\n Msg = {'DOWN', Ref, process, As, Reason},\n MFArgs = [erlang, send, [P, Msg]],\n case S =/= active of\n true ->\n #concuerror_info{logger = Logger} = InfoIn,\n ?unique(Logger, ?lwarning, msg(demonitored), []);\n false -> ok\n end,\n {{didit, Msg}, NewInfo} =\n instrumented(call, MFArgs, exit, InfoIn),\n NewInfo.\n\nlink_monitor_handlers(Handler, LinksOrMonitors) ->\n fun(Info) ->\n #concuerror_info{exit_reason = Reason} = Info,\n Fold =\n fun({LinkOrMonitor, S}, InfoIn) ->\n Handler(LinkOrMonitor, S, Reason, InfoIn)\n end,\n lists:foldl(Fold, Info, LinksOrMonitors)\n end.\n\n%%------------------------------------------------------------------------------\n\nis_valid_ets_id(NameOrTid) ->\n is_atom(NameOrTid) orelse is_reference(NameOrTid).\n\n-ifdef(BEFORE_OTP_21).\n\nets_system_name_to_tid(Name) ->\n Name.\n\n-else.\n\nets_system_name_to_tid(Name) ->\n ets:whereis(Name).\n\n-endif.\n\nets_access_table_info(NameOrTid, Op, Info) ->\n #concuerror_info{ets_tables = EtsTables} = Info,\n ?badarg_if_not(is_valid_ets_id(NameOrTid)),\n Tid =\n case is_atom(NameOrTid) of\n true ->\n case ets:match(EtsTables, ?ets_match_name_to_tid(NameOrTid)) of\n [] -> error(badarg);\n [[RT]] -> RT\n end;\n false -> NameOrTid\n end,\n case ets:match(EtsTables, ?ets_match_tid_to_permission_info(Tid)) of\n [] -> error(badarg);\n [[Owner, Protection, Name, IsSystem]] ->\n IsAllowed =\n (Owner =:= self()\n orelse\n case ets_ops_access_rights_map(Op) of\n none -> true;\n own -> false;\n read -> Protection =/= private;\n write -> Protection =:= public\n end),\n ?badarg_if_not(IsAllowed),\n IsSystemInsert =\n IsSystem andalso\n ets_ops_access_rights_map(Op) =:= write andalso\n case element(1, Op) of\n delete -> false;\n insert -> true;\n NotAllowed ->\n ?crash_instr({restricted_ets_system, NameOrTid, NotAllowed})\n end,\n {Tid, {Tid, Name}, IsSystemInsert}\n end.\n\nets_ops_access_rights_map(Op) ->\n case Op of\n {delete, 1} -> own;\n {delete, 2} -> write;\n {delete_all_objects, 1} -> write;\n {delete_object, 2} -> write;\n {first, _} -> read;\n {give_away, _} -> own;\n {info, _} -> none;\n {insert, _} -> write;\n {insert_new, _} -> write;\n {internal_delete_all, 2} -> write;\n {internal_select_delete, 2} -> write;\n {lookup, _} -> read;\n {lookup_element, _} -> read;\n {match, _} -> read;\n {match_object, _} -> read;\n {member, _} -> read;\n {next, _} -> read;\n {rename, 2} -> write;\n {select, _} -> read;\n {select_delete, 2} -> write;\n {update_counter, 3} -> write;\n {update_element, 3} -> write;\n {whereis, 1} -> none\n end.\n\nets_get_name_or_tid(Id) ->\n case Id of\n {Tid, ?ets_name_none} -> Tid;\n {_, Name} -> Name\n end.\n\n%%------------------------------------------------------------------------------\n\n-spec cleanup_processes(processes()) -> ok.\n\ncleanup_processes(ProcessesTable) ->\n ets:delete(?persistent_term),\n Processes = ets:tab2list(ProcessesTable),\n Foreach =\n fun(?process_pat_pid(P)) ->\n unlink(P),\n P ! quit\n end,\n lists:foreach(Foreach, Processes).\n\n%%------------------------------------------------------------------------------\n\nsystem_ets_entries(#concuerror_info{ets_tables = EtsTables}) ->\n Map =\n fun(Name) ->\n Tid = ets_system_name_to_tid(Name),\n [Owner, Protection] = [ets:info(Tid, F) || F <- [owner, protection]],\n ?ets_table_entry_system(Tid, Name, Protection, Owner)\n end,\n SystemEtsEntries = [Map(Name) || Name <- ets:all(), is_atom(Name)],\n ets:insert(EtsTables, SystemEtsEntries).\n\nsystem_processes_wrappers(Info) ->\n [wrap_system(Name, Info) || Name <- registered()],\n ok.\n\nwrap_system(Name, Info) ->\n #concuerror_info{processes = Processes} = Info,\n Wrapped = whereis(Name),\n {_, Leader} = process_info(Wrapped, group_leader),\n Fun = fun() -> system_wrapper_loop(Name, Wrapped, Info) end,\n Pid = spawn_link(Fun),\n ets:insert(Processes, ?new_system_process(Pid, Name, wrapper)),\n true = ets:update_element(Processes, Pid, {?process_leader, Leader}),\n ok.\n\nsystem_wrapper_loop(Name, Wrapped, Info) ->\n receive\n quit -> exit(normal);\n Message ->\n case Message of\n {message,\n #message{data = Data, id = Id}, Report} ->\n try\n {F, R} =\n case Name of\n application_controller ->\n throw(comm_application_controller);\n code_server ->\n {Call, From, Request} = Data,\n check_request(Name, Request),\n erlang:send(Wrapped, {Call, self(), Request}),\n receive\n Msg -> {From, Msg}\n end;\n erl_prim_loader ->\n {From, Request} = Data,\n check_request(Name, Request),\n erlang:send(Wrapped, {self(), Request}),\n receive\n {_, Msg} -> {From, {self(), Msg}}\n end;\n error_logger ->\n %% erlang:send(Wrapped, Data),\n throw(no_reply);\n file_server_2 ->\n {Call, {From, Ref}, Request} = Data,\n check_request(Name, Request),\n erlang:send(Wrapped, {Call, {self(), Ref}, Request}),\n receive\n Msg -> {From, Msg}\n end;\n init ->\n {From, Request} = Data,\n check_request(Name, Request),\n erlang:send(Wrapped, {self(), Request}),\n receive\n Msg -> {From, Msg}\n end;\n logger ->\n throw(no_reply);\n standard_error ->\n #concuerror_info{logger = Logger} = Info,\n {From, Reply, _} = handle_io(Data, {standard_error, Logger}),\n Msg =\n \"Your test sends messages to the 'standard_error' process\"\n \" to write output. Such messages from different processes\"\n \" may race, producing spurious interleavings. Consider\"\n \" using '--non_racing_system standard_error' to avoid\"\n \" them.~n\",\n ?unique(Logger, ?ltip, Msg, []),\n {From, Reply};\n user ->\n #concuerror_info{logger = Logger} = Info,\n {From, Reply, _} = handle_io(Data, {standard_io, Logger}),\n Msg =\n \"Your test sends messages to the 'user' process to write\"\n \" output. Such messages from different processes may race,\"\n \" producing spurious interleavings. Consider using\"\n \" '--non_racing_system user' to avoid them.~n\",\n ?unique(Logger, ?ltip, Msg, []),\n {From, Reply};\n Else ->\n throw({unknown_protocol_for_system, {Else, Data}})\n end,\n Report ! {system_reply, F, Id, R, Name},\n ok\n catch\n no_reply -> send_message_ack(Report, false, false);\n Reason -> ?crash(Reason);\n Class:Reason ->\n ?crash({system_wrapper_error, Name, Class, Reason})\n end;\n {get_info, To} ->\n To ! {info, {Info, get()}},\n ok\n end,\n system_wrapper_loop(Name, Wrapped, Info)\n end.\n\ncheck_request(code_server, get_path) -> ok;\ncheck_request(code_server, {ensure_loaded, _}) -> ok;\ncheck_request(code_server, {is_cached, _}) -> ok;\ncheck_request(code_server, {is_loaded, _}) -> ok;\ncheck_request(erl_prim_loader, {get_file, _}) -> ok;\ncheck_request(erl_prim_loader, {list_dir, _}) -> ok;\ncheck_request(file_server_2, {get_cwd}) -> ok;\ncheck_request(file_server_2, {read_file_info, _}) -> ok;\ncheck_request(init, {get_argument, _}) -> ok;\ncheck_request(init, get_arguments) -> ok;\ncheck_request(Name, Request) ->\n throw({unsupported_request, Name, Request}).\n\nreset_concuerror_info(Info) ->\n {Pid, _} = Info#concuerror_info.notify_when_ready,\n Info#concuerror_info{\n demonitors = [],\n exit_by_signal = false,\n exit_reason = normal,\n flags = #process_flags{},\n message_counter = 1,\n message_queue = queue:new(),\n event = none,\n notify_when_ready = {Pid, true},\n receive_counter = 1,\n ref_queue = new_ref_queue(),\n status = 'running'\n }.\n\n%%------------------------------------------------------------------------------\n\nnew_ref_queue() ->\n {queue:new(), queue:new()}.\n\nreset_ref_queue(#concuerror_info{ref_queue = {_, Stored}}) ->\n {Stored, Stored}.\n\nget_ref(#concuerror_info{ref_queue = {Active, Stored}} = Info) ->\n {Result, NewActive} = queue:out(Active),\n case Result of\n {value, Ref} ->\n {Ref, Info#concuerror_info{ref_queue = {NewActive, Stored}}};\n empty ->\n Ref = make_ref(),\n NewStored = queue:in(Ref, Stored),\n {Ref, Info#concuerror_info{ref_queue = {NewActive, NewStored}}}\n end.\n\nmake_exit_signal(Reason) ->\n make_exit_signal(self(), Reason).\n\nmake_exit_signal(From, Reason) ->\n {'EXIT', From, Reason}.\n\nformat_timer_message(SendAfter, Msg, Ref) ->\n case SendAfter of\n send_after -> Msg;\n start_timer -> {timeout, Ref, Msg}\n end.\n\nmake_message(Info, Type, Data, Recipient) ->\n #concuerror_info{event = #event{label = Label} = Event} = Info,\n {Id, MsgInfo} = get_message_cnt(Info),\n MessageEvent =\n #message_event{\n cause_label = Label,\n message = #message{data = Data, id = Id},\n recipient = Recipient,\n type = Type},\n NewEvent = Event#event{special = [{message, MessageEvent}]},\n MsgInfo#concuerror_info{event = NewEvent}.\n\nget_message_cnt(#concuerror_info{message_counter = Counter} = Info) ->\n {{self(), Counter}, Info#concuerror_info{message_counter = Counter + 1}}.\n\nget_receive_cnt(#concuerror_info{receive_counter = Counter} = Info) ->\n {Counter, Info#concuerror_info{receive_counter = Counter + 1}}.\n\n%%------------------------------------------------------------------------------\n\nadd_location_info(Location, #concuerror_info{event = Event} = Info) ->\n Info#concuerror_info{event = Event#event{location = Location}}.\n\nset_status(#concuerror_info{processes = Processes} = Info, Status) ->\n MaybeDropName =\n case Status =:= exiting of\n true -> [{?process_name, ?process_name_none}];\n false -> []\n end,\n Updates = [{?process_status, Status}|MaybeDropName],\n true = ets:update_element(Processes, self(), Updates),\n Info#concuerror_info{status = Status}.\n\nis_active(#concuerror_info{exit_by_signal = ExitBySignal, status = Status}) ->\n not ExitBySignal andalso is_active(Status);\nis_active(Status) when is_atom(Status) ->\n (Status =:= running) orelse (Status =:= waiting).\n\n-ifdef(BEFORE_OTP_21).\n\nerlang_get_stacktrace() ->\n erlang:get_stacktrace().\n\n-else.\n\nerlang_get_stacktrace() ->\n [].\n\n-endif.\n\nclean_stacktrace(Trace) ->\n [T || T <- Trace, not_concuerror_module(element(1, T))].\n\nnot_concuerror_module(Atom) ->\n case atom_to_list(Atom) of\n \"concuerror\" ++ _ -> false;\n _ -> true\n end.\n\n%%------------------------------------------------------------------------------\n\nhandle_io({io_request, From, ReplyAs, Req}, IOState) ->\n {Reply, NewIOState} = io_request(Req, IOState),\n {From, {io_reply, ReplyAs, Reply}, NewIOState};\nhandle_io(_, _) ->\n throw(no_reply).\n\nio_request({put_chars, Chars}, {Tag, Data} = IOState) ->\n true = is_atom(Tag),\n Logger = Data,\n concuerror_logger:print(Logger, Tag, Chars),\n {ok, IOState};\nio_request({put_chars, M, F, As}, IOState) ->\n try apply(M, F, As) of\n Chars -> io_request({put_chars, Chars}, IOState)\n catch\n _:_ -> {{error, request}, IOState}\n end;\nio_request({put_chars, _Enc, Chars}, IOState) ->\n io_request({put_chars, Chars}, IOState);\nio_request({put_chars, _Enc, Mod, Func, Args}, IOState) ->\n io_request({put_chars, Mod, Func, Args}, IOState);\n%% io_request({get_chars, _Enc, _Prompt, _N}, IOState) ->\n%% {eof, IOState};\n%% io_request({get_chars, _Prompt, _N}, IOState) ->\n%% {eof, IOState};\n%% io_request({get_line, _Prompt}, IOState) ->\n%% {eof, IOState};\n%% io_request({get_line, _Enc, _Prompt}, IOState) ->\n%% {eof, IOState};\n%% io_request({get_until, _Prompt, _M, _F, _As}, IOState) ->\n%% {eof, IOState};\n%% io_request({setopts, _Opts}, IOState) ->\n%% {ok, IOState};\n%% io_request(getopts, IOState) ->\n%% {error, {error, enotsup}, IOState};\n%% io_request({get_geometry,columns}, IOState) ->\n%% {error, {error, enotsup}, IOState};\n%% io_request({get_geometry,rows}, IOState) ->\n%% {error, {error, enotsup}, IOState};\n%% io_request({requests, Reqs}, IOState) ->\n%% io_requests(Reqs, {ok, IOState});\nio_request(_, IOState) ->\n {{error, request}, IOState}.\n\n%% io_requests([R | Rs], {ok, IOState}) ->\n%% io_requests(Rs, io_request(R, IOState));\n%% io_requests(_, Result) ->\n%% Result.\n\n%%------------------------------------------------------------------------------\n\nmsg(demonitored) ->\n \"Concuerror may let exiting processes emit 'DOWN' messages for cancelled\"\n \" monitors. Any such messages are discarded upon delivery and can never be\"\n \" received.~n\";\nmsg(exit_normal_self_abnormal) ->\n \"A process that is not trapping exits (~w) sent a 'normal' exit\"\n \" signal to itself. This shouldn't make it exit, but in the current\"\n \" OTP it does, unless it's trapping exit signals. Concuerror respects the\"\n \" implementation.~n\";\nmsg(limited_halt) ->\n \"A process called erlang:halt/1.\"\n \" Concuerror does not do race analysis for calls to erlang:halt/0,1,2 as\"\n \" such analysis would require reordering such calls with too many other\"\n \" built-in operations.~n\";\nmsg(register_eunit_server) ->\n \"Your test seems to try to set up an EUnit server. This is a bad\"\n \" idea, for at least two reasons:\"\n \" 1) you probably don't want to test all of EUnit's boilerplate\"\n \" code systematically and\"\n \" 2) the default test function generated by EUnit runs all tests,\"\n \" one after another; as a result, systematic testing will have to\"\n \" explore a number of schedulings that is the product of every\"\n \" individual test's schedulings! You should use Concuerror on single tests\"\n \" instead.~n\";\nmsg(signal) ->\n \"An abnormal exit signal killed a process. This is probably the worst\"\n \" thing that can happen race-wise, as any other side-effecting\"\n \" operation races with the arrival of the signal. If the test produces\"\n \" too many interleavings consider refactoring your code.~n\".\n\n%%------------------------------------------------------------------------------\n\n-spec explain_error(term()) -> string().\n\nexplain_error({checking_system_process, Pid}) ->\n io_lib:format(\n \"A process tried to link/monitor/inspect process ~p which was not\"\n \" started by Concuerror and has no suitable wrapper to work with\"\n \" Concuerror.\"\n ?notify_us_msg,\n [Pid]);\nexplain_error(comm_application_controller) ->\n io_lib:format(\n \"Your test communicates with the 'application_controller' process. This\"\n \" is problematic, as this process is not under Concuerror's\"\n \" control. Try to start the test from a top-level\"\n \" supervisor (or even better a top level gen_server) instead.\",\n []\n );\nexplain_error({inconsistent_builtin,\n [Module, Name, Arity, Args, OldResult, NewResult, Location]}) ->\n io_lib:format(\n \"While re-running the program, a call to ~p:~p/~p with\"\n \" arguments:~n ~p~nreturned a different result:~n\"\n \"Earlier result: ~p~n\"\n \" Later result: ~p~n\"\n \"Concuerror cannot explore behaviours that depend on~n\"\n \"data that may differ on separate runs of the program.~n\"\n \"Location: ~p~n\",\n [Module, Name, Arity, Args, OldResult, NewResult, Location]);\nexplain_error({no_response_for_message, Timeout, Recipient}) ->\n io_lib:format(\n \"A process took more than ~pms to send an acknowledgement for a message\"\n \" that was sent to it. (Process: ~p)\"\n ?notify_us_msg,\n [Timeout, Recipient]);\nexplain_error({not_local_node, Node}) ->\n io_lib:format(\n \"A built-in tried to use ~p as a remote node. Concuerror does not support\"\n \" remote nodes.\",\n [Node]);\nexplain_error({process_did_not_respond, Timeout, Actor}) ->\n io_lib:format(\n \"A process (~p) took more than ~pms to report a built-in event. You can try\"\n \" to increase the '--timeout' limit and/or ensure that there are no\"\n \" infinite loops in your test.\",\n [Actor, Timeout]\n );\nexplain_error({registered_process_not_wrapped, Name}) ->\n io_lib:format(\n \"The test tries to communicate with a process registered as '~w' that is\"\n \" not under Concuerror's control.\"\n ?can_fix_msg,\n [Name]);\nexplain_error({restricted_ets_system, NameOrTid, NotAllowed}) ->\n io_lib:format(\n \"A process tried to execute an 'ets:~p' operation on ~p. Only insert and\"\n \" delete write operations are supported for public ETS tables owned by\"\n \" 'system' processes.\"\n ?can_fix_msg,\n [NotAllowed, NameOrTid]);\nexplain_error({system_wrapper_error, Name, Type, Reason}) ->\n io_lib:format(\n \"Concuerror's wrapper for system process ~p crashed (~p):~n\"\n \" Reason: ~p~n\"\n ?notify_us_msg,\n [Name, Type, Reason]);\nexplain_error({unexpected_builtin_change,\n [Module, Name, Arity, Args, M, F, OArgs, Location]}) ->\n io_lib:format(\n \"While re-running the program, a call to ~p:~p/~p with\"\n \" arguments:~n ~p~nwas found instead of the original call~n\"\n \"to ~p:~p/~p with args:~n ~p~n\"\n \"Concuerror cannot explore behaviours that depend on~n\"\n \"data that may differ on separate runs of the program.~n\"\n \"Location: ~p~n\",\n [Module, Name, Arity, Args, M, F, length(OArgs), OArgs, Location]);\nexplain_error({unknown_protocol_for_system, {System, Data}}) ->\n io_lib:format(\n \"A process tried to send a message (~p) to system process ~p. Concuerror\"\n \" does not currently support communication with this process.\"\n ?can_fix_msg,\n [Data, System]);\nexplain_error({unknown_built_in, {Module, Name, Arity, Location}}) ->\n LocationString =\n case Location of\n [Line, {file, File}] -> location(File, Line);\n _ -> \"\"\n end,\n io_lib:format(\n \"Concuerror does not support calls to built-in ~p:~p/~p~s.\"\n ?can_fix_msg,\n [Module, Name, Arity, LocationString]);\nexplain_error({unsupported_request, Name, Type}) ->\n io_lib:format(\n \"A process sent a request of type '~w' to ~p. Concuerror does not yet\"\n \" support this type of request to this process.\"\n ?can_fix_msg,\n [Type, Name]).\n\nlocation(F, L) ->\n Basename = filename:basename(F),\n io_lib:format(\" (found in ~s line ~w)\", [Basename, L]).\n\n%%------------------------------------------------------------------------------\n\n-spec is_unsafe({atom(), atom(), non_neg_integer()}) -> boolean().\n\nis_unsafe({erlang, exit, 2}) ->\n true;\nis_unsafe({erlang, pid_to_list, 1}) ->\n true; %% Instrumented for symbolic PIDs pretty printing.\nis_unsafe({erlang, fun_to_list, 1}) ->\n true; %% Instrumented for fun pretty printing.\nis_unsafe({erlang, F, A}) ->\n case\n (erl_internal:guard_bif(F, A)\n orelse erl_internal:arith_op(F, A)\n orelse erl_internal:bool_op(F, A)\n orelse erl_internal:comp_op(F, A)\n orelse erl_internal:list_op(F, A)\n orelse is_data_type_conversion_op(F))\n of\n true -> false;\n false ->\n StringF = atom_to_list(F),\n not erl_safe(StringF)\n end;\nis_unsafe({erts_internal, garbage_collect, _}) ->\n false;\nis_unsafe({erts_internal, map_next, 3}) ->\n false;\nis_unsafe({Safe, _, _})\n when\n Safe =:= binary\n ; Safe =:= lists\n ; Safe =:= maps\n ; Safe =:= math\n ; Safe =:= re\n ; Safe =:= string\n ; Safe =:= unicode\n ->\n false;\nis_unsafe({error_logger, warning_map, 0}) ->\n false;\nis_unsafe({file, native_name_encoding, 0}) ->\n false;\nis_unsafe({net_kernel, dflag_unicode_io, 1}) ->\n false;\nis_unsafe({os, F, A})\n when\n {F, A} =:= {get_env_var, 1};\n {F, A} =:= {getenv, 1}\n ->\n false;\nis_unsafe({prim_file, internal_name2native, 1}) ->\n false;\nis_unsafe(_) ->\n true.\n\nis_data_type_conversion_op(Name) ->\n StringName = atom_to_list(Name),\n case re:split(StringName, \"_to_\") of\n [_] -> false;\n [_, _] -> true\n end.\n\nerl_safe(\"adler32\" ++ _) -> true;\nerl_safe(\"append\" ++ _) -> true;\nerl_safe(\"apply\" ) -> true;\nerl_safe(\"bump_reductions\" ) -> true;\nerl_safe(\"crc32\" ++ _) -> true;\nerl_safe(\"decode_packet\" ) -> true;\nerl_safe(\"delete_element\" ) -> true;\nerl_safe(\"delete_module\" ) -> true;\nerl_safe(\"dt_\" ++ _) -> true;\nerl_safe(\"error\" ) -> true;\nerl_safe(\"exit\" ) -> true;\nerl_safe(\"external_size\" ) -> true;\nerl_safe(\"fun_info\" ++ _) -> true;\nerl_safe(\"function_exported\" ) -> true;\nerl_safe(\"garbage_collect\" ) -> true;\nerl_safe(\"get_module_info\" ) -> true;\nerl_safe(\"hibernate\" ) -> false; %% Must be instrumented.\nerl_safe(\"insert_element\" ) -> true;\nerl_safe(\"iolist_size\" ) -> true;\nerl_safe(\"is_builtin\" ) -> true;\nerl_safe(\"load_nif\" ) -> true;\nerl_safe(\"make_fun\" ) -> true;\nerl_safe(\"make_tuple\" ) -> true;\nerl_safe(\"match_spec_test\" ) -> true;\nerl_safe(\"md5\" ++ _) -> true;\nerl_safe(\"nif_error\" ) -> true;\nerl_safe(\"phash\" ++ _) -> true;\nerl_safe(\"raise\" ) -> true;\nerl_safe(\"seq_\" ++ _) -> true;\nerl_safe(\"setelement\" ) -> true;\nerl_safe(\"split_binary\" ) -> true;\nerl_safe(\"subtract\" ) -> true;\nerl_safe(\"throw\" ) -> true;\nerl_safe( _) -> false.\n" }, { "path": "src/concuerror_dependencies.erl", "content": "%%% @private\n-module(concuerror_dependencies).\n\n-export([dependent/3, dependent_safe/2, explain_error/1]).\n\n-export_type([assume_racing_opt/0]).\n\n%%------------------------------------------------------------------------------\n\n-include(\"concuerror.hrl\").\n\n-type assume_racing_opt() :: {boolean(), concuerror_logger:logger() | 'ignore'}.\n\n%%------------------------------------------------------------------------------\n\n-type dep_ret() :: boolean() | 'irreversible' | {'true', message_id()}.\n\n-spec dependent_safe(event(), event()) -> dep_ret().\n\ndependent_safe(E1, E2) ->\n dependent(E1, E2, {true, ignore}).\n\n-spec dependent(event(), event(), assume_racing_opt()) -> dep_ret().\n\ndependent(#event{actor = A}, #event{actor = A}, _) ->\n irreversible;\ndependent(#event{event_info = Info1, special = Special1},\n #event{event_info = Info2, special = Special2},\n AssumeRacing) ->\n try\n case dependent(Info1, Info2) of\n false ->\n M1 = [M || {message_delivered, M} <- Special1],\n M2 = [M || {message_delivered, M} <- Special2],\n first_non_false_dep([Info1|M1], M2, [Info2|M2]);\n Else -> Else\n end\n catch\n throw:irreversible -> irreversible;\n error:function_clause ->\n case AssumeRacing of\n {true, ignore} -> true;\n {true, Logger} ->\n Explanation = show_undefined_dependency(Info1, Info2),\n Msg =\n io_lib:format(\n \"~s~n\"\n \" Concuerror treats such pairs as racing (--assume_racing).\"\n \" (No other such warnings will appear)~n\", [Explanation]),\n ?unique(Logger, ?lwarning, Msg, []),\n true;\n {false, _} ->\n ?crash({undefined_dependency, Info1, Info2, []})\n end\n end.\n\nfirst_non_false_dep([], _, _) -> false;\nfirst_non_false_dep([_|R], [], I2) ->\n first_non_false_dep(R, I2, I2);\nfirst_non_false_dep([I1H|_] = I1, [I2H|R], I2) ->\n case dependent(I1H, I2H) of\n false -> first_non_false_dep(I1, R, I2);\n Else -> Else\n end.\n\n%% The first event happens before the second.\n\ndependent(_, #builtin_event{mfargs = {erlang, halt, _}}) ->\n false;\n\ndependent(#builtin_event{status = {crashed, _}},\n #builtin_event{status = {crashed, _}}) ->\n false;\n\ndependent(#builtin_event{mfargs = MFArgs, extra = Extra},\n #exit_event{} = Exit) ->\n dependent_exit(Exit, MFArgs, Extra);\ndependent(#exit_event{} = Exit, #builtin_event{} = Builtin) ->\n dependent(Builtin, Exit);\n\ndependent(#builtin_event{mfargs = {erlang, process_info, _}} = PInfo, B) ->\n dependent_process_info(PInfo, B);\ndependent(B, #builtin_event{mfargs = {erlang, process_info, _}} = PInfo) ->\n dependent_process_info(PInfo, B);\n\ndependent(#builtin_event{} = BI1, #builtin_event{} = BI2) ->\n dependent_built_in(BI1, BI2);\n\ndependent(#builtin_event{actor = Recipient, exiting = false,\n trapping = Trapping} = Builtin,\n #message_event{message = #message{data = Signal},\n recipient = Recipient, type = exit_signal}) ->\n #builtin_event{mfargs = MFArgs, result = Old} = Builtin,\n Signal =:= kill\n orelse\n case MFArgs of\n {erlang,process_flag,[trap_exit,New]} when New =/= Old -> true;\n _ ->\n {'EXIT', _, Reason} = Signal,\n not Trapping andalso Reason =/= normal\n end;\ndependent(#builtin_event{actor = Recipient,\n mfargs = {erlang, demonitor, [R|Rest]}\n },\n #message_event{message = #message{data = {'DOWN', R, _, _, _}},\n recipient = Recipient, type = message}) ->\n Options = case Rest of [] -> []; [O] -> O end,\n try\n [] = [O || O <- Options, O =/= flush, O =/= info],\n {lists:member(flush, Options), lists:member(info, Options)}\n of\n {true, false} -> false; %% Message will be discarded either way\n {true, true} -> true; %% Result is affected by the message being flushed\n {false, _} -> true %% Message is discarded upon delivery or not\n catch\n _:_ -> false\n end;\ndependent(#builtin_event{}, #message_event{}) ->\n false;\ndependent(#message_event{} = Message,\n #builtin_event{} = Builtin) ->\n dependent(Builtin, Message);\n\ndependent(#exit_event{\n actor = Recipient,\n exit_by_signal = ExitBySignal,\n last_status = LastStatus,\n trapping = Trapping},\n #message_event{\n killing = Killing,\n message = #message{data = Signal},\n recipient = Recipient,\n type = exit_signal}) ->\n case Killing andalso ExitBySignal of\n true ->\n case LastStatus =:= running of\n false -> throw(irreversible);\n true -> true\n end;\n false ->\n case ExitBySignal of\n true -> false;\n false ->\n case Signal of\n kill -> true;\n {'EXIT', _, Reason} ->\n not Trapping andalso Reason =/= normal\n end\n end\n end;\ndependent(#message_event{} = Message, #exit_event{} = Exit) ->\n dependent(Exit, Message);\n\ndependent(#exit_event{}, #exit_event{}) ->\n false;\n\ndependent(#message_event{\n killing = Killing1,\n message = #message{id = Id, data = EarlyData},\n receive_info = EarlyInfo,\n recipient = Recipient,\n trapping = Trapping,\n type = EarlyType},\n #message_event{\n killing = Killing2,\n message = #message{data = Data},\n receive_info = LateInfo,\n recipient = Recipient,\n type = Type\n }) ->\n KindFun =\n fun(exit_signal, _, kill) -> exit_signal;\n (exit_signal, true, _) -> message;\n ( message, _, _) -> message;\n (exit_signal, _, _) -> exit_signal\n end,\n case {KindFun(EarlyType, Trapping, EarlyData),\n KindFun(Type, Trapping, Data)} of\n {message, message} ->\n case EarlyInfo of\n undefined -> true;\n not_received -> false;\n {Counter1, Patterns} ->\n ObsDep =\n Patterns(Data) andalso\n case LateInfo of\n {Counter2, _} -> Counter2 >= Counter1;\n not_received -> true;\n undefined -> false\n end,\n case ObsDep of\n true -> {true, Id};\n false -> false\n end\n end;\n {_, _} -> Killing1 orelse Killing2 %% This is an ugly hack, see blame.\n end;\n\ndependent(#message_event{\n message = #message{data = Data, id = MsgId},\n recipient = Recipient,\n type = Type\n },\n #receive_event{\n message = Recv,\n receive_info = {_, Patterns},\n recipient = Recipient,\n timeout = Timeout,\n trapping = Trapping\n }) ->\n EffType =\n case {Type, Trapping, Data} of\n {exit_signal, _, kill} -> exit_signal;\n {exit_signal, true, _} -> message;\n { message, _, _} -> message;\n _ -> exit_signal\n end,\n case EffType =:= exit_signal of\n true ->\n case Data of\n kill -> true;\n {'EXIT', _, Reason} ->\n not Trapping andalso Reason =/= normal\n end;\n false ->\n case Recv of\n 'after' ->\n %% Can only happen during wakeup (otherwise an actually\n %% delivered msg would be received)\n message_could_match(Patterns, Data, Trapping, Type);\n #message{id = RecId} ->\n %% Race exactly with the delivery of the received\n %% message\n MsgId =:= RecId andalso\n case Timeout =/= infinity of\n true -> true;\n false -> throw(irreversible)\n end\n end\n end;\ndependent(#receive_event{\n message = 'after',\n receive_info = {RecCounter, Patterns},\n recipient = Recipient,\n trapping = Trapping},\n #message_event{\n message = #message{data = Data},\n receive_info = LateInfo,\n recipient = Recipient,\n type = Type\n }) ->\n case LateInfo of\n {Counter, _} ->\n %% The message might have been discarded before the receive.\n Counter >= RecCounter;\n _ -> true\n end\n andalso\n message_could_match(Patterns, Data, Trapping, Type);\ndependent(#receive_event{\n recipient = Recipient,\n trapping = Trapping},\n #message_event{\n message = #message{data = Signal},\n recipient = Recipient,\n type = exit_signal\n }) ->\n case Signal of\n kill -> true;\n {'EXIT', _, Reason} ->\n not Trapping andalso Reason =/= normal\n end;\n\ndependent(#message_event{}, _EventB) ->\n false;\ndependent(_EventA, #message_event{}) ->\n false;\n\ndependent(#receive_event{}, _EventB) ->\n false;\ndependent(_EventA, #receive_event{}) ->\n false.\n\n%%------------------------------------------------------------------------------\n\ndependent_exit(#exit_event{actor = Exiting, name = Name},\n {erlang,UnRegisterOp,[RName|Rest]}, Extra)\n when UnRegisterOp =:= register;\n UnRegisterOp =:= unregister ->\n RName =:= Name orelse\n case UnRegisterOp of\n unregister ->\n Extra =:= Exiting;\n register ->\n [Pid] = Rest,\n Exiting =:= Pid\n end;\ndependent_exit(Exit, MFArgs, _Extra) ->\n dependent_exit(Exit, MFArgs).\n\n dependent_exit(_Exit, {erlang, A, _})\n when\n false\n ;A =:= date\n ;A =:= exit\n ;A =:= get_stacktrace\n ;A =:= make_ref\n ;A =:= module_loaded\n ;A =:= monotonic_time\n ;A =:= now\n ;A =:= process_flag\n ;A =:= send_after\n ;A =:= spawn\n ;A =:= spawn_link\n ;A =:= spawn_opt\n ;A =:= start_timer\n ;A =:= system_time\n ;A =:= time\n ;A =:= time_offset\n ;A =:= timestamp\n ;A =:= unique_integer\n ->\n false;\ndependent_exit(_Exit, {os, Name, []})\n when\n false\n ;Name =:= system_time\n ;Name =:= timestamp\n ->\n false;\ndependent_exit(_Exit, {os, Name, [_]})\n when\n false\n ;Name =:= system_time\n ->\n false;\ndependent_exit(_Exit, {persistent_term, _, _}) ->\n false;\ndependent_exit(#exit_event{},\n {_, group_leader, []}) ->\n false;\ndependent_exit(#exit_event{actor = Exiting},\n {_, group_leader, [Leader, Leaded]}) ->\n Exiting =:= Leader orelse Exiting =:= Leaded;\ndependent_exit(#exit_event{actor = Actor}, {erlang, processes, []}) ->\n is_pid(Actor);\ndependent_exit(#exit_event{actor = Cancelled},\n {erlang, ReadorCancelTimer, [Timer]})\n when ReadorCancelTimer =:= read_timer; ReadorCancelTimer =:= cancel_timer ->\n Cancelled =:= Timer;\ndependent_exit(#exit_event{actor = Exiting},\n {erlang, is_process_alive, [Pid]}) ->\n Exiting =:= Pid;\ndependent_exit(#exit_event{actor = Exiting},\n {erlang, process_info, [Pid|_]}) ->\n Exiting =:= Pid;\ndependent_exit(#exit_event{actor = Exiting}, {erlang, UnLink, [Linked]})\n when UnLink =:= link; UnLink =:= unlink ->\n Exiting =:= Linked;\ndependent_exit(#exit_event{monitors = Monitors},\n {erlang, demonitor, [Ref|Rest]}) ->\n Options = case Rest of [] -> []; [O] -> O end,\n try\n [] = [O || O <- Options, O =/= flush, O =/= info],\n {lists:member(flush, Options), lists:member(info, Options)}\n of\n {false, true} ->\n %% Result is whether monitor has been emitted\n false =/= lists:keyfind(Ref, 1, Monitors);\n {_, _} -> false\n catch\n _:_ -> false\n end;\ndependent_exit(#exit_event{actor = Exiting, name = Name},\n {erlang, monitor, [process, PidOrName]}) ->\n Exiting =:= PidOrName orelse Name =:= PidOrName;\ndependent_exit(#exit_event{name = Name}, {erlang, NameRelated, [OName|_]})\n when\n NameRelated =:= '!';\n NameRelated =:= send;\n NameRelated =:= whereis ->\n OName =:= Name;\ndependent_exit(#exit_event{actor = Exiting}, {ets, give_away, [_, Pid, _]}) ->\n Exiting =:= Pid;\ndependent_exit(_Exit, {ets, _, _}) ->\n false.\n\n%%------------------------------------------------------------------------------\n\ndependent_process_info(#builtin_event{mfargs = {M,F,[Pid, List]}} = ProcessInfo,\n Other)\n when is_list(List) ->\n Pred =\n fun(Item) ->\n ItemInfo = ProcessInfo#builtin_event{mfargs = {M,F,[Pid,Item]}},\n dependent_process_info(ItemInfo, Other)\n end,\n lists:any(Pred, List);\ndependent_process_info(#builtin_event{mfargs = {_,_,[Pid, group_leader]}},\n Other) ->\n case Other of\n #builtin_event{mfargs = {_,group_leader,[_, Pid]}} -> true;\n _ -> false\n end;\ndependent_process_info(#builtin_event{mfargs = {_,_,[Pid, links]}},\n Other) ->\n case Other of\n #builtin_event{\n actor = Pid,\n mfargs = {erlang, UnLink, _}\n } when UnLink =:= link; UnLink =:= unlink -> true;\n #builtin_event{mfargs = {erlang, UnLink, [Pid]}}\n when UnLink =:= link; UnLink =:= unlink -> true;\n _ -> false\n end;\ndependent_process_info(#builtin_event{mfargs = {_,_,[Pid, message_queue_len]}},\n Other) ->\n case Other of\n #message_event{recipient = Recipient} ->\n Recipient =:= Pid;\n #receive_event{recipient = Recipient, message = M} ->\n Recipient =:= Pid andalso M =/= 'after';\n #builtin_event{actor = Recipient, mfargs = {M, F, [_, Args]}} ->\n Recipient =:= Pid andalso\n {M, F} =:= {erlang, demonitor} andalso\n try lists:member(flush, Args) catch _:_ -> false end;\n _ -> false\n end;\ndependent_process_info(#builtin_event{mfargs = {_, _, [Pid, registered_name]}},\n Other) ->\n case Other of\n #builtin_event{extra = E, mfargs = {Module, Name, Args}} ->\n case Module =:= erlang of\n true when Name =:= register ->\n [_, RPid] = Args,\n Pid =:= RPid;\n true when Name =:= unregister ->\n E =:= Pid;\n _ -> false\n end;\n _ -> false\n end;\ndependent_process_info(#builtin_event{mfargs = {_,_,[Pid, trap_exit]}},\n Other) ->\n case Other of\n #builtin_event{\n actor = Pid,\n mfargs = {erlang, process_flag, [trap_exit, _]}} -> true;\n _ -> false\n end;\ndependent_process_info(#builtin_event{mfargs = {_,_,[_, Safe]}},\n _) when\n Safe =:= current_function;\n Safe =:= current_stacktrace;\n Safe =:= dictionary;\n Safe =:= heap_size;\n Safe =:= messages; %% If fixed, it should be an observer of message races\n Safe =:= reductions;\n Safe =:= stack_size;\n Safe =:= status\n ->\n false.\n\n%%------------------------------------------------------------------------------\n\ndependent_built_in(#builtin_event{mfargs = {_,group_leader,ArgsA}} = A,\n #builtin_event{mfargs = {_,group_leader,ArgsB}} = B) ->\n case {ArgsA, ArgsB} of\n {[], []} -> false;\n {[New, For], []} ->\n #builtin_event{actor = Actor, result = Result} = B,\n New =/= Result andalso Actor =:= For;\n {[], [_,_]} -> dependent_built_in(B, A);\n {[_, ForA], [_, ForB]} ->\n ForA =:= ForB\n end;\n\ndependent_built_in(#builtin_event{actor = A, mfargs = {erlang, Spawn, _}},\n #builtin_event{mfargs = {_, group_leader, [_, Leaded]}})\n when\n Spawn =:= spawn;\n Spawn =:= spawn_link;\n Spawn =:= spawn_opt ->\n Leaded =:= A;\ndependent_built_in(#builtin_event{mfargs = {_, group_leader, [_, Leaded]}},\n #builtin_event{actor = A, mfargs = {erlang, Spawn, _}})\n when\n Spawn =:= spawn;\n Spawn =:= spawn_link;\n Spawn =:= spawn_opt ->\n Leaded =:= A;\n\ndependent_built_in(#builtin_event{mfargs = {_, group_leader, _}},\n #builtin_event{}) ->\n false;\ndependent_built_in(#builtin_event{},\n #builtin_event{mfargs = {_, group_leader, _}}) ->\n false;\n\ndependent_built_in(#builtin_event{mfargs = {erlang, processes, []}},\n #builtin_event{mfargs = {erlang, Spawn, _}})\n when\n Spawn =:= spawn;\n Spawn =:= spawn_link;\n Spawn =:= spawn_opt ->\n true;\ndependent_built_in(#builtin_event{mfargs = {erlang, Spawn, _}},\n #builtin_event{mfargs = {erlang, processes, []}})\n when\n Spawn =:= spawn;\n Spawn =:= spawn_link;\n Spawn =:= spawn_opt ->\n true;\n\ndependent_built_in(#builtin_event{mfargs = {erlang, A, _}},\n #builtin_event{mfargs = {erlang, B, _}})\n when (A =:= '!' orelse A =:= send orelse A =:= whereis orelse\n A =:= process_flag orelse A =:= link orelse A =:= unlink),\n (B =:= '!' orelse B =:= send orelse B =:= whereis orelse\n B =:= process_flag orelse B =:= link orelse B =:= unlink) ->\n false;\n\ndependent_built_in(#builtin_event{mfargs = {erlang,UnRegisterA,[AName|ARest]}},\n #builtin_event{mfargs = {erlang,UnRegisterB,[BName|BRest]}})\n when (UnRegisterA =:= register orelse UnRegisterA =:= unregister),\n (UnRegisterB =:= register orelse UnRegisterB =:= unregister) ->\n AName =:= BName\n orelse\n (ARest =/= [] andalso ARest =:= BRest);\n\ndependent_built_in(#builtin_event{mfargs = {erlang,SendOrWhereis,[SName|_]}},\n #builtin_event{mfargs = {erlang,UnRegisterOp,[RName|_]}})\n when (UnRegisterOp =:= register orelse UnRegisterOp =:= unregister),\n (SendOrWhereis =:= '!' orelse SendOrWhereis =:= send orelse\n SendOrWhereis =:= whereis) ->\n SName =:= RName;\ndependent_built_in(#builtin_event{mfargs = {erlang,UnRegisterOp,_}} = R,\n #builtin_event{mfargs = {erlang,SendOrWhereis,_}} = S)\n when (UnRegisterOp =:= register orelse UnRegisterOp =:= unregister),\n (SendOrWhereis =:= '!' orelse SendOrWhereis =:= send orelse\n SendOrWhereis =:= whereis) ->\n dependent_built_in(S, R);\n\ndependent_built_in(#builtin_event{mfargs = {erlang,monitor,[process,SName]}},\n #builtin_event{mfargs = {erlang,UnRegisterOp,[RName|_]}})\n when (UnRegisterOp =:= register orelse UnRegisterOp =:= unregister) ->\n SName =:= RName;\ndependent_built_in(#builtin_event{mfargs = {erlang,UnRegisterOp,_}} = R,\n #builtin_event{mfargs = {erlang,monitor,_}} = S)\n when (UnRegisterOp =:= register orelse UnRegisterOp =:= unregister) ->\n dependent_built_in(S, R);\n\ndependent_built_in(#builtin_event{mfargs = {erlang,RegistryOp,_}},\n #builtin_event{mfargs = {erlang,LinkOp,_}})\n when (RegistryOp =:= register orelse\n RegistryOp =:= unregister orelse\n RegistryOp =:= whereis),\n (LinkOp =:= link orelse\n LinkOp =:= unlink) ->\n false;\ndependent_built_in(#builtin_event{mfargs = {erlang,LinkOp,_}} = L,\n #builtin_event{mfargs = {erlang,RegistryOp,_}} = R)\n when (RegistryOp =:= register orelse\n RegistryOp =:= unregister orelse\n RegistryOp =:= whereis),\n (LinkOp =:= link orelse\n LinkOp =:= unlink) ->\n dependent_built_in(R, L);\n\ndependent_built_in(#builtin_event{mfargs = {erlang,ReadorCancelTimerA,[TimerA]}},\n #builtin_event{mfargs = {erlang,ReadorCancelTimerB,[TimerB]}})\n when (ReadorCancelTimerA =:= read_timer orelse\n ReadorCancelTimerA =:= cancel_timer),\n (ReadorCancelTimerB =:= read_timer orelse\n ReadorCancelTimerB =:= cancel_timer),\n (ReadorCancelTimerA =:= cancel_timer orelse\n ReadorCancelTimerB =:= cancel_timer)\n ->\n TimerA =:= TimerB;\n\ndependent_built_in(#builtin_event{mfargs = {erlang,send,_}, extra = Extra},\n #builtin_event{mfargs = {erlang,ReadorCancelTimer,[Timer]}})\n when is_reference(Extra),\n (ReadorCancelTimer =:= read_timer orelse\n ReadorCancelTimer =:= cancel_timer) ->\n Extra =:= Timer;\ndependent_built_in(#builtin_event{mfargs = {erlang,ReadorCancelTimer,_}} = Timer,\n #builtin_event{mfargs = {erlang,send,_}} = Deliver)\n when ReadorCancelTimer =:= read_timer;\n ReadorCancelTimer =:= cancel_timer ->\n dependent_built_in(Deliver, Timer);\n\ndependent_built_in(#builtin_event{mfargs = {erlang,ReadorCancelTimer,_}},\n #builtin_event{})\n when ReadorCancelTimer =:= read_timer;\n ReadorCancelTimer =:= cancel_timer ->\n false;\ndependent_built_in(#builtin_event{},\n #builtin_event{mfargs = {erlang,ReadorCancelTimer,_}})\n when ReadorCancelTimer =:= read_timer;\n ReadorCancelTimer =:= cancel_timer ->\n false;\n\ndependent_built_in(#builtin_event{mfargs = {erlang, monotonic_time, _}},\n #builtin_event{mfargs = {erlang, monotonic_time, _}}) ->\n true;\n\ndependent_built_in(#builtin_event{mfargs = {erlang, _, _}},\n #builtin_event{mfargs = {ets, _, _}}) ->\n false;\ndependent_built_in(#builtin_event{mfargs = {ets, _, _}} = Ets,\n #builtin_event{mfargs = {erlang, _, _}} = Erlang) ->\n dependent_built_in(Erlang, Ets);\n\ndependent_built_in(#builtin_event{mfargs = {persistent_term, Name1, Args1}},\n #builtin_event{mfargs = {persistent_term, Name2, Args2}}) ->\n case {Name1, Name2, Args1, Args2} of\n {get, get, _, _} -> false;\n {Mod, _, [K|_], [K|_]} when Mod =:= put; Mod =:= erase -> true;\n {_, Mod, [K|_], [K|_]} when Mod =:= put; Mod =:= erase -> true;\n _ -> false\n end;\ndependent_built_in(#builtin_event{mfargs = {persistent_term, _, _}},\n #builtin_event{}) ->\n false;\ndependent_built_in(#builtin_event{},\n #builtin_event{mfargs = {persistent_term, _, _}}) ->\n false;\ndependent_built_in(#builtin_event{mfargs = {os, Name, []}},\n #builtin_event{})\n when\n false\n ;Name =:= system_time\n ;Name =:= timestamp\n ->\n false;\ndependent_built_in(#builtin_event{mfargs = {os, Name, [_]}},\n #builtin_event{})\n when\n false\n ;Name =:= system_time\n ->\n false;\ndependent_built_in(#builtin_event{} = Other,\n #builtin_event{mfargs = {os, _, _}} = OsOp) ->\n dependent_built_in(OsOp, Other);\n\ndependent_built_in(#builtin_event{mfargs = {MaybeErlangA, A, _}},\n #builtin_event{mfargs = {MaybeErlangB, B, _}})\n when\n MaybeErlangA =:= erlang;\n MaybeErlangB =:= erlang\n ->\n MaybeSafeErlangA = MaybeErlangA =:= erlang andalso safe_erlang(A),\n MaybeSafeErlangB = MaybeErlangB =:= erlang andalso safe_erlang(B),\n case {MaybeSafeErlangA, MaybeSafeErlangB} of\n {true, _} -> false;\n {_, true} -> false;\n {_, _} -> error(function_clause)\n end;\n\n%%------------------------------------------------------------------------------\n\ndependent_built_in(#builtin_event{mfargs = {ets, rename, [TableA, NameA]}\n , extra = IdA},\n #builtin_event{mfargs = {ets, AnyB, [TableB|ArgB]}\n , extra = IdB}) ->\n ets_same_table(TableA, IdA, TableB, IdB) orelse\n ets_same_table(NameA, IdA, TableB, IdB) orelse\n TableA =:= TableB orelse\n (AnyB =:= rename andalso ArgB =:= [NameA]);\ndependent_built_in(#builtin_event{mfargs = {ets, _Any, _}} = EventA,\n #builtin_event{mfargs = {ets, rename, _}} = EventB) ->\n dependent_built_in(EventB, EventA);\n\ndependent_built_in(#builtin_event{mfargs = {ets, delete, [TableA]}\n , extra = IdA},\n #builtin_event{mfargs = {ets, _Any, [TableB|_]}\n , extra = IdB}) ->\n ets_same_table(TableA, IdA, TableB, IdB);\ndependent_built_in(#builtin_event{mfargs = {ets, _Any, _}} = EventA,\n #builtin_event{mfargs = {ets, delete, [_]}} = EventB) ->\n dependent_built_in(EventB, EventA);\n\ndependent_built_in(#builtin_event{mfargs = {ets, new, [TableA|_]}\n , extra = IdA},\n #builtin_event{mfargs = {ets, _Any, [TableB|_]}\n , extra = IdB}) ->\n ets_same_table(TableA, IdA, TableB, IdB);\ndependent_built_in(#builtin_event{mfargs = {ets, _Any, _}} = EventA,\n #builtin_event{mfargs = {ets, new, _}} = EventB) ->\n dependent_built_in(EventB, EventA);\n\ndependent_built_in(#builtin_event{ mfargs = {ets, _, [TableA|_]}\n , extra = IdA} = EventA,\n #builtin_event{ mfargs = {ets, _, [TableB|_]}\n , extra = IdB} = EventB) ->\n ets_same_table(TableA, IdA, TableB, IdB)\n andalso\n case ets_is_mutating(EventA) of\n false ->\n case ets_is_mutating(EventB) of\n false -> false;\n Pred -> Pred(EventA)\n end;\n Pred -> Pred(EventB)\n end.\n\n%%------------------------------------------------------------------------------\n\nsafe_erlang(A)\n when\n false\n ;A =:= date\n ;A =:= demonitor %% Depends only with an exit event or proc_info\n ;A =:= exit %% Sending an exit signal (dependencies are on delivery)\n ;A =:= get_stacktrace %% Depends with nothing\n ;A =:= is_process_alive %% Depends only with an exit event\n ;A =:= make_ref %% Depends with nothing\n ;A =:= module_loaded\n ;A =:= monitor %% Depends only with an exit event or proc_info\n ;A =:= monotonic_time\n ;A =:= now\n ;A =:= process_flag %% Depends only with delivery of a signal\n ;A =:= processes %% Depends only with spawn and exit\n ;A =:= send_after\n ;A =:= spawn %% Depends only with processes/0\n ;A =:= spawn_link %% Depends only with processes/0\n ;A =:= spawn_opt %% Depends only with processes/0\n ;A =:= start_timer\n ;A =:= system_time\n ;A =:= time\n ;A =:= time_offset\n ;A =:= timestamp\n ;A =:= unique_integer\n ->\n true;\nsafe_erlang(_) ->\n false.\n\n%%------------------------------------------------------------------------------\n\nmessage_could_match(Patterns, Data, Trapping, Type) ->\n Patterns(Data)\n andalso\n ((Trapping andalso Data =/= kill) orelse (Type =:= message)).\n\n%%------------------------------------------------------------------------------\n\nets_same_table(TableA, IdA, TableB, IdB) ->\n ets_same_table(IdA, TableB) orelse ets_same_table(IdB, TableA).\n\nets_same_table(undefined, _Arg) ->\n false;\nets_same_table({Tid, Name}, Arg) ->\n case is_atom(Arg) of\n true -> Name =:= Arg;\n false -> Tid =:= Arg\n end.\n\n-define(deps_with_any,fun(_) -> true end).\n\nets_is_mutating(#builtin_event{ status = {crashed, _}}) ->\n false;\nets_is_mutating(#builtin_event{ mfargs = {_, Op, [_|Rest] = Args}\n , extra = {Tid, _}} = Event) ->\n case {Op, length(Args)} of\n {delete, 2} -> with_key(hd(Rest));\n {delete_object, 2} -> from_insert(Tid, hd(Rest), true);\n {DelAll, N}\n when\n {DelAll, N} =:= {delete_all_objects, 1};\n {DelAll, N} =:= {internal_delete_all, 2} ->\n ?deps_with_any;\n {first, _} -> false;\n {give_away, _} -> ?deps_with_any;\n {info, _} -> false;\n {insert, _} -> from_insert(Tid, hd(Rest), false);\n {insert_new, _} when Event#builtin_event.result ->\n from_insert(Tid, hd(Rest), true);\n {insert_new, _} -> false;\n {lookup, _} -> false;\n {lookup_element, _} -> false;\n {match, _} -> false;\n {match_object, _} -> false;\n {member, _} -> false;\n {next, _} -> false;\n {select, _} -> false;\n {SelDelete, 2}\n when\n SelDelete =:= select_delete;\n SelDelete =:= internal_select_delete ->\n from_delete(hd(Rest));\n {update_counter, 3} -> with_key(hd(Rest));\n {update_element, 3} -> with_key(hd(Rest));\n {whereis, 1} -> false\n end.\n\nwith_key(Key) ->\n fun(Event) ->\n Keys = ets_reads_keys(Event),\n case Keys =:= any of\n true -> true;\n false -> lists:any(fun(K) -> K =:= Key end, Keys)\n end\n end.\n\nets_reads_keys(Event) ->\n case keys_or_tuples(Event) of\n any -> any;\n none -> [];\n {matchspec, _MS} -> any; % can't test the matchspec against a single key\n {keys, Keys} -> Keys;\n {tuples, Tuples} ->\n #builtin_event{extra = {Tid, _}} = Event,\n KeyPos = ets:info(Tid, keypos),\n [element(KeyPos, Tuple) || Tuple <- Tuples]\n end.\n\nkeys_or_tuples(#builtin_event{mfargs = {_, Op, [_|Rest] = Args}}) ->\n case {Op, length(Args)} of\n {delete, 2} -> {keys, [hd(Rest)]};\n {DelAll, N}\n when\n {DelAll, N} =:= {delete_all_objects, 1};\n {DelAll, N} =:= {internal_delete_all, 2} ->\n any;\n {delete_object, 2} -> {tuples, [hd(Rest)]};\n {first, _} -> any;\n {give_away, _} -> any;\n {info, _} -> any;\n {Insert, _}\n when\n Insert =:= insert;\n Insert =:= insert_new ->\n Inserted = hd(Rest),\n {tuples,\n case is_list(Inserted) of\n true -> Inserted;\n false -> [Inserted]\n end};\n {lookup, _} -> {keys, [hd(Rest)]};\n {lookup_element, _} -> {keys, [hd(Rest)]};\n {match, _} -> {matchspec, [{hd(Rest), [], ['$$']}]};\n {match_object, _} -> {matchspec, [{hd(Rest), [], ['$_']}]};\n {member, _} -> {keys, [hd(Rest)]};\n {next, _} -> any;\n {select, _} -> {matchspec, hd(Rest)};\n {SelDelete, 2}\n when\n SelDelete =:= select_delete;\n SelDelete =:= internal_select_delete ->\n {matchspec, hd(Rest)};\n {update_counter, 3} -> {keys, [hd(Rest)]};\n {update_element, 3} -> {keys, [hd(Rest)]};\n {whereis, 1} -> none\n end.\n\nfrom_insert(undefined, _, _) ->\n %% If table is undefined the op crashed so not mutating\n false;\nfrom_insert(Table, Insert, InsertNewOrDelete) ->\n KeyPos = ets:info(Table, keypos),\n InsertList = case is_list(Insert) of true -> Insert; false -> [Insert] end,\n fun(Event) ->\n case keys_or_tuples(Event) of\n any -> true;\n none -> false;\n {keys, Keys} ->\n InsertKeys =\n ordsets:from_list([element(KeyPos, T) || T <- InsertList]),\n lists:any(fun(K) -> ordsets:is_element(K, InsertKeys) end, Keys);\n {tuples, Tuples} ->\n Pred =\n fun(Tuple) ->\n case lists:keyfind(element(KeyPos, Tuple), KeyPos, InsertList) of\n false -> false;\n InsertTuple -> InsertNewOrDelete orelse Tuple =/= InsertTuple\n end\n end,\n lists:any(Pred, Tuples);\n {matchspec, MS} ->\n Pred =\n fun (Tuple) ->\n case erlang:match_spec_test(Tuple, MS, table) of\n {error, _} -> false;\n {ok, Result, [], _Warnings} -> Result =/= false\n end\n end,\n lists:any(Pred, InsertList)\n end\n end.\n\nfrom_delete(MatchSpec) ->\n fun (Event) ->\n case keys_or_tuples(Event) of\n any -> true;\n none -> false;\n {keys, _Keys} -> true;\n {matchspec, _MS} -> true;\n {tuples, Tuples} ->\n Pred =\n fun (Tuple) ->\n case erlang:match_spec_test(Tuple, MatchSpec, table) of\n {error, _} -> false;\n {ok, Result, [], _Warnings} -> Result =:= true\n end\n end,\n lists:any(Pred, Tuples)\n end\n end.\n\n\n%%------------------------------------------------------------------------------\n\n-spec explain_error(term()) -> string().\n\nexplain_error({undefined_dependency, A, B, C}) ->\n Message = show_undefined_dependency(A, B),\n io_lib:format(\n \"~s~n\"\n \" You can run without '--assume_racing false' to treat them as racing.~n\"\n \" ~p~n\",\n [Message, C]).\n\nshow_undefined_dependency(A, B) ->\n io_lib:format(\n \"The following pair of instructions is not explicitly marked as non-racing\"\n \" in Concuerror's internals:~n\"\n \" 1) ~s~n 2) ~s~n\"\n \" Please notify the developers to add info about this pair.\",\n [concuerror_io_lib:pretty_s(#event{event_info = I}, 10) || I <- [A,B]]).\n" }, { "path": "src/concuerror_estimator.erl", "content": "%%% @private\n%%% @doc\n%%% The estimator process is being updated by the scheduler and polled\n%%% independently by the logger. It stores a lightweight\n%%% representation/summarry of the exploration tree and uses it to\n%%% give an estimation of the total size.\n\n-module(concuerror_estimator).\n\n-behaviour(gen_server).\n\n%% API\n-export([start_link/1, stop/1, restart/2, plan/2, get_estimation/1]).\n\n%% gen_server callbacks\n-export([init/1, handle_call/3, handle_cast/2, handle_info/2,\n terminate/2, code_change/3]).\n\n%%------------------------------------------------------------------------------\n\n-export_type([estimator/0, estimation/0]).\n\n-type estimator() :: pid() | 'none'.\n-type estimation() :: pos_integer() | 'unknown'.\n\n-type average() :: concuerror_window_average:average().\n\n%%------------------------------------------------------------------------------\n\n-define(SERVER, ?MODULE).\n\n%%------------------------------------------------------------------------------\n\n-include(\"concuerror.hrl\").\n\n-type explored() :: dict:dict(index(), [pos_integer()]).\n-type planned() :: dict:dict(index(), pos_integer()).\n\n%%------------------------------------------------------------------------------\n\n-define(INITIAL_DELAY, 500).\n-define(DELAY, 200).\n\n-record(state, {\n average = initial :: 'initial' | average(),\n delay = ?INITIAL_DELAY :: non_neg_integer(),\n estimation = unknown :: estimation(),\n explored = dict:new() :: explored(),\n planned = dict:new() :: planned(),\n style :: estimation_style()\n }).\n\n-type state() :: #state{}.\n\n%%%=============================================================================\n%%% API\n%%%=============================================================================\n\n-type call() :: 'get_estimation'.\n-type cast() :: {'restart' | 'plan', index()}.\n\n%%%=============================================================================\n\n-spec start_link(concuerror_options:options()) -> estimator().\n\nstart_link(Options) ->\n case estimation_style(Options) of\n unknown -> none;\n Other ->\n {ok, Pid} = gen_server:start_link(?MODULE, Other, []),\n Pid\n end.\n\n%%------------------------------------------------------------------------------\n\n-record(delay_bounded, {\n bound = 0 :: pos_integer(),\n races_avg = init_average(4, 20) :: average()\n }).\n\n-type estimation_style() ::\n {'hard_bound', pos_integer(), estimation_style()} |\n {'recursive', 'one_step' | 'tree'} |\n #delay_bounded{} |\n 'unknown'.\n\n-spec estimation_style(concuerror_options:options()) -> estimation_style().\n\nestimation_style(Options) ->\n Verbosity = ?opt(verbosity, Options),\n case concuerror_logger:showing_progress(Verbosity) of\n false -> unknown;\n true ->\n Style =\n case ?opt(scheduling_bound_type, Options) of\n delay ->\n Bound = ?opt(scheduling_bound, Options),\n #delay_bounded{bound = Bound};\n none ->\n case ?opt(dpor, Options) =:= optimal of\n false -> {recursive, one_step};\n true -> {recursive, tree}\n end;\n _ ->\n unknown\n end,\n case ?opt(interleaving_bound, Options) of\n IBound when is_number(IBound), Style =/= unknown ->\n {hard_bound, IBound, Style};\n _ ->\n Style\n end\n end.\n\n%%------------------------------------------------------------------------------\n\n-spec stop(estimator()) -> 'ok'.\n\nstop(none) -> ok;\nstop(Estimator) ->\n gen_server_stop(Estimator).\n\ngen_server_stop(Server) ->\n gen_server:stop(Server).\n\n%%------------------------------------------------------------------------------\n\n-spec restart(estimator(), index()) -> 'ok'.\n\nrestart(none, _Index) -> ok;\nrestart(Estimator, Index) ->\n %% io:format(\"Restart: ~p~n\", [Index]),\n gen_server:cast(Estimator, {restart, Index}).\n\n%%------------------------------------------------------------------------------\n\n-spec plan(estimator(), index()) -> 'ok'.\n\nplan(none, _Index) -> ok;\nplan(Estimator, Index) ->\n %% io:format(\"Plan: ~p~n\", [Index]),\n gen_server:cast(Estimator, {plan, Index}).\n\n%%------------------------------------------------------------------------------\n\n-spec get_estimation(estimator()) -> estimation().\n\nget_estimation(none) -> unknown;\nget_estimation(Estimator) ->\n gen_server:call(Estimator, get_estimation).\n\n%%%=============================================================================\n%%% gen_server callbacks\n%%%=============================================================================\n\n-spec init(estimation_style()) -> {'ok', state()}.\n\ninit(Style) ->\n {ok, #state{style = Style}}.\n\n%%------------------------------------------------------------------------------\n\n-spec handle_call(call(), _From, state()) -> {'reply', term(), state()}.\n\nhandle_call(get_estimation, _From, #state{estimation = Estimation} = State) ->\n {reply, Estimation, State}.\n\n%%------------------------------------------------------------------------------\n\n-spec handle_cast(cast(), state()) -> {'noreply', state()}.\n\nhandle_cast(stop, State) ->\n {stop, normal, State};\nhandle_cast({plan, I}, State) ->\n #state{planned = Planned} = State,\n NewPlanned = dict:update_counter(I, 1, Planned),\n {noreply, State#state{planned = NewPlanned}};\nhandle_cast({restart, I}, State) ->\n #state{explored = Explored, planned = Planned} = State,\n SmallerFun = fun(K) -> K =< I end,\n NewPlanned =\n case dict:find(I, Planned) of\n {ok, Value} when Value > 0 ->\n dict:update_counter(I, -1, Planned);\n _ ->\n CleanupFun = fun(_, V) -> V > 0 end,\n CleanPlanned = dict:filter(CleanupFun, Planned),\n AllPlanned = lists:sort(dict:fetch_keys(CleanPlanned)),\n [NI|_] = lists:reverse(lists:takewhile(SmallerFun, AllPlanned)),\n %% io:format(\"Miss! Hit @ ~p~n\", [NI]),\n dict:update_counter(NI, -1, Planned)\n end,\n FoldFun =\n fun(M, {Total, E}) ->\n Sum = lists:sum(dict:fetch(M, E)),\n NE = dict:erase(M, E),\n {Total + Sum, NE}\n end,\n Marks = ordsets:from_list(dict:fetch_keys(Explored)),\n Larger = lists:dropwhile(SmallerFun, Marks),\n {Sum, OutExplored} = lists:foldl(FoldFun, {1, Explored}, Larger),\n NewExplored = dict:append(I, Sum, OutExplored),\n NewState = State#state{explored = NewExplored, planned = NewPlanned},\n FinalState = reestimate(NewState),\n {noreply, FinalState}.\n\n%%------------------------------------------------------------------------------\n\n-spec handle_info(term(), state()) -> {noreply, state()}.\n\nhandle_info(_Info, State) ->\n {noreply, State}.\n\n%%------------------------------------------------------------------------------\n\n-spec terminate('normal', state()) -> 'ok'.\n\nterminate(normal, _State) ->\n ok.\n\n%%------------------------------------------------------------------------------\n\n-spec code_change(term(), state(), term()) -> {'ok', state()}.\n\ncode_change(_OldVsn, State, _Extra) ->\n {ok, State}.\n\n%%%=============================================================================\n%%% Internal functions\n%%%=============================================================================\n\ninit_average(Value, Window) ->\n concuerror_window_average:init(Value, Window).\n\nupdate_average(Value, Average) ->\n concuerror_window_average:update(Value, Average).\n\nreestimate(#state{average = Average, delay = Delay} = State) ->\n case Delay > 0 of\n true -> State#state{delay = Delay - 1};\n false ->\n {Value, NewState} = estimate(State),\n {Estimation, NewAverage} =\n case Average =:= initial of\n false -> update_average(Value, Average);\n true -> {Value, init_average(Value, 10)}\n end,\n NewState#state{\n average = NewAverage,\n delay = ?DELAY,\n estimation = round(Estimation)\n }\n end.\n\nall_keys(Explored, Planned) ->\n [ExploredKeys, PlannedKeys] =\n [ordsets:from_list(dict:fetch_keys(D)) ||\n D <- [Explored, Planned]],\n ordsets:union(ExploredKeys, PlannedKeys).\n\nestimate(#state{style = {hard_bound, Bound, Style}} = State) ->\n {Est, NewState} = estimate(State#state{style = Style}),\n NewStyle = NewState#state.style,\n {min(Est, Bound), NewState#state{style = {hard_bound, Bound, NewStyle}}};\nestimate(State) ->\n #state{\n explored = Explored,\n planned = RawPlanned,\n style = Style\n } = State,\n CleanupFun = fun(_, V) -> V > 0 end,\n Planned = dict:filter(CleanupFun, RawPlanned),\n NewState = State#state{planned = Planned},\n case Style of\n {recursive, Subtree} ->\n Marks = all_keys(Explored, Planned),\n FoldFun =\n fun(M, L) ->\n AllExplored =\n case dict:find(M, Explored) of\n error -> [L];\n {ok, More} -> [L|More]\n end,\n Sum = lists:sum(AllExplored),\n AllPlanned =\n case dict:find(M, Planned) of\n error -> 0;\n {ok, P} ->\n case Subtree of\n one_step ->\n %% Each one-step plan will explore a similar tree\n P * Sum / length(AllExplored);\n tree ->\n %% Each plan is a single planned execution so\n %% plans are the size of the tree and the\n %% estimation is an average between everything\n %% we so far know (already explored plus this\n %% planned tree).\n (Sum + P) / (length(AllExplored) + 1)\n end\n end,\n Sum + AllPlanned\n end,\n AllButLast = lists:reverse(Marks),\n {round(lists:foldl(FoldFun, 1, AllButLast)), NewState};\n #delay_bounded{\n bound = Bound,\n races_avg = RacesAvg\n } ->\n MoreThanOne = fun(_, V) -> V > 1 end,\n SignificantPlanned = dict:filter(MoreThanOne, Planned),\n Marks = all_keys(Explored, SignificantPlanned),\n Length = length(Marks),\n {Races, NewRacesAvg} = update_average(Length, RacesAvg),\n Est = bounded_estimation(Races, Bound),\n NewStyle = Style#delay_bounded{races_avg = NewRacesAvg},\n {round(Est), NewState#state{style = NewStyle}}\n end.\n\nbounded_estimation(Races, Bound) ->\n bounded_estimation(Races, Bound, 1).\n\nbounded_estimation(_Races, 0, Acc) ->\n Acc;\nbounded_estimation(Races, N , Acc) ->\n %% XXX: Think more about this...\n bounded_estimation(Races, N - 1, 1 + Races * Acc).\n" }, { "path": "src/concuerror_inspect.erl", "content": "%%% @private\n%%% @doc\n%%% The instrumenter replaces interesting operations with calls\n%%% to inspect/3\n-module(concuerror_inspect).\n\n%% Interface to instrumented code:\n-export([start_inspection/1, stop_inspection/0, inspect/3, explain_error/1]).\n\n-export_type([instrumented_tag/0]).\n\n%%------------------------------------------------------------------------------\n\n-include(\"concuerror.hrl\").\n\n%%------------------------------------------------------------------------------\n\n-type instrumented_tag() :: 'apply' | 'call' | 'receive'.\n\n%%------------------------------------------------------------------------------\n\n-spec start_inspection(term()) -> 'ok'.\n\nstart_inspection(Info) ->\n NewDict = erase(),\n put(concuerror_info, {under_concuerror, Info, NewDict}),\n ok.\n\n-spec stop_inspection() -> 'false' | {'true', term()}.\n\nstop_inspection() ->\n case get(concuerror_info) of\n {under_concuerror, Info, Dict} ->\n erase(concuerror_info),\n _ = [put(K, V) || {K, V} <- Dict],\n {true, Info};\n _ -> false\n end.\n\n%% Function inspect/3 should:\n%% - return the result of a call, if it is called from a non-Concuerror process\n%% - grab concuerror_info and continue to concuerror_callback, otherwise\n-spec inspect(Tag :: instrumented_tag(),\n Args :: [term()],\n Location :: term()) -> Return :: term().\n\ninspect(Tag, Args, Location) ->\n Ret =\n case stop_inspection() of\n false -> doit;\n {true, Info} ->\n {R, NewInfo} =\n concuerror_callback:instrumented(Tag, Args, Location, Info),\n start_inspection(NewInfo),\n R\n end,\n case Ret of\n doit ->\n case {Tag, Args} of\n {apply, [Fun, ApplyArgs]} ->\n erlang:apply(Fun, ApplyArgs);\n {call, [Module, Name, CallArgs]} ->\n erlang:apply(Module, Name, CallArgs);\n {'receive', [_, Timeout]} ->\n Timeout\n end;\n {didit, Res} -> Res;\n {error, Reason} ->\n StackTop =\n case {Tag, Args} of\n {apply, Args} ->\n {erlang, apply, Args, Location};\n {call, [Module, Name, CallArgs]} ->\n {Module, Name, CallArgs, Location}\n end,\n erlang:raise(error, Reason, [StackTop|get_stacktrace()]);\n {skip_timeout, CreateMessage} ->\n assert_no_messages(),\n case CreateMessage of\n false -> ok;\n {true, D} -> self() ! D\n end,\n 0\n end.\n\nassert_no_messages() ->\n receive\n Msg -> exit(self(), {?MODULE, {pending_message, self(), Msg}})\n after\n 0 -> ok\n end.\n\nget_stacktrace() ->\n {_, Trace} = erlang:process_info(self(), current_stacktrace),\n [T || T <- Trace, not_concuerror_module(element(1, T))].\n\nnot_concuerror_module(Atom) ->\n case atom_to_list(Atom) of\n \"concuerror\" ++ _ -> false;\n _ -> true\n end.\n\n-spec explain_error(term()) -> string().\n\nexplain_error({pending_message, Proc, Msg}) ->\n io_lib:format(\n \"A process (~w) had a message (~w) in it's mailbox when it\"\n \" shouldn't.\" ++ ?notify_us_msg, [Proc, Msg]).\n" }, { "path": "src/concuerror_instrumenter.erl", "content": "%%% @private\n-module(concuerror_instrumenter).\n\n-export([instrument/3]).\n\n-define(inspect, concuerror_inspect).\n\n-define(flag(A), (1 bsl A)).\n\n-define(input, ?flag(1)).\n-define(output, ?flag(2)).\n\n-define(ACTIVE_FLAGS, [?input, ?output]).\n\n%% -define(DEBUG_FLAGS, lists:foldl(fun erlang:'bor'/2, 0, ?ACTIVE_FLAGS)).\n-include(\"concuerror.hrl\").\n\n-spec instrument(module(), erl_syntax:forms(), concuerror_loader:instrumented())\n -> {erl_syntax:forms(), [iodata()]}.\n\ninstrument(?inspect, AbstractCode, _Instrumented) ->\n %% The inspect module should never be instrumented.\n {AbstractCode, []};\ninstrument(Module, AbstractCode, Instrumented) ->\n ?if_debug(Stripper = fun(Node) -> erl_syntax:set_ann(Node, []) end),\n ?debug_flag(?input, \"~s~n\",\n [[erl_prettypr:format(erl_syntax_lib:map(Stripper, A))\n || A <- AbstractCode]]),\n true = ets:insert(Instrumented, {{current}, Module}),\n Acc =\n #{ file => \"\"\n , instrumented => Instrumented\n , warnings => []\n },\n {Is, #{warnings := Warnings}} = fold(AbstractCode, Acc, []),\n true = ets:delete(Instrumented, {current}),\n ?debug_flag(?output, \"~s~n\",\n [[erl_prettypr:format(erl_syntax_lib:map(Stripper, I))\n || I <- Is]]),\n {Is, warn_to_string(Module, lists:usort(Warnings))}.\n\n%% Replace with form_list please.\nfold([], Arg, Acc) ->\n {erl_syntax:revert_forms(lists:reverse(Acc)), Arg};\nfold([H|T], Arg, Acc) ->\n ArgIn = Arg#{var => erl_syntax_lib:variables(H)},\n {R, NewArg} = erl_syntax_lib:mapfold(fun mapfold/2, ArgIn, H),\n fold(T, NewArg, [R|Acc]).\n\nmapfold(Node, Acc) ->\n #{ file := File\n , instrumented := Instrumented\n , warnings := Warnings\n , var := Var\n } = Acc,\n Type = erl_syntax:type(Node),\n NewNodeAndMaybeWarn =\n case Type of\n application ->\n Args = erl_syntax:application_arguments(Node),\n LArgs = erl_syntax:list(Args),\n Op = erl_syntax:application_operator(Node),\n OpType = erl_syntax:type(Op),\n case OpType of\n module_qualifier ->\n Module = erl_syntax:module_qualifier_argument(Op),\n Name = erl_syntax:module_qualifier_body(Op),\n case is_safe(Module, Name, length(Args), Instrumented) of\n has_load_nif -> {newwarn, Node, has_load_nif};\n true -> Node;\n false ->\n inspect(call, [Module, Name, LArgs], Node, Acc)\n end;\n atom -> Node;\n _ ->\n inspect(apply, [Op, LArgs], Node, Acc)\n end;\n infix_expr ->\n Op = erl_syntax:infix_expr_operator(Node),\n COp = erl_syntax:operator_name(Op),\n case COp of\n '!' ->\n Left = erl_syntax:infix_expr_left(Node),\n Right = erl_syntax:infix_expr_right(Node),\n Args = erl_syntax:list([Left, Right]),\n inspect(call, [abstr(erlang), abstr('!'), Args], Node, Acc);\n _ -> Node\n end;\n receive_expr ->\n Fun = receive_matching_fun(Node),\n Timeout = erl_syntax:receive_expr_timeout(Node),\n TArg =\n case Timeout =:= none of\n true -> abstr(infinity);\n false -> Timeout\n end,\n Call = inspect('receive', [Fun, TArg], Node, Acc),\n case Timeout =:= none of\n true ->\n %% Leave receives without after clauses unaffected, so\n %% that the compiler can expose matched patterns to the\n %% rest of the program\n erl_syntax:block_expr([Call, Node]);\n false ->\n %% Otherwise, replace original timeout with a fresh\n %% variable to make the after clause immediately reachable\n %% when needed.\n Clauses = erl_syntax:receive_expr_clauses(Node),\n Action = erl_syntax:receive_expr_action(Node),\n TimeoutVar =\n erl_syntax:variable(erl_syntax_lib:new_variable_name(Var)),\n Match = erl_syntax:match_expr(TimeoutVar, Call),\n RecNode = erl_syntax:receive_expr(Clauses, TimeoutVar, Action),\n Block = erl_syntax:block_expr([Match, RecNode]),\n {newvar, Block, TimeoutVar}\n end;\n _ -> Node\n end,\n {NewNode, NewVar, NewWarnings} =\n case NewNodeAndMaybeWarn of\n {newwarn, NN, W} -> {NN, Var, [W|Warnings]};\n {newvar, NN, V} -> {NN, sets:add_element(V, Var), Warnings};\n _ -> {NewNodeAndMaybeWarn, Var, Warnings}\n end,\n NewFile =\n case Type of\n attribute ->\n case erl_syntax_lib:analyze_attribute(Node) of\n {file, {NF, _}} -> NF;\n _ -> File\n end;\n _ -> File\n end,\n NewAcc =\n Acc\n #{ file => NewFile\n , warnings => NewWarnings\n , var => NewVar\n },\n {NewNode, NewAcc}.\n\n\ninspect(Tag, Args, Node, Acc) ->\n #{ file := File} = Acc,\n Pos = erl_syntax:get_pos(Node),\n PosInfo = [Pos, {file, File}],\n CTag = abstr(Tag),\n CArgs = erl_syntax:list(Args),\n App =\n erl_syntax:application( abstr(?inspect)\n , abstr(inspect)\n , [ CTag\n , CArgs\n , abstr(PosInfo)]),\n erl_syntax:copy_attrs(Node, App).\n\nreceive_matching_fun(Node) ->\n Clauses = erl_syntax:receive_expr_clauses(Node),\n NewClauses = extract_patterns(Clauses),\n %% We need a case in a fun to avoid shadowing\n %% i.e. if the receive uses a bound var in a clause and we insert it\n %% bare as a clause into a new fun it will shadow the original\n %% and change the code's meaning\n Var = erl_syntax:variable('__Concuerror42'),\n NewCase = erl_syntax:case_expr(Var, NewClauses),\n erl_syntax:fun_expr([erl_syntax:clause([Var], abstr(true), [NewCase])]).\n\nextract_patterns(Clauses) ->\n extract_patterns(Clauses, []).\n\nextract_patterns([], Acc) ->\n Pat = [erl_syntax:underscore()],\n Guard = abstr(true),\n Body = [abstr(false)],\n lists:reverse([erl_syntax:clause(Pat, Guard, Body)|Acc]);\nextract_patterns([Node|Rest], Acc) ->\n Body = [abstr(true)],\n Pats = erl_syntax:clause_patterns(Node),\n Guard = erl_syntax:clause_guard(Node),\n NClause = erl_syntax:clause(Pats, Guard, Body),\n extract_patterns(Rest, [erl_syntax:copy_attrs(Node, NClause)|Acc]).\n\nis_safe(Module, Name, Arity, Instrumented) ->\n case\n erl_syntax:is_literal(Module) andalso\n erl_syntax:is_literal(Name)\n of\n false -> false;\n true ->\n NameLit = concr(Name),\n ModuleLit = concr(Module),\n case {ModuleLit, NameLit, Arity} of\n %% erlang:apply/3 is safe only when called inside of erlang.erl\n {erlang, apply, 3} ->\n ets:lookup_element(Instrumented, {current}, 2) =:= erlang;\n {erlang, load_nif, 2} ->\n has_load_nif;\n _ ->\n case erlang:is_builtin(ModuleLit, NameLit, Arity) of\n true ->\n not concuerror_callback:is_unsafe({ModuleLit, NameLit, Arity});\n false ->\n ets:lookup(Instrumented, ModuleLit) =/= []\n end\n end\n end.\n\nabstr(Term) ->\n erl_syntax:abstract(Term).\n\nconcr(Tree) ->\n erl_syntax:concrete(Tree).\n\nwarn_to_string(Module, Tags) ->\n [io_lib:format(\"Module ~w ~s\", [Module, tag_to_warn(T)]) || T <- Tags].\n\n%%------------------------------------------------------------------------------\n\ntag_to_warn(has_load_nif) ->\n \"contains a call to erlang:load_nif/2.\"\n \" Concuerror cannot reliably execute operations that are implemented as\"\n \" NIFs.\"\n \" Moreover, Concuerror cannot even detect if a NIF is used by the test.\"\n \" If your test uses NIFs, you may see error messages of the form\"\n \" 'replaying a built-in returned a different result than expected'.\"\n \" If your test does not use NIFs you have nothing to worry about.\".\n" }, { "path": "src/concuerror_io_lib.erl", "content": "%%% @private\n-module(concuerror_io_lib).\n\n-export([error_s/2, pretty/3, pretty_s/2]).\n\n-include(\"concuerror.hrl\").\n\n-spec error_s(concuerror_scheduler:interleaving_error(), pos_integer()) ->\n string().\n\nerror_s(fatal, _Depth) ->\n io_lib:format(\"* Concuerror crashed~n\", []);\nerror_s({Type, Info}, Depth) ->\n case Type of\n abnormal_halt ->\n {Step, P, Status} = Info,\n S1 =\n io_lib:format(\n \"* At step ~w process ~p called halt with an abnormal status~n\",\n [Step, P]),\n S2 =\n io_lib:format(\n \" Status:~n\"\n \" ~P~n\", [Status, Depth]),\n [S1, S2];\n abnormal_exit ->\n {Step, P, Reason, Stacktrace} = Info,\n S1 =\n io_lib:format(\n \"* At step ~w process ~p exited abnormally~n\", [Step, P]),\n S2 =\n io_lib:format(\n \" Reason:~n\"\n \" ~P~n\", [Reason, Depth]),\n S3 =\n io_lib:format(\n \" Stacktrace:~n\"\n \" ~p~n\", [Stacktrace]),\n [S1, S2, S3];\n deadlock ->\n InfoStr =\n [io_lib:format(\n \" ~p ~s~n\"\n \" Mailbox contents: ~p~n\", [P, location(F, L), Msgs]) ||\n {P, [L, {file, F}], Msgs} <- Info],\n Format =\n \"* Blocked at a 'receive' (\\\"deadlocked\\\";\"\n \" other processes have exited):~n~s\",\n io_lib:format(Format, [InfoStr]);\n depth_bound ->\n io_lib:format(\"* Reached the depth bound of ~p events~n\", [Info])\n end.\n\n-spec pretty('disable' | io:device(), event(), pos_integer()) -> ok.\n\npretty(disable, _, _) ->\n ok;\npretty(Output, I, Depth) ->\n Fun =\n fun(P, A) ->\n Msg = io_lib:format(P ++ \"~n\", A),\n io:format(Output, \"~s\", [Msg])\n end,\n _ = pretty_aux(I, {Fun, []}, Depth),\n ok.\n\n-type indexed_event() :: {index(), event()}.\n\n-spec pretty_s(event() | indexed_event() | [indexed_event()], pos_integer()) ->\n [string()].\n\npretty_s(Events, Depth) ->\n {_, Acc} = pretty_aux(Events, {fun io_lib:format/2, []}, Depth),\n lists:reverse(Acc).\n\npretty_aux({I, #event{} = Event}, {F, Acc}, Depth) ->\n #event{\n actor = Actor,\n event_info = EventInfo,\n location = Location\n } = Event,\n TraceString =\n case I =/= 0 of\n true -> io_lib:format(\"~4w: \", [I]);\n false -> \"\"\n end,\n ActorString =\n case Actor of\n P when is_pid(P) -> io_lib:format(\"~p: \", [P]);\n _ -> \"\"\n end,\n EventString = pretty_info(EventInfo, Depth),\n LocationString =\n case Location of\n [Line, {file, File}] -> io_lib:format(\"~n ~s\", [location(File, Line)]);\n exit ->\n case EventInfo of\n #exit_event{} -> \"\";\n _Other -> io_lib:format(\"~n (while exiting)\", [])\n end;\n _ -> \"\"\n end,\n R = F(\"~s~s~s~s\", [TraceString, ActorString, EventString, LocationString]),\n {F, [R|Acc]};\npretty_aux(#event{} = Event, FAcc, Depth) ->\n pretty_aux({0, Event}, FAcc, Depth);\npretty_aux(List, FAcc, Depth) when is_list(List) ->\n Fun = fun(Event, Acc) -> pretty_aux(Event, Acc, Depth) end,\n lists:foldl(Fun, FAcc, List).\n\npretty_info(#builtin_event{mfargs = {erlang, send, [To, Msg]},\n extra = Ref}, Depth) when is_reference(Ref) ->\n io_lib:format(\"expires, delivering ~W to ~W\", [Msg, Depth, To, Depth]);\npretty_info(#builtin_event{mfargs = {erlang, '!', [To, Msg]},\n status = {crashed, Reason}}, Depth) ->\n io_lib:format(\"Exception ~W is raised by: ~W ! ~W\",\n [Reason, Depth, To, Depth, Msg, Depth]);\npretty_info(#builtin_event{mfargs = {M, F, Args},\n status = {crashed, Reason}}, Depth) ->\n ArgString = pretty_arg(Args, Depth),\n io_lib:format(\"Exception ~W is raised by: ~p:~p(~s)\",\n [Reason, Depth, M, F, ArgString]);\npretty_info(#builtin_event{mfargs = {erlang, '!', [To, Msg]},\n result = Result}, Depth) ->\n io_lib:format(\"~W = ~w ! ~W\", [Result, Depth, To, Msg, Depth]);\npretty_info(#builtin_event{mfargs = {M, F, Args}, result = Result}, Depth) ->\n ArgString = pretty_arg(Args, Depth),\n io_lib:format(\"~W = ~p:~p(~s)\", [Result, Depth, M, F, ArgString]);\npretty_info(#exit_event{actor = Timer}, _Depth) when is_reference(Timer) ->\n \"is removed\";\npretty_info(#exit_event{reason = Reason}, Depth) ->\n ReasonStr =\n case Reason =:= normal of\n true -> \"normally\";\n false -> io_lib:format(\"abnormally (~W)\", [Reason, Depth])\n end,\n io_lib:format(\"exits ~s\", [ReasonStr]);\npretty_info(#message_event{} = MessageEvent, Depth) ->\n #message_event{\n message = #message{data = Data},\n recipient = Recipient,\n sender = Sender,\n type = Type\n } = MessageEvent,\n MsgString =\n case Type of\n message -> io_lib:format(\"Message (~W)\", [Data, Depth]);\n exit_signal ->\n Reason =\n case Data of\n {'EXIT', Sender, R} -> R;\n kill -> kill\n end,\n io_lib:format(\"Exit signal (~W)\", [Reason, Depth])\n end,\n io_lib:format(\"~s from ~p reaches ~p\", [MsgString, Sender, Recipient]);\npretty_info(#receive_event{message = Message, timeout = Timeout}, Depth) ->\n case Message of\n 'after' ->\n io_lib:format(\"receive timeout expires after ~p ms\", [Timeout]);\n #message{data = Data} ->\n io_lib:format(\"receives message (~W)\", [Data, Depth])\n end.\n\npretty_arg(Args, Depth) ->\n pretty_arg(lists:reverse(Args), \"\", Depth).\n\npretty_arg([], Acc, _Depth) -> Acc;\npretty_arg([Arg|Args], \"\", Depth) ->\n pretty_arg(Args, io_lib:format(\"~W\", [Arg, Depth]), Depth);\npretty_arg([Arg|Args], Acc, Depth) ->\n pretty_arg(Args, io_lib:format(\"~W, \", [Arg, Depth]) ++ Acc, Depth).\n\nlocation(F, L) ->\n Basename = filename:basename(F),\n io_lib:format(\"in ~s line ~w\", [Basename, L]).\n" }, { "path": "src/concuerror_loader.erl", "content": "%%% @private\n-module(concuerror_loader).\n\n-export([initialize/1, load/1, load_initially/1, is_instrumenting/0]).\n\n%%------------------------------------------------------------------------------\n\n-export_type([instrumented/0]).\n\n-type instrumented() :: 'concuerror_instrumented'.\n\n%%------------------------------------------------------------------------------\n\n-include(\"concuerror.hrl\").\n\n%%------------------------------------------------------------------------------\n\n-spec initialize([atom()]) -> 'ok' | {'error', string()}.\n\ninitialize(Excluded) ->\n Instrumented = get_instrumented_table(),\n case ets:info(Instrumented, name) =:= undefined of\n true ->\n setup_sticky_directories(),\n Instrumented = ets:new(Instrumented, [named_table, public]),\n ok;\n false ->\n ets:match_delete(Instrumented, {'_', concuerror_excluded}),\n ok\n end,\n Entries = [{X, concuerror_excluded} || X <- Excluded],\n try\n true = ets:insert_new(Instrumented, Entries),\n ok\n catch\n _:_ ->\n Error =\n \"Excluded modules have already been instrumented. Restart the shell.\",\n {error, Error}\n end.\n\nsetup_sticky_directories() ->\n {module, concuerror_inspect} = code:ensure_loaded(concuerror_inspect),\n _ = [true = code:unstick_mod(M) || {M, preloaded} <- code:all_loaded()],\n [] = [D || D <- code:get_path(), ok =/= code:unstick_dir(D)],\n case code:get_object_code(erlang) =:= error of\n true ->\n true =\n code:add_pathz(filename:join(code:root_dir(), \"erts/preloaded/ebin\"));\n false ->\n ok\n end.\n\n%%------------------------------------------------------------------------------\n\n-spec load(module()) -> {'ok', iodata()} | 'already_done' | 'fail'.\n\nload(Module) ->\n Instrumented = get_instrumented_table(),\n load(Module, Instrumented).\n\nload(Module, Instrumented) ->\n case ets:lookup(Instrumented, Module) =:= [] of\n true ->\n set_is_instrumenting({true, Module}),\n {Beam, Filename} =\n case code:which(Module) of\n preloaded ->\n {Module, BeamBinary, F} = code:get_object_code(Module),\n {BeamBinary, F};\n F ->\n {F, F}\n end,\n try\n {ok, Warnings} = load_binary(Module, Filename, Beam, Instrumented),\n set_is_instrumenting(false),\n {ok, Warnings}\n catch\n _:_ -> fail\n end;\n false -> already_done\n end.\n\n%%------------------------------------------------------------------------------\n\n-spec load_initially(module()) ->\n {ok, module(), [string()]} | {error, string()}.\n\nload_initially(Module) ->\n Instrumented = get_instrumented_table(),\n load_initially(Module, Instrumented).\n\nload_initially(File, Instrumented) ->\n MaybeModule =\n case filename:extension(File) of\n \".erl\" ->\n case compile:file(File, [binary, debug_info, report_errors]) of\n error ->\n Format = \"could not compile ~s (try to add the .beam file instead)\",\n {error, io_lib:format(Format, [File])};\n Else -> Else\n end;\n \".beam\" ->\n case beam_lib:chunks(File, []) of\n {ok, {M, []}} ->\n {ok, M, File};\n Else ->\n {error, beam_lib:format_error(Else)}\n end;\n _Other ->\n {error, io_lib:format(\"~s is not a .erl or .beam file\", [File])}\n end,\n case MaybeModule of\n {ok, Module, Binary} ->\n Warnings = check_shadow(File, Module),\n {ok, MoreWarnings} = load_binary(Module, File, Binary, Instrumented),\n {ok, Module, Warnings ++ MoreWarnings};\n Error -> Error\n end.\n\n%%------------------------------------------------------------------------------\n\n-spec is_instrumenting() -> {'true', module()} | 'false'.\n\nis_instrumenting() ->\n Instrumented = get_instrumented_table(),\n [{_, V}] = ets:lookup(Instrumented, {is_instrumenting}),\n V.\n\n-spec set_is_instrumenting( {'true', module()} | 'false') -> 'ok'.\n\nset_is_instrumenting(Value) ->\n Instrumented = get_instrumented_table(),\n ets:insert(Instrumented, {{is_instrumenting}, Value}),\n ok.\n\n%%------------------------------------------------------------------------------\n\nget_instrumented_table() ->\n concuerror_instrumented.\n\ncheck_shadow(File, Module) ->\n Default = code:which(Module),\n case Default =:= non_existing of\n true -> [];\n false ->\n [io_lib:format(\"File ~s shadows ~s (found in path)\", [File, Default])]\n end.\n\nload_binary(Module, Filename, Beam, Instrumented) ->\n Abstract = get_abstract(Beam),\n {InstrumentedAbstract, Warnings} =\n case ets:lookup(Instrumented, Module) =:= [] of\n true ->\n ets:insert(Instrumented, {Module, concuerror_instrumented}),\n concuerror_instrumenter:instrument(Module, Abstract, Instrumented);\n false ->\n {Abstract, []}\n end,\n %% io:format(\"~p~n~p~n\", [Abstract, InstrumentedAbstract]),\n %% exit(1),\n {ok, _, NewBinary} =\n compile:forms(InstrumentedAbstract, [report_errors, binary]),\n {module, Module} = code:load_binary(Module, Filename, NewBinary),\n {ok, Warnings}.\n\nget_abstract(Beam) ->\n {ok, {Module, [{abstract_code, ChunkInfo}]}} =\n beam_lib:chunks(Beam, [abstract_code]),\n case ChunkInfo of\n {_, Chunk} ->\n {ok, _, Abs} = compile:forms(Chunk, [binary, to_exp]),\n Abs;\n no_abstract_code ->\n {ok, {Module, [{compile_info, CompileInfo}]}} =\n beam_lib:chunks(Beam, [compile_info]),\n {source, File} = proplists:lookup(source, CompileInfo),\n {options, CompileOptions} = proplists:lookup(options, CompileInfo),\n Filter =\n fun(Option) ->\n lists:member(element(1, Option), [d, i, parse_transform])\n end,\n CleanOptions = lists:filter(Filter, CompileOptions),\n Options = [debug_info, report_errors, binary, to_exp|CleanOptions],\n {ok, _, Abstract} = compile:file(File, Options),\n Abstract\n end.\n" }, { "path": "src/concuerror_logger.erl", "content": "%%% @private\n%%% @doc\n%%% The logger is a process responsible for collecting information and\n%%% sending output to the user in reports and stderr.\n\n-module(concuerror_logger).\n\n-export([start/1, complete/2, plan/1, log/5, race/3, stop/2, print/3, time/2]).\n-export([bound_reached/1, set_verbosity/2]).\n-export([graph_set_node/3, graph_new_node/4, graph_race/3]).\n-export([print_log_message/3]).\n-export([showing_progress/1, progress_help/0]).\n\n-export_type([logger/0, log_level/0]).\n\n%%------------------------------------------------------------------------------\n\n-include(\"concuerror.hrl\").\n\n-type logger() :: pid().\n-type log_level() :: 0..7.\n\n-define(TICKER_TIMEOUT, 500).\n-define(llog(L, F, A), ?log(self(), L, F, A)).\n-define(llog(L, F), ?llog(L, F, [])).\n\n%%------------------------------------------------------------------------------\n\n-type unique_id() :: concuerror_scheduler:unique_id().\n\n-type stream() :: 'standard_io' | 'standard_error' | 'race' | file:filename().\n-type graph_data() ::\n { file:io_device()\n , unique_id() | 'init'\n , unique_id() | 'none'\n }.\n\n%%------------------------------------------------------------------------------\n\n-type unique_ids() :: sets:set(integer()).\n\n%%------------------------------------------------------------------------------\n\n-type timestamp() :: integer().\ntimestamp() ->\n erlang:monotonic_time(milli_seconds).\ntimediff(After, Before) ->\n (After - Before) / 1000.\n\n%%------------------------------------------------------------------------------\n\n-record(rate_info, {\n average :: 'init' | concuerror_window_average:average(),\n prev :: non_neg_integer(),\n timestamp :: timestamp()\n }).\n\n-record(logger_state, {\n already_emitted = sets:new() :: unique_ids(),\n bound_reached = false :: boolean(),\n emit_logger_tips = initial :: 'initial' | 'false',\n errors = 0 :: non_neg_integer(),\n estimator :: concuerror_estimator:estimator(),\n graph_data :: graph_data() | 'disable',\n interleaving_bound :: concuerror_options:bound(),\n last_had_output = false :: boolean(),\n log_all :: boolean(),\n log_msgs = [] :: [string()],\n output :: file:io_device() | 'disable',\n output_name :: string(),\n print_depth :: pos_integer(),\n rate_info = init_rate_info() :: #rate_info{},\n streams = [] :: [{stream(), [string()]}],\n timestamp = timestamp() :: timestamp(),\n ticker = none :: pid() | 'none',\n ticks = 0 :: non_neg_integer(),\n traces_explored = 0 :: non_neg_integer(),\n traces_ssb = 0 :: non_neg_integer(),\n traces_total = 0 :: non_neg_integer(),\n verbosity :: log_level()\n }).\n\n%%------------------------------------------------------------------------------\n\n-spec start(concuerror_options:options()) -> pid().\n\nstart(Options) ->\n Parent = self(),\n Ref = make_ref(),\n Fun =\n fun() ->\n State = initialize(Options),\n Parent ! Ref,\n loop(State)\n end,\n P = spawn_link(Fun),\n receive\n Ref -> P\n end.\n\ninitialize(Options) ->\n Timestamp = format_utc_timestamp(),\n Graph = ?opt(graph, Options),\n {Output, OutputName} = ?opt(output, Options),\n LogAll = ?opt(log_all, Options),\n Processes = ?opt(processes, Options),\n SymbolicNames = ?opt(symbolic_names, Options),\n Verbosity = ?opt(verbosity, Options),\n\n GraphData = graph_preamble(Graph),\n Header =\n io_lib:format(\"~s started at ~s~n\", [concuerror:version(), Timestamp]),\n Ticker =\n case showing_progress(Verbosity) of\n false -> none;\n true ->\n to_stderr(\"~s~n\", [Header]),\n initialize_ticker(),\n ?llog(?linfo, \"Showing progress ('-h progress', for details)~n\"),\n Self = self(),\n spawn_link(fun() -> ticker(Self) end)\n end,\n case Output =:= disable of\n true ->\n ?llog(?lwarning, \"No output report will be generated~n\");\n false ->\n ?llog(?linfo, \"Writing results in ~s~n\", [OutputName])\n end,\n case GraphData =:= disable of\n true ->\n ok;\n false ->\n {_, GraphName} = Graph,\n ?llog(?linfo, \"Writing graph in ~s~n\", [GraphName])\n end,\n case LogAll of\n true ->\n ?llog(?lwarning, \"Logging all interleavings ('--log_all true')~n\");\n false ->\n ?llog(?linfo, \"Only logging errors ('--log_all false')~n\")\n end,\n PrintableOptions =\n delete_props(\n [estimator, graph, output, processes, timers, verbosity],\n Options),\n to_file(Output, \"~s\", [Header]),\n to_file(\n Output,\n \" Options:~n\"\n \" ~p~n\",\n [lists:sort(PrintableOptions)]),\n ?autoload_and_log(io_lib, self()),\n ok = setup_symbolic_names(SymbolicNames, Processes),\n #logger_state{\n estimator = ?opt(estimator, Options),\n graph_data = GraphData,\n interleaving_bound = ?opt(interleaving_bound, Options),\n log_all = LogAll,\n output = Output,\n output_name = OutputName,\n print_depth = ?opt(print_depth, Options),\n ticker = Ticker,\n verbosity = Verbosity\n }.\n\ndelete_props([], Proplist) ->\n Proplist;\ndelete_props([Key|Rest], Proplist) ->\n delete_props(Rest, proplists:delete(Key, Proplist)).\n\n-spec bound_reached(logger()) -> ok.\n\nbound_reached(Logger) ->\n Logger ! bound_reached,\n ok.\n\n-spec plan(logger()) -> ok.\n\nplan(Logger) ->\n Logger ! plan,\n ok.\n\n-spec complete(logger(), concuerror_scheduler:interleaving_result()) -> ok.\n\ncomplete(Logger, Warnings) ->\n Ref = make_ref(),\n Logger ! {complete, Warnings, self(), Ref},\n receive\n Ref -> ok\n end.\n\n-spec log(logger(), log_level(), term(), string(), [term()]) -> ok.\n\nlog(Logger, Level, Tag, Format, Data) ->\n Logger ! {log, Level, Tag, Format, Data},\n ok.\n\n-spec stop(logger(), term()) -> concuerror:analysis_result().\n\nstop(Logger, Status) ->\n Logger ! {stop, Status, self()},\n receive\n {stopped, ExitStatus} -> ExitStatus\n end.\n\n-spec print(logger(), stream(), string()) -> ok.\n\nprint(Logger, Type, String) ->\n Logger ! {print, Type, String},\n ok.\n\n-spec time(logger(), term()) -> ok.\n\ntime(Logger, Tag) ->\n Logger ! {time, Tag},\n ok.\n\n-spec race(logger(), {index(), event()}, {index(), event()}) -> ok.\n\nrace(Logger, EarlyEvent, Event) ->\n Logger ! {race, EarlyEvent, Event},\n ok.\n\n-spec set_verbosity(logger(), log_level()) -> ok.\n\nset_verbosity(Logger, Verbosity) ->\n Logger ! {set_verbosity, Verbosity},\n ok.\n\n-spec print_log_message(log_level(), string(), [term()]) -> ok.\n\nprint_log_message(Level, Format, Args) ->\n LevelFormat = level_to_tag(Level),\n NewFormat = \"* \" ++ LevelFormat ++ Format,\n to_stderr(NewFormat, Args).\n\n-spec showing_progress(log_level()) -> boolean().\n\nshowing_progress(Verbosity) ->\n (Verbosity =/= ?lquiet) andalso (Verbosity < ?ltiming).\n\n%%------------------------------------------------------------------------------\n\nloop(State) ->\n Message =\n receive\n {stop, _, _} = Stop ->\n receive\n M -> self() ! Stop, M\n after\n 0 -> Stop\n end;\n M -> M\n end,\n loop(Message, State).\n\nloop(Message,\n #logger_state{\n emit_logger_tips = initial,\n errors = Errors,\n traces_explored = 10,\n traces_total = TracesTotal\n } = State) ->\n case TracesTotal > 250 of\n true ->\n ManyMsg =\n \"A lot of events in this test are racing. You can see such pairs\"\n \" by using '--show_races' true. You may want to consider reducing some\"\n \" parameters in your test (e.g. number of processes or events).~n\",\n ?llog(?ltip, ManyMsg);\n false -> ok\n end,\n case Errors =:= 10 of\n true ->\n ErrorsMsg =\n \"Each of the first 10 interleavings explored so far had some error.\"\n \" This can make later debugging difficult, as the generated report will\"\n \" include too much info. Consider refactoring your code, or using the\"\n \" appropriate options to filter out irrelevant errors.~n\",\n ?llog(?ltip, ErrorsMsg);\n false -> ok\n end,\n loop(Message, State#logger_state{emit_logger_tips = false});\n\nloop(Message, State) ->\n #logger_state{\n already_emitted = AlreadyEmitted,\n errors = Errors,\n last_had_output = LastHadOutput,\n log_all = LogAll,\n log_msgs = LogMsgs,\n output = Output,\n output_name = OutputName,\n print_depth = PrintDepth,\n streams = Streams,\n timestamp = Timestamp,\n traces_explored = TracesExplored,\n traces_ssb = TracesSSB,\n traces_total = TracesTotal,\n verbosity = Verbosity\n } = State,\n case Message of\n {time, Tag} ->\n Now = timestamp(),\n Diff = timediff(Now, Timestamp),\n Msg = \"~nTimer: +~6.3fs ~s~n\",\n loop(\n {log, ?ltiming, none, Msg, [Diff, Tag]},\n State#logger_state{timestamp = Now});\n {race, EarlyEvent, Event} ->\n print_depth_tip(),\n Msg =\n io_lib:format(\n \"~n* ~s~n ~s~n\",\n [concuerror_io_lib:pretty_s(E, PrintDepth)\n || E <- [EarlyEvent, Event]]),\n loop({print, race, Msg}, State);\n {log, Level, Tag, Format, Data} ->\n {NewLogMsgs, NewAlreadyEmitted} =\n case Tag =/= ?nonunique andalso sets:is_element(Tag, AlreadyEmitted) of\n true -> {LogMsgs, AlreadyEmitted};\n false ->\n case Verbosity < Level of\n true -> ok;\n false ->\n LevelFormat = level_to_tag(Level),\n NewFormat = \"* \" ++ LevelFormat ++ Format,\n printout(State, NewFormat, Data)\n end,\n NLM =\n case Level < ?ltiming of\n true -> orddict:append(Level, {Format, Data}, LogMsgs);\n false -> LogMsgs\n end,\n NAE =\n case Tag =/= ?nonunique of\n true -> sets:add_element(Tag, AlreadyEmitted);\n false -> AlreadyEmitted\n end,\n {NLM, NAE}\n end,\n loop(State#logger_state{\n already_emitted = NewAlreadyEmitted,\n log_msgs = NewLogMsgs});\n {graph, Command} ->\n loop(graph_command(Command, State));\n {stop, SchedulerStatus, Scheduler} ->\n NewState = stop_ticker(State),\n separator(Output, $#),\n to_file(Output, \"Exploration completed!~n\", []),\n ExitStatus =\n case SchedulerStatus =:= normal of\n true ->\n case Errors =/= 0 of\n true ->\n case Verbosity =:= ?lquiet of\n true -> ok;\n false ->\n Form = \"Errors were found! (check ~s)~n\",\n printout(NewState, Form, [OutputName])\n end,\n error;\n false ->\n to_file(Output, \" No errors found!~n\", []),\n ok\n end;\n false -> fail\n end,\n separator(Output, $#),\n print_log_msgs(Output, LogMsgs),\n FinishTimestamp = format_utc_timestamp(),\n Format = \"Done at ~s (Exit status: ~p)~n Summary: \",\n Args = [FinishTimestamp, ExitStatus],\n to_file(Output, Format, Args),\n IntMsg = final_interleavings_message(NewState),\n to_file(Output, \"~s\", [IntMsg]),\n ok = close_files(NewState),\n case Verbosity =:= ?lquiet of\n true -> ok;\n false ->\n FinalFormat = Format ++ IntMsg,\n printout(NewState, FinalFormat, Args)\n end,\n Scheduler ! {stopped, ExitStatus},\n ok;\n plan ->\n NewState = State#logger_state{traces_total = TracesTotal + 1},\n loop(NewState);\n bound_reached ->\n NewState = State#logger_state{bound_reached = true},\n loop(NewState);\n {print, Type, String} ->\n NewStreams = orddict:append(Type, String, Streams),\n NewState = State#logger_state{streams = NewStreams},\n loop(NewState);\n {set_verbosity, NewVerbosity} ->\n NewState = State#logger_state{verbosity = NewVerbosity},\n loop(NewState);\n {complete, {Warnings, TraceInfo}, Scheduler, Ref} ->\n %% We may have race information referring to the previous\n %% interleaving, as race analysis happens after trace logging.\n RaceInfo = [S || S = {T, _} <- Streams, T =:= race],\n case RaceInfo =:= [] of\n true -> ok;\n false ->\n case LastHadOutput of\n true -> ok;\n false ->\n %% Add missing header\n separator(Output, $#),\n to_file(Output, \"Interleaving #~p~n\", [TracesExplored])\n end,\n separator(Output, $-),\n print_streams(RaceInfo, Output)\n end,\n case TraceInfo =/= [] of\n true ->\n separator(Output, $#),\n to_file(Output, \"Interleaving #~p~n\", [TracesExplored + 1]),\n separator(Output, $-),\n case Warnings =:= [] of\n true ->\n to_file(Output, \"No errors found.~n\", []),\n separator(Output, $-);\n false ->\n to_file(Output, \"Errors found:~n\", []),\n print_depth_tip(),\n WarnStr =\n [concuerror_io_lib:error_s(W, PrintDepth) || W <- Warnings],\n to_file(Output, \"~s\", [WarnStr]),\n separator(Output, $-)\n end,\n print_streams([S || S = {T, _} <- Streams, T =/= race], Output),\n to_file(Output, \"Event trace:~n\", []),\n concuerror_io_lib:pretty(Output, TraceInfo, PrintDepth);\n false -> ok\n end,\n {NewErrors, NewSSB, GraphFinal, GraphColor} =\n case Warnings of\n sleep_set_block ->\n Msg =\n \"Some interleavings were 'sleep-set blocked' (SSB). This\"\n \" is expected, since you are not using '--dpor\"\n \" optimal', but indicates wasted effort.~n\",\n ?unique(self(), ?lwarning, Msg, []),\n {Errors, TracesSSB + 1, \"SSB\", \"yellow\"};\n [] ->\n {Errors, TracesSSB, \"Ok\", \"limegreen\"};\n _ ->\n ErrorString =\n case proplists:get_value(fatal, Warnings) of\n true -> \" (Concuerror crashed)\";\n undefined ->\n case proplists:get_value(deadlock, Warnings) of\n undefined -> \"\";\n Deadlocks ->\n Pids = [element(1, D) || D <- Deadlocks],\n io_lib:format(\" (~p blocked)\", [Pids])\n end\n end,\n {Errors + 1, TracesSSB, \"Error\" ++ ErrorString, \"red\"}\n end,\n _ =\n graph_command({status, TracesExplored, GraphFinal, GraphColor}, State),\n NewState =\n State#logger_state{\n last_had_output = LogAll orelse NewErrors =/= Errors,\n streams = [],\n traces_explored = TracesExplored + 1,\n traces_ssb = NewSSB,\n errors = NewErrors\n },\n Scheduler ! Ref,\n loop(NewState);\n tick ->\n N = clear_ticks(1),\n loop(progress_refresh(N, State))\n end.\n\nformat_utc_timestamp() ->\n TS = os:timestamp(),\n {{Year, Month, Day}, {Hour, Minute, Second}} =\n calendar:now_to_local_time(TS),\n Mstr =\n element(Month, {\"Jan\", \"Feb\", \"Mar\", \"Apr\", \"May\", \"Jun\", \"Jul\", \"Aug\",\n \"Sep\", \"Oct\", \"Nov\", \"Dec\"}),\n io_lib:format(\"~2..0w ~s ~4w ~2..0w:~2..0w:~2..0w\",\n [Day, Mstr, Year, Hour, Minute, Second]).\n\nprintout(#logger_state{ticker = Ticker} = State, Format, Data)\n when Ticker =/= none ->\n progress_clear(),\n to_stderr(Format, Data),\n progress_print(State);\nprintout(_, Format, Data) ->\n to_stderr(Format, Data).\n\nprint_log_msgs(Output, LogMsgs) ->\n ForeachInner =\n fun({Format, Data}) ->\n to_file(Output, \"* \" ++ Format, Data)\n end,\n Foreach =\n fun({Type, Messages}) ->\n Header = level_to_string(Type),\n Suffix =\n case Type of\n ?linfo -> \"\";\n _ -> \"s\"\n end,\n to_file(Output, \"~s~s:~n\", [Header, Suffix]),\n separator(Output, $-),\n lists:foreach(ForeachInner, Messages),\n to_file(Output, \"~n\", []),\n separator(Output, $#)\n end,\n lists:foreach(Foreach, LogMsgs).\n\nlevel_to_tag(Level) ->\n Suffix =\n case Level > ?linfo of\n true -> \"\";\n false -> \": \"\n end,\n level_to_string(Level) ++ Suffix.\n\nlevel_to_string(Level) ->\n case Level of\n ?lerror -> \"Error\";\n ?lwarning -> \"Warning\";\n ?ltip -> \"Tip\";\n ?linfo -> \"Info\";\n _ -> \"\"\n end.\n\n%%------------------------------------------------------------------------------\n\ninitialize_ticker() ->\n self() ! tick,\n progress_initial_padding().\n\nticker(Logger) ->\n Logger ! tick,\n receive\n {stop, L} -> L ! stopped\n after\n ?TICKER_TIMEOUT -> ticker(Logger)\n end.\n\nclear_ticks(N) ->\n receive\n tick -> clear_ticks(N + 1)\n after\n 0 -> N\n end.\n\nstop_ticker(#logger_state{ticker = Ticker} = State) ->\n case is_pid(Ticker) of\n true ->\n Ticker ! {stop, self()},\n progress_clear(),\n receive\n stopped -> State#logger_state{ticker = none}\n end;\n false -> State\n end.\n\n%%------------------------------------------------------------------------------\n\nseparator_string(Char) ->\n lists:duplicate(80, Char).\n\nseparator(Output, Char) ->\n to_file(Output, \"~s~n\", [separator_string(Char)]).\n\nprint_streams(Streams, Output) ->\n Fold =\n fun(Tag, Buffer, ok) ->\n print_stream(Tag, Buffer, Output),\n ok\n end,\n orddict:fold(Fold, ok, Streams).\n\nprint_stream(Tag, Buffer, Output) ->\n to_file(Output, stream_tag_to_string(Tag), []),\n to_file(Output, \"~s~n\", [Buffer]),\n case Tag =/= race of\n true ->\n to_file(Output, \"~n\", []),\n separator(Output, $-);\n false -> ok\n end.\n\nstream_tag_to_string(standard_io) -> \"Standard Output:~n\";\nstream_tag_to_string(standard_error) -> \"Standard Error:~n\";\nstream_tag_to_string(race) -> \"New races found:\". % ~n is added by buffer\n\n%%------------------------------------------------------------------------------\n\nprogress_initial_padding() ->\n Line = progress_line(0),\n to_stderr(\"~s~n\", [Line]),\n to_stderr(\"~s~n\", [progress_header(0)]),\n to_stderr(\"~s~n\", [Line]),\n to_stderr(\"~n\", []).\n\nprogress_clear() ->\n delete_lines(4).\n\nprogress_refresh(N, #logger_state{ticks = T} = State) ->\n %% No extra line afterwards to ease printing of 'running logs'.\n delete_lines(1),\n {Str, NewState} = progress_content(State#logger_state{ticks = T + N}),\n to_stderr(\"~s~n\", [Str]),\n NewState.\n\ndelete_lines(0) -> ok;\ndelete_lines(N) ->\n to_stderr(\"~c[1A~c[2K\\r\", [27, 27]),\n delete_lines(N - 1).\n\nprogress_print(#logger_state{traces_ssb = SSB} = State) ->\n Line = progress_line(SSB),\n to_stderr(\"~s~n\", [Line]),\n to_stderr(\"~s~n\", [progress_header(SSB)]),\n to_stderr(\"~s~n\", [Line]),\n {Str, _NewState} = progress_content(State),\n to_stderr(\"~s~n\", [Str]).\n\n-spec progress_help() -> string().\n\nprogress_help() ->\n io_lib:format(\n \"Errors : Schedulings with errors~n\"\n \"Explored : Schedulings already explored~n\"\n \"SSB (if >0) : Sleep set blocked schedulings (wasted effort)~n\"\n \"Planned : Schedulings that will certainly be explored~n\"\n \"~~Rate : Average rate of exploration (in schedulings/s)~n\"\n \"Elapsed : Time elapsed (actively running)~n\"\n \"Est.Total : Estimation of total number of schedulings (see below)~n\"\n \"Est.TTC : Estimated time to completion (see below)~n\"\n \"~n\"\n \"Estimations:~n\"\n \"The total number of schedulings is estimated from the shape of the\"\n \" exploration tree. It has been observed to be WITHIN ONE ORDER OF\"\n \" MAGNITUDE of the actual number, when using default options.~n\"\n \"The time to completion is estimated using the estimated remaining\"\n \" schedulings (Est.Total - Explored) divided by the current Rate.~n\"\n , []).\n\nprogress_header(0) ->\n progress_header_common(\"\");\nprogress_header(_State) ->\n progress_header_common(\" SSB |\").\n\nprogress_header_common(SSB) ->\n \"\"\n \"Errors |\"\n \" Explored |\"\n ++ SSB ++\n \" Planned |\"\n \" ~Rate |\"\n \" Elapsed |\"\n \" Est.Total |\"\n \" Est.TTC\".\n\nprogress_line(SSB) ->\n L = lists:duplicate(length(progress_header(SSB)), $-),\n io_lib:format(\"~s\", [L]).\n\nprogress_content(State) ->\n #logger_state{\n errors = Errors,\n estimator = Estimator,\n rate_info = RateInfo,\n ticks = Ticks,\n traces_explored = TracesExplored,\n traces_ssb = TracesSSB,\n traces_total = TracesTotal\n } = State,\n Planned = TracesTotal - TracesExplored,\n {Rate, NewRateInfo} = update_rate(RateInfo, TracesExplored),\n Estimation = concuerror_estimator:get_estimation(Estimator),\n EstimatedTotal = sanitize_estimation(Estimation, TracesTotal),\n ErrorsStr =\n case Errors of\n 0 -> \"none\";\n _ when Errors < 10000 -> add_seps_to_int(Errors);\n _ -> \"> 10k\"\n end,\n [TracesExploredStr, PlannedStr] =\n [add_seps_to_int(S) || S <- [TracesExplored, Planned]],\n SSBStr =\n case TracesSSB of\n 0 -> \"\";\n _ when TracesSSB < 100000 ->\n io_lib:format(\"~8s |\", [add_seps_to_int(TracesSSB)]);\n _ -> io_lib:format(\"~8s |\", [\"> 100k\"])\n end,\n RateStr =\n case Rate of\n init -> \"...\";\n 0 -> \"<1/s\";\n _ -> io_lib:format(\"~w/s\", [Rate])\n end,\n EstimatedTotalStr =\n case EstimatedTotal of\n unknown -> \"...\";\n _ when EstimatedTotal < 10000000 -> add_seps_to_int(EstimatedTotal);\n _ ->\n Low = trunc(math:log10(EstimatedTotal)),\n io_lib:format(\"< 10e~w\", [Low + 1])\n end,\n ElapsedStr = time_string(round(Ticks * ?TICKER_TIMEOUT / 1000)),\n CompletionStr = estimate_completion(EstimatedTotal, TracesExplored, Rate),\n Str =\n io_lib:format(\n \"~6s |\"\n \"~11s |\"\n \"~s\"\n \"~8s |\"\n \"~6s |\"\n \"~8s |\"\n \"~10s |\"\n \"~8s\",\n [ErrorsStr, TracesExploredStr, SSBStr, PlannedStr,\n RateStr, ElapsedStr, EstimatedTotalStr, CompletionStr]\n ),\n NewState = State#logger_state{rate_info = NewRateInfo},\n {Str, NewState}.\n\n%%------------------------------------------------------------------------------\n\ninit_rate_info() ->\n #rate_info{\n average = init,\n prev = 0,\n timestamp = timestamp()\n }.\n\nupdate_rate(RateInfo, TracesExplored) ->\n #rate_info{\n average = Average,\n prev = Prev,\n timestamp = Old\n } = RateInfo,\n New = timestamp(),\n {Rate, NewAverage} =\n case TracesExplored < 10 of\n true ->\n {init, init};\n false ->\n Time = timediff(New, Old),\n Diff = TracesExplored - Prev,\n CurrentRate = Diff / (Time + 0.0001),\n case Average =:= init of\n true ->\n NA = concuerror_window_average:init(CurrentRate, 50),\n {round(CurrentRate), NA};\n false ->\n {R, NA} =\n concuerror_window_average:update(CurrentRate, Average),\n {round(R), NA}\n end\n end,\n NewRateInfo =\n RateInfo#rate_info{\n average = NewAverage,\n prev = TracesExplored,\n timestamp = New\n },\n {Rate, NewRateInfo}.\n\nsanitize_estimation(Estimation, _)\n when not is_number(Estimation) -> Estimation;\nsanitize_estimation(Estimation, TracesTotal) ->\n EstSignificant = two_significant(Estimation),\n case EstSignificant > TracesTotal of\n true -> EstSignificant;\n false -> two_significant(TracesTotal)\n end.\n\ntwo_significant(Number) when Number < 100 -> Number + 1;\ntwo_significant(Number) -> 10 * two_significant(Number div 10).\n\n%%------------------------------------------------------------------------------\n\nto_stderr(Format, Data) ->\n to_file(standard_error, Format, Data).\n\nto_file(disable, _, _) ->\n ok;\nto_file(Output, Format, Data) ->\n Msg = io_lib:format(Format, Data),\n io:format(Output, \"~s\", [Msg]).\n\n%%------------------------------------------------------------------------------\n\nfinal_interleavings_message(State) ->\n #logger_state{\n bound_reached = BoundReached,\n errors = Errors,\n interleaving_bound = InterleavingBound,\n traces_explored = TracesExplored,\n traces_ssb = TracesSSB,\n traces_total = TracesTotal\n } = State,\n SSB =\n case TracesSSB =:= 0 of\n true -> \"\";\n false -> io_lib:format(\" (~p sleep-set blocked)\", [TracesSSB])\n end,\n BR =\n case BoundReached of\n true -> \" (the scheduling bound was reached)\";\n false -> \"\"\n end,\n ExploreTotal = min(TracesTotal, InterleavingBound),\n io_lib:format(\"~p errors, ~p/~p interleavings explored~s~s~n\",\n [Errors, TracesExplored, ExploreTotal, SSB, BR]).\n\n%%------------------------------------------------------------------------------\n\nestimate_completion(Estimated, Explored, Rate)\n when not is_number(Estimated);\n not is_number(Explored);\n not is_number(Rate) ->\n \"...\";\nestimate_completion(Estimated, Explored, Rate) ->\n Remaining = Estimated - Explored,\n Completion = round(Remaining/(Rate + 0.001)),\n approximate_time_string(Completion).\n\n%%------------------------------------------------------------------------------\n\n-type posint() :: pos_integer().\n-type split_fun() :: fun((posint()) -> posint() | {posint(), posint()}).\n\n-record(time_formatter, {\n threshold = 1 :: pos_integer() | 'infinity',\n rounding = 1 :: pos_integer(),\n split_fun :: split_fun(),\n one_format = \"~w\" :: string(),\n two_format = \"~w ~w\" :: string()\n }).\n\napproximate_time_string(Seconds) ->\n lists:flatten(time_string(approximate_time_formatters(), Seconds)).\n\ntime_string(Seconds) ->\n lists:flatten(time_string(time_formatters(), Seconds)).\n\ntime_string([ATF|Rest], Value) ->\n #time_formatter{\n threshold = Threshold,\n rounding = Rounding,\n split_fun = SplitFun,\n one_format = OneFormat,\n two_format = TwoFormat\n } = ATF,\n case Value >= Threshold of\n true -> time_string(Rest, Value div Rounding);\n false ->\n case SplitFun(Value) of\n {High, Low} -> io_lib:format(TwoFormat, [High, Low]);\n Single -> io_lib:format(OneFormat, [Single])\n end\n end.\n\ntime_formatters() ->\n SecondsSplitFun = fun(S) -> S end,\n SecondsATF =\n #time_formatter{\n threshold = 60 * 1,\n rounding = 1,\n split_fun = SecondsSplitFun,\n one_format = \"~ws\"\n },\n MinutesSplitFun =\n fun(Seconds) -> {Seconds div 60, Seconds rem 60} end,\n MinutesATF =\n #time_formatter{\n threshold = 60 * 60,\n rounding = 60,\n split_fun = MinutesSplitFun,\n two_format = \"~wm~2..0ws\"\n },\n HoursSplitFun =\n fun(Minutes) -> {Minutes div 60, Minutes rem 60} end,\n HoursATF =\n #time_formatter{\n threshold = 2 * 24 * 60,\n rounding = 60,\n split_fun = HoursSplitFun,\n two_format = \"~wh~2..0wm\"\n },\n DaysSplitFun =\n fun(Hours) -> {Hours div 24, Hours rem 24} end,\n DaysATF =\n #time_formatter{\n threshold = infinity,\n split_fun = DaysSplitFun,\n two_format = \"~wd~2..0wh\"\n },\n [ SecondsATF\n , MinutesATF\n , HoursATF\n , DaysATF\n ].\n\napproximate_time_formatters() ->\n SecondsSplitFun = fun(_) -> 1 end,\n SecondsATF =\n #time_formatter{\n threshold = 60 * 1,\n rounding = 60,\n split_fun = SecondsSplitFun,\n one_format = \"<~wm\"\n },\n MinutesSplitFun = fun(Minutes) -> Minutes end,\n MinutesATF =\n #time_formatter{\n threshold = 30 * 1,\n rounding = 10,\n split_fun = MinutesSplitFun,\n one_format = \"~wm\"\n },\n TensSplitFun =\n fun(Tens) ->\n case Tens < 6 of\n true -> Tens * 10;\n false -> {Tens div 6, (Tens rem 6) * 10}\n end\n end,\n TensATF =\n #time_formatter{\n threshold = 2 * 6,\n rounding = 6,\n split_fun = TensSplitFun,\n one_format = \"~wm\",\n two_format = \"~wh~2..0wm\"\n },\n HoursSplitFun =\n fun(Hours) ->\n case Hours < 60 of\n true -> Hours;\n false -> {Hours div 24, Hours rem 24}\n end\n end,\n HoursATF =\n #time_formatter{\n threshold = 2 * 24,\n rounding = 24,\n split_fun = HoursSplitFun,\n one_format = \"~wh\",\n two_format = \"~wd~2..0wh\"\n },\n DaysSplitFun = fun(Days) -> Days end,\n DaysATF =\n #time_formatter{\n threshold = 12 * 30,\n rounding = 30,\n split_fun = DaysSplitFun,\n one_format = \"~wd\"\n },\n MonthsSplitFun =\n fun(Months) -> {Months div 12, Months rem 12} end,\n MonthsATF =\n #time_formatter{\n threshold = 50 * 12,\n rounding = 12,\n split_fun = MonthsSplitFun,\n two_format = \"~wy~2..0wm\"\n },\n YearsSplitFun =\n fun(Years) -> Years end,\n YearsATF =\n #time_formatter{\n threshold = 10000,\n rounding = 1,\n split_fun = YearsSplitFun,\n one_format = \"~wy\"\n },\n TooMuchSplitFun =\n fun(_) -> 10000 end,\n TooMuchATF =\n #time_formatter{\n threshold = infinity,\n split_fun = TooMuchSplitFun,\n one_format = \"> ~wy\"\n },\n [ SecondsATF\n , MinutesATF\n , TensATF\n , HoursATF\n , DaysATF\n , MonthsATF\n , YearsATF\n , TooMuchATF\n ].\n\n%%------------------------------------------------------------------------------\n\nadd_seps_to_int(Integer) when Integer < 1000 -> integer_to_list(Integer);\nadd_seps_to_int(Integer) ->\n Rem = Integer rem 1000,\n DivS = add_seps_to_int(Integer div 1000),\n io_lib:format(\"~s ~3..0w\", [DivS, Rem]).\n\n%%------------------------------------------------------------------------------\n\n-spec graph_set_node(logger(), unique_id(), unique_id()) -> ok.\n\ngraph_set_node(Logger, Parent, Sibling) ->\n Logger ! {graph, {set_node, Parent, Sibling}},\n ok.\n\n-spec graph_new_node(logger(), unique_id(), index(), event()) -> ok.\n\ngraph_new_node(Logger, Ref, Index, Event) ->\n Logger ! {graph, {new_node, Ref, Index, Event}},\n ok.\n\n-spec graph_race(logger(), unique_id(), unique_id()) -> ok.\ngraph_race(Logger, EarlyRef, Ref) ->\n Logger ! {graph, {race, EarlyRef, Ref}},\n ok.\n\ngraph_preamble({disable, \"\"}) -> disable;\ngraph_preamble({GraphFile, _}) ->\n to_file(\n GraphFile,\n \"digraph {~n\"\n \" graph [ranksep=0.3]~n\"\n \" node [shape=box,width=7,fontname=Monospace]~n\"\n \" \\\"init\\\" [label=\\\"Initial\\\"];~n\"\n \" subgraph interleaving_1 {~n\", []),\n {GraphFile, init, none}.\n\ngraph_command(_Command, #logger_state{graph_data = disable} = State) -> State;\ngraph_command(Command, State) ->\n #logger_state{\n graph_data = {GraphFile, Parent, Sibling} = Graph,\n print_depth = PrintDepth\n } = State,\n NewGraph =\n case Command of\n {new_node, Ref, I, Event} ->\n ErrorS =\n case Event#event.event_info of\n #exit_event{reason = normal} ->\n \",color=limegreen,penwidth=5\";\n #exit_event{} ->\n \",color=red,penwidth=5\";\n #builtin_event{status = {crashed, _}} ->\n \",color=orange,penwidth=5\";\n _ -> \"\"\n end,\n print_depth_tip(),\n NoLocEvent = Event#event{location = []},\n Label = concuerror_io_lib:pretty_s({I, NoLocEvent}, PrintDepth - 19),\n to_file(\n GraphFile,\n \" \\\"~p\\\" [label=\\\"~s\\\\l\\\"~s];~n\",\n [Ref, Label, ErrorS]),\n case Sibling =:= none of\n true ->\n to_file(GraphFile, \"~s [weight=1000];~n\", [ref_edge(Parent, Ref)]);\n false ->\n to_file(\n GraphFile,\n \"~s [style=invis,weight=1];~n\"\n \"~s [constraint=false];~n\",\n [ref_edge(Parent, Ref), ref_edge(Sibling, Ref)])\n end,\n {GraphFile, Ref, none};\n {race, EarlyRef, Ref} ->\n to_file(\n GraphFile,\n \"~s [constraint=false, color=red, dir=back, penwidth=3,\"\n \" style=dashed];~n\",\n [dref_edge(EarlyRef, Ref)]),\n Graph;\n {set_node, {I, _} = NewParent, NewSibling} ->\n to_file(\n GraphFile,\n \" }~n\"\n \" subgraph interleaving_~w {~n\",\n [I + 1]),\n {GraphFile, NewParent, NewSibling};\n {status, Count, String, Color} ->\n Final = {Count + 1, final},\n to_file(\n GraphFile,\n \" \\\"~p\\\" [label=\\\"~p: ~s\\\",style=filled,fillcolor=~s];~n\"\n \"~s [weight=1000];~n\",\n [Final, Count+1, String, Color, ref_edge(Parent, Final)]),\n Graph\n end,\n State#logger_state{graph_data = NewGraph}.\n\nref_edge(RefA, RefB) ->\n io_lib:format(\" \\\"~p\\\" -> \\\"~p\\\"\", [RefA, RefB]).\n\ndref_edge(RefA, RefB) ->\n io_lib:format(\" \\\"~p\\\":e -> \\\"~p\\\":e\", [RefA, RefB]).\n\nclose_files(State) ->\n graph_close(State),\n file_close(State#logger_state.output).\n\ngraph_close(#logger_state{graph_data = disable}) -> ok;\ngraph_close(#logger_state{graph_data = {GraphFile, _, _}}) ->\n to_file(\n GraphFile,\n \" }~n\"\n \"}~n\", []),\n file_close(GraphFile).\n\nfile_close(disable) ->\n ok;\nfile_close(File) ->\n ok = file:close(File).\n\n%%------------------------------------------------------------------------------\n\nprint_depth_tip() ->\n Tip = \"Increase '--print_depth' if output/graph contains \\\"...\\\".~n\",\n ?unique(self(), ?ltip, Tip, []).\n\n%%------------------------------------------------------------------------------\n\nsetup_symbolic_names(SymbolicNames, Processes) ->\n case SymbolicNames of\n false -> ok;\n true ->\n print_symbolic_info(),\n concuerror_callback:setup_logger(Processes)\n end.\n\nprint_symbolic_info() ->\n Tip =\n \"Showing PIDs as \\\"\\\"\"\n \" ('-h symbolic_names').~n\",\n ?unique(self(), ?linfo, Tip, []).\n" }, { "path": "src/concuerror_options.erl", "content": "%%% @doc\n%%% Concuerror's options module\n%%%\n%%% The `_option()' functions listed on this page all correspond to\n%%% valid configuration options.\n%%%\n%%% For general documentation go to the Overview page.\n%%%\n%%% == Table of Contents ==\n%%%\n%%%
    \n%%%
  • {@section Help}
    • \n%%%
  • {@section Options}
    • \n%%%
  • {@section Standard Error Printout}
    • \n%%%
  • {@section Report File}
    • \n%%%
\n%%%\n%%% == Help ==\n%%%\n%%% You can also access documentation about options using the {@link\n%%% help_option/0. `help'} option. You can get more help with {@link\n%%% help_option/0. `concuerror --help help'}. In the future even more\n%%% help might be added.\n%%%\n%%% If you invoke Concuerror without an argument, `--help' is assumed\n%%% as an argument.\n%%%\n%%% == Options ==\n%%%
    \n%%%
  1. All options have a long name.
    2. \n%%%
  2. Some options also have a short name.
    3. \n%%%
  3. Options marked with an asterisk * are considered\n%%% experimental and may be brittle and disappear in future versions.
    4. \n%%%
\n%%%\n%%% === Arguments ===\n%%%\n%%% The type of each options' argument is listed at the option's\n%%% specification below. When specifying {@type integer()} or {@type\n%%% boolean()} options in the command line you can omit `true' or 1\n%%% as values.\n%%%\n%%% === Module Attributes ===\n%%%\n%%% You can use the following attributes in the module specified by `--module'\n%%% to pass options to Concuerror:\n%%%
\n%%%
`-concuerror_options(Options)'
\n%%%
\n%%% A list of Options that can be overriden by other options.\n%%%
\n%%%
`-concuerror_options_forced(Options)'
\n%%%
\n%%% A list of Options that override any other options.\n%%%
\n%%%
\n%%%\n%%% This information is also available via {@link\n%%% help_option/0. `concuerror --help attributes'}\n%%%\n%%% === Keywords ===\n%%%\n%%% Each option is associated with one or more\n%%% keywords. These can be used with {@link help_option/0. `help'}\n%%% to find related options.\n%%%\n%%% If you invoke {@link help_option/0. `help'} without an argument,\n%%% you will only see options with the keyword `basic'. To see all\n%%% options use {@link help_option/0. `--help all'}.\n%%%\n%%% === Multiple Arguments ===\n%%%\n%%% Some options can be specified multiple times, each time with a\n%%% different argument. For those that don't the last value is kept\n%%% (this makes invocation via command line easier). Concuerror\n%%% reports any overrides.\n%%%\n%%% == Standard Error Printout ==\n%%%\n%%% By default, Concuerror prints diagnostic messages in the standard\n%%% error stream. Such messages are also printed at the bottom of the\n%%% {@section Report File} after the analysis is completed. You can\n%%% find explanation of the classification of these messages in the\n%%% {@link verbosity_option/0. `verbosity'} option.\n%%%\n%%% By default, Concuerror also prints progress information in the\n%%% standard error stream. You can find what is the meaning of each field\n%%% by running `concuerror --help progress'.\n%%%\n%%% The printout can be reduced or disabled (see {@link\n%%% verbosity_option/0. `verbosity'} option). Diagnostic messages are\n%%% always printed in the {@section Report File}.\n%%%\n%%% == Report File ==\n%%%\n%%% By default, Concuerror prints analysis findings in a report file.\n%%%\n%%% This file contains:\n%%%\n%%%
    \n%%%
  1. A header line containing the version used and starting time.
    2. \n%%%
  2. A list of all the options used in the particular run.
    3. \n%%%
  3. Zero or more {@section Error Reports} about erroneous\n%%% interleavings.
    4. \n%%%
  4. Diagnostic messages (see {@section Standard Error Printout}).
    5. \n%%%
  5. Summary about the analysis, including\n%%%
      \n%%%
    • completion time,
      • \n%%%
    • {@link concuerror:analysis_result(). analysis result}
      • \n%%%
    • total number of interleavings explored
      • \n%%%
    • total number of interleavings with errors
      • \n%%%
    \n%%%
    6. \n%%%
\n%%%\n%%% === Error Reports ===\n%%%\n%%% An error report corresponds to an interleaving that lead to errors and\n%%% contains at least the following sections:\n%%%\n%%%
    \n%%%
  • Description of all errors encountered.
    • \n%%%
  • Linear trace of all events in the interleaving. This contains only\n%%% the operations that read/write shared information.
    • \n%%%
\n%%%\n%%% If the program produce any output, this is also included.\n%%%\n%%% By default, Concuerror reports the following errors:\n%%%
    \n%%%
  • A process exited abnormally.
    • \n%%%
  • One or more processes are 'stuck' at a receive statement.
    • \n%%%
  • The trace exceeded a (configurable but finite) number of events.
    • \n%%%
  • Abnormal errors.
    • \n%%%
\n%%%\n%%% If the {@link show_races_option/0. `show_races'} option is used,\n%%% the pairs of racing events that justify the exploration of new\n%%% interleavings are also shown. These are shown for all\n%%% interleavings, not only the ones with errors.\n%%%\n%%% If the {@link log_all_option/0. `log_all'} option is used,\n%%% all interleavings will be shown, not only the ones with errors.\n%%%\n\n-module(concuerror_options).\n\n-export(\n [ after_timeout_option/0\n , assertions_only_option/0\n , assume_racing_option/0\n , depth_bound_option/0\n , disable_sleep_sets_option/0\n , dpor_option/0\n , exclude_module_option/0\n , file_option/0\n , first_process_errors_only_option/0\n , graph_option/0\n , help_option/0\n , ignore_error_option/0\n , instant_delivery_option/0\n , interleaving_bound_option/0\n , keep_going_option/0\n , log_all_option/0\n , module_option/0\n , no_output_option/0\n , non_racing_system_option/0\n , observers_option/0\n , optimal_option/0\n , output_option/0\n , pa_option/0\n , print_depth_option/0\n , pz_option/0\n , quiet_option/0\n , scheduling_bound_option/0\n , scheduling_bound_type_option/0\n , scheduling_option/0\n , show_races_option/0\n , strict_scheduling_option/0\n , symbolic_names_option/0\n , test_option/0\n , timeout_option/0\n , treat_as_normal_option/0\n , use_receive_patterns_option/0\n , verbosity_option/0\n , version_option/0\n ]).\n\n-export([finalize/1, parse_cl/1]).\n\n%% Exported for autocomplete tests\n-export([options/0]).\n\n-export_type(\n [ option_spec/0\n , options/0\n ]).\n\n-export_type(\n [ bound/0\n , dpor/0\n , scheduling/0\n , scheduling_bound_type/0\n ]).\n\n-ifdef(DOC).\n-export([generate_option_docfiles/1]).\n-endif.\n\n%%%-----------------------------------------------------------------------------\n\n-include(\"concuerror.hrl\").\n\n%%%-----------------------------------------------------------------------------\n\n-type options() :: proplists:proplist().\n%% Concuerror's configuration options are given as a `proplist()'.\n%% See the list of functions in this module for valid configuration\n%% options.\n\n-type bound() :: 'infinity' | non_neg_integer().\n%% If you want to pass `infinity' as option from the command-line, use `-1'.\n-type dpor() :: 'none' | 'optimal' | 'persistent' | 'source'.\n%% See {@link dpor_option/0} for the meaning of values.\n-type scheduling() :: 'oldest' | 'newest' | 'round_robin'.\n%% See {@link scheduling_option/0} for the meaning of values.\n-type scheduling_bound_type() :: 'bpor' | 'delay' | 'none' | 'ubpor'.\n%% See {@link scheduling_bound_option/0} for the meaning of values.\n\n%%%-----------------------------------------------------------------------------\n\n-define(MINIMUM_TIMEOUT, 500).\n-define(DEFAULT_VERBOSITY, ?linfo).\n-define(DEFAULT_PRINT_DEPTH, 20).\n-define(DEFAULT_OUTPUT, \"concuerror_report.txt\").\n\n%%%-----------------------------------------------------------------------------\n\n-define(ATTRIBUTE_OPTIONS, concuerror_options).\n-define(ATTRIBUTE_FORCED_OPTIONS, concuerror_options_forced).\n-define(ATTRIBUTE_TIP_THRESHOLD, 8).\n\n%%%-----------------------------------------------------------------------------\n\n-type long_name() :: atom().\n\n-type keywords() ::\n [ 'advanced' |\n 'basic' |\n 'bound'|\n 'console' |\n 'erlang' |\n 'errors' |\n 'experimental' |\n 'input' |\n 'output' |\n 'por' |\n 'visual'\n ].\n\n-type short_name() :: char() | undefined.\n-type extra_type() :: 'bound' | 'dpor' | 'scheduling' | 'scheduling_bound_type'.\n-type arg_spec() :: getopt:arg_spec() | extra_type() | {extra_type(), term()}.\n-type short_help() :: string().\n-type long_help() :: string() | 'nolong'.\n\n-opaque option_spec() ::\n { long_name()\n , keywords()\n , short_name()\n , arg_spec()\n , short_help()\n , long_help()\n }.\n%% This is used internally to specify option components and is\n%% irrelevant for a user of Concuerror.\n\n-define(OPTION_KEY, 1).\n-define(OPTION_KEYWORDS, 2).\n-define(OPTION_SHORT, 3).\n-define(OPTION_GETOPT_TYPE_DEFAULT, 4).\n-define(OPTION_GETOPT_SHORT_HELP, 5).\n-define(OPTION_GETOPT_LONG_HELP, 6).\n\n-spec options() -> [option_spec()].\noptions() ->\n [ module_option()\n , test_option()\n , output_option()\n , no_output_option()\n , verbosity_option()\n , quiet_option()\n , graph_option()\n , symbolic_names_option()\n , print_depth_option()\n , show_races_option()\n , file_option()\n , pa_option()\n , pz_option()\n , log_all_option()\n , exclude_module_option()\n , depth_bound_option()\n , interleaving_bound_option()\n , dpor_option()\n , optimal_option()\n , scheduling_bound_type_option()\n , scheduling_bound_option()\n , disable_sleep_sets_option()\n , after_timeout_option()\n , instant_delivery_option()\n , use_receive_patterns_option()\n , observers_option()\n , scheduling_option()\n , strict_scheduling_option()\n , keep_going_option()\n , ignore_error_option()\n , treat_as_normal_option()\n , assertions_only_option()\n , first_process_errors_only_option()\n , timeout_option()\n , assume_racing_option()\n , non_racing_system_option()\n , help_option()\n , version_option()\n ].\n\n%%%-----------------------------------------------------------------------------\n\n-ifdef(DOC).\n\n%% @private\n-spec generate_option_docfiles(filename:filename()) -> ok.\n\ngenerate_option_docfiles(Dir) ->\n lists:foreach(fun(O) -> generate_option_docfile(O, Dir) end, options()).\n\n-spec generate_option_docfile(option_spec(), filename:filename()) -> ok.\n\ngenerate_option_docfile(Option, Dir) ->\n OptionName = element(?OPTION_KEY, Option),\n OptionShortHelp = element(?OPTION_GETOPT_SHORT_HELP, Option),\n OptionShort = element(?OPTION_SHORT, Option),\n OptionArg = element(?OPTION_GETOPT_TYPE_DEFAULT, Option),\n OptionKeywords = element(?OPTION_KEYWORDS, Option),\n OptionLongHelp = element(?OPTION_GETOPT_LONG_HELP, Option),\n Filename = filename:join([Dir, atom_to_list(OptionName) ++ \"_option.edoc\"]),\n {ok, File} = file:open(Filename, [write]),\n print_docfile_preamble(File),\n io:format(File, \"@doc ~s~n~n\", [OptionShortHelp]),\n io:format(File, \"
    \", []),\n item(\n File,\n \"Name: `--~p Value' or `@{~p, Value@}'\",\n [OptionName, OptionName]),\n case OptionShort =:= undefined of\n true -> ok;\n false -> item(File, \"Short: `-~c'\", [OptionShort])\n end,\n {Type, DefaultVal} =\n case OptionArg of\n {T, D} -> {T, {true, D}};\n T -> {T, false}\n end,\n item(File, \"Argument type: {@type ~w()}\", [Type]),\n case DefaultVal of\n {true, DV} -> item(File, \"Default value: `~p'\", [DV]);\n false -> ok\n end,\n AllowedInModuleAttributes =\n not lists:member(OptionName, not_allowed_in_module_attributes()),\n item(\n File, \"Allowed in {@section Module Attributes}: ~p\",\n [to_yes_or_no(AllowedInModuleAttributes)]),\n MultipleAllowed =\n lists:member(OptionName, multiple_allowed()),\n item(\n File, \"{@section Multiple Arguments}: ~p\",\n [to_yes_or_no(MultipleAllowed)]),\n case OptionKeywords =:= [] of\n true -> ok;\n false ->\n StringKeywords =\n string:join([atom_to_list(K) || K <- OptionKeywords], \", \"),\n item(File, \"{@section Keywords}: ~s\", [StringKeywords])\n end,\n io:format(File, \"
\", []),\n case OptionLongHelp =:= nolong of\n true -> ok;\n false -> io:format(File, OptionLongHelp ++ \"~n\", [])\n end,\n file:close(File).\n\nprint_docfile_preamble(File) ->\n Format =\n \"%% ATTENTION!~n\"\n \"%% This file is generated by ~w:generate_option_docfile/2~n\"\n \"~n\",\n io:format(File, Format, [?MODULE]).\n\nitem(File, Format, Args) ->\n io:format(File, \"
  • \" ++ Format ++ \"
    • \", Args).\n\nto_yes_or_no(true) -> yes;\nto_yes_or_no(false) -> no.\n\n-endif.\n\n%%%-----------------------------------------------------------------------------\n\n%% @docfile \"doc/module_option.edoc\"\n-spec module_option() -> option_spec().\n\nmodule_option() ->\n { module\n , [basic, input]\n , $m\n , atom\n , \"Module containing the test function\"\n , \"Concuerror begins exploration from a test function located in the module\"\n \" specified by this option.~n\"\n \"~n\"\n \"There is no need to specify modules used in the test if they are in\"\n \" Erlang's code path. Otherwise use `--file', `--pa' or `--pz'.\"\n }.\n\n%% @docfile \"doc/test_option.edoc\"\n-spec test_option() -> option_spec().\n\ntest_option() ->\n { test\n , [basic, input]\n , $t\n , {atom, test}\n , \"Name of test function\"\n , \"This must be a 0-arity function located in the module specified by\"\n \" `--module'. Concuerror will start the test by spawning a process that\"\n \" calls this function.\"\n }.\n\n%% @docfile \"doc/output_option.edoc\"\n-spec output_option() -> option_spec().\n\noutput_option() ->\n { output\n , [basic, output]\n , $o\n , {string, ?DEFAULT_OUTPUT}\n , \"Filename to use for the analysis report\"\n , \"This is where Concuerror writes the results of the analysis.\"\n }.\n\n%% @docfile \"doc/no_output_option.edoc\"\n-spec no_output_option() -> option_spec().\n\nno_output_option() ->\n { no_output\n , [basic, output]\n , undefined\n , boolean\n , \"Do not produce an analysis report\"\n , \"Concuerror will not produce an analysis report.\"\n }.\n\n%% @docfile \"doc/verbosity_option.edoc\"\n-spec verbosity_option() -> option_spec().\n\nverbosity_option() ->\n { verbosity\n , [advanced, basic, console]\n , $v\n , {integer, ?DEFAULT_VERBOSITY}\n , io_lib:format(\"Verbosity level (0-~w)\", [?MAX_LOG_LEVEL])\n , \"The value of verbosity determines what is shown on standard error.\"\n \" Messages up to info are always also shown in the output file.\"\n \" The available levels are the following:~n~n\"\n \"0 (quiet) Nothing is printed (equivalent to `--quiet')~n\"\n \"1 (error) Critical, resulting in early termination~n\"\n \"2 (warn) Non-critical, notifying about weak support for a feature or~n\"\n \" the use of an option that alters the output~n\"\n \"3 (tip) Notifying of a suggested refactoring or option to make~n\"\n \" testing more efficient~n\"\n \"4 (info) Normal operation messages, can be ignored~n\"\n \"5 (time) Timing messages~n\"\n \"6 (debug) Used only during debugging~n\"\n \"7 (trace) Everything else\"\n }.\n\n%% @docfile \"doc/quiet_option.edoc\"\n%% @see verbosity_option/0\n-spec quiet_option() -> option_spec().\n\nquiet_option() ->\n { quiet\n , [basic, console]\n , $q\n , boolean\n , \"Synonym for `--verbosity 0'\"\n , \"Do not write anything to standard error.\"\n }.\n\n%% @docfile \"doc/graph_option.edoc\"\n-spec graph_option() -> option_spec().\n\ngraph_option() ->\n { graph\n , [output, visual]\n , $g\n , string\n , \"Produce a DOT graph in the specified file\"\n , \"The DOT graph can be converted to an image with\"\n \" e.g. `dot -Tsvg -o graph.svg graph'\"\n }.\n\n%% @docfile \"doc/symbolic_names_option.edoc\"\n-spec symbolic_names_option() -> option_spec().\n\nsymbolic_names_option() ->\n { symbolic_names\n , [erlang, output, visual]\n , $s\n , {boolean, true}\n , \"Use symbolic process names\"\n , \"Replace PIDs with symbolic names in outputs. The format used is:~n\"\n \" `<[symbolic name]/[last registered name]>'~n\"\n \"where [symbolic name] is:~n~n\"\n \" - `P', for the first process and~n\"\n \" - `[parent symbolic name].[ordinal]', for any other process,\"\n \" where [ordinal] shows the order of spawning (e.g. `' is the\"\n \" second process spawned by `

    ').~n\"\n \"The `[last registered name]' part is shown only if applicable.\"\n }.\n\n%% @docfile \"doc/print_depth_option.edoc\"\n-spec print_depth_option() -> option_spec().\n\nprint_depth_option() ->\n { print_depth\n , [output, visual]\n , undefined\n , {integer, ?DEFAULT_PRINT_DEPTH}\n , \"Print depth for log/graph\"\n , \"Specifies the max depth for any terms printed in the log (behaves\"\n \" just as the additional argument of `~~W' and `~~P' argument of\"\n \" `io:format/3'). If you want more info about a particular piece\"\n \" of data in an interleaving, consider using `erlang:display/1'\"\n \" and checking the standard output section in the error reports\"\n \" of the analysis report instead.\"\n }.\n\n%% @docfile \"doc/show_races_option.edoc\"\n-spec show_races_option() -> option_spec().\n\nshow_races_option() ->\n { show_races\n , [output, por, visual]\n , undefined\n , {boolean, false}\n , \"Show races in log/graph\",\n \"Determines whether information about pairs of racing instructions will be\"\n \" included in the logs of erroneous interleavings and the graph.\"\n }.\n\n%% @docfile \"doc/file_option.edoc\"\n-spec file_option() -> option_spec().\n\nfile_option() ->\n { file\n , [input]\n , $f\n , string\n , \"Load specified file (.beam or .erl)\"\n , \"Explicitly load the specified file(s) (.beam or .erl).\"\n \" Source (.erl) files should not require any command line compile options.\"\n \" Use a .beam file (preferably compiled with `+debug_info') if special\"\n \" compilation is needed.~n\"\n \"~n\"\n \"It is recommended to rely on Erlang's load path rather than using\"\n \" this option.\"\n }.\n\n%% @docfile \"doc/pa_option.edoc\"\n-spec pa_option() -> option_spec().\n\npa_option() ->\n { pa\n , [input]\n , undefined\n , string\n , \"Add directory to Erlang's code path (front)\"\n , \"Works exactly like `erl -pa'.\"\n }.\n\n%% @docfile \"doc/pz_option.edoc\"\n-spec pz_option() -> option_spec().\n\npz_option() ->\n { pz\n , [input]\n , undefined\n , string\n , \"Add directory to Erlang's code path (rear)\"\n , \"Works exactly like `erl -pz'.\"\n }.\n\n%% @docfile \"doc/log_all_option.edoc\"\n-spec log_all_option() -> option_spec().\n\nlog_all_option() ->\n { log_all\n , [output]\n , undefined\n , {boolean, false}\n , \"Show all interleavings in log\",\n \"Determines whether correct interleavings will be also shown in the logs.\"\n }.\n\n%% @docfile \"doc/exclude_module_option.edoc\"\n-spec exclude_module_option() -> option_spec().\n\nexclude_module_option() ->\n { exclude_module\n , [advanced, experimental, input]\n , $x\n , atom\n , \"* Modules that should not be instrumented\"\n , \"Experimental. Concuerror needs to instrument all code in a test to be able\"\n \" to reset the state after each exploration. You can use this option to\"\n \" exclude a module from instrumentation, but you must ensure that any state\"\n \" is reset correctly, or Concuerror will complain that operations have\"\n \" unexpected results.\"\n }.\n\n%% @docfile \"doc/depth_bound_option.edoc\"\n-spec depth_bound_option() -> option_spec().\n\ndepth_bound_option() ->\n { depth_bound\n , [bound]\n , $d\n , {integer, 500}\n , \"Maximum number of events\"\n , \"The maximum number of events allowed in an interleaving. Concuerror will\"\n \" stop exploring an interleaving that has events beyond this limit.\"\n }.\n\n%% @docfile \"doc/interleaving_bound_option.edoc\"\n-spec interleaving_bound_option() -> option_spec().\n\ninterleaving_bound_option() ->\n { interleaving_bound\n , [bound]\n , $i\n , {bound, infinity}\n , \"Maximum number of interleavings\"\n , \"The maximum number of interleavings that will be explored. Concuerror will\"\n \" stop exploration beyond this limit.\"\n }.\n\n%% @docfile \"doc/dpor_option.edoc\"\n-spec dpor_option() -> option_spec().\n\ndpor_option() ->\n { dpor\n , [por]\n , undefined\n , {dpor, optimal}\n , \"DPOR technique\"\n , \"Specifies which Dynamic Partial Order Reduction technique will be used.\"\n \" The available options are:~n\"\n \"- `none': Disable DPOR. Not recommended.~n\"\n \"- `optimal': Using source sets and wakeup trees.~n\"\n \"- `source': Using source sets only. Use this if the rate of~n\"\n \" exploration is too slow. Use `optimal' if a lot of~n\"\n \" interleavings are reported as sleep-set blocked.~n\"\n \"- `persistent': Using persistent sets. Not recommended.\"\n }.\n\n%% @docfile \"doc/optimal_option.edoc\"\n%% @see dpor_option/0\n-spec optimal_option() -> option_spec().\n\noptimal_option() ->\n { optimal\n , [por]\n , undefined\n , boolean\n , \"Synonym for `--dpor optimal (true) | source (false)'\"\n , nolong\n }.\n\n%% @docfile \"doc/scheduling_bound_type_option.edoc\"\n-spec scheduling_bound_type_option() -> option_spec().\n\nscheduling_bound_type_option() ->\n { scheduling_bound_type\n , [bound, experimental]\n , $c\n , {scheduling_bound_type, none}\n , \"* Schedule bounding technique\"\n , \"Enables scheduling rules that prevent interleavings from being explored.\"\n \" The available options are:~n\"\n \"- `none': no bounding~n\"\n \"- `bpor': how many times per interleaving the scheduler is allowed~n\"\n \" to preempt a process.~n\"\n \" * Not compatible with Optimal DPOR.~n\"\n \"- `delay': how many times per interleaving the scheduler is allowed~n\"\n \" to skip the process chosen by default in order to schedule~n\"\n \" others.~n\"\n \"- `ubpor': same as `bpor' but without conservative backtrack points.~n\"\n \" * Experimental, unsound, not compatible with Optimal DPOR.~n\"\n }.\n\n%% @docfile \"doc/scheduling_bound_option.edoc\"\n-spec scheduling_bound_option() -> option_spec().\n\nscheduling_bound_option() ->\n { scheduling_bound\n , [bound]\n , $b\n , integer\n , \"Scheduling bound value\"\n , \"The maximum number of times the rule specified in\"\n \" `--scheduling_bound_type' can be violated.\"\n }.\n\n%% @docfile \"doc/disable_sleep_sets_option.edoc\"\n-spec disable_sleep_sets_option() -> option_spec().\n\ndisable_sleep_sets_option() ->\n { disable_sleep_sets\n , [advanced, por]\n , undefined\n , {boolean, false}\n , \"Disable sleep sets\"\n , \"This option is only available with `--dpor none'.\"\n }.\n\n%% @docfile \"doc/after_timeout_option.edoc\"\n-spec after_timeout_option() -> option_spec().\n\nafter_timeout_option() ->\n { after_timeout\n , [erlang]\n , $a\n , {bound, infinity}\n , \"Threshold for treating timeouts as infinity\"\n , \"Assume that `after' clauses with timeouts higher or equal to the\"\n \" specified value cannot be triggered. Concuerror treats all\"\n \" lower values as triggerable\"\n }.\n\n%% @docfile \"doc/instant_delivery_option.edoc\"\n-spec instant_delivery_option() -> option_spec().\n\ninstant_delivery_option() ->\n { instant_delivery\n , [erlang]\n , undefined\n , {boolean, true}\n , \"Make messages and signals arrive instantly\"\n , \"Assume that messages and signals are delivered immediately.\"\n \" Setting this to false enables \\\"true\\\" Erlang message-passing\"\n \" semantics, in which message delivery is distinct from sending.\"\n }.\n\n%% @docfile \"doc/use_receive_patterns_option.edoc\"\n-spec use_receive_patterns_option() -> option_spec().\n\nuse_receive_patterns_option() ->\n { use_receive_patterns\n , [advanced, erlang, por]\n , undefined\n , {boolean, true}\n , \"Use receive patterns for racing sends\"\n , \"If true, Concuerror will only consider two\"\n \" message deliveries as racing when the first message is really\"\n \" received and the patterns used could also match the second\"\n \" message.\"\n }.\n\n%% @docfile \"doc/observers_option.edoc\"\n%% @see use_receive_patterns_option/0\n-spec observers_option() -> option_spec().\n\nobservers_option() ->\n { observers\n , [advanced, erlang, por]\n , undefined\n , boolean\n , \"Synonym for `--use_receive_patterns'\"\n , nolong\n }.\n\n%% @docfile \"doc/scheduling_option.edoc\"\n-spec scheduling_option() -> option_spec().\n\nscheduling_option() ->\n { scheduling\n , [advanced]\n , undefined\n , {scheduling, round_robin}\n , \"Scheduling order\"\n , \"How Concuerror picks the next process to run. The available options are\"\n \" `oldest', `newest' and `round_robin', with the expected semantics.\"\n }.\n\n%% @docfile \"doc/strict_scheduling_option.edoc\"\n-spec strict_scheduling_option() -> option_spec().\n\nstrict_scheduling_option() ->\n { strict_scheduling\n , [advanced]\n , undefined\n , {boolean, false}\n , \"Force preemptions when scheduling\"\n , \"Whether Concuerror should enforce the scheduling strategy strictly or let\"\n \" a process run until blocked before reconsidering the scheduling policy.\"\n }.\n\n%% @docfile \"doc/keep_going_option.edoc\"\n-spec keep_going_option() -> option_spec().\n\nkeep_going_option() ->\n { keep_going\n , [basic, errors]\n , $k\n , {boolean, false}\n , \"Keep running after an error is found\"\n , \"Concuerror stops by default when the first error is found. Enable this\"\n \" option to keep looking for more errors.~n\"\n \"~n\"\n \" It is usually recommended to modify the test, or\"\n \" use the `--ignore_error' / `--treat_as_normal' options, instead of\"\n \" this one.\"\n }.\n\n%% @docfile \"doc/ignore_error_option.edoc\"\n-spec ignore_error_option() -> option_spec().\n\nignore_error_option() ->\n { ignore_error\n , [errors]\n , undefined\n , atom\n , \"Error categories that should be ignored\",\n \"Concuerror will not report errors of the specified kind:~n\"\n \"- `abnormal_exit': processes exiting with any abnormal reason;\"\n \" check `-h treat_as_normal' and `-h assertions_only' for more refined\"\n \" control~n\"\n \"- `abnormal_halt': processes executing erlang:halt/1,2 with status /= 0~n\"\n \"- `deadlock': processes waiting at a receive statement~n\"\n \"- `depth_bound': reaching the depth bound; check `-h depth_bound'\"\n }.\n\n%% @docfile \"doc/treat_as_normal_option.edoc\"\n-spec treat_as_normal_option() -> option_spec().\n\ntreat_as_normal_option() ->\n { treat_as_normal\n , [errors]\n , undefined\n , atom\n , \"Exit reason treated as `normal' (i.e., not reported as an error)\"\n , \"A process that exits with the specified atom as reason, or with a reason\"\n \" that is a tuple with the specified atom as a first element, will not be\"\n \" reported as exiting abnormally. Useful e.g. when analyzing supervisors\"\n \" (`shutdown' is usually a normal exit reason in this case).\"\n }.\n\n%% @docfile \"doc/assertions_only_option.edoc\"\n-spec assertions_only_option() -> option_spec().\n\nassertions_only_option() ->\n { assertions_only\n , [errors]\n , undefined\n , {boolean, false}\n , \"Report only abnormal exits due to `?asserts'\",\n \"Only processes that exit with a reason of form `{{assert*, _}, _}' are\"\n \" considered errors. Such exit reasons are generated e.g. by the\"\n \" macros defined in the `stdlib/include/assert.hrl' header file.\"\n }.\n\n%% @docfile \"doc/first_process_errors_only_option.edoc\"\n-spec first_process_errors_only_option() -> option_spec().\n\nfirst_process_errors_only_option() ->\n { first_process_errors_only\n , [errors]\n , undefined\n , {boolean, false}\n , \"Report only errors that involve the first process\"\n , \"All errors involving only children processes will be ignored.\"\n }.\n\n%% @docfile \"doc/timeout_option.edoc\"\n-spec timeout_option() -> option_spec().\n\ntimeout_option() ->\n { timeout\n , [advanced, erlang]\n , undefined\n , {bound, 5000}\n , \"How long to wait for an event (>= \" ++\n integer_to_list(?MINIMUM_TIMEOUT) ++ \"ms)\"\n , \"How many ms to wait before assuming that a process is stuck in an infinite\"\n \" loop between two operations with side-effects. Setting this to `infinity'\"\n \" will make Concuerror wait indefinitely. Otherwise must be >= \" ++\n integer_to_list(?MINIMUM_TIMEOUT) ++ \".\"\n }.\n\n%% @docfile \"doc/assume_racing_option.edoc\"\n-spec assume_racing_option() -> option_spec().\n\nassume_racing_option() ->\n { assume_racing\n , [advanced, por]\n , undefined\n , {boolean, true}\n , \"Do not crash if race info is missing\"\n , \"Concuerror has a list of operation pairs that are known to be non-racing.\"\n \" If there is no info about whether a specific pair of built-in operations\"\n \" may race, assume that they do indeed race. If this option is set to\"\n \" false, Concuerror will exit instead. Useful only for detecting missing\"\n \" racing info.\"\n }.\n\n%% @docfile \"doc/non_racing_system_option.edoc\"\n-spec non_racing_system_option() -> option_spec().\n\nnon_racing_system_option() ->\n { non_racing_system\n , [erlang]\n , undefined\n , atom\n , \"No races due to 'system' messages\"\n , \"Assume that any messages sent to the specified (by registered name) system\"\n \" process are not racing with each-other. Useful for reducing the number of\"\n \" interleavings when processes have calls to e.g. io:format/1,2 or\"\n \" similar.\"\n }.\n\n%% @docfile \"doc/help_option.edoc\"\n-spec help_option() -> option_spec().\n\nhelp_option() ->\n { help\n , [basic]\n , $h\n , atom\n , \"Display help (use `-h h' for more help)\"\n , \"Without an argument, prints info for basic options.~n~n\"\n \"With `all' as argument, prints info for all options.~n~n\"\n \"With `attributes' as argument, prints info about passing options using\"\n \" module attributes.~n~n\"\n \"With `progress' as argument, prints info about what the items in the\"\n \" progress info mean.~n~n\"\n \"With an option name as argument, prints more help for that option.~n~n\"\n \"Options have keywords associated with them (shown in their help).\"\n \" With a keyword as argument, prints a list of all the options that are\"\n \" associated with the keyword.~n~n\"\n \"If a boolean or integer argument is omitted, `true' or `1' is the implied\"\n \" value.\"\n }.\n\n%% @docfile \"doc/version_option.edoc\"\n-spec version_option() -> option_spec().\n\nversion_option() ->\n { version\n , [basic]\n , undefined\n , undefined\n , \"Display version information\"\n , nolong\n }.\n\n%%%-----------------------------------------------------------------------------\n\nsynonyms() ->\n [ {{observers, true}, {use_receive_patterns, true}}\n , {{observers, false}, {use_receive_patterns, false}}\n , {{optimal, true}, {dpor, optimal}}\n , {{optimal, false}, {dpor, source}}\n , {{ignore_error, crash}, {ignore_error, abnormal_exit}}\n ].\n\ngroupable() ->\n [ exclude_module\n , ignore_error\n , non_racing_system\n , treat_as_normal\n ].\n\nmultiple_allowed() ->\n [ pa\n , pz\n ] ++\n groupable().\n\nnot_allowed_in_module_attributes() ->\n [ exclude_module\n , file\n , help\n , module\n , pa\n , pz\n , version\n ].\n\nderived_defaults() ->\n [ {{disable_sleep_sets, true}, [{dpor, none}]}\n , {scheduling_bound, [{scheduling_bound_type, delay}]}\n , {{scheduling_bound_type, bpor}, [{dpor, source}, {scheduling_bound, 1}]}\n , {{scheduling_bound_type, delay}, [{scheduling_bound, 1}]}\n , {{scheduling_bound_type, ubpor}, [{dpor, source}, {scheduling_bound, 1}]}\n ] ++\n [{{dpor, NotObsDPOR}, [{use_receive_patterns, false}]}\n || NotObsDPOR <- [none, persistent, source]].\n\ncheck_validity(Key) ->\n case Key of\n _\n when\n Key =:= after_timeout;\n Key =:= depth_bound;\n Key =:= print_depth\n ->\n {fun(V) -> V > 0 end, \"a positive integer\"};\n dpor ->\n [none, optimal, persistent, source];\n ignore_error ->\n Valid = [abnormal_halt, abnormal_exit, deadlock, depth_bound],\n {fun(V) -> [] =:= (V -- Valid) end,\n io_lib:format(\"one or more of ~w\", [Valid])};\n scheduling ->\n [newest, oldest, round_robin];\n scheduling_bound ->\n {fun(V) -> V >= 0 end, \"a non-negative integer\"};\n scheduling_bound_type ->\n [bpor, delay, none, ubpor];\n _ -> skip\n end.\n\n%%------------------------------------------------------------------------------\n\n%% @doc Converts command-line arguments to a proplist using getopt\n%%\n%% This function also augments the interface of getopt, allowing\n%%

      \n%%
    • {@section Multiple Arguments} to options
      • \n%%
    • correction of common errors
      • \n%%
    \n\n-spec parse_cl([string()]) ->\n {'run', options()} | {'return', concuerror:analysis_result()}.\n\nparse_cl(CommandLineArgs) ->\n try\n %% CL parsing uses some version-dependent functions\n check_otp_version(),\n parse_cl_aux(CommandLineArgs)\n catch\n throw:opt_error -> options_fail()\n end.\n\noptions_fail() ->\n [concuerror_logger:print_log_message(Level, Format, Args)\n || {Level, Format, Args} <- get_logs()],\n {return, fail}.\n\nparse_cl_aux([]) ->\n {run, [help]};\nparse_cl_aux(RawCommandLineArgs) ->\n CommandLineArgs = fix_common_errors(RawCommandLineArgs),\n case getopt:parse(getopt_spec_no_default(), CommandLineArgs) of\n {ok, {Options, OtherArgs}} ->\n case OtherArgs of\n [] -> {run, Options};\n [MaybeFilename] ->\n Msg = \"Converting dangling argument to '--file ~s'\",\n opt_info(Msg, [MaybeFilename]),\n {run, Options ++ [{file, MaybeFilename}]};\n _ ->\n Msg = \"Unknown argument(s)/option(s): ~s\",\n opt_error(Msg, [?join(OtherArgs, \" \")])\n end;\n {error, Error} ->\n case Error of\n {missing_option_arg, help} ->\n cl_usage(basic),\n {return, ok};\n {missing_option_arg, Option} ->\n opt_error(\"No argument given for '--~s'.\", [Option], Option);\n _Other ->\n opt_error(getopt:format_error([], Error))\n end\n end.\n\nfix_common_errors(RawCommandLineArgs) ->\n FixSingle = lists:map(fun fix_common_error/1, RawCommandLineArgs),\n fix_multiargs(FixSingle).\n\nfix_common_error(\"--\" ++ [C] = Option) ->\n opt_info(\"\\\"~s\\\" converted to \\\"-~c\\\"\", [Option, C]),\n \"-\" ++ [C];\nfix_common_error(\"--\" ++ Text = Option) ->\n Underscored = lists:map(fun dash_to_underscore/1, lowercase(Text)),\n case Text =:= Underscored of\n true -> Option;\n false ->\n opt_info(\"\\\"~s\\\" converted to \\\"--~s\\\"\", [Option, Underscored]),\n \"--\" ++ Underscored\n end;\nfix_common_error(\"-p\" ++ [A] = Option) when A =:= $a; A=:= $z ->\n opt_info(\"\\\"~s\\\" converted to \\\"-~s\\\"\", [Option, Option]),\n fix_common_error(\"-\" ++ Option);\nfix_common_error(\"-\" ++ [Short|[_|_] = MaybeArg] = MaybeMispelledOption) ->\n maybe_warn_about_mispelled_option(Short, MaybeArg),\n MaybeMispelledOption;\nfix_common_error(\"infinity\" = Infinity) ->\n %% We can't just convert, cause maybe a module or function is named infinity.\n opt_warn(\"use -1 instead of `infinity' for bounds on the command line\", []),\n Infinity;\nfix_common_error(OptionOrArg) ->\n OptionOrArg.\n\ndash_to_underscore($-) -> $_;\ndash_to_underscore(Ch) -> Ch.\n\nmaybe_warn_about_mispelled_option(Short, [_|_] = MaybeArg) ->\n ShortWithArgToLong =\n [{element(?OPTION_SHORT, O), element(?OPTION_KEY, O)}\n || O <- options(),\n element(?OPTION_SHORT, O) =/= undefined,\n not (option_type(O) =:= boolean),\n not (option_type(O) =:= integer),\n not (option_type(O) =:= bound)\n ],\n case lists:keyfind(Short, 1, ShortWithArgToLong) of\n {_, Long} ->\n opt_info(\n \"Parsing '-~s' as '--~w ~s' (add a dash if this is not desired)\",\n [[Short|MaybeArg], Long, MaybeArg]);\n _ -> ok\n end.\n\noption_type(Option) ->\n case element(?OPTION_GETOPT_TYPE_DEFAULT, Option) of\n {Type, _Default} -> Type;\n Type -> Type\n end.\n\nfix_multiargs(CommandLineArgs) ->\n fix_multiargs(CommandLineArgs, []).\n\nfix_multiargs([], Fixed) ->\n lists:reverse(Fixed);\nfix_multiargs([Option1, Arg1, Arg2 | Rest], Fixed)\n when hd(Option1) =:= $-, hd(Arg1) =/= $-, hd(Arg2) =/= $- ->\n opt_info(\n \"\\\"~s ~s ~s\\\" converted to \\\"~s ~s ~s ~s\\\"\",\n [Option1, Arg1, Arg2, Option1, Arg1, Option1, Arg2]),\n fix_multiargs([Option1, Arg2|Rest], [Arg1, Option1|Fixed]);\nfix_multiargs([Other|Rest], Fixed) ->\n fix_multiargs(Rest, [Other|Fixed]).\n\n%%%-----------------------------------------------------------------------------\n\ngetopt_spec(Options) ->\n getopt_spec_map_type(Options, fun(X) -> X end).\n\n%% Defaults are stripped and inserted in the end to allow for overrides from an\n%% input file or derived defaults.\ngetopt_spec_no_default() ->\n getopt_spec_map_type(options(), fun no_default/1).\n\n%% An option's long name is the same as the inner representation atom for\n%% consistency.\ngetopt_spec_map_type(Options, Fun) ->\n [{Key, Short, atom_to_list(Key), Fun(Type), Help} ||\n {Key, _Keywords, Short, Type, Help, _Long} <- Options].\n\nno_default({Type, _Default}) -> no_default(Type);\nno_default(bound) -> integer;\nno_default(dpor) -> atom;\nno_default(scheduling) -> atom;\nno_default(scheduling_bound_type) -> atom;\nno_default(Type) -> Type.\n\n%%%-----------------------------------------------------------------------------\n\ncl_usage(all) ->\n Sort = fun(A, B) -> element(?OPTION_KEY, A) =< element(?OPTION_KEY, B) end,\n getopt:usage(getopt_spec(lists:sort(Sort, options())), \"./concuerror\"),\n print_suffix(all);\ncl_usage(Attribute)\n when Attribute =:= attribute;\n Attribute =:= attributes ->\n %% KEEP IN SYNC WITH MODULE'S OVERVIEW EDOC\n Msg =\n \"~n\"\n \"Passing options using module attributes:~n\"\n \"----------------------------------------~n\"\n \"You can use the following attributes in the module specified by `--module'\"\n \" to pass options to Concuerror:~n\"\n \"~n\"\n \" -~s(Options).~n\"\n \" A list of Options that can be overriden by other options.~n\"\n \" -~s(Options).~n\"\n \" A list of Options that override any other options.~n\"\n ,\n to_stderr(Msg, [?ATTRIBUTE_OPTIONS, ?ATTRIBUTE_FORCED_OPTIONS]);\ncl_usage(progress) ->\n Msg =\n \"~n\"\n \"Progress bar item explanations:~n\"\n \"-------------------------------~n\"\n \"~n\"\n \"~s\"\n ,\n to_stderr(Msg, [concuerror_logger:progress_help()]);\ncl_usage(Name) ->\n Optname =\n case lists:keyfind(Name, ?OPTION_KEY, options()) of\n false ->\n Str = atom_to_list(Name),\n Name =/= undefined andalso\n length(Str) =:= 1 andalso\n lists:keyfind(hd(Str), ?OPTION_SHORT, options());\n R -> R\n end,\n case Optname of\n false ->\n MaybeKeyword = options(Name),\n case MaybeKeyword =/= [] of\n true ->\n KeywordWarningFormat =\n \"~n\"\n \"NOTE: Only showing options with the keyword `~p'.~n\"\n \" Use `--help all' to see all available options.~n\",\n to_stderr(KeywordWarningFormat, [Name]),\n getopt:usage(getopt_spec(MaybeKeyword), \"./concuerror\"),\n print_suffix(Name);\n false ->\n ListName = atom_to_list(Name),\n case [dash_to_underscore(L) || L <- ListName] of\n \"_\" ++ Rest -> cl_usage(list_to_atom(Rest));\n Other when Other =/= ListName -> cl_usage(list_to_atom(Other));\n _ ->\n Msg = \"invalid option/keyword (as argument to `--help'): '~w'.\",\n opt_error(Msg, [Name], help)\n end\n end;\n Tuple ->\n getopt:usage(getopt_spec([Tuple]), \"./concuerror\"),\n case element(?OPTION_GETOPT_LONG_HELP, Tuple) of\n nolong -> to_stderr(\"No additional help available.~n\");\n String -> to_stderr(String ++ \"~n\")\n end,\n {Keywords, Related} = get_keywords_and_related(Tuple),\n to_stderr(\"Option Keywords: ~p~n\", [Keywords]),\n to_stderr(\"Related Options: ~p~n\", [Related]),\n to_stderr(\"For general help use `-h' without an argument.~n\")\n end.\n\noptions(Keyword) ->\n [T || T <- options(), lists:member(Keyword, element(?OPTION_KEYWORDS, T))].\n\nprint_suffix(Keyword) ->\n case Keyword =:= basic of\n false -> to_stderr(\"Options with '*' are experimental.~n\");\n true -> ok\n end,\n to_stderr(\"More info & keywords about a specific option: `-h