[
{
"path": ".circleci/config.yml",
"content": "version: 2.1\nworkflows:\n nanodesu:\n jobs:\n - subetedesu:\n matrix:\n parameters:\n luaver: [\"lua5.1/liblua5.1-dev\", \"luajit/libluajit-5.1-dev\", \"lua5.2/liblua5.2-dev\", \"lua5.3/liblua5.3-dev\"]\n\njobs:\n subetedesu:\n docker:\n - image: cimg/base:2021.01-20.04\n parameters:\n luaver:\n type: string\n steps:\n - checkout\n - run: ./check_style.sh\n - run: sudo apt-get update\n - run: v=<< parameters.luaver >>; sudo apt-get install -y ${v#*/} lua-socket lua-sec python3-docutils python3-dbus cmake valgrind pulseaudio pulseaudio-utils dbus dbus-x11 jq libxcb1-dev libyajl-dev libasound2-dev libglib2.0-dev libpulse-dev libudev-dev libnl-3-dev libnl-genl-3-dev libx11-dev libxcb1-dev libxcb-ewmh-dev libxcb-icccm4-dev libxcb-util0-dev libwebsockets-dev libcurl4-gnutls-dev libcjson-dev\n - run: v=<< parameters.luaver >>; cmake -DWITH_LUA_LIBRARY=${v%/*} -DBUILD_PLUGIN_PULSE=ON -DBUILD_PLUGIN_UNIXSOCK=ON -DBUILD_PLUGIN_WEB=ON -DBUILD_TESTS=ON .\n - run: make -j\n - run: ./tests/torture.sh .\n - run: v=<< parameters.luaver >>; LUAVER=$v PLUGIN_DBUS_OPTIONAL=1 ./.circleci/run-pt.sh\n"
},
{
"path": ".circleci/run-pt.sh",
"content": "#!/usr/bin/env bash\n\nset -e\n\natexit=()\n\ntrap '\n # We need to run finalizers in reversed order.\n for (( i = ${#atexit[@]} - 1; i >= 0; --i )); do\n func=${atexit[$i]}\n $func\n done\n' EXIT\n\npa_start() {\n atexit+=(pa_end)\n\n pulseaudio --daemonize=no --disallow-exit=yes --exit-idle-time=-1 &\n while ! pactl info; do\n echo >&2 \"Waiting for PulseAudio daemon...\"\n sleep 1\n done\n}\n\npa_end() {\n pulseaudio --kill || true\n}\n\ndbus_start() {\n DBUS_DAEMON_PID=\n atexit+=(dbus_end)\n\n local addr_file=/tmp/dbus-session-addr.txt\n true > \"$addr_file\" || return $?\n\n dbus-daemon --session --nofork --print-address=3 3>\"$addr_file\" &\n DBUS_DAEMON_PID=$!\n\n local x\n while ! IFS= read -r x < \"$addr_file\"; do\n echo >&2 \"Waiting for D-Bus daemon...\"\n sleep 1 || return $?\n done\n rm -f \"$addr_file\" || return $?\n export DBUS_SESSION_BUS_ADDRESS=\"$x\"\n}\n\ndbus_end() {\n if [[ -n \"$DBUS_DAEMON_PID\" ]]; then\n kill \"$DBUS_DAEMON_PID\" || true\n fi\n}\n\ndbus_start\nsleep 1\npa_start\n\n#PT_TOOL=valgrind PT_MAX_LAG=250 ./tests/pt.sh .\nPT_MAX_LAG=300 ./tests/pt.sh .\n"
},
{
"path": ".gitignore",
"content": "*.o\n*.so\n/_gitignored/\n# CMake\nCMakeCache.txt\nCMakeFiles\nCMakeScripts\nMakefile\ncmake_install.cmake\ninstall_manifest.txt\nCTestTestfile.cmake\nbuild/\n# generated headers\n*.generated.[ch]\n# generated man pages\nluastatus*.[1-8]\n"
},
{
"path": ".luacheckrc",
"content": "new_globals = {'widget'}\nnew_read_globals = {'luastatus'}\nignore = {\n '631', -- \"Line is too long\"\n}\n"
},
{
"path": "CMakeLists.txt",
"content": "cmake_minimum_required (VERSION 3.1.3...3.10)\nproject (luastatus C)\n\nif (NOT CMAKE_BUILD_TYPE)\n set (CMAKE_BUILD_TYPE Release)\nendif ()\n\nset (CMAKE_C_STANDARD 99)\n\nset (CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -Wall -Wextra\")\n\n#------------------------------------------------------------------------------\n\noption (WITH_UBSAN \"build with UBSAN (undefined behavior sanitizer)\" OFF)\nif (${WITH_UBSAN})\n set (CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -fsanitize=undefined -fsanitize-trap=all -fno-sanitize-recover=all\")\n if (CMAKE_CXX_COMPILER_ID STREQUAL \"Clang\")\n set (CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -fsanitize=local-bounds\")\n endif ()\nendif ()\n\noption (WITH_ASAN \"build with ASAN (address sanitizer)\" OFF)\nif (${WITH_ASAN})\n set (CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -fsanitize=address -fsanitize-address-use-after-scope -fsanitize-trap=all -fno-sanitize-recover=all\")\nendif ()\n\noption (WITH_TSAN \"build with TSAN (thread sanitizer)\" OFF)\nif (${WITH_TSAN})\n set (CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -fsanitize=thread -fsanitize-trap=all -fno-sanitize-recover=all\")\nendif ()\n\noption (WITH_LSAN \"build with LSAN (memory leak sanitizer)\" OFF)\nif (${WITH_LSAN})\n set (CMAKE_C_FLAGS \"${CMAKE_C_FLAGS} -fsanitize=leak -fsanitize-trap=all -fno-sanitize-recover=all\")\nendif ()\n\n#------------------------------------------------------------------------------\n\nfind_package (PkgConfig REQUIRED)\nset (WITH_LUA_LIBRARY \"-\" CACHE STRING \"Lua library name\")\nif (NOT \"${WITH_LUA_LIBRARY}\" STREQUAL \"-\")\n pkg_search_module (LUA REQUIRED \"${WITH_LUA_LIBRARY}\")\nelse ()\n pkg_search_module (LUA REQUIRED\n lua54 lua-5.4 lua5.4\n lua53 lua-5.3 lua5.3\n lua52 lua-5.2 lua5.2\n lua51 lua-5.1 lua5.1\n luajit\n lua)\nendif ()\n\nfunction (luastatus_target_compile_with target var)\n target_include_directories (${target} SYSTEM PUBLIC\n ${${var}_INCLUDE_DIRS})\n target_compile_options (${target} PUBLIC\n ${${var}_CFLAGS_OTHER})\nendfunction ()\n\nfunction (luastatus_target_build_with target var)\n luastatus_target_compile_with (\"${target}\" \"${var}\")\n target_link_libraries (${target} PUBLIC ${${var}_LIBRARIES})\nendfunction ()\n\n#------------------------------------------------------------------------------\n\ninclude (GNUInstallDirs)\n\nset (BARLIBS_DIR \"${CMAKE_INSTALL_FULL_LIBDIR}/luastatus/barlibs\")\nset (PLUGINS_DIR \"${CMAKE_INSTALL_FULL_LIBDIR}/luastatus/plugins\")\nset (LUA_PLUGINS_DIR \"${CMAKE_INSTALL_FULL_DATAROOTDIR}/luastatus/plugins\")\n\nfunction (luastatus_add_barlib_or_plugin destdir name)\n set (sources ${ARGV})\n list (REMOVE_AT sources 0 1)\n add_library (\"${name}\" MODULE ${sources})\n set_target_properties (\"${name}\" PROPERTIES PREFIX \"\")\n if (NOT \"${destdir}\" STREQUAL \"-\")\n install (TARGETS \"${name}\" DESTINATION \"${destdir}\")\n endif ()\nendfunction ()\n\nfunction (luastatus_add_barlib)\n luastatus_add_barlib_or_plugin (\"${BARLIBS_DIR}\" ${ARGV})\nendfunction ()\n\nfunction (luastatus_add_plugin)\n luastatus_add_barlib_or_plugin (\"${PLUGINS_DIR}\" ${ARGV})\nendfunction ()\n\nfunction (luastatus_add_barlib_noinstall)\n luastatus_add_barlib_or_plugin (\"-\" ${ARGV})\nendfunction ()\n\nfunction (luastatus_add_plugin_noinstall)\n luastatus_add_barlib_or_plugin (\"-\" ${ARGV})\nendfunction ()\n\noption (BUILD_DOCS \"build man pages\" ON)\n\nfunction (luastatus_add_man_page src basename section)\n if (NOT BUILD_DOCS)\n return ()\n endif ()\n set (dest \"${basename}.${section}\")\n add_custom_command (\n OUTPUT \"${dest}\"\n COMMAND \"${PROJECT_SOURCE_DIR}/generate-man.sh\" ARGS \"${CMAKE_CURRENT_SOURCE_DIR}/${src}\" \"${dest}\"\n WORKING_DIRECTORY \"${CMAKE_CURRENT_BINARY_DIR}\"\n MAIN_DEPENDENCY \"${src}\"\n VERBATIM)\n add_custom_target (\"man${section}-${basename}\" ALL DEPENDS \"${dest}\")\n install (\n FILES \"${CMAKE_CURRENT_BINARY_DIR}/${dest}\"\n DESTINATION \"${CMAKE_INSTALL_MANDIR}/man${section}\")\nendfunction ()\n\n#------------------------------------------------------------------------------\n\nadd_subdirectory (libls)\nadd_subdirectory (libsafe)\nadd_subdirectory (libhackyfix)\nadd_subdirectory (librunshell)\nadd_subdirectory (libmoonvisit)\nadd_subdirectory (libwidechar)\nadd_subdirectory (libprocalive)\nadd_subdirectory (luastatus)\n\n#------------------------------------------------------------------------------\n\nmacro (DEF_OPT optname subdir defvalue)\n option (${optname} \"build ${subdir}\" ${defvalue})\n if (${optname})\n add_subdirectory (${subdir})\n endif ()\nendmacro ()\n\nDEF_OPT (BUILD_BARLIB_DWM \"barlibs/dwm\" ON)\nDEF_OPT (BUILD_BARLIB_I3 \"barlibs/i3\" ON)\nDEF_OPT (BUILD_BARLIB_LEMONBAR \"barlibs/lemonbar\" ON)\nDEF_OPT (BUILD_BARLIB_STDOUT \"barlibs/stdout\" ON)\n\nDEF_OPT (BUILD_PLUGIN_ALSA \"plugins/alsa\" ON)\nDEF_OPT (BUILD_PLUGIN_BACKLIGHT_LINUX \"plugins/backlight-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_BATTERY_LINUX \"plugins/battery-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_CPU_FREQ_LINUX \"plugins/cpu-freq-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_CPU_USAGE_LINUX \"plugins/cpu-usage-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_DBUS \"plugins/dbus\" ON)\nDEF_OPT (BUILD_PLUGIN_DISK_IO_LINUX \"plugins/disk-io-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_FILE_CONTENTS_LINUX \"plugins/file-contents-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_FS \"plugins/fs\" ON)\nDEF_OPT (BUILD_PLUGIN_IMAP \"plugins/imap\" ON)\nDEF_OPT (BUILD_PLUGIN_INOTIFY \"plugins/inotify\" ON)\nDEF_OPT (BUILD_PLUGIN_IS_PROGRAM_RUNNING \"plugins/is-program-running\" ON)\nDEF_OPT (BUILD_PLUGIN_MEM_USAGE_LINUX \"plugins/mem-usage-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_MPD \"plugins/mpd\" ON)\nDEF_OPT (BUILD_PLUGIN_MPRIS \"plugins/mpris\" ON)\nDEF_OPT (BUILD_PLUGIN_MULTIPLEX \"plugins/multiplex\" ON)\nDEF_OPT (BUILD_PLUGIN_NETWORK_LINUX \"plugins/network-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_NETWORK_RATE_LINUX \"plugins/network-rate-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_PIPE \"plugins/pipe\" OFF)\nDEF_OPT (BUILD_PLUGIN_PIPEV2 \"plugins/pipev2\" ON)\nDEF_OPT (BUILD_PLUGIN_PULSE \"plugins/pulse\" OFF)\nDEF_OPT (BUILD_PLUGIN_SYSTEMD_UNIT \"plugins/systemd-unit\" OFF)\nDEF_OPT (BUILD_PLUGIN_TEMPERATURE_LINUX \"plugins/temperature-linux\" ON)\nDEF_OPT (BUILD_PLUGIN_TIMER \"plugins/timer\" ON)\nDEF_OPT (BUILD_PLUGIN_UDEV \"plugins/udev\" ON)\nDEF_OPT (BUILD_PLUGIN_UNIXSOCK \"plugins/unixsock\" OFF)\nDEF_OPT (BUILD_PLUGIN_WEB \"plugins/web\" OFF)\nDEF_OPT (BUILD_PLUGIN_XKB \"plugins/xkb\" ON)\nDEF_OPT (BUILD_PLUGIN_XTITLE \"plugins/xtitle\" ON)\n\nDEF_OPT (BUILD_TESTS \"tests\" OFF)\n"
},
{
"path": "COPYING.LESSER.txt",
"content": " GNU LESSER GENERAL PUBLIC LICENSE\n Version 3, 29 June 2007\n\n Copyright (C) 2007 Free Software Foundation, Inc. \n Everyone is permitted to copy and distribute verbatim copies\n of this license document, but changing it is not allowed.\n\n\n This version of the GNU Lesser General Public License incorporates\nthe terms and conditions of version 3 of the GNU General Public\nLicense, supplemented by the additional permissions listed below.\n\n 0. Additional Definitions.\n\n As used herein, \"this License\" refers to version 3 of the GNU Lesser\nGeneral Public License, and the \"GNU GPL\" refers to version 3 of the GNU\nGeneral Public License.\n\n \"The Library\" refers to a covered work governed by this License,\nother than an Application or a Combined Work as defined below.\n\n An \"Application\" is any work that makes use of an interface provided\nby the Library, but which is not otherwise based on the Library.\nDefining a subclass of a class defined by the Library is deemed a mode\nof using an interface provided by the Library.\n\n A \"Combined Work\" is a work produced by combining or linking an\nApplication with the Library. The particular version of the Library\nwith which the Combined Work was made is also called the \"Linked\nVersion\".\n\n The \"Minimal Corresponding Source\" for a Combined Work means the\nCorresponding Source for the Combined Work, excluding any source code\nfor portions of the Combined Work that, considered in isolation, are\nbased on the Application, and not on the Linked Version.\n\n The \"Corresponding Application Code\" for a Combined Work means the\nobject code and/or source code for the Application, including any data\nand utility programs needed for reproducing the Combined Work from the\nApplication, but excluding the System Libraries of the Combined Work.\n\n 1. Exception to Section 3 of the GNU GPL.\n\n You may convey a covered work under sections 3 and 4 of this License\nwithout being bound by section 3 of the GNU GPL.\n\n 2. Conveying Modified Versions.\n\n If you modify a copy of the Library, and, in your modifications, a\nfacility refers to a function or data to be supplied by an Application\nthat uses the facility (other than as an argument passed when the\nfacility is invoked), then you may convey a copy of the modified\nversion:\n\n a) under this License, provided that you make a good faith effort to\n ensure that, in the event an Application does not supply the\n function or data, the facility still operates, and performs\n whatever part of its purpose remains meaningful, or\n\n b) under the GNU GPL, with none of the additional permissions of\n this License applicable to that copy.\n\n 3. Object Code Incorporating Material from Library Header Files.\n\n The object code form of an Application may incorporate material from\na header file that is part of the Library. You may convey such object\ncode under terms of your choice, provided that, if the incorporated\nmaterial is not limited to numerical parameters, data structure\nlayouts and accessors, or small macros, inline functions and templates\n(ten or fewer lines in length), you do both of the following:\n\n a) Give prominent notice with each copy of the object code that the\n Library is used in it and that the Library and its use are\n covered by this License.\n\n b) Accompany the object code with a copy of the GNU GPL and this license\n document.\n\n 4. Combined Works.\n\n You may convey a Combined Work under terms of your choice that,\ntaken together, effectively do not restrict modification of the\nportions of the Library contained in the Combined Work and reverse\nengineering for debugging such modifications, if you also do each of\nthe following:\n\n a) Give prominent notice with each copy of the Combined Work that\n the Library is used in it and that the Library and its use are\n covered by this License.\n\n b) Accompany the Combined Work with a copy of the GNU GPL and this license\n document.\n\n c) For a Combined Work that displays copyright notices during\n execution, include the copyright notice for the Library among\n these notices, as well as a reference directing the user to the\n copies of the GNU GPL and this license document.\n\n d) Do one of the following:\n\n 0) Convey the Minimal Corresponding Source under the terms of this\n License, and the Corresponding Application Code in a form\n suitable for, and under terms that permit, the user to\n recombine or relink the Application with a modified version of\n the Linked Version to produce a modified Combined Work, in the\n manner specified by section 6 of the GNU GPL for conveying\n Corresponding Source.\n\n 1) Use a suitable shared library mechanism for linking with the\n Library. A suitable mechanism is one that (a) uses at run time\n a copy of the Library already present on the user's computer\n system, and (b) will operate properly with a modified version\n of the Library that is interface-compatible with the Linked\n Version.\n\n e) Provide Installation Information, but only if you would otherwise\n be required to provide such information under section 6 of the\n GNU GPL, and only to the extent that such information is\n necessary to install and execute a modified version of the\n Combined Work produced by recombining or relinking the\n Application with a modified version of the Linked Version. (If\n you use option 4d0, the Installation Information must accompany\n the Minimal Corresponding Source and Corresponding Application\n Code. If you use option 4d1, you must provide the Installation\n Information in the manner specified by section 6 of the GNU GPL\n for conveying Corresponding Source.)\n\n 5. Combined Libraries.\n\n You may place library facilities that are a work based on the\nLibrary side by side in a single library together with other library\nfacilities that are not Applications and are not covered by this\nLicense, and convey such a combined library under terms of your\nchoice, if you do both of the following:\n\n a) Accompany the combined library with a copy of the same work based\n on the Library, uncombined with any other library facilities,\n conveyed under the terms of this License.\n\n b) Give prominent notice with the combined library that part of it\n is a work based on the Library, and explaining where to find the\n accompanying uncombined form of the same work.\n\n 6. Revised Versions of the GNU Lesser General Public License.\n\n The Free Software Foundation may publish revised and/or new versions\nof the GNU Lesser General Public License from time to time. Such new\nversions will be similar in spirit to the present version, but may\ndiffer in detail to address new problems or concerns.\n\n Each version is given a distinguishing version number. If the\nLibrary as you received it specifies that a certain numbered version\nof the GNU Lesser General Public License \"or any later version\"\napplies to it, you have the option of following the terms and\nconditions either of that published version or of any later version\npublished by the Free Software Foundation. If the Library as you\nreceived it does not specify a version number of the GNU Lesser\nGeneral Public License, you may choose any version of the GNU Lesser\nGeneral Public License ever published by the Free Software Foundation.\n\n If the Library as you received it specifies that a proxy can decide\nwhether future versions of the GNU Lesser General Public License shall\napply, that proxy's public statement of acceptance of any version is\npermanent authorization for you to choose that version for the\nLibrary.\n"
},
{
"path": "COPYING.txt",
"content": " GNU GENERAL PUBLIC LICENSE\n Version 3, 29 June 2007\n\n Copyright (C) 2007 Free Software Foundation, Inc. \n Everyone is permitted to copy and distribute verbatim copies\n of this license document, but changing it is not allowed.\n\n Preamble\n\n The GNU General Public License is a free, copyleft license for\nsoftware and other kinds of works.\n\n The licenses for most software and other practical works are designed\nto take away your freedom to share and change the works. By contrast,\nthe GNU General Public License is intended to guarantee your freedom to\nshare and change all versions of a program--to make sure it remains free\nsoftware for all its users. We, the Free Software Foundation, use the\nGNU General Public License for most of our software; it applies also to\nany other work released this way by its authors. You can apply it to\nyour programs, too.\n\n When we speak of free software, we are referring to freedom, not\nprice. Our General Public Licenses are designed to make sure that you\nhave the freedom to distribute copies of free software (and charge for\nthem if you wish), that you receive source code or can get it if you\nwant it, that you can change the software or use pieces of it in new\nfree programs, and that you know you can do these things.\n\n To protect your rights, we need to prevent others from denying you\nthese rights or asking you to surrender the rights. Therefore, you have\ncertain responsibilities if you distribute copies of the software, or if\nyou modify it: responsibilities to respect the freedom of others.\n\n For example, if you distribute copies of such a program, whether\ngratis or for a fee, you must pass on to the recipients the same\nfreedoms that you received. You must make sure that they, too, receive\nor can get the source code. And you must show them these terms so they\nknow their rights.\n\n Developers that use the GNU GPL protect your rights with two steps:\n(1) assert copyright on the software, and (2) offer you this License\ngiving you legal permission to copy, distribute and/or modify it.\n\n For the developers' and authors' protection, the GPL clearly explains\nthat there is no warranty for this free software. For both users' and\nauthors' sake, the GPL requires that modified versions be marked as\nchanged, so that their problems will not be attributed erroneously to\nauthors of previous versions.\n\n Some devices are designed to deny users access to install or run\nmodified versions of the software inside them, although the manufacturer\ncan do so. This is fundamentally incompatible with the aim of\nprotecting users' freedom to change the software. The systematic\npattern of such abuse occurs in the area of products for individuals to\nuse, which is precisely where it is most unacceptable. Therefore, we\nhave designed this version of the GPL to prohibit the practice for those\nproducts. If such problems arise substantially in other domains, we\nstand ready to extend this provision to those domains in future versions\nof the GPL, as needed to protect the freedom of users.\n\n Finally, every program is threatened constantly by software patents.\nStates should not allow patents to restrict development and use of\nsoftware on general-purpose computers, but in those that do, we wish to\navoid the special danger that patents applied to a free program could\nmake it effectively proprietary. To prevent this, the GPL assures that\npatents cannot be used to render the program non-free.\n\n The precise terms and conditions for copying, distribution and\nmodification follow.\n\n TERMS AND CONDITIONS\n\n 0. Definitions.\n\n \"This License\" refers to version 3 of the GNU General Public License.\n\n \"Copyright\" also means copyright-like laws that apply to other kinds of\nworks, such as semiconductor masks.\n\n \"The Program\" refers to any copyrightable work licensed under this\nLicense. Each licensee is addressed as \"you\". \"Licensees\" and\n\"recipients\" may be individuals or organizations.\n\n To \"modify\" a work means to copy from or adapt all or part of the work\nin a fashion requiring copyright permission, other than the making of an\nexact copy. The resulting work is called a \"modified version\" of the\nearlier work or a work \"based on\" the earlier work.\n\n A \"covered work\" means either the unmodified Program or a work based\non the Program.\n\n To \"propagate\" a work means to do anything with it that, without\npermission, would make you directly or secondarily liable for\ninfringement under applicable copyright law, except executing it on a\ncomputer or modifying a private copy. Propagation includes copying,\ndistribution (with or without modification), making available to the\npublic, and in some countries other activities as well.\n\n To \"convey\" a work means any kind of propagation that enables other\nparties to make or receive copies. Mere interaction with a user through\na computer network, with no transfer of a copy, is not conveying.\n\n An interactive user interface displays \"Appropriate Legal Notices\"\nto the extent that it includes a convenient and prominently visible\nfeature that (1) displays an appropriate copyright notice, and (2)\ntells the user that there is no warranty for the work (except to the\nextent that warranties are provided), that licensees may convey the\nwork under this License, and how to view a copy of this License. If\nthe interface presents a list of user commands or options, such as a\nmenu, a prominent item in the list meets this criterion.\n\n 1. Source Code.\n\n The \"source code\" for a work means the preferred form of the work\nfor making modifications to it. \"Object code\" means any non-source\nform of a work.\n\n A \"Standard Interface\" means an interface that either is an official\nstandard defined by a recognized standards body, or, in the case of\ninterfaces specified for a particular programming language, one that\nis widely used among developers working in that language.\n\n The \"System Libraries\" of an executable work include anything, other\nthan the work as a whole, that (a) is included in the normal form of\npackaging a Major Component, but which is not part of that Major\nComponent, and (b) serves only to enable use of the work with that\nMajor Component, or to implement a Standard Interface for which an\nimplementation is available to the public in source code form. A\n\"Major Component\", in this context, means a major essential component\n(kernel, window system, and so on) of the specific operating system\n(if any) on which the executable work runs, or a compiler used to\nproduce the work, or an object code interpreter used to run it.\n\n The \"Corresponding Source\" for a work in object code form means all\nthe source code needed to generate, install, and (for an executable\nwork) run the object code and to modify the work, including scripts to\ncontrol those activities. However, it does not include the work's\nSystem Libraries, or general-purpose tools or generally available free\nprograms which are used unmodified in performing those activities but\nwhich are not part of the work. For example, Corresponding Source\nincludes interface definition files associated with source files for\nthe work, and the source code for shared libraries and dynamically\nlinked subprograms that the work is specifically designed to require,\nsuch as by intimate data communication or control flow between those\nsubprograms and other parts of the work.\n\n The Corresponding Source need not include anything that users\ncan regenerate automatically from other parts of the Corresponding\nSource.\n\n The Corresponding Source for a work in source code form is that\nsame work.\n\n 2. Basic Permissions.\n\n All rights granted under this License are granted for the term of\ncopyright on the Program, and are irrevocable provided the stated\nconditions are met. This License explicitly affirms your unlimited\npermission to run the unmodified Program. The output from running a\ncovered work is covered by this License only if the output, given its\ncontent, constitutes a covered work. This License acknowledges your\nrights of fair use or other equivalent, as provided by copyright law.\n\n You may make, run and propagate covered works that you do not\nconvey, without conditions so long as your license otherwise remains\nin force. You may convey covered works to others for the sole purpose\nof having them make modifications exclusively for you, or provide you\nwith facilities for running those works, provided that you comply with\nthe terms of this License in conveying all material for which you do\nnot control copyright. Those thus making or running the covered works\nfor you must do so exclusively on your behalf, under your direction\nand control, on terms that prohibit them from making any copies of\nyour copyrighted material outside their relationship with you.\n\n Conveying under any other circumstances is permitted solely under\nthe conditions stated below. Sublicensing is not allowed; section 10\nmakes it unnecessary.\n\n 3. Protecting Users' Legal Rights From Anti-Circumvention Law.\n\n No covered work shall be deemed part of an effective technological\nmeasure under any applicable law fulfilling obligations under article\n11 of the WIPO copyright treaty adopted on 20 December 1996, or\nsimilar laws prohibiting or restricting circumvention of such\nmeasures.\n\n When you convey a covered work, you waive any legal power to forbid\ncircumvention of technological measures to the extent such circumvention\nis effected by exercising rights under this License with respect to\nthe covered work, and you disclaim any intention to limit operation or\nmodification of the work as a means of enforcing, against the work's\nusers, your or third parties' legal rights to forbid circumvention of\ntechnological measures.\n\n 4. Conveying Verbatim Copies.\n\n You may convey verbatim copies of the Program's source code as you\nreceive it, in any medium, provided that you conspicuously and\nappropriately publish on each copy an appropriate copyright notice;\nkeep intact all notices stating that this License and any\nnon-permissive terms added in accord with section 7 apply to the code;\nkeep intact all notices of the absence of any warranty; and give all\nrecipients a copy of this License along with the Program.\n\n You may charge any price or no price for each copy that you convey,\nand you may offer support or warranty protection for a fee.\n\n 5. Conveying Modified Source Versions.\n\n You may convey a work based on the Program, or the modifications to\nproduce it from the Program, in the form of source code under the\nterms of section 4, provided that you also meet all of these conditions:\n\n a) The work must carry prominent notices stating that you modified\n it, and giving a relevant date.\n\n b) The work must carry prominent notices stating that it is\n released under this License and any conditions added under section\n 7. This requirement modifies the requirement in section 4 to\n \"keep intact all notices\".\n\n c) You must license the entire work, as a whole, under this\n License to anyone who comes into possession of a copy. This\n License will therefore apply, along with any applicable section 7\n additional terms, to the whole of the work, and all its parts,\n regardless of how they are packaged. This License gives no\n permission to license the work in any other way, but it does not\n invalidate such permission if you have separately received it.\n\n d) If the work has interactive user interfaces, each must display\n Appropriate Legal Notices; however, if the Program has interactive\n interfaces that do not display Appropriate Legal Notices, your\n work need not make them do so.\n\n A compilation of a covered work with other separate and independent\nworks, which are not by their nature extensions of the covered work,\nand which are not combined with it such as to form a larger program,\nin or on a volume of a storage or distribution medium, is called an\n\"aggregate\" if the compilation and its resulting copyright are not\nused to limit the access or legal rights of the compilation's users\nbeyond what the individual works permit. Inclusion of a covered work\nin an aggregate does not cause this License to apply to the other\nparts of the aggregate.\n\n 6. Conveying Non-Source Forms.\n\n You may convey a covered work in object code form under the terms\nof sections 4 and 5, provided that you also convey the\nmachine-readable Corresponding Source under the terms of this License,\nin one of these ways:\n\n a) Convey the object code in, or embodied in, a physical product\n (including a physical distribution medium), accompanied by the\n Corresponding Source fixed on a durable physical medium\n customarily used for software interchange.\n\n b) Convey the object code in, or embodied in, a physical product\n (including a physical distribution medium), accompanied by a\n written offer, valid for at least three years and valid for as\n long as you offer spare parts or customer support for that product\n model, to give anyone who possesses the object code either (1) a\n copy of the Corresponding Source for all the software in the\n product that is covered by this License, on a durable physical\n medium customarily used for software interchange, for a price no\n more than your reasonable cost of physically performing this\n conveying of source, or (2) access to copy the\n Corresponding Source from a network server at no charge.\n\n c) Convey individual copies of the object code with a copy of the\n written offer to provide the Corresponding Source. This\n alternative is allowed only occasionally and noncommercially, and\n only if you received the object code with such an offer, in accord\n with subsection 6b.\n\n d) Convey the object code by offering access from a designated\n place (gratis or for a charge), and offer equivalent access to the\n Corresponding Source in the same way through the same place at no\n further charge. You need not require recipients to copy the\n Corresponding Source along with the object code. If the place to\n copy the object code is a network server, the Corresponding Source\n may be on a different server (operated by you or a third party)\n that supports equivalent copying facilities, provided you maintain\n clear directions next to the object code saying where to find the\n Corresponding Source. Regardless of what server hosts the\n Corresponding Source, you remain obligated to ensure that it is\n available for as long as needed to satisfy these requirements.\n\n e) Convey the object code using peer-to-peer transmission, provided\n you inform other peers where the object code and Corresponding\n Source of the work are being offered to the general public at no\n charge under subsection 6d.\n\n A separable portion of the object code, whose source code is excluded\nfrom the Corresponding Source as a System Library, need not be\nincluded in conveying the object code work.\n\n A \"User Product\" is either (1) a \"consumer product\", which means any\ntangible personal property which is normally used for personal, family,\nor household purposes, or (2) anything designed or sold for incorporation\ninto a dwelling. In determining whether a product is a consumer product,\ndoubtful cases shall be resolved in favor of coverage. For a particular\nproduct received by a particular user, \"normally used\" refers to a\ntypical or common use of that class of product, regardless of the status\nof the particular user or of the way in which the particular user\nactually uses, or expects or is expected to use, the product. A product\nis a consumer product regardless of whether the product has substantial\ncommercial, industrial or non-consumer uses, unless such uses represent\nthe only significant mode of use of the product.\n\n \"Installation Information\" for a User Product means any methods,\nprocedures, authorization keys, or other information required to install\nand execute modified versions of a covered work in that User Product from\na modified version of its Corresponding Source. The information must\nsuffice to ensure that the continued functioning of the modified object\ncode is in no case prevented or interfered with solely because\nmodification has been made.\n\n If you convey an object code work under this section in, or with, or\nspecifically for use in, a User Product, and the conveying occurs as\npart of a transaction in which the right of possession and use of the\nUser Product is transferred to the recipient in perpetuity or for a\nfixed term (regardless of how the transaction is characterized), the\nCorresponding Source conveyed under this section must be accompanied\nby the Installation Information. But this requirement does not apply\nif neither you nor any third party retains the ability to install\nmodified object code on the User Product (for example, the work has\nbeen installed in ROM).\n\n The requirement to provide Installation Information does not include a\nrequirement to continue to provide support service, warranty, or updates\nfor a work that has been modified or installed by the recipient, or for\nthe User Product in which it has been modified or installed. Access to a\nnetwork may be denied when the modification itself materially and\nadversely affects the operation of the network or violates the rules and\nprotocols for communication across the network.\n\n Corresponding Source conveyed, and Installation Information provided,\nin accord with this section must be in a format that is publicly\ndocumented (and with an implementation available to the public in\nsource code form), and must require no special password or key for\nunpacking, reading or copying.\n\n 7. Additional Terms.\n\n \"Additional permissions\" are terms that supplement the terms of this\nLicense by making exceptions from one or more of its conditions.\nAdditional permissions that are applicable to the entire Program shall\nbe treated as though they were included in this License, to the extent\nthat they are valid under applicable law. If additional permissions\napply only to part of the Program, that part may be used separately\nunder those permissions, but the entire Program remains governed by\nthis License without regard to the additional permissions.\n\n When you convey a copy of a covered work, you may at your option\nremove any additional permissions from that copy, or from any part of\nit. (Additional permissions may be written to require their own\nremoval in certain cases when you modify the work.) You may place\nadditional permissions on material, added by you to a covered work,\nfor which you have or can give appropriate copyright permission.\n\n Notwithstanding any other provision of this License, for material you\nadd to a covered work, you may (if authorized by the copyright holders of\nthat material) supplement the terms of this License with terms:\n\n a) Disclaiming warranty or limiting liability differently from the\n terms of sections 15 and 16 of this License; or\n\n b) Requiring preservation of specified reasonable legal notices or\n author attributions in that material or in the Appropriate Legal\n Notices displayed by works containing it; or\n\n c) Prohibiting misrepresentation of the origin of that material, or\n requiring that modified versions of such material be marked in\n reasonable ways as different from the original version; or\n\n d) Limiting the use for publicity purposes of names of licensors or\n authors of the material; or\n\n e) Declining to grant rights under trademark law for use of some\n trade names, trademarks, or service marks; or\n\n f) Requiring indemnification of licensors and authors of that\n material by anyone who conveys the material (or modified versions of\n it) with contractual assumptions of liability to the recipient, for\n any liability that these contractual assumptions directly impose on\n those licensors and authors.\n\n All other non-permissive additional terms are considered \"further\nrestrictions\" within the meaning of section 10. If the Program as you\nreceived it, or any part of it, contains a notice stating that it is\ngoverned by this License along with a term that is a further\nrestriction, you may remove that term. If a license document contains\na further restriction but permits relicensing or conveying under this\nLicense, you may add to a covered work material governed by the terms\nof that license document, provided that the further restriction does\nnot survive such relicensing or conveying.\n\n If you add terms to a covered work in accord with this section, you\nmust place, in the relevant source files, a statement of the\nadditional terms that apply to those files, or a notice indicating\nwhere to find the applicable terms.\n\n Additional terms, permissive or non-permissive, may be stated in the\nform of a separately written license, or stated as exceptions;\nthe above requirements apply either way.\n\n 8. Termination.\n\n You may not propagate or modify a covered work except as expressly\nprovided under this License. Any attempt otherwise to propagate or\nmodify it is void, and will automatically terminate your rights under\nthis License (including any patent licenses granted under the third\nparagraph of section 11).\n\n However, if you cease all violation of this License, then your\nlicense from a particular copyright holder is reinstated (a)\nprovisionally, unless and until the copyright holder explicitly and\nfinally terminates your license, and (b) permanently, if the copyright\nholder fails to notify you of the violation by some reasonable means\nprior to 60 days after the cessation.\n\n Moreover, your license from a particular copyright holder is\nreinstated permanently if the copyright holder notifies you of the\nviolation by some reasonable means, this is the first time you have\nreceived notice of violation of this License (for any work) from that\ncopyright holder, and you cure the violation prior to 30 days after\nyour receipt of the notice.\n\n Termination of your rights under this section does not terminate the\nlicenses of parties who have received copies or rights from you under\nthis License. If your rights have been terminated and not permanently\nreinstated, you do not qualify to receive new licenses for the same\nmaterial under section 10.\n\n 9. Acceptance Not Required for Having Copies.\n\n You are not required to accept this License in order to receive or\nrun a copy of the Program. Ancillary propagation of a covered work\noccurring solely as a consequence of using peer-to-peer transmission\nto receive a copy likewise does not require acceptance. However,\nnothing other than this License grants you permission to propagate or\nmodify any covered work. These actions infringe copyright if you do\nnot accept this License. Therefore, by modifying or propagating a\ncovered work, you indicate your acceptance of this License to do so.\n\n 10. Automatic Licensing of Downstream Recipients.\n\n Each time you convey a covered work, the recipient automatically\nreceives a license from the original licensors, to run, modify and\npropagate that work, subject to this License. You are not responsible\nfor enforcing compliance by third parties with this License.\n\n An \"entity transaction\" is a transaction transferring control of an\norganization, or substantially all assets of one, or subdividing an\norganization, or merging organizations. If propagation of a covered\nwork results from an entity transaction, each party to that\ntransaction who receives a copy of the work also receives whatever\nlicenses to the work the party's predecessor in interest had or could\ngive under the previous paragraph, plus a right to possession of the\nCorresponding Source of the work from the predecessor in interest, if\nthe predecessor has it or can get it with reasonable efforts.\n\n You may not impose any further restrictions on the exercise of the\nrights granted or affirmed under this License. For example, you may\nnot impose a license fee, royalty, or other charge for exercise of\nrights granted under this License, and you may not initiate litigation\n(including a cross-claim or counterclaim in a lawsuit) alleging that\nany patent claim is infringed by making, using, selling, offering for\nsale, or importing the Program or any portion of it.\n\n 11. Patents.\n\n A \"contributor\" is a copyright holder who authorizes use under this\nLicense of the Program or a work on which the Program is based. The\nwork thus licensed is called the contributor's \"contributor version\".\n\n A contributor's \"essential patent claims\" are all patent claims\nowned or controlled by the contributor, whether already acquired or\nhereafter acquired, that would be infringed by some manner, permitted\nby this License, of making, using, or selling its contributor version,\nbut do not include claims that would be infringed only as a\nconsequence of further modification of the contributor version. For\npurposes of this definition, \"control\" includes the right to grant\npatent sublicenses in a manner consistent with the requirements of\nthis License.\n\n Each contributor grants you a non-exclusive, worldwide, royalty-free\npatent license under the contributor's essential patent claims, to\nmake, use, sell, offer for sale, import and otherwise run, modify and\npropagate the contents of its contributor version.\n\n In the following three paragraphs, a \"patent license\" is any express\nagreement or commitment, however denominated, not to enforce a patent\n(such as an express permission to practice a patent or covenant not to\nsue for patent infringement). To \"grant\" such a patent license to a\nparty means to make such an agreement or commitment not to enforce a\npatent against the party.\n\n If you convey a covered work, knowingly relying on a patent license,\nand the Corresponding Source of the work is not available for anyone\nto copy, free of charge and under the terms of this License, through a\npublicly available network server or other readily accessible means,\nthen you must either (1) cause the Corresponding Source to be so\navailable, or (2) arrange to deprive yourself of the benefit of the\npatent license for this particular work, or (3) arrange, in a manner\nconsistent with the requirements of this License, to extend the patent\nlicense to downstream recipients. \"Knowingly relying\" means you have\nactual knowledge that, but for the patent license, your conveying the\ncovered work in a country, or your recipient's use of the covered work\nin a country, would infringe one or more identifiable patents in that\ncountry that you have reason to believe are valid.\n\n If, pursuant to or in connection with a single transaction or\narrangement, you convey, or propagate by procuring conveyance of, a\ncovered work, and grant a patent license to some of the parties\nreceiving the covered work authorizing them to use, propagate, modify\nor convey a specific copy of the covered work, then the patent license\nyou grant is automatically extended to all recipients of the covered\nwork and works based on it.\n\n A patent license is \"discriminatory\" if it does not include within\nthe scope of its coverage, prohibits the exercise of, or is\nconditioned on the non-exercise of one or more of the rights that are\nspecifically granted under this License. You may not convey a covered\nwork if you are a party to an arrangement with a third party that is\nin the business of distributing software, under which you make payment\nto the third party based on the extent of your activity of conveying\nthe work, and under which the third party grants, to any of the\nparties who would receive the covered work from you, a discriminatory\npatent license (a) in connection with copies of the covered work\nconveyed by you (or copies made from those copies), or (b) primarily\nfor and in connection with specific products or compilations that\ncontain the covered work, unless you entered into that arrangement,\nor that patent license was granted, prior to 28 March 2007.\n\n Nothing in this License shall be construed as excluding or limiting\nany implied license or other defenses to infringement that may\notherwise be available to you under applicable patent law.\n\n 12. No Surrender of Others' Freedom.\n\n If conditions are imposed on you (whether by court order, agreement or\notherwise) that contradict the conditions of this License, they do not\nexcuse you from the conditions of this License. If you cannot convey a\ncovered work so as to satisfy simultaneously your obligations under this\nLicense and any other pertinent obligations, then as a consequence you may\nnot convey it at all. For example, if you agree to terms that obligate you\nto collect a royalty for further conveying from those to whom you convey\nthe Program, the only way you could satisfy both those terms and this\nLicense would be to refrain entirely from conveying the Program.\n\n 13. Use with the GNU Affero General Public License.\n\n Notwithstanding any other provision of this License, you have\npermission to link or combine any covered work with a work licensed\nunder version 3 of the GNU Affero General Public License into a single\ncombined work, and to convey the resulting work. The terms of this\nLicense will continue to apply to the part which is the covered work,\nbut the special requirements of the GNU Affero General Public License,\nsection 13, concerning interaction through a network will apply to the\ncombination as such.\n\n 14. Revised Versions of this License.\n\n The Free Software Foundation may publish revised and/or new versions of\nthe GNU General Public License from time to time. Such new versions will\nbe similar in spirit to the present version, but may differ in detail to\naddress new problems or concerns.\n\n Each version is given a distinguishing version number. If the\nProgram specifies that a certain numbered version of the GNU General\nPublic License \"or any later version\" applies to it, you have the\noption of following the terms and conditions either of that numbered\nversion or of any later version published by the Free Software\nFoundation. If the Program does not specify a version number of the\nGNU General Public License, you may choose any version ever published\nby the Free Software Foundation.\n\n If the Program specifies that a proxy can decide which future\nversions of the GNU General Public License can be used, that proxy's\npublic statement of acceptance of a version permanently authorizes you\nto choose that version for the Program.\n\n Later license versions may give you additional or different\npermissions. However, no additional obligations are imposed on any\nauthor or copyright holder as a result of your choosing to follow a\nlater version.\n\n 15. Disclaimer of Warranty.\n\n THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY\nAPPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT\nHOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM \"AS IS\" WITHOUT WARRANTY\nOF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,\nTHE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR\nPURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM\nIS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF\nALL NECESSARY SERVICING, REPAIR OR CORRECTION.\n\n 16. Limitation of Liability.\n\n IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING\nWILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS\nTHE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY\nGENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE\nUSE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF\nDATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD\nPARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),\nEVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF\nSUCH DAMAGES.\n\n 17. Interpretation of Sections 15 and 16.\n\n If the disclaimer of warranty and limitation of liability provided\nabove cannot be given local legal effect according to their terms,\nreviewing courts shall apply local law that most closely approximates\nan absolute waiver of all civil liability in connection with the\nProgram, unless a warranty or assumption of liability accompanies a\ncopy of the Program in return for a fee.\n\n END OF TERMS AND CONDITIONS\n\n How to Apply These Terms to Your New Programs\n\n If you develop a new program, and you want it to be of the greatest\npossible use to the public, the best way to achieve this is to make it\nfree software which everyone can redistribute and change under these terms.\n\n To do so, attach the following notices to the program. It is safest\nto attach them to the start of each source file to most effectively\nstate the exclusion of warranty; and each file should have at least\nthe \"copyright\" line and a pointer to where the full notice is found.\n\n \n Copyright (C) \n\n This program is free software: you can redistribute it and/or modify\n it under the terms of the GNU General Public License as published by\n the Free Software Foundation, either version 3 of the License, or\n (at your option) any later version.\n\n This program is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n GNU General Public License for more details.\n\n You should have received a copy of the GNU General Public License\n along with this program. If not, see .\n\nAlso add information on how to contact you by electronic and paper mail.\n\n If the program does terminal interaction, make it output a short\nnotice like this when it starts in an interactive mode:\n\n Copyright (C) \n This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.\n This is free software, and you are welcome to redistribute it\n under certain conditions; type `show c' for details.\n\nThe hypothetical commands `show w' and `show c' should show the appropriate\nparts of the General Public License. Of course, your program's commands\nmight be different; for a GUI interface, you would use an \"about box\".\n\n You should also get your employer (if you work as a programmer) or school,\nif any, to sign a \"copyright disclaimer\" for the program, if necessary.\nFor more information on this, and how to apply and follow the GNU GPL, see\n.\n\n The GNU General Public License does not permit incorporating your program\ninto proprietary programs. If your program is a subroutine library, you\nmay consider it more useful to permit linking proprietary applications with\nthe library. If this is what you want to do, use the GNU Lesser General\nPublic License instead of this License. But first, please read\n.\n"
},
{
"path": "DEPENDS.txt",
"content": "luastatus itself, without any barlibs and/or plugins, has the following dependencies:\n* docutils >=0.11 (rst2man program)\n* CMake >=3.1.3\n* pkg-config >=0.25\n* either Lua 5.1, Lua 5.2, Lua 5.3, Lua 5.4, or LuaJIT >=2.0.0\n\nFor running tests, you will also need:\n* valgrind (some older versions don't like LuaJIT; >=3.11.0 are known to be OK)\n* For 'i3' barlib tests: 'jq' binary\n* For 'dbus' plugin tests: a D-Bus daemon running in session mode; 'dbus-send' binary\n* For 'pulse' plugin tests: a running PulseAudio daemon; 'pactl' and 'pacmd' binaries\n* For 'web' plugin tests: 'libwebsockets' library (to build 'httpserv' program)\n\nBarlib 'dwm' has the following dependencies:\n* xcb >=1.10\n\nBarlib 'i3' has the following dependencies:\n* yajl >=2.0.4\n\nPlugin 'alsa' has the following dependencies:\n* alsa >=1.0.27.2\n\nPlugin 'backlight-linux' has the following dependencies:\n* plugin 'udev'\n\nPlugin 'battery-linux' has the following dependencies:\n* plugin 'udev'\n\nPlugin 'cpu-freq-linux' has the following dependencies:\n* plugin 'timer'\n\nPlugin 'cpu-usage-linux' has the following dependencies:\n* plugin 'timer'\n\nPlugin 'dbus' has the following dependencies:\n* glib-2.0 >=2.40.2\n* gio-2.0 >=2.40.2\n\nPlugin 'disk-io-linux' has the following dependencies:\n* plugin 'timer'\n\nPlugin 'file-contents-linux' has the following dependencies:\n* plugin 'inotify'\n\nPlugin 'imap' has the following dependencies:\n* LuaSocket library for the Lua version that luastatus was built with\n* LuaSec library for the Lua version that luastatus was built with\n\nPlugin 'is-program-running' has the following dependencies:\n* plugin 'timer'\n\nPlugin 'inotify' has the following dependencies:\n* a Linux system with a libc that provides (preferably glibc)\n\nPlugin 'mem-usage-linux' has the following dependencies:\n* plugin 'timer'\n\nPlugin 'mpris' has the following dependencies:\n* plugin 'dbus'\n\nPlugin 'network-linux' has the following dependencies:\n* a Linux system with Linux kernel headers\n* libnl >=3.0\n* libnl-genl >=3.0\n\nPlugin 'network-rate-linux' has the following dependencies:\n* plugin 'timer'\n\nPlugin 'pipe' has the following dependencies:\n* plugin 'timer'\n\nPlugin 'pulse' has the following dependencies:\n* libpulse >=4.0\n\nPlugin 'systemd-unit' has the following dependencies:\n* plugin 'dbus'\n\nPlugin 'temperature-linux' has the following dependencies:\n* plugin 'timer'\n\nPlugin 'udev' has the following dependencies:\n* libudev >=204\n\nPlugin 'web' has the following dependencies:\n* cJSON >=1.7.10\n* libcurl >=7.8\n\nPlugin 'xkb' has the following dependencies:\n* x11 >=1.6.2\n\nPlugin 'xtitle' has the following dependencies:\n* xcb >=1.10\n* xcb-ewmh >=0.4.1\n* xcb-icccm >=0.4.1\n* xcb-event >=0.3.8\n"
},
{
"path": "DOCS/CUSTOM_DATA_SRC_WIDGET.md",
"content": "Writing a widget that uses custom data source\n===\n\nA “custom data source” widget is a fancy way to refer to a widget that wants to wait for events\nand/or receive data using some blocking Lua operation (most commonly using some external Lua\nmodule), rather than using some luastatus plugin.\n\nThe luastatus project explicitly supports this flow; in fact, the “separate state” thing is there\nexactly to help such widgets react to events timely.\n\nThe basic mechanism is (details may vary for different widgets):\n\n * Specify `timer` as a plugin, with `period = 0` in plugin options (`opts`).\n\n * Do the following in the callback function (`cb`):\n\n + wait for next event (unless this is the first time `cb` is called);\n\n + generate data for barlib and return it.\n\n * If need to handle events, use separate-state event handler.\n\nTricks to know about\n---\n\n* Use `luastatus.plugin.push_period(seconds)` function of the `timer` plugin to force it to sleep\nfor a specified number of seconds after barlib receives your data. Note that this is a\n“*push* timeout” operation, not “*set* timeout”, meaning that it will only be respected for a single\niteration, and then “popped” (forgotten).\n\n* Use the argument to `cb` provided by the `timer` plugin to tell if this is the first time `cb`\nis called: the argument is a string, and it is `\"hello\"` if and only if this is the first time.\n\n* The `timer` plugin supports wakeup FIFO. This might be useful if `push_period` is used in case of\nerror, as a way to force an earlier re-try. The FIFO may be touched from inside the event handler,\nor from anywhere else.\n\nList of derived plugins using custom data sources\n---\n\n* imap;\n\n* pipe.\n\nList of widget examples using custom data sources\n---\n\n* btc-price;\n\n* gmail;\n\n* update-on-click;\n\n* weather.\n"
},
{
"path": "DOCS/MIGRATION_GUIDE.md",
"content": "0.2.0 to 0.3.0\n===\n* Semantics of the `greet` option of `inotify` plugin has changed;\n see `plugins/inotify/README.md` for details.\n\n0.1.0 to 0.2.0\n===\n* `luastatus.spawn`, `luastatus.rc` and `luastatus.dollar` functions have been removed.\n Use `os.execute` and/or `io.popen` instead — and please don’t forget to properly escape the arguments:\n ````lua\n function shell_escape(s)\n return \"'\" .. s:gsub(\"'\", \"'\\\\''\") .. \"'\"\n end\n ````\n\n* `pipe` plugin has been removed. Use the `timer` plugin and `io.open` instead:\n ````lua\n f = io.popen('your command', 'r')\n wdiget = {\n plugin = 'timer',\n cb = function()\n local line = f:read('*line')\n -- ...\n end,\n }\n ````\n"
},
{
"path": "DOCS/WRITING_BARLIB_OR_PLUGIN.md",
"content": "Thread-safety\n===\nEach non-thread-safe thing must be synchronized with other entities by means of the `map_get`\nfunction (see `DOCS/design/map_get.md`).\n\nEnvironment variables\n===\nYour plugin or barlib must not modify environment variables (this includes `unsetenv()`, `setenv()`,\n`putenv()`, and modifying `environ`).\n\nSignals\n===\nYour plugin or barlib can install signal handlers, but:\n\n 1. this must be done with `sigaction()`, and `sa_mask` field of `struct sigaction` must include\n `SA_RESTART`;\n\n 2. use the `map_get` facility to ensure there are no conflicting handlers installed; use, for\n example, the key of `\"flag:signal_handled:SIGUSR1\"` for signal `SIGUSR1`; the value behind the\n key should be checked to be null and then set to some non-null pointer. For POSIX real-time\n signals, use `\"SIGRTMIN+%d\"` nomenclature, where `%d` is a non-negative offset in decimal.\n\nYour plugin or barlib can call `pthread_sigmask()` (and, consequently, `pselect()`).\n\nWriting a plugin\n===\nCopy `include/plugin_data.h`, `include/plugin_data_v1.h`, `include/plugin_v1.h` and `include/common.h`;\ninclude `include/plugin_v1.h` and start reading `include/plugin_data.h`.\n\nThen, declare a global `const LuastatusIfacePlugin luastatus_iface_plugin_v1` variable.\n\nWriting a barlib\n===\nCopy `include/barlib_data.h`, `include/barlib_data_v1.h`, `include/barlib_v1.h` and `include/common.h`;\ninclude `include/barlib_v1.h` and start reading `include/barlib_data.h`.\n\nThen, declare a global `const LuastatusIfaceBarlib luastatus_iface_barlib_v1` variable.\n"
},
{
"path": "DOCS/c_notes/eintr-policy.md",
"content": "The main problem is that all the stdio functions may, according to POSIX, fail with `EINTR`, and there is no way to restart some of them, e.g. `fprintf`.\n\nOur solution is to ensure that `SA_RESTART` is set for all the signals that could be raised (without terminating the program).\n\nSee also: http://man7.org/linux/man-pages/man7/signal.7.html, section \"Interruption of system calls and library functions by signal handlers\".\n"
},
{
"path": "DOCS/c_notes/empty-ranges-and-c-stdlib.md",
"content": "http://www.open-std.org/jtc1/sc22/wg14/www/docs/n1256.pdf\n\nSubclause 7.1.4 Use of library functions, point 1:\n\n> Each of the following statements applies unless explicitly stated otherwise in the\n> detailed descriptions that follow: If an argument to a function has an invalid value (such\n> as a value outside the domain of the function, or a pointer outside the address space of\n> the program, or a null pointer, or a pointer to non-modifiable storage when the\n> corresponding parameter is not const-qualified) or a type (after promotion) not expected\n> by a function with variable number of arguments, the behavior is undefined. If a function\n> argument is described as being an array, the pointer actually passed to the function shall\n> have a value such that all address computations and accesses to objects (that would be\n> valid if the pointer did point to the first element of such an array) are in fact valid.\n\nIt’s not OK to call any function defined in `` with a pointer that can’t be dereferenced:\n\nSubclause 7.21.1 String handling conventions, point 2:\n\n> Where an argument declared as `size_t n` specifies the length of the array for a function, `n`\n> can have the value zero on a call to that function. Unless explicitly stated otherwise in\n> the description of a particular function in this subclause, pointer arguments on such a\n> call shall still have valid values, as described in 7.1.4. On such a call, a function\n> that locates a character finds no occurrence, a function that compares two character\n> sequences returns zero, and a function that copies characters copies zero characters.\n\nIt’s not OK to call `qsort`/`bsearch` with a pointer that can’t be dereferenced:\n\nSubclause 7.20.5 Searching and sorting utilites, point 1:\n\n> These utilities make use of a comparison function to search or sort arrays of unspecified\n> type. Where an argument declared as `size_t nmemb` specifies the length of the array for a\n> function, `nmemb` can have the value zero on a call to that function; the comparison function\n> is not called, a search finds no matching element, and sorting performs no rearrangement.\n> Pointer arguments on such a call shall still have valid values, as described in 7.1.4.\n\nHowever, it’s OK to call `snprintf`/`vsnprintf` with a pointer that can’t be dereferenced, as long as `n` is zero:\n\nSubclause 7.19.6.5 The `snprintf` function, point 2:\n\n> The `snprintf` function is equivalent to `fprintf`, except that the output is written into an\n> array (specified by argument `s`) rather than to a stream. If `n` is zero, nothing is written, and\n> `s` may be a null pointer. Otherwise, output characters beyond the `n-1`st are discarded rather\n> than being written to the array, and a null character is written at the end of the characters\n> actually written into the array. If copying takes place between objects that overlap, the behavior\n> is undefined.\n"
},
{
"path": "DOCS/design/locking-patterns.md",
"content": "The list of locking patterns of the main luastatus binary; run\n\n grep -Ew '(UN)?LOCK_[A-Z]' luastatus/luastatus.c\n\nto verify it is up-to-date.\n\nIt can be said that our order is: E < L < B.\nWe also don't lock the same mutex twice in any of the “procedures”.\nThis suffices to say there are no deadlocks.\n\n(We also have the `tests/torture.sh` test!)\n\n cb-gets-called() {\n lock L\n lock B\n unlock B\n unlock L\n }\n\n plugin-begins-call-and-cancels() {\n lock L\n unlock L\n }\n\n #-----------------------------------------------\n\n event-gets-called-and-raises-error-E() {\n lock E\n lock B\n unlock B\n unlock E\n }\n\n events-gets-called-and-succeeds-E() {\n lock E\n unlock E\n }\n\n barlib-ew-begins-call-and-cancels-E() {\n lock E\n unlock E\n }\n\n #-----------------------------------------------\n\n event-gets-called-and-raises-error-L() {\n lock L\n lock B\n unlock B\n unlock L\n }\n\n events-gets-called-and-succeeds-L() {\n lock L\n unlock L\n }\n\n barlib-ew-begins-call-and-cancels-L() {\n lock L\n unlock L\n }\n\n #-----------------------------------------------\n\n set-error-when-plugin-run-returned() {\n lock B\n unlock B\n }\n\n set-error-when-widget-init-failed() {\n lock B\n unlock B\n }\n"
},
{
"path": "DOCS/design/map_get.md",
"content": "Overview\n===\nluastatus provides the following function to barlibs and plugins:\n\n```c\nvoid ** (*map_get)(void *userdata, const char *key);\n```\n\nThis function is **not** thread-safe and should only be used in the `init` function.\n\nluastatus maintains a global mapping from zero-terminated strings to pointers (`void *`).\n`map_get` returns a pointer to the pointer corresponding to the given key; if a map entry with the given key does not exist, it creates one with a null pointer value.\n\nYou can read and/or write from/to this pointer-to-pointer; it is guaranteed to be persistent across other calls to `map_get` and other functions.\n\nIts intended use is for synchronization.\n"
},
{
"path": "README.md",
"content": "[](https://circleci.com/gh/shdown/luastatus)\n\n\n**luastatus** is a universal status bar content generator. It allows you to configure the way the\ndata from event sources is processed and shown, with Lua.\n\nIts main feature is that the content can be updated immediately as some event occurs, be it a change\nof keyboard layout, active window title, volume or a song in your favorite music player (provided\nthat there is a plugin for it) — a thing rather uncommon for tiling window managers.\n\nIts motto is:\n\n> No more heavy-forking, second-lagging shell-script status bar generators!\n\nScreenshot\n===\n\n\n\nAbove is i3bar with luastatus with Bitcoin price, time, volume, and keyboard layout widgets.\n\nKey concepts\n===\n\n\n\nIn short:\n * plugin is a thing that decides when to call the callback function `widget.cb` and what to pass to it;\n * barlib (**bar** **lib**rary) is a thing that decides what to with values that `widget.cb` function returns;\n * there are also *derived plugins*, which are plugins written in Lua that use regular plugins.\n\nExamples\n===\nALSA volume widget:\n\n```lua\nwidget = {\n plugin = 'alsa',\n opts = {\n channel = 'PCM'\n },\n cb = function(t)\n if t.mute then\n return {full_text = '[mute]', color = '#e03838'}\n else\n local percent = (t.vol.cur - t.vol.min)\n / (t.vol.max - t.vol.min)\n * 100\n return {full_text = string.format('[%3d%%]', math.floor(0.5 + percent)),\n color = '#718ba6'}\n end\n end,\n event = function(t)\n if t.button == 1 then -- left mouse button\n os.execute('urxvt -e alsamixer &')\n end\n end\n}\n```\n\nGMail widget (uses the derived plugin `imap`):\n\n```lua\n--[[\n-- Expects 'credentials.lua' to be present in the current directory; it may contain, e.g.,\n-- return {\n-- gmail = {\n-- login = 'john.smith',\n-- password = 'qwerty'\n-- }\n-- }\n--]]\ncredentials = require 'credentials'\nwidget = luastatus.require_plugin('imap').widget{\n host = 'imap.gmail.com',\n port = 993,\n mailbox = 'Inbox',\n use_ssl = true,\n timeout = 2 * 60,\n handshake_timeout = 10,\n login = credentials.gmail.login,\n password = credentials.gmail.password,\n error_sleep_period = 60,\n cb = function(unseen)\n if unseen == nil then\n return nil\n elseif unseen == 0 then\n return {full_text = '[-]', color = '#595959'}\n else\n return {full_text = string.format('[%d unseen]', unseen)}\n end\n end,\n event = [[ -- separate-state event function\n local t = ... -- obtain argument of this implicit function\n if t.button == 1 then -- left mouse button\n os.execute('xdg-open https://gmail.com &')\n end\n ]]\n}\n```\n\nSee more examples [here](https://github.com/shdown/luastatus/tree/master/examples).\n\nInstallation\n===\n`cmake . && make && sudo make install`\n\nYou can specify a Lua library to build with: `cmake -DWITH_LUA_LIBRARY=luajit .`\n\nYou can disable building certain barlibs and plugins, e.g. `cmake -DBUILD_PLUGIN_XTITLE=OFF .`\n\nYou can disable building man pages: `cmake -DBUILD_DOCS=OFF .`\n\nArchLinux\n---\nArchLinux users can use one of the following AUR packages:\n\n* [luastatus](https://aur.archlinux.org/packages/luastatus)\n* [luastatus-luajit](https://aur.archlinux.org/packages/luastatus-luajit)\n* [luastatus-git](https://aur.archlinux.org/packages/luastatus-git)\n* [luastatus-luajit-git](https://aur.archlinux.org/packages/luastatus-luajit-git)\n\nThere is also the [luastatus-meta](https://aur.archlinux.org/packages/luastatus-meta)\nmeta package which installs the dependencies of all of luastatus's plugins.\n\nGetting started\n===\nIt is recommended to first have a look at the\n[luastatus' man page](https://github.com/shdown/luastatus/blob/master/luastatus/README.rst).\n\nThen, read the barlib's and plugins' documentation, either via directly viewing\n`barlibs//README.rst` and `plugins//README.rst` files, or via installing the man pages\nand reading `luastatus-barlib-(7)` and `luastatus-plugin-(7)`.\n\nBarlib-specific notes on usage follow.\n\ni3 or sway\n----------\n`luastatus-i3-wrapper` should be specified as the i3bar's or sway-bar's status command in the config, e.g.:\n```\nbar {\n status_command cd ~/.config/luastatus && exec luastatus-i3-wrapper -B no_separators time-battery-combined.lua alsa.lua xkb.lua\n```\n\nSince sway-bar is format-compatible with i3wm, the exact same configuration works for both.\n\nSee also [README for i3](https://github.com/shdown/luastatus/blob/master/barlibs/i3/README.rst) and\n[examples for i3](https://github.com/shdown/luastatus/tree/master/examples/i3).\n\ndwm\n---\nluastatus should simply be launched with `-b dwm`, e.g.:\n```\nluastatus -b dwm -B separator=' • ' alsa.lua time-battery-combined.lua\n```\n\nSee also [README for dwm](https://github.com/shdown/luastatus/blob/master/barlibs/dwm/README.rst)\nand [examples for dwm](https://github.com/shdown/luastatus/tree/master/examples/dwm).\n\nlemonbar\n--------\n`lemonbar` should be launched with `luastatus-lemonbar-launcher`, e.g.:\n```\nluastatus-lemonbar-launcher -p -B#111111 -p -f'Droid Sans Mono for Powerline:pixelsize=12:weight=Bold' -- -Bseparator=' ' alsa.lua time-date.lua\n```\n\nSee also\n[README for lemonbar](https://github.com/shdown/luastatus/blob/master/barlibs/lemonbar/README.rst)\nand [examples for lemonbar](https://github.com/shdown/luastatus/tree/master/examples/lemonbar).\n\nstdout\n------\nluastatus should be launched with `luastatus-stdout-wrapper`; or write your own wrapper, see e.g.\nthe [wrapper for launching dvtm with luastatus](https://github.com/shdown/luastatus/blob/master/barlibs/stdout/luastatus-dvtm).\n\nSee also\n[README for stdout](https://github.com/shdown/luastatus/blob/master/barlibs/stdout/README.rst) and\nand [examples for stdout](https://github.com/shdown/luastatus/tree/master/examples/stdout).\n\nSupported Lua versions\n===\n* 5.1\n* LuaJIT, which is currently 5.1-compatible with \"some language and library extensions from Lua 5.2\"\n* 5.2\n* 5.3\n* 5.4\n* 5.5\n\nReporting bugs, requesting features, suggesting patches\n===\nFeel free to open an issue or a pull request.\n\nMigrating from older versions\n===\nSee the [Migration Guide](https://github.com/shdown/luastatus/blob/master/DOCS/MIGRATION_GUIDE.md).\n\nTesting\n===\n\nHere, at luastatus, we take code correctness and safety very seriously.\nWe do the following things:\n * We use best practices for C programming:\n - All non-trivial string processing goes through libsafe\n - We mark printf-like functions with appropriate attributes in order to get warnings on illegal format string or wrong argument types\n - We handle every error possible (except for cases where we can't, and don't want to, do anything about an error)\n - We pay attention to integer overflows/underflows, conversion of integers to/from floating-point types, and other possible cases of undefined behavior\n - We use typedef'd enum types instead of \"untyped\" integers to represent enum's values so that we can get warnings when a switch does not account for some value\n - We use macros for (re)allocations that make it impossible to get types wrong\n * We compile with `-Wall -Wextra`\n * We have a comprehensive test suite; it contains tests for luastatus, barlibs and plugins, and also includes \"torture\"-style tests (a.k.a. stress tests)\nwhich bombard luastatus with a lot of events from a plugin and a barlib simultaneously:\n * It passes under valgrind [memcheck tool]\n * It passes under valgrind [helgrind tool]\n * It passes under UBSAN (Undefined Behavior Sanitizer)\n * It passes under ASAN (Address Sanitizer)\n * It passes under LSAN (Leak Sanitizer)\n * It passes under TSAN (Thread Sanitizer)\n * Everything that theoretically can be an attack surface is fuzzed, under UBSAN, with both AFL and AFL++; we also have a sophisticated fuzz testcase generator (in `fuzz_utils/gen_testcases/`)\n\nWe tried to use additional compiler warnings, `-fanalyzer`, and external linters/static analyzers, but\nthese tools only gave false positives, except for PVS-Studio, which found one actual bug, but with a lot of false positives.\nSo we don't use any of these on a regular basis.\n"
},
{
"path": "barlibs/dwm/CMakeLists.txt",
"content": "file (GLOB sources \"*.c\")\nluastatus_add_barlib (barlib-dwm $ ${sources})\n\ntarget_compile_definitions (barlib-dwm PUBLIC -D_POSIX_C_SOURCE=200809L)\nluastatus_target_compile_with (barlib-dwm LUA)\ntarget_include_directories (barlib-dwm PUBLIC \"${PROJECT_SOURCE_DIR}\")\n\nfind_package (PkgConfig REQUIRED)\npkg_check_modules (XCB REQUIRED xcb)\nluastatus_target_build_with (barlib-dwm XCB)\n\nluastatus_add_man_page (README.rst luastatus-barlib-dwm 7)\n"
},
{
"path": "barlibs/dwm/README.rst",
"content": ".. :X-man-page-only: luastatus-barlib-dwm\n.. :X-man-page-only: #####################\n.. :X-man-page-only:\n.. :X-man-page-only: ##########################\n.. :X-man-page-only: dwm barlib for luastatus\n.. :X-man-page-only: ##########################\n.. :X-man-page-only:\n.. :X-man-page-only: :Copyright: LGPLv3\n.. :X-man-page-only: :Manual section: 7\n\nOverview\n========\nThis barlib updates the name of the root window.\n\nIt joins all non-empty strings returned by widgets by a separator, which defaults to ``\" | \"``.\n\nIt does not provide functions and does not support events.\n\n``cb`` return value\n===================\nEither of:\n\n* a string\n\n An empty string hides the widget.\n\n* an array of strings\n\n Equivalent to returning a string with all non-empty elements of the array joined by the separator.\n\n* ``nil``\n\n Hides the widget.\n\nOptions\n=======\nThe following options are supported:\n\n* ``display=``\n\n Set the name of a display to connect to. Default is to use ``DISPLAY`` environment variable.\n\n* ``separator=``\n\n Set the separator.\n"
},
{
"path": "barlibs/dwm/dwm.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"include/barlib_v1.h\"\n#include \"include/sayf_macros.h\"\n\n#include \n#include \n#include \n#include \n#include \n#include \n\n#include \"libls/ls_alloc_utils.h\"\n#include \"libls/ls_cstring_utils.h\"\n#include \"libls/ls_string.h\"\n#include \"libls/ls_lua_compat.h\"\n\ntypedef struct {\n size_t nwidgets;\n\n LS_String *bufs;\n\n // Temporary buffer for secondary buffering, to avoid unneeded redraws.\n LS_String tmpbuf;\n\n // Buffer for the content of the widgets joined by /sep/.\n LS_String joined;\n\n char *sep;\n\n xcb_connection_t *conn;\n\n xcb_window_t root;\n} Priv;\n\nstatic void destroy(LuastatusBarlibData *bd)\n{\n Priv *p = bd->priv;\n for (size_t i = 0; i < p->nwidgets; ++i)\n ls_string_free(p->bufs[i]);\n free(p->bufs);\n ls_string_free(p->tmpbuf);\n ls_string_free(p->joined);\n free(p->sep);\n if (p->conn)\n xcb_disconnect(p->conn);\n free(p);\n}\n\n// Returns zero on success, non-zero XCB error code on failure. In either case, /*out_conn/ is\n// written to, and should be closed with /xcb_disconnect()/.\nstatic int do_connect(\n const char *dpyname,\n xcb_connection_t **out_conn,\n xcb_window_t *out_root)\n{\n int screenp;\n *out_conn = xcb_connect(dpyname, &screenp);\n int r = xcb_connection_has_error(*out_conn);\n if (r != 0)\n return r;\n\n const xcb_setup_t *setup = xcb_get_setup(*out_conn);\n xcb_screen_iterator_t iter = xcb_setup_roots_iterator(setup);\n\n for (int i = 0; i < screenp; ++i)\n xcb_screen_next(&iter);\n\n *out_root = iter.data->root;\n return 0;\n}\n\nstatic bool redraw(LuastatusBarlibData *bd)\n{\n Priv *p = bd->priv;\n\n LS_String *joined = &p->joined;\n size_t n = p->nwidgets;\n LS_String *bufs = p->bufs;\n const char *sep = p->sep;\n\n ls_string_clear(joined);\n for (size_t i = 0; i < n; ++i) {\n if (bufs[i].size) {\n if (joined->size) {\n ls_string_append_s(joined, sep);\n }\n ls_string_append_b(joined, bufs[i].data, bufs[i].size);\n }\n }\n\n xcb_generic_error_t *err = xcb_request_check(\n p->conn,\n xcb_change_property_checked(\n p->conn,\n XCB_PROP_MODE_REPLACE,\n p->root,\n XCB_ATOM_WM_NAME,\n XCB_ATOM_STRING,\n 8,\n joined->size,\n joined->data\n )\n );\n if (err) {\n LS_FATALF(bd, \"XCB error %d occurred\", err->error_code);\n free(err);\n return false;\n }\n return true;\n}\n\nstatic int init(LuastatusBarlibData *bd, const char *const *opts, size_t nwidgets)\n{\n Priv *p = bd->priv = LS_XNEW(Priv, 1);\n *p = (Priv) {\n .nwidgets = nwidgets,\n .bufs = LS_XNEW(LS_String, nwidgets),\n .tmpbuf = ls_string_new_reserve(512),\n .joined = ls_string_new_reserve(1024),\n .sep = NULL,\n .conn = NULL,\n };\n for (size_t i = 0; i < nwidgets; ++i)\n p->bufs[i] = ls_string_new_reserve(512);\n\n // All the options may be passed multiple times!\n const char *dpyname = NULL;\n const char *sep = NULL;\n for (const char *const *s = opts; *s; ++s) {\n const char *v;\n if ((v = ls_strfollow(*s, \"display=\"))) {\n dpyname = v;\n } else if ((v = ls_strfollow(*s, \"separator=\"))) {\n sep = v;\n } else {\n LS_FATALF(bd, \"unknown option '%s'\", *s);\n goto error;\n }\n }\n p->sep = ls_xstrdup(sep ? sep : \" | \");\n\n int r = do_connect(dpyname, &p->conn, &p->root);\n if (r != 0) {\n LS_FATALF(bd, \"can't connect to display: XCB error %d\", r);\n goto error;\n }\n\n // Clear the current name.\n if (!redraw(bd))\n goto error;\n\n return LUASTATUS_OK;\n\nerror:\n destroy(bd);\n return LUASTATUS_ERR;\n}\n\nstatic int set(LuastatusBarlibData *bd, lua_State *L, size_t widget_idx)\n{\n Priv *p = bd->priv;\n LS_String *buf = &p->tmpbuf;\n ls_string_clear(buf);\n\n // L: ? data\n\n switch (lua_type(L, -1)) {\n case LUA_TSTRING:\n {\n size_t ns;\n const char *s = lua_tolstring(L, -1, &ns);\n ls_string_assign_b(buf, s, ns);\n }\n break;\n case LUA_TNIL:\n break;\n case LUA_TTABLE:\n {\n const char *sep = p->sep;\n\n size_t len = ls_lua_array_len(L, -1);\n for (size_t i = 1; i <= len; ++i) {\n lua_rawgeti(L, -1, i); // L: ? data value\n if (lua_isnil(L, -1)) {\n goto next;\n }\n if (!lua_isstring(L, -1)) {\n LS_ERRF(bd, \"table value: expected string, found %s\", luaL_typename(L, -1));\n goto invalid_data;\n }\n size_t ns;\n const char *s = lua_tolstring(L, -1, &ns);\n if (buf->size && ns) {\n ls_string_append_s(buf, sep);\n }\n ls_string_append_b(buf, s, ns);\nnext:\n lua_pop(L, 1); // L: ? data\n }\n // L: ? data\n }\n break;\n default:\n LS_ERRF(bd, \"expected table, string or nil, found %s\", luaL_typename(L, -1));\n goto invalid_data;\n }\n\n if (!ls_string_eq(*buf, p->bufs[widget_idx])) {\n ls_string_swap(buf, &p->bufs[widget_idx]);\n if (!redraw(bd)) {\n return LUASTATUS_ERR;\n }\n }\n return LUASTATUS_OK;\n\ninvalid_data:\n ls_string_clear(&p->bufs[widget_idx]);\n return LUASTATUS_NONFATAL_ERR;\n}\n\nstatic int set_error(LuastatusBarlibData *bd, size_t widget_idx)\n{\n Priv *p = bd->priv;\n ls_string_assign_s(&p->bufs[widget_idx], \"(Error)\");\n if (!redraw(bd)) {\n return LUASTATUS_ERR;\n }\n return LUASTATUS_OK;\n}\n\nLuastatusBarlibIface luastatus_barlib_iface_v1 = {\n .init = init,\n .set = set,\n .set_error = set_error,\n .destroy = destroy,\n};\n"
},
{
"path": "barlibs/i3/CMakeLists.txt",
"content": "file (GLOB sources \"*.c\")\nluastatus_add_barlib (\n barlib-i3\n $\n $\n ${sources}\n)\n\ntarget_compile_definitions (barlib-i3 PUBLIC -D_POSIX_C_SOURCE=200809L)\nluastatus_target_compile_with (barlib-i3 LUA)\ntarget_include_directories (barlib-i3 PUBLIC \"${PROJECT_SOURCE_DIR}\")\n\nfind_package (PkgConfig REQUIRED)\npkg_check_modules (YAJL REQUIRED yajl>=2.0.4)\nluastatus_target_build_with (barlib-i3 YAJL)\n\nfind_library (MATH_LIBRARY m)\nif (MATH_LIBRARY)\n target_link_libraries (barlib-i3 PUBLIC ${MATH_LIBRARY})\nendif ()\n\ninclude (GNUInstallDirs)\n\ninstall (PROGRAMS luastatus-i3-wrapper DESTINATION ${CMAKE_INSTALL_BINDIR})\n\nluastatus_add_man_page (README.rst luastatus-barlib-i3 7)\n"
},
{
"path": "barlibs/i3/README.rst",
"content": ".. :X-man-page-only: luastatus-barlib-i3\n.. :X-man-page-only: ###################\n.. :X-man-page-only:\n.. :X-man-page-only: ############################\n.. :X-man-page-only: i3/sway barlib for luastatus\n.. :X-man-page-only: ############################\n.. :X-man-page-only:\n.. :X-man-page-only: :Copyright: LGPLv3\n.. :X-man-page-only: :Manual section: 7\n\nOverview\n========\nThis barlib talks with i3bar (or sway-bar).\n\nTo use this barlib, you need to specify ``luastatus-i3-wrapper`` with appropriate arguments as the\n``status_command`` parameter of a bar in the i3 (or sway) configuration file. For example::\n\n bar {\n status_command cd ~/.config/luastatus && exec luastatus-i3-wrapper -B no_separators time-battery-combined.lua alsa.lua xkb.lua\n\nRedirections and ``luastatus-i3-wrapper``\n=========================================\ni3bar and sway-bar require all the data to be written to stdout and read from stdin.\n\nThis makes it very easy\nto mess things up: Lua's ``print()`` prints to stdout, processes spawned by widgets/plugins inherit\nour stdin and stdout, etc.\n\nThat's why this barlib requires that stdin and stdout file descriptors are manually redirected.\n\nA shell wrapper, ``luastatus-i3-wrapper``, is shipped with it; it does all the redirections and\nexecutes ``luastatus`` with ``-b i3``, all the required ``-B`` options, and additional arguments\npassed by you.\n\n``cb`` return value\n===================\nEither of:\n\n* an empty table or ``nil``\n\n Hide the widget.\n\n* a table with strings keys\n\n Is interpreted as a single segment (or a \"block\"). The keys *should not* include ``name``, as it\n is set automatically to be able to tell which widget was clicked.\n\n For more information, see http://i3wm.org/docs/i3bar-protocol.html#_blocks_in_detail.\n\n* an array (table with numeric keys)\n\n Is interpreted as an array of segments. To be able to tell which one was clicked, set the\n ``instance`` field of a segment.\n\n ``nil`` elements are ignored.\n\n``event`` argument\n==================\nA table with all click properties i3bar (or sway-bar) provides.\n\nFor more information, see http://i3wm.org/docs/i3bar-protocol.html#_click_events.\n\nFunctions\n=========\nThe following functions are provided:\n\n* ``escaped_str = luastatus.barlib.pango_escape(str)``\n\n Escapes text for the Pango markup.\n\nExample\n=======\nAn example that uses all possible features::\n\n function get_user_name()\n local f = io.popen('whoami', 'r')\n local r = f:read('*line')\n f:close()\n return r\n end\n\n i = 0\n widget = {\n plugin = 'timer',\n opts = {period = 2},\n cb = function(t)\n i = i + 1\n if i == 1 then\n return {} -- hides widget; alternatively, you can return nil.\n elseif i == 2 then\n -- no markup unless you specify markup='pango'\n return {full_text = '', color = '#aaaa00'}\n elseif i == 3 then\n -- see https://developer.gnome.org/pygtk/stable/pango-markup-language.html\n return {full_text = 'Hello, '\n .. luastatus.barlib.pango_escape(get_user_name())\n .. '!',\n markup = 'pango'}\n elseif i == 4 then\n i = 0\n return {\n {full_text = 'Now,', instance = 'now-segment'},\n nil, -- nils are ignored so that you can do\n -- return {get_time(), get_battery(), get_smth_else()}\n -- where, for example, get_battery() returns nil if the battery is full.\n {full_text = 'click me!', instance = 'click-me-segment'},\n }\n end\n end,\n event = function(t)\n local r = {'properties:'}\n for k, v in pairs(t) do\n table.insert(r, k .. '=' .. tostring(v))\n end\n os.execute(string.format(\n \"notify-send 'Click event' '%s'\", table.concat(r, ' ')))\n end,\n }\n\nOptions\n=======\nThe following options are supported:\n\n* ``in_fd=``\n\n File descriptor to read i3bar or sway-bar input from. Usually set by the wrapper.\n\n* ``out_fd=``\n\n File descriptor to write to. Usually set by the wrapper.\n\n* ``no_click_events``\n\n Tell i3bar (or sway-bar) we don't want to receive click events. This changes its behavior in that\n it will interpret \"clicks\" on segments as if an empty space on the bar was clicked,\n particularly, will switch workspaces if you scroll on a segment.\n\n* ``no_separators``\n\n Append ``\"separator\": false`` to a segment, unless it has a ``separator`` key. Also appends it\n to an ``(Error)`` segment.\n\n* ``allow_stopping``\n\n Allow i3bar (or sway-bar) to send luastatus ``SIGSTOP`` when it thinks it becomes invisible, and ``SIGCONT``\n when it thinks it becomes visible. Quite a questionable feature.\n\n* ``extra_init_json=``\n\n Extra JSON to output in header, e.g. ``\"key1\":10,\"key2\":true``.\n This could be of some use because Sway WM seems to be experimenting with additional header\n fields (but not yet documenting them), e.g. ``float_event_coords``.\n"
},
{
"path": "barlibs/i3/escape_json_str.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"escape_json_str.h\"\n#include \n#include \"libsafe/safev.h\"\n#include \"libsafe/mut_safev.h\"\n\nstatic const SAFEV HEX_CHARS = SAFEV_STATIC_INIT_FROM_LITERAL(\"0123456789ABCDEF\");\n\nstatic inline void append_sv(LS_String *dst, SAFEV v)\n{\n ls_string_append_b(dst, SAFEV_ptr_UNSAFE(v), SAFEV_len(v));\n}\n\nvoid append_json_escaped_str(LS_String *dst, SAFEV v)\n{\n ls_string_append_c(dst, '\"');\n\n char esc_arr[] = {'\\\\', 'u', '0', '0', '#', '#'};\n MUT_SAFEV esc = MUT_SAFEV_new_UNSAFE(esc_arr, sizeof(esc_arr));\n\n size_t n = SAFEV_len(v);\n size_t prev = 0;\n for (size_t i = 0; i < n; ++i) {\n unsigned char c = SAFEV_at(v, i);\n if (c < 32 || c == '\\\\' || c == '\"' || c == '/') {\n append_sv(dst, SAFEV_subspan(v, prev, i));\n MUT_SAFEV_set_at(esc, 4, SAFEV_at(HEX_CHARS, c / 16));\n MUT_SAFEV_set_at(esc, 5, SAFEV_at(HEX_CHARS, c % 16));\n append_sv(dst, MUT_SAFEV_TO_SAFEV(esc));\n prev = i + 1;\n }\n }\n append_sv(dst, SAFEV_subspan(v, prev, n));\n\n ls_string_append_c(dst, '\"');\n}\n"
},
{
"path": "barlibs/i3/escape_json_str.h",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef escape_json_str_h_\n#define escape_json_str_h_\n\n#include \"libls/ls_string.h\"\n#include \"libsafe/safev.h\"\n\n// Append to /dst/ JSON-escaped C string /v/.\nvoid append_json_escaped_str(LS_String *dst, SAFEV v);\n\n#endif\n"
},
{
"path": "barlibs/i3/event_watcher.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"event_watcher.h\"\n\n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n\n#include \"include/sayf_macros.h\"\n\n#include \"libls/ls_tls_ebuf.h\"\n#include \"libls/ls_parse_int.h\"\n#include \"libls/ls_strarr.h\"\n#include \"libls/ls_panic.h\"\n#include \"libls/ls_lua_compat.h\"\n#include \"libls/ls_alloc_utils.h\"\n#include \"libls/ls_freemem.h\"\n\n#include \"priv.h\"\n\n// If this is to be incremented, /lua_checkstack()/ must be called at appropriate times, and the\n// depth of the recursion in /push_object()/ be potentially limited somehow.\nenum { DEPTH_LIMIT = 10 };\n\ntypedef struct {\n enum {\n TYPE_ARRAY_START,\n TYPE_ARRAY_END,\n TYPE_MAP_START,\n TYPE_MAP_END,\n\n TYPE_STRING_KEY,\n\n TYPE_STRING,\n TYPE_NUMBER,\n TYPE_BOOL,\n TYPE_NULL,\n } type;\n\n union {\n size_t str_idx;\n double num;\n bool flag;\n } as;\n} Token;\n\ntypedef struct {\n Token *data;\n size_t size;\n size_t capacity;\n} TokenList;\n\nstatic inline TokenList token_list_new(void)\n{\n return (TokenList) {NULL, 0, 0};\n}\n\nstatic inline void token_list_push(TokenList *x, Token token)\n{\n if (x->size == x->capacity) {\n x->data = LS_M_X2REALLOC(x->data, &x->capacity);\n }\n x->data[x->size++] = token;\n}\n\nstatic inline void token_list_clear(TokenList *x)\n{\n x->data = LS_M_FREEMEM(x->data, &x->size, &x->capacity);\n}\n\nstatic inline void token_list_free(TokenList *x)\n{\n free(x->data);\n}\n\ntypedef struct {\n // Current JSON nesting depth. Before the initial '[', depth == -1.\n int depth;\n\n // Whether the last key (at depth == 1) was \"name\".\n bool last_key_is_name;\n\n // An array in which all the JSON strings, including keys, are stored.\n LS_StringArray strarr;\n\n // A flat list of current event's tokens.\n TokenList tokens;\n\n // Current event's widget index, or a negative value if is not known yet or invalid.\n int widget;\n\n LuastatusBarlibData *bd;\n LuastatusBarlibEWFuncs funcs;\n} Context;\n\n// Converts a JSON object that starts at the token with index /*idx/ in /ctx->tokens/, to a Lua\n// object, and pushes it onto /L/'s stack.\n// Advances /*idx/ so that it points to one token past the last token of the object.\nstatic void push_object(lua_State *L, Context *ctx, size_t *idx)\n{\n Token t = ctx->tokens.data[*idx];\n switch (t.type) {\n case TYPE_ARRAY_START:\n lua_newtable(L); // L: table\n ++*idx;\n for (size_t n = 1; ctx->tokens.data[*idx].type != TYPE_ARRAY_END; ++n) {\n push_object(L, ctx, idx); // L: table elem\n LS_ASSERT(n <= (size_t) LS_LUA_MAXI);\n lua_rawseti(L, -2, n); // L: table\n }\n break;\n case TYPE_MAP_START:\n lua_newtable(L); // L: table\n ++*idx;\n while (ctx->tokens.data[*idx].type != TYPE_MAP_END) {\n Token key = ctx->tokens.data[*idx];\n LS_ASSERT(key.type == TYPE_STRING_KEY);\n\n // To limit the maximum number of slots pushed onto /L/'s stack to /N + O(1)/, where /N/\n // is the maximum /ctx->depth/ encountered, we have to push the value first.\n // Unfortunately, /lua_settable()/ expects the key to be pushed first. So we simply swap\n // them with /lua_insert()/.\n\n ++*idx;\n push_object(L, ctx, idx); // L: table value\n\n size_t ns;\n const char *s = ls_strarr_at(ctx->strarr, key.as.str_idx, &ns);\n lua_pushlstring(L, s, ns); // L: table value key\n\n lua_insert(L, -2); // L: table key value\n lua_settable(L, -3); // L: table\n }\n break;\n case TYPE_STRING:\n {\n size_t ns;\n const char *s = ls_strarr_at(ctx->strarr, t.as.str_idx, &ns);\n lua_pushlstring(L, s, ns);\n }\n break;\n case TYPE_NUMBER:\n lua_pushnumber(L, t.as.num);\n break;\n case TYPE_BOOL:\n lua_pushboolean(L, t.as.flag);\n break;\n case TYPE_NULL:\n lua_pushnil(L);\n break;\n default:\n LS_MUST_BE_UNREACHABLE();\n }\n // Now, /*idx/ points to the last token of the object; increment it by one.\n ++*idx;\n}\n\nstatic void flush(Context *ctx)\n{\n Priv *p = ctx->bd->priv;\n\n if (ctx->widget >= 0 && (size_t) ctx->widget < p->nwidgets) {\n lua_State *L = ctx->funcs.call_begin(ctx->bd->userdata, ctx->widget);\n size_t idx = 0;\n push_object(L, ctx, &idx);\n LS_ASSERT(idx == ctx->tokens.size);\n ctx->funcs.call_end(ctx->bd->userdata, ctx->widget);\n }\n\n // reset the context\n ctx->last_key_is_name = false;\n ls_strarr_clear(&ctx->strarr);\n token_list_clear(&ctx->tokens);\n ctx->widget = -1;\n}\n\nstatic int token_helper(Context *ctx, Token token)\n{\n if (ctx->depth == -1) {\n if (token.type != TYPE_ARRAY_START) {\n LS_ERRF(ctx->bd, \"(event watcher) expected '['\");\n return 0;\n }\n ++ctx->depth;\n } else {\n if (ctx->depth == 0 && token.type != TYPE_MAP_START) {\n LS_ERRF(ctx->bd, \"(event watcher) expected '{'\");\n return 0;\n }\n token_list_push(&ctx->tokens, token);\n switch (token.type) {\n case TYPE_ARRAY_START:\n case TYPE_MAP_START:\n if (++ctx->depth >= DEPTH_LIMIT) {\n LS_ERRF(ctx->bd, \"(event watcher) nesting depth limit exceeded\");\n return 0;\n }\n break;\n\n case TYPE_ARRAY_END:\n case TYPE_MAP_END:\n if (--ctx->depth == 0) {\n flush(ctx);\n }\n break;\n\n default:\n break;\n }\n }\n return 1;\n}\n\nstatic inline size_t append_to_strarr(Context *ctx, const char *buf, size_t nbuf)\n{\n ls_strarr_append(&ctx->strarr, buf, nbuf);\n return ls_strarr_size(ctx->strarr) - 1;\n}\n\nstatic int callback_null(void *vctx)\n{\n return token_helper(vctx, (Token) {TYPE_NULL, {0}});\n}\n\nstatic int callback_boolean(void *vctx, int value)\n{\n return token_helper(vctx, (Token) {TYPE_BOOL, {.flag = value}});\n}\n\nstatic int callback_integer(void *vctx, long long value)\n{\n return token_helper(vctx, (Token) {TYPE_NUMBER, {.num = value}});\n}\n\nstatic int callback_double(void *vctx, double value)\n{\n return token_helper(vctx, (Token) {TYPE_NUMBER, {.num = value}});\n}\n\nstatic int callback_string(void *vctx, const unsigned char *buf, size_t nbuf)\n{\n Context *ctx = vctx;\n if (ctx->depth == 1 && ctx->last_key_is_name) {\n // parse error is OK here, /ctx->widget/ is checked in /flush()/.\n ctx->widget = ls_full_strtou_b((const char *) buf, nbuf);\n }\n\n return token_helper(ctx, (Token) {\n TYPE_STRING,\n {.str_idx = append_to_strarr(ctx, (const char *) buf, nbuf)}\n });\n}\n\nstatic int callback_start_map(void *vctx)\n{\n return token_helper(vctx, (Token) {TYPE_MAP_START, {0}});\n}\n\nstatic int callback_map_key(void *vctx, const unsigned char *buf, size_t nbuf)\n{\n Context *ctx = vctx;\n if (ctx->depth == 1) {\n ctx->last_key_is_name = (nbuf == 4 && memcmp(buf, \"name\", 4) == 0);\n }\n return token_helper(ctx, (Token) {\n TYPE_STRING_KEY,\n {.str_idx = append_to_strarr(ctx, (const char *) buf, nbuf)}\n });\n}\n\nstatic int callback_end_map(void *vctx)\n{\n return token_helper(vctx, (Token) {TYPE_MAP_END, {0}});\n}\n\nstatic int callback_start_array(void *vctx)\n{\n return token_helper(vctx, (Token) {TYPE_ARRAY_START, {0}});\n}\n\nstatic int callback_end_array(void *vctx)\n{\n return token_helper(vctx, (Token) {TYPE_ARRAY_END, {0}});\n}\n\nint event_watcher(LuastatusBarlibData *bd, LuastatusBarlibEWFuncs funcs)\n{\n Priv *p = bd->priv;\n if (p->noclickev)\n return LUASTATUS_NONFATAL_ERR;\n\n Context ctx = {\n .depth = -1,\n .last_key_is_name = false,\n .strarr = ls_strarr_new(),\n .tokens = token_list_new(),\n .widget = -1,\n .bd = bd,\n .funcs = funcs,\n };\n yajl_callbacks callbacks = {\n .yajl_null = callback_null,\n .yajl_boolean = callback_boolean,\n .yajl_integer = callback_integer,\n .yajl_double = callback_double,\n .yajl_string = callback_string,\n .yajl_start_map = callback_start_map,\n .yajl_map_key = callback_map_key,\n .yajl_end_map = callback_end_map,\n .yajl_start_array = callback_start_array,\n .yajl_end_array = callback_end_array,\n };\n yajl_handle hand = yajl_alloc(&callbacks, NULL, &ctx);\n\n unsigned char buf[1024];\n while (1) {\n ssize_t nread = read(p->in_fd, buf, sizeof(buf));\n if (nread < 0) {\n LS_ERRF(bd, \"(event watcher) read error: %s\", ls_tls_strerror(errno));\n goto error;\n } else if (nread == 0) {\n LS_ERRF(bd, \"(event watcher) i3bar closed its end of the pipe\");\n goto error;\n }\n switch (yajl_parse(hand, buf, nread)) {\n case yajl_status_ok:\n break;\n case yajl_status_client_canceled:\n goto error;\n case yajl_status_error:\n {\n unsigned char *descr = yajl_get_error(hand, /*verbose*/ 1, buf, nread);\n LS_ERRF(bd, \"(event watcher) yajl parse error: %s\", (char *) descr);\n yajl_free_error(hand, descr);\n }\n goto error;\n }\n }\n\nerror:\n ls_strarr_destroy(ctx.strarr);\n token_list_free(&ctx.tokens);\n yajl_free(hand);\n return LUASTATUS_ERR;\n}\n"
},
{
"path": "barlibs/i3/event_watcher.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef event_watcher_h_\n#define event_watcher_h_\n\n#include \"include/barlib_data_v1.h\"\n\nint event_watcher(LuastatusBarlibData *bd, LuastatusBarlibEWFuncs funcs);\n\n#endif\n"
},
{
"path": "barlibs/i3/fuzz_esc_json/.gitignore",
"content": "harness\nfindings\n"
},
{
"path": "barlibs/i3/fuzz_esc_json/build.sh",
"content": "#!/bin/sh\n\nif [ -z \"$CC\" ]; then\n echo >&2 \"You must set the 'CC' environment variable.\"\n echo >&2 \"Hint: you probably want to set 'CC' to 'some-directory/afl-gcc'.\"\n exit 1\nfi\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\n$CC -Wall -Wextra -O3 -fsanitize=undefined -std=c99 -D_POSIX_C_SOURCE=200809L \\\n -I\"$luastatus_root\" \\\n ./harness.c \\\n ../escape_json_str.c \\\n \"$luastatus_root\"/libls/ls_string.c \\\n \"$luastatus_root\"/libls/ls_alloc_utils.c \\\n \"$luastatus_root\"/libls/ls_panic.c \\\n \"$luastatus_root\"/libls/ls_cstring_utils.c \\\n \"$luastatus_root\"/libsafe/*.c \\\n -o harness\n"
},
{
"path": "barlibs/i3/fuzz_esc_json/clear.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nrm -rf ./findings\n"
},
{
"path": "barlibs/i3/fuzz_esc_json/fuzz.sh",
"content": "#!/bin/sh\n\nset -e\n\nif [ -z \"$XXX_AFL_DIR\" ]; then\n echo >&2 \"You must set the 'XXX_AFL_DIR' environment variable.\"\n exit 1\nfi\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nmkdir -p ./findings\n\nexport UBSAN_OPTIONS=halt_on_error=1\n\nexport AFL_EXIT_WHEN_DONE=1\n\n\"$XXX_AFL_DIR\"/afl-fuzz -i testcases -o findings -t 5 ./harness @@\n"
},
{
"path": "barlibs/i3/fuzz_esc_json/gen_testcases.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\n\"$luastatus_root\"/fuzz_utils/gen_testcases/gen_testcases.py \\\n ./testcases \\\n --a=1:'\\\"/' \\\n --a-range=h:1:0-31 \\\n --b=1:abc \\\n --b-range=h:1:127-255 \\\n --a-is-important \\\n --length=5-20 \\\n --num-files=10 \\\n --random-seed=123\n"
},
{
"path": "barlibs/i3/fuzz_esc_json/harness.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \n#include \n#include \n#include \n\n#include \"libls/ls_string.h\"\n#include \"libsafe/safev.h\"\n#include \"fuzz_utils/fuzz_utils.h\"\n\n#include \"../escape_json_str.h\"\n\nint main(int argc, char **argv)\n{\n if (argc != 2) {\n fprintf(stderr, \"USAGE: harness INPUT_FILE\\n\");\n return 2;\n }\n\n int fd_in = open(argv[1], O_RDONLY | O_CLOEXEC);\n if (fd_in < 0) {\n perror(argv[1]);\n abort();\n }\n\n FuzzInput input = fuzz_input_new_prealloc(1024);\n if (fuzz_input_read(fd_in, &input) < 0) {\n perror(\"read\");\n abort();\n }\n\n LS_String res = ls_string_new_from_s(\"escape result = \");\n append_json_escaped_str(&res, SAFEV_new_UNSAFE(input.data, input.size));\n\n fuzz_utils_used(res.data, res.size);\n\n fuzz_input_free(input);\n ls_string_free(res);\n close(fd_in);\n\n return 0;\n}\n"
},
{
"path": "barlibs/i3/fuzz_esc_json/testcases/testcase_000",
"content": "\\\"/\u0002/\\"
},
{
"path": "barlibs/i3/fuzz_esc_json/testcases/testcase_001",
"content": "\"\u0006\u0005\b\u0001\"\u0010\\\u0015"
},
{
"path": "barlibs/i3/fuzz_esc_json/testcases/testcase_003",
"content": "/\u0002\u0015\\\n"
},
{
"path": "barlibs/i3/fuzz_esc_json/testcases/testcase_004",
"content": "\"\u0018/cb\\\"\ba\u0017c\"b\\\u0005"
},
{
"path": "barlibs/i3/fuzz_esc_json/testcases/testcase_006",
"content": "ba\u000ba߫\u0018\""
},
{
"path": "barlibs/i3/fuzz_esc_json/testcases/testcase_007",
"content": "c\u0014\"bcc"
},
{
"path": "barlibs/i3/fuzz_esc_json/testcases/testcase_008",
"content": "cbcȂbab\\"
},
{
"path": "barlibs/i3/fuzz_esc_json/testcases/testcase_009",
"content": "cbƐbccb"
},
{
"path": "barlibs/i3/fuzz_esc_pango/.gitignore",
"content": "harness\nfindings\n"
},
{
"path": "barlibs/i3/fuzz_esc_pango/build.sh",
"content": "#!/bin/sh\n\nif [ -z \"$CC\" ]; then\n echo >&2 \"You must set the 'CC' environment variable.\"\n echo >&2 \"Hint: you probably want to set 'CC' to 'some-directory/afl-gcc'.\"\n exit 1\nfi\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\n$CC -Wall -Wextra -O3 -fsanitize=undefined -std=c99 -D_POSIX_C_SOURCE=200809L \\\n -I\"$luastatus_root\" \\\n ./harness.c \\\n ../pango_escape.c \\\n \"$luastatus_root\"/libls/ls_string.c \\\n \"$luastatus_root\"/libls/ls_alloc_utils.c \\\n \"$luastatus_root\"/libls/ls_panic.c \\\n \"$luastatus_root\"/libls/ls_cstring_utils.c \\\n \"$luastatus_root\"/libsafe/*.c \\\n -o harness\n"
},
{
"path": "barlibs/i3/fuzz_esc_pango/clear.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nrm -rf ./findings\n"
},
{
"path": "barlibs/i3/fuzz_esc_pango/fuzz.sh",
"content": "#!/bin/sh\n\nset -e\n\nif [ -z \"$XXX_AFL_DIR\" ]; then\n echo >&2 \"You must set the 'XXX_AFL_DIR' environment variable.\"\n exit 1\nfi\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nmkdir -p ./findings\n\nexport UBSAN_OPTIONS=halt_on_error=1\n\nexport AFL_EXIT_WHEN_DONE=1\n\n\"$XXX_AFL_DIR\"/afl-fuzz -i testcases -o findings -t 5 ./harness @@\n"
},
{
"path": "barlibs/i3/fuzz_esc_pango/gen_testcases.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\n\"$luastatus_root\"/fuzz_utils/gen_testcases/gen_testcases.py \\\n ./testcases \\\n --a=1:'&<>\\\"' \\\n --b=1:abc \\\n --a-is-important \\\n --length=5-20 \\\n --num-files=10 \\\n --random-seed=123\n"
},
{
"path": "barlibs/i3/fuzz_esc_pango/harness.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \n#include \n#include \n#include \n\n#include \"libls/ls_string.h\"\n#include \"libsafe/safev.h\"\n#include \"fuzz_utils/fuzz_utils.h\"\n\n#include \"../pango_escape.h\"\n\nstatic void append_to_ls_string(void *ud, SAFEV segment)\n{\n LS_String *dst = ud;\n ls_string_append_b(dst, SAFEV_ptr_UNSAFE(segment), SAFEV_len(segment));\n}\n\nint main(int argc, char **argv)\n{\n if (argc != 2) {\n fprintf(stderr, \"USAGE: harness INPUT_FILE\\n\");\n return 2;\n }\n\n int fd_in = open(argv[1], O_RDONLY | O_CLOEXEC);\n if (fd_in < 0) {\n perror(argv[1]);\n abort();\n }\n\n FuzzInput input = fuzz_input_new_prealloc(1024);\n if (fuzz_input_read(fd_in, &input) < 0) {\n perror(\"read\");\n abort();\n }\n\n LS_String res = ls_string_new_from_s(\"pango escape result = \");\n pango_escape(\n SAFEV_new_UNSAFE(input.data, input.size),\n append_to_ls_string,\n &res);\n\n fuzz_utils_used(res.data, res.size);\n\n fuzz_input_free(input);\n ls_string_free(res);\n close(fd_in);\n\n return 0;\n}\n"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_000",
"content": "&<>\\\"&"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_001",
"content": ">&&<&\\>&b\\\"\">\"\"c\\"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_002",
"content": ">c>>\\&\\c\"\\a&"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_003",
"content": "&<\\<cbb\"\"<\\<"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_004",
"content": "\">&aca\"\"><\"bb>\"baa&"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_005",
"content": "&\\bcbbb>b\\>cc>&ab"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_006",
"content": "acb&\\ab\\a"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_007",
"content": "ac>bc"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_008",
"content": "bbccba<"
},
{
"path": "barlibs/i3/fuzz_esc_pango/testcases/testcase_009",
"content": "ababbaabcbbb"
},
{
"path": "barlibs/i3/i3.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n\n#include \"include/barlib_v1.h\"\n#include \"include/sayf_macros.h\"\n\n#include \"libls/ls_string.h\"\n#include \"libls/ls_alloc_utils.h\"\n#include \"libls/ls_parse_int.h\"\n#include \"libls/ls_cstring_utils.h\"\n#include \"libls/ls_tls_ebuf.h\"\n#include \"libls/ls_io_utils.h\"\n#include \"libls/ls_lua_compat.h\"\n#include \"libsafe/safev.h\"\n\n#include \"priv.h\"\n#include \"event_watcher.h\"\n#include \"escape_json_str.h\"\n#include \"pango_escape.h\"\n\nstatic void destroy(LuastatusBarlibData *bd)\n{\n Priv *p = bd->priv;\n for (size_t i = 0; i < p->nwidgets; ++i) {\n ls_string_free(p->bufs[i]);\n }\n free(p->bufs);\n ls_string_free(p->tmpbuf);\n ls_close(p->in_fd);\n if (p->out) {\n fclose(p->out);\n }\n free(p);\n}\n\nstatic int init(LuastatusBarlibData *bd, const char *const *opts, size_t nwidgets)\n{\n Priv *p = bd->priv = LS_XNEW(Priv, 1);\n *p = (Priv) {\n .nwidgets = nwidgets,\n .bufs = LS_XNEW(LS_String, nwidgets),\n .tmpbuf = ls_string_new_reserve(1024),\n .in_fd = -1,\n .out = NULL,\n .noclickev = false,\n .noseps = false,\n };\n for (size_t i = 0; i < nwidgets; ++i)\n p->bufs[i] = ls_string_new_reserve(1024);\n\n // All the options may be passed multiple times!\n int in_fd = -1;\n int out_fd = -1;\n const char *extra_init_json = NULL;\n bool allow_stopping = false;\n for (const char *const *s = opts; *s; ++s) {\n const char *v;\n if ((v = ls_strfollow(*s, \"in_fd=\"))) {\n if ((in_fd = ls_full_strtou(v)) < 0) {\n LS_FATALF(bd, \"in_fd value is not a valid unsigned integer\");\n goto error;\n }\n } else if ((v = ls_strfollow(*s, \"out_fd=\"))) {\n if ((out_fd = ls_full_strtou(v)) < 0) {\n LS_FATALF(bd, \"out_fd value is not a valid unsigned integer\");\n goto error;\n }\n } else if (strcmp(*s, \"no_click_events\") == 0) {\n p->noclickev = true;\n } else if (strcmp(*s, \"no_separators\") == 0) {\n p->noseps = true;\n } else if (strcmp(*s, \"allow_stopping\") == 0) {\n allow_stopping = true;\n } else if ((v = ls_strfollow(*s, \"extra_init_json=\"))) {\n extra_init_json = v;\n } else {\n LS_FATALF(bd, \"unknown option '%s'\", *s);\n goto error;\n }\n }\n\n // we require /in_fd/ and /out_fd/ to >=3 because making stdin/stdout/stderr CLOEXEC has very\n // bad consequences, and we just don't want to complicate the logic.\n if (in_fd < 3) {\n LS_FATALF(bd, \"in_fd is not specified or less than 3\");\n goto error;\n }\n if (out_fd < 3) {\n LS_FATALF(bd, \"out_fd is not specified or less than 3\");\n goto error;\n }\n\n // assign\n p->in_fd = in_fd;\n if (!(p->out = fdopen(out_fd, \"w\"))) {\n LS_FATALF(bd, \"can't fdopen %d: %s\", out_fd, ls_tls_strerror(errno));\n goto error;\n }\n\n // make CLOEXEC\n if (ls_make_cloexec(in_fd) < 0) {\n LS_FATALF(bd, \"can't make fd %d CLOEXEC: %s\", in_fd, ls_tls_strerror(errno));\n goto error;\n }\n if (ls_make_cloexec(out_fd) < 0) {\n LS_FATALF(bd, \"can't make fd %d CLOEXEC: %s\", out_fd, ls_tls_strerror(errno));\n goto error;\n }\n\n // print header\n fprintf(p->out, \"{\\\"version\\\":1,\\\"click_events\\\":%s\", p->noclickev ? \"false\" : \"true\");\n if (extra_init_json && extra_init_json[0]) {\n fprintf(p->out, \",%s\", extra_init_json);\n }\n if (!allow_stopping) {\n fprintf(p->out, \",\\\"stop_signal\\\":0,\\\"cont_signal\\\":0\");\n }\n fprintf(p->out, \"}\\n[\\n\");\n fflush(p->out);\n if (ferror(p->out)) {\n LS_FATALF(bd, \"write error: %s\", ls_tls_strerror(errno));\n goto error;\n }\n\n return LUASTATUS_OK;\n\nerror:\n destroy(bd);\n return LUASTATUS_ERR;\n}\n\nstatic bool redraw(LuastatusBarlibData *bd)\n{\n Priv *p = bd->priv;\n\n FILE *out = p->out;\n size_t n = p->nwidgets;\n LS_String *bufs = p->bufs;\n\n putc('[', out);\n bool first = true;\n for (size_t i = 0; i < n; ++i) {\n if (bufs[i].size) {\n if (!first) {\n putc(',', out);\n }\n fwrite(bufs[i].data, 1, bufs[i].size, out);\n first = false;\n }\n }\n fputs(\"],\\n\", out);\n fflush(out);\n if (ferror(out)) {\n LS_FATALF(bd, \"write error: %s\", ls_tls_strerror(errno));\n return false;\n }\n return true;\n}\n\nstatic void append_to_lua_buf(void *ud, SAFEV segment)\n{\n luaL_Buffer *b = ud;\n luaL_addlstring(b, SAFEV_ptr_UNSAFE(segment), SAFEV_len(segment));\n}\n\nstatic int l_pango_escape(lua_State *L)\n{\n size_t ns;\n // WARNING: luaL_check*() functions do a long jump on error!\n const char *s = luaL_checklstring(L, 1, &ns);\n\n luaL_Buffer b;\n luaL_buffinit(L, &b);\n\n SAFEV v = SAFEV_new_UNSAFE(s, ns);\n pango_escape(v, append_to_lua_buf, &b);\n\n luaL_pushresult(&b);\n return 1;\n}\n\nstatic void register_funcs(LuastatusBarlibData *bd, lua_State *L)\n{\n (void) bd;\n // L: table\n lua_pushcfunction(L, l_pango_escape); // L: table l_pango_escape\n lua_setfield(L, -2, \"pango_escape\"); // L: table\n}\n\nstatic inline bool append_json_number(LS_String *s, double value)\n{\n if (!isfinite(value)) {\n return false;\n }\n ls_string_append_f(s, \"%.20g\", value);\n return true;\n}\n\n// Appends a JSON segment generated from table at the top of /L/'s stack, to\n// /((Priv *) bd->priv)->tmpbuf/.\nstatic bool append_segment(LuastatusBarlibData *bd, lua_State *L, size_t widget_idx)\n{\n Priv *p = bd->priv;\n LS_String *dst = &p->tmpbuf;\n\n // add a \"prologue\"\n if (dst->size) {\n ls_string_append_c(dst, ',');\n }\n ls_string_append_f(dst, \"{\\\"name\\\":\\\"%zu\\\"\", widget_idx);\n\n bool has_separator_key = false;\n // L: ? table\n lua_pushnil(L); // L: ? table nil\n while (lua_next(L, -2)) {\n // L: ? table key value\n if (!lua_isstring(L, -2)) {\n LS_ERRF(bd, \"segment key: expected string, found %s\", luaL_typename(L, -2));\n return false;\n }\n const char *key = lua_tostring(L, -2);\n\n if (strcmp(key, \"name\") == 0) {\n LS_WARNF(bd, \"segment: ignoring 'name', it is set automatically; use 'instance' \"\n \"instead\");\n goto next_entry;\n }\n\n if (strcmp(key, \"separator\") == 0) {\n has_separator_key = true;\n }\n\n ls_string_append_c(dst, ',');\n append_json_escaped_str(dst, SAFEV_new_from_cstr_UNSAFE(key));\n ls_string_append_c(dst, ':');\n\n switch (lua_type(L, -1)) {\n case LUA_TNUMBER:\n {\n double val = lua_tonumber(L, -1);\n if (!append_json_number(dst, val)) {\n LS_ERRF(bd, \"segment entry '%s': invalid number (NaN/Inf)\", key);\n return false;\n }\n }\n break;\n case LUA_TSTRING:\n {\n size_t ns;\n const char *s = lua_tolstring(L, -1, &ns);\n append_json_escaped_str(dst, SAFEV_new_UNSAFE(s, ns));\n }\n break;\n case LUA_TBOOLEAN:\n {\n bool val = lua_toboolean(L, -1);\n ls_string_append_s(dst, val ? \"true\" : \"false\");\n }\n break;\n case LUA_TNIL:\n ls_string_append_s(dst, \"null\");\n break;\n default:\n LS_ERRF(bd, \"segment entry '%s': expected string, number, boolean or nil, found %s\",\n key, luaL_typename(L, -1));\n return false;\n }\n\nnext_entry:\n lua_pop(L, 1); // L: ? table key\n }\n // L: ? table\n\n // add an \"epilogue\"\n if (p->noseps && !has_separator_key) {\n ls_string_append_s(dst, \",\\\"separator\\\":false\");\n }\n ls_string_append_c(dst, '}');\n\n return true;\n}\n\ntypedef enum {\n TC_EMPTY,\n TC_ARRAY,\n TC_DICT,\n} TableClass;\n\nstatic inline TableClass classify_table(lua_State *L)\n{\n // L: ? table\n lua_pushnil(L); // L: ? table nil\n if (!lua_next(L, -2)) {\n // L: ? table\n return TC_EMPTY;\n }\n // L: ? table key value\n bool is_array = lua_isnumber(L, -2);\n lua_pop(L, 2); // L: ? table\n return is_array ? TC_ARRAY : TC_DICT;\n}\n\nstatic int set(LuastatusBarlibData *bd, lua_State *L, size_t widget_idx)\n{\n Priv *p = bd->priv;\n ls_string_clear(&p->tmpbuf);\n\n // L: ? data\n\n switch (lua_type(L, -1)) {\n case LUA_TNIL:\n break;\n\n case LUA_TTABLE:\n switch (classify_table(L)) {\n case TC_EMPTY:\n break;\n case TC_DICT:\n if (!append_segment(bd, L, widget_idx)) {\n goto invalid_data;\n }\n break;\n case TC_ARRAY:\n {\n size_t len = ls_lua_array_len(L, -1);\n for (size_t i = 1; i <= len; ++i) {\n lua_rawgeti(L, -1, i); // L: ? data value\n switch (lua_type(L, -1)) {\n case LUA_TTABLE:\n if (!append_segment(bd, L, widget_idx)) {\n goto invalid_data;\n }\n break;\n case LUA_TNIL:\n break;\n default:\n LS_ERRF(bd, \"array value: expected table or nil, found %s\",\n luaL_typename(L, -1));\n goto invalid_data;\n }\n lua_pop(L, 1); // L: ? data\n }\n }\n }\n // L: ? data\n break;\n\n default:\n LS_ERRF(bd, \"expected table or nil, found %s\", luaL_typename(L, -1));\n goto invalid_data;\n }\n\n if (!ls_string_eq(p->tmpbuf, p->bufs[widget_idx])) {\n ls_string_swap(&p->tmpbuf, &p->bufs[widget_idx]);\n if (!redraw(bd)) {\n return LUASTATUS_ERR;\n }\n }\n return LUASTATUS_OK;\n\ninvalid_data:\n ls_string_clear(&p->bufs[widget_idx]);\n return LUASTATUS_NONFATAL_ERR;\n}\n\nstatic int set_error(LuastatusBarlibData *bd, size_t widget_idx)\n{\n Priv *p = bd->priv;\n LS_String *s = &p->bufs[widget_idx];\n\n ls_string_assign_s(\n s, \"{\\\"full_text\\\":\\\"(Error)\\\",\\\"color\\\":\\\"#ff0000\\\",\\\"background\\\":\\\"#000000\\\"\");\n if (p->noseps) {\n ls_string_append_s(s, \",\\\"separator\\\":false\");\n }\n ls_string_append_c(s, '}');\n\n if (!redraw(bd)) {\n return LUASTATUS_ERR;\n }\n return LUASTATUS_OK;\n}\n\nLuastatusBarlibIface luastatus_barlib_iface_v1 = {\n .init = init,\n .register_funcs = register_funcs,\n .set = set,\n .set_error = set_error,\n .event_watcher = event_watcher,\n .destroy = destroy,\n};\n"
},
{
"path": "barlibs/i3/luastatus-i3-wrapper",
"content": "#!/bin/sh\nexec ${LUASTATUS:-luastatus} -b i3 -B in_fd=3 -B out_fd=4 \"$@\" 3<&0 0&1 1>&2\n"
},
{
"path": "barlibs/i3/pango_escape.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"pango_escape.h\"\n#include \n#include \"libsafe/safev.h\"\n\n#define LIT(StrLit_) SAFEV_new_from_literal(StrLit_)\n\nvoid pango_escape(\n SAFEV v,\n void (*append)(void *ud, SAFEV segment),\n void *ud)\n{\n size_t n = SAFEV_len(v);\n size_t prev = 0;\n for (size_t i = 0; i < n; ++i) {\n SAFEV esc = {0};\n switch (SAFEV_at(v, i)) {\n case '&': esc = LIT(\"&\"); break;\n case '<': esc = LIT(\"<\"); break;\n case '>': esc = LIT(\">\"); break;\n case '\\'': esc = LIT(\"'\"); break;\n case '\"': esc = LIT(\""\"); break;\n default: continue;\n }\n append(ud, SAFEV_subspan(v, prev, i));\n append(ud, esc);\n prev = i + 1;\n }\n append(ud, SAFEV_suffix(v, prev));\n}\n"
},
{
"path": "barlibs/i3/pango_escape.h",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef pango_escape_h_\n#define pango_escape_h_\n\n#include \"libsafe/safev.h\"\n\nvoid pango_escape(\n SAFEV v,\n void (*append)(void *ud, SAFEV segment),\n void *ud);\n\n#endif\n"
},
{
"path": "barlibs/i3/priv.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef priv_h_\n#define priv_h_\n\n#include \n#include \n#include \n\n#include \"libls/ls_string.h\"\n\ntypedef struct {\n size_t nwidgets;\n\n LS_String *bufs;\n\n // Temporary buffer for secondary buffering, to avoid unneeded redraws.\n LS_String tmpbuf;\n\n // Input file descriptor.\n int in_fd;\n\n // /fdopen/'ed output file descritor.\n FILE *out;\n\n bool noclickev;\n\n bool noseps;\n} Priv;\n\n#endif\n"
},
{
"path": "barlibs/lemonbar/CMakeLists.txt",
"content": "file (GLOB sources \"*.c\")\nluastatus_add_barlib (\n barlib-lemonbar\n $\n $\n ${sources}\n)\n\ntarget_compile_definitions (barlib-lemonbar PUBLIC -D_POSIX_C_SOURCE=200809L)\nluastatus_target_compile_with (barlib-lemonbar LUA)\ntarget_include_directories (barlib-lemonbar PUBLIC \"${PROJECT_SOURCE_DIR}\")\n\ninclude (GNUInstallDirs)\n\ninstall (PROGRAMS luastatus-lemonbar-launcher DESTINATION ${CMAKE_INSTALL_BINDIR})\n\nluastatus_add_man_page (README.rst luastatus-barlib-lemonbar 7)\n"
},
{
"path": "barlibs/lemonbar/README.rst",
"content": ".. :X-man-page-only: luastatus-barlib-lemonbar\n.. :X-man-page-only: #########################\n.. :X-man-page-only:\n.. :X-man-page-only: #############################\n.. :X-man-page-only: lemonbar barlib for luastatus\n.. :X-man-page-only: #############################\n.. :X-man-page-only:\n.. :X-man-page-only: :Copyright: LGPLv3\n.. :X-man-page-only: :Manual section: 7\n\nOverview\n========\nThis barlib talks with ``lemonbar``.\n\nIt joins all non-empty strings returned by widgets by a separator, which defaults to ``\" | \"``.\n\nRedirections and ``luastatus-lemonbar-launcher``\n================================================\n``lemonbar`` is not capable of creating a bidirectional pipe itself; instead, it requires all the\ndata to be written to its stdin and read from its stdout.\n\nThat's why the input/output file descriptors of this barlib must be manually redirected.\n\nA launcher, ``luastatus-lemonbar-launcher``, is shipped with it; it spawns ``lemonbar`` connected to\na bidirectional pipe and executes ``luastatus`` with ``-b lemonbar``, all the required ``-B``\noptions, and additional arguments passed by you.\n\nPass each ``lemonbar`` argument with ``-p``, then pass ``--``, then pass luastatus arguments, e.g.::\n\n luastatus-lemonbar-launcher -p -B#111111 -p -f'Droid Sans Mono for Powerline:pixelsize=12:weight=Bold' -- -Bseparator=' ' widget1.lua widget2.lua\n\n``cb`` return value\n===================\nEither of:\n\n* a string with lemonbar markup\n\n An empty string hides the widget.\n\n* an array of such strings\n\n Equivalent to returning a string with all non-empty elements of the array joined by the\n separator.\n\n* ``nil``\n\n Hides the widget.\n\nFunctions\n=========\nThe following functions are provided:\n\n* ``escaped_str = luastatus.barlib.escape(str)``\n\n Escapes text for lemonbar markup.\n\n``event`` argument\n==================\nA string with the name of the command.\n\nOptions\n=======\nThe following options are supported:\n\n* ``in_fd=``\n\n File descriptor to read ``lemonbar`` input from. Usually set by the launcher.\n\n* ``out_fd=``\n\n File descriptor to write to. Usually set by the launcher.\n\n* ``separator=``\n\n Set the separator.\n"
},
{
"path": "barlibs/lemonbar/fuzz_esc/.gitignore",
"content": "harness\nfindings\n"
},
{
"path": "barlibs/lemonbar/fuzz_esc/build.sh",
"content": "#!/bin/sh\n\nif [ -z \"$CC\" ]; then\n echo >&2 \"You must set the 'CC' environment variable.\"\n echo >&2 \"Hint: you probably want to set 'CC' to 'some-directory/afl-gcc'.\"\n exit 1\nfi\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\n$CC -Wall -Wextra -O3 -fsanitize=undefined -std=c99 -D_POSIX_C_SOURCE=200809L \\\n -I\"$luastatus_root\" \\\n ./harness.c \\\n ../markup_utils.c \\\n \"$luastatus_root\"/libls/ls_string.c \\\n \"$luastatus_root\"/libls/ls_alloc_utils.c \\\n \"$luastatus_root\"/libls/ls_panic.c \\\n \"$luastatus_root\"/libls/ls_cstring_utils.c \\\n \"$luastatus_root\"/libls/ls_parse_int.c \\\n \"$luastatus_root\"/libsafe/*.c \\\n -o harness\n"
},
{
"path": "barlibs/lemonbar/fuzz_esc/clear.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nrm -rf ./findings\n"
},
{
"path": "barlibs/lemonbar/fuzz_esc/fuzz.sh",
"content": "#!/bin/sh\n\nset -e\n\nif [ -z \"$XXX_AFL_DIR\" ]; then\n echo >&2 \"You must set the 'XXX_AFL_DIR' environment variable.\"\n exit 1\nfi\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nmkdir -p ./findings\n\nexport UBSAN_OPTIONS=halt_on_error=1\n\nexport AFL_EXIT_WHEN_DONE=1\n\n\"$XXX_AFL_DIR\"/afl-fuzz -i testcases -o findings -t 5 ./harness @@\n"
},
{
"path": "barlibs/lemonbar/fuzz_esc/gen_testcases.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\n\"$luastatus_root\"/fuzz_utils/gen_testcases/gen_testcases.py \\\n ./testcases \\\n --a=1:abc \\\n --b=1:'%' \\\n --length=5-20 \\\n --num-files=10 \\\n --random-seed=123\n"
},
{
"path": "barlibs/lemonbar/fuzz_esc/harness.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \n#include \n#include \n#include \n\n#include \"libls/ls_string.h\"\n#include \"libsafe/safev.h\"\n#include \"fuzz_utils/fuzz_utils.h\"\n\n#include \"../markup_utils.h\"\n\nstatic void append_to_ls_string(void *ud, SAFEV segment)\n{\n LS_String *dst = ud;\n ls_string_append_b(dst, SAFEV_ptr_UNSAFE(segment), SAFEV_len(segment));\n}\n\nint main(int argc, char **argv)\n{\n if (argc != 2) {\n fprintf(stderr, \"USAGE: harness INPUT_FILE\\n\");\n return 2;\n }\n\n int fd_in = open(argv[1], O_RDONLY | O_CLOEXEC);\n if (fd_in < 0) {\n perror(argv[1]);\n abort();\n }\n\n FuzzInput input = fuzz_input_new_prealloc(1024);\n if (fuzz_input_read(fd_in, &input) < 0) {\n perror(\"read\");\n abort();\n }\n\n LS_String res = ls_string_new_from_s(\"escape result = \");\n escape(\n append_to_ls_string,\n &res,\n SAFEV_new_UNSAFE(input.data, input.size));\n\n fuzz_utils_used(res.data, res.size);\n\n fuzz_input_free(input);\n ls_string_free(res);\n close(fd_in);\n\n return 0;\n}\n"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_000",
"content": "acabca"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_001",
"content": "abbc%cccbbacacb%cc"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_002",
"content": "ccacb%a%%aacbcc"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_003",
"content": "%c%abb%%%ccb%abcb"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_004",
"content": "%a%ca%b%"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_005",
"content": "%a%cbc%%%"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_006",
"content": "%b%b%b%%c%%%%b%"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_007",
"content": "%%%%%%%%bb"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_008",
"content": "%%%%b%%%%%%%%%c%"
},
{
"path": "barlibs/lemonbar/fuzz_esc/testcases/testcase_009",
"content": "%%%%%%"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/.gitignore",
"content": "harness\nfindings\n"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/build.sh",
"content": "#!/bin/sh\n\nif [ -z \"$CC\" ]; then\n echo >&2 \"You must set the 'CC' environment variable.\"\n echo >&2 \"Hint: you probably want to set 'CC' to 'some-directory/afl-gcc'.\"\n exit 1\nfi\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\n$CC -Wall -Wextra -O3 -fsanitize=undefined -std=c99 -D_POSIX_C_SOURCE=200809L \\\n -I\"$luastatus_root\" \\\n ./harness.c \\\n ../markup_utils.c \\\n \"$luastatus_root\"/libls/ls_string.c \\\n \"$luastatus_root\"/libls/ls_alloc_utils.c \\\n \"$luastatus_root\"/libls/ls_panic.c \\\n \"$luastatus_root\"/libls/ls_cstring_utils.c \\\n \"$luastatus_root\"/libls/ls_parse_int.c \\\n \"$luastatus_root\"/libsafe/*.c \\\n -o harness\n"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/clear.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nrm -rf ./findings\n"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/fuzz.sh",
"content": "#!/bin/sh\n\nset -e\n\nif [ -z \"$XXX_AFL_DIR\" ]; then\n echo >&2 \"You must set the 'XXX_AFL_DIR' environment variable.\"\n exit 1\nfi\n\n# We add '-d' argument for original AFL because otherwise it\n# does not terminate within 24 hours.\n#\n# '-d' means \"quick & dirty mode (skips deterministic steps)\".\n\ncase \"$XXX_AFL_IS_PP\" in\n0)\n extra_opts='-d'\n ;;\n1)\n extra_opts=\n ;;\n*)\n echo >&2 \"You must set 'XXX_AFL_IS_PP' environment variable to either 0 or 1.\"\n echo >&2 \"Set it to 0 if AFL is the original Google's version (not AFL++).\"\n echo >&2 \"Set it to 1 if AFL is actually AFL++.\"\n exit 1\nesac\n\n# We also set AFL_NO_ARITH=1 because it's a text-based format.\n# This potentially speeds up fuzzing.\nexport AFL_NO_ARITH=1\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nmkdir -p ./findings\n\nexport UBSAN_OPTIONS=halt_on_error=1\n\nexport AFL_EXIT_WHEN_DONE=1\n\n\"$XXX_AFL_DIR\"/afl-fuzz $extra_opts -i testcases -o findings -t 5 ./harness @@\n"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/gen_testcases.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\nnl=$(printf '\\nx')\nnl=${nl%x}\n\n# 'fps' means 'final percent sign'\n\"$luastatus_root\"/fuzz_utils/gen_testcases/gen_testcases.py \\\n ./testcases \\\n --file-prefix='X_' \\\n --a=1:x \\\n --b=1:x \\\n --mut-substrings=\"|${nl}|}|%{A|%{x|%x|%%\" \\\n --length=10 \\\n --num-files=6 \\\n --random-seed=123 \\\n --extra-testcase='fps:x%'\n\n\"$luastatus_root\"/fuzz_utils/gen_testcases/gen_testcases.py \\\n ./testcases \\\n --file-prefix='Y_' \\\n --a=1:x \\\n --b=1:x \\\n --mut-prefix='%{A' \\\n --mut-substrings='|:' \\\n --length=10 \\\n --num-files=4 \\\n --random-seed=123\n\n\"$luastatus_root\"/fuzz_utils/gen_testcases/gen_testcases.py \\\n ./testcases \\\n --file-prefix='Z_' \\\n --a=1:x \\\n --b=1:x \\\n --mut-prefix='x%{A' \\\n --mut-substrings='|:' \\\n --length=10 \\\n --num-files=5 \\\n --random-seed=123\n"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/harness.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \n#include \n#include \n#include \n\n#include \"libls/ls_string.h\"\n#include \"libsafe/safev.h\"\n#include \"fuzz_utils/fuzz_utils.h\"\n\n#include \"../markup_utils.h\"\n\nint main(int argc, char **argv)\n{\n if (argc != 2) {\n fprintf(stderr, \"USAGE: harness INPUT_FILE\\n\");\n return 2;\n }\n\n int fd_in = open(argv[1], O_RDONLY | O_CLOEXEC);\n if (fd_in < 0) {\n perror(argv[1]);\n abort();\n }\n\n FuzzInput input = fuzz_input_new_prealloc(1024);\n if (fuzz_input_read(fd_in, &input) < 0) {\n perror(\"read\");\n abort();\n }\n\n LS_String res = ls_string_new_reserve(2048);\n ls_string_append_s(&res, \"sanitize result = \");\n\n append_sanitized(\n &res,\n 123,\n SAFEV_new_UNSAFE(input.data, input.size));\n\n fuzz_utils_used(res.data, res.size);\n\n fuzz_input_free(input);\n ls_string_free(res);\n close(fd_in);\n\n return 0;\n}\n"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/X_testcase_000",
"content": "xxxx\nxxxxxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/X_testcase_001",
"content": "xxxxxxx}xxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/X_testcase_002",
"content": "xxxxxxxxxx%{A"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/X_testcase_003",
"content": "xxxxx%{xxxxxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/X_testcase_004",
"content": "xxxxxxxx%xxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/X_testcase_005",
"content": "xxxxxxxxx%%x"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/X_testcase_fps",
"content": "x%"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/Y_testcase_000",
"content": "xxxx:xxxxxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/Y_testcase_001",
"content": "%xxxxxxx:xxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/Y_testcase_002",
"content": "%{xxxxxxxxxx:"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/Y_testcase_003",
"content": "%{Axxxxx:xxxxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/Z_testcase_000",
"content": "xxxx:xxxxxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/Z_testcase_001",
"content": "xxxxxxxx:xxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/Z_testcase_002",
"content": "x%xxxxxxxxxx:"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/Z_testcase_003",
"content": "x%{xxxxx:xxxxx"
},
{
"path": "barlibs/lemonbar/fuzz_sanitize/testcases/Z_testcase_004",
"content": "x%{Axxxxxxxx:xx"
},
{
"path": "barlibs/lemonbar/lemonbar.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n\n#include \"include/barlib_v1.h\"\n#include \"include/sayf_macros.h\"\n\n#include \"libls/ls_string.h\"\n#include \"libls/ls_cstring_utils.h\"\n#include \"libls/ls_tls_ebuf.h\"\n#include \"libls/ls_parse_int.h\"\n#include \"libls/ls_io_utils.h\"\n#include \"libls/ls_alloc_utils.h\"\n#include \"libls/ls_lua_compat.h\"\n#include \"libsafe/safev.h\"\n\n#include \"markup_utils.h\"\n\ntypedef struct {\n size_t nwidgets;\n\n LS_String *bufs;\n\n // Temporary buffer for secondary buffering, to avoid unneeded redraws.\n LS_String tmpbuf;\n\n char *sep;\n\n // /fdopen/'ed input file descriptor.\n FILE *in;\n\n // /fdopen/'ed output file descriptor.\n FILE *out;\n} Priv;\n\nstatic void destroy(LuastatusBarlibData *bd)\n{\n Priv *p = bd->priv;\n for (size_t i = 0; i < p->nwidgets; ++i)\n ls_string_free(p->bufs[i]);\n free(p->bufs);\n ls_string_free(p->tmpbuf);\n free(p->sep);\n if (p->in)\n fclose(p->in);\n if (p->out)\n fclose(p->out);\n free(p);\n}\n\nstatic int init(LuastatusBarlibData *bd, const char *const *opts, size_t nwidgets)\n{\n Priv *p = bd->priv = LS_XNEW(Priv, 1);\n *p = (Priv) {\n .nwidgets = nwidgets,\n .bufs = LS_XNEW(LS_String, nwidgets),\n .tmpbuf = ls_string_new_reserve(512),\n .sep = NULL,\n .in = NULL,\n .out = NULL,\n };\n for (size_t i = 0; i < nwidgets; ++i)\n p->bufs[i] = ls_string_new_reserve(512);\n\n // All the options may be passed multiple times!\n const char *sep = NULL;\n int in_fd = -1;\n int out_fd = -1;\n for (const char *const *s = opts; *s; ++s) {\n const char *v;\n if ((v = ls_strfollow(*s, \"in_fd=\"))) {\n if ((in_fd = ls_full_strtou(v)) < 0) {\n LS_FATALF(bd, \"in_fd value is not a valid unsigned integer\");\n goto error;\n }\n } else if ((v = ls_strfollow(*s, \"out_fd=\"))) {\n if ((out_fd = ls_full_strtou(v)) < 0) {\n LS_FATALF(bd, \"out_fd value is not a valid unsigned integer\");\n goto error;\n }\n } else if ((v = ls_strfollow(*s, \"separator=\"))) {\n sep = v;\n } else {\n LS_FATALF(bd, \"unknown option '%s'\", *s);\n goto error;\n }\n }\n p->sep = ls_xstrdup(sep ? sep : \" | \");\n\n // we require /in_fd/ and /out_fd/ to be >=3 because making stdin/stdout/stderr CLOEXEC has very\n // bad consequences, and we just don't want to complicate the logic.\n if (in_fd < 3) {\n LS_FATALF(bd, \"in_fd is not specified or less than 3\");\n goto error;\n }\n if (out_fd < 3) {\n LS_FATALF(bd, \"out_fd is not specified or less than 3\");\n goto error;\n }\n\n // open\n if (!(p->in = fdopen(in_fd, \"r\"))) {\n LS_FATALF(bd, \"can't fdopen %d: %s\", in_fd, ls_tls_strerror(errno));\n goto error;\n }\n if (!(p->out = fdopen(out_fd, \"w\"))) {\n LS_FATALF(bd, \"can't fdopen %d: %s\", out_fd, ls_tls_strerror(errno));\n goto error;\n }\n\n // make CLOEXEC\n if (ls_make_cloexec(in_fd) < 0) {\n LS_FATALF(bd, \"can't make fd %d CLOEXEC: %s\", in_fd, ls_tls_strerror(errno));\n goto error;\n }\n if (ls_make_cloexec(out_fd) < 0) {\n LS_FATALF(bd, \"can't make fd %d CLOEXEC: %s\", out_fd, ls_tls_strerror(errno));\n goto error;\n }\n\n return LUASTATUS_OK;\n\nerror:\n destroy(bd);\n return LUASTATUS_ERR;\n}\n\nstatic void append_to_lua_buf_callback(void *ud, SAFEV v)\n{\n luaL_Buffer *b = ud;\n luaL_addlstring(b, SAFEV_ptr_UNSAFE(v), SAFEV_len(v));\n}\n\nstatic int l_escape(lua_State *L)\n{\n size_t ns;\n // WARNING: /luaL_check*()/ functions do a long jump on error!\n const char *s = luaL_checklstring(L, 1, &ns);\n\n luaL_Buffer b;\n luaL_buffinit(L, &b);\n\n escape(append_to_lua_buf_callback, &b, SAFEV_new_UNSAFE(s, ns));\n\n luaL_pushresult(&b); // L: result\n\n return 1;\n}\n\nstatic void register_funcs(LuastatusBarlibData *bd, lua_State *L)\n{\n (void) bd;\n // L: table\n lua_pushcfunction(L, l_escape); // L: table l_escape\n lua_setfield(L, -2, \"escape\"); // L: table\n}\n\nstatic bool redraw(LuastatusBarlibData *bd)\n{\n Priv *p = bd->priv;\n FILE *out = p->out;\n size_t n = p->nwidgets;\n LS_String *bufs = p->bufs;\n const char *sep = p->sep;\n\n bool first = true;\n for (size_t i = 0; i < n; ++i) {\n if (bufs[i].size) {\n if (!first) {\n fputs(sep, out);\n }\n fwrite(bufs[i].data, 1, bufs[i].size, out);\n first = false;\n }\n }\n putc('\\n', out);\n fflush(out);\n if (ferror(out)) {\n LS_FATALF(bd, \"write error: %s\", ls_tls_strerror(errno));\n return false;\n }\n return true;\n}\n\nstatic int set(LuastatusBarlibData *bd, lua_State *L, size_t widget_idx)\n{\n Priv *p = bd->priv;\n LS_String *buf = &p->tmpbuf;\n ls_string_clear(buf);\n\n // L: ? data\n\n switch (lua_type(L, -1)) {\n case LUA_TNIL:\n break;\n\n case LUA_TSTRING:\n {\n size_t ns;\n const char *s = lua_tolstring(L, -1, &ns);\n append_sanitized(buf, widget_idx, SAFEV_new_UNSAFE(s, ns));\n }\n break;\n\n case LUA_TTABLE:\n {\n const char *sep = p->sep;\n\n size_t len = ls_lua_array_len(L, -1);\n for (size_t i = 1; i <= len; ++i) {\n lua_rawgeti(L, -1, i); // L: ? data value\n if (lua_isnil(L, -1)) {\n goto next;\n }\n if (!lua_isstring(L, -1)) {\n LS_ERRF(bd, \"table value: expected string, found %s\", luaL_typename(L, -1));\n goto invalid_data;\n }\n size_t ns;\n const char *s = lua_tolstring(L, -1, &ns);\n if (buf->size && ns) {\n ls_string_append_s(buf, sep);\n }\n append_sanitized(buf, widget_idx, SAFEV_new_UNSAFE(s, ns));\nnext:\n lua_pop(L, 1); // L: ? data\n }\n // L: ? data\n }\n break;\n\n default:\n LS_ERRF(bd, \"expected string, table or nil, found %s\", luaL_typename(L, -1));\n goto invalid_data;\n }\n\n if (!ls_string_eq(*buf, p->bufs[widget_idx])) {\n ls_string_swap(buf, &p->bufs[widget_idx]);\n if (!redraw(bd)) {\n return LUASTATUS_ERR;\n }\n }\n return LUASTATUS_OK;\n\ninvalid_data:\n ls_string_clear(&p->bufs[widget_idx]);\n return LUASTATUS_NONFATAL_ERR;\n}\n\nstatic int set_error(LuastatusBarlibData *bd, size_t widget_idx)\n{\n Priv *p = bd->priv;\n ls_string_assign_s(&p->bufs[widget_idx], \"%{B#f00}%{F#fff}(Error)%{B-}%{F-}\");\n if (!redraw(bd)) {\n return LUASTATUS_ERR;\n }\n return LUASTATUS_OK;\n}\n\nstatic int event_watcher(LuastatusBarlibData *bd, LuastatusBarlibEWFuncs funcs)\n{\n Priv *p = bd->priv;\n\n char *buf = NULL;\n size_t nbuf = 256;\n\n for (ssize_t nread; (nread = getline(&buf, &nbuf, p->in)) >= 0;) {\n if (nread == 0 || buf[nread - 1] != '\\n')\n continue;\n\n size_t ncommand;\n size_t widget_idx;\n const char *command = parse_command(buf, nread - 1, &ncommand, &widget_idx);\n if (!command)\n continue;\n if (widget_idx >= p->nwidgets) {\n continue;\n }\n lua_State *L = funcs.call_begin(bd->userdata, widget_idx);\n lua_pushlstring(L, command, ncommand);\n funcs.call_end(bd->userdata, widget_idx);\n }\n\n if (feof(p->in)) {\n LS_ERRF(bd, \"lemonbar closed its pipe end\");\n } else {\n LS_ERRF(bd, \"read error: %s\", ls_tls_strerror(errno));\n }\n\n free(buf);\n\n return LUASTATUS_ERR;\n}\n\nLuastatusBarlibIface luastatus_barlib_iface_v1 = {\n .init = init,\n .register_funcs = register_funcs,\n .set = set,\n .set_error = set_error,\n .event_watcher = event_watcher,\n .destroy = destroy,\n};\n"
},
{
"path": "barlibs/lemonbar/luastatus-lemonbar-launcher",
"content": "#!/usr/bin/env bash\n\nset -e\n\nif (( BASH_VERSINFO[0] < 4 )); then\n echo >&2 \"bash 4.0 or higher is required (this one is $BASH_VERSION).\"\n exit 1\nfi\n\nusage() {\n printf '%s\\n' >&2 \"$*\nUSAGE: ${0##*/} [-p lemonbar_argument [-p ...]] -- [luastatus_argument [...]]\nNote that '--' is mandatory.\"\n exit 2\n}\n\nlemonbar_args=()\n# There is no easy way to require '--' with getopts, so we parse $@ manually.\nwhile true; do\n if (( $# == 0 )); then\n usage \"'--' argument not found.\"\n fi\n case \"$1\" in\n --)\n shift\n break\n ;;\n -p)\n if (( $# == 1 )); then\n usage \"'-p' option requires an argument.\"\n fi\n shift\n lemonbar_args+=(\"$1\")\n ;;\n -p*)\n lemonbar_args+=(\"${1:2}\")\n ;;\n *)\n usage \"Unexpected argument '$1' found before '--'.\"\n ;;\n esac\n shift\ndone\n\ncoproc ${LEMONBAR:-lemonbar} \"${lemonbar_args[@]}\"\nexec <&${COPROC[0]} >&${COPROC[1]}\nexec ${LUASTATUS:-luastatus} -b lemonbar -B in_fd=3 -B out_fd=4 \"$@\" 3<&0 0&1 1>&2\n"
},
{
"path": "barlibs/lemonbar/markup_utils.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"markup_utils.h\"\n\n#include \"libls/ls_string.h\"\n#include \"libls/ls_parse_int.h\"\n#include \"libsafe/safev.h\"\n\n#include \n#include \n\nvoid escape(\n void (*append)(void *ud, SAFEV segment),\n void *ud,\n SAFEV v)\n{\n // just replace all \"%\"s with \"%%\"\n for (;;) {\n size_t i = SAFEV_index_of(v, '%');\n if (i == (size_t) -1) {\n break;\n }\n append(ud, SAFEV_subspan(v, 0, i));\n append(ud, SAFEV_new_from_literal(\"%%\"));\n v = SAFEV_suffix(v, i + 1);\n }\n append(ud, v);\n}\n\nstatic inline void append_sv(LS_String *dst, SAFEV v)\n{\n ls_string_append_b(dst, SAFEV_ptr_UNSAFE(v), SAFEV_len(v));\n}\n\nvoid append_sanitized(LS_String *buf, size_t widget_idx, SAFEV v)\n{\n size_t n = SAFEV_len(v);\n\n size_t prev = 0;\n bool a_tag = false;\n for (size_t i = 0; i < n; ++i) {\n\n#define DO_PREV(WhetherToIncludeThis_) \\\n do { \\\n size_t j__ = i + ((WhetherToIncludeThis_) ? 1 : 0); \\\n append_sv(buf, SAFEV_subspan(v, prev, j__)); \\\n prev = i + 1; \\\n } while (0)\n\n#define PEEK(Offset_) SAFEV_at_or(v, i + (Offset_), '\\0')\n\n switch (SAFEV_at(v, i)) {\n case '\\n':\n DO_PREV(false);\n break;\n\n case '%':\n if (PEEK(1) == '{' && PEEK(2) == 'A') {\n a_tag = true;\n } else if (PEEK(1) == '%') {\n ++i;\n }\n break;\n\n case ':':\n if (a_tag) {\n DO_PREV(true);\n ls_string_append_f(buf, \"%zu_\", widget_idx);\n a_tag = false;\n }\n break;\n\n case '}':\n a_tag = false;\n break;\n }\n\n#undef DO_PREV\n#undef PEEK\n\n }\n\n append_sv(buf, SAFEV_suffix(v, prev));\n}\n\nconst char *parse_command(const char *line, size_t nline, size_t *ncommand, size_t *widget_idx)\n{\n const char *endptr;\n int idx = ls_strtou_b(line, nline, &endptr);\n if (idx < 0 ||\n endptr == line ||\n endptr == line + nline ||\n *endptr != '_')\n {\n return NULL;\n }\n const char *command = endptr + 1;\n *ncommand = nline - (command - line);\n *widget_idx = idx;\n return command;\n}\n"
},
{
"path": "barlibs/lemonbar/markup_utils.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef markup_utils_h_\n#define markup_utils_h_\n\n#include \n\n#include \"libls/ls_string.h\"\n#include \"libsafe/safev.h\"\n\nvoid escape(\n void (*append)(void *ud, SAFEV segment),\n void *ud,\n SAFEV v);\n\nvoid append_sanitized(LS_String *buf, size_t widget_idx, SAFEV v);\n\nconst char *parse_command(const char *line, size_t nline, size_t *ncommand, size_t *widget_idx);\n\n#endif\n"
},
{
"path": "barlibs/stdout/CMakeLists.txt",
"content": "file (GLOB sources \"*.c\")\nluastatus_add_barlib (\n barlib-stdout\n $\n $\n ${sources}\n)\n\ntarget_compile_definitions (barlib-stdout PUBLIC -D_POSIX_C_SOURCE=200809L)\nluastatus_target_compile_with (barlib-stdout LUA)\ntarget_include_directories (barlib-stdout PUBLIC \"${PROJECT_SOURCE_DIR}\")\n\ninclude (GNUInstallDirs)\n\ninstall (PROGRAMS luastatus-stdout-wrapper DESTINATION ${CMAKE_INSTALL_BINDIR})\n\nluastatus_add_man_page (README.rst luastatus-barlib-stdout 7)\n"
},
{
"path": "barlibs/stdout/README.rst",
"content": ".. :X-man-page-only: luastatus-barlib-stdout\n.. :X-man-page-only: #######################\n.. :X-man-page-only:\n.. :X-man-page-only: ###########################\n.. :X-man-page-only: stdout barlib for luastatus\n.. :X-man-page-only: ###########################\n.. :X-man-page-only:\n.. :X-man-page-only: :Copyright: LGPLv3\n.. :X-man-page-only: :Manual section: 7\n\nOverview\n========\nThis barlib simply writes lines to a file descriptor.\n\nIt can be used for status bars such as **dzen**/**dzen2**, **xmobar**, **yabar**, **dvtm**, and\nothers.\n\nIt joins all non-empty strings returned by widgets by a separator, which defaults to ``\" | \"``.\n\nIt does not provide functions.\n\nRedirections and ``luastatus-stdout-wrapper``\n=============================================\nSince we need to write to stdout, it is very easy to mess things up: Lua's ``print()`` prints to\nstdout, processes spawned by widgets/plugins inherit our stdin and stdout, etc.\n\nThat's why this barlib requires that stdout file descriptor is manually redirected. A shell wrapper,\n``luastatus-stdout-wrapper``, is shipped with it; it does all the redirections needed and executes\n``luastatus`` with ``-b stdout`` and additional arguments passed by you.\n\nIt does not redirect stdin and/or pass ``in_fd=`` option. Make your own wrapper if this is needed.\n\n``cb`` return value\n===================\nEither of:\n\n* a string\n\n An empty string hides the widget.\n\n* an array of strings\n\n Equivalent to returning a string with all non-empty elements of the array joined by the\n separator.\n\n* ``nil``\n\n Hides the widget.\n\nOptions\n=======\nThe following options are supported:\n\n* ``out_fd=``\n\n File descriptor to write to. Usually set by the wrapper.\n\n* ``separator=``\n\n Set the separator.\n\n* ``error=``\n\n Set the content of an \"error\" segment. Defaults to ``\"(Error)\"``.\n\n* ``in_filename=`` or ``in_fd=``\n\n Enable event watcher.\n\n If ``in_filename=`` is specified, this barlib will open the specified\n filename for reading and then read from. If ``in_fd=`` is specified, the\n specified file descriptor will be read from. It is invalid to pass both options;\n in this case, this barlib will fail to initialize.\n\n This barilib will then read lines from the specified source. Each line will be\n treated as an event.\n\n This barlib doesn't try to interpret the content of the line; instead, the event\n will be broadcast to all widgets. Thus, if this option is used, it is the\n responsibility of each widget (that listens to the events) to check if the event\n is somehow related to it.\n\n``event`` argument\n==================\nEvents are only reported if either ``in_filename=`` or ``in_fd=`` option was\nspecified (see above). In this case, the argument is the line that was read from\nthe specified file, without the trailing newline character.\n"
},
{
"path": "barlibs/stdout/fuzz/.gitignore",
"content": "harness\nfindings\n"
},
{
"path": "barlibs/stdout/fuzz/build.sh",
"content": "#!/bin/sh\n\nif [ -z \"$CC\" ]; then\n echo >&2 \"You must set the 'CC' environment variable.\"\n echo >&2 \"Hint: you probably want to set 'CC' to 'some-directory/afl-gcc'.\"\n exit 1\nfi\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\n$CC -Wall -Wextra -O3 -fsanitize=undefined -std=c99 -D_POSIX_C_SOURCE=200809L \\\n -I\"$luastatus_root\" \\\n ./harness.c \\\n ../sanitize.c \\\n \"$luastatus_root\"/libls/ls_string.c \\\n \"$luastatus_root\"/libls/ls_alloc_utils.c \\\n \"$luastatus_root\"/libls/ls_panic.c \\\n \"$luastatus_root\"/libls/ls_cstring_utils.c \\\n \"$luastatus_root\"/libsafe/*.c \\\n -o harness\n"
},
{
"path": "barlibs/stdout/fuzz/clear.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nrm -rf ./findings\n"
},
{
"path": "barlibs/stdout/fuzz/fuzz.sh",
"content": "#!/bin/sh\n\nset -e\n\nif [ -z \"$XXX_AFL_DIR\" ]; then\n echo >&2 \"You must set the 'XXX_AFL_DIR' environment variable.\"\n exit 1\nfi\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nmkdir -p ./findings\n\nexport UBSAN_OPTIONS=halt_on_error=1\n\nexport AFL_EXIT_WHEN_DONE=1\n\n\"$XXX_AFL_DIR\"/afl-fuzz -i testcases -o findings -t 5 ./harness @@\n"
},
{
"path": "barlibs/stdout/fuzz/gen_testcases.sh",
"content": "#!/bin/sh\n\nset -e\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nluastatus_root=../../..\n\nnl=$(printf '\\nx')\nnl=${nl%x}\n\n\"$luastatus_root\"/fuzz_utils/gen_testcases/gen_testcases.py \\\n ./testcases \\\n --a=1:\"$nl\" \\\n --b=1:xyz \\\n --a-is-important \\\n --length=5-20 \\\n --num-files=10 \\\n --random-seed=123\n"
},
{
"path": "barlibs/stdout/fuzz/harness.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \n#include \n#include \n#include \n\n#include \"libls/ls_string.h\"\n#include \"libsafe/safev.h\"\n#include \"fuzz_utils/fuzz_utils.h\"\n\n#include \"../sanitize.h\"\n\nint main(int argc, char **argv)\n{\n if (argc != 2) {\n fprintf(stderr, \"USAGE: harness INPUT_FILE\\n\");\n return 2;\n }\n\n int fd_in = open(argv[1], O_RDONLY | O_CLOEXEC);\n if (fd_in < 0) {\n perror(argv[1]);\n abort();\n }\n\n FuzzInput input = fuzz_input_new_prealloc(1024);\n if (fuzz_input_read(fd_in, &input) < 0) {\n perror(\"read\");\n abort();\n }\n\n LS_String res = ls_string_new_from_s(\"sanitize result = \");\n append_sanitized(&res, SAFEV_new_UNSAFE(input.data, input.size));\n\n fuzz_utils_used(res.data, res.size);\n\n fuzz_input_free(input);\n ls_string_free(res);\n close(fd_in);\n\n return 0;\n}\n"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_000",
"content": "\n\n\n\n\n\n"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_001",
"content": "\n\n\n\ny\n\n\n\n\n"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_002",
"content": "\n\n\n\n\n\n\nz\n\n\n\n\n\ny\nx\n\nx"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_003",
"content": "xz\n\n\n\nz\nz\ny\n\n\n\nz\n"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_004",
"content": "y\nx\n\nz\nz"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_005",
"content": "z\n\nxx\nz\ny"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_006",
"content": "x\ny\nz\nyy\nyyy\nyxx"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_007",
"content": "\nxyyxyx\nzy\nzy\nzxyy"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_008",
"content": "xxxxzxx\n"
},
{
"path": "barlibs/stdout/fuzz/testcases/testcase_009",
"content": "zyyyyzxyyxyxxx"
},
{
"path": "barlibs/stdout/luastatus-dvtm",
"content": "#!/bin/sh\n\nFIFO=~/.luastatus-dvtm\n\nset -e\n\nrm -f \"$FIFO\"\nmkfifo -m600 \"$FIFO\"\n\nexec ${LUASTATUS:-luastatus} -b stdout -B out_fd=3 3>\"$FIFO\" \"$@\" &\nstatus_pid=$!\n\n${DVTM:-dvtm} -s \"$FIFO\" 2>/dev/null\n\nkill \"$status_pid\"\nrm -f \"$FIFO\"\n"
},
{
"path": "barlibs/stdout/luastatus-stdout-wrapper",
"content": "#!/bin/sh\nexec ${LUASTATUS:-luastatus} -b stdout -B out_fd=3 \"$@\" 3>&1 1>&2\n"
},
{
"path": "barlibs/stdout/open_stdio_file.c",
"content": "/*\n * Copyright (C) 2026 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"open_stdio_file.h\"\n\n#include \n#include \n#include \n#include \n\n#include \"libls/ls_io_utils.h\"\n#include \"libls/ls_tls_ebuf.h\"\n\n#include \"include/barlib_data_v1.h\"\n#include \"include/sayf_macros.h\"\n\nstatic bool open_input_fd(\n LuastatusBarlibData *bd,\n FILE **dst,\n int fd)\n{\n if (ls_make_cloexec(fd) < 0) {\n LS_FATALF(bd, \"can't make fd %d (in_fd) CLOEXEC: %s\", fd, ls_tls_strerror(errno));\n return false;\n }\n\n *dst = fdopen(fd, \"r\");\n if (!*dst) {\n LS_FATALF(bd, \"can't fdopen %d (in_fd): %s\", fd, ls_tls_strerror(errno));\n return false;\n }\n\n return true;\n}\n\nstatic bool open_input_filename(\n LuastatusBarlibData *bd,\n FILE **dst,\n const char *filename)\n{\n int fd = open(filename, O_RDONLY | O_CLOEXEC);\n if (fd < 0) {\n LS_FATALF(bd, \"can't open '%s' (in_filename): %s\", filename, ls_tls_strerror(errno));\n return false;\n }\n\n *dst = fdopen(fd, \"r\");\n if (!*dst) {\n LS_FATALF(bd, \"can't fdopen %d (opened in_filename): %s\", fd, ls_tls_strerror(errno));\n close(fd);\n return false;\n }\n\n return true;\n}\n\nbool open_input(\n LuastatusBarlibData *bd,\n FILE **dst,\n int fd,\n const char *filename)\n{\n if (fd >= 0 && filename) {\n LS_FATALF(bd, \"both in_fd and in_filename were specified\");\n return false;\n }\n if (fd >= 0) {\n return open_input_fd(bd, dst, fd);\n }\n if (filename) {\n return open_input_filename(bd, dst, filename);\n }\n return true;\n}\n\nbool open_output(\n LuastatusBarlibData *bd,\n FILE **dst,\n int fd)\n{\n if (ls_make_cloexec(fd) < 0) {\n LS_FATALF(bd, \"can't make fd %d (out_fd) CLOEXEC: %s\", fd, ls_tls_strerror(errno));\n return false;\n }\n\n *dst = fdopen(fd, \"w\");\n if (!*dst) {\n LS_FATALF(bd, \"can't fdopen %d (out_fd): %s\", fd, ls_tls_strerror(errno));\n return false;\n }\n\n return true;\n}\n"
},
{
"path": "barlibs/stdout/open_stdio_file.h",
"content": "/*\n * Copyright (C) 2026 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef open_stdio_file_\n#define open_stdio_file_\n\n#include \n#include \n#include \"include/barlib_data_v1.h\"\n\nbool open_input(\n LuastatusBarlibData *bd,\n FILE **dst,\n int fd,\n const char *filename);\n\nbool open_output(\n LuastatusBarlibData *bd,\n FILE **dst,\n int fd);\n\n#endif\n"
},
{
"path": "barlibs/stdout/sanitize.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"sanitize.h\"\n#include \n#include \"libls/ls_string.h\"\n#include \"libsafe/safev.h\"\n\nstatic inline void append_sv(LS_String *dst, SAFEV v)\n{\n ls_string_append_b(dst, SAFEV_ptr_UNSAFE(v), SAFEV_len(v));\n}\n\nvoid append_sanitized(LS_String *buf, SAFEV v)\n{\n for (;;) {\n size_t i = SAFEV_index_of(v, '\\n');\n if (i == (size_t) -1) {\n break;\n }\n append_sv(buf, SAFEV_subspan(v, 0, i));\n v = SAFEV_suffix(v, i + 1);\n }\n append_sv(buf, v);\n}\n"
},
{
"path": "barlibs/stdout/sanitize.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef sanitize_h_\n#define sanitize_h_\n\n#include \"libls/ls_string.h\"\n#include \"libsafe/safev.h\"\n\nvoid append_sanitized(LS_String *buf, SAFEV v);\n\n#endif\n"
},
{
"path": "barlibs/stdout/stdout.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \n#include \n#include \n#include \n#include \n#include \n#include \n\n#include \"include/barlib_v1.h\"\n#include \"include/sayf_macros.h\"\n\n#include \"libls/ls_string.h\"\n#include \"libls/ls_cstring_utils.h\"\n#include \"libls/ls_tls_ebuf.h\"\n#include \"libls/ls_parse_int.h\"\n#include \"libls/ls_alloc_utils.h\"\n#include \"libls/ls_lua_compat.h\"\n#include \"libsafe/safev.h\"\n\n#include \"sanitize.h\"\n#include \"open_stdio_file.h\"\n\ntypedef struct {\n size_t nwidgets;\n\n LS_String *bufs;\n\n // Temporary buffer for secondary buffering, to avoid unneeded redraws.\n LS_String tmpbuf;\n\n char *sep;\n\n // Content of an \"error\" segment.\n char *error;\n\n // /fdopen/'ed output file descriptor.\n FILE *out;\n\n // Value of /in_filename/ option.\n FILE *in;\n} Priv;\n\nstatic void destroy(LuastatusBarlibData *bd)\n{\n Priv *p = bd->priv;\n for (size_t i = 0; i < p->nwidgets; ++i) {\n ls_string_free(p->bufs[i]);\n }\n free(p->bufs);\n ls_string_free(p->tmpbuf);\n free(p->sep);\n free(p->error);\n if (p->out) {\n fclose(p->out);\n }\n if (p->in) {\n fclose(p->in);\n }\n free(p);\n}\n\nstatic int init(LuastatusBarlibData *bd, const char *const *opts, size_t nwidgets)\n{\n Priv *p = bd->priv = LS_XNEW(Priv, 1);\n *p = (Priv) {\n .nwidgets = nwidgets,\n .bufs = LS_XNEW(LS_String, nwidgets),\n .tmpbuf = ls_string_new_reserve(512),\n .sep = NULL,\n .error = NULL,\n .out = NULL,\n .in = NULL,\n };\n for (size_t i = 0; i < nwidgets; ++i)\n p->bufs[i] = ls_string_new_reserve(512);\n\n // All the options may be passed multiple times!\n const char *sep = NULL;\n const char *error = NULL;\n const char *in_filename = NULL;\n int out_fd = -1;\n int in_fd = -1;\n for (const char *const *s = opts; *s; ++s) {\n const char *v;\n if ((v = ls_strfollow(*s, \"out_fd=\"))) {\n if ((out_fd = ls_full_strtou(v)) < 0) {\n LS_FATALF(bd, \"out_fd value is not a valid unsigned integer\");\n goto error;\n }\n } else if ((v = ls_strfollow(*s, \"in_fd=\"))) {\n if ((in_fd = ls_full_strtou(v)) < 0) {\n LS_FATALF(bd, \"in_fd value is not a valid unsigned integer\");\n goto error;\n }\n } else if ((v = ls_strfollow(*s, \"separator=\"))) {\n sep = v;\n } else if ((v = ls_strfollow(*s, \"error=\"))) {\n error = v;\n } else if ((v = ls_strfollow(*s, \"in_filename=\"))) {\n in_filename = v;\n } else {\n LS_FATALF(bd, \"unknown option '%s'\", *s);\n goto error;\n }\n }\n p->sep = ls_xstrdup(sep ? sep : \" | \");\n p->error = ls_xstrdup(error ? error : \"(Error)\");\n\n // we require /out_fd/ to be >=3 because making stdin/stdout/stderr CLOEXEC has very bad\n // consequences, and we just don't want to complicate the logic.\n if (out_fd < 3) {\n LS_FATALF(bd, \"out_fd is not specified or less than 3\");\n goto error;\n }\n // same goes for /in_fd/, if specified\n if (in_fd >= 0 && in_fd < 3) {\n LS_FATALF(bd, \"in_fd is less than 3\");\n goto error;\n }\n\n // open output\n if (!open_output(bd, &p->out, out_fd)) {\n goto error;\n }\n\n // open input\n if (!open_input(bd, &p->in, in_fd, in_filename)) {\n goto error;\n }\n\n return LUASTATUS_OK;\n\nerror:\n destroy(bd);\n return LUASTATUS_ERR;\n}\n\nstatic bool redraw(LuastatusBarlibData *bd)\n{\n Priv *p = bd->priv;\n FILE *out = p->out;\n size_t n = p->nwidgets;\n LS_String *bufs = p->bufs;\n const char *sep = p->sep;\n\n bool first = true;\n for (size_t i = 0; i < n; ++i) {\n if (bufs[i].size) {\n if (!first) {\n fputs(sep, out);\n }\n fwrite(bufs[i].data, 1, bufs[i].size, out);\n first = false;\n }\n }\n putc('\\n', out);\n fflush(out);\n if (ferror(out)) {\n LS_FATALF(bd, \"write error: %s\", ls_tls_strerror(errno));\n return false;\n }\n return true;\n}\n\nstatic int set(LuastatusBarlibData *bd, lua_State *L, size_t widget_idx)\n{\n Priv *p = bd->priv;\n LS_String *buf = &p->tmpbuf;\n ls_string_clear(buf);\n\n // L: ? data\n\n switch (lua_type(L, -1)) {\n case LUA_TNIL:\n break;\n case LUA_TSTRING:\n {\n size_t ns;\n const char *s = lua_tolstring(L, -1, &ns);\n append_sanitized(buf, SAFEV_new_UNSAFE(s, ns));\n }\n break;\n case LUA_TTABLE:\n {\n const char *sep = p->sep;\n\n size_t len = ls_lua_array_len(L, -1);\n for (size_t i = 1; i <= len; ++i) {\n lua_rawgeti(L, -1, i); // L: ? data value\n if (lua_isnil(L, -1)) {\n goto next;\n }\n if (!lua_isstring(L, -1)) {\n LS_ERRF(bd, \"table value: expected string, found %s\", luaL_typename(L, -1));\n goto invalid_data;\n }\n size_t ns;\n const char *s = lua_tolstring(L, -1, &ns);\n if (buf->size && ns) {\n ls_string_append_s(buf, sep);\n }\n append_sanitized(buf, SAFEV_new_UNSAFE(s, ns));\nnext:\n lua_pop(L, 1); // L: ? data value\n }\n // L: ? data\n }\n break;\n default:\n LS_ERRF(bd, \"expected string, table or nil, found %s\", luaL_typename(L, -1));\n goto invalid_data;\n }\n\n if (!ls_string_eq(*buf, p->bufs[widget_idx])) {\n ls_string_swap(buf, &p->bufs[widget_idx]);\n if (!redraw(bd)) {\n return LUASTATUS_ERR;\n }\n }\n return LUASTATUS_OK;\n\ninvalid_data:\n ls_string_clear(&p->bufs[widget_idx]);\n return LUASTATUS_NONFATAL_ERR;\n}\n\nstatic int set_error(LuastatusBarlibData *bd, size_t widget_idx)\n{\n Priv *p = bd->priv;\n ls_string_assign_s(&p->bufs[widget_idx], p->error);\n if (!redraw(bd)) {\n return LUASTATUS_ERR;\n }\n return LUASTATUS_OK;\n}\n\nstatic int event_watcher(LuastatusBarlibData *bd, LuastatusBarlibEWFuncs funcs)\n{\n Priv *p = bd->priv;\n\n if (!p->in) {\n LS_DEBUGF(bd, \"event watcher: in_fd/in_filename not specified, returning\");\n return LUASTATUS_NONFATAL_ERR;\n }\n\n char *line = NULL;\n size_t line_buf_n = 1024;\n\n ssize_t line_n;\n while ((line_n = getline(&line, &line_buf_n, p->in)) >= 0) {\n\n if (line_n && line[line_n - 1] == '\\n') {\n --line_n;\n }\n\n for (size_t i = 0; i < p->nwidgets; ++i) {\n lua_State *L = funcs.call_begin(bd->userdata, i);\n lua_pushlstring(L, line, line_n);\n funcs.call_end(bd->userdata, i);\n }\n }\n\n if (feof(p->in)) {\n LS_FATALF(bd, \"event watcher: the other end of pipe/FIFO/something has been closed\");\n } else {\n LS_FATALF(bd, \"event watcher: I/O error: %s\", ls_tls_strerror(errno));\n }\n\n free(line);\n return LUASTATUS_ERR;\n}\n\nLuastatusBarlibIface luastatus_barlib_iface_v1 = {\n .init = init,\n .set = set,\n .set_error = set_error,\n .event_watcher = event_watcher,\n .destroy = destroy,\n};\n"
},
{
"path": "check_final_newline.py",
"content": "#!/usr/bin/env python3\nimport os\nimport sys\n\n\ndef say(s: str) -> None:\n print(s, file=sys.stderr)\n\n\ndef main() -> None:\n args = sys.argv[1:]\n if not args:\n say('USAGE: check_final_newline.py FILE [FILE ...]')\n sys.exit(2)\n\n everything_ok = True\n for arg in args:\n with open(arg, 'rb') as f:\n f.seek(0, os.SEEK_END)\n file_size = f.tell()\n if not file_size:\n continue\n f.seek(-1, os.SEEK_END)\n final_byte = f.read(1)\n if final_byte != b'\\n':\n say(f'File \"{arg}\" has no trailing newline!')\n everything_ok = False\n\n if everything_ok:\n sys.exit(0)\n else:\n sys.exit(1)\n\n\nif __name__ == '__main__':\n main()\n"
},
{
"path": "check_includes.sh",
"content": "#!/usr/bin/env bash\n\n# USAGE: check_includes.sh DIRECTORY [EXTRA CFLAGS...]\n# Requires 'include-what-you-use' tool.\n\nset -e\nset -o pipefail\n\ncheck_entity=${1?}; shift\nif [[ -d $check_entity ]]; then\n check_dir=$check_entity\n check_file=\nelse\n check_dir=$(dirname -- \"$check_entity\")\n check_file=$check_entity\nfi\n\nextra_cflags=( -D_POSIX_C_SOURCE=200809L \"$@\" )\n\nluastatus_dir=\"$check_dir\"\nluastatus_dir_found=0\nfor (( i = 0; i < 10; ++i )); do\n if [[ -e \"$luastatus_dir\"/generate-man.sh ]]; then\n luastatus_dir_found=1\n break\n fi\n luastatus_dir+='/..'\ndone\n\nif (( ! luastatus_dir_found )); then\n echo >&2 \"Cannot find luastatus dir\"\n exit 1\nfi\n\ncmakelists_dir=${CMAKELISTS_DIR:-$check_dir}\n\nmodules=()\nif [[ -e \"$cmakelists_dir\"/CMakeLists.txt ]]; then\n modules_raw=$(sed -rn 's/^\\s*pkg_check_modules\\s*\\(.*\\s+REQUIRED\\s+(.*)\\)\\s*$/\\1/p' \"$cmakelists_dir\"/CMakeLists.txt)\n # Replace all whitespace with newlines\n modules_raw=$(sed -r 's/\\s+/\\n/g' <<< \"$modules_raw\")\n # Remove version specifications (e.g. \"yajl>=2.0.4\" -> \"yajl\")\n modules_raw=$(sed -r 's/^([-a-zA-Z0-9_.]+).*/\\1/' <<< \"$modules_raw\")\n # Split by whitespace, assign to 'modules' array\n modules=( $modules_raw )\nfi\n\nif (( ${#modules[@]} )); then\n echo >&2 \"Modules: ${modules[*]}\"\nelse\n echo >&2 \"Modules: (none)\"\nfi\n\nmy_filter() {\n awk '\n/^The full include-list for / {\n skip = 1\n}\n/^---$/ {\n skip = 0\n}\n# print if and only if (!skip)\n!skip\n'\n}\n\ncflags=$(pkg-config --cflags ${LUA_LIB:-lua} \"${modules[@]}\")\n\ndo_check_specific_file() {\n include-what-you-use -I\"$luastatus_dir\" $cflags \"${extra_cflags[@]}\" \"$1\" 2>&1 | my_filter\n}\n\nif [[ -n $check_file ]]; then\n do_check_specific_file \"$check_file\"\nelse\n find \"$check_dir\" -name '*.[ch]' | while IFS= read -r src_file; do\n if [[ $src_file == *.in.h ]]; then\n continue\n fi\n do_check_specific_file \"$src_file\"\n done\nfi\n"
},
{
"path": "check_style.sh",
"content": "#!/usr/bin/env bash\n\nset -e\nset -o pipefail\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\nsay() {\n printf '%s\\n' \"$*\" >&2\n}\n\nexts=(\n c h\n lua\n py\n sh bash\n md rst txt\n)\n\nfind_name_clause=()\nfor ext in \"${exts[@]}\"; do\n if (( ${#find_name_clause[@]} )); then\n find_name_clause+=( -or )\n fi\n find_name_clause+=( -name \"*.$ext\" )\ndone\n\nignore_db=(\n f:CMakeCache.txt\n D:CMakeFiles\n D:CMakeScripts\n f:Makefile\n f:cmake_install.cmake\n f:install_manifest.txt\n f:CTestTestfile.cmake\n D:build\n)\ncheck_against_ignore_db() {\n local entry\n local entry_basename\n for entry in \"${ignore_db[@]}\"; do\n entry_basename=${entry#?:}\n case \"$entry\" in\n f:*)\n if [[ $1 == */\"$entry_basename\" ]]; then\n return 1\n fi\n ;;\n D:*)\n if [[ $1 == */\"$entry_basename\"/* ]]; then\n return 1\n fi\n ;;\n *)\n say \"FATAL: ignore_db contains invalid entry '$entry'.\";\n exit 1\n ;;\n esac\n done\n return 0\n}\n\npaths=()\nwhile IFS= read -r path; do\n if ! check_against_ignore_db \"$path\"; then\n continue\n fi\n paths+=( \"$path\" )\ndone < <(find \\( \"${find_name_clause[@]}\" \\) -and -type f)\n\nif (( ! ${#paths[@]} )); then\n say 'No files found with extensions of interest.'\n say 'This means something is wrong, so exiting with non-zero code.'\n exit 1\nfi\n\nprintf '%s\\n' \"${paths[@]}\" | xargs -d $'\\n' ./check_final_newline.py\n\nok=1\nfor path in \"${paths[@]}\"; do\n if grep -E -H -n '\\s$' -- \"$path\"; then\n ok=0\n fi\ndone\nif (( !ok )); then\n say 'Some files have lines with trailing whitespace; see above.'\n exit 1\nfi\n\nsay \"Checked ${#paths[@]} file(s), everything is OK.\"\n\nexit 0\n"
},
{
"path": "contrib/luastatus-9999.ebuild",
"content": "# Copyright 1999-2023 Gentoo Authors\n# Distributed under the terms of the GNU General Public License v2\n\nEAPI=8\nCMAKE_IN_SOURCE_BUILD=1\ninherit cmake\n\nDESCRIPTION=\"Universal status bar content generator\"\nHOMEPAGE=\"https://github.com/shdown/luastatus\"\n\nif [[ ${PV} == *9999* ]]; then\n\tinherit git-r3\n\tSRC_URI=\"\"\n\tEGIT_REPO_URI=\"https://github.com/shdown/${PN}.git\"\n\tKEYWORDS=\"~amd64 ~x86\"\nelse\n\tSRC_URI=\"https://github.com/shdown/${PN}/archive/v${PV}.tar.gz -> ${P}.tar.gz\"\n\tKEYWORDS=\"amd64 x86\"\nfi\n\nBARLIBS=\"\n\t${PN}_barlibs_dwm\n\t${PN}_barlibs_i3\n\t${PN}_barlibs_lemonbar\n\t${PN}_barlibs_stdout\n\"\n\nPROPER_PLUGINS=\"\n\t+${PN}_plugins_alsa\n\t+${PN}_plugins_dbus\n\t+${PN}_plugins_fs\n\t+${PN}_plugins_inotify\n\t+${PN}_plugins_mpd\n\t+${PN}_plugins_network-linux\n\t+${PN}_plugins_pulse\n\t+${PN}_plugins_timer\n\t+${PN}_plugins_udev\n\t+${PN}_plugins_unixsock\n\t+${PN}_plugins_xkb\n\t+${PN}_plugins_xtitle\n\"\n\nDERIVED_PLUGINS=\"\n\t+${PN}_plugins_backlight-linux\n\t+${PN}_plugins_battery-linux\n\t+${PN}_plugins_cpu-usage-linux\n\t+${PN}_plugins_file-contents-linux\n\t+${PN}_plugins_imap\n\t+${PN}_plugins_mem-usage-linux\n\t+${PN}_plugins_pipe\n\"\n\nPLUGINS=\"\n\t${PROPER_PLUGINS}\n\t${DERIVED_PLUGINS}\n\"\n\nLICENSE=\"LGPL-3+\"\nSLOT=\"0\"\nIUSE=\"doc examples luajit ${BARLIBS} ${PLUGINS}\"\nREQUIRED_USE=\"\n\t${PN}_plugins_backlight-linux? ( ${PN}_plugins_udev )\n\t${PN}_plugins_battery-linux? ( ${PN}_plugins_udev )\n\t${PN}_plugins_cpu-usage-linux? ( ${PN}_plugins_timer )\n\t${PN}_plugins_file-contents-linux? ( ${PN}_plugins_inotify )\n\t${PN}_plugins_imap? ( ${PN}_plugins_timer )\n\t${PN}_plugins_mem-usage-linux? ( ${PN}_plugins_timer )\n\t${PN}_plugins_pipe? ( ${PN}_plugins_timer )\n\"\n\nDEPEND=\"\n\tdoc? ( dev-python/docutils )\n\"\nRDEPEND=\"\n\tluajit? ( dev-lang/luajit:2 )\n\t!luajit? ( dev-lang/lua )\n\t${PN}_barlibs_dwm? ( x11-libs/libxcb )\n\t${PN}_barlibs_i3? ( >=dev-libs/yajl-2.0.4 )\n\t${PN}_plugins_alsa? ( media-libs/alsa-lib )\n\t${PN}_plugins_dbus? ( dev-libs/glib )\n\t${PN}_plugins_network-linux? ( sys-kernel/linux-headers dev-libs/libnl )\n\t${PN}_plugins_pulse? ( media-sound/pulseaudio )\n\t${PN}_plugins_udev? ( virtual/libudev )\n\t${PN}_plugins_xkb? ( x11-libs/libX11 )\n\t${PN}_plugins_xtitle? ( x11-libs/libxcb x11-libs/xcb-util-wm x11-libs/xcb-util )\n\"\n\nsrc_configure() {\n\tlocal mycmakeargs=(\n\t\t$(use luajit && echo -DWITH_LUA_LIBRARY=luajit)\n\t\t-DBUILD_DOCS=$(usex doc)\n\t\t-DBUILD_BARLIB_DWM=$(usex ${PN}_barlibs_dwm)\n\t\t-DBUILD_BARLIB_I3=$(usex ${PN}_barlibs_i3)\n\t\t-DBUILD_BARLIB_LEMONBAR=$(usex ${PN}_barlibs_lemonbar)\n\t\t-DBUILD_BARLIB_STDOUT=$(usex ${PN}_barlibs_stdout)\n\t\t-DBUILD_PLUGIN_ALSA=$(usex ${PN}_plugins_alsa)\n\t\t-DBUILD_PLUGIN_BACKLIGHT_LINUX=$(usex ${PN}_plugins_backlight-linux)\n\t\t-DBUILD_PLUGIN_BATTERY_LINUX=$(usex ${PN}_plugins_battery-linux)\n\t\t-DBUILD_PLUGIN_CPU_USAGE_LINUX=$(usex ${PN}_plugins_cpu-usage-linux)\n\t\t-DBUILD_PLUGIN_DBUS=$(usex ${PN}_plugins_dbus)\n\t\t-DBUILD_PLUGIN_FILE_CONTENTS_LINUX=$(usex ${PN}_plugins_file-contents-linux)\n\t\t-DBUILD_PLUGIN_FS=$(usex ${PN}_plugins_fs)\n\t\t-DBUILD_PLUGIN_IMAP=$(usex ${PN}_plugins_imap)\n\t\t-DBUILD_PLUGIN_INOTIFY=$(usex ${PN}_plugins_inotify)\n\t\t-DBUILD_PLUGIN_MEM_USAGE_LINUX=$(usex ${PN}_plugins_mem-usage-linux)\n\t\t-DBUILD_PLUGIN_MPD=$(usex ${PN}_plugins_mpd)\n\t\t-DBUILD_PLUGIN_NETWORK_LINUX=$(usex ${PN}_plugins_network-linux)\n\t\t-DBUILD_PLUGIN_PIPE=$(usex ${PN}_plugins_pipe)\n\t\t-DBUILD_PLUGIN_PULSE=$(usex ${PN}_plugins_pulse)\n\t\t-DBUILD_PLUGIN_TIMER=$(usex ${PN}_plugins_timer)\n\t\t-DBUILD_PLUGIN_UDEV=$(usex ${PN}_plugins_udev)\n\t\t-DBUILD_PLUGIN_UNIXSOCK=$(usex ${PN}_plugins_unixsock)\n\t\t-DBUILD_PLUGIN_XKB=$(usex ${PN}_plugins_xkb)\n\t\t-DBUILD_PLUGIN_XTITLE=$(usex ${PN}_plugins_xtitle)\n\t)\n\tcmake_src_configure\n}\n\nsrc_install() {\n\tcmake_src_install\n\tlocal i\n\tif use examples; then\n\t\tdodir /usr/share/doc/${PF}/examples\n\t\tdocinto examples\n\t\tfor i in ${BARLIBS//+/}; do\n\t\t\tif use ${i}; then\n\t\t\t\tbarlib=${i#${PN}_barlibs_}\n\t\t\t\tdodoc -r examples/${barlib}\n\t\t\t\tdocompress -x /usr/share/doc/${PF}/examples/${barlib}\n\t\t\tfi\n\t\tdone\n\tfi\n}\n"
},
{
"path": "contrib/luastatus.spec",
"content": "Name: luastatus\nVersion: 0.3.0\nRelease: 1%{?dist}\nSummary: universal statusbar content generator\n\nLicense: LGPL3+\nURL: https://github.com/shdown/luastatus\nSource0: https://github.com/shdown/luastatus/archive/v%version.tar.gz\n\nBuildRequires: cmake\nBuildRequires: luajit-devel\nBuildRequires: libxcb-devel\nBuildRequires: yajl-devel\nBuildRequires: alsa-lib-devel\nBuildRequires: xcb-util-wm-devel\nBuildRequires: xcb-util-devel\nBuildRequires: glib2-devel\n\n%description\na universal status bar content generator\n\n%package plugins\nSummary: luastatus plugins\nRequires: %{name} = %{version}-%{release}\n\n%description plugins\nluastatus plugins\n\n%prep\n%setup -q\n\n%build\n%cmake -DWITH_LUA_LIBRARY=luajit .\n\n%make_build\n\n%install\n%make_install\n\n%files\n%doc COPYING.txt COPYING.LESSER.txt README.md\n%{_bindir}/luastatus\n%{_bindir}/luastatus-i3-wrapper\n%{_bindir}/luastatus-lemonbar-launcher\n%{_mandir}/man1/luastatus.1*\n%{_libdir}/luastatus/barlibs/*\n\n%files plugins\n%{_libdir}/luastatus/plugins/*\n\n%changelog\n\n"
},
{
"path": "debian/changelog",
"content": "luastatus (1:9999) UNRELEASED; urgency=medium\n\n * local build\n\n -- Local User Sat, 08 Feb 2014 01:01:01 -0800\n"
},
{
"path": "debian/compat",
"content": "10\n"
},
{
"path": "debian/control",
"content": "Source: luastatus\nSection: misc\nPriority: optional\nMaintainer: Viktor Krapivensky \nStandards-Version: 4.5.0\nBuild-Depends:\n cmake (>= 3.1.3),\n debhelper (>= 10),\n valgrind,\n jq,\n liblua5.3-dev,\n pkg-config,\n python3-docutils,\n libyajl-dev,\n libasound2-dev,\n libglib2.0-dev,\n libpulse-dev,\n libudev-dev,\n linux-libc-dev,\n libnl-3-dev,\n libnl-genl-3-dev,\n libx11-dev,\n libxcb1-dev,\n libxcb-ewmh-dev,\n libxcb-icccm4-dev,\n libxcb-util0-dev\nHomepage: https://github.com/shdown/luastatus\nRules-Requires-Root: no\n\nPackage: luastatus\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}\nRecommends:\nSuggests:\nDescription: Universal status bar content generator\n luastatus is a universal status bar content generator. It allows the user to\n configure the way the data from event sources is processed and shown, with\n Lua. Its main feature is that the content can be updated immediately as some\n event occurs.\n .\n This package contains the main binary and the following plugins: timer, fs,\n inotify, udev, backlight-linux, battery-linux, cpu-usage-linux,\n file-contents-linux, mem-usage-linux, pipe.\n\nPackage: luastatus-barlib-i3\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests: i3-wm\nDescription: i3 barlib for luastatus\n This package contains the i3 barlib for luastatus. This barlib talks to i3bar\n (part of the i3 window manager), or any other program compatible with it on\n the protocol level. This package also provides luastatus-i3-wrapper script.\n .\n For more information, see \"man 7 luastatus-barlib-i3\".\n\nPackage: luastatus-barlib-dwm\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests: dwm\nDescription: dwm barlib for luastatus\n This package contains the dwm barlib for luastatus. It updates the name of\n the root window. Although named dwm, it can really work with any program that\n outputs the root window name somewhere.\n .\n For more information, see \"man 7 luastatus-barlib-dwm\".\n\nPackage: luastatus-barlib-lemonbar\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests: lemonbar\nDescription: lemonbar barlib for luastatus\n This package contains the lemonbar barlib for luastatus. The package also\n provides luastatus-lemonbar-launcher script.\n .\n For more information, see \"man 7 luastatus-barlib-lemonbar\".\n\nPackage: luastatus-barlib-stdout\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests: dzen2 | xmobar | yabar | dvtm\nDescription: stdout barlib for luastatus\n This is stdout barlib for luastatus. It simply outputs lines to given file\n descriptor. It can be used with, for example, dzen2, xmobar, yabar, dvtm.\n This package also provides luastatus-stdout-wrapper script.\n .\n For more information, see \"man 7 luastatus-barlib-stdout\".\n\nPackage: luastatus-plugin-alsa\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests:\nDescription: ALSA plugin for luastatus\n This package contains the ALSA plugin for luastatus. It monitors volume and\n mute state of an ALSA channel.\n .\n For more information, see \"man 7 luastatus-plugin-alsa\".\n\nPackage: luastatus-plugin-dbus\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests:\nDescription: D-Bus plugin for luastatus\n This package contains the D-Bus plugin for luastatus. It subscribes to and\n reports D-Bus signals.\n .\n For more information, see \"man 7 luastatus-plugin-dbus\".\n\nPackage: luastatus-plugin-mpd\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests: mpd\nDescription: MPD plugin for luastatus\n This package contains the MPD plugin for luastatus. It monitors the state of\n an MPD server.\n .\n For more information, see \"man 7 luastatus-plugin-mpd\".\n\nPackage: luastatus-plugin-network-linux\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests:\nDescription: network-linux plugin for luastatus\n This package contains the network-linux plugin for luastatus. It monitors\n network routing and link updates, and can report IP addresses used for\n outgoing connections by various network interfaces, information about a\n wireless connection, and speed of an ethernet connection.\n .\n For more information, see \"man 7 luastatus-plugin-network-linux\".\n\nPackage: luastatus-plugin-pulse\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests: pulseaudio\nDescription: PulseAudio plugin for luastatus\n This package contains the PulseAudio plugin for luastatus. It monitors the\n volume and mute status of a PulseAudio sink.\n .\n For more information, see \"man 7 luastatus-plugin-pulse\".\n\nPackage: luastatus-plugin-xkb\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests:\nDescription: XKB plugin for luastatus\n This package contains the XKB plugin for luastatus. It monitors the current\n keyboard layout, and, optionally, the state of LED indicators, such as\n Caps Lock and Num Lock.\n .\n For more information, see \"man 7 luastatus-plugin-xkb\".\n\nPackage: luastatus-plugin-xtitle\nArchitecture: any\nDepends: ${shlibs:Depends}, ${misc:Depends}, luastatus\nRecommends:\nSuggests:\nDescription: xtitle plugin for luastatus\n This package conntains the xtitle plugin for luastatus. It monitors the\n active window title.\n .\n For more information, see \"man 7 luastatus-plugin-xtitle\".\n\nPackage: luastatus-plugin-imap\nArchitecture: all\nDepends: ${misc:Depends}, luastatus,\n lua5.3-socket,\n lua5.3-sec\nRecommends:\nSuggests:\nDescription: IMAP plugin for luastatus\n This package contains the IMAP plugin for luastatus. It monitors the number\n of unread mails in an IMAP mailbox.\n .\n For more information, see \"man 7 luastatus-plugin-imap\".\n"
},
{
"path": "debian/copyright",
"content": "Format: https://www.debian.org/doc/packaging-manuals/copyright-format/1.0/\nUpstream-Name: luastatus\nUpstream-Contact: Viktor Krapivensky \nSource: https://github.com/shdown/luastatus\n\nFiles: *\nCopyright: 2015-2021, luastatus developers\nLicense: LGPL-3.0+\n\nLicense: LGPL-3.0+\n This program is free software: you can redistribute it and/or modify\n it under the terms of the GNU Lesser General Public License as published by\n the Free Software Foundation, either version 3 of the License, or\n (at your option) any later version.\n .\n This program is distributed in the hope that it will be useful,\n but WITHOUT ANY WARRANTY; without even the implied warranty of\n MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n GNU Lesser General Public License for more details.\n .\n You should have received a copy of the GNU Lesser General Public License\n along with this package. If not, see .\n .\n On Debian systems, the full text of the GNU Lesser General Public License\n version 3 can be found in the file `/usr/share/common-licenses/LGPL-3'.\n"
},
{
"path": "debian/rules",
"content": "#! /usr/bin/make -f\n\nexport V:=1\nexport DEB_BUILD_MAINT_OPTIONS:=hardening=+all\n\nBUILD_DIR := _deb_build\n\noverride_dh_auto_clean:\n\trm -rf $(BUILD_DIR)\n\noverride_dh_installexamples:\n\tdh_installexamples examples/*\n\noverride_dh_installchangelogs:\n\tset -e; if [ -e RELEASE_NOTES ]; then \\\n\t\tdh_installchangelogs RELEASE_NOTES; \\\n\telse \\\n\t\tdh_installchangelogs; \\\n\tfi\n\noverride_dh_auto_configure:\n\tset -e; mkdir $(BUILD_DIR); cd $(BUILD_DIR); cmake \\\n\t\t-DCMAKE_INSTALL_PREFIX=/usr \\\n\t\t-DWITH_LUA_LIBRARY=lua5.3 \\\n\t\t-DBUILD_PLUGIN_PULSE=on \\\n\t\t-DBUILD_PLUGIN_UNIXSOCK=on \\\n\t\t-DBUILD_TESTS=on \\\n\t\t-S .. -B .\n\noverride_dh_auto_build:\n\t$(MAKE) -C $(BUILD_DIR)\n\noverride_dh_auto_install:\n\t# luastatus itself\n\t$(MAKE) -C $(BUILD_DIR)/luastatus install \\\n\t\tDESTDIR=../../debian/luastatus\n\t# barlibs\n\tset -e; for x in dwm i3 lemonbar stdout; do \\\n\t\t$(MAKE) -C $(BUILD_DIR)/barlibs/$$x install \\\n\t\t\tDESTDIR=../../../debian/luastatus-barlib-$$x; \\\n\tdone\n\t# \"core\" plugins (that should go into luastatus pkg)\n\tset -e; for x in \\\n\t\tfs timer inotify udev \\\n\t\tbacklight-linux \\\n\t\tbattery-linux \\\n\t\tcpu-usage-linux \\\n\t\tfile-contents-linux \\\n\t\tmem-usage-linux \\\n\t\tpipe \\\n\t\tunixsock; \\\n\tdo \\\n\t\t$(MAKE) -C $(BUILD_DIR)/plugins/$$x install \\\n\t\t\tDESTDIR=../../../debian/luastatus; \\\n\tdone\n\t# other plugins\n\tset -e; for x in \\\n\t\talsa dbus inotify mpd network-linux pulse xkb xtitle \\\n\t\timap; \\\n\tdo \\\n\t\t$(MAKE) -C $(BUILD_DIR)/plugins/$$x install \\\n\t\t\tDESTDIR=../../../debian/luastatus-plugin-$$x; \\\n\tdone\n\t# man page symlink: luastatus-i3-wrapper(1) -> luastatus-barlib-i3(7)\n\tmkdir debian/luastatus-barlib-i3/usr/share/man/man1\n\tln -s ../man7/luastatus-barlib-i3.7 \\\n\t\tdebian/luastatus-barlib-i3/usr/share/man/man1/luastatus-i3-wrapper.1\n\t# man page symlink: luastatus-lemonbar-launcher(1) -> luastatus-barlib-lemonbar(7)\n\tmkdir debian/luastatus-barlib-lemonbar/usr/share/man/man1\n\tln -s ../man7/luastatus-barlib-lemonbar.7 \\\n\t\tdebian/luastatus-barlib-lemonbar/usr/share/man/man1/luastatus-lemonbar-launcher.1\n\t# man page symlink: luastatus-stdout-wrapper(1) -> luastatus-barlib-stdout(7)\n\tmkdir debian/luastatus-barlib-stdout/usr/share/man/man1\n\tln -s ../man7/luastatus-barlib-stdout.7 \\\n\t\tdebian/luastatus-barlib-stdout/usr/share/man/man1/luastatus-stdout-wrapper.1\n\noverride_dh_auto_test:\nifeq (,$(filter nocheck,$(DEB_BUILD_OPTIONS)))\n\t./tests/pt.sh $(BUILD_DIR) skip:plugin-dbus skip:plugin-pulse\n\t./tests/torture.sh $(BUILD_DIR)\nendif\n\n%:\n\texec dh $@\n"
},
{
"path": "examples/dwm/alsa-gauge.lua",
"content": "local GAUGE_NCHARS = 10\n\nlocal function mk_gauge(level, full, empty)\n local nfull = math.floor(level * GAUGE_NCHARS + 0.5)\n return full:rep(nfull) .. empty:rep(GAUGE_NCHARS - nfull)\nend\n\nwidget = {\n plugin = 'alsa',\n cb = function(t)\n local level = (t.vol.cur - t.vol.min) / (t.vol.max - t.vol.min)\n if t.mute then\n return mk_gauge(level, '×', '—')\n else\n return mk_gauge(level, '●', '○')\n end\n end,\n}\n"
},
{
"path": "examples/dwm/alsa.lua",
"content": "widget = {\n plugin = 'alsa',\n cb = function(t)\n if t.mute then\n return '[mute]'\n else\n local percent = (t.vol.cur - t.vol.min) / (t.vol.max - t.vol.min) * 100\n return string.format('[%3d%%]', math.floor(0.5 + percent))\n end\n end,\n}\n"
},
{
"path": "examples/dwm/backlight.lua",
"content": "-- Note that this widget only shows backlight level when it changes.\nwidget = luastatus.require_plugin('backlight-linux').widget{\n cb = function(level)\n if level ~= nil then\n return string.format('*%3.0f%%', level * 100)\n end\n end,\n}\n"
},
{
"path": "examples/dwm/battery.lua",
"content": "widget = luastatus.require_plugin('battery-linux').widget{\n period = 2,\n cb = function(t)\n local symbol = ({\n Charging = '↑',\n Discharging = '↓',\n })[t.status] or ' '\n local rem_seg\n if t.rem_time then\n local h = math.floor(t.rem_time)\n local m = math.floor(60 * (t.rem_time - h))\n rem_seg = string.format('%2dh %02dm', h, m)\n end\n return {\n string.format('%3d%%%s', t.capacity, symbol),\n rem_seg,\n }\n end,\n}\n"
},
{
"path": "examples/dwm/bluetooth.lua",
"content": "-- A widget to display currently connected and paired bluetooth devices.\n-- To change output format modify reprint_devices function.\n\nif not luastatus.execute('command -v bluetoothctl >/dev/null') then\n error('\"bluetoothctl\" command, which is required for this widget to work, was not found')\nend\n\nlocal separator = \" \"\n\n-- Object paths look like /org/bluez/hci0/dev_XX_XX_XX_XX_XX_XX/somethingsomething\nlocal function get_device_mac_address(device_object_path)\n return device_object_path:gsub(\"/.*/dev_\", \"\"):gsub(\"/.*\", \"\"):gsub(\"_\", \":\")\nend\n\n-- For reference bluetoothctl devices output looks like that:\n-- Device XX:XX:XX:XX:XX:XX JBL T450BT\n-- Device YY:YY:YY:YY:YY:YY Redmi 8\n--\n-- Function returns mac addresses of all devices.\nlocal function get_devices()\n local devices = {}\n local handle = io.popen(string.format(\"bluetoothctl devices\"))\n for line in handle:lines() do\n local match = string.match(line, \"Device ([%x:]+)\")\n if match then\n table.insert(devices, math)\n end\n end\n handle:close()\n return devices\nend\n\n-- For reference bluetoothctl info output looks like that:\n-- Device XX:XX:XX:XX:XX:XX (public)\n-- Name: JBL T450BT\n-- Alias: JBL T450BT\n-- Class: 0xFFFFFFFF\n-- Icon: audio-card\n-- Paired: yes\n-- Trusted: yes\n-- Blocked: no\n-- Connected: yes\n-- LegacyPairing: no\n-- UUID: Headset (xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx)\n-- ...\n-- UUID: Handsfree (xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx)\n--\n-- Given this input function returns a following table:\n-- [alias] string JBL T450BT\n-- [blocked] boolean false\n-- [class] string 0x00240404\n-- [connected] boolean true\n-- [icon] string audio\n-- [legacypairing] boolean false\n-- [name] string JBL T450BT\n-- [paired] boolean true\n-- [trusted] boolean true\nlocal function get_device_info(mac_address)\n if mac_address == nil then\n mac_address = \"\"\n end\n\n assert(string.match(mac_address, '^[%x:]*$') ~= nil)\n\n local device_info = {}\n local handle = io.popen(string.format(\"bluetoothctl info %s\", mac_address))\n for line in handle:lines() do\n local key, value = string.match(line, \"(%w+): (.*)\")\n -- Filter junk\n if key ~= \"UUID\" and key ~= nil and value ~= nil then\n key = string.lower(key)\n if key ~= \"name\" and key ~= \"alias\" and key ~= \"icon\" then\n if value == \"yes\" then\n value = true\n end\n if value == \"no\" then\n value = false\n end\n end\n device_info[key] = value\n end\n end\n handle:close()\n return device_info\nend\n\nlocal devices = {}\n\nlocal function reprint_devices()\n local t = {}\n for mac_address, device in pairs(devices) do\n table.insert(t, string.format(\"%s(%s)\", device[\"name\"], mac_address))\n end\n return table.concat(t, separator)\nend\n\nwidget = {\n plugin = \"dbus\",\n opts = {\n greet = true,\n -- https://git.kernel.org/pub/scm/bluetooth/bluez.git/tree/doc/device-api.txt\n signals = {\n {\n sender = \"org.bluez\",\n interface = \"org.freedesktop.DBus.Properties\",\n signal = \"PropertiesChanged\",\n arg0 = \"org.bluez.Device1\",\n bus = \"system\"\n }\n }\n },\n cb = function(t)\n if t.what == \"hello\" then\n local mac_addresses = get_devices()\n for _, mac_address in ipairs(mac_addresses) do\n local device = get_device_info(mac_address)\n if device[\"connected\"] and device[\"paired\"] then\n devices[mac_address] = device\n end\n end\n elseif t.what == \"signal\" then\n -- For reference message from dbus looks like that:\n -- table\n -- [1] string org.bluez.Device1\n -- [2] table\n -- [2] [1] table\n -- [2] [1] [1] string SomethingSomething\n -- [2] [1] [2] boolean false\n -- [2] [2] table\n -- [2] [2] [1] string Connected\n -- [2] [2] [2] boolean true\n -- [3] table\n if t.signal == \"PropertiesChanged\" then\n for _, message in pairs(t.parameters[2]) do\n if message[1] == \"Connected\" or message[1] == \"Paired\" then\n local mac_address = get_device_mac_address(t.object_path)\n if message[2] then\n local device = get_device_info(mac_address)\n if device[\"paired\"] then\n devices[mac_address] = device\n end\n else\n devices[mac_address] = nil\n end\n end\n end\n end\n end\n return reprint_devices()\n end\n}\n"
},
{
"path": "examples/dwm/btc-price.lua",
"content": "-- Bitcoin price widget.\n-- Updates on click and every 5 minutes.\n\nlocal custom_sleep_amt = nil\n\nlocal function check_error(t)\n if t.error then\n -- Low-level libcurl error\n return t.error\n end\n if t.status < 200 or t.status > 299 then\n -- Bad HTTP status\n return string.format('HTTP status %d', t.status)\n end\n -- Everything's OK\n return nil\nend\n\nwidget = {\n plugin = 'web',\n opts = {\n planner = function()\n while true do\n coroutine.yield({action = 'request', params = {\n url = 'https://api.binance.com/api/v3/ticker/price?symbol=BTCUSDT',\n timeout = 5,\n }})\n local period = custom_sleep_amt or (5 * 60)\n custom_sleep_amt = nil\n coroutine.yield({action = 'sleep', period = period})\n end\n end,\n make_self_pipe = true,\n },\n cb = function(t)\n local text\n local err_msg = check_error(t)\n if err_msg then\n print(string.format('WARNING: luastatus: btc-price widget: %s'), err_msg)\n text = '......'\n custom_sleep_amt = 5\n else\n local obj = assert(luastatus.plugin.json_decode(t.body))\n text = obj.price:match('[^.]+')\n end\n return string.format('[$%s]', text)\n end,\n event = function(t)\n if t.button == 1 then\n luastatus.plugin.wake_up()\n end\n end,\n}\n"
},
{
"path": "examples/dwm/cpu-freq.lua",
"content": "local VBLOCKS = {'▂', '▃', '▄', '▅', '▆', '▇', '█'}\n\nlocal function make_chunk(entry)\n local num = entry.cur - entry.min\n local denom = entry.max - entry.min\n\n local ratio\n if denom ~= 0 then\n ratio = num / denom\n else\n -- If max_freq == min_freq, set ratio to zero.\n ratio = 0\n end\n\n local vblock_idx = math.min(\n 1 + math.floor(0.5 + ratio * #VBLOCKS),\n #VBLOCKS)\n\n return VBLOCKS[vblock_idx]\nend\n\nlocal plugin_data = {}\n\nlocal plugin_params = {\n timer_opts = {\n period = 2,\n },\n cb = function(t)\n if t == nil then\n return nil\n end\n local r = {}\n for _, entry in ipairs(t) do\n r[#r + 1] = make_chunk(entry)\n end\n return table.concat(r)\n end,\n event = function(t)\n if t.button == 1 then\n plugin_data.please_reload = true\n end\n end,\n}\n\nwidget = luastatus.require_plugin('cpu-freq-linux').widget(plugin_params, plugin_data)\n"
},
{
"path": "examples/dwm/cpu-temperature.lua",
"content": "local plugin_data = {}\n\nlocal plugin_params = {\n timer_opts = {\n period = 2,\n },\n cb = function(t)\n if not t then\n return nil\n end\n local r = {}\n for _, entry in ipairs(t) do\n r[#r + 1] = string.format('%.0f°', entry.value)\n end\n return r\n end,\n event = function(t)\n if t.button == 1 then\n plugin_data.please_reload = true\n end\n end,\n}\n\nwidget = luastatus.require_plugin('cpu-temp-linux').widget(plugin_params, plugin_data)\n"
},
{
"path": "examples/dwm/cpu-usage.lua",
"content": "widget = luastatus.require_plugin('cpu-usage-linux').widget{\n cb = function(usage)\n if usage ~= nil then\n return string.format('[%5.1f%%]', usage * 100)\n end\n end,\n}\n"
},
{
"path": "examples/dwm/disk-io.lua",
"content": "widget = luastatus.require_plugin('disk-io-linux').widget{\n period = 2,\n cb = function(t)\n -- Sort by name for determinism\n table.sort(t, function(a, b) return a.name < b.name end)\n\n local segments = {}\n for _, entry in ipairs(t) do\n local R = entry.read_bytes\n local W = entry.written_bytes\n if (R >= 0) and (W >= 0) then\n segments[#segments + 1] = string.format(\n '%s: %.0fk↓ %.0fk↑',\n entry.name,\n R / 1024,\n W / 1024\n )\n end\n end\n return segments\n end,\n}\n"
},
{
"path": "examples/dwm/file-contents.lua",
"content": "widget = luastatus.require_plugin('file-contents-linux').widget{\n filename = os.getenv('HOME') .. '/status',\n cb = function(f)\n -- show the first line of the file\n return f:read('*line')\n end,\n}\n"
},
{
"path": "examples/dwm/fs.lua",
"content": "local function sorted_keys(tbl)\n local keys = {}\n for k, _ in pairs(tbl) do\n keys[#keys + 1] = k\n end\n table.sort(keys)\n return keys\nend\n\nwidget = {\n plugin = 'fs',\n opts = {\n paths = {'/', '/home'},\n },\n cb = function(t)\n -- Sort for determinism\n local keys = sorted_keys(t)\n local res = {}\n for _, k in ipairs(keys) do\n local v = t[k]\n table.insert(res, string.format('%s %.0f%%', k,\n (1 - v.avail / v.total) * 100))\n end\n return res\n end,\n}\n"
},
{
"path": "examples/dwm/gmail.lua",
"content": "--[[\n-- Expects 'credentials.lua' to be present in the current directory; it may contain, e.g.,\n-- return {\n-- gmail = {\n-- login = 'john.smith',\n-- password = 'qwerty'\n-- }\n-- }\n--]]\nlocal credentials = require 'credentials'\n\nwidget = luastatus.require_plugin('imap').widget{\n verbose = false,\n host = 'imap.gmail.com',\n port = 993,\n mailbox = 'Inbox',\n use_ssl = true,\n timeout = 2 * 60,\n handshake_timeout = 10,\n login = credentials.gmail.login,\n password = credentials.gmail.password,\n error_sleep_period = 60,\n cb = function(unseen)\n if unseen == nil or unseen == 0 then\n return nil\n else\n return string.format('[%d unseen]', unseen)\n end\n end,\n}\n"
},
{
"path": "examples/dwm/ip.lua",
"content": "widget = {\n plugin = 'network-linux',\n cb = function(t)\n local r = {}\n for iface, params in pairs(t) do\n local iface_clean = iface\n local addr = params.ipv6 or params.ipv4\n if addr then\n -- strip out \"label\" from the interface name\n iface_clean = iface_clean:gsub(':.*', '')\n -- strip out \"zone index\" from the address\n addr = addr:gsub('%%.*', '')\n\n if iface_clean ~= 'lo' then\n r[#r + 1] = string.format('[%s: %s]', iface_clean, addr)\n end\n end\n end\n return r\n end,\n}\n"
},
{
"path": "examples/dwm/loadavg-linux.lua",
"content": "local function get_ncpus()\n local f = assert(io.open('/proc/cpuinfo', 'r'))\n local n = 0\n for line in f:lines() do\n if line:match('^processor\\t') then\n n = n + 1\n end\n end\n f:close()\n return n\nend\n\nlocal function avg2str(x)\n assert(x >= 0)\n if x >= 1000 then\n return '↑↑↑'\n end\n return string.format('%3.0f', x)\nend\n\nwidget = {\n plugin = 'timer',\n opts = {\n period = 2,\n },\n cb = function(_)\n local f = io.open('/proc/loadavg', 'r')\n local avg1, avg5, avg15 = f:read('*number', '*number', '*number')\n f:close()\n\n assert(avg1 and avg5 and avg15)\n\n local ncpus = get_ncpus()\n\n return string.format(\n '[%s%% %s%% %s%%]',\n avg2str(avg1 / ncpus * 100),\n avg2str(avg5 / ncpus * 100),\n avg2str(avg15 / ncpus * 100)\n )\n end,\n}\n"
},
{
"path": "examples/dwm/media-player-mpris.lua",
"content": "local PLAYER = 'clementine'\n\nlocal PLAYBACK_STATUS_ICONS = {\n Playing = '▶',\n Paused = '◆',\n Stopped = '—',\n}\n\nlocal function fetch_metadata_field(t, key)\n if t.Metadata then\n return t.Metadata[key]\n else\n return nil\n end\nend\n\nwidget = luastatus.require_plugin('mpris').widget{\n player = PLAYER,\n cb = function(t)\n if not t.PlaybackStatus then\n return nil\n end\n\n local title = fetch_metadata_field(t, 'xesam:title')\n title = title or ''\n\n title = luastatus.libwidechar.make_valid_and_printable(title, '?')\n title = luastatus.libwidechar.truncate_to_width(title, 40)\n title = title or ''\n\n local icon = PLAYBACK_STATUS_ICONS[t.PlaybackStatus] or '?'\n\n local result = icon\n if title ~= '' then\n result = result .. ' ' .. title\n end\n return result\n end,\n}\n"
},
{
"path": "examples/dwm/mem-usage.lua",
"content": "widget = luastatus.require_plugin('mem-usage-linux').widget{\n timer_opts = {period = 2},\n cb = function(t)\n local used_kb = t.total.value - t.avail.value\n return string.format('[%3.2f GiB]', used_kb / 1024 / 1024)\n end,\n}\n"
},
{
"path": "examples/dwm/mpd.lua",
"content": "local titlewidth = 40\n\nwidget = {\n plugin = 'mpd',\n cb = function(t)\n if t.what == 'update' then\n local title\n if t.song.Title then\n title = t.song.Title\n if t.song.Artist then\n title = t.song.Artist .. ': ' .. title\n end\n else\n title = t.song.file or ''\n end\n\n title = luastatus.libwidechar.make_valid(title, '?')\n\n if assert(luastatus.libwidechar.width(title)) > titlewidth then\n title = luastatus.libwidechar.truncate_to_width(title, titlewidth - 1) .. '…'\n end\n\n return string.format('%s %s',\n ({play = '▶', pause = '‖', stop = '■'})[t.status.state],\n title\n )\n else\n -- 'connecting' or 'error'\n return t.what\n end\n end\n}\n"
},
{
"path": "examples/dwm/network-rate.lua",
"content": "local function make_segment(iface, R, S)\n return string.format('[%s %.0fk↓ %.0fk↑]', iface, R / 1000, S / 1000)\nend\n\nwidget = luastatus.require_plugin('network-rate-linux').widget{\n iface_except = 'lo',\n period = 3,\n in_array_form = true,\n cb = function(t)\n local r = {}\n for _, PQ in ipairs(t) do\n local iface = PQ[1]\n local R, S = PQ[2].R, PQ[2].S\n r[#r + 1] = make_segment(iface, R, S)\n end\n return r\n end,\n}\n"
},
{
"path": "examples/dwm/pulse-gauge.lua",
"content": "local GAUGE_NCHARS = 10\n\nlocal function mk_gauge(level, full, empty)\n local nfull = math.floor(level * GAUGE_NCHARS + 0.5)\n return full:rep(nfull) .. empty:rep(GAUGE_NCHARS - nfull)\nend\n\nwidget = {\n plugin = 'pulse',\n cb = function(t)\n local level = t.cur / t.norm\n if t.mute then\n return mk_gauge(level, '×', '—')\n else\n return mk_gauge(level, '●', '○')\n end\n end,\n}\n"
},
{
"path": "examples/dwm/pulse.lua",
"content": "widget = {\n plugin = 'pulse',\n cb = function(t)\n if t.mute then\n return '[mute]'\n end\n local percent = (t.cur / t.norm) * 100\n return string.format('[%3d%%]', math.floor(0.5 + percent))\n end,\n}\n"
},
{
"path": "examples/dwm/systemd-unit.lua",
"content": "local function make_output(text)\n return string.format('[Tor: %s]', text)\nend\n\nwidget = luastatus.require_plugin('systemd-unit').widget{\n unit_name = 'tor.service',\n cb = function(state)\n if state == 'active' then\n return make_output('✓')\n elseif state == 'reloading' or state == 'activating' then\n return make_output('•')\n elseif state == 'inactive' or state == 'deactivating' then\n return make_output('-')\n elseif state == 'failed' then\n return make_output('x')\n else\n return make_output('?')\n end\n end,\n}\n"
},
{
"path": "examples/dwm/time-battery-combined.lua",
"content": "local function get_bat_seg(t)\n if not t then\n return '[--×--]'\n end\n if t.status == 'Unknown' or t.status == 'Full' or t.status == 'Not charging' then\n return nil\n end\n local sym = '?'\n if t.status == 'Discharging' then\n sym = '↓'\n elseif t.status == 'Charging' then\n sym = '↑'\n end\n return string.format('[%3d%%%s]', t.capacity, sym)\nend\n\nwidget = luastatus.require_plugin('battery-linux').widget{\n period = 2,\n cb = function(t)\n return {\n os.date('[%H:%M]'),\n get_bat_seg(t),\n }\n end,\n}\n"
},
{
"path": "examples/dwm/time-date.lua",
"content": "local months = {\n 'января',\n 'февраля',\n 'марта',\n 'апреля',\n 'мая',\n 'июня',\n 'июля',\n 'августа',\n 'сентября',\n 'октября',\n 'ноября',\n 'декабря',\n}\nwidget = {\n plugin = 'timer',\n cb = function()\n local d = os.date('*t')\n return {\n string.format('%d %s', d.day, months[d.month]),\n string.format('%02d:%02d', d.hour, d.min),\n }\n end,\n}\n"
},
{
"path": "examples/dwm/tor.lua",
"content": "-- Trivial but somewhat useful widget showing if the Tor daemon is running.\n\nwidget = {\n plugin = 'timer',\n opts = {period = 5},\n cb = function()\n local f = io.open('/var/run/tor/tor.pid', 'r')\n if f then\n f:close()\n return '[TOR]'\n end\n end,\n}\n"
},
{
"path": "examples/dwm/uptime-linux.lua",
"content": "local SUFFIXES_AND_DIVISORS = {\n {'m', 60},\n {'h', 60},\n {'d', 24},\n {'W', 7},\n {'M', 30},\n {'Y', 365 / 30},\n}\n\nlocal function seconds_to_human_readable_time(sec)\n local prev_suffix = 's'\n local found_suffix\n for _, PQ in ipairs(SUFFIXES_AND_DIVISORS) do\n local suffix = PQ[1]\n local divisor = PQ[2]\n if sec < divisor then\n found_suffix = prev_suffix\n break\n end\n sec = sec / divisor\n prev_suffix = suffix\n end\n if not found_suffix then\n found_suffix = prev_suffix\n end\n return string.format('%.0f%s', sec, found_suffix)\nend\n\nwidget = {\n plugin = 'timer',\n opts = {\n period = 2,\n },\n cb = function(_)\n local f = io.open('/proc/uptime', 'r')\n local sec, _ = f:read('*number', '*number')\n f:close()\n\n assert(sec)\n\n return string.format('[uptime: %s]', seconds_to_human_readable_time(sec))\n end,\n}\n"
},
{
"path": "examples/dwm/weather-rus.lua",
"content": "local LOCATION_NAME = 'Moscow'\n\nlocal TIMEOUT = 10\n\nlocal INTERVAL = 9\nlocal SLEEP_AFTER_INITIAL = 5\n\nlocal coordinates = nil\n\nlocal function planner()\n -- Get coordinates of LOCATION_NAME.\n while true do\n -- Form the URL\n local url = string.format(\n 'https://geocoding-api.open-meteo.com/v1/search?name=%s&count=1',\n luastatus.plugin.urlencode(LOCATION_NAME)\n )\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = url,\n timeout = TIMEOUT,\n }})\n -- If successful, break\n if coordinates ~= nil then\n break\n end\n -- Failure; sleep and retry\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\n\n -- Coordinates fetched, sleep for SLEEP_AFTER_INITIAL.\n coroutine.yield({action = 'sleep', period = SLEEP_AFTER_INITIAL})\n\n -- Form the weather URL\n local weather_url = string.format(\n 'https://api.open-meteo.com/v1/forecast' ..\n '?latitude=%f' ..\n '&longitude=%f' ..\n '¤t_weather=true',\n coordinates.latitude,\n coordinates.longitude\n )\n\n -- Fetch weather, periodically\n while true do\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = weather_url,\n timeout = TIMEOUT,\n }})\n -- Sleep and repeat\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\nend\n\nlocal function check_error(t)\n if t.error then\n -- Low-level libcurl error\n return t.error\n end\n if t.status < 200 or t.status > 299 then\n -- Bad HTTP status\n return string.format('HTTP status %d', t.status)\n end\n -- Everything's OK\n return nil\nend\n\nlocal WEATHER_CODES = {\n [0] = 'Ясно',\n\n [1] = 'Преимущественно ясно',\n [2] = 'Переменная облачность',\n [3] = 'Пасмурно',\n\n [45] = 'Туман',\n [48] = 'Осаждение инея и тумана',\n\n [51] = 'Изморось, лёгкая',\n [53] = 'Изморось, умеренная',\n [55] = 'Изморось, сильная',\n\n [56] = 'Ледяная изморось, лёгкая',\n [57] = 'Ледяная изморось, сильная',\n\n [61] = 'Дождь, лёгкий',\n [63] = 'Дождь, умеренный',\n [65] = 'Дождь, сильный',\n\n [66] = 'Град, лёгкий',\n [67] = 'Град, сильный',\n\n [71] = 'Снегопад, лёгкий',\n [73] = 'Снегопад, умеренный',\n [75] = 'Снегопад, сильный',\n\n [77] = 'Крупинки снега',\n\n [80] = 'Ливень, лёгкий',\n [81] = 'Ливень, умеренный',\n [82] = 'Ливень, сильный',\n\n [85] = 'Снеговые осадки, лёгкие',\n [87] = 'Снеговые осадки, сильные',\n\n [95] = 'Гроза',\n [96] = 'Гроза, небольшой град',\n [99] = 'Гроза, сильный град',\n}\n\nlocal function fmt_weather(temp, _, _, weather_code)\n local segment1 = string.format('%.0f°', temp)\n -- segment2 is either string or nil\n local segment2 = WEATHER_CODES[weather_code]\n return {segment1, segment2}\nend\n\nwidget = {\n plugin = 'web',\n opts = {\n planner = planner,\n },\n cb = function(t)\n local err_msg = check_error(t)\n if err_msg then\n print(string.format('WARNING: luastatus: weather widget: %s'), err_msg)\n return ''\n end\n\n if coordinates == nil then\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local result = assert(obj.results[1])\n local latitude = assert(result.latitude)\n local longitude = assert(result.longitude)\n coordinates = {latitude = latitude, longitude = longitude}\n return '...'\n end\n\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local cw = assert(obj.current_weather)\n\n local temp = assert(cw.temperature)\n local wind_speed = assert(cw.windspeed)\n -- is_day is an integer, either 0 or 1\n local is_day = assert(cw.is_day) ~= 0\n local weather_code = assert(cw.weathercode)\n\n return fmt_weather(temp, wind_speed, is_day, weather_code)\n end,\n}\n"
},
{
"path": "examples/dwm/weather.lua",
"content": "local LOCATION_NAME = 'Moscow'\n\nlocal TIMEOUT = 10\n\nlocal INTERVAL = 9\nlocal SLEEP_AFTER_INITIAL = 5\n\nlocal coordinates = nil\n\nlocal function planner()\n -- Get coordinates of LOCATION_NAME.\n while true do\n -- Form the URL\n local url = string.format(\n 'https://geocoding-api.open-meteo.com/v1/search?name=%s&count=1',\n luastatus.plugin.urlencode(LOCATION_NAME)\n )\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = url,\n timeout = TIMEOUT,\n }})\n -- If successful, break\n if coordinates ~= nil then\n break\n end\n -- Failure; sleep and retry\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\n\n -- Coordinates fetched, sleep for SLEEP_AFTER_INITIAL.\n coroutine.yield({action = 'sleep', period = SLEEP_AFTER_INITIAL})\n\n -- Form the weather URL\n local weather_url = string.format(\n 'https://api.open-meteo.com/v1/forecast' ..\n '?latitude=%f' ..\n '&longitude=%f' ..\n '¤t_weather=true',\n coordinates.latitude,\n coordinates.longitude\n )\n\n -- Fetch weather, periodically\n while true do\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = weather_url,\n timeout = TIMEOUT,\n }})\n -- Sleep and repeat\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\nend\n\nlocal function check_error(t)\n if t.error then\n -- Low-level libcurl error\n return t.error\n end\n if t.status < 200 or t.status > 299 then\n -- Bad HTTP status\n return string.format('HTTP status %d', t.status)\n end\n -- Everything's OK\n return nil\nend\n\nlocal WEATHER_CODES = {\n [0] = 'Clear sky',\n\n [1] = 'Mainly clear',\n [2] = 'Partly cloudy',\n [3] = 'Overcast',\n\n [45] = 'Fog',\n [48] = 'Depositing rime fog',\n\n [51] = 'Drizzle, light',\n [53] = 'Drizzle, moderate',\n [55] = 'Drizzle, dense',\n\n [56] = 'Freezing drizzle, light',\n [57] = 'Freezing drizzle, dense',\n\n [61] = 'Rain, slight',\n [63] = 'Rain, moderate',\n [65] = 'Rain, heavy',\n\n [66] = 'Freezing rain, light',\n [67] = 'Freezing rain, heavy',\n\n [71] = 'Snow fall, slight',\n [73] = 'Snow fall, moderate',\n [75] = 'Snow fall, heavy',\n\n [77] = 'Snow grains',\n\n [80] = 'Rain shower, slight',\n [81] = 'Rain shower, moderate',\n [82] = 'Rain shower, violent',\n\n [85] = 'Snow showers, slight',\n [87] = 'Snow showers, heavy',\n\n [95] = 'Thunderstorm',\n [96] = 'Thunderstorm, slight hail',\n [99] = 'Thunderstorm, heavy hail',\n}\n\nlocal function fmt_weather(temp, _, _, weather_code)\n local segment1 = string.format('%.0f°', temp)\n -- segment2 is either string or nil\n local segment2 = WEATHER_CODES[weather_code]\n return {segment1, segment2}\nend\n\nwidget = {\n plugin = 'web',\n opts = {\n planner = planner,\n },\n cb = function(t)\n local err_msg = check_error(t)\n if err_msg then\n print(string.format('WARNING: luastatus: weather widget: %s'), err_msg)\n return ''\n end\n\n if coordinates == nil then\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local result = assert(obj.results[1])\n local latitude = assert(result.latitude)\n local longitude = assert(result.longitude)\n coordinates = {latitude = latitude, longitude = longitude}\n return '...'\n end\n\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local cw = assert(obj.current_weather)\n\n local temp = assert(cw.temperature)\n local wind_speed = assert(cw.windspeed)\n -- is_day is an integer, either 0 or 1\n local is_day = assert(cw.is_day) ~= 0\n local weather_code = assert(cw.weathercode)\n\n return fmt_weather(temp, wind_speed, is_day, weather_code)\n end,\n}\n"
},
{
"path": "examples/dwm/wireless.lua",
"content": "local MIN_DBM, MAX_DBM = -90, -20\nlocal NGAUGE = 5\n\nlocal function round(x)\n return math.floor(x + 0.5)\nend\n\nlocal function make_wifi_gauge(dbm)\n if dbm < MIN_DBM then dbm = MIN_DBM end\n if dbm > MAX_DBM then dbm = MAX_DBM end\n local nbright = round(NGAUGE * (1 - 0.7 * (MAX_DBM - dbm) / (MAX_DBM - MIN_DBM)))\n return ('●'):rep(nbright) .. ('○'):rep(NGAUGE - nbright)\nend\n\nlocal function sorted_keys(tbl)\n local keys = {}\n for k, _ in pairs(tbl) do\n keys[#keys + 1] = k\n end\n table.sort(keys)\n return keys\nend\n\nwidget = {\n plugin = 'network-linux',\n opts = {\n wireless = true,\n timeout = 10,\n },\n cb = function(t)\n if not t then\n return nil\n end\n\n -- Sort for determinism\n local ifaces = sorted_keys(t)\n\n local r = {}\n for _, iface in ipairs(ifaces) do\n local params = t[iface]\n if params.wireless then\n if params.wireless.ssid then\n r[#r + 1] = params.wireless.ssid\n end\n if params.wireless.signal_dbm then\n r[#r + 1] = make_wifi_gauge(params.wireless.signal_dbm)\n end\n elseif iface ~= 'lo' and (params.ipv4 or params.ipv6) then\n r[#r + 1] = string.format('[%s]', iface)\n end\n end\n return r\n end,\n}\n"
},
{
"path": "examples/dwm/xkb.lua",
"content": "widget = {\n plugin = 'xkb',\n cb = function(t)\n if t.name then\n local base_layout = t.name:match('[^(]+')\n if base_layout == 'gb' or base_layout == 'us' then\n return '[En]'\n elseif base_layout == 'ru' then\n return '[Ru]'\n else\n return '[' .. base_layout:sub(1, 1):upper() .. base_layout:sub(2) .. ']'\n end\n else\n return '[? ID ' .. t.id .. ']'\n end\n end,\n}\n"
},
{
"path": "examples/i3/alsa-gauge.lua",
"content": "local GAUGE_NCHARS = 10\n\nlocal function mk_gauge(level, full, empty)\n local nfull = math.floor(level * GAUGE_NCHARS + 0.5)\n return full:rep(nfull) .. empty:rep(GAUGE_NCHARS - nfull)\nend\n\nwidget = {\n plugin = 'alsa',\n cb = function(t)\n local level = (t.vol.cur - t.vol.min) / (t.vol.max - t.vol.min)\n if t.mute then\n return {full_text=mk_gauge(level, '×', '—'), color='#e03838'}\n else\n return {full_text=mk_gauge(level, '●', '○'), color='#718ba6'}\n end\n end,\n}\n"
},
{
"path": "examples/i3/alsa-interactive-gauge.lua",
"content": "-- So, it looks like this:\n--\n-- ••• | ██████████████ | [ 70%] | •••\n--\n-- ^ gauge block ^ text block\n--\n-- The gauge block is initially hidden; click on the text block to toggle its visibility.\n-- Click anywhere at the gauge block to change the volume.\n-- Click with the right mouse button on either block to toggle mute state.\n\nlocal CARD = 'default'\nlocal CHANNEL = 'Master'\n\nlocal HBLOCKS = {' ', '▏', '▎', '▍', '▌', '▋', '▊', '▉', '█'}\nlocal GAUGE_NCHARS = 20\n\n-- i3bar adds the separator width to \"relative_x\" and \"width\" properties of a click event.\n--\n-- So let's do some multivariable equations (we assume a monospace font is used).\n--\n-- Let:\n-- * `x' be the separator width in pixels (unknown);\n-- * `y' be the width of one character in pixels (unknown);\n-- * `U' be the number of characters in the text block (known);\n-- * `V' be the number of characters in the gauge block (known);\n-- * `A' be the width, in pixels, of the text block (known when clicked);\n-- * `B' be the width, in pixels, on the gauge block (known when clicked).\n--\n-- We have:\n-- { x + U*y = A;\n-- { x + V*y = B.\n-- So,\n-- y = (A - B) / (U - V);\n-- x = A - U*y.\n\nlocal last_t = nil\nlocal text_block_nchars, text_block_width = nil, nil\nlocal gauge = false\n\nlocal function round(x)\n return math.floor(x + 0.5)\nend\n\nlocal function mk_gauge(level)\n local rel_level = level * GAUGE_NCHARS\n local nfull = math.floor(rel_level)\n local filled = HBLOCKS[#HBLOCKS]:rep(nfull)\n if nfull == GAUGE_NCHARS then\n return filled\n end\n local mid_idx = round((rel_level - nfull) * (#HBLOCKS - 1))\n return filled .. HBLOCKS[1 + mid_idx] .. HBLOCKS[1]:rep(GAUGE_NCHARS - nfull - 1)\nend\n\nwidget = {\n plugin = 'alsa',\n\n opts = {\n card = CARD,\n channel = CHANNEL,\n make_self_pipe = true,\n },\n\n cb = function(t)\n last_t = t\n\n local level = (t.vol.cur - t.vol.min) / (t.vol.max - t.vol.min)\n\n local r = {}\n if t.mute then\n r[2] = {full_text='[mute]', color='#e03838'}\n else\n r[2] = {full_text=string.format('[%3d%%]', round(level * 100)), color='#718ba6'}\n end\n text_block_nchars = #r[2].full_text -- please note this does not work with Unicode.\n\n if gauge then\n local fg, bg = '#dcdcdc', '#444444'\n if t.mute then\n fg, bg = '#e03838', '#4a1414'\n end\n r[1] = {full_text=mk_gauge(level), color=fg, background=bg, instance='gauge'}\n end\n\n return r\n end,\n\n event = function(t)\n if t.button == 1 then -- left mouse button\n if t.instance == 'gauge' then\n local char_width = round((t.width - text_block_width)\n / (GAUGE_NCHARS - text_block_nchars))\n local sep_width = text_block_width - text_block_nchars * char_width\n\n local x = t.relative_x - sep_width\n if x < 0 then\n return\n end\n local rawvol = round(\n last_t.vol.min +\n x / (t.width - sep_width) * (last_t.vol.max - last_t.vol.min))\n assert(luastatus.execute(\n string.format('amixer -D \"%s\" set \"%s\" %s >/dev/null', CARD, CHANNEL, rawvol)))\n\n else\n gauge = not gauge\n text_block_width = t.width\n luastatus.plugin.wake_up()\n end\n\n elseif t.button == 3 then -- right mouse button\n assert(luastatus.execute(string.format(\n 'amixer -D \"%s\" set \"%s\" toggle >/dev/null', CARD, CHANNEL)))\n end\n end,\n}\n"
},
{
"path": "examples/i3/alsa.lua",
"content": "widget = {\n plugin = 'alsa',\n cb = function(t)\n if t.mute then\n return {full_text = '[mute]', color = '#e03838'}\n else\n local percent = (t.vol.cur - t.vol.min) / (t.vol.max - t.vol.min) * 100\n return {full_text = string.format('[%3d%%]', math.floor(0.5 + percent)), color = '#718ba6'}\n end\n end,\n}\n"
},
{
"path": "examples/i3/backlight.lua",
"content": "-- Note that this widget only shows backlight level when it changes.\nwidget = luastatus.require_plugin('backlight-linux').widget{\n cb = function(level)\n if level ~= nil then\n return {full_text = string.format('*%3.0f%%', level * 100)}\n end\n end,\n}\n"
},
{
"path": "examples/i3/battery.lua",
"content": "widget = luastatus.require_plugin('battery-linux').widget{\n period = 2,\n cb = function(t)\n local symbol = ({\n Charging = '↑',\n Discharging = '↓',\n })[t.status] or ' '\n local rem_seg\n if t.rem_time then\n local h = math.floor(t.rem_time)\n local m = math.floor(60 * (t.rem_time - h))\n rem_seg = {full_text = string.format('%2dh %02dm', h, m), color = '#595959'}\n end\n return {\n {full_text = string.format('%3d%%%s', t.capacity, symbol)},\n rem_seg,\n }\n end,\n}\n"
},
{
"path": "examples/i3/bluetooth.lua",
"content": "-- A widget to display currently connected and paired bluetooth devices.\n-- To change output format modify reprint_devices function.\n\nif not luastatus.execute('command -v bluetoothctl >/dev/null') then\n error('\"bluetoothctl\" command, which is required for this widget to work, was not found')\nend\n\nlocal separator = \" \"\n\n-- Object paths look like /org/bluez/hci0/dev_XX_XX_XX_XX_XX_XX/somethingsomething\nlocal function get_device_mac_address(device_object_path)\n return device_object_path:gsub(\"/.*/dev_\", \"\"):gsub(\"/.*\", \"\"):gsub(\"_\", \":\")\nend\n\n-- For reference bluetoothctl devices output looks like that:\n-- Device XX:XX:XX:XX:XX:XX JBL T450BT\n-- Device YY:YY:YY:YY:YY:YY Redmi 8\n--\n-- Function returns mac addresses of all devices.\nlocal function get_devices()\n local devices = {}\n local handle = io.popen(string.format(\"bluetoothctl devices\"))\n for line in handle:lines() do\n local match = string.match(line, \"Device ([%x:]+)\")\n if match then\n table.insert(devices, match)\n end\n end\n handle:close()\n return devices\nend\n\n-- For reference bluetoothctl info output looks like that:\n-- Device XX:XX:XX:XX:XX:XX (public)\n-- Name: JBL T450BT\n-- Alias: JBL T450BT\n-- Class: 0xFFFFFFFF\n-- Icon: audio-card\n-- Paired: yes\n-- Trusted: yes\n-- Blocked: no\n-- Connected: yes\n-- LegacyPairing: no\n-- UUID: Headset (xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx)\n-- ...\n-- UUID: Handsfree (xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx)\n--\n-- Given this input function returns a following table:\n-- [alias] string JBL T450BT\n-- [blocked] boolean false\n-- [class] string 0x00240404\n-- [connected] boolean true\n-- [icon] string audio\n-- [legacypairing] boolean false\n-- [name] string JBL T450BT\n-- [paired] boolean true\n-- [trusted] boolean true\nlocal function get_device_info(mac_address)\n if mac_address == nil then\n mac_address = \"\"\n end\n\n assert(string.match(mac_address, '^[%x:]*$') ~= nil)\n\n local device_info = {}\n local handle = io.popen(string.format(\"bluetoothctl info %s\", mac_address))\n for line in handle:lines() do\n local key, value = string.match(line, \"(%w+): (.*)\")\n -- Filter junk\n if key ~= \"UUID\" and key ~= nil and value ~= nil then\n key = string.lower(key)\n if key ~= \"name\" and key ~= \"alias\" and key ~= \"icon\" then\n if value == \"yes\" then\n value = true\n end\n if value == \"no\" then\n value = false\n end\n end\n device_info[key] = value\n end\n end\n handle:close()\n return device_info\nend\n\nlocal devices = {}\n\nlocal function reprint_devices()\n local t = {}\n for mac_address, device in pairs(devices) do\n table.insert(t, string.format(\"%s(%s)\", device[\"name\"], mac_address))\n end\n return table.concat(t, separator)\nend\n\nwidget = {\n plugin = \"dbus\",\n opts = {\n greet = true,\n -- https://git.kernel.org/pub/scm/bluetooth/bluez.git/tree/doc/device-api.txt\n signals = {\n {\n sender = \"org.bluez\",\n interface = \"org.freedesktop.DBus.Properties\",\n signal = \"PropertiesChanged\",\n arg0 = \"org.bluez.Device1\",\n bus = \"system\"\n }\n }\n },\n cb = function(t)\n if t.what == \"hello\" then\n local mac_addresses = get_devices()\n for _, mac_address in ipairs(mac_addresses) do\n local device = get_device_info(mac_address)\n if device[\"connected\"] and device[\"paired\"] then\n devices[mac_address] = device\n end\n end\n elseif t.what == \"signal\" then\n -- For reference message from dbus looks like that:\n -- table\n -- [1] string org.bluez.Device1\n -- [2] table\n -- [2] [1] table\n -- [2] [1] [1] string SomethingSomething\n -- [2] [1] [2] boolean false\n -- [2] [2] table\n -- [2] [2] [1] string Connected\n -- [2] [2] [2] boolean true\n -- [3] table\n if t.signal == \"PropertiesChanged\" then\n for _, message in pairs(t.parameters[2]) do\n if message[1] == \"Connected\" or message[1] == \"Paired\" then\n local mac_address = get_device_mac_address(t.object_path)\n if message[2] then\n local device = get_device_info(mac_address)\n if device[\"paired\"] then\n devices[mac_address] = device\n end\n else\n devices[mac_address] = nil\n end\n end\n end\n end\n end\n return {full_text = reprint_devices()}\n end\n}\n"
},
{
"path": "examples/i3/btc-price.lua",
"content": "-- Bitcoin price widget.\n-- Updates on click and every 5 minutes.\n\nlocal custom_sleep_amt = nil\n\nlocal function check_error(t)\n if t.error then\n -- Low-level libcurl error\n return t.error\n end\n if t.status < 200 or t.status > 299 then\n -- Bad HTTP status\n return string.format('HTTP status %d', t.status)\n end\n -- Everything's OK\n return nil\nend\n\nwidget = {\n plugin = 'web',\n opts = {\n planner = function()\n while true do\n coroutine.yield({action = 'request', params = {\n url = 'https://api.binance.com/api/v3/ticker/price?symbol=BTCUSDT',\n timeout = 5,\n }})\n local period = custom_sleep_amt or (5 * 60)\n custom_sleep_amt = nil\n coroutine.yield({action = 'sleep', period = period})\n end\n end,\n make_self_pipe = true,\n },\n cb = function(t)\n local text\n local err_msg = check_error(t)\n if err_msg then\n print(string.format('WARNING: luastatus: btc-price widget: %s'), err_msg)\n text = '......'\n custom_sleep_amt = 5\n else\n local obj = assert(luastatus.plugin.json_decode(t.body))\n text = obj.price:match('[^.]+')\n end\n return {\n full_text = string.format(\n '[$%s]',\n luastatus.barlib.pango_escape(text)\n ),\n color = '#586A4B',\n markup = 'pango',\n }\n end,\n event = function(t)\n if t.button == 1 then\n luastatus.plugin.wake_up()\n end\n end,\n}\n"
},
{
"path": "examples/i3/cpu-freq.lua",
"content": "local VBLOCKS = {'▂', '▃', '▄', '▅', '▆', '▇', '█'}\n\nlocal function make_color(ratio)\n local red = math.floor(0.5 + 255 * ratio)\n return string.format('#%02x%02x00', red, 255 - red)\nend\n\nlocal function make_chunk(entry)\n local num = entry.cur - entry.min\n local denom = entry.max - entry.min\n\n local ratio\n if denom ~= 0 then\n ratio = num / denom\n else\n -- If max_freq == min_freq, set ratio to zero.\n ratio = 0\n end\n\n local vblock_idx = math.min(\n 1 + math.floor(0.5 + ratio * #VBLOCKS),\n #VBLOCKS)\n\n return string.format(\"%s\", make_color(ratio), VBLOCKS[vblock_idx])\nend\n\nlocal plugin_data = {}\n\nlocal plugin_params = {\n timer_opts = {\n period = 2,\n },\n cb = function(t)\n if t == nil then\n return nil\n end\n local r = {}\n for _, entry in ipairs(t) do\n r[#r + 1] = make_chunk(entry)\n end\n return {full_text = table.concat(r), markup = 'pango'}\n end,\n event = function(t)\n if t.button == 1 then\n plugin_data.please_reload = true\n end\n end,\n}\n\nwidget = luastatus.require_plugin('cpu-freq-linux').widget(plugin_params, plugin_data)\n"
},
{
"path": "examples/i3/cpu-temperature.lua",
"content": "local COOL_TEMP = 50\nlocal HEAT_TEMP = 75\nlocal function getcolor(temp)\n local t = (temp - COOL_TEMP) / (HEAT_TEMP - COOL_TEMP)\n if t < 0 then t = 0 end\n if t > 1 then t = 1 end\n local red = math.floor(t * 255 + 0.5)\n return string.format('#%02x%02x00', red, 255 - red)\nend\n\nlocal plugin_data = {}\n\nlocal plugin_params = {\n timer_opts = {\n period = 2,\n },\n cb = function(t)\n if not t then\n return nil\n end\n local r = {}\n for _, entry in ipairs(t) do\n local temp = entry.value\n r[#r + 1] = {full_text = string.format('%.0f°', temp), color = getcolor(temp)}\n end\n return r\n end,\n event = function(t)\n if t.button == 1 then\n plugin_data.please_reload = true\n end\n end,\n}\n\nwidget = luastatus.require_plugin('cpu-temp-linux').widget(plugin_params, plugin_data)\n"
},
{
"path": "examples/i3/cpu-usage.lua",
"content": "widget = luastatus.require_plugin('cpu-usage-linux').widget{\n cb = function(usage)\n if usage ~= nil then\n return {full_text = string.format('[%5.1f%%]', usage * 100)}\n end\n end,\n}\n"
},
{
"path": "examples/i3/disk-io.lua",
"content": "widget = luastatus.require_plugin('disk-io-linux').widget{\n period = 2,\n cb = function(t)\n -- Sort by name for determinism\n table.sort(t, function(a, b) return a.name < b.name end)\n\n local segments = {}\n for _, entry in ipairs(t) do\n local R = entry.read_bytes\n local W = entry.written_bytes\n if (R >= 0) and (W >= 0) then\n segments[#segments + 1] = {\n full_text = string.format(\n '%s: %.0fk↓%.0fk↑',\n entry.name,\n R / 1024,\n W / 1024\n ),\n markup = 'pango',\n }\n end\n end\n return segments\n end,\n}\n"
},
{
"path": "examples/i3/file-contents.lua",
"content": "widget = luastatus.require_plugin('file-contents-linux').widget{\n filename = os.getenv('HOME') .. '/status',\n cb = function(f)\n -- show the first line of the file\n return {full_text = f:read('*line')}\n end,\n}\n"
},
{
"path": "examples/i3/fs.lua",
"content": "local function sorted_keys(tbl)\n local keys = {}\n for k, _ in pairs(tbl) do\n keys[#keys + 1] = k\n end\n table.sort(keys)\n return keys\nend\n\nwidget = {\n plugin = 'fs',\n opts = {\n paths = {'/', '/home'},\n },\n cb = function(t)\n -- Sort for determinism\n local keys = sorted_keys(t)\n local res = {}\n for _, k in ipairs(keys) do\n local v = t[k]\n table.insert(res, {\n full_text = string.format('%s %.0f%%',\n k, (1 - v.avail / v.total) * 100),\n instance = k,\n })\n end\n return res\n end,\n}\n"
},
{
"path": "examples/i3/gmail.lua",
"content": "--[[\n-- Expects 'credentials.lua' to be present in the current directory; it may contain, e.g.,\n-- return {\n-- gmail = {\n-- login = 'john.smith',\n-- password = 'qwerty'\n-- }\n-- }\n--]]\nlocal credentials = require 'credentials'\n\nwidget = luastatus.require_plugin('imap').widget{\n verbose = false,\n host = 'imap.gmail.com',\n port = 993,\n mailbox = 'Inbox',\n use_ssl = true,\n timeout = 2 * 60,\n handshake_timeout = 10,\n login = credentials.gmail.login,\n password = credentials.gmail.password,\n error_sleep_period = 60,\n cb = function(unseen)\n if unseen == nil then\n return nil\n elseif unseen == 0 then\n return {full_text = '[-]', color = '#595959'}\n else\n return {full_text = string.format('[%d unseen]', unseen)}\n end\n end,\n event = [[\n local t = ...\n if t.button == 1 then\n os.execute('xdg-open https://gmail.com &')\n end\n ]],\n}\n"
},
{
"path": "examples/i3/ip.lua",
"content": "widget = {\n plugin = 'network-linux',\n cb = function(t)\n local r = {}\n for iface, params in pairs(t) do\n local iface_clean = iface\n local addr = params.ipv6 or params.ipv4\n if addr then\n -- strip out \"label\" from the interface name\n iface_clean = iface_clean:gsub(':.*', '')\n -- strip out \"zone index\" from the address\n addr = addr:gsub('%%.*', '')\n\n if iface_clean ~= 'lo' then\n r[#r + 1] = {\n full_text = string.format('[%s: %s]', iface_clean, addr),\n color = '#709080',\n }\n end\n end\n end\n return r\n end,\n}\n"
},
{
"path": "examples/i3/loadavg-linux.lua",
"content": "local function get_ncpus()\n local f = assert(io.open('/proc/cpuinfo', 'r'))\n local n = 0\n for line in f:lines() do\n if line:match('^processor\\t') then\n n = n + 1\n end\n end\n f:close()\n return n\nend\n\nlocal function avg2str(x)\n assert(x >= 0)\n if x >= 1000 then\n return '↑↑↑'\n end\n return string.format('%3.0f', x)\nend\n\nwidget = {\n plugin = 'timer',\n opts = {\n period = 2,\n },\n cb = function(_)\n local f = io.open('/proc/loadavg', 'r')\n local avg1, avg5, avg15 = f:read('*number', '*number', '*number')\n f:close()\n\n assert(avg1 and avg5 and avg15)\n\n local ncpus = get_ncpus()\n\n return {full_text = string.format(\n '[%s%% %s%% %s%%]',\n avg2str(avg1 / ncpus * 100),\n avg2str(avg5 / ncpus * 100),\n avg2str(avg15 / ncpus * 100)\n )}\n end,\n}\n"
},
{
"path": "examples/i3/media-player-mpris.lua",
"content": "local PLAYER = 'clementine'\n\nlocal PLAYBACK_STATUS_ICONS = {\n Playing = '▶',\n Paused = '◆',\n Stopped = '—',\n}\n\nlocal COLOR_BRIGHT = '#60b177'\nlocal COLOR_DIM = '#9fb15d'\n\nlocal function fetch_metadata_field(t, key)\n if t.Metadata then\n return t.Metadata[key]\n else\n return nil\n end\nend\n\nlocal function do_call_method(method_name)\n local is_ok, err_msg = luastatus.plugin.call_method_str({\n bus = 'session',\n dest = 'org.mpris.MediaPlayer2.' .. PLAYER,\n object_path = '/org/mpris/MediaPlayer2',\n interface = 'org.mpris.MediaPlayer2.Player',\n method = method_name,\n -- no arg_str\n })\n if not is_ok then\n print(string.format(\n 'WARNING: luastatus: mpris widget: cannot call method \"%s\": %s',\n method_name, err_msg\n ))\n end\nend\n\nwidget = luastatus.require_plugin('mpris').widget{\n player = PLAYER,\n cb = function(t)\n if not t.PlaybackStatus then\n return nil\n end\n\n local title = fetch_metadata_field(t, 'xesam:title')\n title = title or ''\n\n title = luastatus.libwidechar.make_valid_and_printable(title, '?')\n title = luastatus.libwidechar.truncate_to_width(title, 40)\n title = title or ''\n\n local icon = PLAYBACK_STATUS_ICONS[t.PlaybackStatus] or '?'\n\n local segments = {\n {full_text = '←', color = COLOR_DIM, instance = 'prev'},\n {full_text = icon, color = COLOR_BRIGHT, instance = 'status'},\n {full_text = '→', color = COLOR_DIM, instance = 'next'},\n }\n\n if title ~= '' then\n table.insert(segments, {\n full_text = title,\n color = COLOR_BRIGHT,\n })\n end\n\n return segments\n end,\n event = function(t)\n if t.button ~= 1 then\n return\n end\n if t.instance == 'status' then\n do_call_method('PlayPause')\n elseif t.instance == 'prev' then\n do_call_method('Previous')\n elseif t.instance == 'next' then\n do_call_method('Next')\n end\n end,\n}\n"
},
{
"path": "examples/i3/mem-usage.lua",
"content": "widget = luastatus.require_plugin('mem-usage-linux').widget{\n timer_opts = {period = 2},\n cb = function(t)\n local used_kb = t.total.value - t.avail.value\n return {full_text = string.format('[%3.2f GiB]', used_kb / 1024 / 1024), color = '#af8ec3'}\n end,\n}\n"
},
{
"path": "examples/i3/mpd-progressbar.lua",
"content": "local text, time, total, is_playing = nil, nil, nil, false\nlocal timeout = 2\nlocal titlewidth = 40\n\nlocal function W_split(str, boundary)\n local head, _ = luastatus.libwidechar.truncate_to_width(str, boundary)\n assert(head)\n local tail = str:sub(1 + #head)\n return head, tail\nend\n\nwidget = {\n plugin = 'mpd',\n opts = {\n timeout = timeout,\n },\n cb = function(t)\n if t.what == 'update' then\n -- build title\n local title\n if t.song.Title then\n title = t.song.Title\n if t.song.Artist then\n title = t.song.Artist .. ': ' .. title\n end\n else\n title = t.song.file or ''\n end\n\n title = luastatus.libwidechar.make_valid(title, '?')\n\n if assert(luastatus.libwidechar.width(title)) > titlewidth then\n title = luastatus.libwidechar.truncate_to_width(title, titlewidth - 1) .. '…'\n end\n\n -- build text\n text = string.format('%s %s',\n ({play = '▶', pause = '‖', stop = '■'})[t.status.state],\n title\n )\n\n -- update other globals\n if t.status.time then\n time, total = t.status.time:match('(%d+):(%d+)')\n time, total = tonumber(time), tonumber(total)\n else\n time, total = nil, nil\n end\n is_playing = t.status.state == 'play'\n\n elseif t.what == 'timeout' then\n if is_playing then\n time = math.min(time + timeout, total)\n end\n\n else\n -- 'connecting' or 'error'\n return {full_text = t.what}\n end\n\n -- calc progress\n local width = assert(luastatus.libwidechar.width(text))\n -- 'time' and 'total' can be nil here, we check for 'total' only\n local ulpos = (total and total ~= 0)\n and math.floor(width / total * time + 0.5)\n or 0\n\n local head, tail = W_split(text, ulpos)\n\n return {full_text = '' .. luastatus.barlib.pango_escape(head) ..\n '' .. luastatus.barlib.pango_escape(tail),\n markup = 'pango'}\n end\n}\n"
},
{
"path": "examples/i3/network-rate.lua",
"content": "local function make_segment(iface, R, S)\n return {\n full_text = string.format('[%s %.0fk↓%.0fk↑]',\n iface,\n R / 1000,\n S / 1000\n ),\n markup = 'pango',\n }\nend\n\nwidget = luastatus.require_plugin('network-rate-linux').widget{\n iface_except = 'lo',\n period = 3,\n in_array_form = true,\n cb = function(t)\n local r = {}\n for _, PQ in ipairs(t) do\n local iface = PQ[1]\n local R, S = PQ[2].R, PQ[2].S\n r[#r + 1] = make_segment(iface, R, S)\n end\n return r\n end,\n}\n"
},
{
"path": "examples/i3/pulse-gauge.lua",
"content": "local GAUGE_NCHARS = 10\n\nlocal function mk_gauge(level, full, empty)\n local nfull = math.floor(level * GAUGE_NCHARS + 0.5)\n return full:rep(nfull) .. empty:rep(GAUGE_NCHARS - nfull)\nend\n\nwidget = {\n plugin = 'pulse',\n cb = function(t)\n local level = t.cur / t.norm\n if t.mute then\n return {full_text=mk_gauge(level, '×', '—'), color='#e03838'}\n else\n return {full_text=mk_gauge(level, '●', '○'), color='#718ba6'}\n end\n end,\n}\n"
},
{
"path": "examples/i3/pulse-interactive-gauge.lua",
"content": "-- So, it looks like this:\n--\n-- ••• | ██████████████ | [ 70%] | •••\n--\n-- ^ gauge block ^ text block\n--\n-- The gauge block is initially hidden; click on the text block to toggle its visibility.\n-- Click anywhere at the gauge block to change the volume.\n-- Click with the right mouse button on either block to toggle mute state.\nlocal SINK = '@DEFAULT_SINK@'\n\nlocal HBLOCKS = {' ', '▏', '▎', '▍', '▌', '▋', '▊', '▉', '█'}\nlocal GAUGE_NCHARS = 20\n\n-- i3bar adds the separator width to \"relative_x\" and \"width\" properties of a click event.\n--\n-- So let's do some multivariable equations (we assume a monospace font is used).\n--\n-- Let:\n-- * `x' be the separator width in pixels (unknown);\n-- * `y' be the width of one character in pixels (unknown);\n-- * `U' be the number of characters in the text block (known);\n-- * `V' be the number of characters in the gauge block (known);\n-- * `A' be the width, in pixels, of the text block (known when clicked);\n-- * `B' be the width, in pixels, on the gauge block (known when clicked).\n--\n-- We have:\n-- { x + U*y = A;\n-- { x + V*y = B.\n-- So,\n-- y = (A - B) / (U - V);\n-- x = A - U*y.\n\nlocal last_t = nil\nlocal text_block_nchars, text_block_width = nil, nil\nlocal gauge = false\n\nlocal function round(x)\n return math.floor(x + 0.5)\nend\n\nlocal function mk_gauge(level)\n local rel_level = level * GAUGE_NCHARS\n local nfull = math.floor(rel_level)\n local filled = HBLOCKS[#HBLOCKS]:rep(nfull)\n if nfull == GAUGE_NCHARS then\n return filled\n end\n local mid_idx = round((rel_level - nfull) * (#HBLOCKS - 1))\n return filled .. HBLOCKS[1 + mid_idx] .. HBLOCKS[1]:rep(GAUGE_NCHARS - nfull - 1)\nend\n\nwidget = {\n plugin = 'pulse',\n\n opts = {\n sink = SINK,\n make_self_pipe = true,\n },\n\n cb = function(t)\n if t == nil then\n t = last_t\n else\n last_t = t\n end\n\n local level = t.cur / t.norm\n\n local r = {}\n if t.mute then\n r[2] = {full_text='[mute]', color='#e03838'}\n else\n r[2] = {full_text=string.format('[%3d%%]', round(level * 100)), color='#718ba6'}\n end\n text_block_nchars = #r[2].full_text -- please note this does not work with Unicode.\n\n if gauge then\n local fg, bg = '#dcdcdc', '#444444'\n if t.mute then\n fg, bg = '#e03838', '#4a1414'\n end\n r[1] = {full_text=mk_gauge(level), color=fg, background=bg, instance='gauge'}\n end\n\n return r\n end,\n\n event = function(t)\n if t.button == 1 then -- left mouse button\n if t.instance == 'gauge' then\n local char_width = round((t.width - text_block_width)\n / (GAUGE_NCHARS - text_block_nchars))\n local sep_width = text_block_width - text_block_nchars * char_width\n\n local x = t.relative_x - sep_width\n if x < 0 then\n return\n end\n local rawvol = round(x / (t.width - sep_width) * last_t.norm)\n os.execute(string.format(\n 'pactl set-sink-volume \"%s\" %s', SINK, rawvol))\n\n else\n gauge = not gauge\n text_block_width = t.width\n luastatus.plugin.wake_up()\n end\n\n elseif t.button == 3 then -- right mouse button\n os.execute(string.format(\n 'pactl set-sink-mute \"%s\" toggle', SINK))\n end\n end,\n}\n"
},
{
"path": "examples/i3/pulse.lua",
"content": "widget = {\n plugin = 'pulse',\n cb = function(t)\n if t.mute then\n return {full_text = '[mute]', color = '#e03838'}\n end\n local percent = (t.cur / t.norm) * 100\n return {full_text = string.format('[%3d%%]', math.floor(0.5 + percent)), color = '#718ba6'}\n end,\n}\n"
},
{
"path": "examples/i3/systemd-unit.lua",
"content": "local COLORS = {\n pink = '#ec93d3',\n green = '#60b48a',\n yellow = '#dfaf8f',\n red = '#dca3a3',\n dim = '#909090',\n}\n\nlocal function make_output(text, color_name)\n local color = assert(COLORS[color_name])\n local body = string.format('[Tor: %s]', color, text)\n return {full_text = body, markup = 'pango'}\nend\n\nwidget = luastatus.require_plugin('systemd-unit').widget{\n unit_name = 'tor.service',\n cb = function(state)\n if state == 'active' then\n return make_output('✓', 'green')\n elseif state == 'reloading' or state == 'activating' then\n return make_output('•', 'yellow')\n elseif state == 'inactive' or state == 'deactivating' then\n return make_output('-', 'dim')\n elseif state == 'failed' then\n return make_output('x', 'red')\n else\n return make_output('?', 'pink')\n end\n end,\n}\n"
},
{
"path": "examples/i3/time-battery-combined.lua",
"content": "local function get_bat_seg(t)\n if not t then\n return {full_text = '[--×--]'}\n end\n if t.status == 'Unknown' or t.status == 'Full' or t.status == 'Not charging' then\n return nil\n end\n local sym, color = '?', '#dcdcdc'\n if t.status == 'Discharging' then\n sym = '↓'\n color = '#dca3a3'\n elseif t.status == 'Charging' then\n sym = '↑'\n color = '#60b48a'\n end\n return {full_text = string.format('[%3d%%%s]', t.capacity, sym), color = color}\nend\n\nwidget = luastatus.require_plugin('battery-linux').widget{\n period = 2,\n cb = function(t)\n return {\n {full_text = os.date('[%H:%M]'), color = '#dc8cc3'},\n get_bat_seg(t),\n }\n end,\n}\n"
},
{
"path": "examples/i3/time-date.lua",
"content": "local months = {'января', 'февраля', 'марта', 'апреля', 'мая', 'июня', 'июля', 'августа', 'сентября',\n 'октября', 'ноября', 'декабря'}\nwidget = {\n plugin = 'timer',\n cb = function()\n local d = os.date('*t')\n return {\n {full_text = string.format('%d %s', d.day, months[d.month])},\n {full_text = string.format('%02d:%02d', d.hour, d.min)},\n }\n end,\n}\n"
},
{
"path": "examples/i3/tor.lua",
"content": "-- Trivial but somewhat useful widget showing if the Tor daemon is running.\n\nwidget = {\n plugin = 'timer',\n opts = {period = 5},\n cb = function()\n local f = io.open('/var/run/tor/tor.pid', 'r')\n if f then\n f:close()\n return {full_text = '[TOR]'}\n else\n return nil\n end\n end,\n}\n"
},
{
"path": "examples/i3/update-on-click.lua",
"content": "widget = {\n plugin = 'timer',\n opts = {\n make_self_pipe = true,\n period = 2.0,\n },\n cb = function(t)\n if t == 'self_pipe' then\n return {full_text = 'Thanks!'}\n else\n return {full_text = 'Click me'}\n end\n end,\n event = function(_)\n luastatus.plugin.wake_up()\n end,\n}\n"
},
{
"path": "examples/i3/uptime-linux.lua",
"content": "local SUFFIXES_AND_DIVISORS = {\n {'m', 60},\n {'h', 60},\n {'d', 24},\n {'W', 7},\n {'M', 30},\n {'Y', 365 / 30},\n}\n\nlocal function seconds_to_human_readable_time(sec)\n local prev_suffix = 's'\n local found_suffix\n for _, PQ in ipairs(SUFFIXES_AND_DIVISORS) do\n local suffix = PQ[1]\n local divisor = PQ[2]\n if sec < divisor then\n found_suffix = prev_suffix\n break\n end\n sec = sec / divisor\n prev_suffix = suffix\n end\n if not found_suffix then\n found_suffix = prev_suffix\n end\n return string.format('%.0f%s', sec, found_suffix)\nend\n\nwidget = {\n plugin = 'timer',\n opts = {\n period = 2,\n },\n cb = function(_)\n local f = io.open('/proc/uptime', 'r')\n local sec, _ = f:read('*number', '*number')\n f:close()\n\n assert(sec)\n\n return {full_text = string.format(\n '[uptime: %s]',\n seconds_to_human_readable_time(sec)\n )}\n end,\n}\n"
},
{
"path": "examples/i3/weather-rus.lua",
"content": "local LOCATION_NAME = 'Moscow'\n\nlocal TIMEOUT = 10\n\nlocal INTERVAL = 9\nlocal SLEEP_AFTER_INITIAL = 5\n\nlocal coordinates = nil\n\nlocal function planner()\n -- Get coordinates of LOCATION_NAME.\n while true do\n -- Form the URL\n local url = string.format(\n 'https://geocoding-api.open-meteo.com/v1/search?name=%s&count=1',\n luastatus.plugin.urlencode(LOCATION_NAME)\n )\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = url,\n timeout = TIMEOUT,\n }})\n -- If successful, break\n if coordinates ~= nil then\n break\n end\n -- Failure; sleep and retry\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\n\n -- Coordinates fetched, sleep for SLEEP_AFTER_INITIAL.\n coroutine.yield({action = 'sleep', period = SLEEP_AFTER_INITIAL})\n\n -- Form the weather URL\n local weather_url = string.format(\n 'https://api.open-meteo.com/v1/forecast' ..\n '?latitude=%f' ..\n '&longitude=%f' ..\n '¤t_weather=true',\n coordinates.latitude,\n coordinates.longitude\n )\n\n -- Fetch weather, periodically\n while true do\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = weather_url,\n timeout = TIMEOUT,\n }})\n -- Sleep and repeat\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\nend\n\nlocal function check_error(t)\n if t.error then\n -- Low-level libcurl error\n return t.error\n end\n if t.status < 200 or t.status > 299 then\n -- Bad HTTP status\n return string.format('HTTP status %d', t.status)\n end\n -- Everything's OK\n return nil\nend\n\nlocal WEATHER_CODES = {\n [0] = 'Ясно',\n\n [1] = 'Преимущественно ясно',\n [2] = 'Переменная облачность',\n [3] = 'Пасмурно',\n\n [45] = 'Туман',\n [48] = 'Осаждение инея и тумана',\n\n [51] = 'Изморось, лёгкая',\n [53] = 'Изморось, умеренная',\n [55] = 'Изморось, сильная',\n\n [56] = 'Ледяная изморось, лёгкая',\n [57] = 'Ледяная изморось, сильная',\n\n [61] = 'Дождь, лёгкий',\n [63] = 'Дождь, умеренный',\n [65] = 'Дождь, сильный',\n\n [66] = 'Град, лёгкий',\n [67] = 'Град, сильный',\n\n [71] = 'Снегопад, лёгкий',\n [73] = 'Снегопад, умеренный',\n [75] = 'Снегопад, сильный',\n\n [77] = 'Крупинки снега',\n\n [80] = 'Ливень, лёгкий',\n [81] = 'Ливень, умеренный',\n [82] = 'Ливень, сильный',\n\n [85] = 'Снеговые осадки, лёгкие',\n [87] = 'Снеговые осадки, сильные',\n\n [95] = 'Гроза',\n [96] = 'Гроза, небольшой град',\n [99] = 'Гроза, сильный град',\n}\n\nlocal function fmt_weather(temp, _, _, weather_code)\n local segment1 = {full_text = string.format('%.0f°', temp)}\n local segment2 = nil\n local weather = WEATHER_CODES[weather_code]\n if weather then\n segment2 = {full_text = weather}\n end\n return {segment1, segment2}\nend\n\nwidget = {\n plugin = 'web',\n opts = {\n planner = planner,\n },\n cb = function(t)\n local err_msg = check_error(t)\n if err_msg then\n print(string.format('WARNING: luastatus: weather widget: %s'), err_msg)\n return {full_text = '...', color = '#e03838'}\n end\n\n if coordinates == nil then\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local result = assert(obj.results[1])\n local latitude = assert(result.latitude)\n local longitude = assert(result.longitude)\n coordinates = {latitude = latitude, longitude = longitude}\n return {full_text = '...', color = '#709080'}\n end\n\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local cw = assert(obj.current_weather)\n\n local temp = assert(cw.temperature)\n local wind_speed = assert(cw.windspeed)\n -- is_day is an integer, either 0 or 1\n local is_day = assert(cw.is_day) ~= 0\n local weather_code = assert(cw.weathercode)\n\n return fmt_weather(temp, wind_speed, is_day, weather_code)\n end,\n}\n"
},
{
"path": "examples/i3/weather.lua",
"content": "local LOCATION_NAME = 'Moscow'\n\nlocal TIMEOUT = 10\n\nlocal INTERVAL = 9\nlocal SLEEP_AFTER_INITIAL = 5\n\nlocal coordinates = nil\n\nlocal function planner()\n -- Get coordinates of LOCATION_NAME.\n while true do\n -- Form the URL\n local url = string.format(\n 'https://geocoding-api.open-meteo.com/v1/search?name=%s&count=1',\n luastatus.plugin.urlencode(LOCATION_NAME)\n )\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = url,\n timeout = TIMEOUT,\n }})\n -- If successful, break\n if coordinates ~= nil then\n break\n end\n -- Failure; sleep and retry\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\n\n -- Coordinates fetched, sleep for SLEEP_AFTER_INITIAL.\n coroutine.yield({action = 'sleep', period = SLEEP_AFTER_INITIAL})\n\n -- Form the weather URL\n local weather_url = string.format(\n 'https://api.open-meteo.com/v1/forecast' ..\n '?latitude=%f' ..\n '&longitude=%f' ..\n '¤t_weather=true',\n coordinates.latitude,\n coordinates.longitude\n )\n\n -- Fetch weather, periodically\n while true do\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = weather_url,\n timeout = TIMEOUT,\n }})\n -- Sleep and repeat\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\nend\n\nlocal function check_error(t)\n if t.error then\n -- Low-level libcurl error\n return t.error\n end\n if t.status < 200 or t.status > 299 then\n -- Bad HTTP status\n return string.format('HTTP status %d', t.status)\n end\n -- Everything's OK\n return nil\nend\n\nlocal WEATHER_CODES = {\n [0] = 'Clear sky',\n\n [1] = 'Mainly clear',\n [2] = 'Partly cloudy',\n [3] = 'Overcast',\n\n [45] = 'Fog',\n [48] = 'Depositing rime fog',\n\n [51] = 'Drizzle, light',\n [53] = 'Drizzle, moderate',\n [55] = 'Drizzle, dense',\n\n [56] = 'Freezing drizzle, light',\n [57] = 'Freezing drizzle, dense',\n\n [61] = 'Rain, slight',\n [63] = 'Rain, moderate',\n [65] = 'Rain, heavy',\n\n [66] = 'Freezing rain, light',\n [67] = 'Freezing rain, heavy',\n\n [71] = 'Snow fall, slight',\n [73] = 'Snow fall, moderate',\n [75] = 'Snow fall, heavy',\n\n [77] = 'Snow grains',\n\n [80] = 'Rain shower, slight',\n [81] = 'Rain shower, moderate',\n [82] = 'Rain shower, violent',\n\n [85] = 'Snow showers, slight',\n [87] = 'Snow showers, heavy',\n\n [95] = 'Thunderstorm',\n [96] = 'Thunderstorm, slight hail',\n [99] = 'Thunderstorm, heavy hail',\n}\n\nlocal function fmt_weather(temp, _, _, weather_code)\n local segment1 = {full_text = string.format('%.0f°', temp)}\n local segment2 = nil\n local weather = WEATHER_CODES[weather_code]\n if weather then\n segment2 = {full_text = weather}\n end\n return {segment1, segment2}\nend\n\nwidget = {\n plugin = 'web',\n opts = {\n planner = planner,\n },\n cb = function(t)\n local err_msg = check_error(t)\n if err_msg then\n print(string.format('WARNING: luastatus: weather widget: %s'), err_msg)\n return {full_text = '...', color = '#e03838'}\n end\n\n if coordinates == nil then\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local result = assert(obj.results[1])\n local latitude = assert(result.latitude)\n local longitude = assert(result.longitude)\n coordinates = {latitude = latitude, longitude = longitude}\n return {full_text = '...', color = '#709080'}\n end\n\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local cw = assert(obj.current_weather)\n\n local temp = assert(cw.temperature)\n local wind_speed = assert(cw.windspeed)\n -- is_day is an integer, either 0 or 1\n local is_day = assert(cw.is_day) ~= 0\n local weather_code = assert(cw.weathercode)\n\n return fmt_weather(temp, wind_speed, is_day, weather_code)\n end,\n}\n"
},
{
"path": "examples/i3/wireless.lua",
"content": "local ORIGIN = '•' -- '●' '○' '◌' '◍' '⬤'\nlocal RAY = '}' -- '›' '〉' '❭' '❯' '❱' '⟩' '⟫' '》'\nlocal MIN_DBM, MAX_DBM = -90, -20\nlocal NGAUGE = 5\nlocal COLOR_DIM = '#709080'\n\nlocal function round(x)\n return math.floor(x + 0.5)\nend\n\nlocal function make_wifi_gauge(dbm)\n if dbm < MIN_DBM then dbm = MIN_DBM end\n if dbm > MAX_DBM then dbm = MAX_DBM end\n local nbright = round(NGAUGE * (1 - 0.7 * (MAX_DBM - dbm) / (MAX_DBM - MIN_DBM)))\n return {\n full_text = string.format(\n '%s%s%s',\n ORIGIN, RAY:rep(nbright), COLOR_DIM, RAY:rep(NGAUGE - nbright)\n ),\n markup = 'pango',\n }\nend\n\nlocal function sorted_keys(tbl)\n local keys = {}\n for k, _ in pairs(tbl) do\n keys[#keys + 1] = k\n end\n table.sort(keys)\n return keys\nend\n\nwidget = {\n plugin = 'network-linux',\n opts = {\n wireless = true,\n timeout = 10,\n },\n cb = function(t)\n if not t then\n return nil\n end\n\n -- Sort for determinism\n local ifaces = sorted_keys(t)\n\n local r = {}\n for _, iface in ipairs(ifaces) do\n local params = t[iface]\n if params.wireless then\n if params.wireless.ssid then\n r[#r + 1] = {\n full_text = params.wireless.ssid,\n color = COLOR_DIM,\n }\n end\n if params.wireless.signal_dbm then\n r[#r + 1] = make_wifi_gauge(params.wireless.signal_dbm)\n end\n elseif iface ~= 'lo' and (params.ipv4 or params.ipv6) then\n r[#r + 1] = {\n full_text = string.format('[%s]', iface),\n color = COLOR_DIM,\n }\n end\n end\n return r\n end,\n}\n"
},
{
"path": "examples/i3/xkb.lua",
"content": "widget = {\n plugin = 'xkb',\n cb = function(t)\n if t.name then\n local base_layout = t.name:match('[^(]+')\n if base_layout == 'gb' or base_layout == 'us' then\n return {full_text = '[En]', color = '#9c9c9c'}\n elseif base_layout == 'ru' then\n return {full_text = '[Ru]', color = '#eab93d'}\n else\n return {full_text = '[' .. base_layout:sub(1, 1):upper() .. base_layout:sub(2) .. ']'}\n end\n else\n return {full_text = '[? ID ' .. t.id .. ']'}\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/alsa-gauge.lua",
"content": "local GAUGE_NCHARS = 10\n\nlocal function mk_gauge(level, full, empty)\n local nfull = math.floor(level * GAUGE_NCHARS + 0.5)\n return full:rep(nfull) .. empty:rep(GAUGE_NCHARS - nfull)\nend\n\nwidget = {\n plugin = 'alsa',\n cb = function(t)\n local level = (t.vol.cur - t.vol.min) / (t.vol.max - t.vol.min)\n if t.mute then\n return \"%{F#e03838}\" .. mk_gauge(level, '×', '—') .. \"%{F-}\"\n else\n return \"%{F#718ba6}\" .. mk_gauge(level, '●', '○') .. \"%{F-}\"\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/alsa.lua",
"content": "widget = {\n plugin = 'alsa',\n cb = function(t)\n if t.mute then\n return \"%{F#e03838}\" .. '[mute]' .. \"%{F-}\"\n else\n local percent = (t.vol.cur - t.vol.min) / (t.vol.max - t.vol.min) * 100\n local body = string.format('[%3d%%]', math.floor(0.5 + percent))\n return \"%{F#718ba6}\" .. luastatus.barlib.escape(body) .. \"%{F-}\"\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/backlight.lua",
"content": "-- Note that this widget only shows backlight level when it changes.\nwidget = luastatus.require_plugin('backlight-linux').widget{\n cb = function(level)\n if level ~= nil then\n local body = string.format('*%3.0f%%', level * 100)\n return luastatus.barlib.escape(body)\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/battery.lua",
"content": "widget = luastatus.require_plugin('battery-linux').widget{\n period = 2,\n cb = function(t)\n local symbol = ({\n Charging = '↑',\n Discharging = '↓',\n })[t.status] or ' '\n local rem_seg\n if t.rem_time then\n local h = math.floor(t.rem_time)\n local m = math.floor(60 * (t.rem_time - h))\n rem_seg = \"%{F#595959}\" .. string.format('%2dh %02dm', h, m) .. \"%{F-}\"\n end\n return {\n luastatus.barlib.escape(string.format('%3d%%%s', t.capacity, symbol)),\n rem_seg,\n }\n end,\n}\n"
},
{
"path": "examples/lemonbar/bluetooth.lua",
"content": "-- A widget to display currently connected and paired bluetooth devices.\n-- To change output format modify reprint_devices function.\n\nif not luastatus.execute('command -v bluetoothctl >/dev/null') then\n error('\"bluetoothctl\" command, which is required for this widget to work, was not found')\nend\n\nlocal separator = \" \"\n\n-- Object paths look like /org/bluez/hci0/dev_XX_XX_XX_XX_XX_XX/somethingsomething\nlocal function get_device_mac_address(device_object_path)\n return device_object_path:gsub(\"/.*/dev_\", \"\"):gsub(\"/.*\", \"\"):gsub(\"_\", \":\")\nend\n\n-- For reference bluetoothctl devices output looks like that:\n-- Device XX:XX:XX:XX:XX:XX JBL T450BT\n-- Device YY:YY:YY:YY:YY:YY Redmi 8\n--\n-- Function returns mac addresses of all devices.\nlocal function get_devices()\n local devices = {}\n local handle = io.popen(string.format(\"bluetoothctl devices\"))\n for line in handle:lines() do\n local match = string.match(line, \"Device ([%x:]+)\")\n if match then\n table.insert(devices, match)\n end\n end\n handle:close()\n return devices\nend\n\n-- For reference bluetoothctl info output looks like that:\n-- Device XX:XX:XX:XX:XX:XX (public)\n-- Name: JBL T450BT\n-- Alias: JBL T450BT\n-- Class: 0xFFFFFFFF\n-- Icon: audio-card\n-- Paired: yes\n-- Trusted: yes\n-- Blocked: no\n-- Connected: yes\n-- LegacyPairing: no\n-- UUID: Headset (xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx)\n-- ...\n-- UUID: Handsfree (xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx)\n--\n-- Given this input function returns a following table:\n-- [alias] string JBL T450BT\n-- [blocked] boolean false\n-- [class] string 0x00240404\n-- [connected] boolean true\n-- [icon] string audio\n-- [legacypairing] boolean false\n-- [name] string JBL T450BT\n-- [paired] boolean true\n-- [trusted] boolean true\nlocal function get_device_info(mac_address)\n if mac_address == nil then\n mac_address = \"\"\n end\n\n assert(string.match(mac_address, '^[%x:]*$') ~= nil)\n\n local device_info = {}\n local handle = io.popen(string.format(\"bluetoothctl info %s\", mac_address))\n for line in handle:lines() do\n local key, value = string.match(line, \"(%w+): (.*)\")\n -- Filter junk\n if key ~= \"UUID\" and key ~= nil and value ~= nil then\n key = string.lower(key)\n if key ~= \"name\" and key ~= \"alias\" and key ~= \"icon\" then\n if value == \"yes\" then\n value = true\n end\n if value == \"no\" then\n value = false\n end\n end\n device_info[key] = value\n end\n end\n handle:close()\n return device_info\nend\n\nlocal devices = {}\n\nlocal function reprint_devices()\n local t = {}\n for mac_address, device in pairs(devices) do\n table.insert(t, string.format(\"%s(%s)\", device[\"name\"], mac_address))\n end\n return table.concat(t, separator)\nend\n\nwidget = {\n plugin = \"dbus\",\n opts = {\n greet = true,\n -- https://git.kernel.org/pub/scm/bluetooth/bluez.git/tree/doc/device-api.txt\n signals = {\n {\n sender = \"org.bluez\",\n interface = \"org.freedesktop.DBus.Properties\",\n signal = \"PropertiesChanged\",\n arg0 = \"org.bluez.Device1\",\n bus = \"system\"\n }\n }\n },\n cb = function(t)\n if t.what == \"hello\" then\n local mac_addresses = get_devices()\n for _, mac_address in ipairs(mac_addresses) do\n local device = get_device_info(mac_address)\n if device[\"connected\"] and device[\"paired\"] then\n devices[mac_address] = device\n end\n end\n elseif t.what == \"signal\" then\n -- For reference message from dbus looks like that:\n -- table\n -- [1] string org.bluez.Device1\n -- [2] table\n -- [2] [1] table\n -- [2] [1] [1] string SomethingSomething\n -- [2] [1] [2] boolean false\n -- [2] [2] table\n -- [2] [2] [1] string Connected\n -- [2] [2] [2] boolean true\n -- [3] table\n if t.signal == \"PropertiesChanged\" then\n for _, message in pairs(t.parameters[2]) do\n if message[1] == \"Connected\" or message[1] == \"Paired\" then\n local mac_address = get_device_mac_address(t.object_path)\n if message[2] then\n local device = get_device_info(mac_address)\n if device[\"paired\"] then\n devices[mac_address] = device\n end\n else\n devices[mac_address] = nil\n end\n end\n end\n end\n end\n return luastatus.barlib.escape(reprint_devices())\n end\n}\n"
},
{
"path": "examples/lemonbar/btc-price.lua",
"content": "-- Bitcoin price widget.\n-- Updates on click and every 5 minutes.\n\nlocal custom_sleep_amt = nil\n\nlocal function check_error(t)\n if t.error then\n -- Low-level libcurl error\n return t.error\n end\n if t.status < 200 or t.status > 299 then\n -- Bad HTTP status\n return string.format('HTTP status %d', t.status)\n end\n -- Everything's OK\n return nil\nend\n\nlocal function stylize(styles, fmt, ...)\n local pos_args = {...}\n local res, _ = fmt:gsub('([@%%])([0-9])', function(sigil, digit)\n local i = tonumber(digit)\n if sigil == '@' then\n if i == 0 then\n return '%{F-}'\n end\n return styles[i]\n else\n assert(i ~= 0)\n return pos_args[i]\n end\n end)\n return res\nend\n\nwidget = {\n plugin = 'web',\n opts = {\n planner = function()\n while true do\n coroutine.yield({action = 'request', params = {\n url = 'https://api.binance.com/api/v3/ticker/price?symbol=BTCUSDT',\n timeout = 5,\n }})\n local period = custom_sleep_amt or (5 * 60)\n custom_sleep_amt = nil\n coroutine.yield({action = 'sleep', period = period})\n end\n end,\n make_self_pipe = true,\n },\n cb = function(t)\n local text\n local err_msg = check_error(t)\n if err_msg then\n print(string.format('WARNING: luastatus: btc-price widget: %s'), err_msg)\n text = '......'\n custom_sleep_amt = 5\n else\n local obj = assert(luastatus.plugin.json_decode(t.body))\n text = obj.price:match('[^.]+')\n end\n return stylize(\n {'%{F#586A4B}', '%{F#C0863F}'},\n '@1[@2$@1%1]@0',\n luastatus.barlib.escape(text)\n )\n end,\n event = function(t)\n if t.button == 1 then\n luastatus.plugin.wake_up()\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/cpu-freq.lua",
"content": "local VBLOCKS = {'▂', '▃', '▄', '▅', '▆', '▇', '█'}\n\nlocal function make_color(ratio)\n local red = math.floor(0.5 + 255 * ratio)\n return string.format('#%02x%02x00', red, 255 - red)\nend\n\nlocal function make_chunk(entry)\n local num = entry.cur - entry.min\n local denom = entry.max - entry.min\n\n local ratio\n if denom ~= 0 then\n ratio = num / denom\n else\n -- If max_freq == min_freq, set ratio to zero.\n ratio = 0\n end\n\n local vblock_idx = math.min(\n 1 + math.floor(0.5 + ratio * #VBLOCKS),\n #VBLOCKS)\n\n return '%{F' .. make_color(ratio) .. '}' .. VBLOCKS[vblock_idx]\nend\n\nlocal plugin_data = {}\n\nlocal plugin_params = {\n timer_opts = {\n period = 2,\n },\n cb = function(t)\n if t == nil then\n return nil\n end\n local r = {}\n for _, entry in ipairs(t) do\n r[#r + 1] = make_chunk(entry)\n end\n return table.concat(r) .. '%{F-}'\n end,\n}\n\nwidget = luastatus.require_plugin('cpu-freq-linux').widget(plugin_params, plugin_data)\n"
},
{
"path": "examples/lemonbar/cpu-temperature.lua",
"content": "local COOL_TEMP = 50\nlocal HEAT_TEMP = 75\nlocal function getcolor(temp)\n local t = (temp - COOL_TEMP) / (HEAT_TEMP - COOL_TEMP)\n if t < 0 then t = 0 end\n if t > 1 then t = 1 end\n local red = math.floor(t * 255 + 0.5)\n return string.format('#%02x%02x00', red, 255 - red)\nend\n\nlocal plugin_data = {}\n\nlocal plugin_params = {\n timer_opts = {\n period = 2,\n },\n cb = function(t)\n if not t then\n return nil\n end\n local r = {}\n for _, entry in ipairs(t) do\n local temp = entry.value\n local body = string.format('%.0f°', temp)\n r[#r + 1] = '%{F' .. getcolor(temp) .. '}' .. body .. '%{F-}'\n end\n return r\n end,\n}\n\nwidget = luastatus.require_plugin('cpu-temp-linux').widget(plugin_params, plugin_data)\n"
},
{
"path": "examples/lemonbar/cpu-usage.lua",
"content": "widget = luastatus.require_plugin('cpu-usage-linux').widget{\n cb = function(usage)\n if usage ~= nil then\n local body = string.format('[%5.1f%%]', usage * 100)\n return luastatus.barlib.escape(body)\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/disk-io.lua",
"content": "local function stylize(styles, fmt, ...)\n local pos_args = {...}\n local res, _ = fmt:gsub('([@%%])([0-9])', function(sigil, digit)\n local i = tonumber(digit)\n if sigil == '@' then\n if i == 0 then\n return '%{F-}'\n end\n return styles[i]\n else\n assert(i ~= 0)\n return pos_args[i]\n end\n end)\n return res\nend\n\nwidget = luastatus.require_plugin('disk-io-linux').widget{\n period = 2,\n cb = function(t)\n -- Sort by name for determinism\n table.sort(t, function(a, b) return a.name < b.name end)\n\n local segments = {}\n for _, entry in ipairs(t) do\n local R = entry.read_bytes\n local W = entry.written_bytes\n if (R >= 0) and (W >= 0) then\n segments[#segments + 1] = stylize(\n {'%{F#DCA3A3}', '%{F#72D5A3}'},\n '%1: @1%2k↓ @2%3k↑@0',\n luastatus.barlib.escape(entry.name),\n string.format('%.0f', R / 1024),\n string.format('%.0f', W / 1024)\n )\n end\n end\n return segments\n end,\n}\n"
},
{
"path": "examples/lemonbar/file-contents.lua",
"content": "widget = luastatus.require_plugin('file-contents-linux').widget{\n filename = os.getenv('HOME') .. '/status',\n cb = function(f)\n -- show the first line of the file\n return luastatus.barlib.escape(f:read('*line'))\n end,\n}\n"
},
{
"path": "examples/lemonbar/fs.lua",
"content": "local function sorted_keys(tbl)\n local keys = {}\n for k, _ in pairs(tbl) do\n keys[#keys + 1] = k\n end\n table.sort(keys)\n return keys\nend\n\nwidget = {\n plugin = 'fs',\n opts = {\n paths = {'/', '/home'},\n },\n cb = function(t)\n -- Sort for determinism\n local keys = sorted_keys(t)\n\n local res = {}\n for _, k in ipairs(keys) do\n local v = t[k]\n local body = string.format('%s %.0f%%', k, (1 - v.avail / v.total) * 100)\n table.insert(res, luastatus.barlib.escape(body))\n end\n return res\n end,\n}\n"
},
{
"path": "examples/lemonbar/gmail.lua",
"content": "--[[\n-- Expects 'credentials.lua' to be present in the current directory; it may contain, e.g.,\n-- return {\n-- gmail = {\n-- login = 'john.smith',\n-- password = 'qwerty'\n-- }\n-- }\n--]]\nlocal credentials = require 'credentials'\n\nwidget = luastatus.require_plugin('imap').widget{\n verbose = false,\n host = 'imap.gmail.com',\n port = 993,\n mailbox = 'Inbox',\n use_ssl = true,\n timeout = 2 * 60,\n handshake_timeout = 10,\n login = credentials.gmail.login,\n password = credentials.gmail.password,\n error_sleep_period = 60,\n cb = function(unseen)\n if unseen == nil then\n return nil\n elseif unseen == 0 then\n return \"%{F#595959}\" .. '[-]' .. \"%{F-}\"\n else\n return string.format('[%d unseen]', unseen)\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/ip.lua",
"content": "widget = {\n plugin = 'network-linux',\n cb = function(t)\n local r = {}\n for iface, params in pairs(t) do\n local iface_clean = iface\n local addr = params.ipv6 or params.ipv4\n if addr then\n -- strip out \"label\" from the interface name\n iface_clean = iface_clean:gsub(':.*', '')\n -- strip out \"zone index\" from the address\n addr = addr:gsub('%%.*', '')\n\n if iface_clean ~= 'lo' then\n local body = string.format('[%s: %s]', iface_clean, addr)\n r[#r + 1] = \"%{F#709080}\" .. body .. \"%{F-}\"\n end\n end\n end\n return r\n end,\n}\n"
},
{
"path": "examples/lemonbar/loadavg-linux.lua",
"content": "local function get_ncpus()\n local f = assert(io.open('/proc/cpuinfo', 'r'))\n local n = 0\n for line in f:lines() do\n if line:match('^processor\\t') then\n n = n + 1\n end\n end\n f:close()\n return n\nend\n\nlocal function avg2str(x)\n assert(x >= 0)\n if x >= 1000 then\n return '↑↑↑'\n end\n return string.format('%3.0f', x)\nend\n\nwidget = {\n plugin = 'timer',\n opts = {\n period = 2,\n },\n cb = function(_)\n local f = io.open('/proc/loadavg', 'r')\n local avg1, avg5, avg15 = f:read('*number', '*number', '*number')\n f:close()\n\n assert(avg1 and avg5 and avg15)\n\n local ncpus = get_ncpus()\n\n return luastatus.barlib.escape(string.format(\n '[%s%% %s%% %s%%]',\n avg2str(avg1 / ncpus * 100),\n avg2str(avg5 / ncpus * 100),\n avg2str(avg15 / ncpus * 100)\n ))\n end,\n}\n"
},
{
"path": "examples/lemonbar/media-player-mpris.lua",
"content": "local PLAYER = 'clementine'\n\nlocal PLAYBACK_STATUS_ICONS = {\n Playing = '▶',\n Paused = '◆',\n Stopped = '—',\n}\n\nlocal COLOR_BRIGHT = '#60b177'\nlocal COLOR_DIM = '#9fb15d'\n\nlocal function fetch_metadata_field(t, key)\n if t.Metadata then\n return t.Metadata[key]\n else\n return nil\n end\nend\n\nlocal function do_call_method(method_name)\n local is_ok, err_msg = luastatus.plugin.call_method_str({\n bus = 'session',\n dest = 'org.mpris.MediaPlayer2.' .. PLAYER,\n object_path = '/org/mpris/MediaPlayer2',\n interface = 'org.mpris.MediaPlayer2.Player',\n method = method_name,\n -- no arg_str\n })\n if not is_ok then\n print(string.format(\n 'WARNING: luastatus: mpris widget: cannot call method \"%s\": %s',\n method_name, err_msg\n ))\n end\nend\n\nlocal function make_segment(text, color, event_text)\n local color_begin = '%{F' .. color .. '}'\n local color_end = '%{F-}'\n local res = color_begin .. luastatus.barlib.escape(text) .. color_end\n if event_text then\n local a_begin = '%{A:' .. event_text .. ':}'\n local a_end = '%{A}'\n res = a_begin .. res .. a_end\n end\n return res\nend\n\nwidget = luastatus.require_plugin('mpris').widget{\n player = PLAYER,\n cb = function(t)\n if not t.PlaybackStatus then\n return nil\n end\n\n local title = fetch_metadata_field(t, 'xesam:title')\n title = title or ''\n\n title = luastatus.libwidechar.make_valid_and_printable(title, '?')\n title = luastatus.libwidechar.truncate_to_width(title, 40)\n title = title or ''\n\n local icon = PLAYBACK_STATUS_ICONS[t.PlaybackStatus] or '?'\n\n local chunks = {\n make_segment('←', COLOR_DIM, 'prev'),\n make_segment(icon, COLOR_BRIGHT, 'status'),\n make_segment('→', COLOR_DIM, 'next'),\n }\n\n if title ~= '' then\n table.insert(chunks, make_segment(title, COLOR_BRIGHT, nil))\n end\n\n return table.concat(chunks, ' ')\n end,\n event = function(t)\n if t == 'status' then\n do_call_method('PlayPause')\n elseif t == 'prev' then\n do_call_method('Previous')\n elseif t == 'next' then\n do_call_method('Next')\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/mem-usage.lua",
"content": "widget = luastatus.require_plugin('mem-usage-linux').widget{\n timer_opts = {period = 2},\n cb = function(t)\n local used_kb = t.total.value - t.avail.value\n local body = string.format('[%3.2f GiB]', used_kb / 1024 / 1024)\n return \"%{F#af8ec3}\" .. body .. \"%{F-}\"\n end,\n}\n"
},
{
"path": "examples/lemonbar/mpd-progressbar.lua",
"content": "local text, time, total, is_playing = nil, nil, nil, false\nlocal timeout = 2\nlocal titlewidth = 40\n\nlocal function W_split(str, boundary)\n local head, _ = luastatus.libwidechar.truncate_to_width(str, boundary)\n assert(head)\n local tail = str:sub(1 + #head)\n return head, tail\nend\n\nwidget = {\n plugin = 'mpd',\n opts = {\n timeout = timeout,\n },\n cb = function(t)\n if t.what == 'update' then\n -- build title\n local title\n if t.song.Title then\n title = t.song.Title\n if t.song.Artist then\n title = t.song.Artist .. ': ' .. title\n end\n else\n title = t.song.file or ''\n end\n\n title = luastatus.libwidechar.make_valid(title, '?')\n\n if assert(luastatus.libwidechar.width(title)) > titlewidth then\n title = luastatus.libwidechar.truncate_to_width(title, titlewidth - 1) .. '…'\n end\n\n -- build text\n text = string.format('%s %s',\n ({play = '▶', pause = '‖', stop = '■'})[t.status.state],\n title\n )\n\n -- update other globals\n if t.status.time then\n time, total = t.status.time:match('(%d+):(%d+)')\n time, total = tonumber(time), tonumber(total)\n else\n time, total = nil, nil\n end\n is_playing = t.status.state == 'play'\n\n elseif t.what == 'timeout' then\n if is_playing then\n time = math.min(time + timeout, total)\n end\n\n else\n -- 'connecting' or 'error'\n return {full_text = t.what}\n end\n\n -- calc progress\n local width = assert(luastatus.libwidechar.width(text))\n -- 'time' and 'total' can be nil here, we check for 'total' only\n local ulpos = (total and total ~= 0)\n and math.floor(width / total * time + 0.5)\n or 0\n\n local head, tail = W_split(text, ulpos)\n\n return '%{u+}' .. luastatus.barlib.escape(head) ..\n '%{u-}' .. luastatus.barlib.escape(tail)\n end\n}\n"
},
{
"path": "examples/lemonbar/network-rate.lua",
"content": "local function stylize(styles, fmt, ...)\n local pos_args = {...}\n local res, _ = fmt:gsub('([@%%])([0-9])', function(sigil, digit)\n local i = tonumber(digit)\n if sigil == '@' then\n if i == 0 then\n return '%{F-}'\n end\n return styles[i]\n else\n assert(i ~= 0)\n return pos_args[i]\n end\n end)\n return res\nend\n\nlocal function make_segment(iface, R, S)\n return stylize(\n {'%{F#DCA3A3}', '%{F#72D5A3}'},\n '[%1 @1%2k @2%3k@0]',\n luastatus.barlib.escape(iface),\n string.format('%.0f↓', R / 1000),\n string.format('%.0f↑', S / 1000)\n )\nend\n\nwidget = luastatus.require_plugin('network-rate-linux').widget{\n iface_except = 'lo',\n period = 3,\n in_array_form = true,\n cb = function(t)\n local r = {}\n for _, PQ in ipairs(t) do\n local iface = PQ[1]\n local R, S = PQ[2].R, PQ[2].S\n r[#r + 1] = make_segment(iface, R, S)\n end\n return r\n end,\n}\n"
},
{
"path": "examples/lemonbar/pulse-gauge.lua",
"content": "local GAUGE_NCHARS = 10\n\nlocal function mk_gauge(level, full, empty)\n local nfull = math.floor(level * GAUGE_NCHARS + 0.5)\n return full:rep(nfull) .. empty:rep(GAUGE_NCHARS - nfull)\nend\n\nwidget = {\n plugin = 'pulse',\n cb = function(t)\n local level = t.cur / t.norm\n if t.mute then\n return \"%{F#e03838}\" .. mk_gauge(level, '×', '—') .. \"%{F-}\"\n else\n return \"%{F#718ba6}\" .. mk_gauge(level, '●', '○') .. \"%{F-}\"\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/pulse.lua",
"content": "widget = {\n plugin = 'pulse',\n cb = function(t)\n if t.mute then\n return \"%{F#e03838}\" .. '[mute]' .. \"%{F-}\"\n end\n local percent = (t.cur / t.norm) * 100\n local body = string.format('[%3d%%]', math.floor(0.5 + percent))\n return \"%{F#718ba6}\" .. luastatus.barlib.escape(body) .. \"%{F-}\"\n end,\n}\n"
},
{
"path": "examples/lemonbar/systemd-unit.lua",
"content": "local COLORS = {\n pink = '#ec93d3',\n green = '#60b48a',\n yellow = '#dfaf8f',\n red = '#dca3a3',\n dim = '#909090',\n}\n\nlocal function make_output(text, color_name)\n local color_begin = '%{F' .. assert(COLORS[color_name]) .. '}'\n local color_end = '%{F-}'\n return string.format('[Tor: %s%s%s]', color_begin, text, color_end)\nend\n\nwidget = luastatus.require_plugin('systemd-unit').widget{\n unit_name = 'tor.service',\n cb = function(state)\n if state == 'active' then\n return make_output('✓', 'green')\n elseif state == 'reloading' or state == 'activating' then\n return make_output('•', 'yellow')\n elseif state == 'inactive' or state == 'deactivating' then\n return make_output('-', 'dim')\n elseif state == 'failed' then\n return make_output('x', 'red')\n else\n return make_output('?', 'pink')\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/time-battery-combined.lua",
"content": "local function get_bat_seg(t)\n if not t then\n return '[--×--]'\n end\n if t.status == 'Unknown' or t.status == 'Full' or t.status == 'Not charging' then\n return nil\n end\n local sym, color = '?', '#dcdcdc'\n if t.status == 'Discharging' then\n sym = '↓'\n color = '#dca3a3'\n elseif t.status == 'Charging' then\n sym = '↑'\n color = '#60b48a'\n end\n local body = string.format('[%3d%%%s]', t.capacity, sym)\n return '%{F' .. color .. '}' .. luastatus.barlib.escape(body) .. '%{F-}'\nend\n\nwidget = luastatus.require_plugin('battery-linux').widget{\n period = 2,\n cb = function(t)\n return {\n \"%{F#dc8cc3}\" .. os.date('[%H:%M]') .. \"%{F-}\",\n get_bat_seg(t),\n }\n end,\n}\n"
},
{
"path": "examples/lemonbar/time-date.lua",
"content": "local months = {\n 'января',\n 'февраля',\n 'марта',\n 'апреля',\n 'мая',\n 'июня',\n 'июля',\n 'августа',\n 'сентября',\n 'октября',\n 'ноября',\n 'декабря',\n}\nwidget = {\n plugin = 'timer',\n cb = function()\n local d = os.date('*t')\n return {\n string.format('%d %s', d.day, months[d.month]),\n string.format('%02d:%02d', d.hour, d.min),\n }\n end,\n}\n"
},
{
"path": "examples/lemonbar/tor.lua",
"content": "-- Trivial but somewhat useful widget showing if the Tor daemon is running.\n\nwidget = {\n plugin = 'timer',\n opts = {period = 5},\n cb = function()\n local f = io.open('/var/run/tor/tor.pid', 'r')\n if f then\n f:close()\n return '[TOR]'\n else\n return nil\n end\n end,\n}\n"
},
{
"path": "examples/lemonbar/uptime-linux.lua",
"content": "local SUFFIXES_AND_DIVISORS = {\n {'m', 60},\n {'h', 60},\n {'d', 24},\n {'W', 7},\n {'M', 30},\n {'Y', 365 / 30},\n}\n\nlocal function seconds_to_human_readable_time(sec)\n local prev_suffix = 's'\n local found_suffix\n for _, PQ in ipairs(SUFFIXES_AND_DIVISORS) do\n local suffix = PQ[1]\n local divisor = PQ[2]\n if sec < divisor then\n found_suffix = prev_suffix\n break\n end\n sec = sec / divisor\n prev_suffix = suffix\n end\n if not found_suffix then\n found_suffix = prev_suffix\n end\n return string.format('%.0f%s', sec, found_suffix)\nend\n\nwidget = {\n plugin = 'timer',\n opts = {\n period = 2,\n },\n cb = function(_)\n local f = io.open('/proc/uptime', 'r')\n local sec, _ = f:read('*number', '*number')\n f:close()\n\n assert(sec)\n\n return string.format(\n '[uptime: %s]',\n seconds_to_human_readable_time(sec)\n )\n end,\n}\n"
},
{
"path": "examples/lemonbar/weather-rus.lua",
"content": "local LOCATION_NAME = 'Moscow'\n\nlocal TIMEOUT = 10\n\nlocal INTERVAL = 9\nlocal SLEEP_AFTER_INITIAL = 5\n\nlocal coordinates = nil\n\nlocal function planner()\n -- Get coordinates of LOCATION_NAME.\n while true do\n -- Form the URL\n local url = string.format(\n 'https://geocoding-api.open-meteo.com/v1/search?name=%s&count=1',\n luastatus.plugin.urlencode(LOCATION_NAME)\n )\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = url,\n timeout = TIMEOUT,\n }})\n -- If successful, break\n if coordinates ~= nil then\n break\n end\n -- Failure; sleep and retry\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\n\n -- Coordinates fetched, sleep for SLEEP_AFTER_INITIAL.\n coroutine.yield({action = 'sleep', period = SLEEP_AFTER_INITIAL})\n\n -- Form the weather URL\n local weather_url = string.format(\n 'https://api.open-meteo.com/v1/forecast' ..\n '?latitude=%f' ..\n '&longitude=%f' ..\n '¤t_weather=true',\n coordinates.latitude,\n coordinates.longitude\n )\n\n -- Fetch weather, periodically\n while true do\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = weather_url,\n timeout = TIMEOUT,\n }})\n -- Sleep and repeat\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\nend\n\nlocal function check_error(t)\n if t.error then\n -- Low-level libcurl error\n return t.error\n end\n if t.status < 200 or t.status > 299 then\n -- Bad HTTP status\n return string.format('HTTP status %d', t.status)\n end\n -- Everything's OK\n return nil\nend\n\nlocal WEATHER_CODES = {\n [0] = 'Ясно',\n\n [1] = 'Преимущественно ясно',\n [2] = 'Переменная облачность',\n [3] = 'Пасмурно',\n\n [45] = 'Туман',\n [48] = 'Осаждение инея и тумана',\n\n [51] = 'Изморось, лёгкая',\n [53] = 'Изморось, умеренная',\n [55] = 'Изморось, сильная',\n\n [56] = 'Ледяная изморось, лёгкая',\n [57] = 'Ледяная изморось, сильная',\n\n [61] = 'Дождь, лёгкий',\n [63] = 'Дождь, умеренный',\n [65] = 'Дождь, сильный',\n\n [66] = 'Град, лёгкий',\n [67] = 'Град, сильный',\n\n [71] = 'Снегопад, лёгкий',\n [73] = 'Снегопад, умеренный',\n [75] = 'Снегопад, сильный',\n\n [77] = 'Крупинки снега',\n\n [80] = 'Ливень, лёгкий',\n [81] = 'Ливень, умеренный',\n [82] = 'Ливень, сильный',\n\n [85] = 'Снеговые осадки, лёгкие',\n [87] = 'Снеговые осадки, сильные',\n\n [95] = 'Гроза',\n [96] = 'Гроза, небольшой град',\n [99] = 'Гроза, сильный град',\n}\n\nlocal function fmt_weather(temp, _, _, weather_code)\n local segment1 = string.format('%.0f°', temp)\n -- segment2 is either string or nil\n local segment2 = WEATHER_CODES[weather_code]\n return {segment1, segment2}\nend\n\nwidget = {\n plugin = 'web',\n opts = {\n planner = planner,\n },\n cb = function(t)\n local err_msg = check_error(t)\n if err_msg then\n print(string.format('WARNING: luastatus: weather widget: %s'), err_msg)\n return '%{F#e03838}...%{F-}'\n end\n\n if coordinates == nil then\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local result = assert(obj.results[1])\n local latitude = assert(result.latitude)\n local longitude = assert(result.longitude)\n coordinates = {latitude = latitude, longitude = longitude}\n return '%{F#709080}...%{F-}'\n end\n\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local cw = assert(obj.current_weather)\n\n local temp = assert(cw.temperature)\n local wind_speed = assert(cw.windspeed)\n -- is_day is an integer, either 0 or 1\n local is_day = assert(cw.is_day) ~= 0\n local weather_code = assert(cw.weathercode)\n\n return fmt_weather(temp, wind_speed, is_day, weather_code)\n end,\n}\n"
},
{
"path": "examples/lemonbar/weather.lua",
"content": "local LOCATION_NAME = 'Moscow'\n\nlocal TIMEOUT = 10\n\nlocal INTERVAL = 9\nlocal SLEEP_AFTER_INITIAL = 5\n\nlocal coordinates = nil\n\nlocal function planner()\n -- Get coordinates of LOCATION_NAME.\n while true do\n -- Form the URL\n local url = string.format(\n 'https://geocoding-api.open-meteo.com/v1/search?name=%s&count=1',\n luastatus.plugin.urlencode(LOCATION_NAME)\n )\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = url,\n timeout = TIMEOUT,\n }})\n -- If successful, break\n if coordinates ~= nil then\n break\n end\n -- Failure; sleep and retry\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\n\n -- Coordinates fetched, sleep for SLEEP_AFTER_INITIAL.\n coroutine.yield({action = 'sleep', period = SLEEP_AFTER_INITIAL})\n\n -- Form the weather URL\n local weather_url = string.format(\n 'https://api.open-meteo.com/v1/forecast' ..\n '?latitude=%f' ..\n '&longitude=%f' ..\n '¤t_weather=true',\n coordinates.latitude,\n coordinates.longitude\n )\n\n -- Fetch weather, periodically\n while true do\n -- Make request\n coroutine.yield({action = 'request', params = {\n url = weather_url,\n timeout = TIMEOUT,\n }})\n -- Sleep and repeat\n coroutine.yield({action = 'sleep', period = INTERVAL})\n end\nend\n\nlocal function check_error(t)\n if t.error then\n -- Low-level libcurl error\n return t.error\n end\n if t.status < 200 or t.status > 299 then\n -- Bad HTTP status\n return string.format('HTTP status %d', t.status)\n end\n -- Everything's OK\n return nil\nend\n\nlocal WEATHER_CODES = {\n [0] = 'Clear sky',\n\n [1] = 'Mainly clear',\n [2] = 'Partly cloudy',\n [3] = 'Overcast',\n\n [45] = 'Fog',\n [48] = 'Depositing rime fog',\n\n [51] = 'Drizzle, light',\n [53] = 'Drizzle, moderate',\n [55] = 'Drizzle, dense',\n\n [56] = 'Freezing drizzle, light',\n [57] = 'Freezing drizzle, dense',\n\n [61] = 'Rain, slight',\n [63] = 'Rain, moderate',\n [65] = 'Rain, heavy',\n\n [66] = 'Freezing rain, light',\n [67] = 'Freezing rain, heavy',\n\n [71] = 'Snow fall, slight',\n [73] = 'Snow fall, moderate',\n [75] = 'Snow fall, heavy',\n\n [77] = 'Snow grains',\n\n [80] = 'Rain shower, slight',\n [81] = 'Rain shower, moderate',\n [82] = 'Rain shower, violent',\n\n [85] = 'Snow showers, slight',\n [87] = 'Snow showers, heavy',\n\n [95] = 'Thunderstorm',\n [96] = 'Thunderstorm, slight hail',\n [99] = 'Thunderstorm, heavy hail',\n}\n\nlocal function fmt_weather(temp, _, _, weather_code)\n local segment1 = string.format('%.0f°', temp)\n -- segment2 is either string or nil\n local segment2 = WEATHER_CODES[weather_code]\n return {segment1, segment2}\nend\n\nwidget = {\n plugin = 'web',\n opts = {\n planner = planner,\n },\n cb = function(t)\n local err_msg = check_error(t)\n if err_msg then\n print(string.format('WARNING: luastatus: weather widget: %s'), err_msg)\n return '%{F#e03838}...%{F-}'\n end\n\n if coordinates == nil then\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local result = assert(obj.results[1])\n local latitude = assert(result.latitude)\n local longitude = assert(result.longitude)\n coordinates = {latitude = latitude, longitude = longitude}\n return '%{F#709080}...%{F-}'\n end\n\n local obj = assert(luastatus.plugin.json_decode(t.body))\n local cw = assert(obj.current_weather)\n\n local temp = assert(cw.temperature)\n local wind_speed = assert(cw.windspeed)\n -- is_day is an integer, either 0 or 1\n local is_day = assert(cw.is_day) ~= 0\n local weather_code = assert(cw.weathercode)\n\n return fmt_weather(temp, wind_speed, is_day, weather_code)\n end,\n}\n"
},
{
"path": "examples/lemonbar/wireless.lua",
"content": "local ORIGIN = '•' -- '●' '○' '◌' '◍' '⬤'\nlocal RAY = '}' -- '›' '〉' '❭' '❯' '❱' '⟩' '⟫' '》'\nlocal MIN_DBM, MAX_DBM = -90, -20\nlocal NGAUGE = 5\nlocal COLOR_DIM = '#709080'\n\nlocal function round(x)\n return math.floor(x + 0.5)\nend\n\nlocal function colorize_as_dim(s)\n s = luastatus.barlib.escape(s)\n return '%{F' .. COLOR_DIM .. '}' .. s .. '%{F-}'\nend\n\nlocal function make_wifi_gauge(dbm)\n if dbm < MIN_DBM then dbm = MIN_DBM end\n if dbm > MAX_DBM then dbm = MAX_DBM end\n local nbright = round(NGAUGE * (1 - 0.7 * (MAX_DBM - dbm) / (MAX_DBM - MIN_DBM)))\n return ORIGIN .. RAY:rep(nbright) .. colorize_as_dim(RAY:rep(NGAUGE - nbright))\nend\n\nlocal function sorted_keys(tbl)\n local keys = {}\n for k, _ in pairs(tbl) do\n keys[#keys + 1] = k\n end\n table.sort(keys)\n return keys\nend\n\nwidget = {\n plugin = 'network-linux',\n opts = {\n wireless = true,\n timeout = 10,\n },\n cb = function(t)\n if not t then\n return nil\n end\n\n -- Sort for determinism\n local ifaces = sorted_keys(t)\n\n local r = {}\n for _, iface in ipairs(ifaces) do\n local params = t[iface]\n if params.wireless then\n if params.wireless.ssid then\n r[#r + 1] = colorize_as_dim(params.wireless.ssid)\n end\n if params.wireless.signal_dbm then\n r[#r + 1] = make_wifi_gauge(params.wireless.signal_dbm)\n end\n elseif iface ~= 'lo' and (params.ipv4 or params.ipv6) then\n r[#r + 1] = colorize_as_dim(string.format('[%s]', iface))\n end\n end\n return r\n end,\n}\n"
},
{
"path": "examples/lemonbar/xkb.lua",
"content": "widget = {\n plugin = 'xkb',\n cb = function(t)\n if t.name then\n local base_layout = t.name:match('[^(]+')\n if base_layout == 'gb' or base_layout == 'us' then\n return \"%{F#9c9c9c}\" .. '[En]' .. \"%{F-}\"\n elseif base_layout == 'ru' then\n return \"%{F#eab93d}\" .. '[Ru]' .. \"%{F-}\"\n else\n local body = string.format('[%s]', base_layout)\n return luastatus.barlib.escape(body)\n end\n else\n return '[? ID ' .. t.id .. ']'\n end\n end,\n}\n"
},
{
"path": "fuzz_utils/do_fuzz_everything.sh",
"content": "#!/usr/bin/env bash\n\nset -e\n\nshopt -s nullglob\n\nif [[ -z \"$XXX_AFL_DIR\" ]]; then\n echo >&2 \"You must set the 'XXX_AFL_DIR' environment variable.\"\n exit 1\nfi\n\ncase \"$XXX_AFL_IS_PP\" in\n0)\n ;;\n1)\n ;;\n*)\n echo >&2 \"You must set 'XXX_AFL_IS_PP' environment variable to either 0 or 1.\"\n echo >&2 \"Set it to 0 if AFL is the original Google's version (not AFL++).\"\n echo >&2 \"Set it to 1 if AFL is actually AFL++.\"\n exit 1\n ;;\nesac\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\ncd ..\n\nfuzz_dirs=(\n plugins/*/fuzz*\n barlibs/*/fuzz*\n)\n\nif (( XXX_AFL_IS_PP )); then\n afl_cc=\"$XXX_AFL_DIR\"/afl-cc\nelse\n afl_cc=\"$XXX_AFL_DIR\"/afl-gcc\nfi\n\nfor d in \"${fuzz_dirs[@]}\"; do\n [[ -d \"$d\" ]] || continue\n\n \"$d\"/clear.sh\n\n CC=\"$afl_cc\" \"$d\"/build.sh\n if [[ -x \"$d\"/fuzz_all.sh ]]; then\n \"$d\"/fuzz_all.sh\n else\n \"$d\"/fuzz.sh\n fi\ndone\n"
},
{
"path": "fuzz_utils/find_interesting.sh",
"content": "#!/usr/bin/env bash\n\nset -e\n\nshopt -s nullglob\n\ncd -- \"$(dirname \"$(readlink \"$0\" || printf '%s\\n' \"$0\")\")\"\n\ncd ..\n\nis_dir_empty() {\n local -a files\n files=( \"$1\"/* \"$1\"/.* )\n (( \"${#files[@]}\" == 2 ))\n}\n\nsay() {\n printf '%s\\n' \"$*\" >&2\n}\n\nfuzz_dirs=(\n plugins/*/fuzz*\n barlibs/*/fuzz*\n)\n\nresults=()\n\nfor d1 in \"${fuzz_dirs[@]}\"; do\n [[ -d \"$d1\" ]] || continue\n\n for d2 in \"$d1\"/findgins*; do\n [[ -d \"$d2\" ]] || continue\n\n for d3 in \"$d2\"/crashes \"$d2\"/hangs; do\n [[ -d \"$d3\" ]] || continue\n\n if ! is_dir_empty \"$d3\"; then\n results+=(\"$d3\")\n fi\n done\n done\ndone\n\nif (( ${#results[@]} != 0 )); then\n say 'The following \"interesting\" directories are non-empty:'\n for res in \"${results[@]}\"; do\n say \" * $res\"\n done\n exit 1\nfi\n\nsay 'Everything is OK.'\nexit 0\n"
},
{
"path": "fuzz_utils/fuzz_utils.h",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef luastatus_fuzz_utils_h_\n#define luastatus_fuzz_utils_h_\n\n#include \n#include \n#include \n#include \n#include \n\n// At least for fuzzing, please use a reasonably modern GNU C-compatible compiler.\n\n#define FUZZ_UTILS_INHEADER \\\n static inline __attribute__((unused))\n\n#define FUZZ_UTILS_ATTR_WARN_UNUSED \\\n __attribute__((warn_unused_result))\n\n#define FUZZ_UTILS_OOM() \\\n do { \\\n fputs(\"fuzz_utils: out of memory.\\n\", stderr); \\\n abort(); \\\n } while (0)\n\ntypedef struct {\n char *data;\n size_t size;\n size_t capacity;\n} FuzzInput;\n\nFUZZ_UTILS_INHEADER FuzzInput fuzz_input_new_prealloc(size_t prealloc)\n{\n if (!prealloc) {\n return (FuzzInput) {0};\n }\n char *data = malloc(prealloc);\n if (!data) {\n FUZZ_UTILS_OOM();\n }\n return (FuzzInput) {\n .data = data,\n .size = 0,\n .capacity = prealloc,\n };\n}\n\nFUZZ_UTILS_INHEADER void fuzz_input__ensure1(FuzzInput *x)\n{\n if (x->size != x->capacity) {\n return;\n }\n\n if (x->capacity) {\n if (x->capacity > SIZE_MAX / 2) {\n goto oom;\n }\n x->capacity *= 2;\n } else {\n x->capacity = 1;\n }\n if (!(x->data = realloc(x->data, x->capacity))) {\n goto oom;\n }\n return;\n\noom:\n FUZZ_UTILS_OOM();\n}\n\nFUZZ_UTILS_INHEADER FUZZ_UTILS_ATTR_WARN_UNUSED\nint fuzz_input_read(int fd, FuzzInput *dst)\n{\n for (;;) {\n fuzz_input__ensure1(dst);\n ssize_t r = read(fd, dst->data + dst->size, dst->capacity - dst->size);\n if (r < 0) {\n return -1;\n } else if (r == 0) {\n return 0;\n }\n dst->size += r;\n }\n}\n\nFUZZ_UTILS_INHEADER void fuzz_input_free(FuzzInput x)\n{\n free(x.data);\n}\n\nFUZZ_UTILS_INHEADER void fuzz_utils_used(const char *ptr, size_t len)\n{\n // This is a compiler barrier: there's a contract between the compiler and\n // the user that the compiler doesn't try to guess what inline assembly does,\n // even if its body is empty.\n //\n // So after this, the compiler conservately thinks the span is used, because\n // the inline assembly might have dereferenced it and done something that has\n // side effects (e.g. made a system call \"write(1, ptr, len)\").\n __asm__ __volatile__ (\n \"\"\n :\n : \"r\"(ptr), \"r\"(len)\n : \"memory\"\n );\n}\n\n#endif\n"
},
{
"path": "fuzz_utils/gen_testcases/.gitignore",
"content": "__pycache__\n"
},
{
"path": "fuzz_utils/gen_testcases/__init__.py",
"content": "# Copyright (C) 2025 luastatus developers\n#\n# This file is part of luastatus.\n#\n# luastatus is free software: you can redistribute it and/or modify\n# it under the terms of the GNU Lesser General Public License as published by\n# the Free Software Foundation, either version 3 of the License, or\n# (at your option) any later version.\n#\n# luastatus is distributed in the hope that it will be useful,\n# but WITHOUT ANY WARRANTY; without even the implied warranty of\n# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n# GNU Lesser General Public License for more details.\n#\n# You should have received a copy of the GNU Lesser General Public License\n# along with luastatus. If not, see .\n"
},
{
"path": "fuzz_utils/gen_testcases/gen_testcases.py",
"content": "#!/usr/bin/env python3\n\n# Copyright (C) 2025 luastatus developers\n#\n# This file is part of luastatus.\n#\n# luastatus is free software: you can redistribute it and/or modify\n# it under the terms of the GNU Lesser General Public License as published by\n# the Free Software Foundation, either version 3 of the License, or\n# (at your option) any later version.\n#\n# luastatus is distributed in the hope that it will be useful,\n# but WITHOUT ANY WARRANTY; without even the implied warranty of\n# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n# GNU Lesser General Public License for more details.\n#\n# You should have received a copy of the GNU Lesser General Public License\n# along with luastatus. If not, see .\n\nimport argparse\nimport sys\nimport random\nimport typing\n\nimport mod_generator\nimport mod_mutator\nimport mod_mutators\n\n\nLENGTH_DEFAULT = 16\n\n\nNUM_FILES_DEFAULT = 20\n\n\nclass ChunkSpec:\n def __init__(self, weight: int, chunk: bytes, is_homogeneous: bool) -> None:\n assert weight > 0\n assert chunk\n self.weight = weight\n self.chunk = chunk\n self.is_homogeneous = is_homogeneous\n\n\ndef make_chunk_spec_checked(weight: int, chunk: bytes, is_homogeneous: bool) -> ChunkSpec:\n if weight <= 0:\n raise ValueError('weight must be positive')\n if not chunk:\n raise ValueError('chunk is empty')\n return ChunkSpec(weight=weight, chunk=chunk, is_homogeneous=is_homogeneous)\n\n\ndef into_h_w_and_rest(s: str) -> typing.Tuple[bool, int, str]:\n is_homogeneous = False\n if s.startswith('h:'):\n is_homogeneous = True\n s = s[2:]\n\n weight_s, rest = s.split(':', maxsplit=1)\n weight = int(weight_s)\n return (is_homogeneous, weight, rest)\n\n\ndef parse_arg_ab(s: str) -> ChunkSpec:\n is_homogeneous, weight, content = into_h_w_and_rest(s)\n return make_chunk_spec_checked(\n weight=weight,\n chunk=content.encode(),\n is_homogeneous=is_homogeneous)\n\n\ndef parse_arg_ab_range(s: str) -> ChunkSpec:\n is_homogeneous, weight, content = into_h_w_and_rest(s)\n\n first_s, last_s = content.split('-')\n first, last = int(first_s), int(last_s)\n\n chunk = bytes(list(range(first, last + 1)))\n\n return make_chunk_spec_checked(\n weight=weight,\n chunk=chunk,\n is_homogeneous=is_homogeneous)\n\n\ndef parse_arg_length(s: str) -> typing.Tuple[int, int]:\n if '-' in s:\n n_min_s, n_max_s = s.split('-')\n n_min, n_max = int(n_min_s), int(n_max_s)\n else:\n n = int(s)\n n_min, n_max = n, n\n\n if (n_min > n_max) or (n_min < 0) or (n_max < 0):\n raise ValueError('invalid length specifier')\n\n return (n_min, n_max)\n\n\ndef parse_arg_num_files(s: str) -> int:\n n = int(s)\n if n < 3:\n raise ValueError('--num-files value must be at least 3')\n return n\n\n\ndef parse_arg_prefix(s: str) -> bytes:\n return s.encode()\n\n\ndef parse_arg_substrings(s: str) -> typing.List[bytes]:\n separator = s[0]\n parts = s[1:].split(separator)\n return [part.encode() for part in parts]\n\n\ndef parse_arg_extra_testcase(s: str) -> typing.Tuple[str, bytes]:\n file_suffix, content_s = s.split(':', maxsplit=1)\n return (file_suffix, content_s.encode())\n\n\ndef main() -> None:\n ap = argparse.ArgumentParser()\n\n ap.add_argument('dest_dir')\n\n def _add_list_arg(spelling: str, **kwargs: typing.Any) -> None:\n ap.add_argument(spelling, action='append', default=[], **kwargs)\n\n _add_list_arg('--a', type=parse_arg_ab, metavar='')\n _add_list_arg('--a-range', type=parse_arg_ab_range, metavar='')\n _add_list_arg('--b', type=parse_arg_ab, metavar='')\n _add_list_arg('--b-range', type=parse_arg_ab_range, metavar='')\n\n ap.add_argument(\n '--a-is-important',\n action='store_true')\n\n ap.add_argument(\n '--length',\n default=(LENGTH_DEFAULT, LENGTH_DEFAULT),\n type=parse_arg_length,\n metavar='|-')\n\n ap.add_argument(\n '--num-files',\n default=NUM_FILES_DEFAULT,\n type=parse_arg_num_files,\n metavar='')\n\n ap.add_argument(\n '--mut-prefix',\n type=parse_arg_prefix,\n required=False)\n\n _add_list_arg('--extra-testcase', type=parse_arg_extra_testcase)\n\n ap.add_argument(\n '--mut-substrings',\n type=parse_arg_substrings,\n required=False)\n\n ap.add_argument(\n '--file-prefix',\n default='')\n\n ap.add_argument(\n '--random-seed',\n type=int,\n required=False,\n metavar='')\n\n args = ap.parse_args()\n\n if args.random_seed is not None:\n random.seed(args.random_seed, version=2)\n\n g = mod_generator.Generator()\n\n def _add_choices(chunk_specs: typing.List[ChunkSpec], key: str) -> None:\n for chunk_spec in chunk_specs:\n sheaf = mod_generator.Sheaf(\n chunk_spec.chunk,\n is_homogeneous=chunk_spec.is_homogeneous)\n g.add_sheaf_for_key(\n key=key,\n sheaf=sheaf,\n weight=chunk_spec.weight)\n\n _add_choices(args.a, key='A')\n _add_choices(args.a_range, key='A')\n _add_choices(args.b, key='B')\n _add_choices(args.b_range, key='B')\n\n if not (g.has_choices_for_key('A') and g.has_choices_for_key('B')):\n if not g.has_choices_for_key('A'):\n print('Ether \"--a\" or \"--a-range\" must be specified.', file=sys.stderr)\n else:\n print('Ether \"--b\" or \"--b-range\" must be specified.', file=sys.stderr)\n ap.print_help(sys.stderr)\n sys.exit(2)\n\n mutators: typing.List[mod_mutator.Mutator] = []\n if args.mut_substrings is not None:\n mutators.append(mod_mutators.SubstringMutator(args.mut_substrings))\n if args.mut_prefix is not None:\n mutators.append(mod_mutators.PrefixMutator(args.mut_prefix))\n\n max_variants = max((m.get_number_of_variants() for m in mutators), default=-1)\n if max_variants > args.num_files:\n print(\n 'Specified mutators have too many variants (%d) for --num-files=%d' % (\n max_variants, args.num_files\n ),\n file=sys.stderr)\n sys.exit(2)\n\n def _gen_filename(suffix: str) -> str:\n return f'{args.dest_dir}/{args.file_prefix}testcase_{suffix}'\n\n length_min, length_max = args.length\n\n if args.a_is_important:\n whole_length = g.get_whole_length_for_key('A')\n if length_min < whole_length:\n print(\n 'Minimal length (%d) is less than number of whole bytes in A (%d)' % (\n length_min, whole_length\n ),\n file=sys.stderr)\n sys.exit(2)\n\n for i in range(args.num_files):\n with open(_gen_filename(f'{i:03d}'), 'wb') as f:\n\n length = random.randint(length_min, length_max)\n include_all_of_A = (i == 0) and args.a_is_important\n\n content = mod_mutator.generate_with_mutators(\n g=g,\n mutators=mutators,\n length=length,\n i=i,\n n=args.num_files,\n include_all_of_A=include_all_of_A)\n f.write(content)\n\n for file_suffix, content in args.extra_testcase:\n with open(_gen_filename(file_suffix), 'wb') as f:\n f.write(content)\n\n\nif __name__ == '__main__':\n main()\n"
},
{
"path": "fuzz_utils/gen_testcases/mod_generator.py",
"content": "# Copyright (C) 2025 luastatus developers\n#\n# This file is part of luastatus.\n#\n# luastatus is free software: you can redistribute it and/or modify\n# it under the terms of the GNU Lesser General Public License as published by\n# the Free Software Foundation, either version 3 of the License, or\n# (at your option) any later version.\n#\n# luastatus is distributed in the hope that it will be useful,\n# but WITHOUT ANY WARRANTY; without even the implied warranty of\n# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n# GNU Lesser General Public License for more details.\n#\n# You should have received a copy of the GNU Lesser General Public License\n# along with luastatus. If not, see .\n\nimport random\nimport typing\n\n\ndef _clamp(x: int, min_value: int, max_value: int) -> int:\n assert min_value <= max_value\n if x < min_value:\n return min_value\n if x > max_value:\n return max_value\n return x\n\n\nclass Sheaf:\n def __init__(self, b: bytes, is_homogeneous: bool) -> None:\n assert b\n self.b = b\n self.is_homogeneous = is_homogeneous\n\n def get_length(self) -> int:\n return len(self.b)\n\n def random_byte(self) -> bytes:\n i = random.randint(0, len(self.b) - 1)\n return self.b[i:i + 1]\n\n def all_bytes(self) -> typing.Iterator[bytes]:\n for i in range(len(self.b)):\n yield self.b[i:i + 1]\n\n\nclass WeightedSheafList:\n def __init__(self) -> None:\n self.sheaves: typing.List[Sheaf] = []\n self.weights: typing.List[int] = []\n\n def add_sheaf(self, sheaf: Sheaf, weight: int) -> None:\n assert weight > 0\n self.sheaves.append(sheaf)\n self.weights.append(weight)\n\n def is_nonempty(self) -> bool:\n return bool(self.sheaves)\n\n def random_sheaf(self) -> Sheaf:\n assert self.is_nonempty()\n res, = random.choices(self.sheaves, weights=self.weights)\n return res\n\n def get_whole_length(self) -> int:\n res = 0\n for sheaf in self.sheaves:\n if sheaf.is_homogeneous:\n res += 1\n else:\n res += sheaf.get_length()\n return res\n\n def make_whole_iterator(self) -> typing.Iterator[bytes]:\n for sheaf in self.sheaves:\n if sheaf.is_homogeneous:\n yield sheaf.random_byte()\n else:\n for byte in sheaf.all_bytes():\n yield byte\n while True:\n yield self.random_sheaf().random_byte()\n\n\nclass Generator:\n def __init__(self) -> None:\n self.wsls = {'A': WeightedSheafList(), 'B': WeightedSheafList()}\n\n def add_sheaf_for_key(self, key: str, sheaf: Sheaf, weight: int) -> None:\n self.wsls[key].add_sheaf(sheaf, weight=weight)\n\n def has_choices_for_key(self, key: str) -> bool:\n return self.wsls[key].is_nonempty()\n\n def get_whole_length_for_key(self, key: str) -> int:\n return self.wsls[key].get_whole_length()\n\n def random_bytes(self, length: int, i: int, n: int, include_all_of_A: bool) -> bytes:\n assert length >= 0\n assert n > 0\n assert 0 <= i < n\n\n ratio = i / (n - 1)\n\n num_B = _clamp(round(ratio * length), min_value=0, max_value=length)\n num_A = length - num_B\n\n formula = list('A' * num_A + 'B' * num_B)\n random.shuffle(formula)\n\n A_iter = None\n if include_all_of_A:\n assert self.wsls['A'].get_whole_length() <= length\n A_iter = self.wsls['A'].make_whole_iterator()\n\n chunks = []\n for letter in formula:\n if letter == 'A' and A_iter is not None:\n chunks.append(next(A_iter))\n else:\n wsl = self.wsls[letter]\n sheaf = wsl.random_sheaf()\n chunks.append(sheaf.random_byte())\n return b''.join(chunks)\n"
},
{
"path": "fuzz_utils/gen_testcases/mod_mutator.py",
"content": "# Copyright (C) 2025 luastatus developers\n#\n# This file is part of luastatus.\n#\n# luastatus is free software: you can redistribute it and/or modify\n# it under the terms of the GNU Lesser General Public License as published by\n# the Free Software Foundation, either version 3 of the License, or\n# (at your option) any later version.\n#\n# luastatus is distributed in the hope that it will be useful,\n# but WITHOUT ANY WARRANTY; without even the implied warranty of\n# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n# GNU Lesser General Public License for more details.\n#\n# You should have received a copy of the GNU Lesser General Public License\n# along with luastatus. If not, see .\n\nimport typing\n\nimport mod_generator\n\n\nclass Mutator:\n def mutate(self, b: bytes, variant: int) -> bytes:\n raise NotImplementedError()\n\n def get_number_of_variants(self) -> int:\n raise NotImplementedError()\n\n\ndef generate_with_mutators(\n g: mod_generator.Generator,\n mutators: typing.List[Mutator],\n length: int,\n i: int,\n n: int,\n include_all_of_A: bool\n ) -> bytes:\n\n assert n > 0\n assert 0 <= i < n\n\n res = g.random_bytes(length=length, i=i, n=n, include_all_of_A=include_all_of_A)\n for m in mutators:\n variant = i % m.get_number_of_variants()\n res = m.mutate(res, variant=variant)\n return res\n"
},
{
"path": "fuzz_utils/gen_testcases/mod_mutators.py",
"content": "# Copyright (C) 2025 luastatus developers\n#\n# This file is part of luastatus.\n#\n# luastatus is free software: you can redistribute it and/or modify\n# it under the terms of the GNU Lesser General Public License as published by\n# the Free Software Foundation, either version 3 of the License, or\n# (at your option) any later version.\n#\n# luastatus is distributed in the hope that it will be useful,\n# but WITHOUT ANY WARRANTY; without even the implied warranty of\n# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n# GNU Lesser General Public License for more details.\n#\n# You should have received a copy of the GNU Lesser General Public License\n# along with luastatus. If not, see .\n\nimport random\nimport typing\n\nimport mod_mutator\n\n\nclass PrefixMutator(mod_mutator.Mutator):\n def __init__(self, prefix: bytes) -> None:\n self.prefix = prefix\n\n def mutate(self, b: bytes, variant: int) -> bytes:\n return self.prefix[:variant] + b\n\n def get_number_of_variants(self) -> int:\n return len(self.prefix) + 1\n\n\nclass SubstringMutator(mod_mutator.Mutator):\n def __init__(self, substr_variants: typing.List[bytes]) -> None:\n self.substr_variants = substr_variants\n\n def mutate(self, b: bytes, variant: int) -> bytes:\n pos = random.randint(0, len(b))\n substr = self.substr_variants[variant]\n return b[:pos] + substr + b[pos:]\n\n def get_number_of_variants(self) -> int:\n return len(self.substr_variants)\n"
},
{
"path": "generate-man.sh",
"content": "#!/bin/sh\n\nif [ \"$#\" -ne 2 ]; then\n printf '%s\\n' >&2 \"USAGE: $0 \"\n exit 2\nfi\n\nhas() {\n command -v \"$1\" >/dev/null\n}\n\nif has rst2man; then\n RST2MAN=rst2man\nelif has rst2man.py; then\n RST2MAN=rst2man.py\nelse\n echo >&2 \"ERROR: neither 'rst2man' nor 'rst2man.py' were found.\"\n exit 1\nfi\n\nsed 's/^\\.\\. :X-man-page-only: \\?//' -- \"$1\" | $RST2MAN > \"$2\"\n"
},
{
"path": "include/barlib_data.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef luastatus_include_barlib_data_h_\n#define luastatus_include_barlib_data_h_\n\n#include \n#include \n\n#include \"common.h\"\n\n#ifndef LUASTATUS_BARLIB_SAYF_ATTRIBUTE\n# ifdef __GNUC__\n# define LUASTATUS_BARLIB_SAYF_ATTRIBUTE __attribute__((format(printf, 3, 4)))\n# else\n# define LUASTATUS_BARLIB_SAYF_ATTRIBUTE /*nothing*/\n# endif\n#endif\n\ntypedef LUASTATUS_BARLIB_SAYF_ATTRIBUTE void LuastatusBarlibSayf_v1(\n void *userdata, int level, const char *fmt, ...);\n\ntypedef struct {\n // This barlib's private data.\n void *priv;\n\n // A black-box user data.\n void *userdata;\n\n // Should be used for logging.\n LuastatusBarlibSayf_v1 *sayf;\n\n // See DOCS/design/map_get.md.\n void ** (*map_get)(void *userdata, const char *key);\n} LuastatusBarlibData_v1;\n\ntypedef struct {\n lua_State *(*call_begin) (void *userdata, size_t widget_idx);\n void (*call_end) (void *userdata, size_t widget_idx);\n void (*call_cancel)(void *userdata, size_t widget_idx);\n} LuastatusBarlibEWFuncs_v1;\n\ntypedef struct {\n // This function should initialize a barlib by assigning something to /bd->priv/.\n // You would typically do:\n //\n // typedef struct {\n // ...\n // } Priv;\n // ...\n // static\n // int\n // init(LuastatusBarlibData *bd, const char *const *opts, size_t nwidgets)\n // {\n // Priv *p = bd->priv = LS_XNEW(Priv, 1);\n // ...\n //\n // /opts/ are options passed to luastatus with /-B/ switches, with a sentinel /NULL/ entry.\n //\n // /nwidgets/ is the number of widgets. It stays unchanged during the entire life cycle of a\n // barlib.\n //\n // It should return:\n //\n // /LUASTATUS_ERR/ on failure;\n //\n // /LUASTATUS_OK/ on success.\n //\n int (*init)(LuastatusBarlibData_v1 *bd, const char *const *opts, size_t nwidgets);\n\n // This function should register Lua functions provided by the barlib into the table on the top\n // of /L/'s stack.\n //\n // These functions should be thread-safe!\n //\n // It is guaranteed that /L/ stack has at least 15 free stack slots.\n //\n // May be /NULL/.\n //\n void (*register_funcs)(LuastatusBarlibData_v1 *bd, lua_State *L);\n\n // This function should update the widget with index /widget_idx/. The data is located on the\n // top of /L/'s stack; its format defined by the barlib itself.\n //\n // This function may push elements onto /L/'s stack (to iterate over tables), but should not\n // modify elements below the initial top, or interact with /L/ in any other way.\n //\n // It is guaranteed that /L/'s stack has at least 15 free slots.\n //\n // It must return:\n //\n // /LUASTATUS_OK/ on success.\n // In this case, /L/'s stack must not contain any extra elements pushed onto it;\n //\n // /LUASTATUS_NONFATAL_ERR/ on a non-fatal error, e.g., if the format of the data on top of\n // /L/'s stack is invalid.\n // In this case, /L/'s stack may contain extra elements pushed onto it;\n //\n // /LUASTATUS_ERR/ on a fatal error, e.g. if the connection to the display has been lost.\n // In this case, /L/'s stack may contain extra elements pushed onto it.\n //\n int (*set)(LuastatusBarlibData_v1 *bd, lua_State *L, size_t widget_idx);\n\n // This function should update the widget with index /widget_idx/ and set its content to\n // something that indicates an error.\n //\n // It must return:\n //\n // /LUASTATUS_OK/ on success;\n //\n // /LUASTATUS_ERR/ on a fatal error, e.g. if the connection to the display has been lost.\n //\n int (*set_error)(LuastatusBarlibData_v1 *bd, size_t widget_idx);\n\n // This function should run barlib's event watcher. Once the barlib wants to report an event\n // occurred on widget with index /i/, it should call\n // /lua_State *L = funcs.call_begin(i, bd->userdata)/,\n // thus obtaining a /lua_State */ object /L/. Then, it must either:\n // 1. make the following call, with exactly one additional value pushed onto /L/'s stack:\n // /funcs.call_end(i, bd->userdata)/,\n // or\n // 2. make the following call, with any number of additional values push onto /L/'s stack:\n // /funcs.call_cancel(i, bd->userdata)/.\n //\n // Both /funcs.call_end/ and /funcs.call_cancel/ invalidate /L/ as a pointer.\n //\n // It is guaranteed that each /L/ object returned from /funcs.call_begin/ has at least 15 free\n // stack slots.\n //\n // It must return:\n // /LUASTATUS_NONFATAL_ERR/ if, in some reason other than a fatal error, no events will be\n // reported anymore;\n //\n // /LUASTATUS_ERR/ on a fatal error, e.g. if the connection to the display has been lost.\n //\n // May be /NULL/ (and should be /NULL/ if events are not supported).\n //\n int (*event_watcher)(LuastatusBarlibData_v1 *bd, LuastatusBarlibEWFuncs_v1 funcs);\n\n // This function must destroy a previously successfully initialized barlib.\n void (*destroy)(LuastatusBarlibData_v1 *bd);\n} LuastatusBarlibIface_v1;\n\n#endif\n"
},
{
"path": "include/barlib_data_v1.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef luastatus_include_barlib_data_v1_h_\n#define luastatus_include_barlib_data_v1_h_\n\n#include \"barlib_data.h\"\n\n#define LuastatusBarlibIface LuastatusBarlibIface_v1\n#define LuastatusBarlibSayf LuastatusBarlibSayf_v1\n#define LuastatusBarlibData LuastatusBarlibData_v1\n#define LuastatusBarlibEWFuncs LuastatusBarlibEWFuncs_v1\n\n#endif\n"
},
{
"path": "include/barlib_v1.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef luastatus_include_barlib_v1_h_\n#define luastatus_include_barlib_v1_h_\n\n#include \n\n#include \"barlib_data_v1.h\"\n#include \"common.h\"\n\nconst int LUASTATUS_BARLIB_LUA_VERSION_NUM = LUA_VERSION_NUM;\n\nextern LuastatusBarlibIface_v1 luastatus_barlib_iface_v1;\n\n#endif\n"
},
{
"path": "include/common.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef luastatus_include_common_h_\n#define luastatus_include_common_h_\n\nenum {\n LUASTATUS_OK,\n LUASTATUS_ERR,\n LUASTATUS_NONFATAL_ERR,\n};\n\nenum {\n LUASTATUS_LOG_FATAL,\n LUASTATUS_LOG_ERR,\n LUASTATUS_LOG_WARN,\n LUASTATUS_LOG_INFO,\n LUASTATUS_LOG_VERBOSE,\n LUASTATUS_LOG_DEBUG,\n LUASTATUS_LOG_TRACE,\n\n LUASTATUS_LOG_LAST,\n};\n\n#endif\n"
},
{
"path": "include/plugin_data.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef luastatus_include_plugin_data_h_\n#define luastatus_include_plugin_data_h_\n\n#include \n#include \n\n#include \"common.h\"\n\n#ifndef LUASTATUS_PLUGIN_SAYF_ATTRIBUTE\n# ifdef __GNUC__\n# define LUASTATUS_PLUGIN_SAYF_ATTRIBUTE __attribute__((format(printf, 3, 4)))\n# else\n# define LUASTATUS_PLUGIN_SAYF_ATTRIBUTE /*nothing*/\n# endif\n#endif\n\ntypedef LUASTATUS_PLUGIN_SAYF_ATTRIBUTE void LuastatusPluginSayf_v1(\n void *userdata, int level, const char *fmt, ...);\n\ntypedef struct {\n // This widget's private data.\n void *priv;\n\n // A black-box user data.\n void *userdata;\n\n // Should be used for logging.\n LuastatusPluginSayf_v1 *sayf;\n\n // See DOCS/design/map_get.md.\n void ** (*map_get)(void *userdata, const char *key);\n} LuastatusPluginData_v1;\n\ntypedef struct {\n lua_State *(*call_begin) (void *userdata);\n void (*call_end) (void *userdata);\n void (*call_cancel)(void *userdata);\n} LuastatusPluginRunFuncs_v1;\n\ntypedef struct {\n // This function should initialize a widget by assigning something to /pd->priv/.\n // You would typically do:\n //\n // typedef struct {\n // ...\n // } Priv;\n // ...\n // static\n // int\n // init(LuastatusPluginData *pd, lua_State *L) {\n // Priv *p = pd->priv = LS_XNEW(Priv, 1);\n // ...\n //\n // The options table is on the top of /L/'s stack.\n //\n // This function may push elements onto /L/'s stack to iterate over tables, but should not\n // modify elements below the initial top, or interact with /L/ in any other way.\n //\n // It is guaranteed that /L/'s stack has at least 15 free slots.\n //\n // It should return:\n //\n // /LUASTATUS_OK/ on success.\n // In this case, /L/'s stack should not contain any extra elements pushed onto it;\n //\n // /LUASTATUS_ERR/ on failure.\n // In this case, /L/'s stack may contain extra elements pushed onto it.\n //\n int (*init)(LuastatusPluginData_v1 *pd, lua_State *L);\n\n // This function should register Lua functions provided by the plugin into table on top of /L/'s\n // stack.\n //\n // These functions, in current implementation, are not required to be thread-safe with respect\n // to the widget instance, that is, /register_funcs/ in only called once per plugin instance,\n // and while the widget is calling a function registered by this plugin instance, no other Lua\n // state may do so.\n //\n // This may change in the future.\n //\n // Note that the above does not mean they are allowed to be genereally thread-unsafe.\n //\n // It is guaranteed that /L/'s stack has at least 15 free slots.\n //\n // May be /NULL/.\n void (*register_funcs)(LuastatusPluginData_v1 *pd, lua_State *L);\n\n // This function should run a widget. Once the plugin wants to update the widget, it should call\n // /lua_State *L = funcs.call_begin(pd->userdata)/,\n // thus obtaining a /lua_State */ object /L/. Then it must either:\n // 1. make the following call, with exactly one additional value pushed onto /L/'s stack:\n // /funcs.call_end(bd->userdata)/,\n // or\n // 2. make the following call, with any number of additional values push onto /L/'s stack:\n // /funcs.call_cancel(bd->userdata)/.\n //\n // Both /funcs.call_end/ and /funcs.call_cancel/ invalidate /L/ as a pointer.\n //\n // It is guaranteed that each /L/ object returned from /funcs.call_begin/ has at least 15 free\n // stack slots.\n //\n // It should only return on an unrecoverable failure.\n void (*run)(LuastatusPluginData_v1 *pd, LuastatusPluginRunFuncs_v1 funcs);\n\n // This function should destroy a previously successfully initialized widget.\n void (*destroy)(LuastatusPluginData_v1 *pd);\n} LuastatusPluginIface_v1;\n\n#endif\n"
},
{
"path": "include/plugin_data_v1.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef luastatus_include_plugin_data_v1_h_\n#define luastatus_include_plugin_data_v1_h_\n\n#include \"plugin_data.h\"\n\n#define LuastatusPluginIface LuastatusPluginIface_v1\n#define LuastatusPluginSayf LuastatusPluginSayf_v1\n#define LuastatusPluginData LuastatusPluginData_v1\n#define LuastatusPluginRunFuncs LuastatusPluginRunFuncs_v1\n\n#endif\n"
},
{
"path": "include/plugin_v1.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef luastatus_include_plugin_v1_h_\n#define luastatus_include_plugin_v1_h_\n\n#include \n\n#include \"plugin_data_v1.h\"\n#include \"common.h\"\n\nconst int LUASTATUS_PLUGIN_LUA_VERSION_NUM = LUA_VERSION_NUM;\n\nextern LuastatusPluginIface_v1 luastatus_plugin_iface_v1;\n\n#endif\n"
},
{
"path": "include/sayf_macros.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef luastatus_include_sayf_macros_\n#define luastatus_include_sayf_macros_\n\n#define LS_FATALF(Data_, ...) Data_->sayf(Data_->userdata, LUASTATUS_LOG_FATAL, __VA_ARGS__)\n#define LS_ERRF(Data_, ...) Data_->sayf(Data_->userdata, LUASTATUS_LOG_ERR, __VA_ARGS__)\n#define LS_WARNF(Data_, ...) Data_->sayf(Data_->userdata, LUASTATUS_LOG_WARN, __VA_ARGS__)\n#define LS_INFOF(Data_, ...) Data_->sayf(Data_->userdata, LUASTATUS_LOG_INFO, __VA_ARGS__)\n#define LS_VERBOSEF(Data_, ...) Data_->sayf(Data_->userdata, LUASTATUS_LOG_VERBOSE, __VA_ARGS__)\n#define LS_DEBUGF(Data_, ...) Data_->sayf(Data_->userdata, LUASTATUS_LOG_DEBUG, __VA_ARGS__)\n#define LS_TRACEF(Data_, ...) Data_->sayf(Data_->userdata, LUASTATUS_LOG_TRACE, __VA_ARGS__)\n\n#endif\n"
},
{
"path": "libhackyfix/CMakeLists.txt",
"content": "file (GLOB sources \"*.c\")\nadd_library (hackyfix OBJECT ${sources})\n\ntarget_compile_definitions (hackyfix PUBLIC -D_POSIX_C_SOURCE=200809L)\n\n# link against dl\ntarget_link_libraries (hackyfix PUBLIC ${CMAKE_DL_LIBS})\n\nset_target_properties (ls PROPERTIES POSITION_INDEPENDENT_CODE ON)\n"
},
{
"path": "libhackyfix/README.txt",
"content": "Lua uses non-thread-safe functions all over the place and does another things\nthat are very problematic in multi-threaded environments.\n\nExamples of things that are very problematic in multi-threaded environments:\n * Calling \"fflush(NULL)\" before calling popen() in its implementation of\n io.popen() function. The reasons why Lua does this are unknown to us.\n\n fflush(NULL) traverses all open FILE* objects, including read-only ones,\n acquires the lock on each one, flushes it, and then releases the lock.\n\n The problem is that \"fflush(NULL)\" hangs if, at the time of the call, at\n least one FILE* object is waiting on an input (e.g. blocked in fgetc(),\n getline() or similar) or is blocked on writing (e.g. when writing to a\n pipe).\n\n It only returns once all blocking stdio functions that are in-flight\n return, because all stdio functions (except unlocked_* ones) also lock the\n file.\n\n This makes using stdio in any of the threads very risky: Lua's io.popen()\n in another thread now may block for indefinite time. Note that Lua's stdlib\n also uses stdio all over the place.\n\nExamples of usage of non-thread-safe (according to POSIX-2008) functions:\n * exit(): only used in implementation of os.exit().\n - we replace this Lua function in luastatus.\n\n * setlocale(): only used in implementation of os.setlocale().\n - we replace this Lua function in luastatus.\n\n * system(): only used in implementation of os.execute().\n - we replace this Lua function in luastatus.\n\n * dlerror(): used internally!\n\n * getenv(): used internally! And also in implementation of os.getenv().\n\n * strerror(): used internally!\n\n * localeconv(): used internally!\n\nSo this library replaces the following functions with thread-safe counterparts\nand/or different semantics to work around things that are very problematic in\nmulti-threaded environments:\n\n * fflush();\n\n * strerror();\n\n * getenv();\n\n * localeconv();\n\n * dlerror() (unless compiled with glibc, where it *is* thread-safe).\n"
},
{
"path": "libhackyfix/fatal.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"fatal.h\"\n#include \n#include \n#include \n#include \n\nstatic void full_write(int fd, const char *buf, size_t nbuf)\n{\n size_t nwritten = 0;\n while (nwritten < nbuf) {\n ssize_t w = write(fd, buf + nwritten, nbuf - nwritten);\n if (w < 0) {\n break;\n }\n nwritten += w;\n }\n}\n\nvoid libhackyfix_fatal(const char *msg)\n{\n full_write(2, msg, strlen(msg));\n abort();\n}\n"
},
{
"path": "libhackyfix/fatal.h",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef libhackyfix_fatal_h_\n#define libhackyfix_fatal_h_\n\nvoid libhackyfix_fatal(const char *msg);\n\n#endif\n"
},
{
"path": "libhackyfix/get_rtld_next_handle.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef _GNU_SOURCE\n# define _GNU_SOURCE\n#endif\n#include \"get_rtld_next_handle.h\"\n#include \n\nvoid *libhackyfix_get_rtld_next_handle(void)\n{\n return RTLD_NEXT;\n}\n"
},
{
"path": "libhackyfix/get_rtld_next_handle.h",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef libhackyfix_get_rtld_next_handle_h_\n#define libhackyfix_get_rtld_next_handle_h_\n\nvoid *libhackyfix_get_rtld_next_handle(void);\n\n#endif\n"
},
{
"path": "libhackyfix/libhackyfix.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \n#include \n#include \n#include \n#include \n#include \"get_rtld_next_handle.h\"\n#include \"fatal.h\"\n\n// dlerror() is not thread-safe at least on NetBSD and musl.\n// Let's assume other *BSDs and/or libcs have non-thread-safe dlerror() as well.\n\n#if defined(__GLIBC__)\n# define REPLACE_DLERROR 0\n#else\n# define REPLACE_DLERROR 1\n#endif\n\nstatic int (*orig_fflush)(FILE *f);\nstatic struct lconv *(*orig_localeconv)(void);\n\nstatic struct lconv my_lconv;\n\nstatic char *xstrdup_or_null(const char *s)\n{\n if (!s) {\n return NULL;\n }\n size_t ns = strlen(s);\n char *res = malloc(ns + 1);\n if (!res) {\n libhackyfix_fatal(\"FATAL: libhackyfix: malloc() failed\\n\");\n }\n memcpy(res, s, ns + 1);\n return res;\n}\n\nstatic void query_and_copy_lconv(void)\n{\n struct lconv *cur = orig_localeconv();\n my_lconv = *cur;\n\n#define copy(field) (my_lconv.field = xstrdup_or_null(cur->field))\n\n copy(decimal_point);\n copy(thousands_sep);\n copy(grouping);\n copy(int_curr_symbol);\n copy(currency_symbol);\n copy(mon_decimal_point);\n copy(mon_thousands_sep);\n copy(mon_grouping);\n copy(positive_sign);\n copy(negative_sign);\n\n#undef copy\n}\n\n__attribute__((constructor))\nstatic void initialize(void)\n{\n void *rtld_next_handle = libhackyfix_get_rtld_next_handle();\n\n *(void **) &orig_fflush = dlsym(rtld_next_handle, \"fflush\");\n if (!orig_fflush) {\n libhackyfix_fatal(\"FATAL: libhackyfix: dlsym(..., \\\"fflush\\\") failed\\n\");\n }\n\n *(void **) &orig_localeconv = dlsym(rtld_next_handle, \"localeconv\");\n if (!orig_localeconv) {\n libhackyfix_fatal(\"FATAL: libhackyfix: dlsym(..., \\\"localeconv\\\") failed\\n\");\n }\n\n query_and_copy_lconv();\n}\n\n__attribute__((destructor))\nstatic void deinitialize(void)\n{\n free(my_lconv.decimal_point);\n free(my_lconv.thousands_sep);\n free(my_lconv.grouping);\n free(my_lconv.int_curr_symbol);\n free(my_lconv.currency_symbol);\n free(my_lconv.mon_decimal_point);\n free(my_lconv.mon_thousands_sep);\n free(my_lconv.mon_grouping);\n free(my_lconv.positive_sign);\n free(my_lconv.negative_sign);\n}\n\n// ==================================================\n// Replacement for /fflush/\n// ==================================================\n\nint fflush(FILE *f)\n{\n if (!f) {\n return 0;\n }\n return orig_fflush(f);\n}\n\n// ==================================================\n// Replacement for /strerror/\n// ==================================================\n\n#if _POSIX_C_SOURCE < 200112L || defined(_GNU_SOURCE)\n# error \"Unsupported feature test macros.\"\n#endif\n\nstatic __thread char errbuf[512];\n\nchar *strerror(int errnum)\n{\n // We introduce an /int/ variable in order to get a compilation warning if /strerror_r()/ is\n // still GNU-specific and returns a pointer to char.\n int r = strerror_r(errnum, errbuf, sizeof(errbuf));\n return r == 0 ? errbuf : (char *) \"unknown error or truncated error message\";\n}\n\n// ==================================================\n// Replacement for /getenv/\n// ==================================================\n\nextern char **environ;\n\nchar *getenv(const char *name)\n{\n if (!environ) {\n return NULL;\n }\n if ((strchr(name, '='))) {\n return NULL;\n }\n size_t nname = strlen(name);\n for (char **s = environ; *s; ++s) {\n const char *entry = *s;\n if (strncmp(entry, name, nname) == 0 && entry[nname] == '=') {\n return (char *) (entry + nname + 1);\n }\n }\n return NULL;\n}\n\n// ==================================================\n// Replacement for /localeconv/\n// ==================================================\nstruct lconv *localeconv(void)\n{\n return &my_lconv;\n}\n\n#if REPLACE_DLERROR\n\n// ==================================================\n// Replacement for /dlerror/\n// ==================================================\n\nchar *dlerror(void)\n{\n return (char *) \"(no error message for you because on your system dlerror() isn't thread-safe)\";\n}\n\n#endif\n"
},
{
"path": "libls/CMakeLists.txt",
"content": "file (GLOB sources \"*.c\")\nadd_library (ls OBJECT ${sources})\n\ninclude (CheckSymbolExists)\nset (CMAKE_REQUIRED_DEFINITIONS \"-D_GNU_SOURCE\")\ncheck_symbol_exists (pipe2 \"fcntl.h;unistd.h\" LS_HAVE_GNU_PIPE2)\ncheck_symbol_exists (SOCK_CLOEXEC \"sys/socket.h\" LS_HAVE_GNU_SOCK_CLOEXEC)\nconfigure_file (\"ls_probes.in.h\" \"ls_probes.generated.h\")\n\ntarget_compile_definitions (ls PUBLIC -D_POSIX_C_SOURCE=200809L)\nluastatus_target_compile_with (ls LUA)\ntarget_include_directories (ls PUBLIC \"${PROJECT_SOURCE_DIR}\" \"${CMAKE_CURRENT_BINARY_DIR}\")\n\nfind_library (MATH_LIBRARY m)\nif (MATH_LIBRARY)\n target_link_libraries (ls PUBLIC ${MATH_LIBRARY})\nendif ()\n\nset_target_properties (ls PROPERTIES POSITION_INDEPENDENT_CODE ON)\n"
},
{
"path": "libls/ls_algo.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_algo_h_\n#define ls_algo_h_\n\n#define LS_ARRAY_SIZE(X_) (sizeof(X_) / sizeof((X_)[0]))\n\n#define LS_SWAP(Type_, X_, Y_) \\\n do { \\\n Type_ ls_swap_tmp_ = (X_); \\\n (X_) = (Y_); \\\n (Y_) = ls_swap_tmp_; \\\n } while (0)\n\n#endif\n"
},
{
"path": "libls/ls_alloc_utils.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"ls_alloc_utils.h\"\n\n#include \n#include \n#include \n#include \"ls_panic.h\"\n\nstatic inline bool mul_zu(size_t *dst, size_t a, size_t b)\n{\n if (b && a > SIZE_MAX / b) {\n return false;\n }\n *dst = a * b;\n return true;\n}\n\nvoid *ls_xmalloc(size_t nelems, size_t elemsz)\n{\n size_t total_bytes;\n if (!mul_zu(&total_bytes, nelems, elemsz)) {\n goto oom;\n }\n void *r = malloc(total_bytes);\n if (!r && total_bytes) {\n goto oom;\n }\n return r;\n\noom:\n ls_oom();\n}\n\nvoid *ls_xcalloc(size_t nelems, size_t elemsz)\n{\n void *r = calloc(nelems, elemsz);\n if (nelems && elemsz && !r) {\n ls_oom();\n }\n return r;\n}\n\nvoid *ls_xrealloc(void *p, size_t nelems, size_t elemsz)\n{\n size_t total_bytes;\n if (!mul_zu(&total_bytes, nelems, elemsz)) {\n goto oom;\n }\n if (!total_bytes) {\n free(p);\n return NULL;\n }\n void *r = realloc(p, total_bytes);\n if (!r) {\n goto oom;\n }\n return r;\n\noom:\n ls_oom();\n}\n\nvoid *ls_x2realloc(void *p, size_t *pnelems, size_t elemsz)\n{\n LS_ASSERT(elemsz != 0);\n\n if (*pnelems) {\n if (!mul_zu(pnelems, *pnelems, 2)) {\n ls_oom();\n }\n } else {\n *pnelems = 1;\n }\n\n return ls_xrealloc(p, *pnelems, elemsz);\n}\n\nvoid *ls_xmemdup(const void *p, size_t n)\n{\n void *r = malloc(n);\n if (n) {\n if (!r) {\n ls_oom();\n }\n memcpy(r, p, n);\n }\n return r;\n}\n"
},
{
"path": "libls/ls_alloc_utils.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_alloc_utils_h_\n#define ls_alloc_utils_h_\n\n#include \n#include \n\n#include \"ls_panic.h\"\n#include \"ls_compdep.h\"\n\n#define LS_XNEW(Type_, NElems_) \\\n ((Type_ *) ls_xmalloc(NElems_, sizeof(Type_)))\n\n#define LS_XNEW0(Type_, NElems_) \\\n ((Type_ *) ls_xcalloc(NElems_, sizeof(Type_)))\n\n#define LS_M_X2REALLOC(Ptr_, NElemsPtr_) \\\n ((__typeof__(Ptr_)) ls_x2realloc((Ptr_), (NElemsPtr_), sizeof((Ptr_)[0])))\n\n#define LS_M_XMEMDUP(Ptr_, N_) \\\n ((__typeof__(Ptr_)) ls_xmemdup((Ptr_), ((size_t) (N_)) * sizeof((Ptr_)[0])))\n\n#define LS_M_XREALLOC(Ptr_, N_) \\\n ((__typeof__(Ptr_)) ls_xrealloc((Ptr_), (N_), sizeof((Ptr_)[0])))\n\n// Out-of-memory handler; should be called when an allocation fails.\n//\n// Should not return.\n#define ls_oom() LS_PANIC(\"out of memory\")\n\n// The behavior is same as calling\n// /malloc(nelems * elemsz)/,\n// except when the multiplication overflows, or the allocation fails. In these cases, this function\n// panics.\nLS_ATTR_WARN_UNUSED\nvoid *ls_xmalloc(size_t nelems, size_t elemsz);\n\n// The behavior is same as calling\n// /calloc(nelems, elemsz)/,\n// except when the allocation fails. In that case, this function panics.\nLS_ATTR_WARN_UNUSED\nvoid *ls_xcalloc(size_t nelems, size_t elemsz);\n\n// The behavior is same as calling\n// /realloc(p, nelems * elemsz)/,\n// except when the multiplication overflows, or the reallocation fails. In these cases, this\n// function panics.\n//\n// Zero /nelems/ and/or /elemsz/ are supported (even though C23 declared /realloc/ to zero size\n// undefined behavior): if the total size requested is zero, this function /free/s the pointer\n// and returns NULL.\nLS_ATTR_WARN_UNUSED\nvoid *ls_xrealloc(void *p, size_t nelems, size_t elemsz);\n\n// The behavior is same as calling\n// /realloc(p, (*pnelems = F(*pnelems)) * elemsz)/,\n// where F(n) = max(1, 2 * n),\n// except when a multiplication overflows, or the reallocation fails. In these cases, this function\n// panics.\n//\n// Zero /elemsz/ is NOT supported: it isn't clear what the semantics of this function should be in\n// this case: technically you can store any number of zero-sized elements in an allocation of any\n// size, but /*pnelems/ is limited to /SIZE_MAX/ (should we alter /*pnelems/ at all? If yes, what\n// should we do in case of an overflow?). Also, C99 says there can't be any zero-sized types: empty\n// structs or unions, and arrays of size 0, are prohibited.\nLS_ATTR_WARN_UNUSED\nvoid *ls_x2realloc(void *p, size_t *pnelems, size_t elemsz);\n\n// Duplicates (as if with /malloc/) /n/ bytes of memory at address /p/. Panics on failure.\nLS_ATTR_WARN_UNUSED\nvoid *ls_xmemdup(const void *p, size_t n);\n\n// The behavior is same as calling\n// /strdup(s)/,\n// except when the allocation fails. In that case, this function panics.\nLS_INHEADER LS_ATTR_WARN_UNUSED\nchar *ls_xstrdup(const char *s)\n{\n LS_ASSERT(s != NULL);\n\n return ls_xmemdup(s, strlen(s) + 1);\n}\n\n#endif\n"
},
{
"path": "libls/ls_compdep.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_compdep_h_\n#define ls_compdep_h_\n\n// ------------------------------------------------------------\n// GCC version (set by clang to some very old version)\n// ------------------------------------------------------------\n\n#define LS_GCC_VERSION (__GNUC__ * 10000 + __GNUC_MINOR__ * 100 + __GNUC_PATCHLEVEL__)\n\n// ------------------------------------------------------------\n// Clang stuff\n// ------------------------------------------------------------\n\n#if defined(__has_attribute)\n# define LS_CLANG_HAS_ATTRIBUTE(X_) __has_attribute(X_)\n#else\n# define LS_CLANG_HAS_ATTRIBUTE(X_) 0\n#endif\n\n#if defined(__has_builtin)\n# define LS_CLANG_HAS_BUILTIN(X_) __has_builtin(X_)\n#else\n# define LS_CLANG_HAS_BUILTIN(X_) 0\n#endif\n\n// ------------------------------------------------------------\n// Attributes\n// ------------------------------------------------------------\n\n#if __GNUC__ >= 2\n# define LS_ATTR_UNUSED __attribute__((unused))\n# define LS_ATTR_PRINTF(N_, M_) __attribute__((format(printf, N_, M_)))\n# define LS_ATTR_NORETURN __attribute__((noreturn))\n#else\n# define LS_ATTR_UNUSED /*nothing*/\n# define LS_ATTR_PRINTF(N_, M_) /*nothing*/\n# define LS_ATTR_NORETURN /*nothing*/\n#endif\n\n#if LS_GCC_VERSION >= 30406 || LS_CLANG_HAS_ATTRIBUTE(warn_unused_result)\n# define LS_ATTR_WARN_UNUSED __attribute__((warn_unused_result))\n#else\n# define LS_ATTR_WARN_UNUSED /*nothing*/\n#endif\n\n// ------------------------------------------------------------\n// LS_INHEADER\n// ------------------------------------------------------------\n#define LS_INHEADER static inline LS_ATTR_UNUSED\n\n#endif\n"
},
{
"path": "libls/ls_cstring_utils.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#if _POSIX_C_SOURCE < 200112L || defined(_GNU_SOURCE)\n# error \"Unsupported feature test macros; either tune them or change the code.\"\n#endif\n\n#include \"ls_cstring_utils.h\"\n\n#include \n#include \n\nconst char *ls_strerror_r(int errnum, char *buf, size_t nbuf)\n{\n // luastatus-specific \"fake\" errno values\n switch (errnum) {\n case -EINVAL:\n return \"Not a FIFO\";\n }\n\n // We introduce an /int/ variable in order to get a compilation warning if /strerror_r()/ is\n // still GNU-specific and returns a pointer to char.\n int r = strerror_r(errnum, buf, nbuf);\n return r == 0 ? buf : \"unknown error or truncated error message\";\n}\n"
},
{
"path": "libls/ls_cstring_utils.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_cstring_utils_h_\n#define ls_cstring_utils_h_\n\n#include \n#include \n\n#include \"ls_compdep.h\"\n#include \"ls_panic.h\"\n\n// If zero-terminated string /str/ starts with zero-terminated string /prefix/, returns\n// /str + strlen(prefix)/; otherwise, returns /NULL/.\nLS_INHEADER const char *ls_strfollow(const char *str, const char *prefix)\n{\n LS_ASSERT(str != NULL);\n LS_ASSERT(prefix != NULL);\n\n size_t nprefix = strlen(prefix);\n return strncmp(str, prefix, nprefix) == 0 ? str + nprefix : NULL;\n}\n\n// Behaves like the GNU-specific /strerror_r/: either fills /buf/ and returns it, or returns a\n// pointer to a static string.\nconst char *ls_strerror_r(int errnum, char *buf, size_t nbuf);\n\n#endif\n"
},
{
"path": "libls/ls_evloop_lfuncs.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_evloop_lfuncs_h_\n#define ls_evloop_lfuncs_h_\n\n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \"ls_compdep.h\"\n#include \"ls_panic.h\"\n#include \"ls_osdep.h\"\n#include \"ls_io_utils.h\"\n#include \"ls_time_utils.h\"\n\n// Some plugins provide a \"push_timeout\"/\"push_period\" function that allows a widget to specify the\n// next timeout for an otherwise constant timeout-based plugin's event loop.\n//\n// The pushed timeout value has to be guarded with a lock as the \"push_timeout\"/\"push_period\"\n// function may be called from the /event/ function of a widget (that is, asynchronously from the\n// plugin's viewpoint).\n//\n// /LS_PushedTimeout/ is a structure containing the pushed timeout value (or an absence of such, as\n// indicated by the value being negative), and a lock.\n//\n// \n// This structure must reside at a constant address throughout its whole life; this is required for\n// the Lua closure created with /ls_pushed_timeout_push_luafunc()/.\n// \ntypedef struct {\n double value;\n pthread_mutex_t lock;\n} LS_PushedTimeout;\n\n// Initializes /p/ with an absence of pushed timeout value and a newly-created lock.\nLS_INHEADER void ls_pushed_timeout_init(LS_PushedTimeout *p)\n{\n p->value = -1;\n LS_PTH_CHECK(pthread_mutex_init(&p->lock, NULL));\n}\n\n// Does the following actions atomically:\n// * checks if /p/ has a pushed timeout value;\n// * if it does, clears it and returns the timeout value that /p/ has previously had;\n// * if it does not, returns /alt/.\nLS_INHEADER LS_TimeDelta ls_pushed_timeout_fetch(LS_PushedTimeout *p, LS_TimeDelta alt)\n{\n LS_TimeDelta r;\n LS_PTH_CHECK(pthread_mutex_lock(&p->lock));\n if (p->value < 0) {\n r = alt;\n } else {\n r = ls_double_to_TD(p->value, LS_TD_FOREVER);\n p->value = -1;\n }\n LS_PTH_CHECK(pthread_mutex_unlock(&p->lock));\n return r;\n}\n\nLS_INHEADER int ls_pushed_timeout_lfunc(lua_State *L)\n{\n double arg = luaL_checknumber(L, 1);\n if (!isgreaterequal(arg, 0.0)) {\n return luaL_argerror(L, 1, \"invalid timeout\");\n }\n\n LS_PushedTimeout *p = lua_touserdata(L, lua_upvalueindex(1));\n\n LS_PTH_CHECK(pthread_mutex_lock(&p->lock));\n p->value = arg;\n LS_PTH_CHECK(pthread_mutex_unlock(&p->lock));\n\n return 0;\n}\n\n// Creates a \"push_timeout\" function (a \"C closure\" with /p/'s address, in Lua terminology) on /L/'s\n// stack.\n//\n// The resulting Lua function takes one numeric argument (the timeout in seconds) and does not\n// return anything. It may throw an error if an invalid argument is provided. Once called, it will\n// (atomically) alter /p/'s timeout value.\n//\n// The caller must ensure that the /L/'s stack has at least 2 free slots.\nLS_INHEADER void ls_pushed_timeout_push_luafunc(LS_PushedTimeout *p, lua_State *L)\n{\n lua_pushlightuserdata(L, p);\n lua_pushcclosure(L, ls_pushed_timeout_lfunc, 1);\n}\n\n// Destroys /p/.\nLS_INHEADER void ls_pushed_timeout_destroy(LS_PushedTimeout *p)\n{\n LS_PTH_CHECK(pthread_mutex_destroy(&p->lock));\n}\n\n// Some plugins provide the so-called self-pipe facility; that is, the ability to \"wake up\" the\n// widget's event loop (and force a call to the widget's /cb()/ function) from within the widget's\n// /event()/ function via a special \"wake_up\" Lua function.\n//\n// Such a pipe consists of an array, /int fds[2]/, of two file descriptors; the /fds[0]/ file\n// descriptor is to be read from, and /fds[1]/ is to be written to.\n//\n// \n// This array must reside at a constant address throughout its whole life; this is required for\n// the Lua closure created with /ls_self_pipe_push_luafunc()/.\n// \n\n// Creates a new self-pipe.\n//\n// On success, /0/ is returned.\n//\n// On failure, /-1/ is returned, /fds[0]/ and /fds[1]/ are set to -1, and /errno/ is set.\nLS_INHEADER int ls_self_pipe_open(int fds[2])\n{\n if (ls_cloexec_pipe(fds) < 0) {\n fds[0] = -1;\n fds[1] = -1;\n return -1;\n }\n ls_make_nonblock(fds[0]);\n ls_make_nonblock(fds[1]);\n return 0;\n}\n\nLS_INHEADER int ls_self_pipe_lfunc(lua_State *L)\n{\n int *fds = lua_touserdata(L, lua_upvalueindex(1));\n\n int fd = fds[1];\n if (fd < 0) {\n return luaL_error(L, \"self-pipe has not been opened\");\n }\n\n ssize_t unused = write(fd, \"\", 1); // write '\\0'\n (void) unused;\n\n return 0;\n}\n\n// Creates a \"wake_up\" function (a \"C closure\" with /s/'s address, in Lua terminology) on /L/'s\n// stack.\n//\n// The resulting Lua function takes no arguments and does not return anything. Once called, it will\n// write a single byte to /fds[1]/ (in a thread-safe manner), or throw an error if the self-pipe\n// has not been opened.\n//\n// The caller must ensure that the /L/'s stack has at least 2 free slots.\nLS_INHEADER void ls_self_pipe_push_luafunc(int fds[2], lua_State *L)\n{\n lua_pushlightuserdata(L, fds);\n lua_pushcclosure(L, ls_self_pipe_lfunc, 1);\n}\n\n#endif\n"
},
{
"path": "libls/ls_fifo_device.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_fifo_device_h_\n#define ls_fifo_device_h_\n\n#include \n#include \"ls_compdep.h\"\n#include \"ls_time_utils.h\"\n#include \"ls_io_utils.h\"\n\n// A \"FIFO device\" is a device that emits an event whenever somebody does\n// touch(1) (that is, opens for writing and then closes) on a FIFO file with\n// a specified path.\n//\n// If specified path is NULL, no events are ever reported.\n//\n// The suggested usage is as follows:\n//\n// LS_FifoDevice dev = ls_fifo_device_new();\n// for (;;) {\n// // ...\n// if (ls_fifo_device_open(&dev, fifo_path) < 0) {\n// // ... handle error ...\n// }\n// if (ls_fifo_device_wait(&dev, timeout)) {\n/// // ... somebody touched the FIFO, do something ...\n// }\n// // ...\n// }\n// ls_fifo_device_close(&dev);\n\ntypedef struct {\n int fd;\n} LS_FifoDevice;\n\nLS_INHEADER LS_FifoDevice ls_fifo_device_new(void)\n{\n return (LS_FifoDevice) {-1};\n}\n\nLS_INHEADER int ls_fifo_device_open(LS_FifoDevice *dev, const char *path)\n{\n if (dev->fd >= 0) {\n return 0;\n }\n if (!path) {\n return 0;\n }\n dev->fd = ls_open_fifo(path);\n if (dev->fd < 0) {\n return -1;\n }\n return 0;\n}\n\nLS_INHEADER int ls_fifo_device_wait(LS_FifoDevice *dev, LS_TimeDelta tmo)\n{\n int r = ls_wait_input_on_fd(dev->fd, tmo);\n if (r > 0) {\n close(dev->fd);\n dev->fd = -1;\n }\n return r;\n}\n\nLS_INHEADER void ls_fifo_device_close(LS_FifoDevice *dev)\n{\n ls_close(dev->fd);\n}\n\nLS_INHEADER void ls_fifo_device_reset(LS_FifoDevice *dev)\n{\n ls_fifo_device_close(dev);\n *dev = ls_fifo_device_new();\n}\n\n#endif\n"
},
{
"path": "libls/ls_freemem.h",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_freemem_h_\n#define ls_freemem_h_\n\n#include \n#include \"ls_alloc_utils.h\"\n#include \"ls_compdep.h\"\n#include \"ls_panic.h\"\n\n// This function is called whenever a dynamic array is cleared.\n// We want to \"preserve\" at most 1 Kb of the previous capacity.\nLS_INHEADER LS_ATTR_WARN_UNUSED\nvoid *ls_freemem(void *data, size_t *psize, size_t *pcapacity, size_t elemsz)\n{\n LS_ASSERT(elemsz != 0);\n size_t new_capacity = 1024 / elemsz;\n if (*pcapacity > new_capacity) {\n data = ls_xrealloc(data, new_capacity, elemsz);\n *pcapacity = new_capacity;\n }\n *psize = 0;\n return data;\n}\n\n#define LS_M_FREEMEM(Data_, SizePtr_, CapacityPtr_) \\\n ((__typeof__(Data_)) ls_freemem( \\\n (Data_), \\\n (SizePtr_), \\\n (CapacityPtr_), \\\n sizeof(*(Data_))))\n\n#endif\n"
},
{
"path": "libls/ls_getenv_r.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"ls_getenv_r.h\"\n\n#include \n#include \n#include \"ls_panic.h\"\n\nextern char **environ;\n\nconst char *ls_getenv_r(const char *name)\n{\n LS_ASSERT(name != NULL);\n\n if (!environ) {\n return NULL;\n }\n if ((strchr(name, '='))) {\n return NULL;\n }\n size_t nname = strlen(name);\n for (char **s = environ; *s; ++s) {\n const char *entry = *s;\n if (strncmp(entry, name, nname) == 0 && entry[nname] == '=') {\n return entry + nname + 1;\n }\n }\n return NULL;\n}\n"
},
{
"path": "libls/ls_getenv_r.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_getenv_r_h_\n#define ls_getenv_r_h_\n\n// Thread-safe /getenv/.\nconst char *ls_getenv_r(const char *name);\n\n#endif\n"
},
{
"path": "libls/ls_io_utils.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"ls_io_utils.h\"\n#include \n#include \n#include \n#include \n#include \n#include \n#include \"ls_time_utils.h\"\n#include \"ls_panic.h\"\n\nstatic int poll_forever(struct pollfd *fds, size_t nfds)\n{\n int r;\n while ((r = poll(fds, nfds, -1)) < 0 && errno == EINTR) {\n // do nothing\n }\n return r;\n}\n\nint ls_poll(struct pollfd *fds, size_t nfds, LS_TimeDelta tmo)\n{\n if (nfds != (nfds_t) nfds) {\n errno = EOVERFLOW;\n return -1;\n }\n\n int tmo_ms = ls_TD_to_poll_ms_tmo(tmo);\n if (tmo_ms < 0) {\n return poll_forever(fds, nfds);\n }\n\n sigset_t allsigs;\n LS_ASSERT(sigfillset(&allsigs) == 0);\n\n sigset_t origmask;\n LS_PTH_CHECK(pthread_sigmask(SIG_SETMASK, &allsigs, &origmask));\n\n int r = poll(fds, nfds, tmo_ms);\n\n int saved_errno = errno;\n LS_PTH_CHECK(pthread_sigmask(SIG_SETMASK, &origmask, NULL));\n errno = saved_errno;\n\n return r;\n}\n\nint ls_open_fifo(const char *fifo)\n{\n LS_ASSERT(fifo != NULL);\n\n int saved_errno;\n\n int fd = open(fifo, O_RDONLY | O_CLOEXEC | O_NONBLOCK);\n if (fd < 0) {\n goto error;\n }\n\n struct stat sb;\n if (fstat(fd, &sb) < 0) {\n goto error;\n }\n\n if (!S_ISFIFO(sb.st_mode)) {\n errno = -EINVAL;\n goto error;\n }\n\n return fd;\n\nerror:\n saved_errno = errno;\n ls_close(fd);\n errno = saved_errno;\n return -1;\n}\n"
},
{
"path": "libls/ls_io_utils.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_io_utils_h_\n#define ls_io_utils_h_\n\n#include \n#include \n#include \n#include \n#include \n#include \"ls_compdep.h\"\n#include \"ls_time_utils.h\"\n\n#if EAGAIN == EWOULDBLOCK\n# define LS_IS_EAGAIN(E_) ((E_) == EAGAIN)\n#else\n# define LS_IS_EAGAIN(E_) ((E_) == EAGAIN || (E_) == EWOULDBLOCK)\n#endif\n\n// Makes a file descriptor close-on-exec.\n// On success, /fd/ is returned.\n// On failure, /-1/ is returned and /errno/ is set.\nLS_INHEADER int ls_make_cloexec(int fd)\n{\n int flags = fcntl(fd, F_GETFD);\n if (flags < 0) {\n return -1;\n }\n flags |= FD_CLOEXEC;\n if (fcntl(fd, F_SETFD, flags) < 0) {\n return -1;\n }\n return fd;\n}\n\n// Makes a file descriptor non-blocking.\n// On success, /fd/ is returned.\n// On failure, /-1/ is returned and /errno/ is set.\nLS_INHEADER int ls_make_nonblock(int fd)\n{\n int flags = fcntl(fd, F_GETFL);\n if (flags < 0) {\n return -1;\n }\n flags |= O_NONBLOCK;\n if (fcntl(fd, F_SETFL, flags) < 0) {\n return -1;\n }\n return fd;\n}\n\n// Close if non-negative: valgrind doesn't like /close()/ on negative FDs.\nLS_INHEADER int ls_close(int fd)\n{\n if (fd < 0) {\n return 0;\n }\n return close(fd);\n}\n\n// Poll restarting on /EINTR/ errors.\nint ls_poll(struct pollfd *fds, size_t nfds, LS_TimeDelta tmo);\n\n// Poll a single fd for /POLLIN/ events.\nLS_INHEADER int ls_wait_input_on_fd(int fd, LS_TimeDelta tmo)\n{\n struct pollfd pfd = {.fd = fd, .events = POLLIN};\n return ls_poll(&pfd, 1, tmo);\n}\n\n// Open a FIFO for reading, and check that this is really a FIFO.\nint ls_open_fifo(const char *fifo);\n\n#endif\n"
},
{
"path": "libls/ls_lua_compat.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_lua_compat_h_\n#define ls_lua_compat_h_\n\n#include \n#include \n#include \n#include \n#include \n#include \n#include \"ls_compdep.h\"\n\n#if LUA_VERSION_NUM >= 504\n# define ls_lua_pushfail(L_) luaL_pushfail(L_)\n#else\n# define ls_lua_pushfail(L_) lua_pushnil(L_)\n#endif\n\nLS_INHEADER bool ls_lua_is_lua51(lua_State *L)\n{\n#if LUA_VERSION_NUM >= 502\n (void) L;\n return false;\n#else\n // LuaJIT, when compiled with -DLUAJIT_ENABLE_LUA52COMPAT, still defines\n // LUA_VERSION_NUM to 501, but syntax parser, library functions and some\n // aspect of language work as if it was Lua 5.2.\n\n // L: ?\n lua_getglobal(L, \"rawlen\"); // L: ? rawlen\n bool ret = lua_isnil(L, -1);\n lua_pop(L, 1); // L: ?\n return ret;\n#endif\n}\n\nLS_INHEADER size_t ls_lua_array_len(lua_State *L, int pos)\n{\n#if LUA_VERSION_NUM <= 501\n return lua_objlen(L, pos);\n#else\n return lua_rawlen(L, pos);\n#endif\n}\n\n#ifdef LUA_MAXINTEGER\n# define LS_LUA_MAXI \\\n (LUA_MAXINTEGER > (SIZE_MAX - 1) ? (SIZE_MAX - 1) : LUA_MAXINTEGER)\n#else\n# define LS_LUA_MAXI INT_MAX\n#endif\n\nLS_INHEADER int ls_lua_num_prealloc(size_t n)\n{\n return n < (size_t) INT_MAX ? (int) n : INT_MAX;\n}\n\n#endif\n"
},
{
"path": "libls/ls_osdep.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#define _GNU_SOURCE\n#include \"ls_osdep.h\"\n\n#include \n#include \n#include \n\n#include \"ls_probes.generated.h\"\n\nint ls_cloexec_pipe(int pipefd[2])\n{\n#if LS_HAVE_GNU_PIPE2\n return pipe2(pipefd, O_CLOEXEC);\n#else\n if (pipe(pipefd) < 0) {\n return -1;\n }\n ls_make_cloexec(pipefd[0]);\n ls_make_cloexec(pipefd[1]);\n return 0;\n#endif\n}\n\nint ls_cloexec_socket(int domain, int type, int protocol)\n{\n#if LS_HAVE_GNU_SOCK_CLOEXEC\n return socket(domain, type | SOCK_CLOEXEC, protocol);\n#else\n int fd = socket(domain, type, protocol);\n if (fd < 0) {\n return -1;\n }\n ls_make_cloexec(fd);\n return fd;\n#endif\n}\n"
},
{
"path": "libls/ls_osdep.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_osdep_h_\n#define ls_osdep_h_\n\n// We can't define /_GNU_SOURCE/ here, nor can we include \"probes.generated.h\", as\n// it may be located outside of the source tree: /libls/ is built with /libls/'s\n// binary directory included, unlike everything that includes its headers.\n// So no in-header functions.\n\n// The behavior is same as calling /pipe(pipefd)/, except that both file descriptors are made\n// close-on-exec. If the latter fails, the pipe is destroyed, /-1/ is returned and /errno/ is set.\nint ls_cloexec_pipe(int pipefd[2]);\n\n// The behavior is same as calling /socket(domain, type, protocol)/, except that the file\n// descriptor is make close-on-exec. If the latter fails, the pipe is destroyed, /-1/ is reurned and\n// /errno/ is set.\nint ls_cloexec_socket(int domain, int type, int protocol);\n\n#endif\n"
},
{
"path": "libls/ls_panic.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"ls_panic.h\"\n#include \n#include \n#include \"ls_cstring_utils.h\"\n\nvoid ls__do_panic_impl__(\n const char *macro_name,\n const char *expr,\n const char *msg,\n const char *func, const char *file, int line)\n{\n fprintf(\n stderr, \"%s(%s) failed in %s at %s:%d: %s\\n\",\n macro_name, expr,\n func, file, line,\n msg);\n abort();\n}\n\nvoid ls__do_panic_with_errnum_impl__(\n const char *macro_name,\n const char *expr,\n const char *msg,\n int errnum,\n const char *func, const char *file, int line)\n{\n char buf[512];\n fprintf(\n stderr, \"%s(%s) failed in %s at %s:%d: %s: %s\\n\",\n macro_name, expr,\n func, file, line,\n msg, ls_strerror_r(errnum, buf, sizeof(buf))\n );\n abort();\n}\n"
},
{
"path": "libls/ls_panic.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_panic_h_\n#define ls_panic_h_\n\n#include \"ls_compdep.h\"\n\nLS_ATTR_NORETURN void ls__do_panic_impl__(\n const char *macro_name,\n const char *expr,\n const char *msg,\n const char *func, const char *file, int line);\n\nLS_ATTR_NORETURN void ls__do_panic_with_errnum_impl__(\n const char *macro_name,\n const char *expr,\n const char *msg,\n int errnum,\n const char *func, const char *file, int line);\n\n#define LS__DO_PANIC__(MacroName_, Expr_, Msg_) \\\n ls__do_panic_impl__( \\\n MacroName_, \\\n Expr_, \\\n Msg_, \\\n __func__, __FILE__, __LINE__)\n\n#define LS__DO_PANIC_WITH_ERRNUM__(MacroName_, Expr_, Msg_, Errnum_) \\\n ls__do_panic_with_errnum_impl__( \\\n MacroName_, \\\n Expr_, \\\n Msg_, \\\n Errnum_, \\\n __func__, __FILE__, __LINE__)\n\n// Logs /Msg_/ and aborts.\n#define LS_PANIC(Msg_) \\\n LS__DO_PANIC__(\"LS_PANIC\", \"\", Msg_)\n\n// Logs /Msg_/ with errno value /Errnum_/ and aborts.\n#define LS_PANIC_WITH_ERRNUM(Msg_, Errnum_) \\\n LS__DO_PANIC_WITH_ERRNUM__(\"LS_PANIC_WITH_ERRNUM\", \"\", Msg_, Errnum_)\n\n// Asserts that a /pthread_*/ call was successful.\n#define LS_PTH_CHECK(Expr_) \\\n do { \\\n int ls_pth_rc_ = (Expr_); \\\n if (ls_pth_rc_ != 0) { \\\n LS__DO_PANIC_WITH_ERRNUM__(\"LS_PTH_CHECK\", #Expr_, \"check failed\", ls_pth_rc_); \\\n } \\\n } while (0)\n\n// Asserts that /Expr_/ is true.\n#define LS_ASSERT(Expr_) \\\n do { \\\n if (!(Expr_)) { \\\n LS__DO_PANIC__(\"LS_ASSERT\", #Expr_, \"assertion failed\"); \\\n } \\\n } while (0)\n\n// Just use it to tell the compiler some code is unreachable.\n#define LS_MUST_BE_UNREACHABLE() LS_PANIC(\"LS_MUST_BE_UNREACHABLE()\")\n\n#endif\n"
},
{
"path": "libls/ls_parse_int.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"ls_parse_int.h\"\n\n#include \n#include \n\nint ls_strtou_b(const char *s, size_t ns, const char **endptr)\n{\n int ret = 0;\n size_t i = 0;\n\n for (; i != ns; ++i) {\n int digit = ((int) s[i]) - '0';\n if (digit < 0 || digit > 9) {\n break;\n }\n if (ret > INT_MAX / 10) {\n ret = -ERANGE;\n break;\n }\n ret *= 10;\n if (ret > INT_MAX - digit) {\n ret = -ERANGE;\n break;\n }\n ret += digit;\n }\n\n if (endptr) {\n *endptr = s + i;\n }\n return ret;\n}\n\nint ls_full_strtou_b(const char *s, size_t ns)\n{\n if (!ns) {\n return -EINVAL;\n }\n const char *endptr;\n int r = ls_strtou_b(s, ns, &endptr);\n if (r < 0) {\n return r;\n }\n if (endptr != s + ns) {\n return -EINVAL;\n }\n return r;\n}\n"
},
{
"path": "libls/ls_parse_int.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_parse_int_h_\n#define ls_parse_int_h_\n\n#include \n#include \n\n#include \"ls_compdep.h\"\n#include \"ls_panic.h\"\n\n// Parses (locale-independently) a decimal unsigned integer, inspecting no more than first /ns/\n// characters of /s/. Once this limit is reached, or a non-digit character is found, this function\n// stops, writes the current position to /*endptr/, unless it is /NULL/; and returns what has been\n// parsed insofar (if nothing, /0/ is returned).\n//\n// If an overflow happens, /-ERANGE/ is returned.\nint ls_strtou_b(const char *s, size_t ns, const char **endptr);\n\n// Parses (locale-independently) a decimal unsigned integer using first /ns/ characters of /s/.\n//\n// If a non-digit character is found among them, or if /ns/ is /0/, /-EINVAL/ is returned.\n// If an overflow happens, /-ERANGE/ is returned.\nint ls_full_strtou_b(const char *s, size_t ns);\n\n// Parses (locale-independently) a decimal unsigned integer from a zero-terminated string /s/.\n//\n// If a non-digit character is found in /s/, or if /s/ is empty, /-EINVAL/ is returned.\n// If an overflow happens, /-ERANGE/ is returned.\nLS_INHEADER int ls_full_strtou(const char *s)\n{\n LS_ASSERT(s != NULL);\n\n return ls_full_strtou_b(s, strlen(s));\n}\n\n#endif\n"
},
{
"path": "libls/ls_probes.in.h",
"content": "#ifndef ls_probes_h_\n#define ls_probes_h_\n\n#cmakedefine01 LS_HAVE_GNU_PIPE2\n#cmakedefine01 LS_HAVE_GNU_SOCK_CLOEXEC\n\n#endif\n"
},
{
"path": "libls/ls_strarr.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_strarr_h_\n#define ls_strarr_h_\n\n#include \n#include \n\n#include \"ls_string.h\"\n#include \"ls_alloc_utils.h\"\n#include \"ls_compdep.h\"\n#include \"ls_freemem.h\"\n#include \"ls_panic.h\"\n\n// An array of constant strings on a single buffer. Panics on allocation failure.\n\ntypedef struct {\n size_t *data;\n size_t size;\n size_t capacity;\n} LS_StringArray_Offsets;\n\ntypedef struct {\n LS_String buf;\n LS_StringArray_Offsets offsets;\n} LS_StringArray;\n\nLS_INHEADER LS_StringArray ls_strarr_new(void)\n{\n return (LS_StringArray) {\n .buf = ls_string_new(),\n .offsets = {NULL, 0, 0},\n };\n}\n\nLS_INHEADER LS_StringArray ls_strarr_new_reserve(size_t totlen, size_t nelems)\n{\n size_t *offsets_buf = LS_XNEW(size_t, nelems);\n return (LS_StringArray) {\n .buf = ls_string_new_reserve(totlen),\n .offsets = {offsets_buf, 0, nelems},\n };\n}\n\nLS_INHEADER void ls_strarr_append(LS_StringArray *sa, const char *buf, size_t nbuf)\n{\n LS_StringArray_Offsets *o = &sa->offsets;\n if (o->size == o->capacity) {\n o->data = LS_M_X2REALLOC(o->data, &o->capacity);\n }\n o->data[o->size++] = sa->buf.size;\n\n ls_string_append_b(&sa->buf, buf, nbuf);\n}\n\nLS_INHEADER void ls_strarr_append_s(LS_StringArray *sa, const char *s)\n{\n LS_ASSERT(s != NULL);\n\n ls_strarr_append(sa, s, strlen(s) + 1);\n}\n\nLS_INHEADER size_t ls_strarr_size(LS_StringArray sa)\n{\n return sa.offsets.size;\n}\n\nLS_INHEADER const char *ls_strarr_at(LS_StringArray sa, size_t i, size_t *n)\n{\n LS_StringArray_Offsets o = sa.offsets;\n\n LS_ASSERT(i < o.size);\n\n size_t begin = o.data[i];\n size_t end = (i + 1 == o.size) ? sa.buf.size : o.data[i + 1];\n if (n) {\n *n = end - begin;\n }\n return sa.buf.data + begin;\n}\n\nLS_INHEADER void ls_strarr_clear(LS_StringArray *sa)\n{\n ls_string_clear(&sa->buf);\n\n LS_StringArray_Offsets *o = &sa->offsets;\n o->data = LS_M_FREEMEM(o->data, &o->size, &o->capacity);\n}\n\nLS_INHEADER void ls_strarr_destroy(LS_StringArray sa)\n{\n ls_string_free(sa.buf);\n free(sa.offsets.data);\n}\n\n#endif\n"
},
{
"path": "libls/ls_string.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"ls_string.h\"\n\n#include \n#include \n#include \n#include \"ls_panic.h\"\n\nvoid ls_string_append_vf(LS_String *x, const char *fmt, va_list vl)\n{\n va_list vl2;\n va_copy(vl2, vl);\n\n size_t navail = x->capacity - x->size;\n int r = vsnprintf(x->data + x->size, navail, fmt, vl);\n if (r < 0) {\n goto fail;\n }\n if (((size_t) r) >= navail) {\n ls_string_ensure_avail(x, ((size_t) r) + 1);\n if (vsnprintf(x->data + x->size, ((size_t) r) + 1, fmt, vl2) < 0) {\n goto fail;\n }\n }\n x->size += r;\n va_end(vl2);\n return;\n\nfail:\n LS_PANIC_WITH_ERRNUM(\"ls_string_append_vf: vsnprintf() failed\", errno);\n}\n"
},
{
"path": "libls/ls_string.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_string_h_\n#define ls_string_h_\n\n#include \n#include \n#include \n#include \n\n#include \"ls_compdep.h\"\n#include \"ls_alloc_utils.h\"\n#include \"ls_algo.h\"\n#include \"ls_freemem.h\"\n#include \"ls_panic.h\"\n\ntypedef struct {\n char *data;\n size_t size;\n size_t capacity;\n} LS_String;\n\nLS_INHEADER LS_String ls_string_new(void)\n{\n return (LS_String) {NULL, 0, 0};\n}\n\nLS_INHEADER LS_String ls_string_new_reserve(size_t n)\n{\n char *buf = LS_XNEW(char, n);\n return (LS_String) {buf, 0, n};\n}\n\nLS_INHEADER void ls_string_reserve(LS_String *x, size_t n)\n{\n if (x->capacity < n) {\n x->capacity = n;\n x->data = LS_M_XREALLOC(x->data, n);\n }\n}\n\nLS_INHEADER void ls_string_ensure_avail(LS_String *x, size_t n)\n{\n while (x->capacity - x->size < n) {\n x->data = LS_M_X2REALLOC(x->data, &x->capacity);\n }\n}\n\nLS_INHEADER void ls_string_clear(LS_String *x)\n{\n x->data = LS_M_FREEMEM(x->data, &x->size, &x->capacity);\n}\n\nLS_INHEADER void ls_string_assign_b(LS_String *x, const char *buf, size_t nbuf)\n{\n ls_string_reserve(x, nbuf);\n // see DOCS/c_notes/empty-ranges-and-c-stdlib.md\n if (nbuf) {\n memcpy(x->data, buf, nbuf);\n }\n x->size = nbuf;\n}\n\nLS_INHEADER void ls_string_assign_s(LS_String *x, const char *s)\n{\n LS_ASSERT(s != NULL);\n\n ls_string_assign_b(x, s, strlen(s));\n}\n\nLS_INHEADER void ls_string_append_b(LS_String *x, const char *buf, size_t nbuf)\n{\n ls_string_ensure_avail(x, nbuf);\n // see DOCS/c_notes/empty-ranges-and-c-stdlib.md\n if (nbuf) {\n memcpy(x->data + x->size, buf, nbuf);\n }\n x->size += nbuf;\n}\n\nLS_INHEADER void ls_string_append_s(LS_String *x, const char *s)\n{\n LS_ASSERT(s != NULL);\n\n ls_string_append_b(x, s, strlen(s));\n}\n\nLS_INHEADER void ls_string_append_c(LS_String *x, char c)\n{\n if (x->size == x->capacity) {\n x->data = LS_M_X2REALLOC(x->data, &x->capacity);\n }\n x->data[x->size++] = c;\n}\n\n// Appends a formatted string to /x/.\nLS_ATTR_PRINTF(2, 0)\nvoid ls_string_append_vf(LS_String *x, const char *fmt, va_list vl);\n\n// Appends a formatted string to /x/.\nLS_INHEADER LS_ATTR_PRINTF(2, 3)\nvoid ls_string_append_f(LS_String *x, const char *fmt, ...)\n{\n va_list vl;\n va_start(vl, fmt);\n ls_string_append_vf(x, fmt, vl);\n va_end(vl);\n}\n\nLS_ATTR_PRINTF(2, 0)\nLS_INHEADER void ls_string_assign_vf(LS_String *x, const char *fmt, va_list vl)\n{\n ls_string_clear(x);\n ls_string_append_vf(x, fmt, vl);\n}\n\nLS_INHEADER LS_ATTR_PRINTF(2, 3)\nvoid ls_string_assign_f(LS_String *s, const char *fmt, ...)\n{\n va_list vl;\n va_start(vl, fmt);\n ls_string_assign_vf(s, fmt, vl);\n va_end(vl);\n}\n\nLS_INHEADER LS_String ls_string_new_from_s(const char *s)\n{\n LS_String x = ls_string_new();\n ls_string_assign_s(&x, s);\n return x;\n}\n\nLS_INHEADER LS_String ls_string_new_from_b(const char *buf, size_t nbuf)\n{\n LS_String x = ls_string_new();\n ls_string_assign_b(&x, buf, nbuf);\n return x;\n}\n\nLS_INHEADER LS_ATTR_PRINTF(1, 0)\nLS_String ls_string_new_from_vf(const char *fmt, va_list vl)\n{\n LS_String x = ls_string_new();\n ls_string_append_vf(&x, fmt, vl);\n return x;\n}\n\nLS_INHEADER LS_ATTR_PRINTF(1, 2)\nLS_String ls_string_new_from_f(const char *fmt, ...)\n{\n va_list vl;\n va_start(vl, fmt);\n LS_String x = ls_string_new_from_vf(fmt, vl);\n va_end(vl);\n return x;\n}\n\nLS_INHEADER bool ls_string_eq_b(LS_String x, const char *buf, size_t nbuf)\n{\n // We have to check that the size is not zero before calling /memcmp/:\n // see DOCS/c_notes/empty-ranges-and-c-stdlib.md\n return x.size == nbuf && (nbuf == 0 || memcmp(x.data, buf, nbuf) == 0);\n}\n\nLS_INHEADER bool ls_string_eq(LS_String x, LS_String y)\n{\n return ls_string_eq_b(x, y.data, y.size);\n}\n\n// Swaps two string efficiently (in O(1) time).\nLS_INHEADER void ls_string_swap(LS_String *x, LS_String *y)\n{\n LS_SWAP(LS_String, *x, *y);\n}\n\nLS_INHEADER void ls_string_free(LS_String x)\n{\n free(x.data);\n}\n\n#endif\n"
},
{
"path": "libls/ls_time_utils.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_time_utils_h_\n#define ls_time_utils_h_\n\n#include \n#include \n#include \n#include \n#include \n#include \n#include \n\n#include \"ls_compdep.h\"\n#include \"ls_panic.h\"\n\n// Time deltas >= LS_TMO_MAX (in seconds) are treated as \"forever\".\n#define LS_TMO_MAX 2147483647.0\n\n// These are wrapped into structs so that it's hard to do the wrong thing.\n\n// A time stamp. Can be either valid or \"bad\".\ntypedef struct {\n double ts;\n} LS_TimeStamp;\n\n// A time delta. Can be either valid or \"forever\".\ntypedef struct {\n double delta;\n} LS_TimeDelta;\n\n#define LS_TD_FOREVER ((LS_TimeDelta) {LS_TMO_MAX})\n\n#define LS_TD_ZERO ((LS_TimeDelta) {0.0})\n\n#define LS_TS_BAD ((LS_TimeStamp) {-1.0})\n\nLS_INHEADER bool ls_double_is_good_time_delta(double x)\n{\n return isgreaterequal(x, 0.0);\n}\n\nLS_INHEADER bool ls_TD_is_forever(LS_TimeDelta TD)\n{\n return TD.delta >= LS_TMO_MAX;\n}\n\nLS_INHEADER bool ls_TS_is_bad(LS_TimeStamp TS)\n{\n return TS.ts < 0;\n}\n\nLS_INHEADER bool ls_double_to_TD_checked(double delta, LS_TimeDelta *out)\n{\n if (!ls_double_is_good_time_delta(delta)) {\n return false;\n }\n if (delta > LS_TMO_MAX) {\n delta = LS_TMO_MAX;\n }\n *out = (LS_TimeDelta) {delta};\n return true;\n}\n\nLS_INHEADER LS_TimeDelta ls_double_to_TD(double delta, LS_TimeDelta if_bad)\n{\n LS_TimeDelta res;\n if (ls_double_to_TD_checked(delta, &res)) {\n return res;\n }\n return if_bad;\n}\n\nLS_INHEADER LS_TimeDelta ls_double_to_TD_or_die(double delta)\n{\n LS_TimeDelta res;\n if (!ls_double_to_TD_checked(delta, &res)) {\n LS_PANIC(\"ls_double_to_TD_or_die() failed\");\n }\n return res;\n}\n\nLS_INHEADER double ls_timespec_to_raw_double(struct timespec ts)\n{\n double s = ts.tv_sec;\n double ns = ts.tv_nsec;\n return s + ns / 1e9;\n}\n\nLS_INHEADER LS_TimeStamp ls_timespec_to_TS(struct timespec ts)\n{\n return (LS_TimeStamp) {ls_timespec_to_raw_double(ts)};\n}\n\nLS_INHEADER LS_TimeDelta ls_timespec_to_TD(struct timespec ts)\n{\n return (LS_TimeDelta) {ls_timespec_to_raw_double(ts)};\n}\n\nLS_INHEADER struct timespec ls_now_timespec(void)\n{\n struct timespec ts;\n int rc;\n\n#if (!defined(_POSIX_MONOTONIC_CLOCK)) || (_POSIX_MONOTONIC_CLOCK < 0)\n // CLOCK_MONOTONIC is not supported at compile-time.\n rc = clock_gettime(CLOCK_REALTIME, &ts);\n\n#elif _POSIX_MONOTONIC_CLOCK > 0\n // CLOCK_MONOTONIC is supported both at compile-time and at run-time.\n rc = clock_gettime(CLOCK_MONOTONIC, &ts);\n\n#else\n // CLOCK_MONOTONIC is supported at compile-time, but might or might not\n // be supported at run-time.\n rc = clock_gettime(CLOCK_MONOTONIC, &ts);\n if (rc < 0) {\n rc = clock_gettime(CLOCK_REALTIME, &ts);\n }\n#endif\n\n if (rc < 0) {\n LS_PANIC(\"clock_gettime() failed\");\n }\n return ts;\n}\n\nLS_INHEADER LS_TimeStamp ls_now(void)\n{\n return ls_timespec_to_TS(ls_now_timespec());\n}\n\nLS_INHEADER struct timespec ls_TD_to_timespec(LS_TimeDelta TD)\n{\n LS_ASSERT(!ls_TD_is_forever(TD));\n\n double delta = TD.delta;\n return (struct timespec) {\n .tv_sec = delta,\n .tv_nsec = (delta - (time_t) delta) * 1e9,\n };\n}\n\nLS_INHEADER struct timeval ls_TD_to_timeval(LS_TimeDelta TD)\n{\n LS_ASSERT(!ls_TD_is_forever(TD));\n\n double delta = TD.delta;\n return (struct timeval) {\n .tv_sec = delta,\n .tv_usec = (delta - (time_t) delta) * 1e6,\n };\n}\n\nLS_INHEADER int ls_TD_to_poll_ms_tmo(LS_TimeDelta TD)\n{\n if (ls_TD_is_forever(TD)) {\n return -1;\n }\n double ms = TD.delta * 1000;\n return ms > INT_MAX ? INT_MAX : ms;\n}\n\nLS_INHEADER LS_TimeDelta ls_TS_minus_TS_nonneg(LS_TimeStamp a, LS_TimeStamp b)\n{\n LS_ASSERT(!ls_TS_is_bad(a));\n LS_ASSERT(!ls_TS_is_bad(b));\n\n double res = a.ts - b.ts;\n return (LS_TimeDelta) {res < 0 ? 0 : res};\n}\n\nLS_INHEADER LS_TimeStamp ls_TS_plus_TD(LS_TimeStamp a, LS_TimeDelta b)\n{\n LS_ASSERT(!ls_TS_is_bad(a));\n LS_ASSERT(!ls_TD_is_forever(b));\n\n return (LS_TimeStamp) {a.ts + b.delta};\n}\n\nLS_INHEADER bool ls_TD_less(LS_TimeDelta a, LS_TimeDelta b)\n{\n if (ls_TD_is_forever(a) && ls_TD_is_forever(b)) {\n return false;\n }\n return a.delta < b.delta;\n}\n\nLS_INHEADER void ls_sleep(LS_TimeDelta TD)\n{\n if (ls_TD_is_forever(TD)) {\n for (;;) {\n pause();\n }\n }\n\n struct timespec ts = ls_TD_to_timespec(TD);\n struct timespec rem;\n while (nanosleep(&ts, &rem) < 0 && errno == EINTR) {\n ts = rem;\n }\n}\n\nLS_INHEADER void ls_sleep_simple(double seconds)\n{\n ls_sleep(ls_double_to_TD_or_die(seconds));\n}\n\n#endif\n"
},
{
"path": "libls/ls_tls_ebuf.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"ls_tls_ebuf.h\"\n\nstatic __thread char ebuf[LS_TLS_EBUF_N];\n\nchar *ls_tls_ebuf(void)\n{\n return ebuf;\n}\n"
},
{
"path": "libls/ls_tls_ebuf.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_tls_ebuf_h_\n#define ls_tls_ebuf_h_\n\n#include \"ls_compdep.h\"\n#include \"ls_cstring_utils.h\"\n\n// Thread-local storage buffer. Used mostly as a buffer for /ls_strerror_r/.\n\nenum { LS_TLS_EBUF_N = 512 };\n\nchar *ls_tls_ebuf(void);\n\nLS_INHEADER const char *ls_tls_strerror(int errnum)\n{\n return ls_strerror_r(errnum, ls_tls_ebuf(), LS_TLS_EBUF_N);\n}\n\n#endif\n"
},
{
"path": "libls/ls_xallocf.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"ls_xallocf.h\"\n#include \n#include \n#include \n#include \n#include \"ls_alloc_utils.h\"\n#include \"ls_panic.h\"\n\nchar *ls_xallocvf(const char *fmt, va_list vl)\n{\n va_list vl2;\n va_copy(vl2, vl);\n\n int n = vsnprintf(NULL, 0, fmt, vl);\n if (n < 0) {\n goto fail;\n }\n size_t nbuf = ((size_t) n) + 1;\n char *r = LS_XNEW(char, nbuf);\n if (vsnprintf(r, nbuf, fmt, vl2) < 0) {\n goto fail;\n }\n va_end(vl2);\n return r;\n\nfail:\n LS_PANIC_WITH_ERRNUM(\"ls_xallocvf: vsnprintf() failed\", errno);\n}\n"
},
{
"path": "libls/ls_xallocf.h",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef ls_xallocf_h_\n#define ls_xallocf_h_\n\n#include \n#include \"ls_compdep.h\"\n\n// Functions below allocate a formatted C string (as with with 'malloc()').\n// They panic on failure (including out-of-memory condition, bad format\n// string, etc).\n\nLS_ATTR_PRINTF(1, 0)\nchar *ls_xallocvf(const char *fmt, va_list vl);\n\nLS_INHEADER LS_ATTR_PRINTF(1, 2)\nchar *ls_xallocf(const char *fmt, ...)\n{\n va_list vl;\n va_start(vl, fmt);\n char *r = ls_xallocvf(fmt, vl);\n va_end(vl);\n return r;\n}\n\n#endif\n"
},
{
"path": "libmoonvisit/CMakeLists.txt",
"content": "file (GLOB sources \"*.c\")\nadd_library (moonvisit OBJECT ${sources})\n\ntarget_compile_definitions (moonvisit PUBLIC -D_POSIX_C_SOURCE=200809L)\nluastatus_target_compile_with (moonvisit LUA)\n\nfind_library (MATH_LIBRARY m)\nif (MATH_LIBRARY)\n target_link_libraries (moonvisit PUBLIC ${MATH_LIBRARY})\nendif ()\n\nset_target_properties (moonvisit PROPERTIES POSITION_INDEPENDENT_CODE ON)\n"
},
{
"path": "libmoonvisit/README.txt",
"content": "Just a tiny library that helps with traversing complex Lua structures.\n"
},
{
"path": "libmoonvisit/moonvisit.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"moonvisit.h\"\n\n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n\nstatic void oom_handler(void)\n{\n fputs(\"FATAL ERROR: out of memory (libmoonvisit).\\n\", stderr);\n abort();\n}\n\n// Copies zero-terminated 'src' into buffer 'dst' of size 'ndst', possibly truncating, but always\n// zero-terminating the output (unless 'ndst' is 0, of course).\n//\n// Returns number of bytes written, not including terminating NUL.\nstatic size_t write_str(char *dst, size_t ndst, const char *src)\n{\n if (!ndst) {\n return 0;\n }\n size_t ncopy = strnlen(src, ndst - 1);\n memcpy(dst, src, ncopy);\n dst[ncopy] = '\\0';\n return ncopy;\n}\n\nbool moon_visit_err(MoonVisit *mv, const char *fmt, ...)\n{\n size_t off = 0;\n if (mv->where) {\n off += write_str(mv->errbuf + off, mv->nerrbuf - off, mv->where);\n off += write_str(mv->errbuf + off, mv->nerrbuf - off, \": \");\n }\n\n va_list vl;\n va_start(vl, fmt);\n int r = vsnprintf(mv->errbuf + off, mv->nerrbuf - off, fmt, vl);\n va_end(vl);\n\n if (r < 0) {\n mv->errbuf[0] = '\\0';\n return false;\n }\n return true;\n}\n\nint moon_visit_checktype_at(\n MoonVisit *mv,\n const char *what,\n int pos,\n int type)\n{\n int got_type = lua_type(mv->L, pos);\n if (got_type != type) {\n if (what) {\n moon_visit_err(\n mv, \"%s: expected %s, found %s\",\n what,\n lua_typename(mv->L, type),\n lua_typename(mv->L, got_type));\n } else {\n moon_visit_err(\n mv, \"expected %s, found %s\",\n lua_typename(mv->L, type),\n lua_typename(mv->L, got_type));\n }\n return -1;\n }\n return 0;\n}\n\nint moon_visit_str_f(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n int (*f)(MoonVisit *mv, void *ud, const char *s, size_t ns),\n void *ud,\n bool skip_nil)\n{\n int top = lua_gettop(mv->L);\n int r;\n\n lua_getfield(mv->L, table_pos, key);\n\n if (skip_nil && lua_isnil(mv->L, -1)) {\n r = 0;\n goto done;\n }\n\n if (moon_visit_checktype_at(mv, key, -1, LUA_TSTRING) < 0) {\n r = -1;\n goto done;\n }\n\n size_t ns;\n const char *s = lua_tolstring(mv->L, -1, &ns);\n\n const char *old_where = mv->where;\n r = f(mv, ud, s, ns);\n mv->where = old_where;\n\ndone:\n lua_settop(mv->L, top);\n return r;\n}\n\nint moon_visit_str(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n char **ps,\n size_t *pn,\n bool skip_nil)\n{\n int r;\n lua_getfield(mv->L, table_pos, key);\n if (skip_nil && lua_isnil(mv->L, -1)) {\n r = 0;\n goto done;\n }\n if (moon_visit_checktype_at(mv, key, -1, LUA_TSTRING) < 0) {\n r = -1;\n goto done;\n }\n\n size_t ns;\n const char *s = lua_tolstring(mv->L, -1, &ns);\n\n char *buf = malloc(ns + 1);\n if (!buf) {\n oom_handler();\n }\n memcpy(buf, s, ns + 1);\n\n *ps = buf;\n if (pn) {\n *pn = ns;\n }\n r = 1;\n\ndone:\n lua_pop(mv->L, 1);\n return r;\n}\n\nint moon_visit_num(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n double *p,\n bool skip_nil)\n{\n int r;\n lua_getfield(mv->L, table_pos, key);\n if (skip_nil && lua_isnil(mv->L, -1)) {\n r = 0;\n goto done;\n }\n if (moon_visit_checktype_at(mv, key, -1, LUA_TNUMBER) < 0) {\n r = -1;\n goto done;\n }\n\n *p = lua_tonumber(mv->L, -1);\n r = 1;\n\ndone:\n lua_pop(mv->L, 1);\n return r;\n}\n\nint moon_visit_bool(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n bool *p,\n bool skip_nil)\n{\n int r;\n lua_getfield(mv->L, table_pos, key);\n if (skip_nil && lua_isnil(mv->L, -1)) {\n r = 0;\n goto done;\n }\n if (moon_visit_checktype_at(mv, key, -1, LUA_TBOOLEAN) < 0) {\n r = -1;\n goto done;\n }\n\n *p = lua_toboolean(mv->L, -1);\n r = 1;\n\ndone:\n lua_pop(mv->L, 1);\n return r;\n}\n\nint moon_visit_table_f(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n int (*f)(MoonVisit *mv, void *ud, int kpos, int vpos),\n void *ud,\n bool skip_nil)\n{\n int r;\n\n lua_getfield(mv->L, table_pos, key);\n\n if (skip_nil && lua_isnil(mv->L, -1)) {\n r = 0;\n goto done;\n }\n\n r = moon_visit_table_f_at(mv, key, -1, f, ud);\n\ndone:\n lua_pop(mv->L, 1);\n return r;\n}\n\nstatic inline bool aux_is_first_key_numeric(lua_State *L, int pos)\n{\n // L: ?\n int adj_pos = pos < 0 ? (pos - 1) : pos;\n lua_pushnil(L); // L: ? nil\n if (!lua_next(L, adj_pos)) {\n // L: ?\n return false;\n }\n // L: ? key value\n bool res = lua_isnumber(L, -2);\n lua_pop(L, 2); // L: ?\n return res;\n}\n\nstatic inline size_t aux_get_array_len(lua_State *L, int pos)\n{\n#if LUA_VERSION_NUM <= 501\n return lua_objlen(L, pos);\n#else\n return lua_rawlen(L, pos);\n#endif\n}\n\nint moon_visit_table_f_at(\n MoonVisit *mv,\n const char *what,\n int pos,\n int (*f)(MoonVisit *mv, void *ud, int kpos, int vpos),\n void *ud)\n{\n int top = lua_gettop(mv->L);\n int r;\n\n if (moon_visit_checktype_at(mv, what, pos, LUA_TTABLE) < 0) {\n r = -1;\n goto done;\n }\n\n r = 0;\n const char *old_where = mv->where;\n\n if (aux_is_first_key_numeric(mv->L, pos)) {\n int adj_pos = pos < 0 ? (pos - 1) : pos;\n size_t len = aux_get_array_len(mv->L, pos);\n // L: ?\n for (size_t i = 1; i <= len; ++i) {\n lua_pushinteger(mv->L, i); // mv->L: ? i\n lua_rawgeti(mv->L, adj_pos, i); // mv->L: ? i value\n r = f(mv, ud, -2, -1);\n mv->where = old_where;\n if (r < 0) {\n break;\n }\n lua_pop(mv->L, 2); // mv->L: ?\n }\n } else {\n int adj_pos = pos < 0 ? (pos - 1) : pos;\n // mv->L: ?\n lua_pushnil(mv->L); // mv->L: ? nil\n while (lua_next(mv->L, adj_pos)) {\n // mv->L: ? key value\n r = f(mv, ud, -2, -1);\n mv->where = old_where;\n if (r < 0) {\n break;\n }\n lua_pop(mv->L, 1); // mv->L: ? key\n }\n }\n lua_settop(mv->L, top);\ndone:\n return r;\n}\n\nint moon_visit_sint(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n int64_t *p,\n bool skip_nil)\n{\n double d;\n int r = moon_visit_num(mv, table_pos, key, &d, skip_nil);\n if (r > 0) {\n if (isnan(d)) {\n moon_visit_err(mv, \"%s: is NaN\", key);\n return -1;\n }\n if (!(d >= -9223372036854775808.0 && d < 9223372036854775808.0)) {\n moon_visit_err(mv, \"%s: value out of range INT64_MIN...INT64_MAX\", key);\n return -1;\n }\n *p = d;\n }\n return r;\n}\n\nint moon_visit_uint(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n uint64_t *p,\n bool skip_nil)\n{\n double d;\n int r = moon_visit_num(mv, table_pos, key, &d, skip_nil);\n if (r > 0) {\n if (isnan(d)) {\n moon_visit_err(mv, \"%s: is NaN\", key);\n return -1;\n }\n if (!(d >= 0.0 && d < 18446744073709551616.0)) {\n moon_visit_err(mv, \"%s: value out of range 0...UINT64_MAX\", key);\n return -1;\n }\n *p = d;\n }\n return r;\n}\n\nint moon_visit_scrutinize_table(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n bool nil_ok)\n{\n lua_getfield(mv->L, table_pos, key);\n int type = lua_type(mv->L, -1);\n if (type == LUA_TNIL && nil_ok) {\n return 0;\n }\n if (moon_visit_checktype_at(mv, key, -1, LUA_TTABLE) < 0) {\n lua_pop(mv->L, 1);\n return -1;\n }\n return 0;\n}\n\nint moon_visit_scrutinize_str(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n const char **out,\n size_t *out_len,\n bool nil_ok)\n{\n lua_getfield(mv->L, table_pos, key);\n int type = lua_type(mv->L, -1);\n if (type == LUA_TNIL && nil_ok) {\n *out = NULL;\n if (out_len) {\n *out_len = 0;\n }\n return 0;\n }\n\n if (moon_visit_checktype_at(mv, key, -1, LUA_TSTRING) < 0) {\n lua_pop(mv->L, 1);\n return -1;\n }\n\n if (out_len) {\n *out = lua_tolstring(mv->L, -1, out_len);\n } else {\n *out = lua_tostring(mv->L, -1);\n }\n return 0;\n}\n"
},
{
"path": "libmoonvisit/moonvisit.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef moonvisit_h_\n#define moonvisit_h_\n\n#include \n#include \n#include \n#include \n\n#if ! defined(MOON_VISIT_PRINTF_ATTR)\n# if __GNUC__ >= 2\n# define MOON_VISIT_PRINTF_ATTR(N, M) __attribute__((format(printf, N, M)))\n# else\n# define MOON_VISIT_PRINTF_ATTR(N, M) /*nothing*/\n# endif\n#endif\n\ntypedef struct {\n // Filled by user, never altered (as a pointer) by library.\n lua_State *L;\n\n // Filled by user, never altered (as a pointer) by library.\n //\n // On error, this buffer is written to, assuming it has the size of 'nerrbuf', and is always\n // zero-terminated (unless 'nerrbuf' is 0, of course).\n char *errbuf;\n\n // Filled by the user, never altered by library.\n size_t nerrbuf;\n\n // Filled by user, but might be altered (as a pointer) by the library in the process of\n // saving/restoring old value of 'where'.\n const char *where;\n} MoonVisit;\n\n// Prints a formatted string into 'mv->errbuf' (prepended with \": \" if 'mv->where' is not\n// NULL).\n//\n// Returns true on success, false on \"encoding error\".\nMOON_VISIT_PRINTF_ATTR(2, 3)\nbool moon_visit_err(MoonVisit *mv, const char *fmt, ...);\n\n// Checks that the element at stack position 'pos' in 'mv->L' has type of 'type'.\n// The fact that 'pos' is a valid stack index is *not* checked, simply assumed to be true.\n//\n// 'type' must be one of LUA_T* constants.\n//\n// 'what' must be string description of the value that is being tested.\n//\n// On success, returns 0.\n//\n// On failure, returns -1 and writes the error message into 'mv->errbuf'.\nint moon_visit_checktype_at(\n MoonVisit *mv,\n const char *what,\n int pos,\n int type);\n\nint moon_visit_str_f(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n int (*f)(MoonVisit *mv, void *ud, const char *s, size_t ns),\n void *ud,\n bool skip_nil);\n\n// Duplicates the string as if with 'malloc()', writing zero-terminated duplicated string into\n// '*ps'; and, if 'pn' is not NULL, the length into '*pn'.\nint moon_visit_str(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n char **ps,\n size_t *pn,\n bool skip_nil);\n\nint moon_visit_num(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n double *p,\n bool skip_nil);\n\nint moon_visit_bool(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n bool *p,\n bool skip_nil);\n\nint moon_visit_table_f(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n int (*f)(MoonVisit *mv, void *ud, int kpos, int vpos),\n void *ud,\n bool skip_nil);\n\nint moon_visit_table_f_at(\n MoonVisit *mv,\n const char *what,\n int pos,\n int (*f)(MoonVisit *mv, void *ud, int kpos, int vpos),\n void *ud);\n\n// Beware: current implementation can only faithfully (without precision loss) fetch integers that\n// fit into 'double' (on virtually every platform it means integers with absolute value <= 2^53).\nint moon_visit_sint(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n int64_t *p,\n bool skip_nil);\n\n// Beware: current implementation can only faithfully (without precision loss) fetch integers that\n// fit into 'double' (on virtually every platform it means values that are <= 2^53).\nint moon_visit_uint(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n uint64_t *p,\n bool skip_nil);\n\n// Pushes /t[key]/ on the stack, where /t/ is the table residing at stack position /table_pos/.\n// Checks that the result is a table.\n// If /nil_ok/ is true and the result is nil, pushes a nil instead of a table.\nint moon_visit_scrutinize_table(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n bool nil_ok);\n\n// Pushes /t[key]/ on the stack, where /t/ is the table residing at stack position /table_pos/.\n//\n// Checks that the result is a string. If so, /*out/ is set to the contents of the string,\n// and, if /out_len != NULL/, writes the length of the string into /*out_len/.\n//\n// If /nil_ok/ is true and the result is nil, pushes a nil instead of a table, sets /*out/ to\n// NULL, and, if /out_len != NULL/, sets /*out_len/ to zero.\nint moon_visit_scrutinize_str(\n MoonVisit *mv,\n int table_pos,\n const char *key,\n const char **out,\n size_t *out_len,\n bool nil_ok);\n\n#endif\n"
},
{
"path": "libprocalive/CMakeLists.txt",
"content": "file (GLOB sources \"*.c\")\nadd_library (procalive OBJECT ${sources})\n\ntarget_compile_definitions (procalive PUBLIC -D_POSIX_C_SOURCE=200809L)\nluastatus_target_compile_with (procalive LUA)\n\nfind_library (MATH_LIBRARY m)\nif (MATH_LIBRARY)\n target_link_libraries (procalive PUBLIC ${MATH_LIBRARY})\nendif ()\n\nset_target_properties (procalive PROPERTIES POSITION_INDEPENDENT_CODE ON)\n"
},
{
"path": "libprocalive/procalive_lfuncs.c",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"procalive_lfuncs.h\"\n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n\n#if _POSIX_C_SOURCE < 200112L || defined(_GNU_SOURCE)\n# error \"Unsupported feature test macros.\"\n#endif\n\nstatic __thread char errbuf[512];\n\nstatic const char *my_strerror(int errnum)\n{\n // We introduce an /int/ variable in order to get a compilation warning if /strerror_r()/ is\n // still GNU-specific and returns a pointer to char.\n int r = strerror_r(errnum, errbuf, sizeof(errbuf));\n return r == 0 ? errbuf : \"unknown error or truncated error message\";\n}\n\n#ifdef LUA_MAXINTEGER\n# define MAXI \\\n (LUA_MAXINTEGER > (SIZE_MAX - 1) ? (SIZE_MAX - 1) : LUA_MAXINTEGER)\n#else\n# define MAXI INT_MAX\n#endif\n\nint procalive_lfunc_access(lua_State *L)\n{\n const char *path = luaL_checkstring(L, 1);\n\n if (access(path, F_OK) >= 0) {\n lua_pushboolean(L, 1);\n // L: true\n lua_pushnil(L);\n // L: true nil\n } else {\n int saved_errno = errno;\n lua_pushboolean(L, 0);\n // L: false\n if (saved_errno == ENOENT) {\n lua_pushnil(L);\n // L: false nil\n } else {\n lua_pushstring(L, my_strerror(saved_errno));\n // L: false str\n }\n }\n return 2;\n}\n\nint procalive_lfunc_stat(lua_State *L)\n{\n const char *path = luaL_checkstring(L, 1);\n\n struct stat sb;\n if (stat(path, &sb) < 0) {\n int saved_errno = errno;\n lua_pushnil(L); // L: nil\n lua_pushstring(L, my_strerror(saved_errno)); // L: nil err\n return 2;\n }\n\n mode_t M = sb.st_mode;\n const char *M_str;\n\n if (S_ISREG(M)) {\n M_str = \"regular\";\n\n } else if (S_ISDIR(M)) {\n M_str = \"dir\";\n\n } else if (S_ISCHR(M)) {\n M_str = \"chardev\";\n\n } else if (S_ISBLK(M)) {\n M_str = \"blockdev\";\n\n } else if (S_ISFIFO(M)) {\n M_str = \"fifo\";\n\n } else if (S_ISLNK(M)) {\n M_str = \"symlink\";\n\n } else if (S_ISSOCK(M)) {\n M_str = \"socket\";\n\n } else {\n M_str = \"other\";\n }\n\n lua_pushstring(L, M_str); // L: res\n lua_pushnil(L); // L: res nil\n return 2;\n}\n\nstatic inline int get_lua_num_prealloc(size_t n)\n{\n return n < (size_t) INT_MAX ? (int) n : INT_MAX;\n}\n\nstatic bool push_glob_t(lua_State *L, glob_t *g)\n{\n size_t n = g->gl_pathc;\n if (n > (size_t) MAXI) {\n return false;\n }\n lua_createtable(L, get_lua_num_prealloc(n), 0); // L: array\n for (size_t i = 0; i < n; ++i) {\n lua_pushstring(L, g->gl_pathv[i]); // L: array str\n lua_rawseti(L, -2, i + 1); // L: array\n }\n return true;\n}\n\nint procalive_lfunc_glob(lua_State *L)\n{\n const char *pattern = luaL_checkstring(L, 1);\n\n glob_t g = {0};\n int rc = glob(pattern, GLOB_MARK | GLOB_NOSORT, NULL, &g);\n int err_num;\n\n switch (rc) {\n case 0:\n if (!push_glob_t(L, &g)) {\n err_num = EOVERFLOW;\n goto fail;\n }\n // L: res\n goto ok;\n\n case GLOB_NOMATCH:\n lua_newtable(L); // L: res\n goto ok;\n\n case GLOB_ABORTED:\n err_num = EIO;\n goto fail;\n\n case GLOB_NOSPACE:\n err_num = ENOMEM;\n goto fail;\n\n default:\n err_num = EINVAL;\n goto fail;\n }\n\nok:\n globfree(&g);\n // L: res\n lua_pushnil(L); // L: res nil\n return 2;\n\nfail:\n globfree(&g);\n lua_pushnil(L); // L: nil\n lua_pushstring(L, my_strerror(err_num)); // L: nil err\n return 2;\n}\n\nstatic pid_t parse_pid(const char *s, const char **out_err_msg)\n{\n char *endptr;\n errno = 0;\n intmax_t mres = strtoimax(s, &endptr, 10);\n\n if (errno != 0 || *s == '\\0' || *endptr != '\\0') {\n *out_err_msg = \"cannot parse into intmax_t\";\n return -1;\n }\n\n pid_t res = mres;\n if (res <= 0 || res != mres) {\n *out_err_msg = \"outside of valid range for pid_t\";\n return -1;\n }\n return res;\n}\n\nint procalive_lfunc_is_process_alive(lua_State *L)\n{\n luaL_checkany(L, 1);\n\n pid_t pid;\n\n if (lua_isstring(L, 1)) {\n const char *err_msg;\n pid = parse_pid(lua_tostring(L, 1), &err_msg);\n if (pid <= 0) {\n return luaL_argerror(L, 1, err_msg);\n }\n } else if (lua_isnumber(L, 1)) {\n double d = lua_tonumber(L, 1);\n if (!isgreaterequal(d, 1.0)) {\n return luaL_argerror(L, 1, \"must be >= 1\");\n }\n if (d > INT_MAX) {\n return luaL_argerror(L, 1, \"too large\");\n }\n int i = (int) d;\n pid = (pid_t) i;\n if (pid <= 0 || pid != i) {\n return luaL_argerror(L, 1, \"outside of valid range for pid_t\");\n }\n } else {\n return luaL_argerror(L, 1, \"neither number nor string\");\n }\n\n bool res = (kill(pid, 0) >= 0 || errno == EPERM);\n\n lua_pushboolean(L, res); // L: res\n return 1;\n}\n\nvoid procalive_lfuncs_register_all(lua_State *L)\n{\n // L: table\n\n lua_pushcfunction(L, procalive_lfunc_access); // L: table func\n lua_setfield(L, -2, \"access\"); // L: table\n\n lua_pushcfunction(L, procalive_lfunc_stat); // L: table func\n lua_setfield(L, -2, \"stat\"); // L: table\n\n lua_pushcfunction(L, procalive_lfunc_glob); // L: table func\n lua_setfield(L, -2, \"glob\"); // L: table\n\n lua_pushcfunction(L, procalive_lfunc_is_process_alive); // L: table func\n lua_setfield(L, -2, \"is_process_alive\"); // L: table\n}\n"
},
{
"path": "libprocalive/procalive_lfuncs.h",
"content": "/*\n * Copyright (C) 2015-2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#ifndef libprocalive_procalive_lfuncs_h_\n#define libprocalive_procalive_lfuncs_h_\n\n#include \n\n// Lua function access(path):\n// Checks if a given path exists, as if with 'access(path, F_OK)'. If it does\n// exist, returns 'true, nil'. If it does not, returns 'false, nil'. If an error\n// occurs, returns 'false, err_msg'.\nint procalive_lfunc_access(lua_State *L);\n\n// Lua function stat(path):\n// Tries to get the type of the file at the given path. On success returns either of:\n// * \"regular\",\n// * \"dir\" (directory),\n// * \"chardev\" (character device),\n// * \"blockdev\" (block device),\n// * \"fifo\",\n// * \"symlink\",\n// * \"socket\",\n// * \"other\".\n// On failure returns '`'nil, err_msg'.\nint procalive_lfunc_stat(lua_State *L);\n\n// Lua function glob(pattern):\n// Performs glob expansion of pattern. A glob is a wildcard pattern like /tmp/*.txt\n// that can be applied as a filter to a list of existing file names. Supported\n// expansions are *, ? and [...]. Please refer to glob(7) for more information on\n// wildcard patterns.\n//\n// Note also that the globbing is performed with GLOB_MARK flag, so that in output,\n// directories have trailing slash appended to their name.\n//\n// Returns 'arr, nil' on success, where 'arr' is an array of strings; these are\n// existing file names that matched the given pattern. The order is arbitrary.\n//\n// On failure, returns 'nil, err_msg'.\nint procalive_lfunc_glob(lua_State *L);\n\n// Lua function is_process_alive(pid):\n// Checks if a process with PID 'pid' is currently alive. 'pid' must be either a\n// or a string.\n// Returns a boolean that indicates whether the process is alive.\nint procalive_lfunc_is_process_alive(lua_State *L);\n\n// Registers all functions described above into a table on the top of /L/'s stack.\nvoid procalive_lfuncs_register_all(lua_State *L);\n\n#endif\n"
},
{
"path": "librunshell/CMakeLists.txt",
"content": "file (GLOB sources \"*.c\")\nadd_library (runshell OBJECT ${sources})\n\ntarget_compile_definitions (runshell PUBLIC -D_POSIX_C_SOURCE=200809L)\nluastatus_target_compile_with (runshell LUA)\n\nset_target_properties (runshell PROPERTIES POSITION_INDEPENDENT_CODE ON)\n"
},
{
"path": "librunshell/README.txt",
"content": "A thread-safe (modulo thread cancellation) version of system().\nIt also does not modify SIGQUIT/SIGINT signal dispositions.\n"
},
{
"path": "librunshell/runshell.c",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see .\n */\n\n#include \"runshell.h\"\n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n#include \n\n#if LUA_VERSION_NUM >= 504\n# define my_pushfail(L_) luaL_pushfail(L_)\n#else\n# define my_pushfail(L_) lua_pushnil(L_)\n#endif\n\n#define CANNOT_FAIL(Expr_) \\\n do { \\\n if ((Expr_) < 0) { \\\n perror(\"librunshell: \" #Expr_ \" failed\"); \\\n abort(); \\\n } \\\n } while (0)\n\n#define CANNOT_FAIL_PTH(Expr_) \\\n do { \\\n if ((errno = (Expr_)) != 0) { \\\n perror(\"librunshell: \" #Expr_ \" failed\"); \\\n abort(); \\\n } \\\n } while (0)\n\nstatic __thread char errbuf[512];\n\n#if _POSIX_C_SOURCE < 200112L || defined(_GNU_SOURCE)\n# error \"Unsupported feature test macros.\"\n#endif\n\nstatic __thread char errbuf[512];\n\nstatic const char *my_strerror(int errnum)\n{\n // We introduce an /int/ variable in order to get a compilation warning if /strerror_r()/ is\n // still GNU-specific and returns a pointer to char.\n int r = strerror_r(errnum, errbuf, sizeof(errbuf));\n return r == 0 ? errbuf : \"unknown error or truncated error message\";\n}\n\nextern char **environ;\n\nint runshell(const char *cmd)\n{\n if (!cmd) {\n fputs(\"librunshell: passed cmd == NULL (this is not supported)\\n\", stderr);\n abort();\n }\n\n sigset_t ss_new;\n sigset_t ss_old;\n CANNOT_FAIL(sigemptyset(&ss_new));\n CANNOT_FAIL(sigaddset(&ss_new, SIGCHLD));\n CANNOT_FAIL(sigprocmask(SIG_BLOCK, &ss_new, &ss_old));\n\n posix_spawnattr_t attr;\n CANNOT_FAIL_PTH(posix_spawnattr_init(&attr));\n CANNOT_FAIL_PTH(posix_spawnattr_setsigmask(&attr, &ss_old));\n CANNOT_FAIL_PTH(posix_spawnattr_setflags(&attr, POSIX_SPAWN_SETSIGMASK));\n\n char *const argv[] = {\n (char *) \"sh\",\n (char *) \"-c\",\n (char *) cmd,\n NULL,\n };\n pid_t pid;\n int rc = posix_spawn(\n /*pid=*/ &pid,\n /*path=*/ \"/bin/sh\",\n /*file_actions=*/ NULL,\n /*attrp=*/ &attr,\n /*argv=*/ argv,\n /*envp=*/ environ);\n\n CANNOT_FAIL_PTH(posix_spawnattr_destroy(&attr));\n\n int ret;\n int saved_errno;\n if (rc == 0) {\n saved_errno = 0;\n while (waitpid(pid, &ret, 0) < 0) {\n if (errno != EINTR) {\n ret = -1;\n saved_errno = errno;\n break;\n }\n }\n } else {\n ret = -1;\n saved_errno = rc;\n }\n\n CANNOT_FAIL(sigprocmask(SIG_SETMASK, &ss_old, NULL));\n\n errno = saved_errno;\n return ret;\n}\n\nint runshell_l_os_execute_lua51ver(lua_State *L)\n{\n const char *cmd = luaL_optstring(L, 1, NULL);\n // L: ?\n if (!cmd) {\n lua_pushinteger(L, 1); // L: ? 1\n return 1;\n }\n lua_pushinteger(L, runshell(cmd)); // L: ? code\n return 1;\n}\n\nint runshell_l_os_execute(lua_State *L)\n{\n const char *cmd = luaL_optstring(L, 1, NULL);\n // L: ?\n if (!cmd) {\n lua_pushboolean(L, 1); // L: ? true\n return 1;\n }\n int rc = runshell(cmd);\n if (rc < 0) {\n int saved_errno = errno;\n my_pushfail(L); // L: ? fail\n lua_pushstring(L, my_strerror(saved_errno)); // L: ? fail err_msg\n lua_pushinteger(L, saved_errno); // L: ? fail err_msg errno\n return 3;\n }\n int code;\n bool normal_exit = true;\n if (WIFEXITED(rc)) {\n code = WEXITSTATUS(rc);\n } else if (WIFSIGNALED(rc)) {\n code = WTERMSIG(rc);\n normal_exit = false;\n } else {\n code = rc;\n }\n if (normal_exit && code == 0) {\n lua_pushboolean(L, 1); // L: ? true\n } else {\n my_pushfail(L); // L: ? fail\n }\n lua_pushstring(L, normal_exit ? \"exit\" : \"signal\"); // L: ? is_ok what\n lua_pushinteger(L, code); // L: ? is_ok what code\n return 3;\n}\n"
},
{
"path": "librunshell/runshell.h",
"content": "/*\n * Copyright (C) 2025 luastatus developers\n *\n * This file is part of luastatus.\n *\n * luastatus is free software: you can redistribute it and/or modify\n * it under the terms of the GNU Lesser General Public License as published by\n * the Free Software Foundation, either version 3 of the License, or\n * (at your option) any later version.\n *\n * luastatus is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU Lesser General Public License for more details.\n *\n * You should have received a copy of the GNU Lesser General Public License\n * along with luastatus. If not, see