Kolab Groupware OBS

We truncated the diff of some files because they were too big. If you want to see the full diff for every file, click here.

Difference Between Revision 15 and Kolab:Winterfell / guam

guam.spec Changed

@@ -14,11 +14,13 @@
 %endif
 
 %{!?_unitdir: %global _unitdir /usr/lib/systemd/system}
+%{!?_erldir: %global _erldir /usr/lib64/erlang/}
+%{!?_erllibdir: %global _erllibdir /usr/lib64/erlang/lib}
 
 %define lock_version() %{1}%{?_isa} = %(rpm -q --queryformat "%%{VERSION}" %{1})
 
 Name: guam
-Version: 0.9.11
+Version: 0.9.12
 Release: 1%{?dist}
 Summary: A Smart Reverse IMAP Proxy
 
@@ -29,26 +31,18 @@
 Source0: guam-%{version}.tar.gz
 Source100: plesk.sys.config
 
-Patch9991: nodeps.patch
-
 BuildRequires: erlang >= 17.4
 BuildRequires: erlang-asn1
 BuildRequires: erlang-common_test
 BuildRequires: erlang-compiler
 BuildRequires: erlang-crypto
 BuildRequires: erlang-debugger
-BuildRequires: erlang-eimap >= 0.4.0
 BuildRequires: erlang-erts
 BuildRequires: erlang-et
-BuildRequires: erlang-goldrush >= 0.1.8
 BuildRequires: erlang-kernel
-BuildRequires: erlang-lager >= 3.1.0
-BuildRequires: erlang-lager_syslog >= 2.0.3
 BuildRequires: erlang-mnesia
 BuildRequires: erlang-observer
 BuildRequires: erlang-public_key
-BuildRequires: erlang-rebar3 >= 3.3.2
-BuildRequires: erlang-rpm-macros
 BuildRequires: erlang-runtime_tools
 BuildRequires: erlang-sasl
 BuildRequires: erlang-snmp
@@ -56,17 +50,11 @@
 BuildRequires: erlang-ssl
 BuildRequires: erlang-stdlib
 BuildRequires: erlang-syntax_tools
-BuildRequires: erlang-syslog >= 1.0.3
 BuildRequires: erlang-tools
 BuildRequires: erlang-wx
 BuildRequires: erlang-xmerl
 
-Requires: %lock_version erlang
-Requires: %lock_version erlang-eimap
-Requires: %lock_version erlang-goldrush
-Requires: %lock_version erlang-lager
-Requires: %lock_version erlang-lager_syslog
-
+Requires: erlang
 Requires: which
 
 %if 0%{?with_systemd}
@@ -95,17 +83,23 @@
 %prep
 %setup -q
 
-%patch9991 -p1
-
 %build
 
 DEBUG=1
 export DEBUG
 
+# Only available since hex v0.9.0
 HEX_OFFLINE=true
 export HEX_OFFLINE
 
-rebar3 release \
+REBAR_CACHE_DIR=cache/rebar3/
+export REBAR_CACHE_DIR
+
+# Rebuild all beam files (The otp version from the tarball may not match)
+rm -rf _build
+./rebar3 compile
+
+./rebar3 release \
 --dev-mode false \
 --relname %{name} \
 --relvsn %{version} \
@@ -119,7 +113,7 @@
 %{buildroot}%{_sysconfdir}/%{name}/ \
 %{buildroot}%{_sbindir} \
 %{buildroot}%{_erldir}/bin/ \
- %{buildroot}%{_erllibdir}/%{realname}-%{version}/ \
+ %{buildroot}%{_erllibdir}/ \
 %if 0%{?with_systemd}
 %{buildroot}%{_unitdir}/ \
 %else
@@ -146,10 +140,19 @@
 ln -s ../lib/%{realname}-%{version}/bin/%{binname} %{realname}
 popd
 
-cp -a _build/default/rel/%{name}/bin %{buildroot}%{_erllibdir}/%{realname}-%{version}/
-cp -a _build/default/rel/%{name}/lib/%{realname}-%{version}/ebin/ %{buildroot}%{_erllibdir}/%{realname}-%{version}/
-cp -a _build/default/rel/%{name}/releases/ %{buildroot}%{_erllibdir}/%{realname}-%{version}/
+mkdir -p %{buildroot}%{_erllibdir}/%{realname}-%{version}/bin/
+cp -av _build/default/rel/%{name}/bin/* %{buildroot}%{_erllibdir}/%{realname}-%{version}/bin/
 
+# Remove the sources
+find _build/default/rel/%{name}/lib/ -type d -name "src" -exec rm -Rf {} +
+
+# Copy over all lib dirs
+cp -av _build/default/rel/%{name}/lib/* %{buildroot}%{_erllibdir}/
+
+# Copy over the release directory as well
+cp -av _build/default/rel/%{name}/releases/ %{buildroot}%{_erllibdir}/%{realname}-%{version}/
+
+# More configuration
 %if 0%{?plesk}
 install -m 644 -p %{SOURCE100} %{buildroot}%{_sysconfdir}/guam/sys.config
 %endif
@@ -171,8 +174,18 @@
 EOF
 
 %check
-# Hopeless on -0.9
-rebar3 eunit -v || :
+
+DEBUG=1
+export DEBUG
+
+HEX_OFFLINE=true
+export HEX_OFFLINE
+
+REBAR_CACHE_DIR=cache/rebar3/
+export REBAR_CACHE_DIR
+
+./rebar3 eunit -v
+./rebar3 ct -v
 
 %postun
 %if 0%{?with_systemd}
@@ -214,7 +227,7 @@
 %config(noreplace) %{_sysconfdir}/%{name}/vm.args
 %attr(0750,root,root) %{_sbindir}/%{name}
 %{_libdir}/erlang/bin/%{realname}
-%{_libdir}/erlang/lib/%{realname}-%{version}
+%{_libdir}/erlang/lib/
 %attr(0640,root,root) %{_var}/log/%{name}/
 
 %if 0%{?with_systemd}
@@ -224,6 +237,9 @@
 %endif
 
 %changelog
+* Tue Apr 19 2022 Christian Mollekopf <mollekopf@apheleia-it.ch> - 0.9.12-1
+- Release of version 0.9.12
+
 * Mon Jun 07 2021 Christian Mollekopf <mollekopf@kolabsys.com> - 0.9.11-1
 - Release of version 0.9.11

README.md Added

buildtarball.sh Added

debian.changelog Changed

debian.control Changed

@@ -5,37 +5,19 @@
 Standards-Version: 3.9.6
 Build-Depends: debhelper (>= 10) | dh-systemd (>= 1.5),
 	erlang (>= 17.4),
-	erlang-eimap (>= 0.3.0),
-	erlang-goldrush (>= 0.2.0),
-	erlang-lager,
-	erlang-lager-syslog,
-	psa | bash,
-	erlang-rebar3 (>= 3.3.2)
+	psa | bash
 Homepage: https://kolab.org/about/guam
 
 Package: guam
 Architecture: any
 Section: mail
-Depends: ${misc:Depends}, ${dist:GuamDepends}
+Depends: erlang-base,
+    erlang-base-hipe,
+    erlang-asn1,
+    erlang-goldrush,
+    erlang-inets,
+    erlang-lager,
+    erlang-public-key
 Description: Smart Reverse IMAP Proxy
  Guam is a smart, unjustly outcast Reverse IMAP Proxy that lives at
  the perimeter of your IMAP environment.
-
-Package: guam-libs
-Architecture: any
-Section: mail
-Depends: ${misc:Depends}, ${dist:GuamLibDepends}
-Conflicts: guam-bundled-libs
-Description: Dependency meta-package for Guam
- This package pulls in all the library dependencies required to run Guam.
- Debian backports users who have a backported Erlang version may need to install
- guam-bundled-libs instead.
-
-Package: guam-bundled-libs
-Architecture: any
-Section: mail
-Depends: ${misc:Depends}, ${dist:GuamBundleDepends}
-Conflicts: guam-libs
-Description: Bundled runtime environment for Guam
- This is a support package for Debian backports users who have a backported
- Erlang version. All others should preferably use guam-libs.

debian.rules Changed

@@ -3,7 +3,7 @@
 include /usr/share/dpkg/pkg-info.mk
 
 DESTDIR = $(CURDIR)/debian/guam
-LIBDIR = $(CURDIR)/debian/guam-libs
+LIBDIR	 = $(CURDIR)/debian/guam-libs
 BUNDLEDIR = $(CURDIR)/debian/guam-bundled-libs
 
 # The versions of all dependencies are hardcoded by relx (which honestly sucks).
@@ -18,58 +18,65 @@
 #
 # For maintainers, the bottom line is this: please revision-bump this package
 # every time one of its dependencies gets version-bumped.
-currver = $(shell dpkg-query -f '$${Version}' -W $(1) | sed 's/[+-].*$$//')
-nextver = $(shell echo $(call currver,$(1)) | perl -pe 's/((\d+\.)*)(\d+)$$/$$1.($$3+1)/e')
-pinvermin = $(1) (>= $(call currver,$(1)))
-pinvermax = $(1) (<< $(call nextver,$(1)))
-pinver = $(call pinvermin,$(1)), $(call pinvermax,$(1))
-pinvererlmin = $(1) (>= $(call currver,erlang))
-pinvererlmax = $(1) (<< $(call nextver,erlang))
+# currver = $(shell dpkg-query -f '$${Version}' -W $(1) | sed 's/[+-].*$$//')
+# nextver = $(shell echo $(call currver,$(1)) | perl -pe 's/((\d+\.)*)(\d+)$$/$$1.($$3+1)/e')
+# pinvermin = $(1) (>= $(call currver,$(1)))
+# pinvermax = $(1) (<< $(call nextver,$(1)))
+# pinver	= $(call pinvermin,$(1)), $(call pinvermax,$(1))
+# pinvererlmin = $(1) (>= $(call currver,erlang))
+# pinvererlmax = $(1) (<< $(call nextver,erlang))
 
 # We ship these packages ourselves, so they don't need bundling
-KOLAB_PROVIDED_DEPS := $(call pinver,erlang-eimap), $(call pinver,erlang-lager-syslog)
-EIMAP_DIR := eimap-$(call currver,erlang-eimap)
-LAGER_SYSLOG_DIR := lager_syslog-$(call currver,erlang-lager-syslog)
+# KOLAB_PROVIDED_DEPS := $(call pinver,erlang-eimap), $(call pinver,erlang-lager-syslog)
+# EIMAP_DIR		 := eimap-$(call currver,erlang-eimap)
+# LAGER_SYSLOG_DIR := lager_syslog-$(call currver,erlang-lager-syslog)
 
-SUBSTVARS += -Vdist:GuamDepends="guam-libs (= $(DEB_VERSION)) | guam-bundled-libs (= $(DEB_VERSION))"
-SUBSTVARS += -Vdist:GuamLibDepends="$(call pinvererlmin,erlang-base) | $(call pinvererlmin,erlang-base-hipe), $(call pinvererlmax,erlang-base) | $(call pinvererlmax,erlang-base-hipe), $(KOLAB_PROVIDED_DEPS), $(call pinver,erlang-asn1), $(call pinver,erlang-goldrush), $(call pinver,erlang-inets), $(call pinver,erlang-lager), $(call pinver,erlang-public-key)"
-SUBSTVARS += -Vdist:GuamBundleDepends="$(KOLAB_PROVIDED_DEPS)"
+# SUBSTVARS += -Vdist:GuamDepends="guam-libs (= $(DEB_VERSION)) | guam-bundled-libs (= $(DEB_VERSION))"
+# SUBSTVARS += -Vdist:GuamLibDepends="$(call pinvererlmin,erlang-base) | $(call pinvererlmin,erlang-base-hipe), $(call pinvererlmax,erlang-base) | $(call pinvererlmax,erlang-base-hipe), $(KOLAB_PROVIDED_DEPS), $(call pinver,erlang-asn1), $(call pinver,erlang-goldrush), $(call pinver,erlang-inets), $(call pinver,erlang-lager), $(call pinver,erlang-public-key)"
+# SUBSTVARS += -Vdist:GuamBundleDepends="$(KOLAB_PROVIDED_DEPS)"
 
 %:
 	dh $@ --with=systemd
 
 override_dh_auto_build:
-	sed -i -e 's/include_erts,\s*false/include_erts, true/' rebar.config
+	# sed -i -e 's/include_erts,\s*false/include_erts, true/' rebar.config
 	export DEBUG=1
-	export HEX_OFFLINE=1
+	export HEX_OFFLINE=true
+	export REBAR_CACHE_DIR="cache/rebar3/"
+
+	# Rebuild all beam files (The otp version from the tarball may not match)
+	rm -rf _build
+	./rebar3 compile
+
 	./rebar3 release \
 		--dev-mode false \
 		--relname guam \
 		--relvsn $(DEB_VERSION_UPSTREAM) \
 		--verbose
 
-
 override_dh_auto_clean:
-	./rebar3 clean || :
+ #./rebar3 clean || :
 
 override_dh_auto_test:
+	export DEBUG=1
+	export HEX_OFFLINE=true
+	export REBAR_CACHE_DIR="cache/rebar3/"
 	./rebar3 eunit -v || :
+	./rebar3 ct -v || :
 
 override_dh_auto_install:
-	mkdir -p $(DESTDIR)/usr/sbin $(DESTDIR)/etc/guam \
-		$(DESTDIR)/lib/systemd/system $(DESTDIR)/var/log/ \
+	mkdir -p $(DESTDIR)/usr/sbin \
+		$(DESTDIR)/etc/guam \
+		$(DESTDIR)/lib/systemd/system \
+		$(DESTDIR)/var/log/ \
 		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/ \
-		$(DESTDIR)/usr/lib/erlang/bin $(DESTDIR)/var/log/guam
+		$(DESTDIR)/usr/lib/erlang/bin \
+		$(DESTDIR)/var/log/guam
 	chmod o= $(DESTDIR)/var/log/guam
 
+	# Service scripts
 	install -p -m 644 contrib/guam.service \
-	 $(DESTDIR)/lib/systemd/system/guam.service
-
-	cp -a _build/default/rel/guam/bin \
-		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
-
-	cp -a _build/default/rel/guam/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/ebin \
-		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
+			$(DESTDIR)/lib/systemd/system/guam.service
 
 	rm _build/default/rel/guam/releases/$(DEB_VERSION_UPSTREAM)/sys.config
 	rm _build/default/rel/guam/releases/$(DEB_VERSION_UPSTREAM)/vm.args
@@ -77,6 +84,7 @@
 	cp -a _build/default/rel/guam/releases \
 		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
 
+	# Configuration
 	if [ -f "/etc/plesk-release" ]; then \
 		cp ../SOURCES/plesk.sys.config \
 			$(DESTDIR)/etc/guam/sys.config ; \
@@ -99,9 +107,25 @@
 
 	ln -s ../../../../../var/log/guam $(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/log
 
+	cp -a _build/default/rel/guam/bin \
+		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
+
+	#cp -a _build/default/rel/guam/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/ebin \
+	#		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
+
+
+	# Remove the sources
+	find _build/default/rel/guam/lib/ -type d -name "src" -exec rm -Rf {} +
+
+	# Copy over all lib dirs
+	cp -av _build/default/rel/guam/lib/* $(DESTDIR)/usr/lib/erlang/lib/
+
+	# Copy over the release directory as well
+	cp -av _build/default/rel/guam/releases/ $(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
+
 	echo '#!/bin/bash' > $(DESTDIR)/usr/sbin/guam
 	echo 'exec /usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/bin/guam $$*' \
-	 >> $(DESTDIR)/usr/sbin/guam
+		 >> $(DESTDIR)/usr/sbin/guam
 	chmod +x $(DESTDIR)/usr/sbin/guam
 
 	ln -s ../lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/bin/guam \
@@ -112,17 +136,18 @@
 	ln -s ../../lib $(LIBDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib
 
 	# Bundled runtime system and libraries
-	mkdir -p $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
-	cp -a _build/default/rel/guam/erts-* \
-		$(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
-	cp -a _build/default/rel/guam/lib \
-		$(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
-	rm -r $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
-	ln -s .. $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
-	for dir in $(EIMAP_DIR) $(LAGER_SYSLOG_DIR); do \
-		rm -r $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/$$dir; \
-		ln -s ../../$$dir $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/$$dir; \
-	done
+	# mkdir -p $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
+	# cp -a _build/default/rel/guam/erts-* \
+	# 	$(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
+	# cp -a _build/default/rel/guam/lib \
+	# 	$(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
+	# rm -r $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
+	# ln -s .. $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
+	# for dir in $(EIMAP_DIR) $(LAGER_SYSLOG_DIR); do \
+	# 	rm -r $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/$$dir; \
+	# 	ln -s ../../$$dir $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/$$dir; \
+	# done
 
 override_dh_gencontrol:
-	dh_gencontrol -- $(SUBSTVARS)
+	#dh_gencontrol -- $(SUBSTVARS)
+	dh_gencontrol

debian.series Changed

guam-0.9.11.tar.gz/CHANGELOG.md -> guam-0.9.12.tar.gz/CHANGELOG.md Changed

guam-0.9.12.tar.gz/_checkouts Added

guam-0.9.12.tar.gz/_checkouts/eimap Added

guam-0.9.12.tar.gz/_checkouts/eimap/.arcconfig Added

guam-0.9.12.tar.gz/_checkouts/eimap/.erlang Added

guam-0.9.12.tar.gz/_checkouts/eimap/.gitignore Added

guam-0.9.12.tar.gz/_checkouts/eimap/CHANGELOG.md Added

@@ -0,0 +1,83 @@
+# Changelog
+All notable changes to this project will be documented in this file.
+
+This project adheres to [Semantic Versioning](http://semver.org/).
+
+## [Unreleased]
+### Added
+### Changed
+### Deprecated
+### Removed
+### Fixed
+### Security
+
+## [0.4.6] - 2022-04-04
+### Added
+- split_lines/1 to split a binary into lines
+- split_lines_with_literals/1 to split a binary into lines, but leaving literals as part of a line
+### Changed
+- eimap_utils:num_literal_continuation_bytes now returns if bytes were found in addition to an integer
+
+## [0.4.5] - 2022-04-01
+### Fixed
+- 0-length literal support
+### Changed
+- eimap_utils:num_literal_continuation_bytes now returns none if there is no valid literal
+
+## [0.4.4] - 2021-05-31
+### Fixed
+- LITERAL+ support
+
+## [0.4.3] - 2020-10-28
+### Fixed
+- Throttle reading of responses if the target process's inbox is getting full.
+
+## [0.4.2] - 2020-04-24
+### Fixed
+- Workaround for metadata request breaking other commands (required for guam)
+
+## [0.4.1] - 2020-03-28
+### Added
+- Enabled tcp keepalive
+- Support for untagged commands
+
+## [0.4.0] - 2016-11-11
+### Added
+- optional timeout on eimap objects for server delay
+  passing in an integer command_timeout value to eimap:start_link
+  sets the timeout to that number of ms
+
+### Fixed
+- METADATA command parses multiple key/value returns correctly
+
+## [0.3.0] - 2016-07-29
+### Changed
+- moved to rebar3
+
+### Fixed
+- consistency in capabilities response parsing
+
+## [0.2.5] - 2016-07-04
+### Fixed
+- improved the capabilities response parsing
+
+## [0.2.4] - 2016-06-08
+This section contains the changes from 0.2.0 through 0.2.4
+### Added
+- NOOP command
+- support for automated interruption of passthrough state to send structured commands
+- commands receive server responses for commands they put into the queue
+
+### Changed
+- centralize core IMAP response handling and utils in eimap_command
+- support for multi-line, single-line and binary response command types
+- improved TLS support
+
+### Fixed
+- crash in GETMETADATA command when the Folder param is a list
+- Support more variations of the LIST command args in the filter_groupware rule
+- Prevent crashes (while maintaining simplicity) in session FSM by limiting
+  processcommandqueue messages in the mailbox to one
+- support for literals continuation
+- fixes for metadata fetching
+

guam-0.9.12.tar.gz/_checkouts/eimap/LICENSE Added

guam-0.9.12.tar.gz/_checkouts/eimap/Makefile Added

guam-0.9.12.tar.gz/_checkouts/eimap/README.md Added

@@ -0,0 +1,202 @@
+This is a basic IMAP client implementation written in Erlang.
+
+The API is not finalized, and is currently limited to the eimap module. Its
+current and only recognized use case is software intended to interact with a
+Kolab server environment which are written in Erlang. Expansion of that scope
+is welcome through community participation. However, currently the following
+disclaimer should be taken with seriousness:
+
+ USE AT YOUR OWN RISK. THINGS WILL CHANGE.
+
+The following is equally true, however:
+
+ CONTRIBUTIONS WELCOME. USAGE WELCOME.
+
+Usage
+=====
+
+To add eimap from your application, add the following line to the deps of rebar.config:
+
+ * rebar 2.x: { eimap, "*", {git, "git://git.kolab.org/diffusion/EI/eimap.git" } }
+ * rebar3: eimap
+
+
+
+There is no need to start the eimap application as it does not have any process
+or startup routines related to its usage. eimap does rely on lager being avilable,
+however.
+
+eimap Module
+============
+The eimap erlang module is the home of the primary API for the eimap library. It
+is a gen_fsm and should be started as a process in the normal Erlang/OTP manner for
+use.
+
+An eimap instance represents a single IMAP connection to a single IMAP server
+and is stateful: commands that are started may change the selected folder, for
+instance, and commands that are sent may be put into a command queue for subsequent
+execution depeding on the current state of the connection.
+
+Once started, an eimap process may be directed to connect to an imap server
+and then start with functions such as fetching path tokens:
+
+ ImapServerArgs = [ { host, "imap.acme.com" }, { port, 143 }, { tls, starttls } ]
+ { ok, Imap } = eimap:start_link(ImapServerArgs),
+ eimap_imap:starttls(),
+ eimap_imap:login(Imap, self(), undefined, "username", "password"),
+ eimap_imap:connect(Imap),
+ eimap_imap:get_path_tokens(Imap, self(), get_path_tokens)
+
+The Imap server args is a simple proplist which allows one to set
+host, port and TLS settings. For TLS, the following values are supported:
+
+ * true: start a TLS session when opening the socket ("implicit TLS")
+ * starttls: start TLS via the STARTTLS IMAP command auomagically
+ * false: just open a regular connection; this is what you usually want, and
+ the client will call eimap:starttls/3 when it wishes to switch to
+ an encrypted connection
+
+The starttls, login and even get_path_tokens commands will be
+queued and sent to the IMAP server only when the connection has been established.
+This prevents having to wait for connection signals and lets you write what you
+intend to be executed with as few issues as possible.
+
+Commands are executed in the order they are queued, and they follow a consistent
+parametic pattern:
+
+ * the first parameter is the eimap PID returned by eimap:start_link/1
+ * the second parameter is the PID the response should be sent to as a message
+ * the third parameter is a token to send back with the response, allowing users
+ of eimap to track responses to specific commands; undefined is allowed and will
+ surpress the use of a response token
+ * .. additional parameters specific to the command, such as username and
+ password in the case of login
+
+Responses are sent as a normal message with the form:
+
+ Response
+ { Token, Resposne }
+
+The Token is the resposne token provided as the third parameter and may be anything.
+The Response depends on the given command, but will be a properly formed Erlang term
+representing the content of the response.
+
+Passthrough Mode
+================
+eimap supports a mode of operation which simply passes data between the user
+and the imap server blindly. This is known as "passthrough" mode and can be
+started and stopped with the start_passthrough/2 and stop_passthrough/1
+functions.
+
+Data is queued up for sending with the passthrough_data/2 function, and will be
+sent to the server as soon as possible.
+
+Responses are similarly sent back to the initiator of the passthrough mode
+for dispatch in the form of { imap_server_response, Data } messages. The receiver
+is the PID passed to start_passthrough/2 as the second parameter.
+
+As the user is entirely responsible for the traffic and thereby the state
+of the IMAP conenction during passthrough, exercise caution while using
+this mode.
+
+Any commands which are queued using eimap's command functions (logini/5,
+logout/3, etc) will interupt passthrough to run those commands. Once the queued
+commands have been cleared passthrough will restart auomatically.
+
+Commands
+========
+
+Individual commands are implemented in individual modules in the src/commands/
+directory, and this is the prefered mechanism for adding features to eimap.
+
+The API for commands is defined in src/eimap_command.erl as a behavior. Commands
+are expected to provide at least two functions:
+
+ new_command(Args) -> { Command, ResponseType }
+ create a command bitstring to be passed to the imap server and defines
+ the type of response for this command. Response types include
+ single_line_response, multiline_response, all_multiline_response
+ and blob_response.
+
+ Args is specific to the command, and some commands
+ ignore this parameter
+
+Single line response
+--------------------
+Commands which the IMAP server will respond to with a single line in return
+should use single_line_response and must implement formulate_response/2 which
+is passed the Data and the command Tag. This usually returns one of
+{ fini, Result } or { error, Reason }, though some special commands may return
+atoms which the eimap module responds to such as starttls.
+
+Multiline Response
+------------------
+This is the most common response type and is used when the IMAP server may
+respond with zero or more untagged responses and a final tagged response.
+
+Such commands must implement:
+
+ process_line/2 which is passed one line at a time (minus newlines)
+ and a list accumulator to add responses to
+
+ formulate_response/2 which is passed ok on success or an error tuple of 
+ { [no|bad], Reason }. This should return either { fini, Response } or
+ { error, Reason } in most cases; and for that there is
+ eimap_command:formulate_response. Which means that for most commands
+ formulate_response/2 is implemented as:
+
+ formulate_response(Result, Response) -> eimap_command:formulate(Result, Response).
+
+Commands which are all_multiline_responses also must implement process_tagged_line/2
+which behaves exactly like process_line but which accepts the tagged response line
+from the IMAP server. This is useful for commands where useful information is also
+passed in the tagged response line. An example of this is the select/exmine
+commands.
+
+Unstructured (blob) responses
+-----------------------------
+Responses that do not follow the usual untagged/tagged line response pattern
+may use the blog_response type and implement parse/2 which will be passed
+the data as it arrives. The command is responsible for all buffer stitching
+across network packets, etc.
+
+In the case of partial responses, parse/2 may return { more, fun/3, State }.
+The State object allows preserving the parsing state and will be passed back to
+fun/3 in addition to the Data and Tag parameters.
+
+parse/2 (or the continuation fun/3) should return { fini, Result } when 
+successfully completed, or { error, Reason } when it fails. Only once either a
+fini or error tuple are returned will the eimap process move on to the next
+command queued.
+
+IMAP Utils
+==========
+
+eimap_utils provides a set of handy helpers for use when IMAP'ing your way
+across the network. These include folder path and UID set extractors, IMAP
+server response manipulators and misc utilities.
+
+Testing
+=======
+Tests can be run with `make tests` or `rebar eunit`.
+
+All new commands must be accompanied by tests in the test/ directory.
+
+Contributing
+============
+Maintainer: Aaron Seigo <aseigo@kolabsystems.com>
+Mailing list: devel@lists.kolab.com
+Project page: https://git.kolab.org/tag/eimap/
+
+This project uses the git flow workflow as described here:
+
+ http://nvie.com/posts/a-successful-git-branching-model/
+
+You can installed git flow from here:
+
+ https://github.com/nvie/gitflow
+
+Then initialize your local clone with `git flow init -d`.

guam-0.9.12.tar.gz/_checkouts/eimap/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/eimap/rebar3 Added

guam-0.9.12.tar.gz/_checkouts/eimap/src Added

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands Added

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_annotation.erl Added

@@ -0,0 +1,49 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_annotation).
+-behavior(eimap_command).
+-export([new_command/1, process_line/2, formulate_response/2]).
+
+%% Public API
+new_command(Folder) when is_list(Folder) -> new_command(list_to_binary(Folder));
+new_command(Folder) -> { <<"GETANNOTATION \"", Folder/binary, "\" \"*\" \"value.shared\"">>, multiline_response }.
+
+process_line(<<" ", Data/binary>>, Acc) ->
+ process_line(Data, Acc);
+process_line(<<"* ANNOTATION ", Data/binary>>, Acc) ->
+ Pieces = binary:split(Data, <<"\"">>, [global]),
+ process_pieces(Pieces, Acc);
+process_line(<<>>, Acc) ->
+ Acc.
+
+formulate_response(Result, Data) -> eimap_command:formulate_response(Result, Data).
+
+%% Private API
+process_pieces([MBox, Key, _, _, _, Value, _], Acc) when MBox =/= <<>> -> [ { Key, translate(Value) } | Acc ];
+process_pieces([_, _MBox, _, Key, _, _, _, Value, _], Acc) -> [ { Key, translate(Value) } | Acc ];
+process_pieces(_, Acc) -> Acc.
+
+translate(<<"false">>) -> false;
+translate(<<"true">>) -> true;
+translate(Value) ->
+ try list_to_integer(binary_to_list(Value)) of
+ Number -> Number
+ catch
+ _:_ -> Value
+ end.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_capability.erl Added

@@ -0,0 +1,50 @@
+%% Copyright 2015 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_capability).
+-behavior(eimap_command).
+-export([new_command/1, process_line/2, formulate_response/2]).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command(parse_serverid) -> { <<"CAPABILITY">>, single_line_response };
+new_command(_Args) -> { <<"CAPABILITY">>, multiline_response }.
+
+process_line(<<"* CAPABILITY ", Data/binary>>, _Acc) ->
+ [Data];
+process_line(_Data, Acc) -> Acc.
+
+formulate_response(ok, Response) -> { fini, Response };
+formulate_response({ _, Reason }, _Data) -> { error, Reason };
+formulate_response(Data, Tag) -> parse_oneliner(eimap_utils:check_response_for_failure(Data, Tag),
+ eimap_utils:remove_tag_from_response(Data, Tag, check)).
+
+%% Private API
+% TODO: probably way too cyrus imap specific on the responses (capitalization, etc)
+% make generic with a nicer parser
+parse_oneliner(ok, <<"* OK [CAPABILITY ", Data/binary>>) ->
+ % this is a server response on connect
+ { End, _ } = binary:match(Data, <<"]">>),
+ { TextEnd, _ } = binary:match(Data, <<"\r\n">>),
+ Capabilities = binary:part(Data, { 0, End }),
+ ServerID = binary:part(Data, { End + 2, TextEnd - End - 2}),
+ { fini, { Capabilities, ServerID } };
+parse_oneliner({ _, Reason }, _Data) -> { error, Reason };
+parse_oneliner(_, Data) -> { fini, { Data, <<>> } }.
+
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_compress.erl Added

@@ -0,0 +1,32 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_compress).
+-behavior(eimap_command).
+-export([new_command/1, formulate_response/2]).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command(_Args) -> { <<"COMPRESS DEFLATE">>, single_line_response }.
+
+formulate_response(Data, Tag) ->
+ case eimap_utils:check_response_for_failure(Data, Tag) of
+ ok -> compression_active;
+ { _, Reason } -> { error, Reason }
+ end.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_getmetadata.erl Added

@@ -0,0 +1,118 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_getmetadata).
+-behavior(eimap_command).
+-export([new_command/1, process_line/2, formulate_response/2]).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command({ Folder }) -> new_command({ Folder, [] });
+new_command({ Folder, Attributes }) -> new_command({ Folder, Attributes, infinity, nomax });
+
+%% Depth and MaxSize are both optional arguments, so we have a 4-tuple version of new_command to accomodate this
+%% "Depth, Maxsize" could be replaced with a proplist of the form [ { depth, Depth }, { maxsize, MaxSize } ] but
+%% as this is an internal (to eimap) API there is little benefit for the performance cost
+new_command({ Folder, Attributes, Depth, MaxSize }) when is_list(Folder) -> new_command({ list_to_binary(Folder), Attributes, Depth, MaxSize });
+new_command({ Folder, Attributes, Depth, MaxSize }) ->
+ AttributesString = format_attributes(Attributes, <<>>),
+ DepthString = depth_param(Depth),
+ MaxSizeString = maxsize_param(MaxSize),
+ Command = metadata_command(DepthString, MaxSizeString, Folder, AttributesString),
+ { Command, multiline_response }.
+
+process_line(<<"* METADATA ", Details/binary>>, Acc) ->
+ Results = parse_folder(Details),
+ [Results|Acc];
+process_line(_Line, Acc) -> Acc.
+
+formulate_response(Result, Data) -> eimap_command:formulate_response(Result, Data).
+
+%% Private API
+depth_param(infinity) -> <<"DEPTH infinity">>;
+depth_param(Depth) when is_integer(Depth) -> Bin = integer_to_binary(Depth), <<"DEPTH ", Bin/binary>>;
+depth_param(_) -> <<>>.
+
+maxsize_param(Size) when is_integer(Size) -> Bin = integer_to_binary(Size), <<"MAXSIZE ", Bin/binary>>;
+maxsize_param(_) -> <<>>.
+
+metadata_command(<<>>, <<>>, Folder, Attributes) -> <<"GETMETADATA \"", Folder/binary, "\"", Attributes/binary>>;
+metadata_command(Depth, <<>>, Folder, Attributes) -> <<"GETMETADATA (", Depth/binary, ") \"", Folder/binary, "\"", Attributes/binary>>;
+metadata_command(<<>>, MaxSize, Folder, Attributes) -> <<"GETMETADATA (", MaxSize/binary, ") \"", Folder/binary, "\"", Attributes/binary>>;
+metadata_command(Depth, MaxSize, Folder, Attributes) -> <<"GETMETADATA (", Depth/binary, " ", MaxSize/binary, ") \"", Folder/binary, "\"", Attributes/binary>>.
+
+format_attributes([], <<>>) -> <<>>;
+format_attributes([], String) -> <<" (", String/binary, ")">>;
+format_attributes([Attribute|Attributes], String) ->
+ AttrBin = case is_list(Attribute) of
+ true -> list_to_binary(Attribute);
+ false -> Attribute
+ end,
+ case String of
+ <<>> -> format_attributes(Attributes, AttrBin);
+ _ -> format_attributes(Attributes, <<String/binary, " ", AttrBin/binary>>)
+ end;
+format_attributes(_, _String) -> <<>>.
+
+parse_folder(<<"\"", Rest/binary>>) ->
+ { Folder, RemainingBuffer } = until_closing_quote(Rest),
+ Properties = parse_properties(RemainingBuffer),
+ { Folder, Properties };
+parse_folder(Buffer) ->
+ { FolderEnd, _ } = binary:match(Buffer, <<" ">>),
+ Folder = binary:part(Buffer, 0, FolderEnd),
+ Properties = parse_properties(binary:part(Buffer, FolderEnd, size(Buffer) - FolderEnd)),
+ { Folder, Properties }.
+
+parse_properties(Buffer) ->
+ { Start, _ } = binary:match(Buffer, <<"(">>),
+ { End, _ } = binary:match(Buffer, <<")">>),
+ Properties = binary:part(Buffer, Start + 1, End - Start - 1),
+ next_property(Properties, []).
+
+next_property(<<>>, Acc) -> Acc;
+next_property(<<$ ,Rest/binary>>, Acc) -> next_property(Rest, Acc);
+next_property(Buffer, Acc) ->
+ { KeyEnd, _ } = binary:match(Buffer, <<" ">>),
+ Key = binary:part(Buffer, 0, KeyEnd),
+ { Value, RemainingBuffer } = 
+ case next_value(binary:part(Buffer, KeyEnd + 1, size(Buffer) - KeyEnd - 1)) of
+ { <<"NIL">>, RBuffer } -> { null, RBuffer };
+ Rv -> Rv
+ end,
+ next_property(RemainingBuffer, [{ Key, Value }|Acc]).
+
+next_value(<<"\"", Rest/binary>>) ->
+ until_closing_quote(Rest);
+next_value(Buffer) ->
+ case binary:match(Buffer, <<" ">>) of
+ nomatch -> { Buffer, <<>> };
+ { ValueEnd , _ } -> { binary:part(Buffer, 0, ValueEnd - 1), binary:part(Buffer, ValueEnd, size(Buffer) - ValueEnd) }
+ end.
+
+until_closing_quote(Buffer) -> until_closing_quote(Buffer, 0, binary:at(Buffer, 0), 0, <<>>).
+
+until_closing_quote(Buffer, Start, $\\, Pos, Acc) ->
+ Escaped = binary:at(Buffer, Pos + 1 ),
+ until_closing_quote(Buffer, Start, binary:at(Buffer, Pos + 2), Pos + 2, <<Acc/binary, Escaped>>);
+until_closing_quote(Buffer, Start, $", Pos, Acc) ->
+ { Acc, binary:part(Buffer, Start + Pos + 1, size(Buffer) - Start - Pos - 1) };
+until_closing_quote(Buffer, _Start, Char, Pos, Acc) when Pos =:= size(Buffer) - 1 ->
+ { <<Acc/binary, Char>>, <<>> };
+until_closing_quote(Buffer, Start, Char, Pos, Acc) ->
+ until_closing_quote(Buffer, Start, binary:at(Buffer, Pos + 1), Pos + 1, <<Acc/binary, Char>>).

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_login.erl Added

@@ -0,0 +1,35 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_login).
+-behavior(eimap_command).
+-export([new_command/1, process_line/2, formulate_response/2]).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command({ User, Password }) ->
+ UserBin = eimap_utils:ensure_binary(User),
+ PasswordBin = eimap_utils:ensure_binary(Password),
+ { <<"LOGIN ", UserBin/binary, " ", PasswordBin/binary>>, multiline_response }.
+
+process_line(_Data, Acc) -> Acc.
+
+%% Private API
+formulate_response(ok, _Acc) -> { fini, authed };
+formulate_response({ _, Reason }, _Acc) -> { error, Reason }.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_logout.erl Added

@@ -0,0 +1,29 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_logout).
+-behavior(eimap_command).
+-export([new_command/1, process_line/2, formulate_response/2]).
+
+%% Public API
+new_command(_Args) -> { <<"LOGOUT">>, multiline_response }.
+
+process_line(_Data, Acc) -> Acc.
+
+formulate_response(ok, _Data) -> { close_socket, ok };
+formulate_response({ _, Reason }, _Data) -> { close_socket, { error, Reason } }.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_namespace.erl Added

@@ -0,0 +1,74 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_namespace).
+-behavior(eimap_command).
+-export([new_command/1, process_line/2, formulate_response/2]).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command(_Args) -> { <<"NAMESPACE">>, multiline_response }.
+
+process_line(<<"* NAMESPACE ", Data/binary>>, Acc) -> [process_shared_prefix_parts(Data, 1)|Acc];
+process_line(_Line, Acc) -> Acc.
+
+
+formulate_response(ok, [Acc]) -> { fini, relevant_shared_prefix_parts(Acc) };
+formulate_response({ _, Reason }, _Acc) -> { error, Reason }.
+
+% Private API
+relevant_shared_prefix_parts([]) -> { none, none};
+relevant_shared_prefix_parts([[], [], _]) -> { none, none };
+relevant_shared_prefix_parts([[], Delim]) -> { none, Delim };
+relevant_shared_prefix_parts([SharedPrefix, [], _]) -> { SharedPrefix, "/" };
+relevant_shared_prefix_parts([SharedPrefix, Delim]) -> { SharedPrefix, Delim }.
+
+process_shared_prefix_parts(<<"NIL ", Data/binary>>, PartNumber) ->
+ process_shared_prefix_parts(Data, PartNumber + 1);
+process_shared_prefix_parts(<<"NIL", Data/binary>>, PartNumber) ->
+ process_shared_prefix_parts(Data, PartNumber + 1);
+process_shared_prefix_parts(<<"((", Data/binary>>, PartNumber) ->
+ process_shared_prefix_parts_inner(Data, [], PartNumber);
+process_shared_prefix_parts(<<>>, _PartNumber) -> [].
+
+process_shared_prefix_parts_inner(<<"))", _/binary>>, Acc, 3) ->
+ parse_shared_prefix_fields(lists:reverse(Acc), []);
+process_shared_prefix_parts_inner(<<")) ", Data/binary>>, _Acc, N) ->
+ process_shared_prefix_parts(Data, N + 1);
+process_shared_prefix_parts_inner(<<Char, Data/binary>>, Acc, 3) ->
+ process_shared_prefix_parts_inner(Data, [Char|Acc], 3);
+process_shared_prefix_parts_inner(<<_Char, Data/binary>>, Acc, N) ->
+ process_shared_prefix_parts_inner(Data, Acc, N);
+process_shared_prefix_parts_inner(<<>>, _Acc, _N) ->
+ [].
+
+%%FIXME: naively assumes no "s in the values are allowed. is this correct?
+parse_shared_prefix_fields([$"|Tail], Acc) ->
+ parse_shared_prefix_field_inner(Tail, [], Acc);
+parse_shared_prefix_fields([_|Tail], Acc) ->
+ parse_shared_prefix_fields(Tail, Acc);
+parse_shared_prefix_fields([], Acc) ->
+ lists:reverse(Acc).
+
+parse_shared_prefix_field_inner([$"|Tail], PartAcc, Acc) ->
+ parse_shared_prefix_fields(Tail, [lists:reverse(PartAcc)|Acc]);
+parse_shared_prefix_field_inner([Char|Tail], PartAcc, Acc) ->
+ parse_shared_prefix_field_inner(Tail, [Char|PartAcc], Acc);
+parse_shared_prefix_field_inner([], _PartAcc, Acc) ->
+ Acc.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_noop.erl Added

@@ -0,0 +1,30 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_noop).
+-behavior(eimap_command).
+-export([new_command/1, process_line/2, formulate_response/2]).
+
+%% https://tools.ietf.org/html/rfc3501#section-6.3.2
+
+%% Public API
+new_command(_) -> { <<"NOOP">>, multiline_response }.
+
+process_line(Data, Acc) -> eimap_command:process_status_line(Data, Acc).
+
+formulate_response(Response, Acc) -> eimap_command:formulate_response(Response, Acc).
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_peek_message.erl Added

@@ -0,0 +1,137 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_peek_message).
+-behavior(eimap_command).
+-export([new_command/1, parse/2, continue_parse/3]).
+-record(parse_state, { body_size, parts, data }).
+-record(parts, { headers = <<"">>, body = <<"">>, flags = <<"">> }).
+
+%% https://tools.ietf.org/html/rfc3501#section-6.4.5
+
+%% Public API
+new_command(MessageID) when is_integer(MessageID) -> new_command(integer_to_binary(MessageID));
+new_command(MessageID) when is_binary(MessageID) -> { <<"UID FETCH ", MessageID/binary, " (FLAGS BODY.PEEK[HEADER] BODY.PEEK[TEXT])">>, blob_response }.
+
+continue_parse(Data, _Tag, #parse_state{ body_size = Size, parts = Parts, data = PrevData }) ->
+ try_body_parse(<<PrevData/binary, Data/binary>>, Size, Parts).
+
+parse(Data, Tag) when is_binary(Data) ->
+ case eimap_utils:check_response_for_failure(Data, Tag) of
+ ok -> process_parts(get_past_headers(Data));
+ { _, Reason } -> { error, Reason }
+ end.
+
+%% Private API
+process_parts(#parts{ headers = Headers, flags = Flags, body = Body }) ->
+ { fini, [ { flags, binary:split(Flags, <<" ">>, [global]) },
+ { headers, filter_headers(binary:split(Headers, <<"\r\n">>, [global])) },
+ { message, <<Headers/binary, Body/binary>> } ] };
+process_parts(Result) ->
+ Result.
+
+get_past_headers(<<" OK ", _Data/binary>>) -> #parts{};
+get_past_headers(<<" FETCH ", Data/binary>>) -> find_open_parens(Data);
+get_past_headers(<<_, Data/binary>>) -> get_past_headers(Data);
+get_past_headers(<<>>) -> { error, <<"Unparsable">> }.
+
+find_open_parens(<<$(, Data/binary>>) -> parse_next_component(Data, #parts{});
+find_open_parens(<<_, Data/binary>>) -> find_open_parens(Data).
+
+parse_next_component(<<"FLAGS (", Data/binary>>, Parts) ->
+ parse_flags(Data, Parts);
+parse_next_component(<<"BODY[HEADER] {", Data/binary>>, Parts) ->
+ parse_header(Data, Parts);
+parse_next_component(<<"BODY[TEXT] {", Data/binary>>, Parts) ->
+ parse_body(Data, Parts);
+parse_next_component(<<_, Data/binary>>, Parts) -> parse_next_component(Data, Parts);
+parse_next_component(<<"OK Completed", _/binary>>, Parts) -> Parts;
+parse_next_component(<<>>, Parts) -> Parts.
+
+parse_flags(Data, Parts) -> parse_flags(Data, Parts, Data, 0).
+parse_flags(OrigData, Parts, <<$), Rest/binary>>, Length) ->
+ FlagsString = binary:part(OrigData, 0, Length),
+ parse_next_component(Rest, Parts#parts{ flags = FlagsString });
+parse_flags(OrigData, Parts, <<_, Data/binary>>, Length) ->
+ parse_flags(OrigData, Parts, Data, Length + 1);
+parse_flags(_OrigData, Parts, <<>>, _Length) ->
+ Parts.
+
+parse_header(Data, Parts) -> parse_header(Data, Parts, Data, 0).
+parse_header(_OrigData, Parts, <<$}, Rest/binary>>, 0) ->
+ parse_next_component(Rest, Parts);
+parse_header(OrigData, Parts, <<$}, Rest/binary>>, Length) ->
+ ByteSizeString = binary:part(OrigData, 0, Length),
+ Size = binary_to_integer(ByteSizeString),
+ HeaderString = binary:part(Rest, 2, Size), %% the 2 is for \r\n
+ %%FIXME: make sure we have enough data loaded, otherwise continue
+ Remainder = binary:part(Rest, Size, byte_size(Rest) - Size),
+ parse_next_component(Remainder, Parts#parts{ headers = HeaderString });
+parse_header(OrigData, Parts, <<_, Rest/binary>>, Length) ->
+ parse_header(OrigData, Parts, Rest, Length + 1);
+parse_header(_OrigData, Parts, <<>>, _Length) ->
+ Parts.
+
+parse_body(Data, Parts) -> parse_body(Data, Parts, Data, 0).
+parse_body(_OrigData, Parts, <<$}, Rest/binary>>, 0) ->
+ parse_next_component(Rest, Parts);
+parse_body(OrigData, Parts, <<$}, Rest/binary>>, Length) ->
+ ByteSizeString = binary:part(OrigData, 0, Length),
+ Size = binary_to_integer(ByteSizeString),
+ %%lager:info("We have ... ~p ~p ~p", [ByteSizeString, Size, byte_size(Rest)]),
+ try_body_parse(Rest, Size, Parts);
+parse_body(OrigData, Parts, <<_, Rest/binary>>, Length) ->
+ parse_body(OrigData, Parts, Rest, Length + 1);
+parse_body(_OrigData, Parts, <<>>, _Length) ->
+ Parts.
+
+try_body_parse(Data, Size, Parts) ->
+ case Size > byte_size(Data) of
+ true ->
+ { more, fun ?MODULE:continue_parse/3, #parse_state{ body_size = Size, parts = Parts, data = Data } };
+ false ->
+ Body = binary:part(Data, 2, Size), %% the 2 is for \r\n
+ Remainder = binary:part(Data, Size, byte_size(Data) - Size),
+ process_parts(parse_next_component(Remainder, Parts#parts{ body = Body }))
+ end.
+
+filter_headers(RawHeaders) ->
+ filter_headers(RawHeaders, none, none, []).
+
+filter_headers([], CurrentKey, CurrentValue, Acc) ->
+ filter_header_add(CurrentKey, CurrentValue, Acc);
+filter_headers([<<>>|Headers], CurrentKey, CurrentValue, Acc) ->
+ filter_headers(Headers, CurrentKey, CurrentValue, Acc);
+filter_headers([Header|Headers], CurrentKey, CurrentValue, Acc) ->
+ filter_header(Headers, CurrentKey, CurrentValue, Acc, binary:split(Header, <<": ">>)).
+
+filter_header(Headers, CurrentKey, CurrentValue, Acc, [Key, Value]) ->
+ Added = filter_header_add(CurrentKey, CurrentValue, Acc),
+ filter_headers(Headers, Key, Value, Added);
+filter_header(Headers, none, _CurrentValue, Acc, _Value) ->
+ filter_headers(Headers, none, none, Acc);
+filter_header(Headers, CurrentKey, CurrentValue, Acc, [Value]) ->
+ %%TODO: get rid of tab, ensure "proper" whitespace
+ NewValue = <<CurrentValue/binary, Value/binary>>,
+ filter_headers(Headers, CurrentKey, NewValue, Acc).
+
+filter_header_add(CurrentKey, CurrentValue, Acc) when CurrentKey =/= none, CurrentValue =/= none ->
+ %%TODO: split CurrentValue on ','
+ [ { CurrentKey, CurrentValue } | Acc ];
+filter_header_add(_, _, Acc) ->
+ Acc.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_starttls.erl Added

@@ -0,0 +1,32 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_starttls).
+-behavior(eimap_command).
+-export([new_command/1, formulate_response/2]).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command(_Args) -> { <<"STARTTLS">>, single_line_response }.
+
+formulate_response(Data, Tag) ->
+ case eimap_utils:check_response_for_failure(Data, Tag) of
+ ok -> starttls;
+ { _, Reason } -> { error, Reason }
+ end.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_status.erl Added

@@ -0,0 +1,78 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_status).
+-behavior(eimap_command).
+-export([new_command/1, process_line/2, formulate_response/2]).
+
+% https://tools.ietf.org/html/rfc5464
+
+% supported attributes: messages, recent, uidnext, uidvalidity, unseen, annotate
+% Public API
+new_command({ Folder, Attributes }) when is_list(Folder) -> new_command({ list_to_binary(Folder), Attributes });
+new_command({ <<>>, Attributes}) -> new_command({ <<"INBOX">>, Attributes });
+new_command({ Folder, []}) -> new_command({ Folder, [messages] });
+new_command({ Folder, Attributes }) when is_list(Attributes) ->
+ AttributesString = attribute_string(Attributes, <<>>),
+ { <<"STATUS ", Folder/binary, " (", AttributesString/binary, ")">>, multiline_response }.
+
+process_line(<<"* STATUS ", Data/binary>>, Acc) ->
+ process_status_items(binary:match(Data, <<"(">>),
+ binary:match(Data, <<")">>),
+ Data, Acc);
+process_line(_, Acc) -> Acc.
+
+formulate_response(Result, Data) -> eimap_command:formulate_response(Result, Data).
+
+%% Private API
+attribute_string([], <<>>) -> attribute_string(messages);
+attribute_string([], String) -> String;
+attribute_string([Attribute|Attributes], <<>>) -> 
+ Attr = attribute_string(Attribute),
+ attribute_string(Attributes, Attr);
+attribute_string([Attribute|Attributes], String) -> 
+ case attribute_string(Attribute) of
+ <<>> -> attribute_string(Attributes, String);
+ Attr -> attribute_string(Attributes, <<String/binary, " ", Attr/binary>>)
+ end.
+
+% Private API
+process_status_items(nomatch, _, _Data, Acc) -> Acc;
+process_status_items(_, nomatch, _Data, Acc) -> Acc;
+process_status_items({ Start, _ }, { End, _ }, Data, Acc) ->
+ Parts = binary:split(binary:part(Data, Start + 1, End - Start - 1), <<" ">>, [global]),
+ process_next_status_item(Parts, Acc).
+
+process_next_status_item([], Acc) -> Acc;
+process_next_status_item([_], Acc) -> Acc;
+process_next_status_item([Token, Value|Parts], Acc) ->
+ Tuple = { attribute_atom(Token), binary_to_integer(Value) },
+ process_next_status_item(Parts, [Tuple|Acc]).
+
+attribute_string(messages) -> <<"MESSAGES">>;
+attribute_string(recent) -> <<"RECENT">>;
+attribute_string(uidnext) -> <<"UIDNEXT">>;
+attribute_string(uidvalidity) -> <<"UIDVALIDITY">>;
+attribute_string(unseen) -> <<"UNSEEN">>;
+attribute_string(_) -> <<>>.
+
+attribute_atom(<<"MESSAGES">>) -> messages;
+attribute_atom(<<"RECENT">>) -> recent;
+attribute_atom(<<"UIDNEXT">>) -> uidnext;
+attribute_atom(<<"UIDVALIDITY">>) -> uidvalidity;
+attribute_atom(<<"UNSEEN">>) -> unseen.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_switch_folder.erl Added

@@ -0,0 +1,65 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_switch_folder).
+-behavior(eimap_command).
+-export([new_command/1, process_line/2, process_tagged_line/2, formulate_response/2]).
+
+%% https://tools.ietf.org/html/rfc3501#section-6.3.2
+
+%% Public API
+new_command({ MBox, Mechanism }) when is_list(MBox) -> new_command({ list_to_binary(MBox), Mechanism });
+new_command({ MBox, select }) -> new_command(MBox);
+new_command({ MBox, examine }) -> { <<"EXAMINE \"", MBox/binary, "\"">>, all_multiline_response };
+new_command(MBox) when is_list(MBox) -> new_command(list_to_binary(MBox));
+new_command(MBox) when is_binary(MBox) -> { <<"SELECT \"", MBox/binary, "\"">>, all_multiline_response }.
+
+%TODO: parse:
+% REQUIRED untagged responses: FLAGS, EXISTS, RECENT
+% REQUIRED OK untagged responses: UNSEEN, PERMANENTFLAGS, UIDNEXT, UIDVALIDITY
+process_line(<<"* OK [", Info/binary>>, Acc) ->
+ case binary:match(Info, <<"]">>) of
+ nomatch -> Acc;
+ { ClosingBracket, _ } -> process_ok_response(binary:part(Info, 0, ClosingBracket), Acc)
+ end;
+process_line(<<"* FLAGS ", FlagString/binary>>, Acc) ->
+ Flags = eimap_utils:parse_flags(FlagString),
+ [{ flags, Flags }|Acc];
+process_line(<<"* ", Info/binary>>, Acc) ->
+ case binary:split(Info, <<" ">>) of
+ [ Value, Key ] -> [{ eimap_utils:binary_to_atom(Key), binary_to_integer(Value) }|Acc];
+ _ ->Acc
+ end;
+process_line(_Data, Acc) -> Acc.
+
+process_tagged_line(Data, Acc) ->
+ case binary:match(Data, <<"[READ-WRITE]">>) of
+ nomatch -> [{ writeable, false }|Acc];
+ _ -> [{ writeable, true}|Acc]
+ end.
+
+formulate_response(Response, Acc) -> eimap_command:formulate_response(Response, Acc).
+
+%PRIVATE
+process_ok_response(<<"PERMANENTFLAGS ", FlagString/binary>>, Acc) -> [{ permanent_flags, eimap_utils:parse_flags(FlagString) }|Acc];
+process_ok_response(<<"UIDVALIDITY ", String/binary>>, Acc) -> [{ uid_validity, binary_to_integer(String) }|Acc];
+process_ok_response(<<"UIDNEXT ", String/binary>>, Acc) -> [{ uid_next, binary_to_integer(String) }|Acc];
+process_ok_response(<<"HIGHESTMODSEQ ", String/binary>>, Acc) -> [{ highest_mod_seq, binary_to_integer(String) }|Acc];
+process_ok_response(<<"URLMECH ", String/binary>>, Acc) -> [{ url_mech, eimap_utils:binary_to_atom(String) }|Acc]; %TODO: this is very ugly
+process_ok_response(<<"ANNOTATIONS ", String/binary>>, Acc) -> [{ annotations, binary_to_integer(String) }|Acc];
+process_ok_response(String, Acc) -> lager:warning("eimap_command_select_folder: Unknown untagged OK response ~s~n", [String]), Acc.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap.app.src Added

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap.erl Added

@@ -0,0 +1,533 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap).
+-behaviour(gen_fsm).
+
+%% API
+-export([start_link/1,
+ %% passthrough mode, where data is just sent to the server blindly and
+ %% responses passed back equally blindly. in this mode the user is on
+ %% their own and better know what they are doing. can only be activated
+ %% when disconnected or idle
+ start_passthrough/2, stop_passthrough/1, passthrough_data/2,
+ %% connection management
+ connect/1, connect/3, disconnect/1,
+ %% commands
+ starttls/3,
+ capabilities/3,
+ login/5, logout/3,
+ compress/1,
+ get_server_metadata/4, get_server_metadata/6,
+ get_folder_status/5,
+ get_folder_metadata/5, get_folder_metadata/7,
+ get_folder_annotations/4,
+ peek_message_headers_and_body/5,
+ get_path_tokens/3,
+ noop/3]).
+
+%% gen_fsm callbacks
+-export([disconnected/2, idle/2, passthrough/2, wait_response/2, startingtls/2]).
+-export([init/1, handle_event/3, handle_sync_event/4, handle_info/3, terminate/3, code_change/4]).
+
+%% state record definition
+-record(state, { host, port, tls, tls_state = false, socket, server_id = <<>>,
+ command_serial = 1, command_queue = queue:new(),
+ current_command, current_mbox,
+ passthrough = false, passthrough_recv, passthrough_send_buffer = <<>>,
+ inflator, deflator, process_command_queue_guard = false,
+ command_timeout = infinity, command_timeout_timer = none }).
+-record(command, { tag, mbox, message, from, response_type, response_token, parse_state }).
+
+-define(SSL_UPGRADE_TIMEOUT, 5000).
+-define(TCP_CONNECT_TIMEOUT, 5000).
+-define(DEFAULT_COMMAND_TIMEOUT, infinity).
+
+%% public API
+start_link(Options) when is_list(Options) -> gen_fsm:start_link(?MODULE, Options, []).
+
+start_passthrough(PID, Receiver) when is_pid(Receiver) -> gen_fsm:send_all_state_event(PID, { start_passthrough, Receiver } ).
+stop_passthrough(PID) -> gen_fsm:send_all_state_event(PID, stop_passthrough).
+passthrough_data(PID, Data) when is_binary(Data) -> gen_fsm:send_all_state_event(PID, { passthrough, Data }).
+connect(PID) -> connect(PID, undefined, undefined).
+connect(PID, From, ResponseToken) -> gen_fsm:send_all_state_event(PID, { connect, From, ResponseToken }).
+disconnect(PID) -> gen_fsm:send_all_state_event(PID, disconnect).
+
+-spec compress(EImap :: pid()) -> ok.
+compress(EImap) when is_pid(EImap) ->
+ send_command_to_queue(EImap, EImap, compress, eimap_command_compress, ok).
+
+-spec starttls(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+starttls(EImap, From, ResponseToken) when is_pid(EImap) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_starttls, ok).
+
+-spec capabilities(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+capabilities(EImap, From, ResponseToken) when is_pid(EImap) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_capability, ok).
+
+-spec login(EImap :: pid(), From :: pid(), ResponseToken :: any(), User :: list() | binary(), Pass :: list() | binary()) -> ok.
+login(EImap, From, ResponseToken, User, Pass) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_login, { User, Pass }).
+
+-spec logout(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+logout(EImap, From, ResponseToken) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_logout, ok).
+
+-type status_property() :: messages | recent | uidnext | uidvalidity | unseen.
+-type status_properties() :: [status_property()].
+-spec get_folder_status(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: list() | binary(), Properties:: status_properties()) -> ok.
+get_folder_status(EImap, From, ResponseToken, Folder, Properties) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_status, { Folder, Properties }).
+
+-spec get_folder_metadata(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: list() | binary(), Properties:: [list() | binary()]) -> ok.
+get_folder_metadata(EImap, From, ResponseToken, Folder, Properties) ->
+ get_folder_metadata(EImap, From, ResponseToken, Folder, Properties, infinity, nomax).
+
+-spec get_folder_metadata(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: list() | binary(), Properties:: [list() | binary()], Depth :: infinity | integer(), MaxSize :: nomax | integer()) -> ok.
+get_folder_metadata(EImap, From, ResponseToken, Folder, Properties, Depth, MaxSize) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_getmetadata, { Folder, Properties, Depth, MaxSize }).
+
+-spec get_server_metadata(EImap :: pid(), From :: pid(), ResponseToken :: any(), Properties:: [list() | binary()]) -> ok.
+get_server_metadata(EImap, From, ResponseToken, Properties) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_getmetadata, { <<>>, Properties, infinity, nomax }).
+
+-spec get_server_metadata(EImap :: pid(), From :: pid(), ResponseToken :: any(), Properties:: [list() | binary()], Depth :: infinity | integer(), MaxSize :: nomax | integer()) -> ok.
+get_server_metadata(EImap, From, ResponseToken, Properties, Depth, MaxSize) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_getmetadata, { <<>>, Properties, Depth, MaxSize }).
+
+-spec get_folder_annotations(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: [list() | binary()]) -> ok.
+get_folder_annotations(EImap, From, ResponseToken, Folder) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_annotation, Folder).
+
+-spec peek_message_headers_and_body(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: [list() | binary()], MessageID :: [integer() | binary()]) -> ok.
+peek_message_headers_and_body(EImap, From, ResponseToken, Folder, MessageID) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_peek_message, MessageID, Folder).
+
+-spec get_path_tokens(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+get_path_tokens(EImap, From, ResponseToken) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_namespace, ok).
+
+-spec noop(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+noop(EImap, From, ResponseToken) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_noop, ok).
+
+
+%% gen_server API
+init(Options) ->
+ Host = proplists:get_value(host, Options, "127.0.0.1"),
+ Port = proplists:get_value(port, Options, 143),
+ TLS = proplists:get_value(tls, Options, false),
+ CommandTimeout = proplists:get_value(command_timeout, Options, ?DEFAULT_COMMAND_TIMEOUT),
+ State = #state { host = Host, port = Port, tls = TLS, command_timeout = CommandTimeout },
+ { ok, disconnected, State }.
+
+disconnected({ connect, Receiver, ResponseToken }, #state{ command_queue = CommandQueue, host = Host, port = Port, tls = TLS, socket = undefined } = State) ->
+ %lager:debug("CONNECTING! ~p ~p", [Receiver, ResponseToken]),
+ { {ok, Socket}, TlsState, SendCapabilitiesTo, NewCommandQueue } = create_socket(Host, Port, TLS, Receiver, ResponseToken, CommandQueue),
+ { Message, ResponseType } = eimap_command_capability:new_command(parse_serverid),
+ Command = #command{ message = Message, response_type = ResponseType,
+ from = SendCapabilitiesTo, response_token = { connected, Receiver, ResponseToken },
+ parse_state = eimap_command_capability },
+ { next_state, wait_response, State#state { socket = Socket, tls_state = TlsState, current_command = Command, command_queue = NewCommandQueue } };
+disconnected(Command, State) when is_record(Command, command) ->
+ { next_state, disconnected, enque_command(Command, State) }.
+
+
+%Throttle if the target process is getting overloaded.
+%This allows the socket buffers to fill up eventually,
+%so regular congestion control can kick in.
+throttle(Receiver, Limit) ->
+ {_, MessageQueueLength} = process_info(Receiver, message_queue_len),
+ if
+ MessageQueueLength > Limit ->
+ SleepDuration = trunc(MessageQueueLength / 2),
+ lager:debug("Throttling for ~p with queue length ~p", [SleepDuration, MessageQueueLength]),
+ timer:sleep(SleepDuration),
+ throttle(Receiver, Limit);
+ true -> false
+ end.
+
+passthrough(flush_passthrough_buffer, #state{ passthrough_send_buffer = Buffer } = State) ->
+ %lager:info("Passing through ~p", [Buffer]),
+ passthrough({ passthrough, Buffer }, State#state{ passthrough_send_buffer = <<>> });
+passthrough({ passthrough, Data }, #state{ socket = Socket, tls_state = true } = State) ->
+ %lager:info("Passing through ssl \"~s\"", [Data]),
+ ssl:send(Socket, deflated(Data, State)),
+ { next_state, passthrough, State };
+passthrough({ passthrough, Data }, #state{ socket = Socket } = State) ->
+ %lager:info("Passing through tcp \"~s\"", [Data]),
+ gen_tcp:send(Socket, deflated(Data, State)),
+ { next_state, passthrough, State };
+passthrough({ data, Data }, #state{ passthrough_recv = Receiver } = State) ->
+ %lager:info("Passing back ~p", [Data]),
+
+ throttle(Receiver, 100),
+ Receiver ! { imap_server_response, Data },
+ { next_state, passthrough, State };
+passthrough(Command, State) when is_record(Command, command) ->
+ NewState = ensure_process_command_queue(State),
+ { next_state, idle, enque_command(Command, NewState) }.
+
+idle(process_command_queue, #state{ command_queue = Queue } = State) ->
+ UnguardedState = State#state{ process_command_queue_guard = false },
+ case queue:out(Queue) of
+ { { value, Command }, ModifiedQueue } when is_record(Command, command) ->
+ %lager:info("Clearing queue of ~p", [Command]),
+ NewState = send_command(Command, UnguardedState#state{ command_queue = ModifiedQueue }),
+ { next_state, wait_response, NewState };
+ { empty, _ModifiedQueue } ->
+ NextState = next_state_after_emptied_queue(State),
+ { next_state, NextState, UnguardedState }
+ end;
+idle({ data, _Data }, State) ->
+ %%lager:info("Idling, server sent: ~p", [_Data]),
+ { next_state, idle, State };
+idle(Command, State) when is_record(Command, command) ->

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap_command.erl Added

@@ -0,0 +1,78 @@
+-module(eimap_command).
+
+-export([
+ parse_response/4,
+ formulate_response/2,
+ process_status_line/2
+ ]).
+
+-type more_tuple() :: { more, ParseContinuation :: parse_continuation(), State :: term }.
+-type finished_tuple() :: { fini, Results :: term }.
+-type error_tuple() :: { error, Reason :: binary() }.
+-type parse_continuation() :: fun((Data :: binary(), Tag :: binary(), State :: term()) ->
+ more_tuple() | finished_tuple() | error_tuple()).
+
+-callback new_command(Args :: any()) -> { binary(), single_line_response | multiline_reponse | blob_response }.
+% TODO:bring back when we can depend on OTP 18 which introduced optional_callback
+% also define parse/2 (for blob_response), formulate_response/2
+%-callback process_line(Data :: binary(), Acc :: any()) ->
+% more_tuple() | finished_tuple() | error_tuple() | starttls.
+
+parse_response(multiline_response, Data, Tag, ParseState) -> multiline_parse(false, Data, Tag, ParseState);
+parse_response(all_multiline_response, Data, Tag, ParseState) -> multiline_parse(parse_tagged, Data, Tag, ParseState);
+parse_response(single_line_response, Data, Tag, Module) -> Module:formulate_response(Data, Tag);
+parse_response(blob_response, Data, Tag, { Continuation, ParseState }) -> Continuation(Data, Tag, ParseState);
+parse_response(blob_response, Data, Tag, Module) ->
+ case Module:parse(Data, Tag) of
+ { more, Continuation, ParseState } -> { more, { Continuation, ParseState } };
+ Response -> Response
+ end.
+
+multiline_parse(ParseTaggedLine, Data, Tag, { LastPartialLine, Acc, Module }) ->
+ FullBuffer = <<LastPartialLine/binary, Data/binary>>,
+ { FullLinesBuffer, NewLastPartialLine } = eimap_utils:only_full_lines(FullBuffer),
+ Lines = binary:split(FullLinesBuffer, <<"\r\n">>, [global]),
+ process_lines(ParseTaggedLine, Tag, NewLastPartialLine, Lines, Acc, Module);
+multiline_parse(ParseTaggedLine, Data, Tag, Module) ->
+ multiline_parse(ParseTaggedLine, Data, Tag, { <<>>, [], Module }).
+
+process_lines(_ParseTaggedLine, _Tag, LastPartialLine, [], Acc, Module) -> { more, { LastPartialLine, Acc, Module } };
+process_lines(ParseTaggedLine, Tag, LastPartialLine, [Line|MoreLines], Acc, Module) ->
+ { FirstLine, ContinuationBytes, Result } = eimap_utils:num_literal_continuation_bytes(Line),
+ process_line(Result, ContinuationBytes, ParseTaggedLine, eimap_utils:is_tagged_response(FirstLine, Tag), Tag, LastPartialLine, FirstLine, MoreLines, Acc, Module).
+
+
+process_line(Result, ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [<<>>|MoreLines], Acc, Module) ->
+ %% skip empty lines
+ process_line(Result, ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module);
+process_line(none, _ContinuationBytes, ParseTaggedLine, tagged, Tag, _LastPartialLine, Line, _MoreLines, Acc, Module) ->
+ Checked = eimap_utils:check_response_for_failure(Line, Tag),
+ Module:formulate_response(Checked, parse_tagged(Checked, ParseTaggedLine, Line, Acc, Module));
+ %io:format("Calling it here with ~p~n~n...", [Line]),
+process_line(none, _ContinuationBytes, ParseTaggedLine, untagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module) ->
+ process_lines(ParseTaggedLine, Tag, LastPartialLine, MoreLines, Module:process_line(Line, Acc), Module);
+process_line(_Result, ContinuationBytes, ParseTaggedLine, _IsTagged, Tag, LastPartialLine, Line, [], Acc, Module) ->
+ %% the line was continued, but there is no more lines ... so this line is now our last partial line. more must be on its way
+ io:format("Missing lines!~p~n~n", [Acc]),
+ BytesAsBinary = integer_to_binary(ContinuationBytes),
+ process_lines(ParseTaggedLine, Tag, <<Line/binary, ${, BytesAsBinary/binary, $}, LastPartialLine/binary>>, [], Acc, Module);
+process_line(_Result, _ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [NextLine|MoreLines], Acc, Module) ->
+ { StrippedNextLine, NextContinuationBytes, Result } = eimap_utils:num_literal_continuation_bytes(NextLine),
+ io:format("Connected up the next line: ~p ~i~n", [StrippedNextLine, NextContinuationBytes]),
+ FullLine = <<Line/binary, StrippedNextLine/binary>>,
+ process_line(Result, NextContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, FullLine, MoreLines, Acc, Module).
+
+formulate_response(ok, Data) -> { fini, Data };
+formulate_response({ _, Reason }, _Data) -> { error, Reason }.
+
+parse_tagged(_, false, _Line, Acc, _Module) -> Acc; % we are not passing the tagged line forward (no content, e.g)
+parse_tagged(ok, _, Line, Acc, Module) -> Module:process_tagged_line(Line, Acc); % success, so pass it forward
+parse_tagged(_Checked, _ParsedTaggedLine, _Line, Acc, _Module) -> Acc. % error, don't bother passing it forward
+
+-spec process_status_line(Line :: binary(), Acc :: list()) -> NewAcc :: list().
+process_status_line(<<"* ", Rest/binary>>, Acc) -> process_matched_status_line(binary:split(Rest, <<" ">>, [global]), Acc);
+process_status_line(_, Acc) -> Acc.
+
+process_matched_status_line([Number, Key|_], Acc) -> [{ eimap_utils:binary_to_atom(Key), binary_to_integer(Number) }|Acc];
+process_matched_status_line(_, Acc) -> Acc.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap_uidset.erl Added

@@ -0,0 +1,80 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_uidset).
+-export([uid_list_to_binary/1, empty_uidset/0, parse/1, next_uid/1]).
+
+% for internal use only
+-export([add_uid_as_binary_to_list/2, stitch_bin_list/2]).
+
+%% tokens have the form: integer | { integer, integer }
+-record(uidset, { tokens = [], current = none }).
+
+uid_list_to_binary(UidList) when is_list(UidList) ->
+ ListOfBins = lists:foldl(fun ?MODULE:add_uid_as_binary_to_list/2, [], UidList),
+ lists:foldl(fun ?MODULE:stitch_bin_list/2, <<>>, ListOfBins);
+uid_list_to_binary(_UidList) -> <<>>.
+
+parse(UidSet) when is_list(UidSet) -> parse(list_to_binary(UidSet));
+parse(<<>>) -> badarg;
+parse(UidSet) when is_binary(UidSet) ->
+ Components = binary:split(UidSet, <<",">>, [global]),
+ try lists:foldl(fun(Component, Acc) -> add_component(binary:split(Component, <<":">>), Acc) end, [], Components) of
+ Parsed -> #uidset{ tokens = lists:reverse(Parsed) }
+ catch
+ _:_ -> badarg
+ end.
+
+empty_uidset() -> #uidset{}.
+
+next_uid(#uidset{ tokens = Tokens, current = Current }) -> next_uid(Tokens, Current).
+next_uid([], _Current) -> { none, #uidset {} };
+next_uid([{ First, Second }|_] = FullList, Current) -> next_in_range(FullList, First, Second, Current);
+next_uid([Uid|UidSet], _Current) -> { Uid, #uidset{ tokens = UidSet } }.
+
+% PRIVATE API
+add_uid_as_binary_to_list(Uid, Acc) when is_integer(Uid), Uid >= 0 -> [integer_to_binary(Uid)|Acc];
+add_uid_as_binary_to_list({ StartUid, EndUid }, Acc) when is_integer(StartUid), is_integer(EndUid) ->
+ case add_uid_range_as_binary_to_list(StartUid, EndUid) of
+ error -> Acc;
+ { Start, End } -> [<<Start/binary, ":", End/binary>>|Acc]
+ end;
+add_uid_as_binary_to_list(_, Acc) -> Acc.
+
+add_uid_range_as_binary_to_list(Start, End) when Start < 0; End < 0 -> error;
+add_uid_range_as_binary_to_list(Start, End) when Start < End -> { integer_to_binary(Start), integer_to_binary(End) };
+add_uid_range_as_binary_to_list(Start, End) -> { integer_to_binary(End), integer_to_binary(Start) }.
+
+stitch_bin_list(Uid, <<>>) -> Uid;
+stitch_bin_list(Uid, Acc) -> <<Uid/binary, ",", Acc/binary>>.
+
+add_component(Uid, Acc) when is_integer(Uid), Uid >= 0 -> [Uid|Acc];
+add_component([First, Second], Acc) -> add_component(binary_to_integer(First), binary_to_integer(Second), Acc);
+add_component([<<"">>], Acc) -> Acc;
+add_component([Single], Acc) when is_binary(Single) -> add_component(binary_to_integer(Single), Acc);
+add_component(_, _Acc) -> throw(badarg).
+
+add_component(First, Second, Acc) when is_integer(First), First >= 0, is_integer(Second), Second >= 0 -> add_range(First, Second, Acc);
+add_component(_, _, _Acc) -> throw(badarg).
+
+add_range(First, Second, Acc) when First == Second -> [First|Acc];
+add_range(First, Second, Acc) -> [{ First, Second }|Acc].
+
+next_in_range(Tokens, First, _Second, none) -> { First, #uidset{ tokens = Tokens, current = First } };
+next_in_range(Tokens, First, Second, Current) when First < Second, Current < Second -> Next = Current + 1, { Next, #uidset{ tokens = Tokens, current = Next } };
+next_in_range(Tokens, First, Second, Current) when First > Second, Current > Second -> Next = Current - 1, { Next, #uidset{ tokens = Tokens, current = Next } };
+next_in_range([_|Tokens], _First, _Second, _Current) -> next_uid(#uidset{ tokens = Tokens }).

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap_utils.erl Added

@@ -0,0 +1,292 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_utils).
+-export([
+ extract_path_from_uri/3, extract_uidset_from_uri/1,
+ split_command_into_components/1, is_tagged_response/2, remove_tag_from_response/3,
+ header_name/1, parse_flags/1,
+ check_response_for_failure/2,
+ ensure_binary/1,
+ new_imap_compressors/0,
+ only_full_lines/1,
+ binary_to_atom/1,
+ num_literal_continuation_bytes/1,
+ split_lines/1,
+ split_lines_with_literals/1
+ ]).
+
+%% Translate the folder name in to a fully qualified folder path such as it
+%% would be used by a cyrus administrator.
+-spec extract_path_from_uri(SharedPrefix :: binary(), HierarchyDelim :: binary, URI :: binary()) -> Path :: binary() | bad_uri.
+extract_path_from_uri(SharedPrefix, HierarchyDelim, URI) when is_binary(URI) ->
+ extract_path_from_uri(SharedPrefix, HierarchyDelim, binary_to_list(URI));
+extract_path_from_uri(SharedPrefix, HierarchyDelim, URI) when is_list(URI) ->
+ %%lager:info("Parsing ~p", [URI]),
+ SchemeDefaults = [{ imap, 143 }, { imaps, 993 }],
+ ParseOpts = [ { scheme_defaults, SchemeDefaults } ],
+ case imap_folder_path(SharedPrefix, HierarchyDelim, http_uri:parse(URI, ParseOpts)) of
+ Path when is_list(Path) -> list_to_binary(Path);
+ Error -> Error
+ end.
+
+-spec extract_uidset_from_uri(URI :: binary()) -> UIDSet:: binary().
+extract_uidset_from_uri(URI) when is_binary(URI) ->
+ { TagStart, TagEnd } = binary:match(URI, <<";UID=">>),
+ UIDStart = TagStart + TagEnd + 1,
+ UriLength = byte_size(URI),
+ case binary:match(URI, <<";">>, [{ scope, { UIDStart, UriLength - UIDStart } }]) of
+ nomatch -> binary:part(URI, UIDStart - 1, UriLength - UIDStart + 1);
+ { Semicolon, _ } -> binary:part(URI, UIDStart - 1, Semicolon - UIDStart + 1)
+ end.
+
+-spec header_name(mailbox_uid | groupware_uid | groupware_uid) -> binary(); (any()) -> unknown.
+header_name(mailbox_uid) -> <<"/vendor/cmu/cyrus-imapd/uniqueid">>;
+header_name(groupware_type) -> <<"X-Kolab-Type">>;
+header_name(groupware_uid) -> <<"Subject">>;
+header_name(_) -> unknown.
+
+-spec parse_flags(FlagString :: binary() | list()) -> Flags :: [binary()].
+parse_flags(String) when is_list(String) -> parse_flags(list_to_binary(String));
+parse_flags(<<"(", Parened/binary>>) ->
+ case binary:match(Parened, <<")">>) of
+ nomatch -> [];
+ { ClosingParens, _ } -> parse_flags(binary_part(Parened, 0, ClosingParens))
+ end;
+parse_flags(<<>>) -> [];
+parse_flags(FlagString) when is_binary(FlagString) ->
+ binary:split(FlagString, <<" ">>, [global]).
+
+-spec check_response_for_failure(Data :: binary(), Tag :: undefined | binary()) -> ok | { error, Reason :: binary() }.
+check_response_for_failure(Data, undefined) when is_binary(Data) ->
+ check_response_for_failure(Data, <<>>);
+check_response_for_failure(Data, Tag) when is_binary(Data), is_binary(Tag) ->
+ NoToken = <<Tag/binary, " NO ">>,
+ NoTokenLength = byte_size(NoToken),
+ case NoTokenLength > byte_size(Data) of
+ true -> ok;
+ false -> is_no_token_found(Data, Tag, binary:match(Data, NoToken, [ { scope, { 0, NoTokenLength } } ]))
+ end.
+
+-spec split_command_into_components(Buffer :: binary()) -> { Tag :: binary(), Command :: binary(), Data :: binary() }.
+split_command_into_components(Buffer) when is_binary(Buffer) ->
+ split_command(Buffer).
+
+-spec is_tagged_response(Buffer :: binary(), Tag :: binary()) -> tagged | untagged.
+is_tagged_response(Buffer, Tag) ->
+ TagSize = size(Tag) + 1, % The extra char is a space
+ BufferSize = size(Buffer),
+ case
+ case (TagSize =< BufferSize) of
+ true -> <<Tag/binary, " ">> =:= binary:part(Buffer, 0, TagSize);
+ _ -> false
+ end of
+
+ true -> tagged;
+ _ -> untagged
+ end.
+
+-spec num_literal_continuation_bytes(Buffer :: binary()) -> { BufferSansContinuation :: binary(), NumberBytes :: integer(), found|none }.
+num_literal_continuation_bytes(Buffer) when size(Buffer) < 4 ->
+ { Buffer, 0, none };
+num_literal_continuation_bytes(Buffer) ->
+ case binary:last(Buffer) =:= $} of
+ true -> number_of_bytes_in_continuation(Buffer);
+ false -> { Buffer, 0, none }
+ end.
+
+number_of_bytes_in_continuation(Buffer) ->
+ BufferSize = size(Buffer),
+ OpenBracePos = find_continuation_open_brace(Buffer, BufferSize - 3),
+ confirm_continuation(Buffer, OpenBracePos).
+
+find_continuation_open_brace(_Buffer, 0) -> -1;
+find_continuation_open_brace(Buffer, Pos) ->
+ case binary:at(Buffer, Pos) of
+ ${ -> Pos;
+ _ -> find_continuation_open_brace(Buffer, Pos - 1)
+ end.
+
+confirm_continuation(Buffer, -1) ->
+ { Buffer, 0, none };
+confirm_continuation(Buffer, OpenBracePos) ->
+ BufferSize = size(Buffer),
+ % Strip any '+' following the literal size (due to LITERAL+)
+ LiteralSize = case binary:at(Buffer, BufferSize - 2) of
+ $+ -> binary:part(Buffer, OpenBracePos + 1, BufferSize - OpenBracePos - 3);
+ _ -> binary:part(Buffer, OpenBracePos + 1, BufferSize - OpenBracePos - 2)
+ end,
+
+ try binary_to_integer(LiteralSize) of
+ Result -> { binary:part(Buffer, 0, OpenBracePos), Result, found }
+ catch
+ _:_ -> { Buffer, 0, none }
+ end.
+
+-spec remove_tag_from_response(Buffer :: binary(), Tag :: undefine | binary(), Check :: check | trust) -> Command :: binary().
+remove_tag_from_response(Buffer, undefined, _) ->
+ Buffer;
+remove_tag_from_response(Buffer, <<>>, _) ->
+ Buffer;
+remove_tag_from_response(Buffer, Tag, check) ->
+ TagSize = size(Tag) + 1, % The extra char is a space
+ BufferSize = size(Buffer),
+ case TagSize =< BufferSize of
+ true ->
+ case <<Tag/binary, " ">> =:= binary:part(Buffer, 0, TagSize) of
+ true -> binary:part(Buffer, TagSize, BufferSize - TagSize);
+ false -> Buffer
+ end;
+ false -> Buffer
+ end;
+remove_tag_from_response(Buffer, Tag, trust) ->
+ TagSize = size(Tag) + 1, % The extra char is a space
+ BufferSize = size(Buffer),
+ case TagSize =< BufferSize of
+ true -> binary:part(Buffer, TagSize, BufferSize - TagSize);
+ false -> Buffer
+ end.
+
+%% Private
+split_command(<<>>) -> { <<>>, <<>>, <<>> };
+split_command(Buffer) ->
+ {Terminated, End} = eol_found(Buffer, binary:match(Buffer, <<"\r\n">>)),
+ { Tag, CommandStart } = searched_in_buffer(Buffer, 0, End, binary:match(Buffer, <<" ">>, [ { scope, { 0, End } } ])),
+ case Terminated of
+ true when End == CommandStart ->
+ %% when we have a newline, and the tag takes the entire line, the "tag" is actually the command
+ {<<>>, Tag, <<>>};
+ _ ->
+ { Command, DataStart } = searched_in_buffer(Buffer, CommandStart, End, binary:match(Buffer, <<" ">>, [ { scope, { CommandStart, End - CommandStart } } ])),
+ Data = binary:part(Buffer, DataStart, End - (DataStart)),
+ { Tag, Command, Data }
+ end.
+
+eol_found(Buffer, nomatch) -> {false, size(Buffer)};
+eol_found(_Buffer, { MatchStart, _MatchLength }) -> {true, MatchStart}.
+
+searched_in_buffer(Buffer, Start, End, nomatch) -> { binary:part(Buffer, Start, End - Start), End };
+searched_in_buffer(Buffer, Start, _End, { MatchStart, MatchLength } ) -> { binary:part(Buffer, Start, MatchStart - Start), MatchStart + MatchLength }.
+
+is_no_token_found(Data, Tag, nomatch) ->
+ BadToken = <<Tag/binary, " BAD ">>,
+ BadTokenLength = byte_size(BadToken),
+ Match = binary:match(Data, BadToken, [ { scope, { 0, BadTokenLength } } ]),
+ is_bad_token_found(Data, Tag, Match);
+is_no_token_found(Data, _Tag, { Start, Length }) ->
+ ReasonStart = Start + Length,
+ Reason = binary:part(Data, ReasonStart, byte_size(Data) - ReasonStart),
+ { no, chop_newlines(Reason) }.
+
+is_bad_token_found(_Data, _Tag, nomatch) ->
+ ok;
+is_bad_token_found(Data, _Tag, { Start, Length }) ->
+ ReasonStart = Start + Length,
+ %% -2 is due to the traling \r\n

guam-0.9.12.tar.gz/_checkouts/eimap/test Added

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_annotation_tests.erl Added

@@ -0,0 +1,71 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_annotation_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+% c("test/eimap_command_annotation_tests.erl"). eunit:test(eimap_command_annotation).
+
+parse_test_() ->
+ Data =
+ [
+ %% { tag, server_response, expected_parsed_results }
+ {
+ <<"EG0002">>,
+ <<"* ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/color\" (\"value.shared\" \"32CD32\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/folder-type\" (\"value.shared\" \"event\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/x-toltec/test\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/horde/share-params\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/h-share-attr-desc\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/uniqueid\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/pxfb-readable-for\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/incidences-for\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/folder-test\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/displayname\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/activesync\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/uniqueid\" (\"value.shared\" \"b1a5bb95-2bd3-4628-a0d2-49e9bd10735e\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/squat\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/size\" (\"value.shared\" \"5726\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/sieve\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/sharedseen\" (\"value.shared\" \"false\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/pop3showafter\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/pop3newuidl\" (\"value.shared\" \"true\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/partition\" (\"value.shared\" \"default\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/news2mail\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/lastupdate\" (\"value.shared\" \"20-Mar-2015 05:17:51 +0100\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/lastpop\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/expire\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/duplicatedeliver\" (\"value.shared\" \"false\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/thread\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/specialuse\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/sort\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/comment\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/checkperiod\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/check\" (\"value.shared\" NIL)\r\nEG0002 OK Completed\r\n">>,
+ { fini, [
+ {<<"/vendor/cmu/cyrus-imapd/duplicatedeliver">>, false},
+ {<<"/vendor/cmu/cyrus-imapd/lastupdate">>, <<"20-Mar-2015 05:17:51 +0100">>},
+ {<<"/vendor/cmu/cyrus-imapd/partition">>,<<"default">>},
+ {<<"/vendor/cmu/cyrus-imapd/pop3newuidl">>,true},
+ {<<"/vendor/cmu/cyrus-imapd/sharedseen">>,false},
+ {<<"/vendor/cmu/cyrus-imapd/size">>,5726},
+ {<<"/vendor/cmu/cyrus-imapd/uniqueid">>, <<"b1a5bb95-2bd3-4628-a0d2-49e9bd10735e">>},
+ {<<"/vendor/kolab/folder-type">>,<<"event">>},
+ {<<"/vendor/kolab/color">>,<<"32CD32">>}
+ ]
+ }
+ },
+ {
+ <<"EG0002">>,
+ <<"* ANNOTATION user/john.doe/Sent@example.org \"/vendor/x-toltec/test\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/horde/share-params\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/h-share-attr-desc\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/uniqueid\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/pxfb-readable-for\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/incidences-for\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/folder-type\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/folder-test\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/displayname\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/color\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/activesync\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/uniqueid\" (\"value.shared\" \"237357ec-7610-422e-9e55-0bae83caf58a\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/squat\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/size\" (\"value.shared\" \"401\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/sieve\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/sharedseen\" (\"value.shared\" \"false\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/pop3showafter\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/pop3newuidl\" (\"value.shared\" \"true\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/partition\" (\"value.shared\" \"default\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/news2mail\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/lastupdate\" (\"value.shared\" \"23-Mar-2015 15:19:29 +0100\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/lastpop\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/expire\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/duplicatedeliver\" (\"value.shared\" \"false\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/thread\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/specialuse\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/sort\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/comment\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/checkperiod\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/check\" (\"value.shared\" NIL)\r\nEG0002 OK Completed\r\n">>,
+ { fini, [
+ {<<"/vendor/cmu/cyrus-imapd/duplicatedeliver">>,false},
+ {<<"/vendor/cmu/cyrus-imapd/lastupdate">>,<<"23-Mar-2015 15:19:29 +0100">>},
+ {<<"/vendor/cmu/cyrus-imapd/partition">>,<<"default">>},
+ {<<"/vendor/cmu/cyrus-imapd/pop3newuidl">>,true},
+ {<<"/vendor/cmu/cyrus-imapd/sharedseen">>,false},
+ {<<"/vendor/cmu/cyrus-imapd/size">>,401},
+ {<<"/vendor/cmu/cyrus-imapd/uniqueid">>,<<"237357ec-7610-422e-9e55-0bae83caf58a">>}
+ ]
+ }
+ }
+ ],
+ { _Command, ResponseType } = eimap_command_annotation:new_command(<<"/my/folder">>),
+ lists:foldl(fun({ Tag, ServerData, Expected }, Acc) -> [?_assertEqual(Expected, eimap_command:parse_response(ResponseType, ServerData, Tag, eimap_command_annotation))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ %% mailbox, command
+ {
+ <<"user/john.doe/Calendar/Personal Calendar@example.org">>,
+ { <<"GETANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"*\" \"value.shared\"">>, multiline_response }
+ }
+ ],
+ lists:foldl(fun({ Mailbox, Command }, Acc) -> [?_assertEqual(Command, eimap_command_annotation:new_command(Mailbox))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_capability_tests.erl Added

@@ -0,0 +1,70 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_capability_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ parse_serverid,
+ <<"* OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE STARTTLS LOGINDISABLED] acme.com Cyrus IMAP 2.5.5.5-Kolab-2.5.5-5.1.el6.kolab_14 server ready\r\n">>,
+ <<>>,
+ { fini, { <<"IMAP4rev1 LITERAL+ ID ENABLE STARTTLS LOGINDISABLED">>, <<"acme.com Cyrus IMAP 2.5.5.5-Kolab-2.5.5-5.1.el6.kolab_14 server ready">> } }
+ },
+ {
+ ok,
+ <<"* CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE STARTTLS AUTH=PLAIN AUTH=LOGIN SASL-IR\r\nabcd OK CAPABILITY COMPLETED\r\n">>,
+ <<"abcd">>,
+ { fini, [<<"IMAP4rev1 LITERAL+ ID ENABLE STARTTLS AUTH=PLAIN AUTH=LOGIN SASL-IR">>] }
+ },
+ {
+ ok,
+ <<"other stuff\r\n">>,
+ <<"abcd">>,
+ { more, { <<>>, [], eimap_command_capability } }
+ },
+ {
+ ok,
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ ok,
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ],
+ lists:foldl(fun({ InitArgs, Response, Tag, Parsed }, Acc) ->
+ { _Command, ResponseType } = eimap_command_capability:new_command(InitArgs),
+ [?_assertEqual(Parsed, eimap_command:parse_response(ResponseType, Response, Tag, eimap_command_capability))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { parse_serverid, { <<"CAPABILITY">>, single_line_response } },
+ { <<>>, { <<"CAPABILITY">>, multiline_response } },
+ { true, { <<"CAPABILITY">>, multiline_response } },
+ { [], { <<"CAPABILITY">>, multiline_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_capability:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_compress_tests.erl Added

@@ -0,0 +1,55 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_compress_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"abcd OK DEFLATE active\r\n">>,
+ <<"abcd">>,
+ compression_active
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ],
+ InitArgs = ok,
+ { _Command, ResponseType } = eimap_command_compress:new_command(InitArgs),
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> [?_assertEqual(Parsed, eimap_command:parse_response(ResponseType, Response, Tag, eimap_command_compress))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { ok, { <<"COMPRESS DEFLATE">>, single_line_response } },
+ { <<>>, { <<"COMPRESS DEFLATE">>, single_line_response } },
+ { true, { <<"COMPRESS DEFLATE">>, single_line_response } },
+ { [], { <<"COMPRESS DEFLATE">>, single_line_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_compress:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_getmetadata_tests.erl Added

@@ -0,0 +1,99 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_getmetadata_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"* METADATA Tasks (/shared/vendor/kolab/folder-type \"task\")\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [ { <<"Tasks">>, [ { <<"/shared/vendor/kolab/folder-type">>, <<"task">> } ] } ] }
+ },
+ {
+ <<"* METADATA \"Tasks Tasks\" (/shared/vendor/kolab/folder-type \"task\")\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [ { <<"Tasks Tasks">>, [ { <<"/shared/vendor/kolab/folder-type">>, <<"task">> } ] } ] }
+ },
+ {
+ <<"* METADATA Tasks (/shared/vendor/kolab/folder-type \"task \\\"sigh\\\"\")\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [ { <<"Tasks">>, [ { <<"/shared/vendor/kolab/folder-type">>, <<"task \"sigh\"">> } ] } ] }
+ },
+ {
+ <<"* METADATA Tasks (/shared/vendor/kolab/folder-type \"task \\\"sigh\\\"\" /private/comment \"My own comment\")\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [ { <<"Tasks">>, [ { <<"/private/comment">>, <<"My own comment">> }, { <<"/shared/vendor/kolab/folder-type">>, <<"task \"sigh\"">> } ] } ] }
+ },
+ {
+ <<"* METADATA Tasks (/shared/vendor/kolab/folder-type \"task \\\"sigh\\\"\")\r\n* METADATA Archive (/shared/vendor/kolab/folder-type NIL)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [
+ { <<"Archive">>, [ {<<"/shared/vendor/kolab/folder-type">>, null } ] },
+ { <<"Tasks">>, [ { <<"/shared/vendor/kolab/folder-type">>, <<"task \"sigh\"">> } ] }
+ ]
+ }
+ },
+ {
+ <<"* METADATA \"INBOX.Test Folder\" (/shared/vendor/kolab/folder-type {5}\r\nevent)\r\nEG0001 OK Getmetadata completed (0.014 + 0.000 + 0.013 secs).\r\n">>,
+ <<"EG0001">>,
+ { fini, [
+ { <<"INBOX.Test Folder">>, [ {<<"/shared/vendor/kolab/folder-type">>, <<"event">> } ] }
+ ]
+ }
+ },
+ {
+ <<"* METADATA \"INBOX.Test Folder\" (/shared/vendor/kolab/folder-type {0}\r\n)\r\nEG0001 OK Getmetadata completed (0.014 + 0.000 + 0.013 secs).\r\n">>,
+ <<"EG0001">>,
+ { fini, [
+ { <<"INBOX.Test Folder">>, [ {<<"/shared/vendor/kolab/folder-type">>, <<>> } ] }
+ ]
+ }
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ],
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) ->
+ [?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_getmetadata))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { { <<>> }, { <<"GETMETADATA (DEPTH infinity) \"\"">>, multiline_response } },
+ { { <<>>, [<<"/shared/comment">>, "/private/comment"] }, { <<"GETMETADATA (DEPTH infinity) \"\" (/shared/comment /private/comment)">>, multiline_response } },
+ { { <<"/my/folder">>, [<<"/shared/comment">>, "/private/comment"] }, { <<"GETMETADATA (DEPTH infinity) \"/my/folder\" (/shared/comment /private/comment)">>, multiline_response } },
+ { { "/my/folder", [<<"/shared/comment">>, "/private/comment"] }, { <<"GETMETADATA (DEPTH infinity) \"/my/folder\" (/shared/comment /private/comment)">>, multiline_response } },
+ { { <<"/my/folder">> }, { <<"GETMETADATA (DEPTH infinity) \"/my/folder\"">>, multiline_response } },
+ { { "/my/folder", [], 10, 100 }, { <<"GETMETADATA (DEPTH 10 MAXSIZE 100) \"/my/folder\"">>, multiline_response } },
+ { { <<"/my/folder">>, [], 10, 100 }, { <<"GETMETADATA (DEPTH 10 MAXSIZE 100) \"/my/folder\"">>, multiline_response } },
+ { { <<"/my/folder">>, [], 10, none}, { <<"GETMETADATA (DEPTH 10) \"/my/folder\"">>, multiline_response } },
+ { { <<"/my/folder">>, [], none, 100 }, { <<"GETMETADATA (MAXSIZE 100) \"/my/folder\"">>, multiline_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_getmetadata:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_login_tests.erl Added

@@ -0,0 +1,51 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_login_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"abcd OK LOGIN completed\r\n">>,
+ <<"abcd">>,
+ { fini, authed }
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ],
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> [?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_login))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { { <<"aseigo">>, <<"oohyeah">> }, { <<"LOGIN aseigo oohyeah">>, multiline_response } },
+ { { "aseigo", "oohyeah" }, { <<"LOGIN aseigo oohyeah">>, multiline_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_login:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_logout_tests.erl Added

@@ -0,0 +1,52 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_logout_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"abcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { close_socket, ok }
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { close_socket, { error, <<"Uh uh uh">> } }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { close_socket, { error, <<"Uh uh uh">> } }
+ }
+ ],
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> [?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_logout))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { <<>>, { <<"LOGOUT">>, multiline_response } },
+ { true, { <<"LOGOUT">>, multiline_response } },
+ { [], { <<"LOGOUT">>, multiline_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_logout:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_namespace_tests.erl Added

@@ -0,0 +1,72 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_namespace_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"* NAMESPACE ((\"\" \"/\")) NIL NIL\r\nabcd OK NAMESPACE command completed\r\n">>,
+ <<"abcd">>,
+ { fini, { none, none } }
+ },
+% {
+% <<"* NAMESPACE NIL NIL ((\"\" \".\"))\r\nabcd OK NAMESPACE command completed\r\n">>,
+% <<"abcd">>,
+% namespace
+% },
+% {
+% <<"* NAMESPACE ((\"\" \"/\")) NIL ((\"Public Folders/\" \"/\"))\r\nabcd OK NAMESPACE command completed\r\n">>,
+% <<"abcd">>,
+% namespace
+% },
+% {
+% <<"* NAMESPACE ((\"\" \"/\")) ((\"~\" \"/\")) ((\"#shared/\" \"/\")\r\n(\"#public/\" \"/\")(\"#ftp/\" \"/\")(\"#news.\" \".\"))\r\nabcd OK NAMESPACE command completed\r\n">>,
+% <<"abcd">>,
+% namespace
+% },
+% {
+% <<"* NAMESPACE ((\"INBOX.\" \".\")) NIL NIL\r\nabcd OK NAMESPACE command completed\r\n">>,
+% <<"abcd">>,
+% namespace
+% },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ],
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> [?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_namespace))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { <<>>, { <<"NAMESPACE">>, multiline_response } },
+ { true, { <<"NAMESPACE">>, multiline_response } },
+ { [], { <<"NAMESPACE">>, multiline_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_namespace:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_noop_tests.erl Added

@@ -0,0 +1,69 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_noop_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ ok,
+ <<"* 100 EXISTS\r\n* 22 EXPUNGE\r\n* 14 FETCH (FLAGS (\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen))\r\n* 3 Recent\r\nabcd OK Completed\r\n">>,
+ <<"abcd">>,
+ { fini,
+ [
+ { recent, 3 },
+ { fetch, 14 },
+ { expunge, 22 },
+ { exists, 100 }
+ ]
+ }
+ },
+ {
+ ok,
+ <<"abcd OK Completed\r\n">>,
+ <<"abcd">>,
+ { fini, [] }
+ },
+ {
+ ok,
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ ok,
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ],
+ lists:foldl(fun({ InitArgs, ServerResponse, Tag, Parsed }, Acc) ->
+ { _Command, ResponseType } = eimap_command_noop:new_command(InitArgs),
+ [?_assertEqual(Parsed, eimap_command:parse_response(ResponseType, ServerResponse, Tag, eimap_command_noop))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { ok, { <<"NOOP">>, multiline_response } },
+ { <<>>, { <<"NOOP">>, multiline_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_noop:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_starttls_tests.erl Added

@@ -0,0 +1,52 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_starttls_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"abcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ starttls
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ],
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> [?_assertEqual(Parsed, eimap_command:parse_response(single_line_response, Response, Tag, eimap_command_starttls))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { <<>>, { <<"STARTTLS">>, single_line_response } },
+ { true, { <<"STARTTLS">>, single_line_response } },
+ { [], { <<"STARTTLS">>, single_line_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_starttls:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_status_tests.erl Added

@@ -0,0 +1,65 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_status_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"* STATUS blurdybloop (MESSAGES 231 UIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [{ uidnext, 44292 }, { messages, 231 }] }
+ },
+ {
+ <<"* STATUS blurdybloop (MESSAGES 231 UIDNEXT 44292 RECENT 0 UIDVALIDITY 10110 UNSEEN 10)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [{ unseen, 10 }, { uidvalidity, 10110 }, { recent, 0 }, { uidnext, 44292 }, { messages, 231 }] }
+ },
+ {
+ <<"* STATUS blurdybloop (RECENT 1 UIDVALIDITY 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [{ uidvalidity, 44292 }, { recent, 1 }] }
+ }
+ ],
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> [?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_status))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { { "INBOX", [] },
+ { <<"STATUS INBOX (MESSAGES)">>, multiline_response } },
+ { { <<"INBOX">>, [] },
+ { <<"STATUS INBOX (MESSAGES)">>, multiline_response } },
+ { { <<>>, [messages] },
+ { <<"STATUS INBOX (MESSAGES)">>, multiline_response } },
+ { { <<"">>, [messages] },
+ { <<"STATUS INBOX (MESSAGES)">>, multiline_response } },
+ { { <<"/my/folder">>, [messages, recent, uidnext, uidvalidity, unseen] },
+ { <<"STATUS /my/folder (MESSAGES RECENT UIDNEXT UIDVALIDITY UNSEEN)">>, multiline_response } },
+ { { <<"/my/folder">>, [uidnext, recent, uidvalidity, unseen] },
+ { <<"STATUS /my/folder (UIDNEXT RECENT UIDVALIDITY UNSEEN)">>, multiline_response } },
+ { { <<"/my/folder">>, [garbage, unseen] },
+ { <<"STATUS /my/folder (UNSEEN)">>, multiline_response } },
+ { { <<"/my/folder">>, [garbage] },
+ { <<"STATUS /my/folder (MESSAGES)">>, multiline_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_status:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_switch_folder_tests.erl Added

@@ -0,0 +1,72 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_switch_folder_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ [
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"Trash">>,
+ <<"* 0 EXISTS\r\n* 0 RECENT\r\n* FLAGS (\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen)\r\n* OK [PERMANENTFLAGS ()] Ok\r\n* OK [UIDVALIDITY 1447439786] Ok\r\n* OK [UIDNEXT 1] Ok\r\n* OK [HIGHESTMODSEQ 1] Ok\r\n* OK [URLMECH INTERNAL] Ok>\r\n* OK [ANNOTATIONS 65536] Ok\r\nabcd OK [READ-WRITE] SELECT completed\r\n">>,
+ <<"abcd">>,
+ { fini,
+ [
+ { writeable, true },
+ { annotations, 65536 },
+ { url_mech, internal },
+ { highest_mod_seq, 1 },
+ { uid_next, 1 },
+ { uid_validity, 1447439786 },
+ { permanent_flags, [] },
+ { flags, [<<"\\\\Answered">>, <<"\\\\Flagged">>, <<"\\\\Draft">>, <<"\\\\Deleted">>, <<"\\\\Seen">>] },
+ { recent, 0 },
+ { exists, 0 }
+ ]
+ }
+ },
+ {
+ <<"Nope">>,
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"ALsoWrong">>,
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ],
+ lists:foldl(fun({ InitArgs, ServerResponse, Tag, Parsed }, Acc) ->
+ { _Command, ResponseType } = eimap_command_switch_folder:new_command(InitArgs),
+ [?_assertEqual(Parsed, eimap_command:parse_response(ResponseType, ServerResponse, Tag, eimap_command_switch_folder))|Acc] end, [], Data).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { "Trash", { <<"SELECT \"Trash\"">>, all_multiline_response } },
+ { <<"Trash">>, { <<"SELECT \"Trash\"">>, all_multiline_response } },
+ { { <<"Trash">>, select }, { <<"SELECT \"Trash\"">>, all_multiline_response } },
+ { { <<"Trash">>, examine }, { <<"EXAMINE \"Trash\"">>, all_multiline_response } },
+ { { "Trash", examine }, { <<"EXAMINE \"Trash\"">>, all_multiline_response } }
+ ],
+ lists:foldl(fun({ Params, Command }, Acc) -> [?_assertEqual(Command, eimap_command_switch_folder:new_command(Params))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_tests.erl Added

@@ -0,0 +1,70 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_tests).
+-include_lib("eunit/include/eunit.hrl").
+-export([process_line/2, formulate_response/2]).
+
+% c("test/eimap_command_tests.erl"). eunit:test(eimap_command).
+
+process_line(Data, Acc) -> [{ marked, Data } | Acc].
+formulate_response(Result, Data) -> eimap_command:formulate_response(Result, lists:reverse(Data)).
+
+
+literal_continuations_test_() ->
+ Data =
+ [
+ % input, output
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"* STATUS 1 (MESSAGES 231 {14}\r\nUIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [ { marked, <<"* STATUS 1 (MESSAGES 231 UIDNEXT 44292)">> } ] }
+ },
+ {
+ <<"* STATUS 1a (MESSAGES 231 {14}\r\nUIDNEXT 44292)\r\nabcd OK Begin TLS negotiation">>,
+ <<"abcd">>,
+ { more, { <<"abcd OK Begin TLS negotiation">>, [ { marked, <<"* STATUS 1a (MESSAGES 231 UIDNEXT 44292)">> } ], ?MODULE } }
+ },
+ {
+ <<"* STATUS 2 (MESSAGES 231 {14}\r\n">>,
+ <<"abcd">>,
+ { more, { <<"* STATUS 2 (MESSAGES 231 {14}">>, [], ?MODULE } }
+ },
+ {
+ <<"* STATUS 1 (MESSAGES 231 {0}\r\n)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [ { marked, <<"* STATUS 1 (MESSAGES 231 )">> } ] }
+ },
+ {
+ <<"* STATUS 3 (MESSAGES 231 {h14}\r\nUIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [ { marked, <<"* STATUS 3 (MESSAGES 231 {h14}">> }, { marked, <<"UIDNEXT 44292)">> } ] }
+ },
+ {
+ <<"* STATUS 4 (MESSAGES 231 \r\nUIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [ { marked, <<"* STATUS 4 (MESSAGES 231 ">> }, { marked, <<"UIDNEXT 44292)">> } ] }
+ },
+ {
+ <<"* STATUS 5 (MESSAGES 231 UIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, [ { marked, <<"* STATUS 5 (MESSAGES 231 UIDNEXT 44292)">> } ] }
+ }
+ ],
+ lists:foldl(fun({ Binary, Tag, Result }, Acc) -> [?_assertEqual(Result, eimap_command:parse_response(multiline_response, Binary, Tag, ?MODULE))|Acc] end, [], Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_uidset_tests.erl Added

@@ -0,0 +1,103 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_uidset_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+% c("test/eimap_uidset_tests.erl"). eunit:test(eimap_uidset).
+
+new_test_() ->
+ Data =
+ [
+ % input, output
+ { [4], <<"4">> },
+ { [1, 2, 3, 4], <<"1,2,3,4">> },
+ { [-1, 1, 2, 3, 4], <<"1,2,3,4">> },
+ { [1, {100, 10}, 2, 3, 4], <<"1,10:100,2,3,4">> },
+ { [1, {10, 100}, 2, 3, 4], <<"1,10:100,2,3,4">> },
+ { [1, {-10, 100}, 2, 3, 4], <<"1,2,3,4">> },
+ { [1, {-100, 10}, 2, 3, 4], <<"1,2,3,4">> },
+ { [1, {-10, 100}, 2, 3, 4], <<"1,2,3,4">> },
+ { [1, {"alpha", 100}, <<"random_binary">>, some_atom, 2, 3, 4], <<"1,2,3,4">> },
+ { <<"1,2,3,4">>, <<>> },
+ { other, <<>> },
+ { [], <<>> }
+ ],
+ lists:foldl(fun({ List, Binary }, Acc) -> [?_assertEqual(Binary, eimap_uidset:uid_list_to_binary(List))|Acc] end, [], Data).
+
+single_value_test_() ->
+ [
+ ?_assertEqual([1], iterate_uidset(eimap_uidset:parse(<<"1,">>))),
+ ?_assertEqual([1], iterate_uidset(eimap_uidset:parse(<<"1">>))),
+ ?_assertEqual([20], iterate_uidset(eimap_uidset:parse(<<"20">>))),
+ ?_assertEqual([147], iterate_uidset(eimap_uidset:parse(<<"147">>)))
+ ].
+
+multiple_single_value_test_() ->
+ [
+ ?_assertEqual([1, 2], iterate_uidset(eimap_uidset:parse(<<"1,2">>)))
+ ].
+
+range_test_() ->
+ [
+ ?_assertEqual([1, 2, 3], iterate_uidset(eimap_uidset:parse(<<"1:3">>))),
+ ?_assertEqual([3, 2, 1], iterate_uidset(eimap_uidset:parse(<<"3:1">>))),
+ ?_assertEqual([1], iterate_uidset(eimap_uidset:parse(<<"1:1">>)))
+ ].
+
+multiple_range_test_() ->
+ [ ?_assertEqual([1, 2, 3, 10, 11, 12, 13, 14, 15], iterate_uidset(eimap_uidset:parse(<<"1:3,10:15">>))) ].
+
+mix_single_and_range_test_() ->
+ [
+ ?_assertEqual([1, 3, 4, 5], iterate_uidset(eimap_uidset:parse(<<"1,3:5">>))),
+ ?_assertEqual([1, 3, 4, 5, 10], iterate_uidset(eimap_uidset:parse(<<"1,3:5,10">>))),
+ ?_assertEqual([1, 3, 4, 5, 10, 20, 21, 22, 23, 30], iterate_uidset(eimap_uidset:parse(<<"1,3:5,10,20:23,30">>)))
+ ].
+
+mix_single_and_range_with_whitespace_test_() ->
+ [
+ ?_assertEqual(badarg, eimap_uidset:parse(<<"1, 3:5">>)),
+ ?_assertEqual(badarg, eimap_uidset:parse(<<"1,3:5 ,10">>)),
+ ?_assertEqual(badarg, eimap_uidset:parse(<<"1,3 :5,10,20: 23,30">>))
+ ].
+
+bad_uidsets_test_() ->
+ [
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<>>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"-1,3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"alpha">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1,a,3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1,3:5,a">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1;2">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1, 2">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1:3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"-11,3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"11,-3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"11,3:-5">>)))
+ ].
+
+
+iterate_uidset(badarg) ->
+ badarg;
+iterate_uidset(UidSet) ->
+ %%io:fwrite("we are going to iterate over ~p~n", [UidSet]),
+ lists:reverse(iterate_uidset(eimap_uidset:next_uid(UidSet), [])).
+iterate_uidset({ none, _UidSet }, Acc) -> Acc;
+iterate_uidset({ Uid, UidSet }, Acc) -> iterate_uidset(eimap_uidset:next_uid(UidSet), [Uid|Acc]).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_utils_tests.erl Added

@@ -0,0 +1,216 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_utils_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+% c("test/eimap_utils_tests.erl"). eunit:test(eimap_utils).
+
+extract_path_from_uri_test_() ->
+ Data =
+ [
+ {
+ <<"user/john.doe/Calendar@example.org">>,
+ none, "/",
+ <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"user/john.doe/Personal Calendar@example.org">>,
+ none, "/",
+ <<"imap://john.doe@example.org@kolab.example.org/Personal%20Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"Personal Calendar">>,
+ none, "/",
+ <<"imap://kolab.example.org/Personal%20Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"Personal Calendar">>,
+ "Shared/", "/",
+ <<"imap://kolab.example.org/Shared/Personal%20Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"Personal Calendar">>,
+ "Shared/", "/",
+ <<"imap://kolab.example.org/Personal%20Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"user/john.doe@example.org">>,
+ "Shared/", "/",
+ <<"imap://john.doe@example.org@kolab.example.org/INBOX;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ bad_uri,
+ none, "/",
+ <<"merf">>
+ }
+ ],
+ lists:foldl(fun({ Val, SharePrefix, Sep, Input }, Acc) -> [?_assertEqual(Val, eimap_utils:extract_path_from_uri(SharePrefix, Sep, Input))|Acc] end,
+ [], Data).
+
+extract_uid_from_uri_test_() ->
+ Data =
+ [
+ { <<"1">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=1">> },
+ { <<"12">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=12">> },
+ { <<"123">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=123">> },
+ { <<"1">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=1;foo">> },
+ { <<"12">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=12;foo=bar">> },
+ { <<"123">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=123;foo=bar">> }
+ ],
+ lists:foldl(fun({ Val, Input }, Acc) -> [?_assertEqual(Val, eimap_utils:extract_uidset_from_uri(Input))|Acc] end,
+ [], Data).
+
+split_command_into_components_test_() ->
+ Data =
+ [
+ { { <<>>, <<>>, <<>> }, <<>> },
+ { { <<>>, <<"DONE">>, <<>> }, <<"DONE\r\n">> },
+ { { <<".">>, <<"LIST">>, <<"\"\" \"*\"">> }, <<". LIST \"\" \"*\"">> },
+ { { <<"1">>, <<"STARTTLS">>, <<>> }, <<"1 STARTTLS">> },
+ { { <<"1">>, <<"STARTTLS">>, <<>> }, <<"1 STARTTLS\r\n">> },
+ { { <<"3">>, <<"ID">>, <<"(\"name\" \"Thunderbird\" \"version\" \"38.3.0\")">> }, <<"3 ID (\"name\" \"Thunderbird\" \"version\" \"38.3.0\")">> }
+ ],
+ lists:foldl(fun({ Val, Input }, Acc) -> [?_assertEqual(Val, eimap_utils:split_command_into_components(Input)) | Acc] end,
+ [], Data).
+
+check_response_for_failure_test_() ->
+ Tag = <<"abcdef">>,
+ Data =
+ [
+ { Tag, <<Tag/binary, " NO reasons\r\n">>, { no, <<"reasons">> } },
+ { Tag, <<Tag/binary, " NO reasons">>, { no, <<"reasons">> } },
+ { Tag, <<Tag/binary, " BAD reasons\r\n">>, { bad, <<"reasons">> } },
+ { Tag, <<Tag/binary, " BAD reasons">>, { bad, <<"reasons">> } },
+ { Tag, <<Tag/binary, " OK reasons">>, ok },
+ { Tag, <<"short">>, ok },
+ { undefined, <<"* OK reasons">>, ok }
+ ],
+ lists:foldl(fun({ Tag2, Input, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:check_response_for_failure(Input, Tag2)) | Acc] end, [], Data).
+
+is_tagged_response_test_() ->
+ Tag = <<"abcd">>,
+ Data =
+ [
+ { <<Tag/binary, " Indeed\r\n">>, tagged },
+ { <<Tag/binary, " Indeed">>, tagged },
+ { <<"one">>, untagged },
+ { <<"* Yeah baby">>, untagged }
+ ],
+ lists:foldl(fun({ Input, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:is_tagged_response(Input, Tag)) | Acc] end, [], Data).
+
+remove_tag_from_response_test_() ->
+ Tag = <<"abcd">>,
+ Data =
+ [
+ { Tag, <<Tag/binary, " Indeed\r\n">>, check, <<"Indeed\r\n">> },
+ { Tag, <<Tag/binary, " Indeed\r\n">>, trust, <<"Indeed\r\n">> },
+ { Tag, <<Tag/binary, " Indeed">>, check, <<"Indeed">>},
+ { Tag, <<Tag/binary, " Indeed">>, trust, <<"Indeed">>},
+ { undefined, <<"abcd4 Indeed">>, check, <<"abcd4 Indeed">>},
+ { undefined, <<"abcd4 Indeed">>, trust, <<"abcd4 Indeed">>},
+ { <<>>, <<"abcd4 Indeed">>, check, <<"abcd4 Indeed">>},
+ { <<>>, <<"abcd4 Indeed">>, trust, <<"abcd4 Indeed">>},
+ { Tag, <<"abcd4 Indeed">>, check, <<"abcd4 Indeed">>},
+ { Tag, <<"abcd4 Indeed">>, trust, <<" Indeed">>},
+ { Tag, <<"* Yeah baby">>, check, <<"* Yeah baby">> },
+ { Tag, <<"">>, check, <<"">> },
+ { Tag, <<"">>, trust, <<"">> },
+ { Tag, <<>>, check, <<>> },
+ { Tag, <<>>, trust, <<>> }
+ ],
+ lists:foldl(fun({ Tag2, Input, Check, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:remove_tag_from_response(Input, Tag2, Check)) | Acc] end, [], Data).
+
+header_name_test_() ->
+ Data =
+ [
+ { mailbox_uid , <<"/vendor/cmu/cyrus-imapd/uniqueid">> },
+ { groupware_type , <<"X-Kolab-Type">> },
+ { groupware_uid , <<"Subject">> },
+ { dunno, unknown },
+ { "dunno", unknown },
+ { <<"dunno">>, unknown },
+ { 134, unknown }
+ ],
+ lists:foldl(fun({ Input, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:header_name(Input)) | Acc] end, [], Data).
+
+ensure_binary_test_() ->
+ Data = 
+ [
+ { "yep", <<"yep">> },
+ { <<"yep">>, <<"yep">> },
+ { [1, 2, 3], <<1, 2, 3>> },
+ { yep, <<"yep">> },
+ { 123, <<>> }
+ ],
+ lists:foldl(fun({ Input, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:ensure_binary(Input)) | Acc] end, [], Data).
+
+only_full_lines_test_() ->
+ Data = 
+ [
+ { <<"yep">>, { <<>>, <<"yep">> } },
+ { <<"yep\r\nhohoho">>, { <<"yep\r\n">>, <<"hohoho">> } },
+ { <<"nope\r\nyep\r\nhohoho">>, { <<"nope\r\nyep\r\n">>, <<"hohoho">> } },
+ { <<"nope\r\nyep\r\nhohoho\r\n">>, { <<"nope\r\nyep\r\nhohoho\r\n">>, <<>> } }
+ ],
+ lists:foldl(fun({ Input, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:only_full_lines(Input)) | Acc] end, [], Data).
+
+parse_flags_test_() ->
+ Data =
+ [
+ { <<"()">>, [] },
+ { <<>>, [] },
+ { <<"\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen">>, [<<"\\\\Answered">>, <<"\\\\Flagged">>, <<"\\\\Draft">>, <<"\\\\Deleted">>, <<"\\\\Seen">> ] },
+ { <<"(\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen)">>, [<<"\\\\Answered">>, <<"\\\\Flagged">>, <<"\\\\Draft">>, <<"\\\\Deleted">>, <<"\\\\Seen">> ] },
+ { "(\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen)", [<<"\\\\Answered">>, <<"\\\\Flagged">>, <<"\\\\Draft">>, <<"\\\\Deleted">>, <<"\\\\Seen">> ] }
+ ],
+ lists:foldl(fun({ Input, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:parse_flags(Input)) | Acc] end, [], Data).
+
+num_literal_continuation_bytes_test_() ->
+ Data =
+ [
+ { <<"abcd">>, { <<"abcd">>, 0, none } },
+ { <<"abcd{0}">>, { <<"abcd">>, 0, found } },
+ { <<"abcd{5}">>, { <<"abcd">>, 5, found } },
+ { <<"abcd{100}">>, { <<"abcd">>, 100, found } },
+ { <<"123abcd{100}">>, { <<"123abcd">>, 100, found } },
+ { <<"ab{123abcd{100}">>, { <<"ab{123abcd">>, 100, found } },
+ { <<"ab{123abcd{1{00}">>, { <<"ab{123abcd{1">>, 0, found } },
+ { <<"abcd{aa0}">>, { <<"abcd{aa0}">>, 0, none } },
+ { <<"abcd{10aa0}">>, { <<"abcd{10aa0}">>, 0, none } },
+ { <<"abcd100}">>, { <<"abcd100}">>, 0, none } },
+ { <<"abcd100}">>, { <<"abcd100}">>, 0, none } },
+ { <<"abcd{5+}">>, { <<"abcd">>, 5, found } }
+ ],
+ lists:foldl(fun({ Input, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:num_literal_continuation_bytes(Input)) | Acc] end, [], Data).

guam-0.9.12.tar.gz/_checkouts/goldrush Added

guam-0.9.12.tar.gz/_checkouts/goldrush/LICENSE Added

guam-0.9.12.tar.gz/_checkouts/goldrush/README.org Added

@@ -0,0 +1,336 @@
+# Goldrush #
+
+Goldrush is a small Erlang app that provides fast event stream processing
+
+# Features #
+* Event processing compiled to a query module
+ - per module private event processing statistics
+ - query module logic can be combined for any/all filters
+ - query module logic can be reduced to efficiently match event processing
+
+* Complex event processing logic
+ - match input events with greater than (gt) logic
+ - match input events with less than (lt) logic
+ - match input events with equal to (eq) logic
+ - match input events with wildcard (wc) logic
+ - match input events with notfound (nf) logic
+ - match no input events (null blackhole) logic
+ - match all input events (null passthrough) logic
+
+* Handle output events
+ - Once a query has been composed the output action can be overriden
+   with one or more erlang functions. The functions will be applied to each
+   output event from the query.
+
+* Handle low latency retrieval of compile-time stored values.
+- Values stored are also provided to functions called on event output.
+- Handle job execution and timing which can also get values stored
+- create input events that include runtime on successful function executions.
+
+* Handle fastest lookups of stored values.
+- provide state storage option to compile, caching the values in query module.
+
+* Usage 
+  To use goldrush in your application, you need to define it as a rebar dep or
+  include it in erlang's path.
+
+
+Before composing modules, you'll need to define a query. The query syntax 
+matches any number of `{erlang, terms}' and is composed as follows:
+
+* Simple Logic 
+ - Simple logic is defined as any logic matching a single event filter
+
+Select all events where 'a' exists and is greater than 0.
+#+BEGIN_EXAMPLE
+    glc:gt(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is greater than or equal to 0.
+#+BEGIN_EXAMPLE
+    glc:gte(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is equal to 0.
+#+BEGIN_EXAMPLE
+    glc:eq(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is not equal to 0.
+#+BEGIN_EXAMPLE
+    glc:neq(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is less than 0.
+#+BEGIN_EXAMPLE
+    glc:lt(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is less than or equal to 0.
+#+BEGIN_EXAMPLE
+    glc:lte(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists.
+#+BEGIN_EXAMPLE
+    glc:wc(a).
+#+END_EXAMPLE
+
+Select all events where 'a' does not exist.
+#+BEGIN_EXAMPLE
+    glc:nf(a).
+#+END_EXAMPLE
+
+Select no input events. User as a black hole query.
+#+BEGIN_EXAMPLE
+    glc:null(false).
+#+END_EXAMPLE
+
+Select all input events. Used as a passthrough query.
+#+BEGIN_EXAMPLE
+    glc:null(true).
+#+END_EXAMPLE
+
+
+* Combined Logic
+ - Combined logic is defined as logic matching multiple event filters
+
+Select all events where both 'a' AND 'b' exists and are greater than 0.
+#+BEGIN_EXAMPLE
+    glc:all([glc:gt(a, 0), glc:gt(b, 0)]).
+#+END_EXAMPLE
+
+Select all events where 'a' OR 'b' exists and are greater than 0.
+#+BEGIN_EXAMPLE
+    glc:any([glc:gt(a, 0), glc:gt(b, 0)]).
+#+END_EXAMPLE
+
+Select all events where 'a' AND 'b' exists where 'a' is greater than 1 and 'b' is less than 2.
+#+BEGIN_EXAMPLE
+    glc:all([glc:gt(a, 1), glc:lt(b, 2)]).
+#+END_EXAMPLE
+
+Select all events where 'a' OR 'b' exists where 'a' is greater than 1 and 'b' is less than 2.
+#+BEGIN_EXAMPLE
+    glc:any([glc:gt(a, 1), glc:lt(b, 2)]).
+#+END_EXAMPLE
+
+
+* Reduced Logic
+ - Reduced logic is defined as logic which can be simplified to improve efficiency.
+
+Select all events where 'a' is equal to 1, 'b' is equal to 2 and 'c' is equal to 3 and collapse any duplicate logic.
+#+BEGIN_EXAMPLE
+        glc_lib:reduce(
+            glc:all([
+                glc:any([glc:eq(a, 1), glc:eq(b, 2)]),
+                glc:any([glc:eq(a, 1), glc:eq(c, 3)])])).
+#+END_EXAMPLE
+
+The previous example will produce and is equivalent to:
+#+BEGIN_EXAMPLE
+    glc:all([glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)]).
+#+END_EXAMPLE
+
+
+
+* Composing Modules 
+  - All query modules must be compiled before use
+
+To compose a module you will take your Query defined above and compile it. 
+#+BEGIN_EXAMPLE
+    glc:compile(Module, Query).
+    glc:compile(Module, Query, State).
+    glc:compile(Module, Query, State, ResetStatistics).
+#+END_EXAMPLE
+
+
+- At this point you will be able to handle an event using a compiled query. 
+
+Begin by constructing an event list.
+#+BEGIN_EXAMPLE
+    Event = gre:make([{'a', 2}], [list]).
+#+END_EXAMPLE
+
+Now pass it to your query module to be handled.
+#+BEGIN_EXAMPLE
+    glc:handle(Module, Event).
+#+END_EXAMPLE
+
+* Handling output events
+  - You can override the output action with an erlang function.
+
+Write all input events as info reports to the error logger.
+#+BEGIN_EXAMPLE
+    glc:with(glc:null(true), fun(E) ->
+         error_logger:info_report(gre:pairs(E)) end).
+#+END_EXAMPLE
+
+Write all input events where `error_level' exists and is less than 5 as info reports to the error logger.
+#+BEGIN_EXAMPLE
+    glc:with(glc:lt(error_level, 5), fun(E) ->
+         error_logger:info_report(gre:pairs(E)) end).
+#+END_EXAMPLE
+
+Write all input events where `error_level' exists and is 3 or 5 as info reports to the error logger.
+#+BEGIN_EXAMPLE
+   glc:any([
+     glc:with(glc:lt(error_level, 3), fun(E) ->
+         error_logger:info_report(gre:pairs(E)) end),
+     glc:with(glc:lt(error_level, 5), fun(E) ->
+         error_logger:info_report(gre:pairs(E)) end)]).
+
+#+END_EXAMPLE
+
+
+# Composing Modules with stored state #
+
+To compose a module with state data you will add a third argument (orddict).
+#+BEGIN_EXAMPLE
+    glc:compile(Module, Query, [{stored, value}]).
+#+END_EXAMPLE
+
+# Accessing stored state data #
+
+Return the stored value in this query module.
+#+BEGIN_EXAMPLE
+{ok, value} = glc:get(stored).
+#+END_EXAMPLE
+

guam-0.9.12.tar.gz/_checkouts/goldrush/hex_metadata.config Added

guam-0.9.12.tar.gz/_checkouts/goldrush/priv Added

guam-0.9.12.tar.gz/_checkouts/goldrush/priv/edoc.css Added

@@ -0,0 +1,130 @@
+/* Baseline rhythm */
+body {
+   font-size: 16px;
+   font-family: Helvetica, sans-serif;
+   margin: 8px;
+}
+
+p {
+   font-size: 1em; /* 16px */
+   line-height: 1.5em; /* 24px */
+   margin: 0 0 1.5em 0;
+}
+
+h1 {
+   font-size: 1.5em; /* 24px */
+   line-height: 1em; /* 24px */
+   margin-top: 1em;
+   margin-bottom: 0em;
+}
+
+h2 {
+   font-size: 1.375em; /* 22px */
+   line-height: 1.0909em; /* 24px */
+   margin-top: 1.0909em;
+   margin-bottom: 0em;
+}
+
+h3 {
+   font-size: 1.25em; /* 20px */
+   line-height: 1.2em; /* 24px */
+   margin-top: 1.2em;
+   margin-bottom: 0em;
+}
+
+h4 {
+   font-size: 1.125em; /* 18px */
+   line-height: 1.3333em; /* 24px */
+   margin-top: 1.3333em;
+   margin-bottom: 0em;
+}
+
+.class-for-16px {
+   font-size: 1em; /* 16px */
+   line-height: 1.5em; /* 24px */
+   margin-top: 1.5em;
+   margin-bottom: 0em;
+}
+
+.class-for-14px {
+   font-size: 0.875em; /* 14px */
+   line-height: 1.7143em; /* 24px */
+   margin-top: 1.7143em;
+   margin-bottom: 0em;
+}
+
+ul {
+   margin: 0 0 1.5em 0;
+}
+
+/* Customizations */
+body {
+   color: #333;
+}
+
+tt, code, pre {
+   font-family: "Andale Mono", "Inconsolata", "Monaco", "DejaVu Sans Mono", monospaced;
+}
+
+tt, code { font-size: 0.875em }
+
+pre {
+   font-size: 0.875em; /* 14px */
+   line-height: 1.7143em; /* 24px */
+   margin: 0 1em 1.7143em;
+   padding: 0 1em;
+   background: #eee;
+}
+
+.navbar img, hr { display: none }
+
+table {
+   border-collapse: collapse;
+}
+
+h1 {
+   border-left: 0.5em solid #fa0;
+   padding-left: 0.5em;
+}
+
+h2.indextitle {
+   font-size: 1.25em; /* 20px */
+   line-height: 1.2em; /* 24px */
+   margin: -8px -8px 0.6em;
+   background-color: #fa0;
+   color: white;
+   padding: 0.3em;
+}
+
+ul.index {
+   list-style: none;
+   margin-left: 0em;
+   padding-left: 0;
+}
+
+ul.index li {
+   display: inline;
+   padding-right: 0.75em
+}
+
+div.spec p {
+   margin-bottom: 0;
+   padding-left: 1.25em;
+   background-color: #eee;
+}
+
+h3.function {
+   border-left: 0.5em solid #fa0;
+   padding-left: 0.5em;
+   background: #fc9;
+}
+a, a:visited, a:hover, a:active { color: #C60 }
+h2 a, h3 a { color: #333 }
+
+i {
+   font-size: 0.875em; /* 14px */
+   line-height: 1.7143em; /* 24px */
+   margin-top: 1.7143em;
+   margin-bottom: 0em;
+   font-style: normal;
+}

guam-0.9.12.tar.gz/_checkouts/goldrush/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/goldrush/rebar.lock Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc.erl Added

@@ -0,0 +1,1034 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+%% @doc Event filter implementation.
+%%
+%% An event query is constructed using the built in operators exported from
+%% this module. The filtering operators are used to specify which events
+%% should be included in the output of the query. The default output action
+%% is to copy all events matching the input filters associated with a query
+%% to the output. This makes it possible to construct and compose multiple
+%% queries at runtime.
+%%
+%% === Examples of built in filters ===
+%% ```
+%% %% Select all events where 'a' exists and is greater than 0.
+%% glc:gt(a, 0).
+%% %% Select all events where 'a' exists and is equal to 0.
+%% glc:eq(a, 0).
+%% %% Select all events where 'a' exists and is not equal to 0.
+%% glc:neq(a, 0).
+%% %% Select all events where 'a' exists and is less than 0.
+%% glc:lt(a, 0).
+%% %% Select all events where 'a' exists and is anything.
+%% glc:wc(a).
+%%
+%% %% Select no input events. Used as black hole query.
+%% glc:null(false).
+%% %% Select all input events. Used as passthrough query.
+%% glc:null(true).
+%% '''
+%%
+%% === Examples of combining filters ===
+%% ```
+%% %% Select all events where both 'a' and 'b' exists and are greater than 0.
+%% glc:all([glc:gt(a, 0), glc:gt(b, 0)]).
+%% %% Select all events where 'a' or 'b' exists and are greater than 0.
+%% glc:any([glc:gt(a, 0), glc:gt(b, 0)]).
+%% '''
+%%
+%% === Handling output events ===
+%%
+%% Once a query has been composed it is possible to override the output action
+%% with an erlang function. The function will be applied to each output event
+%% from the query. The return value from the function will be ignored.
+%%
+%% ```
+%% %% Write all input events as info reports to the error logger.
+%% glc:with(glc:null(true), fun(E) ->
+%% error_logger:info_report(gre:pairs(E)) end).
+%% '''
+%%
+-module(glc).
+
+-export([
+ compile/2,
+ compile/3,
+ compile/4,
+ handle/2,
+ get/2,
+ delete/1,
+ reset_counters/1,
+ reset_counters/2,
+ start/0
+]).
+
+-export([
+ lt/2, lte/2,
+ eq/2, neq/2,
+ gt/2, gte/2,
+ wc/1,
+ nf/1
+]).
+
+-export([
+ all/1,
+ any/1,
+ null/1,
+ with/2,
+ run/3
+]).
+
+-export([
+ info/1,
+ input/1,
+ output/1,
+ job_input/1,
+ job_run/1,
+ job_error/1,
+ job_time/1,
+ filter/1,
+ union/1
+]).
+
+-record(module, {
+ 'query' :: term(),
+ tables :: [{atom(), atom()}],
+ qtree :: term(),
+ store :: term()
+}).
+
+-spec lt(atom(), term()) -> glc_ops:op().
+lt(Key, Term) ->
+ glc_ops:lt(Key, Term).
+
+-spec lte(atom(), term()) -> glc_ops:op().
+lte(Key, Term) ->
+ glc_ops:lte(Key, Term).
+
+-spec eq(atom(), term()) -> glc_ops:op().
+eq(Key, Term) ->
+ glc_ops:eq(Key, Term).
+
+-spec neq(atom(), term()) -> glc_ops:op().
+neq(Key, Term) ->
+ glc_ops:neq(Key, Term).
+
+-spec gt(atom(), term()) -> glc_ops:op().
+gt(Key, Term) ->
+ glc_ops:gt(Key, Term).
+
+-spec gte(atom(), term()) -> glc_ops:op().
+gte(Key, Term) ->
+ glc_ops:gte(Key, Term).
+
+-spec wc(atom()) -> glc_ops:op().
+wc(Key) ->
+ glc_ops:wc(Key).
+
+-spec nf(atom()) -> glc_ops:op().
+nf(Key) ->
+ glc_ops:nf(Key).
+
+%% @doc Filter the input using multiple filters.
+%%
+%% For an input to be considered valid output the all filters specified
+%% in the list must hold for the input event. The list is expected to
+%% be a non-empty list. If the list of filters is an empty list a `badarg'
+%% error will be thrown.
+-spec all([glc_ops:op()]) -> glc_ops:op().
+all(Filters) ->
+ glc_ops:all(Filters).
+
+
+%% @doc Filter the input using one of multiple filters.
+%%
+%% For an input to be considered valid output on of the filters specified
+%% in the list must hold for the input event. The list is expected to be
+%% a non-empty list. If the list of filters is an empty list a `badarg'
+%% error will be thrown.
+-spec any([glc_ops:op()]) -> glc_ops:op().
+any(Filters) ->
+ glc_ops:any(Filters).
+
+
+%% @doc Always return `true' or `false'.
+-spec null(boolean()) -> glc_ops:op().
+null(Result) ->
+ glc_ops:null(Result).
+
+
+%% @doc Apply a function to each output of a query.
+%%
+%% Updating the output action of a query finalizes it. Attempting
+%% to use a finalized query to construct a new query will result
+%% in a `badarg' error.
+-spec with(glc_ops:op(), fun((gre:event()) -> term())) -> glc_ops:op().
+with(Query, Action) ->
+ glc_ops:with(Query, Action).
+
+
+%% @doc Return a union of multiple queries.
+%%
+%% The union of multiple queries is the equivalent of executing multiple
+%% queries separately on the same input event. The advantage is that filter
+%% conditions that are common to all or some of the queries only need to
+%% be tested once.
+%%
+%% All queries are expected to be valid and have an output action other
+%% than the default which is `output'. If these expectations don't hold
+%% a `badarg' error will be thrown.
+-spec union([glc_ops:op()]) -> glc_ops:op().
+union(Queries) ->
+ glc_ops:union(Queries).
+
+
+%% @doc Compile a query to a module.
+%%

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc_code.erl Added

@@ -0,0 +1,624 @@
+%% @doc Code generation functions.
+-module(glc_code).
+-compile({nowarn_unused_function, {abstract_module,2}}).
+-compile({nowarn_unused_function, {abstract_tables,1}}).
+-compile({nowarn_unused_function, {abstract_reset,0}}).
+-compile({nowarn_unused_function, {abstract_filter,3}}).
+-compile({nowarn_unused_function, {abstract_filter_,4}}).
+-compile({nowarn_unused_function, {abstract_opfilter,6}}).
+-compile({nowarn_unused_function, {abstract_all,4}}).
+-compile({nowarn_unused_function, {abstract_any,4}}).
+-compile({nowarn_unused_function, {abstract_with,3}}).
+-compile({nowarn_unused_function, {abstract_within,3}}).
+-compile({nowarn_unused_function, {abstract_getkey,4}}).
+-compile({nowarn_unused_function, {abstract_getkey_,4}}).
+-compile({nowarn_unused_function, {abstract_getparam,3}}).
+-compile({nowarn_unused_function, {param_variable,1}}).
+-compile({nowarn_unused_function, {field_variable,1}}).
+-compile({nowarn_unused_function, {field_variable_,1}}).
+-compile({nowarn_unused_function, {compile_forms,2}}).
+-compile({nowarn_unused_function, {load_binary,2}}).
+
+
+-export([
+ compile/2
+]).
+
+-define(erl, erl_syntax).
+
+-record(module, {
+ 'query' :: term(),
+ tables :: [{atom(), atom()}],
+ qtree :: term(),
+ store :: term()
+}).
+
+-type syntaxTree() :: erl_syntax:syntaxTree().
+
+-record(state, {
+ event = undefined :: syntaxTree(),
+ fields = [] :: [{atom(), syntaxTree()}],
+ fieldc = 0 :: non_neg_integer(),
+ paramvars = [] :: [{term(), syntaxTree()}],
+ paramstab = undefined :: atom(),
+ countstab = undefined :: atom()
+}).
+
+-type nextFun() :: fun((#state{}) -> [syntaxTree()]).
+
+compile(Module, ModuleData) ->
+ {ok, forms, Forms} = abstract_module(Module, ModuleData),
+ {ok, Module, Binary} = compile_forms(Forms, [nowarn_unused_vars]),
+ {ok, loaded, Module} = load_binary(Module, Binary),
+ {ok, Module}.
+
+%% abstract code generation functions
+
+%% @private Generate an abstract dispatch module.
+-spec abstract_module(atom(), #module{}) -> {ok, forms, list()}.
+abstract_module(Module, Data) ->
+ Forms = [?erl:revert(E) || E <- abstract_module_(Module, Data)],
+ case lists:keyfind(errors, 1, erl_syntax_lib:analyze_forms(Forms)) of
+ false -> {ok, forms, Forms};
+ {_, []} -> {ok, forms, Forms};
+ {_, [_|_]}=Errors -> Errors
+ end.
+
+%% @private Generate an abstract dispatch module.
+-spec abstract_module_(atom(), #module{}) -> [?erl:syntaxTree()].
+abstract_module_(Module, #module{tables=Tables, 
+ qtree=Tree, store=Store}=Data) ->
+ {_, ParamsTable} = lists:keyfind(params, 1, Tables),
+ {_, CountsTable} = lists:keyfind(counters, 1, Tables),
+ AbstractMod = [
+ %% -module(Module)
+ ?erl:attribute(?erl:atom(module), [?erl:atom(Module)]),
+ %% -export([
+ ?erl:attribute(
+ ?erl:atom(export),
+ [?erl:list([
+ %% get/1
+ ?erl:arity_qualifier(
+ ?erl:atom(get),
+ ?erl:integer(1)),
+ %% info/1
+ ?erl:arity_qualifier(
+ ?erl:atom(info),
+ ?erl:integer(1)),
+ %% reset_counters/1
+ ?erl:arity_qualifier(
+ ?erl:atom(reset_counters),
+ ?erl:integer(1)),
+ %% table/1
+ ?erl:arity_qualifier(
+ ?erl:atom(table),
+ ?erl:integer(1)),
+ ?erl:arity_qualifier(
+ ?erl:atom(runjob),
+ ?erl:integer(2)),
+ %% handle/1
+ ?erl:arity_qualifier(
+ ?erl:atom(handle),
+ ?erl:integer(1))])]),
+ %% ]).
+ %% get(Name) -> Term.
+ ?erl:function(
+ ?erl:atom(get),
+ abstract_get(Data) ++
+ [?erl:clause(
+ [?erl:underscore()], none,
+ [?erl:abstract({error, undefined})])]),
+ %% info(Name) -> Term.
+ ?erl:function(
+ ?erl:atom(info),
+ abstract_info(Data) ++
+ [?erl:clause(
+ [?erl:underscore()], none,
+ [abstract_apply(erlang, error, [?erl:atom(badarg)])])]),
+ %% reset_counters(Name) -> boolean().
+ ?erl:function(
+ ?erl:atom(reset_counters),
+ abstract_reset() ++
+ [?erl:clause(
+ [?erl:underscore()], none,
+ [abstract_apply(erlang, error, [?erl:atom(badarg)])])]),
+ %% table(Name) -> atom().
+ ?erl:function(
+ ?erl:atom(table),
+ abstract_tables(Tables) ++
+ [?erl:clause(
+ [?erl:underscore()], none,
+ [abstract_apply(erlang, error, [?erl:atom(badarg)])])]),
+ %% handle(Event) - entry function
+ ?erl:function(
+ ?erl:atom(handle),
+ [?erl:clause([?erl:variable("Event")], none,
+ [abstract_count(input),
+ ?erl:application(none,
+ ?erl:atom(handle_), [?erl:variable("Event")])])]),
+ ?erl:function(
+ ?erl:atom(runjob),
+ [?erl:clause([?erl:variable("Fun"), ?erl:variable("Event")], none,
+ [abstract_count(job_input),
+ ?erl:application(none,
+ ?erl:atom(job_), [?erl:variable("Fun"),
+ ?erl:variable("Event")])])]),
+ %% input_(Node, App, Pid, Tags, Values) - filter roots
+ ?erl:function(
+ ?erl:atom(handle_),
+ [?erl:clause([?erl:variable("Event")], none,
+ abstract_filter(Tree, Data, #state{
+ event=?erl:variable("Event"),
+ paramstab=ParamsTable,
+ countstab=CountsTable}))]),
+ ?erl:function(
+ ?erl:atom(job_),
+ [?erl:clause([?erl:variable("Fun"),
+ ?erl:variable("Meta")], none,
+
+ [?erl:application(none,
+ ?erl:atom(job_result), [
+ ?erl:catch_expr(
+ abstract_apply(glc_run, execute, [
+ ?erl:variable("Fun"),
+ ?erl:list([?erl:variable("Meta"), 
+ ?erl:abstract(Store)])
+ ])),
+ ?erl:variable("Meta")])
+ ] 
+ )]),
+ ?erl:function(
+ ?erl:atom(job_result),
+ abstract_runjob(Data)
+ )
+ ],
+ %% Transform Term -> Key to Key -> Term
+ gr_param:transform(ParamsTable),
+ AbstractMod.
+
+%% @private Return the clauses of the table/1 function.
+abstract_tables(Tables) ->
+ [?erl:clause(
+ [?erl:abstract(K)], none,
+ [?erl:abstract(V)])
+ || {K, V} <- Tables].
+
+abstract_query_find(K, Store) ->
+ case lists:keyfind(K, 1, Store) of
+ {_, Val} -> 
+ {ok, Val};
+ _ -> 
+ {error, notfound}
+ end.
+
+%% @private Return the original query as an expression.
+abstract_query({with, Query, _}) ->
+ [?erl:abstract(Query)];
+abstract_query([{with, _Query, _}|_] = I) ->
+ [?erl:abstract([Query || {with, Query, _} <- I])];
+ %[?erl:abstract(_Query)];

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc_lib.erl Added

@@ -0,0 +1,451 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Query processing functions.
+-module(glc_lib).
+
+-export([
+ reduce/1,
+ matches/2,
+ onoutput/1,
+ onoutput/2
+]).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-undef(LET).
+-ifdef(PROPER).
+-include_lib("proper/include/proper.hrl").
+-endif.
+-endif.
+
+%% @doc Return a reduced version of a query.
+%% 
+%% The purpose of this function is to ensure that a query filter
+%% is in the simplest possible form. The query filter returned
+%% from this function is functionally equivalent to the original.
+reduce(Query) ->
+ repeat(Query, fun(Q0) ->
+ Q1 = repeat(Q0, fun flatten/1),
+ Q2 = required(Q1),
+ Q3 = repeat(Q2, fun flatten/1),
+ Q4 = common(Q3),
+ Q5 = repeat(Q4, fun flatten/1),
+ Q6 = constants(Q5),
+ Q6
+ end).
+
+
+%% @doc Test if an event matches a query.
+%% This function is only intended to be used for testing purposes.
+matches({any, Conds}, Event) ->
+ lists:any(fun(Cond) -> matches(Cond, Event) end, Conds);
+matches({all, Conds}, Event) ->
+ lists:all(fun(Cond) -> matches(Cond, Event) end, Conds);
+matches({null, Const}, _Event) ->
+ Const;
+matches({Key, '<', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 < Term;
+ false -> false
+ end;
+matches({Key, '=<', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 =< Term;
+ false -> false
+ end;
+matches({Key, '=', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 =:= Term;
+ false -> false
+ end;
+matches({Key, '!=', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 =/= Term;
+ false -> false
+ end;
+matches({Key, '>', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 > Term;
+ false -> false
+ end;
+matches({Key, '>=', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 >= Term;
+ false -> false
+ end;
+matches({Key, '*'}, Event) ->
+ case gre:find(Key, Event) of
+ {true, _} -> true;
+ false -> false
+ end;
+matches({Key, '!'}, Event) ->
+ not matches({Key, '*'}, Event).
+
+%% @private Repeatedly apply a function to a query.
+%% This is used for query transformation functions that must be applied
+%% multiple times to yield the simplest possible version of a query.
+repeat(Query, Fun) ->
+ case Fun(Query) of
+ Query -> Query;
+ Query2 -> repeat(Query2, Fun)
+ end.
+
+
+%% @doc Return the output action of a query.
+-spec onoutput(glc_ops:op()) -> output | no_return().
+onoutput({_, '<', _}) ->
+ output;
+onoutput({_, '=<', _}) ->
+ output;
+onoutput({_, '=', _}) ->
+ output;
+onoutput({_, '>', _}) ->
+ output;
+onoutput({_, '>=', _}) ->
+ output;
+onoutput({_, '*'}) ->
+ output;
+onoutput({_, '!'}) ->
+ output;
+onoutput(Query) ->
+ erlang:error(badarg, [Query]).
+
+%% @doc Modify the output action of a query.
+-spec onoutput(Action :: any(), Query :: glc_ops:op()) -> no_return().
+onoutput(Action, Query) ->
+ erlang:error(badarg, [Action, Query]).
+
+
+%% @private Flatten a condition tree.
+flatten({all, [Cond]}) ->
+ Cond;
+flatten({any, [Cond]}) ->
+ Cond;
+flatten({all, Conds}) ->
+ flatten_all([flatten(Cond) || Cond <- Conds]);
+flatten({any, [_|_]=Conds}) ->
+ flatten_any([flatten(Cond) || Cond <- Conds]);
+flatten({with, Cond, Action}) ->
+ {with, flatten(Cond), Action};
+flatten([{with, _Cond, _Action}|_] = I) ->
+ [{with, flatten(Cond), Action} || {with, Cond, Action} <- I];
+flatten(Other) ->
+ valid(Other).
+
+
+%% @private Flatten and remove duplicate members of an "all" filter.
+flatten_all(Conds) ->
+ {all, lists:usort(flatten_tag(all, Conds))}.
+
+%% @private Flatten and remove duplicate members of an "any" filter.
+flatten_any(Conds) ->
+ {any, lists:usort(flatten_tag(any, Conds))}.
+
+%% @private Common function for flattening "all" or "and" filters.
+flatten_tag(Tag, [{Tag, Conds}|T]) ->
+ Conds ++ flatten_tag(Tag, T);
+flatten_tag(Tag, [H|T]) ->
+ [H|flatten_tag(Tag, T)];
+flatten_tag(_Tag, []) ->
+ [].
+
+%% @private Factor out required filters.
+%%
+%% Identical conditions may occur in all sub-filters of an "any" filter. These
+%% filters can be tested once before testing the conditions that are unique to
+%% each sub-filter.
+%%
+%% Assume that the input has been flattened first in order to eliminate all
+%% occurances of an "any" filters being "sub-filters" of "any" filters.
+required({any, [H|_]=Conds}) ->
+ Init = ordsets:from_list(case H of {all, Init2} -> Init2; H -> [H] end),
+ case required(Conds, Init) of
+ nonefound ->
+ Conds2 = [required(Cond) || Cond <- Conds],
+ {any, Conds2};
+ {found, Req} ->
+ Conds2 = [required(deleteall(Cond, Req)) || Cond <- Conds],
+ {all, [{all, Req}, {any, Conds2}]}
+ end;
+required({all, Conds}) ->
+ {all, [required(Cond) || Cond <- Conds]};
+required(Other) ->
+ Other.
+
+required([{all, Conds}|T], Acc) ->
+ required(T, ordsets:intersection(ordsets:from_list(Conds), Acc));
+required([{any, _}|_]=Cond, Acc) ->
+ erlang:error(badarg, [Cond, Acc]);
+required([H|T], Acc) ->
+ required(T, ordsets:intersection(ordsets:from_list([H]), Acc));
+required([], [_|_]=Req) ->
+ {found, Req};
+required([], []) ->
+ nonefound.
+
+%% @private Factor our common filters.
+%%

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc_ops.erl Added

@@ -0,0 +1,155 @@
+%% @doc Built in operators.
+-module(glc_ops).
+
+-export([
+ lt/2, lte/2,
+ eq/2, neq/2,
+ gt/2, gte/2,
+ wc/1,
+ nf/1
+]).
+
+-export([
+ all/1,
+ any/1,
+ null/1,
+ with/2
+]).
+
+-export([
+ union/1
+]).
+
+-type op() ::
+ {atom(), '<', term()} |
+ {atom(), '=<', term()} |
+ {atom(), '=', term()} |
+ {atom(), '!=', term()} |
+ {atom(), '>', term()} |
+ {atom(), '>=', term()} |
+ {atom(), '*'} |
+ {atom(), '!'} |
+ {any, [op(), ...]} |
+ {all, [op(), ...]} |
+ {null, true|false}.
+
+-export_type([op/0]).
+
+%% @doc Test that a field value is less than a term.
+-spec lt(atom(), term()) -> op().
+lt(Key, Term) when is_atom(Key) ->
+ {Key, '<', Term};
+lt(Key, Term) ->
+ erlang:error(badarg, [Key, Term]).
+
+
+%% @doc Test that a field value is less than or equal to a term.
+-spec lte(atom(), term()) -> op().
+lte(Key, Term) when is_atom(Key) ->
+ {Key, '=<', Term};
+lte(Key, Term) ->
+ erlang:error(badarg, [Key, Term]).
+
+%% @doc Test that a field value is equal to a term.
+-spec eq(atom(), term()) -> op().
+eq(Key, Term) when is_atom(Key) ->
+ {Key, '=', Term};
+eq(Key, Term) ->
+ erlang:error(badarg, [Key, Term]).
+
+%% @doc Test that a field value is not equal to a term.
+-spec neq(atom(), term()) -> op().
+neq(Key, Term) when is_atom(Key) ->
+ {Key, '!=', Term};
+neq(Key, Term) ->
+ erlang:error(badarg, [Key, Term]).
+
+
+%% @doc Test that a field value is greater than a term.
+-spec gt(atom(), term()) -> op().
+gt(Key, Term) when is_atom(Key) ->
+ {Key, '>', Term};
+gt(Key, Term) ->
+ erlang:error(badarg, [Key, Term]).
+
+%% @doc Test that a field value is greater than or equal to a term.
+-spec gte(atom(), term()) -> op().
+gte(Key, Term) when is_atom(Key) ->
+ {Key, '>=', Term};
+gte(Key, Term) ->
+ erlang:error(badarg, [Key, Term]).
+
+%% @doc Test that a field exists.
+-spec wc(atom()) -> op().
+wc(Key) when is_atom(Key) ->
+ {Key, '*'};
+wc(Key) ->
+ erlang:error(badarg, [Key]).
+
+%% @doc Test that a field is not found.
+-spec nf(atom()) -> op().
+nf(Key) when is_atom(Key) ->
+ {Key, '!'};
+nf(Key) ->
+ erlang:error(badarg, [Key]).
+
+%% @doc Filter the input using multiple filters.
+%%
+%% For an input to be considered valid output the all filters specified
+%% in the list must hold for the input event. The list is expected to
+%% be a non-empty list. If the list of filters is an empty list a `badarg'
+%% error will be thrown.
+-spec all([op()]) -> op().
+all([_|_]=Conds) ->
+ {all, Conds};
+all(Other) ->
+ erlang:error(badarg, [Other]).
+
+%% @doc Filter the input using one of multiple filters.
+%%
+%% For an input to be considered valid output on of the filters specified
+%% in the list must hold for the input event. The list is expected to be
+%% a non-empty list. If the list of filters is an empty list a `badarg'
+%% error will be thrown.
+-spec any([op()]) -> op().
+any([_|_]=Conds) ->
+ {any, Conds};
+any(Other) ->
+ erlang:error(badarg, [Other]).
+
+
+%% @doc Always return `true' or `false'.
+-spec null(boolean()) -> op().
+null(Result) when is_boolean(Result) ->
+ {null, Result};
+null(Result) ->
+ erlang:error(badarg, [Result]).
+
+%% @doc Apply a function to each output of a query.
+%%
+%% Updating the output action of a query finalizes it. Attempting
+%% to use a finalized query to construct a new query will result
+%% in a `badarg' error.
+-spec with(op(), fun((gre:event()) -> term())) -> op().
+with(Query, Fun) when is_function(Fun, 1);
+ is_function(Fun, 2) ->
+ {with, Query, Fun};
+with(Query, Fun) ->
+ erlang:error(badarg, [Query, Fun]).
+
+%% @doc Return a union of multiple queries.
+%%
+%% The union of multiple queries is the equivalent of executing multiple
+%% queries separately on the same input event. The advantage is that filter
+%% conditions that are common to all or some of the queries only need to
+%% be tested once.
+%%
+%% All queries are expected to be valid and have an output action other
+%% than the default which is `output'. If these expectations don't hold
+%% a `badarg' error will be thrown.
+-spec union([op()]) -> op().
+union(Queries) ->
+ case [Query || Query <- Queries, glc_lib:onoutput(Query) =:= output] of
+ [] -> {union, Queries};
+ [_|_] -> erlang:error(badarg, [Queries])
+ end.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc_run.erl Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src/goldrush.app.src Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_app.erl Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_context.erl Added

@@ -0,0 +1,71 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Runtime context for events.
+-module(gr_context).
+
+-export([
+ make/1
+]).
+
+make(Options) ->
+ make_(undefined, undefined, undefined, undefined, Options).
+
+make_(_Node, App, Pid, Time, [{'$n', Node}|T]) ->
+ make_(Node, App, Pid, Time, T);
+make_(Node, _App, Pid, Time, [{'$a', App}|T]) ->
+ make_(Node, App, Pid, Time, T);
+make_(Node, App, _Pid, Time, [{'$p', Pid}|T]) ->
+ make_(Node, App, Pid, Time, T);
+make_(Node, App, Pid, _Time, [{'$t', Time}|T]) ->
+ make_(Node, App, Pid, Time, T);
+make_(Node, App, Pid, Time, []) ->
+ Pid2 = case Pid of undefined -> self(); _ -> Pid end,
+ Node2 = case Node of undefined -> node(Pid2); _ -> Node end,
+ App2 = case App of undefined -> application(Pid2); _ -> App end,
+ Time2 = case Time of undefined -> os:timestamp(); _ -> Time end,
+ {Node2, App2, Pid2, Time2}.
+
+application(Pid) when Pid =:= self() ->
+ case application:get_application(group_leader()) of
+ {ok, App} -> App;
+ undefined -> undefined
+ end;
+application(Pid) ->
+ {_, GroupLeader} = erlang:process_info(Pid, group_leader),
+ case application:get_application(GroupLeader) of
+ {ok, App} -> App;
+ undefined -> undefined
+ end.
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+make_defaults_test() ->
+ {Node, App, Pid, Time} = gr_context:make([]),
+ ?assertEqual(Node, node()),
+ ?assertEqual(Pid, self()),
+ ?assert(is_atom(App)),
+ ?assertMatch({_,_,_}, Time).
+
+
+make_override_test() ->
+ Pid = spawn(fun() -> ok end),
+ {Node, App, Pid, Time} = gr_context:make([
+ {'$n', nodename}, {'$a', appname}, {'$p', Pid}, {'$t', timeval}]),
+ ?assertEqual(nodename, Node),
+ ?assertEqual(appname, App),
+ ?assertEqual(timeval, Time).
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_counter.erl Added

@@ -0,0 +1,268 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+-module(gr_counter).
+
+-behaviour(gen_server).
+
+%% API
+-export([start_link/1, 
+ list/1, lookup_element/2,
+ insert_counter/3,
+ update_counter/3, reset_counters/2]).
+
+%% gen_server callbacks
+-export([init/1,
+ handle_call/3,
+ handle_cast/2,
+ handle_info/2,
+ terminate/2,
+ code_change/3]).
+
+-record(state, {table_id, waiting=[]}).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+list(Server) ->
+ case (catch gen_server:call(Server, list)) of
+ {'EXIT', _Reason} ->
+ list(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+lookup_element(Server, Term) ->
+ case (catch gen_server:call(Server, {lookup_element, Term})) of
+ {'EXIT', _Reason} ->
+ lookup_element(gr_manager:wait_for_pid(Server), Term);
+ Else -> Else
+ end.
+
+insert_counter(Server, Counter, Value) when is_atom(Server) ->
+ case whereis(Server) of
+ undefined -> 
+ insert_counter(gr_manager:wait_for_pid(Server), Counter, Value);
+ Pid -> 
+ case erlang:is_process_alive(Pid) of
+ true ->
+ insert_counter(Pid, Counter, Value);
+ false ->
+ ServerPid = gr_manager:wait_for_pid(Server),
+ insert_counter(ServerPid, Counter, Value)
+ end
+ end;
+insert_counter(Server, Counter, Value) when is_pid(Server) ->
+ case (catch gen_server:call(Server, {insert_counter, Counter, Value})) of
+ {'EXIT', _Reason} ->
+ insert_counter(gr_manager:wait_for_pid(Server), Counter, Value);
+ Else -> Else
+ end.
+
+update_counter(Server, Counter, Value) when is_atom(Server) ->
+ case whereis(Server) of
+ undefined -> 
+ update_counter(gr_manager:wait_for_pid(Server), Counter, Value);
+ Pid -> 
+ case erlang:is_process_alive(Pid) of
+ true ->
+ update_counter(Pid, Counter, Value);
+ false ->
+ ServerPid = gr_manager:wait_for_pid(Server),
+ update_counter(ServerPid, Counter, Value)
+ end
+ end;
+update_counter(Server, Counter, Value) when is_pid(Server) ->
+ gen_server:cast(Server, {update, Counter, Value}).
+
+reset_counters(Server, Counter) ->
+ case (catch gen_server:call(Server, {reset_counters, Counter})) of
+ {'EXIT', _Reason} ->
+ reset_counters(gr_manager:wait_for_pid(Server), Counter);
+ Else -> Else
+ end.
+
+%%--------------------------------------------------------------------
+%% @doc
+%% Starts the server
+%%
+%% @spec start_link(Name) -> {ok, Pid} | ignore | {error, Error}
+%% @end
+%%--------------------------------------------------------------------
+start_link(Name) ->
+ gen_server:start_link({local, Name}, ?MODULE, [], []).
+
+%%%===================================================================
+%%% gen_server callbacks
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Initializes the server
+%%
+%% @spec init(Args) -> {ok, State} |
+%% {ok, State, Timeout} |
+%% ignore |
+%% {stop, Reason}
+%% @end
+%%--------------------------------------------------------------------
+init([]) ->
+ {ok, #state{}}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling call messages
+%%
+%% @spec handle_call(Request, From, State) ->
+%% {reply, Reply, State} |
+%% {reply, Reply, State, Timeout} |
+%% {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, Reply, State} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_call(list=Call, From, State) ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting=[{Call, From}|Waiting]}};
+ _ -> {reply, lists:sort(handle_list(TableId)), State}
+ end;
+handle_call({lookup_element, Term}=Call, From, State) ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting=[{Call, From}|Waiting]}};
+ _ -> {reply, handle_lookup_element(TableId, Term), State}
+ end;
+handle_call({insert_counter, Counter, Value}, From, State) ->
+ Term = [{Counter, Value}],
+ Call = {insert, Term},
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting=[{Call, From}|Waiting]}};
+ _ -> {reply, handle_insert(TableId, Term), State}
+ end;
+handle_call({reset_counters, Counter}, From, State) ->
+ Term = case Counter of
+ _ when is_list(Counter) -> 
+ [{Item, 0} || Item <- Counter];
+ _ when is_atom(Counter) -> 
+ [{Counter, 0}]
+ end,
+ Call = {insert, Term},
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting=[{Call, From}|Waiting]}};
+ _ -> {reply, handle_insert(TableId, Term), State}
+ end;
+handle_call(_Request, _From, State) ->
+ Reply = {error, unhandled_message},
+ {reply, Reply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling cast messages
+%%
+%% @spec handle_cast(Msg, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_cast({update, Counter, Value}=Call, State) ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ State2 = case TableId of
+ undefined -> State#state{waiting=[Call|Waiting]};
+ _ -> _ = handle_update_counter(TableId, Counter, Value), 
+ State
+ end,
+ {noreply, State2};
+handle_cast(_Msg, State) ->
+ {noreply, State}.
+

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_counter_sup.erl Added

@@ -0,0 +1,42 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+-module(gr_counter_sup).
+
+-behaviour(supervisor).
+
+-type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
+-type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
+
+%% API
+-export([start_link/0]).
+
+%% Supervisor callbacks
+-export([init/1]).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+%% @hidden
+-spec start_link() -> startlink_ret().
+start_link() ->
+ supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+%% @hidden
+-spec init([]) -> {ok, { {one_for_one, 50, 10}, [supervisor:child_spec()]} }.
+init(_Args) ->
+ {ok, { {one_for_one, 50, 10}, []} }.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_manager.erl Added

@@ -0,0 +1,185 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+%% @doc Process table manager for goldrush.
+%%
+%% Manager responsible for the processes, which serve as heir of the 
+%% {@link gr_counter:start_link/0. Counter} and
+%% {@link gr_param:start_link/0. Param} ets table processes.
+%% This process creates the table and initial data then assigns itself
+%% to inherit the ets table if any process responsible for it is killed.
+%% It then waits to give it back while that process is recreated by its 
+%% supervisor.
+-module(gr_manager).
+-behaviour(gen_server).
+
+%% API
+-export([start_link/3, wait_for_pid/1]).
+
+%% gen_server callbacks
+-export([init/1,
+ handle_call/3,
+ handle_cast/2,
+ handle_info/2,
+ terminate/2,
+ code_change/3]).
+
+-define(SERVER, ?MODULE).
+
+-record(state, {table_id :: ets:tab(), managee :: atom()}).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+%% Setup the initial data for the ets table
+-spec setup(atom() | pid(), term()) -> ok.
+setup(Name, Data) ->
+ gen_server:cast(Name, {setup, Data}).
+
+%%--------------------------------------------------------------------
+%% @doc
+%% Starts the server
+%%
+%% @spec start_link(Name, Managee, Data) -> {ok, Pid} | ignore | 
+%% {error, Error}
+%% @end
+%%--------------------------------------------------------------------
+start_link(Name, Managee, Data) ->
+ gen_server:start_link({local, Name}, ?MODULE, [Managee, Data], []).
+
+%%%===================================================================
+%%% gen_server callbacks
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Initializes the server
+%%
+%% @spec init(Args) -> {ok, State} |
+%% {ok, State, Timeout} |
+%% ignore |
+%% {stop, Reason}
+%% @end
+%%--------------------------------------------------------------------
+init([Managee, Data]) ->
+ process_flag(trap_exit, true),
+ setup(self(), Data),
+ {ok, #state{managee=Managee}}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling call messages
+%%
+%% @spec handle_call(Request, From, State) ->
+%% {reply, Reply, State} |
+%% {reply, Reply, State, Timeout} |
+%% {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, Reply, State} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_call(_Request, _From, State) ->
+ Reply = {error, unhandled_message},
+ {reply, Reply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling cast messages
+%%
+%% @spec handle_cast(Msg, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_cast({setup, Data}, State = #state{managee=Managee}) ->
+ ManageePid = whereis(Managee),
+ link(ManageePid),
+ TableId = ets:new(?MODULE, [set, private]),
+ ets:insert(TableId, Data),
+ ets:setopts(TableId, {heir, self(), Data}),
+ ets:give_away(TableId, ManageePid, Data),
+ {noreply, State#state{table_id=TableId}};
+handle_cast(_Msg, State) ->
+ {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling all non call/cast messages
+%%
+%% @spec handle_info(Info, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_info({'EXIT', _Pid, _Reason}, State) ->
+ {noreply, State};
+handle_info({'ETS-TRANSFER', TableId, _Pid, Data}, State = #state{managee=Managee}) ->
+ ManageePid = wait_for_pid(Managee),
+ link(ManageePid),
+ ets:give_away(TableId, ManageePid, Data),
+ {noreply, State#state{table_id=TableId}}.
+
+%% @doc Wait for a registered process to be associated to a process identifier.
+%% @spec wait_for_pid(Managee) -> ManageePid
+-spec wait_for_pid(atom()) -> pid().
+wait_for_pid(Managee) when is_pid(Managee) -> 
+ Managee;
+wait_for_pid(Managee) when is_atom(Managee), Managee =/= undefined -> 
+ case whereis(Managee) of
+ undefined -> 
+ timer:sleep(1),
+ wait_for_pid(Managee);
+ ManageePid -> ManageePid
+ end.
+
+
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any
+%% necessary cleaning up. When it returns, the gen_server terminates
+%% with Reason. The return value is ignored.
+%%
+%% @spec terminate(Reason, State) -> void()
+%% @end
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+ ok.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Convert process state when code is changed
+%%
+%% @spec code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% @end
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+%%%===================================================================
+%%% Internal functions
+%%%===================================================================
+
+
+

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_manager_sup.erl Added

@@ -0,0 +1,47 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Table manager supervisor for all goldrush ets process tables.
+%%
+%% Manager supervisor responsible for the {@link gr_manager:start_link/3. 
+%% Manager} processes, which serve as heir of the 
+%% {@link gr_counter:start_link/0. Counter} and
+%% {@link gr_param:start_link/0. Param} ets table processes.
+-module(gr_manager_sup).
+-behaviour(supervisor).
+
+-type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
+-type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
+
+%% API
+-export([start_link/0]).
+
+%% Supervisor callbacks
+-export([init/1]).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+%% @hidden
+-spec start_link() -> startlink_ret().
+start_link() ->
+ supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+%% @hidden
+-spec init([]) -> {ok, { {one_for_one, 50, 10}, [supervisor:child_spec()]} }.
+init(_Args) ->
+ {ok, { {one_for_one, 50, 10}, []} }.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_param.erl Added

@@ -0,0 +1,269 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+-module(gr_param).
+
+-behaviour(gen_server).
+
+%% API
+-export([start_link/1, 
+ list/1, insert/2, 
+ lookup/2, lookup_element/2,
+ info/1, info_size/1, transform/1]).
+
+%% gen_server callbacks
+-export([init/1,
+ handle_call/3,
+ handle_cast/2,
+ handle_info/2,
+ terminate/2,
+ code_change/3]).
+
+-record(state, {table_id, waiting=[]}).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+list(Server) ->
+ case (catch gen_server:call(Server, list)) of
+ {'EXIT', _Reason} ->
+ list(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+info_size(Server) ->
+ case (catch gen_server:call(Server, info_size)) of
+ {'EXIT', _Reason} ->
+ info_size(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+insert(Server, Term) ->
+ case (catch gen_server:call(Server, {insert, Term})) of
+ {'EXIT', _Reason} ->
+ insert(gr_manager:wait_for_pid(Server), Term);
+ Else -> Else
+ end.
+
+lookup(Server, Term) ->
+ case (catch gen_server:call(Server, {lookup, Term})) of
+ {'EXIT', _Reason} ->
+ lookup(gr_manager:wait_for_pid(Server), Term);
+ Else -> Else
+ end.
+
+lookup_element(Server, Term) ->
+ case (catch gen_server:call(Server, {lookup_element, Term})) of
+ {'EXIT', _Reason} ->
+ lookup_element(gr_manager:wait_for_pid(Server), Term);
+ Else -> Else
+ end.
+
+info(Server) ->
+ case (catch gen_server:call(Server, info)) of
+ {'EXIT', _Reason} ->
+ info(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+%% @doc Transform Term -> Key to Key -> Term
+transform(Server) ->
+ case (catch gen_server:call(Server, transform)) of
+ {'EXIT', _Reason} ->
+ transform(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+%%--------------------------------------------------------------------
+%% @doc
+%% Starts the server
+%%
+%% @spec start_link(Name) -> {ok, Pid} | ignore | {error, Error}
+%% @end
+%%--------------------------------------------------------------------
+start_link(Name) ->
+ gen_server:start_link({local, Name}, ?MODULE, [], []).
+
+%%%===================================================================
+%%% gen_server callbacks
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Initializes the server
+%%
+%% @spec init(Args) -> {ok, State} |
+%% {ok, State, Timeout} |
+%% ignore |
+%% {stop, Reason}
+%% @end
+%%--------------------------------------------------------------------
+init([]) ->
+ {ok, #state{}}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling call messages
+%%
+%% @spec handle_call(Request, From, State) ->
+%% {reply, Reply, State} |
+%% {reply, Reply, State, Timeout} |
+%% {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, Reply, State} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_call(Call, From, State) when is_atom(Call), Call =:= list; 
+ Call =:= info; Call =:= info_size;
+ Call =:= transform ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting=[{Call, From}|Waiting]}};
+ _ when Call =:= list -> 
+ {reply, handle_list(TableId), State};
+ _ when Call =:= info -> 
+ {reply, handle_info(TableId), State};
+ _ when Call =:= info_size -> 
+ {reply, handle_info_size(TableId), State};
+ _ when Call =:= transform -> 
+ {reply, handle_transform(TableId), State}
+ end;
+
+handle_call({Call, Term}, From, State) when is_atom(Call), Call =:= insert; 
+ Call =:= lookup; 
+ Call =:= lookup_element ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> 
+ {noreply, State#state{waiting=[{{Call, Term}, From}|Waiting]}};
+ _ when Call =:= insert -> 
+ {reply, handle_insert(TableId, Term), State};
+ _ when Call =:= lookup -> 
+ {reply, handle_lookup(TableId, Term), State};
+ _ when Call =:= lookup_element -> 
+ {reply, handle_lookup_element(TableId, Term), State}
+ end;
+
+handle_call(_Request, _From, State) ->
+ Reply = {error, unhandled_message},
+ {reply, Reply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling cast messages
+%%
+%% @spec handle_cast(Msg, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_cast(_Msg, State) ->
+ {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling all non call/cast messages
+%%
+%% @spec handle_info(Info, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_info({'ETS-TRANSFER', TableId, _Pid, _Data}, State) ->
+ _ = [ gen_server:reply(From, perform_call(TableId, Call)) 
+ || {Call, From} <- State#state.waiting ],
+ {noreply, State#state{table_id=TableId, waiting=[]}};
+handle_info(_Info, State) ->
+ {noreply, State}.
+
+
+
+%%--------------------------------------------------------------------

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_param_sup.erl Added

@@ -0,0 +1,48 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Second level supervisor for goldrush.
+%%
+%% Supervisor for the {@link gr_param:start_link/0. 
+%% Param}, process table responsible for params
+%% {@link gr_param:start_link/0. Counter} and
+%% their {@link gr_counter:start_link/0. Manager} supervisors.
+
+-module(gr_param_sup).
+-behaviour(supervisor).
+
+-type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
+-type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
+
+%% API
+-export([start_link/0]).
+
+%% Supervisor callbacks
+-export([init/1]).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+%% @hidden
+-spec start_link() -> startlink_ret().
+start_link() ->
+ supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+%% @hidden
+-spec init([]) -> {ok, { {one_for_one, 50, 10}, [supervisor:child_spec()]} }.
+init(_Args) ->
+ {ok, { {one_for_one, 50, 10}, []} }.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_sup.erl Added

@@ -0,0 +1,42 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+%% @doc Top level supervisor for goldrush.
+%%
+%% Main supervisor responsible for the {@link gr_counter_sup:start_link/0. 
+%% Counter}, {@link gr_param_sup:start_link/0. Param} and
+%% their {@link gr_manager_sup:start_link/0. Manager} supervisors.
+-module(gr_sup).
+-behaviour(supervisor).
+
+-type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
+-type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
+
+-export([start_link/0]).
+-export([init/1]).
+
+-define(CHILD(I, Type), {I, {I, start_link, []}, permanent, 5000, Type, [I]}).
+
+-spec start_link() -> startlink_ret().
+start_link() ->
+ supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+-spec init([]) -> {ok, { {one_for_one, 50, 10}, [supervisor:child_spec()]} }.
+init([]) ->
+ CounterSup = ?CHILD(gr_counter_sup, supervisor),
+ ParamSup = ?CHILD(gr_param_sup, supervisor),
+ MgrSup = ?CHILD(gr_manager_sup, supervisor),
+ {ok, {{one_for_one, 50, 10}, [CounterSup, ParamSup, MgrSup]}}.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gre.erl Added

@@ -0,0 +1,104 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Accessor function for goldrush event terms.
+-module(gre).
+
+-export([
+ make/2,
+ has/2,
+ fetch/2,
+ append/2,
+ merge/2,
+ find/2,
+ keys/1,
+ pairs/1
+]).
+
+-type event() :: {list, [{atom(), term()}]}.
+-export_type([event/0]).
+
+%% @doc Construct an event term.
+-spec make(term(), [list]) -> event().
+make(Term, [Type]) ->
+ {Type, Term}.
+
+
+%% @doc Check if a field exists in an event.
+-spec has(atom(), event()) -> boolean().
+has(Key, {list, List}) ->
+ lists:keymember(Key, 1, List).
+
+-spec append(term(), event()) -> event().
+append(KeyVal, {list, List}) ->
+ {list, [KeyVal|List]}.
+
+-spec merge(event(), event()) -> event().
+merge({list, AList}, {list, BList}) ->
+ {list, lists:merge(AList, BList)}.
+
+%% @doc Get the value of a field in an event.
+%% The field is expected to exist in the event.
+-spec fetch(atom(), event()) -> term().
+fetch(Key, {list, List}=Event) ->
+ case lists:keyfind(Key, 1, List) of
+ {_, Value} -> Value;
+ false -> erlang:error(badarg, [Key, Event])
+ end.
+
+
+%% @doc Find the value of a field in an event.
+%% This is equivalent to testing if a field exists using {@link has/2}
+%% before accessing the value of the field using {@link fetch/2}.
+-spec find(atom(), event()) -> {true, term()} | false.
+find(Key, {list, List}) ->
+ case lists:keyfind(Key, 1, List) of
+ {_, Value} -> {true, Value};
+ false -> false
+ end.
+
+
+%% @doc Get the names of all fields in an event.
+-spec keys(event()) -> [atom()].
+keys({list, List}) ->
+ kv_keys_(List).
+
+%% @private Get the names of all fields in a key-value list.
+-spec kv_keys_([{atom(), term()}]) -> [atom()].
+kv_keys_([{Key, _}|T]) ->
+ [Key|kv_keys_(T)];
+kv_keys_([]) ->
+ [].
+
+%% @doc Get the name and value of all fields in an event.
+-spec pairs(event()) -> [{atom(), term()}].
+pairs({list, List}) ->
+ lists:sort(List).
+
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+gre_test_() ->
+ [?_assert(gre:has(a, gre:make([{a,1}], [list]))),
+ ?_assertNot(gre:has(b, gre:make([{a,1}], [list]))),
+ ?_assertEqual(1, gre:fetch(a, gre:make([{a,1}], [list]))),
+ ?_assertError(badarg, gre:fetch(a, gre:make([], [list]))),
+ ?_assertEqual([], gre:keys(gre:make([], [list]))),
+ ?_assertEqual([a], gre:keys(gre:make([{a,1}], [list]))),
+ ?_assertEqual([a,b], gre:keys(gre:make([{a,1},{b,2}], [list]))),
+ ?_assertEqual([{a,1},{b,2}], gre:pairs(gre:make([{b,2},{a,1}], [list])))
+ ].
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager Added

guam-0.9.12.tar.gz/_checkouts/lager/LICENSE Added

@@ -0,0 +1,178 @@
+
+                                 Apache License
+                           Version 2.0, January 2004
+                        http://www.apache.org/licenses/
+
+   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+   1. Definitions.
+
+      "License" shall mean the terms and conditions for use, reproduction,
+      and distribution as defined by Sections 1 through 9 of this document.
+
+      "Licensor" shall mean the copyright owner or entity authorized by
+      the copyright owner that is granting the License.
+
+      "Legal Entity" shall mean the union of the acting entity and all
+      other entities that control, are controlled by, or are under common
+      control with that entity. For the purposes of this definition,
+      "control" means (i) the power, direct or indirect, to cause the
+      direction or management of such entity, whether by contract or
+      otherwise, or (ii) ownership of fifty percent (50%) or more of the
+      outstanding shares, or (iii) beneficial ownership of such entity.
+
+      "You" (or "Your") shall mean an individual or Legal Entity
+      exercising permissions granted by this License.
+
+      "Source" form shall mean the preferred form for making modifications,
+      including but not limited to software source code, documentation
+      source, and configuration files.
+
+      "Object" form shall mean any form resulting from mechanical
+      transformation or translation of a Source form, including but
+      not limited to compiled object code, generated documentation,
+      and conversions to other media types.
+
+      "Work" shall mean the work of authorship, whether in Source or
+      Object form, made available under the License, as indicated by a
+      copyright notice that is included in or attached to the work
+      (an example is provided in the Appendix below).
+
+      "Derivative Works" shall mean any work, whether in Source or Object
+      form, that is based on (or derived from) the Work and for which the
+      editorial revisions, annotations, elaborations, or other modifications
+      represent, as a whole, an original work of authorship. For the purposes
+      of this License, Derivative Works shall not include works that remain
+      separable from, or merely link (or bind by name) to the interfaces of,
+      the Work and Derivative Works thereof.
+
+      "Contribution" shall mean any work of authorship, including
+      the original version of the Work and any modifications or additions
+      to that Work or Derivative Works thereof, that is intentionally
+      submitted to Licensor for inclusion in the Work by the copyright owner
+      or by an individual or Legal Entity authorized to submit on behalf of
+      the copyright owner. For the purposes of this definition, "submitted"
+      means any form of electronic, verbal, or written communication sent
+      to the Licensor or its representatives, including but not limited to
+      communication on electronic mailing lists, source code control systems,
+      and issue tracking systems that are managed by, or on behalf of, the
+      Licensor for the purpose of discussing and improving the Work, but
+      excluding communication that is conspicuously marked or otherwise
+      designated in writing by the copyright owner as "Not a Contribution."
+
+      "Contributor" shall mean Licensor and any individual or Legal Entity
+      on behalf of whom a Contribution has been received by Licensor and
+      subsequently incorporated within the Work.
+
+   2. Grant of Copyright License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      copyright license to reproduce, prepare Derivative Works of,
+      publicly display, publicly perform, sublicense, and distribute the
+      Work and such Derivative Works in Source or Object form.
+
+   3. Grant of Patent License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      (except as stated in this section) patent license to make, have made,
+      use, offer to sell, sell, import, and otherwise transfer the Work,
+      where such license applies only to those patent claims licensable
+      by such Contributor that are necessarily infringed by their
+      Contribution(s) alone or by combination of their Contribution(s)
+      with the Work to which such Contribution(s) was submitted. If You
+      institute patent litigation against any entity (including a
+      cross-claim or counterclaim in a lawsuit) alleging that the Work
+      or a Contribution incorporated within the Work constitutes direct
+      or contributory patent infringement, then any patent licenses
+      granted to You under this License for that Work shall terminate
+      as of the date such litigation is filed.
+
+   4. Redistribution. You may reproduce and distribute copies of the
+      Work or Derivative Works thereof in any medium, with or without
+      modifications, and in Source or Object form, provided that You
+      meet the following conditions:
+
+      (a) You must give any other recipients of the Work or
+          Derivative Works a copy of this License; and
+
+      (b) You must cause any modified files to carry prominent notices
+          stating that You changed the files; and
+
+      (c) You must retain, in the Source form of any Derivative Works
+          that You distribute, all copyright, patent, trademark, and
+          attribution notices from the Source form of the Work,
+          excluding those notices that do not pertain to any part of
+          the Derivative Works; and
+
+      (d) If the Work includes a "NOTICE" text file as part of its
+          distribution, then any Derivative Works that You distribute must
+          include a readable copy of the attribution notices contained
+          within such NOTICE file, excluding those notices that do not
+          pertain to any part of the Derivative Works, in at least one
+          of the following places: within a NOTICE text file distributed
+          as part of the Derivative Works; within the Source form or
+          documentation, if provided along with the Derivative Works; or,
+          within a display generated by the Derivative Works, if and
+          wherever such third-party notices normally appear. The contents
+          of the NOTICE file are for informational purposes only and
+          do not modify the License. You may add Your own attribution
+          notices within Derivative Works that You distribute, alongside
+          or as an addendum to the NOTICE text from the Work, provided
+          that such additional attribution notices cannot be construed
+          as modifying the License.
+
+      You may add Your own copyright statement to Your modifications and
+      may provide additional or different license terms and conditions
+      for use, reproduction, or distribution of Your modifications, or
+      for any such Derivative Works as a whole, provided Your use,
+      reproduction, and distribution of the Work otherwise complies with
+      the conditions stated in this License.
+
+   5. Submission of Contributions. Unless You explicitly state otherwise,
+      any Contribution intentionally submitted for inclusion in the Work
+      by You to the Licensor shall be under the terms and conditions of
+      this License, without any additional terms or conditions.
+      Notwithstanding the above, nothing herein shall supersede or modify
+      the terms of any separate license agreement you may have executed
+      with Licensor regarding such Contributions.
+
+   6. Trademarks. This License does not grant permission to use the trade
+      names, trademarks, service marks, or product names of the Licensor,
+      except as required for reasonable and customary use in describing the
+      origin of the Work and reproducing the content of the NOTICE file.
+
+   7. Disclaimer of Warranty. Unless required by applicable law or
+      agreed to in writing, Licensor provides the Work (and each
+      Contributor provides its Contributions) on an "AS IS" BASIS,
+      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+      implied, including, without limitation, any warranties or conditions
+      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+      PARTICULAR PURPOSE. You are solely responsible for determining the
+      appropriateness of using or redistributing the Work and assume any
+      risks associated with Your exercise of permissions under this License.
+
+   8. Limitation of Liability. In no event and under no legal theory,
+      whether in tort (including negligence), contract, or otherwise,
+      unless required by applicable law (such as deliberate and grossly
+      negligent acts) or agreed to in writing, shall any Contributor be
+      liable to You for damages, including any direct, indirect, special,
+      incidental, or consequential damages of any character arising as a
+      result of this License or out of the use or inability to use the
+      Work (including but not limited to damages for loss of goodwill,
+      work stoppage, computer failure or malfunction, or any and all
+      other commercial damages or losses), even if such Contributor
+      has been advised of the possibility of such damages.
+
+   9. Accepting Warranty or Additional Liability. While redistributing
+      the Work or Derivative Works thereof, You may choose to offer,
+      and charge a fee for, acceptance of support, warranty, indemnity,
+      or other liability obligations and/or rights consistent with this
+      License. However, in accepting such obligations, You may act only
+      on Your own behalf and on Your sole responsibility, not on behalf
+      of any other Contributor, and only if You agree to indemnify,
+      defend, and hold each Contributor harmless for any liability
+      incurred by, or claims asserted against, such Contributor by reason
+      of your accepting any such warranty or additional liability.
+
+   END OF TERMS AND CONDITIONS
+

guam-0.9.12.tar.gz/_checkouts/lager/README.md Added

@@ -0,0 +1,1400 @@
+Overview
+--------
+Lager (as in the beer) is a logging framework for Erlang. Its purpose is
+to provide a more traditional way to perform logging in an erlang application
+that plays nicely with traditional UNIX logging tools like logrotate and
+syslog.
+
+[![Build Status](https://github.com/erlang-lager/lager/workflows/build/badge.svg)](https://github.com/erlang-lager/lager)
+[![Hex pm](https://img.shields.io/hexpm/v/lager)](https://hex.pm/packages/lager)
+
+Features
+--------
+* Finer grained log levels (debug, info, notice, warning, error, critical,
+  alert, emergency)
+* Logger calls are transformed using a parse transform to allow capturing
+  Module/Function/Line/Pid information
+* When no handler is consuming a log level (eg. debug) no event is sent
+  to the log handler
+* Supports multiple backends, including console and file.
+* Supports multiple sinks
+* Rewrites common OTP error messages into more readable messages
+* Support for pretty printing records encountered at compile time
+* Tolerant in the face of large or many log messages, won't out of memory the node
+* Optional feature to bypass log size truncation ("unsafe")
+* Supports internal time and date based rotation, as well as external rotation tools
+* Syslog style log level comparison flags
+* Colored terminal output (requires R16+)
+* Map support (requires 17+)
+* Optional load shedding by setting a high water mark to kill (and reinstall)
+  a sink after a configurable cool down timer
+
+Contributing
+------------
+We welcome contributions from the community. We are always excited to get ideas
+for improving lager.
+
+If you are looking for an idea to help out, please take a look at our open
+issues - a number of them are tagged with [Help Wanted](https://github.com/erlang-lager/lager/issues?q=is%3Aopen+is%3Aissue+label%3A%22Help+Wanted%22)
+and [Easy](https://github.com/erlang-lager/lager/issues?q=is%3Aopen+is%3Aissue+label%3AEasy) - some
+of them are tagged as both! We are happy to mentor people get started with any
+of these issues, and they don't need prior discussion.
+
+That being said, before you send large changes please open an issue first to
+discuss the change you'd like to make along with an idea of your proposal to
+implement that change.
+
+### PR guidelines ###
+
+* Large changes without prior discussion are likely to be rejected.
+* Changes without test cases are likely to be rejected.
+* Please use the style of the existing codebase when submitting PRs.
+
+We review PRs and issues at least once a month as described below.
+
+OTP Support Policy
+------------------
+The lager maintainers intend to support the past three OTP releases from
+current on the main 3.x branch of the project. As of August 2019 that includes
+22, 21 20
+
+Lager may or may not run on older OTP releases but it will only be guaranteed
+tested on the previous three OTP releases. If you need a version of lager
+which runs on older OTP releases, we recommend you use either the 3.4.0 release
+or the 2.x branch.
+
+Monthly triage cadence
+----------------------
+We have (at least) monthly issue and PR triage for lager in the #lager room on the
+[freenode](https://freenode.net) IRC network every third Thursday at 2 pm US/Pacific,
+10 pm UTC. You are welcome to join us there to ask questions about lager or
+participate in the triage.
+
+Usage
+-----
+To use lager in your application, you need to define it as a rebar dep or have
+some other way of including it in Erlang's path. You can then add the
+following option to the erlang compiler flags:
+
+```erlang
+{parse_transform, lager_transform}
+```
+
+Alternately, you can add it to the module you wish to compile with logging
+enabled:
+
+```erlang
+-compile([{parse_transform, lager_transform}]).
+```
+
+Before logging any messages, you'll need to start the lager application. The
+lager module's `start` function takes care of loading and starting any dependencies
+lager requires.
+
+```erlang
+lager:start().
+```
+
+You can also start lager on startup with a switch to `erl`:
+
+```erlang
+erl -pa path/to/lager/ebin -s lager
+```
+
+Once you have built your code with lager and started the lager application,
+you can then generate log messages by doing the following:
+
+```erlang
+lager:error("Some message")
+```
+
+  Or:
+
+```erlang
+lager:warning("Some message with a term: ~p", [Term])
+```
+
+The general form is `lager:Severity()` where `Severity` is one of the log levels
+mentioned above.
+
+Configuration
+-------------
+To configure lager's backends, you use an application variable (probably in
+your app.config):
+
+```erlang
+{lager, [
+  {log_root, "/var/log/hello"},
+  {handlers, [
+    {lager_console_backend, [{level, info}]},
+    {lager_file_backend, [{file, "error.log"}, {level, error}]},
+    {lager_file_backend, [{file, "console.log"}, {level, info}]}
+  ]}
+]}.
+```
+
+```log_root``` variable is optional, by default file paths are relative to CWD.
+
+The available configuration options for each backend are listed in their
+module's documentation.
+
+Sinks
+-----
+Lager has traditionally supported a single sink (implemented as a
+`gen_event` manager) named `lager_event` to which all backends were
+connected.
+
+Lager now supports extra sinks; each sink can have different
+sync/async message thresholds and different backends.
+
+### Sink configuration
+
+To use multiple sinks (beyond the built-in sink of lager and lager_event), you
+need to:
+
+1. Setup rebar.config
+2. Configure the backends in app.config
+
+#### Names
+
+Each sink has two names: one atom to be used like a module name for
+sending messages, and that atom with `_lager_event` appended for backend
+configuration.
+
+This reflects the legacy behavior: `lager:info` (or `critical`, or
+`debug`, etc) is a way of sending a message to a sink named
+`lager_event`. Now developers can invoke `audit:info` or
+`myCompanyName:debug` so long as the corresponding `audit_lager_event` or
+`myCompanyName_lager_event` sinks are configured.
+
+#### rebar.config
+
+In `rebar.config` for the project that requires lager, include a list
+of sink names (without the `_lager_event` suffix) in `erl_opts`:
+
+`{lager_extra_sinks, [audit]}`
+
+#### Runtime requirements
+
+To be useful, sinks must be configured at runtime with backends.
+
+In `app.config` for the project that requires lager, for example,
+extend the lager configuration to include an `extra_sinks` tuple with
+backends (aka "handlers") and optionally `async_threshold` and
+`async_threshold_window` values (see **Overload Protection**
+below). If async values are not configured, no overload protection
+will be applied on that sink.
+
+```erlang
+[{lager, [
+          {log_root, "/tmp"},
+
+          %% Default handlers for lager/lager_event
+          {handlers, [
+                      {lager_console_backend, [{level, info}]},
+                      {lager_file_backend, [{file, "error.log"}, {level, error}]},
+                      {lager_file_backend, [{file, "console.log"}, {level, info}]}
+                     ]},
+
+          %% Any other sinks

guam-0.9.12.tar.gz/_checkouts/lager/hex_metadata.config Added

@@ -0,0 +1,27 @@
+{<<"app">>,<<"lager">>}.
+{<<"build_tools">>,[<<"rebar3">>]}.
+{<<"description">>,<<"Erlang logging framework">>}.
+{<<"files">>,
+ [<<"LICENSE">>,<<"README.md">>,<<"include/lager.hrl">>,<<"priv/edoc.css">>,
+ <<"rebar.config">>,<<"rebar.config.script">>,<<"rebar.lock">>,
+ <<"src/error_logger_lager_h.erl">>,<<"src/lager.app.src">>,
+ <<"src/lager.erl">>,<<"src/lager_app.erl">>,
+ <<"src/lager_backend_throttle.erl">>,
+ <<"src/lager_common_test_backend.erl">>,<<"src/lager_config.erl">>,
+ <<"src/lager_console_backend.erl">>,<<"src/lager_crash_log.erl">>,
+ <<"src/lager_default_formatter.erl">>,<<"src/lager_file_backend.erl">>,
+ <<"src/lager_format.erl">>,<<"src/lager_handler_watcher.erl">>,
+ <<"src/lager_handler_watcher_sup.erl">>,<<"src/lager_manager_killer.erl">>,
+ <<"src/lager_msg.erl">>,<<"src/lager_rotator_behaviour.erl">>,
+ <<"src/lager_rotator_default.erl">>,<<"src/lager_stdlib.erl">>,
+ <<"src/lager_sup.erl">>,<<"src/lager_transform.erl">>,
+ <<"src/lager_trunc_io.erl">>,<<"src/lager_util.erl">>]}.
+{<<"licenses">>,[<<"Apache 2">>]}.
+{<<"links">>,[{<<"Github">>,<<"https://github.com/erlang-lager/lager">>}]}.
+{<<"name">>,<<"lager">>}.
+{<<"requirements">>,
+ [{<<"goldrush">>,
+ [{<<"app">>,<<"goldrush">>},
+ {<<"optional">>,false},
+ {<<"requirement">>,<<"0.1.9">>}]}]}.
+{<<"version">>,<<"3.9.2">>}.

guam-0.9.12.tar.gz/_checkouts/lager/include Added

guam-0.9.12.tar.gz/_checkouts/lager/include/lager.hrl Added

@@ -0,0 +1,178 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+
+-define(DEFAULT_TRUNCATION, 4096).
+-define(DEFAULT_TRACER, lager_default_tracer).
+-define(DEFAULT_SINK, lager_event).
+-define(ERROR_LOGGER_SINK, error_logger_lager_event).
+
+-define(METADATA(Extras), [{severity, info},
+                           {pid, self()},
+                           {node, node()},
+                           {module, ?MODULE},
+                           {function, ?FUNCTION_NAME},
+                           {function_arity, ?FUNCTION_ARITY},
+                           {file, ?FILE},
+                           {line, ?LINE} | Extras]).
+
+-define(lager_log(Severity, Format, Args, Safety),
+        ?lager_log(?DEFAULT_SINK, Severity, ?METADATA(lager:md()), Format, Args,
+                   ?DEFAULT_TRUNCATION, Safety)).
+-define(lager_log(Severity, Metadata, Format, Args, Safety),
+        ?lager_log(?DEFAULT_SINK, Severity, ?METADATA(Metadata++lager:md()), Format, Args,
+                   ?DEFAULT_TRUNCATION, Safety)).
+
+-define(lager_log(Sink, Severity, Metadata, Format, Args, Size, Safety),
+        _ = lager:dispatch_log(Sink, Severity, Metadata, Format, Args, Size, Safety)).
+
+-define(lager_debug(Format, Args), ?lager_log(debug, Format, Args, safe)).
+-define(lager_debug(Metadata, Format, Args), ?lager_log(debug, Metadata, Format, Args, safe)).
+
+-define(lager_info(Format, Args), ?lager_log(info, Format, Args, safe)).
+-define(lager_info(Metadata, Format, Args), ?lager_log(info, Metadata, Format, Args, safe)).
+
+-define(lager_notice(Format, Args), ?lager_log(notice, Format, Args, safe)).
+-define(lager_notice(Metadata, Format, Args), ?lager_log(notice, Metadata, Format, Args, safe)).
+
+-define(lager_warning(Format, Args), ?lager_log(warning, Format, Args, safe)).
+-define(lager_warning(Metadata, Format, Args), ?lager_log(warning, Metadata, Format, Args, safe)).
+
+-define(lager_error(Format, Args), ?lager_log(error, Format, Args, safe)).
+-define(lager_error(Metadata, Format, Args), ?lager_log(error, Metadata, Format, Args, safe)).
+
+-define(lager_critical(Format, Args), ?lager_log(critical, Format, Args, safe)).
+-define(lager_critical(Metadata, Format, Args), ?lager_log(critical, Metadata, Format, Args, safe)).
+
+-define(lager_alert(Format, Args), ?lager_log(alert, Format, Args, safe)).
+-define(lager_alert(Metadata, Format, Args), ?lager_log(alert, Metadata, Format, Args, safe)).
+
+-define(lager_emergency(Format, Args), ?lager_log(emergency, Format, Args, safe)).
+-define(lager_emergency(Metadata, Format, Args), ?lager_log(emergency, Metadata, Format, Args, safe)).
+
+-define(lager_none(Format, Args), ?lager_log(none, Format, Args, safe)).
+-define(lager_none(Metadata, Format, Args), ?lager_log(none, Metadata, Format, Args, safe)).
+
+-define(LEVELS,
+    [debug, info, notice, warning, error, critical, alert, emergency, none]).
+
+%% Use of these "functions" means that the argument list will not be
+%% truncated for safety
+-define(LEVELS_UNSAFE,
+    [{debug_unsafe, debug}, {info_unsafe, info}, {notice_unsafe, notice}, {warning_unsafe, warning}, {error_unsafe, error}, {critical_unsafe, critical}, {alert_unsafe, alert}, {emergency_unsafe, emergency}]).
+
+-define(DEBUG, 128).
+-define(INFO, 64).
+-define(NOTICE, 32).
+-define(WARNING, 16).
+-define(ERROR, 8).
+-define(CRITICAL, 4).
+-define(ALERT, 2).
+-define(EMERGENCY, 1).
+-define(LOG_NONE, 0).
+
+-define(LEVEL2NUM(Level),
+    case Level of
+        debug -> ?DEBUG;
+        info -> ?INFO;
+        notice -> ?NOTICE;
+        warning -> ?WARNING;
+        error -> ?ERROR;
+        critical -> ?CRITICAL;
+        alert -> ?ALERT;
+        emergency -> ?EMERGENCY
+    end).
+
+-define(NUM2LEVEL(Num),
+    case Num of
+        ?DEBUG -> debug;
+        ?INFO -> info;
+        ?NOTICE -> notice;
+        ?WARNING -> warning;
+        ?ERROR -> error;
+        ?CRITICAL -> critical;
+        ?ALERT -> alert;
+        ?EMERGENCY -> emergency
+    end).
+
+-define(SHOULD_LOG(Sink, Level),
+    (lager_util:level_to_num(Level) band element(1, lager_config:get({Sink, loglevel}, {?LOG_NONE, []}))) /= 0).
+
+-define(SHOULD_LOG(Level),
+    (lager_util:level_to_num(Level) band element(1, lager_config:get(loglevel, {?LOG_NONE, []}))) /= 0).
+
+-define(NOTIFY(Level, Pid, Format, Args),
+    gen_event:notify(lager_event, {log, lager_msg:new(io_lib:format(Format, Args),
+            Level,
+            [{pid,Pid},{line,?LINE},{file,?FILE},{module,?MODULE}],
+            [])}
+        )).
+
+%% FOR INTERNAL USE ONLY
+%% internal non-blocking logging call
+%% there's some special handing for when we try to log (usually errors) while
+%% lager is still starting.
+-ifdef(TEST).
+-define(INT_LOG(Level, Format, Args),
+    case ?SHOULD_LOG(Level) of
+        true ->
+            ?NOTIFY(Level, self(), Format, Args);
+        _ ->
+            ok
+    end).
+-else.
+-define(INT_LOG(Level, Format, Args),
+    Self = self(),
+    %% do this in a spawn so we don't cause a deadlock calling gen_event:which_handlers
+    %% from a gen_event handler
+    spawn(fun() ->
+            case catch(gen_event:which_handlers(lager_event)) of
+                X when X == []; X == {'EXIT', noproc}; X == [lager_backend_throttle] ->
+                    %% there's no handlers yet or lager isn't running, try again
+                    %% in half a second.
+                    timer:sleep(500),
+                    ?NOTIFY(Level, Self, Format, Args);
+                _ ->
+                    case ?SHOULD_LOG(Level) of
+                        true ->
+                            ?NOTIFY(Level, Self, Format, Args);
+                        _ ->
+                            ok
+                    end
+            end
+    end)).
+-endif.
+
+-record(lager_shaper, {
+                  id :: any(),
+                  %% how many messages per second we try to deliver
+                  hwm = undefined :: 'undefined' | pos_integer(),
+                  %% how many messages we've received this second
+                  mps = 0 :: non_neg_integer(),
+                  %% the current second
+                  lasttime = os:timestamp() :: erlang:timestamp(),
+                  %% count of dropped messages this second
+                  dropped = 0 :: non_neg_integer(),
+                  %% If true, flush notify messages from msg queue at overload
+                  flush_queue = true :: boolean(),
+                  flush_threshold = 0 :: integer(),
+                  %% timer
+                  timer = make_ref() :: reference(),
+                  %% optional filter fun to avoid counting suppressed messages against HWM totals
+                  filter = fun(_) -> false end :: fun()
+                 }).
+
+-type lager_shaper() :: #lager_shaper{}.

guam-0.9.12.tar.gz/_checkouts/lager/priv Added

guam-0.9.12.tar.gz/_checkouts/lager/priv/edoc.css Added

guam-0.9.12.tar.gz/_checkouts/lager/rebar.config Added

@@ -0,0 +1,59 @@
+%% -*- erlang -*-
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2011-2015 Basho Technologies, Inc.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+%%
+%% -------------------------------------------------------------------
+
+{erl_opts, [
+    {lager_extra_sinks, ['__lager_test_sink']},
+    {platform_define, "^18", 'FUNCTION_NAME', unavailable},
+    {platform_define, "^18", 'FUNCTION_ARITY', 0},
+    debug_info,
+    report,
+    verbose,
+    warn_deprecated_function,
+    warn_deprecated_type,
+    warn_export_all,
+    warn_export_vars,
+    warn_obsolete_guard,
+    warn_untyped_record,
+    warn_unused_import
+    % do NOT include warnings_as_errors, as rebar includes these options
+    % when compiling for eunit, and at least one test module has code that
+    % is deliberatly broken and will generate an un-maskable warning
+]}.
+
+{erl_first_files, ["src/lager_util.erl"]}.
+
+{eunit_opts, [verbose]}.
+{eunit_compile_opts, [
+    export_all,
+
+    nowarn_untyped_record,
+    nowarn_export_all
+]}.
+
+{deps, [
+    {goldrush, "0.1.9"}
+]}.
+
+{xref_checks, []}.
+{xref_queries, [{"(XC - UC) || (XU - X - B - lager_default_tracer : Mod - erlang:\"(is_map|map_size)\"/1 - maps:to_list/1)", []}]}.
+
+{cover_enabled, true}.
+{edoc_opts, [{stylesheet_file, "./priv/edoc.css"}]}.

guam-0.9.12.tar.gz/_checkouts/lager/rebar.config.script Added

guam-0.9.12.tar.gz/_checkouts/lager/rebar.lock Added

guam-0.9.12.tar.gz/_checkouts/lager/src Added

guam-0.9.12.tar.gz/_checkouts/lager/src/error_logger_lager_h.erl Added

@@ -0,0 +1,794 @@
+%% Copyright (c) 2011-2015 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc A error_logger backend for redirecting events into lager.
+%% Error messages and crash logs are also optionally written to a crash log.
+
+%% @see lager_crash_log
+
+%% @private
+
+-module(error_logger_lager_h).
+
+-include("lager.hrl").
+
+-behaviour(gen_event).
+
+-export([set_high_water/1]).
+-export([init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+        code_change/3]).
+
+-export([format_reason/1, format_mfa/1, format_args/3]).
+
+-record(state, {
+        sink :: atom(),
+        shaper :: lager_shaper(),
+        %% group leader strategy
+        groupleader_strategy :: handle | ignore | mirror,
+        raw :: boolean()
+    }).
+
+-define(LOGMSG(Sink, Level, Pid, Msg),
+    case ?SHOULD_LOG(Sink, Level) of
+        true ->
+            _ =lager:log(Sink, Level, Pid, Msg, []),
+            logged;
+        _ -> no_log
+    end).
+
+-define(LOGFMT(Sink, Level, Pid, Fmt, Args),
+    case ?SHOULD_LOG(Sink, Level) of
+        true ->
+            _ = lager:log(Sink, Level, Pid, Fmt, Args),
+            logged;
+        _ -> no_log
+    end).
+
+-ifdef(TEST).
+%% Make CRASH synchronous when testing, to avoid timing headaches
+-define(CRASH_LOG(Event),
+    catch(gen_server:call(lager_crash_log, {log, Event}))).
+-else.
+-define(CRASH_LOG(Event),
+    gen_server:cast(lager_crash_log, {log, Event})).
+-endif.
+
+set_high_water(N) ->
+    gen_event:call(error_logger, ?MODULE, {set_high_water, N}, infinity).
+
+-spec init(any()) -> {ok, #state{}}.
+init([HighWaterMark, GlStrategy]) ->
+    Flush = application:get_env(lager, error_logger_flush_queue, true),
+    FlushThr = application:get_env(lager, error_logger_flush_threshold, 0),
+    Shaper = #lager_shaper{hwm=HighWaterMark, flush_queue = Flush, flush_threshold = FlushThr, filter=shaper_fun(), id=?MODULE},
+    Raw = application:get_env(lager, error_logger_format_raw, false),
+    Sink = configured_sink(),
+    {ok, #state{sink=Sink, shaper=Shaper, groupleader_strategy=GlStrategy, raw=Raw}}.
+
+handle_call({set_high_water, N}, #state{shaper=Shaper} = State) ->
+    NewShaper = Shaper#lager_shaper{hwm=N},
+    {ok, ok, State#state{shaper = NewShaper}};
+handle_call(_Request, State) ->
+    {ok, unknown_call, State}.
+
+shaper_fun() ->
+    case {application:get_env(lager, suppress_supervisor_start_stop, false), application:get_env(lager, suppress_application_start_stop, false)} of
+        {false, false} ->
+            fun(_) -> false end;
+        {true, true} ->
+            fun suppress_supervisor_start_and_application_start/1;
+        {false, true} ->
+            fun suppress_application_start/1;
+        {true, false} ->
+            fun suppress_supervisor_start/1
+    end.
+
+suppress_supervisor_start_and_application_start(E) ->
+    suppress_supervisor_start(E) orelse suppress_application_start(E).
+
+suppress_application_start({info_report, _GL, {_Pid, std_info, D}}) when is_list(D) ->
+    lists:member({exited, stopped}, D);
+suppress_application_start({info_report, _GL, {_P, progress, D}}) ->
+    lists:keymember(application, 1, D) andalso lists:keymember(started_at, 1, D);
+suppress_application_start(_) ->
+    false.
+
+suppress_supervisor_start({info_report, _GL, {_P, progress, D}}) ->
+    lists:keymember(started, 1, D) andalso lists:keymember(supervisor, 1, D);
+suppress_supervisor_start(_) ->
+    false.
+
+handle_event(Event, #state{sink=Sink, shaper=Shaper} = State) ->
+    case lager_util:check_hwm(Shaper, Event) of
+        {true, 0, NewShaper} ->
+            eval_gl(Event, State#state{shaper=NewShaper});
+        {true, Drop, #lager_shaper{hwm=Hwm} = NewShaper} when Drop > 0 ->
+            ?LOGFMT(Sink, warning, self(),
+                "lager_error_logger_h dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
+                [Drop, Hwm]),
+            eval_gl(Event, State#state{shaper=NewShaper});
+        {false, _, #lager_shaper{dropped=D} = NewShaper} ->
+            {ok, State#state{shaper=NewShaper#lager_shaper{dropped=D+1}}}
+    end.
+
+handle_info({shaper_expired, ?MODULE}, #state{sink=Sink, shaper=Shaper} = State) ->
+    case Shaper#lager_shaper.dropped of
+        0 ->
+            ok;
+        Dropped ->
+            ?LOGFMT(Sink, warning, self(),
+                    "lager_error_logger_h dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
+                    [Dropped, Shaper#lager_shaper.hwm])
+    end,
+    {ok, State#state{shaper=Shaper#lager_shaper{dropped=0, mps=0, lasttime=os:timestamp()}}};
+handle_info(_Info, State) ->
+    {ok, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+
+code_change(_OldVsn, {state, Shaper, GLStrategy}, _Extra) ->
+    Raw = application:get_env(lager, error_logger_format_raw, false),
+    {ok, #state{
+        sink=configured_sink(),
+        shaper=Shaper,
+        groupleader_strategy=GLStrategy,
+        raw=Raw
+        }};
+code_change(_OldVsn, {state, Sink, Shaper, GLS}, _Extra) ->
+    Raw = application:get_env(lager, error_logger_format_raw, false),
+    {ok, #state{sink=Sink, shaper=Shaper, groupleader_strategy=GLS, raw=Raw}};
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%% internal functions
+
+configured_sink() ->
+    case proplists:get_value(?ERROR_LOGGER_SINK, application:get_env(lager, extra_sinks, [])) of
+        undefined -> ?DEFAULT_SINK;
+        _ -> ?ERROR_LOGGER_SINK
+    end.
+
+eval_gl(Event, #state{groupleader_strategy=GlStrategy0}=State) when is_pid(element(2, Event)) ->
+    case element(2, Event) of
+         GL when node(GL) =/= node(), GlStrategy0 =:= ignore ->
+            gen_event:notify({error_logger, node(GL)}, Event),
+            {ok, State};
+         GL when node(GL) =/= node(), GlStrategy0 =:= mirror ->
+            gen_event:notify({error_logger, node(GL)}, Event),
+            log_event(Event, State);
+         _ ->
+            log_event(Event, State)
+    end;
+eval_gl(Event, State) ->
+    log_event(Event, State).
+
+log_event(Event, #state{sink=Sink} = State) ->
+    DidLog = case Event of
+        {error, _GL, {Pid, Fmt, Args}} ->
+            FormatRaw = State#state.raw,
+            case {FormatRaw, Fmt} of
+                {false, "** Generic server "++_} ->
+                    %% gen_server terminate
+                    {Reason, Name} = case Args of
+                                         [N, _Msg, _State, R] ->
+                                             {R, N};
+                                         [N, _Msg, _State, R, _Client] ->
+                                             %% OTP 20 crash reports where the client pid is dead don't include the stacktrace
+                                             {R, N};
+                                         [N, _Msg, _State, R, _Client, _Stacktrace] ->
+                                             %% OTP 20 crash reports contain the pid of the client and stacktrace
+                                             %% TODO do something with them
+                                             {R, N}
+                                     end,
+                    ?CRASH_LOG(Event),
+                    {Md, Formatted} = format_reason_md(Reason),

guam-0.9.12.tar.gz/_checkouts/lager/src/lager.app.src Added

@@ -0,0 +1,30 @@
+{application,lager,
+             [{description,"Erlang logging framework"},
+              {vsn,"3.9.2"},
+              {modules,[]},
+              {applications,[kernel,stdlib,goldrush]},
+              {registered,[lager_sup,lager_event,lager_crash_log,
+                           lager_handler_watcher_sup]},
+              {mod,{lager_app,[]}},
+              {env,[{colored,false},
+                    {colors,[{debug,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                    {log_root,"log"},
+                    {crash_log,"crash.log"},
+                    {crash_log_msg_size,65536},
+                    {crash_log_size,10485760},
+                    {crash_log_date,"$D0"},
+                    {crash_log_count,5},
+                    {crash_log_rotator,lager_rotator_default},
+                    {error_logger_redirect,true},
+                    {error_logger_hwm,50},
+                    {async_threshold,20},
+                    {async_threshold_window,5}]},
+              {licenses,["Apache 2"]},
+              {links,[{"Github","https://github.com/erlang-lager/lager"}]}]}.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager.erl Added

@@ -0,0 +1,746 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc The lager logging framework.
+
+-module(lager).
+
+-include("lager.hrl").
+
+-define(LAGER_MD_KEY, '__lager_metadata').
+-define(TRACE_SINK, '__trace_sink').
+-define(ROTATE_TIMEOUT, 100000).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+%% API
+-export([start/0,
+        log/3, log/4, log/5,
+        log_unsafe/4,
+        md/0, md/1,
+        rotate_handler/1, rotate_handler/2, rotate_sink/1, rotate_all/0,
+        trace/2, trace/3, trace_file/2, trace_file/3, trace_file/4, trace_console/1, trace_console/2,
+        install_trace/2, install_trace/3, remove_trace/1, trace_state/3, trace_func/3,
+        list_all_sinks/0, clear_all_traces/0, clear_trace_by_destination/1, stop_trace/1, stop_trace/3, status/0,
+        get_loglevel/1, get_loglevel/2, set_loglevel/2, set_loglevel/3, set_loglevel/4, get_loglevels/1,
+        update_loglevel_config/1, posix_error/1, set_loghwm/2, set_loghwm/3, set_loghwm/4,
+        safe_format/3, safe_format_chop/3, unsafe_format/2, dispatch_log/5, dispatch_log/7, dispatch_log/9,
+        do_log/9, do_log/10, do_log_unsafe/10, pr/2, pr/3, pr_stacktrace/1, pr_stacktrace/2]).
+
+-type log_level() :: none | debug | info | notice | warning | error | critical | alert | emergency.
+-type log_level_number() :: 0..7.
+
+-export_type([log_level/0, log_level_number/0]).
+
+-record(trace_func_state_v1, {
+          pid :: undefined | pid(),
+          level :: log_level(),
+          count :: infinity | pos_integer(),
+          format_string :: string(),
+          timeout :: infinity | pos_integer(),
+          started = os:timestamp() :: erlang:timestamp() %% use os:timestamp for compatability
+         }).
+
+%% API
+
+%% @doc installs a lager trace handler into the target process (using sys:install) at the specified level.
+-spec install_trace(pid(), log_level()) -> ok.
+install_trace(Pid, Level) ->
+    install_trace(Pid, Level, []).
+
+-spec install_trace(pid(), log_level(), [{count, infinity | pos_integer()} | {format_string, string()} | {timeout, timeout()}]) -> ok.
+install_trace(Pid, Level, Options) ->
+    sys:install(Pid, {fun ?MODULE:trace_func/3, trace_state(Pid, Level, Options)}).
+
+%% @doc remove a previously installed lager trace handler from the target process.
+-spec remove_trace(pid()) -> ok.
+remove_trace(Pid) ->
+    sys:remove(Pid, fun ?MODULE:trace_func/3).
+
+%% @doc Start the application. Mainly useful for using `-s lager' as a command
+%% line switch to the VM to make lager start on boot.
+start() -> start(lager).
+
+start(App) ->
+    start_ok(App, application:start(App, permanent)).
+
+start_ok(_App, ok) -> ok;
+start_ok(App, {error, {already_started, App}}) -> ok;
+start_ok(App, {error, {not_started, Dep}}) ->
+    ok = start(Dep),
+    start(App);
+start_ok(App, {error, Reason}) ->
+    erlang:error({app_start_failed, App, Reason}).
+
+%% @doc Get lager metadata for current process
+-spec md() -> [{atom(), any()}].
+md() ->
+    case erlang:get(?LAGER_MD_KEY) of
+        undefined -> [];
+        MD -> MD
+    end.
+
+%% @doc Set lager metadata for current process.
+%% Will badarg if you don't supply a list of {key, value} tuples keyed by atoms.
+-spec md([{atom(), any()},...]) -> ok.
+md(NewMD) when is_list(NewMD) ->
+    %% make sure its actually a real proplist
+    case lists:all(
+            fun({Key, _Value}) when is_atom(Key) -> true;
+                (_) -> false
+            end, NewMD) of
+        true ->
+            erlang:put(?LAGER_MD_KEY, NewMD),
+            ok;
+        false ->
+            erlang:error(badarg)
+    end;
+md(_) ->
+    erlang:error(badarg).
+
+
+-spec dispatch_log(atom(), log_level(), list(), string(), list() | none, pos_integer(), safe | unsafe) ->  ok | {error, lager_not_running} | {error, {sink_not_configured, atom()}}.
+%% this is the same check that the parse transform bakes into the module at compile time
+%% see lager_transform (lines 173-216)
+dispatch_log(Sink, Severity, Metadata, Format, Args, Size, Safety) when is_atom(Severity)->
+    SeverityAsInt=lager_util:level_to_num(Severity),
+    case {whereis(Sink), whereis(?DEFAULT_SINK), lager_config:get({Sink, loglevel}, {?LOG_NONE, []})} of
+         {undefined, undefined, _} -> {error, lager_not_running};
+         {undefined, _LagerEventPid0, _} -> {error, {sink_not_configured, Sink}};
+         {SinkPid, _LagerEventPid1, {Level, Traces}} when Safety =:= safe andalso ( (Level band SeverityAsInt) /= 0 orelse Traces /= [] ) ->
+            do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt, Level, Traces, Sink, SinkPid);
+         {SinkPid, _LagerEventPid1, {Level, Traces}} when Safety =:= unsafe andalso ( (Level band SeverityAsInt) /= 0 orelse Traces /= [] ) ->
+            do_log_unsafe(Severity, Metadata, Format, Args, Size, SeverityAsInt, Level, Traces, Sink, SinkPid);
+         _ -> ok
+    end.
+
+%% @private Should only be called externally from code generated from the parse transform
+do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid) when is_atom(Severity) ->
+    FormatFun = fun() -> safe_format_chop(Format, Args, Size) end,
+    do_log_impl(Severity, Metadata, Format, Args, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid, FormatFun).
+
+do_log_impl(Severity, Metadata, Format, Args, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid, FormatFun) ->
+    {Destinations, TraceSinkPid} = case TraceFilters of
+        [] ->
+            {[], undefined};
+        _ ->
+            {lager_util:check_traces(Metadata,SeverityAsInt,TraceFilters,[]), whereis(?TRACE_SINK)}
+    end,
+    case (LevelThreshold band SeverityAsInt) /= 0 orelse Destinations /= [] of
+        true ->
+            Msg = case Args of
+                A when is_list(A) ->
+                    FormatFun();
+                _ ->
+                    Format
+            end,
+            LagerMsg = lager_msg:new(Msg,
+                Severity, Metadata, Destinations),
+            case lager_config:get({Sink, async}, false) of
+                true ->
+                    gen_event:notify(SinkPid, {log, LagerMsg});
+                false ->
+                    gen_event:sync_notify(SinkPid, {log, LagerMsg})
+            end,
+            case TraceSinkPid /= undefined of
+                true ->
+                    gen_event:notify(TraceSinkPid, {log, LagerMsg});
+                false ->
+                    ok
+            end;
+        false ->
+            ok
+    end.
+
+%% @private Should only be called externally from code generated from the parse transform
+%% Specifically, it would be level ++ `_unsafe' as in `info_unsafe'.
+do_log_unsafe(Severity, Metadata, Format, Args, _Size, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid) when is_atom(Severity) ->
+    FormatFun = fun() -> unsafe_format(Format, Args) end,
+    do_log_impl(Severity, Metadata, Format, Args, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid, FormatFun).
+
+
+%% backwards compatible with beams compiled with lager 1.x
+dispatch_log(Severity, _Module, _Function, _Line, _Pid, Metadata, Format, Args, Size) ->
+    dispatch_log(Severity, Metadata, Format, Args, Size).
+
+%% backwards compatible with beams compiled with lager 2.x
+dispatch_log(Severity, Metadata, Format, Args, Size) ->
+    dispatch_log(?DEFAULT_SINK, Severity, Metadata, Format, Args, Size, safe).
+
+%% backwards compatible with beams compiled with lager 2.x
+do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt, LevelThreshold, TraceFilters, SinkPid) ->
+    do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt,
+           LevelThreshold, TraceFilters, ?DEFAULT_SINK, SinkPid).
+
+
+%% TODO:
+%% Consider making log2/4 that takes the Level, Pid and Message params of log/3
+%% along with a Sink param??
+
+%% @doc Manually log a message into lager without using the parse transform.
+-spec log(log_level(), pid() | atom() | [tuple(),...], list()) -> ok | {error, lager_not_running}.
+log(Level, Pid, Message) when is_pid(Pid); is_atom(Pid) ->
+    dispatch_log(Level, [{pid,Pid}], Message, [], ?DEFAULT_TRUNCATION);
+log(Level, Metadata, Message) when is_list(Metadata) ->

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_app.erl Added

@@ -0,0 +1,426 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Lager's application module. Not a lot to see here.
+
+%% @private
+
+-module(lager_app).
+
+-behaviour(application).
+-include("lager.hrl").
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+-export([start/0,
+ start/2,
+ start_handler/3,
+ configure_sink/2,
+ stop/1,
+ boot/1]).
+
+%% The `application:get_env/3` compatibility wrapper was useful
+%% for other modules in r15 and before
+-export([get_env/3]).
+
+-define(FILENAMES, '__lager_file_backend_filenames').
+-define(THROTTLE, lager_backend_throttle).
+-define(DEFAULT_HANDLER_CONF,
+ [{lager_console_backend, [{level, info}]},
+ {lager_file_backend,
+ [{file, "error.log"}, {level, error},
+ {size, 10485760}, {date, "$D0"}, {count, 5}]
+ },
+ {lager_file_backend,
+ [{file, "console.log"}, {level, info},
+ {size, 10485760}, {date, "$D0"}, {count, 5}]
+ }
+ ]).
+
+start() ->
+ application:start(lager).
+
+start_throttle(Sink, Threshold, Window) ->
+ _ = supervisor:start_child(lager_handler_watcher_sup,
+ [Sink, ?THROTTLE, [Threshold, Window]]),
+ ok.
+
+determine_async_behavior(_Sink, undefined, _Window) ->
+ ok;
+determine_async_behavior(_Sink, Threshold, _Window) when not is_integer(Threshold) orelse Threshold < 0 ->
+ error_logger:error_msg("Invalid value for 'async_threshold': ~p~n",
+ [Threshold]),
+ throw({error, bad_config});
+determine_async_behavior(Sink, Threshold, undefined) ->
+ start_throttle(Sink, Threshold, erlang:trunc(Threshold * 0.2));
+determine_async_behavior(_Sink, Threshold, Window) when not is_integer(Window) orelse Window > Threshold orelse Window < 0 ->
+ error_logger:error_msg(
+ "Invalid value for 'async_threshold_window': ~p~n", [Window]),
+ throw({error, bad_config});
+determine_async_behavior(Sink, Threshold, Window) ->
+ start_throttle(Sink, Threshold, Window).
+
+start_handlers(_Sink, undefined) ->
+ ok;
+start_handlers(_Sink, Handlers) when not is_list(Handlers) ->
+ error_logger:error_msg(
+ "Invalid value for 'handlers' (must be list): ~p~n", [Handlers]),
+ throw({error, bad_config});
+start_handlers(Sink, Handlers) ->
+ %% handlers failing to start are handled in the handler_watcher
+ lager_config:global_set(handlers,
+ lager_config:global_get(handlers, []) ++
+ lists:map(fun({Module, Config}) ->
+ check_handler_config(Module, Config),
+ start_handler(Sink, Module, Config);
+ (_) ->
+ throw({error, bad_config})
+ end,
+ expand_handlers(Handlers))),
+ ok.
+
+start_handler(Sink, Module, Config) ->
+ {ok, Watcher} = supervisor:start_child(lager_handler_watcher_sup,
+ [Sink, Module, Config]),
+ {Module, Watcher, Sink}.
+
+check_handler_config({lager_file_backend, F}, Config) when is_list(Config); is_tuple(Config) ->
+ Fs = case get(?FILENAMES) of
+ undefined -> ordsets:new();
+ X -> X
+ end,
+ case ordsets:is_element(F, Fs) of
+ true ->
+ error_logger:error_msg(
+ "Cannot have same file (~p) in multiple file backends~n", [F]),
+ throw({error, bad_config});
+ false ->
+ put(?FILENAMES,
+ ordsets:add_element(F, Fs))
+ end,
+ ok;
+check_handler_config(_Handler, Config) when is_list(Config) orelse is_atom(Config) ->
+ ok;
+check_handler_config(Handler, _BadConfig) ->
+ throw({error, {bad_config, Handler}}).
+
+clean_up_config_checks() ->
+ erase(?FILENAMES).
+
+interpret_hwm(undefined) ->
+ undefined;
+interpret_hwm(HWM) when not is_integer(HWM) orelse HWM < 0 ->
+ _ = lager:log(warning, self(), "Invalid error_logger high water mark: ~p, disabling", [HWM]),
+ undefined;
+interpret_hwm(HWM) ->
+ HWM.
+
+maybe_install_sink_killer(_Sink, undefined, _ReinstallTimer) -> ok;
+maybe_install_sink_killer(Sink, HWM, undefined) -> maybe_install_sink_killer(Sink, HWM, 5000);
+maybe_install_sink_killer(Sink, HWM, ReinstallTimer) when is_integer(HWM) andalso is_integer(ReinstallTimer)
+ andalso HWM >= 0 andalso ReinstallTimer >= 0 ->
+ _ = supervisor:start_child(lager_handler_watcher_sup, [Sink, lager_manager_killer,
+ [HWM, ReinstallTimer]]);
+maybe_install_sink_killer(_Sink, HWM, ReinstallTimer) ->
+ error_logger:error_msg("Invalid value for 'killer_hwm': ~p or 'killer_reinstall_after': ~p", [HWM, ReinstallTimer]),
+ throw({error, bad_config}).
+
+-spec start_error_logger_handler(boolean(), pos_integer(), list()) -> list().
+start_error_logger_handler(false, _HWM, _Whitelist) ->
+ [];
+start_error_logger_handler(true, HWM, WhiteList) ->
+ GlStrategy = case application:get_env(lager, error_logger_groupleader_strategy) of
+ undefined ->
+ handle;
+ {ok, GlStrategy0} when
+ GlStrategy0 =:= handle;
+ GlStrategy0 =:= ignore;
+ GlStrategy0 =:= mirror ->
+ GlStrategy0;
+ {ok, BadGlStrategy} ->
+ error_logger:error_msg(
+ "Invalid value for 'error_logger_groupleader_strategy': ~p~n",
+ [BadGlStrategy]),
+ throw({error, bad_config})
+ end,
+
+ case whereis(error_logger) of
+ undefined ->
+ %% On OTP 21 and above, error_logger is deprecated in favor of 'logger'
+ %% As a band-aid, boot up error_logger anyway and install it as a logger handler
+ %% we can't use error_logger:add_report_handler because we want supervision of the handler
+ %% so we have to manually add the logger handler
+ %%
+ %% Longer term we should be installing a logger handler instead, but this will bridge the gap
+ %% for now.
+ _ = error_logger:start(),
+ _ = logger:add_handler(error_logger,error_logger,#{level=>info,filter_default=>log}),
+ ok = maybe_remove_logger_handler();
+ _ ->
+ ok
+ end,
+
+ %% capture which handlers we removed from error_logger so we can restore them when lager stops
+ OldHandlers = case supervisor:start_child(lager_handler_watcher_sup, [error_logger, error_logger_lager_h, [HWM, GlStrategy]]) of
+ {ok, _} ->
+ [begin error_logger:delete_report_handler(X), X end ||
+ X <- gen_event:which_handlers(error_logger) -- [error_logger_lager_h | WhiteList]];
+ {error, _} ->
+ []
+ end,
+ OldHandlers.
+
+%% On OTP 21.1 and higher we need to remove the `default' handler.
+%% But it might not exist, so we will wrap this in a try-catch
+%% block
+maybe_remove_logger_handler() ->
+ try
+ ok = logger:remove_handler(default)
+ catch
+ error:undef -> ok;
+ Err:Reason ->
+ error_logger:error_msg("calling logger:remove_handler(default) failed: ~p ~p",
+ [Err, Reason])
+ end.
+
+configure_sink(Sink, SinkDef) ->

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_backend_throttle.erl Added

@@ -0,0 +1,105 @@
+%% Copyright (c) 2011-2013 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc A simple gen_event backend used to monitor mailbox size and
+%% switch log messages between synchronous and asynchronous modes.
+%% A gen_event handler is used because a process getting its own mailbox
+%% size doesn't involve getting a lock, and gen_event handlers run in their
+%% parent's process.
+
+-module(lager_backend_throttle).
+
+-include("lager.hrl").
+
+-behaviour(gen_event).
+
+-export([init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+ code_change/3]).
+
+%%
+%% Allow test code to verify that we're doing the needful.
+-ifdef(TEST).
+-define(ETS_TABLE, async_threshold_test).
+-define(TOGGLE_SYNC(), test_increment(sync_toggled)).
+-define(TOGGLE_ASYNC(), test_increment(async_toggled)).
+-else.
+-define(TOGGLE_SYNC(), true).
+-define(TOGGLE_ASYNC(), true).
+-endif.
+
+-record(state, {
+ sink :: atom(),
+ hwm :: non_neg_integer(),
+ window_min :: non_neg_integer(),
+ async = true :: boolean()
+ }).
+
+init([{sink, Sink}, Hwm, Window]) ->
+ lager_config:set({Sink, async}, true),
+ {ok, #state{sink=Sink, hwm=Hwm, window_min=Hwm - Window}}.
+
+
+handle_call(get_loglevel, State) ->
+ {ok, {mask, ?LOG_NONE}, State};
+handle_call({set_loglevel, _Level}, State) ->
+ {ok, ok, State};
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+
+handle_event({log, _Message},State) ->
+ {message_queue_len, Len} = erlang:process_info(self(), message_queue_len),
+ case {Len > State#state.hwm, Len < State#state.window_min, State#state.async} of
+ {true, _, true} ->
+ %% need to flip to sync mode
+ ?TOGGLE_SYNC(),
+ lager_config:set({State#state.sink, async}, false),
+ {ok, State#state{async=false}};
+ {_, true, false} ->
+ %% need to flip to async mode
+ ?TOGGLE_ASYNC(),
+ lager_config:set({State#state.sink, async}, true),
+ {ok, State#state{async=true}};
+ _ ->
+ %% nothing needs to change
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+handle_info(_Info, State) ->
+ {ok, State}.
+
+%% @private
+terminate(_Reason, _State) ->
+ ok.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+-ifdef(TEST).
+test_get(Key) ->
+ get_default(ets:lookup(?ETS_TABLE, Key)).
+
+test_increment(Key) ->
+ ets:insert(?ETS_TABLE,
+ {Key, test_get(Key) + 1}).
+
+get_default([]) ->
+ 0;
+get_default([{_Key, Value}]) ->
+ Value.
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_common_test_backend.erl Added

@@ -0,0 +1,121 @@
+-module(lager_common_test_backend).
+
+-behavior(gen_event).
+
+%% gen_event callbacks
+-export([init/1,
+         handle_call/2,
+         handle_event/2,
+         handle_info/2,
+         terminate/2,
+         code_change/3]).
+-export([get_logs/0,
+        bounce/0,
+        bounce/1]).
+
+%% holds the log messages for retreival on terminate
+-record(state, {level :: {mask, integer()},
+                formatter :: atom(),
+                format_config :: any(),
+                log = [] :: list()}).
+
+-include("lager.hrl").
+-define(TERSE_FORMAT,[time, " ", color, "[", severity,"] ", message]).
+
+%% @doc Before every test, just
+%% lager_common_test_backend:bounce(Level) with the log level of your
+%% choice. Every message will be passed along to ct:pal for your
+%% viewing in the common_test reports. Also, you can call
+%% lager_common_test_backend:get_logs/0 to get a list of all log
+%% messages this backend has received during your test. You can then
+%% search that list for expected log messages.
+
+
+-spec get_logs() -> [iolist()] | {error, term()}.
+get_logs() ->
+    gen_event:call(lager_event, ?MODULE, get_logs, infinity).
+
+bounce() ->
+    bounce(error).
+
+bounce(Level) ->
+    _ = application:stop(lager),
+    application:set_env(lager, suppress_application_start_stop, true),
+    application:set_env(lager, handlers,
+                        [
+                         {lager_common_test_backend, [Level, false]}
+                        ]),
+    ok = lager:start(),
+    %% we care more about getting all of our messages here than being
+    %% careful with the amount of memory that we're using.
+    error_logger_lager_h:set_high_water(100000),
+    ok.
+
+-spec(init(integer()|atom()|[term()]) -> {ok, #state{}} | {error, atom()}).
+%% @private
+%% @doc Initializes the event handler
+init([Level, true]) -> % for backwards compatibility
+    init([Level,{lager_default_formatter,[{eol, "\n"}]}]);
+init([Level,false]) -> % for backwards compatibility
+    init([Level,{lager_default_formatter,?TERSE_FORMAT ++ ["\n"]}]);
+init([Level,{Formatter,FormatterConfig}]) when is_atom(Formatter) ->
+    case lists:member(Level, ?LEVELS) of
+        true ->
+            {ok, #state{level=lager_util:config_to_mask(Level),
+                    formatter=Formatter,
+                    format_config=FormatterConfig}};
+        _ ->
+            {error, bad_log_level}
+    end;
+init(Level) ->
+    init([Level,{lager_default_formatter,?TERSE_FORMAT ++ ["\n"]}]).
+
+-spec(handle_event(tuple(), #state{}) -> {ok, #state{}}).
+%% @private
+handle_event({log, Message},
+    #state{level=L,formatter=Formatter,format_config=FormatConfig,log=Logs} = State) ->
+    case lager_util:is_loggable(Message,L,?MODULE) of
+        true ->
+            Log = Formatter:format(Message,FormatConfig),
+            ct:pal(Log),
+            {ok, State#state{log=[Log|Logs]}};
+        false ->
+            {ok, State}
+    end;
+handle_event(Event, State) ->
+    ct:pal(Event),
+    {ok, State#state{log = [Event|State#state.log]}}.
+
+-spec(handle_call(any(), #state{}) -> {ok, any(), #state{}}).
+%% @private
+%% @doc gets and sets loglevel. This is part of the lager backend api.
+handle_call(get_loglevel, #state{level=Level} = State) ->
+    {ok, Level, State};
+handle_call({set_loglevel, Level}, State) ->
+    case lists:member(Level, ?LEVELS) of
+        true ->
+            {ok, ok, State#state{level=lager_util:config_to_mask(Level)}};
+        _ ->
+            {ok, {error, bad_log_level}, State}
+    end;
+handle_call(get_logs, #state{log = Logs} = State) ->
+    {ok, lists:reverse(Logs), State};
+handle_call(_, State) ->
+    {ok, ok, State}.
+
+-spec(handle_info(any(), #state{}) -> {ok, #state{}}).
+%% @private
+%% @doc gen_event callback, does nothing.
+handle_info(_, State) ->
+    {ok, State}.
+
+-spec(code_change(any(), #state{}, any()) -> {ok, #state{}}).
+%% @private
+%% @doc gen_event callback, does nothing.
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+-spec(terminate(any(), #state{}) -> {ok, list()}).
+%% @doc gen_event callback, does nothing.
+terminate(_Reason, #state{log=Logs}) ->
+    {ok, lists:reverse(Logs)}.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_config.erl Added

@@ -0,0 +1,136 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Helper functions for working with lager's runtime config
+
+-module(lager_config).
+
+-include("lager.hrl").
+
+-export([new/0, new_sink/1, get/1, get/2, set/2,
+ global_get/1, global_get/2, global_set/2, cleanup/0]).
+
+-define(TBL, lager_config).
+-define(GLOBAL, '_global').
+
+%% For multiple sinks, the key is now the registered event name and the old key
+%% as a tuple.
+%%
+%% {{lager_event, loglevel}, Value} instead of {loglevel, Value}
+
+new() ->
+ init(),
+ new_sink(?DEFAULT_SINK),
+ %% Need to be able to find the `lager_handler_watcher' for all handlers
+ insert_new({?GLOBAL, handlers}, []),
+ ok.
+
+new_sink(Sink) ->
+ %% use insert_new here so that if we're in an appup we don't mess anything up
+ %%
+ %% until lager is completely started, allow all messages to go through
+ insert_new({Sink, loglevel}, {element(2, lager_util:config_to_mask(debug)), []}).
+
+global_get(Key) ->
+ global_get(Key, undefined).
+
+global_get(Key, Default) ->
+ get({?GLOBAL, Key}, Default).
+
+global_set(Key, Value) ->
+ set({?GLOBAL, Key}, Value).
+
+
+get({_Sink, _Key}=FullKey) ->
+ get(FullKey, undefined);
+get(Key) ->
+ get({?DEFAULT_SINK, Key}, undefined).
+
+get({Sink, Key}, Default) ->
+ lookup({Sink, Key}, Default);
+get(Key, Default) ->
+ get({?DEFAULT_SINK, Key}, Default).
+
+set({Sink, Key}, Value) ->
+ insert({Sink, Key}, Value);
+set(Key, Value) ->
+ set({?DEFAULT_SINK, Key}, Value).
+
+%% check if we can use persistent_term for config
+%% persistent term was added in OTP 21.2 but we can't
+%% check minor versions with macros so we're stuck waiting
+%% for OTP 22
+-ifdef(HAVE_PERSISTENT_TERM).
+init() ->
+ ok.
+
+insert(Key, Value) ->
+ persistent_term:put({?TBL, Key}, Value).
+
+insert_new(Key, Value) ->
+ try persistent_term:get({?TBL, Key}) of
+ _Value ->
+ false
+ catch error:badarg ->
+ insert(Key, Value),
+ true
+ end.
+
+lookup(Key, Default) ->
+ try persistent_term:get({?TBL, Key}) of
+ Value -> Value
+ catch
+ error:badarg ->
+ Default
+ end.
+
+cleanup() ->
+ [ persistent_term:erase(K) || {{?TBL, _} = K, _} <- persistent_term:get() ].
+
+-else.
+
+init() ->
+ %% set up the ETS configuration table
+ _ = try ets:new(?TBL, [named_table, public, set, {keypos, 1}, {read_concurrency, true}]) of
+ _Result ->
+ ok
+ catch
+ error:badarg ->
+ ?INT_LOG(warning, "Table ~p already exists", [?TBL])
+ end.
+
+insert(Key, Value) ->
+ ets:insert(?TBL, {Key, Value}).
+
+insert_new(Key, Value) ->
+ ets:insert_new(?TBL, {Key, Value}).
+
+lookup(Key, Default) ->
+ try
+ case ets:lookup(?TBL, Key) of
+ [] ->
+ Default;
+ [{Key, Res}] ->
+ Res
+ end
+ catch
+ _:_ ->
+ Default
+ end.
+
+cleanup() -> ok.
+-endif.
+

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_console_backend.erl Added

@@ -0,0 +1,604 @@
+%% Copyright (c) 2011-2012, 2014 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Console backend for lager.
+%% Configuration is a proplist with the following keys:
+%% <ul>
+%% <li>`level' - log level to use</li>
+%% <li>`use_stderr' - either `true' or `false', defaults to false. If set to true,
+%% use standard error to output console log messages</li>
+%% <li>`formatter' - the module to use when formatting log messages. Defaults to
+%% `lager_default_formatter'</li>
+%% <li>`formatter_config' - the format configuration string. Defaults to
+%% `time [ severity ] message'</li>
+%% </ul>
+
+-module(lager_console_backend).
+
+-behaviour(gen_event).
+
+-export([init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+ code_change/3]).
+
+-record(state, {level :: {'mask', integer()},
+ out = user :: user | standard_error | pid(),
+ id :: atom() | {atom(), any()},
+ formatter :: atom(),
+ format_config :: any(),
+ colors=[] :: list()}).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-compile([{parse_transform, lager_transform}]).
+-endif.
+
+
+-include("lager.hrl").
+
+-define(TERSE_FORMAT,[time, " ", color, "[", severity,"] ", message]).
+-define(DEFAULT_FORMAT_CONFIG, ?TERSE_FORMAT ++ [eol()]).
+-define(FORMAT_CONFIG_OFF, [{eol, eol()}]).
+
+-ifdef(TEST).
+-define(DEPRECATED(_Msg), ok).
+-else.
+-define(DEPRECATED(Msg),
+ io:format(user, "WARNING: This is a deprecated console configuration. Please use \"~w\" instead.~n", [Msg])).
+-endif.
+
+%% @private
+init([Level]) when is_atom(Level) ->
+ ?DEPRECATED([{level, Level}]),
+ init([{level, Level}]);
+init([Level, true]) when is_atom(Level) -> % for backwards compatibility
+ ?DEPRECATED([{level, Level}, {formatter_config, [{eol, "\\r\\n\\"}]}]),
+ init([{level, Level}, {formatter_config, ?FORMAT_CONFIG_OFF}]);
+init([Level, false]) when is_atom(Level) -> % for backwards compatibility
+ ?DEPRECATED([{level, Level}]),
+ init([{level, Level}]);
+
+init(Options) when is_list(Options) ->
+ true = validate_options(Options),
+ Colors = case application:get_env(lager, colored) of
+ {ok, true} ->
+ {ok, LagerColors} = application:get_env(lager, colors),
+ LagerColors;
+ _ -> []
+ end,
+
+ Level = get_option(level, Options, undefined),
+ try {is_new_style_console_available(), lager_util:config_to_mask(Level)} of
+ {false, _} ->
+ Msg = "Lager's console backend is incompatible with the 'old' shell, not enabling it",
+ %% be as noisy as possible, log to every possible place
+ try
+ alarm_handler:set_alarm({?MODULE, "WARNING: " ++ Msg})
+ catch
+ _:_ ->
+ error_logger:warning_msg(Msg ++ "~n")
+ end,
+ io:format("WARNING: " ++ Msg ++ "~n"),
+ ?INT_LOG(warning, Msg, []),
+ {error, {fatal, old_shell}};
+ {true, L} ->
+ [UseErr, GroupLeader, ID, Formatter, Config] = [ get_option(K, Options, Default) || {K, Default} <- [
+ {use_stderr, false},
+ {group_leader, false},
+ {id, ?MODULE},
+ {formatter, lager_default_formatter},
+ {formatter_config, ?DEFAULT_FORMAT_CONFIG}
+ ]
+ ],
+ Out = case UseErr of
+ false ->
+ case GroupLeader of
+ false -> user;
+ GLPid when is_pid(GLPid) ->
+ erlang:monitor(process, GLPid),
+ GLPid
+ end;
+ true -> standard_error
+ end,
+ {ok, #state{level=L,
+ id=ID,
+ out=Out,
+ formatter=Formatter,
+ format_config=Config,
+ colors=Colors}}
+ catch
+ _:_ ->
+ {error, {fatal, bad_log_level}}
+ end;
+init(Level) when is_atom(Level) ->
+ ?DEPRECATED([{level, Level}]),
+ init([{level, Level}]);
+init(Other) ->
+ {error, {fatal, {bad_console_config, Other}}}.
+
+validate_options([]) -> true;
+validate_options([{level, L}|T]) when is_atom(L) ->
+ case lists:member(L, ?LEVELS) of
+ false ->
+ throw({error, {fatal, {bad_level, L}}});
+ true ->
+ validate_options(T)
+ end;
+validate_options([{use_stderr, true}|T]) ->
+ validate_options(T);
+validate_options([{use_stderr, false}|T]) ->
+ validate_options(T);
+validate_options([{formatter, M}|T]) when is_atom(M) ->
+ validate_options(T);
+validate_options([{formatter_config, C}|T]) when is_list(C) ->
+ validate_options(T);
+validate_options([{group_leader, L}|T]) when is_pid(L) ->
+ validate_options(T);
+validate_options([{id, {?MODULE, _}}|T]) ->
+ validate_options(T);
+validate_options([H|_]) ->
+ throw({error, {fatal, {bad_console_config, H}}}).
+
+get_option(K, Options, Default) ->
+ case lists:keyfind(K, 1, Options) of
+ {K, V} -> V;
+ false -> Default
+ end.
+
+%% @private
+handle_call(get_loglevel, #state{level=Level} = State) ->
+ {ok, Level, State};
+handle_call({set_loglevel, Level}, State) ->
+ try lager_util:config_to_mask(Level) of
+ Levels ->
+ {ok, ok, State#state{level=Levels}}
+ catch
+ _:_ ->
+ {ok, {error, bad_log_level}, State}
+ end;
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+
+%% @private
+handle_event({log, Message},
+ #state{level=L,out=Out,formatter=Formatter,format_config=FormatConfig,colors=Colors,id=ID} = State) ->
+ case lager_util:is_loggable(Message, L, ID) of
+ true ->
+ io:put_chars(Out, Formatter:format(Message,FormatConfig,Colors)),
+ {ok, State};
+ false ->
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+%% @private
+handle_info({'DOWN', _, process, Out, _}, #state{out=Out}) ->
+ remove_handler;
+handle_info(_Info, State) ->
+ {ok, State}.
+
+%% @private
+terminate(remove_handler, _State=#state{id=ID}) ->
+ %% have to do this asynchronously because we're in the event handlr
+ spawn(fun() -> lager:clear_trace_by_destination(ID) end),
+ ok;
+terminate(_Reason, _State) ->
+ ok.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_crash_log.erl Added

@@ -0,0 +1,382 @@
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2011-2017 Basho Technologies, Inc.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+%%
+%% -------------------------------------------------------------------
+
+%% @doc Lager crash log writer. This module implements a gen_server which writes
+%% error_logger error messages out to a file in their original format. The
+%% location to which it logs is configured by the application var `crash_log'.
+%% Omitting this variable disables crash logging. Crash logs are printed safely
+%% using trunc_io via code mostly lifted from riak_err.
+%%
+%% The `crash_log_msg_size' application var is used to specify the maximum
+%% size of any message to be logged. `crash_log_size' is used to specify the
+%% maximum size of the crash log before it will be rotated (0 will disable).
+%% Time based rotation is configurable via `crash_log_date', the syntax is
+%% documented in the README. To control the number of rotated files to be
+%% retained, use `crash_log_count'.
+
+-module(lager_crash_log).
+
+-include("lager.hrl").
+
+-behaviour(gen_server).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-include_lib("kernel/include/file.hrl").
+-endif.
+
+%% callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2,
+ code_change/3]).
+
+-export([start_link/6, start/6]).
+
+-record(state, {
+ name :: string(),
+ fd :: pid() | undefined,
+ inode :: integer() | undefined,
+ ctime :: file:date_time() | undefined,
+ fmtmaxbytes :: integer(),
+ size :: integer(),
+ date :: undefined | string(),
+ count :: integer(),
+ flap=false :: boolean(),
+ rotator :: atom()
+}).
+
+%% @private
+start_link(Filename, MaxBytes, Size, Date, Count, Rotator) ->
+ gen_server:start_link({local, ?MODULE}, ?MODULE, [Filename, MaxBytes,
+ Size, Date, Count, Rotator], []).
+
+%% @private
+start(Filename, MaxBytes, Size, Date, Count, Rotator) ->
+ gen_server:start({local, ?MODULE}, ?MODULE, [Filename, MaxBytes, Size,
+ Date, Count, Rotator], []).
+
+%% @private
+init([RelFilename, MaxBytes, Size, Date, Count, Rotator]) ->
+ Filename = lager_util:expand_path(RelFilename),
+ case Rotator:open_logfile(Filename, false) of
+ {ok, {FD, Inode, Ctime, _Size}} ->
+ schedule_rotation(Date),
+ {ok, #state{name=Filename, fd=FD, inode=Inode, ctime=Ctime,
+ fmtmaxbytes=MaxBytes, size=Size, count=Count, date=Date,
+ rotator=Rotator}};
+ {error, Reason} ->
+ ?INT_LOG(error, "Failed to open crash log file ~ts with error: ~s",
+ [Filename, file:format_error(Reason)]),
+ {ok, #state{name=Filename, fmtmaxbytes=MaxBytes, flap=true,
+ size=Size, count=Count, date=Date, rotator=Rotator}}
+ end.
+
+%% @private
+handle_call({log, _} = Log, _From, State) ->
+ {Reply, NewState} = do_log(Log, State),
+ {reply, Reply, NewState};
+handle_call(_Call, _From, State) ->
+ {reply, ok, State}.
+
+%% @private
+handle_cast({log, _} = Log, State) ->
+ {_, NewState} = do_log(Log, State),
+ {noreply, NewState};
+handle_cast(_Request, State) ->
+ {noreply, State}.
+
+%% @private
+handle_info(rotate, #state{name=Name, count=Count, date=Date, rotator=Rotator} = State) ->
+ _ = Rotator:rotate_logfile(Name, Count),
+ schedule_rotation(Date),
+ {noreply, State};
+handle_info(_Info, State) ->
+ {noreply, State}.
+
+%% @private
+terminate(_Reason, _State) ->
+ ok.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+schedule_rotation(undefined) ->
+ ok;
+schedule_rotation(Date) ->
+ erlang:send_after(lager_util:calculate_next_rotation(Date) * 1000, self(), rotate),
+ ok.
+
+%% ===== Begin code lifted from riak_err =====
+
+-spec limited_fmt(string(), list(), integer()) -> iolist().
+%% @doc Format Fmt and Args similar to what io_lib:format/2 does but with
+%% limits on how large the formatted string may be.
+%%
+%% If the Args list's size is larger than TermMaxSize, then the
+%% formatting is done by trunc_io:print/2, where FmtMaxBytes is used
+%% to limit the formatted string's size.
+
+limited_fmt(Fmt, Args, FmtMaxBytes) ->
+ lager:safe_format(Fmt, Args, FmtMaxBytes).
+
+limited_str(Term, FmtMaxBytes) ->
+ {Str, _} = lager_trunc_io:print(Term, FmtMaxBytes),
+ Str.
+
+other_node_suffix(Pid) when node(Pid) =/= node() ->
+ "** at node " ++ atom_to_list(node(Pid)) ++ " **\n";
+other_node_suffix(_) ->
+ "".
+
+perhaps_a_sasl_report(error_report, {Pid, Type, Report}, FmtMaxBytes) ->
+ case lager_stdlib:is_my_error_report(Type) of
+ true ->
+ {sasl_type_to_report_head(Type), Pid,
+ sasl_limited_str(Type, Report, FmtMaxBytes), true};
+ false ->
+ {ignore, ignore, ignore, false}
+ end;
+%perhaps_a_sasl_report(info_report, {Pid, Type, Report}, FmtMaxBytes) ->
+ %case lager_stdlib:is_my_info_report(Type) of
+ %true ->
+ %{sasl_type_to_report_head(Type), Pid,
+ %sasl_limited_str(Type, Report, FmtMaxBytes), false};
+ %false ->
+ %{ignore, ignore, ignore, false}
+ %end;
+perhaps_a_sasl_report(_, _, _) ->
+ {ignore, ignore, ignore, false}.
+
+sasl_type_to_report_head(supervisor_report) ->
+ "SUPERVISOR REPORT";
+sasl_type_to_report_head(crash_report) ->
+ "CRASH REPORT";
+sasl_type_to_report_head(progress) ->
+ "PROGRESS REPORT".
+
+sasl_limited_str(supervisor_report, Report, FmtMaxBytes) ->
+ Name = lager_stdlib:sup_get(supervisor, Report),
+ Context = lager_stdlib:sup_get(errorContext, Report),
+ Reason = lager_stdlib:sup_get(reason, Report),
+ Offender = lager_stdlib:sup_get(offender, Report),
+ FmtString = " Supervisor: ~p~n Context: ~p~n Reason: "
+ "~s~n Offender: ~s~n~n",
+ {ReasonStr, _} = lager_trunc_io:print(Reason, FmtMaxBytes),
+ {OffenderStr, _} = lager_trunc_io:print(Offender, FmtMaxBytes),
+ io_lib:format(FmtString, [Name, Context, ReasonStr, OffenderStr]);
+sasl_limited_str(progress, Report, FmtMaxBytes) ->
+ [begin
+ {Str, _} = lager_trunc_io:print(Data, FmtMaxBytes),
+ io_lib:format(" ~16w: ~s~n", [Tag, Str])
+ end || {Tag, Data} <- Report];
+sasl_limited_str(crash_report, Report, FmtMaxBytes) ->
+ lager_stdlib:proc_lib_format(Report, FmtMaxBytes).
+
+do_log({log, Event}, #state{name=Name, fd=FD, inode=Inode, ctime=Ctime, flap=Flap,
+ fmtmaxbytes=FmtMaxBytes, size=RotSize, count=Count, rotator=Rotator} = State) ->
+ %% borrowed from riak_err
+ {ReportStr, Pid, MsgStr, _ErrorP} = case Event of
+ {error, _GL, {Pid1, Fmt, Args}} ->
+ {"ERROR REPORT", Pid1, limited_fmt(Fmt, Args, FmtMaxBytes), true};
+ {error_report, _GL, {Pid1, std_error, Rep}} ->
+ {"ERROR REPORT", Pid1, limited_str(Rep, FmtMaxBytes) ++ "\n", true};

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_default_formatter.erl Added

@@ -0,0 +1,571 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+-module(lager_default_formatter).
+
+%%
+%% Include files
+%%
+-include("lager.hrl").
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+%%
+%% Exported Functions
+%%
+-export([format/2, format/3]).
+
+%%
+%% API Functions
+%%
+
+%% @doc Provides a generic, default formatting for log messages using a semi-iolist as configuration. Any iolist allowed
+%% elements in the configuration are printed verbatim. Atoms in the configuration are treated as metadata properties
+%% and extracted from the log message. Optionally, a tuple of {atom(),semi-iolist()} can be used. The atom will look
+%% up the property, but if not found it will use the semi-iolist() instead. These fallbacks can be similarly nested
+%% or refer to other properties, if desired. You can also use a {atom, semi-iolist(), semi-iolist()} formatter, which
+%% acts like a ternary operator's true/false branches.
+%%
+%% The metadata properties date,time, message, severity, and sev will always exist. 
+%% The properties pid, file, line, module, and function will always exist if the parser transform is used.
+%%
+%% Example:
+%%
+%% `["Foo"]' -> "Foo", regardless of message content.
+%%
+%% `[message]' -> The content of the logged message, alone.
+%%
+%% `[{pid,"Unknown Pid"}]' -> "?.?.?" if pid is in the metadata, "Unknown Pid" if not.
+%%
+%% `[{pid, ["My pid is ", pid], ["Unknown Pid"]}]' -> if pid is in the metada print "My pid is ?.?.?", otherwise print "Unknown Pid"
+%% @end
+-spec format(lager_msg:lager_msg(),list(),list()) -> any().
+format(Msg,[], Colors) ->
+ format(Msg, [{eol, "\n"}], Colors);
+format(Msg,[{eol, EOL}], Colors) ->
+ Config = case application:get_env(lager, metadata_whitelist) of
+ undefined -> config(EOL, []);
+ {ok, Whitelist} -> config(EOL, Whitelist)
+ end,
+ format(Msg, Config, Colors);
+format(Message,Config,Colors) ->
+ [ case V of
+ color -> output_color(Message,Colors);
+ _ -> output(V,Message) 
+ end || V <- Config ].
+
+-spec format(lager_msg:lager_msg(),list()) -> any().
+format(Msg, Config) ->
+ format(Msg, Config, []).
+
+-spec output(term(),lager_msg:lager_msg()) -> iolist().
+output(message,Msg) -> lager_msg:message(Msg);
+output(date,Msg) ->
+ {D, _T} = lager_msg:datetime(Msg),
+ D;
+output(time,Msg) ->
+ {_D, T} = lager_msg:datetime(Msg),
+ T;
+output(severity,Msg) ->
+ atom_to_list(lager_msg:severity(Msg));
+output(severity_upper, Msg) ->
+ uppercase_severity(lager_msg:severity(Msg));
+output(blank,_Msg) ->
+ output({blank," "},_Msg);
+output(node, _Msg) ->
+ output({node, atom_to_list(node())},_Msg);
+output({blank,Fill},_Msg) ->
+ Fill;
+output(sev,Msg) ->
+ %% Write brief acronym for the severity level (e.g. debug -> $D)
+ [lager_util:level_to_chr(lager_msg:severity(Msg))];
+output(metadata, Msg) ->
+ output({metadata, "=", " "}, Msg);
+output({metadata, IntSep, FieldSep}, Msg) ->
+ MD = lists:keysort(1, lager_msg:metadata(Msg)),
+ string:join([io_lib:format("~s~s~p", [K, IntSep, V]) || {K, V} <- MD], FieldSep);
+output({pterm, Key}, Msg) ->
+ output({pterm, Key, ""}, Msg);
+output({pterm, Key, Default}, _Msg) ->
+ make_printable(maybe_get_persistent_term(Key, Default));
+output(Prop,Msg) when is_atom(Prop) ->
+ Metadata = lager_msg:metadata(Msg),
+ make_printable(get_metadata(Prop,Metadata,<<"Undefined">>));
+output({Prop,Default},Msg) when is_atom(Prop) ->
+ Metadata = lager_msg:metadata(Msg),
+ make_printable(get_metadata(Prop,Metadata,output(Default,Msg)));
+output({Prop, Present, Absent}, Msg) when is_atom(Prop) ->
+ %% sort of like a poor man's ternary operator
+ Metadata = lager_msg:metadata(Msg),
+ case get_metadata(Prop, Metadata) of
+ undefined ->
+ [ output(V, Msg) || V <- Absent];
+ _ ->
+ [ output(V, Msg) || V <- Present]
+ end;
+output({Prop, Present, Absent, Width}, Msg) when is_atom(Prop) ->
+ %% sort of like a poor man's ternary operator
+ Metadata = lager_msg:metadata(Msg),
+ case get_metadata(Prop, Metadata) of
+ undefined ->
+ [ output(V, Msg, Width) || V <- Absent];
+ _ ->
+ [ output(V, Msg, Width) || V <- Present]
+ end;
+output(Other,_) -> make_printable(Other).
+
+output(message, Msg, _Width) -> lager_msg:message(Msg);
+output(date,Msg, _Width) ->
+ {D, _T} = lager_msg:datetime(Msg),
+ D;
+output(time, Msg, _Width) ->
+ {_D, T} = lager_msg:datetime(Msg),
+ T;
+output(severity, Msg, Width) ->
+ make_printable(atom_to_list(lager_msg:severity(Msg)), Width);
+output(sev,Msg, _Width) ->
+ %% Write brief acronym for the severity level (e.g. debug -> $D)
+ [lager_util:level_to_chr(lager_msg:severity(Msg))];
+output(node, Msg, _Width) ->
+ output({node, atom_to_list(node())}, Msg, _Width);
+output(blank,_Msg, _Width) ->
+ output({blank, " "},_Msg, _Width);
+output({blank, Fill},_Msg, _Width) ->
+ Fill;
+output(metadata, Msg, _Width) ->
+ output({metadata, "=", " "}, Msg, _Width);
+output({metadata, IntSep, FieldSep}, Msg, _Width) ->
+ MD = lists:keysort(1, lager_msg:metadata(Msg)),
+ [string:join([io_lib:format("~s~s~p", [K, IntSep, V]) || {K, V} <- MD], FieldSep)];
+output({pterm, Key}, Msg, Width) ->
+ output({pterm, Key, ""}, Msg, Width);
+output({pterm, Key, Default}, _Msg, _Width) ->
+ make_printable(maybe_get_persistent_term(Key, Default));
+
+output(Prop, Msg, Width) when is_atom(Prop) ->
+ Metadata = lager_msg:metadata(Msg),
+ make_printable(get_metadata(Prop,Metadata,<<"Undefined">>), Width);
+output({Prop,Default},Msg, Width) when is_atom(Prop) ->
+ Metadata = lager_msg:metadata(Msg),
+ make_printable(get_metadata(Prop,Metadata,output(Default,Msg)), Width);
+output(Other,_, Width) -> make_printable(Other, Width).
+
+output_color(_Msg,[]) -> [];
+output_color(Msg,Colors) ->
+ Level = lager_msg:severity(Msg),
+ case lists:keyfind(Level, 1, Colors) of
+ {_, Color} -> Color;
+ _ -> []
+ end.
+
+-spec make_printable(any()) -> iolist().
+make_printable(A) when is_atom(A) -> atom_to_list(A);
+make_printable(P) when is_pid(P) -> pid_to_list(P);
+make_printable(L) when is_list(L) orelse is_binary(L) -> L; 
+make_printable(Other) -> io_lib:format("~p",[Other]).
+
+make_printable(A,W) when is_integer(W)-> string:left(make_printable(A),W);
+make_printable(A,{Align,W}) when is_integer(W) ->
+ case Align of
+ left ->
+ string:left(make_printable(A),W);
+ centre ->
+ string:centre(make_printable(A),W);
+ right ->
+ string:right(make_printable(A),W);
+ _ ->
+ string:left(make_printable(A),W)
+ end;
+
+make_printable(A,_W) -> make_printable(A).
+
+%% persistent term was introduced in OTP 21.2, so
+%% if we're running on an older OTP, just return the
+%% default value.
+-ifdef(OTP_RELEASE).

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_file_backend.erl Added

@@ -0,0 +1,1194 @@
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2011-2017 Basho Technologies, Inc.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+%%
+%% -------------------------------------------------------------------
+
+%% @doc File backend for lager, with multiple file support.
+%% Multiple files are supported, each with the path and the loglevel being
+%% configurable. The configuration paramter for this backend is a list of
+%% key-value 2-tuples. See the init() function for the available options.
+%% This backend supports external and internal log
+%% rotation and will re-open handles to files if the inode changes. It will
+%% also rotate the files itself if the size of the file exceeds the
+%% `size' and keep `count' rotated files. `date' is
+%% an alternate rotation trigger, based on time. See the README for
+%% documentation.
+%% For performance, the file backend does delayed writes, although it will
+%% sync at specific log levels, configured via the `sync_on' option. By default
+%% the error level or above will trigger a sync.
+
+-module(lager_file_backend).
+
+-include("lager.hrl").
+-include_lib("kernel/include/file.hrl").
+
+-behaviour(gen_event).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-compile([{parse_transform, lager_transform}]).
+-endif.
+
+-export([init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+ code_change/3]).
+
+-export([config_to_id/1]).
+
+-define(DEFAULT_LOG_LEVEL, info).
+-define(DEFAULT_ROTATION_SIZE, 10485760). %% 10mb
+-define(DEFAULT_ROTATION_DATE, "$D0"). %% midnight
+-define(DEFAULT_ROTATION_COUNT, 5).
+-define(DEFAULT_ROTATION_MOD, lager_rotator_default).
+-define(DEFAULT_SYNC_LEVEL, error).
+-define(DEFAULT_SYNC_INTERVAL, 1000).
+-define(DEFAULT_SYNC_SIZE, 1024*64). %% 64kb
+-define(DEFAULT_CHECK_INTERVAL, 1000).
+
+-record(state, {
+ name :: string(),
+ level :: {'mask', integer()},
+ fd :: file:io_device() | undefined,
+ inode :: integer() | undefined,
+ ctime :: file:date_time() | undefined,
+ flap = false :: boolean(),
+ size = 0 :: integer(),
+ date :: undefined | string(),
+ count = 10 :: integer(),
+ rotator = lager_util :: atom(),
+ shaper :: lager_shaper(),
+ formatter :: atom(),
+ formatter_config :: any(),
+ sync_on :: {'mask', integer()},
+ check_interval = ?DEFAULT_CHECK_INTERVAL :: non_neg_integer(),
+ sync_interval = ?DEFAULT_SYNC_INTERVAL :: non_neg_integer(),
+ sync_size = ?DEFAULT_SYNC_SIZE :: non_neg_integer(),
+ last_check = os:timestamp() :: erlang:timestamp(),
+ os_type :: atom()
+ }).
+
+-type option() :: {file, string()} | {level, lager:log_level()} |
+ {size, non_neg_integer()} | {date, string()} |
+ {count, non_neg_integer()} | {rotator, atom()} |
+ {high_water_mark, non_neg_integer()} |
+ {flush_queue, boolean()} |
+ {flush_threshold, non_neg_integer()} |
+ {sync_interval, non_neg_integer()} |
+ {sync_size, non_neg_integer()} | {sync_on, lager:log_level()} |
+ {check_interval, non_neg_integer()} | {formatter, atom()} |
+ {formatter_config, term()}.
+
+-spec init([option(),...]) -> {ok, #state{}} | {error, {fatal,bad_config}}.
+init({FileName, LogLevel}) when is_list(FileName), is_atom(LogLevel) ->
+ %% backwards compatibility hack
+ init([{file, FileName}, {level, LogLevel}]);
+init({FileName, LogLevel, Size, Date, Count}) when is_list(FileName), is_atom(LogLevel) ->
+ %% backwards compatibility hack
+ init([{file, FileName}, {level, LogLevel}, {size, Size}, {date, Date}, {count, Count}]);
+init([{FileName, LogLevel, Size, Date, Count}, {Formatter,FormatterConfig}]) when is_list(FileName), is_atom(LogLevel), is_atom(Formatter) ->
+ %% backwards compatibility hack
+ init([{file, FileName}, {level, LogLevel}, {size, Size}, {date, Date}, {count, Count}, {formatter, Formatter}, {formatter_config, FormatterConfig}]);
+init([LogFile,{Formatter}]) ->
+ %% backwards compatibility hack
+ init([LogFile,{Formatter,[]}]);
+init([{FileName, LogLevel}, {Formatter,FormatterConfig}]) when is_list(FileName), is_atom(LogLevel), is_atom(Formatter) ->
+ %% backwards compatibility hack
+ init([{file, FileName}, {level, LogLevel}, {formatter, Formatter}, {formatter_config, FormatterConfig}]);
+init(LogFileConfig) when is_list(LogFileConfig) ->
+ case validate_logfile_proplist(LogFileConfig) of
+ false ->
+ %% falied to validate config
+ {error, {fatal, bad_config}};
+ Config ->
+ %% probabably a better way to do this, but whatever
+ [RelName, Level, Date, Size, Count, Rotator, HighWaterMark, Flush, SyncInterval, SyncSize, SyncOn, CheckInterval, Formatter, FormatterConfig] =
+ [proplists:get_value(Key, Config) || Key <- [file, level, date, size, count, rotator, high_water_mark, flush_queue, sync_interval, sync_size, sync_on, check_interval, formatter, formatter_config]],
+ FlushThr = proplists:get_value(flush_threshold, Config, 0),
+ Name = lager_util:expand_path(RelName),
+ schedule_rotation(Name, Date),
+ Shaper = lager_util:maybe_flush(Flush, #lager_shaper{hwm=HighWaterMark, flush_threshold = FlushThr, id=Name}),
+ State0 = #state{name=Name, level=Level, size=Size, date=Date, count=Count, rotator=Rotator,
+ shaper=Shaper, formatter=Formatter, formatter_config=FormatterConfig,
+ sync_on=SyncOn, sync_interval=SyncInterval, sync_size=SyncSize, check_interval=CheckInterval},
+ State = case Rotator:create_logfile(Name, {SyncSize, SyncInterval}) of
+ {ok, {FD, Inode, Ctime, _Size}} ->
+ State0#state{fd=FD, inode=Inode, ctime=Ctime};
+ {error, Reason} ->
+ ?INT_LOG(error, "Failed to open log file ~ts with error ~s", [Name, file:format_error(Reason)]),
+ State0#state{flap=true}
+ end,
+ {ok, State}
+ end.
+
+%% @private
+handle_call({set_loglevel, Level}, #state{name=Ident} = State) ->
+ case validate_loglevel(Level) of
+ false ->
+ {ok, {error, bad_loglevel}, State};
+ Levels ->
+ ?INT_LOG(notice, "Changed loglevel of ~s to ~p", [Ident, Level]),
+ {ok, ok, State#state{level=Levels}}
+ end;
+handle_call(get_loglevel, #state{level=Level} = State) ->
+ {ok, Level, State};
+handle_call({set_loghwm, Hwm}, #state{shaper=Shaper, name=Name} = State) ->
+ case validate_logfile_proplist([{file, Name}, {high_water_mark, Hwm}]) of
+ false ->
+ {ok, {error, bad_log_hwm}, State};
+ _ ->
+ NewShaper = Shaper#lager_shaper{hwm=Hwm},
+ ?INT_LOG(notice, "Changed loghwm of ~ts to ~p", [Name, Hwm]),
+ {ok, {last_loghwm, Shaper#lager_shaper.hwm}, State#state{shaper=NewShaper}}
+ end;
+handle_call(rotate, State = #state{name=File}) ->
+ {ok, NewState} = handle_info({rotate, File}, State),
+ {ok, ok, NewState};
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+
+%% @private
+handle_event({log, Message},
+ #state{name=Name, level=L, shaper=Shaper, formatter=Formatter,formatter_config=FormatConfig} = State) ->
+ case lager_util:is_loggable(Message,L,{lager_file_backend, Name}) of
+ true ->
+ case lager_util:check_hwm(Shaper) of
+ {true, Drop, #lager_shaper{hwm=Hwm} = NewShaper} ->
+ NewState = case Drop > 0 of
+ true ->
+ Report = io_lib:format(
+ "lager_file_backend dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
+ [Drop, Hwm]),
+ ReportMsg = lager_msg:new(Report, warning, [], []),
+ write(State, lager_msg:timestamp(ReportMsg),
+ lager_msg:severity_as_int(ReportMsg), Formatter:format(ReportMsg, FormatConfig));
+ false ->
+ State
+ end,
+ {ok,write(NewState#state{shaper=NewShaper},
+ lager_msg:timestamp(Message), lager_msg:severity_as_int(Message),
+ Formatter:format(Message,FormatConfig))};
+ {false, _, #lager_shaper{dropped=D} = NewShaper} ->
+ {ok, State#state{shaper=NewShaper#lager_shaper{dropped=D+1}}}
+ end;
+ false ->
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+%% @private
+handle_info({rotate, File}, #state{name=File, count=Count, date=Date, rotator=Rotator}=State0) ->
+ State1 = close_file(State0),
+ _ = Rotator:rotate_logfile(File, Count),
+ schedule_rotation(File, Date),
+ {ok, State1};
+handle_info({shaper_expired, Name}, #state{shaper=Shaper, name=Name, formatter=Formatter, formatter_config=FormatConfig} = State) ->

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_format.erl Added

@@ -0,0 +1,544 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1996-2011-2012. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+-module(lager_format).
+
+%% fork of io_lib_format that uses trunc_io to protect against large terms
+
+-export([format/3, format/4]).
+
+-record(options, {
+ chomp = false :: boolean()
+ }).
+
+format(FmtStr, Args, MaxLen) ->
+ format(FmtStr, Args, MaxLen, []).
+
+format([], [], _, _) ->
+ "";
+format(FmtStr, Args, MaxLen, Opts) when is_atom(FmtStr) ->
+ format(atom_to_list(FmtStr), Args, MaxLen, Opts);
+format(FmtStr, Args, MaxLen, Opts) when is_binary(FmtStr) ->
+ format(binary_to_list(FmtStr), Args, MaxLen, Opts);
+format(FmtStr, Args, MaxLen, Opts) when is_list(FmtStr) ->
+ case io_lib:deep_char_list(FmtStr) of
+ true ->
+ Options = make_options(Opts, #options{}),
+ Cs = collect(FmtStr, Args),
+ {Cs2, MaxLen2} = build(Cs, [], MaxLen, Options),
+ %% count how many terms remain
+ {Count, StrLen} = lists:foldl(
+ fun({_C, _As, _F, _Adj, _P, _Pad, _Enc}, {Terms, Chars}) ->
+ {Terms + 1, Chars};
+ (_, {Terms, Chars}) ->
+ {Terms, Chars + 1}
+ end, {0, 0}, Cs2),
+ build2(Cs2, Count, MaxLen2 - StrLen);
+ false ->
+ erlang:error(badarg)
+ end;
+format(_FmtStr, _Args, _MaxLen, _Opts) ->
+ erlang:error(badarg).
+
+collect([$~|Fmt0], Args0) ->
+ {C,Fmt1,Args1} = collect_cseq(Fmt0, Args0),
+ [C|collect(Fmt1, Args1)];
+collect([C|Fmt], Args) ->
+ [C|collect(Fmt, Args)];
+collect([], []) -> [].
+
+collect_cseq(Fmt0, Args0) ->
+ {F,Ad,Fmt1,Args1} = field_width(Fmt0, Args0),
+ {P,Fmt2,Args2} = precision(Fmt1, Args1),
+ {Pad,Fmt3,Args3} = pad_char(Fmt2, Args2),
+ {Encoding,Fmt4,Args4} = encoding(Fmt3, Args3),
+ {C,As,Fmt5,Args5} = collect_cc(Fmt4, Args4),
+ {{C,As,F,Ad,P,Pad,Encoding},Fmt5,Args5}.
+
+encoding([$t|Fmt],Args) ->
+ {unicode,Fmt,Args};
+encoding(Fmt,Args) ->
+ {latin1,Fmt,Args}.
+
+field_width([$-|Fmt0], Args0) ->
+ {F,Fmt,Args} = field_value(Fmt0, Args0),
+ field_width(-F, Fmt, Args);
+field_width(Fmt0, Args0) ->
+ {F,Fmt,Args} = field_value(Fmt0, Args0),
+ field_width(F, Fmt, Args).
+
+field_width(F, Fmt, Args) when F < 0 ->
+ {-F,left,Fmt,Args};
+field_width(F, Fmt, Args) when F >= 0 ->
+ {F,right,Fmt,Args}.
+
+precision([$.|Fmt], Args) ->
+ field_value(Fmt, Args);
+precision(Fmt, Args) ->
+ {none,Fmt,Args}.
+
+field_value([$*|Fmt], [A|Args]) when is_integer(A) ->
+ {A,Fmt,Args};
+field_value([C|Fmt], Args) when is_integer(C), C >= $0, C =< $9 ->
+ field_value([C|Fmt], Args, 0);
+field_value(Fmt, Args) ->
+ {none,Fmt,Args}.
+
+field_value([C|Fmt], Args, F) when is_integer(C), C >= $0, C =< $9 ->
+ field_value(Fmt, Args, 10*F + (C - $0));
+field_value(Fmt, Args, F) -> %Default case
+ {F,Fmt,Args}.
+
+pad_char([$.,$*|Fmt], [Pad|Args]) -> {Pad,Fmt,Args};
+pad_char([$.,Pad|Fmt], Args) -> {Pad,Fmt,Args};
+pad_char(Fmt, Args) -> {$\s,Fmt,Args}.
+
+%% collect_cc([FormatChar], [Argument]) ->
+%% {Control,[ControlArg],[FormatChar],[Arg]}.
+%% Here we collect the argments for each control character.
+%% Be explicit to cause failure early.
+
+collect_cc([$w|Fmt], [A|Args]) -> {$w,[A],Fmt,Args};
+collect_cc([$p|Fmt], [A|Args]) -> {$p,[A],Fmt,Args};
+collect_cc([$W|Fmt], [A,Depth|Args]) -> {$W,[A,Depth],Fmt,Args};
+collect_cc([$P|Fmt], [A,Depth|Args]) -> {$P,[A,Depth],Fmt,Args};
+collect_cc([$s|Fmt], [A|Args]) -> {$s,[A],Fmt,Args};
+collect_cc([$e|Fmt], [A|Args]) -> {$e,[A],Fmt,Args};
+collect_cc([$f|Fmt], [A|Args]) -> {$f,[A],Fmt,Args};
+collect_cc([$g|Fmt], [A|Args]) -> {$g,[A],Fmt,Args};
+collect_cc([$b|Fmt], [A|Args]) -> {$b,[A],Fmt,Args};
+collect_cc([$B|Fmt], [A|Args]) -> {$B,[A],Fmt,Args};
+collect_cc([$x|Fmt], [A,Prefix|Args]) -> {$x,[A,Prefix],Fmt,Args};
+collect_cc([$X|Fmt], [A,Prefix|Args]) -> {$X,[A,Prefix],Fmt,Args};
+collect_cc([$+|Fmt], [A|Args]) -> {$+,[A],Fmt,Args};
+collect_cc([$#|Fmt], [A|Args]) -> {$#,[A],Fmt,Args};
+collect_cc([$c|Fmt], [A|Args]) -> {$c,[A],Fmt,Args};
+collect_cc([$~|Fmt], Args) when is_list(Args) -> {$~,[],Fmt,Args};
+collect_cc([$n|Fmt], Args) when is_list(Args) -> {$n,[],Fmt,Args};
+collect_cc([$i|Fmt], [A|Args]) -> {$i,[A],Fmt,Args}.
+
+
+%% build([Control], Pc, Indentation) -> [Char].
+%% Interpret the control structures. Count the number of print
+%% remaining and only calculate indentation when necessary. Must also
+%% be smart when calculating indentation for characters in format.
+
+build([{$n, _, _, _, _, _, _}], Acc, MaxLen, #options{chomp=true}) ->
+ %% trailing ~n, ignore
+ {lists:reverse(Acc), MaxLen};
+build([{C,As,F,Ad,P,Pad,Enc}|Cs], Acc, MaxLen, O) ->
+ {S, MaxLen2} = control(C, As, F, Ad, P, Pad, Enc, MaxLen),
+ build(Cs, [S|Acc], MaxLen2, O);
+build([$\n], Acc, MaxLen, #options{chomp=true}) ->
+ %% trailing \n, ignore
+ {lists:reverse(Acc), MaxLen};
+build([$\n|Cs], Acc, MaxLen, O) ->
+ build(Cs, [$\n|Acc], MaxLen - 1, O);
+build([$\t|Cs], Acc, MaxLen, O) ->
+ build(Cs, [$\t|Acc], MaxLen - 1, O);
+build([C|Cs], Acc, MaxLen, O) ->
+ build(Cs, [C|Acc], MaxLen - 1, O);
+build([], Acc, MaxLen, _O) ->
+ {lists:reverse(Acc), MaxLen}.
+
+build2([{C,As,F,Ad,P,Pad,Enc}|Cs], Count, MaxLen) ->
+ {S, Len} = control2(C, As, F, Ad, P, Pad, Enc, MaxLen div Count),
+ [S|build2(Cs, Count - 1, MaxLen - Len)];
+build2([C|Cs], Count, MaxLen) ->
+ [C|build2(Cs, Count, MaxLen)];
+build2([], _, _) -> [].
+
+%% control(FormatChar, [Argument], FieldWidth, Adjust, Precision, PadChar,
+%% Indentation) -> [Char]
+%% This is the main dispatch function for the various formatting commands.
+%% Field widths and precisions have already been calculated.
+
+control($e, [A], F, Adj, P, Pad, _Enc, L) when is_float(A) ->
+ Res = fwrite_e(A, F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($f, [A], F, Adj, P, Pad, _Enc, L) when is_float(A) ->
+ Res = fwrite_f(A, F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($g, [A], F, Adj, P, Pad, _Enc, L) when is_float(A) ->
+ Res = fwrite_g(A, F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($b, [A], F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ Res = unprefixed_integer(A, F, Adj, base(P), Pad, true),
+ {Res, L - lists:flatlength(Res)};
+control($B, [A], F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ Res = unprefixed_integer(A, F, Adj, base(P), Pad, false),
+ {Res, L - lists:flatlength(Res)};
+control($x, [A,Prefix], F, Adj, P, Pad, _Enc, L) when is_integer(A), 
+ is_atom(Prefix) ->
+ Res = prefixed_integer(A, F, Adj, base(P), Pad, atom_to_list(Prefix), true),
+ {Res, L - lists:flatlength(Res)};
+control($x, [A,Prefix], F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ true = io_lib:deep_char_list(Prefix), %Check if Prefix a character list
+ Res = prefixed_integer(A, F, Adj, base(P), Pad, Prefix, true),
+ {Res, L - lists:flatlength(Res)};
+control($X, [A,Prefix], F, Adj, P, Pad, _Enc, L) when is_integer(A), 
+ is_atom(Prefix) ->
+ Res = prefixed_integer(A, F, Adj, base(P), Pad, atom_to_list(Prefix), false),
+ {Res, L - lists:flatlength(Res)};
+control($X, [A,Prefix], F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ true = io_lib:deep_char_list(Prefix), %Check if Prefix a character list

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_handler_watcher.erl Added

@@ -0,0 +1,243 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc A process that does a gen_event:add_sup_handler and attempts to re-add
+%% event handlers when they exit.
+
+%% @private
+
+-module(lager_handler_watcher).
+
+-behaviour(gen_server).
+
+-include("lager.hrl").
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-export([pop_until/2]).
+-endif.
+
+%% callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2,
+        code_change/3]).
+
+-export([start_link/3, start/3]).
+
+-record(state, {
+        module :: atom(),
+        config :: any(),
+        sink :: pid() | atom()
+    }).
+
+start_link(Sink, Module, Config) ->
+    gen_server:start_link(?MODULE, [Sink, Module, Config], []).
+
+start(Sink, Module, Config) ->
+    gen_server:start(?MODULE, [Sink, Module, Config], []).
+
+init([Sink, Module, Config]) ->
+    process_flag(trap_exit, true),
+    install_handler(Sink, Module, Config),
+    {ok, #state{sink=Sink, module=Module, config=Config}}.
+
+handle_call(_Call, _From, State) ->
+    {reply, ok, State}.
+
+handle_cast(_Request, State) ->
+    {noreply, State}.
+
+handle_info({gen_event_EXIT, Module, normal}, #state{module=Module} = State) ->
+    {stop, normal, State};
+handle_info({gen_event_EXIT, Module, shutdown}, #state{module=Module} = State) ->
+    {stop, normal, State};
+handle_info({gen_event_EXIT, Module, {'EXIT', {kill_me, [_KillerHWM, KillerReinstallAfter]}}},
+        #state{module=Module, sink=Sink, config = Config} = State) ->
+    %% Brutally kill the manager but stay alive to restore settings.
+    %%
+    %% SinkPid here means the gen_event process. Handlers *all* live inside the
+    %% same gen_event process space, so when the Pid is killed, *all* of the 
+    %% pending log messages in its mailbox will die too.
+    SinkPid = whereis(Sink),
+    unlink(SinkPid),
+    {message_queue_len, Len} = process_info(SinkPid, message_queue_len),
+    error_logger:error_msg("Killing sink ~p, current message_queue_len:~p~n", [Sink, Len]),
+    exit(SinkPid, kill),
+    _ = timer:apply_after(KillerReinstallAfter, lager_app, start_handler, [Sink, Module, Config]),
+    {stop, normal, State};
+handle_info({gen_event_EXIT, Module, Reason}, #state{module=Module,
+        config=Config, sink=Sink} = State) ->
+    case lager:log(error, self(), "Lager event handler ~p exited with reason ~s",
+        [Module, error_logger_lager_h:format_reason(Reason)]) of
+      ok ->
+        install_handler(Sink, Module, Config);
+      {error, _} ->
+        %% lager is not working, so installing a handler won't work
+        ok
+    end,
+    {noreply, State};
+handle_info(reinstall_handler, #state{module=Module, config=Config, sink=Sink} = State) ->
+    install_handler(Sink, Module, Config),
+    {noreply, State};
+handle_info({reboot, Sink}, State) ->
+    _ = lager_app:boot(Sink),
+    {noreply, State};
+handle_info(stop, State) ->
+    {stop, normal, State};
+handle_info({'EXIT', _Pid, killed}, #state{module=Module, config=Config, sink=Sink} = State) ->
+    Tmr = application:get_env(lager, killer_reinstall_after, 5000),
+    _ = timer:apply_after(Tmr, lager_app, start_handler, [Sink, Module, Config]),
+    {stop, normal, State};
+handle_info(_Info, State) ->
+    {noreply, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%% internal
+install_handler(Sink, lager_backend_throttle, Config) ->
+    %% The lager_backend_throttle needs to know to which sink it is
+    %% attached, hence this admittedly ugly workaround. Handlers are
+    %% sensitive to the structure of the configuration sent to `init',
+    %% sadly, so it's not trivial to add a configuration item to be
+    %% ignored to backends without breaking 3rd party handlers.
+    install_handler2(Sink, lager_backend_throttle, [{sink, Sink}|Config]);
+install_handler(Sink, Module, Config) ->
+    install_handler2(Sink, Module, Config).
+
+%% private
+install_handler2(Sink, Module, Config) ->
+    case gen_event:add_sup_handler(Sink, Module, Config) of
+        ok ->
+            ?INT_LOG(debug, "Lager installed handler ~p into ~p", [Module, Sink]),
+            lager:update_loglevel_config(Sink),
+            ok;
+        {error, {fatal, Reason}} ->
+            ?INT_LOG(error, "Lager fatally failed to install handler ~p into"
+                " ~p, NOT retrying: ~p", [Module, Sink, Reason]),
+            %% tell ourselves to stop
+            self() ! stop,
+            ok;
+        Error ->
+            %% try to reinstall it later
+            ?INT_LOG(error, "Lager failed to install handler ~p into"
+               " ~p, retrying later : ~p", [Module, Sink, Error]),
+            erlang:send_after(5000, self(), reinstall_handler),
+            ok
+    end.
+
+-ifdef(TEST).
+
+from_now(Seconds) ->
+    {Mega, Secs, Micro} = os:timestamp(),
+    {Mega, Secs + Seconds, Micro}.
+
+reinstall_on_initial_failure_test_() ->
+    {timeout, 60000,
+        [
+            fun() ->
+                    error_logger:tty(false),
+                    application:load(lager),
+                    application:set_env(lager, handlers, [{lager_test_backend, info}, {lager_crash_backend, [from_now(2), undefined]}]),
+                    application:set_env(lager, error_logger_redirect, false),
+                    application:unset_env(lager, crash_log),
+                    lager:start(),
+                    try
+                      {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
+                      ?assertMatch("Lager failed to install handler lager_crash_backend into lager_event, retrying later :"++_, lists:flatten(Message)),
+                      timer:sleep(6000),
+                      lager_test_backend:flush(),
+                      ?assertEqual(0, lager_test_backend:count()),
+                      ?assert(lists:member(lager_crash_backend, gen_event:which_handlers(lager_event)))
+                    after
+                      application:stop(lager),
+                      application:stop(goldrush),
+                      error_logger:tty(true)
+                    end
+            end
+        ]
+    }.
+
+reinstall_on_runtime_failure_test_() ->
+    {timeout, 60000,
+        [
+            fun() ->
+                    error_logger:tty(false),
+                    application:load(lager),
+                    application:set_env(lager, handlers, [{lager_test_backend, info}, {lager_crash_backend, [undefined, from_now(5)]}]),
+                    application:set_env(lager, error_logger_redirect, false),
+                    application:unset_env(lager, crash_log),
+                    lager:start(),
+                    try
+                        ?assert(lists:member(lager_crash_backend, gen_event:which_handlers(lager_event))),
+                        timer:sleep(6000),
+
+                        pop_until("Lager event handler lager_crash_backend exited with reason crash", fun lists:flatten/1),
+                        pop_until("Lager failed to install handler lager_crash_backend into lager_event, retrying later",
+                                  fun(Msg) -> string:substr(lists:flatten(Msg), 1, 84) end),
+                        ?assertEqual(false, lists:member(lager_crash_backend, gen_event:which_handlers(lager_event)))
+                    after
+                       application:stop(lager),
+                       application:stop(goldrush),
+                       error_logger:tty(true)
+                   end
+            end

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_handler_watcher_sup.erl Added

@@ -0,0 +1,39 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc A supervisor for monitoring lager_handler_watcher processes.
+
+%% @private
+
+-module(lager_handler_watcher_sup).
+
+-behaviour(supervisor).
+
+%% API
+-export([start_link/0]).
+
+%% Callbacks
+-export([init/1]).
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+init([]) ->
+    {ok, {{simple_one_for_one, 10, 60},
+            [
+                {lager_handler_watcher, {lager_handler_watcher, start_link, []},
+                        temporary, 5000, worker, [lager_handler_watcher]}
+                ]}}.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_manager_killer.erl Added

@@ -0,0 +1,53 @@
+-module(lager_manager_killer).
+-author("Sungjin Park <jinni.park@gmail.com>").
+-behavior(gen_event).
+
+-export([init/1, handle_event/2, handle_call/2, handle_info/2, terminate/2, code_change/3]).
+
+-export([kill_me/0]).
+
+-include("lager.hrl").
+
+-record(state, {
+ killer_hwm :: non_neg_integer(),
+ killer_reinstall_after :: non_neg_integer()
+ }).
+
+kill_me() ->
+ gen_event:call(lager_event, ?MODULE, kill_self).
+
+init([KillerHWM, KillerReinstallAfter]) ->
+ {ok, #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}}.
+
+handle_call(get_loglevel, State) ->
+ {ok, {mask, ?LOG_NONE}, State};
+handle_call({set_loglevel, _Level}, State) ->
+ {ok, ok, State};
+handle_call(get_settings, State = #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}) ->
+ {ok, [KillerHWM, KillerReinstallAfter], State};
+handle_call(kill_self, #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}) ->
+ exit({kill_me, [KillerHWM, KillerReinstallAfter]});
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+%% It's not the best idea in the world to check the queue length for every
+%% log message. We can make this operation work on a poll timer in the
+%% future.
+handle_event({log, _Message}, State = #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}) ->
+ {message_queue_len, Len} = process_info(self(), message_queue_len),
+ case Len > KillerHWM of
+ true ->
+ exit({kill_me, [KillerHWM, KillerReinstallAfter]});
+ _ ->
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+handle_info(_Info, State) ->
+ {ok, State}.
+
+terminate(_Reason, _State) ->
+ ok.
+
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_msg.erl Added

@@ -0,0 +1,64 @@
+-module(lager_msg).
+
+-export([new/4, new/5]).
+-export([message/1]).
+-export([timestamp/1]).
+-export([datetime/1]).
+-export([severity/1]).
+-export([severity_as_int/1]).
+-export([metadata/1]).
+-export([destinations/1]).
+
+-record(lager_msg,{
+        destinations :: list(),
+        metadata :: [tuple()],
+        severity :: lager:log_level(),
+        datetime :: {string(), string()},
+        timestamp :: erlang:timestamp(),
+        message :: list()
+    }).
+
+-opaque lager_msg() :: #lager_msg{}.
+-export_type([lager_msg/0]).
+
+%% create with provided timestamp, handy for testing mostly
+-spec new(list(), erlang:timestamp(), lager:log_level(), [tuple()], list()) -> lager_msg().
+new(Msg, Timestamp, Severity, Metadata, Destinations) ->
+    {Date, Time} = lager_util:format_time(lager_util:maybe_utc(lager_util:localtime_ms(Timestamp))),
+    #lager_msg{message=Msg, datetime={Date, Time}, timestamp=Timestamp, severity=Severity,
+        metadata=Metadata, destinations=Destinations}.
+
+-spec new(list(), lager:log_level(), [tuple()], list()) -> lager_msg().
+new(Msg, Severity, Metadata, Destinations) ->
+    Now = os:timestamp(),
+    new(Msg, Now, Severity, Metadata, Destinations).
+
+-spec message(lager_msg()) -> list().
+message(Msg) ->
+    Msg#lager_msg.message.
+
+-spec timestamp(lager_msg()) -> erlang:timestamp().
+timestamp(Msg) ->
+    Msg#lager_msg.timestamp.
+
+-spec datetime(lager_msg()) -> {string(), string()}.
+datetime(Msg) ->
+    Msg#lager_msg.datetime.
+
+-spec severity(lager_msg()) -> lager:log_level().
+severity(Msg) ->
+    Msg#lager_msg.severity.
+
+-spec severity_as_int(lager_msg()) -> lager:log_level_number().
+severity_as_int(Msg) ->
+    lager_util:level_to_num(Msg#lager_msg.severity).
+
+-spec metadata(lager_msg()) -> [tuple()].
+metadata(Msg) ->
+    Msg#lager_msg.metadata.
+
+-spec destinations(lager_msg()) -> list().
+destinations(Msg) ->
+    Msg#lager_msg.destinations.
+
+

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_rotator_behaviour.erl Added

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_rotator_default.erl Added

@@ -0,0 +1,197 @@
+-module(lager_rotator_default).
+
+-include_lib("kernel/include/file.hrl").
+
+-behaviour(lager_rotator_behaviour).
+
+-export([
+ create_logfile/2, open_logfile/2, ensure_logfile/5, rotate_logfile/2
+]).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+create_logfile(Name, Buffer) ->
+ open_logfile(Name, Buffer).
+
+open_logfile(Name, Buffer) ->
+ case filelib:ensure_dir(Name) of
+ ok ->
+ Options = [append, raw] ++
+ case Buffer of
+ {Size0, Interval} when is_integer(Interval), Interval >= 0, is_integer(Size0), Size0 >= 0 ->
+ [{delayed_write, Size0, Interval}];
+ _ -> []
+ end,
+ case file:open(Name, Options) of
+ {ok, FD} ->
+ case file:read_file_info(Name, [raw]) of
+ {ok, FInfo0} ->
+ Inode = FInfo0#file_info.inode,
+ {ok, Ctime} = maybe_update_ctime(Name, FInfo0),
+ Size1 = FInfo0#file_info.size,
+ {ok, {FD, Inode, Ctime, Size1}};
+ X -> X
+ end;
+ Y -> Y
+ end;
+ Z -> Z
+ end.
+
+ensure_logfile(Name, undefined, _Inode, _Ctime, Buffer) ->
+ open_logfile(Name, Buffer);
+ensure_logfile(Name, FD, Inode0, Ctime0, Buffer) ->
+ case lager_util:has_file_changed(Name, Inode0, Ctime0) of
+ {true, _FInfo} ->
+ reopen_logfile(Name, FD, Buffer);
+ {_, FInfo} ->
+ {ok, {FD, Inode0, Ctime0, FInfo#file_info.size}}
+ end.
+
+reopen_logfile(Name, FD0, Buffer) ->
+ %% Flush and close any file handles.
+ %% delayed write can cause file:close not to do a close
+ _ = file:datasync(FD0),
+ _ = file:close(FD0),
+ _ = file:close(FD0),
+ case open_logfile(Name, Buffer) of
+ {ok, {_FD1, _Inode, _Size, _Ctime}=FileInfo} ->
+ %% inode changed, file was probably moved and
+ %% recreated
+ {ok, FileInfo};
+ Error ->
+ Error
+ end.
+
+%% renames failing are OK
+rotate_logfile(File, 0) ->
+ %% open the file in write-only mode to truncate/create it
+ case file:open(File, [write]) of
+ {ok, FD} ->
+ _ = file:close(FD),
+ _ = file:close(FD),
+ {ok, _Ctime} = maybe_update_ctime(File),
+ ok;
+ Error ->
+ Error
+ end;
+rotate_logfile(File0, 1) ->
+ File1 = File0 ++ ".0",
+ _ = file:rename(File0, File1),
+ rotate_logfile(File0, 0);
+rotate_logfile(File0, Count) ->
+ File1 = File0 ++ "." ++ integer_to_list(Count - 2),
+ File2 = File0 ++ "." ++ integer_to_list(Count - 1),
+ _ = file:rename(File1, File2),
+ rotate_logfile(File0, Count - 1).
+
+maybe_update_ctime(Name) ->
+ case file:read_file_info(Name, [raw]) of
+ {ok, FInfo} ->
+ maybe_update_ctime(Name, FInfo);
+ _ ->
+ {ok, calendar:local_time()}
+ end.
+
+maybe_update_ctime(Name, FInfo) ->
+ {OsType, _} = os:type(),
+ do_update_ctime(OsType, Name, FInfo).
+
+do_update_ctime(win32, Name, FInfo0) ->
+ % Note: we force the creation time to be the current time.
+ % On win32 this may prevent the ctime from being updated:
+ % https://stackoverflow.com/q/8804342/1466825
+ NewCtime = calendar:local_time(),
+ FInfo1 = FInfo0#file_info{ctime = NewCtime},
+ ok = file:write_file_info(Name, FInfo1, [raw]),
+ {ok, NewCtime};
+do_update_ctime(_, _Name, FInfo) ->
+ {ok, FInfo#file_info.ctime}.
+
+-ifdef(TEST).
+
+rotate_file_test() ->
+ RotCount = 10,
+ {ok, TestDir} = lager_util:create_test_dir(),
+ TestLog = filename:join(TestDir, "rotation.log"),
+ Outer = fun(N) ->
+ ?assertEqual(ok, lager_util:safe_write_file(TestLog, erlang:integer_to_list(N))),
+ Inner = fun(M) ->
+ File = lists:flatten([TestLog, $., erlang:integer_to_list(M)]),
+ ?assert(filelib:is_regular(File)),
+ %% check the expected value is in the file
+ Number = erlang:list_to_binary(integer_to_list(N - M - 1)),
+ ?assertEqual({ok, Number}, file:read_file(File))
+ end,
+ Count = erlang:min(N, RotCount),
+ % The first time through, Count == 0, so the sequence is empty,
+ % effectively skipping the inner loop so a rotation can occur that
+ % creates the file that Inner looks for.
+ % Don't shoot the messenger, it was worse before this refactoring.
+ lists:foreach(Inner, lists:seq(0, Count-1)),
+ rotate_logfile(TestLog, RotCount)
+ end,
+ lists:foreach(Outer, lists:seq(0, (RotCount * 2))),
+ lager_util:delete_test_dir(TestDir).
+
+rotate_file_zero_count_test() ->
+ %% Test that a rotation count of 0 simply truncates the file
+ {ok, TestDir} = lager_util:create_test_dir(),
+ TestLog = filename:join(TestDir, "rotation.log"),
+ ?assertMatch(ok, rotate_logfile(TestLog, 0)),
+ ?assertNot(filelib:is_regular(TestLog ++ ".0")),
+ ?assertEqual(true, filelib:is_regular(TestLog)),
+ ?assertEqual(1, length(filelib:wildcard(TestLog++"*"))),
+ %% assert the new file is 0 size:
+ case file:read_file_info(TestLog, [raw]) of
+ {ok, FInfo} ->
+ ?assertEqual(0, FInfo#file_info.size);
+ _ ->
+ ?assert(false)
+ end,
+ lager_util:delete_test_dir(TestDir).
+
+rotate_file_fail_test() ->
+ {ok, TestDir} = lager_util:create_test_dir(),
+ TestLog = filename:join(TestDir, "rotation.log"),
+
+ %% set known permissions on it
+ ok = lager_util:set_dir_permissions("u+rwx", TestDir),
+
+ %% write a file
+ ?assertEqual(ok, lager_util:safe_write_file(TestLog, "hello")),
+
+ case os:type() of
+ {win32, _} -> ok;
+ _ ->
+ %% hose up the permissions
+ ok = lager_util:set_dir_permissions("u-w", TestDir),
+ ?assertMatch({error, _}, rotate_logfile(TestLog, 10))
+ end,
+
+ %% check we still only have one file, rotation.log
+ ?assertEqual([TestLog], filelib:wildcard(TestLog++"*")),
+ ?assert(filelib:is_regular(TestLog)),
+
+ %% fix the permissions
+ ok = lager_util:set_dir_permissions("u+w", TestDir),
+
+ ?assertMatch(ok, rotate_logfile(TestLog, 10)),
+ ?assert(filelib:is_regular(TestLog ++ ".0")),
+ ?assertEqual(true, filelib:is_regular(TestLog)),
+ ?assertEqual(2, length(filelib:wildcard(TestLog++"*"))),
+
+ %% assert the new file is 0 size:
+ case file:read_file_info(TestLog, [raw]) of
+ {ok, FInfo} ->
+ ?assertEqual(0, FInfo#file_info.size);
+ _ ->
+ ?assert(false)
+ end,
+
+ %% check that the .0 file now has the contents "hello"
+ ?assertEqual({ok, <<"hello">>}, file:read_file(TestLog++".0")),
+ lager_util:delete_test_dir(TestDir).
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_stdlib.erl Added

@@ -0,0 +1,502 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1996-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+
+%% @doc Functions from Erlang OTP distribution that are really useful
+%% but aren't exported.
+%%
+%% All functions in this module are covered by the Erlang/OTP source
+%% distribution's license, the Erlang Public License. See
+%% http://www.erlang.org/ for full details.
+
+-module(lager_stdlib).
+
+-export([string_p/1]).
+-export([write_time/2, maybe_utc/1]).
+-export([is_my_error_report/1, is_my_info_report/1]).
+-export([sup_get/2]).
+-export([proc_lib_format/2]).
+
+
+%% from error_logger_file_h
+string_p([]) ->
+ false;
+string_p(Term) ->
+ string_p1(Term).
+
+string_p1([H|T]) when is_integer(H), H >= $\s, H < 256 ->
+ string_p1(T);
+string_p1([$\n|T]) -> string_p1(T);
+string_p1([$\r|T]) -> string_p1(T);
+string_p1([$\t|T]) -> string_p1(T);
+string_p1([$\v|T]) -> string_p1(T);
+string_p1([$\b|T]) -> string_p1(T);
+string_p1([$\f|T]) -> string_p1(T);
+string_p1([$\e|T]) -> string_p1(T);
+string_p1([H|T]) when is_list(H) ->
+ case string_p1(H) of
+ true -> string_p1(T);
+ _ -> false
+ end;
+string_p1([]) -> true;
+string_p1(_) -> false.
+
+%% From calendar
+-type year1970() :: 1970..10000. % should probably be 1970..
+-type month() :: 1..12.
+-type day() :: 1..31.
+-type hour() :: 0..23.
+-type minute() :: 0..59.
+-type second() :: 0..59.
+-type t_time() :: {hour(),minute(),second()}.
+-type t_datetime1970() :: {{year1970(),month(),day()},t_time()}.
+
+%% From OTP stdlib's error_logger_tty_h.erl ... These functions aren't
+%% exported.
+-spec write_time({utc, t_datetime1970()} | t_datetime1970(), string()) -> string().
+write_time({utc,{{Y,Mo,D},{H,Mi,S}}},Type) ->
+ io_lib:format("~n=~s==== ~p-~s-~p::~s:~s:~s UTC ===~n",
+ [Type,D,month(Mo),Y,t(H),t(Mi),t(S)]);
+write_time({{Y,Mo,D},{H,Mi,S}},Type) ->
+ io_lib:format("~n=~s==== ~p-~s-~p::~s:~s:~s ===~n",
+ [Type,D,month(Mo),Y,t(H),t(Mi),t(S)]).
+
+-spec maybe_utc(t_datetime1970()) -> {utc, t_datetime1970()} | t_datetime1970().
+maybe_utc(Time) ->
+ UTC = case application:get_env(sasl, utc_log) of
+ {ok, Val} ->
+ Val;
+ undefined ->
+ %% Backwards compatible:
+ application:get_env(stdlib, utc_log, false)
+ end,
+ if
+ UTC =:= true ->
+ UTCTime = case calendar:local_time_to_universal_time_dst(Time) of
+ [] -> calendar:local_time();
+ [T0|_] -> T0
+ end,
+ {utc, UTCTime};
+ true -> 
+ Time
+ end.
+
+t(X) when is_integer(X) ->
+ t1(integer_to_list(X));
+t(_) ->
+ "".
+t1([X]) -> [$0,X];
+t1(X) -> X.
+
+month(1) -> "Jan";
+month(2) -> "Feb";
+month(3) -> "Mar";
+month(4) -> "Apr";
+month(5) -> "May";
+month(6) -> "Jun";
+month(7) -> "Jul";
+month(8) -> "Aug";
+month(9) -> "Sep";
+month(10) -> "Oct";
+month(11) -> "Nov";
+month(12) -> "Dec".
+
+%% From OTP sasl's sasl_report.erl ... These functions aren't
+%% exported.
+-spec is_my_error_report(atom()) -> boolean().
+is_my_error_report(supervisor_report) -> true;
+is_my_error_report(crash_report) -> true;
+is_my_error_report(_) -> false.
+
+-spec is_my_info_report(atom()) -> boolean().
+is_my_info_report(progress) -> true;
+is_my_info_report(_) -> false.
+
+-spec sup_get(term(), [proplists:property()]) -> term().
+sup_get(Tag, Report) ->
+ case lists:keysearch(Tag, 1, Report) of
+ {value, {_, Value}} ->
+ Value;
+ _ ->
+ ""
+ end.
+
+%% From OTP stdlib's proc_lib.erl ... These functions aren't exported.
+-spec proc_lib_format([term()], pos_integer()) -> string().
+proc_lib_format([OwnReport,LinkReport], FmtMaxBytes) ->
+ OwnFormat = format_report(OwnReport, FmtMaxBytes),
+ LinkFormat = format_report(LinkReport, FmtMaxBytes),
+ %% io_lib:format here is OK because we're limiting max length elsewhere.
+ Str = io_lib:format(" crasher:~n~s neighbours:~n~s",[OwnFormat,LinkFormat]),
+ lists:flatten(Str).
+
+format_report(Rep, FmtMaxBytes) when is_list(Rep) ->
+ format_rep(Rep, FmtMaxBytes);
+format_report(Rep, FmtMaxBytes) ->
+ {Str, _} = lager_trunc_io:print(Rep, FmtMaxBytes),
+ io_lib:format("~p~n", [Str]).
+
+format_rep([{initial_call,InitialCall}|Rep], FmtMaxBytes) ->
+ [format_mfa(InitialCall, FmtMaxBytes)|format_rep(Rep, FmtMaxBytes)];
+format_rep([{error_info,{Class,Reason,StackTrace}}|Rep], FmtMaxBytes) ->
+ [format_exception(Class, Reason, StackTrace, FmtMaxBytes)|format_rep(Rep, FmtMaxBytes)];
+format_rep([{Tag,Data}|Rep], FmtMaxBytes) ->
+ [format_tag(Tag, Data, FmtMaxBytes)|format_rep(Rep, FmtMaxBytes)];
+format_rep(_, _S) ->
+ [].
+
+format_exception(Class, Reason, StackTrace, FmtMaxBytes) ->
+ PF = pp_fun(FmtMaxBytes),
+ StackFun = fun(M, _F, _A) -> (M =:= erl_eval) or (M =:= ?MODULE) end,
+ %% EI = " exception: ",
+ EI = " ",
+ [EI, lib_format_exception(1+length(EI), Class, Reason, 
+ StackTrace, StackFun, PF), "\n"].
+
+format_mfa({M,F,Args}=StartF, FmtMaxBytes) ->
+ try
+ A = length(Args),
+ [" initial call: ",atom_to_list(M),$:,atom_to_list(F),$/,
+ integer_to_list(A),"\n"]
+ catch
+ error:_ ->
+ format_tag(initial_call, StartF, FmtMaxBytes)
+ end.
+
+pp_fun(FmtMaxBytes) ->
+ fun(Term, _I) -> 
+ {Str, _} = lager_trunc_io:print(Term, FmtMaxBytes),
+ io_lib:format("~s", [Str]) 
+ end.
+
+format_tag(Tag, Data, FmtMaxBytes) ->
+ {Str, _} = lager_trunc_io:print(Data, FmtMaxBytes),
+ io_lib:format(" ~p: ~s~n", [Tag, Str]).
+
+%% From OTP stdlib's lib.erl ... These functions aren't exported.
+
+lib_format_exception(I, Class, Reason, StackTrace, StackFun, FormatFun) 
+ when is_integer(I), I >= 1, is_function(StackFun, 3), 
+ is_function(FormatFun, 2) ->
+ Str = n_spaces(I-1),
+ {Term,Trace1,Trace} = analyze_exception(Class, Reason, StackTrace),
+ Expl0 = explain_reason(Term, Class, Trace1, FormatFun, Str),
+ Expl = io_lib:fwrite(<<"~s~s">>, [exited(Class), Expl0]),

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_sup.erl Added

@@ -0,0 +1,92 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Lager's top level supervisor.
+
+%% @private
+
+-module(lager_sup).
+
+-behaviour(supervisor).
+
+%% API
+-export([start_link/0]).
+
+%% Callbacks
+-export([init/1]).
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+init([]) ->
+    %% set up the config, is safe even during relups
+    lager_config:new(),
+    %% TODO:
+    %% Always start lager_event as the default and make sure that
+    %% other gen_event stuff can start up as needed
+    %%
+    %% Maybe a new API to handle the sink and its policy?
+    Children = [
+        {lager, {gen_event, start_link, [{local, lager_event}]},
+            permanent, 5000, worker, dynamic},
+        {lager_handler_watcher_sup, {lager_handler_watcher_sup, start_link, []},
+            permanent, 5000, supervisor, [lager_handler_watcher_sup]}],
+
+    CrashLog = decide_crash_log(application:get_env(lager, crash_log, false)),
+
+    {ok, {{one_for_one, 10, 60},
+          Children ++ CrashLog
+         }}.
+
+validate_positive({ok, Val}, _Default) when is_integer(Val) andalso Val >= 0 ->
+    Val;
+validate_positive(_Val, Default) ->
+    Default.
+
+determine_rotation_date({ok, ""}) ->
+    undefined;
+determine_rotation_date({ok, Val3}) ->
+    case lager_util:parse_rotation_date_spec(Val3) of
+        {ok, Spec} -> Spec;
+        {error, _} ->
+            error_logger:error_msg("Invalid date spec for "
+                                   "crash log ~p~n", [Val3]),
+            undefined
+    end;
+determine_rotation_date(_) ->
+    undefined.
+
+determine_rotator_mod({ok, Mod}, _Default) when is_atom(Mod) ->
+    Mod;
+determine_rotator_mod(_, Default) ->
+    Default.
+
+decide_crash_log(undefined) ->
+    [];
+decide_crash_log(false) ->
+    [];
+decide_crash_log(File) ->
+    MaxBytes = validate_positive(application:get_env(lager, crash_log_msg_size), 65536),
+    RotationSize = validate_positive(application:get_env(lager, crash_log_size), 0),
+    RotationCount = validate_positive(application:get_env(lager, crash_log_count), 0),
+
+    RotationDate = determine_rotation_date(application:get_env(lager, crash_log_date)),
+    RotationMod = determine_rotator_mod(application:get_env(lager, crash_log_rotator), lager_rotator_default),
+
+
+    [{lager_crash_log, {lager_crash_log, start_link, [File, MaxBytes,
+                                                      RotationSize, RotationDate, RotationCount, RotationMod]},
+      permanent, 5000, worker, [lager_crash_log]}].

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_transform.erl Added

@@ -0,0 +1,336 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc The parse transform used for lager messages.
+%% This parse transform rewrites functions calls to lager:Severity/1,2 into
+%% a more complicated function that captures module, function, line, pid and
+%% time as well. The entire function call is then wrapped in a case that
+%% checks the lager_config 'loglevel' value, so the code isn't executed if
+%% nothing wishes to consume the message.
+
+-module(lager_transform).
+
+-include("lager.hrl").
+
+-export([parse_transform/2]).
+
+%% @private
+parse_transform(AST, Options) ->
+ TruncSize = proplists:get_value(lager_truncation_size, Options, ?DEFAULT_TRUNCATION),
+ Enable = proplists:get_value(lager_print_records_flag, Options, true),
+ Sinks = [lager] ++ proplists:get_value(lager_extra_sinks, Options, []),
+ Functions = proplists:get_value(lager_function_transforms, Options, []),
+ put(print_records_flag, Enable),
+ put(truncation_size, TruncSize),
+ put(sinks, Sinks),
+ put(functions, lists:keysort(1, Functions)),
+ erlang:put(records, []),
+ %% .app file should either be in the outdir, or the same dir as the source file
+ guess_application(proplists:get_value(outdir, Options), hd(AST)),
+ walk_ast([], AST).
+
+walk_ast(Acc, []) ->
+ case get(print_records_flag) of
+ true ->
+ insert_record_attribute(Acc);
+ false ->
+ lists:reverse(Acc)
+ end;
+walk_ast(Acc, [{attribute, _, module, {Module, _PmodArgs}}=H|T]) ->
+ %% A wild parameterized module appears!
+ put(module, Module),
+ walk_ast([H|Acc], T);
+walk_ast(Acc, [{attribute, _, module, Module}=H|T]) ->
+ put(module, Module),
+ walk_ast([H|Acc], T);
+walk_ast(Acc, [{attribute, _, lager_function_transforms, FromModule }=H|T]) ->
+ %% Merge transform options from the module over the compile options
+ FromOptions = get(functions),
+ put(functions, orddict:merge(fun(_Key, _V1, V2) -> V2 end, FromOptions, lists:keysort(1, FromModule))),
+ walk_ast([H|Acc], T);
+walk_ast(Acc, [{function, Line, Name, Arity, Clauses}|T]) ->
+ put(function, Name),
+ walk_ast([{function, Line, Name, Arity,
+ walk_clauses([], Clauses)}|Acc], T);
+walk_ast(Acc, [{attribute, _, record, {Name, Fields}}=H|T]) ->
+ FieldNames = lists:map(fun record_field_name/1, Fields),
+ stash_record({Name, FieldNames}),
+ walk_ast([H|Acc], T);
+walk_ast(Acc, [H|T]) ->
+ walk_ast([H|Acc], T).
+
+record_field_name({record_field, _, {atom, _, FieldName}}) ->
+ FieldName;
+record_field_name({record_field, _, {atom, _, FieldName}, _Default}) ->
+ FieldName;
+record_field_name({typed_record_field, Field, _Type}) ->
+ record_field_name(Field).
+
+walk_clauses(Acc, []) ->
+ lists:reverse(Acc);
+walk_clauses(Acc, [{clause, Line, Arguments, Guards, Body}|T]) ->
+ walk_clauses([{clause, Line, Arguments, Guards, walk_body([], Body)}|Acc], T).
+
+walk_body(Acc, []) ->
+ lists:reverse(Acc);
+walk_body(Acc, [H|T]) ->
+ walk_body([transform_statement(H, get(sinks))|Acc], T).
+
+transform_statement({call, Line, {remote, _Line1, {atom, _Line2, Module},
+ {atom, _Line3, Function}}, Arguments0} = Stmt,
+ Sinks) ->
+ case lists:member(Module, Sinks) of
+ true ->
+ case lists:member(Function, ?LEVELS) of
+ true ->
+ SinkName = lager_util:make_internal_sink_name(Module),
+ do_transform(Line, SinkName, Function, Arguments0);
+ false ->
+ case lists:keyfind(Function, 1, ?LEVELS_UNSAFE) of
+ {Function, Severity} ->
+ SinkName = lager_util:make_internal_sink_name(Module),
+ do_transform(Line, SinkName, Severity, Arguments0, unsafe);
+ false ->
+ Stmt
+ end
+ end;
+ false ->
+ list_to_tuple(transform_statement(tuple_to_list(Stmt), Sinks))
+ end;
+transform_statement(Stmt, Sinks) when is_tuple(Stmt) ->
+ list_to_tuple(transform_statement(tuple_to_list(Stmt), Sinks));
+transform_statement(Stmt, Sinks) when is_list(Stmt) ->
+ [transform_statement(S, Sinks) || S <- Stmt];
+transform_statement(Stmt, _Sinks) ->
+ Stmt.
+
+
+add_function_transforms(_Line, DefaultAttrs, []) ->
+ DefaultAttrs;
+add_function_transforms(Line, DefaultAttrs, [{Atom, on_emit, {Module, Function}}|Remainder]) ->
+ NewFunction = {tuple, Line, [
+ {atom, Line, Atom},
+ {'fun', Line, {
+ function, {atom, Line, Module}, {atom, Line, Function}, {integer, Line, 0}
+ }}
+ ]},
+ add_function_transforms(Line, {cons, Line, NewFunction, DefaultAttrs}, Remainder);
+add_function_transforms(Line, DefaultAttrs, [{Atom, on_log, {Module, Function}}|Remainder]) ->
+ NewFunction = {tuple, Line, [
+ {atom, Line, Atom},
+ {call, Line, {remote, Line, {atom, Line, Module}, {atom, Line, Function}}, []}
+ ]},
+ add_function_transforms(Line, {cons, Line, NewFunction, DefaultAttrs}, Remainder).
+
+
+do_transform(Line, SinkName, Severity, Arguments0) ->
+ do_transform(Line, SinkName, Severity, Arguments0, safe).
+
+do_transform(Line, SinkName, Severity, Arguments0, Safety) ->
+ SeverityAsInt=lager_util:level_to_num(Severity),
+ DefaultAttrs0 = {cons, Line, {tuple, Line, [
+ {atom, Line, module}, {atom, Line, get(module)}]},
+ {cons, Line, {tuple, Line, [
+ {atom, Line, function}, {atom, Line, get(function)}]},
+ {cons, Line, {tuple, Line, [
+ {atom, Line, line},
+ {integer, Line, Line}]},
+ {cons, Line, {tuple, Line, [
+ {atom, Line, pid},
+ {call, Line, {atom, Line, pid_to_list}, [
+ {call, Line, {atom, Line ,self}, []}]}]},
+ {cons, Line, {tuple, Line, [
+ {atom, Line, node},
+ {call, Line, {atom, Line, node}, []}]},
+ %% get the metadata with lager:md(), this will always return a list so we can use it as the tail here
+ {call, Line, {remote, Line, {atom, Line, lager}, {atom, Line, md}}, []}}}}}},
+ %{nil, Line}}}}}}},
+ Functions = get(functions),
+ DefaultAttrs1 = add_function_transforms(Line, DefaultAttrs0, Functions),
+ DefaultAttrs = case erlang:get(application) of
+ undefined ->
+ DefaultAttrs1;
+ App ->
+ %% stick the application in the attribute list
+ concat_lists({cons, Line, {tuple, Line, [
+ {atom, Line, application},
+ {atom, Line, App}]},
+ {nil, Line}}, DefaultAttrs1)
+ end,
+ {Meta, Message, Arguments} = handle_args(DefaultAttrs, Line, Arguments0),
+ %% Generate some unique variable names so we don't accidentally export from case clauses.
+ %% Note that these are not actual atoms, but the AST treats variable names as atoms.
+ LevelVar = make_varname("__Level", Line),
+ TracesVar = make_varname("__Traces", Line),
+ PidVar = make_varname("__Pid", Line),
+ LogFun = case Safety of
+ safe ->
+ do_log;
+ unsafe ->
+ do_log_unsafe
+ end,
+ %% Wrap the call to lager:dispatch_log/6 in case that will avoid doing any work if this message is not elegible for logging
+ %% See lager.erl (lines 89-100) for lager:dispatch_log/6
+ %% case {whereis(Sink), whereis(?DEFAULT_SINK), lager_config:get({Sink, loglevel}, {?LOG_NONE, []})} of
+ {'case',Line,
+ {tuple,Line,
+ [{call,Line,{atom,Line,whereis},[{atom,Line,SinkName}]},
+ {call,Line,{atom,Line,whereis},[{atom,Line,?DEFAULT_SINK}]}, 
+ {call,Line,
+ {remote,Line,{atom,Line,lager_config},{atom,Line,get}},
+ [{tuple,Line,[{atom,Line,SinkName},{atom,Line,loglevel}]},
+ {tuple,Line,[{integer,Line,0},{nil,Line}]}]}]},
+ %% {undefined, undefined, _} -> {error, lager_not_running};
+ [{clause,Line,
+ [{tuple,Line,
+ [{atom,Line,undefined},{atom,Line,undefined},{var,Line,'_'}]}],

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_trunc_io.erl Added

@@ -0,0 +1,878 @@
+%% ``The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with your Erlang distribution. If not, it can be
+%% retrieved via the world wide web at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% The Initial Developer of the Original Code is Corelatus AB.
+%% Portions created by Corelatus are Copyright 2003, Corelatus
+%% AB. All Rights Reserved.''
+%%
+%% @doc Module to print out terms for logging. Limits by length rather than depth.
+%%
+%% The resulting string may be slightly larger than the limit; the intention
+%% is to provide predictable CPU and memory consumption for formatting
+%% terms, not produce precise string lengths.
+%%
+%% Typical use:
+%%
+%% trunc_io:print(Term, 500).
+%%
+%% Source license: Erlang Public License.
+%% Original author: Matthias Lang, <tt>matthias@corelatus.se</tt>
+%%
+%% Various changes to this module, most notably the format/3 implementation
+%% were added by Andrew Thompson `<andrew@basho.com>'. The module has been renamed
+%% to avoid conflicts with the vanilla module.
+
+-module(lager_trunc_io).
+-author('matthias@corelatus.se').
+%% And thanks to Chris Newcombe for a bug fix
+-export([format/3, format/4, print/2, print/3, fprint/2, fprint/3, safe/2]). % interface functions
+-version("$Id: trunc_io.erl,v 1.11 2009-02-23 12:01:06 matthias Exp $").
+
+-ifdef(TEST).
+-export([perf/0, perf/3, perf1/0, test/0, test/2]). % testing functions
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-type option() :: {'depth', integer()}
+ | {'lists_as_strings', boolean()}
+ | {'force_strings', boolean()}.
+-type options() :: [option()].
+
+-record(print_options, {
+ %% negative depth means no depth limiting
+ depth = -1 :: integer(),
+ %% whether to print lists as strings, if possible
+ lists_as_strings = true :: boolean(),
+ %% force strings, or binaries to be printed as a string,
+ %% even if they're not printable
+ force_strings = false :: boolean()
+ }).
+
+format(Fmt, Args, Max) ->
+ format(Fmt, Args, Max, []).
+
+format(Fmt, Args, Max, Options) ->
+ try lager_format:format(Fmt, Args, Max, Options)
+ catch
+ _What:_Why ->
+ erlang:error(badarg, [Fmt, Args])
+ end.
+
+%% @doc Returns an flattened list containing the ASCII representation of the given
+%% term.
+-spec fprint(term(), pos_integer()) -> string().
+fprint(Term, Max) ->
+ fprint(Term, Max, []).
+
+
+%% @doc Returns an flattened list containing the ASCII representation of the given
+%% term.
+-spec fprint(term(), pos_integer(), options()) -> string().
+fprint(T, Max, Options) ->
+ {L, _} = print(T, Max, prepare_options(Options, #print_options{})),
+ lists:flatten(L).
+
+%% @doc Same as print, but never crashes.
+%%
+%% This is a tradeoff. Print might conceivably crash if it's asked to
+%% print something it doesn't understand, for example some new data
+%% type in a future version of Erlang. If print crashes, we fall back
+%% to io_lib to format the term, but then the formatting is
+%% depth-limited instead of length limited, so you might run out
+%% memory printing it. Out of the frying pan and into the fire.
+%%
+-spec safe(term(), pos_integer()) -> {string(), pos_integer()} | {string()}.
+safe(What, Len) ->
+ case catch print(What, Len) of
+ {L, Used} when is_list(L) -> {L, Used};
+ _ -> {"unable to print" ++ io_lib:write(What, 99)}
+ end.
+
+%% @doc Returns {List, Length}
+-spec print(term(), pos_integer()) -> {iolist(), pos_integer()}.
+print(Term, Max) ->
+ print(Term, Max, []).
+
+%% @doc Returns {List, Length}
+-spec print(term(), pos_integer(), options() | #print_options{}) -> {iolist(), pos_integer()}.
+print(Term, Max, Options) when is_list(Options) ->
+ %% need to convert the proplist to a record
+ print(Term, Max, prepare_options(Options, #print_options{}));
+
+print(Term, _Max, #print_options{force_strings=true}) when not is_list(Term), not is_binary(Term), not is_atom(Term) ->
+ erlang:error(badarg);
+
+print(_, Max, _Options) when Max < 0 -> {"...", 3};
+print(_, _, #print_options{depth=0}) -> {"...", 3};
+
+
+%% @doc We assume atoms, floats, funs, integers, PIDs, ports and refs never need
+%% to be truncated. This isn't strictly true, someone could make an
+%% arbitrarily long bignum. Let's assume that won't happen unless someone
+%% is being malicious.
+%%
+print(Atom, _Max, #print_options{force_strings=NoQuote}) when is_atom(Atom) ->
+ L = atom_to_list(Atom),
+ R = case atom_needs_quoting_start(L) andalso not NoQuote of
+ true -> lists:flatten([$', L, $']);
+ false -> L
+ end,
+ {R, length(R)};
+
+print(<<>>, _Max, #print_options{depth=1}) ->
+ {"<<>>", 4};
+print(Bin, _Max, #print_options{depth=1}) when is_binary(Bin) ->
+ {"<<...>>", 7};
+print(<<>>, _Max, Options) ->
+ case Options#print_options.force_strings of
+ true ->
+ {"", 0};
+ false ->
+ {"<<>>", 4}
+ end;
+
+print(Binary, 0, _Options) when is_bitstring(Binary) ->
+ {"<<..>>", 6};
+
+print(Bin, Max, _Options) when is_binary(Bin), Max < 2 ->
+ {"<<...>>", 7};
+print(Binary, Max, Options) when is_binary(Binary) ->
+ B = binary_to_list(Binary, 1, lists:min([Max, byte_size(Binary)])),
+ {Res, Length} = case Options#print_options.lists_as_strings orelse
+ Options#print_options.force_strings of
+ true ->
+ Depth = Options#print_options.depth,
+ MaxSize = (Depth - 1) * 4,
+ %% check if we need to truncate based on depth
+ In = case Depth > -1 andalso MaxSize < length(B) andalso
+ not Options#print_options.force_strings of
+ true ->
+ string:substr(B, 1, MaxSize);
+ false -> B
+ end,
+ MaxLen = case Options#print_options.force_strings of
+ true ->
+ Max;
+ false ->
+ %% make room for the leading doublequote
+ Max - 1
+ end,
+ try alist(In, MaxLen, Options) of
+ {L0, Len0} ->
+ case Options#print_options.force_strings of
+ false ->
+ case B /= In of
+ true ->
+ {[$", L0, "..."], Len0+4};
+ false ->
+ {[$"|L0], Len0+1}
+ end;
+ true ->
+ {L0, Len0}
+ end
+ catch
+ throw:{unprintable, C} ->
+ Index = string:chr(In, C),
+ case Index > 1 andalso Options#print_options.depth =< Index andalso
+ Options#print_options.depth > -1 andalso
+ not Options#print_options.force_strings of
+ true ->
+ %% print first Index-1 characters followed by ...
+ {L0, Len0} = alist_start(string:substr(In, 1, Index - 1), Max - 1, Options),
+ {L0++"...", Len0+3};
+ false ->
+ list_body(In, Max-4, dec_depth(Options), true)
+ end
+ end;
+ _ ->
+ list_body(B, Max-4, dec_depth(Options), true)
+ end,
+ case Options#print_options.force_strings of
+ true ->

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_util.erl Added

@@ -0,0 +1,962 @@
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2011-2017 Basho Technologies, Inc.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+%%
+%% -------------------------------------------------------------------
+
+-module(lager_util).
+
+-export([
+ levels/0, level_to_num/1, level_to_chr/1,
+ num_to_level/1, config_to_mask/1, config_to_levels/1, mask_to_levels/1,
+ format_time/0, format_time/1,
+ localtime_ms/0, localtime_ms/1, maybe_utc/1, parse_rotation_date_spec/1,
+ calculate_next_rotation/1, validate_trace/1, check_traces/4, is_loggable/3,
+ trace_filter/1, trace_filter/2, expand_path/1, find_file/2, check_hwm/1, check_hwm/2,
+ make_internal_sink_name/1, otp_version/0, maybe_flush/2,
+ has_file_changed/3
+]).
+
+-ifdef(TEST).
+-export([create_test_dir/0, get_test_dir/0, delete_test_dir/0,
+ set_dir_permissions/2,
+ safe_application_load/1,
+ safe_write_file/2]).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-include("lager.hrl").
+
+-include_lib("kernel/include/file.hrl").
+
+levels() ->
+ [debug, info, notice, warning, error, critical, alert, emergency, none].
+
+level_to_num(debug) -> ?DEBUG;
+level_to_num(info) -> ?INFO;
+level_to_num(notice) -> ?NOTICE;
+level_to_num(warning) -> ?WARNING;
+level_to_num(error) -> ?ERROR;
+level_to_num(critical) -> ?CRITICAL;
+level_to_num(alert) -> ?ALERT;
+level_to_num(emergency) -> ?EMERGENCY;
+level_to_num(none) -> ?LOG_NONE.
+
+level_to_chr(debug) -> $D;
+level_to_chr(info) -> $I;
+level_to_chr(notice) -> $N;
+level_to_chr(warning) -> $W;
+level_to_chr(error) -> $E;
+level_to_chr(critical) -> $C;
+level_to_chr(alert) -> $A;
+level_to_chr(emergency) -> $M;
+level_to_chr(none) -> $ .
+
+num_to_level(?DEBUG) -> debug;
+num_to_level(?INFO) -> info;
+num_to_level(?NOTICE) -> notice;
+num_to_level(?WARNING) -> warning;
+num_to_level(?ERROR) -> error;
+num_to_level(?CRITICAL) -> critical;
+num_to_level(?ALERT) -> alert;
+num_to_level(?EMERGENCY) -> emergency;
+num_to_level(?LOG_NONE) -> none.
+
+-spec config_to_mask(atom()|string()) -> {'mask', integer()}.
+config_to_mask(Conf) ->
+ Levels = config_to_levels(Conf),
+ {mask, lists:foldl(fun(Level, Acc) ->
+ level_to_num(Level) bor Acc
+ end, 0, Levels)}.
+
+-spec mask_to_levels(non_neg_integer()) -> [lager:log_level()].
+mask_to_levels(Mask) ->
+ mask_to_levels(Mask, levels(), []).
+
+mask_to_levels(_Mask, [], Acc) ->
+ lists:reverse(Acc);
+mask_to_levels(Mask, [Level|Levels], Acc) ->
+ NewAcc = case (level_to_num(Level) band Mask) /= 0 of
+ true ->
+ [Level|Acc];
+ false ->
+ Acc
+ end,
+ mask_to_levels(Mask, Levels, NewAcc).
+
+-spec config_to_levels(atom()|string()) -> [lager:log_level()].
+config_to_levels(Conf) when is_atom(Conf) ->
+ config_to_levels(atom_to_list(Conf));
+config_to_levels([$! | Rest]) ->
+ levels() -- config_to_levels(Rest);
+config_to_levels([$=, $< | Rest]) ->
+ [_|Levels] = config_to_levels_int(Rest),
+ lists:filter(fun(E) -> not lists:member(E, Levels) end, levels());
+config_to_levels([$<, $= | Rest]) ->
+ [_|Levels] = config_to_levels_int(Rest),
+ lists:filter(fun(E) -> not lists:member(E, Levels) end, levels());
+config_to_levels([$>, $= | Rest]) ->
+ config_to_levels_int(Rest);
+config_to_levels([$=, $> | Rest]) ->
+ config_to_levels_int(Rest);
+config_to_levels([$= | Rest]) ->
+ [level_to_atom(Rest)];
+config_to_levels([$< | Rest]) ->
+ Levels = config_to_levels_int(Rest),
+ lists:filter(fun(E) -> not lists:member(E, Levels) end, levels());
+config_to_levels([$> | Rest]) ->
+ [_|Levels] = config_to_levels_int(Rest),
+ lists:filter(fun(E) -> lists:member(E, Levels) end, levels());
+config_to_levels(Conf) ->
+ config_to_levels_int(Conf).
+
+%% internal function to break the recursion loop
+config_to_levels_int(Conf) ->
+ Level = level_to_atom(Conf),
+ lists:dropwhile(fun(E) -> E /= Level end, levels()).
+
+level_to_atom(String) ->
+ Levels = levels(),
+ try list_to_existing_atom(String) of
+ Atom ->
+ case lists:member(Atom, Levels) of
+ true ->
+ Atom;
+ false ->
+ erlang:error(badarg)
+ end
+ catch
+ _:_ ->
+ erlang:error(badarg)
+ end.
+
+%% returns localtime with milliseconds included
+localtime_ms() ->
+ Now = os:timestamp(),
+ localtime_ms(Now).
+
+localtime_ms(Now) ->
+ {_, _, Micro} = Now,
+ {Date, {Hours, Minutes, Seconds}} = calendar:now_to_local_time(Now),
+ {Date, {Hours, Minutes, Seconds, Micro div 1000 rem 1000}}.
+
+
+maybe_utc({Date, {H, M, S, Ms}}) ->
+ case lager_stdlib:maybe_utc({Date, {H, M, S}}) of
+ {utc, {Date1, {H1, M1, S1}}} ->
+ {utc, {Date1, {H1, M1, S1, Ms}}};
+ {Date1, {H1, M1, S1}} ->
+ {Date1, {H1, M1, S1, Ms}}
+ end.
+
+format_time() ->
+ format_time(maybe_utc(localtime_ms())).
+
+format_time({utc, {{Y, M, D}, {H, Mi, S, Ms}}}) ->
+ {[integer_to_list(Y), $-, i2l(M), $-, i2l(D)],
+ [i2l(H), $:, i2l(Mi), $:, i2l(S), $., i3l(Ms), $ , $U, $T, $C]};
+format_time({{Y, M, D}, {H, Mi, S, Ms}}) ->
+ {[integer_to_list(Y), $-, i2l(M), $-, i2l(D)],
+ [i2l(H), $:, i2l(Mi), $:, i2l(S), $., i3l(Ms)]};
+format_time({utc, {{Y, M, D}, {H, Mi, S}}}) ->
+ {[integer_to_list(Y), $-, i2l(M), $-, i2l(D)],
+ [i2l(H), $:, i2l(Mi), $:, i2l(S), $ , $U, $T, $C]};
+format_time({{Y, M, D}, {H, Mi, S}}) ->
+ {[integer_to_list(Y), $-, i2l(M), $-, i2l(D)],
+ [i2l(H), $:, i2l(Mi), $:, i2l(S)]}.
+
+parse_rotation_hour_spec([], Res) ->
+ {ok, Res};
+parse_rotation_hour_spec([$H, M1, M2], Res) ->
+ case list_to_integer([M1, M2]) of
+ X when X >= 0, X =< 59 ->
+ {ok, Res ++ [{minute, X}]};
+ _ ->
+ {error, invalid_date_spec}
+ end;
+parse_rotation_hour_spec([$H, M], Res) when M >= $0, M =< $9 ->
+ {ok, Res ++ [{minute, M - 48}]};
+parse_rotation_hour_spec(_,_) ->
+ {error, invalid_date_spec}.
+
+%% Default to 00:00:00 rotation
+parse_rotation_day_spec([], Res) ->
+ {ok, Res ++ [{hour ,0}]};
+parse_rotation_day_spec([$D, D1, D2|T], Res) ->

guam-0.9.12.tar.gz/_checkouts/lager_syslog Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/.gitignore Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/.travis.yml Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/LICENSE Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/Makefile Added

@@ -0,0 +1,52 @@
+.PHONY: rel stagedevrel deps test
+
+all: deps compile
+
+compile:
+	./rebar compile
+
+deps:
+	./rebar get-deps
+
+clean:
+	./rebar clean
+
+distclean: clean
+	./rebar delete-deps
+
+test:
+	./rebar eunit
+
+##
+## Doc targets
+##
+docs:
+	./rebar doc
+
+APPS = kernel stdlib sasl erts ssl tools os_mon runtime_tools crypto inets \
+	xmerl webtool snmp public_key mnesia eunit syntax_tools compiler
+COMBO_PLT = $(HOME)/.riak_combo_dialyzer_plt
+
+check_plt: compile
+	dialyzer --check_plt --plt $(COMBO_PLT) --apps $(APPS)
+
+build_plt: compile
+	dialyzer --build_plt --output_plt $(COMBO_PLT) --apps $(APPS)
+
+dialyzer: compile
+	@echo
+	@echo Use "'make check_plt'" to check PLT prior to using this target.
+	@echo Use "'make build_plt'" to build PLT prior to using this target.
+	@echo
+	@sleep 1
+	dialyzer -Wno_return --plt $(COMBO_PLT) ebin | \
+	    fgrep -v -f ./dialyzer.ignore-warnings
+
+cleanplt:
+	@echo 
+	@echo "Are you sure?  It takes about 1/2 hour to re-build."
+	@echo Deleting $(COMBO_PLT) in 5 seconds.
+	@echo 
+	sleep 5
+	rm $(COMBO_PLT)
+

guam-0.9.12.tar.gz/_checkouts/lager_syslog/README.org Added

@@ -0,0 +1,53 @@
+* Overview
+  [[http://travis-ci.org/basho/lager_syslog][Travis-CI]] :: [[https://secure.travis-ci.org/basho/lager_syslog.png]]
+
+  This is a syslog backend for [[https://github.com/basho/lager][Lager]]. It
+  allows you to send messages out of lager and into the local syslog daemon.
+
+* Configuration
+  Configure a Lager handler like the following:
+
+#+BEGIN_EXAMPLE
+  {lager_syslog_backend, [Identity, Facility, Level]}
+#+END_EXAMPLE
+
+  The Identity is the string to tag all messages with in syslog, usually the
+  application's name. The facility is the facility to log to (see the syslog
+  documentation for a list of these). The Level is the lager level at which the
+  backend accepts messages (eg. using 'info' would send all messages at info
+  level or above into syslog). While you can filter messages at the syslog
+  level, it will improve performance if you filter in lager instead.
+
+  An example for [[http://www.basho.com/products_riak_overview.php][riak]]
+  would look something like this:
+
+#+BEGIN_EXAMPLE
+  {handlers, [
+    {lager_syslog_backend, ["riak", local1, info]},
+  ] },
+#+END_EXAMPLE
+
+  Then in your syslog config remembering syslog likes tabs and not spaces:
+
+#+BEGIN_EXAMPLE
+  local1.info                     /var/log/riak_info.log
+#+END_EXAMPLE
+
+  If you want to log to multiple facilities at once, you can do something like
+  the following:
+
+#+BEGIN_EXAMPLE
+  {{lager_syslog_backend, "daemon facility"}, ["riak1", daemon, info]},
+  {{lager_syslog_backend, ftp}, ["riak2", ftp, notice]},
+#+END_EXAMPLE
+
+  You MUST give each instance of the file backend its own identifier.
+
+  Refer to Lager's documentation for futher information on configuring handlers.
+
+* Troubleshooting
+  There's not a lot to go wrong, but if you are not receiving messages, check
+  your syslog config and read its manpage for more information. OS X, in
+  particular, has a very strange default config where it drops messages below
+  the 'info' level by default.
+

guam-0.9.12.tar.gz/_checkouts/lager_syslog/rebar Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/src Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/src/lager_syslog.app.src Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/src/lager_syslog_backend.erl Added

@@ -0,0 +1,141 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Syslog backend for lager.
+
+-module(lager_syslog_backend).
+
+-behaviour(gen_event).
+
+-export([init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+ code_change/3]).
+
+-export([config_to_id/1]).
+
+-record(state, {level, handle, id, formatter,format_config}).
+
+-include_lib("lager/include/lager.hrl").
+
+-define(DEFAULT_FORMAT,["[", severity, "] ",
+ {pid, ""},
+ {module, [
+ {pid, ["@"], ""},
+ module,
+ {function, [":", function], ""},
+ {line, [":",line], ""}], ""},
+ " ", message]).
+
+
+%% @private
+init([Ident, Facility, Level]) ->
+ init([Ident, Facility, Level, {lager_default_formatter, ?DEFAULT_FORMAT}]);
+init([Ident, Facility, Level, {Formatter, FormatterConfig}]) when is_atom(Formatter) ->
+ case application:start(syslog) of
+ ok ->
+ init2([Ident, Facility, Level, {Formatter, FormatterConfig}]);
+ {error, {already_started, _}} ->
+ init2([Ident, Facility, Level, {Formatter, FormatterConfig}]);
+ Error ->
+ Error
+ end.
+
+%% @private
+init2([Ident, Facility, Level, {Formatter, FormatterConfig}]) ->
+ case syslog:open(Ident, [pid], Facility) of
+ {ok, Log} ->
+ try parse_level(Level) of
+ Lvl ->
+ {ok, #state{level=Lvl,
+ id=config_to_id([Ident, Facility, Level]),
+ handle=Log,
+ formatter=Formatter,
+ format_config=FormatterConfig}}
+ catch
+ _:_ ->
+ {error, bad_log_level}
+ end;
+ Error ->
+ Error
+ end.
+
+
+%% @private
+handle_call(get_loglevel, #state{level=Level} = State) ->
+ {ok, Level, State};
+handle_call({set_loglevel, Level}, State) ->
+ try parse_level(Level) of
+ Lvl ->
+ {ok, ok, State#state{level=Lvl}}
+ catch
+ _:_ ->
+ {ok, {error, bad_log_level}, State}
+ end;
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+
+%% @private
+handle_event({log, Level, {_Date, _Time}, [_LevelStr, Location, Message]},
+ #state{level=LogLevel} = State) when Level =< LogLevel ->
+ syslog:log(State#state.handle, convert_level(Level), [Location, Message]),
+ {ok, State};
+handle_event({log, Message}, #state{level=Level,formatter=Formatter,format_config=FormatConfig} = State) ->
+ case lager_util:is_loggable(Message, Level, State#state.id) of
+ true ->
+ syslog:log(State#state.handle, convert_level(lager_msg:severity_as_int(Message)), [Formatter:format(Message, FormatConfig)]),
+ {ok, State};
+ false ->
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+%% @private
+handle_info(_Info, State) ->
+ {ok, State}.
+
+%% @private
+terminate(_Reason, _State) ->
+ ok.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+%% convert the configuration into a hopefully unique gen_event ID
+config_to_id([Ident, Facility, _Level]) ->
+ {?MODULE, {Ident, Facility}};
+config_to_id([Ident, Facility, _Level, _Formatter]) ->
+ {?MODULE, {Ident, Facility}}.
+
+convert_level(?DEBUG) -> debug;
+convert_level(?INFO) -> info;
+convert_level(?NOTICE) -> notice;
+convert_level(?WARNING) -> warning;
+convert_level(?ERROR) -> err;
+convert_level(?CRITICAL) -> crit;
+convert_level(?ALERT) -> alert;
+convert_level(?EMERGENCY) -> emerg.
+
+parse_level(Level) ->
+ try lager_util:config_to_mask(Level) of
+ Res ->
+ Res
+ catch
+ error:undef ->
+ %% must be lager < 2.0
+ lager_util:level_to_num(Level)
+ end.
+

guam-0.9.12.tar.gz/_checkouts/pc Added

guam-0.9.12.tar.gz/_checkouts/pc/.rebar3 Added

guam-0.9.12.tar.gz/_checkouts/pc/.rebar3/rebar_compiler_erl Added

guam-0.9.12.tar.gz/_checkouts/pc/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.12.tar.gz/_checkouts/pc/LICENSE Added

@@ -0,0 +1,18 @@
+Copyright (c) 2015, Brian L. Troutwine <brian@troutwine.us>.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+the Software, and to permit persons to whom the Software is furnished to do so,
+subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
\ No newline at end of file

guam-0.9.12.tar.gz/_checkouts/pc/README.md Added

@@ -0,0 +1,153 @@
+port_compiler
+=====
+
+A port compiler for rebar3.
+
+This plugin is intended to replicate the rebar2 support for compiling native
+code. It is not a drop-in replacement in terms of command-line interface but the
+exact configuration interface in projects' `rebar.config`s have been preserved.
+
+Use In Your Project
+---------------------
+
+Add the plugin to your `rebar.config`:
+
+```erlang
+{plugins, [pc]}.
+{provider_hooks,
+ [
+  {pre,
+   [
+    {compile, {pc, compile}},
+    {clean, {pc, clean}}
+   ]
+  }
+ ]
+}.
+```
+
+If you want to use tools like clang-tidy, don't forget to enable the compile commands db like this:
+
+```erlang
+{pc_clang_db, true}.
+```
+
+From your existing application:
+
+
+    $ rebar3 pc compile
+    ===> Fetching pc
+    ===> Compiling pc
+    ===> Verifying dependencies...
+    Compiling ...
+
+You should now have native code compiled.
+
+Use with Existing Dependency
+-----------------------------
+
+If your project depends on a dependency that used the rebar2 port compiler instead of forking and changing the `rebar.config` of that dependency you can use [overrides](http://www.rebar3.org/v3.0/docs/configuration#overrides) to inject the changes from your top level `rebar.config`. Using [jiffy](https://github.com/davisp/jiffy) as an example:
+
+
+```erlang
+{deps, [jiffy]}.
+
+{overrides,
+ [{override, jiffy, [
+     {plugins, [pc]},
+     {artifacts, ["priv/jiffy.so"]},
+     {provider_hooks, [
+         {post,
+             [
+             {compile, {pc, compile}},
+             {clean, {pc, clean}}
+             ]
+          }]
+      }
+  ]}
+]}.
+```
+
+Example
+---
+
+Looking for an example? See my fork of jiffy here and the changes to its
+`rebar.config`: https://github.com/blt/jiffy/commit/d4a0103daec5a646e71045bdf40f12a3eb82ace5
+
+- - -
+
+BELOW HERE BE DRAGONS
+
+```
+%% Supported configuration variables:
+%%
+%% * port_specs - Erlang list of tuples of the forms
+%%                {ArchRegex, TargetFile, Sources, Options}
+%%                {ArchRegex, TargetFile, Sources}
+%%                {TargetFile, Sources}
+%%
+%%                Note that if you want to use any of the rebar3 variables
+%%                below you must MUST use a ${}-style to get the expansion
+%%                to work. e.g. to expand REBAR_DEPS_DIR, do something like:
+%%
+%%                {port_specs, [{"priv/nif.so",
+%%                               ["c_src/nif.c",
+%%                                "${REBAR_DEPS_DIR}/foo/bar.c"]}]}.
+%%
+%%                This is a _very_ good way to be able to use your code both
+%%                as a top level app and a dependency.
+%%
+%%                CAVEAT! Not using {} is broken for the moment.
+%%
+%% * port_env - Erlang list of key/value pairs which will control
+%%              the environment when running the compiler and linker.
+%%              Variables set in the surrounding system shell are taken
+%%              into consideration when expanding port_env. Note that
+%%              for ERL_LDFLAGS, -lerl_interface is used for only those
+%%              Erlang/OTP versions where it exists (those prior to
+%%              version 23.0).
+%%
+%%              By default, the following variables are defined:
+%%              CC       - C compiler
+%%              CXX      - C++ compiler
+%%              CFLAGS   - C compiler
+%%              CXXFLAGS - C++ compiler
+%%              LDFLAGS  - Link flags
+%%              ERL_CFLAGS  - default -I paths for erts and ei
+%%              ERL_LDFLAGS - default -L and -lerl_interface -lei
+%%              DRV_CFLAGS  - flags that will be used for compiling
+%%              DRV_LDFLAGS - flags that will be used for linking
+%%              EXE_CFLAGS  - flags that will be used for compiling
+%%              EXE_LDFLAGS - flags that will be used for linking
+%%              ERL_EI_LIBDIR - ei library directory
+%%              DRV_CXX_TEMPLATE      - C++ command template
+%%              DRV_CC_TEMPLATE       - C command template
+%%              DRV_LINK_TEMPLATE     - C Linker command template
+%%              DRV_LINK_CXX_TEMPLATE - C++ Linker command template
+%%              EXE_CXX_TEMPLATE      - C++ command template
+%%              EXE_CC_TEMPLATE       - C command template
+%%              EXE_LINK_TEMPLATE     - C Linker command template
+%%              EXE_LINK_CXX_TEMPLATE - C++ Linker command template
+%%
+%%              Note that if you wish to extend (vs. replace) these variables,
+%%              you MUST include a shell-style reference in your definition.
+%%              e.g. to extend CFLAGS, do something like:
+%%
+%%              {port_env, [{"CFLAGS", "$CFLAGS -MyOtherOptions"}]}
+%%
+%%              It is also possible to specify platform specific options
+%%              by specifying a triplet where the first string is a regex
+%%              that is checked against Erlang's system architecture string.
+%%              e.g. to specify a CFLAG that only applies to x86_64 on linux
+%%              do:
+%%
+%%              {port_env, [{"x86_64.*-linux", "CFLAGS",
+%%                           "$CFLAGS -X86Options"}]}
+%%
+%%              Cross-arch environment variables to configure toolchain:
+%%              GET_ARCH to set the tool chain name to use
+%%              GET_ARCH_WORDSIZE (optional - to determine word size)"
+%%              word size is 32
+%%              GET_ARCH_VSN (optional - "
+%%              l version of CC/CXX is requested),
+```

guam-0.9.12.tar.gz/_checkouts/pc/ebin Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc.app Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_compilation.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_port_env.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_port_specs.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_prv_clean.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_prv_compile.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_util.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/hex_metadata.config Added

guam-0.9.12.tar.gz/_checkouts/pc/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/pc/rebar.lock Added

guam-0.9.12.tar.gz/_checkouts/pc/src Added

guam-0.9.12.tar.gz/_checkouts/pc/src/pc.app.src Added

guam-0.9.12.tar.gz/_checkouts/pc/src/pc.erl Added

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_compilation.erl Added

@@ -0,0 +1,257 @@
+%% -------------------------------------------------------------------
+%%
+%% This file contains substantial portions of the original rebar_port_compiler.
+%% Special thanks to all the folks that contributed to that effort.
+%%
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2009 Dave Smith (dizzyd@dizzyd.com)
+%%
+%% Permission is hereby granted, free of charge, to any person obtaining a copy
+%% of this software and associated documentation files (the "Software"), to deal
+%% in the Software without restriction, including without limitation the rights
+%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+%% copies of the Software, and to permit persons to whom the Software is
+%% furnished to do so, subject to the following conditions:
+%%
+%% The above copyright notice and this permission notice shall be included in
+%% all copies or substantial portions of the Software.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+%% THE SOFTWARE.
+%%
+%% -------------------------------------------------------------------
+-module(pc_compilation).
+
+-export([compile_and_link/2, clean/2, compiler/1]).
+-export_type([]).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+-spec compile_and_link(State :: rebar_state:t(),
+ Specs :: [pc_port_specs:spec()]) -> ok.
+compile_and_link(State, Specs) ->
+ %% Compile each of the sources
+ NewBins = compile_sources(State, Specs),
+
+ %% Make sure that the target directories exist
+ lists:foreach(fun(Spec) ->
+ Target = pc_port_specs:target(Spec),
+ ok = filelib:ensure_dir(filename:join(rebar_state:dir(State), Target))
+ end, Specs),
+
+ %% Only relink if necessary, given the Target
+ %% and list of new binaries
+ lists:foreach(
+ fun(Spec) ->
+ Target = pc_port_specs:target(Spec),
+ Bins = pc_port_specs:objects(Spec),
+ AllBins = [sets:from_list(Bins),
+ sets:from_list(NewBins)],
+ Intersection = sets:intersection(AllBins),
+ case needs_link(Target, sets:to_list(Intersection)) of
+ true ->
+ LinkLang = pc_port_specs:link_lang(Spec),
+ LinkTemplate = select_link_template(LinkLang, Target),
+ Env = pc_port_specs:create_env(State, Spec),
+ Cmd = expand_command(LinkTemplate, Env,
+ pc_util:strjoin(Bins, " "),
+ Target),
+ rebar_api:info("Linking ~ts", [Target]),
+ rebar_utils:sh(Cmd, [{env, Env}, {cd, rebar_state:dir(State)}]);
+ false ->
+ ok
+ end
+ end, Specs).
+
+clean(_State, Specs) ->
+ lists:foreach(fun(Spec) ->
+ Target = pc_port_specs:target(Spec),
+ Objects = pc_port_specs:objects(Spec),
+ rebar_file_utils:delete_each([Target]),
+ rebar_file_utils:delete_each(Objects),
+ rebar_file_utils:delete_each(port_deps(Objects))
+ end, Specs).
+
+%%%===================================================================
+%%% Internal Functions
+%%%===================================================================
+
+port_deps(SourceFiles) ->
+ [pc_util:replace_extension(O, ".d") || O <- SourceFiles].
+
+%%
+%% == compilation ==
+%%
+
+compile_sources(Config, Specs) ->
+ {NewBins, Db} =
+ lists:foldl(
+ fun(Spec, Acc) ->
+ Sources = pc_port_specs:sources(Spec),
+ Type = pc_port_specs:type(Spec),
+ Env = pc_port_specs:create_env(Config, Spec),
+ compile_each(Config, Sources, Type, Env, Acc)
+ end, {[], []}, Specs),
+ %% Rewrite clang compile commands database file only if something
+ %% was compiled.
+ case {NewBins, rebar_state:get(Config, pc_clang_db, false)} of
+ {[], _} ->
+ ok;
+ {_, true} ->
+ {ok, ClangDbFile} = file:open("compile_commands.json", [write]),
+ ok = io:fwrite(ClangDbFile, "[~n", []),
+ lists:foreach(fun(E) -> ok = io:fwrite(ClangDbFile, E, []) end, Db),
+ ok = io:fwrite(ClangDbFile, "]~n", []),
+ ok = file:close(ClangDbFile);
+ _ ->
+ ok
+ end,
+ NewBins.
+
+compile_each(_State, [], _Type, _Env, {NewBins, CDB}) ->
+ {lists:reverse(NewBins), lists:reverse(CDB)};
+compile_each(State, [Source | Rest], Type, Env, {NewBins, CDB}) ->
+ Ext = filename:extension(Source),
+ Bin = pc_util:replace_extension(Source, Ext, pc_port_specs:object_file_ext()),
+ Template = select_compile_template(Type, compiler(Ext)),
+ Cmd = expand_command(Template, Env, Source, Bin),
+ CDBEnt = cdb_entry(State, Source, Cmd, Rest),
+ NewCDB = [CDBEnt | CDB],
+ case needs_compile(Source, Bin) of
+ true ->
+ ShOpts = [ {env, Env}
+ , return_on_error
+ , {use_stdout, false}
+ , {cd, rebar_state:dir(State)}
+ ],
+ exec_compiler(State, Source, Cmd, ShOpts),
+ compile_each(State, Rest, Type, Env,
+ {[Bin | NewBins], NewCDB});
+ false ->
+ compile_each(State, Rest, Type, Env, {NewBins, NewCDB})
+ end.
+
+%% Generate a clang compilation db entry for Src and Cmd
+cdb_entry(State, Src, Cmd, SrcRest) ->
+ %% Omit all variables from cmd, and use that as cmd in
+ %% CDB, because otherwise clang-* will complain about it.
+ CDBCmd = pc_util:strjoin(
+ lists:filter(
+ fun("$"++_) -> false;
+ (_) -> true
+ end,
+ pc_util:strtok(Cmd, " ")),
+ " "),
+
+ Cwd = rebar_state:dir(State),
+ %% If there are more source files, make sure we end the CDB entry
+ %% with a comma.
+ Sep = case SrcRest of
+ [] -> "~n";
+ _ -> ",~n"
+ end,
+ %% CDB entry
+ lists:flatten(
+ io_lib:format(
+ "{ \"file\" : ~p~n"
+ ", \"directory\" : ~p~n"
+ ", \"command\" : ~p~n"
+ "}~s",
+ [Src, Cwd, CDBCmd, Sep])).
+
+%%
+%% Choose a compiler variable, based on a provided extension
+%%
+compiler(".cc") -> "$CXX";
+compiler(".cp") -> "$CXX";
+compiler(".cxx") -> "$CXX";
+compiler(".cpp") -> "$CXX";
+compiler(".CPP") -> "$CXX";
+compiler(".c++") -> "$CXX";
+compiler(".C") -> "$CXX";
+compiler(_) -> "$CC".
+
+expand_command(TmplName, Env, InFiles, OutFile) ->
+ Cmd0 = proplists:get_value(TmplName, Env),
+ Cmd1 = rebar_api:expand_env_variable(Cmd0, "PORT_IN_FILES", InFiles),
+ OutFile1 =
+ case re:run(OutFile, " ") of
+ nomatch -> OutFile;
+ _ -> lists:concat(["\"", OutFile, "\""])
+ end,
+ rebar_api:expand_env_variable(Cmd1, "PORT_OUT_FILE", OutFile1).
+
+exec_compiler(_Config, Source, Cmd, ShOpts) ->
+ case rebar_utils:sh(Cmd, ShOpts) of
+ {error, {_RC, RawError}} ->
+ AbsSource = filename:absname(Source),
+ rebar_api:info("Compiling ~ts", [AbsSource]),
+ Error = re:replace(RawError, Source, AbsSource,
+ [{return, list}, global, unicode]),
+ rebar_api:error("~ts", [Error]),

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_port_env.erl Added

@@ -0,0 +1,316 @@
+%% -------------------------------------------------------------------
+%%
+%% This file contains substantial portions of the original rebar_port_compiler.
+%% Special thanks to all the folks that contributed to that effort.
+%%
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2009 Dave Smith (dizzyd@dizzyd.com)
+%%
+%% Permission is hereby granted, free of charge, to any person obtaining a copy
+%% of this software and associated documentation files (the "Software"), to deal
+%% in the Software without restriction, including without limitation the rights
+%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+%% copies of the Software, and to permit persons to whom the Software is
+%% furnished to do so, subject to the following conditions:
+%%
+%% The above copyright notice and this permission notice shall be included in
+%% all copies or substantial portions of the Software.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+%% THE SOFTWARE.
+%%
+%% -------------------------------------------------------------------
+-module(pc_port_env).
+
+-export([construct/1, construct/2]).
+-export_type([]).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+construct(State) ->
+ construct(State, []).
+
+-spec construct(rebar_state:t()) -> {ok, [pc_port_specs:spec()]} |
+ {error, Reason :: any()}.
+construct(State, ExtraEnv) ->
+ DefaultEnv = filter_env(default_env()),
+ PortEnv = filter_env(rebar_state:get(State, port_env, [])),
+ OverrideEnv = PortEnv ++ ExtraEnv,
+
+ RawEnv = apply_defaults(os_env(), DefaultEnv) ++ OverrideEnv,
+ {ok, expand_vars_loop(merge_each_var(RawEnv))}.
+
+%%%===================================================================
+%%% Internal Functions
+%%%===================================================================
+
+%%
+%% Given a list of {Key, Value} environment variables, where Key may be defined
+%% multiple times, walk the list and expand each self-reference so that we
+%% end with a list of each variable singly-defined.
+%%
+merge_each_var(Vars) ->
+ lists:foldl(fun ({Key, Value}, Acc) ->
+ Evalue = case orddict:find(Key, Acc) of
+ error ->
+ %% Nothing yet defined for this key/value.
+ %% Expand any self-references as blank.
+ rebar_api:expand_env_variable(Value, Key, "");
+ {ok, Value0} ->
+ %% Use previous definition in expansion
+ rebar_api:expand_env_variable(Value, Key, Value0)
+ end,
+ orddict:store(Key, Evalue, Acc)
+ end, [], Vars).
+
+%%
+%% Give a unique list of {Key, Value} environment variables, expand each one
+%% for every other key until no further expansions are possible.
+%%
+expand_vars_loop(Vars) ->
+ expand_vars_loop(Vars, [], dict:from_list(Vars), 10).
+
+expand_vars_loop(_Pending, _Recurse, _Vars, 0) ->
+ rebar_api:abort("Max. expansion reached for ENV vars!\n", []);
+expand_vars_loop([], [], Vars, _Count) ->
+ lists:keysort(1, dict:to_list(Vars));
+expand_vars_loop([], Recurse, Vars, Count) ->
+ expand_vars_loop(Recurse, [], Vars, Count-1);
+expand_vars_loop([{K, V} | Rest], Recurse, Vars, Count) ->
+ %% Identify the variables that need expansion in this value
+ ReOpts = [global, {capture, all_but_first, list}, unicode],
+ case re:run(V, "\\\${?(\\w+)}?", ReOpts) of
+ {match, Matches} ->
+ %% Identify the unique variables that need to be expanded
+ UniqueMatches = lists:usort([M || [M] <- Matches]),
+
+ %% For each variable, expand it and return the final
+ %% value. Note that if we have a bunch of unresolvable
+ %% variables, nothing happens and we don't bother
+ %% attempting further expansion
+ case expand_keys_in_value(UniqueMatches, V, Vars) of
+ V ->
+ %% No change after expansion; move along
+ expand_vars_loop(Rest, Recurse, Vars, Count);
+ Expanded ->
+ %% Some expansion occurred; move to next k/v but
+ %% revisit this value in the next loop to check
+ %% for further expansion
+ NewVars = dict:store(K, Expanded, Vars),
+ expand_vars_loop(Rest, [{K, Expanded} | Recurse],
+ NewVars, Count)
+ end;
+
+ nomatch ->
+ %% No values in this variable need expansion; move along
+ expand_vars_loop(Rest, Recurse, Vars, Count)
+ end.
+
+expand_keys_in_value([], Value, _Vars) ->
+ Value;
+expand_keys_in_value([Key | Rest], Value, Vars) ->
+ NewValue = case dict:find(Key, Vars) of
+ {ok, KValue} ->
+ rebar_api:expand_env_variable(Value, Key, KValue);
+ error ->
+ Value
+ end,
+ expand_keys_in_value(Rest, NewValue, Vars).
+
+%%
+%% Filter a list of env vars such that only those which match the provided
+%% architecture regex (or do not have a regex) are returned.
+%%
+filter_env(Env) ->
+ Res = lists:foldl(fun
+ ({ArchRegex, Key, Value}, Acc) ->
+ case pc_util:is_arch(ArchRegex) of
+ true -> [{Key,Value} | Acc];
+ false -> Acc
+ end;
+ ({Key,Value}, Acc) ->
+ [{Key,Value} | Acc]
+ end, [], Env),
+ lists:reverse(Res).
+
+%%
+%% Given a list of {Key, Value} variables, and another list of default
+%% {Key, Value} variables, return a merged list where the rule is if the
+%% default is expandable expand it with the value of the variable list,
+%% otherwise just return the value of the variable.
+%%
+apply_defaults(Vars, Defaults) ->
+ dict:to_list(
+ dict:merge(fun(Key, VarValue, DefaultValue) ->
+ case is_expandable(DefaultValue) of
+ true ->
+ rebar_api:expand_env_variable(DefaultValue,
+ Key,
+ VarValue);
+ false -> VarValue
+ end
+ end,
+ dict:from_list(Vars),
+ dict:from_list(Defaults))).
+
+os_env() ->
+ ReOpts = [{return, list}, {parts, 2}, unicode],
+ Os = [list_to_tuple(re:split(S, "=", ReOpts)) ||
+ S <- lists:filter(fun discard_deps_vars/1, os:getenv())],
+ %% Drop variables without a name (win32)
+ [T1 || {K, _V} = T1 <- Os, K =/= []].
+
+%%
+%% To avoid having multiple repetitions of the same environment variables
+%% (ERL_LIBS), avoid exporting any variables that may cause conflict with
+%% those exported by the rebar_deps module (ERL_LIBS, REBAR_DEPS_DIR)
+%%
+discard_deps_vars("ERL_LIBS=" ++ _Value) -> false;
+discard_deps_vars("REBAR_DEPS_DIR=" ++ _Value) -> false;
+discard_deps_vars(_Var) -> true.
+
+%%
+%% Given a string, determine if it is expandable
+%%
+is_expandable(InStr) ->
+ case re:run(InStr,"\\\$",[{capture,none}]) of
+ match -> true;
+ nomatch -> false
+ end.
+
+erl_interface_dir(Subdir) ->
+ case code:lib_dir(erl_interface, Subdir) of
+ {error, bad_name} ->
+ throw({error, {erl_interface,Subdir,"code:lib_dir(erl_interface)"
+ "is unable to find the erl_interface library."}});
+ Dir -> Dir
+ end.
+
+erts_dir() ->
+ lists:concat([code:root_dir(), "/erts-", erlang:system_info(version)]).
+

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_port_specs.erl Added

@@ -0,0 +1,253 @@
+%% -------------------------------------------------------------------
+%%
+%% This file contains substantial portions of the original rebar_port_compiler.
+%% Special thanks to all the folks that contributed to that effort.
+%%
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2009 Dave Smith (dizzyd@dizzyd.com)
+%%
+%% Permission is hereby granted, free of charge, to any person obtaining a copy
+%% of this software and associated documentation files (the "Software"), to deal
+%% in the Software without restriction, including without limitation the rights
+%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+%% copies of the Software, and to permit persons to whom the Software is
+%% furnished to do so, subject to the following conditions:
+%%
+%% The above copyright notice and this permission notice shall be included in
+%% all copies or substantial portions of the Software.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+%% THE SOFTWARE.
+%%
+%% -------------------------------------------------------------------
+-module(pc_port_specs).
+
+-export([
+ construct/1,
+ create_env/2,
+ %% spec accessors
+ environment/1,
+ opts/1,
+ objects/1,
+ sources/1,
+ target/1,
+ type/1,
+ link_lang/1,
+ object_file_ext/0
+ ]).
+-export_type([spec/0]).
+
+-record(spec, {type::'drv' | 'exe',
+ link_lang::'cc' | 'cxx',
+ target::file:filename(),
+ sources = [] :: [file:filename(), ...],
+ objects = [] :: [file:filename(), ...],
+ opts = [] :: list() | []}).
+
+-opaque spec() :: #spec{}.
+
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+-spec construct(rebar_state:t()) -> {ok, [spec()]} |
+ {error, Reason :: any()}.
+construct(State) ->
+ case rebar_state:get(State, port_specs, []) of
+ [] ->
+ {ok, [port_spec_from_legacy(State)]};
+ PortSpecs ->
+ Filtered = lists:filter(fun filter_port_spec/1, PortSpecs),
+ Specs = [get_port_spec(State, os:type(), Spec) || Spec <- Filtered],
+ {ok, [S || S <- Specs, S#spec.sources /= []]}
+ end.
+
+create_env(State, Spec) ->
+ pc_port_specs:environment(Spec) ++
+ try_and_create_env(State).
+
+%% == Spec Accessors ==
+
+environment(#spec{opts = Opts}) -> proplists:get_value(env, Opts).
+opts(#spec{opts = Opts}) -> Opts.
+objects(#spec{objects = Objects}) -> Objects.
+sources(#spec{sources = Sources}) -> Sources.
+target(#spec{target = Target}) -> Target.
+type(#spec{type = Type}) -> Type.
+link_lang(#spec{link_lang = LinkLang}) -> LinkLang.
+
+%%%===================================================================
+%%% Internal Functions
+%%%===================================================================
+
+try_and_create_env(State) ->
+ _ = code:ensure_loaded(rebar_env),
+ case erlang:function_exported(rebar_env, create_env, 1) of
+ false -> [];
+ true -> rebar_env:create_env(State)
+ end.
+
+port_spec_from_legacy(Config) ->
+ %% Get the target from the so_name variable
+ OutDir = case os:getenv("REBAR_BARE_COMPILER_OUTPUT_DIR", undefined) of
+ undefined ->
+ "priv";
+ Dir ->
+ filename:join(Dir, "priv")
+ end,
+ Target = case rebar_state:get(Config, so_name, undefined) of
+ undefined ->
+ %% Generate a sensible default from app file
+ AppName = case rebar_state:current_app(Config) of
+ undefined ->
+ throw({error, {pc_prv_compile, no_app}});
+ CurrentApp ->
+ BAppName = rebar_app_info:name(CurrentApp),
+ binary_to_list(BAppName)
+ end,
+ filename:join(OutDir, lists:concat([AppName, "_drv.so"]));
+ AName ->
+ filename:join(OutDir, AName)
+ end,
+
+ %% Get the list of source files from port_sources
+ Sources = port_sources(rebar_state:dir(Config), rebar_state:get(Config, port_sources, ["c_src/*.c"])),
+ #spec { type = pc_util:target_type(Target),
+ link_lang = cc,
+ target = maybe_switch_extension(os:type(), Target),
+ sources = Sources,
+ objects = port_objects(Sources),
+ opts = [port_opt(Config, O) || O <- fill_in_defaults([])]}.
+
+maybe_report_wc(Source, Found) ->
+ case Found of
+ [] ->
+ rebar_api:warn("Found no source files for:~n~p", [Source]);
+ _ ->
+ ok
+ end,
+ Found.
+
+wildcard(Source, WorkDir) ->
+ maybe_report_wc(Source, filelib:wildcard(Source, WorkDir)).
+
+port_sources(WorkDir, Sources) ->
+ lists:flatmap(fun (Source) ->
+ wildcard(Source, WorkDir)
+ end, Sources).
+
+maybe_switch_extension({win32, nt}, Target) ->
+ switch_to_dll_or_exe(Target);
+maybe_switch_extension(_OsType, Target) ->
+ Target.
+
+port_objects(SourceFiles) ->
+ Ext = object_file_ext(),
+ [pc_util:replace_extension(O, Ext) || O <- SourceFiles].
+
+filter_port_spec({ArchRegex, _, _, _}) ->
+ pc_util:is_arch(ArchRegex);
+filter_port_spec({ArchRegex, _, _}) ->
+ pc_util:is_arch(ArchRegex);
+filter_port_spec({_, _}) ->
+ true.
+
+get_port_spec(Config, OsType, {Target, Sources}) ->
+ get_port_spec(Config, OsType, {undefined, Target, Sources, []});
+get_port_spec(Config, OsType, {Arch, Target, Sources}) ->
+ get_port_spec(Config, OsType, {Arch, Target, Sources, []});
+get_port_spec(Config, OsType, {_Arch, Target, Sources, Opts}) ->
+ Env = try_and_create_env(Config),
+ ProjectRoot = rebar_state:dir(Config),
+ SourceFiles =
+ lists:flatmap(
+ fun(Source) ->
+ wildcard(expand_env(Source, Env), rebar_state:dir(Config))
+ end, Sources),
+ LinkLang =
+ case lists:any(
+ fun(Src) ->
+ pc_compilation:compiler(filename:extension(Src)) == "$CXX"
+ end,
+ SourceFiles)
+ of
+ true -> cxx;
+ false -> cc
+ end,
+ 
+ Target1 =
+ case os:getenv("REBAR_BARE_COMPILER_OUTPUT_DIR", undefined) of
+ undefined ->
+ filename:join(ProjectRoot, Target);
+ Dir -> 
+ filename:join([Dir, Target])
+ end,
+ #spec{type = pc_util:target_type(Target1),
+ target = coerce_extension(OsType, Target1),
+ link_lang = LinkLang,
+ sources = SourceFiles,
+ objects = port_objects(SourceFiles),
+ opts = [port_opt(Config, O) || O <- fill_in_defaults(Opts)]}.
+
+expand_env(Source, Env) ->

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_prv_clean.erl Added

@@ -0,0 +1,51 @@
+%% -------------------------------------------------------------------
+%%
+%% rebar3 port compiler cleaner, in the manner of rebar2.
+%%
+%% -------------------------------------------------------------------
+-module(pc_prv_clean).
+-behaviour(provider).
+
+-export([init/1, do/1, format_error/1]).
+
+-define(NAMESPACE, pc).
+-define(PROVIDER, clean).
+-define(DEPS, [{default, app_discovery}]).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+-spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
+init(State) ->
+    Provider = providers:create([
+                                 {name, ?PROVIDER},             %% The 'user friendly' name of the task
+                                 {module, ?MODULE},             %% The module implementation of the task
+                                 {bare, true},                  %% The task can be run by the user, always true
+                                 {deps, ?DEPS},                 %% The list of dependencies
+                                 {example, "rebar pc clean"},   %% How to use the plugin
+                                 {opts, []},                    %% list of options understood by the plugin
+                                 {short_desc, "clean the results of port compilation"},
+                                 {desc, ""},
+                                 {namespace, pc}
+                                ]),
+    {ok, rebar_state:add_provider(State, Provider)}.
+
+
+-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
+do(State) ->
+    Cwd = rebar_state:dir(State),
+    Providers = rebar_state:providers(State),
+    rebar_hooks:run_all_hooks(
+      Cwd, pre, {?NAMESPACE, ?PROVIDER}, Providers, State),
+
+    {ok, PortSpecs} = pc_port_specs:construct(State),
+    ok = pc_compilation:clean(State, PortSpecs),
+
+    rebar_hooks:run_all_hooks(
+      Cwd, post, {?NAMESPACE, ?PROVIDER}, Providers, State),
+    {ok, State}.
+
+-spec format_error(any()) ->  iolist().
+format_error(Reason) ->
+    io_lib:format("~p", [Reason]).

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_prv_compile.erl Added

@@ -0,0 +1,65 @@
+%% -------------------------------------------------------------------
+%%
+%% rebar3 port compiler, in the manner of rebar2.
+%%
+%% -------------------------------------------------------------------
+-module(pc_prv_compile).
+-behaviour(provider).
+
+-export([init/1, do/1, format_error/1]).
+
+-define(NAMESPACE, pc).
+-define(PROVIDER, compile).
+-define(DEPS, [{default, compile}]).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+-spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
+init(State) ->
+ Provider = providers:create([
+ {name, ?PROVIDER}, %% The 'user friendly' name of the task
+ {module, ?MODULE}, %% The module implementation of the task
+ {bare, true}, %% The task can be run by the user, always true
+ {deps, ?DEPS}, %% The list of dependencies
+ {example, "rebar pc compile"}, %% How to use the plugin
+ {opts, []}, %% list of options understood by the plugin
+ {short_desc, "perform port compilation"},
+ {desc, ""},
+ {namespace, pc}
+ ]),
+ {ok, rebar_state:add_provider(State, Provider)}.
+
+
+-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
+do(State) ->
+ Apps = case rebar_state:current_app(State) of
+ undefined ->
+ rebar_state:project_apps(State);
+ AppInfo ->
+ [AppInfo]
+ end,
+
+ Cwd = rebar_state:dir(State),
+ Providers = rebar_state:providers(State),
+ rebar_hooks:run_all_hooks(
+ Cwd, pre, {?NAMESPACE, ?PROVIDER}, Providers, State),
+
+ [begin
+ Opts = rebar_app_info:opts(AppInfo1),
+ State1 = rebar_state:opts(State, Opts),
+ {ok, PortSpecs} = pc_port_specs:construct(State1),
+ ok = pc_compilation:compile_and_link(State1, PortSpecs)
+ end || AppInfo1 <- Apps],
+
+ rebar_hooks:run_all_hooks(
+ Cwd, post, {?NAMESPACE, ?PROVIDER}, Providers, State),
+
+ {ok, State}.
+
+-spec format_error(any()) -> iolist().
+format_error(no_app) ->
+ io_lib:format("No so_name or application defined.", []);
+format_error(Reason) ->
+ io_lib:format("~p", [Reason]).

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_util.erl Added

@@ -0,0 +1,232 @@
+-module(pc_util).
+
+-export([ replace_extension/2
+ , replace_extension/3
+ , target_type/1
+ , get_arch/0
+ , wordsize/0
+ , is_arch/1
+ , strtok/2
+ , strjoin/2
+ , strchr/2
+ ]).
+-export_type([]).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+replace_extension(File, NewExt) ->
+ OldExt = filename:extension(File),
+ replace_extension(File, OldExt, NewExt).
+replace_extension(File, OldExt, NewExt) ->
+ filename:rootname(File, OldExt) ++ NewExt.
+
+target_type(Target) -> target_type1(filename:extension(Target)).
+target_type1(".so") -> drv;
+target_type1(".dll") -> drv;
+target_type1("") -> exe;
+target_type1(".exe") -> exe.
+
+is_arch(ArchRegex) ->
+ case re:run(get_arch(), ArchRegex, [{capture, none}]) of
+ match ->
+ true;
+ nomatch ->
+ false
+ end.
+
+%%
+%% REBAR_TARGET_ARCH, if used, should be set to the "standard"
+%% target string. That is a prefix for binutils tools.
+%% "x86_64-linux-gnu" or "arm-linux-gnueabi" are good candidates
+%% ${REBAR_TARGET_ARCH}-gcc, ${REBAR_TARGET_ARCH}-ld ...
+%%
+get_arch() ->
+ Arch = os:getenv("REBAR_TARGET_ARCH"),
+ Words = wordsize(Arch),
+ rebar_utils:otp_release() ++ "-" ++ get_system_arch(Arch) ++ "-" ++ Words.
+
+get_system_arch(Arch) when Arch =:= false; Arch =:= "" ->
+ erlang:system_info(system_architecture);
+get_system_arch(Arch) ->
+ Arch.
+
+wordsize() ->
+ wordsize(os:getenv("REBAR_TARGET_ARCH")).
+
+%%%===================================================================
+%%% Internal Functions
+%%%===================================================================
+
+wordsize(Arch) when Arch =:= false; Arch =:= "" ->
+ native_wordsize();
+wordsize(Arch) ->
+ AllArchs = [
+ {"i686","32"},
+ {"i386","32"},
+ {"arm","32"},
+ {"aarch64", "64"},
+ {"x86_64","64"}
+ ],
+ case match_wordsize(Arch, AllArchs) of
+ false ->
+ case cross_wordsize(Arch) of
+ "" ->
+ env_wordsize(os:getenv("REBAR_TARGET_ARCH_WORDSIZE"));
+ WordSize ->
+ WordSize
+ end;
+ {_, Wordsize} ->
+ Wordsize
+ end.
+
+match_wordsize(Arch, [V={Match,_Bits}|Vs]) ->
+ case re:run(Arch, Match, [{capture, none}]) of
+ match ->
+ V;
+ nomatch ->
+ match_wordsize(Arch, Vs)
+ end;
+match_wordsize(_Arch, []) ->
+ false.
+
+env_wordsize(Wordsize) when Wordsize =:= false;
+ Wordsize =:= "" ->
+ rebar_log:log(
+ warn, "REBAR_TARGET_ARCH_WORDSIZE not set, assuming 32\n", []),
+ "32";
+env_wordsize(Wordsize) ->
+ case Wordsize of
+ "16" -> Wordsize;
+ "32" -> Wordsize;
+ "64" -> Wordsize;
+ _ ->
+ rebar_log:log(
+ warn, "REBAR_TARGET_ARCH_WORDSIZE bad value: ~p\n", [Wordsize]),
+ "32"
+ end.
+
+%%
+%% Find out the word size of the target by using Arch-gcc
+%%
+cross_wordsize(Arch) ->
+ cross_sizeof(Arch, "void*").
+
+%%
+%% Find the size of target Type using a specially crafted C file
+%% that will report an error on the line of the byte size of the type.
+%%
+cross_sizeof(Arch, Type) ->
+ Compiler = if Arch =:= "" -> "cc";
+ true -> Arch ++ "-gcc"
+ end,
+ TempFile = mktempfile(".c"),
+ ok = file:write_file(TempFile,
+ <<"int t01 [1 - 2*(((long) (sizeof (TYPE))) == 1)];\n"
+ "int t02 [1 - 2*(((long) (sizeof (TYPE))) == 2)];\n"
+ "int t03 [1 - 2*(((long) (sizeof (TYPE))) == 3)];\n"
+ "int t04 [1 - 2*(((long) (sizeof (TYPE))) == 4)];\n"
+ "int t05 [1 - 2*(((long) (sizeof (TYPE))) == 5)];\n"
+ "int t06 [1 - 2*(((long) (sizeof (TYPE))) == 6)];\n"
+ "int t07 [1 - 2*(((long) (sizeof (TYPE))) == 7)];\n"
+ "int t08 [1 - 2*(((long) (sizeof (TYPE))) == 8)];\n"
+ "int t09 [1 - 2*(((long) (sizeof (TYPE))) == 9)];\n"
+ "int t10 [1 - 2*(((long) (sizeof (TYPE))) == 10)];\n"
+ "int t11 [1 - 2*(((long) (sizeof (TYPE))) == 11)];\n"
+ "int t12 [1 - 2*(((long) (sizeof (TYPE))) == 12)];\n"
+ "int t13 [1 - 2*(((long) (sizeof (TYPE))) == 13)];\n"
+ "int t14 [1 - 2*(((long) (sizeof (TYPE))) == 14)];\n"
+ "int t15 [1 - 2*(((long) (sizeof (TYPE))) == 15)];\n"
+ "int t16 [1 - 2*(((long) (sizeof (TYPE))) == 16)];\n"
+ >>),
+ Cmd = Compiler ++ " -DTYPE=\""++Type++"\" " ++ TempFile,
+ ShOpts = [{use_stdout, false}, return_on_error],
+ {error, {_,Res}} = rebar_utils:sh(Cmd, ShOpts),
+ ok = file:delete(TempFile),
+ case strtok(Res, ":") of
+ [_, Ln | _] ->
+ try list_to_integer(Ln) of
+ NumBytes -> integer_to_list(NumBytes*8)
+ catch
+ error:_ ->
+ ""
+ end;
+ _ ->
+ ""
+ end.
+
+strtok(Str, SepList) ->
+ case erlang:function_exported(string, lexemes, 2) of
+ true -> string:lexemes(Str, SepList);
+ false -> apply(string, tokens, [Str, SepList])
+ end.
+
+%% Lifted lists:join/2 from OTP-19 to use with OTP-17 and OTP-18.
+%% TODO: remove when pc requires OTP >=19.
+lists_join(Sep, L) ->
+ case erlang:function_exported(lists, join, 2) of
+ true -> lists:join(Sep, L);
+ false -> lists_join1(Sep, L)
+ end.
+
+lists_join1(_Sep, []) -> [];
+lists_join1(Sep, [H|T]) -> [H|lists_join1_prepend(Sep, T)].
+
+lists_join1_prepend(_Sep, []) -> [];
+lists_join1_prepend(Sep, [H|T]) -> [Sep,H|lists_join1_prepend(Sep,T)].
+
+strjoin(L, Sep) ->
+ lists:flatten(lists_join(Sep, L)).
+
+strchr(S, C) when is_integer(C) -> strchr(S, C, 1).
+strchr([C|_Cs], C, I) -> I;
+strchr([_|Cs], C, I) -> strchr(Cs, C, I+1);
+strchr([], _C, _I) -> 0.
+
+mktempfile(Suffix) ->
+ {A,B,C} = rebar_now(),
+ Dir = temp_dir(),
+ File = "rebar_"++os:getpid()++
+ integer_to_list(A)++"_"++
+ integer_to_list(B)++"_"++
+ integer_to_list(C)++Suffix,
+ filename:join(Dir, File).
+
+temp_dir() ->
+ case os:type() of
+ {win32, _} -> windows_temp_dir();
+ _ -> "/tmp"

guam-0.9.12.tar.gz/_checkouts/syslog Added

guam-0.9.12.tar.gz/_checkouts/syslog/.gitignore Added

guam-0.9.12.tar.gz/_checkouts/syslog/LICENSE Added

@@ -0,0 +1,22 @@
+Copyright 2009-2017 Andrew Thompson <andrew@hijacked.us>. All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+ 1. Redistributions of source code must retain the above copyright notice,
+ this list of conditions and the following disclaimer.
+ 2. Redistributions in binary form must reproduce the above copyright
+ notice, this list of conditions and the following disclaimer in the
+ documentation and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE PROJECT ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+

guam-0.9.12.tar.gz/_checkouts/syslog/README.md Added

@@ -0,0 +1,107 @@
+Erlang driver for syslog
+------------------------
+
+This is an erlang port driver for interacting with syslog.
+
+Installing it
+-------------
+
+    ./rebar3 compile
+
+Trying it
+---------
+
+You should have a look at syslog.h.
+
+In another shell :
+
+    $ tail -f /var/log/syslog
+
+Or, for mac users :
+
+    $ tail -f /var/log/system.log
+
+In erlang shell :
+
+    $ erl
+    > syslog:start().
+    > {ok,Log} = syslog:open("Beuha", [cons, perror, pid], local0).
+    > syslog:log(Log, err, "Damned").
+    > syslog:log(Log, info, "process count: ~w", [length(processes())]).
+
+API
+---
+
+### syslog:open(Ident, Logopt, Facility) -> {ok, port()} ###
+
+_Ident_ is an arbitrary string  
+_Logopt_ is an atom or array of atom, you can use a number if you're brave enough :
+
+ * pid
+ * cons
+ * odelay
+ * ndelay
+ * perror
+
+_Facility_ is an atom :
+
+ * kern
+ * user
+ * mail
+ * daemon
+ * auth
+ * syslog
+ * lpr
+ * news
+ * uucp
+ * cron
+ * authpriv
+ * ftp
+ * netinfo
+ * remoteauth
+ * install
+ * ras
+ * local0
+ * local1
+ * local2
+ * local3
+ * local4
+ * local5
+ * local6
+ * local7
+
+The `open` call returns either `{ok, Log}` where _Log_ is a syslog handle
+that can be passed to subsequent `log` and `close` calls, or it will throw
+{error, badarg}.
+
+### syslog:log(Log, Priority, Message) -> ok ###
+
+_Log_ is a syslog handle returned from `open`  
+_Priority_ can be a number or better, an atom :
+
+ * emerg
+ * alert
+ * crit
+ * err
+ * warning
+ * notice
+ * info
+ * debug
+
+_Message_ is a string.
+
+### syslog:log(Log, Priority, FormatMsg, FormatArgs) -> ok ###
+
+Same as above, but allows for the construction of log messages similar to
+formatting strings via `io_lib:format/2`, where _FormatMsg_ indicates the
+formatting instructions and _FormatArgs_ is a list of arguments to be
+formatted.
+
+### syslog:close(Log) -> ok ###
+
+_Log_ is a syslog handle returned from `open`
+
+BUGS
+----
+
+ * None known

guam-0.9.12.tar.gz/_checkouts/syslog/c_src Added

guam-0.9.12.tar.gz/_checkouts/syslog/c_src/syslog_drv.c Added

@@ -0,0 +1,182 @@
+/*
+Copyright 2009 Andrew Thompson <andrew@hijacked.us>. All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+ 1. Redistributions of source code must retain the above copyright notice,
+ this list of conditions and the following disclaimer.
+ 2. Redistributions in binary form must reproduce the above copyright
+ notice, this list of conditions and the following disclaimer in the
+ documentation and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+*/
+#include <stdint.h>
+#include <syslog.h>
+#include <stdarg.h>
+#include <string.h>
+
+#include <ei.h>
+#include <erl_driver.h>
+
+/* for pre-R15 compatibility */
+#if ERL_DRV_EXTENDED_MAJOR_VERSION < 2
+typedef int ErlDrvSizeT;
+typedef int ErlDrvSSizeT;
+#endif
+
+#define DRV_NAME "syslog_drv"
+
+/* the following constants have to match those in syslog.erl */
+#define SYSLOGDRV_OPEN 1
+#define SYSLOGDRV_CLOSE 2
+
+struct syslogdrv {
+ ErlDrvPort port;
+ char *ident;
+ int logopt;
+ int facility;
+ unsigned char open;
+};
+
+typedef struct syslogdrv syslogdrv_t;
+
+static ErlDrvSSizeT encode_error(char* buf, char* error) {
+ int index = 0;
+ if (ei_encode_version(buf, &index) ||
+ ei_encode_tuple_header(buf, &index, 2) ||
+ ei_encode_atom(buf, &index, "error") ||
+ ei_encode_atom(buf, &index, error)) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_GENERAL;
+ }
+ return index+1;
+}
+
+static ErlDrvData syslogdrv_start(ErlDrvPort port, char *buf)
+{
+ syslogdrv_t* d = (syslogdrv_t*)driver_alloc(sizeof(syslogdrv_t));
+ d->port = port;
+ d->open = 0;
+ d->ident = NULL;
+ set_port_control_flags(port, PORT_CONTROL_FLAG_BINARY);
+ return (ErlDrvData)d;
+}
+
+static void syslogdrv_stop(ErlDrvData handle)
+{
+ syslogdrv_t* d = (syslogdrv_t*)handle;
+ closelog();
+ if (d->ident) {
+ driver_free(d->ident);
+ }
+ driver_free((char*)handle);
+}
+
+static void syslogdrv_output(ErlDrvData handle, char *buf, ErlDrvSizeT len)
+{
+ syslogdrv_t* d = (syslogdrv_t*)handle;
+ /* Incoming data is expected to start with an integer priority encoded
+ as a 4-byte integer in network order, therefore make sure there's at
+ least 5 bytes in the message. */
+ if (d->open && len > 4) {
+ int priority = ntohl(*(uint32_t*)buf);
+ buf += 4;
+ /* re-call openlog in case another instance of the port driver
+ * was called in the mean time */
+ openlog(d->ident, d->logopt, d->facility);
+ syslog(priority, "%s", buf);
+ }
+}
+
+static ErlDrvSSizeT syslogdrv_control(ErlDrvData handle, unsigned int command,
+ char *buf, ErlDrvSizeT len,
+ char **rbuf, ErlDrvSizeT rlen)
+{
+ syslogdrv_t* d = (syslogdrv_t*)handle;
+ if (d->open) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ int index = 0, version, arity, type, size;
+
+ if (command != SYSLOGDRV_OPEN) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+
+ if (ei_decode_version(buf, &index, &version)) {
+ return encode_error(*rbuf, "badver");
+ }
+ if (ei_decode_tuple_header(buf, &index, &arity) || arity != 3) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ if (ei_get_type(buf, &index, &type, &size)) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ if (type == ERL_STRING_EXT) {
+ long logopt, facility;
+
+ if (d->ident) {
+ driver_free(d->ident);
+ }
+ d->ident = driver_alloc(size+1);
+ if (d->ident == NULL) {
+ return encode_error(*rbuf, "enomem");
+ }
+ if (ei_decode_string(buf, &index, d->ident)) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ if (ei_decode_long(buf, &index, &logopt) ||
+ ei_decode_long(buf, &index, &facility)) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ d->logopt = (int)logopt;
+ d->facility = (int)facility;
+ d->open = 1;
+ return 0;
+ } else {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+}
+
+/*
+ * Initialize and return a driver entry struct
+ */
+static ErlDrvEntry syslogdrv_driver_entry = {
+ NULL,
+ syslogdrv_start,
+ syslogdrv_stop,
+ syslogdrv_output,
+ NULL,
+ NULL,
+ DRV_NAME,
+ NULL,
+ NULL,
+ syslogdrv_control,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ ERL_DRV_EXTENDED_MARKER,
+ ERL_DRV_EXTENDED_MAJOR_VERSION,
+ ERL_DRV_EXTENDED_MINOR_VERSION,
+ 0,
+ NULL,
+ NULL,
+ NULL,
+};
+
+DRIVER_INIT(syslogdrv)
+{
+ return &syslogdrv_driver_entry;
+}

guam-0.9.12.tar.gz/_checkouts/syslog/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/syslog/rebar.lock Added

guam-0.9.12.tar.gz/_checkouts/syslog/src Added

guam-0.9.12.tar.gz/_checkouts/syslog/src/syslog.app.src Added

guam-0.9.12.tar.gz/_checkouts/syslog/src/syslog.erl Added

@@ -0,0 +1,318 @@
+%%% Copyright 2009 Andrew Thompson <andrew@hijacked.us>. All rights reserved.
+%%%
+%%% Redistribution and use in source and binary forms, with or without
+%%% modification, are permitted provided that the following conditions are met:
+%%%
+%%% 1. Redistributions of source code must retain the above copyright notice,
+%%% this list of conditions and the following disclaimer.
+%%% 2. Redistributions in binary form must reproduce the above copyright
+%%% notice, this list of conditions and the following disclaimer in the
+%%% documentation and/or other materials provided with the distribution.
+%%%
+%%% THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR
+%%% IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+%%% MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+%%% EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+%%% INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+%%% (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+%%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+%%% ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+%%% (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+%%% SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+%% @doc erlang wrapper for syslog port
+
+-module(syslog).
+
+-behaviour(gen_server).
+
+-define(DRV_NAME, "syslog_drv").
+
+%% this constant must match the same in syslog_drv.c
+-define(SYSLOGDRV_OPEN, 1).
+
+%% API
+-export([
+ start/0,
+ start_link/0,
+ stop/0,
+ open/3,
+ log/3,
+ log/4,
+ close/1,
+ priority/1,
+ facility/1,
+ openlog_opt/1,
+ openlog_opts/1,
+ load/0,
+ unload/0
+ ]).
+
+%% gen_server callbacks
+-export([
+ init/1,
+ handle_call/3,
+ handle_cast/2,
+ handle_info/2,
+ terminate/2,
+ code_change/3
+ ]).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-record(state, {}).
+
+-type priority() :: emerg | alert | crit | err |
+ warning | notice | info | debug | non_neg_integer().
+-type facility() :: kern | user | mail | daemon | auth | syslog |
+ lpr | news | uucp | cron | authpriv | ftp |
+ netinfo | remoteauth | install | ras |
+ local0 | local1 | local2 | local3 |
+ local4 | local5 | local6 | local7 | non_neg_integer().
+-type openlog_opt() :: pid | cons | odelay | ndelay | perror | pos_integer().
+-export_type([priority/0, facility/0, openlog_opt/0]).
+
+%%% API %%%
+
+-spec start() ->
+ {ok, pid()} | ignore | {error, any()}.
+
+start() ->
+ gen_server:start({local, ?MODULE}, ?MODULE, [], []).
+
+-spec start_link() ->
+ {ok, pid()} | ignore | {error, any()}.
+
+start_link() ->
+ gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
+
+-spec stop() ->
+ ok.
+
+stop() ->
+ gen_server:cast(?MODULE, stop).
+
+-spec open(Ident :: string(),
+ Logopt :: list(openlog_opt()),
+ Facility :: facility()) ->
+ {ok, port()} |
+ {error, any()}.
+
+open(Ident, Logopt, Facility) ->
+ Log = erlang:open_port({spawn, ?DRV_NAME}, [binary]),
+ Args = term_to_binary({Ident, openlog_opts(Logopt), facility(Facility)}),
+ try erlang:port_control(Log, ?SYSLOGDRV_OPEN, Args) of
+ <<>> ->
+ {ok, Log};
+ BinError ->
+ binary_to_term(BinError)
+ catch
+ _:Reason ->
+ {error, Reason}
+ end.
+
+-spec log(Log :: port(),
+ Priority :: priority(),
+ Message :: iolist()) ->
+ ok.
+
+log(_Log, _Priority, []) ->
+ ok;
+log(Log, Priority, Message) ->
+ NumPri = priority(Priority),
+ %% encode the priority value as a 4-byte integer in network order, and
+ %% add a 0 byte to the end of the command data to act as a NUL character
+ true = erlang:port_command(Log, [<<NumPri:32/big>>, Message, <<0:8>>]),
+ ok.
+
+-spec log(Log :: port(),
+ Priority :: priority(),
+ FormatStr :: string(),
+ FormatArgs :: list()) ->
+ ok.
+
+log(Log, Priority, FormatStr, FormatArgs) ->
+ log(Log, Priority, io_lib:format(FormatStr, FormatArgs)).
+
+-spec close(Log :: port()) ->
+ ok.
+
+close(Log) ->
+ true = erlang:port_close(Log),
+ ok.
+
+-spec priority(N :: priority() | non_neg_integer()) ->
+ non_neg_integer().
+
+priority(emerg) -> 0;
+priority(alert) -> 1;
+priority(crit) -> 2;
+priority(err) -> 3;
+priority(warning) -> 4;
+priority(notice) -> 5;
+priority(info) -> 6;
+priority(debug) -> 7;
+priority(N) when is_integer(N), N >= 0 -> N;
+priority(_) -> erlang:error(badarg).
+
+-spec facility(N :: facility() | non_neg_integer()) ->
+ non_neg_integer().
+
+facility(kern) -> 0;
+facility(user) -> 8;
+facility(mail) -> 16;
+facility(daemon) -> 24;
+facility(auth) -> 32;
+facility(syslog) -> 40;
+facility(lpr) -> 48;
+facility(news) -> 56;
+facility(uucp) -> 64;
+facility(cron) -> 72;
+facility(authpriv) -> 80;
+facility(ftp) -> 88;
+facility(netinfo) -> 96;
+facility(remoteauth)-> 104;
+facility(install) -> 112;
+facility(ras) -> 120;
+facility(local0) -> 16 * 8;
+facility(local1) -> 17 * 8;
+facility(local2) -> 18 * 8;
+facility(local3) -> 19 * 8;
+facility(local4) -> 20 * 8;
+facility(local5) -> 21 * 8;
+facility(local6) -> 22 * 8;
+facility(local7) -> 23 * 8;
+facility(N) when is_integer(N), N >= 0 -> N;
+facility(_) -> erlang:error(badarg).
+
+-spec openlog_opt(N :: openlog_opt() | pos_integer()) ->
+ pos_integer().
+
+openlog_opt(pid) -> 1;
+openlog_opt(cons) -> 2;
+openlog_opt(odelay) -> 4;
+openlog_opt(ndelay) -> 8;
+openlog_opt(perror) -> 20;
+openlog_opt(N) when is_integer(N), N >= 1 -> N;
+openlog_opt(_) -> erlang:error(badarg).

guam-0.9.12.tar.gz/_checkouts/syslog/src/syslog_app.erl Added

guam-0.9.12.tar.gz/_checkouts/syslog/src/syslog_sup.erl Added

guam-0.9.11.tar.gz/apps/kolab_guam/src/kolab_guam.app.src -> guam-0.9.12.tar.gz/apps/kolab_guam/src/kolab_guam.app.src Changed

guam-0.9.11.tar.gz/apps/kolab_guam/src/kolab_guam_session.erl -> guam-0.9.12.tar.gz/apps/kolab_guam/src/kolab_guam_session.erl Changed

@@ -234,7 +234,7 @@
 process_lines(_Socket, State, [], ContinuationBytes, Acc) ->
 {Acc, State#state{ continuation_bytes = ContinuationBytes }};
 process_lines(Socket, State, [Line|MoreLines], 0, Acc) ->
- { _StrippedNextLine, NextContinuationBytes } = eimap_utils:num_literal_continuation_bytes(binary:part(Line, 0, byte_size(Line)-2)),
+ { _StrippedNextLine, NextContinuationBytes, _Result } = eimap_utils:num_literal_continuation_bytes(binary:part(Line, 0, byte_size(Line)-2)),
 {NewAcc, NewState} = process_client_line(Line, Socket, State, Acc),
 process_lines(Socket, NewState, MoreLines, NextContinuationBytes, NewAcc);
 process_lines(Socket, State, [Line|MoreLines], ContinuationBytes, Acc) ->
@@ -246,20 +246,6 @@
 end,
 process_lines(Socket, State, Lines, ContinuationBytes - size(LiteralPartOfLine), <<Acc/binary, LiteralPartOfLine/binary>>).
 
-split(Lines, Data, Pattern) ->
- case binary:match(Data, Pattern) of
- nomatch -> {lists:reverse(Lines), Data};
- { Start, Length } ->
- Num = Start + Length,
- <<Line:Num/binary, Remainder/binary>> = Data,
- split([Line|Lines], Remainder, Pattern)
- end.
-split(Lines, Data) ->
- split(Lines, Data, binary:compile_pattern(<<"\r\n">>)).
-
-split_lines(Data) ->
- split([], Data).
-
 % Client data is processed as it comes in, but split up by lines if more than one line comes in at a time.
 % The processing internally buffers data as necessary if it encounters incomplete lines.
 process_client_data(Socket, Data, #state{ inflator = Inflator, continuation_bytes = ContinuationBytes } = State) ->
@@ -267,7 +253,7 @@
 PreprocessData = preprocess_client_data(Inflator, Data, State),
 lager:debug("FROM CLIENT: ~p", [PreprocessData]),
 
- {Lines, NewLastPartialLine} = split_lines(PreprocessData),
+ {Lines, NewLastPartialLine} = eimap_utils:split_lines(PreprocessData),
 {Acc, NewState} = process_lines(Socket, State#state{ buffered_client_data = <<>> }, Lines, ContinuationBytes, <<>>),
 #state{ buffered_client_data = DataToBuffer, continuation_bytes = NewContinuationBytes} = NewState,

guam-0.9.11.tar.gz/apps/kolab_guam/src/rules/kolab_guam_rule_filter_groupware.erl -> guam-0.9.12.tar.gz/apps/kolab_guam/src/rules/kolab_guam_rule_filter_groupware.erl Changed

@@ -77,22 +77,17 @@
 apply_if_found_kolab(0) -> true;
 apply_if_found_kolab(_) -> false.
 
-possibly_append_newline(<<>>) -> <<>> ;
-possibly_append_newline(Response) -> <<Response/binary, "\r\n">> .
-
 filter_folders(<<>>, State) ->
 { <<>>, State#state{ active = true } };
 filter_folders(Buffer, #state{ last_chunk = LeftOvers } = State) ->
 % Add the left overs from the previous buffer to the current buffer
 FullBuffer = <<LeftOvers/binary, Buffer/binary>>,
- % From that buffer, only take the complete lines and save off the remainder.
- { FullLinesBuffer, LastChunk } = eimap_utils:only_full_lines(FullBuffer),
- % Create a list so we can filter the individual folders
- ListResponses = binary:split(FullLinesBuffer, <<"\r\n">>, [ global ]),
- { Response, More } = filter_folders(State, ListResponses, { <<>>, true }),
- %io:format("Filtered ... ~p~n", [Response]),
- %Note that the last list item does not contain \r\n, so that needs to be added unless we filtered the complete content.
- { possibly_append_newline(Response), State#state { active = More, last_chunk = LastChunk } }.
+
+ {FullLines, LastChunk} = eimap_utils:split_lines_with_literals(FullBuffer),
+
+ { Response, More } = filter_folders(State, FullLines, { <<>>, true }),
+
+ {<<Response/binary>>, State#state{ active = More, last_chunk = LastChunk}}.
 
 filter_folders(_State, [], Return) -> Return;
 filter_folders(_State, _Folders, { Acc, false }) -> { Acc, false };
@@ -129,7 +124,7 @@
 { _Delimiter, Rest, _} = pop_token(binary:part(Details, Pos + 2, byte_size(Details) - Pos - 2)),
 Rest
 end,
- { Folder, _, _ } = pop_token(list_to_binary([Suffix, <<"\r\n">>])),
+ { Folder, _, _ } = pop_token(Suffix),
 
 %% Check the folder in blacklist
 %% io:format("COMPARING ~p ??? ~p~n", [Folder, in_blacklist(Folder, Blacklist)]),
@@ -139,7 +134,7 @@
 end.
 
 add_response(Response, <<>>) -> Response;
-add_response(Response, Acc) -> <<Acc/binary, "\r\n", Response/binary>>.
+add_response(Response, Acc) -> <<Acc/binary, Response/binary>>.
 
 in_blacklist(_Folder, undefined) -> false;
 in_blacklist(_Folder, []) -> false;

guam-0.9.11.tar.gz/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl -> guam-0.9.12.tar.gz/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl Changed

guam-0.9.11.tar.gz/apps/kolab_guam/test/kolab_guam_session_SUITE.erl -> guam-0.9.12.tar.gz/apps/kolab_guam/test/kolab_guam_session_SUITE.erl Changed

@@ -154,6 +154,29 @@
 continuation_bytes = 0
 }} = kolab_guam_session:process_client_data(Socket, <<"\r\n">>, IntermediateState8),
 
+ % 0 length literal
+ {<<"y1 APPEND INBOX {0}\r\n\r\n">>, #state{
+ server_config = ServerConfig,
+ buffered_client_data = <<>>,
+ current_command_split = {<<"y1">>,<<"APPEND">>,<<"INBOX {0}">>},
+ command_split_reset_trigger = reset_for_next_client_command
+ }} = kolab_guam_session:process_client_data(Socket, <<"y1 APPEND INBOX {0}\r\n\r\n">>, State#state{ rules_deciding = ActiveRules }),
+
+ % 0 length literal in two lines
+ {<<"y1 APPEND INBOX {0}\r\n">>, #state{
+ server_config = ServerConfig,
+ buffered_client_data = <<>>,
+ current_command_split = {<<"y1">>,<<"APPEND">>,<<"INBOX {0}">>},
+ command_split_reset_trigger = reset_for_next_client_command
+ } = IntermediateState9} = kolab_guam_session:process_client_data(Socket, <<"y1 APPEND INBOX {0}\r\n">>, State#state{ rules_deciding = ActiveRules }),
+
+ {<<"\r\n">>, #state{
+ server_config = ServerConfig,
+ buffered_client_data = <<>>, %This ensures we aren't buffering during the continuation
+ current_command_split = {<<"y1">>,<<"APPEND">>,<<"INBOX {0}">>},
+ command_split_reset_trigger = reset_for_next_client_command,
+ continuation_bytes = 0
+ }} = kolab_guam_session:process_client_data(Socket, <<"\r\n">>, IntermediateState9),
 
 % Don't activate filtering
 {<<"y1 ID (\"name\" \"Test/KOLAB\")\r\n">>, #state{

guam-0.9.12.tar.gz/cache Added

guam-0.9.12.tar.gz/cache/rebar3 Added

guam-0.9.12.tar.gz/cache/rebar3/hex Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/packages Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/packages.idx Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/packages/goldrush-0.1.9.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/packages/lager-3.2.4.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/registry Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/goldrush-0.1.9.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/goldrush-0.1.9.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.8.0.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.8.0.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.9.2.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.9.2.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.13.0.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.13.0.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.14.0.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.14.0.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/packages.idx Added

guam-0.9.11.tar.gz/rebar.config -> guam-0.9.12.tar.gz/rebar.config Changed

@@ -10,8 +10,10 @@
 }.
 { deps, [
     lager,
-    { lager_syslog, "3.*", { git, "git://github.com/basho/lager_syslog.git", { tag, "3.0.1" } } },
-    { eimap, ".*", { git, "https://git.kolab.org/diffusion/EI/eimap.git", { tag, "0.3.0" } } }
+    % We pull in syslog to adjust the git url. It's just a dependency of lager_syslog
+    {'syslog', "1.0.*", {git, "https://github.com/Vagabond/erlang-syslog", {branch, "master"} } },
+    { lager_syslog, "3.*", { git, "https://github.com/basho/lager_syslog.git", { tag, "3.0.1" } } },
+    { eimap, ".*", { git, "https://git.kolab.org/diffusion/EI/eimap.git", { tag, "0.4.6" } } }
     %% pull in the proper version of meck before jobs 0.3 gets around to pulling in the wrong version
    ]
 }.
@@ -23,7 +25,7 @@
 { eunit_opts, [verbose, {skip_deps, true }] }.
 { eunit_exclude_deps, true }.
 { cover_enabled, true }.
-{ relx, [ { release, { guam, "0.9.11" }, [kolab_guam]},
+{ relx, [ { release, { guam, "0.9.12" }, [kolab_guam]},
                 { dev_mode, false },
                 { include_erts, false },
                 { extended_start_script, true },

guam.dsc Changed