Osmocom Open Build Service

Changes of Revision 5

osmo-diameter2gsup_0.2.0.tar.xz/debian/osmo-diameter2gsup.install Deleted

osmo-diameter2gsup_0.2.0.dsc -> osmo-diameter2gsup_0.3.0.dsc Changed

osmo-diameter2gsup_0.2.0.tar.xz/.tarball-version -> osmo-diameter2gsup_0.3.0.tar.xz/.tarball-version Changed

osmo-diameter2gsup_0.3.0.tar.xz/COPYING Added

@@ -0,0 +1,677 @@
+                    GNU AFFERO GENERAL PUBLIC LICENSE
+                       Version 3, 19 November 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+                            Preamble
+
+  The GNU Affero General Public License is a free, copyleft license for
+software and other kinds of works, specifically designed to ensure
+cooperation with the community in the case of network server software.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+our General Public Licenses are intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  Developers that use our General Public Licenses protect your rights
+with two steps: (1) assert copyright on the software, and (2) offer
+you this License which gives you legal permission to copy, distribute
+and/or modify the software.
+
+  A secondary benefit of defending all users' freedom is that
+improvements made in alternate versions of the program, if they
+receive widespread use, become available for other developers to
+incorporate.  Many developers of free software are heartened and
+encouraged by the resulting cooperation.  However, in the case of
+software used on network servers, this result may fail to come about.
+The GNU General Public License permits making a modified version and
+letting the public access it on a server without ever releasing its
+source code to the public.
+
+  The GNU Affero General Public License is designed specifically to
+ensure that, in such cases, the modified source code becomes available
+to the community.  It requires the operator of a network server to
+provide the source code of the modified version running there to the
+users of that server.  Therefore, public use of a modified version, on
+a publicly accessible server, gives the public access to the source
+code of the modified version.
+
+  An older license, called the Affero General Public License and
+published by Affero, was designed to accomplish similar goals.  This is
+a different license, not a version of the Affero GPL, but Affero has
+released a new version of the Affero GPL which permits relicensing under
+this license.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+                       TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU Affero General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondarily liable for
+infringement under applicable copyright law, except executing it on a
+computer or modifying a private copy.  Propagation includes copying,
+distribution (with or without modification), making available to the
+public, and in some countries other activities as well.
+
+  To "convey" a work means any kind of propagation that enables other
+parties to make or receive copies.  Mere interaction with a user through
+a computer network, with no transfer of a copy, is not conveying.
+
+  An interactive user interface displays "Appropriate Legal Notices"
+to the extent that it includes a convenient and prominently visible
+feature that (1) displays an appropriate copyright notice, and (2)
+tells the user that there is no warranty for the work (except to the
+extent that warranties are provided), that licensees may convey the
+work under this License, and how to view a copy of this License.  If
+the interface presents a list of user commands or options, such as a
+menu, a prominent item in the list meets this criterion.
+
+  1. Source Code.
+
+  The "source code" for a work means the preferred form of the work
+for making modifications to it.  "Object code" means any non-source
+form of a work.
+
+  A "Standard Interface" means an interface that either is an official
+standard defined by a recognized standards body, or, in the case of
+interfaces specified for a particular programming language, one that
+is widely used among developers working in that language.
+
+  The "System Libraries" of an executable work include anything, other
+than the work as a whole, that (a) is included in the normal form of
+packaging a Major Component, but which is not part of that Major
+Component, and (b) serves only to enable use of the work with that
+Major Component, or to implement a Standard Interface for which an
+implementation is available to the public in source code form.  A
+"Major Component", in this context, means a major essential component
+(kernel, window system, and so on) of the specific operating system
+(if any) on which the executable work runs, or a compiler used to
+produce the work, or an object code interpreter used to run it.
+
+  The "Corresponding Source" for a work in object code form means all
+the source code needed to generate, install, and (for an executable
+work) run the object code and to modify the work, including scripts to
+control those activities.  However, it does not include the work's
+System Libraries, or general-purpose tools or generally available free
+programs which are used unmodified in performing those activities but
+which are not part of the work.  For example, Corresponding Source
+includes interface definition files associated with source files for
+the work, and the source code for shared libraries and dynamically
+linked subprograms that the work is specifically designed to require,
+such as by intimate data communication or control flow between those
+subprograms and other parts of the work.
+
+  The Corresponding Source need not include anything that users
+can regenerate automatically from other parts of the Corresponding
+Source.
+
+  The Corresponding Source for a work in source code form is that
+same work.
+
+  2. Basic Permissions.
+
+  All rights granted under this License are granted for the term of
+copyright on the Program, and are irrevocable provided the stated
+conditions are met.  This License explicitly affirms your unlimited
+permission to run the unmodified Program.  The output from running a
+covered work is covered by this License only if the output, given its
+content, constitutes a covered work.  This License acknowledges your
+rights of fair use or other equivalent, as provided by copyright law.
+
+  You may make, run and propagate covered works that you do not
+convey, without conditions so long as your license otherwise remains
+in force.  You may convey covered works to others for the sole purpose
+of having them make modifications exclusively for you, or provide you
+with facilities for running those works, provided that you comply with
+the terms of this License in conveying all material for which you do
+not control copyright.  Those thus making or running the covered works
+for you must do so exclusively on your behalf, under your direction
+and control, on terms that prohibit them from making any copies of
+your copyrighted material outside their relationship with you.
+
+  Conveying under any other circumstances is permitted solely under
+the conditions stated below.  Sublicensing is not allowed; section 10
+makes it unnecessary.
+
+  3. Protecting Users' Legal Rights From Anti-Circumvention Law.
+
+  No covered work shall be deemed part of an effective technological
+measure under any applicable law fulfilling obligations under article
+11 of the WIPO copyright treaty adopted on 20 December 1996, or
+similar laws prohibiting or restricting circumvention of such
+measures.
+
+  When you convey a covered work, you waive any legal power to forbid
+circumvention of technological measures to the extent such circumvention
+is effected by exercising rights under this License with respect to
+the covered work, and you disclaim any intention to limit operation or
+modification of the work as a means of enforcing, against the work's
+users, your or third parties' legal rights to forbid circumvention of
+technological measures.
+
+  4. Conveying Verbatim Copies.
+
+  You may convey verbatim copies of the Program's source code as you
+receive it, in any medium, provided that you conspicuously and
+appropriately publish on each copy an appropriate copyright notice;
+keep intact all notices stating that this License and any
+non-permissive terms added in accord with section 7 apply to the code;
+keep intact all notices of the absence of any warranty; and give all
+recipients a copy of this License along with the Program.
+
+  You may charge any price or no price for each copy that you convey,
+and you may offer support or warranty protection for a fee.
+
+  5. Conveying Modified Source Versions.
+
+  You may convey a work based on the Program, or the modifications to
+produce it from the Program, in the form of source code under the
+terms of section 4, provided that you also meet all of these conditions:
+
+    a) The work must carry prominent notices stating that you modified
+    it, and giving a relevant date.
+
+    b) The work must carry prominent notices stating that it is
+    released under this License and any conditions added under section
+    7.  This requirement modifies the requirement in section 4 to
+    "keep intact all notices".
+
+    c) You must license the entire work, as a whole, under this
+    License to anyone who comes into possession of a copy.  This
+    License will therefore apply, along with any applicable section 7
+    additional terms, to the whole of the work, and all its parts,
+    regardless of how they are packaged.  This License gives no
+    permission to license the work in any other way, but it does not
+    invalidate such permission if you have separately received it.
+
+    d) If the work has interactive user interfaces, each must display
+    Appropriate Legal Notices; however, if the Program has interactive
+    interfaces that do not display Appropriate Legal Notices, your
+    work need not make them do so.
+
+  A compilation of a covered work with other separate and independent
+works, which are not by their nature extensions of the covered work,
+and which are not combined with it such as to form a larger program,
+in or on a volume of a storage or distribution medium, is called an
+"aggregate" if the compilation and its resulting copyright are not
+used to limit the access or legal rights of the compilation's users
+beyond what the individual works permit.  Inclusion of a covered work
+in an aggregate does not cause this License to apply to the other
+parts of the aggregate.
+
+  6. Conveying Non-Source Forms.
+
+  You may convey a covered work in object code form under the terms
+of sections 4 and 5, provided that you also convey the
+machine-readable Corresponding Source under the terms of this License,
+in one of these ways:
+
+    a) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by the
+    Corresponding Source fixed on a durable physical medium
+    customarily used for software interchange.
+
+    b) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by a
+    written offer, valid for at least three years and valid for as
+    long as you offer spare parts or customer support for that product
+    model, to give anyone who possesses the object code either (1) a
+    copy of the Corresponding Source for all the software in the
+    product that is covered by this License, on a durable physical
+    medium customarily used for software interchange, for a price no
+    more than your reasonable cost of physically performing this
+    conveying of source, or (2) access to copy the
+    Corresponding Source from a network server at no charge.
+
+    c) Convey individual copies of the object code with a copy of the
+    written offer to provide the Corresponding Source.  This
+    alternative is allowed only occasionally and noncommercially, and
+    only if you received the object code with such an offer, in accord
+    with subsection 6b.
+
+    d) Convey the object code by offering access from a designated
+    place (gratis or for a charge), and offer equivalent access to the
+    Corresponding Source in the same way through the same place at no
+    further charge.  You need not require recipients to copy the
+    Corresponding Source along with the object code.  If the place to
+    copy the object code is a network server, the Corresponding Source
+    may be on a different server (operated by you or a third party)
+    that supports equivalent copying facilities, provided you maintain
+    clear directions next to the object code saying where to find the
+    Corresponding Source.  Regardless of what server hosts the
+    Corresponding Source, you remain obligated to ensure that it is
+    available for as long as needed to satisfy these requirements.
+
+    e) Convey the object code using peer-to-peer transmission, provided
+    you inform other peers where the object code and Corresponding
+    Source of the work are being offered to the general public at no
+    charge under subsection 6d.
+
+  A separable portion of the object code, whose source code is excluded
+from the Corresponding Source as a System Library, need not be
+included in conveying the object code work.
+
+  A "User Product" is either (1) a "consumer product", which means any
+tangible personal property which is normally used for personal, family,
+or household purposes, or (2) anything designed or sold for incorporation
+into a dwelling.  In determining whether a product is a consumer product,
+doubtful cases shall be resolved in favor of coverage.  For a particular
+product received by a particular user, "normally used" refers to a
+typical or common use of that class of product, regardless of the status
+of the particular user or of the way in which the particular user
+actually uses, or expects or is expected to use, the product.  A product
+is a consumer product regardless of whether the product has substantial
+commercial, industrial or non-consumer uses, unless such uses represent
+the only significant mode of use of the product.
+
+  "Installation Information" for a User Product means any methods,
+procedures, authorization keys, or other information required to install
+and execute modified versions of a covered work in that User Product from
+a modified version of its Corresponding Source.  The information must
+suffice to ensure that the continued functioning of the modified object
+code is in no case prevented or interfered with solely because
+modification has been made.
+
+  If you convey an object code work under this section in, or with, or
+specifically for use in, a User Product, and the conveying occurs as
+part of a transaction in which the right of possession and use of the
+User Product is transferred to the recipient in perpetuity or for a
+fixed term (regardless of how the transaction is characterized), the
+Corresponding Source conveyed under this section must be accompanied
+by the Installation Information.  But this requirement does not apply
+if neither you nor any third party retains the ability to install
+modified object code on the User Product (for example, the work has
+been installed in ROM).
+
+  The requirement to provide Installation Information does not include a
+requirement to continue to provide support service, warranty, or updates
+for a work that has been modified or installed by the recipient, or for
+the User Product in which it has been modified or installed.  Access to a
+network may be denied when the modification itself materially and
+adversely affects the operation of the network or violates the rules and
+protocols for communication across the network.
+
+  Corresponding Source conveyed, and Installation Information provided,
+in accord with this section must be in a format that is publicly
+documented (and with an implementation available to the public in
+source code form), and must require no special password or key for
+unpacking, reading or copying.
+
+  7. Additional Terms.
+
+  "Additional permissions" are terms that supplement the terms of this
+License by making exceptions from one or more of its conditions.
+Additional permissions that are applicable to the entire Program shall
+be treated as though they were included in this License, to the extent
+that they are valid under applicable law.  If additional permissions
+apply only to part of the Program, that part may be used separately
+under those permissions, but the entire Program remains governed by
+this License without regard to the additional permissions.
+
+  When you convey a copy of a covered work, you may at your option
+remove any additional permissions from that copy, or from any part of
+it.  (Additional permissions may be written to require their own
+removal in certain cases when you modify the work.)  You may place
+additional permissions on material, added by you to a covered work,
+for which you have or can give appropriate copyright permission.
+
+  Notwithstanding any other provision of this License, for material you
+add to a covered work, you may (if authorized by the copyright holders of
+that material) supplement the terms of this License with terms:
+
+    a) Disclaiming warranty or limiting liability differently from the
+    terms of sections 15 and 16 of this License; or
+
+    b) Requiring preservation of specified reasonable legal notices or
+    author attributions in that material or in the Appropriate Legal
+    Notices displayed by works containing it; or
+
+    c) Prohibiting misrepresentation of the origin of that material, or
+    requiring that modified versions of such material be marked in
+    reasonable ways as different from the original version; or
+
+    d) Limiting the use for publicity purposes of names of licensors or
+    authors of the material; or
+
+    e) Declining to grant rights under trademark law for use of some
+    trade names, trademarks, or service marks; or
+
+    f) Requiring indemnification of licensors and authors of that
+    material by anyone who conveys the material (or modified versions of
+    it) with contractual assumptions of liability to the recipient, for
+    any liability that these contractual assumptions directly impose on
+    those licensors and authors.
+
+  All other non-permissive additional terms are considered "further
+restrictions" within the meaning of section 10.  If the Program as you
+received it, or any part of it, contains a notice stating that it is
+governed by this License along with a term that is a further
+restriction, you may remove that term.  If a license document contains
+a further restriction but permits relicensing or conveying under this
+License, you may add to a covered work material governed by the terms
+of that license document, provided that the further restriction does
+not survive such relicensing or conveying.
+
+  If you add terms to a covered work in accord with this section, you
+must place, in the relevant source files, a statement of the
+additional terms that apply to those files, or a notice indicating
+where to find the applicable terms.
+
+  Additional terms, permissive or non-permissive, may be stated in the
+form of a separately written license, or stated as exceptions;
+the above requirements apply either way.
+
+  8. Termination.
+
+  You may not propagate or modify a covered work except as expressly
+provided under this License.  Any attempt otherwise to propagate or
+modify it is void, and will automatically terminate your rights under
+this License (including any patent licenses granted under the third
+paragraph of section 11).
+
+  However, if you cease all violation of this License, then your
+license from a particular copyright holder is reinstated (a)
+provisionally, unless and until the copyright holder explicitly and
+finally terminates your license, and (b) permanently, if the copyright
+holder fails to notify you of the violation by some reasonable means
+prior to 60 days after the cessation.
+
+  Moreover, your license from a particular copyright holder is
+reinstated permanently if the copyright holder notifies you of the
+violation by some reasonable means, this is the first time you have
+received notice of violation of this License (for any work) from that
+copyright holder, and you cure the violation prior to 30 days after
+your receipt of the notice.
+
+  Termination of your rights under this section does not terminate the
+licenses of parties who have received copies or rights from you under
+this License.  If your rights have been terminated and not permanently
+reinstated, you do not qualify to receive new licenses for the same
+material under section 10.
+
+  9. Acceptance Not Required for Having Copies.
+
+  You are not required to accept this License in order to receive or
+run a copy of the Program.  Ancillary propagation of a covered work
+occurring solely as a consequence of using peer-to-peer transmission
+to receive a copy likewise does not require acceptance.  However,
+nothing other than this License grants you permission to propagate or
+modify any covered work.  These actions infringe copyright if you do
+not accept this License.  Therefore, by modifying or propagating a
+covered work, you indicate your acceptance of this License to do so.
+
+  10. Automatic Licensing of Downstream Recipients.
+
+  Each time you convey a covered work, the recipient automatically
+receives a license from the original licensors, to run, modify and
+propagate that work, subject to this License.  You are not responsible
+for enforcing compliance by third parties with this License.
+
+  An "entity transaction" is a transaction transferring control of an
+organization, or substantially all assets of one, or subdividing an
+organization, or merging organizations.  If propagation of a covered
+work results from an entity transaction, each party to that
+transaction who receives a copy of the work also receives whatever
+licenses to the work the party's predecessor in interest had or could
+give under the previous paragraph, plus a right to possession of the
+Corresponding Source of the work from the predecessor in interest, if
+the predecessor has it or can get it with reasonable efforts.
+
+  You may not impose any further restrictions on the exercise of the
+rights granted or affirmed under this License.  For example, you may
+not impose a license fee, royalty, or other charge for exercise of
+rights granted under this License, and you may not initiate litigation
+(including a cross-claim or counterclaim in a lawsuit) alleging that
+any patent claim is infringed by making, using, selling, offering for
+sale, or importing the Program or any portion of it.
+
+  11. Patents.
+
+  A "contributor" is a copyright holder who authorizes use under this
+License of the Program or a work on which the Program is based.  The
+work thus licensed is called the contributor's "contributor version".
+
+  A contributor's "essential patent claims" are all patent claims
+owned or controlled by the contributor, whether already acquired or
+hereafter acquired, that would be infringed by some manner, permitted
+by this License, of making, using, or selling its contributor version,
+but do not include claims that would be infringed only as a
+consequence of further modification of the contributor version.  For
+purposes of this definition, "control" includes the right to grant
+patent sublicenses in a manner consistent with the requirements of
+this License.
+
+  Each contributor grants you a non-exclusive, worldwide, royalty-free
+patent license under the contributor's essential patent claims, to
+make, use, sell, offer for sale, import and otherwise run, modify and
+propagate the contents of its contributor version.
+
+  In the following three paragraphs, a "patent license" is any express
+agreement or commitment, however denominated, not to enforce a patent
+(such as an express permission to practice a patent or covenant not to
+sue for patent infringement).  To "grant" such a patent license to a
+party means to make such an agreement or commitment not to enforce a
+patent against the party.
+
+  If you convey a covered work, knowingly relying on a patent license,
+and the Corresponding Source of the work is not available for anyone
+to copy, free of charge and under the terms of this License, through a
+publicly available network server or other readily accessible means,
+then you must either (1) cause the Corresponding Source to be so
+available, or (2) arrange to deprive yourself of the benefit of the
+patent license for this particular work, or (3) arrange, in a manner
+consistent with the requirements of this License, to extend the patent
+license to downstream recipients.  "Knowingly relying" means you have
+actual knowledge that, but for the patent license, your conveying the
+covered work in a country, or your recipient's use of the covered work
+in a country, would infringe one or more identifiable patents in that
+country that you have reason to believe are valid.
+
+  If, pursuant to or in connection with a single transaction or
+arrangement, you convey, or propagate by procuring conveyance of, a
+covered work, and grant a patent license to some of the parties
+receiving the covered work authorizing them to use, propagate, modify
+or convey a specific copy of the covered work, then the patent license
+you grant is automatically extended to all recipients of the covered
+work and works based on it.
+
+  A patent license is "discriminatory" if it does not include within
+the scope of its coverage, prohibits the exercise of, or is
+conditioned on the non-exercise of one or more of the rights that are
+specifically granted under this License.  You may not convey a covered
+work if you are a party to an arrangement with a third party that is
+in the business of distributing software, under which you make payment
+to the third party based on the extent of your activity of conveying
+the work, and under which the third party grants, to any of the
+parties who would receive the covered work from you, a discriminatory
+patent license (a) in connection with copies of the covered work
+conveyed by you (or copies made from those copies), or (b) primarily
+for and in connection with specific products or compilations that
+contain the covered work, unless you entered into that arrangement,
+or that patent license was granted, prior to 28 March 2007.
+
+  Nothing in this License shall be construed as excluding or limiting
+any implied license or other defenses to infringement that may
+otherwise be available to you under applicable patent law.
+
+  12. No Surrender of Others' Freedom.
+
+  If conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot convey a
+covered work so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you may
+not convey it at all.  For example, if you agree to terms that obligate you
+to collect a royalty for further conveying from those to whom you convey
+the Program, the only way you could satisfy both those terms and this
+License would be to refrain entirely from conveying the Program.
+
+  13. Remote Network Interaction; Use with the GNU General Public License.
+
+  Notwithstanding any other provision of this License, if you modify the
+Program, your modified version must prominently offer all users
+interacting with it remotely through a computer network (if your version
+supports such interaction) an opportunity to receive the Corresponding
+Source of your version by providing access to the Corresponding Source
+from a network server at no charge, through some standard or customary
+means of facilitating copying of software.  This Corresponding Source
+shall include the Corresponding Source for any work covered by version 3
+of the GNU General Public License that is incorporated pursuant to the
+following paragraph.
+
+  Notwithstanding any other provision of this License, you have
+permission to link or combine any covered work with a work licensed
+under version 3 of the GNU General Public License into a single
+combined work, and to convey the resulting work.  The terms of this
+License will continue to apply to the part which is the covered work,
+but the work with which it is combined will remain governed by version
+3 of the GNU General Public License.
+
+  14. Revised Versions of this License.
+
+  The Free Software Foundation may publish revised and/or new versions of
+the GNU Affero General Public License from time to time.  Such new versions
+will be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+  Each version is given a distinguishing version number.  If the
+Program specifies that a certain numbered version of the GNU Affero General
+Public License "or any later version" applies to it, you have the
+option of following the terms and conditions either of that numbered
+version or of any later version published by the Free Software
+Foundation.  If the Program does not specify a version number of the
+GNU Affero General Public License, you may choose any version ever published
+by the Free Software Foundation.
+
+  If the Program specifies that a proxy can decide which future
+versions of the GNU Affero General Public License can be used, that proxy's
+public statement of acceptance of a version permanently authorizes you
+to choose that version for the Program.
+
+  Later license versions may give you additional or different
+permissions.  However, no additional obligations are imposed on any
+author or copyright holder as a result of your choosing to follow a
+later version.
+
+  15. Disclaimer of Warranty.
+
+  THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
+HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
+OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
+IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+  16. Limitation of Liability.
+
+  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
+THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
+USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
+DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
+EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGES.
+
+  17. Interpretation of Sections 15 and 16.
+
+  If the disclaimer of warranty and limitation of liability provided
+above cannot be given local legal effect according to their terms,
+reviewing courts shall apply local law that most closely approximates
+an absolute waiver of all civil liability in connection with the
+Program, unless a warranty or assumption of liability accompanies a
+copy of the Program in return for a fee.
+
+                     END OF TERMS AND CONDITIONS
+
+            How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+state the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero 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 Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+  If your software can interact with users remotely through a computer
+network, you should also make sure that it provides a way for users to
+get its source.  For example, if your program is a web application, its
+interface could display a "Source" link that leads users to an archive
+of the code.  There are many ways you could offer source, and different
+solutions will be better for different programs; see section 13 for the
+specific requirements.
+
+  You should also get your employer (if you work as a programmer) or school,
+if any, to sign a "copyright disclaimer" for the program, if necessary.
+For more information on this, and how to apply and follow the GNU AGPL, see
+<https://www.gnu.org/licenses/>.
+
+------------------------------------------------------------------------------
+          ADDITIONAL PERMISSIONS PURSUANT TO SECTION 7 OF AGPLv3
+------------------------------------------------------------------------------
+
+If you modify this Program, or any covered work, by linking or
+combining it with runtime libraries of Erlang/OTP as released by
+Ericsson on https://www.erlang.org (or a modified version of these
+libraries), containing parts covered by the terms of the Erlang Public
+License (https://www.erlang.org/EPLICENSE), the licensors of this
+Program grant you additional permission to convey the resulting work
+without the need to license the runtime libraries of Erlang/OTP under
+the GNU Affero General Public License. Corresponding Source for a
+non-source form of such a combination shall include the source code
+for the parts of the runtime libraries of Erlang/OTP used as well as
+that of the covered work.

osmo-diameter2gsup_0.3.0.tar.xz/Makefile Added

@@ -0,0 +1,43 @@
+# config file used by 'run' and 'shell'
+CONFIG ?= examples/dev.config
+# directory paths for 'install'
+BINDIR ?= /usr/bin
+CONFDIR ?= /etc/osmocom
+SYSTEMDUNITDIR ?= /lib/systemd/system/
+
+all: build
+
+build:
+	rebar3 compile
+	rebar3 escriptize
+
+run: build
+	ERL_FLAGS='-config $(CONFIG)' _build/default/bin/osmo-dia2gsup
+
+shell: build
+	rebar3 shell --config $(CONFIG)
+
+check:
+	rebar3 eunit
+
+analyze:
+	rebar3 dialyzer
+
+install: build
+	install -Dm0755 _build/default/bin/osmo-dia2gsup \
+		$(DESTDIR)$(BINDIR)/osmo-dia2gsup
+	install -Dm0644 examples/sys.config \
+		$(DESTDIR)$(CONFDIR)/osmo-dia2gsup.config
+	install -Dm0644 contrib/systemd/osmo_dia2gsup.service \
+		$(DESTDIR)$(SYSTEMDUNITDIR)/osmo_dia2gsup.service
+
+clean:
+# Avoid running rebar3 clean if _build doesn't exist, since it would try
+# to fetch deps from the Internet and that may not be avaialble when in
+# OBS build.
+ifneq ("$(wildcard _build/.*)", "")
+	rebar3 clean
+	rm -rf _build/
+else
+	rm -f src/diameter_*.erl
+endif

osmo-diameter2gsup_0.2.0.tar.xz/README.md -> osmo-diameter2gsup_0.3.0.tar.xz/README.md Changed

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/LICENSE Added

@@ -0,0 +1,29 @@
+Copyright (c) 2009-2023 Michael Santos <michael.santos@gmail.com>. 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.
+
+3. Neither the name of the copyright holder nor the names of its
+contributors may be used to endorse or promote products derived from
+this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"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 COPYRIGHT
+HOLDER 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.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/Makefile Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/README.md Added

@@ -0,0 +1,173 @@
+An Erlang port interface to libpcap.
+
+epcap includes a small example program called sniff.
+
+## QUICK SETUP
+
+    $ rebar3 compile # or: make
+
+To compile the examples:
+
+    $ make examples
+
+    # Allow your user to epcap with root privs
+    sudo visudo
+    youruser ALL = NOPASSWD: /path/to/epcap/priv/epcap
+    # And if requiretty is enabled, disable it by using one of these
+    Defaults!/path/to/epcap/priv/epcap !requiretty
+    Defaults:youruser !requiretty
+
+    rebar3 shell
+
+    % Start the sniffer process
+    sniff:start_link().
+
+    % Use your interface, or leave it out and trust in pcap
+    sniff:start({interface, "eth0"}).
+
+    % To change the filter
+    sniff:start({filter, "icmp or (tcp and port 80)"},{interface, "eth0"}).
+
+    % To stop sniffing
+    sniff:stop().
+
+
+## USAGE
+
+    epcap:start() -> {ok, pid()}
+    epcap:start(Args) -> {ok, pid()}
+    epcap:start_link() -> {ok, pid()}
+    epcap:start_link(Args) -> {ok, pid()}
+
+        Types   Args = Options
+                Options = {chroot, string()} | {group, string()} | {interface, string()} | {promiscuous, boolean()} |
+                            {user, string()} | {filter, string()} | {progname, string()} | {file, string()} |
+                            {monitor, boolean()} | {cpu_affinity, string()} | {cluster_id, non_neg_integer()}} |
+                            {inject, boolean()} | {snaplen, non_neg_integer} | {buffer, non_neg_integer()} |
+                            {time_unit, microsecond | timestamp} | {direction, in | out | inout} |
+                            {timeout, pos_integer() | infinity | immediate},
+                            {env, string()}
+
+        Packets are delivered as messages:
+
+            {packet, DataLinkType, Time, Length, Packet}
+
+        The DataLinkType is an integer representing the link layer,
+        e.g., ethernet, Linux cooked socket.
+
+        The Time can be either in microseconds or a timestamp in the same
+        format as erlang:now/0 depending on the value of the time_unit
+        option (default: timestamp):
+
+        {MegaSecs, Secs, MicroSecs}
+
+        The Length corresponds to the actual packet length on the
+        wire. The captured packet may have been truncated. To get the
+        captured packet length, use byte_size(Packet).
+
+        The Packet is a binary holding the captured data.
+
+        If the version of the pcap library supports it, the pcap buffer
+        size can be set to avoid dropped packets by using the 'buffer'
+        option. The buffer size must be larger than the snapshot
+        length (default: 65535) plus some overhead for the pcap data
+        structures. Using some multiple of the snapshot length is
+        suggested. The timeout used when appending subsequent packets
+        to the buffer can be controlled by the 'timeout' option on some
+        platforms (value in msecs), the special values 'infinity' (wait
+        until the pcap buffer is filled) and 'immediate' (do not wait
+        after the first packet). The value 0 is equivalent to
+        'immediate' which differs from the definition given in pcap(3PCAP).
+
+    epcap:send(Ref, Packet) -> ok
+
+        Types   Ref = pid()
+                Packet = binary()
+
+        Inject a packet on the network interface. To enable sending
+        packets, start_link/1 must be called with the {inject, true} option
+        (default: {inject, false}). When disabled, any data sent
+        to the epcap port is silently discarded.
+
+        Packet injection failures are treated as fatal errors, terminating
+        the epcap port. Partial writes are not considered to be errors
+        and are ignored (an error message will be printed to stderr if
+        the verbose option is used).
+
+## PF_RING
+
+        In case you want to compile epcap with PF_RING support,
+        just specify the path to the libpfring and modified libpcap libraries
+        via shell variable PFRING.
+
+            PFRING=/home/user/pfring make
+
+        To complete the configuration you need to set up the cluster_id option.
+        The value of the cluster_id option is integer and should be in range between 0 and 255.
+
+            epcap:start_link({interface, "lo"}, {cluster_id, 2}).
+
+        You can also specify the option cpu_affinity to set up CPU affinity for epcap port:
+
+            epcap:start_link({interface, "lo"}, {cluster_id, 2}, {cpu_affinity, "1,3,5-7"}).
+
+## PROCESS RESTRICTION
+
+Setting the `RESTRICT_PROCESS` environment variable controls which
+mode of process restriction is used. The available modes are:
+
+* seccomp: linux
+
+* pledge: openbsd (default)
+
+* capsicum: freebsd (default)
+
+* rlimit: all (default: linux)
+
+* null: all
+
+For example, to force using the seccomp process restriction on linux:
+
+    RESTRICT_PROCESS=rlimit rebar3 do clean, compile
+
+The `null` mode disables process restrictions and can be used for debugging.
+
+    RESTRICT_PROCESS=null rebar3 do clean, compile
+
+    epcap:start({exec, "sudo strace -f -s 4096 -o rlimit.trace"}, {filter, "port 9997"}).
+
+    RESTRICT_PROCESS=seccomp make clean all
+
+    epcap:start({exec, "sudo strace -f -s 4096 -o seccomp.trace"}, {filter, "port 9997"}).
+
+## SCREENSHOT
+
+    =INFO REPORT==== 27-Oct-2013::11:47:43 ===
+        pcap: {time,"2013-10-27 11:47:43"},
+               {caplen,653},
+               {len,653},
+               {datalink,en10mb}
+        ether: {source_macaddr,"F0:BD:4F:AA:BB:CC"},
+                {destination_macaddr,"B3:4B:19:00:11:22"}
+        ipv6: {protocol,tcp},
+               {source_address,"2607:F8B0:400B:80B::1000"},
+               {destination_address,"2002:26F:92:AE::123"}
+        tcp: {source_port,80},
+              {destination_port,47980},
+              {flags,ack,psh},
+              {seq,686139900},
+              {ack,725208397},
+              {win,224}
+        payload_size: 567
+        payload: "HTTP/1.0 301 Moved Permanently..Location: http://www.google.ca/..Content-Type: text/html; charset=UTF-8..Date: Sun, 27 Oct 2013 15:47:49 GMT..Expires: Tue, 26 Nov 2013 15:47:49 GMT..Cache-Control: public, max-age=2592000..Server: gws..Content-Length: 218..X-XSS-Protection: 1; mode=block..X-Frame-Options: SAMEORIGIN..Alternate-Protocol: 80:quic....<HTML><HEAD><meta http-equiv=\"content-type\" content=\"text/html;charset=utf-8\">.<TITLE>301 Moved</TITLE></HEAD><BODY>.<H1>301 Moved</H1>.The document has moved.<A HREF=\"http://www.google.ca/\">here</A>...</BODY></HTML>.." 
+
+And a screenshot of the number of packets epcap is processing on a
+production system:
+
+!IPTraf Screenshot(https://cloud.githubusercontent.com/assets/13721/4917083/8fe7754c-64e0-11e4-9165-17e21c57ee06.png)
+
+## TODO
+
+* return error atoms/tuples instead of using errx
+
+* add support for retrieving packet statistics using pcap\_stats(3PCAP)

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/Makefile Added

@@ -0,0 +1,80 @@
+# Based on c_src.mk from erlang.mk by Loic Hoguin <essen@ninenines.eu>
+
+CURDIR := $(shell pwd)
+BASEDIR := $(abspath $(CURDIR)/..)
+
+PROJECT ?= $(notdir $(BASEDIR))
+PROJECT := $(strip $(PROJECT))
+
+ERTS_INCLUDE_DIR ?= $(shell erl -noshell -eval "io:format(\"~s/erts-~s/include/\", code:root_dir(), erlang:system_info(version))." -s erlang halt)
+ERL_INTERFACE_INCLUDE_DIR ?= $(shell erl -noshell -eval "io:format(\"~s\", code:lib_dir(erl_interface, include))." -s erlang halt)
+ERL_INTERFACE_LIB_DIR ?= $(shell erl -noshell -eval "io:format(\"~s\", code:lib_dir(erl_interface, lib))." -s erlang halt)
+
+C_SRC_DIR = $(CURDIR)
+C_SRC_OUTPUT ?= $(CURDIR)/../priv/$(PROJECT)
+
+# System type and C compiler/flags.
+CC ?= cc
+
+UNAME_SYS := $(shell uname -s)
+ifeq ($(UNAME_SYS), Darwin)
+	LDFLAGS ?= -Wno-missing-braces
+	CFLAGS ?= -D_FORTIFY_SOURCE=2 -O2 -fstack-protector-strong \
+					 	-Wformat -Werror=format-security \
+					 	-fno-strict-aliasing \
+					 	-pie -fPIE
+else ifeq ($(UNAME_SYS), FreeBSD)
+	LDFLAGS ?= -Wl,-Bsymbolic-functions -Wl,-z,relro,-z,now -Wl,-z,noexecstack
+	CFLAGS ?= -DHAVE_SETPROCTITLE -DHAVE_STRTONUM \
+					 	-D_FORTIFY_SOURCE=2 -O2 -fstack-protector-strong \
+					 	-Wformat -Werror=format-security \
+					 	-fno-strict-aliasing \
+					 	-pie -fPIE
+	RESTRICT_PROCESS ?= capsicum
+else ifeq ($(UNAME_SYS), OpenBSD)
+	LDFLAGS ?= -Wl,-z,relro,-z,now -Wl,-z,noexecstack
+	CFLAGS ?= -DHAVE_SETPROCTITLE -DHAVE_STRTONUM \
+					 	-D_FORTIFY_SOURCE=2 -O2 -fstack-protector-strong \
+					 	-Wformat -Werror=format-security \
+					 	-fno-strict-aliasing \
+					 	-pie -fPIE
+	RESTRICT_PROCESS ?= pledge
+else ifeq ($(UNAME_SYS), Linux)
+	LDFLAGS ?= -Wl,-Bsymbolic-functions -Wl,-z,relro,-z,now -Wl,-z,noexecstack
+	CFLAGS ?= -D_FORTIFY_SOURCE=2 -O2 -fstack-protector-strong \
+					 	-Wformat -Werror=format-security \
+					 	-fno-strict-aliasing \
+					 	-pie -fPIE
+else ifeq ($(UNAME_SYS), SunOS)
+	CFLAGS += -std=c99 -D_POSIX_C_SOURCE=200112L -D__EXTENSIONS__=1
+endif
+
+RESTRICT_PROCESS ?= rlimit
+EPCAP_RLIMIT_NOFILES ?= 1
+
+EPCAP_CFLAGS ?= -g -Wall -fwrapv
+CFLAGS += $(EPCAP_CFLAGS) $(EPCAP_DEFINE) -I $(ERTS_INCLUDE_DIR) -I $(ERL_INTERFACE_INCLUDE_DIR) \
+          -DRESTRICT_PROCESS=\"$(RESTRICT_PROCESS)\" -DRESTRICT_PROCESS_$(RESTRICT_PROCESS) \
+					-DEPCAP_RLIMIT_NOFILES=$(EPCAP_RLIMIT_NOFILES)
+
+LDLIBS += -lpcap -L $(ERL_INTERFACE_LIB_DIR) -lei
+LDFLAGS += $(EPCAP_LDFLAGS)
+
+# Verbosity.
+
+c_verbose_0 = @echo " C     " $(?F);
+c_verbose = $(c_verbose_$(V))
+
+link_verbose_0 = @echo " LD    " $(@F);
+link_verbose = $(link_verbose_$(V))
+
+SOURCES := $(shell find $(C_SRC_DIR) -type f $ -name "*.c" $)
+OBJECTS = $(addsuffix .o, $(basename $(SOURCES)))
+
+COMPILE_C = $(c_verbose) $(CC) $(CFLAGS)
+
+$(C_SRC_OUTPUT):
+	$(COMPILE_C) -o $(C_SRC_OUTPUT) $(SOURCES) $(LDFLAGS) $(LDLIBS)
+
+clean:
+	@rm -f $(C_SRC_OUTPUT) $(OBJECTS)

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/epcap.c Added

@@ -0,0 +1,667 @@
+/* Copyright (c) 2009-2021 Michael Santos <michael.santos@gmail.com>. 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.
+ *
+ * 3. Neither the name of the copyright holder nor the names of its
+ * contributors may be used to endorse or promote products derived from
+ * this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "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 COPYRIGHT
+ * HOLDER 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.
+ */
+#include <ei.h>
+#include <stdint.h>
+
+#ifdef RESTRICT_PROCESS_capsicum
+#include <sys/procdesc.h>
+#endif
+
+#include "epcap.h"
+
+#define PIPE_READ 0
+#define PIPE_WRITE 1
+
+#ifdef HAVE_SETPROCTITLE
+#define EPCAP_TITLE_CAPTURE "capture"
+#define EPCAP_TITLE_SUPERVISOR "supervisor"
+#else
+#define EPCAP_TITLE_CAPTURE "epcap capture"
+#define EPCAP_TITLE_SUPERVISOR "epcap supervisor"
+#endif
+
+enum { EPCAP_TIME_UNIT_TIMESTAMP = 0, EPCAP_TIME_UNIT_MICROSECOND = 1 };
+
+static int epcap_open(EPCAP_STATE *);
+static int epcap_init(EPCAP_STATE *);
+static void epcap_loop(EPCAP_STATE *);
+static void epcap_ctrl(const char *);
+void epcap_response(u_char *, const struct pcap_pkthdr *, const u_char *);
+static void epcap_send_free(ei_x_buff *);
+static int epcap_send(EPCAP_STATE *);
+static ssize_t read_exact(int, void *, ssize_t);
+static void usage(EPCAP_STATE *);
+
+void signal_handler(int sig);
+int signal_init(void);
+
+extern char **environ;
+
+#ifdef RESTRICT_PROCESS_capsicum
+int pdfd;
+#endif
+pid_t pid;
+
+int main(int argc, char *argv) {
+  EPCAP_STATE *ep = NULL;
+  int ch = 0;
+  int fd = 0;
+  const char *errstr = NULL;
+
+#ifndef HAVE_SETPROCTITLE
+  spt_init(argc, argv);
+#endif
+
+  ep = calloc(1, sizeof(EPCAP_STATE));
+
+  if (ep == NULL)
+    exit(ENOMEM);
+
+  ep->snaplen = SNAPLEN;
+  ep->timeout = TIMEOUT;
+  ep->opt |= EPCAP_OPT_IMMEDIATE;
+
+  while ((ch = getopt(argc, argv, "b:d:e:f:g:hi:MPs:T:t:u:Q:vX")) != -1) {
+    switch (ch) {
+    case 'b':
+      ep->bufsz = strtonum(optarg, INT32_MIN, INT32_MAX, &errstr);
+      if (errstr) {
+        VERBOSE(0, "%s, invalid buffer size (-b) value: %s\n", __progname, errstr);
+        exit(errno);
+      }
+      break;
+    case 'd': /* chroot directory */
+      ep->chroot = strdup(optarg);
+
+      if (ep->chroot == NULL)
+        exit(ENOMEM);
+
+      break;
+    case 'e': {
+      char *name = NULL;
+      char *value = NULL;
+
+      name = strdup(optarg);
+
+      if (name == NULL)
+        exit(ENOMEM);
+
+      value = strchr(name, '=');
+
+      if (value == NULL)
+        exit(EINVAL);
+
+      *value = '\0';
+      value++;
+
+      if (setenv(name, value, 0) < 0)
+        exit(errno);
+
+      free(name);
+    } break;
+    case 'f':
+      ep->file = strdup(optarg);
+
+      if (ep->file == NULL)
+        exit(ENOMEM);
+
+      ep->opt |= EPCAP_OPT_RUNASUSER;
+      break;
+    case 'g':
+      ep->group = strdup(optarg);
+
+      if (ep->group == NULL)
+        exit(ENOMEM);
+
+      break;
+    case 'i':
+      ep->dev = strdup(optarg);
+
+      if (ep->dev == NULL)
+        exit(ENOMEM);
+
+      break;
+    case 'M':
+      ep->opt |= EPCAP_OPT_RFMON;
+      break;
+    case 'P':
+      ep->opt |= EPCAP_OPT_PROMISC;
+      break;
+    case 's':
+      ep->snaplen = strtonum(optarg, INT32_MIN, INT32_MAX, &errstr);
+      if (errstr) {
+        VERBOSE(0, "%s, invalid snap length (-s) value: %s\n", __progname, errstr);
+        exit(errno);
+      }
+      break;
+    case 'T':
+      ep->time_unit = strtonum(optarg, 0, 1, &errstr);
+      if (errstr) {
+        VERBOSE(0, "%s, invalid time unit (-T) value: %s\n", __progname, errstr);
+        exit(errno);
+      }
+      break;
+    case 't':
+      ep->timeout = strtonum(optarg, INT32_MIN, INT32_MAX, &errstr);
+      if (errstr) {
+        VERBOSE(0, "%s, invalid timeout (-t) value: %s\n", __progname, errstr);
+        exit(errno);
+      }
+      if (ep->timeout < 0)
+        ep->timeout = INT32_MAX;
+      if (ep->timeout == 0) {
+        ep->opt |= EPCAP_OPT_IMMEDIATE;
+        ep->timeout = TIMEOUT;
+      }
+      else
+        ep->opt &= ~EPCAP_OPT_IMMEDIATE;
+      break;
+    case 'u':
+      ep->user = strdup(optarg);
+
+      if (ep->user == NULL)
+        exit(ENOMEM);
+
+      break;
+    case 'v':
+      ep->verbose++;
+      break;
+    case 'X':
+      ep->opt |= EPCAP_OPT_INJECT;
+      break;
+    case 'Q':
+      if (strcmp(optarg, "in") == 0) {
+        ep->direction = PCAP_D_IN;
+      } else if (strcmp(optarg, "out") == 0) {
+        ep->direction = PCAP_D_OUT;
+      } else {
+        ep->direction = PCAP_D_INOUT;
+      }
+      break;
+    case 'h':
+    default:
+      usage(ep);
+    }
+  }
+
+  argc -= optind;
+  argv += optind;
+
+  ep->filt = strdup((argc == 1) ? argv0 : EPCAP_FILTER);
+
+  if (ep->filt == NULL)
+    exit(ENOMEM);
+
+  if (ep->verbose > 0) {
+    for (; *environ; environ++)
+      VERBOSE(2, "env:%s\n", *environ);
+  }
+
+  fd = open("/dev/null", O_RDWR);
+
+  if (fd < 0)
+    exit(errno);
+
+  if (epcap_priv_runasuser(ep) < 0)
+    exit(errno);
+
+  if (epcap_open(ep) < 0)
+    exit(errno);
+
+  if (epcap_priv_drop(ep) < 0)
+    exit(errno);
+
+  if (pipe(ep->fdctl) < 0)
+    exit(errno);
+
+#ifdef RESTRICT_PROCESS_capsicum
+  pid = pdfork(&pdfd, 0);
+#else
+  pid = fork();
+#endif
+  switch (pid) {
+  case -1:
+    exit(errno);
+  case 0:
+#ifdef __linux__
+    if (prctl(PR_SET_PDEATHSIG, 9) < 0)
+      exit(errno);
+#endif
+
+    if (dup2(fd, STDIN_FILENO) < 0)
+      exit(errno);
+
+    if (close(fd) < 0)
+      exit(errno);
+
+    if (close(ep->fdctlPIPE_READ) < 0)
+      exit(errno);
+
+    setproctitle(EPCAP_TITLE_CAPTURE);
+
+    if (epcap_init(ep) < 0)
+      exit(errno);
+
+    if (restrict_process_capture() < 0)
+      exit(errno);
+
+    epcap_ctrl("ready");
+    epcap_loop(ep);
+    break;
+  default:
+    if (signal_init() < 0)
+      goto CLEANUP;
+
+    if ((dup2(fd, STDOUT_FILENO) < 0) || (close(fd) < 0))
+      goto CLEANUP;
+
+    if (close(ep->fdctlPIPE_WRITE) < 0)
+      exit(errno);
+
+    if (!(ep->opt & EPCAP_OPT_INJECT))
+      pcap_close(ep->p);
+
+    setproctitle(EPCAP_TITLE_SUPERVISOR);
+
+    if (restrict_process_supervisor() < 0)
+      goto CLEANUP;
+
+    (void)epcap_send(ep);
+
+  CLEANUP:
+#ifdef RESTRICT_PROCESS_capsicum
+    (void)pdkill(pdfd, SIGTERM);
+#else
+    (void)kill(pid, SIGTERM);
+#endif
+    break;
+  }
+
+  exit(0);
+}
+
+static int epcap_send(EPCAP_STATE *ep) {
+  const int fd = STDIN_FILENO;
+  int maxfd = 0;
+  ssize_t n = 0;
+  unsigned char bufSNAPLEN = {0};
+  u_int16_t len = 0;
+
+  int rv = 0;
+
+  for (;;) {
+    fd_set rfds;
+
+    FD_ZERO(&rfds);
+    FD_SET(fd, &rfds);
+    FD_SET(ep->fdctlPIPE_READ, &rfds);
+    maxfd = ep->fdctlPIPE_READ + 1;
+
+    rv = select(maxfd, &rfds, NULL, NULL, NULL);
+
+    switch (rv) {
+    case 0:
+      continue;
+
+    case -1:
+      if (errno == EINTR)
+        continue;
+
+      return -1;
+
+    default:
+      break;
+    }
+
+    if (FD_ISSET(ep->fdctlPIPE_READ, &rfds))
+      return 0;
+
+    if (!FD_ISSET(fd, &rfds))
+      continue;
+
+    n = read_exact(fd, &len, sizeof(len));
+
+    if (n != sizeof(len)) {
+      VERBOSE(1, "epcap_send: header len != %lu: %ld",
+              (unsigned long)sizeof(len), (long)n);
+      return -1;
+    }
+
+    len = ntohs(len);
+
+    VERBOSE(2, "epcap_send: packet len = %u", len);
+
+    if (len >= sizeof(buf)) {
+      errno = EINVAL;
+      return -1;
+    }
+
+    n = read_exact(fd, buf, len);
+
+    if (n != len) {
+      VERBOSE(1, "epcap_send: len = %u, read = %ld", len, (long)n);
+      errno = EINVAL;
+      return -1;
+    }
+
+    if (ep->opt & EPCAP_OPT_INJECT) {
+      n = pcap_inject(ep->p, buf, len);
+
+      if (n < 0) {
+        VERBOSE(0, "epcap_send: %s", pcap_geterr(ep->p));
+        return -1;
+      } else if (n != len) {
+        VERBOSE(1, "epcap_send: len = %u, sent = %ld", len, (long)n);
+      }
+    } else {
+      VERBOSE(2, "epcap_send: ignoring: len = %u", len);
+    }
+  }
+
+  return 0;
+}
+
+static int epcap_open(EPCAP_STATE *ep) {
+  if (ep->file) {
+    ep->p = pcap_open_offline(ep->file, ep->errbuf);
+
+    if (ep->p == NULL) {
+      VERBOSE(0, "%s, failed call to pcap_open_offline %s\n", __progname,
+              ep->errbuf);
+      return -1;
+    }
+  } else {
+    if (ep->dev == NULL) {
+      pcap_if_t *alldevs;
+
+      if (pcap_findalldevs(&alldevs, ep->errbuf) < 0 || alldevs == NULL) {
+        VERBOSE(0, "%s, failed call to pcap_findalldevs %s\n", __progname,
+                ep->errbuf);
+        return -1;
+      }
+
+      ep->dev = strdup(alldevs->name);
+
+      if (ep->dev == NULL)
+        return -1;
+
+      pcap_freealldevs(alldevs);
+    }
+
+#ifdef HAVE_PCAP_CREATE
+    ep->p = pcap_create(ep->dev, ep->errbuf);
+
+    if (ep->p == NULL) {
+      VERBOSE(0, "%s, failed call to pcap_create %s\n", __progname, ep->errbuf);
+      return -1;
+    }
+
+    (void)pcap_set_snaplen(ep->p, ep->snaplen);
+    (void)pcap_set_promisc(ep->p, ep->opt & EPCAP_OPT_PROMISC);
+    (void)pcap_set_immediate_mode(ep->p, ep->opt & EPCAP_OPT_IMMEDIATE);
+    (void)pcap_set_timeout(ep->p, ep->timeout);
+
+    if (ep->bufsz > 0)
+      (void)pcap_set_buffer_size(ep->p, ep->bufsz);
+
+    switch (pcap_activate(ep->p)) {
+    case 0:
+      break;
+    case PCAP_WARNING:
+    case PCAP_ERROR:
+    case PCAP_WARNING_PROMISC_NOTSUP:
+    case PCAP_ERROR_NO_SUCH_DEVICE:
+    case PCAP_ERROR_PERM_DENIED:
+      (void)strncpy(ep->errbuf, pcap_geterr(ep->p), sizeof(ep->errbuf) - 1);
+      return -1;
+    default:
+      return -1;
+    }
+#else
+    ep->p = pcap_open_live(ep->dev, ep->snaplen, ep->opt & EPCAP_OPT_PROMISC,
+                           ep->timeout, ep->errbuf);
+
+    if (ep->p == NULL) {
+      VERBOSE(0, "%s, failed call to pcap_open_live %s\n", __progname,
+              ep->errbuf);
+      return -1;
+    }
+#endif
+
+    /* monitor mode */
+#ifdef PCAP_ERROR_RFMON_NOTSUP
+    if (pcap_can_set_rfmon(ep->p) == 1)
+      (void)pcap_set_rfmon(ep->p, ep->opt & EPCAP_OPT_RFMON);
+#endif
+  }
+
+  ep->datalink = pcap_datalink(ep->p);
+
+  if (ep->file == 0 && pcap_setdirection(ep->p, ep->direction) != 0) {
+    VERBOSE(1, "pcap_setdirection: %s (%d)", pcap_geterr(ep->p), ep->direction);
+    return -1;
+  }
+
+  return 0;
+}
+
+static int epcap_init(EPCAP_STATE *ep) {
+  struct bpf_program fcode = {0};
+  char errbufPCAP_ERRBUF_SIZE = {0};
+
+  u_int32_t ipaddr = 0;
+  u_int32_t ipmask = 0;
+
+  if (pcap_lookupnet(ep->dev, &ipaddr, &ipmask, errbuf) == -1) {
+    VERBOSE(1, "%s", errbuf);
+    ipmask = PCAP_NETMASK_UNKNOWN;
+  }
+
+  VERBOSE(2, "%s Using filter: %s\n", __progname, ep->filt);
+
+  if (pcap_compile(ep->p, &fcode, ep->filt, 1 /* optimize == true */, ipmask) !=
+      0) {
+    VERBOSE(1, "pcap_compile: %s", pcap_geterr(ep->p));
+    return -1;
+  }
+
+  if (pcap_setfilter(ep->p, &fcode) != 0) {
+    VERBOSE(1, "pcap_setfilter: %s", pcap_geterr(ep->p));
+    return -1;
+  }
+
+  pcap_freecode(&fcode);
+
+  return 0;
+}
+
+static void epcap_loop(EPCAP_STATE *ep) {
+  int rv = -1;
+
+  rv = pcap_loop(ep->p, -1, epcap_response, (u_char *)ep);
+
+  switch (rv) {
+  case -2:
+    break;
+  case -1: /* error reading packet */
+    VERBOSE(1, "%s", pcap_geterr(ep->p));
+    break;
+  default:
+    if (ep->file)
+      epcap_ctrl("eof");
+    break;
+  }
+}
+
+static void epcap_ctrl(const char *ctrl_evt) {
+  ei_x_buff msg;
+
+  EPCAP_ENCODE_ERR(ei_x_new_with_version(&msg));
+  EPCAP_ENCODE_ERR(ei_x_encode_tuple_header(&msg, 2));
+  EPCAP_ENCODE_ERR(ei_x_encode_atom(&msg, "epcap"));
+  EPCAP_ENCODE_ERR(ei_x_encode_atom(&msg, ctrl_evt));
+
+  epcap_send_free(&msg);
+}
+
+void epcap_response(u_char *user, const struct pcap_pkthdr *hdr,
+                    const u_char *pkt) {
+  EPCAP_STATE *ep = (EPCAP_STATE *)user;
+  ei_x_buff msg = {0};
+
+  EPCAP_ENCODE_ERR(ei_x_new_with_version(&msg));
+
+  /* {packet, DatalinkType, Time, ActualLength, Packet} */
+  EPCAP_ENCODE_ERR(ei_x_encode_tuple_header(&msg, 5));
+  EPCAP_ENCODE_ERR(ei_x_encode_atom(&msg, "packet"));
+
+  /* DataLinkType */
+  EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, ep->datalink));
+
+  switch (ep->time_unit) {
+  case EPCAP_TIME_UNIT_MICROSECOND:
+    /* microseconds */
+    EPCAP_ENCODE_ERR(ei_x_encode_ulonglong(
+        &msg, (unsigned long long)hdr->ts.tv_sec * 1000000 +
+                  (unsigned long long)hdr->ts.tv_usec));
+    break;
+
+  case EPCAP_TIME_UNIT_TIMESTAMP:
+  default:
+    /* {MegaSec, Sec, MicroSec} */
+    EPCAP_ENCODE_ERR(ei_x_encode_tuple_header(&msg, 3));
+    EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, hdr->ts.tv_sec / 1000000L));
+    EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, hdr->ts.tv_sec % 1000000));
+    EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, hdr->ts.tv_usec));
+    break;
+  }
+
+  /* ActualLength} */
+  EPCAP_ENCODE_ERR(ei_x_encode_long(&msg, hdr->len));
+
+  /* Packet */
+  EPCAP_ENCODE_ERR(ei_x_encode_binary(&msg, pkt, hdr->caplen));
+
+  /* } */
+
+  epcap_send_free(&msg);
+}
+
+static void epcap_send_free(ei_x_buff *msg) {
+  u_int16_t len = 0;
+  struct iovec iov2;
+
+  len = htons(msg->index);
+
+  iov0.iov_base = &len;
+  iov0.iov_len = sizeof(len);
+  iov1.iov_base = msg->buff;
+  iov1.iov_len = msg->index;
+
+  if (writev(STDOUT_FILENO, iov, sizeof(iov) / sizeof(iov0)) !=
+      sizeof(len) + msg->index)
+    exit(errno);
+
+  ei_x_free(msg);
+}
+
+static ssize_t read_exact(int fd, void *buf, ssize_t len) {
+  ssize_t i = 0;
+  ssize_t got = 0;
+
+  do {
+    if ((i = read(fd, buf + got, len - got)) <= 0)
+      return i;
+    got += i;
+  } while (got < len);
+
+  return len;
+}
+
+void signal_handler(int sig) {
+  if (pid > 0)
+#ifdef RESTRICT_PROCESS_capsicum
+    (void)pdkill(pdfd, sig);
+#else
+    (void)kill(pid, sig);
+#endif
+}
+
+int signal_init(void) {
+  struct sigaction act = {0};
+  int sig;
+
+  act.sa_handler = signal_handler;
+  (void)sigfillset(&act.sa_mask);
+
+  for (sig = 1; sig < NSIG; sig++) {
+    if (sig == SIGCHLD)
+      continue;
+
+    if (sigaction(sig, &act, NULL) < 0) {
+      if (errno == EINVAL)
+        continue;
+
+      return -1;
+    }
+  }
+
+  return 0;
+}
+
+static void usage(EPCAP_STATE *ep) {
+  (void)fprintf(stderr, "%s, %s (using %s process restriction)\n", __progname,
+                EPCAP_VERSION, RESTRICT_PROCESS);
+  (void)fprintf(
+      stderr,
+      "usage: %s <options>\n"
+      "              -d <directory>   chroot directory\n"
+      "              -i <interface>   interface to snoop\n"
+      "              -f <filename>    read from file instead of live capture\n"
+#ifdef PCAP_ERROR_RFMON_NOTSUP
+      "              -M               wireless monitor (rfmon) mode\n"
+#endif
+      "              -P               promiscuous mode\n"
+      "              -g <group>       unprivileged group\n"
+      "              -u <user>        unprivileged user\n"
+#ifdef HAVE_PCAP_CREATE
+      "              -b <size>        PCAP buf size\n"
+#endif
+      "              -s <length>      packet capture length\n"
+      "              -t <millisecond> capture timeout\n"
+      "              -e <key>=<val>   set an environment variable\n"
+      "              -v               verbose mode\n"
+      "              -X               enable sending packets\n"
+      "              -Q               capture direction\n",
+      __progname);
+
+  exit(EXIT_FAILURE);
+}

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/epcap.h Added

@@ -0,0 +1,129 @@
+/* Copyright (c) 2009-2020 Michael Santos <michael.santos@gmail.com>. 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.
+ *
+ * 3. Neither the name of the copyright holder nor the names of its
+ * contributors may be used to endorse or promote products derived from
+ * this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "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 COPYRIGHT
+ * HOLDER 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.
+ */
+#define _GNU_SOURCE
+#include <fcntl.h>
+#include <netinet/in.h>
+#include <signal.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/resource.h>
+#include <sys/uio.h>
+#include <unistd.h>
+
+#include <pcap.h>
+
+#ifdef __linux__
+#include <sys/prctl.h>
+#endif
+
+#if defined(__SVR4) && defined(__sun)
+#define u_int8_t uint8_t
+#define u_int16_t uint16_t
+#define u_int32_t uint32_t
+#define u_int64_t uint64_t
+#endif
+
+#if !defined(PCAP_NETMASK_UNKNOWN)
+#define PCAP_NETMASK_UNKNOWN 0xffffffff
+#endif
+
+#define EPCAP_VERSION "0.4.0"
+
+#define SNAPLEN 65535
+
+/* On Linux, 0 will block until the next packet is received.
+ * On BSD, 0 will block until the snaplen buffer is full.
+ */
+#define TIMEOUT 500 /* ms, 0 = block indefinitely */
+
+#define EPCAP_USER "nobody"
+#define EPCAP_CHROOT "/var/empty"
+#define EPCAP_FILTER "" /* match any packet */
+
+#define EPCAP_ENCODE_ERR(x)                                                    \
+  do {                                                                         \
+    if ((x) != 0)                                                              \
+      exit(ENOMEM);                                                            \
+  } while (0);
+
+#define VERBOSE(x, ...)                                                        \
+  do {                                                                         \
+    if (ep->verbose >= x) {                                                    \
+      (void)fprintf(stderr, __VA_ARGS__);                                      \
+    }                                                                          \
+  } while (0)
+
+extern char *__progname;
+
+enum {
+  EPCAP_OPT_PROMISC = 1 << 0,   /* enable promiscuous mode */
+  EPCAP_OPT_RUNASUSER = 1 << 1, /* setuid: drop privs to calling user */
+  EPCAP_OPT_RFMON = 1 << 2,     /* enable monitor mode */
+  EPCAP_OPT_INJECT = 1 << 3,    /* enable packet injection */
+  EPCAP_OPT_IMMEDIATE = 1 << 4, /* enable capture immediate mode */
+};
+
+typedef struct {
+  pcap_t *p;                     /* pcap handle */
+  int fdctl2;                  /* control descriptor for supervisor process */
+  int datalink;                  /* dlt */
+  int opt;                       /* options */
+  int verbose;                   /* debug messages */
+  int snaplen;                   /* packet capture length */
+  int timeout;                   /* capture timeout */
+  int time_unit;                 /* microseconds, timestamp */
+  int bufsz;                     /* pcap buf size */
+  int direction;                 /* capture direction */
+  char *filt;                    /* packet filter */
+  char *dev;                     /* device to snoop */
+  char *user;                    /* run as unprivileged user */
+  char *group;                   /* run as unprivilted group */
+  char *chroot;                  /* chroot directory */
+  char *file;                    /* filename in case we read from pcap file */
+  char errbufPCAP_ERRBUF_SIZE; /* pcap error */
+} EPCAP_STATE;
+
+int epcap_priv_drop(EPCAP_STATE *);
+int epcap_priv_runasuser(EPCAP_STATE *ep);
+
+int restrict_process_capture();
+int restrict_process_supervisor();
+
+#ifndef HAVE_STRTONUM
+long long strtonum(const char *numstr, long long minval, long long maxval,
+                   const char **errstrp);
+#endif
+
+#ifndef HAVE_SETPROCTITLE
+void spt_init(int argc, char *argv);
+void setproctitle(const char *fmt, ...);
+#endif

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/epcap_priv.c Added

@@ -0,0 +1,116 @@
+/* Copyright (c) 2009-2021 Michael Santos <michael.santos@gmail.com>. 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.
+ *
+ * 3. Neither the name of the copyright holder nor the names of its
+ * contributors may be used to endorse or promote products derived from
+ * this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "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 COPYRIGHT
+ * HOLDER 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.
+ */
+#include "epcap.h"
+#include <grp.h>
+#include <pwd.h>
+
+int epcap_priv_drop(EPCAP_STATE *ep) {
+  struct passwd *pw = NULL;
+  struct group *gr = NULL;
+  gid_t gid;
+
+  if (geteuid() != 0)
+    return 1;
+
+  if (!ep->user)
+    ep->user = EPCAP_USER;
+
+  if (!ep->chroot)
+    ep->chroot = EPCAP_CHROOT;
+
+  if ((pw = getpwnam(ep->user)) == NULL)
+    return -1;
+
+  if (ep->group && (gr = getgrnam(ep->group)) == NULL)
+    return -1;
+
+  if (chroot(ep->chroot) < 0)
+    return -1;
+
+  if (chdir("/") < 0)
+    return -1;
+
+  if (setgroups(0, NULL) < 0)
+    return -1;
+
+  gid = ep->group ? gr->gr_gid : pw->pw_gid;
+
+#if defined(__sunos__) || defined(__APPLE__)
+  if (setgid(gid) < 0)
+    return -1;
+
+  if (setuid(pw->pw_uid) < 0)
+    return -1;
+#else
+  if (setresgid(gid, gid, gid) < 0)
+    return -1;
+
+  if (setresuid(pw->pw_uid, pw->pw_uid, pw->pw_uid) < 0)
+    return -1;
+#endif
+
+#ifdef __linux__
+  if (prctl(PR_SET_NO_NEW_PRIVS, 1, 0, 0, 0) < 0)
+    return -1;
+#endif
+
+  return 0;
+}
+
+int epcap_priv_runasuser(EPCAP_STATE *ep) {
+  uid_t uid;
+  gid_t gid;
+
+  uid = getuid();
+  gid = getgid();
+
+  if (!(ep->opt & EPCAP_OPT_RUNASUSER) || (geteuid() != 0))
+    return 0;
+
+  if (setgroups(0, NULL) < 0)
+    return -1;
+
+#if defined(__sunos__) || defined(__APPLE__)
+  if (setgid(getgid()) < 0)
+    return -1;
+
+  if (setuid(getuid()) < 0)
+    return -1;
+#else
+  if (setresgid(gid, gid, gid) < 0)
+    return -1;
+
+  if (setresuid(uid, uid, uid) < 0)
+    return -1;
+#endif
+
+  return 0;
+}

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/restrict_process_capsicum.c Added

@@ -0,0 +1,120 @@
+/* Copyright (c) 2017-2020 Michael Santos <michael.santos@gmail.com>. 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.
+ *
+ * 3. Neither the name of the copyright holder nor the names of its
+ * contributors may be used to endorse or promote products derived from
+ * this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "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 COPYRIGHT
+ * HOLDER 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.
+ */
+#ifdef RESTRICT_PROCESS_capsicum
+
+#include <sys/capsicum.h>
+#include <sys/param.h>
+#include <sys/resource.h>
+#include <sys/time.h>
+#include <sys/types.h>
+#include <unistd.h>
+
+#include <errno.h>
+
+#include "epcap.h"
+#include <pcap/pcap.h>
+
+int restrict_process_capture() {
+  struct rlimit rl = {0};
+  cap_rights_t policy_read;
+  cap_rights_t policy_null;
+  cap_rights_t policy_write;
+
+  int fd = -1;
+
+  (void)cap_rights_init(&policy_read, CAP_READ, CAP_EVENT);
+  (void)cap_rights_init(&policy_null);
+  (void)cap_rights_init(&policy_write, CAP_WRITE);
+
+  if (cap_rights_limit(STDIN_FILENO, &policy_null) < 0)
+    return -1;
+
+  if (cap_rights_limit(STDOUT_FILENO, &policy_write) < 0)
+    return -1;
+
+  if (cap_rights_limit(STDERR_FILENO, &policy_write) < 0)
+    return -1;
+
+  if (setrlimit(RLIMIT_NPROC, &rl) != 0)
+    return -1;
+
+  if (getrlimit(RLIMIT_NOFILE, &rl) < 0)
+    return -1;
+
+  for (fd = STDERR_FILENO + 1; fd < rl.rlim_cur; fd++) {
+    if (fcntl(fd, F_GETFD, 0) < 0)
+      continue;
+
+    if (cap_rights_limit(fd, &policy_read) < 0)
+      return -1;
+  }
+
+  return cap_enter();
+}
+
+int restrict_process_supervisor() {
+  struct rlimit rl = {0};
+  cap_rights_t policy_read;
+  cap_rights_t policy_write;
+  cap_rights_t policy_null;
+
+  int fd = -1;
+
+  (void)cap_rights_init(&policy_read, CAP_READ, CAP_EVENT);
+  (void)cap_rights_init(&policy_write, CAP_WRITE, CAP_EVENT);
+  (void)cap_rights_init(&policy_null);
+
+  if (cap_rights_limit(STDIN_FILENO, &policy_read) < 0)
+    return -1;
+
+  if (cap_rights_limit(STDOUT_FILENO, &policy_null) < 0)
+    return -1;
+
+  if (cap_rights_limit(STDERR_FILENO, &policy_write) < 0)
+    return -1;
+
+  if (setrlimit(RLIMIT_NPROC, &rl) != 0)
+    return -1;
+
+  if (getrlimit(RLIMIT_NOFILE, &rl) < 0)
+    return -1;
+
+  for (fd = STDERR_FILENO + 1; fd < rl.rlim_cur; fd++) {
+    if (fcntl(fd, F_GETFD, 0) < 0)
+      continue;
+
+    if (cap_rights_limit(fd, &policy_write) < 0)
+      return -1;
+  }
+
+  return cap_enter();
+}
+#endif

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/restrict_process_null.c Added

@@ -0,0 +1,36 @@
+/* Copyright (c) 2018-2020 Michael Santos <michael.santos@gmail.com>. 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.
+ *
+ * 3. Neither the name of the copyright holder nor the names of its
+ * contributors may be used to endorse or promote products derived from
+ * this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "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 COPYRIGHT
+ * HOLDER 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.
+ */
+#ifdef RESTRICT_PROCESS_null
+
+int restrict_process_capture() { return 0; }
+
+int restrict_process_supervisor() { return 0; }
+#endif

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/restrict_process_pledge.c Added

@@ -0,0 +1,39 @@
+/* Copyright (c) 2018-2020 Michael Santos <michael.santos@gmail.com>. 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.
+ *
+ * 3. Neither the name of the copyright holder nor the names of its
+ * contributors may be used to endorse or promote products derived from
+ * this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "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 COPYRIGHT
+ * HOLDER 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.
+ */
+#ifdef RESTRICT_PROCESS_pledge
+
+#include "epcap.h"
+#include <unistd.h>
+
+int restrict_process_capture() { return pledge("stdio", NULL); }
+
+int restrict_process_supervisor() { return pledge("stdio proc", NULL); }
+#endif

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/restrict_process_rlimit.c Added

@@ -0,0 +1,93 @@
+/* Copyright (c) 2017-2023 Michael Santos <michael.santos@gmail.com>. 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.
+ *
+ * 3. Neither the name of the copyright holder nor the names of its
+ * contributors may be used to endorse or promote products derived from
+ * this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "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 COPYRIGHT
+ * HOLDER 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.
+ */
+#ifdef RESTRICT_PROCESS_rlimit
+
+#include "epcap.h"
+
+static int fdlimit(int lowfd);
+
+int restrict_process_capture() {
+  struct rlimit rl = {0};
+  int maxfd;
+
+  maxfd = fdlimit(STDERR_FILENO);
+
+  rl.rlim_cur = maxfd;
+  rl.rlim_max = maxfd;
+
+  if (setrlimit(RLIMIT_NOFILE, &rl) != 0)
+    return -1;
+
+  if (setrlimit(RLIMIT_FSIZE, &rl) != 0)
+    return -1;
+
+  if (setrlimit(RLIMIT_NPROC, &rl) != 0)
+    return -1;
+
+  return 0;
+}
+
+int restrict_process_supervisor() {
+  struct rlimit rl = {0};
+
+  if (setrlimit(RLIMIT_FSIZE, &rl) != 0)
+    return -1;
+
+  if (setrlimit(RLIMIT_NPROC, &rl) != 0)
+    return -1;
+
+  if (setrlimit(RLIMIT_NOFILE, &rl) != 0)
+    return -1;
+
+  return 0;
+}
+
+/* A previous call to chroot(2) prevents using /dev/fd to find the
+ * max opened fd by the process. Fallback to testing each fd: with a high
+ * RLIMIT_NOFILE, this check will be slow.
+ */
+static int fdlimit(int lowfd) {
+  struct rlimit rl = {0};
+  int fd;
+
+  if (getrlimit(RLIMIT_NOFILE, &rl) < 0)
+    return -1;
+
+  for (fd = rl.rlim_cur; fd > lowfd; fd--) {
+    if (fcntl(fd, F_GETFD, 0) == -1)
+      continue;
+
+    return fd;
+  }
+
+  return lowfd;
+}
+#endif

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/restrict_process_seccomp.c Added

@@ -0,0 +1,224 @@
+/* Copyright (c) 2018-2020 Michael Santos <michael.santos@gmail.com>. 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.
+ *
+ * 3. Neither the name of the copyright holder nor the names of its
+ * contributors may be used to endorse or promote products derived from
+ * this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "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 COPYRIGHT
+ * HOLDER 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.
+ */
+#ifdef RESTRICT_PROCESS_seccomp
+#include <errno.h>
+#include <linux/audit.h>
+#include <linux/filter.h>
+#include <linux/seccomp.h>
+#include <stddef.h>
+#include <sys/prctl.h>
+#include <sys/syscall.h>
+
+/* macros from openssh-7.2/sandbox-seccomp-filter.c */
+
+/* Linux seccomp_filter restrict_process */
+#define SECCOMP_FILTER_FAIL SECCOMP_RET_KILL
+
+/* Use a signal handler to emit violations when debugging */
+#ifdef RESTRICT_PROCESS_SECCOMP_FILTER_DEBUG
+#undef SECCOMP_FILTER_FAIL
+#define SECCOMP_FILTER_FAIL SECCOMP_RET_TRAP
+#endif /* RESTRICT_PROCESS_SECCOMP_FILTER_DEBUG */
+
+/* Simple helpers to avoid manual errors (but larger BPF programs). */
+#define SC_DENY(_nr, _errno)                                                   \
+  BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, __NR_##_nr, 0, 1),                       \
+      BPF_STMT(BPF_RET + BPF_K, SECCOMP_RET_ERRNO | (_errno))
+#define SC_ALLOW(_nr)                                                          \
+  BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, __NR_##_nr, 0, 1),                       \
+      BPF_STMT(BPF_RET + BPF_K, SECCOMP_RET_ALLOW)
+#define SC_ALLOW_ARG(_nr, _arg_nr, _arg_val)                                   \
+  BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, __NR_##_nr, 0,                           \
+           4), /* load first syscall argument */                               \
+      BPF_STMT(BPF_LD + BPF_W + BPF_ABS,                                       \
+               offsetof(struct seccomp_data, args(_arg_nr))),                \
+      BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, (_arg_val), 0, 1),                   \
+      BPF_STMT(BPF_RET + BPF_K,                                                \
+               SECCOMP_RET_ALLOW), /* reload syscall number; all rules expect  \
+                                      it in accumulator */                     \
+      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, nr))
+
+/*
+ * http://outflux.net/teach-seccomp/
+ * https://github.com/gebi/teach-seccomp
+ *
+ */
+#define syscall_nr (offsetof(struct seccomp_data, nr))
+#define arch_nr (offsetof(struct seccomp_data, arch))
+
+#if defined(__i386__)
+#define SECCOMP_AUDIT_ARCH AUDIT_ARCH_I386
+#elif defined(__x86_64__)
+#define SECCOMP_AUDIT_ARCH AUDIT_ARCH_X86_64
+#elif defined(__arm__)
+#define SECCOMP_AUDIT_ARCH AUDIT_ARCH_ARM
+#elif defined(__aarch64__)
+#define SECCOMP_AUDIT_ARCH AUDIT_ARCH_AARCH64
+#else
+#warning "seccomp: unsupported platform"
+#define SECCOMP_AUDIT_ARCH 0
+#endif
+
+int restrict_process_capture() {
+  struct sock_filter filter = {
+      /* Ensure the syscall arch convention is as expected. */
+      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, arch)),
+      BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, SECCOMP_AUDIT_ARCH, 1, 0),
+      BPF_STMT(BPF_RET + BPF_K, SECCOMP_FILTER_FAIL),
+      /* Load the syscall number for checking. */
+      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, nr)),
+
+  /* Syscalls to allow */
+
+#ifdef __NR_brk
+      SC_ALLOW(brk),
+#endif
+#ifdef __NR_recvfrom
+      SC_ALLOW(recvfrom),
+#endif
+#ifdef __NR_recv
+      SC_ALLOW(recv),
+#endif
+#ifdef __NR_recvmsg
+      SC_ALLOW(recvmsg),
+#endif
+
+#ifdef __NR_writev
+      SC_ALLOW(writev),
+#endif
+
+#ifdef __NR_fcntl
+      SC_ALLOW(fcntl),
+#endif
+#ifdef __NR_fcntl64
+      SC_ALLOW(fcntl64),
+#endif
+
+#ifdef __NR_setsockopt
+      SC_ALLOW(setsockopt),
+#endif
+
+#ifdef __NR_poll
+      SC_ALLOW(poll),
+#endif
+#ifdef __NR_ppoll
+      SC_ALLOW(ppoll),
+#endif
+
+#ifdef __NR_rt_sigreturn
+      SC_ALLOW(rt_sigreturn),
+#endif
+#ifdef __NR_restart_syscall
+      SC_ALLOW(restart_syscall),
+#endif
+
+      /* Default deny */
+      BPF_STMT(BPF_RET + BPF_K, SECCOMP_FILTER_FAIL)};
+
+  struct sock_fprog prog = {
+      .len = (unsigned short)(sizeof(filter) / sizeof(filter0)),
+      .filter = filter,
+  };
+
+  if (prctl(PR_SET_NO_NEW_PRIVS, 1, 0, 0, 0) < 0)
+    return -1;
+
+  return prctl(PR_SET_SECCOMP, SECCOMP_MODE_FILTER, &prog);
+}
+
+int restrict_process_supervisor() {
+  struct sock_filter filter = {
+      /* Ensure the syscall arch convention is as expected. */
+      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, arch)),
+      BPF_JUMP(BPF_JMP + BPF_JEQ + BPF_K, SECCOMP_AUDIT_ARCH, 1, 0),
+      BPF_STMT(BPF_RET + BPF_K, SECCOMP_FILTER_FAIL),
+      /* Load the syscall number for checking. */
+      BPF_STMT(BPF_LD + BPF_W + BPF_ABS, offsetof(struct seccomp_data, nr)),
+
+  /* Syscalls to allow */
+#ifdef __NR_kill
+      SC_ALLOW(kill),
+#endif
+
+#ifdef __NR_exit_group
+      SC_ALLOW(exit_group),
+#endif
+
+#ifdef __NR_read
+      SC_ALLOW(read),
+#endif
+#ifdef __NR_readv
+      SC_ALLOW(readv),
+#endif
+#ifdef __NR_write
+      SC_ALLOW(write),
+#endif
+#ifdef __NR_writev
+      SC_ALLOW(writev),
+#endif
+#ifdef __NR_sendto
+      SC_ALLOW(sendto),
+#endif
+#ifdef __NR__newselect
+      SC_ALLOW(_newselect),
+#endif
+#ifdef __NR_select
+      SC_ALLOW(select),
+#endif
+#ifdef __NR_pselect6
+      SC_ALLOW(pselect6),
+#endif
+
+#ifdef __NR_poll
+      SC_ALLOW(poll),
+#endif
+
+#ifdef __NR_rt_sigreturn
+      SC_ALLOW(rt_sigreturn),
+#endif
+#ifdef __NR_restart_syscall
+      SC_ALLOW(restart_syscall),
+#endif
+
+      /* Default deny */
+      BPF_STMT(BPF_RET + BPF_K, SECCOMP_RET_TRAP)};
+
+  struct sock_fprog prog = {
+      .len = (unsigned short)(sizeof(filter) / sizeof(filter0)),
+      .filter = filter,
+  };
+
+  if (prctl(PR_SET_NO_NEW_PRIVS, 1, 0, 0, 0) < 0)
+    return -1;
+
+  return prctl(PR_SET_SECCOMP, SECCOMP_MODE_FILTER, &prog);
+}
+#endif

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/setproctitle.c Added

@@ -0,0 +1,256 @@
+/* ==========================================================================
+ * setproctitle.c - Linux/Darwin setproctitle.
+ * --------------------------------------------------------------------------
+ * Copyright (C) 2010  William Ahern
+ * Copyright (C) 2013  Salvatore Sanfilippo
+ * Copyright (C) 2013  Stam He
+ *
+ * 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.
+ * ==========================================================================
+ */
+#ifndef _GNU_SOURCE
+#define _GNU_SOURCE
+#endif
+
+#include <stdarg.h> /* va_list va_start va_end */
+#include <stddef.h> /* NULL size_t */
+#include <stdio.h>  /* vsnprintf(3) snprintf(3) */
+#include <stdlib.h> /* malloc(3) setenv(3) clearenv(3) setproctitle(3) getprogname(3) */
+
+#include <string.h> /* strlen(3) strchr(3) strdup(3) memset(3) memcpy(3) */
+
+#include <errno.h> /* errno program_invocation_name program_invocation_short_name */
+
+#if !defined(HAVE_SETPROCTITLE)
+#if (defined __NetBSD__ || defined __FreeBSD__ || defined __OpenBSD__)
+#define HAVE_SETPROCTITLE 1
+#else
+#define HAVE_SETPROCTITLE 0
+#endif
+#endif
+
+#if !HAVE_SETPROCTITLE
+#if (defined __linux || defined __APPLE__)
+
+extern char **environ;
+
+static struct {
+  /* original value */
+  const char *arg0;
+
+  /* title space available */
+  char *base, *end;
+
+  /* pointer to original nul character within base */
+  char *nul;
+
+  _Bool reset;
+  int error;
+} SPT;
+
+#ifndef SPT_MIN
+#define SPT_MIN(a, b) (((a) < (b)) ? (a) : (b))
+#endif
+
+static inline size_t spt_min(size_t a, size_t b) {
+  return SPT_MIN(a, b);
+} /* spt_min() */
+
+/*
+ * For discussion on the portability of the various methods, see
+ * http://lists.freebsd.org/pipermail/freebsd-stable/2008-June/043136.html
+ */
+static int spt_clearenv(void) {
+#if __GLIBC__
+  clearenv();
+
+  return 0;
+#else
+  extern char **environ;
+  static char **tmp;
+
+  if (!(tmp = malloc(sizeof *tmp)))
+    return errno;
+
+  tmp0 = NULL;
+  environ = tmp;
+
+  return 0;
+#endif
+} /* spt_clearenv() */
+
+static int spt_copyenv(char *oldenv) {
+  extern char **environ;
+  char *eq;
+  int i, error;
+
+  if (environ != oldenv)
+    return 0;
+
+  if ((error = spt_clearenv()))
+    goto error;
+
+  for (i = 0; oldenvi; i++) {
+    if (!(eq = strchr(oldenvi, '=')))
+      continue;
+
+    *eq = '\0';
+    error = (0 != setenv(oldenvi, eq + 1, 1)) ? errno : 0;
+    *eq = '=';
+
+    if (error)
+      goto error;
+  }
+
+  return 0;
+error:
+  environ = oldenv;
+
+  return error;
+} /* spt_copyenv() */
+
+static int spt_copyargs(int argc, char *argv) {
+  char *tmp;
+  int i;
+
+  for (i = 1; i < argc || (i >= argc && argvi); i++) {
+    if (!argvi)
+      continue;
+
+    if (!(tmp = strdup(argvi)))
+      return errno;
+
+    argvi = tmp;
+  }
+
+  return 0;
+} /* spt_copyargs() */
+
+void spt_init(int argc, char *argv) {
+  char **envp = environ;
+  char *base, *end, *nul, *tmp;
+  int i, error;
+
+  if (!(base = argv0))
+    return;
+
+  nul = &basestrlen(base);
+  end = nul + 1;
+
+  for (i = 0; i < argc || (i >= argc && argvi); i++) {
+    if (!argvi || argvi < end)
+      continue;
+
+    end = argvi + strlen(argvi) + 1;
+  }
+
+  for (i = 0; envpi; i++) {
+    if (envpi < end)
+      continue;
+
+    end = envpi + strlen(envpi) + 1;
+  }
+
+  if (!(SPT.arg0 = strdup(argv0)))
+    goto syerr;
+
+#if __GLIBC__
+  if (!(tmp = strdup(program_invocation_name)))
+    goto syerr;
+
+  program_invocation_name = tmp;
+
+  if (!(tmp = strdup(program_invocation_short_name)))
+    goto syerr;
+
+  program_invocation_short_name = tmp;
+#elif __APPLE__
+  if (!(tmp = strdup(getprogname())))
+    goto syerr;
+
+  setprogname(tmp);
+#endif
+
+  if ((error = spt_copyenv(envp)))
+    goto error;
+
+  if ((error = spt_copyargs(argc, argv)))
+    goto error;
+
+  SPT.nul = nul;
+  SPT.base = base;
+  SPT.end = end;
+
+  return;
+syerr:
+  error = errno;
+error:
+  SPT.error = error;
+} /* spt_init() */
+
+#ifndef SPT_MAXTITLE
+#define SPT_MAXTITLE 255
+#endif
+
+void setproctitle(const char *fmt, ...) {
+  char bufSPT_MAXTITLE + 1; /* use buffer in case argv0 is passed */
+  va_list ap;
+  char *nul;
+  int len, error;
+
+  if (!SPT.base)
+    return;
+
+  if (fmt) {
+    va_start(ap, fmt);
+    len = vsnprintf(buf, sizeof buf, fmt, ap);
+    va_end(ap);
+  } else {
+    len = snprintf(buf, sizeof buf, "%s", SPT.arg0);
+  }
+
+  if (len <= 0) {
+    error = errno;
+    goto error;
+  }
+
+  if (!SPT.reset) {
+    memset(SPT.base, 0, SPT.end - SPT.base);
+    SPT.reset = 1;
+  } else {
+    memset(SPT.base, 0, spt_min(sizeof buf, SPT.end - SPT.base));
+  }
+
+  len = spt_min(len, spt_min(sizeof buf, SPT.end - SPT.base) - 1);
+  memcpy(SPT.base, buf, len);
+  nul = &SPT.baselen;
+
+  if (nul == SPT.nul && &nul1 < SPT.end) {
+    *SPT.nul = ' ';
+    *++nul = '\0';
+  }
+
+  return;
+error:
+  SPT.error = error;
+} /* setproctitle() */
+
+#endif /* __linux || __APPLE__ */
+#endif /* !HAVE_SETPROCTITLE */

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/c_src/strtonum.c Added

@@ -0,0 +1,68 @@
+/*	$OpenBSD: strtonum.c,v 1.6 2004/08/03 19:38:01 millert Exp $	*/
+
+/*
+ * Copyright (c) 2004 Ted Unangst and Todd Miller
+ * All rights reserved.
+ *
+ * Permission to use, copy, modify, and 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.
+ */
+
+/* OPENBSD ORIGINAL: lib/libc/stdlib/strtonum.c */
+
+#ifndef HAVE_STRTONUM
+#include <errno.h>
+#include <limits.h>
+#include <stdlib.h>
+
+#define INVALID 1
+#define TOOSMALL 2
+#define TOOLARGE 3
+
+long long strtonum(const char *numstr, long long minval, long long maxval,
+                   const char **errstrp) {
+  long long ll = 0;
+  char *ep;
+  int error = 0;
+  struct errval {
+    const char *errstr;
+    int err;
+  } ev4 = {
+      {NULL, 0},
+      {"invalid", EINVAL},
+      {"too small", ERANGE},
+      {"too large", ERANGE},
+  };
+
+  ev0.err = errno;
+  errno = 0;
+  if (minval > maxval)
+    error = INVALID;
+  else {
+    ll = strtoll(numstr, &ep, 10);
+    if (numstr == ep || *ep != '\0')
+      error = INVALID;
+    else if ((ll == LLONG_MIN && errno == ERANGE) || ll < minval)
+      error = TOOSMALL;
+    else if ((ll == LLONG_MAX && errno == ERANGE) || ll > maxval)
+      error = TOOLARGE;
+  }
+  if (errstrp != NULL)
+    *errstrp = everror.errstr;
+  errno = everror.err;
+  if (error)
+    ll = 0;
+
+  return (ll);
+}
+
+#endif /* HAVE_STRTONUM */

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/examples Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/examples/icmp_resend.erl Added

@@ -0,0 +1,67 @@
+%%% Copyright (c) 2013-2020 Michael Santos <michael.santos@gmail.com>. 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.
+%%%
+%%% 3. Neither the name of the copyright holder nor the names of its
+%%% contributors may be used to endorse or promote products derived from
+%%% this software without specific prior written permission.
+%%%
+%%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%%% "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 COPYRIGHT
+%%% HOLDER 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.
+-module(icmp_resend).
+
+-export(start/1, start/2).
+
+%% An example of using epcap to send packets. It sniffs the
+%% network for ICMP packets and spoofs them.
+%%
+%% Listen on a network device:
+%%
+%% $ ./start.sh
+%% 1> icmp_resend:start("eth0").
+%%
+%% In another shell, run ping:
+%%
+%% $ ping google.com
+%% PING google.com (173.194.43.69) 56(84) bytes of data.
+%% 64 bytes from yyz08s09-in-f5.1e100.net (173.194.43.69): icmp_req=1 ttl=54 time=36.0 ms
+%% 64 bytes from yyz08s09-in-f5.1e100.net (173.194.43.69): icmp_req=1 ttl=54 time=37.2 ms (DUP!)
+%% 64 bytes from yyz08s09-in-f5.1e100.net (173.194.43.69): icmp_req=2 ttl=54 time=13.9 ms
+%% 64 bytes from yyz08s09-in-f5.1e100.net (173.194.43.69): icmp_req=2 ttl=54 time=15.7 ms (DUP!)
+%% ^C
+%% --- google.com ping statistics ---
+%% 2 packets transmitted, 2 received, +2 duplicates, 0% packet loss, time 1001ms
+%% rtt min/avg/max/mdev = 13.914/25.738/37.222/10.915 ms
+
+start(Dev) -> start(Dev, 0).
+
+start(Dev, Verbose) ->
+    {ok, Ref} = epcap:start_link({verbose, Verbose}, {interface, Dev}, inject,
+                                  {filter, "icmp"}),
+    resend(Ref).
+
+resend(Ref) ->
+    receive
+      {packet, _DataLinkType, _Time, _Length, Packet} ->
+          ok = epcap:send(Ref, Packet), resend(Ref)
+    end.
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/examples/sniff.erl Added

@@ -0,0 +1,197 @@
+%%% Copyright (c) 2010-2020 Michael Santos <michael.santos@gmail.com>. 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.
+%%%
+%%% 3. Neither the name of the copyright holder nor the names of its
+%%% contributors may be used to endorse or promote products derived from
+%%% this software without specific prior written permission.
+%%%
+%%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%%% "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 COPYRIGHT
+%%% HOLDER 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.
+-module(sniff).
+
+-behaviour(gen_statem).
+
+-include_lib("pkt/include/pkt.hrl").
+
+% Interface
+-export(start/0, start/1, stop/0).
+
+-export(start_link/0).
+
+% States
+-export(waiting/3, sniffing/3).
+
+% Behaviours
+-export(init/1, callback_mode/0, handle_info/3, terminate/3, code_change/4).
+
+-define(is_print(C), C >= $\s, C =< $~).
+
+-record(state,
+        {pid, crash = true,
+         format = }). % full packet dump: binary, hex
+
+%%--------------------------------------------------------------------
+%%% Interface
+%%--------------------------------------------------------------------
+start_link() -> gen_statem:start({local, ?MODULE}, ?MODULE, , ).
+
+start() -> start({filter, "tcp and port 80"}, {chroot, "priv/tmp"}).
+
+start(Opt) when is_list(Opt) -> gen_statem:cast(?MODULE, {start, Opt}).
+
+stop() -> gen_statem:cast(?MODULE, stop).
+
+%%--------------------------------------------------------------------
+%%% Callbacks
+%%--------------------------------------------------------------------
+callback_mode() -> state_functions.
+
+init() -> process_flag(trap_exit, true), {ok, waiting, #state{}}.
+
+%%
+%% State: sniffing
+%%
+handle_info({packet, DLT, Time, Len, Data}, sniffing,
+            #state{format = Format} = State) ->
+    Packet = decode(DLT, Data, State),
+    Headers = header(Packet),
+    error_logger:info_report({pcap,
+                               {time, timestamp(Time)}, {caplen, byte_size(Data)}, {len, Len},
+                                {datalink, pkt:dlt(DLT)}}
+                               ++ Headers ++ packet(Format, Data)),
+    {next_state, sniffing, State};
+% epcap port stopped
+handle_info({'EXIT', _Pid, normal}, sniffing, State) ->
+    {next_state, sniffing, State};
+%%
+%% State: waiting
+%%
+% epcap port stopped
+handle_info({'EXIT', _Pid, normal}, waiting, State) ->
+    {next_state, waiting, State}.
+
+terminate(_Reason, _StateName, _State) -> ok.
+
+code_change(_OldVsn, StateName, State, _Extra) -> {ok, StateName, State}.
+
+%%--------------------------------------------------------------------
+%%% States
+%%--------------------------------------------------------------------
+waiting(cast, {start, Opt}, State) ->
+    Format = proplists:get_value(format, Opt, ),
+    Snaplen = proplists:get_value(snaplen, Opt),
+    {ok, Pid} = epcap:start_link(Opt),
+    {next_state, sniffing,
+     State#state{pid = Pid, format = Format, crash = Snaplen =:= undefined}};
+waiting(info, Event, State) -> handle_info(Event, waiting, State).
+
+sniffing(cast, {start, Opt}, #state{pid = Pid} = State) ->
+    epcap:stop(Pid),
+    {ok, Pid1} = epcap:start_link(Opt),
+    {next_state, sniffing, State#state{pid = Pid1}};
+sniffing(cast, stop, #state{pid = Pid} = State) ->
+    epcap:stop(Pid), {next_state, waiting, State};
+sniffing(info, Event, State) -> handle_info(Event, sniffing, State).
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+decode(DLT, Data, #state{crash = true}) ->
+    pkt:decapsulate({pkt:dlt(DLT), Data});
+decode(DLT, Data, #state{crash = false}) ->
+    case pkt:decode(pkt:dlt(DLT), Data) of
+      {ok, {Headers, Payload}} -> Headers ++ Payload;
+      {error, SoFar, _Failed} -> SoFar
+    end.
+
+header(Payload) -> header(Payload, ).
+
+header(, Acc) -> lists:reverse(Acc);
+header(#ether{shost = Shost, dhost = Dhost} | Rest, Acc) ->
+    header(Rest,
+           {ether,
+             {source_macaddr, ether_addr(Shost)}, {destination_macaddr, ether_addr(Dhost)}}
+            | Acc);
+header(#ipv4{saddr = Saddr, daddr = Daddr, p = Proto} | Rest, Acc) ->
+    header(Rest,
+           {ipv4,
+             {protocol, pkt:proto(Proto)}, {source_address, inet_parse:ntoa(Saddr)},
+              {destination_address, inet_parse:ntoa(Daddr)}}
+            | Acc);
+header(#ipv6{saddr = Saddr, daddr = Daddr, next = Proto} | Rest, Acc) ->
+    header(Rest,
+           {ipv6,
+             {protocol, pkt:proto(Proto)}, {source_address, inet_parse:ntoa(Saddr)},
+              {destination_address, inet_parse:ntoa(Daddr)}}
+            | Acc);
+header(#tcp{sport = Sport, dport = Dport, ackno = Ackno, seqno = Seqno,
+             win = Win, cwr = CWR, ece = ECE, urg = URG, ack = ACK, psh = PSH, rst = RST,
+             syn = SYN, fin = FIN}
+        | Rest,
+       Acc) ->
+    Flags = F
+             || {F, V}
+                    <- {cwr, CWR}, {ece, ECE}, {urg, URG}, {ack, ACK}, {psh, PSH}, {rst, RST},
+                        {syn, SYN}, {fin, FIN},
+                V =:= 1,
+    header(Rest,
+           {tcp,
+             {source_port, Sport}, {destination_port, Dport}, {flags, Flags}, {seq, Seqno},
+              {ack, Ackno}, {win, Win}}
+            | Acc);
+header(#udp{sport = Sport, dport = Dport, ulen = Ulen} | Rest, Acc) ->
+    header(Rest,
+           {udp, {source_port, Sport}, {destination_port, Dport}, {ulen, Ulen}} | Acc);
+header(#icmp{type = Type, code = Code} | Rest, Acc) ->
+    header(Rest, {icmp, {type, Type}, {code, Code}} | Acc);
+header(#icmp6{type = Type, code = Code} | Rest, Acc) ->
+    header(Rest, {icmp6, {type, Type}, {code, Code}} | Acc);
+header(Hdr | Rest, Acc) when is_tuple(Hdr) ->
+    header(Rest, {header, Hdr} | Acc);
+header(Payload | Rest, Acc) when is_binary(Payload) ->
+    header(Rest,
+           {payload, to_ascii(Payload)}, {payload_size, byte_size(Payload)} | Acc).
+
+packet(Format, Bin) -> packet(Format, Bin, ).
+
+packet(, _Bin, Acc) -> lists:reverse(Acc);
+packet(binary | Rest, Bin, Acc) -> packet(Rest, Bin, {packet, Bin} | Acc);
+packet(hex | Rest, Bin, Acc) ->
+    packet(Rest, Bin, {packet, to_hex(Bin)} | Acc).
+
+to_ascii(Bin) when is_binary(Bin) -> to_ascii(C) || <<C:8>> <= Bin;
+to_ascii(C) when ?is_print(C) -> C;
+to_ascii(_) -> $..
+
+to_hex(Bin) when is_binary(Bin) -> integer_to_list(N, 16) || <<N:8>> <= Bin.
+
+ether_addr(MAC) -> string:join(to_hex(MAC), ":").
+
+timestamp(Now) when is_tuple(Now) ->
+    iso_8601_fmt(calendar:now_to_local_time(Now)).
+
+iso_8601_fmt(DateTime) ->
+    {{Year, Month, Day}, {Hour, Min, Sec}} = DateTime,
+    lists:flatten(io_lib:format("~4.10.0B-~2.10.0B-~2.10.0B ~2.10.0B:~2.10.0B:~2.10.0B",
+                                Year, Month, Day, Hour, Min, Sec)).
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/rebar.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/rebar.config.script Added

@@ -0,0 +1,76 @@
+TMPDIR = os:getenv("TMPDIR", "/tmp"),
+
+Compile = fun(Name0, Prog) ->
+                  Name = filename:join(TMPDIR, Name0),
+                  ok = file:write_file(Name, Prog, write, exclusive),
+                  Cmd = erlang:open_port({spawn, "${CC-cc} -o /dev/null ", Name, " -lpcap"},
+                                         stream, exit_status),
+                  Status = receive
+                               {Cmd, {exit_status, 0}} ->
+                                   true;
+                               {Cmd, {exit_status, _}} ->
+                                   false
+                           end,
+                  ok = file:delete(Name),
+                  Status
+          end,
+
+Test = fun(Name, Prog, Supported, Unsupported) ->
+               case Compile(Name, Prog) of
+                   true ->
+                       Supported;
+                   false ->
+                       Unsupported
+               end
+       end,
+
+Append = fun(Str, Flag) ->
+                 string:join(sets:to_list(sets:add_element(Flag,
+                                                           sets:from_list(string:tokens(Str, " ")))), " ")
+         end,
+
+Setenv = fun(Key, Val) ->
+                 Cur = os:getenv(Key, ""),
+                 os:putenv(Key, Append(Cur, Val))
+         end,
+
+%%
+%% Tests
+%%
+
+PFRING = fun(Config) -> case os:getenv("PFRING") of
+                            false ->
+                                ok;
+                            Value ->
+                                case filelib:is_dir(Value) of
+                                    true ->
+                                        LDFLAGS = os:getenv("EPCAP_LDFLAGS", ""),
+                                        true = Setenv("EPCAP_LDFLAGS", "-L" ++ Value);
+                                    _ ->
+                                        ok
+                                end
+                        end,
+                        Config
+         end,
+
+Pcap_create = fun(Config) ->
+                      Check = "
+#include <pcap.h>
+                          int main(int argc, char *argv)
+                          {
+                           char errbufPCAP_ERRBUF_SIZE;
+                               (void)pcap_create(NULL, errbuf);
+                               return 0;
+                          }",
+
+    Flag = Test("test_pcap_create.c", Check, "-DHAVE_PCAP_CREATE", ""),
+                      true = Setenv("EPCAP_DEFINE", Flag),
+                      Config
+              end,
+
+lists:foldl(fun(Fun, Cfg) ->
+                    Fun(Cfg)
+            end,
+            CONFIG,
+            PFRING, Pcap_create
+           ).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/rebar.lock Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/src/epcap.app.src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/src/epcap.erl Added

@@ -0,0 +1,335 @@
+%%% @copyright 2009-2020 Michael Santos <michael.santos@gmail.com>
+%%% 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.
+%%%
+%%% 3. Neither the name of the copyright holder nor the names of its
+%%% contributors may be used to endorse or promote products derived from
+%%% this software without specific prior written permission.
+%%%
+%%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%%% "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 COPYRIGHT
+%%% HOLDER 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.
+-module(epcap).
+
+-behaviour(gen_server).
+
+%% API
+-export(start_link/0, start_link/1, start_link/2, stop/1).
+
+-export(start/0, start/1, start/2).
+
+-export(send/2).
+
+-export(getopts/1).
+
+%% gen_server callbacks
+-export(
+    init/1,
+    handle_call/3,
+    handle_cast/2,
+    handle_info/2,
+    terminate/2,
+    code_change/3
+).
+
+-export_type(time_unit/0, options/0).
+
+-record(state, {pid :: pid(), port :: port()}).
+
+-type time_unit() :: timestamp | microsecond.
+
+%% @doc start the epcap port process
+-spec start() -> ignore | {error, _} | {ok, pid()}.
+start() -> start(self(), ).
+
+%% @doc start the epcap port process
+-spec start(options()) -> ignore | {error, _} | {ok, pid()}.
+start(Options) -> start(self(), Options).
+
+%% @doc start the epcap port process
+-spec start(pid(), options()) -> ignore | {error, _} | {ok, pid()}.
+start(Pid, Options) when is_pid(Pid), is_list(Options) ->
+    gen_server:start(?MODULE, Pid, Options, ).
+
+%% @doc start and link with the epcap port process
+-spec start_link() -> ignore | {error, _} | {ok, pid()}.
+start_link() -> start_link(self(), ).
+
+%% @doc start and link with the epcap port process
+-spec start_link(options()) -> ignore | {error, _} | {ok, pid()}.
+start_link(Options) -> start_link(self(), Options).
+
+%% @doc start and link with the epcap port process
+%%
+%% Packets are delivered as messages:
+%%
+%% ```
+%% {packet, DataLinkType, Time, Length, Packet}
+%% '''
+%%
+%% The DataLinkType is an integer representing the link layer,
+%% e.g., ethernet, Linux cooked socket.
+%%
+%% The Time can be either in microseconds or a timestamp in the same
+%% format as erlang:now/0 depending on the value of the time_unit
+%% option (default: timestamp):
+%%
+%% ```
+%% {MegaSecs, Secs, MicroSecs}
+%% '''
+%%
+%% The Length corresponds to the actual packet length on the
+%% wire. The captured packet may have been truncated. To get the
+%% captured packet length, use byte_size(Packet).
+%%
+%% The Packet is a binary holding the captured data.
+%%
+%% If the version of the pcap library supports it, the pcap buffer
+%% size can be set to avoid dropped packets by using the 'buffer'
+%% option. The buffer size must be larger than the snapshot
+%% length (default: 65535) plus some overhead for the pcap data
+%% structures. Using some multiple of the snapshot length is
+%% suggested.
+-spec start_link(pid(), options()) -> ignore | {error, _} | {ok, pid()}.
+start_link(Pid, Options) -> gen_server:start_link(?MODULE, Pid, Options, ).
+
+%% @doc Inject a packet on the network interface.
+%%
+%% To enable sending packets, start_link/1 must be called with the
+%% `{inject, true}' option (default: `{inject, false}'). When disabled,
+%% any data sent to the epcap port is silently discarded. Packet injection
+%% failures are treated as fatal errors, terminating the epcap port. Partial
+%% writes are not considered to be errors and are ignored (an error message
+%% will be printed to stderr if the verbose option is used).
+-spec send(pid(), iodata()) -> ok.
+send(Pid, Packet) when is_pid(Pid) ->
+    case iolist_size(Packet) < 65535 of
+        true -> gen_server:call(Pid, {send, Packet}, infinity);
+        false -> erlang:error(badarg)
+    end.
+
+-spec stop(pid()) -> ok.
+stop(Pid) ->
+    catch gen_server:call(Pid, stop),
+    ok.
+
+init(Pid, Options0) ->
+    process_flag(trap_exit, true),
+    Options = setopts(
+        
+            {chroot, filename:join(basedir(), "tmp")},
+            {timeout, timeout()},
+            {direction, inout}
+        ,
+        Options0
+    ),
+    ok = filelib:ensure_dir(
+        filename:join(
+            proplists:get_value(chroot, Options),
+            "."
+        )
+    ),
+    Cmd | Argv = getopts(Options),
+    Port = open_port(
+        {spawn_executable, Cmd},
+        {args, Argv}, {packet, 2}, binary, exit_status
+    ),
+    % Block until the port has fully initialized
+    receive
+        {Port, {data, Data}} ->
+            {epcap, ready} = binary_to_term(Data),
+            {ok, #state{pid = Pid, port = Port}};
+        {'EXIT', Port, normal} ->
+            {stop, {error, port_init_failed}};
+        {'EXIT', Port, Reason} ->
+            {stop, {error, Reason}}
+    end.
+
+handle_call({send, Packet}, _From, #state{port = Port} = State) ->
+    Reply =
+        try erlang:port_command(Port, Packet) of
+            true -> ok
+        catch
+            error:badarg -> {error, closed}
+        end,
+    {reply, Reply, State};
+handle_call(stop, _From, State) ->
+    {stop, normal, ok, State}.
+
+handle_cast(_Msg, State) -> {noreply, State}.
+
+terminate(_Reason, #state{port = Port}) ->
+    catch erlang:port_close(Port),
+    ok.
+
+code_change(_OldVsn, State, _Extra) -> {ok, State}.
+
+%%--------------------------------------------------------------------
+%%% Port communication
+%%--------------------------------------------------------------------
+handle_info({Port, {data, Data}}, #state{port = Port, pid = Pid} = State) ->
+    Pid ! binary_to_term(Data),
+    {noreply, State};
+handle_info({'EXIT', Port, Reason}, #state{port = Port} = State) ->
+    {stop, {shutdown, Reason}, State};
+handle_info({Port, {exit_status, Status}}, #state{port = Port} = State) ->
+    case Status of
+        0 -> {stop, normal, State};
+        _ when 128 < Status -> {stop, {port_terminated, Status - 128}, State};
+        _ -> {stop, {port_terminated, Status}, State}
+    end;
+handle_info(
+    Info,
+    %% WTF
+    State
+) ->
+    error_logger:error_report({wtf, Info}),
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%%% Internal functions
+%%--------------------------------------------------------------------
+-type arg_num() :: string() | non_neg_integer().
+
+-type options() :: 
+    inject
+    | monitor
+    | promiscuous
+    | verbose
+    | {buffer, arg_num()}
+    | {chroot, string()}
+    | {cluster_id, arg_num()}
+    | {direction, in | out | inout}
+    | {env, string()}
+    | {exec, string()}
+    | {file, string()}
+    | {filter, string()}
+    | {group, string()}
+    | {interface, string()}
+    | {progname, string()}
+    | {snaplen, arg_num()}
+    | {time_unit, time_unit()}
+    | {timeout, arg_num() | infinity | immediate}
+    | {user, string()}
+    | {verbose, arg_num()}
+.
+
+-spec setopts(options(), options()) -> options().
+setopts(, Options) ->
+    proplists:compact(Options);
+setopts({Key, Val} | Rest, Options) ->
+    case proplists:get_value(Key, Options) of
+        undefined -> setopts(Rest, {Key, Val} | Options);
+        _ -> setopts(Rest, Options)
+    end.
+
+-spec getopts(options()) -> string().
+getopts(Options) when is_list(Options) ->
+    Exec = exec(Options),
+    Progname = proplists:get_value(progname, Options, progname()),
+    Cpu_affinity = cpu_affinity(Options),
+    Filter = proplists:get_value(filter, Options, ""),
+    Switches0 = lists:append(optarg(Opt) || Opt <- Options),
+    Switches = Switches0 ++ Filter,
+    Cmd | Argv = 
+        N
+     || N <- string:tokens(Exec, " ") ++ Cpu_affinity, Progname | Switches,
+        N /= ""
+    ,
+    find_executable(Cmd) | Argv.
+
+-spec optarg(atom() | tuple()) -> string().
+optarg({buffer, Arg}) -> switch("b", maybe_string(Arg));
+optarg({chroot, Arg}) -> switch("d", Arg);
+optarg({cluster_id, Arg}) -> switch("e", env("PCAP_PF_RING_CLUSTER_ID", Arg));
+optarg({env, Arg}) -> switch("e", Arg);
+optarg({file, Arg}) -> switch("f", Arg);
+optarg({group, Arg}) -> switch("g", Arg);
+optarg({interface, Arg}) -> switch("i", Arg);
+optarg(monitor) -> switch("M");
+optarg(promiscuous) -> switch("P");
+optarg({snaplen, Arg}) -> switch("s", maybe_string(Arg));
+optarg({time_unit, Arg}) -> switch("T", time_unit(Arg));
+optarg({timeout, immediate}) -> switch("t", "0");
+optarg({timeout, infinity}) -> switch("t", "-1");
+optarg({timeout, Arg}) -> switch("t", maybe_string(Arg));
+optarg({user, Arg}) -> switch("u", Arg);
+optarg(verbose) -> switch("v");
+optarg({verbose, 0}) -> "";
+optarg({verbose, Arg}) -> switch(string:copies("v", Arg));
+optarg(inject) -> switch("X");
+optarg({direction, Arg}) -> switch("Q", maybe_string(Arg));
+optarg(_) -> "".
+
+switch(Switch) -> lists:concat("-", Switch).
+
+switch(Switch, Arg) -> lists:concat("-", Switch), Arg.
+
+env(Key, Val) -> lists:concat(Key, "=", maybe_string(Val)).
+
+-spec basedir() -> string().
+basedir() ->
+    case code:priv_dir(?MODULE) of
+        {error, bad_name} ->
+            filename:join(filename:dirname(code:which(?MODULE)), "..", "priv", ?MODULE);
+        Dir ->
+            Dir
+    end.
+
+-spec progname() -> string().
+progname() -> filename:join(basedir(), ?MODULE).
+
+-spec exec(proplists:proplist()) -> string().
+exec(Options) ->
+    Exec = proplists:get_value(exec, Options, "sudo"),
+    case proplists:is_defined(file, Options) of
+        true -> "";
+        false -> Exec
+    end.
+
+-spec cpu_affinity(proplists:proplist()) -> string().
+cpu_affinity(Options) ->
+    case proplists:get_value(cpu_affinity, Options) of
+        undefined -> "";
+        CPUs -> "taskset -c " ++ CPUs
+    end.
+
+-spec timeout() -> 0 | 500.
+timeout() ->
+    case os:type() of
+        {unix, linux} -> 0;
+        _ -> 500
+    end.
+
+%-spec time_unit(time_unit()) -> "0" | "1".
+time_unit(timestamp) -> "0";
+time_unit(microsecond) -> "1".
+
+find_executable(Exe) ->
+    case os:find_executable(Exe) of
+        false -> erlang:error(badarg, Exe);
+        N -> N
+    end.
+
+maybe_string(T) when is_list(T) -> T;
+maybe_string(T) when is_integer(T) -> integer_to_list(T);
+maybe_string(T) when is_atom(T) -> atom_to_list(T);
+maybe_string(T) when is_binary(T) -> binary_to_list(T).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/test Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/epcap/test/epcap_SUITE.erl Added

@@ -0,0 +1,471 @@
+%% Copyright (c) 2013-2020, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(epcap_SUITE).
+
+-include_lib("common_test/include/ct.hrl").
+
+-include_lib("pkt/include/pkt.hrl").
+
+-export(suite/0, all/0, init_per_testcase/2, end_per_testcase/2).
+
+-export(
+    getopts/1,
+    filter/1,
+    filter_with_microsecond/1,
+    filter_with_outbound/1,
+    filter_with_inbound/1,
+    send/1,
+    timeout_immediate/1,
+    timeout_0/1,
+    timeout_3000/1,
+    timeout_infinity/1
+).
+
+all() ->
+    
+        getopts,
+        filter,
+        filter_with_microsecond,
+        filter_with_outbound,
+        filter_with_inbound,
+        send,
+        timeout_immediate,
+        timeout_0,
+        timeout_3000,
+        timeout_infinity
+    .
+
+suite() -> {timetrap, {seconds, 60}}.
+
+init_per_testcase(filter_with_microsecond, Config) ->
+    Dev =
+        case os:getenv("EPCAP_TEST_INTERFACE") of
+            false -> ;
+            N -> {interface, N}
+        end,
+    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
+    % Solaris pcap using DLPI requires the interface to be in promiscuous
+    % mode for outgoing packets to be captured
+    {ok, Drv} = epcap:start(
+        Dev ++
+            
+                {time_unit, microsecond},
+                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
+                inject,
+                {verbose, Verbose},
+                {filter, "tcp and ( port 29 or port 39 )"},
+                promiscuous
+            
+    ),
+    {drv, Drv} | Config;
+init_per_testcase(filter_with_outbound, Config) ->
+    Dev =
+        case os:getenv("EPCAP_TEST_INTERFACE") of
+            false -> ;
+            N -> {interface, N}
+        end,
+    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
+    % Solaris pcap using DLPI requires the interface to be in promiscuous
+    % mode for outgoing packets to be captured
+    {ok, Drv} = epcap:start(
+        Dev ++
+            
+                {time_unit, microsecond},
+                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
+                inject,
+                {verbose, Verbose},
+                {filter, "tcp and ( port 29 or port 39 )"},
+                {direction, out},
+                promiscuous
+            
+    ),
+    {drv, Drv} | Config;
+init_per_testcase(filter_with_inbound, Config) ->
+    Dev =
+        case os:getenv("EPCAP_TEST_INTERFACE") of
+            false -> ;
+            N -> {interface, N}
+        end,
+    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
+    % Solaris pcap using DLPI requires the interface to be in promiscuous
+    % mode for outgoing packets to be captured
+    {ok, Drv} = epcap:start(
+        Dev ++
+            
+                {time_unit, microsecond},
+                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
+                inject,
+                {verbose, Verbose},
+                {filter, "tcp and ( port 29 or port 39 )"},
+                {direction, in},
+                promiscuous
+            
+    ),
+    {drv, Drv} | Config;
+init_per_testcase(Test, Config) when Test > timeout_, Test < timeout_zzz ->
+    "timeout_" ++ TimeoutStr = atom_to_list(Test),
+    Timeout =
+        try
+            list_to_integer(TimeoutStr)
+        catch
+            _:_ -> list_to_atom(TimeoutStr)
+        end,
+    Dev =
+        case os:getenv("EPCAP_TEST_INTERFACE") of
+            false -> ;
+            N -> {interface, N}
+        end,
+    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
+    % Solaris pcap using DLPI requires the interface to be in promiscuous
+    % mode for outgoing packets to be captured
+    {ok, Drv} = epcap:start(
+        Dev ++
+            
+                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
+                inject,
+                {verbose, Verbose},
+                {filter, "tcp and ( port 29 or port 39 )"},
+                {timeout, Timeout},
+                promiscuous
+            
+    ),
+    {drv, Drv} | Config;
+init_per_testcase(send, Config) ->
+    Dev =
+        case os:getenv("EPCAP_TEST_INTERFACE") of
+            false -> ;
+            N -> {interface, N}
+        end,
+    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
+    {ok, Drv} = epcap:start(
+        Dev ++
+            
+                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
+                inject,
+                {verbose, Verbose},
+                {filter, "tcp and ( port 29 or port 39 )"},
+                promiscuous
+            
+    ),
+    {ok, Drv1} =
+        case os:type() of
+            {unix, linux} ->
+                % XXX Linux: injected packet is not seen by filter
+                epcap:start(
+                    Dev ++
+                        
+                            {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
+                            {filter, "tcp and port 39"},
+                            promiscuous
+                        
+                );
+            _ ->
+                {ok, undefined}
+        end,
+    {drv, Drv}, {drv1, Drv1} | Config;
+init_per_testcase(getopts, Config) ->
+    Config;
+init_per_testcase(_Test, Config) ->
+    Dev =
+        case os:getenv("EPCAP_TEST_INTERFACE") of
+            false -> ;
+            N -> {interface, N}
+        end,
+    Verbose = list_to_integer(os:getenv("EPCAP_TEST_VERBOSE", "0")),
+    % Solaris pcap using DLPI requires the interface to be in promiscuous
+    % mode for outgoing packets to be captured
+    {ok, Drv} = epcap:start(
+        Dev ++
+            
+                {exec, os:getenv("EPCAP_TEST_EXEC", "sudo -n")},
+                inject,
+                {verbose, Verbose},
+                {filter, "tcp and ( port 29 or port 39 )"},
+                promiscuous
+            
+    ),
+    {drv, Drv} | Config.
+
+end_per_testcase(send, Config) ->
+    Drv = (?config(drv, Config)),
+    Drv1 = (?config(drv1, Config)),
+    epcap:stop(Drv),
+    epcap:stop(Drv1);
+end_per_testcase(getopts, _Config) ->
+    ok;
+end_per_testcase(_Test, Config) ->
+    Drv = (?config(drv, Config)),
+    epcap:stop(Drv).
+
+getopts(_Config) ->
+    
+        Sudo,
+        "-n",
+        Progname,
+        "-b",
+        "1024",
+        "-d",
+        "/tmp/",
+        "-e",
+        "PCAP_PF_RING_CLUSTER_ID=0",
+        "-g",
+        "nobody",
+        "-i",
+        "eth0",
+        "-M",
+        "-P",
+        "-s",
+        "256",
+        "-T",
+        "1",
+        "-u",
+        "nobody",
+        "-v",
+        "-vvv",
+        "-X",
+        "-Q",
+        "inout",
+        "-t",
+        "1",
+        "-t",
+        "-1",
+        "-t",
+        "0",
+        "-e",
+        "FOO=bar",
+        "tcp and port 80"
+     =
+        epcap:getopts(
+            {buffer, 1024},
+            {chroot, "/tmp/"},
+            {cluster_id, 0},
+            {group, "nobody"},
+            {interface, "eth0"},
+            monitor,
+            promiscuous,
+            {snaplen, 256},
+            {time_unit, microsecond},
+            {time_out, 60},
+            {user, "nobody"},
+            verbose,
+            {verbose, 3},
+            {verbose, 0},
+            inject,
+            {direction, inout},
+            {filter, "tcp and port 80"},
+            {timeout, 1},
+            {timeout, infinity},
+            {timeout, immediate},
+            {exec, "sudo -n"},
+            {env, "FOO=bar"}
+        ),
+    "sudo" = filename:basename(Sudo),
+    "epcap" = filename:basename(Progname),
+    Progname, "-f", "/tmp/foo" = epcap:getopts(
+        {file, "/tmp/foo"},
+        {exec, "sudo -n"}
+    ),
+    ok.
+
+filter(_Config) ->
+    {error, _Reason} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
+    receive
+        {packet, DataLinkType, {A, B, C} = Time, Length, Packet} when A > 0, B > 0, C > 0 ->
+            ct:pal(
+                io_lib:format(
+                    "~p",
+                    
+                        
+                            {dlt, DataLinkType},
+                            {time, Time},
+                            {length, Length},
+                            {packet, Packet}
+                        
+                    
+                )
+            ),
+            #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload = pkt:decapsulate(Packet)
+    end.
+
+filter_with_microsecond(_Config) ->
+    {error, _} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
+    receive
+        {packet, DataLinkType, Time, Length, Packet} when Time > 0 ->
+            ct:pal(
+                io_lib:format(
+                    "~p",
+                    
+                        
+                            {dlt, DataLinkType},
+                            {time, Time},
+                            {length, Length},
+                            {packet, Packet}
+                        
+                    
+                )
+            ),
+            #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload = pkt:decapsulate(Packet)
+    end.
+
+filter_with_outbound(_Config) ->
+    {error, _} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
+    receive
+        {packet, DataLinkType, Time, Length, Packet} when Time > 0 ->
+            ct:pal(
+                io_lib:format(
+                    "~p",
+                    
+                        
+                            {dlt, DataLinkType},
+                            {time, Time},
+                            {length, Length},
+                            {packet, Packet}
+                        
+                    
+                )
+            ),
+            #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload = pkt:decapsulate(Packet)
+    end.
+
+filter_with_inbound(_Config) ->
+    {error, _} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
+    receive
+        fail_when_some_received -> ok
+    after 1000 -> ok
+    end.
+
+timeout_immediate(Config) ->
+    timeout(Config, 0).
+
+timeout_0(Config) ->
+    timeout(Config, 0).
+
+timeout_3000(Config) ->
+    timeout(Config, 3000).
+
+timeout(_Config, ExpDelay) ->
+    Start = erlang:monotonic_time(millisecond),
+    {error, _Reason} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 500),
+    receive
+        {packet, DataLinkType, {A, B, C} = Time, Length, Packet} when
+            A > 0, B > 0, C > 0
+        ->
+            Stop = erlang:monotonic_time(millisecond),
+            ct:pal(
+                io_lib:format(
+                    "~p",
+                    
+                        
+                            {dlt, DataLinkType},
+                            {time, Time},
+                            {length, Length},
+                            {packet, Packet},
+                            {delay, Stop - Start}
+                        
+                    
+                )
+            ),
+            true = (Stop - Start) < ExpDelay + 1000,
+            #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload = pkt:decapsulate(Packet)
+    end.
+
+timeout_infinity(_Config) ->
+    Start = erlang:monotonic_time(millisecond),
+    {error, _Reason} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 500),
+    receive
+        {packet, DataLinkType, {A, B, C} = Time, Length, Packet} when
+            A > 0, B > 0, C > 0
+        ->
+            Stop = erlang:monotonic_time(millisecond),
+            ct:pal(
+                io_lib:format(
+                    "~p",
+                    
+                        
+                            {dlt, DataLinkType},
+                            {time, Time},
+                            {length, Length},
+                            {packet, Packet},
+                            {delay, Stop - Start}
+                        
+                    
+                )
+            ),
+            ct:fail("Unexpected packet (infinite timeout)")
+    after 5000 -> ok
+    end.
+
+send(Config) ->
+    Drv = (?config(drv, Config)),
+    {error, _} = gen_tcp:connect({8, 8, 8, 8}, 29, binary, 2000),
+    Frame =
+        receive
+            {packet, _DataLinkType, _Time, _Length, Packet} ->
+                #ether{} = Ether, #ipv4{} = IP, #tcp{} = TCP, Payload =
+                    pkt:decapsulate(Packet),
+                TCP1 = TCP#tcp{dport = 39, sport = 39, sum = 0},
+                Sum0 = pkt:makesum(IP#ipv4{sum = 0}),
+                Sum1 = pkt:makesum(IP, TCP1, Payload),
+                list_to_binary(
+                    pkt:ether(Ether),
+                    pkt:ipv4(IP#ipv4{sum = Sum0}),
+                    pkt:tcp(TCP1#tcp{sum = Sum1}),
+                    Payload
+                )
+        end,
+    ct:pal(io_lib:format("~p", {frame, Frame})),
+    ok = epcap:send(Drv, Frame),
+    send_1().
+
+send_1() ->
+    receive
+        {packet, DataLinkType, Time, Length, Packet} ->
+            case pkt:decapsulate(Packet) of
+                #ether{}, #ipv4{}, #tcp{dport = 39}, _Payload ->
+                    ct:pal(
+                        io_lib:format(
+                            "~p",
+                            
+                                
+                                    {dlt, DataLinkType},
+                                    {time, Time},
+                                    {length, Length},
+                                    {packet, Packet}
+                                
+                            
+                        )
+                    ),
+                    ok;
+                % TCP SYN retries
+                #ether{}, #ipv4{}, #tcp{dport = 29}, _Payload ->
+                    send_1()
+            end
+    end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush/LICENSE Added

osmo-diameter2gsup_0.3.0.tar.xz/_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
+
+Return all stored values in this query module.
+#+BEGIN_EXAMPLE
+... = Module:get().
+#+END_EXAMPLE
+
+
+* Composing Modules with stored data
+  - You can create query modules with local state to compare to event data in `with' and `run'
+
+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 data in constant time 
+ - You can use query modules in a way similar to mochiglobal 
+
+Return the stored value in this query module.
+#+BEGIN_EXAMPLE
+{ok, value} = glc:get(stored).
+#+END_EXAMPLE
+
+
+* Job processing with composed modules 
+  - You can use query modules to execute jobs, if the job errors or not, process an event.
+  - `with' is similar to `run', the main difference is additional statistics and execution order
+  - when a job completes in error, the event data will contain an additional {error, _} item
+
+To execute a job through the query module, inputting an event on success.
+#+BEGIN_EXAMPLE
+    Event = gre:make({'a', 2}, list).
+    {ExecutionTime, Result}= glc:run(Module, fun(Event, State) ->
+        %% do not end with {error, _} or throw an exception 
+    end, Event).
+#+END_EXAMPLE
+
+* Event Processing Statistics 
+
+Return the number of input events for this query module.
+#+BEGIN_EXAMPLE
+glc:input(Module).
+#+END_EXAMPLE
+
+Return the number of output events for this query module.
+#+BEGIN_EXAMPLE
+glc:output(Module).
+#+END_EXAMPLE
+
+Return the number of filtered events for this query module.
+#+BEGIN_EXAMPLE
+glc:filter(Module).
+#+END_EXAMPLE
+
+
+* Job Processing Statistics 
+
+Return the number of job runs for this query module.
+#+BEGIN_EXAMPLE
+glc:job_run(Module).
+#+END_EXAMPLE
+
+Return the number of job errors for this query module.
+#+BEGIN_EXAMPLE
+glc:job_error(Module).
+#+END_EXAMPLE
+
+Return the number of job inputs for this query module.
+#+BEGIN_EXAMPLE
+glc:job_input(Module).
+#+END_EXAMPLE
+
+Return the amount of time jobs took for this query module.
+#+BEGIN_EXAMPLE
+glc:job_time(Module).
+#+END_EXAMPLE
+
+
+* Some Tips & Tricks 
+  - This is really just a drop in the bucket.
+
+Return the average time jobs took for this query module.
+#+BEGIN_EXAMPLE
+glc:job_time(Module) / glc:job_input(Module) / 1000000.
+#+END_EXAMPLE
+
+
+Return the query combining the conditional logic of multiple modules 
+#+BEGIN_EXAMPLE
+glc_lib:reduce(glc:all(Module1:info('query'), Module2:info('query')).
+#+END_EXAMPLE
+
+Return all statistics from this query module.
+#+BEGIN_EXAMPLE
+glc:info(Module).
+#+END_EXAMPLE
+
+* Build
+
+#+BEGIN_EXAMPLE
+ $ ./rebar compile
+#+END_EXAMPLE
+
+or
+
+#+BEGIN_EXAMPLE
+    $ make
+#+END_EXAMPLE
+
+* CHANGELOG 
+0.1.9
+- Add support for running jobs
+
+0.1.8
+- Add support for not equal
+
+0.1.7
+- Support multiple functions specified using `with/2` 
+- Add support for greater than or less than operators
+- Add state storage option for output events or lookup
+
+0.1.7
+- Add job execution and timings
+- Add state storage option 
+
+0.1.7
+- Add job execution and timings
+- Add state storage option 
+
+0.1.6 
+- Add notfound event matching
+
+0.1.5 
+- Rewrite to make highly crash resilient
+  - per module supervision
+  - statistics data recovery 
+- Add wildcard event matching
+- Add reset counters

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush/hex_metadata.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush/priv Added

osmo-diameter2gsup_0.3.0.tar.xz/_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;
+}

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush/rebar.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush/rebar.lock Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_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.
+%%
+%% On success the module representing the query is returned. The module and
+%% data associated with the query must be released using the {@link delete/1}
+%% function. The name of the query module is expected to be unique.
+%% The counters are reset by default, unless Reset is set to false 
+-spec compile(atom(), glc_ops:op() | glc_ops:op()) -> {ok, atom()}.
+compile(Module, Query) ->
+    compile(Module, Query, undefined, true).
+
+-spec compile(atom(), glc_ops:op() | glc_ops:op(), boolean()) -> {ok, atom()}.
+compile(Module, Query, Reset) when is_boolean(Reset) ->
+    compile(Module, Query, undefined, Reset);
+compile(Module, Query, undefined) ->
+    compile(Module, Query, undefined, true);
+compile(Module, Query, Store) when is_list(Store) ->
+    compile(Module, Query, Store, true).
+
+compile(Module, Query, Store, Reset) ->
+    {ok, ModuleData} = module_data(Module, Query, Store),
+    case glc_code:compile(Module, ModuleData) of
+        {ok, Module} when Reset ->
+            reset_counters(Module),
+            {ok, Module};
+        {ok, Module} ->
+            {ok, Module}
+    end.
+
+
+%% @doc Handle an event using a compiled query.
+%%
+%% The input event is expected to have been returned from {@link gre:make/2}.
+-spec handle(atom(), list({atom(), term()}) | gre:event()) -> ok.
+handle(Module, Event) when is_list(Event) ->
+    Module:handle(gre:make(Event, list));
+handle(Module, Event) ->
+    Module:handle(Event).
+
+get(Module, Key) ->
+    Module:get(Key).
+
+run(Module, Fun, Event) when is_list(Event) ->
+    Module:runjob(Fun, gre:make(Event, list));
+run(Module, Fun, Event) ->
+    Module:runjob(Fun, Event).
+
+
+info(Module) ->
+    Counters = input, filter, output, 
+                job_input, job_run, 
+                job_time, job_error,
+     {C, Module:info(C)} || C <- 'query' | Counters .
+
+%% @doc The number of input events for this query module.
+-spec input(atom()) -> non_neg_integer().
+input(Module) ->
+    Module:info(input).
+
+%% @doc The number of output events for this query module.
+-spec output(atom()) -> non_neg_integer().
+output(Module) ->
+    Module:info(output).
+
+%% @doc The number of filtered events for this query module.
+-spec filter(atom()) -> non_neg_integer().
+filter(Module) ->
+    Module:info(filter).
+
+
+%% @doc The number of job runs for this query module.
+-spec job_run(atom()) -> non_neg_integer().
+job_run(Module) ->
+    Module:info(job_run).
+
+%% @doc The number of job errors for this query module.
+-spec job_error(atom()) -> non_neg_integer().
+job_error(Module) ->
+    Module:info(job_error).
+
+%% @doc The number of job inputs for this query module.
+-spec job_input(atom()) -> non_neg_integer().
+job_input(Module) ->
+    Module:info(job_input).
+
+%% @doc The amount of time jobs took for this query module.
+-spec job_time(atom()) -> non_neg_integer().
+job_time(Module) ->
+    Module:info(job_time).
+
+%% @doc Release a compiled query.
+%%
+%% This releases all resources allocated by a compiled query. The query name
+%% is expected to be associated with an existing query module. Calling this
+%% function will shutdown all relevant processes and purge/delete the module.
+-spec delete(atom()) -> ok.
+delete(Module) ->
+    Params = params_name(Module),
+    Counts = counts_name(Module),
+    ManageParams = manage_params_name(Module),
+    ManageCounts = manage_counts_name(Module),
+
+    _ =  begin 
+        ok = supervisor:terminate_child(Sup, Name),
+        ok = supervisor:delete_child(Sup, Name)
+      end || {Sup, Name} <- 
+        {gr_manager_sup, ManageParams}, {gr_manager_sup, ManageCounts},
+         {gr_param_sup, Params}, {gr_counter_sup, Counts}
+    ,
+
+    code:soft_purge(Module),
+    code:delete(Module),
+    ok.
+
+%% @doc Reset all counters
+%%
+%% This resets all the counters associated with a module
+-spec reset_counters(atom()) -> ok.
+reset_counters(Module) ->
+    Module:reset_counters(all).
+
+%% @doc Reset a specific counter
+%%
+%% This resets a specific counter associated with a module
+-spec reset_counters(atom(), atom()) -> ok.
+reset_counters(Module, Counter) ->
+    Module:reset_counters(Counter).
+
+%% @private Map a query to a module data term.
+-spec module_data(atom(), term(), term()) -> {ok, #module{}}.
+module_data(Module, Query, Store) ->
+    %% terms in the query which are not valid arguments to the
+    %% erl_syntax:abstract/1 functions are stored in ETS.
+    %% the terms are only looked up once they are necessary to
+    %% continue evaluation of the query.
+
+    %% query counters are stored in a shared ETS table. this should
+    %% be an optional feature. enabled by defaults to simplify tests.
+    %% the abstract_tables/1 function expects a list of name-atom pairs.
+    %% tables are referred to by name in the generated code. the table/1
+    %% function maps names to registered processes response for those tables.
+    Tables = module_tables(Module),
+    Query2 = glc_lib:reduce(Query),
+    {ok, #module{'query'=Query, tables=Tables, qtree=Query2, store=Store}}.
+
+%% @private Create a data managed supervised process for params, counter tables
+module_tables(Module) ->
+    Params = params_name(Module),
+    Counts = counts_name(Module),
+    ManageParams = manage_params_name(Module),
+    ManageCounts = manage_counts_name(Module),
+    Counters = {input,0}, {filter,0}, {output,0}, 
+                {job_input, 0}, {job_run,0},  {job_time, 0},
+                {job_error, 0},
+
+    _ = supervisor:start_child(gr_param_sup, 
+        {Params, {gr_param, start_link, Params}, 
+        transient, brutal_kill, worker, Params}),
+    _ = supervisor:start_child(gr_counter_sup, 
+        {Counts, {gr_counter, start_link, Counts}, 
+        transient, brutal_kill, worker, Counts}),
+    _ = supervisor:start_child(gr_manager_sup, 
+        {ManageParams, {gr_manager, start_link, ManageParams, Params, },
+        transient, brutal_kill, worker, ManageParams}),
+    _ = supervisor:start_child(gr_manager_sup, {ManageCounts, 
+        {gr_manager, start_link, ManageCounts, Counts, Counters},
+        transient, brutal_kill, worker, ManageCounts}),
+    {params,Params}, {counters, Counts}.
+
+reg_name(Module, Name) ->
+    list_to_atom("gr_" ++ atom_to_list(Module) ++ Name).
+
+params_name(Module) -> reg_name(Module, "_params").
+counts_name(Module) -> reg_name(Module, "_counters").
+manage_params_name(Module) -> reg_name(Module, "_params_mgr").
+manage_counts_name(Module) -> reg_name(Module, "_counters_mgr").
+
+
+start() ->
+    ok = application:start(syntax_tools),
+    ok = application:start(compiler),
+    ok = application:start(goldrush).
+
+%% @todo Move comment.
+%% @private Map a query to a simplified query tree term.
+%%
+%% The simplified query tree is used to combine multiple queries into one
+%% query module. The goal of this is to reduce the filtering and dispatch
+%% overhead when multiple concurrent queries are executed.
+%%
+%% A fixed selection condition may be used to specify a property that an event
+%% must have in order to be considered part of the input stream for a query.
+%%
+%% For the sake of simplicity it is only possible to define selection
+%% conditions using the fields present in the context and identifiers
+%% of an event. The fields in the context are bound to the reserved
+%% names:
+%%
+%% - '$n': node name
+%% - '$a': application name
+%% - '$p': process identifier
+%% - '$t': timestamp
+%% 
+%%
+%% If an event must be selected based on the runtime state of an event handler
+%% this must be done in the body of the handler.
+
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+setup_query(Module, Query) ->
+    setup_query(Module, Query, undefined).
+
+setup_query(Module, Query, Store) ->
+    ?assertNot(erlang:module_loaded(Module)),
+    ?assertEqual({ok, Module}, case (catch compile(Module, Query, Store)) of
+        {'EXIT',_}=Error -> ?debugFmt("~p", Error), Error; Else -> Else end),
+    ?assert(erlang:function_exported(Module, table, 1)),
+    ?assert(erlang:function_exported(Module, handle, 1)),
+    {compiled, Module}.
+
+events_test_() ->
+    {foreach,
+        fun() ->
+                error_logger:tty(false),
+                application:start(syntax_tools),
+                application:start(compiler),
+                application:start(goldrush)
+        end,
+        fun(_) ->
+                application:stop(goldrush),
+                application:stop(compiler),
+                application:stop(syntax_tools),
+                error_logger:tty(true)
+        end,
+        
+            {"null query compiles",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod1, glc:null(false)),
+                    ?assertError(badarg, Mod:table(noexists))
+                end
+            },
+            {"params table exists",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod2, glc:null(false)),
+                    ?assert(is_atom(Mod:table(params))),
+                    ?assertMatch(_|_, gr_param:info(Mod:table(params)))
+                end
+            },
+            {"null query exists",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod3, glc:null(false)),
+                    ?assert(erlang:function_exported(Mod, info, 1)),
+                    ?assertError(badarg, Mod:info(invalid)),
+                    ?assertEqual({null, false}, Mod:info('query'))
+                end
+            },
+            {"init counters test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod4, glc:null(false)),
+                    ?assertEqual(0, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output))
+                end
+            },
+            {"filtered events test",
+                fun() ->
+                    %% If no selection condition is specified no inputs can match.
+                    {compiled, Mod} = setup_query(testmod5, glc:null(false)),
+                    glc:handle(Mod, gre:make(, list)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output))
+                end
+            },
+            {"nomatch event test",
+                fun() ->
+                    %% If a selection condition but no body is specified the event
+                    %% is expected to count as filtered out if the condition does
+                    %% not hold.
+                    {compiled, Mod} = setup_query(testmod6, glc:eq('$n', 'noexists@nohost')),
+                    glc:handle(Mod, gre:make({'$n', 'noexists2@nohost'}, list)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output))
+                end
+            },
+            {"opfilter equal test",
+                fun() ->
+                    %% If a selection condition but no body is specified the event
+                    %% counts as input to the query, but not as filtered out.
+                    {compiled, Mod} = setup_query(testmod7a, glc:eq('$n', 'noexists@nohost')),
+                    glc:handle(Mod, gre:make({'$n', 'noexists@nohost'}, list)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output))
+                end
+            },
+            {"opfilter not equal test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod7b, glc:neq('$n', 'noexists@nohost')),
+                    glc:handle(Mod, gre:make({'$n', 'noexists@nohost'}, list)),
+                    glc:handle(Mod, gre:make({'$n', 'notexists@nohost'}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output))
+                end
+            },
+            {"opfilter wildcard test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod8, glc:wc(a)),
+                    glc:handle(Mod, gre:make({b, 2}, list)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output)),
+                    glc:handle(Mod, gre:make({a, 2}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output))
+                end
+            },
+            {"opfilter notfound test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod9, glc:nf(a)),
+                    glc:handle(Mod, gre:make({a, 2}, list)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output)),
+                    glc:handle(Mod, gre:make({b, 2}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output))
+                end
+            },
+            {"opfilter greater than test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod10a, glc:gt(a, 1)),
+                    glc:handle(Mod, gre:make({'a', 2}, list)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({'a', 0}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output))
+                end
+            },
+            {"opfilter greater than or equal to test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod10b, glc:gte(a, 1)),
+                    glc:handle(Mod, gre:make({'a', 2}, list)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({'a', 1}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({'a', 0}, list)),
+                    ?assertEqual(3, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(2, Mod:info(output))
+                end
+            },
+            {"opfilter less than test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod11a, glc:lt(a, 1)),
+                    glc:handle(Mod, gre:make({'a', 0}, list)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output)),
+                    glc:handle(Mod, gre:make({'a', 2}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output))
+                end
+            },
+            {"opfilter less than or equal to test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod11b, glc:lte(a, 1)),
+                    glc:handle(Mod, gre:make({'a', 0}, list)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output)),
+                    glc:handle(Mod, gre:make({'a', 1}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(2, Mod:info(output)),
+                    glc:handle(Mod, gre:make({'a', 2}, list)),
+                    ?assertEqual(3, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(2, Mod:info(output))
+                end
+            },
+            {"allholds op test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod12,
+                        glc:all(glc:eq(a, 1), glc:eq(b, 2))),
+                    glc:handle(Mod, gre:make({'a', 1}, list)),
+                    glc:handle(Mod, gre:make({'a', 2}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({'b', 1}, list)),
+                    glc:handle(Mod, gre:make({'b', 2}, list)),
+                    ?assertEqual(4, Mod:info(input)),
+                    ?assertEqual(4, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({'a', 1},{'b', 2}, list)),
+                    ?assertEqual(5, Mod:info(input)),
+                    ?assertEqual(4, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output))
+                end
+            },
+            {"anyholds op test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod13,
+                        glc:any(glc:eq(a, 1), glc:eq(b, 2))),
+                    glc:handle(Mod, gre:make({'a', 2}, list)),
+                    glc:handle(Mod, gre:make({'b', 1}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({'a', 1}, list)),
+                    glc:handle(Mod, gre:make({'b', 2}, list)),
+                    ?assertEqual(4, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(filter))
+                end
+            },
+            {"with function test",
+                fun() ->
+                    Self = self(),
+                    {compiled, Mod} = setup_query(testmod14,
+                        glc:with(glc:eq(a, 1), fun(Event) -> Self ! gre:fetch(a, Event) end)),
+                    glc:handle(Mod, gre:make({a,1}, list)),
+                    ?assertEqual(1, Mod:info(output)),
+                    ?assertEqual(1, receive Msg -> Msg after 0 -> notcalled end)
+                end
+            },
+            {"with function storage test",
+                fun() ->
+                    Self = self(),
+                    Store = {stored, value},
+                    {compiled, Mod} = setup_query(testmod15,
+                        glc:with(glc:eq(a, 1), fun(Event, EStore) -> 
+                           Self ! {gre:fetch(a, Event), EStore} end),
+                         Store),
+                    glc:handle(Mod, gre:make({a,1}, list)),
+                    ?assertEqual(1, Mod:info(output)),
+                    ?assertEqual(1, receive {Msg, Store} -> Msg after 0 -> notcalled end)
+                end
+            },
+            {"delete test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod16, glc:null(false)),
+                    ?assert(is_atom(Mod:table(params))),
+                    ?assertMatch(_|_, gr_param:info(Mod:table(params))),
+                    ?assert(is_list(code:which(Mod))),
+                    ?assert(is_pid(whereis(params_name(Mod)))),
+                    ?assert(is_pid(whereis(counts_name(Mod)))),
+                    ?assert(is_pid(whereis(manage_params_name(Mod)))),
+                    ?assert(is_pid(whereis(manage_counts_name(Mod)))),
+
+                    glc:delete(Mod),
+                    
+                    ?assertEqual(non_existing, code:which(Mod)),
+                    ?assertEqual(undefined, whereis(params_name(Mod))),
+                    ?assertEqual(undefined, whereis(counts_name(Mod))),
+                    ?assertEqual(undefined, whereis(manage_params_name(Mod))),
+                    ?assertEqual(undefined, whereis(manage_counts_name(Mod)))
+                end
+            },
+            {"reset counters test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod17,
+                        glc:any(glc:eq(a, 1), glc:eq(b, 2))),
+                    glc:handle(Mod, gre:make({'a', 2}, list)),
+                    glc:handle(Mod, gre:make({'b', 1}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({'a', 1}, list)),
+                    glc:handle(Mod, gre:make({'b', 2}, list)),
+                    ?assertEqual(4, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(filter)),
+                    ?assertEqual(2, Mod:info(output)),
+
+                    glc:reset_counters(Mod, input),
+                    ?assertEqual(0, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(filter)),
+                    ?assertEqual(2, Mod:info(output)),
+                    glc:reset_counters(Mod, filter),
+                    ?assertEqual(0, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(2, Mod:info(output)),
+                    glc:reset_counters(Mod),
+                    ?assertEqual(0, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output))
+                end
+            },
+            {"ets data recovery test",
+                fun() ->
+                    Self = self(),
+                    {compiled, Mod} = setup_query(testmod18,
+                        glc:with(glc:eq(a, 1), fun(Event) -> Self ! gre:fetch(a, Event) end)),
+                    glc:handle(Mod, gre:make({a,1}, list)),
+                    ?assertEqual(1, Mod:info(output)),
+                    ?assertEqual(1, receive Msg -> Msg after 0 -> notcalled end),
+                    ?assertEqual(1, length(gr_param:list(Mod:table(params)))),
+                    ?assertEqual(7, length(gr_param:list(Mod:table(counters)))),
+                    true = exit(whereis(Mod:table(params)), kill),
+                    true = exit(whereis(Mod:table(counters)), kill),
+                    ?assertEqual(1, Mod:info(input)),
+                    glc:handle(Mod, gre:make({'a', 1}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(output)),
+                    ?assertEqual(1, length(gr_param:list(Mod:table(params)))),
+                    ?assertEqual(7, length(gr_counter:list(Mod:table(counters))))
+                end
+            },
+            {"run timed job test",
+                fun() ->
+                    Self = self(),
+                    Store = {stored, value},
+                    Runtime = 0.15,
+                    {compiled, Mod} = setup_query(testmod19,
+                                                  glc:gt(runtime, Runtime),
+                                                  Store),
+                    glc:run(Mod, fun(Event, EStore) -> 
+                        timer:sleep(100),
+                        Self ! {gre:fetch(a, Event), EStore}
+                    end, gre:make({a,1}, list)),
+                    ?assertEqual(0, Mod:info(output)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(1, receive {Msg, Store} -> Msg after 0 -> notcalled end),
+
+                    delete(testmod19),
+                    {compiled, Mod} = setup_query(testmod19,
+                                                  glc:gt(runtime, Runtime),
+                                                  Store),
+                    glc:handle(Mod, gre:make({'a', 1}, list)),
+                    glc:run(Mod, fun(Event, EStore) -> 
+                        timer:sleep(200),
+                        Self ! {gre:fetch(a, Event), EStore}
+                    end, gre:make({a,2}, list)),
+                    ?assertEqual(1, Mod:info(output)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(2, receive {Msg, Store} -> Msg after 0 -> notcalled end)
+
+                end
+            },
+            {"reset job counters",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod20,
+                        glc:any(glc:eq(a, 1), glc:gt(runtime, 0.15))),
+                    glc:handle(Mod, gre:make({'a', 2}, list)),
+                    glc:handle(Mod, gre:make({'b', 1}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({'a', 1}, list)),
+                    glc:handle(Mod, gre:make({'b', 2}, list)),
+                    ?assertEqual(4, Mod:info(input)),
+                    ?assertEqual(3, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(output)),
+
+                    Self = self(),
+                    glc:run(Mod, fun(Event, EStore) -> 
+                        timer:sleep(100),
+                        Self ! {gre:fetch(a, Event), EStore}
+                    end, gre:make({a,1}, list)),
+                    ?assertEqual(2, Mod:info(output)),
+                    ?assertEqual(3, Mod:info(filter)),
+                    ?assertEqual(1, receive {Msg, undefined} -> Msg after 0 -> notcalled end),
+
+                    {_, Msg1} = glc:run(Mod, fun(_Event, _EStore) -> 
+                        timer:sleep(200),
+                        {error, badtest}
+                        
+                    end, gre:make({a,1}, list)),
+                    ?assertEqual(3, Mod:info(output)),
+                    ?assertEqual(3, Mod:info(filter)),
+                    ?assertEqual(2, Mod:info(job_input)),
+                    ?assertEqual(1, Mod:info(job_error)),
+                    ?assertEqual(1, Mod:info(job_run)),
+                    ?assertEqual({error, badtest}, Msg1),
+
+                    {_, Msg2} = glc:run(Mod, fun(_Event, _EStore) -> 
+                        timer:sleep(20),
+                        {ok, goodtest}
+                        
+                    end, gre:make({a,2}, list)),
+                    ?assertEqual(3, Mod:info(output)),
+                    ?assertEqual(4, Mod:info(filter)),
+                    ?assertEqual(3, Mod:info(job_input)),
+                    ?assertEqual(1, Mod:info(job_error)),
+                    ?assertEqual(2, Mod:info(job_run)),
+                    ?assertEqual({ok, goodtest}, Msg2),
+
+
+                    glc:reset_counters(Mod, input),
+                    ?assertEqual(0, Mod:info(input)),
+                    ?assertEqual(4, Mod:info(filter)),
+                    ?assertEqual(3, Mod:info(output)),
+                    ?assertEqual(3, Mod:info(job_input)),
+                    ?assertEqual(1, Mod:info(job_error)),
+                    ?assertEqual(2, Mod:info(job_run)),
+                    glc:reset_counters(Mod, filter),
+                    ?assertEqual(0, glc:input(Mod)),
+                    ?assertEqual(0, glc:filter(Mod)),
+                    ?assertEqual(3, glc:output(Mod)),
+                    ?assertEqual(3, glc:job_input(Mod)),
+                    ?assertEqual(1, glc:job_error(Mod)),
+                    ?assertEqual(2, glc:job_run(Mod)),
+                    glc:reset_counters(Mod, output),
+                    ?assertEqual(0, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output)),
+                    ?assertEqual(3, Mod:info(job_input)),
+                    ?assertEqual(1, Mod:info(job_error)),
+                    ?assertEqual(2, Mod:info(job_run)),
+                    glc:reset_counters(Mod, job_input),
+                    ?assertEqual(0, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output)),
+                    ?assertEqual(0, Mod:info(job_input)),
+                    ?assertEqual(1, Mod:info(job_error)),
+                    ?assertEqual(2, Mod:info(job_run)),
+                    glc:reset_counters(Mod, job_error),
+                    ?assertEqual(0, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output)),
+                    ?assertEqual(0, Mod:info(job_input)),
+                    ?assertEqual(0, Mod:info(job_error)),
+                    ?assertEqual(2, Mod:info(job_run)),
+                    glc:reset_counters(Mod, job_run),
+                    ?assertEqual(0, Mod:info(input)),
+                    ?assertEqual(0, Mod:info(filter)),
+                    ?assertEqual(0, Mod:info(output)),
+                    ?assertEqual(0, Mod:info(job_input)),
+                    ?assertEqual(0, Mod:info(job_error)),
+                    ?assertEqual(0, Mod:info(job_run))
+                end
+            },
+            {"variable storage test",
+                fun() ->
+                    {compiled, Mod} = setup_query(testmod20a,
+                        glc:eq(a, 2), {stream, time}),
+                    glc:handle(Mod, gre:make({'a', 2}, list)),
+                    glc:handle(Mod, gre:make({'b', 1}, list)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({'b', 2}, list)),
+                    ?assertEqual(3, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(filter)),
+                    ?assertEqual({ok, time}, glc:get(Mod, stream)),
+                    ?assertEqual({error, undefined}, glc:get(Mod, beam))
+                end
+            },
+            {"with multi function any test",
+                fun() ->
+                    Self = self(),
+                    Store = {stored, value},
+
+                    G1 = glc:with(glc:eq(a, 1), fun(_Event, EStore) -> 
+                       Self ! {a, EStore} end),
+                    G2 = glc:with(glc:eq(b, 2), fun(_Event, EStore) -> 
+                       Self ! {b, EStore} end),
+
+                    {compiled, Mod} = setup_query(testmod20b, any(G1, G2),
+                         Store),
+                    glc:handle(Mod, gre:make({a,1}, list)),
+                    ?assertEqual(1, Mod:info(output)),
+                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end)
+                end
+            },
+            {"with multi function all test",
+                fun() ->
+                    Self = self(),
+                    Store = {stored, value},
+
+                    G1 = glc:with(glc:eq(a, 1), fun(_Event, EStore) -> 
+                       Self ! {a, EStore} end),
+                    G2 = glc:with(glc:eq(b, 2), fun(_Event, EStore) -> 
+                       Self ! {b, EStore} end),
+                    G3 = glc:with(glc:eq(c, 3), fun(_Event, EStore) -> 
+                       Self ! {c, EStore} end),
+
+                    {compiled, Mod} = setup_query(testmod21, all(G1, G2, G3),
+                         Store),
+                    glc:handle(Mod, gre:make({a,1}, list)),
+                    ?assertEqual(0, Mod:info(output)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({a,1}, {b, 2}, list)),
+                    ?assertEqual(0, Mod:info(output)),
+                    ?assertEqual(2, Mod:info(filter)),
+                    glc:handle(Mod, gre:make({a,1}, {b, 2}, {c, 3}, list)),
+                    ?assertEqual(1, Mod:info(output)),
+                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+                    ?assertEqual(c, receive {Msg, _Store} -> Msg after 0 -> notcalled end)
+                end
+            },
+            {"with multi-function output match test",
+                fun() ->
+                    Self = self(),
+                    Store = {stored, value},
+
+                    {compiled, Mod} = setup_query(testmod22,
+                          glc:with(glc:eq(a, 1), fun(Event, _EStore) -> 
+                              Self ! {a, gre:fetch(a, Event)} end),
+                           glc:with(glc:gt(b, 1), fun(Event, _EStore) -> 
+                              Self ! {b, gre:fetch(b, Event)} end),
+                         Store),
+                    glc:handle(Mod, gre:make({a,1}, {b, 1}, list)),
+                    ?assertEqual(1, Mod:info(output)),
+                    ?assertEqual(a, receive {a=Msg, _Store} -> Msg after 0 -> notcalled end)
+
+                end
+            },
+            {"with multi-function output double-match test",
+                fun() ->
+                    Self = self(),
+                    Store = {stored, value},
+                    {compiled, Mod} = setup_query(testmod23,
+                          glc:with(glc:eq(a, 1), fun(Event, _EStore) -> 
+                              Self ! {a, gre:fetch(a, Event)} end),
+                           glc:with(glc:eq(b, 1), fun(Event, _EStore) -> 
+                              Self ! {b, gre:fetch(b, Event)} end),
+                         Store),
+                    glc:handle(Mod, gre:make({a,1}, {b, 1}, list)),
+                    ?assertEqual(2, Mod:info(output)),
+                    ?assertEqual(a, receive {a=Msg, _Store} -> Msg after 0 -> notcalled end),
+                    ?assertEqual(b, receive {b=Msg, _Store} -> Msg after 0 -> notcalled end)
+                end
+            },
+            {"with multi function complex match test",
+                fun() ->
+                    Self = self(),
+                    Store = {stored, value},
+
+                    G1 = glc:with(glc:gt(r, 0.1), fun(_Event, EStore) -> 
+                       Self ! {a, EStore} end),
+                    G2 = glc:with(glc:all(glc:eq(a, 1), glc:gt(r, 0.5)), fun(_Event, EStore) -> 
+                       Self ! {b, EStore} end),
+                    G3 = glc:with(glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:gt(r, 0.6)), fun(_Event, EStore) -> 
+                       Self ! {c, EStore} end),
+
+                    {compiled, Mod} = setup_query(testmod24, G1, G2, G3,
+                         Store),
+                    glc:handle(Mod, gre:make({a,1}, {r, 0.7}, {b, 3}, list)),
+                    ?assertEqual(2, Mod:info(output)),
+                    ?assertEqual(1, Mod:info(input)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+                    %
+                    glc:handle(Mod, gre:make({a,1}, {r, 0.6}, list)),
+                    ?assertEqual(4, Mod:info(output)),
+                    ?assertEqual(2, Mod:info(input)),
+                    ?assertEqual(2, Mod:info(filter)),
+                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+                    %
+                    glc:handle(Mod, gre:make({a,2}, {r, 0.7}, {b, 3}, list)),
+                    ?assertEqual(5, Mod:info(output)),
+                    ?assertEqual(3, Mod:info(input)),
+                    ?assertEqual(4, Mod:info(filter)),
+                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+
+                    glc:handle(Mod, gre:make({a,1}, {r, 0.7}, {b, 2}, list)),
+                    ?assertEqual(8, Mod:info(output)),
+                    ?assertEqual(4, Mod:info(input)),
+                    ?assertEqual(4, Mod:info(filter)),
+                    ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+                    ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+                    ?assertEqual(c, receive {Msg, _Store} -> Msg after 0 -> notcalled end)
+                end
+            },
+            {"with single-function run test",
+                fun() ->
+                    Self = self(),
+                    Store = {stored, value},
+                    {compiled, Mod1} = setup_query(testmod25a,
+                        glc:with(glc:all(glc:gt(runtime, 0.15), glc:lt(a, 3)), fun(Event, EStore) -> 
+                           Self ! {gre:fetch(a, Event), EStore} end),
+                         Store),
+                    glc:run(Mod1, fun(_Event, _EStore) -> timer:sleep(200), ok end, gre:make({a, 2}, list)),
+                    ?assertEqual(1, Mod1:info(output)),
+                    ?assertEqual(2, receive {Msg, Store} -> Msg after 250 -> notcalled end),
+                    {compiled, Mod2} = setup_query(testmod25b,
+                        glc:with(glc:all(glc:gt(runtime, 0.15), glc:lt(a, 3)), fun(Event, EStore) -> 
+                           Self ! {gre:fetch(a, Event), EStore}
+                        end), Store),
+                    {_, {error, later}} = glc:run(Mod2, fun(_Event, _EStore) -> 
+                           timer:sleep(200), 
+                           erlang:exit(later)
+                    end, gre:make({a, 2}, list)),
+                    ?assertEqual(1, Mod2:info(output)),
+                    ?assertEqual(1, Mod2:info(job_error)),
+                    ?assertEqual(2, receive {Msg, Store} -> Msg after 250 -> notcalled end)
+                end
+            },
+            {"with multi-function output run error test",
+                fun() ->
+                    Self = self(),
+                    Store = {stored, value},
+                    {compiled, Mod} = setup_query(testmod26,
+                          glc:with(glc:gt(runtime, 0.15), fun(Event, _EStore) -> 
+                              Self ! {a, gre:fetch(b, Event)} 
+                           end),
+                           glc:with(glc:eq(c, 3), fun(Event, _EStore) -> 
+                              Self ! {a, gre:fetch(a, Event)} 
+                           end),
+                           glc:with(glc:eq(b, 3), fun(Event, _EStore) -> 
+                              Self ! {a, gre:fetch(a, Event)} 
+                           end),
+                           glc:with(glc:eq(a, 1), fun(Event, _EStore) -> 
+                              receive {a, _Store} -> 
+                                  Self ! {b, gre:fetch(b, Event)}
+                              after 10 -> notcalled end
+                           end)
+                           ,
+                         Store),
+                    Event = gre:make({a,1}, {b, 3}, {c, 4}, list),
+                    {_, {error, bye}} = glc:run(Mod, fun(_Event, _EStore) -> 
+                            timer:sleep(200),
+                            erlang:error(bye) 
+                    end, Event),
+                    ?assertEqual(3, Mod:info(output)),
+                    ?assertEqual(1, Mod:info(filter)),
+                    ?assertEqual(1, Mod:info(job_error)),
+                    ?assertEqual(b, receive {b=Msg, _Store} -> Msg after 0 -> notcalled end)
+                end
+            }
+        
+    }.
+
+union_error_test() ->
+    ?assertError(badarg, glc:union(glc:eq(a, 1))),
+    done.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_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);
+abstract_query({any, {with, _Q, _A}|_ = I}) ->
+    Queries = glc_lib:reduce(glc:any(Q || {with, Q, _} <- I)),
+    ?erl:abstract(Queries);
+abstract_query({all, {with, _Q, _A}|_ = I}) ->
+    Queries = glc_lib:reduce(glc:all(Q || {with, Q, _} <- I)),
+    ?erl:abstract(Queries);
+abstract_query(Query) ->
+    ?erl:abstract(Query).
+
+
+%% @private Return the clauses of the get/1 function.
+abstract_get(#module{'query'=_Query, store=undefined}) ->
+    ;
+abstract_get(#module{'query'=_Query, store=Store}) ->
+    ?erl:clause(?erl:abstract(K), none, 
+                 abstract_query(abstract_query_find(K, Store)))
+        || {K, _} <- Store.
+
+%% @private 
+abstract_runjob(#module{'query'=_Query, store=_Store}) ->
+    Time = abstract_apply(erlang, '/', ?erl:variable("Time"),
+                                        ?erl:abstract(1000000)),
+    ?erl:clause(?erl:variable("JobResult"),
+                  ?erl:variable("Meta"), none,
+      
+       ?erl:case_expr(?erl:variable("JobResult"),
+         
+          ?erl:clause(
+            ?erl:tuple(?erl:variable("Time"), ?erl:variable("Result")),
+            none,
+            ?erl:case_expr(?erl:variable("Result"),
+               
+                ?erl:clause(
+                  ?erl:tuple(?erl:atom(error),?erl:variable("Reason")),
+                  none,
+                  abstract_count(input), abstract_count(job_error),
+                   ?erl:application(none, ?erl:atom(handle_), 
+                        abstract_job(Time, ?erl:tuple(?erl:atom(error), 
+                                                        ?erl:variable("Reason")))),
+                   abstract_count(job_time, ?erl:variable("Time")),
+                   ?erl:tuple(?erl:variable("Time"), 
+                               ?erl:tuple(?erl:atom(error), 
+                                           ?erl:variable("Reason")))),
+
+                ?erl:clause(
+                  ?erl:variable("Result"),
+                  none,
+                  abstract_count(input), abstract_count(job_run),
+                   ?erl:application(none, ?erl:atom(handle_), 
+                        abstract_job(Time)),
+                   abstract_count(job_time, ?erl:variable("Time")),
+                   ?erl:tuple(?erl:variable("Time"), 
+                               ?erl:variable("Result")))
+               )
+            )
+         )
+      
+    ).
+
+abstract_job(Time) ->
+    abstract_job(Time, ).
+abstract_job(Time, Error) ->
+    Pairs = abstract_apply(gre, pairs, ?erl:variable("Meta")),
+    Runtime = ?erl:list(?erl:tuple(?erl:atom(runtime), Time)),
+    abstract_apply(gre, make, 
+              abstract_apply(erlang, '++', ?erl:list(Error), 
+                             abstract_apply(erlang, '++', Pairs, Runtime)),
+               ?erl:abstract(list)).
+
+%% @private Return the clauses of the info/1 function.
+abstract_info(#module{'query'=Query}) ->
+    ?erl:clause(?erl:abstract(K), none, V)
+        || {K, V} <- 
+        {'query', abstract_query(Query)},
+        {input, abstract_getcount(input)},
+        {filter, abstract_getcount(filter)},
+        {output, abstract_getcount(output)},
+        {job_input, abstract_getcount(job_input)},
+        {job_run, abstract_getcount(job_run)},
+        {job_time, abstract_getcount(job_time)},
+        {job_error, abstract_getcount(job_error)}
+    .
+
+
+abstract_reset() ->
+    ?erl:clause(?erl:abstract(K), none, V)
+        || {K, V} <- 
+        {all, abstract_resetcount(input, filter, output, 
+                                   job_input, job_run, 
+                                   job_time, job_error)},
+        {input, abstract_resetcount(input)},
+        {filter, abstract_resetcount(filter)},
+        {output, abstract_resetcount(output)},
+        {job_input, abstract_resetcount(job_input)},
+        {job_run, abstract_resetcount(job_run)},
+        {job_time, abstract_resetcount(job_time)},
+        {job_error, abstract_resetcount(job_error)}
+    .
+
+
+%% @private Return a list of expressions to apply a filter.
+%% @todo Allow mulitple functions to be specified using `with/2'.
+-spec abstract_filter(glc_ops:op() | glc_ops:op(), #module{}, #state{}) -> syntaxTree().
+abstract_filter({Type, {with, _Cond, _Fun}|_ = I}, Data, State) when Type =:= all; Type =:= any ->
+    Cond = glc_lib:reduce(glc:Type(Q || {with, Q, _} <- I)),
+    abstract_filter_(Cond,
+        _OnMatch=fun(State2) ->
+            Funs =  F || {with, _, F} <- I ,
+            abstract_count(output) ++ 
+                abstract_with(Funs, Data, State2) end,
+        _OnNomatch=fun(_State2) -> abstract_count(filter) end, State);
+abstract_filter({with, _Cond, _Fun}|_ = I, Data, State) ->
+    OnNomatch = fun(_State2) -> abstract_count(filter, 0) end,
+    Funs = lists:foldr(fun({with, Cond, Fun}, Acc) -> 
+              {Cond, Fun, Data}|Acc
+      end, , I),
+    abstract_within(Funs, OnNomatch, State);
+abstract_filter({with, Cond, Fun}, Data, State) ->
+    abstract_filter_(Cond,
+        _OnMatch=fun(State2) ->
+            abstract_count(output) ++ 
+                abstract_with(Fun, Data, State2) end,
+        _OnNomatch=fun(_State2) -> abstract_count(filter) end, State);
+abstract_filter(Cond, _Data, State) ->
+    abstract_filter_(Cond,
+        _OnMatch=fun(_State2) -> abstract_count(output) end,
+        _OnNomatch=fun(_State2) -> abstract_count(filter) end, State).
+
+%% @private Return a list of expressions to apply a filter.
+%% A filter expects two continuation functions which generates the expressions
+%% to apply when the filter matches or fails to match. The state passed to the
+%% functions will contain all the variable bindings of previously accessed
+%% fields and parameters.
+-spec abstract_filter_(glc_ops:op(), nextFun(), nextFun(), #state{}) ->
+        syntaxTree().
+abstract_filter_({null, true}, OnMatch, _OnNomatch, State) ->
+    OnMatch(State);
+abstract_filter_({null, false}, _OnMatch, OnNomatch, State) ->
+    OnNomatch(State);
+abstract_filter_({Key, '*'}, OnMatch, OnNomatch, State) ->
+    abstract_getkey(Key,
+        _OnMatch=fun(#state{}=State2) -> OnMatch(State2) end,
+        _OnNomatch=fun(State2) -> OnNomatch(State2) end, State);
+abstract_filter_({Key, '!'}, OnMatch, OnNomatch, State) ->
+    abstract_getkey(Key,
+        _OnNomatch=fun(State2) -> OnNomatch(State2) end, 
+        _OnMatch=fun(#state{}=State2) -> OnMatch(State2) end,
+                    State);
+abstract_filter_({Key, Op, Value}, OnMatch, OnNomatch, State)
+        when Op =:= '>'; Op =:= '='; Op =:= '!='; Op =:= '<';
+             Op =:= '>='; Op =:= '=<'; Op =:= '<=' ->
+    Op2 = case Op of 
+              '=' -> '=:=';  
+              '!=' -> '=/=';  
+              '<=' -> '=<';
+              Op -> Op 
+          end,
+    abstract_opfilter(Key, Op2, Value, OnMatch, OnNomatch, State);
+abstract_filter_({'any', Conds}, OnMatch, OnNomatch, State) ->
+    abstract_any(Conds, OnMatch, OnNomatch, State);
+abstract_filter_({'all', Conds}, OnMatch, OnNomatch, State) ->
+    abstract_all(Conds, OnMatch, OnNomatch, State).
+
+%% @private Return a branch based on a built in operator.
+-spec abstract_opfilter(atom(), atom(), term(), nextFun(),
+        nextFun(), #state{}) -> syntaxTree().
+abstract_opfilter(Key, Opname, Value, OnMatch, OnNomatch, State) ->
+    abstract_getkey(Key,
+        _OnMatch=fun(#state{}=State2) ->
+            ?erl:case_expr(
+                abstract_apply(erlang, Opname, 
+                        ?erl:variable(field_variable(Key)),
+                        ?erl:abstract(Value)
+                ),
+                ?erl:clause(?erl:atom(true), none, 
+                    OnMatch(State2)),
+                 ?erl:clause(?erl:atom(false), none,
+                    OnNomatch(State2))) end,
+        _OnNomatch=fun(State2) -> OnNomatch(State2) end, State).
+
+%% @private Generate an `all' filter.
+%% An `all' filter is evaluated by testing all conditions that must hold. If
+%% any of the conditions does not hold the evaluation is short circuted at that
+%% point. This means that the `OnNomatch' branch is executed once for each
+%% condition. The `OnMatch' branch is only executed once.
+-spec abstract_all(glc_ops:op(), nextFun(), nextFun(), #state{}) ->
+        syntaxTree().
+abstract_all(H|T, OnMatch, OnNomatch, State) ->
+    abstract_filter_(H,
+        _OnMatch=fun(State2) -> abstract_all(T, OnMatch, OnNomatch, State2)
+            end, OnNomatch, State);
+abstract_all(, OnMatch, _OnNomatch, State) ->
+    OnMatch(State).
+
+%% @private
+-spec abstract_any(glc_ops:op(), nextFun(), nextFun(), #state{}) ->
+        syntaxTree().
+abstract_any(H|T, OnMatch, OnNomatch, State) ->
+    abstract_filter_(H, OnMatch,
+        _OnNomatch=fun(State2) -> abstract_any(T, OnMatch, OnNomatch, State2)
+        end, State);
+abstract_any(, _OnMatch, OnNomatch, State) ->
+    OnNomatch(State).
+
+%% @private
+-spec abstract_with(fun((gre:event()) -> term()), 
+                    #module{}, #state{}) -> syntaxTree().
+abstract_with(Fun0|_ = Funs, Data, State) 
+  when is_function(Fun0, 1); is_function(Fun0, 2)  ->
+    abstract_getparam(Funs, fun(#state{event=Event, paramvars=Params}) ->
+           lists:map(fun(Fun) -> 
+                {_, Fun2} = lists:keyfind(Fun, 1, Params),
+                abstract_with_({Fun, Fun2}, Event, Data)
+           end, Funs)
+        end, State);
+abstract_with(Fun, Data, State) when is_function(Fun, 1); is_function(Fun, 2)  ->
+    abstract_getparam(Fun, fun(#state{event=Event, paramvars=Params}) ->
+            {_, Fun2} = lists:keyfind(Fun, 1, Params),
+            abstract_with_({Fun, Fun2}, Event, Data)
+        end, State).
+
+abstract_within({H, Fun, Data}|T, OnNomatch, State) ->
+    OnMatch = fun(State2) -> abstract_count(output) ++ 
+                              abstract_with(Fun, Data, State2) 
+                           ++ abstract_within(T, OnNomatch, State2)
+              end,
+    abstract_filter_(H, OnMatch,
+        _OnNomatch=fun(State2) -> 
+                           abstract_count(filter) ++ 
+                            abstract_within(T, OnNomatch, State2)
+        end, State);
+abstract_within(, OnNomatch, State) ->
+    OnNomatch(State).
+
+abstract_with_({Fun, Fun2}, Event, #module{store=Store}) ->
+    ?erl:application(none, Fun2, 
+                     case Fun of
+                         _ when is_function(Fun, 1) ->
+                             Event;
+                         _ when is_function(Fun, 2) ->
+                             Event, ?erl:abstract(Store)
+                     end).
+
+%% @private Bind the value of a field to a variable.
+%% If the value of a field has already been bound to a variable the previous
+%% binding is reused over re-accessing the value. The `OnMatch' function is
+%% expected to access the variable stored in the state record. The `OnNomatch'
+%% function must not attempt to access the variable.
+-spec abstract_getkey(atom(), nextFun(), nextFun(), #state{}) ->
+        syntaxTree().
+abstract_getkey(Key, OnMatch, OnNomatch, #state{fields=Fields}=State) ->
+    case lists:keyfind(Key, 1, Fields) of
+        {Key, _Variable} -> OnMatch(State);
+        false -> abstract_getkey_(Key, OnMatch, OnNomatch, State)
+    end.
+
+
+-spec abstract_getkey_(atom(), nextFun(), nextFun(), #state{}) ->
+        syntaxTree().
+abstract_getkey_(Key, OnMatch, OnNomatch, #state{
+        event=Event, fields=Fields}=State) ->
+    ?erl:case_expr(
+        abstract_apply(gre, find, ?erl:atom(Key), Event),
+        ?erl:clause(
+            ?erl:tuple(
+                ?erl:atom(true),
+                ?erl:variable(field_variable(Key))), none,
+             OnMatch(State#state{
+                fields={Key, ?erl:variable(field_variable(Key))}
+                    |Fields})),
+         ?erl:clause(
+            ?erl:atom(false), none,
+            OnNomatch(State))
+        
+    ).
+
+%% @private Bind the value of a parameter to a variable.
+%% During code generation the parameter value is used as the identity of the
+%% parameter. At runtime a unique integer is used as the identity.
+-spec abstract_getparam(term(), nextFun(), #state{}) -> syntaxTree().
+abstract_getparam(_|_=Terms, OnBound, #state{paramvars=_Params, fields=_Fields,
+                                         paramstab=_ParamsTable}=State) 
+                                    when is_list(Terms) ->
+
+    {Keys, Bound} = lists:foldl(fun(Term, {Acc0, #state{paramvars=Params,
+                                         paramstab=ParamsTable}=State0}) ->
+        case lists:keyfind(Term, 1, Params) of
+            {_, _Variable} -> 
+                {Acc0, State0};
+
+            false ->
+                Key = abstract_getparam_key(Term, ParamsTable),
+                Lookup = abstract_apply(gr_param, lookup_element,
+                             abstract_apply(table, ?erl:atom(params)),
+                              ?erl:abstract(Key)),
+                Expr = ?erl:match_expr(param_variable(Key), Lookup),
+                State1 = State0#state{paramvars={Term, param_variable(Key)}|Params},
+                {Expr|Acc0, State1}
+
+        end
+    end, {, State}, Terms),
+    Keys ++ OnBound(Bound);
+abstract_getparam(Term, OnBound, #state{paramvars=Params}=State) ->
+    case lists:keyfind(Term, 1, Params) of
+        {_, _Variable} -> OnBound(State);
+        %% parameter not bound to variable in this scope.
+        false -> abstract_getparam(Term, OnBound, State)
+    end.
+
+abstract_getparam_key(Term, ParamsTable) ->
+    case gr_param:lookup(ParamsTable, Term) of
+        {_, Key2} ->
+            Key2;
+         ->
+            Key2 = gr_param:info_size(ParamsTable),
+            gr_param:insert(ParamsTable, {Term, Key2}),
+            Key2
+    end.
+
+%% @private Generate a variable name for the value of a field.
+-spec field_variable(atom()) -> string().
+field_variable(Key) ->
+    "Field_" ++ field_variable_(atom_to_list(Key)).
+
+%% @private Escape non-alphanumeric values.
+-spec field_variable_(string()) -> string().
+field_variable_(H|T) when H >= $0, H =< $9 ->
+    H|field_variable_(T);
+field_variable_(H|T) when H >= $A, H =< $Z ->
+    H|field_variable_(T);
+field_variable_(H|T) when H >= $a, H =< $z ->
+    H|field_variable_(T);
+field_variable_(H|T) ->
+    "_" ++ integer_to_list(H, 16) ++ "_" ++ field_variable_(T);
+field_variable_() ->
+    .
+
+%% @private Generate a variable name for the value of a parameter.
+-spec param_variable(integer()) -> syntaxTree().
+param_variable(Key) ->
+    ?erl:variable("Param_" ++ integer_to_list(Key)).
+
+%% @ private Generate a list of field variable names.
+%% Walk the query tree and generate a safe variable name string for each field
+%% that is accessed by the conditions in the query. Only allow alpha-numeric.
+%%-spec field_variables(glc_ops:op()) -> {atom(), string()}.
+%%field_variables(Query) ->
+%%    lists:usort(field_variables_(Query)).
+
+%%-spec field_variables(glc_ops:op()) -> {atom(), string()}.
+%%field_variables_({Key, '=', _Term}) ->
+%%    {Key, field_variable(Key)}.
+
+
+
+%% @private Return an expression to increment a counter.
+%% @todo Pass state record. Only Generate code if `statistics' is enabled.
+-spec abstract_count(atom()) -> syntaxTree().
+abstract_count(Counter) ->
+    abstract_count(Counter, 1).
+abstract_count(Counter, Value) when is_integer(Value) ->
+    abstract_apply(gr_counter, update_counter,
+        abstract_apply(table, ?erl:atom(counters)),
+         ?erl:abstract(Counter),
+         ?erl:abstract({2,Value}));
+abstract_count(Counter, Value) ->
+    abstract_apply(gr_counter, update_counter,
+        abstract_apply(table, ?erl:atom(counters)),
+         ?erl:abstract(Counter),
+         ?erl:tuple(?erl:abstract(2), Value)
+        ).
+
+
+%% @private Return an expression to get the value of a counter.
+%% @todo Pass state record. Only Generate code if `statistics' is enabled.
+-spec abstract_getcount(atom()) -> syntaxTree().
+abstract_getcount(Counter) when is_atom(Counter) ->
+    abstract_getcount(?erl:abstract(Counter));
+abstract_getcount(Counter) ->
+    abstract_apply(gr_counter, lookup_element,
+        abstract_apply(table, ?erl:atom(counters)), Counter).
+
+%% @private Return an expression to reset a counter.
+-spec abstract_resetcount(atom() | filter | input | output | 
+                                    job_input | job_run | job_time | job_error ) 
+                                                            -> syntaxTree().
+abstract_resetcount(Counter) ->
+    abstract_apply(gr_counter, reset_counters,
+        abstract_apply(table, ?erl:atom(counters)),
+         ?erl:abstract(Counter)).
+
+
+
+%% abstract code util functions
+
+
+%% @private Compile an abstract module.
+-spec compile_forms(term(), term()) -> {ok, atom(), binary()}.
+compile_forms(Forms, Opts) ->
+    case compile:forms(Forms, Opts) of
+        {ok, Module, Binary} ->
+            {ok, Module, Binary};
+        {ok, Module, Binary, _Warnings} ->
+            {ok, Module, Binary};
+        Error ->
+            erlang:error({compile_forms, Error})
+    end.
+
+%% @private Load a module binary.
+-spec load_binary(atom(), binary()) -> {ok, loaded, atom()}.
+load_binary(Module, Binary) ->
+    case code:load_binary(Module, "", Binary) of
+        {module, Module}  -> {ok, loaded, Module};
+        {error, Reason} -> exit({error_loading_module, Module, Reason})
+    end.
+
+%% @private Apply an exported function.
+-spec abstract_apply(atom(), atom(), syntaxTree()) -> syntaxTree().
+abstract_apply(Module, Function, Arguments) ->
+    ?erl:application(?erl:atom(Module), ?erl:atom(Function), Arguments).
+
+%% @private Apply a module local function.
+-spec abstract_apply(atom(), syntaxTree()) -> syntaxTree().
+abstract_apply(Function, Arguments) ->
+    ?erl:application(?erl:atom(Function), Arguments).

osmo-diameter2gsup_0.3.0.tar.xz/_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.
+%%
+%% Identical conditions may occur in some sub-filters of an "all" filter. These
+%% filters can be tested once before testing the conditions that are unique to
+%% each sub-filter. This is different from factoring out common sub-filters
+%% in an "any" filter where the only those sub-filters that exist in all
+%% members.
+%%
+%% Assume that the input has been flattened first in order to eliminate all
+%% occurances of an "any" filters being "sub-filters" of "any" filters.
+common({all, Conds}) ->
+    case common_(Conds, ) of
+        {found, Found} ->
+            {all, Found|delete(Cond, Found) || Cond <- Conds};
+        nonefound ->
+            {all, common(Cond) || Cond <- Conds}
+    end;
+common({any, Conds}) ->
+    {any, common(Cond) || Cond <- Conds};
+common(Other) ->
+    Other.
+    
+
+common_({any, Conds}|T, Seen) ->
+    Set = ordsets:from_list(Conds),
+    case ordsets:intersection(Set, Seen) of
+         -> common_(T, ordsets:union(Set, Seen));
+        H|_ -> {found, H}
+    end;
+common_(H|T, Seen) ->
+    case ordsets:is_element(H, Seen) of
+        false -> common_(T, ordsets:union(ordsets:from_list(H), Seen));
+        true -> {found, H}
+    end;
+common_(, _Seen) ->
+    nonefound.
+
+%% @private Delete all occurances of constants.
+%%
+%% An "all" or "any" filter may be reduced to a constant outcome when all
+%% sub-filters has been factored out from the filter. In these cases the
+%% filter can be removed from the query.
+constants(Query) ->
+    delete(Query, {null, true}).
+    
+
+
+%% @private Delete all occurances of a filter.
+%%
+%% Assume that the function is called because a filter is tested
+%% by a parent filter. It is therefore safe to replace occurances
+%% with a null filter that always returns true.
+delete({all, Conds}, Filter) ->
+    {all, delete(Cond, Filter) || Cond <- Conds, Cond =/= Filter};
+delete({any, Conds}, Filter) ->
+    {any, delete(Cond, Filter) || Cond <- Conds, Cond =/= Filter};
+delete(Filter, Filter) ->
+    {null, true};
+delete(Cond, _Filter) ->
+    Cond.
+
+%% @private Delete all occurances of multiple filters.
+deleteall(Filter, H|T) ->
+    deleteall(delete(Filter, H), T);
+deleteall(Filter, ) ->
+    Filter.
+
+
+
+%% @private Test if a term is a valid filter.
+-spec is_valid(glc_ops:op()) -> boolean().
+is_valid({Field, '<', _Term}) when is_atom(Field) ->
+    true;
+is_valid({Field, '=<', _Term}) when is_atom(Field) ->
+    true;
+is_valid({Field, '=', _Term}) when is_atom(Field) ->
+    true;
+is_valid({Field, '!=', _Term}) when is_atom(Field) ->
+    true;
+is_valid({Field, '>=', _Term}) when is_atom(Field) ->
+    true;
+is_valid({Field, '>', _Term}) when is_atom(Field) ->
+    true;
+is_valid({Field, '*'}) when is_atom(Field) ->
+    true;
+is_valid({Field, '!'}) when is_atom(Field) ->
+    true;
+is_valid({null, true}) ->
+    true;
+is_valid({null, false}) ->
+    true;
+is_valid(_Other) ->
+    false.
+
+%% @private Assert that a term is a valid filter.
+%% If the term is a valid filter. The original term will be returned.
+%% If the term is not a valid filter. A `badarg' error is thrown.
+valid(Term) ->
+    is_valid(Term) orelse erlang:error(badarg, Term),
+    Term.
+
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+all_one_test() ->
+    ?assertEqual(glc:eq(a, 1),
+        glc_lib:reduce(glc:all(glc:eq(a, 1)))
+    ).
+
+all_sort_test() ->
+    ?assertEqual(glc:all(glc:eq(a, 1), glc:eq(b, 2)),
+        glc_lib:reduce(glc:all(glc:eq(b, 2), glc:eq(a, 1)))
+    ).
+
+any_one_test() ->
+    ?assertEqual(glc:eq(a, 1),
+        glc_lib:reduce(glc:any(glc:eq(a, 1)))
+    ).
+
+all_two_test() ->
+    ?assertEqual(glc_lib:reduce(glc:all(glc:wc(a), glc:nf(b))),
+       glc_lib:reduce(glc:any(
+                    glc:all(glc:wc(a)), 
+                    glc:all(glc:wc(a), glc:nf(b))))
+    ).
+
+any_sort_test() ->
+    ?assertEqual(glc:any(glc:eq(a, 1), glc:eq(b, 2)),
+        glc_lib:reduce(glc:any(glc:eq(b, 2), glc:eq(a, 1)))
+    ).
+
+all_nest_test() ->
+    ?assertEqual(glc:all(glc:eq(a, 1), glc:eq(b, 2)),
+        glc_lib:reduce(glc:all(glc:eq(a, 1), glc:all(glc:eq(b, 2))))
+    ),
+    ?assertEqual(glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)),
+        glc_lib:reduce(glc:all(glc:eq(c, 3),
+            glc:all(glc:eq(a, 1),
+                glc:all(glc:eq(b, 2)))))
+    ).
+
+any_nest_test() ->
+    ?assertEqual(glc:any(glc:eq(a, 1), glc:eq(b, 2)),
+        glc_lib:reduce(glc:any(glc:eq(a, 1), glc:any(glc:eq(b, 2))))
+    ),
+    ?assertEqual(glc:any(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)),
+        glc_lib:reduce(glc:any(glc:eq(c, 3),
+            glc:any(glc:eq(a, 1),
+                glc:any(glc:eq(b, 2)))))
+    ).
+
+all_equiv_test() ->
+    ?assertEqual(glc:eq(a, 1),
+        glc_lib:reduce(glc:all(glc:eq(a, 1), glc:eq(a, 1)))
+    ).
+
+any_equiv_test() ->
+    ?assertEqual(glc:eq(a, 1),
+        glc_lib:reduce(glc:any(glc:eq(a, 1), glc:eq(a, 1)))
+    ).
+
+any_required_test() ->
+    ?assertEqual(
+        glc:all(
+            glc:any(glc:nf(d), glc:eq(b, 2), glc:eq(c, 3)),
+            glc:eq(a, 1)
+        ),
+        glc_lib:reduce(
+            glc:any(
+                glc:all(glc:eq(a, 1), glc:nf(d)),
+                glc:all(glc:eq(a, 1), glc:eq(b, 2)),
+                glc:all(glc:eq(a, 1), glc:eq(c, 3))))
+    ).
+        
+
+all_common_test() ->
+    ?assertEqual(
+        glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)),
+        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))))
+    ).
+
+delete_from_all_test() ->
+    ?assertEqual(
+        glc:all(glc:eq(b,2)),
+        deleteall(
+            glc:all(glc:eq(a, 1),glc:eq(b,2)), glc:eq(a, 1), glc:nf(a))
+    ).
+
+delete_from_any_test() ->
+    ?assertEqual(
+        glc:any(glc:eq(b,2)),
+        deleteall(
+            glc:any(glc:eq(a, 1),glc:eq(b,2)), glc:eq(a, 1), glc:wc(a))
+    ).
+
+default_is_output_test_() ->
+    ?_assertEqual(output, glc_lib:onoutput(glc:lt(a, 1))),
+     ?_assertEqual(output, glc_lib:onoutput(glc:lte(a, 1))),
+     ?_assertEqual(output, glc_lib:onoutput(glc:eq(a, 1))),
+     ?_assertEqual(output, glc_lib:onoutput(glc:gt(a, 1))),
+     ?_assertEqual(output, glc_lib:onoutput(glc:gte(a, 1))),
+     ?_assertEqual(output, glc_lib:onoutput(glc:wc(a))),
+     ?_assertEqual(output, glc_lib:onoutput(glc:nf(a)))
+    .
+
+matches_test_() ->
+    Event = gre:make({a, 2}, list),
+    ?_assertEqual(true, glc_lib:matches(glc:lt(a, 3), Event)),
+     ?_assertEqual(true, glc_lib:matches(glc:lte(a, 2), Event)),
+     ?_assertEqual(true, glc_lib:matches(glc:eq(a, 2), Event)),
+     ?_assertEqual(true, glc_lib:matches(glc:gt(a, 1), Event)),
+     ?_assertEqual(true, glc_lib:matches(glc:gte(a, 2), Event)),
+     ?_assertEqual(true, glc_lib:matches(glc:wc(a), Event)),
+     ?_assertEqual(true, glc_lib:matches(glc:nf(b), Event)),
+
+     ?_assertEqual(false, glc_lib:matches(glc:lt(a, 2), Event)),
+     ?_assertEqual(false, glc_lib:matches(glc:lte(a, 1), Event)),
+     ?_assertEqual(false, glc_lib:matches(glc:eq(a, 3), Event)),
+     ?_assertEqual(false, glc_lib:matches(glc:gt(a, 2), Event)),
+     ?_assertEqual(false, glc_lib:matches(glc:gte(a, 3), Event)),
+     ?_assertEqual(false, glc_lib:matches(glc:wc(b), Event)),
+     ?_assertEqual(false, glc_lib:matches(glc:nf(a), Event))
+    .
+
+-ifdef(PROPER).
+
+
+prop_reduce_returns() ->
+    ?FORALL(Query, glc_ops:op(),
+        returns(fun() -> glc_lib:reduce(Query) end)).
+
+reduce_returns_test() ->
+    ?assert(proper:quickcheck(prop_reduce_returns())).
+
+prop_matches_returns_boolean() ->
+    ?FORALL({Query, Event}, {glc_ops:op(), {atom(), term()}},
+        is_boolean(glc_lib:matches(Query, gre:make(Event, list)))).
+
+matches_returns_boolean_test() ->
+    ?assert(proper:quickcheck(prop_matches_returns_boolean())).
+
+returns(Fun) ->
+    try Fun(),
+        true
+    catch _:_ ->
+        false
+    end.
+
+-endif.
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_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.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush/src/glc_run.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush/src/goldrush.app.src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/goldrush/src/gr_app.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_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.

osmo-diameter2gsup_0.3.0.tar.xz/_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}.
+
+%%--------------------------------------------------------------------
+%% @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 ,
+    _ =  handle_update_counter(TableId, Counter, Value) 
+      || {update, Counter, Value} <- State#state.waiting ,
+    {noreply, State#state{table_id=TableId, waiting=}};
+handle_info(_Info, State) ->
+    {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% @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
+%%%===================================================================
+
+perform_call(TableId, Call) ->
+    case Call of
+        list ->
+            handle_list(TableId);
+        {insert, Term} ->
+            handle_insert(TableId, Term);
+        {lookup_element, Term} ->
+            handle_lookup_element(TableId, Term)
+    end.
+
+handle_list(TableId) ->
+    ets:tab2list(TableId).
+
+handle_update_counter(TableId, Counter, Value) ->
+    ets:update_counter(TableId, Counter, Value).
+
+handle_insert(TableId, Term) ->
+    ets:insert(TableId, Term).
+
+handle_lookup_element(TableId, Term) ->
+    ets:lookup_element(TableId, Term, 2).

osmo-diameter2gsup_0.3.0.tar.xz/_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}, } }.

osmo-diameter2gsup_0.3.0.tar.xz/_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. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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
+%%%===================================================================
+
+
+

osmo-diameter2gsup_0.3.0.tar.xz/_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. 
+%% <em>Manager</em>} processes, which serve as heir of the 
+%% {@link gr_counter:start_link/0. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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}, } }.

osmo-diameter2gsup_0.3.0.tar.xz/_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}.
+
+
+
+%%--------------------------------------------------------------------
+%% @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
+%%%===================================================================
+
+perform_call(TableId, Call) ->
+    case Call of
+        list ->
+            handle_list(TableId);
+        info ->
+            handle_info(TableId);
+        info_size ->
+            handle_info_size(TableId);
+        transform ->
+            handle_transform(TableId);
+        {insert, Term} ->
+            handle_insert(TableId, Term);
+        {lookup, Term} ->
+            handle_lookup(TableId, Term);
+        {lookup_element, Term} ->
+            handle_lookup_element(TableId, Term)
+    end.
+
+
+handle_list(TableId) ->
+    ets:tab2list(TableId).
+
+handle_info(TableId) ->
+    ets:info(TableId).
+
+handle_info_size(TableId) ->
+    ets:info(TableId, size).
+
+handle_transform(TableId) ->
+    ParamsList = {K, V} || {V, K} <- ets:tab2list(TableId),
+    ets:delete_all_objects(TableId),
+    ets:insert(TableId, ParamsList).
+
+handle_insert(TableId, Term) ->
+    ets:insert(TableId, Term).
+
+handle_lookup(TableId, Term) ->
+    ets:lookup(TableId, Term).
+
+handle_lookup_element(TableId, Term) ->
+    ets:lookup_element(TableId, Term, 2).
+

osmo-diameter2gsup_0.3.0.tar.xz/_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. 
+%% <em>Param</em>}, process table responsible for params
+%% {@link gr_param:start_link/0. <em>Counter</em>} and
+%% their {@link gr_counter:start_link/0. <em>Manager</em>} 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}, } }.

osmo-diameter2gsup_0.3.0.tar.xz/_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. 
+%% <em>Counter</em>}, {@link gr_param_sup:start_link/0. <em>Param</em>} and
+%% their {@link gr_manager_sup:start_link/0. <em>Manager</em>} 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}}.

osmo-diameter2gsup_0.3.0.tar.xz/_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.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/.github Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/.github/workflows Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/.github/workflows/ci.yml Added

@@ -0,0 +1,45 @@
+---
+name: build
+on:
+  push:
+    branches:
+      - master
+  pull_request:
+    branches:
+      - master
+jobs:
+  ci:
+    name: >
+      Run Linux-based checks and tests over ${{matrix.otp_vsn}} and ${{matrix.os}}
+    runs-on: ${{matrix.os}}
+    container:
+      image: erlang:${{matrix.otp_vsn}}
+      options: --user 1001
+    strategy:
+      matrix:
+        otp_vsn: 21.3, 22.3, 23.2
+        os: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v2
+      - run: rebar3 dialyzer
+      - run: rebar3 eunit
+  ci-windows:
+    name: >
+      Run Windows-based checks and tests over ${{matrix.otp_vsn}} and ${{matrix.os}}
+    runs-on: ${{matrix.os}}
+    strategy:
+      matrix:
+        otp_vsn: 23.2
+        os: windows-latest
+    steps:
+    - uses: actions/checkout@v2
+    - uses: gleam-lang/setup-erlang@v1.1.2
+      with:
+        otp-version: ${{matrix.otp_vsn}}
+      id: install_erlang
+    - run: wget https://s3.amazonaws.com/rebar3/rebar3 -OutFile rebar3
+      shell: powershell
+    - run: |
+        & "${{steps.install_erlang.outputs.erlpath}}\bin\escript.exe" rebar3 dialyzer
+    - run: |
+        & "${{steps.install_erlang.outputs.erlpath}}\bin\escript.exe" rebar3 eunit

osmo-diameter2gsup_0.3.0.tar.xz/_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
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/Makefile Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/README.md Added

@@ -0,0 +1,1396 @@
+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
+          {extra_sinks,
+           
+            {audit_lager_event,
+             {handlers,
+               {lager_file_backend,
+                 {file, "sink1.log"},
+                  {level, info}
+                 
+                }
+              },
+              {async_threshold, 500},
+              {async_threshold_window, 50}
+            }
+          }
+         
+ }
+.
+```
+
+Custom Formatting
+-----------------
+All loggers have a default formatting that can be overriden.  A formatter is any module that
+exports `format(#lager_log_message{},Config#any())`.  It is specified as part of the configuration
+for the backend:
+
+```erlang
+{lager, 
+  {handlers, 
+    {lager_console_backend, {level, info}, {formatter, lager_default_formatter},
+      {formatter_config, time," ",severity," ", message, "\n"}},
+    {lager_file_backend, {file, "error.log"}, {level, error}, {formatter, lager_default_formatter},
+      {formatter_config, date, " ", time," ",severity," ",pid, " ", message, "\n"}},
+    {lager_file_backend, {file, "console.log"}, {level, info}}
+  }
+}.
+```
+
+Included is `lager_default_formatter`.  This provides a generic, default
+formatting for log messages using a structure similar to Erlang's
+iolist(http://learnyousomeerlang.com/buckets-of-sockets#io-lists) which we
+call "semi-iolist":
+
+* Any traditional iolist elements in the configuration are printed verbatim.
+* Atoms in the configuration are treated as placeholders for lager metadata and
+  extracted from the log message.
+    * The placeholders `date`, `time`, `message`, `sev` and `severity` will always exist.
+    * `sev` is an abbreviated severity which is interpreted as a capitalized
+      single letter encoding of the severity level (e.g. `'debug'` -> `$D`)
+    * The placeholders `pid`, `file`, `line`, `module`, `function`, and `node`
+      will always exist if the parse transform is used.
+    * The placeholder `application` may exist if the parse transform is used.
+      It is dependent on finding the applications `app.src` file.
+    * If the error logger integration is used, the placeholder `pid`
+      will always exist and the placeholder `name` may exist.
+    * Applications can define their own metadata placeholder.
+    * A tuple of `{atom(), semi-iolist()}` allows for a fallback for
+      the atom placeholder. If the value represented by the atom
+      cannot be found, the semi-iolist will be interpreted instead.
+    * A tuple of `{atom(), semi-iolist(), semi-iolist()}` represents a
+      conditional operator: if a value for the atom placeholder can be
+      found, the first semi-iolist will be output; otherwise, the
+      second will be used.
+    * A tuple of `{pterm, atom()}` will attempt to lookup
+      the value of the specified atom from the
+      persistent_term(http://erlang.org/doc/man/persistent_term.html)
+      feature added in OTP 21.2. The default value is `""`. The
+      default value will be used if the key cannot be found or
+      if this formatting term is specified on an OTP release before
+      OTP 21.
+    * A tuple of `{pterm, atom(), semi-iolist()}` will attempt to
+      lookup the value of the specified atom from the persistent_term
+      feature added in OTP 21.2. The default value is the specified
+      semi-iolist(). The default value will be used if the key cannot
+      be found or the if this formatting term is specified on an OTP
+      release before OTP 21.
+
+Examples:
+
+```
+"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 metadata print "My pid is <?.?.?>", otherwise print "Unknown Pid"
+{server,{pid, "(", pid, ")", "(Unknown Server)"}} -> user provided server metadata, otherwise "(<?.?.?>)", otherwise "(Unknown Server)"
+{pterm, pterm_key, <<"undefined">>} -> if a value for 'pterm_key' is found in OTP 21 (or later) persistent_term storage it is used, otherwise "undefined"
+```
+
+Universal time
+--------------
+By default, lager formats timestamps as local time for whatever computer
+generated the log message.
+
+To make lager use UTC timestamps, you can set the `sasl` application's
+`utc_log` configuration parameter to `true` in your application configuration
+file.
+
+Example:
+
+```
+%% format log timestamps as UTC
+{sasl, {utc_log, true}}.
+```
+
+Error logger integration
+------------------------
+Lager is also supplied with a `error_logger` handler module that translates
+traditional erlang error messages into a friendlier format and sends them into
+lager itself to be treated like a regular lager log call. To disable this, set
+the lager application variable `error_logger_redirect` to `false`.
+You can also disable reformatting for OTP and Cowboy messages by setting variable
+`error_logger_format_raw` to `true`.
+
+If you installed your own handler(s) into `error_logger`, you can tell
+lager to leave it alone by using the `error_logger_whitelist` environment
+variable with a list of handlers to allow.
+
+```
+{error_logger_whitelist, my_handler}
+```
+
+The `error_logger` handler will also log more complete error messages (protected
+with use of `trunc_io`) to a "crash log" which can be referred to for further
+information. The location of the crash log can be specified by the `crash_log`
+application variable. If set to `false` it is not written at all.
+
+Messages in the crash log are subject to a maximum message size which can be
+specified via the `crash_log_msg_size` application variable.
+
+Messages from `error_logger` will be redirected to `error_logger_lager_event` sink
+if it is defined so it can be redirected to another log file.
+
+For example:
+
+```
+{lager, 
+         {extra_sinks,
+          
+           {error_logger_lager_event, 
+            {handlers, 
+              {lager_file_backend, {file, "error_logger.log"}, {level, info}}
+              }
+           }
+           }
+}.
+```
+will send all `error_logger` messages to `error_logger.log` file.
+
+Overload Protection
+-------------------
+
+### Asynchronous mode
+
+Prior to lager 2.0, the `gen_event` at the core of lager operated purely in
+synchronous mode. Asynchronous mode is faster, but has no protection against
+message queue overload. As of lager 2.0, the `gen_event` takes a hybrid
+approach. it polls its own mailbox size and toggles the messaging between
+synchronous and asynchronous depending on mailbox size.
+
+```erlang
+{async_threshold, 20},
+{async_threshold_window, 5}
+```
+
+This will use async messaging until the mailbox exceeds 20 messages, at which
+point synchronous messaging will be used, and switch back to asynchronous, when
+size reduces to `20 - 5 = 15`.
+
+If you wish to disable this behaviour, simply set `async_threshold` to `undefined`. It defaults
+to a low number to prevent the mailbox growing rapidly beyond the limit and causing
+problems. In general, lager should process messages as fast as they come in, so getting
+20 behind should be relatively exceptional anyway.
+
+If you want to limit the number of messages per second allowed from `error_logger`,
+which is a good idea if you want to weather a flood of messages when lots of
+related processes crash, you can set a limit:
+
+```erlang
+{error_logger_hwm, 50}
+```
+
+It is probably best to keep this number small.
+
+### Event queue flushing
+
+When the high-water mark is exceeded, lager can be configured to flush all
+event notifications in the message queue. This can have unintended consequences
+for other handlers in the same event manager (in e.g. the `error_logger`), as
+events they rely on may be wrongly discarded. By default, this behavior is enabled,
+but can be controlled, for the `error_logger` via:
+
+```erlang
+{error_logger_flush_queue, true | false}
+```
+
+or for a specific sink, using the option:
+
+```erlang
+{flush_queue, true | false}
+```
+
+If `flush_queue` is true, a message queue length threshold can be set, at which
+messages will start being discarded. The default threshold is `0`, meaning that
+if `flush_queue` is true, messages will be discarded if the high-water mark is
+exceeded, regardless of the length of the message queue. The option to control
+the threshold is, for `error_logger`:
+
+```erlang
+{error_logger_flush_threshold, 1000}
+```
+
+and for sinks:
+
+```erlang
+{flush_threshold, 1000}
+```
+
+### Sink Killer
+
+In some high volume situations, it may be preferable to drop all pending log
+messages instead of letting them drain over time.
+
+If you prefer, you may choose to use the sink killer to shed load. In this
+operational mode, if the `gen_event` mailbox exceeds a configurable
+high water mark, the sink will be killed and reinstalled after a
+configurable cool down time.
+
+You can configure this behavior by using these configuration directives:
+
+```erlang
+{killer_hwm, 1000},
+{killer_reinstall_after, 5000}
+```
+
+This means if the sink's mailbox size exceeds 1000 messages, kill the
+entire sink and reload it after 5000 milliseconds. This behavior can
+also be installed into alternative sinks if desired.
+
+By default, the manager killer *is not installed* into any sink. If
+the `killer_reinstall_after` cool down time is not specified it defaults
+to 5000.
+
+"Unsafe"
+--------
+The unsafe code pathway bypasses the normal lager formatting code and uses the
+same code as error_logger in OTP. This provides a marginal speedup to your logging
+code (we measured between 0.5-1.3% improvement during our benchmarking; others have
+reported better improvements.)
+
+This is a **dangerous** feature. It *will not* protect you against
+large log messages - large messages can kill your application and even your
+Erlang VM dead due to memory exhaustion as large terms are copied over and
+over in a failure cascade.  We strongly recommend that this code pathway
+only be used by log messages with a well bounded upper size of around 500 bytes.
+
+If there's any possibility the log messages could exceed that limit, you should
+use the normal lager message formatting code which will provide the appropriate
+size limitations and protection against memory exhaustion.
+
+If you want to format an unsafe log message, you may use the severity level (as
+usual) followed by `_unsafe`. Here's an example:
+
+```erlang
+lager:info_unsafe("The quick brown ~s jumped over the lazy ~s", "fox", "dog").
+```
+
+Runtime loglevel changes
+------------------------
+You can change the log level of any lager backend at runtime by doing the
+following:
+
+```erlang
+lager:set_loglevel(lager_console_backend, debug).
+```
+
+  Or, for the backend with multiple handles (files, mainly):
+
+```erlang
+lager:set_loglevel(lager_file_backend, "console.log", debug).
+```
+
+Lager keeps track of the minimum log level being used by any backend and
+suppresses generation of messages lower than that level. This means that debug
+log messages, when no backend is consuming debug messages, are effectively
+free. A simple benchmark of doing 1 million debug log messages while the
+minimum threshold was above that takes less than half a second.
+
+Syslog style loglevel comparison flags
+--------------------------------------
+In addition to the regular log level names, you can also do finer grained masking
+of what you want to log:
+
+```
+info - info and higher (>= is implicit)
+=debug - only the debug level
+!=info - everything but the info level
+<=notice - notice and below
+<warning - anything less than warning
+```
+
+These can be used anywhere a loglevel is supplied, although they need to be either
+a quoted atom or a string.
+
+Internal log rotation
+---------------------
+Lager can rotate its own logs or have it done via an external process. To
+use internal rotation, use the `size`, `date` and `count` values in the file
+backend's config:
+
+```erlang
+{file, "error.log"}, {level, error}, {size, 10485760}, {date, "$D0"}, {count, 5}
+```
+
+This tells lager to log error and above messages to `error.log` and to
+rotate the file at midnight or when it reaches 10mb, whichever comes first,
+and to keep 5 rotated logs in addition to the current one. Setting the
+count to 0 does not disable rotation, it instead rotates the file and keeps
+no previous versions around. To disable rotation set the size to 0 and the
+date to "".
+
+The `$D0` syntax is taken from the syntax newsyslog uses in newsyslog.conf.
+The relevant extract follows:
+
+```
+Day, week and month time format: The lead-in character
+for day, week and month specification is a `$'-sign.
+The particular format of day, week and month
+specification is: Dhh, WwDhh and MddDhh,
+respectively.  Optional time fields default to
+midnight.  The ranges for day and hour specifications
+are:
+
+  hh      hours, range 0 ... 23
+  w       day of week, range 0 ... 6, 0 = Sunday
+  dd      day of month, range 1 ... 31, or the
+          letter L or l to specify the last day of
+          the month.
+
+Some examples:
+  $D0     rotate every night at midnight
+  $D23    rotate every day at 23:00 hr
+  $W0D23  rotate every week on Sunday at 23:00 hr
+  $W5D16  rotate every week on Friday at 16:00 hr
+  $M1D0   rotate on the first day of every month at
+          midnight (i.e., the start of the day)
+  $M5D6   rotate on every 5th day of the month at
+          6:00 hr
+```
+
+On top of the day, week and month time format from newsyslog,
+hour specification is added from PR #420(https://github.com/erlang-lager/lager/pull/420)
+
+```
+Format of hour specification is : Hmm
+The range for minute specification is:
+
+  mm      minutes, range 0 ... 59
+
+Some examples:
+
+  $H00    rotate every hour at HH:00
+  $D12H30 rotate every day at 12:30
+  $W0D0H0 rotate every week on Sunday at 00:00
+```
+
+To configure the crash log rotation, the following application variables are
+used:
+* `crash_log_size`
+* `crash_log_date`
+* `crash_log_count`
+* `crash_log_rotator`
+
+See the `.app.src` file for further details.
+
+Custom Log Rotation
+-------------------
+Custom log rotator could be configured with option for `lager_file_backend`
+```erlang
+{rotator, lager_rotator_default}
+```
+
+The module should provide the following callbacks as `lager_rotator_behaviour`
+
+```erlang
+%% @doc Create a log file
+-callback(create_logfile(Name::list(), Buffer::{integer(), integer()} | any()) ->
+    {ok, {FD::file:io_device(), Inode::integer(), Size::integer()}} | {error, any()}).
+
+%% @doc Open a log file
+-callback(open_logfile(Name::list(), Buffer::{integer(), integer()} | any()) ->
+    {ok, {FD::file:io_device(), Inode::integer(), Size::integer()}} | {error, any()}).
+
+%% @doc Ensure reference to current target, could be rotated
+-callback(ensure_logfile(Name::list(), FD::file:io_device(), Inode::integer(),
+                         Buffer::{integer(), integer()} | any()) ->
+    {ok, {FD::file:io_device(), Inode::integer(), Size::integer()}} | {error, any()}).
+
+%% @doc Rotate the log file
+-callback(rotate_logfile(Name::list(), Count::integer()) ->
+    ok).
+```
+
+Syslog Support
+--------------
+Lager syslog output is provided as a separate application:
+lager_syslog(https://github.com/erlang-lager/lager_syslog). It is packaged as a
+separate application so lager itself doesn't have an indirect dependency on a
+port driver. Please see the `lager_syslog` README for configuration information.
+
+Other Backends
+--------------
+There are lots of them! Some connect log messages to AMQP, various logging
+analytic services (bunyan(https://github.com/Vagabond/lager_bunyan_formatter),
+loggly(https://github.com/kivra/lager_loggly), etc), and more. Looking on
+hex(https://hex.pm/packages?_utf8=✓&search=lager&sort=recent_downloads) or
+using "lager BACKEND" where "BACKEND" is your preferred log solution
+on your favorite search engine is a good starting point.
+
+Exception Pretty Printing
+----------------------
+Up to OTP 20:
+
+```erlang
+try
+    foo()
+catch
+    Class:Reason ->
+        lager:error(
+            "~nStacktrace:~s",
+            lager:pr_stacktrace(erlang:get_stacktrace(), {Class, Reason}))
+end.
+```
+
+On OTP 21+:
+
+```erlang
+try
+    foo()
+catch
+    Class:Reason:Stacktrace ->
+        lager:error(
+            "~nStacktrace:~s",
+            lager:pr_stacktrace(Stacktrace, {Class, Reason}))
+end.
+```
+
+Record Pretty Printing
+----------------------
+Lager's parse transform will keep track of any record definitions it encounters
+and store them in the module's attributes. You can then, at runtime, print any
+record a module compiled with the lager parse transform knows about by using the
+`lager:pr/2` function, which takes the record and the module that knows about the record:
+
+```erlang
+lager:info("My state is ~p", lager:pr(State, ?MODULE))
+```
+
+Often, `?MODULE` is sufficent, but you can obviously substitute that for a literal module name.
+`lager:pr` also works from the shell.
+
+Colored terminal output
+-----------------------
+If you have Erlang R16 or higher, you can tell lager's console backend to be colored. Simply
+add to lager's application environment config:
+
+```erlang
+{colored, true}
+```
+
+If you don't like the default colors, they are also configurable; see
+the `.app.src` file for more details.
+
+The output will be colored from the first occurrence of the atom color
+in the formatting configuration. For example:
+
+```erlang
+{lager_console_backend, {level, info}, {formatter, lager_default_formatter},
+  {formatter_config, time, color, " ",severity," ", message, "\e0m\r\n"}}
+```
+
+This will make the entire log message, except time, colored. The
+escape sequence before the line break is needed in order to reset the
+color after each log message.
+
+Tracing
+-------
+Lager supports basic support for redirecting log messages based on log message
+attributes. Lager automatically captures the pid, module, function and line at the
+log message callsite. However, you can add any additional attributes you wish:
+
+```erlang
+lager:warning({request, RequestID},{vhost, Vhost}, "Permission denied to ~s", User)
+```
+
+Then, in addition to the default trace attributes, you'll be able to trace
+based on request or vhost:
+
+```erlang
+lager:trace_file("logs/example.com.error", {vhost, "example.com"}, error)
+```
+
+To persist metadata for the life of a process, you can use `lager:md/1` to store metadata
+in the process dictionary:
+
+```erlang
+lager:md({zone, forbidden})
+```
+
+Note that `lager:md` will *only* accept a list of key/value pairs keyed by atoms.
+
+You can also omit the final argument, and the loglevel will default to
+`debug`.
+
+Tracing to the console is similar:
+
+```erlang
+lager:trace_console({request, 117})
+```
+
+In the above example, the loglevel is omitted, but it can be specified as the
+second argument if desired.
+
+You can also specify multiple expressions in a filter, or use the `*` atom as
+a wildcard to match any message that has that attribute, regardless of its
+value. You may also use the special value `!` to mean, only select if this
+key is **not** present.
+
+Tracing to an existing logfile is also supported (but see **Multiple
+sink support** below):
+
+```erlang
+lager:trace_file("log/error.log", {module, mymodule}, {function, myfunction}, warning)
+```
+
+To view the active log backends and traces, you can use the `lager:status()`
+function. To clear all active traces, you can use `lager:clear_all_traces()`.
+
+To delete a specific trace, store a handle for the trace when you create it,
+that you later pass to `lager:stop_trace/1`:
+
+```erlang
+{ok, Trace} = lager:trace_file("log/error.log", {module, mymodule}),
+...
+lager:stop_trace(Trace)
+```
+
+Tracing to a pid is somewhat of a special case, since a pid is not a
+data-type that serializes well. To trace by pid, use the pid as a string:
+
+```erlang
+lager:trace_console({pid, "<0.410.0>"})
+```
+
+### Filter expressions
+As of lager 3.3.1, you can also use a 3 tuple while tracing where the second
+element is a comparison operator. The currently supported comparison operators
+are:
+
+* `<` - less than
+* `=<` - less than or equal
+* `=` - equal to
+* `!=` - not equal to
+* `>` - greater than
+* `>=` - greater than or equal
+
+```erlang
+lager:trace_console({request, '>', 117}, {request, '<', 120})
+```
+
+Using `=` is equivalent to the 2-tuple form.
+
+### Filter composition
+As of lager 3.3.1 you may also use the special filter composition keys of
+`all` or `any`. For example the filter example above could be
+expressed as:
+
+```erlang
+lager:trace_console({all, {request, '>', 117}, {request, '<', 120}})
+```
+
+`any` has the effect of "OR style" logical evaluation between filters; `all`
+means "AND style" logical evaluation between filters. These compositional filters
+expect a list of additional filter expressions as their values.
+
+### Null filters
+The `null` filter has a special meaning.  A filter of `{null, false}` acts as
+a black hole; nothing is passed through.  A filter of `{null, true}` means
+*everything* passes through. No other values for the null filter are valid and
+will be rejected.
+
+### Multiple sink support
+
+If using multiple sinks, there are limitations on tracing that you
+should be aware of.
+
+Traces are specific to a sink, which can be specified via trace
+filters:
+
+```erlang
+lager:trace_file("log/security.log", {sink, audit_event}, {function, myfunction}, warning)
+```
+
+If no sink is thus specified, the default lager sink will be used.
+
+This has two ramifications:
+
+* Traces cannot intercept messages sent to a different sink.
+* Tracing to a file already opened via `lager:trace_file` will only be
+  successful if the same sink is specified.
+
+The former can be ameliorated by opening multiple traces; the latter
+can be fixed by rearchitecting lager's file backend, but this has not
+been tackled.
+
+### Traces from configuration
+
+Lager supports starting traces from its configuration file. The keyword
+to define them is `traces`, followed by a proplist of tuples that define
+a backend handler and zero or more filters in a required list,
+followed by an optional message severity level.
+
+An example looks like this:
+
+```erlang
+{lager, 
+  {handlers, ...},
+  {traces, 
+    %% handler,                         filter,                message level (defaults to debug if not given)
+    {lager_console_backend,             {module, foo},       info },
+    {{lager_file_backend, "trace.log"}, {request, '>', 120}, error},
+    {{lager_file_backend, "event.log"}, {module, bar}             } %% implied debug level here
+  }
+}.
+```
+
+In this example, we have three traces. One using the console backend, and two
+using the file backend. If the message severity level is left out, it defaults
+to `debug` as in the last file backend example.
+
+The `traces` keyword works on alternative sinks too but the same limitations
+and caveats noted above apply.
+
+**IMPORTANT**: You **must** define a severity level in all lager releases
+up to and including 3.1.0 or previous. The 2-tuple form wasn't added until
+3.2.0.
+
+Setting dynamic metadata at compile-time
+----------------------------------------
+Lager supports supplying metadata from external sources by registering a 
+callback function. This metadata is also persistent across processes even if 
+the process dies.
+
+In general use you won't need to use this feature. However it is useful in 
+situations such as:
+ * Tracing information provided by 
+   seq_trace(http://erlang.org/doc/man/seq_trace.html)
+ * Contextual information about your application
+ * Persistent information which isn't provided by the default placeholders
+ * Situations where you would have to set the metadata before every logging call 
+
+You can add the callbacks by using the `{lager_parse_transform_functions, X}` 
+option.  It is only available when using `parse_transform`. In rebar, you can 
+add it to `erl_opts` as below:
+
+```erlang
+{erl_opts, {parse_transform, lager_transform}, 
+            {lager_function_transforms, 
+              
+                 %% Placeholder              Resolve type  Callback tuple
+                {metadata_placeholder,       on_emit,      {module_name, function_name}},
+                {other_metadata_placeholder, on_log,       {module_name, function_name}}
+              }}.
+```
+
+The first atom is the placeholder atom used for the substitution in your custom
+ formatter. See Custom Formatting(#custom-formatting) for more information.
+
+The second atom is the resolve type. This specify the callback to resolve at 
+the time of the message being emitted or at the time of the logging call. You 
+have to specify either the atom `on_emit` or `on_log`. There is not a 'right' 
+resolve type to use, so please read the uses/caveats of each and pick the option 
+which fits your requirements best.
+ 
+`on_emit`:
+  * The callback functions are not resolved until the message is emitted by the
+    backend.
+  * If the callback function cannot be resolved, not loaded or produces 
+    unhandled errors then `undefined` will be returned.
+  * Since the callback function is dependent on a process, there is the 
+    chance that message will be emitted after the dependent process has died 
+    resulting in `undefined` being returned. This process can also be your own
+    process
+ 
+`on_log`:
+  * The callback functions are resolved regardless whether the message is  
+    emitted or not
+  * If the callback function cannot be resolved or not loaded the errors are 
+    not handled by lager itself.
+  * Any potential errors in callback should be handled in the callback function
+    itself.
+  * Because the function is resolved at log time there should be less chance
+    of the dependent process dying before you can resolve it, especially if
+    you are logging from the app which contains the callback.
+
+The third element is the callback to your function consisting of a tuple in the
+form `{Module Function}`. The callback should look like the following 
+regardless if using `on_emit` or `on_log`:  
+  * It should be exported
+  * It should takes no arguments e.g. has an arity of 0
+  * It should return any traditional iolist elements or the atom `undefined`
+  * For errors generated within your callback see the resolve type documentation
+    above.
+
+If the callback returns `undefined` then it will follow the same fallback and
+conditional operator rules as documented in the 
+Custom Formatting(#custom-formatting) section. 
+
+This example would work with `on_emit` but could be unsafe to use with 
+`on_log`. If the call failed in `on_emit` it would default to `undefined`, 
+however with `on_log` it would error.
+
+```erlang
+-export(my_callback/0).
+
+my_callback() ->
+  my_app_serv:call('some options').
+```
+
+This example would be to safe to work with both `on_emit` and `on_log`
+
+```erlang
+-export(my_callback/0).
+
+my_callback() ->
+  try my_app_serv:call('some options') of
+    Result ->
+      Result
+  catch
+    _ ->
+      %% You could define any traditional iolist elements you wanted here
+      undefined
+  end.
+```
+
+Note that the callback can be any Module:Function/0. It does not have be part 
+of your application. For example you could use `cpu_sup:avg1/0` as your  
+callback function like so `{cpu_avg1, on_emit, {cpu_sup, avg1}}`
+
+
+Examples:
+
+```erlang
+-export(reductions/0).
+
+reductions() ->
+  proplists:get_value(reductions, erlang:process_info(self())).
+```
+
+```erlang
+-export(seq_trace/0).
+
+seq_trace() ->
+  case seq_trace:get_token(label) of
+    {label, TraceLabel} ->
+      TraceLabel;
+    _ ->
+      undefined
+  end.
+```
+
+**IMPORTANT**: Since `on_emit` relies on function calls injected at the
+point where a log message is emitted, your logging performance (ops/sec)
+will be impacted by what the functions you call do and how much latency they
+may introduce. This impact will even greater with `on_log` since the calls
+are injected at the point a message is logged.
+
+Setting the truncation limit at compile-time
+--------------------------------------------
+Lager defaults to truncating messages at 4096 bytes, you can alter this by
+using the `{lager_truncation_size, X}` option. In rebar, you can add it to
+`erl_opts`:
+
+```erlang
+{erl_opts, {parse_transform, lager_transform}, {lager_truncation_size, 1024}}.
+```
+
+You can also pass it to `erlc`, if you prefer:
+
+```
+erlc -pa lager/ebin +'{parse_transform, lager_transform}' +'{lager_truncation_size, 1024}' file.erl
+```
+
+Suppress applications and supervisors start/stop logs
+-----------------------------------------------------
+If you don't want to see supervisors and applications start/stop logs in debug
+level of your application, you can use these configs to turn it off:
+
+```erlang
+{lager, {suppress_application_start_stop, true},
+         {suppress_supervisor_start_stop, true}}
+```
+
+Sys debug functions
+--------------------
+
+Lager provides an integrated way to use sys 'debug functions'. You can install a debug
+function in a target process by doing
+
+```erlang
+lager:install_trace(Pid, notice).
+```
+
+You can also customize the tracing somewhat:
+
+```erlang
+lager:install_trace(Pid, notice, {count, 100}, {timeout, 5000}, {format_string, "my trace event ~p ~p"}).
+```
+
+The trace options are currently:
+
+* timeout - how long the trace stays installed: `infinity` (the default) or a millisecond timeout
+* count - how many trace events to log: `infinity` (default) or a positive number
+* format_string - the format string to log the event with. *Must* have 2 format specifiers for the 2 parameters supplied.
+
+This will, on every 'system event' for an OTP process (usually inbound messages, replies
+and state changes) generate a lager message at the specified log level.
+
+You can remove the trace when you're done by doing:
+
+```erlang
+lager:remove_trace(Pid).
+```
+
+If you want to start an OTP process with tracing enabled from the very beginning, you can do something like this:
+
+```erlang
+gen_server:start_link(mymodule, , {debug, {install, {fun lager:trace_func/3, lager:trace_state(undefined, notice, )}}}).
+```
+
+The third argument to the trace_state function is the Option list documented above.
+
+Console output to another group leader process
+----------------------------------------------
+
+If you want to send your console output to another group_leader (typically on
+another node) you can provide a `{group_leader, Pid}` argument to the console
+backend. This can be combined with another console config option, `id` and
+gen_event's `{Module, ID}` to allow remote tracing of a node to standard out via
+nodetool:
+
+```erlang
+    GL = erlang:group_leader(),
+    Node = node(GL),
+    lager_app:start_handler(lager_event, {lager_console_backend, Node},
+         {group_leader, GL}, {level, none}, {id, {lager_console_backend, Node}}),
+    case lager:trace({lager_console_backend, Node}, Filter, Level) of
+         ...
+```
+
+In the above example, the code is assumed to be running via a `nodetool rpc`
+invocation so that the code is executing on the Erlang node, but the
+group_leader is that of the reltool node (eg. appname_maint_12345@127.0.0.1).
+
+If you intend to use tracing with this feature, make sure the second parameter
+to start_handler and the `id` parameter match. Thus when the custom group_leader
+process exits, lager will remove any associated traces for that handler.
+
+Elixir Support
+--------------
+
+There are 2 ways in which Lager can be leveraged in an Elixir project:
+
+1. Lager Backend for Elixir Logger
+2. Directly
+
+### Lager Backend for Elixir Logger
+
+Elixir's Logger(https://hexdocs.pm/logger/Logger.html) is the idiomatic way
+to add logging into elixir code. Logger has a plug-in model,
+allowing for different logging Backends(https://hexdocs.pm/logger/Logger.html#module-backends)
+to be used without the need to change the logging code within your project.
+
+This approach will benefit from the fact that most elixir libs and frameworks
+are likely to use the elixir Logger and as such logging will all flow via the
+same logging mechanism.
+
+In elixir 1.5 support for parse transforms was deprecated(https://github.com/elixir-lang/elixir/issues/5762).
+Taking the "Lager as a Logger Backend" approach is likely bypass any related 
+regression issues that would be introduced into a project which is using lager 
+directly when updating to elixir 1.5.
+
+There are open source elixir Logger backends for Lager available:
+- LagerLogger(https://github.com/PSPDFKit-labs/lager_logger)
+- LoggerLagerBackend(https://github.com/jonathanperret/logger_lager_backend)
+
+### Directly
+
+It is fully possible prior to elixir 1.5 to use lager and all its features
+directly.
+
+After elixir 1.5 there is no support for parse transforms, and it is
+recommended to use an elixir wrapper for the lager api that provides compile time
+log level exclusion via elixir macros when opting for direct use of lager.
+
+Including Lager as a dependency:
+``` elixir
+# mix.exs
+def application do
+  
+    applications: :lager,
+    erl_opts: parse_transform: "lager_transform"
+  
+end
+
+defp deps do
+  {:lager, "~> 3.2"}
+end
+```
+
+Example Configuration:
+``` elixir
+# config.exs
+use Mix.Config
+
+# Stop lager writing a crash log
+config :lager, :crash_log, false
+
+config :lager,
+  log_root: '/var/log/hello',
+  handlers: 
+    lager_console_backend: :info,
+    lager_file_backend: file: "error.log", level: :error,
+    lager_file_backend: file: "console.log", level: :info
+  
+```
+
+There is a known issue where Elixir's Logger and Lager both contest for the
+Erlang `error_logger` handle if used side by side.
+
+If using both add the following to your `config.exs`:
+```elixir
+# config.exs
+use Mix.Config
+
+# Stop lager redirecting :error_logger messages
+config :lager, :error_logger_redirect, false
+
+# Stop lager removing Logger's :error_logger handler
+config :lager, :error_logger_whitelist, Logger.ErrorHandler
+```
+
+Example Usage:
+``` elixir
+:lager.error('Some message')
+:lager.warning('Some message with a term: ~p', term)
+```
+
+3.x Changelog
+-------------
+
+3.9.1 - 2 March 2021
+
+   * Bugfix: More log_root fun (#543)
+   * Bugfix: Use GHA for all the CIs
+
+3.9.0 - 24 February 2021
+
+    * Bugfix: Try to make a log root of "log" more sensible (#540)
+    * Feature: Further adapt to OTP 24 (also remove pre OTP 21 code),
+               adopt Github Actions for tests
+
+3.8.2 - 4 February 2021
+
+    * Bugfix: Make directory expansion return an absolute path (#535)
+    * Feature: Write crash.log under the log_root location (#536)
+    * Bugfix: Handle line numbering correctly in forthcoming OTP 24 release (#537)
+
+3.8.1 - 28 August 2020
+
+    * Feature: Allow metadata fields to be whitelisted in log formatting (#514)
+    * Feature: Enable a persistent_term log formatter (#530) (#531)
+    * Bugfix: Handle gen_statem crashes in newer OTP releases correctly (#523)
+    * Cleanup: Add a hex badge (#525)
+    * Cleanup: Fix Travis CI badge link
+    * Policy: Officially ending support for OTP 20 (Support OTP 21, 22, 23)
+
+3.8.0 - 9 August 2019
+
+    * Breaking API change: Modify the `lager_rotator_behaviour` to pass in a
+      file's creation time to `ensure_logfile/5` to be used to determine if
+      file has changed on systems where inodes are not available (i.e.
+      `win32`). The return value from `create_logfile/2`, `open_logfile/2` and
+      `ensure_logfile/5` now requires ctime to be returned (#509)
+    * Bugfix: ensure log file rotation works on `win32` (#509)
+    * Bugfix: ensure test suite passes on `win32` (#509)
+    * Bugfix: ensure file paths with Unicode are formatted properly (#510)
+
+3.7.0 - 24 May 2019
+
+    * Policy: Officially ending support for OTP 19 (Support OTP 20, 21, 22)
+    * Cleanup: Fix all dialyzer errors
+    * Bugfix: Minor changes to FSM/statem exits in OTP 22.
+
+3.6.10 - 30 April 2019
+
+    * Documentation: Fix pr_stacktrace invocation example (#494)
+    * Bugfix: Do not count suppressed messages for message drop counts (#499)
+
+3.6.9 - 13 March 2019
+
+    * Bugfix: Fix file rotation on windows (#493)
+
+3.6.8 - 21 December 2018
+
+    * Documentation: Document the error_logger_whitelist environment variable. (#489)
+    * Bugfix: Remove the built in handler inside of OTP 21 `logger` system. (#488)
+    * Bugfix: Cleanup unneeded check for is_map (#486)
+    * Bugfix: Cleanup ranch errors treated as cowboy errors (#485)
+    * Testing: Remove OTP 18 from TravisCI testing matrix
+
+3.6.7 - 14 October 2018
+
+    * Bugfix: fix tracing to work with OTP21 #480
+
+3.6.6 - 24 September 2018
+
+    * Bugfix: When printing records, handle an improper list correctly. #478
+    * Bugfix: Fix various tests and make some rotation code more explicit. #476
+    * Bugfix: Make sure not to miscount messages during high-water mark check. #475
+
+3.6.5 - 3 September 2018
+
+    * Feature: Allow the console backend to redirect output to a remote node #469
+    * Feature: is_loggble - support for severity as atom #472
+    * Bugfix: Prevent silent dropping of messages when hwm is exceeded #467
+    * Bugfix: rotation - default log file not deleted #474
+    * Bugfix: Handle strange crash report from gen_statem #473
+    * Documentation: Various markup fixes: #468 #470
+
+3.6.4 - 11 July 2018
+
+    * Bugfix: Reinstall handlers after a sink is killed #459
+    * Bugfix: Fix platform_define matching not to break on OSX Mojave #461
+    * Feature: Add support for installing a sys trace function #462
+
+3.6.3 - 6 June 2018
+
+    * OTP 21 support
+
+3.6.2 - 26 April 2018
+
+    * Bugfix: flush_threshold not working (#449)
+    * Feature: Add `node` as a formatting option (#447)
+    * Documentation: Update Elixir section with information about parse_transform (#446)
+    * Bugfix: Correct default console configuation to use "{level,info}" instead (#445)
+    * Feature: Pretty print lists of records at top level and field values with lager:pr (#442)
+    * Bugfix: Ignore return value of lager:dispatch_log in lager.hrl (#441)
+
+3.6.1 - 1 February 2018
+
+    * Bugfix: Make a few corrections to the recent mailbox flushing changes (#436)
+    * Bugfix: add flush options to proplist validation (#439)
+    * Bugfix: Don't log when we dropped 0 messages (#440)
+
+3.6.0 - 16 January 2018
+
+    * Feature: Support logging with macros per level (#419)
+    * Feature: Support custom file rotation handler; support hourly file
+               rotation (#420)
+    * Feature: Optionally reverse pretty stacktraces (so errors are
+               at the top and the failed function call is at the bottom.)
+               (#424)
+    * Bugfix:  Handle OTP 20 gen_server failure where client pid
+               is dead. (#426)
+    * Feature: Optionally don't flush notify messages at
+               high water mark. (#427)
+    * Bugfix:  Handle another stacktrace format (#429)
+    * Bugfix:  Fix test failure using macros on OTP 18 (#430)
+    * Policy:  Remove all code which supports R15 (#432)
+
+3.5.2 - 19 October 2017
+
+    * Bugfix: Properly check for unicode characters in potentially deep
+              character list. (#417)
+
+3.5.1 - 15 June 2017
+
+    * Doc fix: Missed a curly brace in an example. (#412)
+    * Feature: Dynamic metadata functions (#392) - It is now possible to
+               dynamically add metadata to lager messages. See the "dynamic
+               metadata" section above for more information.
+    * Doc fix: Add information about the "application" placeholder. (#414)
+
+3.5.0 - 28 May 2017
+
+    * Bugfix: Support OTP 20 gen_event messages (#410)
+    * Feature: Enable console output to standard_error.
+               Convert to proplist configuration style (like file handler)
+               Deprecate previous configuration directives (#409)
+    * Bugfix: Enable the event shaper to filter messages before they're
+              counted; do not count application/supervisor start/stops
+              toward high water mark. (#411)
+    * Docs: Add PR guidelines; add info about the #lager chat room on freenode.
+
+3.4.2 - 26 April 2017
+
+    * Docs: Document how to make lager use UTC timestamps (#405)
+    * Docs: Add a note about our triage cadence.
+    * Docs: Update lager_syslog URL
+    * Docs: Document placeholders for error_logger integration (#404)
+    * Feature: Add hex.pm metadata and full rebar3 support.
+
+3.4.1 - 28 March 2017
+
+    * Docs: Added documentation around using lager in the context of elixir applications (#398)
+    * Bugfix: Properly expand paths when log_root is set. (#386)
+    * Policy: Removed R15 from Travis configuration
+
+3.4.0 - 16 March 2017
+
+    * Policy: Adopt official OTP support policy. (This is the **last** lager 3.x release
+      that will support R15.)
+    * Test: Fix timeouts, R15 missing functions on possibly long-running tests in Travis. (#394, #395)
+    * Feature: capture and log metadata from error_logger messages (#397)
+    * Feature: Expose new trace filters and enable filter composition (#389)
+    * Feature: Log crashes from gen_fsm and gen_statem correctly (#391)
+    * Docs: Typo in badge URL (#390)
+
+3.3.0 - 16 February 2017
+
+    * Docs: Fix documentation to make 'it' unambiguous when discussing asychronous
+      operation. (#387)
+    * Test: Fix test flappiness due to insufficient sanitation between test runs (#384, #385)
+    * Feature: Allow metadata only logging. (#380)
+    * Feature: Add an upper case severity formatter (#372)
+    * Feature: Add support for suppressing start/stop messages from supervisors (#368)
+    * Bugfix: Fix ranch crash messages (#366)
+    * Test: Update Travis config for 18.3 and 19.0 (#365)
+
+3.2.4 - 11 October 2016
+
+    * Test: Fix dialyzer warnings.
+
+3.2.3 - 29 September 2016
+
+    * Dependency: Update to goldrush 0.19
+
+3.2.2 - 22 September 2016
+
+    * Bugfix: Backwards-compatibility fix for `{crash_log, undefined}` (#371)
+    * Fix documentation/README to reflect the preference for using `false`
+      as the `crash_log` setting value rather than `undefined` to indicate
+      that the crash log should not be written (#364)
+    * Bugfix: Backwards-compatibility fix for `lager_file_backend` "legacy"
+      configuration format (#374)
+
+3.2.1 - 10 June 2016
+
+    * Bugfix: Recent `get_env` changes resulted in launch failure (#355)
+    * OTP: Support typed records for Erlang 19.0 (#361)
+
+3.2.0 - 08 April 2016
+
+    * Feature: Optional sink killer to shed load when mailbox size exceeds a
+      configurable high water mark (#346)
+    * Feature: Export `configure_sink/2` so users may dynamically configure
+      previously setup and parse transformed sinks from their own code. (#342)
+    * Feature: Re-enable Travis CI and update .travis.yml (#340)
+    * Bugfix: Fix test race conditions for Travis CI (#344)
+    * Bugfix: Add the atom 'none' to the log_level() type so downstream
+      users won't get dialyzer failures if they use the 'none' log level. (#343)
+    * Bugfix: Fix typo in documentation. (#341)
+    * Bugfix: Fix OTP 18 test failures due to `warning_map/0` response
+      change. (#337)
+    * Bugfix: Make sure traces that use the file backend work correctly
+      when specified in lager configuration. (#336)
+    * Bugfix: Use `lager_app:get_env/3` for R15 compatibility. (#335)
+    * Bugfix: Make sure lager uses `id` instead of `name` when reporting
+      supervisor children failures. (The atom changed in OTP in 2014.) (#334)
+    * Bugfix: Make lager handle improper iolists (#327)
+
+3.1.0 - 27 January 2016
+
+    * Feature: API calls to a rotate handler, sink or all.  This change
+      introduces a new `rotate` message for 3rd party lager backends; that's
+      why this is released as a new minor version number. (#311)
+
+3.0.3 - 27 January 2016
+
+    * Feature: Pretty printer for human readable stack traces (#298)
+    * Feature: Make error reformatting optional (#305)
+    * Feature: Optional and explicit sink for error_logger messages (#303)
+    * Bugfix: Always explicitly close a file after its been rotated (#316)
+    * Bugfix: If a relative path already contains the log root, do not add it again (#317)
+    * Bugfix: Configure and start extra sinks before traces are evaluated (#307)
+    * Bugfix: Stop and remove traces correctly (#306)
+    * Bugfix: A byte value of 255 is valid for Unicode (#300)
+    * Dependency: Bump to goldrush 0.1.8 (#313)

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/TODO Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/dialyzer.ignore-warnings Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/include Added

osmo-diameter2gsup_0.3.0.tar.xz/_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{}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/priv Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/priv/edoc.css Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/rebar Added

osmo-diameter2gsup_0.3.0.tar.xz/_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"}}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/rebar.config.script Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_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),
+                    ?LOGFMT(Sink, error, {pid, Pid}, {name, Name} | Md, "gen_server ~w terminated with reason: ~s",
+                        Name, Formatted);
+                {false, "** State machine "++_} ->
+                    %% Check if the terminated process is gen_fsm or gen_statem
+                    %% since they generate the same exit message
+                    {Type, Name, StateName, Reason} = case Args of
+                        TName, _Msg, TStateName, _StateData, TReason ->
+                            {gen_fsm, TName, TStateName, TReason};
+                        %% Handle changed logging in gen_fsm stdlib-3.9 (TPid, ClientArgs)
+                        TName, _Msg, TPid, TStateName, _StateData, TReason | _ClientArgs when is_pid(TPid), is_atom(TStateName) ->
+                            {gen_fsm, TName, TStateName, TReason};
+                        %% Handle changed logging in gen_statem stdlib-3.9 (ClientArgs)
+                        TName, _Msg, {TStateName, _StateData}, _ExitType, TReason, _CallbackMode, Stacktrace | _ClientArgs ->
+                            {gen_statem, TName, TStateName, {TReason, Stacktrace}};
+                        %% Handle changed logging in gen_statem stdlib-3.9 (ClientArgs)
+                        TName, {TStateName, _StateData}, _ExitType, TReason, _CallbackMode, Stacktrace | _ClientArgs ->
+                            {gen_statem, TName, TStateName, {TReason, Stacktrace}};
+                        TName, _Msg, {TStateName, _StateData}, _ExitType, TReason, _CallbackMode, Stacktrace | _ClientArgs ->
+                            %% sometimes gen_statem wraps its statename/data in a list for some reason???
+                            {gen_statem, TName, TStateName, {TReason, Stacktrace}}
+                    end,
+                    {Md, Formatted} = format_reason_md(Reason),
+                    ?CRASH_LOG(Event),
+                    ?LOGFMT(Sink, error, {pid, Pid}, {name, Name} | Md, "~s ~w in state ~w terminated with reason: ~s",
+                        Type, Name, StateName, Formatted);
+                {false, "** gen_event handler"++_} ->
+                    %% gen_event handler terminate
+                    ID, Name, _Msg, _State, Reason = Args,
+                    {Md, Formatted} = format_reason_md(Reason),
+                    ?CRASH_LOG(Event),
+                    ?LOGFMT(Sink, error, {pid, Pid}, {name, Name} | Md, "gen_event ~w installed in ~w terminated with reason: ~s",
+                        ID, Name, Formatted);
+                {false, "** Cowboy handler"++_} ->
+                    %% Cowboy HTTP server error
+                    ?CRASH_LOG(Event),
+                    case Args of
+                        Module, Function, Arity, _Request, _State ->
+                            %% we only get the 5-element list when its a non-exported function
+                            ?LOGFMT(Sink, error, Pid,
+                                "Cowboy handler ~p terminated with reason: call to undefined function ~p:~p/~p",
+                                Module, Module, Function, Arity);
+                        Module, Function, Arity, _Class, Reason | Tail ->
+                            %% any other cowboy error_format list *always* ends with the stacktrace
+                            StackTrace = lists:last(Tail),
+                            {Md, Formatted} = format_reason_md({Reason, StackTrace}),
+                            ?LOGFMT(Sink, error, {pid, Pid} | Md,
+                                "Cowboy handler ~p terminated in ~p:~p/~p with reason: ~s",
+                                Module, Module, Function, Arity, Formatted)
+                    end;
+                {false, "Ranch listener "++_} ->
+                    %% Ranch errors
+                    ?CRASH_LOG(Event),
+                    case Args of
+                        %% Error logged by cowboy, which starts as ranch error
+                        Ref, ConnectionPid, StreamID, RequestPid, Reason, StackTrace ->
+                            {Md, Formatted} = format_reason_md({Reason, StackTrace}),
+                            ?LOGFMT(Sink, error, {pid, RequestPid} | Md,
+                                "Cowboy stream ~p with ranch listener ~p and connection process ~p "
+                                "had its request process exit with reason: ~s",
+                                StreamID, Ref, ConnectionPid, Formatted);
+                        Ref, _Protocol, Worker, {{reason, Reason}, {mfa, {Module, Function, Arity}}, {stacktrace, StackTrace} | _, _} ->
+                            {Md, Formatted} = format_reason_md({Reason, StackTrace}),
+                            ?LOGFMT(Sink, error, {pid, Worker} | Md,
+                                "Ranch listener ~p terminated in ~p:~p/~p with reason: ~s",
+                                Ref, Module, Function, Arity, Formatted);
+                        Ref, _Protocol, Worker, Reason ->
+                            {Md, Formatted} = format_reason_md(Reason),
+                            ?LOGFMT(Sink, error, {pid, Worker} | Md,
+                                "Ranch listener ~p terminated with reason: ~s",
+                                Ref, Formatted);
+                        Ref, Protocol, Ret ->
+                            %% ranch_conns_sup.erl module line 119-123 has three parameters error msg, log it.
+                            {Md, Formatted} = format_reason_md(Ret),
+                            ?LOGFMT(Sink, error, {pid, Protocol} | Md,
+                                "Ranch listener ~p terminated with result:~s",
+                                Ref, Formatted)
+                    end;
+                {false, "webmachine error"++_} ->
+                    %% Webmachine HTTP server error
+                    ?CRASH_LOG(Event),
+                    Path, Error = Args,
+                    %% webmachine likes to mangle the stack, for some reason
+                    StackTrace = case Error of
+                        {error, {error, Reason, Stack}} ->
+                            {Reason, Stack};
+                        _ ->
+                            Error
+                    end,
+                    {Md, Formatted} = format_reason_md(StackTrace),
+                    ?LOGFMT(Sink, error, {pid, Pid} | Md, "Webmachine error at path ~p : ~s", Path, Formatted);
+                _ ->
+                    ?CRASH_LOG(Event),
+                    ?LOGFMT(Sink, error, Pid, Fmt, Args)
+            end;
+        {error_report, _GL, {Pid, std_error, D}} ->
+            ?CRASH_LOG(Event),
+            ?LOGMSG(Sink, error, Pid, print_silly_list(D));
+        {error_report, _GL, {Pid, supervisor_report, D}} ->
+            ?CRASH_LOG(Event),
+            case lists:sort(D) of
+                {errorContext, Ctx}, {offender, Off}, {reason, Reason}, {supervisor, Name} ->
+                    Offender = format_offender(Off),
+                    {Md, Formatted} = format_reason_md(Reason),
+                    ?LOGFMT(Sink, error, {pid, Pid} | Md,
+                        "Supervisor ~w had child ~s exit with reason ~s in context ~w",
+                        supervisor_name(Name), Offender, Formatted, Ctx);
+                _ ->
+                    ?LOGMSG(Sink, error, Pid, "SUPERVISOR REPORT " ++ print_silly_list(D))
+            end;
+        {error_report, _GL, {Pid, crash_report, Self, Neighbours}} ->
+            ?CRASH_LOG(Event),
+            {Md, Formatted} = format_crash_report(Self, Neighbours),
+            ?LOGMSG(Sink, error, {pid, Pid} | Md, "CRASH REPORT " ++ Formatted);
+        {warning_msg, _GL, {Pid, Fmt, Args}} ->
+            ?LOGFMT(Sink, warning, Pid, Fmt, Args);
+        {warning_report, _GL, {Pid, std_warning, Report}} ->
+            ?LOGMSG(Sink, warning, Pid, print_silly_list(Report));
+        {info_msg, _GL, {Pid, Fmt, Args}} ->
+            ?LOGFMT(Sink, info, Pid, Fmt, Args);
+        {info_report, _GL, {Pid, std_info, D}} when is_list(D) ->
+            Details = lists:sort(D),
+            case Details of
+                {application, App}, {exited, Reason}, {type, _Type} ->
+                    case application:get_env(lager, suppress_application_start_stop, false) of
+                        true when Reason == stopped ->
+                            no_log;
+                        _ ->
+                            {Md, Formatted} = format_reason_md(Reason),
+                            ?LOGFMT(Sink, info, {pid, Pid} | Md, "Application ~w exited with reason: ~s",
+                                    App, Formatted)
+                    end;
+                _ ->
+                    ?LOGMSG(Sink, info, Pid, print_silly_list(D))
+            end;
+        {info_report, _GL, {Pid, std_info, D}} ->
+            ?LOGFMT(Sink, info, Pid, "~w", D);
+        {info_report, _GL, {P, progress, D}} ->
+            Details = lists:sort(D),
+            case Details of
+                {application, App}, {started_at, Node} ->
+                    case application:get_env(lager, suppress_application_start_stop, false) of
+                        true ->
+                            no_log;
+                        _ ->
+                            ?LOGFMT(Sink, info, P, "Application ~w started on node ~w",
+                                    App, Node)
+                    end;
+                {started, Started}, {supervisor, Name} ->
+                    case application:get_env(lager, suppress_supervisor_start_stop, false) of
+                        true ->
+                            no_log;
+                        _ ->
+                            MFA = format_mfa(get_value(mfargs, Started)),
+                            Pid = get_value(pid, Started),
+                            ?LOGFMT(Sink, debug, P, "Supervisor ~w started ~s at pid ~w",
+                                supervisor_name(Name), MFA, Pid)
+                    end;
+                _ ->
+                    ?LOGMSG(Sink, info, P, "PROGRESS REPORT " ++ print_silly_list(D))
+            end;
+        _ ->
+            ?LOGFMT(Sink, warning, self(), "Unexpected error_logger event ~w", Event)
+    end,
+    case DidLog of
+        logged ->
+            {ok, State};
+        no_log ->
+            Shaper = State#state.shaper,
+            {ok, State#state{
+                   shaper = Shaper#lager_shaper{
+                              mps = Shaper#lager_shaper.mps - 1
+                             }
+                  }
+            }
+    end.
+
+format_crash_report(Report, Neighbours) ->
+    Name = case get_value(registered_name, Report, ) of
+         ->
+            %% process_info(Pid, registered_name) returns  for unregistered processes
+            get_value(pid, Report);
+        Atom -> Atom
+    end,
+    Md0 = case get_value(dictionary, Report, ) of
+         ->
+            %% process_info(Pid, registered_name) returns  for unregistered processes
+            ;
+        Dict ->
+            %% pull the lager metadata out of the process dictionary, if we can
+            get_value('_lager_metadata', Dict, )
+    end,
+
+    {Class, Reason, Trace} = get_value(error_info, Report),
+    {Md, ReasonStr} = format_reason_md({Reason, Trace}),
+    Type = case Class of
+        exit -> "exited";
+        _ -> "crashed"
+    end,
+    {Md0 ++ Md, io_lib:format("Process ~w with ~w neighbours ~s with reason: ~s",
+        Name, length(Neighbours), Type, ReasonStr)}.
+
+format_offender(Off) ->
+    case get_value(mfargs, Off) of
+        undefined ->
+            %% supervisor_bridge
+            io_lib:format("at module ~w at ~w",
+                get_value(mod, Off), get_value(pid, Off));
+        MFArgs ->
+            %% regular supervisor
+            {_, MFA} = format_mfa_md(MFArgs),
+
+            %% In 2014 the error report changed from `name' to
+            %% `id', so try that first.
+            Name = case get_value(id, Off) of
+                       undefined ->
+                           get_value(name, Off);
+                       Id ->
+                           Id
+                   end,
+            io_lib:format("~p started with ~s at ~w",
+                Name, MFA, get_value(pid, Off))
+    end.
+
+%% backwards compatability shim
+format_reason(Reason) ->
+    element(2, format_reason_md(Reason)).
+
+-spec format_reason_md(Stacktrace:: any()) -> {Metadata:: {atom(), any()}, String :: list()}.
+format_reason_md({'function not exported', {M, F, A},MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {_, Formatted2} = format_mfa_md({M, F, length(A)}),
+    {{reason, 'function not exported'} | Md,
+     "call to undefined function ", Formatted2,
+         " from ", Formatted};
+format_reason_md({'function not exported', {M, F, A, _Props},MFA|_}) ->
+    %% R15 line numbers
+    {Md, Formatted} = format_mfa_md(MFA),
+    {_, Formatted2} = format_mfa_md({M, F, length(A)}),
+    {{reason, 'function not exported'} | Md,
+     "call to undefined function ", Formatted2,
+         " from ", Formatted};
+format_reason_md({undef, MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, undef} | Md,
+     "call to undefined function ", Formatted};
+format_reason_md({bad_return, {_MFA, {'EXIT', Reason}}}) ->
+    format_reason_md(Reason);
+format_reason_md({bad_return, {MFA, Val}}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, bad_return} | Md,
+     "bad return value ", print_val(Val), " from ", Formatted};
+format_reason_md({bad_return_value, Val}) ->
+    {{reason, bad_return},
+     "bad return value: ", print_val(Val)};
+format_reason_md({{bad_return_value, Val}, MFA}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, bad_return_value} | Md,
+     "bad return value: ", print_val(Val), " in ", Formatted};
+format_reason_md({{badrecord, Record}, MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, badrecord} | Md,
+     "bad record ", print_val(Record), " in ", Formatted};
+format_reason_md({{case_clause, Val}, MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, case_clause} | Md,
+     "no case clause matching ", print_val(Val), " in ", Formatted};
+format_reason_md({function_clause, MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, function_clause} | Md,
+     "no function clause matching ", Formatted};
+format_reason_md({if_clause, MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, if_clause} | Md,
+     "no true branch found while evaluating if expression in ", Formatted};
+format_reason_md({{try_clause, Val}, MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, try_clause} | Md,
+     "no try clause matching ", print_val(Val), " in ", Formatted};
+format_reason_md({badarith, MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, badarith} | Md,
+     "bad arithmetic expression in ", Formatted};
+format_reason_md({{badmatch, Val}, MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, badmatch} | Md,
+     "no match of right hand value ", print_val(Val), " in ", Formatted};
+format_reason_md({emfile, _Trace}) ->
+    {{reason, emfile},
+     "maximum number of file descriptors exhausted, check ulimit -n"};
+format_reason_md({system_limit, {M, F, _}|_ = Trace}) ->
+    Limit = case {M, F} of
+        {erlang, open_port} ->
+            "maximum number of ports exceeded";
+        {erlang, spawn} ->
+            "maximum number of processes exceeded";
+        {erlang, spawn_opt} ->
+            "maximum number of processes exceeded";
+        {erlang, list_to_atom} ->
+            "tried to create an atom larger than 255, or maximum atom count exceeded";
+        {ets, new} ->
+            "maximum number of ETS tables exceeded";
+        _ ->
+            {Str, _} = lager_trunc_io:print(Trace, 500),
+            Str
+    end,
+    {{reason, system_limit}, "system limit: ", Limit};
+format_reason_md({badarg, MFA,MFA2|_}) ->
+    case MFA of
+        {_M, _F, A, _Props} when is_list(A) ->
+            %% R15 line numbers
+            {Md, Formatted} = format_mfa_md(MFA2),
+            {_, Formatted2} = format_mfa_md(MFA),
+            {{reason, badarg} | Md,
+             "bad argument in call to ", Formatted2, " in ", Formatted};
+        {_M, _F, A} when is_list(A) ->
+            {Md, Formatted} = format_mfa_md(MFA2),
+            {_, Formatted2} = format_mfa_md(MFA),
+            {{reason, badarg} | Md,
+             "bad argument in call to ", Formatted2, " in ", Formatted};
+        _ ->
+            %% seems to be generated by a bad call to a BIF
+            {Md, Formatted} = format_mfa_md(MFA),
+            {{reason, badarg} | Md,
+             "bad argument in ", Formatted}
+    end;
+format_reason_md({{badarg, Stack}, _}) ->
+    format_reason_md({badarg, Stack});
+format_reason_md({{badarity, {Fun, Args}}, MFA|_}) ->
+    {arity, Arity} = lists:keyfind(arity, 1, erlang:fun_info(Fun)),
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, badarity} | Md,
+     io_lib:format("fun called with wrong arity of ~w instead of ~w in ",
+                    length(Args), Arity), Formatted};
+format_reason_md({noproc, MFA}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, noproc} | Md,
+     "no such process or port in call to ", Formatted};
+format_reason_md({{badfun, Term}, MFA|_}) ->
+    {Md, Formatted} = format_mfa_md(MFA),
+    {{reason, badfun} | Md,
+     "bad function ", print_val(Term), " in ", Formatted};
+format_reason_md({Reason, {M, F, A}|_}) when is_atom(M), is_atom(F), is_integer(A) ->
+    {Md, Formatted} = format_reason_md(Reason),
+    {_, Formatted2} = format_mfa_md({M, F, A}),
+    {Md, Formatted, " in ", Formatted2};
+format_reason_md({Reason, {M, F, A, Props}|_}) when is_atom(M), is_atom(F), is_integer(A), is_list(Props) ->
+    %% line numbers
+    {Md, Formatted} = format_reason_md(Reason),
+    {_, Formatted2} = format_mfa_md({M, F, A, Props}),
+    {Md, Formatted, " in ", Formatted2};
+format_reason_md(Reason) ->
+    {Str, _} = lager_trunc_io:print(Reason, 500),
+    {, Str}.
+
+%% backwards compatability shim
+format_mfa(MFA) ->
+    element(2, format_mfa_md(MFA)).
+
+-spec format_mfa_md(any()) -> {{atom(), any()}, list()}.
+format_mfa_md({M, F, A}) when is_list(A) ->
+    {FmtStr, Args} = format_args(A, , ),
+    {{module, M}, {function, F}, io_lib:format("~w:~w("++FmtStr++")", M, F | Args)};
+format_mfa_md({M, F, A}) when is_integer(A) ->
+    {{module, M}, {function, F}, io_lib:format("~w:~w/~w", M, F, A)};
+format_mfa_md({M, F, A, Props}) when is_list(Props) ->
+    case get_value(line, Props) of
+        undefined ->
+            format_mfa_md({M, F, A});
+        Line ->
+            {Md, Formatted} = format_mfa_md({M, F, A}),
+            {{line, Line} | Md, Formatted, io_lib:format(" line ~w", Line)}
+    end;
+format_mfa_md({M, F, A}| _) ->
+   %% this kind of weird stacktrace can be generated by a uncaught throw in a gen_server
+   format_mfa_md({M, F, A});
+format_mfa_md({M, F, A, Props}| _) when is_list(Props) ->
+   %% this kind of weird stacktrace can be generated by a uncaught throw in a gen_server
+   %% TODO we might not always want to print the first MFA we see here, often it is more helpful
+   %% to print a lower one, but it is hard to programatically decide.
+   format_mfa_md({M, F, A, Props});
+format_mfa_md(Other) ->
+    {, io_lib:format("~w", Other)}.
+
+format_args(, FmtAcc, ArgsAcc) ->
+    {string:join(lists:reverse(FmtAcc), ", "), lists:reverse(ArgsAcc)};
+format_args(H|T, FmtAcc, ArgsAcc) ->
+    {Str, _} = lager_trunc_io:print(H, 100),
+    format_args(T, "~s"|FmtAcc, Str|ArgsAcc).
+
+print_silly_list(L) when is_list(L) ->
+    case lager_stdlib:string_p(L) of
+        true ->
+            lager_trunc_io:format("~s", L, ?DEFAULT_TRUNCATION);
+        _ ->
+            print_silly_list(L, , )
+    end;
+print_silly_list(L) ->
+    {Str, _} = lager_trunc_io:print(L, ?DEFAULT_TRUNCATION),
+    Str.
+
+print_silly_list(, Fmt, Acc) ->
+    lager_trunc_io:format(string:join(lists:reverse(Fmt), ", "),
+        lists:reverse(Acc), ?DEFAULT_TRUNCATION);
+print_silly_list({K,V}|T, Fmt, Acc) ->
+    print_silly_list(T, "~p: ~p" | Fmt, V, K | Acc);
+print_silly_list(H|T, Fmt, Acc) ->
+    print_silly_list(T, "~p" | Fmt, H | Acc).
+
+print_val(Val) ->
+    {Str, _} = lager_trunc_io:print(Val, 500),
+    Str.
+
+
+%% @doc Faster than proplists, but with the same API as long as you don't need to
+%% handle bare atom keys
+get_value(Key, Value) ->
+    get_value(Key, Value, undefined).
+
+get_value(Key, List, Default) ->
+    case lists:keyfind(Key, 1, List) of
+        false -> Default;
+        {Key, Value} -> Value
+    end.
+
+supervisor_name({local, Name}) -> Name;
+supervisor_name(Name) -> Name.
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+no_silent_hwm_drops_test_() ->
+    {timeout, 10000,
+        
+            fun() ->
+                error_logger:tty(false),
+                application:load(lager),
+                application:set_env(lager, handlers, {lager_test_backend, warning}),
+                application:set_env(lager, error_logger_redirect, true),
+                application:set_env(lager, error_logger_hwm, 5),
+                application:set_env(lager, error_logger_flush_queue, false),
+                application:set_env(lager, suppress_supervisor_start_stop, true),
+                application:set_env(lager, suppress_application_start_stop, true),
+                application:unset_env(lager, crash_log),
+                lager:start(),
+                try
+                    {_, _, MS} = os:timestamp(),
+                    timer:sleep((1000000 - MS) div 1000 + 1),
+                    % start close to the beginning of a new second
+                    error_logger:error_msg("Foo ~p~n", K) || K <- lists:seq(1, 15),
+                    wait_for_message("lager_error_logger_h dropped 10 messages in the last second that exceeded the limit of 5 messages/sec", 100, 50),
+                    % and once again
+                    error_logger:error_msg("Foo1 ~p~n", K) || K <- lists:seq(1, 20),
+                    wait_for_message("lager_error_logger_h dropped 15 messages in the last second that exceeded the limit of 5 messages/sec", 100, 50)
+                after
+                    application:stop(lager),
+                    application:stop(goldrush),
+                    error_logger:tty(true)
+                end
+            end
+        
+    }.
+
+shaper_does_not_forward_sup_progress_messages_to_info_level_backend_test_() ->
+    {timeout, 10000,
+        fun() ->
+                error_logger:tty(false),
+                application:load(lager),
+                application:set_env(lager, handlers, {lager_test_backend, info}),
+                application:set_env(lager, error_logger_redirect, true),
+                application:set_env(lager, error_logger_hwm, 5),
+                application:set_env(lager, suppress_supervisor_start_stop, false),
+                application:set_env(lager, suppress_application_start_stop, false),
+                application:unset_env(lager, crash_log),
+                lager:start(),
+                try
+                    PidPlaceholder = self(),
+                    SupervisorMsg =
+                     {supervisor, {PidPlaceholder,rabbit_connection_sup}},
+                      {started,
+                          {pid, PidPlaceholder},
+                           {name,helper_sup},
+                           {mfargs,
+                               {rabbit_connection_helper_sup,start_link,}},
+                           {restart_type,intrinsic},
+                           {shutdown,infinity},
+                           {child_type,supervisor}},
+                    ApplicationExit =
+                        {application, error_logger_lager_h_test},
+                         {exited, stopped},
+                         {type, permanent},
+
+                    error_logger:info_report("This is not a progress message"),
+                    error_logger:info_report(ApplicationExit),
+                    error_logger:info_report(progress, SupervisorMsg) || _K <- lists:seq(0, 100),
+                    error_logger:info_report("This is not a progress message 2"),
+
+                    % Note: this gets logged in slow environments:
+                    % Application lager started on node nonode@nohost
+                    wait_for_count(fun lager_test_backend:count/0, 3, 4, 100, 50),
+                    % Note: this debug msg gets ignored in slow environments:
+                    % Lager installed handler lager_test_backend into lager_event
+                    wait_for_count(fun lager_test_backend:count_ignored/0, 0, 1, 100, 50)
+                after
+                    application:stop(lager),
+                    application:stop(goldrush),
+                    error_logger:tty(true)
+                end
+            end
+        
+    }.
+
+supressed_messages_are_not_counted_for_hwm_test_() ->
+    {timeout, 10000,
+        fun() ->
+                error_logger:tty(false),
+                application:load(lager),
+                application:set_env(lager, handlers, {lager_test_backend, debug}),
+                application:set_env(lager, error_logger_redirect, true),
+                application:set_env(lager, error_logger_hwm, 5),
+                application:set_env(lager, suppress_supervisor_start_stop, true),
+                application:set_env(lager, suppress_application_start_stop, true),
+                application:unset_env(lager, crash_log),
+                lager:start(),
+                try
+                    PidPlaceholder = self(),
+                    SupervisorMsg =
+                     {supervisor, {PidPlaceholder,rabbit_connection_sup}},
+                      {started,
+                          {pid, PidPlaceholder},
+                           {name,helper_sup},
+                           {mfargs,
+                               {rabbit_connection_helper_sup,start_link,}},
+                           {restart_type,intrinsic},
+                           {shutdown,infinity},
+                           {child_type,supervisor}},
+                    ApplicationExit =
+                        {application, error_logger_lager_h_test},
+                         {exited, stopped},
+                         {type, permanent},
+
+                    lager_test_backend:flush(),
+                    error_logger:info_report("This is not a progress message"),
+                    error_logger:info_report(ApplicationExit) || _K <- lists:seq(0, 100),
+                    error_logger:info_report(progress, SupervisorMsg) || _K <- lists:seq(0, 100),
+                    error_logger:info_report("This is not a progress message 2"),
+
+                    wait_for_count(fun lager_test_backend:count/0, 2, 100, 50),
+                    wait_for_count(fun lager_test_backend:count_ignored/0, 0, 100, 50)
+                after
+                    application:stop(lager),
+                    application:stop(goldrush),
+                    error_logger:tty(true)
+                end
+            end
+        
+    }.
+
+wait_for_message(Expected, Tries, Sleep) ->
+    maybe_find_expected_message(lager_test_backend:get_buffer(), Expected, Tries, Sleep).
+
+maybe_find_expected_message(_Buffer, Expected, 0, _Sleep) ->
+    throw({not_found, Expected});
+maybe_find_expected_message(, Expected, Tries, Sleep) ->
+    timer:sleep(Sleep),
+    maybe_find_expected_message(lager_test_backend:get_buffer(), Expected, Tries - 1, Sleep);
+maybe_find_expected_message({_Severity, _Date, Msg, _Metadata}|T, Expected, Tries, Sleep) ->
+    case lists:flatten(Msg) of
+        Expected ->
+            ok;
+        _ ->
+            maybe_find_expected_message(T, Expected, Tries, Sleep)
+    end.
+
+wait_for_count(Fun, _Expected, 0, _Sleep) ->
+    Actual = Fun(),
+    Msg = io_lib:format("wait_for_count: fun ~p final value: ~p~n", Fun, Actual),
+    throw({failed, Msg});
+wait_for_count(Fun, Expected, Tries, Sleep) when is_list(Expected) ->
+    Actual = Fun(),
+    case lists:member(Actual, Expected) of
+        true ->
+            ok;
+        false ->
+            timer:sleep(Sleep),
+            wait_for_count(Fun, Expected, Tries - 1, Sleep)
+    end;
+wait_for_count(Fun, Expected, Tries, Sleep) ->
+    case Fun() of
+        Expected ->
+            ok;
+        _ ->
+            timer:sleep(Sleep),
+            wait_for_count(Fun, Expected, Tries - 1, Sleep)
+    end.
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/src/lager.app.src Added

@@ -0,0 +1,66 @@
+%% -*- tab-width: 4;erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% ex: ts=4 sw=4 et
+{application, lager,
+ 
+  {description, "Erlang logging framework"},
+  {vsn, "3.9.1"},
+  {modules, },
+  {applications, 
+                  kernel,
+                  stdlib,
+                  goldrush
+                 },
+  {registered, lager_sup, lager_event, lager_crash_log, lager_handler_watcher_sup},
+  {mod, {lager_app, }},
+  {env, 
+            %% Note: application:start(lager) overwrites previously defined environment variables
+            %%       thus declaration of default handlers is done at lager_app.erl
+
+            %% What colors to use with what log levels
+            {colored, false},
+            {colors, 
+              {debug,     "\e0;38m" },
+              {info,      "\e1;37m" },
+              {notice,    "\e1;36m" },
+              {warning,   "\e1;33m" },
+              {error,     "\e1;31m" },
+              {critical,  "\e1;35m" },
+              {alert,     "\e1;44m" },
+              {emergency, "\e1;41m" }
+
+            },
+
+            %% Where to write the logs
+            {log_root, "log"},
+            %% Whether to write a crash log, and where. False means no crash logger.
+            {crash_log, "crash.log"},
+            %% Maximum size in bytes of events in the crash log - defaults to 65536
+            {crash_log_msg_size, 65536},
+            %% Maximum size of the crash log in bytes, before its rotated, set
+            %% to 0 to disable rotation - default is 0
+            {crash_log_size, 10485760},
+            %% What time to rotate the crash log - default is no time
+            %% rotation. See the README for a description of this format.
+            {crash_log_date, "$D0"},
+            %% Number of rotated crash logs to keep, 0 means keep only the
+            %% current one - default is 0
+            {crash_log_count, 5},
+            %% Crash Log Rotator Module - default is lager_rotator_default
+            {crash_log_rotator, lager_rotator_default},
+            %% Whether to redirect error_logger messages into the default lager_event sink - defaults to true
+            {error_logger_redirect, true},
+            %% How many messages per second to allow from error_logger before we start dropping them
+            {error_logger_hwm, 50},
+            %% How big the gen_event mailbox can get before it is
+            %% switched into sync mode.  This value only applies to
+            %% the default sink; extra sinks can supply their own.
+            {async_threshold, 20},
+            %% Switch back to async mode, when gen_event mailbox size
+            %% decrease from `async_threshold' to async_threshold -
+            %% async_threshold_window. This value only applies to the
+            %% default sink; extra sinks can supply their own.
+            {async_threshold_window, 5}
+        },
+  {licenses, "Apache 2"},
+  {links, {"Github", "https://github.com/erlang-lager/lager"}}
+ }.

osmo-diameter2gsup_0.3.0.tar.xz/_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) ->
+    dispatch_log(Level, Metadata, Message, , ?DEFAULT_TRUNCATION).
+
+%% @doc Manually log a message into lager without using the parse transform.
+-spec log(log_level(), pid() | atom() | tuple(),..., string(), list()) -> ok | {error, lager_not_running}.
+log(Level, Pid, Format, Args) when is_pid(Pid); is_atom(Pid) ->
+    dispatch_log(Level, {pid,Pid}, Format, Args, ?DEFAULT_TRUNCATION);
+log(Level, Metadata, Format, Args) when is_list(Metadata) ->
+    dispatch_log(Level, Metadata, Format, Args, ?DEFAULT_TRUNCATION).
+
+log_unsafe(Level, Metadata, Format, Args) when is_list(Metadata) ->
+    dispatch_log(?DEFAULT_SINK, Level, Metadata, Format, Args, ?DEFAULT_TRUNCATION, unsafe).
+
+
+%% @doc Manually log a message into lager without using the parse transform.
+-spec log(atom(), log_level(), pid() | atom() | tuple(),..., string(), list()) -> ok | {error, lager_not_running}.
+log(Sink, Level, Pid, Format, Args) when is_pid(Pid); is_atom(Pid) ->
+    dispatch_log(Sink, Level, {pid,Pid}, Format, Args, ?DEFAULT_TRUNCATION, safe);
+log(Sink, Level, Metadata, Format, Args) when is_list(Metadata) ->
+    dispatch_log(Sink, Level, Metadata, Format, Args, ?DEFAULT_TRUNCATION, safe).
+
+validate_trace_filters(Filters, Level, Backend) ->
+    Sink = proplists:get_value(sink, Filters, ?DEFAULT_SINK),
+    {Sink,
+     lager_util:validate_trace({
+                                 proplists:delete(sink, Filters),
+                                 Level,
+                                 Backend
+                               })
+    }.
+
+trace_file(File, Filter) ->
+    trace_file(File, Filter, debug, ).
+
+trace_file(File, Filter, Level) when is_atom(Level) ->
+    trace_file(File, Filter, Level, );
+
+trace_file(File, Filter, Options) when is_list(Options) ->
+    trace_file(File, Filter, debug, Options).
+
+trace_file(File, Filter, Level, Options) ->
+    FileName = lager_util:expand_path(File),
+    case validate_trace_filters(Filter, Level, {lager_file_backend, FileName}) of
+        {Sink, {ok, Trace}} ->
+            Handlers = lager_config:global_get(handlers, ),
+            %% check if this file backend is already installed
+            Res = case lager_util:find_file(FileName, Handlers) of
+                      false ->
+                          %% install the handler
+                          LogFileConfig =
+                              lists:keystore(level, 1,
+                                             lists:keystore(file, 1,
+                                                            Options,
+                                                            {file, FileName}),
+                                             {level, none}),
+                          HandlerInfo =
+                              lager_app:start_handler(Sink, {lager_file_backend, FileName},
+                                                      LogFileConfig),
+                          lager_config:global_set(handlers, HandlerInfo|Handlers),
+                          {ok, installed};
+                      {_Watcher, _Handler, Sink} ->
+                          {ok, exists};
+                      {_Watcher, _Handler, _OtherSink} ->
+                          {error, file_in_use}
+            end,
+            case Res of
+              {ok, _} ->
+                add_trace_to_loglevel_config(Trace, Sink),
+                {ok, {{lager_file_backend, FileName}, Filter, Level}};
+              {error, _} = E ->
+                E
+            end;
+        {_Sink, Error} ->
+            Error
+    end.
+
+trace_console(Filter) ->
+    trace_console(Filter, debug).
+
+trace_console(Filter, Level) ->
+    trace(lager_console_backend, Filter, Level).
+
+trace(Backend, Filter) ->
+    trace(Backend, Filter, debug).
+
+trace({lager_file_backend, File}, Filter, Level) ->
+    trace_file(File, Filter, Level);
+
+trace(Backend, Filter, Level) ->
+    case validate_trace_filters(Filter, Level, Backend) of
+        {Sink, {ok, Trace}} ->
+            add_trace_to_loglevel_config(Trace, Sink),
+            {ok, {Backend, Filter, Level}};
+        {_Sink, Error} ->
+            Error
+    end.
+
+stop_trace(Backend, Filter, Level) ->
+    case validate_trace_filters(Filter, Level, Backend) of
+        {Sink, {ok, Trace}} ->
+            stop_trace_int(Trace, Sink);
+        {_Sink, Error} ->
+            Error
+    end.
+
+stop_trace({Backend, Filter, Level}) ->
+    stop_trace(Backend, Filter, Level).
+
+%% Important: validate_trace_filters orders the arguments of
+%% trace tuples differently than the way outside callers have
+%% the trace tuple.
+%%
+%% That is to say, outside they are represented as 
+%% `{Backend, Filter, Level}'
+%%
+%% and when they come back from validation, they're
+%% `{Filter, Level, Backend}'
+stop_trace_int({_Filter, _Level, Backend} = Trace, Sink) ->
+    {Level, Traces} = lager_config:get({Sink, loglevel}),
+    NewTraces =  lists:delete(Trace, Traces),
+    _ = lager_util:trace_filter( element(1, T) || T <- NewTraces ),
+    %MinLevel = minimum_loglevel(get_loglevels() ++ get_trace_levels(NewTraces)),
+    lager_config:set({Sink, loglevel}, {Level, NewTraces}),
+    case get_loglevel(Sink, Backend) of
+        none ->
+            %% check no other traces point here
+            case lists:keyfind(Backend, 3, NewTraces) of
+                false ->
+                    gen_event:delete_handler(Sink, Backend, ),
+                    lager_config:global_set(handlers,
+                                            lists:keydelete(Backend, 1,
+                                                            lager_config:global_get(handlers)));
+                _ ->
+                    ok
+            end;
+        _ ->
+            ok
+    end,
+    ok.
+
+list_all_sinks() ->
+    sets:to_list(
+      lists:foldl(fun({_Watcher, _Handler, Sink}, Set) ->
+                          sets:add_element(Sink, Set)
+                  end,
+                  sets:new(),
+                  lager_config:global_get(handlers, ))).
+
+clear_traces_by_sink(Sinks) ->
+    lists:foreach(fun(S) ->
+                          {Level, _Traces} =
+                              lager_config:get({S, loglevel}),
+                          lager_config:set({S, loglevel},
+                                           {Level, })
+                  end,
+                  Sinks).
+
+clear_trace_by_destination(ID) ->
+    Sinks = lists:sort(list_all_sinks()),
+    Traces = find_traces(Sinks),
+     stop_trace_int({Filter, Level, Destination}, Sink) || {Sink, {Filter, Level, Destination}} <- Traces, Destination == ID.
+
+
+clear_all_traces() ->
+    Handlers = lager_config:global_get(handlers, ),
+    clear_traces_by_sink(list_all_sinks()),
+    _ = lager_util:trace_filter(none),
+    lager_config:global_set(handlers,
+                            lists:filter(
+      fun({Handler, _Watcher, Sink}) ->
+              case get_loglevel(Sink, Handler) of
+                  none ->
+                      gen_event:delete_handler(Sink, Handler, ),
+                      false;
+                  _ ->
+                      true
+              end
+      end, Handlers)).
+
+find_traces(Sinks) ->
+    lists:foldl(fun(S, Acc) ->
+                        {_Level, Traces} = lager_config:get({S, loglevel}),
+                        Acc ++ lists:map(fun(T) -> {S, T} end, Traces)
+                end,
+                ,
+                Sinks).
+
+status() ->
+    Handlers = lager_config:global_get(handlers, ),
+    Sinks = lists:sort(list_all_sinks()),
+    Traces = find_traces(Sinks),
+    TraceCount = case length(Traces) of
+        0 -> 1;
+        N -> N
+    end,
+    Status = "Lager status:\n",
+        begin
+             Level = get_loglevel(Sink, Handler),
+             get_sink_handler_status(Sink, Handler, Level)
+         end || {Handler, _Watcher, Sink} <- lists:sort(fun({_, _, S1},
+                                                            {_, _, S2}) -> S1 =< S2 end,
+                                                        Handlers),
+        "Active Traces:\n",
+        begin
+             LevelName = case Level of
+                 {mask, Mask} ->
+                     case lager_util:mask_to_levels(Mask) of
+                          -> none;
+                         Levels -> hd(Levels)
+                     end;
+                 Num ->
+                     lager_util:num_to_level(Num)
+             end,
+             io_lib:format("Tracing messages matching ~p (sink ~s) at level ~p to ~p\n",
+                           Filter, Sink, LevelName, Destination)
+         end || {Sink, {Filter, Level, Destination}} <- Traces,
+         
+         "Tracing Reductions:\n",
+            case ?DEFAULT_TRACER:info('query') of
+                {null, false} -> "";
+                Query -> io_lib:format("~p~n", Query)
+            end
+         ,
+         
+          "Tracing Statistics:\n ",
+               begin
+                    " ", atom_to_list(Table), ": ",
+                     integer_to_list(?DEFAULT_TRACER:info(Table) div TraceCount),
+                     "\n"
+                end || Table <- input, output, filter 
+         ,
+    io:put_chars(Status).
+
+get_sink_handler_status(Sink, Handler, Level) ->
+    case Handler of
+        {lager_file_backend, File} ->
+            io_lib:format("File ~ts (~s) at level ~p\n", File, Sink, Level);
+        lager_console_backend ->
+            io_lib:format("Console (~s) at level ~p\n", Sink, Level);
+        _ ->
+            
+    end.
+
+%% @doc Set the loglevel for a particular backend.
+set_loglevel(Handler, Level) when is_atom(Level) ->
+    set_loglevel(?DEFAULT_SINK, Handler, undefined, Level).
+
+%% @doc Set the loglevel for a particular backend that has multiple identifiers
+%% (eg. the file backend).
+set_loglevel(Handler, Ident, Level) when is_atom(Level) ->
+    set_loglevel(?DEFAULT_SINK, Handler, Ident, Level).
+
+%% @doc Set the loglevel for a particular sink's backend that potentially has
+%% multiple identifiers. (Use `undefined' if it doesn't have any.)
+set_loglevel(Sink, Handler, Ident, Level) when is_atom(Level) ->
+    HandlerArg = case Ident of
+        undefined -> Handler;
+        _ -> {Handler, Ident}
+    end,
+    Reply = gen_event:call(Sink, HandlerArg, {set_loglevel, Level}, infinity),
+    update_loglevel_config(Sink),
+    Reply.
+
+
+%% @doc Get the loglevel for a particular backend on the default sink. In the case that the backend
+%% has multiple identifiers, the lowest is returned.
+get_loglevel(Handler) ->
+    get_loglevel(?DEFAULT_SINK, Handler).
+
+%% @doc Get the loglevel for a particular sink's backend. In the case that the backend
+%% has multiple identifiers, the lowest is returned.
+get_loglevel(Sink, Handler) ->
+    case gen_event:call(Sink, Handler, get_loglevel, infinity) of
+        {mask, Mask} ->
+            case lager_util:mask_to_levels(Mask) of
+                 -> none;
+                Levels -> hd(Levels)
+            end;
+        X when is_integer(X) ->
+            lager_util:num_to_level(X);
+        Y -> Y
+    end.
+
+%% @doc Try to convert an atom to a posix error, but fall back on printing the
+%% term if its not a valid posix error code.
+posix_error(Error) when is_atom(Error) ->
+    case erl_posix_msg:message(Error) of
+        "unknown POSIX error" -> atom_to_list(Error);
+        Message -> Message
+    end;
+posix_error(Error) ->
+    safe_format_chop("~p", Error, ?DEFAULT_TRUNCATION).
+
+%% @private
+get_loglevels(Sink) ->
+    gen_event:call(Sink, Handler, get_loglevel, infinity) ||
+        Handler <- gen_event:which_handlers(Sink).
+
+%% @doc Set the loghwm for the default sink.
+set_loghwm(Handler, Hwm) when is_integer(Hwm) ->
+    set_loghwm(?DEFAULT_SINK, Handler, Hwm).
+
+%% @doc Set the loghwm for a particular backend.
+set_loghwm(Sink, Handler, Hwm) when is_integer(Hwm) ->
+    gen_event:call(Sink, Handler, {set_loghwm, Hwm}, infinity).
+
+%% @doc Set the loghwm (log high water mark) for file backends with multiple identifiers
+set_loghwm(Sink, Handler, Ident, Hwm) when is_integer(Hwm) ->
+    gen_event:call(Sink, {Handler, Ident}, {set_loghwm, Hwm}, infinity).
+
+%% @private
+add_trace_to_loglevel_config(Trace, Sink) ->
+    {MinLevel, Traces} = lager_config:get({Sink, loglevel}),
+    case lists:member(Trace, Traces) of
+        false ->
+            NewTraces = Trace|Traces,
+            _ = lager_util:trace_filter( element(1, T) || T <- NewTraces),
+            lager_config:set({Sink, loglevel}, {MinLevel, Trace|Traces});
+        _ ->
+            ok
+    end.
+
+%% @doc recalculate min log level
+update_loglevel_config(error_logger) ->
+    %% Not a sink under our control, part of the Erlang logging
+    %% utility that error_logger_lager_h attaches to
+    true;
+update_loglevel_config(Sink) ->
+    {_, Traces} = lager_config:get({Sink, loglevel}, {ignore_me, }),
+    MinLog = minimum_loglevel(get_loglevels(Sink)),
+    lager_config:set({Sink, loglevel}, {MinLog, Traces}).
+
+%% @private
+minimum_loglevel(Levels) ->
+    lists:foldl(fun({mask, Mask}, Acc) ->
+                Mask bor Acc;
+            (Level, Acc) when is_integer(Level) ->
+                {mask, Mask} = lager_util:config_to_mask(lager_util:num_to_level(Level)),
+                Mask bor Acc;
+            (_, Acc) ->
+                Acc
+        end, 0, Levels).
+
+%% @doc Print the format string `Fmt' with `Args' safely with a size
+%% limit of `Limit'. If the format string is invalid, or not enough
+%% arguments are supplied 'FORMAT ERROR' is printed with the offending
+%% arguments. The caller is NOT crashed.
+
+safe_format(Fmt, Args, Limit) ->
+    safe_format(Fmt, Args, Limit, ).
+
+safe_format(Fmt, Args, Limit, Options) ->
+    try lager_trunc_io:format(Fmt, Args, Limit, Options)
+    catch
+        _:_ -> lager_trunc_io:format("FORMAT ERROR: ~p ~p", Fmt, Args, Limit)
+    end.
+
+%% @private
+safe_format_chop(Fmt, Args, Limit) ->
+    safe_format(Fmt, Args, Limit, {chomp, true}).
+
+%% @private Print the format string `Fmt' with `Args' without a size limit.
+%% This is unsafe because the output of this function is unbounded.
+%%
+%% Log messages with unbounded size will kill your application dead as
+%% OTP mechanisms stuggle to cope with them.  So this function is
+%% intended <b>only</b> for messages which have a reasonable bounded
+%% size before they're formatted.
+%%
+%% If the format string is invalid or not enough arguments are
+%% supplied a 'FORMAT ERROR' message is printed instead with the
+%% offending arguments. The caller is NOT crashed.
+unsafe_format(Fmt, Args) ->
+    try io_lib:format(Fmt, Args)
+    catch
+        _:_ -> io_lib:format("FORMAT ERROR: ~p ~p", Fmt, Args)
+    end.
+
+%% @doc Print a record or a list of records lager found during parse transform
+pr(Record, Module) when is_tuple(Record), is_atom(element(1, Record)) ->
+    pr(Record, Module, );
+pr(List, Module) when is_list(List) ->
+    pr(List, Module, );
+pr(Record, _) ->
+    Record.
+
+%% @doc Print a record or a list of records lager found during parse transform
+pr(Record, Module, Options) when is_tuple(Record), is_atom(element(1, Record)), is_list(Options) ->
+    try 
+        case is_record_known(Record, Module) of
+            false ->
+                Record;
+            {RecordName, RecordFields} ->
+                {'$lager_record', RecordName, 
+                    zip(RecordFields, tl(tuple_to_list(Record)), Module, Options, )}
+        end
+    catch
+        error:undef ->
+            Record
+    end;
+pr(Head|Tail, Module, Options) when is_list(Options) ->
+    pr(Head, Module, Options)|pr(Tail, Module, Options);
+pr(Record, _, _) ->
+    Record.
+
+zip(FieldName|RecordFields, FieldValue|Record, Module, Options, ToReturn) when is_list(FieldValue) ->
+    zip(RecordFields, Record, Module, Options,
+        {FieldName, pr(FieldValue, Module, Options)}|ToReturn);
+zip(FieldName|RecordFields, FieldValue|Record, Module, Options, ToReturn) ->
+    Compress = lists:member(compress, Options),
+    case   is_tuple(FieldValue) andalso
+           tuple_size(FieldValue) > 0 andalso
+           is_atom(element(1, FieldValue)) andalso
+           is_record_known(FieldValue, Module) of
+        false when Compress andalso FieldValue =:= undefined ->
+            zip(RecordFields, Record, Module, Options, ToReturn);
+        false ->
+            zip(RecordFields, Record, Module, Options, {FieldName, FieldValue}|ToReturn);
+        _Else ->
+            F = {FieldName, pr(FieldValue, Module, Options)},
+            zip(RecordFields, Record, Module, Options, F|ToReturn)
+    end;
+zip(, , _Module, _Compress, ToReturn) ->
+    lists:reverse(ToReturn).
+
+is_record_known(Record, Module) ->
+    Name = element(1, Record),
+    Attrs = Module:module_info(attributes),
+    case lists:keyfind(lager_records, 1, Attrs) of
+        false -> false;
+        {lager_records, Records} ->
+            case lists:keyfind(Name, 1, Records) of
+                false -> false;
+                {Name, RecordFields} ->
+                    case (tuple_size(Record) - 1) =:= length(RecordFields) of
+                        false -> false;
+                        true -> {Name, RecordFields}
+                    end
+            end
+    end.
+
+
+%% @doc Print stacktrace in human readable form
+pr_stacktrace(Stacktrace) ->
+    Stacktrace1 = case application:get_env(lager, reverse_pretty_stacktrace, true) of
+                      true ->
+                          lists:reverse(Stacktrace);
+                      _ ->
+                          Stacktrace
+                  end,
+    pr_stacktrace_(Stacktrace1).
+
+pr_stacktrace_(Stacktrace) ->
+    Indent = "\n    ",
+    lists:foldl(
+        fun(Entry, Acc) ->
+            Acc ++ Indent ++ error_logger_lager_h:format_mfa(Entry)
+        end,
+        ,
+        Stacktrace).
+
+pr_stacktrace(Stacktrace, {Class, Reason}) ->
+    case application:get_env(lager, reverse_pretty_stacktrace, true) of
+        true ->
+            lists:flatten(
+              pr_stacktrace_(lists:reverse(Stacktrace)) ++ "\n" ++ io_lib:format("~s:~p", Class, Reason));
+        _ ->
+            lists:flatten(
+              io_lib:format("~s:~p", Class, Reason) ++ pr_stacktrace_(Stacktrace))
+    end.
+
+rotate_sink(Sink) ->
+    Handlers = lager_config:global_get(handlers),
+    RotateHandlers = lists:filtermap(
+        fun({Handler,_,S}) when S == Sink -> {true, {Handler, Sink}};
+           (_)                            -> false 
+        end, 
+        Handlers),
+    rotate_handlers(RotateHandlers).
+
+rotate_all() -> 
+    rotate_handlers(lists:map(fun({H,_,S}) -> {H, S} end,
+                              lager_config:global_get(handlers))).
+
+
+rotate_handlers(Handlers) ->
+     rotate_handler(Handler, Sink) || {Handler, Sink} <- Handlers .
+
+
+rotate_handler(Handler) ->
+    Handlers = lager_config:global_get(handlers),
+    case lists:keyfind(Handler, 1, Handlers) of
+        {Handler, _, Sink} -> rotate_handler(Handler, Sink);
+        false              -> ok
+    end.
+
+rotate_handler(Handler, Sink) ->
+    gen_event:call(Sink, Handler, rotate, ?ROTATE_TIMEOUT).
+
+%% @private
+trace_func(#trace_func_state_v1{pid=Pid, level=Level, format_string=Fmt}=FuncState, Event, ProcState) ->
+    _ = lager:log(Level, Pid, Fmt, Event, ProcState),
+    check_timeout(decrement_count(FuncState)).
+
+%% @private
+trace_state(Pid, Level, Options) ->
+    #trace_func_state_v1{pid=Pid,
+                         level=Level,
+                         count=proplists:get_value(count, Options, infinity),
+                         timeout=proplists:get_value(timeout, Options, infinity),
+                         format_string=proplists:get_value(format_string, Options, "TRACE ~p ~p")}.
+
+decrement_count(#trace_func_state_v1{count=infinity} = FuncState) ->
+    FuncState;
+decrement_count(#trace_func_state_v1{count=1}) ->
+    %% hit the counter limit
+    done;
+decrement_count(#trace_func_state_v1{count=Count} = FuncState) ->
+    FuncState#trace_func_state_v1{count=Count - 1}.
+
+check_timeout(#trace_func_state_v1{timeout=infinity} = FuncState) ->
+    FuncState;
+check_timeout(#trace_func_state_v1{timeout=Timeout, started=Started} = FuncState) ->
+    case (timer:now_diff(os:timestamp(), Started) / 1000) > Timeout of
+        true ->
+            done;
+        false ->
+            FuncState
+    end.
+
+-ifdef(TEST).
+get_sink_handler_status_ascii_test() ->
+    File = "C:\\ProgramData\\Directory With Spaces\\lager.log",
+    validate_status(File).
+
+get_sink_handler_status_latin_test() ->
+    File = "C:\\ProgramData\\Tést Directory\\lager.log",
+    validate_status(File).
+
+get_sink_handler_status_unicode_test() ->
+    File = "C:\\ProgramData\\찦차를 타고 온 펲시맨과 쑛다리 똠방각하 (Korean)\\lager.log",
+    validate_status(File).
+
+validate_status(File) ->
+    Handler = {lager_file_backend, File},
+    Status = get_sink_handler_status(?DEFAULT_SINK, Handler, debug),
+    ?assertNotEqual(nomatch, string:find(Status, File)).
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_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) ->
+    lager_config:new_sink(Sink),
+    ChildId = lager_util:make_internal_sink_name(Sink),
+    _ = supervisor:start_child(lager_sup,
+                               {ChildId,
+                                {gen_event, start_link,
+                                 {local, Sink}},
+                                permanent, 5000, worker, dynamic}),
+    determine_async_behavior(Sink, proplists:get_value(async_threshold, SinkDef),
+                             proplists:get_value(async_threshold_window, SinkDef)
+                            ),
+    _ = maybe_install_sink_killer(Sink, proplists:get_value(killer_hwm, SinkDef),
+                              proplists:get_value(killer_reinstall_after, SinkDef)),
+    start_handlers(Sink,
+                   proplists:get_value(handlers, SinkDef, )),
+
+    lager:update_loglevel_config(Sink).
+
+
+configure_extra_sinks(Sinks) ->
+    lists:foreach(fun({Sink, Proplist}) -> configure_sink(Sink, Proplist) end,
+                  Sinks).
+
+-spec get_env(atom(), atom(), term()) -> term().
+get_env(Application, Key, Default) ->
+    application:get_env(Application, Key, Default).
+
+start(_StartType, _StartArgs) ->
+    {ok, Pid} = lager_sup:start_link(),
+    SavedHandlers = boot(),
+    _ = boot('__all_extra'),
+    _ = boot('__traces'),
+    clean_up_config_checks(),
+    {ok, Pid, SavedHandlers}.
+
+boot() ->
+    %% Handle the default sink.
+    determine_async_behavior(?DEFAULT_SINK,
+                             application:get_env(lager, async_threshold, undefined),
+                             application:get_env(lager, async_threshold_window, undefined)),
+
+    _ = maybe_install_sink_killer(?DEFAULT_SINK, application:get_env(lager, killer_hwm, undefined),
+                                  application:get_env(lager, killer_reinstall_after, undefined)),
+
+    start_handlers(?DEFAULT_SINK,
+                   application:get_env(lager, handlers, ?DEFAULT_HANDLER_CONF)),
+
+    lager:update_loglevel_config(?DEFAULT_SINK),
+
+    SavedHandlers = start_error_logger_handler(
+                      application:get_env(lager, error_logger_redirect, true),
+                      interpret_hwm(application:get_env(lager, error_logger_hwm, 0)),
+                      application:get_env(lager, error_logger_whitelist, )
+                     ),
+
+    SavedHandlers.
+
+boot('__traces') ->
+    _ = lager_util:trace_filter(none),
+    ok = add_configured_traces();
+
+boot('__all_extra') ->
+    configure_extra_sinks(application:get_env(lager, extra_sinks, ));
+
+boot(?DEFAULT_SINK) -> boot();
+boot(Sink) ->
+    AllSinksDef = application:get_env(lager, extra_sinks, ),
+    boot_sink(Sink, lists:keyfind(Sink, 1, AllSinksDef)).
+
+boot_sink(Sink, {Sink, Def}) ->
+    configure_sink(Sink, Def);
+boot_sink(Sink, false) ->
+    configure_sink(Sink, ).
+
+stop(Handlers) ->
+    lists:foreach(fun(Handler) ->
+          error_logger:add_report_handler(Handler)
+      end, Handlers),
+    lager_config:cleanup().
+
+expand_handlers() ->
+    ;
+expand_handlers({lager_file_backend, {Key, _Value}|_=Config}|T) when is_atom(Key) ->
+    %% this is definitely a new-style config, no expansion needed
+    maybe_make_handler_id(lager_file_backend, Config) | expand_handlers(T);
+expand_handlers({lager_file_backend, Configs}|T) ->
+    ?INT_LOG(notice, "Deprecated lager_file_backend config detected, please consider updating it", ),
+     {lager_file_backend:config_to_id(Config), Config} || Config <- Configs ++
+      expand_handlers(T);
+expand_handlers({Mod, Config}|T) when is_atom(Mod) ->
+    maybe_make_handler_id(Mod, Config) | expand_handlers(T);
+expand_handlers(H|T) ->
+    H | expand_handlers(T).
+
+add_configured_traces() ->
+    Traces = case application:get_env(lager, traces) of
+        undefined ->
+            ;
+        {ok, TraceVal} ->
+            TraceVal
+    end,
+
+    lists:foreach(fun start_configured_trace/1, Traces),
+    ok.
+
+start_configured_trace({Handler, Filter}) ->
+    {ok, _} = lager:trace(Handler, Filter);
+start_configured_trace({Handler, Filter, Level}) when is_atom(Level) ->
+    {ok, _} = lager:trace(Handler, Filter, Level).
+
+maybe_make_handler_id(Mod, Config) ->
+    %% Allow the backend to generate a gen_event handler id, if it wants to.
+    %% We don't use erlang:function_exported here because that requires the module
+    %% already be loaded, which is unlikely at this phase of startup. Using code:load
+    %% caused undesirable side-effects with generating code-coverage reports.
+    try Mod:config_to_id(Config) of
+        Id ->
+            {Id, Config}
+    catch
+        error:undef ->
+            {Mod, Config}
+    end.
+
+-ifdef(TEST).
+application_config_mangling_test_() ->
+    
+        {"Explode the file backend handlers",
+            ?_assertMatch(
+                {lager_console_backend, {level, info}},
+                    {{lager_file_backend,"error.log"},{"error.log",error,10485760, "$D0",5}},
+                    {{lager_file_backend,"console.log"},{"console.log",info,10485760, "$D0",5}}
+                ,
+                expand_handlers({lager_console_backend, {level, info}},
+                        {lager_file_backend, 
+                                {"error.log", error, 10485760, "$D0", 5},
+                                {"console.log", info, 10485760, "$D0", 5}
+                            }
+                ))
+        },
+        {"Explode the short form of backend file handlers",
+            ?_assertMatch(
+                {lager_console_backend, {level, info}},
+                    {{lager_file_backend,"error.log"},{"error.log",error}},
+                    {{lager_file_backend,"console.log"},{"console.log",info}}
+                ,
+                expand_handlers({lager_console_backend, {level, info}},
+                        {lager_file_backend, 
+                                {"error.log", error},
+                                {"console.log", info}
+                            }
+                ))
+        },
+        {"Explode with formatter info",
+            ?_assertMatch(
+                {{lager_file_backend,"test.log"},  {"test.log", debug, 10485760, "$D0", 5},{lager_default_formatter,"",severity," ", message, "\n"}},
+                    {{lager_file_backend,"test2.log"}, {"test2.log",debug, 10485760, "$D0", 5},{lager_default_formatter,"2>",severity," ", message, "\n"}},
+                expand_handlers({lager_file_backend, 
+                                {"test.log", debug, 10485760, "$D0", 5},{lager_default_formatter,"",severity," ", message, "\n"},
+                                {"test2.log",debug, 10485760, "$D0", 5},{lager_default_formatter,"2>",severity," ",message, "\n"}
+                            
+                        })
+            )
+        },
+        {"Explode short form with short formatter info",
+            ?_assertMatch(
+                {{lager_file_backend,"test.log"},  {"test.log", debug},{lager_default_formatter,"",severity," ", message, "\n"}},
+                    {{lager_file_backend,"test2.log"}, {"test2.log",debug},{lager_default_formatter}},
+                expand_handlers({lager_file_backend, 
+                                {"test.log", debug},{lager_default_formatter,"",severity," ", message, "\n"},
+                                {"test2.log",debug},{lager_default_formatter}
+                            
+                        })
+            )
+        },
+        {"New form needs no expansion",
+            ?_assertMatch(
+                    {{lager_file_backend,"test.log"},  {file, "test.log"}},
+                    {{lager_file_backend,"test2.log"}, {file, "test2.log"}, {level, info}, {sync_on, none}},
+                    {{lager_file_backend,"test3.log"}, {formatter, lager_default_formatter}, {file, "test3.log"}}
+                ,
+                expand_handlers(
+                        {lager_file_backend, {file, "test.log"}},
+                        {lager_file_backend, {file, "test2.log"}, {level, info}, {sync_on, none}},
+                        {lager_file_backend, {formatter, lager_default_formatter},{file, "test3.log"}}
+                    )
+            )
+        }
+    .
+
+check_handler_config_test_() ->
+    Good = expand_handlers(?DEFAULT_HANDLER_CONF),
+    Bad  = expand_handlers({lager_console_backend, {level, info}},
+            {lager_file_backend, {file, "same_file.log"}},
+            {lager_file_backend, {file, "same_file.log"}, {level, info}}),
+    AlsoBad = {lager_logstash_backend,
+                                    {level, info},
+                                    {output, {udp, "localhost", 5000}},
+                                    {format, json},
+                                    {json_encoder, jiffy}},
+    BadToo = {fail, {fail}},
+    OldSchoolLagerGood = expand_handlers({lager_console_backend, {level, info}},
+                                          {lager_file_backend, 
+                                              {"./log/error.log",error,10485760,"$D0",5},
+                                              {"./log/console.log",info,10485760,"$D0",5},
+                                              {"./log/debug.log",debug,10485760,"$D0",5}
+                                          }),
+    NewConfigMissingList = expand_handlers({foo_backend, {file, "same_file.log"}}),
+    
+        {"lager_file_backend_good",
+         ?_assertEqual(ok, ok, ok,  check_handler_config(M,C) || {M,C} <- Good )
+        },
+        {"lager_file_backend_bad",
+         ?_assertThrow({error, bad_config},  check_handler_config(M,C) || {M,C} <- Bad )
+        },
+        {"Invalid config dies",
+         ?_assertThrow({error, bad_config}, start_handlers(foo, AlsoBad))
+        },
+        {"Invalid config dies",
+         ?_assertThrow({error, {bad_config, _}}, start_handlers(foo, BadToo))
+        },
+        {"Old Lager config works",
+         ?_assertEqual(ok, ok, ok, ok,  check_handler_config(M, C) || {M, C} <- OldSchoolLagerGood)
+        },
+        {"New Config missing its list should fail",
+         ?_assertThrow({error, {bad_config, foo_backend}},  check_handler_config(M, C) || {M, C} <- NewConfigMissingList)
+        }
+    .
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_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.

osmo-diameter2gsup_0.3.0.tar.xz/_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)}.

osmo-diameter2gsup_0.3.0.tar.xz/_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.
+

osmo-diameter2gsup_0.3.0.tar.xz/_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.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+eol() ->
+    case application:get_env(lager, colored) of
+        {ok, true}  ->
+            "\e0m\r\n";
+        _ ->
+            "\r\n"
+    end.
+
+-ifdef(TEST).
+is_new_style_console_available() ->
+    true.
+-else.
+is_new_style_console_available() ->
+    %% Criteria:
+    %% 1. If the user has specified '-noshell' on the command line,
+    %%    then we will pretend that the new-style console is available.
+    %%    If there is no shell at all, then we don't have to worry
+    %%    about log events being blocked by the old-style shell.
+    %% 2. Windows doesn't support the new shell, so all windows users
+    %%    have is the oldshell.
+    %% 3. If the user_drv process is registered, all is OK.
+    %%    'user_drv' is a registered proc name used by the "new"
+    %%    console driver.
+    init:get_argument(noshell) /= error orelse
+        element(1, os:type()) /= win32 orelse
+        is_pid(whereis(user_drv)).
+-endif.
+
+-ifdef(TEST).
+console_config_validation_test_() ->
+    Good = {level, info}, {use_stderr, true},
+    Bad1 = {level, foo}, {use_stderr, flase},
+    Bad2 = {level, info}, {use_stderr, flase},
+    AllGood = {level, info}, {formatter, my_formatter},
+               {formatter_config, "blort", "garbage"},
+               {use_stderr, false},
+    
+     ?_assertEqual(true, validate_options(Good)),
+     ?_assertThrow({error, {fatal, {bad_level, foo}}}, validate_options(Bad1)),
+     ?_assertThrow({error, {fatal, {bad_console_config, {use_stderr, flase}}}}, validate_options(Bad2)),
+     ?_assertEqual(true, validate_options(AllGood))
+    .
+
+console_log_test_() ->
+    %% tiny recursive fun that pretends to be a group leader
+    F = fun(Self) ->
+            fun() ->
+                    YComb = fun(Fun) ->
+                            receive
+                                {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} = Y ->
+                                    From ! {io_reply, ReplyAs, ok},
+                                    Self ! Y,
+                                    Fun(Fun);
+                                Other ->
+                                    ?debugFmt("unexpected message ~p~n", Other),
+                                    Self ! Other
+                            end
+                    end,
+                    YComb(YComb)
+            end
+    end,
+    {foreach,
+        fun() ->
+                error_logger:tty(false),
+                application:load(lager),
+                application:set_env(lager, handlers, ),
+                application:set_env(lager, error_logger_redirect, false),
+                lager:start(),
+                whereis(user)
+        end,
+        fun(User) ->
+                unregister(user),
+                register(user, User),
+                application:stop(lager),
+                application:stop(goldrush),
+                error_logger:tty(true)
+        end,
+        
+            {"regular console logging",
+                fun() ->
+                        Pid = spawn(F(self())),
+                        unregister(user),
+                        register(user, Pid),
+                        erlang:group_leader(Pid, whereis(lager_event)),
+                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+                        lager:log(info, self(), "Test message"),
+                        receive
+                            {io_request, From, ReplyAs, {put_chars, unicode, Msg}} ->
+                                From ! {io_reply, ReplyAs, ok},
+                                TestMsg = "Test message" ++ eol(),
+                                ?assertMatch(_, "info", TestMsg, re:split(Msg, " ", {return, list}, {parts, 3}))
+                        after
+                            500 ->
+                                ?assert(false)
+                        end
+                end
+            },
+            {"verbose console logging",
+                fun() ->
+                        Pid = spawn(F(self())),
+                        unregister(user),
+                        register(user, Pid),
+                        erlang:group_leader(Pid, whereis(lager_event)),
+                        gen_event:add_handler(lager_event, lager_console_backend, info, true),
+                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+                        lager:info("Test message"),
+                        PidStr = pid_to_list(self()),
+                        receive
+                            {io_request, _, _, {put_chars, unicode, Msg}} ->
+                                TestMsg = "Test message" ++ eol(),
+                                ?assertMatch(_, _, "info", PidStr, _, TestMsg, re:split(Msg, " @", {return, list}, {parts, 6}))
+                        after
+                            500 ->
+                                ?assert(false)
+                        end
+                end
+            },
+            {"custom format console logging",
+                fun() ->
+                        Pid = spawn(F(self())),
+                        unregister(user),
+                        register(user, Pid),
+                        erlang:group_leader(Pid, whereis(lager_event)),
+                        gen_event:add_handler(lager_event, lager_console_backend,
+                          {level, info}, {formatter, lager_default_formatter}, {formatter_config, date,"#",time,"#",severity,"#",node,"#",pid,"#",
+                                                            module,"#",function,"#",file,"#",line,"#",message,"\r\n"}),
+                        lager_config:set({lager_event, loglevel}, {?INFO, }),
+                        lager:info("Test message"),
+                        PidStr = pid_to_list(self()),
+                        NodeStr = atom_to_list(node()),
+                        ModuleStr = atom_to_list(?MODULE),
+                        receive
+                            {io_request, _, _, {put_chars, unicode, Msg}} ->
+                                TestMsg = "Test message" ++ eol(),
+                                ?assertMatch(_, _, "info", NodeStr, PidStr, ModuleStr, _, _, _, TestMsg,
+                                             re:split(Msg, "#", {return, list}, {parts, 10}))
+                        after
+                            500 ->
+                                ?assert(false)
+                        end
+                end
+            },
+            {"tracing should work",
+                fun() ->
+                        Pid = spawn(F(self())),
+                        unregister(user),
+                        register(user, Pid),
+                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+                        erlang:group_leader(Pid, whereis(lager_event)),
+                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+                        lager:debug("Test message"),
+                        receive
+                            {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} ->
+                                From ! {io_reply, ReplyAs, ok},
+                                ?assert(false)
+                        after
+                            500 ->
+                                ?assert(true)
+                        end,
+                        {ok, _} = lager:trace_console({module, ?MODULE}),
+                        lager:debug("Test message"),
+                        receive
+                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+                                From1 ! {io_reply, ReplyAs1, ok},
+                                TestMsg = "Test message" ++ eol(),
+                                ?assertMatch(_, "debug", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+                        after
+                            500 ->
+                                ?assert(false)
+                        end
+                end
+            },
+            {"tracing doesn't duplicate messages",
+                fun() ->
+                        Pid = spawn(F(self())),
+                        unregister(user),
+                        register(user, Pid),
+                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+                        erlang:group_leader(Pid, whereis(lager_event)),
+                        lager:debug("Test message"),
+                        receive
+                            {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} ->
+                                From ! {io_reply, ReplyAs, ok},
+                                ?assert(false)
+                        after
+                            500 ->
+                                ?assert(true)
+                        end,
+                        {ok, _} = lager:trace_console({module, ?MODULE}),
+                        lager:error("Test message"),
+                        receive
+                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+                                From1 ! {io_reply, ReplyAs1, ok},
+                                TestMsg = "Test message" ++ eol(),
+                                ?assertMatch(_, "error", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+                        after
+                            1000 ->
+                                ?assert(false)
+                        end,
+                        %% make sure this event wasn't duplicated
+                        receive
+                            {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
+                                From2 ! {io_reply, ReplyAs2, ok},
+                                ?assert(false)
+                        after
+                            500 ->
+                                ?assert(true)
+                        end
+                end
+            },
+            {"blacklisting a loglevel works",
+                fun() ->
+                        Pid = spawn(F(self())),
+                        unregister(user),
+                        register(user, Pid),
+                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+                        lager:set_loglevel(lager_console_backend, '!=info'),
+                        erlang:group_leader(Pid, whereis(lager_event)),
+                        lager:debug("Test message"),
+                        receive
+                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+                                From1 ! {io_reply, ReplyAs1, ok},
+                                TestMsg = "Test message" ++ eol(),
+                                ?assertMatch(_, "debug", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+                        after
+                            1000 ->
+                                ?assert(false)
+                        end,
+                        %% info is blacklisted
+                        lager:info("Test message"),
+                        receive
+                            {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
+                                From2 ! {io_reply, ReplyAs2, ok},
+                                ?assert(false)
+                        after
+                            500 ->
+                                ?assert(true)
+                        end
+                end
+            },
+            {"whitelisting a loglevel works",
+                fun() ->
+                        Pid = spawn(F(self())),
+                        unregister(user),
+                        register(user, Pid),
+                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+                        lager:set_loglevel(lager_console_backend, '=debug'),
+                        erlang:group_leader(Pid, whereis(lager_event)),
+                        lager:debug("Test message"),
+                        receive
+                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+                                From1 ! {io_reply, ReplyAs1, ok},
+                                TestMsg = "Test message" ++ eol(),
+                                ?assertMatch(_, "debug", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+                        after
+                            1000 ->
+                                ?assert(false)
+                        end,
+                        %% info is blacklisted
+                        lager:error("Test message"),
+                        receive
+                            {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
+                                From2 ! {io_reply, ReplyAs2, ok},
+                                ?assert(false)
+                        after
+                            500 ->
+                                ?assert(true)
+                        end
+                end
+            },
+            {"console backend with custom group leader",
+                fun() ->
+                        Pid = spawn(F(self())),
+                        gen_event:add_handler(lager_event, lager_console_backend, {level, info}, {group_leader, Pid}),
+                        lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+                        lager:info("Test message"),
+                        ?assertNotEqual({group_leader, Pid}, erlang:process_info(whereis(lager_event), group_leader)),
+                        receive
+                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+                                From1 ! {io_reply, ReplyAs1, ok},
+                                TestMsg = "Test message" ++ eol(),
+                                ?assertMatch(_, "info", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+                        after
+                            1000 ->
+                                ?assert(false)
+                        end,
+                        %% killing the pid should prevent any new log messages (to prove we haven't accidentally redirected
+                        %% the group leader some other way
+                        exit(Pid, kill),
+                        timer:sleep(100),
+                        %% additionally, check the lager backend has been removed (because the group leader process died)
+                        ?assertNot(lists:member(lager_console_backend, gen_event:which_handlers(lager_event))),
+                        lager:error("Test message"),
+                        receive
+                            {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
+                                From2 ! {io_reply, ReplyAs2, ok},
+                                ?assert(false)
+                        after
+                            500 ->
+                                ?assert(true)
+                        end
+                end
+            },
+            {"console backend with custom group leader using a trace and an ID",
+                fun() ->
+                        Pid = spawn(F(self())),
+                        ID = {?MODULE, trace_test},
+                        Handlers = lager_config:global_get(handlers, ),
+                        HandlerInfo = lager_app:start_handler(lager_event, ID,
+                                                              {level, none}, {group_leader, Pid},
+                                                               {id, ID}),
+                        lager_config:global_set(handlers, HandlerInfo|Handlers),
+                        lager:info("Test message"),
+                        ?assertNotEqual({group_leader, Pid}, erlang:process_info(whereis(lager_event), group_leader)),
+                        receive
+                            {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} ->
+                                From ! {io_reply, ReplyAs, ok},
+                                ?assert(false)
+                        after
+                            500 ->
+                                ?assert(true)
+                        end,
+                        lager:trace(ID, {module, ?MODULE}, debug),
+                        lager:info("Test message"),
+                        receive
+                            {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+                                From1 ! {io_reply, ReplyAs1, ok},
+                                TestMsg = "Test message" ++ eol(),
+                                ?assertMatch(_, "info", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+                        after
+                            500 ->
+                                ?assert(false)
+                        end,
+                        ?assertNotEqual({0, }, lager_config:get({lager_event, loglevel})),
+                        %% killing the pid should prevent any new log messages (to prove we haven't accidentally redirected
+                        %% the group leader some other way
+                        exit(Pid, kill),
+                        timer:sleep(100),
+                        %% additionally, check the lager backend has been removed (because the group leader process died)
+                        ?assertNot(lists:member(lager_console_backend, gen_event:which_handlers(lager_event))),
+                        %% finally, check the trace has been removed
+                        ?assertEqual({0, }, lager_config:get({lager_event, loglevel})),
+                        lager:error("Test message"),
+                        receive
+                            {io_request, From3, ReplyAs3, {put_chars, unicode, _Msg3}} ->
+                                From3 ! {io_reply, ReplyAs3, ok},
+                                ?assert(false)
+                        after
+                            500 ->
+                                ?assert(true)
+                        end
+                end
+            }
+        
+    }.
+
+set_loglevel_test_() ->
+    {foreach,
+        fun() ->
+                error_logger:tty(false),
+                application:load(lager),
+                application:set_env(lager, handlers, {lager_console_backend, {level, info}}),
+                application:set_env(lager, error_logger_redirect, false),
+                lager:start()
+        end,
+        fun(_) ->
+                application:stop(lager),
+                application:stop(goldrush),
+                error_logger:tty(true)
+        end,
+        
+            {"Get/set loglevel test",
+                fun() ->
+                        ?assertEqual(info, lager:get_loglevel(lager_console_backend)),
+                        lager:set_loglevel(lager_console_backend, debug),
+                        ?assertEqual(debug, lager:get_loglevel(lager_console_backend)),
+                        lager:set_loglevel(lager_console_backend, '!=debug'),
+                        ?assertEqual(info, lager:get_loglevel(lager_console_backend)),
+                        lager:set_loglevel(lager_console_backend, '!=info'),
+                        ?assertEqual(debug, lager:get_loglevel(lager_console_backend)),
+                        ok
+                end
+            },
+            {"Get/set invalid loglevel test",
+                fun() ->
+                        ?assertEqual(info, lager:get_loglevel(lager_console_backend)),
+                        ?assertEqual({error, bad_log_level},
+                            lager:set_loglevel(lager_console_backend, fatfinger)),
+                        ?assertEqual(info, lager:get_loglevel(lager_console_backend))
+                end
+            }
+
+        
+    }.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_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};
+        {error_report, _GL, Other} ->
+            perhaps_a_sasl_report(error_report, Other, FmtMaxBytes);
+        _ ->
+            {ignore, ignore, ignore, false}
+    end,
+    if ReportStr == ignore ->
+            {ok, State};
+        true ->
+            case Rotator:ensure_logfile(Name, FD, Inode, Ctime, false) of
+                {ok, {_FD, _Inode, _Ctime, Size}} when RotSize /= 0, Size > RotSize ->
+                    _ = Rotator:rotate_logfile(Name, Count),
+                    handle_cast({log, Event}, State);
+                {ok, {NewFD, NewInode, NewCtime, _Size}} ->
+                    {Date, TS} = lager_util:format_time(
+                        lager_stdlib:maybe_utc(erlang:localtime())),
+                    Time = Date, " ", TS," =", ReportStr, "====\n",
+                    NodeSuffix = other_node_suffix(Pid),
+                    Msg = io_lib:format("~s~s~s", Time, MsgStr, NodeSuffix),
+                    case file:write(NewFD, unicode:characters_to_binary(Msg)) of
+                        {error, Reason} when Flap == false ->
+                            ?INT_LOG(error, "Failed to write log message to file ~ts: ~s",
+                                Name, file:format_error(Reason)),
+                            {ok, State#state{fd=NewFD, inode=NewInode, ctime=NewCtime, flap=true}};
+                        ok ->
+                            {ok, State#state{fd=NewFD, inode=NewInode, ctime=NewCtime, flap=false}};
+                        _ ->
+                            {ok, State#state{fd=NewFD, inode=NewInode, ctime=NewCtime}}
+                    end;
+                {error, Reason} ->
+                    case Flap of
+                        true ->
+                            {ok, State};
+                        _ ->
+                            ?INT_LOG(error, "Failed to reopen crash log ~ts with error: ~s",
+                                Name, file:format_error(Reason)),
+                            {ok, State#state{flap=true}}
+                    end
+            end
+    end.
+
+
+-ifdef(TEST).
+
+filesystem_test_() ->
+    {foreach,
+        fun() ->
+            {ok, TestDir} = lager_util:create_test_dir(),
+            CrashLog = filename:join(TestDir, "crash_test.log"),
+            ok = lager_util:safe_write_file(CrashLog, ),
+            ok = error_logger:tty(false),
+            ok = lager_util:safe_application_load(lager),
+            ok = application:set_env(lager, handlers, {lager_test_backend, info}),
+            ok = application:set_env(lager, error_logger_redirect, true),
+            ok = application:unset_env(lager, crash_log),
+            ok = lager:start(),
+            ok = timer:sleep(1000),
+            ok = lager_test_backend:flush(),
+            CrashLog
+        end,
+        fun(_CrashLog) ->
+            case whereis(lager_crash_log) of
+                P when is_pid(P) ->
+                    gen_server:stop(P);
+                _ ->
+                    ok
+            end,
+            ok = application:stop(lager),
+            ok = application:stop(goldrush),
+            ok = lager_util:delete_test_dir(),
+            ok = error_logger:tty(true)
+        end, 
+        fun(CrashLog) ->
+            {"under normal circumstances, file should be opened",
+            fun() ->
+                {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+                _ = gen_event:which_handlers(error_logger),
+                sync_error_logger:error_msg("Test message\n"),
+                {ok, Bin} = file:read_file(CrashLog),
+                ?assertMatch(_, "Test message\n", re:split(Bin, "\n", {return, list}, {parts, 2}))
+            end}
+        end,
+        fun(CrashLog) ->
+            {"file can't be opened on startup triggers an error message",
+            fun() ->
+                {ok, FInfo0} = file:read_file_info(CrashLog, raw),
+                FInfo1 = FInfo0#file_info{mode = 0},
+                ?assertEqual(ok, file:write_file_info(CrashLog, FInfo1)),
+                {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+                % Note: required on win32, do this early to prevent subsequent failures
+                % from preventing cleanup
+                ?assertEqual(ok, file:write_file_info(CrashLog, FInfo0)),
+                ?assertEqual(1, lager_test_backend:count()),
+                {_Level, _Time, Message,_Metadata} = lager_test_backend:pop(),
+                ?assertEqual(
+                    "Failed to open crash log file " ++ CrashLog ++ " with error: permission denied",
+                    lists:flatten(Message))
+            end}
+        end,
+        fun(CrashLog) ->
+            {"file that becomes unavailable at runtime should trigger an error message",
+            fun() ->
+                case os:type() of
+                    {win32, _} ->
+                        % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
+                        % while a process has an open file handle referencing it
+                        ok;
+                    _ ->
+                        {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+                        ?assertEqual(0, lager_test_backend:count()),
+                        sync_error_logger:error_msg("Test message\n"),
+                        _ = gen_event:which_handlers(error_logger),
+                        ?assertEqual(1, lager_test_backend:count()),
+                        ?assertEqual(ok, file:delete(CrashLog)),
+                        ?assertEqual(ok, lager_util:safe_write_file(CrashLog, "")),
+                        {ok, FInfo0} = file:read_file_info(CrashLog, raw),
+                        FInfo1 = FInfo0#file_info{mode = 0},
+                        ?assertEqual(ok, file:write_file_info(CrashLog, FInfo1)),
+                        sync_error_logger:error_msg("Test message\n"),
+                        _ = gen_event:which_handlers(error_logger),
+                        % Note: required on win32, do this early to prevent subsequent failures
+                        % from preventing cleanup
+                        ?assertEqual(ok, file:write_file_info(CrashLog, FInfo0)),
+                        ?assertEqual(3, lager_test_backend:count()),
+                        lager_test_backend:pop(),
+                        {_Level, _Time, Message,_Metadata} = lager_test_backend:pop(),
+                        ?assertEqual(
+                            "Failed to reopen crash log " ++ CrashLog ++ " with error: permission denied",
+                            lists:flatten(Message))
+                end
+            end}
+        end,
+        fun(CrashLog) ->
+            {"unavailable files that are fixed at runtime should start having log messages written",
+            fun() ->
+                {ok, FInfo} = file:read_file_info(CrashLog, raw),
+                OldPerms = FInfo#file_info.mode,
+                file:write_file_info(CrashLog, FInfo#file_info{mode = 0}),
+                {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+                ?assertEqual(1, lager_test_backend:count()),
+                {_Level, _Time, Message,_Metadata} = lager_test_backend:pop(),
+                ?assertEqual(
+                    "Failed to open crash log file " ++ CrashLog ++ " with error: permission denied",
+                    lists:flatten(Message)),
+                file:write_file_info(CrashLog, FInfo#file_info{mode = OldPerms}),
+                sync_error_logger:error_msg("Test message~n"),
+                _ = gen_event:which_handlers(error_logger),
+                {ok, Bin} = file:read_file(CrashLog),
+                ?assertMatch(_, "Test message\n", re:split(Bin, "\n", {return, list}, {parts, 2}))
+            end}
+        end,
+        fun(CrashLog) ->
+            {"external logfile rotation/deletion should be handled",
+            fun() ->
+                case os:type() of
+                    {win32, _} ->
+                        % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
+                        % while a process has an open file handle referencing it
+                        ok;
+                    _ ->
+                        {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+                        ?assertEqual(0, lager_test_backend:count()),
+                        sync_error_logger:error_msg("Test message~n"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {ok, Bin} = file:read_file(CrashLog),
+                        ?assertMatch(_, "Test message\n", re:split(Bin, "\n", {return, list}, {parts, 2})),
+                        ?assertEqual(ok, file:delete(CrashLog)),
+                        ?assertEqual(ok, lager_util:safe_write_file(CrashLog, "")),
+                        sync_error_logger:error_msg("Test message1~n"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {ok, Bin1} = file:read_file(CrashLog),
+                        ?assertMatch(_, "Test message1\n", re:split(Bin1, "\n", {return, list}, {parts, 2})),
+                        file:rename(CrashLog, CrashLog ++ ".0"),
+                        sync_error_logger:error_msg("Test message2~n"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {ok, Bin2} = file:read_file(CrashLog),
+                        ?assertMatch(_, "Test message2\n", re:split(Bin2, "\n", {return, list}, {parts, 2}))
+                end
+            end}
+        end
+    }.
+
+-endif.
+

osmo-diameter2gsup_0.3.0.tar.xz/_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).
+maybe_get_persistent_term(Key, Default) ->
+    try
+        persistent_term:get(Key, Default)
+    catch
+        _:undef -> Default
+    end.
+-else.
+maybe_get_persistent_term(_Key, Default) -> Default.
+-endif.
+
+run_function(Function, Default) ->
+    try Function() of
+        Result ->
+            Result
+    catch
+        _:_ ->
+          Default
+    end.
+
+get_metadata(Key, Metadata) ->
+    get_metadata(Key, Metadata, undefined).
+
+get_metadata(Key, Metadata, Default) ->
+    case lists:keyfind(Key, 1, Metadata) of
+        false ->
+            Default;
+        {Key, Value} when is_function(Value) ->
+            run_function(Value, Default);
+        {Key, Value} ->
+            Value
+    end.
+
+config(EOL, ) ->
+    
+        date, " ", time, " ", color, "", severity, " ",
+        {pid, ""},
+        {module, 
+            {pid, "@", ""},
+            module,
+            {function, ":", function, ""},
+            {line, ":",line, ""}, ""},
+        " ", message, EOL
+    ;
+config(EOL, MetaWhitelist) ->
+    
+        date, " ", time, " ", color, "", severity, " ",
+        {pid, ""},
+        {module, 
+            {pid, "@", ""},
+            module,
+            {function, ":", function, ""},
+            {line, ":",line, ""}, ""},
+        " "
+     ++
+    {M, atom_to_list(M), "=", M, " ", ""}|| M <- MetaWhitelist ++
+    message, EOL.
+
+
+
+uppercase_severity(debug) -> "DEBUG";
+uppercase_severity(info) -> "INFO";
+uppercase_severity(notice) -> "NOTICE";
+uppercase_severity(warning) -> "WARNING";
+uppercase_severity(error) -> "ERROR";
+uppercase_severity(critical) -> "CRITICAL";
+uppercase_severity(alert) -> "ALERT";
+uppercase_severity(emergency) -> "EMERGENCY".
+
+-ifdef(TEST).
+date_time_now() ->
+    Now = os:timestamp(),
+    {Date, Time} = lager_util:format_time(lager_util:maybe_utc(lager_util:localtime_ms(Now))),
+    {Date, Time, Now}.
+
+basic_test_() ->
+    {Date, Time, Now} = date_time_now(),
+    {"Default formatting test",
+            ?_assertEqual(iolist_to_binary(Date, " ", Time,  " error ", pid_to_list(self()), " Message\n"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {pid, self()},
+                            ),
+                        )))
+        },
+        {"Basic Formatting",
+            ?_assertEqual(<<"Simplist Format">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {pid, self()},
+                            ),
+                        "Simplist Format")))
+        },
+        {"Default equivalent formatting test",
+            ?_assertEqual(iolist_to_binary(Date, " ", Time, " error ", pid_to_list(self()), " Message\n"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {pid, self()},
+                            ),
+                        date, " ", time," ",severity," ",pid, " ", message, "\n"
+                    )))
+        },
+        {"Non existent metadata can default to string",
+            ?_assertEqual(iolist_to_binary(Date, " ", Time, " error Fallback Message\n"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {pid, self()},
+                            ),
+                        date, " ", time," ",severity," ",{does_not_exist,"Fallback"}, " ", message, "\n"
+                    )))
+        },
+        {"Non existent metadata can default to other metadata",
+            ?_assertEqual(iolist_to_binary(Date, " ", Time, " error Fallback Message\n"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {pid, "Fallback"},
+                            ),
+                        date, " ", time," ",severity," ",{does_not_exist,pid}, " ", message, "\n"
+                    )))
+        },
+        {"Non existent metadata can default to a string2",
+            ?_assertEqual(iolist_to_binary("Unknown Pid"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            ,
+                            ),
+                        {pid, "My pid is ", pid, "Unknown Pid"}
+                    )))
+        },
+        {"Metadata can have extra formatting",
+            ?_assertEqual(iolist_to_binary("My pid is hello"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {pid, hello},
+                            ),
+                        {pid, "My pid is ", pid, "Unknown Pid"}
+                    )))
+        },
+        {"Metadata can have extra formatting1",
+            ?_assertEqual(iolist_to_binary("servername"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {pid, hello}, {server, servername},
+                            ),
+                        {server,{pid, "(", pid, ")", "(Unknown Server)"}}
+                    )))
+        },
+        {"Metadata can have extra formatting2",
+            ?_assertEqual(iolist_to_binary("(hello)"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {pid, hello},
+                            ),
+                        {server,{pid, "(", pid, ")", "(Unknown Server)"}}
+                    )))
+        },
+        {"Metadata can have extra formatting3",
+            ?_assertEqual(iolist_to_binary("(Unknown Server)"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            ,
+                            ),
+                        {server,{pid, "(", pid, ")", "(Unknown Server)"}}
+                    )))
+        },
+        {"Metadata can be printed in its enterity",
+            ?_assertEqual(iolist_to_binary("bar=2 baz=3 foo=1"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {foo, 1}, {bar, 2}, {baz, 3},
+                            ),
+                        metadata
+                    )))
+        },
+        {"Metadata can be printed in its enterity with custom seperators",
+            ?_assertEqual(iolist_to_binary("bar->2, baz->3, foo->1"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {foo, 1}, {bar, 2}, {baz, 3},
+                            ),
+                        {metadata, "->", ", "}
+                    )))
+        },
+        {"Metadata can have extra formatting with width 1",
+            ?_assertEqual(iolist_to_binary("(hello     )(hello     )(hello)(hello)(hello)"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                    Now,
+                    error,
+                    {pid, hello},
+                    ),
+                    "(",{pid, pid, "", 10},")",
+                        "(",{pid, pid, "", {bad_align,10}},")",
+                        "(",{pid, pid, "", bad10},")",
+                        "(",{pid, pid, "", {right,bad20}},")",
+                        "(",{pid, pid, "", {bad_align,bad20}},")"
+                )))
+        },
+        {"Metadata can have extra formatting with width 2",
+            ?_assertEqual(iolist_to_binary("(hello     )"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                    Now,
+                    error,
+                    {pid, hello},
+                    ),
+                    "(",{pid, pid, "", {left,10}},")"
+                )))
+        },
+        {"Metadata can have extra formatting with width 3",
+            ?_assertEqual(iolist_to_binary("(     hello)"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                    Now,
+                    error,
+                    {pid, hello},
+                    ),
+                    "(",{pid, pid, "", {right,10}},")"
+                )))
+        },
+        {"Metadata can have extra formatting with width 4",
+            ?_assertEqual(iolist_to_binary("(  hello   )"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                    Now,
+                    error,
+                    {pid, hello},
+                    ),
+                    "(",{pid, pid, "", {centre,10}},")"
+                )))
+        },
+        {"Metadata can have extra formatting with width 5",
+            ?_assertEqual(iolist_to_binary("error     |hello     ! (  hello   )"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                    Now,
+                    error,
+                    {pid, hello},
+                    ),
+                    {x,"",severity,{blank,"|"},pid, 10},"!",blank,"(",{pid, pid, "", {centre,10}},")"
+                )))
+        },
+        {"Metadata can have extra formatting with width 6",
+            ?_assertEqual(iolist_to_binary(Time,Date," bar=2 baz=3 foo=1 pid=hello EMessage"),
+                iolist_to_binary(format(lager_msg:new("Message",
+                    Now,
+                    error,
+                    {pid, hello},{foo, 1}, {bar, 2}, {baz, 3},
+                    ),
+                    {x,"",time}, {x,"",date,20},blank,{x,"",metadata,30},blank,{x,"",sev,10},message, {message,message,"", {right,20}}
+                )))
+        },
+        {"Uppercase Severity Formatting - DEBUG",
+            ?_assertEqual(<<"DEBUG Simplist Format">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            debug,
+                            {pid, self()},
+                            ),
+                        severity_upper, " Simplist Format")))
+        },
+        {"Uppercase Severity Formatting - INFO",
+            ?_assertEqual(<<"INFO Simplist Format">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            info,
+                            {pid, self()},
+                            ),
+                        severity_upper, " Simplist Format")))
+        },
+        {"Uppercase Severity Formatting - NOTICE",
+            ?_assertEqual(<<"NOTICE Simplist Format">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            notice,
+                            {pid, self()},
+                            ),
+                        severity_upper, " Simplist Format")))
+        },
+        {"Uppercase Severity Formatting - WARNING",
+            ?_assertEqual(<<"WARNING Simplist Format">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            warning,
+                            {pid, self()},
+                            ),
+                        severity_upper, " Simplist Format")))
+        },
+        {"Uppercase Severity Formatting - ERROR",
+            ?_assertEqual(<<"ERROR Simplist Format">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            error,
+                            {pid, self()},
+                            ),
+                        severity_upper, " Simplist Format")))
+        },
+        {"Uppercase Severity Formatting - CRITICAL",
+            ?_assertEqual(<<"CRITICAL Simplist Format">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            critical,
+                            {pid, self()},
+                            ),
+                        severity_upper, " Simplist Format")))
+        },
+        {"Uppercase Severity Formatting - ALERT",
+            ?_assertEqual(<<"ALERT Simplist Format">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            alert,
+                            {pid, self()},
+                            ),
+                        severity_upper, " Simplist Format")))
+        },
+        {"Uppercase Severity Formatting - EMERGENCY",
+            ?_assertEqual(<<"EMERGENCY Simplist Format">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            emergency,
+                            {pid, self()},
+                            ),
+                        severity_upper, " Simplist Format")))
+        },
+        {"pterm presence test",
+            %% skip test on OTP < 21
+            case list_to_integer(erlang:system_info(otp_release)) >= 21 of
+                true ->
+                    ?_assertEqual(<<"Pterm is: something">>,
+                      begin
+                        persistent_term:put(thing, something),
+                        Ret = iolist_to_binary(format(lager_msg:new("Message",
+                                    Now,
+                                    emergency,
+                                    {pid, self()},
+                                    ),
+                                "Pterm is: ", {pterm, thing})),
+                        persistent_term:erase(thing),
+                        Ret
+                      end);
+                false -> ?_assert(true)
+            end
+        },
+        {"pterm absence test",
+            ?_assertEqual(<<"Pterm is: nothing">>,
+                iolist_to_binary(format(lager_msg:new("Message",
+                            Now,
+                            emergency,
+                            {pid, self()},
+                            ),
+                        "Pterm is: ", {pterm, thing, "nothing"})))
+        },
+        {"node formatting basic",
+            begin
+                N, "foo" = format(lager_msg:new("Message",
+                                                  Now,
+                                                  info,
+                                                  {pid, self()},
+                                                  ),
+                                    node, "foo"),
+                ?_assertNotMatch(nomatch, re:run(N, <<"@">>))
+            end
+        }
+    .
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_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) ->
+    _ = case Shaper#lager_shaper.dropped of
+            0 ->
+                ok;
+            Dropped ->
+                Report = io_lib:format(
+                           "lager_file_backend dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
+                           Dropped, Shaper#lager_shaper.hwm),
+                ReportMsg = lager_msg:new(Report, warning, , ),
+                write(State, lager_msg:timestamp(ReportMsg),
+                      lager_msg:severity_as_int(ReportMsg), Formatter:format(ReportMsg, FormatConfig))
+        end,
+    {ok, State#state{shaper=Shaper#lager_shaper{dropped=0, mps=0, lasttime=os:timestamp()}}};
+handle_info(_Info, State) ->
+    {ok, State}.
+
+%% @private
+terminate(_Reason, State) ->
+    %% leaving this function call unmatched makes dialyzer cranky
+    _ = close_file(State),
+    ok.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%% Convert the config into a gen_event handler ID
+config_to_id({Name,_Severity}) when is_list(Name) ->
+    {?MODULE, Name};
+config_to_id({Name,_Severity,_Size,_Rotation,_Count}) ->
+    {?MODULE, Name};
+config_to_id({Name,_Severity,_Size,_Rotation,_Count}, _Format) ->
+    {?MODULE, Name};
+config_to_id({Name,_Severity}, _Format) when is_list(Name) ->
+    {?MODULE, Name};
+config_to_id(Config) ->
+    case proplists:get_value(file, Config) of
+        undefined ->
+            erlang:error(no_file);
+        File ->
+            {?MODULE, File}
+    end.
+
+write(#state{name=Name, fd=FD,
+             inode=Inode, ctime=Ctime,
+             flap=Flap, size=RotSize,
+             count=Count, rotator=Rotator}=State0, Timestamp, Level, Msg) ->
+    case write_should_check(State0, Timestamp) of
+        true ->
+            %% need to check for rotation
+            Buffer = {State0#state.sync_size, State0#state.sync_interval},
+            case Rotator:ensure_logfile(Name, FD, Inode, Ctime, Buffer) of
+                {ok, {_FD, _Inode, _Ctime, Size}} when RotSize > 0, Size > RotSize ->
+                    State1 = close_file(State0),
+                    case Rotator:rotate_logfile(Name, Count) of
+                        ok ->
+                            %% go around the loop again, we'll do another rotation check and hit the next clause of ensure_logfile
+                            write(State1, Timestamp, Level, Msg);
+                        {error, Reason} ->
+                            case Flap of
+                                true ->
+                                    State1;
+                                _ ->
+                                    ?INT_LOG(error, "Failed to rotate log file ~ts with error ~s", Name, file:format_error(Reason)),
+                                    State1#state{flap=true}
+                            end
+                    end;
+                {ok, {NewFD, NewInode, NewCtime, _Size}} ->
+                    %% update our last check and try again
+                    State1 = State0#state{last_check=Timestamp, fd=NewFD, inode=NewInode, ctime=NewCtime},
+                    do_write(State1, Level, Msg);
+                {error, Reason} ->
+                    case Flap of
+                        true ->
+                            State0;
+                        _ ->
+                            ?INT_LOG(error, "Failed to reopen log file ~ts with error ~s", Name, file:format_error(Reason)),
+                            State0#state{flap=true}
+                    end
+            end;
+        false ->
+            do_write(State0, Level, Msg)
+    end.
+
+write_should_check(#state{fd=undefined}, _Timestamp) ->
+    true;
+write_should_check(#state{last_check=LastCheck0, check_interval=CheckInterval,
+                          name=Name, inode=Inode0, ctime=Ctime0}, Timestamp) ->
+    LastCheck1 = timer:now_diff(Timestamp, LastCheck0) div 1000,
+    case LastCheck1 >= CheckInterval of
+        true ->
+            true;
+        _ ->
+            % We need to know if the file has changed "out from under lager" so we don't
+            % write to an invalid FD
+            {Result, _FInfo} = lager_util:has_file_changed(Name, Inode0, Ctime0),
+            Result
+    end.
+
+do_write(#state{fd=FD, name=Name, flap=Flap} = State, Level, Msg) ->
+    %% delayed_write doesn't report errors
+    _ = file:write(FD, unicode:characters_to_binary(Msg)),
+    {mask, SyncLevel} = State#state.sync_on,
+    case (Level band SyncLevel) =/= 0 of
+        true ->
+            %% force a sync on any message that matches the 'sync_on' bitmask
+            Flap2 = case file:datasync(FD) of
+                {error, Reason2} when Flap == false ->
+                    ?INT_LOG(error, "Failed to write log message to file ~ts: ~s",
+                        Name, file:format_error(Reason2)),
+                    true;
+                ok ->
+                    false;
+                _ ->
+                    Flap
+            end,
+            State#state{flap=Flap2};
+        _ ->
+            State
+    end.
+
+validate_loglevel(Level) ->
+    try lager_util:config_to_mask(Level) of
+        Levels ->
+            Levels
+    catch
+        _:_ ->
+            false
+    end.
+
+validate_logfile_proplist(List) ->
+    try validate_logfile_proplist(List, ) of
+        Res ->
+            case proplists:get_value(file, Res) of
+                undefined ->
+                    ?INT_LOG(error, "Missing required file option", ),
+                    false;
+                _File ->
+                    %% merge with the default options
+                    {ok, DefaultRotationDate} = lager_util:parse_rotation_date_spec(?DEFAULT_ROTATION_DATE),
+                    lists:keymerge(1, lists:sort(Res), lists:sort(
+                            {level, validate_loglevel(?DEFAULT_LOG_LEVEL)}, {date, DefaultRotationDate},
+                            {size, ?DEFAULT_ROTATION_SIZE}, {count, ?DEFAULT_ROTATION_COUNT},
+                            {rotator, ?DEFAULT_ROTATION_MOD},
+                            {sync_on, validate_loglevel(?DEFAULT_SYNC_LEVEL)}, {sync_interval, ?DEFAULT_SYNC_INTERVAL},
+                            {sync_size, ?DEFAULT_SYNC_SIZE}, {check_interval, ?DEFAULT_CHECK_INTERVAL},
+                            {formatter, lager_default_formatter}, {formatter_config, }
+                        ))
+            end
+    catch
+        {bad_config, Msg, Value} ->
+            ?INT_LOG(error, "~s ~p for file ~tp",
+                Msg, Value, proplists:get_value(file, List)),
+            false
+    end.
+
+validate_logfile_proplist(, Acc) ->
+    Acc;
+validate_logfile_proplist({file, File}|Tail, Acc) ->
+    %% is there any reasonable validation we can do here?
+    validate_logfile_proplist(Tail, {file, File}|Acc);
+validate_logfile_proplist({level, Level}|Tail, Acc) ->
+    case validate_loglevel(Level) of
+        false ->
+            throw({bad_config, "Invalid loglevel", Level});
+        Res ->
+            validate_logfile_proplist(Tail, {level, Res}|Acc)
+    end;
+validate_logfile_proplist({size, Size}|Tail, Acc) ->
+    case Size of
+        S when is_integer(S), S >= 0 ->
+            validate_logfile_proplist(Tail, {size, Size}|Acc);
+        _ ->
+            throw({bad_config, "Invalid rotation size", Size})
+    end;
+validate_logfile_proplist({count, Count}|Tail, Acc) ->
+    case Count of
+        C when is_integer(C), C >= 0 ->
+            validate_logfile_proplist(Tail, {count, Count}|Acc);
+        _ ->
+            throw({bad_config, "Invalid rotation count", Count})
+    end;
+validate_logfile_proplist({rotator, Rotator}|Tail, Acc) ->
+    case is_atom(Rotator) of
+        true ->
+            validate_logfile_proplist(Tail, {rotator, Rotator}|Acc);
+        false ->
+            throw({bad_config, "Invalid rotation module", Rotator})
+    end;
+validate_logfile_proplist({high_water_mark, HighWaterMark}|Tail, Acc) ->
+    case HighWaterMark of
+        Hwm when is_integer(Hwm), Hwm >= 0 ->
+            validate_logfile_proplist(Tail, {high_water_mark, Hwm}|Acc);
+        _ ->
+            throw({bad_config, "Invalid high water mark", HighWaterMark})
+    end;
+validate_logfile_proplist({date, Date}|Tail, Acc) ->
+    case lager_util:parse_rotation_date_spec(Date) of
+        {ok, Spec} ->
+            validate_logfile_proplist(Tail, {date, Spec}|Acc);
+        {error, _} when Date == "" ->
+            %% legacy config allowed blanks
+            validate_logfile_proplist(Tail, {date, undefined}|Acc);
+        {error, _} ->
+            throw({bad_config, "Invalid rotation date", Date})
+    end;
+validate_logfile_proplist({sync_interval, SyncInt}|Tail, Acc) ->
+    case SyncInt of
+        Val when is_integer(Val), Val >= 0 ->
+            validate_logfile_proplist(Tail, {sync_interval, Val}|Acc);
+        _ ->
+            throw({bad_config, "Invalid sync interval", SyncInt})
+    end;
+validate_logfile_proplist({sync_size, SyncSize}|Tail, Acc) ->
+    case SyncSize of
+        Val when is_integer(Val), Val >= 0 ->
+            validate_logfile_proplist(Tail, {sync_size, Val}|Acc);
+        _ ->
+            throw({bad_config, "Invalid sync size", SyncSize})
+    end;
+validate_logfile_proplist({check_interval, CheckInt}|Tail, Acc) ->
+    case CheckInt of
+        Val when is_integer(Val), Val >= 0 ->
+            validate_logfile_proplist(Tail, {check_interval, Val}|Acc);
+        always ->
+            validate_logfile_proplist(Tail, {check_interval, 0}|Acc);
+        _ ->
+            throw({bad_config, "Invalid check interval", CheckInt})
+    end;
+validate_logfile_proplist({sync_on, Level}|Tail, Acc) ->
+    case validate_loglevel(Level) of
+        false ->
+            throw({bad_config, "Invalid sync on level", Level});
+        Res ->
+            validate_logfile_proplist(Tail, {sync_on, Res}|Acc)
+    end;
+validate_logfile_proplist({formatter, Fmt}|Tail, Acc) ->
+    case is_atom(Fmt) of
+        true ->
+            validate_logfile_proplist(Tail, {formatter, Fmt}|Acc);
+        false ->
+            throw({bad_config, "Invalid formatter module", Fmt})
+    end;
+validate_logfile_proplist({formatter_config, FmtCfg}|Tail, Acc) ->
+    case is_list(FmtCfg) of
+        true ->
+            validate_logfile_proplist(Tail, {formatter_config, FmtCfg}|Acc);
+        false ->
+            throw({bad_config, "Invalid formatter config", FmtCfg})
+    end;
+validate_logfile_proplist({flush_queue, FlushCfg}|Tail, Acc) ->
+    case is_boolean(FlushCfg) of
+        true ->
+            validate_logfile_proplist(Tail, {flush_queue, FlushCfg}|Acc);
+        false ->
+            throw({bad_config, "Invalid queue flush flag", FlushCfg})
+    end;
+validate_logfile_proplist({flush_threshold, Thr}|Tail, Acc) ->
+    case Thr of
+        _ when is_integer(Thr), Thr >= 0 ->
+            validate_logfile_proplist(Tail, {flush_threshold, Thr}|Acc);
+        _ ->
+            throw({bad_config, "Invalid queue flush threshold", Thr})
+    end;
+validate_logfile_proplist(Other|_Tail, _Acc) ->
+    throw({bad_config, "Invalid option", Other}).
+
+schedule_rotation(_, undefined) ->
+    ok;
+schedule_rotation(Name, Date) ->
+    erlang:send_after(lager_util:calculate_next_rotation(Date) * 1000, self(), {rotate, Name}),
+    ok.
+
+close_file(#state{fd=undefined} = State) ->
+    State;
+close_file(#state{fd=FD} = State) ->
+    %% Flush and close any file handles.
+    %% delayed write can cause file:close not to do a close
+    _ = file:datasync(FD),
+    _ = file:close(FD),
+    _ = file:close(FD),
+    State#state{fd=undefined}.
+
+-ifdef(TEST).
+
+get_loglevel_test() ->
+    {ok, Level, _} = handle_call(get_loglevel,
+        #state{name="bar", level=lager_util:config_to_mask(info), fd=0, inode=0, ctime=undefined}),
+    ?assertEqual(Level, lager_util:config_to_mask(info)),
+    {ok, Level2, _} = handle_call(get_loglevel,
+        #state{name="foo", level=lager_util:config_to_mask(warning), fd=0, inode=0, ctime=undefined}),
+    ?assertEqual(Level2, lager_util:config_to_mask(warning)).
+
+rotation_test_() ->
+    {foreach,
+        fun() ->
+            SyncLevel = validate_loglevel(?DEFAULT_SYNC_LEVEL),
+            SyncSize = ?DEFAULT_SYNC_SIZE,
+            SyncInterval = ?DEFAULT_SYNC_INTERVAL,
+            Rotator = ?DEFAULT_ROTATION_MOD,
+            CheckInterval = 0, %% hard to test delayed mode
+            {ok, TestDir} = lager_util:create_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+            {OsType, _} = os:type(),
+            #state{name=TestLog,
+                   level=?DEBUG,
+                   sync_on=SyncLevel,
+                   sync_size=SyncSize,
+                   sync_interval=SyncInterval,
+                   check_interval=CheckInterval,
+                   rotator=Rotator,
+                   os_type=OsType}
+        end,
+        fun(#state{}) ->
+            ok = lager_util:delete_test_dir()
+        end, 
+        fun(DefaultState=#state{name=TestLog, os_type=OsType, sync_size=SyncSize, sync_interval=SyncInterval, rotator=Rotator}) ->
+            {"External rotation should work",
+            fun() ->
+                case OsType of
+                    win32 ->
+                        % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
+                        % while a process has an open file handle referencing it
+                        ok;
+                    _ ->
+                        {ok, {FD, Inode, Ctime, _Size}} = Rotator:open_logfile(TestLog, {SyncSize, SyncInterval}),
+                        State0 = DefaultState#state{fd=FD, inode=Inode, ctime=Ctime},
+                        State1 = write(State0, os:timestamp(), ?DEBUG, "hello world"),
+                        ?assertMatch(#state{name=TestLog, level=?DEBUG, fd=FD, inode=Inode, ctime=Ctime}, State1),
+                        ?assertEqual(ok, file:delete(TestLog)),
+                        State2 = write(State0, os:timestamp(), ?DEBUG, "hello world"),
+                        %% assert file has changed
+                        ExpState1 = #state{name=TestLog, level=?DEBUG, fd=FD, inode=Inode, ctime=Ctime},
+                        ?assertNotEqual(ExpState1, State2),
+                        ?assertMatch(#state{name=TestLog, level=?DEBUG}, State2),
+                        ?assertEqual(ok, file:rename(TestLog, TestLog ++ ".1")),
+                        State3 = write(State2, os:timestamp(), ?DEBUG, "hello world"),
+                        %% assert file has changed
+                        ?assertNotEqual(State3, State2),
+                        ?assertMatch(#state{name=TestLog, level=?DEBUG}, State3),
+                        ok
+                end
+            end}
+        end,
+        fun(DefaultState = #state{name=TestLog, sync_size=SyncSize, sync_interval=SyncInterval, rotator=Rotator}) ->
+            {"Internal rotation and delayed write",
+            fun() ->
+                TestLog0 = TestLog ++ ".0",
+                CheckInterval = 3000, % 3 sec
+                RotationSize = 15,
+                PreviousCheck = os:timestamp(),
+
+                {ok, {FD, Inode, Ctime, _Size}} = Rotator:open_logfile(TestLog, {SyncSize, SyncInterval}),
+                State0 = DefaultState#state{
+                    fd=FD, inode=Inode, ctime=Ctime, size=RotationSize,
+                    check_interval=CheckInterval, last_check=PreviousCheck},
+
+                %% new message within check interval with sync_on level
+                Msg1Timestamp = add_secs(PreviousCheck, 1),
+                State1 = write(State0, Msg1Timestamp, ?ERROR, "big big message 1"),
+                ?assertEqual(State0, State1),
+
+                %% new message within check interval under sync_on level
+                %% not written to disk yet
+                Msg2Timestamp = add_secs(PreviousCheck, 2),
+                State2 = write(State1, Msg2Timestamp, ?DEBUG, "buffered message 2"),
+                ?assertEqual(State0, State2),
+
+                % Note: we must ensure at least one second (DEFAULT_SYNC_INTERVAL) has passed
+                % for message 1 and 2 to be written to disk
+                ElapsedMs = timer:now_diff(os:timestamp(), PreviousCheck) div 1000,
+                case ElapsedMs > SyncInterval of
+                    true ->
+                        ok;
+                    _ ->
+                        S = SyncInterval - ElapsedMs,
+                        timer:sleep(S)
+                end,
+
+                %% although file size is big enough...
+                {ok, FInfo} = file:read_file_info(TestLog, raw),
+                ?assert(RotationSize < FInfo#file_info.size),
+                %% ...no rotation yet
+                ?assertEqual(PreviousCheck, State2#state.last_check),
+                ?assertNot(filelib:is_regular(TestLog0)),
+
+                %% new message after check interval
+                Msg3Timestamp = add_secs(PreviousCheck, 4),
+                _State3 = write(State2, Msg3Timestamp, ?DEBUG, "message 3"),
+
+                %% rotation happened
+                ?assert(filelib:is_regular(TestLog0)),
+
+                {ok, Bin1} = file:read_file(TestLog0),
+                {ok, Bin2} = file:read_file(TestLog),
+                %% message 1-2 written to file
+                ?assertEqual(<<"big big message 1buffered message 2">>, Bin1),
+                %% message 3 buffered, not yet written to file
+                ?assertEqual(<<"">>, Bin2),
+                ok
+            end}
+        end
+    }.
+
+add_secs({Mega, Secs, Micro}, Add) ->
+    NewSecs = Secs + Add,
+    {Mega + NewSecs div 10000000, NewSecs rem 10000000, Micro}.
+
+filesystem_test_() ->
+    {foreach,
+        fun() ->
+            ok = error_logger:tty(false),
+            ok = lager_util:safe_application_load(lager),
+            ok = application:set_env(lager, handlers, {lager_test_backend, info}),
+            ok = application:set_env(lager, error_logger_redirect, false),
+            ok = application:set_env(lager, async_threshold, undefined),
+            {ok, _TestDir} = lager_util:create_test_dir(),
+            ok = lager:start(),
+            %% race condition where lager logs its own start up
+            %% makes several tests fail. See test/lager_test_backend
+            %% around line 800 for more information.
+            ok = timer:sleep(5),
+            ok = lager_test_backend:flush()
+        end,
+        fun(_) ->
+            ok = application:stop(lager),
+            ok = application:stop(goldrush),
+            ok = error_logger:tty(true),
+            ok = lager_util:delete_test_dir()
+        end, 
+        {"under normal circumstances, file should be opened",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+
+            gen_event:add_handler(lager_event, lager_file_backend,
+                {TestLog, info}, {lager_default_formatter}),
+            lager:log(error, self(), "Test message"),
+            {ok, Bin} = file:read_file(TestLog),
+            Pid = pid_to_list(self()),
+            ?assertMatch(_, _, "error", Pid, "Test message\n",
+                re:split(Bin, " ", {return, list}, {parts, 5}))
+        end},
+        {"don't choke on unicode",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+
+            gen_event:add_handler(lager_event, lager_file_backend,
+                {TestLog, info}, {lager_default_formatter}),
+            lager:log(error, self(),"~ts", 20013,25991,27979,35797),
+            {ok, Bin} = file:read_file(TestLog),
+            Pid = pid_to_list(self()),
+            ?assertMatch(_, _, "error", Pid,
+                228,184,173,230,150,135,230,181,139,232,175,149, $\n,
+                re:split(Bin, " ", {return, list}, {parts, 5}))
+        end},
+        {"don't choke on latin-1",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+
+            %% XXX if this test fails, check that this file is encoded latin-1, not utf-8!
+            gen_event:add_handler(lager_event, lager_file_backend,
+                {TestLog, info}, {lager_default_formatter}),
+            lager:log(error, self(),"~ts", 76, 198, 221, 206, 78, $-, 239),
+            {ok, Bin} = file:read_file(TestLog),
+            Pid = pid_to_list(self()),
+            Res = re:split(Bin, " ", {return, list}, {parts, 5}),
+            ?assertMatch(_, _, "error", Pid,
+                76,195,134,195,157,195,142,78,45,195,175,$\n, Res)
+        end},
+        {"file can't be opened on startup triggers an error message",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+            ?assertEqual(ok, lager_util:safe_write_file(TestLog, )),
+
+            {ok, FInfo0} = file:read_file_info(TestLog, raw),
+            FInfo1 = FInfo0#file_info{mode = 0},
+            ?assertEqual(ok, file:write_file_info(TestLog, FInfo1)),
+
+            gen_event:add_handler(lager_event, lager_file_backend,
+                {TestLog, info, 10*1024*1024, "$D0", 5}),
+
+            % Note: required on win32, do this early to prevent subsequent failures
+            % from preventing cleanup
+            ?assertEqual(ok, file:write_file_info(TestLog, FInfo0)),
+
+            ?assertEqual(1, lager_test_backend:count()),
+            {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
+            MessageFlat = lists:flatten(Message),
+            ?assertEqual(
+                "Failed to open log file " ++ TestLog ++ " with error permission denied",
+                MessageFlat)
+        end},
+        {"file that becomes unavailable at runtime should trigger an error message",
+        fun() ->
+            case os:type() of
+                {win32, _} ->
+                    % Note: test is skipped on win32 due to the fact that a file can't be
+                    % deleted or renamed while a process has an open file handle referencing it
+                    ok;
+                _ ->
+                    {ok, TestDir} = lager_util:get_test_dir(),
+                    TestLog = filename:join(TestDir, "test.log"),
+
+                    gen_event:add_handler(lager_event, lager_file_backend,
+                        {file, TestLog}, {level, info}, {check_interval, 0}),
+                    ?assertEqual(0, lager_test_backend:count()),
+                    lager:log(error, self(), "Test message"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    ?assertEqual(ok, file:delete(TestLog)),
+                    ?assertEqual(ok, lager_util:safe_write_file(TestLog, "")),
+                    {ok, FInfo0} = file:read_file_info(TestLog, raw),
+                    FInfo1 = FInfo0#file_info{mode = 0},
+                    ?assertEqual(ok, file:write_file_info(TestLog, FInfo1)),
+                    lager:log(error, self(), "Test message"),
+                    lager_test_backend:pop(),
+                    lager_test_backend:pop(),
+                    {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
+                    ?assertEqual(
+                        "Failed to reopen log file " ++ TestLog ++ " with error permission denied",
+                        lists:flatten(Message))
+            end
+        end},
+        {"unavailable files that are fixed at runtime should start having log messages written",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+            ?assertEqual(ok, lager_util:safe_write_file(TestLog, )),
+
+            {ok, FInfo} = file:read_file_info(TestLog, raw),
+            OldPerms = FInfo#file_info.mode,
+            ?assertEqual(ok, file:write_file_info(TestLog, FInfo#file_info{mode = 0})),
+            gen_event:add_handler(lager_event, lager_file_backend,
+                {file, TestLog},{check_interval, 0}),
+            ?assertEqual(1, lager_test_backend:count()),
+            {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
+            ?assertEqual(
+                "Failed to open log file " ++ TestLog ++ " with error permission denied",
+                lists:flatten(Message)),
+            ?assertEqual(ok, file:write_file_info(TestLog, FInfo#file_info{mode = OldPerms})),
+            lager:log(error, self(), "Test message"),
+            {ok, Bin} = file:read_file(TestLog),
+            Pid = pid_to_list(self()),
+            ?assertMatch(_, _, "error", Pid, "Test message\n",
+                re:split(Bin, " ", {return, list}, {parts, 5}))
+        end},
+        {"external logfile rotation/deletion should be handled",
+        fun() ->
+            case os:type() of
+                {win32, _} ->
+                    % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
+                    % while a process has an open file handle referencing it
+                    ok;
+                _ ->
+                    {ok, TestDir} = lager_util:get_test_dir(),
+                    TestLog = filename:join(TestDir, "test.log"),
+                    TestLog0 = TestLog ++ ".0",
+
+                    gen_event:add_handler(lager_event, lager_file_backend,
+                        {file, TestLog}, {level, info}, {check_interval, 0}),
+                    ?assertEqual(0, lager_test_backend:count()),
+                    lager:log(error, self(), "Test message1"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    ?assertEqual(ok, file:delete(TestLog)),
+                    ?assertEqual(ok, lager_util:safe_write_file(TestLog, "")),
+                    lager:log(error, self(), "Test message2"),
+                    ?assertEqual(2, lager_test_backend:count()),
+                    {ok, Bin} = file:read_file(TestLog),
+                    Pid = pid_to_list(self()),
+                    ?assertMatch(_, _, "error", Pid, "Test message2\n",
+                        re:split(Bin, " ", {return, list}, {parts, 5})),
+                    ?assertEqual(ok, file:rename(TestLog, TestLog0)),
+                    lager:log(error, self(), "Test message3"),
+                    ?assertEqual(3, lager_test_backend:count()),
+                    {ok, Bin2} = file:read_file(TestLog),
+                    ?assertMatch(_, _, "error", Pid, "Test message3\n",
+                        re:split(Bin2, " ", {return, list}, {parts, 5}))
+            end
+        end},
+        {"internal size rotation should work",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+            TestLog0 = TestLog ++ ".0",
+
+            gen_event:add_handler(lager_event, lager_file_backend,
+                {file, TestLog}, {level, info}, {check_interval, 0}, {size, 10}),
+            lager:log(error, self(), "Test message1"),
+            lager:log(error, self(), "Test message1"),
+            ?assert(filelib:is_regular(TestLog0))
+        end},
+        {"internal time rotation should work",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+            TestLog0 = TestLog ++ ".0",
+
+            gen_event:add_handler(lager_event, lager_file_backend,
+                {file, TestLog}, {level, info}, {check_interval, 1000}),
+            lager:log(error, self(), "Test message1"),
+            lager:log(error, self(), "Test message1"),
+            whereis(lager_event) ! {rotate, TestLog},
+            lager:log(error, self(), "Test message1"),
+            ?assert(filelib:is_regular(TestLog0))
+        end},
+        {"rotation call should work",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+            TestLog0 = TestLog ++ ".0",
+
+            gen_event:add_handler(lager_event, {lager_file_backend, TestLog},
+                {file, TestLog}, {level, info}, {check_interval, 1000}),
+            lager:log(error, self(), "Test message1"),
+            lager:log(error, self(), "Test message1"),
+            gen_event:call(lager_event, {lager_file_backend, TestLog}, rotate, infinity),
+            lager:log(error, self(), "Test message1"),
+            ?assert(filelib:is_regular(TestLog0))
+        end},
+        {"sync_on option should work",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+
+            gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog},
+                {level, info}, {sync_on, "=info"}, {check_interval, 5000}, {sync_interval, 5000}),
+            lager:log(error, self(), "Test message1"),
+            lager:log(error, self(), "Test message1"),
+            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+            lager:log(info, self(), "Test message1"),
+            {ok, Bin} = file:read_file(TestLog),
+            ?assert(<<>> /= Bin)
+        end},
+        {"sync_on none option should work (also tests sync_interval)",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+
+            gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog},
+                {level, info}, {sync_on, "none"}, {check_interval, 5000}, {sync_interval, 1000}),
+            lager:log(error, self(), "Test message1"),
+            lager:log(error, self(), "Test message1"),
+            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+            lager:log(info, self(), "Test message1"),
+            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+            timer:sleep(2000),
+            {ok, Bin} = file:read_file(TestLog),
+            ?assert(<<>> /= Bin)
+        end},
+        {"sync_size option should work",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+
+            gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog}, {level, info},
+                {sync_on, "none"}, {check_interval, 5001}, {sync_size, 640}, {sync_interval, 5001}),
+            lager:log(error, self(), "Test messageis64bytes"),
+            lager:log(error, self(), "Test messageis64bytes"),
+            lager:log(error, self(), "Test messageis64bytes"),
+            lager:log(error, self(), "Test messageis64bytes"),
+            lager:log(error, self(), "Test messageis64bytes"),
+            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+            lager:log(error, self(), "Test messageis64bytes"),
+            lager:log(error, self(), "Test messageis64bytes"),
+            lager:log(error, self(), "Test messageis64bytes"),
+            lager:log(error, self(), "Test messageis64bytes"),
+            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+            %% now we've written enough bytes
+            lager:log(error, self(), "Test messageis64bytes"),
+            {ok, Bin} = file:read_file(TestLog),
+            ?assert(<<>> /= Bin)
+        end},
+        {"runtime level changes",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+
+            gen_event:add_handler(lager_event, {lager_file_backend, TestLog}, {TestLog, info}),
+            ?assertEqual(0, lager_test_backend:count()),
+            lager:log(info, self(), "Test message1"),
+            lager:log(error, self(), "Test message2"),
+            {ok, Bin} = file:read_file(TestLog),
+            Lines = length(re:split(Bin, "\n", {return, list}, trim)),
+            ?assertEqual(Lines, 2),
+            ?assertEqual(ok, lager:set_loglevel(lager_file_backend, TestLog, warning)),
+            lager:log(info, self(), "Test message3"), %% this won't get logged
+            lager:log(error, self(), "Test message4"),
+            {ok, Bin2} = file:read_file(TestLog),
+            Lines2 = length(re:split(Bin2, "\n", {return, list}, trim)),
+            ?assertEqual(Lines2, 3)
+        end},
+        {"invalid runtime level changes",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+            TestLog3 = filename:join(TestDir, "test3.log"),
+
+            gen_event:add_handler(lager_event, lager_file_backend,
+                {TestLog, info, 10*1024*1024, "$D0", 5}, {lager_default_formatter}),
+            gen_event:add_handler(lager_event, lager_file_backend, {TestLog3, info}),
+            ?assertEqual({error, bad_module}, lager:set_loglevel(lager_file_backend, TestLog, warning))
+        end},
+        {"tracing should work",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+
+            gen_event:add_handler(lager_event, lager_file_backend, {TestLog, critical}),
+            lager:error("Test message"),
+            ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+            {Level, _} = lager_config:get({lager_event, loglevel}),
+            lager_config:set({lager_event, loglevel}, {Level,
+                {{module, ?MODULE}, ?DEBUG, {lager_file_backend, TestLog}}}),
+            lager:error("Test message"),
+            timer:sleep(1000),
+            {ok, Bin} = file:read_file(TestLog),
+            ?assertMatch(_, _, "error", _, "Test message\n",
+                re:split(Bin, " ", {return, list}, {parts, 5}))
+        end},
+        {"tracing should not duplicate messages",
+        fun() ->
+            case os:type() of
+                {win32, _} ->
+                    % Note: test is skipped on win32 due to the fact that a file can't be
+                    % deleted or renamed while a process has an open file handle referencing it
+                    ok;
+                _ ->
+                    {ok, TestDir} = lager_util:get_test_dir(),
+                    TestLog = filename:join(TestDir, "test.log"),
+
+                    gen_event:add_handler(lager_event, lager_file_backend,
+                        {file, TestLog}, {level, critical}, {check_interval, always}),
+                    timer:sleep(500),
+                    lager:critical("Test message"),
+                    {ok, Bin1} = file:read_file(TestLog),
+                    ?assertMatch(_, _, "critical", _, "Test message\n",
+                        re:split(Bin1, " ", {return, list}, {parts, 5})),
+                    ?assertEqual(ok, file:delete(TestLog)),
+                    {Level, _} = lager_config:get({lager_event, loglevel}),
+                    lager_config:set({lager_event, loglevel},
+                        {Level, {{module, ?MODULE}, ?DEBUG, {lager_file_backend, TestLog}}}),
+                    lager:critical("Test message"),
+                    {ok, Bin2} = file:read_file(TestLog),
+                    ?assertMatch(_, _, "critical", _, "Test message\n",
+                        re:split(Bin2, " ", {return, list}, {parts, 5})),
+                    ?assertEqual(ok, file:delete(TestLog)),
+                    lager:error("Test message"),
+                    {ok, Bin3} = file:read_file(TestLog),
+                    ?assertMatch(_, _, "error", _, "Test message\n",
+                        re:split(Bin3, " ", {return, list}, {parts, 5}))
+            end
+        end},
+        {"tracing to a dedicated file should work",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "foo.log"),
+
+            {ok, _} = lager:trace_file(TestLog, {module, ?MODULE}),
+            lager:error("Test message"),
+            %% not eligible for trace
+            lager:log(error, self(), "Test message"),
+            {ok, Bin3} = file:read_file(TestLog),
+            ?assertMatch(_, _, "error", _, "Test message\n",
+                re:split(Bin3, " ", {return, list}, {parts, 5}))
+        end},
+        {"tracing to a dedicated file should work even if root_log is set",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            LogName = "foo.log",
+            LogPath = filename:join(TestDir, LogName),
+
+            application:set_env(lager, log_root, TestDir),
+            {ok, _} = lager:trace_file(LogName, {module, ?MODULE}),
+            lager:error("Test message"),
+            %% not eligible for trace
+            lager:log(error, self(), "Test message"),
+            {ok, Bin3} = file:read_file(LogPath),
+            application:unset_env(lager, log_root),
+            ?assertMatch(_, _, "error", _, "Test message\n",
+                re:split(Bin3, " ", {return, list}, {parts, 5}))
+        end},
+        {"tracing with options should work",
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "foo.log"),
+            TestLog0 = TestLog ++ ".0",
+
+            {ok, _} = lager:trace_file(TestLog, {module, ?MODULE},
+                {size, 20}, {check_interval, 1}),
+            lager:error("Test message"),
+            ?assertNot(filelib:is_regular(TestLog0)),
+            %% rotation is sensitive to intervals between
+            %% writes so we sleep to exceed the 1
+            %% millisecond interval specified by
+            %% check_interval above
+            timer:sleep(2),
+            lager:error("Test message"),
+            timer:sleep(10),
+            ?assert(filelib:is_regular(TestLog0))
+        end},
+        {"no silent hwm drops",
+        fun() ->
+            MsgCount = 15,
+            {ok, TestDir} = lager_util:get_test_dir(),
+            TestLog = filename:join(TestDir, "test.log"),
+            gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog}, {level, info},
+                {high_water_mark, 5}, {flush_queue, false}, {sync_on, "=warning"}),
+            {_, _, MS} = os:timestamp(),
+            % start close to the beginning of a new second
+            ?assertEqual(ok, timer:sleep((1000000 - MS) div 1000 + 1)),
+            lager:log(info, self(), "Foo ~p", K) || K <- lists:seq(1, MsgCount),
+            ?assertEqual(MsgCount, lager_test_backend:count()),
+            % Note: bumped from 1000 to 1250 to ensure delayed write flushes to disk
+            ?assertEqual(ok, timer:sleep(1250)),
+            {ok, Bin} = file:read_file(TestLog),
+            Last = lists:last(re:split(Bin, "\n", {return, list}, trim)),
+            ?assertMatch(_, _, _, _, "lager_file_backend dropped 10 messages in the last second that exceeded the limit of 5 messages/sec",
+                re:split(Last, " ", {return, list}, {parts, 5}))
+        end}
+    }.
+
+trace_files_test_() ->
+    {foreach,
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            Log     = filename:join(TestDir, "test.log"),
+            Debug   = filename:join(TestDir, "debug.log"),
+            Events  = filename:join(TestDir, "events.log"),
+
+            ok = error_logger:tty(false),
+            ok = lager_util:safe_application_load(lager),
+            ok = application:set_env(lager, handlers, 
+                     {lager_file_backend, 
+                         {file, Log},
+                         {level, error},
+                         {formatter, lager_default_formatter},
+                         {formatter_config, message, "\n"}
+                     }
+                 ),
+            ok = application:set_env(lager, traces, 
+                     { % get default level of debug
+                         {lager_file_backend, Debug}, {module, ?MODULE}
+                     },
+                     { % Handler                       Filters              Level
+                         {lager_file_backend, Events}, {module, ?MODULE}, notice
+                     }
+                 ),
+            ok = application:set_env(lager, async_threshold, undefined),
+            ok = lager:start(),
+            {Log, Debug, Events}
+        end,
+        fun({_, _, _}) ->
+            catch ets:delete(lager_config),
+            ok = application:unset_env(lager, traces),
+            ok = application:stop(lager),
+            ok = lager_util:delete_test_dir(),
+            ok = error_logger:tty(true)
+        end, 
+        fun({Log, Debug, Events}) ->
+            {"a trace using file backend set up in configuration should work",
+            fun() ->
+                lager:error("trace test error message"),
+                lager:info("info message"),
+                %% not eligible for trace
+                lager:log(error, self(), "Not trace test message"),
+                {ok, BinInfo} = file:read_file(Events),
+                ?assertMatch(_, _, "error", _, "trace test error message\n",
+                    re:split(BinInfo, " ", {return, list}, {parts, 5})),
+                ?assert(filelib:is_regular(Log)),
+                {ok, BinInfo2} = file:read_file(Log),
+                ?assertMatch("trace test error message", "Not trace test message\n",
+                    re:split(BinInfo2, "\n", {return, list}, {parts, 2})),
+                ?assert(filelib:is_regular(Debug)),
+                %% XXX Aughhhh, wish I could force this to flush somehow...
+                % should take about 1 second, try for 3 ...
+                ?assertEqual(2, count_lines_until(2, add_secs(os:timestamp(), 3), Debug, 0))
+            end}
+        end
+    }.
+
+count_lines_until(Lines, Timeout, File, Last) ->
+    case timer:now_diff(Timeout, os:timestamp()) > 0 of
+        true ->
+            timer:sleep(333),
+            {ok, Bin} = file:read_file(File),
+            case erlang:length(re:split(Bin, "\n", {return, list}, trim)) of
+                Count when Count < Lines ->
+                    count_lines_until(Lines, Timeout, File, Count);
+                Count ->
+                    Count
+            end;
+        _ ->
+            Last
+    end.
+
+formatting_test_() ->
+    {foreach,
+        fun() ->
+            {ok, TestDir} = lager_util:get_test_dir(),
+            Log1 = filename:join(TestDir, "test.log"),
+            Log2 = filename:join(TestDir, "test2.log"),
+            ?assertEqual(ok, lager_util:safe_write_file(Log1, )),
+            ?assertEqual(ok, lager_util:safe_write_file(Log2, )),
+            ok = error_logger:tty(false),
+            ok = lager_util:safe_application_load(lager),
+            ok = application:set_env(lager, handlers, {lager_test_backend, info}),
+            ok = application:set_env(lager, error_logger_redirect, false),
+            ok = lager:start(),
+            %% same race condition issue
+            ok = timer:sleep(5),
+            {ok, Log1, Log2}
+        end,
+        fun({ok, _, _}) ->
+            ok = application:stop(lager),
+            ok = application:stop(goldrush),
+            ok = lager_util:delete_test_dir(),
+            ok = error_logger:tty(true)
+        end, 
+        fun({ok, Log1, Log2}) ->
+            {"Should have two log files, the second prefixed with 2>",
+            fun() ->
+                gen_event:add_handler(lager_event, lager_file_backend,
+                    {Log1, debug}, {lager_default_formatter, "",severity," ", message, "\n"}),
+                gen_event:add_handler(lager_event, lager_file_backend,
+                    {Log2, debug}, {lager_default_formatter, "2> ",severity," ", message, "\n"}),
+                lager:log(error, self(), "Test message"),
+                ?assertMatch({ok, <<"error Test message\n">>},file:read_file(Log1)),
+                ?assertMatch({ok, <<"2> error Test message\n">>},file:read_file(Log2))
+            end}
+        end
+    }.
+
+config_validation_test_() ->
+    
+        {"missing file",
+            ?_assertEqual(false,
+                validate_logfile_proplist({level, info}, {size, 10}))
+        },
+        {"bad level",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {level, blah}, {size, 10}))
+        },
+        {"bad size",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {size, infinity}))
+        },
+        {"bad count",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {count, infinity}))
+        },
+        {"bad high water mark",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {high_water_mark, infinity}))
+        },
+        {"bad date",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {date, "midnight"}))
+        },
+        {"blank date is ok",
+            ?_assertMatch(_|_,
+                validate_logfile_proplist({file, "test.log"}, {date, ""}))
+        },
+        {"bad sync_interval",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {sync_interval, infinity}))
+        },
+        {"bad sync_size",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {sync_size, infinity}))
+        },
+        {"bad check_interval",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {check_interval, infinity}))
+        },
+        {"bad sync_on level",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {sync_on, infinity}))
+        },
+        {"bad formatter module",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {formatter, "io:format"}))
+        },
+        {"bad formatter config",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {formatter_config, blah}))
+        },
+        {"unknown option",
+            ?_assertEqual(false,
+                validate_logfile_proplist({file, "test.log"}, {rhubarb, spicy}))
+        }
+    .
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_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
+    Res = prefixed_integer(A, F, Adj, base(P), Pad, Prefix, false),
+    {Res, L - lists:flatlength(Res)};
+control($+, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+    Base = base(P),
+    Prefix = integer_to_list(Base), $#,
+    Res = prefixed_integer(A, F, Adj, Base, Pad, Prefix, true),
+    {Res, L - lists:flatlength(Res)};
+control($#, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+    Base = base(P),
+    Prefix = integer_to_list(Base), $#,
+    Res = prefixed_integer(A, F, Adj, Base, Pad, Prefix, false),
+    {Res, L - lists:flatlength(Res)};
+control($c, A, F, Adj, P, Pad, unicode, L) when is_integer(A) ->
+    Res = char(A, F, Adj, P, Pad),
+    {Res, L - lists:flatlength(Res)};
+control($c, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+    Res = char(A band 255, F, Adj, P, Pad),
+    {Res, L - lists:flatlength(Res)};
+control($~, , F, Adj, P, Pad, _Enc, L) ->
+    Res = char($~, F, Adj, P, Pad),
+    {Res, L - lists:flatlength(Res)};
+control($n, , F, Adj, P, Pad, _Enc, L) ->
+    Res = newline(F, Adj, P, Pad),
+    {Res, L - lists:flatlength(Res)};
+control($i, _A, _F, _Adj, _P, _Pad, _Enc, L) ->
+    {, L};
+control($s, A, F, Adj, P, Pad, _Enc, L) when is_atom(A) ->
+    Res = string(atom_to_list(A), F, Adj, P, Pad),
+    {Res, L - lists:flatlength(Res)};
+control(C, A, F, Adj, P, Pad, Enc, L) ->
+    %% save this for later - these are all the 'large' terms
+    {{C, A, F, Adj, P, Pad, Enc}, L}.
+
+control2($w, A, F, Adj, P, Pad, _Enc, L) ->
+    Term = lager_trunc_io:fprint(A, L, {lists_as_strings, false}),
+    Res = term(Term, F, Adj, P, Pad),
+    {Res, lists:flatlength(Res)};
+control2($p, A, _F, _Adj, _P, _Pad, _Enc, L) ->
+    Term = lager_trunc_io:fprint(A, L, {lists_as_strings, true}),
+    {Term, lists:flatlength(Term)};
+control2($W, A,Depth, F, Adj, P, Pad, _Enc, L) when is_integer(Depth) ->
+    Term = lager_trunc_io:fprint(A, L, {depth, Depth}, {lists_as_strings, false}),
+    Res = term(Term, F, Adj, P, Pad),
+    {Res, lists:flatlength(Res)};
+control2($P, A,Depth, _F, _Adj, _P, _Pad, _Enc, L) when is_integer(Depth) ->
+    Term = lager_trunc_io:fprint(A, L, {depth, Depth}, {lists_as_strings, true}),
+    {Term, lists:flatlength(Term)};
+control2($s, L0, F, Adj, P, Pad, latin1, L) ->
+    List = lager_trunc_io:fprint(iolist_to_chars(L0), L, {force_strings, true}),
+    Res = string(List, F, Adj, P, Pad),
+    {Res, lists:flatlength(Res)};
+control2($s, L0, F, Adj, P, Pad, unicode, L) ->
+    List = lager_trunc_io:fprint(cdata_to_chars(L0), L, {force_strings, true}),
+    Res = uniconv(string(List, F, Adj, P, Pad)),
+    {Res, lists:flatlength(Res)}.
+
+iolist_to_chars(C|Cs) when is_integer(C), C >= $\000, C =< $\377 ->
+    C | iolist_to_chars(Cs);
+iolist_to_chars(I|Cs) ->
+    iolist_to_chars(I) | iolist_to_chars(Cs);
+iolist_to_chars() ->
+    ;
+iolist_to_chars(B) when is_binary(B) ->
+    binary_to_list(B).
+
+cdata_to_chars(C|Cs) when is_integer(C), C >= $\000 ->
+    C | cdata_to_chars(Cs);
+cdata_to_chars(I|Cs) ->
+    cdata_to_chars(I) | cdata_to_chars(Cs);
+cdata_to_chars() ->
+    ;
+cdata_to_chars(B) when is_binary(B) ->
+    case catch unicode:characters_to_list(B) of
+        L when is_list(L) -> L;
+        _ -> binary_to_list(B)
+    end.
+
+make_options(, Options) ->
+    Options;
+make_options({chomp, Bool}|T, Options) when is_boolean(Bool) ->
+    make_options(T, Options#options{chomp=Bool}).
+
+-ifdef(UNICODE_AS_BINARIES).
+uniconv(C) ->
+    unicode:characters_to_binary(C,unicode).
+-else.
+uniconv(C) ->
+    C.
+-endif.
+%% Default integer base
+base(none) ->
+    10;
+base(B) when is_integer(B) ->
+    B.
+
+%% term(TermList, Field, Adjust, Precision, PadChar)
+%%  Output the characters in a term.
+%%  Adjust the characters within the field if length less than Max padding
+%%  with PadChar.
+
+term(T, none, _Adj, none, _Pad) -> T;
+term(T, none, Adj, P, Pad) -> term(T, P, Adj, P, Pad);
+term(T, F, Adj, P0, Pad) ->
+    L = lists:flatlength(T),
+    P = case P0 of none -> erlang:min(L, F); _ -> P0 end,
+    if
+        L > P ->
+            adjust(chars($*, P), chars(Pad, F-P), Adj);
+        F >= P ->
+            adjust(T, chars(Pad, F-L), Adj)
+    end.
+
+%% fwrite_e(Float, Field, Adjust, Precision, PadChar)
+
+fwrite_e(Fl, none, Adj, none, Pad) -> %Default values
+    fwrite_e(Fl, none, Adj, 6, Pad);
+fwrite_e(Fl, none, _Adj, P, _Pad) when P >= 2 ->
+    float_e(Fl, float_data(Fl), P);
+fwrite_e(Fl, F, Adj, none, Pad) ->
+    fwrite_e(Fl, F, Adj, 6, Pad);
+fwrite_e(Fl, F, Adj, P, Pad) when P >= 2 ->
+    term(float_e(Fl, float_data(Fl), P), F, Adj, F, Pad).
+
+float_e(Fl, Fd, P) when Fl < 0.0 -> %Negative numbers
+    $-|float_e(-Fl, Fd, P);
+float_e(_Fl, {Ds,E}, P) ->
+    case float_man(Ds, 1, P-1) of
+        {$0|Fs,true} -> $1|Fs|float_exp(E);
+        {Fs,false} -> Fs|float_exp(E-1)
+    end.
+
+%% float_man(Digit, Icount, Dcount) -> {Chars,CarryFlag}.
+%%  Generate the characters in the mantissa from the digits with Icount
+%%  characters before the '.' and Dcount decimals. Handle carry and let
+%%  caller decide what to do at top.
+
+float_man(Ds, 0, Dc) ->
+    {Cs,C} = float_man(Ds, Dc),
+    {$.|Cs,C};
+float_man(D|Ds, I, Dc) ->
+    case float_man(Ds, I-1, Dc) of
+        {Cs,true} when D =:= $9 -> {$0|Cs,true};
+        {Cs,true} -> {D+1|Cs,false};
+        {Cs,false} -> {D|Cs,false}
+    end;
+float_man(, I, Dc) -> %Pad with 0's
+    {string:chars($0, I, $.|string:chars($0, Dc)),false}.
+
+float_man(D|_, 0) when D >= $5 -> {,true};
+float_man(_|_, 0) -> {,false};
+float_man(D|Ds, Dc) ->
+    case float_man(Ds, Dc-1) of
+        {Cs,true} when D =:= $9 -> {$0|Cs,true};
+        {Cs,true} -> {D+1|Cs,false}; 
+        {Cs,false} -> {D|Cs,false}
+    end;
+float_man(, Dc) -> {string:chars($0, Dc),false}. %Pad with 0's
+
+%% float_exp(Exponent) -> Char.
+%%  Generate the exponent of a floating point number. Always include sign.
+
+float_exp(E) when E >= 0 ->
+    $e,$+|integer_to_list(E);
+float_exp(E) ->
+    $e|integer_to_list(E).
+
+%% fwrite_f(FloatData, Field, Adjust, Precision, PadChar)
+
+fwrite_f(Fl, none, Adj, none, Pad) -> %Default values
+    fwrite_f(Fl, none, Adj, 6, Pad);
+fwrite_f(Fl, none, _Adj, P, _Pad) when P >= 1 ->
+    float_f(Fl, float_data(Fl), P);
+fwrite_f(Fl, F, Adj, none, Pad) ->
+    fwrite_f(Fl, F, Adj, 6, Pad);
+fwrite_f(Fl, F, Adj, P, Pad) when P >= 1 ->
+    term(float_f(Fl, float_data(Fl), P), F, Adj, F, Pad).
+
+float_f(Fl, Fd, P) when Fl < 0.0 ->
+    $-|float_f(-Fl, Fd, P);
+float_f(Fl, {Ds,E}, P) when E =< 0 ->
+    float_f(Fl, {string:chars($0, -E+1, Ds),1}, P); %Prepend enough 0's 
+float_f(_Fl, {Ds,E}, P) ->
+    case float_man(Ds, E, P) of
+        {Fs,true} -> "1" ++ Fs; %Handle carry
+        {Fs,false} -> Fs
+    end.
+
+%% float_data(FloatChar) -> {Digit,Exponent}
+
+float_data(Fl) ->
+    float_data(float_to_list(Fl), ).
+
+float_data($e|E, Ds) ->
+    {lists:reverse(Ds),list_to_integer(E)+1};
+float_data(D|Cs, Ds) when D >= $0, D =< $9 ->
+    float_data(Cs, D|Ds);
+float_data(_|Cs, Ds) ->
+    float_data(Cs, Ds).
+
+%% fwrite_g(Float, Field, Adjust, Precision, PadChar)
+%%  Use the f form if Float is >= 0.1 and < 1.0e4, 
+%%  and the prints correctly in the f form, else the e form.
+%%  Precision always means the # of significant digits.
+
+fwrite_g(Fl, F, Adj, none, Pad) ->
+    fwrite_g(Fl, F, Adj, 6, Pad);
+fwrite_g(Fl, F, Adj, P, Pad) when P >= 1 ->
+    A = abs(Fl),
+    E = if A < 1.0e-1 -> -2;
+        A < 1.0e0  -> -1;
+        A < 1.0e1  -> 0;
+        A < 1.0e2  -> 1;
+        A < 1.0e3  -> 2;
+        A < 1.0e4  -> 3;
+        true       -> fwrite_f
+    end,
+    if  P =< 1, E =:= -1;
+    P-1 > E, E >= -1 ->
+        fwrite_f(Fl, F, Adj, P-1-E, Pad);
+    P =< 1 ->
+        fwrite_e(Fl, F, Adj, 2, Pad);
+    true ->
+        fwrite_e(Fl, F, Adj, P, Pad)
+    end.
+
+
+%% string(String, Field, Adjust, Precision, PadChar)
+
+string(S, none, _Adj, none, _Pad) -> S;
+string(S, F, Adj, none, Pad) ->
+    string_field(S, F, Adj, lists:flatlength(S), Pad);
+string(S, none, _Adj, P, Pad) ->
+    string_field(S, P, left, lists:flatlength(S), Pad);
+string(S, F, Adj, P, Pad) when F >= P ->
+    N = lists:flatlength(S),
+    if F > P ->
+            if N > P ->
+                    adjust(flat_trunc(S, P), chars(Pad, F-P), Adj);
+                N < P ->
+                    adjust(S|chars(Pad, P-N), chars(Pad, F-P), Adj);
+                true -> % N == P
+                    adjust(S, chars(Pad, F-P), Adj)
+            end;
+       true -> % F == P
+        string_field(S, F, Adj, N, Pad)
+    end.
+
+string_field(S, F, _Adj, N, _Pad) when N > F ->
+    flat_trunc(S, F);
+string_field(S, F, Adj, N, Pad) when N < F ->
+    adjust(S, chars(Pad, F-N), Adj);
+string_field(S, _, _, _, _) -> % N == F
+    S.
+
+%% unprefixed_integer(Int, Field, Adjust, Base, PadChar, Lowercase)
+%% -> Char.
+
+unprefixed_integer(Int, F, Adj, Base, Pad, Lowercase)
+  when Base >= 2, Base =< 1+$Z-$A+10 ->
+    if Int < 0 ->
+            S = cond_lowercase(erlang:integer_to_list(-Int, Base), Lowercase),
+            term($-|S, F, Adj, none, Pad);
+       true ->
+        S = cond_lowercase(erlang:integer_to_list(Int, Base), Lowercase),
+        term(S, F, Adj, none, Pad)
+    end.
+
+%% prefixed_integer(Int, Field, Adjust, Base, PadChar, Prefix, Lowercase)
+%% -> Char.
+
+prefixed_integer(Int, F, Adj, Base, Pad, Prefix, Lowercase)
+  when Base >= 2, Base =< 1+$Z-$A+10 ->
+    if Int < 0 ->
+            S = cond_lowercase(erlang:integer_to_list(-Int, Base), Lowercase),
+            term($-,Prefix|S, F, Adj, none, Pad);
+       true ->
+        S = cond_lowercase(erlang:integer_to_list(Int, Base), Lowercase),
+        term(Prefix|S, F, Adj, none, Pad)
+    end.
+
+%% char(Char, Field, Adjust, Precision, PadChar) -> Char.
+
+char(C, none, _Adj, none, _Pad) -> C;
+char(C, F, _Adj, none, _Pad) -> chars(C, F);
+char(C, none, _Adj, P, _Pad) -> chars(C, P);
+char(C, F, Adj, P, Pad) when F >= P ->
+    adjust(chars(C, P), chars(Pad, F - P), Adj).
+
+%% newline(Field, Adjust, Precision, PadChar) -> Char.
+
+newline(none, _Adj, _P, _Pad) -> "\n";
+newline(F, right, _P, _Pad) -> chars($\n, F).
+
+%%
+%% Utilities
+%%
+
+adjust(Data, , _) -> Data;
+adjust(Data, Pad, left) -> Data|Pad;
+adjust(Data, Pad, right) -> Pad|Data.
+
+%% Flatten and truncate a deep list to at most N elements.
+flat_trunc(List, N) when is_integer(N), N >= 0 ->
+    flat_trunc(List, N, ).
+
+flat_trunc(L, 0, R) when is_list(L) ->
+    lists:reverse(R);
+flat_trunc(H|T, N, R) ->
+    flat_trunc(T, N-1, H|R);
+flat_trunc(, _, R) ->
+    lists:reverse(R).
+
+%% A deep version of string:chars/2,3
+
+chars(_C, 0) ->
+    ;
+chars(C, 1) ->
+    C;
+chars(C, 2) ->
+    C,C;
+chars(C, 3) ->
+    C,C,C;
+chars(C, N) when is_integer(N), (N band 1) =:= 0 ->
+    S = chars(C, N bsr 1),
+    S|S;
+chars(C, N) when is_integer(N) ->
+    S = chars(C, N bsr 1),
+    C,S|S.
+
+%chars(C, N, Tail) ->
+%    chars(C, N)|Tail.
+
+%% Lowercase conversion
+
+cond_lowercase(String, true) ->
+    lowercase(String);
+cond_lowercase(String,false) ->
+    String.
+
+lowercase(H|T) when is_integer(H), H >= $A, H =< $Z ->
+    (H-$A+$a)|lowercase(T);
+lowercase(H|T) ->
+    H|lowercase(T);
+lowercase() ->
+    .

osmo-diameter2gsup_0.3.0.tar.xz/_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
+        
+    }.
+
+reinstall_handlers_after_killer_hwm_test_() ->
+    {timeout, 60000,
+        
+            fun() ->
+                error_logger:tty(false),
+                application:load(lager),
+                application:set_env(lager, handlers, {lager_manager_killer, 1000, 5000}),
+                application:set_env(lager, error_logger_redirect, false),
+                application:set_env(lager, killer_reinstall_after, 5000),
+                application:unset_env(lager, crash_log),
+                lager:start(),
+                lager:trace_file("foo", {foo, "bar"}, error),
+                L = length(gen_event:which_handlers(lager_event)),
+                try
+                    lager_manager_killer:kill_me(),
+                    timer:sleep(6000),
+                    ?assertEqual(L, length(gen_event:which_handlers(lager_event))),
+                    file:delete("foo")
+                after
+                    application:stop(lager),
+                    application:stop(goldrush),
+                    error_logger:tty(true)
+                end
+            end
+        
+    }.
+
+pop_until(String, Fun) ->
+    try_backend_pop(lager_test_backend:pop(), String, Fun).
+
+try_backend_pop(undefined, String, _Fun) ->
+    throw("Not found: " ++ String);
+try_backend_pop({_Severity, _Date, Msg, _Metadata}, String, Fun) ->
+    case Fun(Msg) of
+        String ->
+            ok;
+        _ ->
+            try_backend_pop(lager_test_backend:pop(), String, Fun)
+    end.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_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}
+                }}.

osmo-diameter2gsup_0.3.0.tar.xz/_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}.

osmo-diameter2gsup_0.3.0.tar.xz/_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.
+
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/src/lager_rotator_behaviour.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_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.

osmo-diameter2gsup_0.3.0.tar.xz/_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),
+    case format_stacktrace1(Str, Trace, FormatFun, StackFun) of
+         -> Expl;
+        Stack -> Expl, $\n, Stack
+    end.
+
+analyze_exception(error, Term, Stack) ->
+    case {is_stacktrace(Stack), Stack, Term} of
+        {true, {_M,_F,As}=MFA|MFAs, function_clause} when is_list(As) -> 
+            {Term,MFA,MFAs};
+        {true, {shell,F,A}, function_clause} when is_integer(A) ->
+            {Term, {F,A}, };
+        {true, {_M,_F,_AorAs}=MFA|MFAs, undef} ->
+            {Term,MFA,MFAs};
+        {true, _, _} ->
+            {Term,,Stack};
+        {false, _, _} ->
+            {{Term,Stack},,}
+    end;
+analyze_exception(_Class, Term, Stack) ->
+    case is_stacktrace(Stack) of
+        true ->
+            {Term,,Stack};
+        false ->
+            {{Term,Stack},,}
+    end.
+
+is_stacktrace() ->
+    true;
+is_stacktrace({M,F,A}|Fs) when is_atom(M), is_atom(F), is_integer(A) ->
+    is_stacktrace(Fs);
+is_stacktrace({M,F,As}|Fs) when is_atom(M), is_atom(F), length(As) >= 0 ->
+    is_stacktrace(Fs);
+is_stacktrace(_) ->
+    false.
+
+%% ERTS exit codes (some of them are also returned by erl_eval):
+explain_reason(badarg, error, , _PF, _Str) ->
+    <<"bad argument">>;
+explain_reason({badarg,V}, error=Cl, , PF, Str) -> % orelse, andalso
+    format_value(V, <<"bad argument: ">>, Cl, PF, Str);
+explain_reason(badarith, error, , _PF, _Str) ->
+    <<"bad argument in an arithmetic expression">>;
+explain_reason({badarity,{Fun,As}}, error, , _PF, _Str) 
+                                      when is_function(Fun) ->
+    %% Only the arity is displayed, not the arguments As.
+    io_lib:fwrite(<<"~s called with ~s">>, 
+                  format_fun(Fun), argss(length(As)));
+explain_reason({badfun,Term}, error=Cl, , PF, Str) ->
+    format_value(Term, <<"bad function ">>, Cl, PF, Str);
+explain_reason({badmatch,Term}, error=Cl, , PF, Str) ->
+    format_value(Term, <<"no match of right hand side value ">>, Cl, PF, Str);
+explain_reason({case_clause,V}, error=Cl, , PF, Str) ->
+    %% "there is no case clause with a true guard sequence and a
+    %% pattern matching..."
+    format_value(V, <<"no case clause matching ">>, Cl, PF, Str);
+explain_reason(function_clause, error, {F,A}, _PF, _Str) ->
+    %% Shell commands
+    FAs = io_lib:fwrite(<<"~w/~w">>, F, A),
+    <<"no function clause matching call to ">> | FAs;
+explain_reason(function_clause, error=Cl, {M,F,As}, PF, Str) ->
+    String = <<"no function clause matching ">>,
+    format_errstr_call(String, Cl, {M,F}, As, PF, Str);
+explain_reason(if_clause, error, , _PF, _Str) ->
+    <<"no true branch found when evaluating an if expression">>;
+explain_reason(noproc, error, , _PF, _Str) ->
+    <<"no such process or port">>;
+explain_reason(notalive, error, , _PF, _Str) ->
+    <<"the node cannot be part of a distributed system">>;
+explain_reason(system_limit, error, , _PF, _Str) ->
+    <<"a system limit has been reached">>;
+explain_reason(timeout_value, error, , _PF, _Str) ->
+    <<"bad receive timeout value">>;
+explain_reason({try_clause,V}, error=Cl, , PF, Str) ->
+    %% "there is no try clause with a true guard sequence and a
+    %% pattern matching..."
+    format_value(V, <<"no try clause matching ">>, Cl, PF, Str);
+explain_reason(undef, error, {M,F,A}, _PF, _Str) ->
+    %% Only the arity is displayed, not the arguments, if there are any.
+    io_lib:fwrite(<<"undefined function ~s">>, 
+                  mfa_to_string(M, F, n_args(A)));
+explain_reason({shell_undef,F,A}, error, , _PF, _Str) ->
+    %% Give nicer reports for undefined shell functions
+    %% (but not when the user actively calls shell_default:F(...)).
+    io_lib:fwrite(<<"undefined shell command ~s/~w">>, F, n_args(A));
+%% Exit codes returned by erl_eval only:
+explain_reason({argument_limit,_Fun}, error, , _PF, _Str) ->
+    io_lib:fwrite(<<"limit of number of arguments to interpreted function"
+                    " exceeded">>, );
+explain_reason({bad_filter,V}, error=Cl, , PF, Str) ->
+    format_value(V, <<"bad filter ">>, Cl, PF, Str);
+explain_reason({bad_generator,V}, error=Cl, , PF, Str) ->
+    format_value(V, <<"bad generator ">>, Cl, PF, Str);
+explain_reason({unbound,V}, error, , _PF, _Str) ->
+    io_lib:fwrite(<<"variable ~w is unbound">>, V);
+%% Exit codes local to the shell module (restricted shell):
+explain_reason({restricted_shell_bad_return, V}, exit=Cl, , PF, Str) ->
+    String = <<"restricted shell module returned bad value ">>,
+    format_value(V, String, Cl, PF, Str);
+explain_reason({restricted_shell_disallowed,{ForMF,As}}, 
+               exit=Cl, , PF, Str) ->
+    %% ForMF can be a fun, but not a shell fun.
+    String = <<"restricted shell does not allow ">>,
+    format_errstr_call(String, Cl, ForMF, As, PF, Str);
+explain_reason(restricted_shell_started, exit, , _PF, _Str) ->
+    <<"restricted shell starts now">>;
+explain_reason(restricted_shell_stopped, exit, , _PF, _Str) ->
+    <<"restricted shell stopped">>;
+%% Other exit code:
+explain_reason(Reason, Class, , PF, Str) ->
+    PF(Reason, (iolist_size(Str)+1) + exited_size(Class)).
+
+n_spaces(N) ->
+    lists:duplicate(N, $\s).
+
+exited_size(Class) ->
+    iolist_size(exited(Class)).
+
+exited(error) ->
+    <<"exception error: ">>;
+exited(exit) ->
+    <<"exception exit: ">>;
+exited(throw) ->
+    <<"exception throw: ">>.
+
+format_stacktrace1(S0, Stack0, PF, SF) ->
+    Stack1 = lists:dropwhile(fun({M,F,A}) -> SF(M, F, A)
+                             end, lists:reverse(Stack0)),
+    S = "  " | S0,
+    Stack = lists:reverse(Stack1),
+    format_stacktrace2(S, Stack, 1, PF).
+
+format_stacktrace2(S, {M,F,A}|Fs, N, PF) when is_integer(A) ->
+    io_lib:fwrite(<<"~s~s ~s">>, 
+                   sep(N, S), origin(N, M, F, A), mfa_to_string(M, F, A))
+     | format_stacktrace2(S, Fs, N + 1, PF);
+format_stacktrace2(S, {M,F,As}|Fs, N, PF) when is_list(As) ->
+    A = length(As),
+    CalledAs = S,<<"   called as ">>,
+    C = format_call("", CalledAs, {M,F}, As, PF),
+    io_lib:fwrite(<<"~s~s ~s\n~s~s">>,
+                   sep(N, S), origin(N, M, F, A), mfa_to_string(M, F, A),
+                    CalledAs, C)
+     | format_stacktrace2(S, Fs, N + 1, PF);
+format_stacktrace2(_S, , _N, _PF) ->
+    "".
+
+argss(0) ->
+    <<"no arguments">>;
+argss(1) ->
+    <<"one argument">>;
+argss(2) ->
+    <<"two arguments">>;
+argss(I) ->
+    io_lib:fwrite(<<"~w arguments">>, I).
+
+format_value(V, ErrStr, Class, PF, Str) ->
+    Pre1Sz = exited_size(Class),
+    Str1 = PF(V, Pre1Sz + iolist_size(Str, ErrStr)+1),
+    ErrStr | case count_nl(Str1) of
+                  N1 when N1 > 1 ->
+                      Str2 = PF(V, iolist_size(Str) + 1 + Pre1Sz),
+                      case count_nl(Str2) < N1 of
+                          true ->
+                              $\n, Str, n_spaces(Pre1Sz) | Str2;
+                          false ->
+                              Str1
+                      end;
+                  _ ->
+                      Str1
+              end.
+
+format_fun(Fun) when is_function(Fun) ->
+    {module, M} = erlang:fun_info(Fun, module),
+    {name, F} = erlang:fun_info(Fun, name),
+    {arity, A} = erlang:fun_info(Fun, arity),
+    case erlang:fun_info(Fun, type) of
+        {type, local} when F =:= "" ->
+            io_lib:fwrite(<<"~w">>, Fun);
+        {type, local} when M =:= erl_eval ->
+            io_lib:fwrite(<<"interpreted function with arity ~w">>, A);
+        {type, local} ->
+            mfa_to_string(M, F, A);
+        {type, external} ->
+            mfa_to_string(M, F, A)
+    end.
+
+format_errstr_call(ErrStr, Class, ForMForFun, As, PF, Pre0) ->
+    Pre1 = Pre0 | n_spaces(exited_size(Class)),
+    format_call(ErrStr, Pre1, ForMForFun, As, PF).
+
+format_call(ErrStr, Pre1, ForMForFun, As, PF) ->
+    Arity = length(As),
+    ErrStr |
+     case is_op(ForMForFun, Arity) of
+         {yes,Op} -> 
+             format_op(ErrStr, Pre1, Op, As, PF);
+         no ->
+             MFs = mf_to_string(ForMForFun, Arity),
+             I1 = iolist_size(Pre1,ErrStr|MFs),
+             S1 = pp_arguments(PF, As, I1),
+             S2 = pp_arguments(PF, As, iolist_size(Pre1|MFs)),
+             Long = count_nl(pp_arguments(PF, a2345,b2345, I1)) > 0,
+             case Long or (count_nl(S2) < count_nl(S1)) of
+                 true ->
+                     $\n, Pre1, MFs, S2;
+                 false ->
+                     MFs, S1
+             end
+    end.
+
+mfa_to_string(M, F, A) ->
+    io_lib:fwrite(<<"~s/~w">>, mf_to_string({M, F}, A), A).
+
+mf_to_string({M, F}, A) ->
+    case erl_internal:bif(M, F, A) of
+        true ->
+            io_lib:fwrite(<<"~w">>, F);
+        false ->
+            case is_op({M, F}, A) of
+                {yes, '/'} ->
+                    io_lib:fwrite(<<"~w">>, F);
+                {yes, F} ->
+                    atom_to_list(F);
+                no ->
+                    io_lib:fwrite(<<"~w:~w">>, M, F)
+            end
+    end;
+mf_to_string(Fun, _A) when is_function(Fun) ->
+    format_fun(Fun);
+mf_to_string(F, _A) ->
+    io_lib:fwrite(<<"~w">>, F).
+
+n_args(A) when is_integer(A) ->
+    A;
+n_args(As) when is_list(As) ->
+    length(As).
+
+origin(1, M, F, A) ->
+    case is_op({M, F}, n_args(A)) of
+        {yes, F} -> <<"in operator ">>;
+        no -> <<"in function ">>
+    end;
+origin(_N, _M, _F, _A) ->
+    <<"in call from">>.
+
+sep(1, S) -> S;
+sep(_, S) -> $\n | S.
+
+count_nl(E | Es) ->
+    count_nl(E) + count_nl(Es);
+count_nl($\n) ->
+    1;
+count_nl(Bin) when is_binary(Bin) ->
+    count_nl(binary_to_list(Bin));
+count_nl(_) ->
+    0.
+
+is_op(ForMForFun, A) ->
+    try 
+        {erlang,F} = ForMForFun,
+        _ = erl_internal:op_type(F, A), 
+        {yes,F}
+    catch error:_ -> no
+    end.
+
+format_op(ErrStr, Pre, Op, A1, A2, PF) ->
+    I1 = iolist_size(ErrStr,Pre),
+    S1 = PF(A1, I1+1),
+    S2 = PF(A2, I1+1),
+    OpS = atom_to_list(Op),
+    Pre1 = $\n | n_spaces(I1),
+    case count_nl(S1) > 0 of
+        true -> 
+            S1,Pre1,OpS,Pre1|S2;
+        false ->
+            OpS2 = io_lib:fwrite(<<" ~s ">>, Op),
+            S2_2 = PF(A2, iolist_size(ErrStr,Pre,S1|OpS2)+1),
+            case count_nl(S2) < count_nl(S2_2) of
+                true ->
+                    S1,Pre1,OpS,Pre1|S2;
+                false ->
+                    S1,OpS2|S2_2
+            end
+    end.
+
+pp_arguments(PF, As, I) ->
+    case {As, io_lib:printable_list(As)} of
+        {Int | T, true} ->
+            L = integer_to_list(Int),
+            Ll = length(L),
+            A = list_to_atom(lists:duplicate(Ll, $a)),
+            S0 = binary_to_list(iolist_to_binary(PF(A | T, I+1))),
+            brackets_to_parens($,L,string:sub_string(S0, 2+Ll));
+        _ -> 
+            brackets_to_parens(PF(As, I+1))
+    end.
+
+brackets_to_parens(S) ->
+    B = iolist_to_binary(S),
+    Sz = byte_size(B) - 2,
+    <<$,R:Sz/binary,$>> = B,
+    $(,R,$).
+

osmo-diameter2gsup_0.3.0.tar.xz/_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}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/src/lager_transform.erl Added

@@ -0,0 +1,339 @@
+%% 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,'_'}},
+                  ,
+                  %% trick the linter into avoiding a 'term constructed but not used' error:
+                  %% (fun() -> {error, lager_not_running} end)()
+                  {call, Line, {'fun', Line, {clauses, {clause, Line, ,, {tuple, Line, {atom, Line, error},{atom, Line, lager_not_running}}}}}, }
+          },
+          %% {undefined, _, _} -> {error, {sink_not_configured, Sink}};
+          {clause,Line,
+                  {tuple,Line,
+                          {atom,Line,undefined},{var,Line,'_'},{var,Line,'_'}},
+                  ,
+                  %% same trick as above to avoid linter error
+                  {call, Line, {'fun', Line, {clauses, {clause, Line, ,, {tuple,Line, {atom,Line,error}, {tuple,Line,{atom,Line,sink_not_configured},{atom,Line,SinkName}}}}}}, } 
+          },
+          %% {SinkPid, _, {Level, Traces}} when ... -> lager:do_log/9;
+          {clause,Line,
+                  {tuple,Line,
+                          {var,Line,PidVar},
+                           {var,Line,'_'},
+                           {tuple,Line,{var,Line,LevelVar},{var,Line,TracesVar}}},
+                  {op, Line, 'orelse',
+                    {op, Line, '/=', {op, Line, 'band', {var, Line, LevelVar}, {integer, Line, SeverityAsInt}}, {integer, Line, 0}},
+                    {op, Line, '/=', {var, Line, TracesVar}, {nil, Line}}},
+                  {call,Line,{remote, Line, {atom, Line, lager}, {atom, Line, LogFun}},
+                         {atom,Line,Severity},
+                          Meta,
+                          Message,
+                          Arguments,
+                          {integer, Line, get(truncation_size)},
+                          {integer, Line, SeverityAsInt},
+                          {var, Line, LevelVar},
+                          {var, Line, TracesVar},
+                          {atom, Line, SinkName},
+                          {var, Line, PidVar}}},
+          %% _ -> ok
+          {clause,Line,{var,Line,'_'},,{atom,Line,ok}}}.
+ 
+handle_args(DefaultAttrs, Line, {cons, LineNum, {tuple, _, _}, _} = Attrs) ->
+    {concat_lists(DefaultAttrs, Attrs), {string, LineNum, ""}, {atom, Line, none}};
+handle_args(DefaultAttrs, Line, Format) ->
+    {DefaultAttrs, Format, {atom, Line, none}};
+handle_args(DefaultAttrs, Line, Arg1, Arg2) ->
+    %% some ambiguity here, figure out if these arguments are
+    %% Format, Args or Attr, Format.
+    %% The trace attributes will be a list of tuples, so check
+    %% for that.
+    case {element(1, Arg1), Arg1} of
+        {_, {cons, _, {tuple, _, _}, _}} ->
+            {concat_lists(Arg1, DefaultAttrs),
+             Arg2, {atom, Line, none}};
+        {Type, _} when Type == var;
+                       Type == lc;
+                       Type == call;
+                       Type == record_field ->
+            %% crap, its not a literal. look at the second
+            %% argument to see if it is a string
+            case Arg2 of
+                {string, _, _} ->
+                    {concat_lists(Arg1, DefaultAttrs),
+                     Arg2, {atom, Line, none}};
+                _ ->
+                    %% not a string, going to have to guess
+                    %% it's the argument list
+                    {DefaultAttrs, Arg1, Arg2}
+            end;
+        _ ->
+            {DefaultAttrs, Arg1, Arg2}
+    end;
+handle_args(DefaultAttrs, _Line, Attrs, Format, Args) ->
+    {concat_lists(Attrs, DefaultAttrs), Format, Args}.
+
+make_varname(Prefix, CallAnno) ->
+    list_to_atom(Prefix ++ atom_to_list(get(module)) ++ integer_to_list(erl_anno:line(CallAnno))).
+
+%% concat 2 list ASTs by replacing the terminating  in A with the contents of B
+concat_lists({var, Line, _Name}=Var, B) ->
+    %% concatenating a var with a cons
+    {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
+        {cons, Line, Var, B}};
+concat_lists({lc, Line, _Body, _Generator} = LC, B) ->
+    %% concatenating a LC with a cons
+    {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
+        {cons, Line, LC, B}};
+concat_lists({call, Line, _Function, _Args} = Call, B) ->
+    %% concatenating a call with a cons
+    {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
+        {cons, Line, Call, B}};
+concat_lists({record_field, Line, _Var, _Record, _Field} = Rec, B) ->
+    %% concatenating a record_field with a cons
+    {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
+        {cons, Line, Rec, B}};
+concat_lists({nil, _Line}, B) ->
+    B;
+concat_lists({cons, Line, Element, Tail}, B) ->
+    {cons, Line, Element, concat_lists(Tail, B)}.
+
+stash_record(Record) ->
+    Records = case erlang:get(records) of
+        undefined ->
+            ;
+        R ->
+            R
+    end,
+    erlang:put(records, Record|Records).
+
+insert_record_attribute(AST) ->
+    lists:foldl(fun({attribute, Line, module, _}=E, Acc) ->
+                E, {attribute, Line, lager_records, erlang:get(records)}|Acc;
+            (E, Acc) ->
+                E|Acc
+        end, , AST).
+
+guess_application(Dirname, Attr) when Dirname /= undefined ->
+    case find_app_file(Dirname) of
+        no_idea ->
+            %% try it based on source file directory (app.src most likely)
+            guess_application(undefined, Attr);
+        _ ->
+            ok
+    end;
+guess_application(undefined, {attribute, _, file, {Filename, _}}) ->
+    Dir = filename:dirname(Filename),
+    find_app_file(Dir);
+guess_application(_, _) ->
+    ok.
+
+find_app_file(Dir) ->
+    case filelib:wildcard(Dir++"/*.{app,app.src}") of
+         ->
+            no_idea;
+        File ->
+            case file:consult(File) of
+                {ok, {application, Appname, _Attributes}|_} ->
+                    erlang:put(application, Appname);
+                _ ->
+                    no_idea
+            end;
+        _ ->
+            %% multiple files, uh oh
+            no_idea
+    end.

osmo-diameter2gsup_0.3.0.tar.xz/_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 ->
+            {Res, Length};
+        _ ->
+            {"<<", Res, ">>", Length+4}
+    end;
+
+%% bitstrings are binary's evil brother who doesn't end on an 8 bit boundary.
+%% This makes printing them extremely annoying, so list_body/list_bodyc has
+%% some magic for dealing with the output of bitstring_to_list, which returns
+%% a list of integers (as expected) but with a trailing binary that represents
+%% the remaining bits.
+print({inline_bitstring, B}, _Max, _Options) when is_bitstring(B) ->
+    Size = bit_size(B),
+    <<Value:Size>> = B,
+    ValueStr = integer_to_list(Value),
+    SizeStr = integer_to_list(Size),
+    {ValueStr, $:, SizeStr, length(ValueStr) + length(SizeStr) +1};
+print(BitString, Max, Options) when is_bitstring(BitString) ->
+    BL = case byte_size(BitString) > Max of
+        true ->
+            binary_to_list(BitString, 1, Max);
+        _ ->
+            R = erlang:bitstring_to_list(BitString),
+            {Bytes, Bits} = lists:splitwith(fun erlang:is_integer/1, R),
+            %% tag the trailing bits with a special tuple we catch when
+            %% list_body calls print again
+            Bytes ++ {inline_bitstring, Bits}
+    end,
+    {X, Len0} = list_body(BL, Max - 4, dec_depth(Options), true),
+    {"<<", X, ">>", Len0 + 4};
+
+print(Float, _Max, _Options) when is_float(Float) ->
+    %% use the same function io_lib:format uses to print floats
+    %% float_to_list is way too verbose.
+    L = io_lib_format:fwrite_g(Float),
+    {L, length(L)};
+
+print(Fun, Max, _Options) when is_function(Fun) ->
+    L = erlang:fun_to_list(Fun),
+    case length(L) > Max of
+        true ->
+            S = erlang:max(5, Max),
+            Res = string:substr(L, 1, S) ++ "..>",
+            {Res, length(Res)};
+        _ ->
+            {L, length(L)}
+    end;
+
+print(Integer, _Max, _Options) when is_integer(Integer) ->
+    L = integer_to_list(Integer),
+    {L, length(L)};
+
+print(Pid, _Max, _Options) when is_pid(Pid) ->
+    L = pid_to_list(Pid),
+    {L, length(L)};
+
+print(Ref, _Max, _Options) when is_reference(Ref) ->
+    L = erlang:ref_to_list(Ref),
+    {L, length(L)};
+
+print(Port, _Max, _Options) when is_port(Port) ->
+    L = erlang:port_to_list(Port),
+    {L, length(L)};
+
+print({'$lager_record', Name, Fields}, Max, Options) ->
+    Leader = "#" ++ atom_to_list(Name) ++ "{",
+    {RC, Len} = record_fields(Fields, Max - length(Leader) + 1, dec_depth(Options)),
+    {Leader, RC, "}", Len + length(Leader) + 1};
+
+print(Tuple, Max, Options) when is_tuple(Tuple) ->
+    {TC, Len} = tuple_contents(Tuple, Max-2, Options),
+    {${, TC, $}, Len + 2};
+
+print(List, Max, Options) when is_list(List) ->
+    case Options#print_options.lists_as_strings orelse
+        Options#print_options.force_strings of
+        true ->
+            alist_start(List, Max, dec_depth(Options));
+        _ ->
+            {R, Len} = list_body(List, Max - 2, dec_depth(Options), false),
+            {$, R, $, Len + 2}
+    end;
+
+print(Map, Max, Options) when is_map(Map) ->
+    {MapBody, Len} = map_body(Map, Max - 3, dec_depth(Options)),
+    {$#, ${, MapBody, $}, Len + 3};
+
+print(Term, Max, Options) ->
+    error(badarg, Term, Max, Options).
+
+%% Returns {List, Length}
+tuple_contents(Tuple, Max, Options) ->
+    L = tuple_to_list(Tuple),
+    list_body(L, Max, dec_depth(Options), true).
+
+%% Format the inside of a list, i.e. do not add a leading  or trailing .
+%% Returns {List, Length}
+list_body(, _Max, _Options, _Tuple) -> {, 0};
+list_body(_, Max, _Options, _Tuple) when Max < 4 -> {"...", 3};
+list_body(_, _Max, #print_options{depth=0}, _Tuple) -> {"...", 3};
+list_body(H, Max, Options=#print_options{depth=1}, _Tuple) ->
+    print(H, Max, Options);
+list_body(H|_, Max, Options=#print_options{depth=1}, Tuple) ->
+    {List, Len} = print(H, Max-4, Options),
+    Sep = case Tuple of
+        true -> $,;
+        false -> $|
+    end,
+    {List ++ Sep | "...", Len + 4};
+list_body(H|T, Max, Options, Tuple) ->
+    {List, Len} = print(H, Max, Options),
+    {Final, FLen} = list_bodyc(T, Max - Len, Options, Tuple),
+    {List|Final, FLen + Len};
+list_body(X, Max, Options, _Tuple) ->  %% improper list
+    {List, Len} = print(X, Max - 1, Options),
+    {$|,List, Len + 1}.
+
+list_bodyc(, _Max, _Options, _Tuple) -> {, 0};
+list_bodyc(_, Max, _Options, _Tuple) when Max < 5 -> {",...", 4};
+list_bodyc(_, _Max, #print_options{depth=1}, true) -> {",...", 4};
+list_bodyc(_, _Max, #print_options{depth=1}, false) -> {"|...", 4};
+list_bodyc(H|T, Max, #print_options{depth=Depth} = Options, Tuple) ->
+    {List, Len} = print(H, Max, dec_depth(Options)),
+    {Final, FLen} = list_bodyc(T, Max - Len - 1, dec_depth(Options), Tuple),
+    Sep = case Depth == 1 andalso not Tuple of
+        true -> $|;
+        _ -> $,
+    end,
+    {Sep, List|Final, FLen + Len + 1};
+list_bodyc(X, Max, Options, _Tuple) ->  %% improper list
+    {List, Len} = print(X, Max - 1, Options),
+    {$|,List, Len + 1}.
+
+map_body(Map, Max, #print_options{depth=Depth}) when Max < 4; Depth =:= 0 ->
+    case erlang:map_size(Map) of
+        0 -> {, 0};
+        _ -> {"...", 3}
+    end;
+map_body(Map, Max, Options) ->
+    case maps:to_list(Map) of
+         ->
+            {, 0};
+        {Key, Value} | Rest ->
+            {KeyStr, KeyLen} = print(Key, Max - 4, Options),
+            DiffLen = KeyLen + 4,
+            {ValueStr, ValueLen} = print(Value, Max - DiffLen, Options),
+            DiffLen2 = DiffLen + ValueLen,
+            {Final, FLen} = map_bodyc(Rest, Max - DiffLen2, dec_depth(Options)),
+            {KeyStr, " => ", ValueStr | Final, DiffLen2 + FLen}
+    end.
+
+map_bodyc(, _Max, _Options) ->
+    {, 0};
+map_bodyc(_Rest, Max,#print_options{depth=Depth}) when Max < 5; Depth =:= 0 ->
+    {",...", 4};
+map_bodyc({Key, Value} | Rest, Max, Options) ->
+    {KeyStr, KeyLen} = print(Key, Max - 5, Options),
+    DiffLen = KeyLen + 5,
+    {ValueStr, ValueLen} = print(Value, Max - DiffLen, Options),
+    DiffLen2 = DiffLen + ValueLen,
+    {Final, FLen} = map_bodyc(Rest, Max - DiffLen2, dec_depth(Options)),
+    {$,, KeyStr, " => ", ValueStr | Final, DiffLen2 + FLen}.
+
+%% The head of a list we hope is ascii. Examples:
+%%
+%% 65,66,67 -> "ABC"
+%% 65,0,67 -> "A"0,67
+%% 0,65,66 -> 0,65,66
+%% 65,b,66 -> "A"b,66
+%%
+alist_start(, _Max, #print_options{force_strings=true}) -> {"", 0};
+alist_start(, _Max, _Options) -> {"", 2};
+alist_start(_, Max, _Options) when Max < 4 -> {"...", 3};
+alist_start(_, _Max, #print_options{depth=0}) -> {"...", 5};
+alist_start(L, Max, #print_options{force_strings=true} = Options) ->
+    alist(L, Max, Options);
+%alist_start(H|_T, _Max, #print_options{depth=1}) when is_integer(H) -> {$, H, $|, $., $., $., $, 7};
+alist_start(H|T, Max, Options) when is_integer(H), H >= 16#20, H =< 16#7e ->  % definitely printable
+    try alist(H|T, Max -1, Options) of
+        {L, Len} ->
+            {$"|L, Len + 1}
+    catch
+        throw:{unprintable, _} ->
+            {R, Len} = list_body(H|T, Max-2, Options, false),
+            {$, R, $, Len + 2}
+    end;
+alist_start(H|T, Max, Options) when is_integer(H), H >= 16#a0, H =< 16#ff ->  % definitely printable
+    try alist(H|T, Max -1, Options) of
+        {L, Len} ->
+            {$"|L, Len + 1}
+    catch
+        throw:{unprintable, _} ->
+            {R, Len} = list_body(H|T, Max-2, Options, false),
+            {$, R, $, Len + 2}
+    end;
+alist_start(H|T, Max, Options) when H =:= $\t; H =:= $\n; H =:= $\r; H =:= $\v; H =:= $\e; H=:= $\f; H=:= $\b ->
+    try alist(H|T, Max -1, Options) of
+        {L, Len} ->
+            {$"|L, Len + 1}
+    catch
+        throw:{unprintable, _} ->
+            {R, Len} = list_body(H|T, Max-2, Options, false),
+            {$, R, $, Len + 2}
+    end;
+alist_start(L, Max, Options) ->
+    {R, Len} = list_body(L, Max-2, Options, false),
+    {$, R, $, Len + 2}.
+
+alist(, _Max, #print_options{force_strings=true}) -> {"", 0};
+alist(, _Max, _Options) -> {"\"", 1};
+alist(_, Max, #print_options{force_strings=true}) when Max < 4 -> {"...", 3};
+alist(_, Max, #print_options{force_strings=false}) when Max < 5 -> {"...\"", 4};
+alist(H|T, Max, Options = #print_options{force_strings=false,lists_as_strings=true}) when H =:= $"; H =:= $\\ ->
+    %% preserve escaping around quotes
+    {L, Len} = alist(T, Max-1, Options),
+    {$\\,H|L, Len + 2};
+alist(H|T, Max, Options) when is_integer(H), H >= 16#20, H =< 16#7e ->     % definitely printable
+    {L, Len} = alist(T, Max-1, Options),
+    {H|L, Len + 1};
+alist(H|T, Max, Options) when is_integer(H), H >= 16#a0, H =< 16#ff ->     % definitely printable
+    {L, Len} = alist(T, Max-1, Options),
+    {H|L, Len + 1};
+alist(H|T, Max, Options) when H =:= $\t; H =:= $\n; H =:= $\r; H =:= $\v; H =:= $\e; H=:= $\f; H=:= $\b ->
+    {L, Len} = alist(T, Max-1, Options),
+    case Options#print_options.force_strings of
+        true ->
+            {H|L, Len + 1};
+        _ ->
+            {escape(H)|L, Len + 1}
+    end;
+alist(H|T, Max, #print_options{force_strings=true} = Options) when is_integer(H) ->
+    {L, Len} = alist(T, Max-1, Options),
+    {H|L, Len + 1};
+alist(H|T, Max, Options = #print_options{force_strings=true}) when is_binary(H); is_list(H) ->
+    {List, Len} = print(H, Max, Options),
+    case (Max - Len) =< 0 of
+        true ->
+            %% no more room to print anything
+            {List, Len};
+        false ->
+            %% no need to decrement depth, as we're in printable string mode
+            {Final, FLen} = alist(T, Max - Len, Options),
+            {List|Final, FLen+Len}
+    end;
+alist(_, _, #print_options{force_strings=true}) ->
+    erlang:error(badarg);
+alist(H|_L, _Max, _Options) ->
+    throw({unprintable, H});
+alist(H, _Max, _Options) ->
+    %% improper list
+    throw({unprintable, H}).
+
+%% is the first character in the atom alphabetic & lowercase?
+atom_needs_quoting_start(H|T) when H >= $a, H =< $z ->
+    atom_needs_quoting(T);
+atom_needs_quoting_start(_) ->
+    true.
+
+atom_needs_quoting() ->
+    false;
+atom_needs_quoting(H|T) when (H >= $a andalso H =< $z);
+                        (H >= $A andalso H =< $Z);
+                        (H >= $0 andalso H =< $9);
+                         H == $@; H == $_ ->
+    atom_needs_quoting(T);
+atom_needs_quoting(_) ->
+    true.
+
+-spec prepare_options(options(), #print_options{}) -> #print_options{}.
+prepare_options(, Options) ->
+    Options;
+prepare_options({depth, Depth}|T, Options) when is_integer(Depth) ->
+    prepare_options(T, Options#print_options{depth=Depth});
+prepare_options({lists_as_strings, Bool}|T, Options) when is_boolean(Bool) ->
+    prepare_options(T, Options#print_options{lists_as_strings = Bool});
+prepare_options({force_strings, Bool}|T, Options) when is_boolean(Bool) ->
+    prepare_options(T, Options#print_options{force_strings = Bool}).
+
+dec_depth(#print_options{depth=Depth} = Options) when Depth > 0 ->
+    Options#print_options{depth=Depth-1};
+dec_depth(Options) ->
+    Options.
+
+escape($\t) -> "\\t";
+escape($\n) -> "\\n";
+escape($\r) -> "\\r";
+escape($\e) -> "\\e";
+escape($\f) -> "\\f";
+escape($\b) -> "\\b";
+escape($\v) -> "\\v".
+
+record_fields(, _, _) ->
+    {"", 0};
+record_fields(_, Max, #print_options{depth=D}) when Max < 4; D == 0 ->
+    {"...", 3};
+record_fields({Field, Value}|T, Max, Options) ->
+    {ExtraChars, Terminator} = case T of
+         ->
+            {1, };
+        _ ->
+            {2, ","}
+    end,
+    {FieldStr, FieldLen} = print(Field, Max - ExtraChars, Options),
+    {ValueStr, ValueLen} = print(Value, Max - (FieldLen + ExtraChars), Options),
+    {Final, FLen} = record_fields(T, Max - (FieldLen + ValueLen + ExtraChars), dec_depth(Options)),
+    {FieldStr++"="++ValueStr++Terminator|Final, FLen + FieldLen + ValueLen + ExtraChars}.
+
+
+-ifdef(TEST).
+%%--------------------
+%% The start of a test suite. So far, it only checks for not crashing.
+-spec test() -> ok.
+test() ->
+    test(trunc_io, print).
+
+-spec test(atom(), atom()) -> ok.
+test(Mod, Func) ->
+    Simple_items = atom, 1234, 1234.0, {tuple}, , list, "string", self(),
+        <<1,2,3>>, make_ref(), fun() -> ok end,
+    F = fun(A) ->
+            Mod:Func(A, 100),
+            Mod:Func(A, 2),
+            Mod:Func(A, 20)
+    end,
+
+    G = fun(A) ->
+            case catch F(A) of
+                {'EXIT', _} -> exit({failed, A});
+                _ -> ok
+            end
+    end,
+
+    lists:foreach(G, Simple_items),
+
+    Tuples =  {1,2,3,a,b,c}, {"abc", def, 1234},
+        {{{{a},b,c,{d},e}},f},
+
+    Lists =  1,2,3,4,5,6,7, lists:seq(1,1000),
+        {a}, {a,b}, {a, b,c}, "def", a|b, $a|$b ,
+
+
+    lists:foreach(G, Tuples),
+    lists:foreach(G, Lists).
+
+-spec perf() -> ok.
+perf() ->
+    {New, _} = timer:tc(trunc_io, perf, trunc_io, print, 1000),
+    {Old, _} = timer:tc(trunc_io, perf, io_lib, write, 1000),
+    io:fwrite("New code took ~p us, old code ~p\n", New, Old).
+
+-spec perf(atom(), atom(), integer()) -> done.
+perf(M, F, Reps) when Reps > 0 ->
+    test(M,F),
+    perf(M,F,Reps-1);
+perf(_,_,_) ->
+    done.
+
+%% Performance test. Needs a particularly large term I saved as a binary...
+-spec perf1() -> {non_neg_integer(), non_neg_integer()}.
+perf1() ->
+    {ok, Bin} = file:read_file("bin"),
+    A = binary_to_term(Bin),
+    {N, _} = timer:tc(trunc_io, print, A, 1500),
+    {M, _} = timer:tc(io_lib, write, A),
+    {N, M}.
+
+format_test() ->
+    %% simple format strings
+    ?assertEqual("foobar", lists:flatten(format("~s", "foo", $b, $a, $r, 50))),
+    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~p", "foo", $b, $a, $r, 50))),
+    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~P", "foo", $b, $a, $r, 10, 50))),
+    ?assertEqual("102,111,111,98,97,114", lists:flatten(format("~w", "foo", $b, $a, $r, 50))),
+
+    %% complex ones
+    ?assertEqual("    foobar", lists:flatten(format("~10s", "foo", $b, $a, $r, 50))),
+    ?assertEqual("f", lists:flatten(format("~1s", "foo", $b, $a, $r, 50))),
+    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~22p", "foo", $b, $a, $r, 50))),
+    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~22P", "foo", $b, $a, $r, 10, 50))),
+    ?assertEqual("**********", lists:flatten(format("~10W", "foo", $b, $a, $r, 10, 50))),
+    ?assertEqual("102,111,111,98,97,114", lists:flatten(format("~25W", "foo", $b, $a, $r, 10, 50))),
+    % Note these next two diverge from io_lib:format; the field width is
+    % ignored, when it should be used as max line length.
+    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~10p", "foo", $b, $a, $r, 50))),
+    ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~10P", "foo", $b, $a, $r, 10, 50))),
+    ok.
+
+atom_quoting_test() ->
+    ?assertEqual("hello", lists:flatten(format("~p", hello, 50))),
+    ?assertEqual("'hello world'", lists:flatten(format("~p", 'hello world', 50))),
+    ?assertEqual("'Hello world'", lists:flatten(format("~p", 'Hello world', 50))),
+    ?assertEqual("hello_world", lists:flatten(format("~p", 'hello_world', 50))),
+    ?assertEqual("'node@127.0.0.1'", lists:flatten(format("~p", 'node@127.0.0.1', 50))),
+    ?assertEqual("node@nohost", lists:flatten(format("~p", node@nohost, 50))),
+    ?assertEqual("abc123", lists:flatten(format("~p", abc123, 50))),
+    ok.
+
+sane_float_printing_test() ->
+    ?assertEqual("1.0", lists:flatten(format("~p", 1.0, 50))),
+    ?assertEqual("1.23456789", lists:flatten(format("~p", 1.23456789, 50))),
+    ?assertEqual("1.23456789", lists:flatten(format("~p", 1.234567890, 50))),
+    ?assertEqual("0.3333333333333333", lists:flatten(format("~p", 1/3, 50))),
+    ?assertEqual("0.1234567", lists:flatten(format("~p", 0.1234567, 50))),
+    ok.
+
+float_inside_list_test() ->
+    ?assertEqual("97,38.233913133184835,99", lists:flatten(format("~p", $a, 38.233913133184835, $c, 50))),
+    ?assertError(badarg, lists:flatten(format("~s", $a, 38.233913133184835, $c, 50))),
+    ok.
+
+quote_strip_test() ->
+    ?assertEqual("\"hello\"", lists:flatten(format("~p", "hello", 50))),
+    ?assertEqual("hello", lists:flatten(format("~s", "hello", 50))),
+    ?assertEqual("hello", lists:flatten(format("~s", hello, 50))),
+    ?assertEqual("hello", lists:flatten(format("~p", hello, 50))),
+    ?assertEqual("'hello world'", lists:flatten(format("~p", 'hello world', 50))),
+    ?assertEqual("hello world", lists:flatten(format("~s", 'hello world', 50))),
+    ok.
+
+binary_printing_test() ->
+    ?assertEqual("<<>>", lists:flatten(format("~p", <<>>, 50))),
+    ?assertEqual("", lists:flatten(format("~s", <<>>, 50))),
+    ?assertEqual("<<..>>", lists:flatten(format("~p", <<"hi">>, 0))),
+    ?assertEqual("<<...>>", lists:flatten(format("~p", <<"hi">>, 1))),
+    ?assertEqual("<<\"hello\">>", lists:flatten(format("~p", <<$h, $e, $l, $l, $o>>, 50))),
+    ?assertEqual("<<\"hello\">>", lists:flatten(format("~p", <<"hello">>, 50))),
+    ?assertEqual("<<104,101,108,108,111>>", lists:flatten(format("~w", <<"hello">>, 50))),
+    ?assertEqual("<<1,2,3,4>>", lists:flatten(format("~p", <<1, 2, 3, 4>>, 50))),
+    ?assertEqual(1,2,3,4, lists:flatten(format("~s", <<1, 2, 3, 4>>, 50))),
+    ?assertEqual("hello", lists:flatten(format("~s", <<"hello">>, 50))),
+    ?assertEqual("hello\nworld", lists:flatten(format("~s", <<"hello\nworld">>, 50))),
+    ?assertEqual("<<\"hello\\nworld\">>", lists:flatten(format("~p", <<"hello\nworld">>, 50))),
+    ?assertEqual("<<\"\\\"hello world\\\"\">>", lists:flatten(format("~p", <<"\"hello world\"">>, 50))),
+    ?assertEqual("<<\"hello\\\\world\">>", lists:flatten(format("~p", <<"hello\\world">>, 50))),
+    ?assertEqual("<<\"hello\\\\\world\">>", lists:flatten(format("~p", <<"hello\\\world">>, 50))),
+    ?assertEqual("<<\"hello\\\\\\\\world\">>", lists:flatten(format("~p", <<"hello\\\\world">>, 50))),
+    ?assertEqual("<<\"hello\\bworld\">>", lists:flatten(format("~p", <<"hello\bworld">>, 50))),
+    ?assertEqual("<<\"hello\\tworld\">>", lists:flatten(format("~p", <<"hello\tworld">>, 50))),
+    ?assertEqual("<<\"hello\\nworld\">>", lists:flatten(format("~p", <<"hello\nworld">>, 50))),
+    ?assertEqual("<<\"hello\\rworld\">>", lists:flatten(format("~p", <<"hello\rworld">>, 50))),
+    ?assertEqual("<<\"hello\\eworld\">>", lists:flatten(format("~p", <<"hello\eworld">>, 50))),
+    ?assertEqual("<<\"hello\\fworld\">>", lists:flatten(format("~p", <<"hello\fworld">>, 50))),
+    ?assertEqual("<<\"hello\\vworld\">>", lists:flatten(format("~p", <<"hello\vworld">>, 50))),
+    ?assertEqual("     hello", lists:flatten(format("~10s", <<"hello">>, 50))),
+    ?assertEqual("a", lists:flatten(format("~s", <<"a">>, 50))),
+    ?assertEqual("a", lists:flatten(format("~s", <<"a">>, 50))),
+
+    ok.
+
+bitstring_printing_test() ->
+    ?assertEqual("<<1,2,3,1:7>>", lists:flatten(format("~p",
+                <<1, 2, 3, 1:7>>, 100))),
+    ?assertEqual("<<1:7>>", lists:flatten(format("~p",
+                <<1:7>>, 100))),
+    ?assertEqual("<<1,2,3,...>>", lists:flatten(format("~p",
+                <<1, 2, 3, 1:7>>, 12))),
+    ?assertEqual("<<1,2,3,...>>", lists:flatten(format("~p",
+                <<1, 2, 3, 1:7>>, 13))),
+    ?assertEqual("<<1,2,3,1:7>>", lists:flatten(format("~p",
+                <<1, 2, 3, 1:7>>, 14))),
+    ?assertEqual("<<..>>", lists:flatten(format("~p", <<1:7>>, 0))),
+    ?assertEqual("<<...>>", lists:flatten(format("~p", <<1:7>>, 1))),
+    ?assertEqual("<<1>>,<<2>>", lists:flatten(format("~p", <<1>>, <<2>>,
+                100))),
+    ?assertEqual("{<<1:7>>}", lists:flatten(format("~p", {<<1:7>>}, 50))),
+    ok.
+
+list_printing_test() ->
+    ?assertEqual("", lists:flatten(format("~p", , 50))),
+    ?assertEqual("", lists:flatten(format("~w", , 50))),
+    ?assertEqual("", lists:flatten(format("~s", , 50))),
+    ?assertEqual("...", lists:flatten(format("~s", , -1))),
+    ?assertEqual("", lists:flatten(format("~p", , 50))),
+    ?assertEqual("13,11,10,8,5,4", lists:flatten(format("~p", 13,11,10,8,5,4, 50))),
+    ?assertEqual("\"\\rabc\"", lists:flatten(format("~p", 13,$a, $b, $c, 50))),
+    ?assertEqual("1,2,3|4", lists:flatten(format("~p", 1, 2, 3|4, 50))),
+    ?assertEqual("...", lists:flatten(format("~p", 1, 2, 3,4, 4))),
+    ?assertEqual("1,...", lists:flatten(format("~p", 1, 2, 3, 4, 6))),
+    ?assertEqual("1,...", lists:flatten(format("~p", 1, 2, 3, 4, 7))),
+    ?assertEqual("1,2,...", lists:flatten(format("~p", 1, 2, 3, 4, 8))),
+    ?assertEqual("1|4", lists:flatten(format("~p", 1|4, 50))),
+    ?assertEqual("1", lists:flatten(format("~p", 1, 50))),
+    ?assertError(badarg, lists:flatten(format("~s", 1|4, 50))),
+    ?assertEqual("\"hello...\"", lists:flatten(format("~p", "hello world", 10))),
+    ?assertEqual("hello w...", lists:flatten(format("~s", "hello world", 10))),
+    ?assertEqual("hello world\r\n", lists:flatten(format("~s", "hello world\r\n", 50))),
+    ?assertEqual("\rhello world\r\n", lists:flatten(format("~s", "\rhello world\r\n", 50))),
+    ?assertEqual("\"\\rhello world\\r\\n\"", lists:flatten(format("~p", "\rhello world\r\n", 50))),
+    ?assertEqual("13,104,101,108,108,111,32,119,111,114,108,100,13,10", lists:flatten(format("~w", "\rhello world\r\n", 60))),
+    ?assertEqual("...", lists:flatten(format("~s", "\rhello world\r\n", 3))),
+    ?assertEqual("22835963083295358096932575511191922182123945984,...",
+        lists:flatten(format("~p", 
+                    22835963083295358096932575511191922182123945984,
+                        22835963083295358096932575511191922182123945984, 9))),
+    ?assertEqual("22835963083295358096932575511191922182123945984,...",
+        lists:flatten(format("~p", 
+                    22835963083295358096932575511191922182123945984,
+                        22835963083295358096932575511191922182123945984, 53))),
+    %%improper list
+    ?assertEqual("1,2,3|4", lists:flatten(format("~P", 1|2|3|4, 5, 50))),
+    ?assertEqual("1|1", lists:flatten(format("~P", 1|1, 5, 50))),
+    ?assertEqual("9|9", lists:flatten(format("~p", 9|9, 50))),
+    ok.
+
+iolist_printing_test() ->
+    ?assertEqual("iolist: HelloIamaniolist",
+        lists:flatten(format("iolist: ~s", $H, $e,  $l, $l, $o, "I", "am", <<"an">>, $i, $o, $l, $i, $s, $t, 1000))),
+    ?assertEqual("123...",
+                 lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 6))),
+    ?assertEqual("123456...",
+                 lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 9))),
+    ?assertEqual("123456789H...",
+                 lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 13))),
+    ?assertEqual("123456789HellIamaniolist",
+                 lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 30))),
+
+    ok.
+
+tuple_printing_test() ->
+    ?assertEqual("{}", lists:flatten(format("~p", {}, 50))),
+    ?assertEqual("{}", lists:flatten(format("~w", {}, 50))),
+    ?assertError(badarg, lists:flatten(format("~s", {}, 50))),
+    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 1))),
+    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 2))),
+    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 3))),
+    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 4))),
+    ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 5))),
+    ?assertEqual("{foo,...}", lists:flatten(format("~p", {foo,bar}, 6))),
+    ?assertEqual("{foo,...}", lists:flatten(format("~p", {foo,bar}, 7))),
+    ?assertEqual("{foo,...}", lists:flatten(format("~p", {foo,bar}, 9))),
+    ?assertEqual("{foo,bar}", lists:flatten(format("~p", {foo,bar}, 10))),
+    ?assertEqual("{22835963083295358096932575511191922182123945984,...}",
+        lists:flatten(format("~w", 
+                    {22835963083295358096932575511191922182123945984,
+                        22835963083295358096932575511191922182123945984}, 10))),
+    ?assertEqual("{22835963083295358096932575511191922182123945984,...}",
+        lists:flatten(format("~w", 
+                    {22835963083295358096932575511191922182123945984,
+                        bar}, 10))),
+    ?assertEqual("{22835963083295358096932575511191922182123945984,...}",
+        lists:flatten(format("~w", 
+                    {22835963083295358096932575511191922182123945984,
+                        22835963083295358096932575511191922182123945984}, 53))),
+    ok.
+
+map_printing_test() ->
+    ?assertEqual("#{}", lists:flatten(format("~p", maps:new(), 50))),
+    ?assertEqual("#{}", lists:flatten(format("~p", maps:new(), 3))),
+    ?assertEqual("#{}", lists:flatten(format("~w", maps:new(), 50))),
+    ?assertError(badarg, lists:flatten(format("~s", maps:new(), 50))),
+    ?assertEqual("#{...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 1))),
+    ?assertEqual("#{...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 6))),
+    ?assertEqual("#{bar => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 7))),
+    ?assertEqual("#{bar => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 9))),
+    ?assertEqual("#{bar => foo}", lists:flatten(format("~p", maps:from_list({bar, foo}), 10))),
+    ?assertEqual("#{bar => ...,...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 9))),
+    ?assertEqual("#{bar => foo,...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 10))),
+    ?assertEqual("#{bar => foo,...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 17))),
+    ?assertEqual("#{bar => foo,foo => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 18))),
+    ?assertEqual("#{bar => foo,foo => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 19))),
+    ?assertEqual("#{bar => foo,foo => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 20))),
+    ?assertEqual("#{bar => foo,foo => bar}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 21))),
+    ?assertEqual("#{22835963083295358096932575511191922182123945984 => ...}",
+                 lists:flatten(format("~w", 
+                                             maps:from_list({22835963083295358096932575511191922182123945984,
+                                               22835963083295358096932575511191922182123945984}), 10))),
+    ?assertEqual("#{22835963083295358096932575511191922182123945984 => ...}",
+                 lists:flatten(format("~w", 
+                                             maps:from_list({22835963083295358096932575511191922182123945984,
+                                               bar}), 10))),
+    ?assertEqual("#{22835963083295358096932575511191922182123945984 => ...}",
+                 lists:flatten(format("~w", 
+                                             maps:from_list({22835963083295358096932575511191922182123945984,
+                                               bar}), 53))),
+    ?assertEqual("#{22835963083295358096932575511191922182123945984 => bar}",
+                 lists:flatten(format("~w", 
+                                             maps:from_list({22835963083295358096932575511191922182123945984,
+                                               bar}), 54))),
+    ok.
+
+unicode_test() ->
+    ?assertEqual(231,167,129, lists:flatten(format("~s", <<231,167,129>>, 50))),
+    ?assertEqual(31169, lists:flatten(format("~ts", <<231,167,129>>, 50))),
+    ok.
+
+depth_limit_test() ->
+    ?assertEqual("{...}", lists:flatten(format("~P", {a, b, c, d}, 1, 50))),
+    ?assertEqual("{a,...}", lists:flatten(format("~P", {a, b, c, d}, 2, 50))),
+    ?assertEqual("{a,...}", lists:flatten(format("~P", {a, b, c, d}, 3, 50))),
+    ?assertEqual("{a,b|...}", lists:flatten(format("~P", {a, b, c, d}, 4, 50))),
+    ?assertEqual("{a,b,...}", lists:flatten(format("~P", {a, b, c, d}, 5, 50))),
+    ?assertEqual("{a,b,c|...}", lists:flatten(format("~P", {a, b, c, d}, 6, 50))),
+    ?assertEqual("{a,b,c,...}", lists:flatten(format("~P", {a, b, c, d}, 7, 50))),
+    ?assertEqual("{a,b,c,d}", lists:flatten(format("~P", {a, b, c, d}, 8, 50))),
+    ?assertEqual("{a,b,c,d}", lists:flatten(format("~P", {a, b, c, d}, 9, 50))),
+
+    ?assertEqual("{a,{...}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 3, 50))),
+    ?assertEqual("{a,{b,...}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 4, 50))),
+    ?assertEqual("{a,{b,{...}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 5, 50))),
+    ?assertEqual("{a,{b,{c,...}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 6, 50))),
+    ?assertEqual("{a,{b,{c,{...}}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 7, 50))),
+    ?assertEqual("{a,{b,{c,{d}}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 8, 50))),
+
+    ?assertEqual("#{a => #{...}}",
+                 lists:flatten(format("~P",
+                                      maps:from_list({a, maps:from_list({b, maps:from_list({c, d})})}), 2, 50))),
+    ?assertEqual("#{a => #{b => #{...}}}",
+                 lists:flatten(format("~P",
+                                      maps:from_list({a, maps:from_list({b, maps:from_list({c, d})})}), 3, 50))),
+    ?assertEqual("#{a => #{b => #{c => d}}}",
+                 lists:flatten(format("~P",
+                                      maps:from_list({a, maps:from_list({b, maps:from_list({c, d})})}), 4, 50))),
+
+    ?assertEqual("#{}", lists:flatten(format("~P", maps:new(), 1, 50))),
+    ?assertEqual("#{...}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 1, 50))),
+    ?assertEqual("#{1 => 1,...}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 2, 50))),
+    ?assertEqual("#{1 => 1,2 => 2,...}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 3, 50))),
+    ?assertEqual("#{1 => 1,2 => 2,3 => 3}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 4, 50))),
+
+    ?assertEqual("{\"a\",...}", lists:flatten(format("~P", {"a", "b", "c", "d"}, 3, 50))),
+    ?assertEqual("{\"a\",\"b\",...|...}", lists:flatten(format("~P", {"a", "b", "c", "d"}, 6, 50))),
+    ?assertEqual("{\"a\",\"b\",\"c\",\"d\"}", lists:flatten(format("~P", {"a", "b", "c", "d"}, 9, 50))),
+
+    ?assertEqual("...", lists:flatten(format("~P", 1, 2, 3, 1, 50))),
+    ?assertEqual("1|...", lists:flatten(format("~P", 1, 2, 3, 2, 50))),
+    ?assertEqual("1,2|...", lists:flatten(format("~P", 1, 2, 3, 3, 50))),
+    ?assertEqual("1,2,3", lists:flatten(format("~P", 1, 2, 3, 4, 50))),
+
+    ?assertEqual("{1,...}", lists:flatten(format("~P", {1, 2, 3}, 2, 50))),
+    ?assertEqual("{1,2,...}", lists:flatten(format("~P", {1, 2, 3}, 3, 50))),
+    ?assertEqual("{1,2,3}", lists:flatten(format("~P", {1, 2, 3}, 4, 50))),
+
+    ?assertEqual("{1,...}", lists:flatten(format("~P", {1, 2, 3}, 2, 50))),
+    ?assertEqual("1,2|...", lists:flatten(format("~P", 1, 2, <<3>>, 3, 50))),
+    ?assertEqual("1,2,<<...>>", lists:flatten(format("~P", 1, 2, <<3>>, 4, 50))),
+    ?assertEqual("1,2,<<3>>", lists:flatten(format("~P", 1, 2, <<3>>, 5, 50))),
+
+    ?assertEqual("<<...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 1, 50))),
+    ?assertEqual("<<0,...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 2, 50))),
+    ?assertEqual("<<0,0,...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 3, 50))),
+    ?assertEqual("<<0,0,0,...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 4, 50))),
+    ?assertEqual("<<0,0,0,0>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 5, 50))),
+
+    %% this is a seriously weird edge case
+    ?assertEqual("<<\"   \"...>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 2, 50))),
+    ?assertEqual("<<\"   \"...>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 3, 50))),
+    ?assertEqual("<<\"   \"...>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 4, 50))),
+    ?assertEqual("<<32,32,32,0>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 5, 50))),
+    ?assertEqual("<<32,32,32,0>>", lists:flatten(format("~p", <<32, 32, 32, 0>>, 50))),
+
+    %% depth limiting for some reason works in 4 byte chunks on printable binaries?
+    ?assertEqual("<<\"hell\"...>>", lists:flatten(format("~P", <<"hello world">>, 2, 50))),
+    ?assertEqual("<<\"abcd\"...>>", lists:flatten(format("~P", <<$a, $b, $c, $d, $e, 0>>, 2, 50))),
+
+    %% I don't even know...
+    ?assertEqual("<<>>", lists:flatten(format("~P", <<>>, 1, 50))),
+    ?assertEqual("<<>>", lists:flatten(format("~W", <<>>, 1, 50))),
+
+    ?assertEqual("{abc,<<\"abc\\\"\">>}", lists:flatten(format("~P", {abc,<<"abc\"">>}, 4, 50))),
+
+    ok.
+
+print_terms_without_format_string_test() ->
+    ?assertError(badarg, format({hello, world}, , 50)),
+    ?assertError(badarg, format({google, bomb}, , 50)),
+    ?assertEqual($h,$e,$l,$l,$o, 3594, format($h,$e,$l,$l,$o, 3594, , 50)),
+    ?assertError(badarg, format($h,$e,$l,$l,$o, 65535, , 50)),
+    ?assertEqual("helloworld", lists:flatten(format($h,$e,$l,$l,$o, "world", , 50))),
+    ?assertEqual("hello", lists:flatten(format(<<"hello">>, , 50))),
+    ?assertEqual("hello", lists:flatten(format('hello', , 50))),
+    ?assertError(badarg, format(<<1, 2, 3, 1:7>>, , 100)),
+    ?assertError(badarg, format(65535, , 50)),
+    ok.
+
+improper_io_list_test() ->
+    ?assertEqual(">hello", lists:flatten(format('~s', $>|<<"hello">>, 50))),
+    ?assertEqual(">hello", lists:flatten(format('~ts', $>|<<"hello">>, 50))),
+    ?assertEqual("helloworld", lists:flatten(format('~ts', <<"hello">>|<<"world">>, 50))),
+    ok.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_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) ->
+    case list_to_integer(D1, D2) of
+        X when X >= 0, X =< 23 ->
+            parse_rotation_hour_spec(T, Res ++ {hour, X});
+        _ ->
+            {error, invalid_date_spec}
+    end;
+parse_rotation_day_spec($D, D|T, Res)  when D >= $0, D =< $9 ->
+    parse_rotation_hour_spec(T, Res ++ {hour, D - 48 });
+parse_rotation_day_spec(X, Res) ->
+    parse_rotation_hour_spec(X, Res).
+
+parse_rotation_date_spec($$, $W, W|T) when W >= $0, W =< $6 ->
+    Week = W - 48,
+    parse_rotation_day_spec(T, {day, Week});
+parse_rotation_date_spec($$, $M, L|T) when L == $L; L == $l ->
+    %% last day in month.
+    parse_rotation_day_spec(T, {date, last});
+parse_rotation_date_spec($$, $M, M1, M2|$D|_=T) ->
+    case list_to_integer(M1, M2) of
+        X when X >= 1, X =< 31 ->
+            parse_rotation_day_spec(T, {date, X});
+        _ ->
+            {error, invalid_date_spec}
+    end;
+parse_rotation_date_spec($$, $M, M|$D|_=T) ->
+    parse_rotation_day_spec(T, {date, M - 48});
+parse_rotation_date_spec($$, $M, M1, M2) ->
+    case list_to_integer(M1, M2) of
+        X when X >= 1, X =< 31 ->
+            {ok, {date, X}, {hour, 0}};
+        _ ->
+            {error, invalid_date_spec}
+    end;
+parse_rotation_date_spec($$, $M, M) ->
+    {ok, {date, M - 48}, {hour, 0}};
+parse_rotation_date_spec($$|X) when X /=  ->
+    parse_rotation_day_spec(X, );
+parse_rotation_date_spec(_) ->
+    {error, invalid_date_spec}.
+
+calculate_next_rotation(Spec) ->
+    Now = calendar:local_time(),
+    Later = calculate_next_rotation(Spec, Now),
+    calendar:datetime_to_gregorian_seconds(Later) -
+      calendar:datetime_to_gregorian_seconds(Now).
+
+calculate_next_rotation(, Now) ->
+    Now;
+calculate_next_rotation({minute, X}|T, {{_, _, _}, {Hour, Minute, _}} = Now) when Minute < X ->
+    %% rotation is this hour
+    NewNow = setelement(2, Now, {Hour, X, 0}),
+    calculate_next_rotation(T, NewNow);
+calculate_next_rotation({minute, X}|T, Now) ->
+    %% rotation is next hour
+    Seconds = calendar:datetime_to_gregorian_seconds(Now) + 3600,
+    DateTime = calendar:gregorian_seconds_to_datetime(Seconds),
+    {_, {NewHour, _, _}} = DateTime,
+    NewNow = setelement(2, DateTime, {NewHour, X, 0}),
+    calculate_next_rotation(T, NewNow);
+calculate_next_rotation({hour, X}|T, {{_, _, _}, {Hour, _, _}} = Now) when Hour < X ->
+    %% rotation is today, sometime
+    NewNow = setelement(2, Now, {X, 0, 0}),
+    calculate_next_rotation(T, NewNow);
+calculate_next_rotation({hour, X}|T, {{_, _, _}, _} = Now) ->
+    %% rotation is not today
+    Seconds = calendar:datetime_to_gregorian_seconds(Now) + 86400,
+    DateTime = calendar:gregorian_seconds_to_datetime(Seconds),
+    NewNow = setelement(2, DateTime, {X, 0, 0}),
+    calculate_next_rotation(T, NewNow);
+calculate_next_rotation({day, Day}|T, {Date, _Time} = Now) ->
+    DoW = calendar:day_of_the_week(Date),
+    AdjustedDay = case Day of
+        0 -> 7;
+        X -> X
+    end,
+    case AdjustedDay of
+        DoW -> %% rotation is today
+            case calculate_next_rotation(T, Now) of
+                {Date, _} = NewNow -> NewNow;
+                {NewDate, _} ->
+                    %% rotation *isn't* today! rerun the calculation
+                    NewNow = {NewDate, {0, 0, 0}},
+                    calculate_next_rotation({day, Day}|T, NewNow)
+            end;
+        Y when Y > DoW -> %% rotation is later this week
+            PlusDays = Y - DoW,
+            Seconds = calendar:datetime_to_gregorian_seconds(Now) + (86400 * PlusDays),
+            {NewDate, _} = calendar:gregorian_seconds_to_datetime(Seconds),
+            NewNow = {NewDate, {0, 0, 0}},
+            calculate_next_rotation(T, NewNow);
+        Y when Y < DoW -> %% rotation is next week
+            PlusDays = ((7 - DoW) + Y),
+            Seconds = calendar:datetime_to_gregorian_seconds(Now) + (86400 * PlusDays),
+            {NewDate, _} = calendar:gregorian_seconds_to_datetime(Seconds),
+            NewNow = {NewDate, {0, 0, 0}},
+            calculate_next_rotation(T, NewNow)
+    end;
+calculate_next_rotation({date, last}|T, {{Year, Month, Day}, _} = Now) ->
+    Last = calendar:last_day_of_the_month(Year, Month),
+    case Last == Day of
+        true -> %% doing rotation today
+            case calculate_next_rotation(T, Now) of
+                {{Year, Month, Day}, _} = NewNow -> NewNow;
+                {NewDate, _} ->
+                    %% rotation *isn't* today! rerun the calculation
+                    NewNow = {NewDate, {0, 0, 0}},
+                    calculate_next_rotation({date, last}|T, NewNow)
+            end;
+        false ->
+            NewNow = setelement(1, Now, {Year, Month, Last}),
+            calculate_next_rotation(T, NewNow)
+    end;
+calculate_next_rotation({date, Date}|T, {{Year, Month, Date}, _} = Now) ->
+    %% rotation is today
+    case calculate_next_rotation(T, Now) of
+        {{Year, Month, Date}, _} = NewNow -> NewNow;
+        {NewDate, _} ->
+            %% rotation *isn't* today! rerun the calculation
+            NewNow = setelement(1, Now, NewDate),
+            calculate_next_rotation({date, Date}|T, NewNow)
+    end;
+calculate_next_rotation({date, Date}|T, {{Year, Month, Day}, _} = Now) ->
+    PlusDays = case Date of
+        X when X < Day -> %% rotation is next month
+            Last = calendar:last_day_of_the_month(Year, Month),
+            (Last - Day);
+        X when X > Day -> %% rotation is later this month
+            X - Day
+    end,
+    Seconds = calendar:datetime_to_gregorian_seconds(Now) + (86400 * PlusDays),
+    NewNow = calendar:gregorian_seconds_to_datetime(Seconds),
+    calculate_next_rotation(T, NewNow).
+
+-spec trace_filter(Query :: 'none' | tuple()) -> {ok, any()}.
+trace_filter(Query) ->
+    trace_filter(?DEFAULT_TRACER, Query).
+
+%% TODO: Support multiple trace modules
+%-spec trace_filter(Module :: atom(), Query :: 'none' | tuple()) -> {ok, any()}.
+trace_filter(Module, Query) when Query == none; Query ==  ->
+    {ok, _} = glc:compile(Module, glc:null(false));
+trace_filter(Module, Query) when is_list(Query) ->
+    {ok, _} = glc:compile(Module, glc_lib:reduce(trace_any(Query))).
+
+validate_trace({Filter, Level, {Destination, ID}}) when is_tuple(Filter); is_list(Filter), is_atom(Level), is_atom(Destination) ->
+    case validate_trace({Filter, Level, Destination}) of
+        {ok, {F, L, D}} ->
+            {ok, {F, L, {D, ID}}};
+        Error ->
+            Error
+    end;
+validate_trace({Filter, Level, Destination}) when is_tuple(Filter); is_list(Filter), is_atom(Level), is_atom(Destination) ->
+    ValidFilter = validate_trace_filter(Filter),
+    try config_to_mask(Level) of
+        _ when not ValidFilter ->
+            {error, invalid_trace};
+        L when is_list(Filter)  ->
+            {ok, {trace_all(Filter), L, Destination}};
+        L ->
+            {ok, {Filter, L, Destination}}
+    catch
+        _:_ ->
+            {error, invalid_level}
+    end;
+validate_trace(_) ->
+    {error, invalid_trace}.
+
+validate_trace_filter(Filter) when is_tuple(Filter), is_atom(element(1, Filter)) =:= false ->
+    false;
+validate_trace_filter(Filter) when is_list(Filter) ->
+    lists:all(fun validate_trace_filter/1, Filter);
+validate_trace_filter({Key, '*'}) when is_atom(Key) -> true;
+validate_trace_filter({any, L}) when is_list(L) -> lists:all(fun validate_trace_filter/1, L);
+validate_trace_filter({all, L}) when is_list(L) -> lists:all(fun validate_trace_filter/1, L);
+validate_trace_filter({null, Bool}) when is_boolean(Bool) -> true;
+validate_trace_filter({Key, _Value})      when is_atom(Key) -> true;
+validate_trace_filter({Key, '=', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '!=', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '<', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '=<', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '>', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '>=', _Value}) when is_atom(Key) -> true;
+validate_trace_filter(_) -> false.
+
+trace_all(Query) ->
+    glc:all(trace_acc(Query)).
+
+trace_any(Query) ->
+    glc:any(Query).
+
+trace_acc(Query) ->
+    trace_acc(Query, ).
+
+trace_acc(, Acc) ->
+    lists:reverse(Acc);
+trace_acc({any, L}|T, Acc) ->
+    trace_acc(T, glc:any(L)|Acc);
+trace_acc({all, L}|T, Acc) ->
+    trace_acc(T, glc:all(L)|Acc);
+trace_acc({null, Bool}|T, Acc) ->
+    trace_acc(T, glc:null(Bool)|Acc);
+trace_acc({Key, '*'}|T, Acc) ->
+    trace_acc(T, glc:wc(Key)|Acc);
+trace_acc({Key, '!'}|T, Acc) ->
+    trace_acc(T, glc:nf(Key)|Acc);
+trace_acc({Key, Val}|T, Acc) ->
+    trace_acc(T, glc:eq(Key, Val)|Acc);
+trace_acc({Key, '=', Val}|T, Acc) ->
+    trace_acc(T, glc:eq(Key, Val)|Acc);
+trace_acc({Key, '!=', Val}|T, Acc) ->
+    trace_acc(T, glc:neq(Key, Val)|Acc);
+trace_acc({Key, '>', Val}|T, Acc) ->
+    trace_acc(T, glc:gt(Key, Val)|Acc);
+trace_acc({Key, '>=', Val}|T, Acc) ->
+    trace_acc(T, glc:gte(Key, Val)|Acc);
+trace_acc({Key, '=<', Val}|T, Acc) ->
+    trace_acc(T, glc:lte(Key, Val)|Acc);
+trace_acc({Key, '<', Val}|T, Acc) ->
+    trace_acc(T, glc:lt(Key, Val)|Acc).
+
+check_traces(_, _,  , Acc) ->
+    lists:flatten(Acc);
+check_traces(Attrs, Level, {_, {mask, FilterLevel}, _}|Flows, Acc) when (Level band FilterLevel) == 0 ->
+    check_traces(Attrs, Level, Flows, Acc);
+check_traces(Attrs, Level, {Filter, _, _}|Flows, Acc) when length(Attrs) < length(Filter) ->
+    check_traces(Attrs, Level, Flows, Acc);
+check_traces(Attrs, Level, Flow|Flows, Acc) ->
+    check_traces(Attrs, Level, Flows, check_trace(Attrs, Flow)|Acc).
+
+check_trace(Attrs, {Filter, _Level, Dest}) when is_list(Filter) ->
+    check_trace(Attrs, {trace_all(Filter), _Level, Dest});
+
+check_trace(Attrs, {Filter, _Level, Dest}) when is_tuple(Filter) ->
+    Made = gre:make(Attrs, list),
+    glc:handle(?DEFAULT_TRACER, Made),
+    Match = glc_lib:matches(Filter, Made),
+    case Match of
+        true ->
+            Dest;
+        false ->
+            
+    end.
+
+-spec is_loggable(lager_msg:lager_msg(), non_neg_integer()|{'mask', non_neg_integer()}, term()) -> boolean().
+is_loggable(Msg, {mask, Mask}, MyName) ->
+    %% using syslog style comparison flags
+    %S = lager_msg:severity_as_int(Msg),
+    %?debugFmt("comparing masks ~.2B and ~.2B -> ~p~n", S, Mask, S band Mask),
+    (lager_msg:severity_as_int(Msg) band Mask) /= 0 orelse
+    lists:member(MyName, lager_msg:destinations(Msg));
+is_loggable(Msg, SeverityThreshold, MyName) when is_atom(SeverityThreshold) ->
+    is_loggable(Msg, level_to_num(SeverityThreshold), MyName);
+is_loggable(Msg, SeverityThreshold, MyName) when is_integer(SeverityThreshold) ->
+    lager_msg:severity_as_int(Msg) =< SeverityThreshold orelse
+    lists:member(MyName, lager_msg:destinations(Msg)).
+
+i2l(I) when I < 10  -> $0, $0+I;
+i2l(I)              -> integer_to_list(I).
+i3l(I) when I < 100 -> $0 | i2l(I);
+i3l(I)              -> integer_to_list(I).
+
+%% When log_root option is provided, get the real path to a file
+expand_path(LogPath) ->
+    LogRoot = application:get_env(lager, log_root, undefined),
+    RealPath = case filename:absname(LogPath) =:= LogPath of
+                   false when LogRoot =/= undefined ->
+                       filename:join(LogRoot, LogPath);
+                   _ ->
+                       LogPath
+               end,
+    %% see #534 make sure c:cd can't change file path, trans filename to abs name
+    filename:absname(RealPath).
+
+%% Find a file among the already installed handlers.
+%%
+%% The file is already expanded (i.e. lager_util:expand_path already added the
+%% "log_root"), but the file paths inside Handlers are not.
+find_file(_File1, _Handlers = ) ->
+    false;
+find_file(File1, {{lager_file_backend, File2}, _Handler, _Sink} = HandlerInfo | Handlers) ->
+    File1Abs = File1,
+    File2Abs = lager_util:expand_path(File2),
+    case File1Abs =:= File2Abs of
+        true ->
+            % The file inside HandlerInfo is the same as the file we are looking
+            % for, so we are done.
+            HandlerInfo;
+        false ->
+            find_file(File1, Handlers)
+    end;
+find_file(File1, _HandlerInfo | Handlers) ->
+    find_file(File1, Handlers).
+
+%% conditionally check the HWM if the event would not have been filtered
+check_hwm(Shaper = #lager_shaper{filter = Filter}, Event) ->
+    case Filter(Event) of
+        true ->
+            {true, 0, Shaper};
+        false ->
+            check_hwm(Shaper)
+    end.
+
+%% Log rate limit, i.e. high water mark for incoming messages
+
+check_hwm(Shaper = #lager_shaper{hwm = undefined}) ->
+    {true, 0, Shaper};
+check_hwm(Shaper = #lager_shaper{mps = Mps, hwm = Hwm, lasttime = Last}) when Mps < Hwm ->
+    {M, S, _} = Now = os:timestamp(),
+    case Last of
+        {M, S, _} ->
+            {true, 0, Shaper#lager_shaper{mps=Mps+1}};
+        _ ->
+            %different second - reset mps
+            {true, 0, Shaper#lager_shaper{mps=1, lasttime = Now}}
+    end;
+check_hwm(Shaper = #lager_shaper{lasttime = Last, dropped = Drop}) ->
+    %% are we still in the same second?
+    {M, S, _} = Now = os:timestamp(),
+    case Last of
+        {M, S, N} ->
+            %% still in same second, but have exceeded the high water mark
+            NewDrops = case should_flush(Shaper) of
+                           true ->
+                               discard_messages(Now, Shaper#lager_shaper.filter, 0);
+                           false ->
+                               0
+                       end,
+            Timer = case erlang:read_timer(Shaper#lager_shaper.timer) of
+                        false ->
+                            erlang:send_after(trunc((1000000 - N)/1000), self(), {shaper_expired, Shaper#lager_shaper.id});
+                        _ ->
+                            Shaper#lager_shaper.timer
+                    end,
+            {false, 0, Shaper#lager_shaper{dropped=Drop+NewDrops, timer=Timer}};
+        _ ->
+            _ = erlang:cancel_timer(Shaper#lager_shaper.timer),
+            %% different second, reset all counters and allow it
+            {true, Drop, Shaper#lager_shaper{dropped = 0, mps=0, lasttime = Now}}
+    end.
+
+should_flush(#lager_shaper{flush_queue = true, flush_threshold = 0}) ->
+    true;
+should_flush(#lager_shaper{flush_queue = true, flush_threshold = T}) ->
+    {_, L} = process_info(self(), message_queue_len),
+    L > T;
+should_flush(_) ->
+    false.
+
+discard_messages(Second, Filter, Count) ->
+    {M, S, _} = os:timestamp(),
+    case Second of
+        {M, S, _} ->
+            receive
+                %% we only discard gen_event notifications, because
+                %% otherwise we might discard gen_event internal
+                %% messages, such as trapped EXITs
+                {notify, Event} ->
+                    NewCount = case Filter(Event) of
+                                   false -> Count+1;
+                                   true -> Count
+                               end,
+                    discard_messages(Second, Filter, NewCount)
+            after 0 ->
+                    Count
+            end;
+        _ ->
+            Count
+    end.
+
+%% @private Build an atom for the gen_event process based on a sink name.
+%% For historical reasons, the default gen_event process for lager itself is named
+%% `lager_event'. For all other sinks, it is SinkName++`_lager_event'
+make_internal_sink_name(lager) ->
+    ?DEFAULT_SINK;
+make_internal_sink_name(Sink) ->
+    list_to_atom(atom_to_list(Sink) ++ "_lager_event").
+
+-spec otp_version() -> pos_integer().
+%% @doc Return the major version of the current Erlang/OTP runtime as an integer.
+otp_version() ->
+    {Vsn, _} = string:to_integer(
+        case erlang:system_info(otp_release) of
+            $R | Rel ->
+                Rel;
+            Rel ->
+                Rel
+        end),
+    Vsn.
+
+maybe_flush(undefined, #lager_shaper{} = S) ->
+    S;
+maybe_flush(Flag, #lager_shaper{} = S) when is_boolean(Flag) ->
+    S#lager_shaper{flush_queue = Flag}.
+
+-spec has_file_changed(Name :: file:name_all(),
+                       Inode0 :: pos_integer(),
+                       Ctime0 :: file:date_time()) -> {boolean(), file:file_info() | undefined}.
+has_file_changed(Name, Inode0, Ctime0) ->
+    {OsType, _} = os:type(),
+    F = file:read_file_info(Name, raw),
+    case {OsType, F} of
+        {win32, {ok, #file_info{ctime=Ctime1}=FInfo}} ->
+            % Note: on win32, Inode is always zero
+            % So check the file's ctime to see if it
+            % needs to be re-opened
+            Changed = Ctime0 =/= Ctime1,
+            {Changed, FInfo};
+        {_, {ok, #file_info{inode=Inode1}=FInfo}} ->
+            Changed = Inode0 =/= Inode1,
+            {Changed, FInfo};
+        {_, _} ->
+            {true, undefined}
+    end.
+
+-ifdef(TEST).
+
+parse_test() ->
+    ?assertEqual({ok, {minute, 0}}, parse_rotation_date_spec("$H0")),
+    ?assertEqual({ok, {minute, 59}}, parse_rotation_date_spec("$H59")),
+    ?assertEqual({ok, {hour, 0}}, parse_rotation_date_spec("$D0")),
+    ?assertEqual({ok, {hour, 23}}, parse_rotation_date_spec("$D23")),
+    ?assertEqual({ok, {day, 0}, {hour, 23}}, parse_rotation_date_spec("$W0D23")),
+    ?assertEqual({ok, {day, 5}, {hour, 16}}, parse_rotation_date_spec("$W5D16")),
+    ?assertEqual({ok, {day, 0}, {hour, 12}, {minute, 30}}, parse_rotation_date_spec("$W0D12H30")),
+    ?assertEqual({ok, {date, 1}, {hour, 0}}, parse_rotation_date_spec("$M1D0")),
+    ?assertEqual({ok, {date, 5}, {hour, 6}}, parse_rotation_date_spec("$M5D6")),
+    ?assertEqual({ok, {date, 5}, {hour, 0}}, parse_rotation_date_spec("$M5")),
+    ?assertEqual({ok, {date, 31}, {hour, 0}}, parse_rotation_date_spec("$M31")),
+    ?assertEqual({ok, {date, 31}, {hour, 1}}, parse_rotation_date_spec("$M31D1")),
+    ?assertEqual({ok, {date, last}, {hour, 0}}, parse_rotation_date_spec("$ML")),
+    ?assertEqual({ok, {date, last}, {hour, 0}}, parse_rotation_date_spec("$Ml")),
+    ?assertEqual({ok, {day, 5}, {hour, 0}}, parse_rotation_date_spec("$W5")),
+    ok.
+
+parse_fail_test() ->
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$H")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$H60")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$D")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$D24")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$W7")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$W7D1")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$M32")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$M32D1")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$D15M5")),
+    ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$M5W5")),
+    ok.
+
+rotation_calculation_test() ->
+    ?assertMatch({{2000, 1, 1}, {13, 0, 0}},
+        calculate_next_rotation({minute, 0}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 1, 1}, {12, 45, 0}},
+        calculate_next_rotation({minute, 45}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 1, 2}, {0, 0, 0}},
+        calculate_next_rotation({minute, 0}, {{2000, 1, 1}, {23, 45, 43}})),
+    ?assertMatch({{2000, 1, 2}, {0, 0, 0}},
+        calculate_next_rotation({hour, 0}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 1, 1}, {16, 0, 0}},
+        calculate_next_rotation({hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 1, 2}, {12, 0, 0}},
+        calculate_next_rotation({hour, 12}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
+        calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
+        calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 15}, {12, 34, 43}})),
+    ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
+        calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 2}, {12, 34, 43}})),
+    ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
+        calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 31}, {12, 34, 43}})),
+    ?assertMatch({{2000, 1, 1}, {16, 0, 0}},
+        calculate_next_rotation({date, 1}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 1, 15}, {16, 0, 0}},
+        calculate_next_rotation({date, 15}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 1, 31}, {16, 0, 0}},
+        calculate_next_rotation({date, last}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 1, 31}, {16, 0, 0}},
+        calculate_next_rotation({date, last}, {hour, 16}, {{2000, 1, 31}, {12, 34, 43}})),
+    ?assertMatch({{2000, 2, 29}, {16, 0, 0}},
+        calculate_next_rotation({date, last}, {hour, 16}, {{2000, 1, 31}, {17, 34, 43}})),
+    ?assertMatch({{2001, 2, 28}, {16, 0, 0}},
+        calculate_next_rotation({date, last}, {hour, 16}, {{2001, 1, 31}, {17, 34, 43}})),
+
+    ?assertMatch({{2000, 1, 1}, {16, 0, 0}},
+        calculate_next_rotation({day, 6}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+    ?assertMatch({{2000, 1, 8}, {16, 0, 0}},
+        calculate_next_rotation({day, 6}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
+    ?assertMatch({{2000, 1, 7}, {16, 0, 0}},
+        calculate_next_rotation({day, 5}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
+    ?assertMatch({{2000, 1, 3}, {16, 0, 0}},
+        calculate_next_rotation({day, 1}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
+    ?assertMatch({{2000, 1, 2}, {16, 0, 0}},
+        calculate_next_rotation({day, 0}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
+    ?assertMatch({{2000, 1, 9}, {16, 0, 0}},
+        calculate_next_rotation({day, 0}, {hour, 16}, {{2000, 1, 2}, {17, 34, 43}})),
+    ?assertMatch({{2000, 2, 3}, {16, 0, 0}},
+        calculate_next_rotation({day, 4}, {hour, 16}, {{2000, 1, 29}, {17, 34, 43}})),
+
+    ?assertMatch({{2000, 1, 7}, {16, 0, 0}},
+        calculate_next_rotation({day, 5}, {hour, 16}, {{2000, 1, 3}, {17, 34, 43}})),
+
+    ?assertMatch({{2000, 1, 3}, {16, 0, 0}},
+        calculate_next_rotation({day, 1}, {hour, 16}, {{1999, 12, 28}, {17, 34, 43}})),
+    ok.
+
+check_trace_test() ->
+    lager:start(),
+    trace_filter(none),
+    %% match by module
+    ?assertEqual(foo, check_traces({module, ?MODULE}, ?EMERGENCY, 
+                {{module, ?MODULE}, config_to_mask(emergency), foo},
+                {{module, test}, config_to_mask(emergency), bar}, )),
+    %% match by module, but other unsatisfyable attribute
+    ?assertEqual(, check_traces({module, ?MODULE}, ?EMERGENCY, 
+                {{module, ?MODULE}, {foo, bar}, config_to_mask(emergency), foo},
+                {{module, test}, config_to_mask(emergency), bar}, )),
+    %% match by wildcard module
+    ?assertEqual(bar, check_traces({module, ?MODULE}, ?EMERGENCY, 
+                {{module, ?MODULE}, {foo, bar}, config_to_mask(emergency), foo},
+                {{module, '*'}, config_to_mask(emergency), bar}, )),
+    %% wildcard module, one trace with unsatisfyable attribute
+    ?assertEqual(bar, check_traces({module, ?MODULE}, ?EMERGENCY, 
+                {{module, '*'}, {foo, bar}, config_to_mask(emergency), foo},
+                {{module, '*'}, config_to_mask(emergency), bar}, )),
+    %% wildcard but not present custom trace attribute
+    ?assertEqual(bar, check_traces({module, ?MODULE}, ?EMERGENCY, 
+                {{module, '*'}, {foo, '*'}, config_to_mask(emergency), foo},
+                {{module, '*'}, config_to_mask(emergency), bar}, )),
+    %% wildcarding a custom attribute works when it is present
+    ?assertEqual(bar, foo, check_traces({module, ?MODULE}, {foo, bar}, ?EMERGENCY, 
+                {{module, '*'}, {foo, '*'}, config_to_mask(emergency), foo},
+                {{module, '*'}, config_to_mask(emergency), bar}, )),
+    %% denied by level
+    ?assertEqual(, check_traces({module, ?MODULE}, {foo, bar}, ?INFO, 
+                {{module, '*'}, {foo, '*'}, config_to_mask(emergency), foo},
+                {{module, '*'}, config_to_mask(emergency), bar}, )),
+    %% allowed by level
+    ?assertEqual(foo, check_traces({module, ?MODULE}, {foo, bar}, ?INFO, 
+                {{module, '*'}, {foo, '*'}, config_to_mask(debug), foo},
+                {{module, '*'}, config_to_mask(emergency), bar}, )),
+    ?assertEqual(anythingbutnotice, infoandbelow, infoonly, check_traces({module, ?MODULE}, ?INFO, 
+                {{module, '*'}, config_to_mask('=debug'), debugonly},
+                {{module, '*'}, config_to_mask('=info'), infoonly},
+                {{module, '*'}, config_to_mask('<=info'), infoandbelow},
+                {{module, '*'}, config_to_mask('!=info'), anythingbutinfo},
+                {{module, '*'}, config_to_mask('!=notice'), anythingbutnotice}
+                , )),
+    application:stop(lager),
+    application:stop(goldrush),
+    ok.
+
+is_loggable_test_() ->
+    
+        {"Loggable by severity only", ?_assert(is_loggable(lager_msg:new("", alert, , ),2,me))},
+        {"Not loggable by severity only", ?_assertNot(is_loggable(lager_msg:new("", critical, , ),1,me))},
+        {"Loggable by severity with destination", ?_assert(is_loggable(lager_msg:new("", alert, , you),2,me))},
+        {"Not loggable by severity with destination", ?_assertNot(is_loggable(lager_msg:new("", critical, , you),1,me))},
+        {"Loggable by destination overriding severity", ?_assert(is_loggable(lager_msg:new("", critical, , me),1,me))}
+    .
+
+format_time_test_() ->
+    
+        ?_assertEqual("2012-10-04 11:16:23.002",
+            begin
+                {D, T} = format_time({{2012,10,04},{11,16,23,2}}),
+                lists:flatten(D,$ ,T)
+            end),
+        ?_assertEqual("2012-10-04 11:16:23.999",
+            begin
+                {D, T} = format_time({{2012,10,04},{11,16,23,999}}),
+                lists:flatten(D,$ ,T)
+            end),
+        ?_assertEqual("2012-10-04 11:16:23",
+            begin
+                {D, T} = format_time({{2012,10,04},{11,16,23}}),
+                lists:flatten(D,$ ,T)
+            end),
+        ?_assertEqual("2012-10-04 00:16:23.092 UTC",
+            begin
+                {D, T} = format_time({utc, {{2012,10,04},{0,16,23,92}}}),
+                lists:flatten(D,$ ,T)
+            end),
+        ?_assertEqual("2012-10-04 11:16:23 UTC",
+            begin
+                {D, T} = format_time({utc, {{2012,10,04},{11,16,23}}}),
+                lists:flatten(D,$ ,T)
+            end)
+    .
+
+config_to_levels_test() ->
+    ?assertEqual(none, config_to_levels('none')),
+    ?assertEqual({mask, 0}, config_to_mask('none')),
+    ?assertEqual(debug, config_to_levels('=debug')),
+    ?assertEqual(debug, config_to_levels('<info')),
+    ?assertEqual(levels() -- debug, config_to_levels('!=debug')),
+    ?assertEqual(levels() -- debug, config_to_levels('>debug')),
+    ?assertEqual(levels() -- debug, config_to_levels('>=info')),
+    ?assertEqual(levels() -- debug, config_to_levels('=>info')),
+    ?assertEqual(debug, info, notice, config_to_levels('<=notice')),
+    ?assertEqual(debug, info, notice, config_to_levels('=<notice')),
+    ?assertEqual(debug, config_to_levels('<info')),
+    ?assertEqual(debug, config_to_levels('!info')),
+    ?assertError(badarg, config_to_levels(ok)),
+    ?assertError(badarg, config_to_levels('<=>info')),
+    ?assertError(badarg, config_to_levels('=<=info')),
+    ?assertError(badarg, config_to_levels('<==>=<=>info')),
+    %% double negatives DO work, however
+    ?assertEqual(debug, config_to_levels('!!=debug')),
+    ?assertEqual(levels() -- debug, config_to_levels('!!!=debug')),
+    ok.
+
+config_to_mask_test() ->
+    ?assertEqual({mask, 0}, config_to_mask('none')),
+    ?assertEqual({mask, ?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY}, config_to_mask('debug')),
+    ?assertEqual({mask, ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY}, config_to_mask('warning')),
+    ?assertEqual({mask, ?DEBUG bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY}, config_to_mask('!=info')),
+    ok.
+
+mask_to_levels_test() ->
+    ?assertEqual(, mask_to_levels(0)),
+    ?assertEqual(debug, mask_to_levels(2#10000000)),
+    ?assertEqual(debug, info, mask_to_levels(2#11000000)),
+    ?assertEqual(debug, info, emergency, mask_to_levels(2#11000001)),
+    ?assertEqual(debug, notice, error, mask_to_levels(?DEBUG bor ?NOTICE bor ?ERROR)),
+    ok.
+
+expand_path_test() ->
+    OldRootVal = application:get_env(lager, log_root),
+
+    ok = application:unset_env(lager, log_root),
+    ?assertEqual(filename:absname("/foo/bar"), expand_path("/foo/bar")),
+    ?assertEqual(filename:absname("foo/bar"), expand_path("foo/bar")),
+
+    ok = application:set_env(lager, log_root, "log/dir"),
+    ?assertEqual(filename:absname("/foo/bar"), expand_path("/foo/bar")), % Absolute path should not be changed
+    ?assertEqual(filename:absname("log/dir/foo/bar"), expand_path("foo/bar")),
+
+    case OldRootVal of
+        undefined -> application:unset_env(lager, log_root);
+        {ok, Root} -> application:set_env(lager, log_root, Root)
+    end,
+    ok.
+
+sink_name_test_() ->
+    
+        ?_assertEqual(lager_event, make_internal_sink_name(lager)),
+        ?_assertEqual(audit_lager_event, make_internal_sink_name(audit))
+    .
+
+create_test_dir() ->
+    {ok, Tmp} = get_temp_dir(),
+    Dir = filename:join(Tmp, "lager_test",
+        erlang:integer_to_list(erlang:phash2(os:timestamp()))),
+    ?assertEqual(ok, filelib:ensure_dir(Dir)),
+    TestDir = case file:make_dir(Dir) of
+                  ok ->
+                      Dir;
+                  Err ->
+                      ?assertEqual({error, eexist}, Err),
+                      create_test_dir()
+                  end,
+    ok = application:set_env(lager, test_dir, TestDir),
+    {ok, TestDir}.
+
+get_test_dir() ->
+    case application:get_env(lager, test_dir) of
+        undefined ->
+            create_test_dir();
+        {ok, _}=Res ->
+            Res
+    end.
+
+get_temp_dir() ->
+    Tmp = case os:getenv("TEMP") of
+              false ->
+                  case os:getenv("TMP") of
+                      false -> "/tmp";
+                      Dir1 -> Dir1
+                  end;
+               Dir0 -> Dir0
+          end,
+    ?assertEqual(true, filelib:is_dir(Tmp)),
+    {ok, Tmp}.
+
+delete_test_dir() ->
+    {ok, TestDir} = get_test_dir(),
+    ok = delete_test_dir(TestDir).
+
+delete_test_dir(TestDir) ->
+    ok = application:unset_env(lager, test_dir),
+    {OsType, _} = os:type(),
+    ok = case {OsType, otp_version()} of
+             {win32, _} ->
+                 application:stop(lager),
+                 do_delete_test_dir(TestDir);
+             {unix, 15} ->
+                 os:cmd("rm -rf " ++ TestDir);
+             {unix, _} ->
+                 do_delete_test_dir(TestDir)
+         end.
+
+do_delete_test_dir(Dir) ->
+    ListRet = file:list_dir_all(Dir),
+    ?assertMatch({ok, _}, ListRet),
+    {_, Entries} = ListRet,
+    lists:foreach(
+        fun(Entry) ->
+            FsElem = filename:join(Dir, Entry),
+            case filelib:is_dir(FsElem) of
+                true ->
+                    delete_test_dir(FsElem);
+                _ ->
+                    case file:delete(FsElem) of
+                        ok -> ok;
+                        Error ->
+                            io:format(standard_error, "ERROR: error deleting file ~p~n", FsElem),
+                            ?assertEqual(ok, Error)
+                    end
+            end
+        end, Entries),
+    ?assertEqual(ok, file:del_dir(Dir)).
+
+do_delete_file(_FsElem, 0) ->
+    ?assert(false);
+do_delete_file(FsElem, Attempts) ->
+    case file:delete(FsElem) of
+        ok -> ok;
+        _Error ->
+            do_delete_file(FsElem, Attempts - 1)
+    end.
+
+set_dir_permissions(Perms, Dir) ->
+    do_set_dir_permissions(os:type(), Perms, Dir).
+
+do_set_dir_permissions({win32, _}, _Perms, _Dir) ->
+    ok;
+do_set_dir_permissions({unix, _}, Perms, Dir) ->
+    os:cmd("chmod -R " ++ Perms ++ " " ++ Dir),
+    ok.
+
+safe_application_load(App) ->
+    case application:load(App) of
+        ok ->
+            ok;
+        {error, {already_loaded, App}} ->
+            ok;
+        Error ->
+            ?assertEqual(ok, Error)
+    end.
+
+safe_write_file(File, Content) ->
+    % Note: ensures that the new creation time is at least one second
+    % in the future
+    ?assertEqual(ok, file:write_file(File, Content)),
+    Ctime0 = calendar:local_time(),
+    Ctime0Sec = calendar:datetime_to_gregorian_seconds(Ctime0),
+    Ctime1Sec = Ctime0Sec + 1,
+    Ctime1 = calendar:gregorian_seconds_to_datetime(Ctime1Sec),
+    {ok, FInfo0} = file:read_file_info(File, raw),
+    FInfo1 = FInfo0#file_info{ctime = Ctime1},
+    ?assertEqual(ok, file:write_file_info(File, FInfo1, raw)).
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/compress_pr_record_test.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/crash.erl Added

@@ -0,0 +1,109 @@
+
+%% a module that crashes in just about every way possible
+
+-module(crash).
+
+-behaviour(gen_server).
+
+-export(init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3).
+
+-export(start/0).
+
+-record(state, {
+        host :: term(),
+        port :: term()
+    }).
+
+start() ->
+    gen_server:start({local, ?MODULE}, ?MODULE, , ).
+
+init(_) ->
+    {ok, {}}.
+
+handle_call(undef, _, State) ->
+    {reply, ?MODULE:booger(), State};
+handle_call(badfun, _, State) ->
+    M = booger,
+    {reply, M(), State};
+handle_call(bad_return, _, _) ->
+    bleh;
+handle_call(bad_return_string, _, _) ->
+    {tuple, {tuple, "string"}};
+handle_call(case_clause, _, State) ->
+    case State of
+        goober ->
+            {reply, ok, State}
+    end;
+handle_call(case_clause_string, _, State) ->
+    Foo = atom_to_list(?MODULE),
+    case Foo of
+        State ->
+            {reply, ok, State}
+    end;
+handle_call(if_clause, _, State) ->
+    if State == 1 ->
+            {reply, ok, State}
+    end;
+handle_call(try_clause, _, State) ->
+    Res = try tuple_to_list(State) of
+        _A, _B -> ok
+    catch
+        _:_ -> ok
+    end,
+    {reply, Res, State};
+handle_call(badmatch, _, State) ->
+    {A, B, C} = State,
+    {reply, A, B, C, State};
+handle_call(badrecord, _, State) ->
+    Host = State#state.host,
+    {reply, Host, State};
+handle_call(function_clause, _, State) ->
+    {reply, function(State), State};
+handle_call(badarith, _, State) ->
+    Res = 1 / length(tuple_to_list(State)),
+    {reply, Res, State};
+handle_call(badarg1, _, State) ->
+    Res = list_to_binary("foo", bar),
+    {reply, Res, State};
+handle_call(badarg2, _, State) ->
+    Res = erlang:iolist_to_binary("foo", bar),
+    {reply, Res, State};
+handle_call(system_limit, _, State) ->
+    Res = list_to_atom(lists:flatten(lists:duplicate(256, "a"))),
+    {reply, Res, State};
+handle_call(process_limit, _, State) ->
+    %% run with +P 300 to make this crash
+    erlang:spawn(fun() -> timer:sleep(5000) end) || _ <- lists:seq(0, 500),
+    {reply, ok, State};
+handle_call(port_limit, _, State) ->
+    erlang:open_port({spawn, "ls"}, ) || _ <- lists:seq(0, 1024),
+    {reply, ok, State};
+handle_call(noproc, _, State) ->
+    Res = gen_event:call(foo, bar, baz),
+    {reply, Res, State};
+handle_call(noproc_proc_lib, _, State) ->
+    Res = proc_lib:stop(foo),
+    {reply, Res, State};
+handle_call(badarity, _, State) ->
+    F = fun(A, B, C) -> A + B + C end,
+    Res = F(State),
+    {reply, Res, State};
+handle_call(throw, _, _State) ->
+    throw(a_ball);
+handle_call(_Call, _From, State) ->
+    {reply, ok, State}.
+
+handle_cast(_Cast, State) ->
+    {noreply, State}.
+
+handle_info(_Info, State) ->
+    {noreply, State}.
+
+terminate(_, _) ->
+    ok.
+
+code_change(_, State, _) ->
+    {ok, State}.
+
+function(X) when is_list(X) ->
+    ok.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/crash_fsm.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/crash_statem.erl Added

@@ -0,0 +1,46 @@
+-module(crash_statem).
+%% we're only going to compile this on OTP 19+
+-behaviour(gen_statem).
+
+-export(
+         start/0,
+         crash/0,
+         stop/1,
+         timeout/0,
+         handle_event/4
+).
+
+-export(terminate/3,code_change/4,init/1,callback_mode/0).
+
+start() ->
+    gen_statem:start({local,?MODULE}, ?MODULE, , ).
+
+crash() ->
+    gen_statem:call(?MODULE, boom).
+
+stop(Reason) ->
+    gen_statem:call(?MODULE, {stop, Reason}).
+
+timeout() ->
+    gen_statem:call(?MODULE, timeout).
+
+%% Mandatory callback functions
+terminate(_Reason, _State, _Data) -> ok.
+code_change(_Vsn, State, Data, _Extra) -> {ok,State,Data}.
+init() ->
+    %% insert rant here about breaking changes in minor versions...
+    case erlang:system_info(version) of
+        "8.0" -> {callback_mode(),state1,undefined};
+        _ -> {ok, state1, undefined}
+    end.
+
+callback_mode() -> handle_event_function.
+
+%%% state callback(s)
+
+handle_event(state_timeout, timeout, state1, _) ->
+    {stop, timeout};
+handle_event({call, _From}, timeout, _Arg, _Data) ->
+    {keep_state_and_data, {state_timeout, 0, timeout}};
+handle_event({call, _From}, {stop, Reason}, state1, _Data) ->
+    {stop, Reason}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/lager_app_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/lager_crash_backend.erl Added

@@ -0,0 +1,68 @@
+%% 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_crash_backend).
+
+-include("lager.hrl").
+
+-behaviour(gen_event).
+
+-export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+        code_change/3).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+init(CrashBefore, CrashAfter) ->
+    case is_tuple(CrashBefore) andalso (timer:now_diff(CrashBefore, os:timestamp()) > 0) of
+        true ->
+            %?debugFmt("crashing!~n", ),
+            {error, crashed};
+        _ ->
+            %?debugFmt("Not crashing!~n", ),
+            case is_tuple(CrashAfter) of
+                true ->
+                    CrashTime = timer:now_diff(CrashAfter, os:timestamp()) div 1000,
+                    case CrashTime > 0 of
+                        true ->
+                            %?debugFmt("crashing in ~p~n", CrashTime),
+                            erlang:send_after(CrashTime, self(), crash),
+                            {ok, {}};
+                        _ -> {error, crashed}
+                    end;
+                _ ->
+                    {ok, {}}
+            end
+    end.
+
+handle_call(_Request, State) ->
+    {ok, ok, State}.
+
+handle_event(_Event, State) ->
+    {ok, State}.
+
+handle_info(crash, _State) ->
+    %?debugFmt("Time to crash!~n", ),
+    crash;
+handle_info(_Info, State) ->
+    {ok, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/lager_manager_killer_test.erl Added

@@ -0,0 +1,125 @@
+-module(lager_manager_killer_test).
+-author("Sungjin Park <jinni.park@gmail.com>").
+
+-compile({parse_transform, lager_transform}).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TEST_SINK_NAME, '__lager_test_sink').              %% <-- used by parse transform
+-define(TEST_SINK_EVENT, '__lager_test_sink_lager_event'). %% <-- used by lager API calls and internals for gen_event
+
+overload_test_() ->
+    {timeout, 60,
+     fun() ->
+             application:stop(lager),
+             application:load(lager),
+             Delay = 1000, % sleep 1 sec on every log
+             KillerHWM = 10, % kill the manager if there are more than 10 pending logs
+             KillerReinstallAfter = 1000, % reinstall killer after 1 sec
+             application:set_env(lager, handlers, {lager_slow_backend, {delay, Delay}}),
+             application:set_env(lager, async_threshold, undefined),
+             application:set_env(lager, error_logger_redirect, true),
+             application:set_env(lager, killer_hwm, KillerHWM),
+             application:set_env(lager, killer_reinstall_after, KillerReinstallAfter),
+             ensure_started(lager),
+             lager_config:set(async, true),
+             Manager = whereis(lager_event),
+             erlang:trace(all, true, procs),
+             lager:info("~p'th message", N) || N <- lists:seq(1,KillerHWM+2),
+             Margin = 100,
+             ok = confirm_manager_exit(Manager, Delay+Margin),
+             ok = confirm_sink_reregister(lager_event, Margin),
+             erlang:trace(all, false, procs),
+             wait_until(fun() ->
+                                case proplists:get_value(lager_manager_killer, gen_event:which_handlers(lager_event)) of
+                                     -> false;
+                                    _ -> true
+                                end
+                        end, Margin, 15),
+             wait_until(fun() ->
+                                case gen_event:call(lager_event, lager_manager_killer, get_settings) of
+                                    KillerHWM, KillerReinstallAfter -> true;
+                                    _Other -> false
+                                end
+                        end, Margin, 15),
+             application:stop(lager)
+     end}.
+
+overload_alternate_sink_test_() ->
+    {timeout, 60,
+     fun() ->
+             application:stop(lager),
+             application:load(lager),
+             Delay = 1000, % sleep 1 sec on every log
+             KillerHWM = 10, % kill the manager if there are more than 10 pending logs
+             KillerReinstallAfter = 1000, % reinstall killer after 1 sec
+             application:set_env(lager, handlers, ),
+             application:set_env(lager, extra_sinks, {?TEST_SINK_EVENT, 
+                                                                          {handlers, {lager_slow_backend, {delay, Delay}}},
+                                                                          {killer_hwm, KillerHWM},
+                                                                          {killer_reinstall_after, KillerReinstallAfter},
+                                                                          {async_threshold, undefined}
+                                                                         }),
+             application:set_env(lager, error_logger_redirect, true),
+             ensure_started(lager),
+             lager_config:set({?TEST_SINK_EVENT, async}, true),
+             Manager = whereis(?TEST_SINK_EVENT),
+             erlang:trace(all, true, procs),
+             ?TEST_SINK_NAME:info("~p'th message", N) || N <- lists:seq(1,KillerHWM+2),
+             Margin = 100,
+             ok = confirm_manager_exit(Manager, Delay+Margin),
+             ok = confirm_sink_reregister(?TEST_SINK_EVENT, Margin),
+             erlang:trace(all, false, procs),
+             wait_until(fun() ->
+                                case proplists:get_value(lager_manager_killer, gen_event:which_handlers(?TEST_SINK_EVENT)) of
+                                     -> false;
+                                    _ -> true
+                                end
+                        end, Margin, 15),
+             wait_until(fun() ->
+                                case gen_event:call(?TEST_SINK_EVENT, lager_manager_killer, get_settings) of
+                                    KillerHWM, KillerReinstallAfter -> true;
+                                    _Other -> false
+                                end
+                        end, Margin, 15),
+             application:stop(lager)
+     end}.
+
+ensure_started(App) ->
+    case application:start(App) of
+        ok ->
+            ok;
+        {error, {not_started, Dep}} ->
+            ensure_started(Dep),
+            ensure_started(App)
+    end.
+
+confirm_manager_exit(Manager, Delay) ->
+    receive
+        {trace, Manager, exit, killed} ->
+            ?debugFmt("Manager ~p killed", Manager);
+        Other ->
+            ?debugFmt("OTHER MSG: ~p", Other),
+            confirm_manager_exit(Manager, Delay)
+    after Delay ->
+            ?assert(false)
+    end.
+
+confirm_sink_reregister(Sink, Delay) ->
+    receive
+        {trace, _Pid, register, Sink} ->
+            ?assertNot(lists:member(lager_manager_killer, gen_event:which_handlers(Sink)))
+    after Delay ->
+            ?assert(false)
+    end.
+
+wait_until(_Fun, _Delay, 0) ->
+    {error, too_many_retries};
+wait_until(Fun, Delay, Retries) ->
+    case Fun() of
+        true -> ok;
+        false -> timer:sleep(Delay), wait_until(Fun, Delay, Retries-1)
+    end.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/lager_metadata_whitelist_test.erl Added

@@ -0,0 +1,72 @@
+
+-module(lager_metadata_whitelist_test).
+
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+setup() ->
+    ok = error_logger:tty(false),
+    ok = lager_util:safe_application_load(lager),
+    ok = application:set_env(lager, handlers, {lager_common_test_backend, info}),
+    ok = application:set_env(lager, error_logger_redirect, false),
+    ok = application:unset_env(lager, traces),
+    ok = lager:start(),
+    ok = timer:sleep(250),
+    ok.
+
+cleanup(_) ->
+    ok = application:unset_env(lager, metadata_whitelist),
+    catch ets:delete(lager_config), %% kill the ets config table with fire
+    ok = application:stop(lager),
+    ok = application:stop(goldrush),
+    ok = error_logger:tty(true).
+
+date_time_now() ->
+    Now = os:timestamp(),
+    {Date, Time} = lager_util:format_time(lager_util:maybe_utc(lager_util:localtime_ms(Now))),
+    {Date, Time, Now}.
+
+basic_test_() ->
+    {Date, Time, Now} = date_time_now(),
+    {
+        foreach,
+        fun setup/0,
+        fun cleanup/1,
+        {"Meta", fun() ->
+             Whitelist = meta0,
+            ok = application:set_env(lager, metadata_whitelist, Whitelist),
+            Msg = lager_msg:new("Message", Now, error, , ),
+            Expected = iolist_to_binary(Date, " ", Time,  " error  Message\n"),
+            Got = iolist_to_binary(lager_default_formatter:format(Msg, )),
+            ?assertEqual(Expected, Got)
+         end},
+            {"Meta1", fun() ->
+            Whitelist = meta1,
+            ok = application:set_env(lager, metadata_whitelist, Whitelist),
+            Msg = lager_msg:new("Message", Now, error, {meta1, "value1"}, ),
+            Expected = iolist_to_binary(Date, " ", Time,  " error  meta1=value1 Message\n"),
+            Got = iolist_to_binary(lager_default_formatter:format(Msg, )),
+            ?assertEqual(Expected, Got)
+         end},
+         {"Meta2", fun() ->
+            Whitelist = meta1, meta2,
+            ok = application:set_env(lager, metadata_whitelist, Whitelist),
+            Msg = lager_msg:new("Message", Now, error, {meta1, "value1"}, {meta2, 2}, ),
+            Expected = iolist_to_binary(Date, " ", Time,  " error  meta1=value1 meta2=2 Message\n"),
+            Got = iolist_to_binary(lager_default_formatter:format(Msg, )),
+            ?assertEqual(Expected, Got)
+         end},
+         {"Meta3", fun() ->
+            Whitelist = meta1, meta2,
+            ok = application:set_env(lager, metadata_whitelist, Whitelist),
+            Msg = lager_msg:new("Message", Now, error, {meta1, "value1"}, {meta3, 3}, ),
+            Expected = iolist_to_binary(Date, " ", Time,  " error  meta1=value1 Message\n"),
+            Got = iolist_to_binary(lager_default_formatter:format(Msg, )),
+            ?assertEqual(Expected, Got)
+         end}
+        
+    }.
+
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/lager_rotate.erl Added

@@ -0,0 +1,185 @@
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2016-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_rotate).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-record(state, {
+    dir     :: string(),
+    log1    :: string(),
+    log1r   :: string(),
+    log2    :: string(),
+    log2r   :: string(),
+    sink    :: string(),
+    sinkr   :: string()
+}).
+
+rotate_test_() ->
+    {foreach,
+        fun() ->
+            {ok, Dir} = lager_util:create_test_dir(),
+            Log1 = filename:join(Dir, "test1.log"),
+            Log2 = filename:join(Dir, "test2.log"),
+            Sink = filename:join(Dir, "sink.log"),
+            State = #state{
+                dir     = Dir,
+                log1    = Log1,
+                log1r   = Log1 ++ ".0",
+                log2    = Log2,
+                log2r   = Log2 ++ ".0",
+                sink    = Sink,
+                sinkr   = Sink ++ ".0"
+            },
+            file:write_file(Log1, ),
+            file:write_file(Log2, ),
+            file:write_file(Sink, ),
+
+            error_logger:tty(false),
+            application:load(lager),
+            application:set_env(lager, handlers, 
+                {lager_file_backend, {file, Log1}, {level, info}},
+                {lager_file_backend, {file, Log2}, {level, info}} ),
+            application:set_env(lager, extra_sinks, 
+                {sink_event,
+                    {handlers,
+                        {lager_file_backend, {file, Sink}, {level, info}}}
+                    }),
+            application:set_env(lager, error_logger_redirect, false),
+            application:set_env(lager, async_threshold, undefined),
+            lager:start(),
+            timer:sleep(1000),
+            State
+        end,
+        fun(#state{}) ->
+            ok = application:stop(lager),
+            ok = application:stop(goldrush),
+            ok = lager_util:delete_test_dir(),
+            ok = error_logger:tty(true)
+        end, 
+        fun(State) ->
+            {"Rotate single file",
+            fun() ->
+                lager:log(error, self(), "Test message 1"),
+                lager:log(sink_event, error, self(), "Sink test message 1", ),
+                lager:rotate_handler({lager_file_backend, State#state.log1}),
+                ok = wait_until(fun() -> filelib:is_regular(State#state.log1r) end, 10),
+                lager:log(error, self(), "Test message 2"),
+                lager:log(sink_event, error, self(), "Sink test message 2", ),
+
+                {ok, File1} = file:read_file(State#state.log1),
+                {ok, File2} = file:read_file(State#state.log2),
+                {ok, SinkFile} = file:read_file(State#state.sink),
+                {ok, File1Old} = file:read_file(State#state.log1r),
+
+                have_no_log(File1, <<"Test message 1">>),
+                have_log(File1, <<"Test message 2">>),
+
+                have_log(File2, <<"Test message 1">>),
+                have_log(File2, <<"Test message 2">>),
+
+                have_log(File1Old, <<"Test message 1">>),
+                have_no_log(File1Old, <<"Test message 2">>),
+
+                have_log(SinkFile, <<"Sink test message 1">>),
+                have_log(SinkFile, <<"Sink test message 2">>)
+            end}
+        end,
+        fun(State) ->
+            {"Rotate sink",
+            fun() ->
+                lager:log(error, self(), "Test message 1"),
+                lager:log(sink_event, error, self(), "Sink test message 1", ),
+                lager:rotate_sink(sink_event),
+                ok = wait_until(fun() -> filelib:is_regular(State#state.sinkr) end, 10),
+                lager:log(error, self(), "Test message 2"),
+                lager:log(sink_event, error, self(), "Sink test message 2", ),
+                {ok, File1} = file:read_file(State#state.log1),
+                {ok, File2} = file:read_file(State#state.log2),
+                {ok, SinkFile} = file:read_file(State#state.sink),
+                {ok, SinkFileOld} = file:read_file(State#state.sinkr),
+
+                have_log(File1, <<"Test message 1">>),
+                have_log(File1, <<"Test message 2">>),
+
+                have_log(File2, <<"Test message 1">>),
+                have_log(File2, <<"Test message 2">>),
+
+                have_log(SinkFileOld, <<"Sink test message 1">>),
+                have_no_log(SinkFileOld, <<"Sink test message 2">>),
+
+                have_no_log(SinkFile, <<"Sink test message 1">>),
+                have_log(SinkFile, <<"Sink test message 2">>)
+            end}
+        end,
+        fun(State) ->
+            {"Rotate all",
+            fun() ->
+                lager:log(error, self(), "Test message 1"),
+                lager:log(sink_event, error, self(), "Sink test message 1", ),
+                lager:rotate_all(),
+                ok = wait_until(fun() -> filelib:is_regular(State#state.sinkr) end, 10),
+                lager:log(error, self(), "Test message 2"),
+                lager:log(sink_event, error, self(), "Sink test message 2", ),
+                {ok, File1} = file:read_file(State#state.log1),
+                {ok, File2} = file:read_file(State#state.log2),
+                {ok, SinkFile} = file:read_file(State#state.sink),
+                {ok, File1Old} = file:read_file(State#state.log1r),
+                {ok, File2Old} = file:read_file(State#state.log2r),
+                {ok, SinkFileOld} = file:read_file(State#state.sinkr),
+
+                have_no_log(File1, <<"Test message 1">>),
+                have_log(File1, <<"Test message 2">>),
+
+                have_no_log(File2, <<"Test message 1">>),
+                have_log(File2, <<"Test message 2">>),
+
+                have_no_log(SinkFile, <<"Sink test message 1">>),
+                have_log(SinkFile, <<"Sink test message 2">>),
+
+                have_log(SinkFileOld, <<"Sink test message 1">>),
+                have_no_log(SinkFileOld, <<"Sink test message 2">>),
+
+                have_log(File1Old, <<"Test message 1">>),
+                have_no_log(File1Old, <<"Test message 2">>),
+
+                have_log(File2Old, <<"Test message 1">>),
+                have_no_log(File2Old, <<"Test message 2">>)
+
+            end}
+        end
+    }.
+
+have_log(Data, Log) ->
+    {_,_} = binary:match(Data, Log).
+
+have_no_log(Data, Log) ->
+    nomatch = binary:match(Data, Log).
+
+wait_until(_Fun, 0) -> {error, too_many_retries};
+wait_until(Fun, Retry) ->
+    case Fun() of
+        true -> ok;
+        false ->
+            timer:sleep(500),
+            wait_until(Fun, Retry-1)
+    end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/lager_slow_backend.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/lager_test_backend.erl Added

@@ -0,0 +1,1927 @@
+%% -------------------------------------------------------------------
+%%
+%% 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_test_backend).
+
+-behaviour(gen_event).
+
+-export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+        code_change/3).
+
+-include("lager.hrl").
+
+-define(TEST_SINK_NAME, '__lager_test_sink').              %% <-- used by parse transform
+-define(TEST_SINK_EVENT, '__lager_test_sink_lager_event'). %% <-- used by lager API calls and internals for gen_event
+
+-record(state, {
+    level   :: list(),
+    buffer  :: list(),
+    ignored :: term()
+}).
+-compile({parse_transform, lager_transform}).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-record(test, {
+    attrs   :: list(),
+    format  :: list(),
+    args    :: list()
+}).
+-export(
+    count/0,
+    count_ignored/0,
+    flush/0,
+    message_stuffer/3,
+    pop/0,
+    pop_ignored/0,
+    print_state/0,
+    get_buffer/0
+).
+-endif.
+
+init(Level) ->
+    {ok, #state{level=lager_util:config_to_mask(Level), buffer=, ignored=}}.
+
+handle_call(count, #state{buffer=Buffer} = State) ->
+    {ok, length(Buffer), State};
+handle_call(count_ignored, #state{ignored=Ignored} = State) ->
+    {ok, length(Ignored), State};
+handle_call(flush, State) ->
+    {ok, ok, State#state{buffer=, ignored=}};
+handle_call(pop, #state{buffer=Buffer} = State) ->
+    case Buffer of
+         ->
+            {ok, undefined, State};
+        H|T ->
+            {ok, H, State#state{buffer=T}}
+    end;
+handle_call(pop_ignored, #state{ignored=Ignored} = State) ->
+    case Ignored of
+         ->
+            {ok, undefined, State};
+        H|T ->
+            {ok, H, State#state{ignored=T}}
+    end;
+handle_call(get_buffer, #state{buffer=Buffer} = State) ->
+    {ok, Buffer, State};
+handle_call(get_loglevel, #state{level=Level} = State) ->
+    {ok, Level, State};
+handle_call({set_loglevel, Level}, State) ->
+    {ok, ok, State#state{level=lager_util:config_to_mask(Level)}};
+handle_call(print_state, State) ->
+    spawn(fun() -> lager:info("State ~p", lager:pr(State, ?MODULE)) end),
+    timer:sleep(100),
+    {ok, ok, State};
+handle_call(print_bad_state, State) ->
+    spawn(fun() -> lager:info("State ~p", lager:pr({state, 1}, ?MODULE)) end),
+    timer:sleep(100),
+    {ok, ok, State};
+handle_call(_Request, State) ->
+    {ok, ok, State}.
+
+handle_event({log, Msg},
+             #state{level=LogLevel,buffer=Buffer,ignored=Ignored} = State) ->
+    case lager_util:is_loggable(Msg, LogLevel, ?MODULE) of
+        true ->
+            {ok, State#state{buffer=Buffer ++
+                             {lager_msg:severity_as_int(Msg),
+                               lager_msg:datetime(Msg),
+                               lager_msg:message(Msg), lager_msg:metadata(Msg)}}};
+        _ ->
+            {ok, State#state{ignored=Ignored ++ Msg}}
+    end;
+handle_event(_Event, State) ->
+    {ok, State}.
+
+handle_info(_Info, State) ->
+    {ok, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+-ifdef(TEST).
+
+pop() ->
+    pop(lager_event).
+
+pop_ignored() ->
+    pop_ignored(lager_event).
+
+get_buffer() ->
+    get_buffer(lager_event).
+
+count() ->
+    count(lager_event).
+
+count_ignored() ->
+    count_ignored(lager_event).
+
+flush() ->
+    flush(lager_event).
+
+print_state() ->
+    print_state(lager_event).
+
+print_bad_state() ->
+    print_bad_state(lager_event).
+
+pop(Sink) ->
+    gen_event:call(Sink, ?MODULE, pop).
+
+pop_ignored(Sink) ->
+    gen_event:call(Sink, ?MODULE, pop_ignored).
+
+get_buffer(Sink) ->
+    gen_event:call(Sink, ?MODULE, get_buffer).
+
+count(Sink) ->
+    gen_event:call(Sink, ?MODULE, count).
+
+count_ignored(Sink) ->
+    gen_event:call(Sink, ?MODULE, count_ignored).
+
+flush(Sink) ->
+    gen_event:call(Sink, ?MODULE, flush).
+
+print_state(Sink) ->
+    gen_event:call(Sink, ?MODULE, print_state).
+
+print_bad_state(Sink) ->
+    gen_event:call(Sink, ?MODULE, print_bad_state).
+
+not_running_test() ->
+    ?assertEqual({error, lager_not_running}, lager:log(info, self(), "not running")).
+
+lager_test_() ->
+    {foreach,
+        fun setup/0,
+        fun cleanup/1,
+        
+            {"observe that there is nothing up my sleeve",
+                fun() ->
+                        ?assertEqual(undefined, pop()),
+                        ?assertEqual(0, count())
+                end
+            },
+            {"test sink not running",
+                fun() ->
+                         ?assertEqual({error, {sink_not_configured, test}}, lager:log(test, info, self(), "~p", "not running"))
+                end
+            },
+            {"logging works",
+                fun() ->
+                        lager:warning("test message"),
+                        ?assertEqual(1, count()),
+                        {Level, _Time, Message, _Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(warning)),
+                        ?assertEqual("test message", Message),
+                        ok
+                end
+            },
+            {"logging with macro works",
+                fun() ->
+                        ?lager_warning("test message", ),
+                        ?assertEqual(1, count()),
+                        {Level, _Time, Message, _Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(warning)),
+                        ?assertEqual("test message", Message),
+                        ok
+                end
+            },
+            {"unsafe logging works",
+                fun() ->
+                        lager:warning_unsafe("test message"),
+                        ?assertEqual(1, count()),
+                        {Level, _Time, Message, _Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(warning)),
+                        ?assertEqual("test message", Message),
+                        ok
+                end
+            },
+            {"logging with arguments works",
+                fun() ->
+                        lager:warning("test message ~p", self()),
+                        ?assertEqual(1, count()),
+                        {Level, _Time, Message,_Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(warning)),
+                        ?assertEqual(lists:flatten(io_lib:format("test message ~p", self())), lists:flatten(Message)),
+                        ok
+                end
+            },
+            {"logging with macro and arguments works",
+                fun() ->
+                        ?lager_warning("test message ~p", self()),
+                        ?assertEqual(1, count()),
+                        {Level, _Time, Message,_Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(warning)),
+                        ?assertEqual(lists:flatten(io_lib:format("test message ~p", self())), lists:flatten(Message)),
+                        ok
+                end
+            },
+            {"unsafe logging with args works",
+                fun() ->
+                        lager:warning_unsafe("test message ~p", self()),
+                        ?assertEqual(1, count()),
+                        {Level, _Time, Message,_Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(warning)),
+                        ?assertEqual(lists:flatten(io_lib:format("test message ~p", self())), lists:flatten(Message)),
+                        ok
+                end
+            },
+            {"logging works from inside a begin/end block",
+                fun() ->
+                        ?assertEqual(0, count()),
+                        begin
+                                lager:warning("test message 2")
+                        end,
+                        ?assertEqual(1, count()),
+                        ok
+                end
+            },
+            {"logging works from inside a list comprehension",
+                fun() ->
+                        ?assertEqual(0, count()),
+                        lager:warning("test message") || _N <- lists:seq(1, 10),
+                        ?assertEqual(10, count()),
+                        ok
+                end
+            },
+            {"logging works from a begin/end block inside a list comprehension",
+                fun() ->
+                        ?assertEqual(0, count()),
+                         begin lager:warning("test message") end || _N <- lists:seq(1, 10),
+                        ?assertEqual(10, count()),
+                        ok
+                end
+            },
+            {"logging works from a nested list comprehension",
+                fun() ->
+                        ?assertEqual(0, count()),
+                         lager:warning("test message") || _N <- lists:seq(1, 10) ||
+                            _I <- lists:seq(1, 10),
+                        ?assertEqual(100, count()),
+                        ok
+                end
+            },
+            {"logging with only metadata works",
+                fun() ->
+                        ?assertEqual(0, count()),
+                        lager:warning({just, metadata}),
+                        lager:warning({just, metadata}, {foo, bar}),
+                        ?assertEqual(2, count()),
+                        ok
+                end
+            },
+            {"variables inplace of literals in logging statements work",
+                fun() ->
+                        ?assertEqual(0, count()),
+                        Attr = {a, alpha}, {b, beta},
+                        Fmt = "format ~p",
+                        Args = world,
+                        lager:info(Attr, "hello"),
+                        lager:info(Attr, "hello ~p", world),
+                        lager:info(Fmt, world),
+                        lager:info("hello ~p", Args),
+                        lager:info(Attr, "hello ~p", Args),
+                        lager:info({d, delta}, {g, gamma}, Fmt, Args),
+                        ?assertEqual(6, count()),
+                        {Level, _Time, Message, Metadata}  = pop(),
+                        ?assertMatch({a, alpha}, {b, beta}|_, Metadata),
+                        ?assertEqual("hello", lists:flatten(Message)),
+                        {Level, _Time2, Message2, _Metadata2}  = pop(),
+                        ?assertEqual("hello world", lists:flatten(Message2)),
+                        {Level, _Time3, Message3, _Metadata3}  = pop(),
+                        ?assertEqual("format world", lists:flatten(Message3)),
+                        {Level, _Time4, Message4, _Metadata4}  = pop(),
+                        ?assertEqual("hello world", lists:flatten(Message4)),
+                        {Level, _Time5, Message5, _Metadata5}  = pop(),
+                        ?assertEqual("hello world", lists:flatten(Message5)),
+                        {Level, _Time6, Message6, Metadata6}  = pop(),
+                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
+                        ?assertEqual("format world", lists:flatten(Message6)),
+                        ok
+                end
+            },
+            {"list comprehension inplace of literals in logging statements work",
+                fun() ->
+                        ?assertEqual(0, count()),
+                        Attr = {a, alpha}, {b, beta},
+                        Fmt = "format ~p",
+                        Args = world,
+                        lager:info({K, atom_to_list(V)} || {K, V} <- Attr, "hello"),
+                        lager:info({K, atom_to_list(V)} || {K, V} <- Attr, "hello ~p", {atom, X} || X <- Args),
+                        lager:info(X || X <- Fmt, world),
+                        lager:info("hello ~p", {atom, X} || X <- Args),
+                        lager:info({K, atom_to_list(V)} || {K, V} <- Attr, "hello ~p", {atom, X} || X <- Args),
+                        lager:info({d, delta}, {g, gamma}, Fmt, {atom, X} || X <- Args),
+                        ?assertEqual(6, count()),
+                        {Level, _Time, Message, Metadata}  = pop(),
+                        ?assertMatch({a, "alpha"}, {b, "beta"}|_, Metadata),
+                        ?assertEqual("hello", lists:flatten(Message)),
+                        {Level, _Time2, Message2, _Metadata2}  = pop(),
+                        ?assertEqual("hello {atom,world}", lists:flatten(Message2)),
+                        {Level, _Time3, Message3, _Metadata3}  = pop(),
+                        ?assertEqual("format world", lists:flatten(Message3)),
+                        {Level, _Time4, Message4, _Metadata4}  = pop(),
+                        ?assertEqual("hello {atom,world}", lists:flatten(Message4)),
+                        {Level, _Time5, Message5, _Metadata5}  = pop(),
+                        ?assertEqual("hello {atom,world}", lists:flatten(Message5)),
+                        {Level, _Time6, Message6, Metadata6}  = pop(),
+                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
+                        ?assertEqual("format {atom,world}", lists:flatten(Message6)),
+                        ok
+                end
+            },
+            {"function calls inplace of literals in logging statements work",
+                fun() ->
+                        ?assertEqual(0, count()),
+                        put(attrs, {a, alpha}, {b, beta}),
+                        put(format, "format ~p"),
+                        put(args, world),
+                        lager:info(get(attrs), "hello"),
+                        lager:info(get(attrs), "hello ~p", get(args)),
+                        lager:info(get(format), world),
+                        lager:info("hello ~p", erlang:get(args)),
+                        lager:info(fun() -> get(attrs) end(), "hello ~p", get(args)),
+                        lager:info({d, delta}, {g, gamma}, get(format), get(args)),
+                        ?assertEqual(6, count()),
+                        {Level, _Time, Message, Metadata}  = pop(),
+                        ?assertMatch({a, alpha}, {b, beta}|_, Metadata),
+                        ?assertEqual("hello", lists:flatten(Message)),
+                        {Level, _Time2, Message2, _Metadata2}  = pop(),
+                        ?assertEqual("hello world", lists:flatten(Message2)),
+                        {Level, _Time3, Message3, _Metadata3}  = pop(),
+                        ?assertEqual("format world", lists:flatten(Message3)),
+                        {Level, _Time4, Message4, _Metadata4}  = pop(),
+                        ?assertEqual("hello world", lists:flatten(Message4)),
+                        {Level, _Time5, Message5, _Metadata5}  = pop(),
+                        ?assertEqual("hello world", lists:flatten(Message5)),
+                        {Level, _Time6, Message6, Metadata6}  = pop(),
+                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
+                        ?assertEqual("format world", lists:flatten(Message6)),
+                        ok
+                end
+            },
+            {"record fields inplace of literals in logging statements work",
+                fun() ->
+                        ?assertEqual(0, count()),
+                        Test = #test{attrs={a, alpha}, {b, beta}, format="format ~p", args=world},
+                        lager:info(Test#test.attrs, "hello"),
+                        lager:info(Test#test.attrs, "hello ~p", Test#test.args),
+                        lager:info(Test#test.format, world),
+                        lager:info("hello ~p", Test#test.args),
+                        lager:info(Test#test.attrs, "hello ~p", Test#test.args),
+                        lager:info({d, delta}, {g, gamma}, Test#test.format, Test#test.args),
+                        ?assertEqual(6, count()),
+                        {Level, _Time, Message, Metadata}  = pop(),
+                        ?assertMatch({a, alpha}, {b, beta}|_, Metadata),
+                        ?assertEqual("hello", lists:flatten(Message)),
+                        {Level, _Time2, Message2, _Metadata2}  = pop(),
+                        ?assertEqual("hello world", lists:flatten(Message2)),
+                        {Level, _Time3, Message3, _Metadata3}  = pop(),
+                        ?assertEqual("format world", lists:flatten(Message3)),
+                        {Level, _Time4, Message4, _Metadata4}  = pop(),
+                        ?assertEqual("hello world", lists:flatten(Message4)),
+                        {Level, _Time5, Message5, _Metadata5}  = pop(),
+                        ?assertEqual("hello world", lists:flatten(Message5)),
+                        {Level, _Time6, Message6, Metadata6}  = pop(),
+                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
+                        ?assertEqual("format world", lists:flatten(Message6)),
+                        ok
+                end
+            },
+
+            {"log messages below the threshold are ignored",
+                fun() ->
+                        ?assertEqual(0, count()),
+                        lager:debug("this message will be ignored"),
+                        ?assertEqual(0, count()),
+                        ?assertEqual(0, count_ignored()),
+                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(debug)), }),
+                        lager:debug("this message should be ignored"),
+                        ?assertEqual(0, count()),
+                        ?assertEqual(1, count_ignored()),
+                        lager:set_loglevel(?MODULE, debug),
+                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
+                        lager:debug("this message should be logged"),
+                        ?assertEqual(1, count()),
+                        ?assertEqual(1, count_ignored()),
+                        ?assertEqual(debug, lager:get_loglevel(?MODULE)),
+                        ok
+                end
+            },
+            {"tracing works",
+                fun() ->
+                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(error)), }),
+                        ok = lager:info("hello world"),
+                        ?assertEqual(0, count()),
+                        lager:trace(?MODULE, {module, ?MODULE}, debug),
+                        ?assertMatch({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, _}, lager_config:get(loglevel)),
+                        %% elegible for tracing
+                        ok = lager:info("hello world"),
+                        %% NOT elegible for tracing
+                        ok = lager:log(info, {pid, self()}, "hello world"),
+                        ?assertEqual(1, count()),
+                        ok
+                end
+            },
+            {"tracing works with custom attributes",
+                fun() ->
+                        lager:set_loglevel(?MODULE, error),
+                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
+                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(error)), }),
+                        lager:info({requestid, 6}, "hello world"),
+                        ?assertEqual(0, count()),
+                        lager:trace(?MODULE, {requestid, 6}, {foo, bar}, debug),
+                        lager:info({requestid, 6}, {foo, bar}, "hello world"),
+                        ?assertEqual(1, count()),
+                        lager:trace(?MODULE, {requestid, '*'}, debug),
+                        lager:info({requestid, 6}, "hello world"),
+                        ?assertEqual(2, count()),
+                        lager:clear_all_traces(),
+                        lager:info({requestid, 6}, "hello world"),
+                        ?assertEqual(2, count()),
+                        ok
+                end
+            },
+            {"tracing works with custom attributes and event stream processing",
+                fun() ->
+                        lager:set_loglevel(?MODULE, error),
+                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
+                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(error)), }),
+                        lager:info({requestid, 6}, "hello world"),
+                        ?assertEqual(0, count()),
+                        lager:trace(?MODULE, {requestid, '>', 5}, {requestid, '<', 7}, {foo, bar}, debug),
+                        lager:info({requestid, 5}, {foo, bar}, "hello world"),
+                        lager:info({requestid, 6}, {foo, bar}, "hello world"),
+                        ?assertEqual(1, count()),
+                        lager:clear_all_traces(),
+                        lager:trace(?MODULE, {requestid, '>', 8}, {foo, bar}),
+                        lager:info({foo, bar}, "hello world"),
+                        lager:info({requestid, 6}, "hello world"),
+                        lager:info({requestid, 7}, "hello world"),
+                        lager:info({requestid, 8}, "hello world"),
+                        lager:info({requestid, 9}, {foo, bar}, "hello world"),
+                        lager:info({requestid, 10}, "hello world"),
+                        ?assertEqual(2, count()),
+                        lager:trace(?MODULE, {requestid, '>', 8}),
+                        lager:info({foo, bar}, "hello world"),
+                        lager:info({requestid, 6}, "hello world"),
+                        lager:info({requestid, 7}, "hello world"),
+                        lager:info({requestid, 8}, "hello world"),
+                        lager:info({requestid, 9}, {foo, bar}, "hello world"),
+                        lager:info({requestid, 10}, "hello world"),
+                        ?assertEqual(4, count()),
+                        lager:trace(?MODULE, {foo, '=', bar}),
+                        lager:info({foo, bar}, "hello world"),
+                        lager:info({requestid, 6}, "hello world"),
+                        lager:info({requestid, 7}, "hello world"),
+                        lager:info({requestid, 8}, "hello world"),
+                        lager:info({requestid, 9}, {foo, bar}, "hello world"),
+                        lager:info({requestid, 10}, "hello world"),
+                        lager:trace(?MODULE, {fu, '!'}),
+                        lager:info({foo, bar}, "hello world"),
+                        lager:info({ooh, car}, "hello world"),
+                        lager:info({fu, bar}, "hello world"),
+                        lager:trace(?MODULE, {fu, '*'}),
+                        lager:info({fu, bar}, "hello world"),
+                        ?assertEqual(10, count()),
+                        lager:clear_all_traces(),
+                        lager:info({requestid, 6}, "hello world"),
+                        ?assertEqual(10, count()),
+                        lager:clear_all_traces(),
+                        lager:trace(?MODULE, {requestid, '>=', 5}, {requestid, '=<', 7}, debug),
+                        lager:info({requestid, 4}, "nope!"),
+                        lager:info({requestid, 5}, "hello world"),
+                        lager:info({requestid, 7}, "hello world again"),
+                        ?assertEqual(12, count()),
+                        lager:clear_all_traces(),
+                        lager:trace(?MODULE, {foo, '!=', bar}),
+                        lager:info({foo, bar}, "hello world"),
+                        ?assertEqual(12, count()),
+                        lager:info({foo, baz}, "blarg"),
+                        ?assertEqual(13, count()),
+                        lager:clear_all_traces(),
+                        lager:trace(?MODULE, {all, {foo, '=', bar}, {null, false}}),
+                        lager:info({foo, bar}, "should not be logged"),
+                        ?assertEqual(13, count()),
+                        lager:clear_all_traces(),
+                        lager:trace(?MODULE, {any, {foo, '=', bar}, {null, true}}),
+                        lager:info({foo, qux}, "should be logged"),
+                        ?assertEqual(14, count()),
+                        ok
+                end
+            },
+            {"tracing custom attributes works with event stream processing statistics and reductions",
+                fun() ->
+                        lager:set_loglevel(?MODULE, error),
+                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
+                        lager_config:set(loglevel, {element(2, lager_util:config_to_mask(error)), }),
+                        lager:info({requestid, 6}, "hello world"),
+                        ?assertEqual(0, count()),
+                        lager:trace(?MODULE, {beta, '*'}),
+                        lager:trace(?MODULE, {meta, "data"}),
+                        lager:info({meta, "data"}, "hello world"),
+                        lager:info({beta, 2}, "hello world"),
+                        lager:info({beta, 2.1}, {foo, bar}, "hello world"),
+                        lager:info({meta, <<"data">>}, "hello world"),
+                        ?assertEqual(8, ?DEFAULT_TRACER:info(input)),
+                        ?assertEqual(6, ?DEFAULT_TRACER:info(output)),
+                        ?assertEqual(2, ?DEFAULT_TRACER:info(filter)),
+                        lager:clear_all_traces(),
+                        lager:trace(?MODULE, {meta, "data"}),
+                        lager:trace(?MODULE, {beta, '>', 2}, {beta, '<', 2.12}),
+                        lager:info({meta, "data"}, "hello world"),
+                        lager:info({beta, 2}, "hello world"),
+                        lager:info({beta, 2.1}, {foo, bar}, "hello world"),
+                        lager:info({meta, <<"data">>}, "hello world"),
+                        ?assertEqual(8, ?DEFAULT_TRACER:info(input)),
+                        ?assertEqual(4, ?DEFAULT_TRACER:info(output)),
+                        ?assertEqual(4, ?DEFAULT_TRACER:info(filter)),
+                        lager:clear_all_traces(),
+                        lager:trace_console({beta, '>', 2}, {meta, "data"}),
+                        lager:trace_console({beta, '>', 2}, {beta, '<', 2.12}),
+                        Reduced = {all,{any,{beta,'<',2.12},{meta,'=',"data"}},
+                                              {beta,'>',2}},
+                        ?assertEqual(Reduced, ?DEFAULT_TRACER:info('query')),
+
+                        lager:clear_all_traces(),
+                        lager:info({requestid, 6}, "hello world"),
+                        ?assertEqual(5, count()),
+                        ok
+                end
+            },
+            {"persistent traces work",
+                fun() ->
+                        ?assertEqual(0, count()),
+                        lager:debug({foo, bar}, "hello world"),
+                        ?assertEqual(0, count()),
+                        application:stop(lager),
+                        application:set_env(lager, traces, {lager_test_backend, {foo, bar}, debug}),
+                        lager:start(),
+                        timer:sleep(5),
+                        flush(),
+                        lager:debug({foo, bar}, "hello world"),
+                        ?assertEqual(1, count()),
+                        application:unset_env(lager, traces),
+                        ok
+                end
+            },
+            {"tracing honors loglevel",
+                fun() ->
+                        lager:set_loglevel(?MODULE, error),
+                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
+                        {ok, T} = lager:trace(?MODULE, {module, ?MODULE}, notice),
+                        ok = lager:info("hello world"),
+                        ?assertEqual(0, count()),
+                        ok = lager:notice("hello world"),
+                        ?assertEqual(1, count()),
+                        lager:stop_trace(T),
+                        ok = lager:notice("hello world"),
+                        ?assertEqual(1, count()),
+                        ok
+                end
+            },
+            {"stopped trace stops and removes its event handler - default sink (gh#267)",
+             {timeout, 10,
+                fun() ->
+                        Sink = ?DEFAULT_SINK,
+                        StartHandlers = gen_event:which_handlers(Sink),
+                        {_, T0} = lager_config:get({Sink, loglevel}),
+                        StartGlobal = lager_config:global_get(handlers),
+                        ?assertEqual(, T0),
+                        {ok, TestTrace1} = lager:trace_file("/tmp/test", {a,b}),
+                        MidHandlers = gen_event:which_handlers(Sink),
+                        {ok, TestTrace2} = lager:trace_file("/tmp/test", {c,d}),
+                        MidHandlers = gen_event:which_handlers(Sink),
+                        ?assertEqual(length(StartHandlers)+1, length(MidHandlers)),
+                        MidGlobal = lager_config:global_get(handlers),
+                        ?assertEqual(length(StartGlobal)+1, length(MidGlobal)),
+                        {_, T1} = lager_config:get({Sink, loglevel}),
+                        ?assertEqual(2, length(T1)),
+                        ok = lager:stop_trace(TestTrace1),
+                        {_, T2} = lager_config:get({Sink, loglevel}),
+                        ?assertEqual(1, length(T2)),
+                        ?assertEqual(length(StartHandlers)+1, length(
+                                                                gen_event:which_handlers(Sink))),
+
+                        ?assertEqual(length(StartGlobal)+1, length(lager_config:global_get(handlers))),
+                        ok = lager:stop_trace(TestTrace2),
+                        EndHandlers = gen_event:which_handlers(Sink),
+                        EndGlobal = lager_config:global_get(handlers),
+                        {_, T3} = lager_config:get({Sink, loglevel}),
+                        ?assertEqual(, T3),
+                        ?assertEqual(StartHandlers, EndHandlers),
+                        ?assertEqual(StartGlobal, EndGlobal),
+                        ok
+                end}
+            },
+            {"record printing works",
+                fun() ->
+                        print_state(),
+                        {Level, _Time, Message, _Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(info)),
+                        {mask, Mask} = lager_util:config_to_mask(info),
+                        ?assertEqual("State #state{level={mask,"++integer_to_list(Mask)++"},buffer=,ignored=}", lists:flatten(Message)),
+                        ok
+                end
+            },
+            {"record printing fails gracefully",
+                fun() ->
+                        print_bad_state(),
+                        {Level, _Time, Message, _Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(info)),
+                        ?assertEqual("State {state,1}", lists:flatten(Message)),
+                        ok
+                end
+            },
+            {"record printing fails gracefully when no lager_record attribute",
+                fun() ->
+                        spawn(fun() -> lager:info("State ~p", lager:pr({state, 1}, lager)) end),
+                        timer:sleep(100),
+                        {Level, _Time, Message, _Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(info)),
+                        ?assertEqual("State {state,1}", lists:flatten(Message)),
+                        ok
+                end
+            },
+            {"record printing fails gracefully when input is not a tuple",
+                fun() ->
+                        spawn(fun() -> lager:info("State ~p", lager:pr(ok, lager)) end),
+                        timer:sleep(100),
+                        {Level, _Time, Message, _Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(info)),
+                        ?assertEqual("State ok", lists:flatten(Message)),
+                        ok
+                end
+            },
+            {"record printing fails gracefully when module is invalid",
+                fun() ->
+                        spawn(fun() -> lager:info("State ~p", lager:pr({state, 1}, not_a_module)) end),
+                        timer:sleep(1000),
+                        {Level, _Time, Message, _Metadata}  = pop(),
+                        ?assertMatch(Level, lager_util:level_to_num(info)),
+                        ?assertEqual("State {state,1}", lists:flatten(Message)),
+                        ok
+                end
+            },
+            {"installing a new handler adjusts the global loglevel if necessary",
+                fun() ->
+                        ?assertEqual({?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
+                        supervisor:start_child(lager_handler_watcher_sup, lager_event, {?MODULE, foo}, debug),
+                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get(loglevel)),
+                        ok
+                end
+            },
+            {"metadata in the process dictionary works",
+                fun() ->
+                        lager:md({platypus, gravid}, {sloth, hirsute}, {duck, erroneous}),
+                        lager:info("I sing the animal kingdom electric!"),
+                        {_Level, _Time, _Message, Metadata}  = pop(),
+                        ?assertEqual(gravid, proplists:get_value(platypus, Metadata)),
+                        ?assertEqual(hirsute, proplists:get_value(sloth, Metadata)),
+                        ?assertEqual(erroneous, proplists:get_value(duck, Metadata)),
+                        ?assertEqual(undefined, proplists:get_value(eagle, Metadata)),
+                        lager:md({platypus, gravid}, {sloth, hirsute}, {eagle, superincumbent}),
+                        lager:info("I sing the animal kingdom dielectric!"),
+                        {_Level2, _Time2, _Message2, Metadata2}  = pop(),
+                        ?assertEqual(gravid, proplists:get_value(platypus, Metadata2)),
+                        ?assertEqual(hirsute, proplists:get_value(sloth, Metadata2)),
+                        ?assertEqual(undefined, proplists:get_value(duck, Metadata2)),
+                        ?assertEqual(superincumbent, proplists:get_value(eagle, Metadata2)),
+                        ok
+                end
+            },
+            {"unsafe messages really are not truncated",
+                fun() ->
+                        lager:info_unsafe("doom, doom has come upon you all ~p", string:copies("doom", 1500)),
+                        {_, _, Msg,_Metadata} = pop(),
+                        ?assert(length(lists:flatten(Msg)) == 6035)
+                end
+            },
+            {"can't store invalid metadata",
+                fun() ->
+                        ?assertEqual(ok, lager:md({platypus, gravid}, {sloth, hirsute}, {duck, erroneous})),
+                        ?assertError(badarg, lager:md({flamboyant, flamingo})),
+                        ?assertError(badarg, lager:md("zookeeper zephyr")),
+                        ok
+                end
+            },
+            {"dates should be local by default",
+                fun() ->
+                        lager:warning("so long, and thanks for all the fish"),
+                        ?assertEqual(1, count()),
+                        {_Level, {_Date, Time}, _Message, _Metadata}  = pop(),
+                        ?assertEqual(nomatch, binary:match(iolist_to_binary(Time), <<"UTC">>)),
+                        ok
+                end
+            },
+            {"dates should be UTC if SASL is configured as UTC",
+                fun() ->
+                        application:set_env(sasl, utc_log, true),
+                        lager:warning("so long, and thanks for all the fish"),
+                        application:set_env(sasl, utc_log, false),
+                        ?assertEqual(1, count()),
+                        {_Level, {_Date, Time}, _Message, _Metadata}  = pop(),
+                        ?assertNotEqual(nomatch, binary:match(iolist_to_binary(Time), <<"UTC">>)),
+                        ok
+                end
+            }
+        
+    }.
+
+extra_sinks_test_() ->
+    {foreach,
+        fun setup_sink/0,
+        fun cleanup/1,
+        
+            {"observe that there is nothing up my sleeve",
+                fun() ->
+                        ?assertEqual(undefined, pop(?TEST_SINK_EVENT)),
+                        ?assertEqual(0, count(?TEST_SINK_EVENT))
+                end
+            },
+            {"logging works",
+                fun() ->
+                        ?TEST_SINK_NAME:warning("test message"),
+                        ?assertEqual(1, count(?TEST_SINK_EVENT)),
+                        {Level, _Time, Message, _Metadata}  = pop(?TEST_SINK_EVENT),
+                        ?assertMatch(Level, lager_util:level_to_num(warning)),
+                        ?assertEqual("test message", Message),
+                        ok
+                end
+            },
+            {"logging with arguments works",
+                fun() ->
+                        ?TEST_SINK_NAME:warning("test message ~p", self()),
+                        ?assertEqual(1, count(?TEST_SINK_EVENT)),
+                        {Level, _Time, Message,_Metadata}  = pop(?TEST_SINK_EVENT),
+                        ?assertMatch(Level, lager_util:level_to_num(warning)),
+                        ?assertEqual(lists:flatten(io_lib:format("test message ~p", self())), lists:flatten(Message)),
+                        ok
+                end
+            },
+            {"variables inplace of literals in logging statements work",
+                fun() ->
+                        ?assertEqual(0, count(?TEST_SINK_EVENT)),
+                        Attr = {a, alpha}, {b, beta},
+                        Fmt = "format ~p",
+                        Args = world,
+                        ?TEST_SINK_NAME:info(Attr, "hello"),
+                        ?TEST_SINK_NAME:info(Attr, "hello ~p", world),
+                        ?TEST_SINK_NAME:info(Fmt, world),
+                        ?TEST_SINK_NAME:info("hello ~p", Args),
+                        ?TEST_SINK_NAME:info(Attr, "hello ~p", Args),
+                        ?TEST_SINK_NAME:info({d, delta}, {g, gamma}, Fmt, Args),
+                        ?assertEqual(6, count(?TEST_SINK_EVENT)),
+                        {Level, _Time, Message, Metadata}  = pop(?TEST_SINK_EVENT),
+                        ?assertMatch({a, alpha}, {b, beta}|_, Metadata),
+                        ?assertEqual("hello", lists:flatten(Message)),
+                        {Level, _Time2, Message2, _Metadata2}  = pop(?TEST_SINK_EVENT),
+                        ?assertEqual("hello world", lists:flatten(Message2)),
+                        {Level, _Time3, Message3, _Metadata3}  = pop(?TEST_SINK_EVENT),
+                        ?assertEqual("format world", lists:flatten(Message3)),
+                        {Level, _Time4, Message4, _Metadata4}  = pop(?TEST_SINK_EVENT),
+                        ?assertEqual("hello world", lists:flatten(Message4)),
+                        {Level, _Time5, Message5, _Metadata5}  = pop(?TEST_SINK_EVENT),
+                        ?assertEqual("hello world", lists:flatten(Message5)),
+                        {Level, _Time6, Message6, Metadata6}  = pop(?TEST_SINK_EVENT),
+                        ?assertMatch({d, delta}, {g, gamma}|_, Metadata6),
+                        ?assertEqual("format world", lists:flatten(Message6)),
+                        ok
+                end
+            },
+            {"stopped trace stops and removes its event handler - test sink (gh#267)",
+                fun() ->
+                        Sink = ?TEST_SINK_EVENT,
+                        StartHandlers = gen_event:which_handlers(Sink),
+                        {_, T0} = lager_config:get({Sink, loglevel}),
+                        StartGlobal = lager_config:global_get(handlers),
+                        ?assertEqual(, T0),
+                        {ok, TestTrace1} = lager:trace_file("/tmp/test", {sink, Sink}, {a,b}),
+                        MidHandlers = gen_event:which_handlers(Sink),
+                        {ok, TestTrace2} = lager:trace_file("/tmp/test", {sink, Sink}, {c,d}),
+                        MidHandlers = gen_event:which_handlers(Sink),
+                        ?assertEqual(length(StartHandlers)+1, length(MidHandlers)),
+                        MidGlobal = lager_config:global_get(handlers),
+                        ?assertEqual(length(StartGlobal)+1, length(MidGlobal)),
+                        {_, T1} = lager_config:get({Sink, loglevel}),
+                        ?assertEqual(2, length(T1)),
+                        ok = lager:stop_trace(TestTrace1),
+                        {_, T2} = lager_config:get({Sink, loglevel}),
+                        ?assertEqual(1, length(T2)),
+                        ?assertEqual(length(StartHandlers)+1, length(
+                                                                gen_event:which_handlers(Sink))),
+
+                        ?assertEqual(length(StartGlobal)+1, length(lager_config:global_get(handlers))),
+                        ok = lager:stop_trace(TestTrace2),
+                        EndHandlers = gen_event:which_handlers(Sink),
+                        EndGlobal = lager_config:global_get(handlers),
+                        {_, T3} = lager_config:get({Sink, loglevel}),
+                        ?assertEqual(, T3),
+                        ?assertEqual(StartHandlers, EndHandlers),
+                        ?assertEqual(StartGlobal, EndGlobal),
+                        ok
+                end
+            },
+            {"log messages below the threshold are ignored",
+                fun() ->
+                        ?assertEqual(0, count(?TEST_SINK_EVENT)),
+                        ?TEST_SINK_NAME:debug("this message will be ignored"),
+                        ?assertEqual(0, count(?TEST_SINK_EVENT)),
+                        ?assertEqual(0, count_ignored(?TEST_SINK_EVENT)),
+                        lager_config:set({?TEST_SINK_EVENT, loglevel}, {element(2, lager_util:config_to_mask(debug)), }),
+                        ?TEST_SINK_NAME:debug("this message should be ignored"),
+                        ?assertEqual(0, count(?TEST_SINK_EVENT)),
+                        ?assertEqual(1, count_ignored(?TEST_SINK_EVENT)),
+                        lager:set_loglevel(?TEST_SINK_EVENT, ?MODULE, undefined, debug),
+                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({?TEST_SINK_EVENT, loglevel})),
+                        ?TEST_SINK_NAME:debug("this message should be logged"),
+                        ?assertEqual(1, count(?TEST_SINK_EVENT)),
+                        ?assertEqual(1, count_ignored(?TEST_SINK_EVENT)),
+                        ?assertEqual(debug, lager:get_loglevel(?TEST_SINK_EVENT, ?MODULE)),
+                        ok
+                end
+            }
+    
+    }.
+
+setup_sink() ->
+    error_logger:tty(false),
+    application:load(lager),
+    application:set_env(lager, handlers, ),
+    application:set_env(lager, error_logger_redirect, false),
+    application:set_env(lager, extra_sinks, {?TEST_SINK_EVENT, {handlers, {?MODULE, info}}}),
+    lager:start(),
+    gen_event:call(lager_event, ?MODULE, flush),
+    gen_event:call(?TEST_SINK_EVENT, ?MODULE, flush).
+
+setup() ->
+    error_logger:tty(false),
+    application:load(lager),
+    application:set_env(lager, handlers, {?MODULE, info}),
+    application:set_env(lager, error_logger_redirect, false),
+    application:unset_env(lager, traces),
+    lager:start(),
+    %% There is a race condition between the application start up, lager logging its own
+    %% start up condition and several tests that count messages or parse the output of
+    %% tests.  When the lager start up message wins the race, it causes these tests
+    %% which parse output or count message arrivals to fail.
+    %%
+    %% We introduce a sleep here to allow `flush' to arrive *after* the start up
+    %% message has been received and processed.
+    %%
+    %% This race condition was first exposed during the work on
+    %% 4b5260c4524688b545cc12da6baa2dfa4f2afec9 which introduced the lager
+    %% manager killer PR.
+    application:set_env(lager, suppress_supervisor_start_stop, true),
+    application:set_env(lager, suppress_application_start_stop, true),
+    timer:sleep(1000),
+    gen_event:call(lager_event, ?MODULE, flush).
+
+cleanup(_) ->
+    catch ets:delete(lager_config), %% kill the ets config table with fire
+    application:stop(lager),
+    application:stop(goldrush),
+    error_logger:tty(true).
+
+
+crash(Type) ->
+    spawn(fun() -> gen_server:call(crash, Type) end),
+    timer:sleep(100),
+    _ = gen_event:which_handlers(error_logger),
+    ok.
+
+test_body({slice, Expected}, Actual) ->
+    SlicedActual = string:slice(Actual, 0, length(Expected)),
+    ?assertEqual(Expected, SlicedActual, {Actual, sliced_to, SlicedActual, is_not_a_member_of, Expected});
+test_body(Expected, Actual) ->
+    ExLen = length(Expected),
+    {Body, Rest} = case length(Actual) > ExLen of
+        true ->
+            {string:substr(Actual, 1, ExLen),
+                string:substr(Actual, (ExLen + 1))};
+        _ ->
+            {Actual, }
+    end,
+    ?assertEqual(Expected, Body),
+    % OTP-17 (and maybe later releases) may tack on additional info
+    % about the failure, so if Actual starts with Expected (already
+    % confirmed by having gotten past assertEqual above) and ends
+    % with " line NNN" we can ignore what's in-between. By extension,
+    % since there may not be line information appended at all, any
+    % text we DO find is reportable, but not a test failure.
+    case Rest of
+         ->
+            ok;
+        _ ->
+            % isolate the extra data and report it if it's not just
+            % a line number indicator
+            case re:run(Rest, "^.*( line \\d+)$", {capture, 1}) of
+                nomatch ->
+                    ?debugFmt(
+                       "Trailing data \"~s\" following \"~s\"",
+                       Rest, Expected);
+                {match, {0, _}} ->
+                    % the whole sting is " line NNN"
+                    ok;
+                {match, {Off, _}} ->
+                    ?debugFmt(
+                       "Trailing data \"~s\" following \"~s\"",
+                       string:substr(Rest, 1, Off), Expected)
+            end
+    end.
+
+error_logger_redirect_crash_setup() ->
+    error_logger:tty(false),
+    application:load(lager),
+    application:set_env(lager, error_logger_redirect, true),
+    application:set_env(lager, handlers, {?MODULE, error}),
+    lager:start(),
+    crash:start(),
+    lager_event.
+
+error_logger_redirect_crash_setup_sink() ->
+    error_logger:tty(false),
+    application:load(lager),
+    application:set_env(lager, error_logger_redirect, true),
+    application:unset_env(lager, handlers),
+    application:set_env(lager, extra_sinks, 
+        {error_logger_lager_event, 
+            {handlers, {?MODULE, error}}}),
+    lager:start(),
+    crash:start(),
+    error_logger_lager_event.
+
+error_logger_redirect_crash_cleanup(_Sink) ->
+    application:stop(lager),
+    application:stop(goldrush),
+    application:unset_env(lager, extra_sinks),
+    case whereis(crash) of
+        undefined -> ok;
+        Pid -> exit(Pid, kill)
+    end,
+    error_logger:tty(true).
+
+crash_fsm_setup() ->
+    error_logger:tty(false),
+    application:load(lager),
+    application:set_env(lager, error_logger_redirect, true),
+    application:set_env(lager, handlers, {?MODULE, error}),
+    lager:start(),
+    crash_fsm:start(),
+    crash_statem:start(),
+    lager:log(error, self(), "flush flush"),
+    timer:sleep(100),
+    gen_event:call(lager_event, ?MODULE, flush),
+    lager_event.
+
+crash_fsm_sink_setup() ->
+    ErrorSink = error_logger_lager_event,
+    error_logger:tty(false),
+    application:load(lager),
+    application:set_env(lager, error_logger_redirect, true),
+    application:set_env(lager, handlers, ),
+    application:set_env(lager, extra_sinks, {ErrorSink, {handlers, {?MODULE, error}}}),
+    lager:start(),
+    crash_fsm:start(),
+    crash_statem:start(),
+    lager:log(ErrorSink, error, self(), "flush flush", ),
+    timer:sleep(100),
+    flush(ErrorSink),
+    ErrorSink.
+
+crash_fsm_cleanup(_Sink) ->
+    application:stop(lager),
+    application:stop(goldrush),
+    application:unset_env(lager, extra_sinks),
+    lists:foreach(fun(N) -> kill_crasher(N) end, crash_fsm, crash_statem),
+    error_logger:tty(true).
+
+kill_crasher(RegName) ->
+    case whereis(RegName) of
+        undefined -> ok;
+        Pid -> exit(Pid, kill)
+    end.
+
+spawn_fsm_crash(Module, Function, Args) ->
+    spawn(fun() -> erlang:apply(Module, Function, Args) end),
+    timer:sleep(100),
+    _ = gen_event:which_handlers(error_logger),
+    ok.
+
+crash_fsm_test_() ->
+    TestBody = fun(Name, FsmModule, FSMFunc, FSMArgs, Expected) ->
+                   fun(Sink) ->
+                      {Name,
+                       fun() ->
+                            case {FsmModule =:= crash_statem, lager_util:otp_version() < 19} of
+                                {true, true} -> ok;
+                                _ ->
+                                    Pid = whereis(FsmModule),
+                                    spawn_fsm_crash(FsmModule, FSMFunc, FSMArgs),
+                                    {Level, _, Msg, Metadata} = pop(Sink),
+                                    test_body(Expected, lists:flatten(Msg)),
+                                    ?assertEqual(Pid, proplists:get_value(pid, Metadata)),
+                                    ?assertEqual(lager_util:level_to_num(error), Level)
+                            end
+                       end
+                      }
+                   end
+               end,
+    Tests = 
+        fun(Sink) ->
+            {"again, there is nothing up my sleeve",
+                fun() ->
+                        ?assertEqual(undefined, pop(Sink)),
+                        ?assertEqual(0, count(Sink))
+                end
+            }
+        end,
+
+        TestBody("gen_statem crash", crash_statem, crash, , {slice, "gen_statem crash_statem in state state1 terminated with reason"}),
+        TestBody("gen_statem stop", crash_statem, stop, explode, {slice, "gen_statem crash_statem in state state1 terminated with reason"}),
+        TestBody("gen_statem timeout", crash_statem, timeout, , {slice, "gen_statem crash_statem in state state1 terminated with reason"})
+     ++ test_body_gen_fsm_crash(TestBody),
+
+    {"FSM crash output tests", 
+        {"Default sink",
+         {foreach,
+            fun crash_fsm_setup/0,
+            fun crash_fsm_cleanup/1,
+            Tests}},
+        {"Error logger sink",
+         {foreach,
+            fun crash_fsm_sink_setup/0,
+            fun crash_fsm_cleanup/1,
+            Tests}}
+    }.
+
+-if(?OTP_RELEASE < 23).
+test_body_gen_fsm_crash(TestBody) ->
+    TestBody("gen_fsm crash", crash_fsm, crash, , "gen_fsm crash_fsm in state state1 terminated with reason: call to undefined function crash_fsm:state1/3 from gen_fsm:handle_msg/").
+-else.
+test_body_gen_fsm_crash(_TestBody) ->
+    .
+-endif.
+
+error_logger_redirect_crash_test_() ->
+    TestBody=fun(Name,CrashReason,Expected) ->
+        fun(Sink) ->
+            {Name,
+                fun() ->
+                        Pid = whereis(crash),
+                        crash(CrashReason),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        test_body(Expected, lists:flatten(Msg)),
+                        ?assertEqual(Pid,proplists:get_value(pid,Metadata)),
+                        ?assertEqual(lager_util:level_to_num(error),Level)
+                end
+            }
+        end
+    end,
+    Tests = 
+        fun(Sink) ->
+            {"again, there is nothing up my sleeve",
+                fun() ->
+                        ?assertEqual(undefined, pop(Sink)),
+                        ?assertEqual(0, count(Sink))
+                end
+            }
+        end,
+
+        TestBody("bad return value",bad_return,"gen_server crash terminated with reason: bad return value: bleh"),
+        TestBody("bad return value with string",bad_return_string,"gen_server crash terminated with reason: bad return value: {tuple,{tuple,\"string\"}}"),
+        TestBody("bad return uncaught throw",throw,"gen_server crash terminated with reason: bad return value: a_ball"),
+        TestBody("case clause",case_clause,"gen_server crash terminated with reason: no case clause matching {} in crash:handle_call/3"),
+        TestBody("case clause string",case_clause_string,"gen_server crash terminated with reason: no case clause matching \"crash\" in crash:handle_call/3"),
+        TestBody("function clause",function_clause,"gen_server crash terminated with reason: no function clause matching crash:function({})"),
+        TestBody("if clause",if_clause,"gen_server crash terminated with reason: no true branch found while evaluating if expression in crash:handle_call/3"),
+        TestBody("try clause",try_clause,"gen_server crash terminated with reason: no try clause matching  in crash:handle_call/3"),
+        TestBody("undefined function",undef,"gen_server crash terminated with reason: call to undefined function crash:booger/0 from crash:handle_call/3"),
+        TestBody("bad math",badarith,"gen_server crash terminated with reason: bad arithmetic expression in crash:handle_call/3"),
+        TestBody("bad match",badmatch,"gen_server crash terminated with reason: no match of right hand value {} in crash:handle_call/3"),
+        TestBody("bad arity",badarity,"gen_server crash terminated with reason: fun called with wrong arity of 1 instead of 3 in crash:handle_call/3"),
+        TestBody("bad arg1",badarg1,"gen_server crash terminated with reason: bad argument in crash:handle_call/3"),
+        TestBody("bad arg2",badarg2,"gen_server crash terminated with reason: bad argument in call to erlang:iolist_to_binary(\"foo\",bar) in crash:handle_call/3"),
+        TestBody("bad record",badrecord,"gen_server crash terminated with reason: bad record state in crash:handle_call/3"),
+        TestBody("noproc",noproc,"gen_server crash terminated with reason: no such process or port in call to gen_event:call(foo, bar, baz)"),
+        TestBody("noproc_proc_lib",noproc_proc_lib,"gen_server crash terminated with reason: no such process or port in call to proc_lib:stop/3"),
+        TestBody("badfun",badfun,"gen_server crash terminated with reason: bad function booger in crash:handle_call/3")
+    ,
+    {"Error logger redirect crash", 
+        {"Redirect to default sink",
+            {foreach,
+            fun error_logger_redirect_crash_setup/0,
+            fun error_logger_redirect_crash_cleanup/1,
+            Tests}},
+        {"Redirect to error_logger_lager_event sink",
+            {foreach,
+            fun error_logger_redirect_crash_setup_sink/0,
+            fun error_logger_redirect_crash_cleanup/1,
+            Tests}}
+    }.
+
+
+error_logger_redirect_setup() ->
+    error_logger:tty(false),
+    application:load(lager),
+    application:set_env(lager, error_logger_redirect, true),
+    application:set_env(lager, handlers, {?MODULE, info}),
+    application:set_env(lager, suppress_supervisor_start_stop, false),
+    application:set_env(lager, suppress_application_start_stop, false),
+    lager:start(),
+    lager:log(error, self(), "flush flush"),
+    timer:sleep(1000),
+    gen_event:call(lager_event, ?MODULE, flush),
+    lager_event.
+
+error_logger_redirect_setup_sink() ->
+    error_logger:tty(false),
+    application:load(lager),
+    application:set_env(lager, error_logger_redirect, true),
+    application:unset_env(lager, handlers),
+    application:set_env(lager, extra_sinks, 
+        {error_logger_lager_event, 
+            {handlers, {?MODULE, info}}}),
+    application:set_env(lager, suppress_supervisor_start_stop, false),
+    application:set_env(lager, suppress_application_start_stop, false),
+    lager:start(),
+    lager:log(error_logger_lager_event, error, self(), "flush flush", ),
+    timer:sleep(1000),
+    gen_event:call(error_logger_lager_event, ?MODULE, flush),
+    error_logger_lager_event.
+
+error_logger_redirect_cleanup(_) ->
+    application:stop(lager),
+    application:stop(goldrush),
+    application:unset_env(lager, extra_sinks),
+    error_logger:tty(true).
+
+error_logger_redirect_test_() ->
+    Tests = 
+            {"error reports are printed",
+                fun(Sink) ->
+                        sync_error_logger:error_report({this, is}, a, {silly, format}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = "this: is, a, silly: format",
+                        ?assertEqual(Expected, lists:flatten(Msg))
+
+                end
+            },
+            {"string error reports are printed",
+                fun(Sink) ->
+                        sync_error_logger:error_report("this is less silly"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = "this is less silly",
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"error messages are printed",
+                fun(Sink) ->
+                        sync_error_logger:error_msg("doom, doom has come upon you all"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = "doom, doom has come upon you all",
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"error messages with unicode characters in Args are printed",
+                fun(Sink) ->
+                        sync_error_logger:error_msg("~ts", "Привет!"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Привет!", lists:flatten(Msg))
+                end
+            },
+            {"error messages are truncated at 4096 characters",
+                fun(Sink) ->
+                        sync_error_logger:error_msg("doom, doom has come upon you all ~p", string:copies("doom", 10000)),
+                        _ = gen_event:which_handlers(error_logger),
+                        {_, _, Msg,_Metadata} = pop(Sink),
+                        ?assert(length(lists:flatten(Msg)) < 5100)
+                end
+            },
+
+            {"info reports are printed",
+                fun(Sink) ->
+                        sync_error_logger:info_report({this, is}, a, {silly, format}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = "this: is, a, silly: format",
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"info reports are truncated at 4096 characters",
+                fun(Sink) ->
+                        sync_error_logger:info_report({this, is}, a, {silly, format} || _ <- lists:seq(0, 600)),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assert(length(lists:flatten(Msg)) < 5000)
+                end
+            },
+            {"single term info reports are printed",
+                fun(Sink) ->
+                        sync_error_logger:info_report({foolish, bees}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("{foolish,bees}", lists:flatten(Msg))
+                end
+            },
+            {"single term error reports are printed",
+                fun(Sink) ->
+                        sync_error_logger:error_report({foolish, bees}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("{foolish,bees}", lists:flatten(Msg))
+                end
+            },
+            {"string info reports are printed",
+                fun(Sink) ->
+                        sync_error_logger:info_report("this is less silly"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("this is less silly", lists:flatten(Msg))
+                end
+            },
+            {"string info reports are truncated at 4096 characters",
+                fun(Sink) ->
+                        sync_error_logger:info_report(string:copies("this is less silly", 1000)),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assert(length(lists:flatten(Msg)) < 5100)
+                end
+            },
+            {"strings in a mixed report are printed as strings",
+                fun(Sink) ->
+                        sync_error_logger:info_report("this is less silly", {than, "this"}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("\"this is less silly\", than: \"this\"", lists:flatten(Msg))
+                end
+            },
+            {"info messages are printed",
+                fun(Sink) ->
+                        sync_error_logger:info_msg("doom, doom has come upon you all"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("doom, doom has come upon you all", lists:flatten(Msg))
+                end
+            },
+            {"info messages are truncated at 4096 characters",
+                fun(Sink) ->
+                        sync_error_logger:info_msg("doom, doom has come upon you all ~p", string:copies("doom", 10000)),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assert(length(lists:flatten(Msg)) < 5100)
+                end
+            },
+            {"info messages with unicode characters in Args are printed",
+                fun(Sink) ->
+                        sync_error_logger:info_msg("~ts", "Привет!"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Привет!", lists:flatten(Msg))
+                end
+            },
+            {"warning messages with unicode characters in Args are printed",
+             %% The next 4 tests need to store the current value of
+             %% `error_logger:warning_map/0' into a process dictionary
+             %% key `warning_map' so that the error message level used
+             %% to process the log messages will match what lager
+             %% expects.
+             %%
+             %% The atom returned by `error_logger:warning_map/0'
+             %% changed between OTP 17 and 18 (and later releases)
+             %%
+             %% `warning_map' is consumed in the `test/sync_error_logger.erl'
+             %% module. The default message level used in sync_error_logger
+             %% was fine for OTP releases through 17 and then broke
+             %% when 18 was released. By storing the expected value
+             %% in the process dictionary, sync_error_logger will
+             %% use the correct message level to process the
+             %% messages and these tests will no longer
+             %% break.
+                fun(Sink) ->
+                        Lvl = error_logger:warning_map(),
+                        put(warning_map, Lvl),
+                        sync_error_logger:warning_msg("~ts", "Привет!"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(Lvl),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Привет!", lists:flatten(Msg))
+                end
+            },
+            {"warning messages are printed at the correct level",
+                fun(Sink) ->
+                        Lvl = error_logger:warning_map(),
+                        put(warning_map, Lvl),
+                        sync_error_logger:warning_msg("doom, doom has come upon you all"),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(Lvl),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("doom, doom has come upon you all", lists:flatten(Msg))
+                end
+            },
+            {"warning reports are printed at the correct level",
+                fun(Sink) ->
+                        Lvl = error_logger:warning_map(),
+                        put(warning_map, Lvl),
+                        sync_error_logger:warning_report({i, like}, pie),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(Lvl),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("i: like, pie", lists:flatten(Msg))
+                end
+            },
+            {"single term warning reports are printed at the correct level",
+                fun(Sink) ->
+                        Lvl = error_logger:warning_map(),
+                        put(warning_map, Lvl),
+                        sync_error_logger:warning_report({foolish, bees}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(Lvl),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("{foolish,bees}", lists:flatten(Msg))
+                end
+            },
+            {"application stop reports",
+                fun(Sink) ->
+                        sync_error_logger:info_report({application, foo}, {exited, quittin_time}, {type, lazy}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Application foo exited with reason: quittin_time", lists:flatten(Msg))
+                end
+            },
+            {"supervisor reports",
+                fun(Sink) ->
+                        sync_error_logger:error_report(supervisor_report, {errorContext, france}, {offender, {name, mini_steve}, {mfargs, {a, b, c}}, {pid, bleh}}, {reason, fired}, {supervisor, {local, steve}}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Supervisor steve had child mini_steve started with a:b(c) at bleh exit with reason fired in context france", lists:flatten(Msg))
+                end
+            },
+            {"supervisor reports with real error",
+                fun(Sink) ->
+                        sync_error_logger:error_report(supervisor_report, {errorContext, france}, {offender, {name, mini_steve}, {mfargs, {a, b, c}}, {pid, bleh}}, {reason, {function_clause,{crash,handle_info,foo}}}, {supervisor, {local, steve}}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Supervisor steve had child mini_steve started with a:b(c) at bleh exit with reason no function clause matching crash:handle_info(foo) in context france", lists:flatten(Msg))
+                end
+            },
+
+            {"supervisor reports with real error and pid",
+                fun(Sink) ->
+                        sync_error_logger:error_report(supervisor_report, {errorContext, france}, {offender, {name, mini_steve}, {mfargs, {a, b, c}}, {pid, bleh}}, {reason, {function_clause,{crash,handle_info,foo}}}, {supervisor, somepid}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Supervisor somepid had child mini_steve started with a:b(c) at bleh exit with reason no function clause matching crash:handle_info(foo) in context france", lists:flatten(Msg))
+                end
+            },
+
+            {"supervisor_bridge reports",
+                fun(Sink) ->
+                        sync_error_logger:error_report(supervisor_report, {errorContext, france}, {offender, {mod, mini_steve}, {pid, bleh}}, {reason, fired}, {supervisor, {local, steve}}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Supervisor steve had child at module mini_steve at bleh exit with reason fired in context france", lists:flatten(Msg))
+                end
+            },
+            {"application progress report",
+                fun(Sink) ->
+                        sync_error_logger:info_report(progress, {application, foo}, {started_at, node()}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(info),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = lists:flatten(io_lib:format("Application foo started on node ~w", node())),
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"supervisor progress report",
+                fun(Sink) ->
+                        lager:set_loglevel(Sink, ?MODULE, undefined, debug),
+                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
+                        sync_error_logger:info_report(progress, {supervisor, {local, foo}}, {started, {mfargs, {foo, bar, 1}}, {pid, baz}}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(debug),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Supervisor foo started foo:bar/1 at pid baz", lists:flatten(Msg))
+                end
+            },
+            {"supervisor progress report with pid",
+                fun(Sink) ->
+                        lager:set_loglevel(Sink, ?MODULE, undefined, debug),
+                        ?assertEqual({?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
+                        sync_error_logger:info_report(progress, {supervisor, somepid}, {started, {mfargs, {foo, bar, 1}}, {pid, baz}}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(debug),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Supervisor somepid started foo:bar/1 at pid baz", lists:flatten(Msg))
+                end
+            },
+            {"crash report for emfile",
+                fun(Sink) ->
+                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, emfile, {stack, trace, 1}}}, ),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: maximum number of file descriptors exhausted, check ulimit -n", self())),
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"crash report for system process limit",
+                fun(Sink) ->
+                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, system_limit, {erlang, spawn, 1}}}, ),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: maximum number of processes exceeded", self())),
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"crash report for system process limit2",
+                fun(Sink) ->
+                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, system_limit, {erlang, spawn_opt, 1}}}, ),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: maximum number of processes exceeded", self())),
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"crash report for system port limit",
+                fun(Sink) ->
+                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, system_limit, {erlang, open_port, 1}}}, ),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: maximum number of ports exceeded", self())),
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"crash report for system port limit",
+                fun(Sink) ->
+                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, }, {error_info, {error, system_limit, {erlang, list_to_atom, 1}}}, ),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: tried to create an atom larger than 255, or maximum atom count exceeded", self())),
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"crash report for system ets table limit",
+                fun(Sink) ->
+                        sync_error_logger:error_report(crash_report, {pid, self()}, {registered_name, test}, {error_info, {error, system_limit, {ets,new,segment_offsets,ordered_set,public},{mi_segment,open_write,1},{mi_buffer_converter,handle_cast,2},{gen_server,handle_msg,5},{proc_lib,init_p_do_apply,3}}}, ),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~w with 0 neighbours crashed with reason: system limit: maximum number of ETS tables exceeded", test)),
+                        ?assertEqual(Expected, lists:flatten(Msg))
+                end
+            },
+            {"crash report for unknown system limit should be truncated at 500 characters",
+                fun(Sink) ->
+                        sync_error_logger:error_report(crash_report, {pid, self()}, {error_info, {error, system_limit, {wtf,boom,string:copies("aaaa", 4096)}}}, ),
+                        _ = gen_event:which_handlers(error_logger),
+                        {_, _, Msg,_Metadata} = pop(Sink),
+                        ?assert(length(lists:flatten(Msg)) > 550),
+                        ?assert(length(lists:flatten(Msg)) < 600)
+                end
+            },
+            {"crash reports for 'special processes' should be handled right - function_clause",
+                fun(Sink) ->
+                        {ok, Pid} = special_process:start(),
+                        unlink(Pid),
+                        Pid ! function_clause,
+                        timer:sleep(500),
+                        _ = gen_event:which_handlers(error_logger),
+                        {_, _, Msg, _Metadata} = pop(Sink),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~p with 0 neighbours crashed with reason: no function clause matching special_process:foo(bar)",
+                                Pid)),
+                        test_body(Expected, lists:flatten(Msg))
+                end
+            },
+            {"crash reports for 'special processes' should be handled right - case_clause",
+                fun(Sink) ->
+                        {ok, Pid} = special_process:start(),
+                        unlink(Pid),
+                        Pid ! {case_clause, wtf},
+                        timer:sleep(500),
+                        _ = gen_event:which_handlers(error_logger),
+                        {_, _, Msg, _Metadata} = pop(Sink),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~p with 0 neighbours crashed with reason: no case clause matching wtf in special_process:loop/0",
+                                Pid)),
+                        test_body(Expected, lists:flatten(Msg))
+                end
+            },
+            {"crash reports for 'special processes' should be handled right - exit",
+                fun(Sink) ->
+                        {ok, Pid} = special_process:start(),
+                        unlink(Pid),
+                        Pid ! exit,
+                        timer:sleep(500),
+                        _ = gen_event:which_handlers(error_logger),
+                        {_, _, Msg, _Metadata} = pop(Sink),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~p with 0 neighbours exited with reason: byebye in special_process:loop/0",
+                                Pid)),
+                        test_body(Expected, lists:flatten(Msg))
+                end
+            },
+            {"crash reports for 'special processes' should be handled right - error",
+                fun(Sink) ->
+                        {ok, Pid} = special_process:start(),
+                        unlink(Pid),
+                        Pid ! error,
+                        timer:sleep(500),
+                        _ = gen_event:which_handlers(error_logger),
+                        {_, _, Msg, _Metadata} = pop(Sink),
+                        Expected = lists:flatten(io_lib:format("CRASH REPORT Process ~p with 0 neighbours crashed with reason: mybad in special_process:loop/0",
+                                Pid)),
+                        test_body(Expected, lists:flatten(Msg))
+                end
+            },
+            {"webmachine error reports",
+                fun(Sink) ->
+                        Path = "/cgi-bin/phpmyadmin",
+                        Reason = {error,{error,{badmatch,{error,timeout}},
+                                        {myapp,dostuff,2,{file,"src/myapp.erl"},{line,123}},
+                                         {webmachine_resource,resource_call,3,{file,"src/webmachine_resource.erl"},{line,169}}}},
+                        sync_error_logger:error_msg("webmachine error: path=~p~n~p~n", Path, Reason),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Webmachine error at path \"/cgi-bin/phpmyadmin\" : no match of right hand value {error,timeout} in myapp:dostuff/2 line 123", lists:flatten(Msg))
+
+                end
+            },
+            {"Cowboy error reports, 8 arg version",
+             fun(Sink) ->
+                        Stack = {my_handler,init, 3,{file,"src/my_handler.erl"},{line,123}},
+                                 {cowboy_handler,handler_init,4,{file,"src/cowboy_handler.erl"},{line,169}},
+
+                        sync_error_logger:error_msg(
+                            "** Cowboy handler ~p terminating in ~p/~p~n"
+                            "   for the reason ~p:~p~n"
+                            "** Options were ~p~n"
+                            "** Request was ~p~n"
+                            "** Stacktrace: ~p~n~n",
+                            my_handler, init, 3, error, {badmatch, {error, timeout}}, ,
+                             "Request", Stack),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Cowboy handler my_handler terminated in my_handler:init/3 with reason: no match of right hand value {error,timeout} in my_handler:init/3 line 123", lists:flatten(Msg))
+                end
+            },
+            {"Cowboy error reports, 10 arg version",
+             fun(Sink) ->
+                        Stack = {my_handler,somecallback, 3,{file,"src/my_handler.erl"},{line,123}},
+                                 {cowboy_handler,handler_init,4,{file,"src/cowboy_handler.erl"},{line,169}},
+                        sync_error_logger:error_msg(
+                            "** Cowboy handler ~p terminating in ~p/~p~n"
+                            "   for the reason ~p:~p~n** Message was ~p~n"
+                            "** Options were ~p~n** Handler state was ~p~n"
+                            "** Request was ~p~n** Stacktrace: ~p~n~n",
+                            my_handler, somecallback, 3, error, {badmatch, {error, timeout}}, hello, ,
+                             {}, "Request", Stack),
+
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Cowboy handler my_handler terminated in my_handler:somecallback/3 with reason: no match of right hand value {error,timeout} in my_handler:somecallback/3 line 123", lists:flatten(Msg))
+                end
+            },
+            {"Cowboy error reports, 5 arg version",
+             fun(Sink) ->
+                        sync_error_logger:error_msg(
+                            "** Cowboy handler ~p terminating; "
+                            "function ~p/~p was not exported~n"
+                            "** Request was ~p~n** State was ~p~n~n",
+                            my_handler, to_json, 2, "Request", {}),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg,Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error),Level),
+                        ?assertEqual(self(),proplists:get_value(pid,Metadata)),
+                        ?assertEqual("Cowboy handler my_handler terminated with reason: call to undefined function my_handler:to_json/2", lists:flatten(Msg))
+                end
+            },
+            {"Cowboy error reports, 6 arg version",
+             fun(Sink) ->
+                        Stack = {app_http, init, 2, {file, "app_http.erl"}, {line,9}},
+                                 {cowboy_handler, execute, 2, {file, "cowboy_handler.erl"}, {line, 41}},
+                        ConnectionPid = list_to_pid("<0.82.0>"),
+                        sync_error_logger:error_msg(
+                            "Ranch listener ~p, connection process ~p, stream ~p "
+                            "had its request process ~p exit with reason "
+                            "~999999p and stacktrace ~999999p~n",
+                            my_listner, ConnectionPid, 1, self(), {badmatch, 2}, Stack),
+                        _ = gen_event:which_handlers(error_logger),
+                        {Level, _, Msg, Metadata} = pop(Sink),
+                        ?assertEqual(lager_util:level_to_num(error), Level),
+                        ?assertEqual(self(), proplists:get_value(pid, Metadata)),
+                        ?assertEqual("Cowboy stream 1 with ranch listener my_listner and "
+                                     "connection process <0.82.0> had its request process exit "
+                                     "with reason: no match of right hand value 2 "
+                                     "in app_http:init/2 line 9", lists:flatten(Msg))
+                end
+            },
+            {"messages should not be generated if they don't satisfy the threshold",
+                fun(Sink) ->
+                        lager:set_loglevel(Sink, ?MODULE, undefined, error),
+                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
+                        sync_error_logger:info_report(hello, world),
+                        _ = gen_event:which_handlers(error_logger),
+                        ?assertEqual(0, count(Sink)),
+                        ?assertEqual(0, count_ignored(Sink)),
+                        lager:set_loglevel(Sink, ?MODULE, undefined, info),
+                        ?assertEqual({?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
+                        sync_error_logger:info_report(hello, world),
+                        _ = gen_event:which_handlers(error_logger),
+                        ?assertEqual(1, count(Sink)),
+                        ?assertEqual(0, count_ignored(Sink)),
+                        lager:set_loglevel(Sink, ?MODULE, undefined, error),
+                        ?assertEqual({?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY, }, lager_config:get({Sink, loglevel})),
+                        lager_config:set({Sink, loglevel}, {element(2, lager_util:config_to_mask(debug)), }),
+                        sync_error_logger:info_report(hello, world),
+                        _ = gen_event:which_handlers(error_logger),
+                        ?assertEqual(1, count(Sink)),
+                        ?assertEqual(1, count_ignored(Sink))
+                end
+            }
+        ,
+    SinkTests = lists:map(
+        fun({Name, F}) ->
+            fun(Sink) -> {Name, fun() -> F(Sink) end} end
+        end,
+        Tests),
+    {"Error logger redirect", 
+        {"Redirect to default sink",
+            {foreach,
+            fun error_logger_redirect_setup/0,
+            fun error_logger_redirect_cleanup/1,
+            SinkTests}},
+        {"Redirect to error_logger_lager_event sink",
+            {foreach,
+            fun error_logger_redirect_setup_sink/0,
+            fun error_logger_redirect_cleanup/1,
+            SinkTests}}
+    }.
+
+safe_format_test() ->
+    ?assertEqual("foo bar", lists:flatten(lager:safe_format("~p ~p", foo, bar, 1024))),
+    ?assertEqual("FORMAT ERROR: \"~p ~p ~p\" foo,bar", lists:flatten(lager:safe_format("~p ~p ~p", foo, bar, 1024))),
+    ok.
+
+unsafe_format_test() ->
+    ?assertEqual("foo bar", lists:flatten(lager:unsafe_format("~p ~p", foo, bar))),
+    ?assertEqual("FORMAT ERROR: \"~p ~p ~p\" foo,bar", lists:flatten(lager:unsafe_format("~p ~p ~p", foo, bar))),
+    ok.
+
+async_threshold_test_() ->
+    Cleanup = fun(Reset) ->
+        _ = error_logger:tty(false),
+        _ = application:stop(lager),
+        _ = application:stop(goldrush),
+        _ = application:unset_env(lager, async_threshold),
+        if
+            Reset ->
+                true = ets:delete(async_threshold_test),
+                error_logger:tty(true);
+            true ->
+                _ = (catch ets:delete(async_threshold_test)),
+                ok
+        end
+    end,
+    Setup = fun() ->
+        % Evidence suggests that previous tests somewhere are leaving some of this stuff
+        % loaded, and cleaning it out forcefully to allows the test to succeed.
+        _ = Cleanup(false),
+        _ = ets:new(async_threshold_test, set, named_table, public),
+        ?assertEqual(true, ets:insert_new(async_threshold_test, {sync_toggled, 0})),
+        ?assertEqual(true, ets:insert_new(async_threshold_test, {async_toggled, 0})),
+        _ = application:load(lager),
+        ok = application:set_env(lager, error_logger_redirect, false),
+        ok = application:set_env(lager, async_threshold, 2),
+        ok = application:set_env(lager, async_threshold_window, 1),
+        ok = application:set_env(lager, handlers, {?MODULE, info}),
+        ok = lager:start(),
+        true
+    end,
+    {foreach, Setup, Cleanup, 
+        {"async threshold works",
+         {timeout, 30, fun() ->
+            Sleep = get_long_sleep_value(),
+
+            %% we start out async
+            ?assertEqual(true, lager_config:get(async)),
+            ?assertEqual({sync_toggled, 0},
+                ets:lookup(async_threshold_test, sync_toggled)),
+
+            %% put a ton of things in the queue
+            WorkCnt = erlang:max(10, (erlang:system_info(schedulers) * 2)),
+            OtpVsn  = lager_util:otp_version(),
+            % newer OTPs *may* handle the messages faster, so we'll send more
+            MsgCnt  = ((OtpVsn * OtpVsn) div 2),
+            Workers = spawn_stuffers(WorkCnt, MsgCnt, info, "hello world", ),
+
+            %% serialize on mailbox
+            _ = gen_event:which_handlers(lager_event),
+            timer:sleep(Sleep),
+
+            %% By now the flood of messages should have forced the backend throttle
+            %% to turn off async mode, but it's possible all outstanding requests
+            %% have been processed, so checking the current status (sync or async)
+            %% is an exercise in race control.
+            %% Instead, we'll see whether the backend throttle has toggled into sync
+            %% mode at any point in the past.
+            ?assertMatch({sync_toggled, N} when N > 0,
+                ets:lookup(async_threshold_test, sync_toggled)),
+
+            %% Wait for all the workers to return, meaning that all the messages have
+            %% been logged (since we're definitely in sync mode at the end of the run).
+            collect_workers(Workers),
+
+            %% serialize on the mailbox again
+            _ = gen_event:which_handlers(lager_event),
+            timer:sleep(Sleep),
+
+            lager:info("hello world"),
+
+            _ = gen_event:which_handlers(lager_event),
+            timer:sleep(Sleep),
+
+            %% async is true again now that the mailbox has drained
+            ?assertEqual(true, lager_config:get(async)),
+            ok
+        end}}
+    }.
+
+% Fire off the stuffers with minimal resource overhead - speed is of the essence.
+spawn_stuffers(0, _, Refs) ->
+    % Attempt to return them in about the order that they'll finish.
+    lists:reverse(Refs);
+spawn_stuffers(N, Args, Refs) ->
+    {_Pid, Ref} = erlang:spawn_monitor(?MODULE, message_stuffer, Args),
+    spawn_stuffers((N - 1), Args, Ref | Refs).
+
+% Spawned process to stuff N copies of Message into lager's message queue as fast as possible.
+% Skip using a list function for speed and low memory footprint - don't want to take the
+% resources to create a sequence (or pass one in).
+message_stuffer(N, Level, Message) ->
+    message_stuffer_(N, Level, {pid, erlang:self()}, Message).
+
+message_stuffer_(0, _, _, _) ->
+    ok;
+message_stuffer_(N, Level, Meta, Message) ->
+    lager:log(Level, Meta, Message),
+    message_stuffer_((N - 1), Level, Meta, Message).
+
+collect_workers() ->
+    ok;
+collect_workers(Ref | Refs) ->
+    receive
+        {'DOWN', Ref, _, _, _} ->
+            collect_workers(Refs)
+    end.
+
+produce_n_error_logger_msgs(N) ->
+    lists:foreach(fun (K) ->
+            error_logger:error_msg("Foo ~p!", K)
+        end,
+        lists:seq(0, N-1)
+    ).
+
+high_watermark_test_() ->
+    {foreach,
+        fun() ->
+            error_logger:tty(false),
+            application:load(lager),
+            application:set_env(lager, error_logger_redirect, true),
+            application:set_env(lager, handlers, {lager_test_backend, info}),
+            application:set_env(lager, async_threshold, undefined),
+            lager:start()
+        end,
+        fun(_) ->
+            application:stop(lager),
+            error_logger:tty(true)
+        end,
+        
+            {"Nothing dropped when error_logger high watermark is undefined",
+                fun () ->
+                    ok = error_logger_lager_h:set_high_water(undefined),
+                    timer:sleep(100),
+                    produce_n_error_logger_msgs(10),
+                    timer:sleep(500),
+                    ?assert(count() >= 10)
+                end
+            },
+            {"Mostly dropped according to error_logger high watermark",
+                fun () ->
+                    ok = error_logger_lager_h:set_high_water(5),
+                    timer:sleep(100),
+                    produce_n_error_logger_msgs(50),
+                    timer:sleep(1000),
+                    ?assert(count() < 20)
+                end
+            },
+            {"Non-notifications are not dropped",
+                fun () ->
+                    ok = error_logger_lager_h:set_high_water(2),
+                    timer:sleep(100),
+                    spawn(fun () -> produce_n_error_logger_msgs(300) end),
+                    timer:sleep(50),
+                    %% if everything were dropped, this call would be dropped
+                    %% too, so lets hope it's not
+                    ?assert(is_integer(count())),
+                    timer:sleep(1000),
+                    ?assert(count() < 10)
+                end
+            }
+        
+    }.
+
+get_long_sleep_value() ->
+    case os:getenv("CI") of
+        false ->
+            500;
+        _ ->
+            5000
+    end.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/lager_test_function_transform.erl Added

@@ -0,0 +1,198 @@
+%% -------------------------------------------------------------------
+%%
+%% 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_test_function_transform).
+
+-include("lager.hrl").
+
+-compile({nowarn_deprecated_function, {erlang, now, 0}}).
+
+-lager_function_transforms(
+    {returns_static_emit, on_emit, {lager_test_function_transform, transform_static}},
+    {returns_dynamic_emit, on_emit, {lager_test_function_transform, transform_dynamic}},
+    {returns_undefined_emit, on_emit, {not_real_module_fake, fake_not_real_function}},
+
+    {returns_static_log, on_log, {lager_test_function_transform, transform_static}},
+    {returns_dynamic_log, on_log, {lager_test_function_transform, transform_dynamic}}
+).
+
+-compile({parse_transform, lager_transform}).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-export(
+    transform_static/0,
+    transform_dynamic/0
+).
+-endif.
+
+-ifdef(TEST).
+
+transform_static() ->
+    static_result.
+
+transform_dynamic() ->
+    case lager_util:otp_version() >= 18 of
+        true ->
+            erlang:monotonic_time();
+        false ->
+            erlang:now()
+    end.
+
+not_running_test() ->
+    ?assertEqual({error, lager_not_running}, lager:log(info, self(), "not running")).
+
+setup() ->
+    ok = error_logger:tty(false),
+    ok = lager_util:safe_application_load(lager),
+    ok = application:set_env(lager, handlers, {lager_test_backend, info}),
+    ok = application:set_env(lager, error_logger_redirect, false),
+    ok = application:unset_env(lager, traces),
+    ok = lager:start(),
+    %% There is a race condition between the application start up, lager logging its own
+    %% start up condition and several tests that count messages or parse the output of
+    %% tests.  When the lager start up message wins the race, it causes these tests
+    %% which parse output or count message arrivals to fail.
+    %%
+    %% We introduce a sleep here to allow `flush' to arrive *after* the start up
+    %% message has been received and processed.
+    %%
+    %% This race condition was first exposed during the work on
+    %% 4b5260c4524688b545cc12da6baa2dfa4f2afec9 which introduced the lager
+    %% manager killer PR.
+    ok = timer:sleep(250),
+    ok = gen_event:call(lager_event, lager_test_backend, flush).
+
+cleanup(_) ->
+    catch ets:delete(lager_config), %% kill the ets config table with fire
+    ok = application:stop(lager),
+    ok = application:stop(goldrush),
+    ok = error_logger:tty(true).
+
+transform_function_test_() ->
+    {foreach,
+        fun setup/0,
+        fun cleanup/1,
+        
+            {"observe that there is nothing up my sleeve",
+                fun() ->
+                    ?assertEqual(undefined, lager_test_backend:pop()),
+                    ?assertEqual(0, lager_test_backend:count())
+                end
+            },
+            {"logging works",
+                fun() ->
+                    lager:warning("test message"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    {Level, _Time, Message, _Metadata}  = lager_test_backend:pop(),
+                    ?assertMatch(Level, lager_util:level_to_num(warning)),
+                    ?assertEqual("test message", Message),
+                    ok
+                end
+            },
+            {"Testing calling a function returns the same content on emit",
+                fun() ->
+                    lager:warning("static message"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
+                    Function = proplists:get_value(returns_static_emit, Metadata),
+                    ?assertEqual(transform_static(), Function()),
+                    ok
+                end
+            },
+            {"Testing calling a function which returns content which can change on emit",
+                fun() ->
+                    lager:warning("dynamic message"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
+                    Function = proplists:get_value(returns_dynamic_emit, Metadata),
+                    ?assert(Function() =< Function()),
+                    ?assert(Function() =< Function()),
+                    ?assert(Function() =< Function()),
+                    ?assert(Function() =< Function()),
+                    ok
+                end
+            },
+            {"Testing a undefined function returns undefined on emit",
+                fun() ->
+                    lager:warning("Undefined error"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
+                    Function = proplists:get_value(returns_undefined_emit, Metadata),
+                    {module, Module}, {name, Name}|_ = erlang:fun_info(Function),
+                    ?assertNot(erlang:function_exported(Module, Name, 0)),
+                    ok
+                end
+            },
+            {"Testing calling a function returns the same content on log",
+                fun() ->
+                    lager:warning("static message"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
+                    ?assertEqual(transform_static(), proplists:get_value(returns_static_log, Metadata)),
+                    ok
+                end
+            },
+            {"Testing calling a dynamic function on log which returns the same value",
+                fun() ->
+                    lager:warning("dynamic message"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
+                    Value = proplists:get_value(returns_dynamic_log, Metadata),
+                    ?assert(Value =< transform_dynamic()),
+                    ?assert(Value =< transform_dynamic()),
+                    ?assert(Value =< transform_dynamic()),
+                    ?assert(Value =< transform_dynamic()),
+                    ?assert(Value =< transform_dynamic()),
+                    ok
+                end
+            },
+            {"Testing differences in results for on_log vs on emit from dynamic function",
+                fun() ->
+                    lager:warning("on_log vs on emit"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
+                    Value = proplists:get_value(returns_dynamic_log, Metadata),
+                    Function = proplists:get_value(returns_dynamic_emit, Metadata),
+                    FunctionResult = Function(),
+                    ?assert(Value =< FunctionResult),
+                    ?assert(Value =< Function()),
+                    ?assert(FunctionResult =< Function()),
+                    ok
+                end
+            },
+            {"Testing a function provided via metadata",
+                fun()->
+                    Provided = fun() ->
+                        provided_metadata
+                    end,
+                    lager:md({provided, Provided}),
+                    lager:warning("Provided metadata"),
+                    ?assertEqual(1, lager_test_backend:count()),
+                    {_Level, _Time, _Message, Metadata} = lager_test_backend:pop(),
+                    Function = proplists:get_value(provided, Metadata),
+                    ?assertEqual(Provided(), Function()),
+                    ok
+                end
+            }
+        
+    }.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/lager_trace_test.erl Added

@@ -0,0 +1,103 @@
+-module(lager_trace_test).
+
+-compile({parse_transform, lager_transform}).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+% Our expectation is that the first log entry will appear so we won't actually
+% wait out ?FIRST_LOG_ENTRY_TIMEOUT. On the other hand, the second log entry is
+% expected never to arrive, so the test will wait out ?SECOND_LOG_ENTRY_TIMEOUT;
+% that's why it is shorter.
+-define(FIRST_LOG_ENTRY_TIMEOUT, (10 * 1000)). % 10 seconds
+-define(SECOND_LOG_ENTRY_TIMEOUT, 1000). % 1 second
+
+-define(FNAME, "test/test1.log").
+
+trace_test_() ->
+    {timeout,
+     10,
+     {foreach,
+         fun() ->
+                 file:write_file(?FNAME, ""),
+                 error_logger:tty(false),
+                 application:load(lager),
+                 application:set_env(lager, log_root, "test"),
+                 application:set_env(lager, handlers,
+                                     {lager_file_backend,
+                                       {file, "test1.log"},
+                                        {level, none},
+                                        {formatter, lager_default_formatter},
+                                        {formatter_config, message, "\n"}
+                                       }),
+                 application:set_env(lager, traces,
+                                     {{lager_file_backend, "test1.log"},
+                                       {tag, mytag}, info}),
+                 application:set_env(lager, error_logger_redirect, false),
+                 application:set_env(lager, async_threshold, undefined),
+                 lager:start()
+         end,
+         fun(_) ->
+                 file:delete(?FNAME),
+                 application:stop(lager),
+                 application:stop(goldrush),
+                 application:unset_env(lager, log_root),
+                 application:unset_env(lager, handlers),
+                 application:unset_env(lager, traces),
+                 application:unset_env(lager, error_logger_redirect),
+                 application:unset_env(lager, async_threshold),
+                 error_logger:tty(true)
+         end,
+         {"Trace combined with log_root",
+             fun() ->
+                 lager:info({tag, mytag}, "Test message"),
+
+                 % Wait until we have the expected log entry in the log file.
+                 case wait_until(fun() ->
+                                         count_lines(?FNAME) >= 1
+                                 end, ?FIRST_LOG_ENTRY_TIMEOUT) of
+                     ok ->
+                         ok;
+                     {error, timeout} ->
+                         throw({file_empty, file:read_file(?FNAME)})
+                 end,
+
+                 % Let's wait a little to see that we don't get a duplicate log
+                 % entry.
+                 case wait_until(fun() ->
+                                         count_lines(?FNAME) >= 2
+                                 end, ?SECOND_LOG_ENTRY_TIMEOUT) of
+                     ok ->
+                         throw({too_many_entries, file:read_file(?FNAME)});
+                     {error, timeout} ->
+                         ok
+                 end
+             end}
+          }}.
+
+% Wait until Fun() returns true.
+wait_until(Fun, Timeout) ->
+    wait_until(Fun, Timeout, {8, 13}).
+
+wait_until(_Fun, Timeout, {T1, _}) when T1 > Timeout ->
+    {error, timeout};
+wait_until(Fun, Timeout, {T1, T2}) ->
+    case Fun() of
+        true ->
+            ok;
+        false ->
+            timer:sleep(T1),
+            wait_until(Fun, Timeout, {T2, T1 + T2})
+    end.
+
+% Return the number of lines in a file. Return 0 for a non-existent file.
+count_lines(Filename) ->
+    case file:read_file(Filename) of
+        {ok, Content} ->
+            Lines = binary:split(Content, <<"\n">>, global, trim),
+            length(Lines);
+        {error, _} ->
+            0
+    end.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/pr_composite_test.erl Added

@@ -0,0 +1,47 @@
+-module(pr_composite_test).
+
+-compile({parse_transform, lager_transform}).
+
+-record(a, {field1 :: term(), field2 :: term()}).
+-record(b, {field1 :: term() , field2 :: term()}).
+
+
+-include_lib("eunit/include/eunit.hrl").
+
+nested_record_test() ->
+    A = #a{field1 = x, field2 = y}, 
+    B = #b{field1 = A, field2 = {}},
+    Pr_B = lager:pr(B, ?MODULE),
+    ?assertEqual({'$lager_record', b,
+                    {field1, {'$lager_record', a,
+                                    {field1, x},{field2, y}}},
+                     {field2, {}}}, 
+                   Pr_B).
+
+list_field_test() ->
+    As = #a{field1 = 1, field2 = a2},
+          #a{field1 = 2, field2 = a2},
+    B = #b{field1 = As, field2 = b2},
+    Pr_B = lager:pr(B, ?MODULE),
+    ?assertEqual({'$lager_record', b,
+                  {field1, {'$lager_record', a,
+                              {field1, 1},{field2, a2}},
+                             {'$lager_record', a,
+                              {field1, 2},{field2, a2}}},
+                   {field2, b2}},
+                 Pr_B).
+
+list_of_records_test() ->
+    As = #a{field1 = 1, field2 = a2},
+          #a{field1 = 2, field2 = a2},
+    Pr_As = lager:pr(As, ?MODULE),
+    ?assertEqual({'$lager_record', a, {field1, 1},{field2, a2}},
+                  {'$lager_record', a, {field1, 2},{field2, a2}},
+                 Pr_As).
+
+improper_list_test() ->
+    A = #a{field1 = 1|2, field2 = a2},
+    Pr_A = lager:pr(A, ?MODULE),
+    ?assertEqual({'$lager_record',a,
+                  {field1,1|2},{field2,a2}},
+                 Pr_A).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/pr_stacktrace_test.erl Added

@@ -0,0 +1,55 @@
+-module(pr_stacktrace_test).
+
+-compile({parse_transform, lager_transform}).
+
+-include_lib("eunit/include/eunit.hrl").
+
+make_throw() ->
+    throw({test, exception}).
+
+bad_arity() ->
+    lists:concat(, ).
+
+bad_arg() ->
+    integer_to_list(1.0).
+
+pr_stacktrace_throw_test() ->
+    Got = try
+        make_throw()
+    catch
+        Class:Reason:Stacktrace ->
+            lager:pr_stacktrace(Stacktrace, {Class, Reason})
+    end,
+    Want = "pr_stacktrace_test:pr_stacktrace_throw_test/0 line 18\n    pr_stacktrace_test:make_throw/0 line 8\nthrow:{test,exception}",
+    ?assertNotEqual(nomatch, string:find(Got, Want)).
+
+pr_stacktrace_bad_arg_test() ->
+    Got = try
+        bad_arg()
+    catch
+        Class:Reason:Stacktrace ->
+            lager:pr_stacktrace(Stacktrace, {Class, Reason})
+    end,
+    Want = "pr_stacktrace_test:pr_stacktrace_bad_arg_test/0 line 28\n    pr_stacktrace_test:bad_arg/0 line 14\nerror:badarg",
+    ?assertNotEqual(nomatch, string:find(Got, Want)).
+
+pr_stacktrace_bad_arity_test() ->
+    Got = try
+        bad_arity()
+    catch
+        Class:Reason:Stacktrace ->
+            lager:pr_stacktrace(Stacktrace, {Class, Reason})
+    end,
+    Want = "pr_stacktrace_test:pr_stacktrace_bad_arity_test/0 line 38\n    lists:concat(, )\nerror:undef",
+    ?assertNotEqual(nomatch, string:find(Got, Want)).
+
+pr_stacktrace_no_reverse_test() ->
+    application:set_env(lager, reverse_pretty_stacktrace, false),
+    Got = try
+        bad_arity()
+    catch
+        Class:Reason:Stacktrace ->
+            lager:pr_stacktrace(Stacktrace, {Class, Reason})
+    end,
+    Want = "error:undef\n    lists:concat(, )\n    pr_stacktrace_test:pr_stacktrace_bad_arity_test/0 line 57",
+    ?assertEqual(nomatch, string:find(Got, Want)).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/special_process.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/sync_error_logger.erl Added

@@ -0,0 +1,89 @@
+%%
+%% %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%
+%%
+-module(sync_error_logger).
+
+%% The error_logger API, but synchronous!
+%% This is helpful for tests, otherwise you need lots of nasty timer:sleep.
+%% Additionally, the warning map can be set on a per-process level, for
+%% convienience, via the process dictionary value `warning_map'.
+
+-export(
+        info_msg/1, info_msg/2,
+        warning_msg/1, warning_msg/2,
+        error_msg/1,error_msg/2
+    ).
+
+-export(
+        info_report/1, info_report/2,
+        warning_report/1, warning_report/2,
+        error_report/1, error_report/2
+    ).
+
+info_msg(Format) ->
+    info_msg(Format, ).
+
+info_msg(Format, Args) ->
+    gen_event:sync_notify(error_logger, {info_msg, group_leader(), {self(), Format, Args}}).
+
+warning_msg(Format) ->
+    warning_msg(Format, ).
+
+warning_msg(Format, Args) ->
+    gen_event:sync_notify(error_logger, {warning_msg_tag(), group_leader(), {self(), Format, Args}}).
+
+error_msg(Format) ->
+    error_msg(Format, ).
+
+error_msg(Format, Args) ->
+    gen_event:sync_notify(error_logger, {error, group_leader(), {self(), Format, Args}}).
+
+info_report(Report) ->
+    info_report(std_info, Report).
+
+info_report(Type, Report) ->
+    gen_event:sync_notify(error_logger, {info_report, group_leader(), {self(), Type, Report}}).
+
+warning_report(Report) ->
+    warning_report(std_warning, Report).
+
+warning_report(Type, Report) ->
+    {Tag, NType} = warning_report_tag(Type),
+    gen_event:sync_notify(error_logger, {Tag, group_leader(), {self(), NType, Report}}).
+
+error_report(Report) ->
+    error_report(std_error, Report).
+
+error_report(Type, Report) ->
+    gen_event:sync_notify(error_logger, {error_report, group_leader(), {self(), Type, Report}}).
+
+warning_msg_tag() ->
+    case get(warning_map) of
+        warning -> warning_msg;
+        info -> info_msg;
+        _ -> error
+    end.
+
+warning_report_tag(Type) ->
+    case {get(warning_map), Type == std_warning} of
+        {warning, _} -> {warning_report, Type};
+        {info, true} -> {info_report, std_info};
+        {info, false} -> {info_report, Type};
+        {_, true} -> {error_report, std_error};
+        {_, false} -> {error_report, Type}
+    end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/trunc_io_eqc.erl Added

@@ -0,0 +1,244 @@
+%% -------------------------------------------------------------------
+%%
+%% trunc_io_eqc: QuickCheck test for trunc_io:format with maxlen
+%%
+%% 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(trunc_io_eqc).
+
+-ifdef(TEST).
+-ifdef(EQC).
+-export(test/0, test/1, check/0, prop_format/0, prop_equivalence/0).
+
+-include_lib("eqc/include/eqc.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(QC_OUT(P),
+        eqc:on_output(fun(Str, Args) -> io:format(user, Str, Args) end, P)).
+
+%%====================================================================
+%% eunit test 
+%%====================================================================
+
+eqc_test_() ->
+    {timeout, 60,
+     {spawn, 
+      
+                {timeout, 30, ?_assertEqual(true, eqc:quickcheck(eqc:testing_time(14, ?QC_OUT(prop_format()))))},
+                {timeout, 30, ?_assertEqual(true, eqc:quickcheck(eqc:testing_time(14, ?QC_OUT(prop_equivalence()))))}
+                
+     }}.
+
+%%====================================================================
+%% Shell helpers 
+%%====================================================================
+    
+test() ->
+    test(100).
+
+test(N) ->
+    quickcheck(numtests(N, prop_format())).
+
+check() ->
+    check(prop_format(), current_counterexample()).
+
+%%====================================================================
+%% Generators
+%%====================================================================
+
+gen_fmt_args() ->
+    list(oneof(gen_print_str(),
+                "~~",
+                {"~10000000.p", gen_any(5)},
+                {"~w", gen_any(5)},
+                {"~s", oneof(gen_print_str(), gen_atom(), gen_quoted_atom(), gen_print_bin(), gen_iolist(5))},
+                {"~1000000.P", gen_any(5), 4},
+                {"~W", gen_any(5), 4},
+                {"~i", gen_any(5)},
+                {"~B", nat()},
+                {"~b", nat()},
+                {"~X", nat(), "0x"},
+                {"~x", nat(), "0x"},
+                {"~.10#", nat()},
+                {"~.10+", nat()},
+                {"~.36B", nat()},
+                {"~1000000.62P", gen_any(5), 4},
+                {"~c", gen_char()},
+                {"~tc", gen_char()},
+                {"~f", real()},
+                {"~10.f", real()},
+                {"~g", real()},
+                {"~10.g", real()},
+                {"~e", real()},
+                {"~10.e", real()}
+               )).
+             
+
+%% Generates a printable string
+gen_print_str() ->
+    ?LET(Xs, list(char()), X || X <- Xs, io_lib:printable_list(X), X /= $~, X < 256).
+
+gen_print_bin() ->
+    ?LET(Xs, gen_print_str(), list_to_binary(Xs)).
+
+gen_any(MaxDepth) ->
+    oneof(largeint(),
+           gen_atom(),
+           gen_quoted_atom(),
+           nat(),
+           %real(),
+           binary(),
+           gen_bitstring(),
+           gen_pid(),
+           gen_port(),
+           gen_ref(),
+           gen_fun() ++
+           ?LAZY(list(gen_any(MaxDepth - 1))) || MaxDepth /= 0 ++
+           ?LAZY(gen_tuple(gen_any(MaxDepth - 1))) || MaxDepth /= 0).
+
+gen_iolist(0) ->
+    ;
+gen_iolist(Depth) ->
+    list(oneof(gen_char(), gen_print_str(), gen_print_bin(), gen_iolist(Depth-1))).
+
+gen_atom() ->
+    elements(abc, def, ghi).
+
+gen_quoted_atom() ->
+    elements('abc@bar', '@bar', '10gen').
+
+gen_bitstring() ->
+    ?LET(XS, binary(), <<XS/binary, 1:7>>).
+
+gen_tuple(Gen) ->
+    ?LET(Xs, list(Gen), list_to_tuple(Xs)). 
+
+gen_max_len() -> %% Generate length from 3 to whatever.  Needs space for ... in output
+    ?LET(Xs, int(), 3 + abs(Xs)).
+
+gen_pid() ->
+    ?LAZY(spawn(fun() -> ok end)).
+
+gen_port() ->
+    ?LAZY(begin
+              Port = erlang:open_port({spawn, "true"}, ),
+              catch(erlang:port_close(Port)),
+              Port
+          end).
+
+gen_ref() ->
+    ?LAZY(make_ref()).
+
+gen_fun() ->
+    ?LAZY(fun() -> ok end).
+
+gen_char() ->
+    oneof(lists:seq($A, $z)).
+               
+%%====================================================================
+%% Property
+%%====================================================================
+    
+%% Checks that trunc_io:format produces output less than or equal to MaxLen
+prop_format() ->
+    ?FORALL({FmtArgs, MaxLen}, {gen_fmt_args(), gen_max_len()},
+            begin
+                %% Because trunc_io will print '...' when its running out of
+                %% space, even if the remaining space is less than 3, it
+                %% doesn't *exactly* stick to the specified limit.
+
+                %% Also, since we don't truncate terms not printed with
+                %% ~p/~P/~w/~W/~s, we also need to calculate the wiggle room
+                %% for those. Hence the fudge factor calculated below.
+                FudgeLen = calculate_fudge(FmtArgs, 50),
+                {FmtStr, Args} = build_fmt_args(FmtArgs),
+                try
+                    Str = lists:flatten(lager_trunc_io:format(FmtStr, Args, MaxLen)),
+                    ?WHENFAIL(begin
+                                  io:format(user, "FmtStr:   ~p\n", FmtStr),
+                                  io:format(user, "Args:     ~p\n", Args),
+                                  io:format(user, "FudgeLen: ~p\n", FudgeLen),
+                                  io:format(user, "MaxLen:   ~p\n", MaxLen),
+                                  io:format(user, "ActLen:   ~p\n", length(Str)),
+                                  io:format(user, "Str:      ~p\n", Str)
+                              end,
+                              %% Make sure the result is a printable list
+                              %% and if the format string is less than the length, 
+                              %% the result string is less than the length.
+                              conjunction({printable, Str == "" orelse 
+                                                       io_lib:printable_list(Str)},
+                                           {length, length(FmtStr) > MaxLen orelse 
+                                                    length(Str) =< MaxLen + FudgeLen}))
+                catch
+                    _:Err ->
+                        io:format(user, "\nException: ~p\n", Err),
+                        io:format(user, "FmtStr: ~p\n", FmtStr),
+                        io:format(user, "Args:   ~p\n", Args),
+                        false
+                end
+            end).
+
+%% Checks for equivalent formatting to io_lib
+prop_equivalence() ->
+    ?FORALL(FmtArgs, gen_fmt_args(),
+            begin
+            {FmtStr, Args} = build_fmt_args(FmtArgs),
+            Expected = lists:flatten(io_lib:format(FmtStr, Args)),
+            Actual = lists:flatten(lager_trunc_io:format(FmtStr, Args, 10485760)),
+            ?WHENFAIL(begin
+                io:format(user, "FmtStr:   ~p\n", FmtStr),
+                io:format(user, "Args:     ~p\n", Args),
+                io:format(user, "Expected: ~p\n", Expected),
+                io:format(user, "Actual:   ~p\n", Actual)
+            end,
+                      Expected == Actual)
+        end).
+
+
+%%====================================================================
+%% Internal helpers 
+%%====================================================================
+
+%% Build a tuple of {Fmt, Args} from a gen_fmt_args() return
+build_fmt_args(FmtArgs) ->
+    F = fun({Fmt, Arg}, {FmtStr0, Args0}) ->
+                {FmtStr0 ++ Fmt, Args0 ++ Arg};
+           ({Fmt, Arg1, Arg2}, {FmtStr0, Args0}) ->
+                {FmtStr0 ++ Fmt, Args0 ++ Arg1, Arg2};
+           (Str, {FmtStr0, Args0}) ->
+                {FmtStr0 ++ Str, Args0}
+        end,
+    lists:foldl(F, {"", }, FmtArgs).
+
+calculate_fudge(, Acc) ->
+    Acc;
+calculate_fudge({"~62P", _Arg, _Depth}|T, Acc) ->
+    calculate_fudge(T, Acc+62);
+calculate_fudge({Fmt, Arg}|T, Acc) when
+        Fmt == "~f"; Fmt == "~10.f";
+        Fmt == "~g"; Fmt == "~10.g";
+        Fmt == "~e"; Fmt == "~10.e";
+        Fmt == "~x"; Fmt == "~X";
+        Fmt == "~B"; Fmt == "~b"; Fmt == "~36B";
+        Fmt == "~.10#"; Fmt == "~10+" ->
+    calculate_fudge(T, Acc + length(lists:flatten(io_lib:format(Fmt, Arg))));
+calculate_fudge(_|T, Acc) ->
+    calculate_fudge(T, Acc).
+
+-endif. % (EQC).
+-endif. % (TEST).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/test/zzzz_gh280_crash.erl Added

@@ -0,0 +1,35 @@
+%% @doc This test is named zzzz_gh280_crash because it has to be run first and tests are run in 
+%% reverse alphabetical order.
+%%
+%% The problem we are attempting to detect here is when log_mf_h is installed as a handler for error_logger
+%% and lager starts up to replace the current handlers with its own.  This causes a start up crash because
+%% OTP error logging modules do not have any notion of a lager-style log level.
+-module(zzzz_gh280_crash).
+
+-include_lib("eunit/include/eunit.hrl").
+
+gh280_crash_test() ->
+    {timeout, 30, fun() -> gh280_impl() end}.
+
+gh280_impl() ->
+    application:stop(lager),
+    application:stop(goldrush),
+
+    error_logger:tty(false),
+    %% see https://github.com/erlang/otp/blob/maint/lib/stdlib/src/log_mf_h.erl#L81
+    %% for an explanation of the init arguments to log_mf_h
+    ok = gen_event:add_sup_handler(error_logger, log_mf_h, log_mf_h:init("/tmp", 10000, 5)),
+    lager:start(),
+    Result = receive
+        {gen_event_EXIT,log_mf_h,normal} -> 
+            true;
+        {gen_event_EXIT,Handler,Reason} ->
+            {Handler,Reason};
+        X -> 
+            X
+    after 10000 ->
+        timeout
+    end,
+    ?assert(Result),
+    application:stop(lager),
+    application:stop(goldrush).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/lager/tools.mk Added

@@ -0,0 +1,149 @@
+#  -------------------------------------------------------------------
+#
+#  Copyright (c) 2014 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.
+#
+#  -------------------------------------------------------------------
+
+#  -------------------------------------------------------------------
+#  NOTE: This file is is from https://github.com/basho/tools.mk.
+#  It should not be edited in a project. It should simply be updated
+#  wholesale when a new version of tools.mk is released.
+#  -------------------------------------------------------------------
+
+REBAR ?= ./rebar
+REVISION ?= $(shell git rev-parse --short HEAD)
+PROJECT ?= $(shell basename `find src -name "*.app.src"` .app.src)
+
+.PHONY: compile-no-deps test docs xref dialyzer-run dialyzer-quick dialyzer \
+		cleanplt upload-docs
+
+compile-no-deps:
+	${REBAR} compile skip_deps=true
+
+test: compile
+	${REBAR} eunit skip_deps=true
+
+upload-docs: docs
+	@if  -z "${BUCKET}" -o -z "${PROJECT}" -o -z "${REVISION}" ; then \
+		echo "Set BUCKET, PROJECT, and REVISION env vars to upload docs"; \
+	        exit 1; fi
+	@cd doc; s3cmd put -P * "s3://${BUCKET}/${PROJECT}/${REVISION}/" > /dev/null
+	@echo "Docs built at: http://${BUCKET}.s3-website-us-east-1.amazonaws.com/${PROJECT}/${REVISION}"
+
+docs:
+	${REBAR} doc skip_deps=true
+
+xref: compile
+	${REBAR} xref skip_deps=true
+
+PLT ?= $(HOME)/.combo_dialyzer_plt
+LOCAL_PLT = .local_dialyzer_plt
+DIALYZER_FLAGS ?= -Wunmatched_returns
+
+${PLT}: compile
+	@if  -f $(PLT) ; then \
+		dialyzer --check_plt --plt $(PLT) --apps $(DIALYZER_APPS) && \
+		dialyzer --add_to_plt --plt $(PLT) --output_plt $(PLT) --apps $(DIALYZER_APPS) ; test $$? -ne 1; \
+	else \
+		dialyzer --build_plt --output_plt $(PLT) --apps $(DIALYZER_APPS); test $$? -ne 1; \
+	fi
+
+${LOCAL_PLT}: compile
+	@if  -d deps ; then \
+		if  -f $(LOCAL_PLT) ; then \
+			dialyzer --check_plt --plt $(LOCAL_PLT) deps/*/ebin  && \
+			dialyzer --add_to_plt --plt $(LOCAL_PLT) --output_plt $(LOCAL_PLT) deps/*/ebin ; test $$? -ne 1; \
+		else \
+			dialyzer --build_plt --output_plt $(LOCAL_PLT) deps/*/ebin ; test $$? -ne 1; \
+		fi \
+	fi
+
+dialyzer-run:
+	@echo "==> $(shell basename $(shell pwd)) (dialyzer)"
+# The bulk of the code below deals with the dialyzer.ignore-warnings file
+# which contains strings to ignore if output by dialyzer.
+# Typically the strings include line numbers. Using them exactly is hard
+# to maintain as the code changes. This approach instead ignores the line
+# numbers, but takes into account the number of times a string is listed
+# for a given file. So if one string is listed once, for example, and it
+# appears twice in the warnings, the user is alerted. It is possible but
+# unlikely that this approach could mask a warning if one ignored warning
+# is removed and two warnings of the same kind appear in the file, for
+# example. But it is a trade-off that seems worth it.
+# Details of the cryptic commands:
+#   - Remove line numbers from dialyzer.ignore-warnings
+#   - Pre-pend duplicate count to each warning with sort | uniq -c
+#   - Remove annoying white space around duplicate count
+#   - Save in dialyer.ignore-warnings.tmp
+#   - Do the same to dialyzer_warnings
+#   - Remove matches from dialyzer.ignore-warnings.tmp from output
+#   - Remove duplicate count
+#   - Escape regex special chars to use lines as regex patterns
+#   - Add pattern to match any line number (file.erl:\d+:)
+#   - Anchor to match the entire line (^entire line$)
+#   - Save in dialyzer_unhandled_warnings
+#   - Output matches for those patterns found in the original warnings
+	@if  -f $(LOCAL_PLT) ; then \
+		PLTS="$(PLT) $(LOCAL_PLT)"; \
+	else \
+		PLTS=$(PLT); \
+	fi; \
+	if  -f dialyzer.ignore-warnings ; then \
+		if  $$(grep -cvE '^:space:' dialyzer.ignore-warnings) -ne 0 ; then \
+			echo "ERROR: dialyzer.ignore-warnings contains a blank/empty line, this will match all messages!"; \
+			exit 1; \
+		fi; \
+		dialyzer $(DIALYZER_FLAGS) --plts $${PLTS} -c ebin > dialyzer_warnings ; \
+		cat dialyzer.ignore-warnings \
+		| sed -E 's/^(^:+:)^:+:/\1/' \
+		| sort \
+		| uniq -c \
+		| sed -E '/.*\.erl: /!s/^:space:*0-9+:space:*//' \
+		> dialyzer.ignore-warnings.tmp ; \
+		egrep -v "^:space:*(done|Checking|Proceeding|Compiling)" dialyzer_warnings \
+		| sed -E 's/^(^:+:)^:+:/\1/' \
+		| sort \
+		| uniq -c \
+		| sed -E '/.*\.erl: /!s/^:space:*0-9+:space:*//' \
+		| grep -F -f dialyzer.ignore-warnings.tmp -v \
+		| sed -E 's/^:space:*0-9+:space:*//' \
+		| sed -E 's/(\^:+?|()*.$${}\)/\\\1/g' \
+		| sed -E 's/(\\\.erl\\\:)/\1\\d+:/g' \
+		| sed -E 's/^(.*)$$/^\1$$/g' \
+		> dialyzer_unhandled_warnings ; \
+		rm dialyzer.ignore-warnings.tmp; \
+		if  $$(cat dialyzer_unhandled_warnings | wc -l) -gt 0 ; then \
+		    egrep -f dialyzer_unhandled_warnings dialyzer_warnings ; \
+			found_warnings=1; \
+	    fi; \
+		 "$$found_warnings" != 1  ; \
+	else \
+		dialyzer $(DIALYZER_FLAGS) --plts $${PLTS} -c ebin; \
+	fi
+
+dialyzer-quick: compile-no-deps dialyzer-run
+
+dialyzer: ${PLT} ${LOCAL_PLT} dialyzer-run
+
+cleanplt:
+	@echo
+	@echo "Are you sure?  It takes several minutes to re-build."
+	@echo Deleting $(PLT) and $(LOCAL_PLT) in 5 seconds.
+	@echo
+	sleep 5
+	rm $(PLT)
+	rm $(LOCAL_PLT)

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/LICENSE Added

@@ -0,0 +1,373 @@
+Mozilla Public License Version 2.0
+==================================
+
+1. Definitions
+--------------
+
+1.1. "Contributor"
+    means each individual or legal entity that creates, contributes to
+    the creation of, or owns Covered Software.
+
+1.2. "Contributor Version"
+    means the combination of the Contributions of others (if any) used
+    by a Contributor and that particular Contributor's Contribution.
+
+1.3. "Contribution"
+    means Covered Software of a particular Contributor.
+
+1.4. "Covered Software"
+    means Source Code Form to which the initial Contributor has attached
+    the notice in Exhibit A, the Executable Form of such Source Code
+    Form, and Modifications of such Source Code Form, in each case
+    including portions thereof.
+
+1.5. "Incompatible With Secondary Licenses"
+    means
+
+    (a) that the initial Contributor has attached the notice described
+        in Exhibit B to the Covered Software; or
+
+    (b) that the Covered Software was made available under the terms of
+        version 1.1 or earlier of the License, but not also under the
+        terms of a Secondary License.
+
+1.6. "Executable Form"
+    means any form of the work other than Source Code Form.
+
+1.7. "Larger Work"
+    means a work that combines Covered Software with other material, in 
+    a separate file or files, that is not Covered Software.
+
+1.8. "License"
+    means this document.
+
+1.9. "Licensable"
+    means having the right to grant, to the maximum extent possible,
+    whether at the time of the initial grant or subsequently, any and
+    all of the rights conveyed by this License.
+
+1.10. "Modifications"
+    means any of the following:
+
+    (a) any file in Source Code Form that results from an addition to,
+        deletion from, or modification of the contents of Covered
+        Software; or
+
+    (b) any new file in Source Code Form that contains any Covered
+        Software.
+
+1.11. "Patent Claims" of a Contributor
+    means any patent claim(s), including without limitation, method,
+    process, and apparatus claims, in any patent Licensable by such
+    Contributor that would be infringed, but for the grant of the
+    License, by the making, using, selling, offering for sale, having
+    made, import, or transfer of either its Contributions or its
+    Contributor Version.
+
+1.12. "Secondary License"
+    means either the GNU General Public License, Version 2.0, the GNU
+    Lesser General Public License, Version 2.1, the GNU Affero General
+    Public License, Version 3.0, or any later versions of those
+    licenses.
+
+1.13. "Source Code Form"
+    means the form of the work preferred for making modifications.
+
+1.14. "You" (or "Your")
+    means an individual or a legal entity exercising rights under this
+    License. For legal entities, "You" includes any entity that
+    controls, is controlled by, or is under common control with You. For
+    purposes of this definition, "control" means (a) the power, direct
+    or indirect, to cause the direction or management of such entity,
+    whether by contract or otherwise, or (b) ownership of more than
+    fifty percent (50%) of the outstanding shares or beneficial
+    ownership of such entity.
+
+2. License Grants and Conditions
+--------------------------------
+
+2.1. Grants
+
+Each Contributor hereby grants You a world-wide, royalty-free,
+non-exclusive license:
+
+(a) under intellectual property rights (other than patent or trademark)
+    Licensable by such Contributor to use, reproduce, make available,
+    modify, display, perform, distribute, and otherwise exploit its
+    Contributions, either on an unmodified basis, with Modifications, or
+    as part of a Larger Work; and
+
+(b) under Patent Claims of such Contributor to make, use, sell, offer
+    for sale, have made, import, and otherwise transfer either its
+    Contributions or its Contributor Version.
+
+2.2. Effective Date
+
+The licenses granted in Section 2.1 with respect to any Contribution
+become effective for each Contribution on the date the Contributor first
+distributes such Contribution.
+
+2.3. Limitations on Grant Scope
+
+The licenses granted in this Section 2 are the only rights granted under
+this License. No additional rights or licenses will be implied from the
+distribution or licensing of Covered Software under this License.
+Notwithstanding Section 2.1(b) above, no patent license is granted by a
+Contributor:
+
+(a) for any code that a Contributor has removed from Covered Software;
+    or
+
+(b) for infringements caused by: (i) Your and any other third party's
+    modifications of Covered Software, or (ii) the combination of its
+    Contributions with other software (except as part of its Contributor
+    Version); or
+
+(c) under Patent Claims infringed by Covered Software in the absence of
+    its Contributions.
+
+This License does not grant any rights in the trademarks, service marks,
+or logos of any Contributor (except as may be necessary to comply with
+the notice requirements in Section 3.4).
+
+2.4. Subsequent Licenses
+
+No Contributor makes additional grants as a result of Your choice to
+distribute the Covered Software under a subsequent version of this
+License (see Section 10.2) or under the terms of a Secondary License (if
+permitted under the terms of Section 3.3).
+
+2.5. Representation
+
+Each Contributor represents that the Contributor believes its
+Contributions are its original creation(s) or it has sufficient rights
+to grant the rights to its Contributions conveyed by this License.
+
+2.6. Fair Use
+
+This License is not intended to limit any rights You have under
+applicable copyright doctrines of fair use, fair dealing, or other
+equivalents.
+
+2.7. Conditions
+
+Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted
+in Section 2.1.
+
+3. Responsibilities
+-------------------
+
+3.1. Distribution of Source Form
+
+All distribution of Covered Software in Source Code Form, including any
+Modifications that You create or to which You contribute, must be under
+the terms of this License. You must inform recipients that the Source
+Code Form of the Covered Software is governed by the terms of this
+License, and how they can obtain a copy of this License. You may not
+attempt to alter or restrict the recipients' rights in the Source Code
+Form.
+
+3.2. Distribution of Executable Form
+
+If You distribute Covered Software in Executable Form then:
+
+(a) such Covered Software must also be made available in Source Code
+    Form, as described in Section 3.1, and You must inform recipients of
+    the Executable Form how they can obtain a copy of such Source Code
+    Form by reasonable means in a timely manner, at a charge no more
+    than the cost of distribution to the recipient; and
+
+(b) You may distribute such Executable Form under the terms of this
+    License, or sublicense it under different terms, provided that the
+    license for the Executable Form does not attempt to limit or alter
+    the recipients' rights in the Source Code Form under this License.
+
+3.3. Distribution of a Larger Work
+
+You may create and distribute a Larger Work under terms of Your choice,
+provided that You also comply with the requirements of this License for
+the Covered Software. If the Larger Work is a combination of Covered
+Software with a work governed by one or more Secondary Licenses, and the
+Covered Software is not Incompatible With Secondary Licenses, this
+License permits You to additionally distribute such Covered Software
+under the terms of such Secondary License(s), so that the recipient of
+the Larger Work may, at their option, further distribute the Covered
+Software under the terms of either this License or such Secondary
+License(s).
+
+3.4. Notices
+
+You may not remove or alter the substance of any license notices
+(including copyright notices, patent notices, disclaimers of warranty,
+or limitations of liability) contained within the Source Code Form of
+the Covered Software, except that You may alter any license notices to
+the extent required to remedy known factual inaccuracies.
+
+3.5. Application of Additional Terms
+
+You may choose to offer, and to charge a fee for, warranty, support,
+indemnity or liability obligations to one or more recipients of Covered
+Software. However, You may do so only on Your own behalf, and not on
+behalf of any Contributor. You must make it absolutely clear that any
+such warranty, support, indemnity, or liability obligation is offered by
+You alone, and You hereby agree to indemnify every Contributor for any
+liability incurred by such Contributor as a result of warranty, support,
+indemnity or liability terms You offer. You may include additional
+disclaimers of warranty and limitations of liability specific to any
+jurisdiction.
+
+4. Inability to Comply Due to Statute or Regulation
+---------------------------------------------------
+
+If it is impossible for You to comply with any of the terms of this
+License with respect to some or all of the Covered Software due to
+statute, judicial order, or regulation then You must: (a) comply with
+the terms of this License to the maximum extent possible; and (b)
+describe the limitations and the code they affect. Such description must
+be placed in a text file included with all distributions of the Covered
+Software under this License. Except to the extent prohibited by statute
+or regulation, such description must be sufficiently detailed for a
+recipient of ordinary skill to be able to understand it.
+
+5. Termination
+--------------
+
+5.1. The rights granted under this License will terminate automatically
+if You fail to comply with any of its terms. However, if You become
+compliant, then the rights granted under this License from a particular
+Contributor are reinstated (a) provisionally, unless and until such
+Contributor explicitly and finally terminates Your grants, and (b) on an
+ongoing basis, if such Contributor fails to notify You of the
+non-compliance by some reasonable means prior to 60 days after You have
+come back into compliance. Moreover, Your grants from a particular
+Contributor are reinstated on an ongoing basis if such Contributor
+notifies You of the non-compliance by some reasonable means, this is the
+first time You have received notice of non-compliance with this License
+from such Contributor, and You become compliant prior to 30 days after
+Your receipt of the notice.
+
+5.2. If You initiate litigation against any entity by asserting a patent
+infringement claim (excluding declaratory judgment actions,
+counter-claims, and cross-claims) alleging that a Contributor Version
+directly or indirectly infringes any patent, then the rights granted to
+You by any and all Contributors for the Covered Software under Section
+2.1 of this License shall terminate.
+
+5.3. In the event of termination under Sections 5.1 or 5.2 above, all
+end user license agreements (excluding distributors and resellers) which
+have been validly granted by You or Your distributors under this License
+prior to termination shall survive termination.
+
+************************************************************************
+*                                                                      *
+*  6. Disclaimer of Warranty                                           *
+*  -------------------------                                           *
+*                                                                      *
+*  Covered Software is provided under this License on an "as is"       *
+*  basis, without warranty of any kind, either expressed, implied, or  *
+*  statutory, including, without limitation, warranties that the       *
+*  Covered Software is free of defects, merchantable, fit for a        *
+*  particular purpose or non-infringing. The entire risk as to the     *
+*  quality and performance of the Covered Software is with You.        *
+*  Should any Covered Software prove defective in any respect, You     *
+*  (not any Contributor) assume the cost of any necessary servicing,   *
+*  repair, or correction. This disclaimer of warranty constitutes an   *
+*  essential part of this License. No use of any Covered Software is   *
+*  authorized under this License except under this disclaimer.         *
+*                                                                      *
+************************************************************************
+
+************************************************************************
+*                                                                      *
+*  7. Limitation of Liability                                          *
+*  --------------------------                                          *
+*                                                                      *
+*  Under no circumstances and under no legal theory, whether tort      *
+*  (including negligence), contract, or otherwise, shall any           *
+*  Contributor, or anyone who distributes Covered Software as          *
+*  permitted above, be liable to You for any direct, indirect,         *
+*  special, incidental, or consequential damages of any character      *
+*  including, without limitation, damages for lost profits, loss of    *
+*  goodwill, work stoppage, computer failure or malfunction, or any    *
+*  and all other commercial damages or losses, even if such party      *
+*  shall have been informed of the possibility of such damages. This   *
+*  limitation of liability shall not apply to liability for death or   *
+*  personal injury resulting from such party's negligence to the       *
+*  extent applicable law prohibits such limitation. Some               *
+*  jurisdictions do not allow the exclusion or limitation of           *
+*  incidental or consequential damages, so this exclusion and          *
+*  limitation may not apply to You.                                    *
+*                                                                      *
+************************************************************************
+
+8. Litigation
+-------------
+
+Any litigation relating to this License may be brought only in the
+courts of a jurisdiction where the defendant maintains its principal
+place of business and such litigation shall be governed by laws of that
+jurisdiction, without reference to its conflict-of-law provisions.
+Nothing in this Section shall prevent a party's ability to bring
+cross-claims or counter-claims.
+
+9. Miscellaneous
+----------------
+
+This License represents the complete agreement concerning the subject
+matter hereof. If any provision of this License is held to be
+unenforceable, such provision shall be reformed only to the extent
+necessary to make it enforceable. Any law or regulation which provides
+that the language of a contract shall be construed against the drafter
+shall not be used to construe this License against a Contributor.
+
+10. Versions of the License
+---------------------------
+
+10.1. New Versions
+
+Mozilla Foundation is the license steward. Except as provided in Section
+10.3, no one other than the license steward has the right to modify or
+publish new versions of this License. Each version will be given a
+distinguishing version number.
+
+10.2. Effect of New Versions
+
+You may distribute the Covered Software under the terms of the version
+of the License under which You originally received the Covered Software,
+or under the terms of any subsequent version published by the license
+steward.
+
+10.3. Modified Versions
+
+If you create software not governed by this License, and you want to
+create a new license for such software, you may create and use a
+modified version of this License if you rename the license and remove
+any references to the name of the license steward (except to note that
+such modified license differs from this License).
+
+10.4. Distributing Source Code Form that is Incompatible With Secondary
+Licenses
+
+If You choose to distribute Source Code Form that is Incompatible With
+Secondary Licenses under the terms of this version of the License, the
+notice described in Exhibit B of this License must be attached.
+
+Exhibit A - Source Code Form License Notice
+-------------------------------------------
+
+  This Source Code Form is subject to the terms of the Mozilla Public
+  License, v. 2.0. If a copy of the MPL was not distributed with this
+  file, You can obtain one at http://mozilla.org/MPL/2.0/.
+
+If it is not possible or desirable to put the notice in a particular
+file, then You may include the notice in a location (such as a LICENSE
+file in a relevant directory) where a recipient would be likely to look
+for such a notice.
+
+You may add additional accurate notices of copyright ownership.
+
+Exhibit B - "Incompatible With Secondary Licenses" Notice
+---------------------------------------------------------
+
+  This Source Code Form is "Incompatible With Secondary Licenses", as
+  defined by the Mozilla Public License, v. 2.0.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/README Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/contrib Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/contrib/jenkins.sh Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/include Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/include/gsup_protocol.hrl Added

@@ -0,0 +1,230 @@
+% This Source Code Form is subject to the terms of the Mozilla Public
+% License, v. 2.0. If a copy of the MPL was not distributed with this
+% file, You can obtain one at https://mozilla.org/MPL/2.0/.
+% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
+% (C) 2019 Fairwaves (edited) 
+% (C) 2019 Harald Welte <laforge@gnumonks.org>
+
+-ifndef(GSUP_PROTOCOL).
+-define(GSUP_PROTOCOL, true).
+
+-type 'GSUPMessageType'() :: location_upd_req
+                  | location_upd_err
+                  | location_upd_res
+                  | send_auth_info_req
+                  | send_auth_info_err
+                  | send_auth_info_res
+                  | auth_failure_report
+                  | purge_ms_req
+                  | purge_ms_err
+                  | purge_ms_res
+                  | insert_sub_data_req
+                  | insert_sub_data_err
+                  | insert_sub_data_res
+                  | delete_sub_data_req
+                  | delete_sub_data_err
+                  | delete_sub_data_res
+                  | location_cancellation_req
+                  | location_cancellation_err
+                  | location_cancellation_res
+                  | ss_req
+                  | ss_err
+                  | ss_res
+                  | mo_forward_sm_req
+                  | mo_forward_sm_err
+                  | mo_forward_sm_res
+                  | mt_forward_sm_req
+                  | mt_forward_sm_err
+                  | mt_forward_sm_res
+                  | ready_for_sm_req
+                  | ready_for_sm_err
+                  | ready_for_sm_res
+                  | check_imei_req
+                  | check_imei_err
+                  | check_imei_res
+                  | e_prepare_handover_req
+                  | e_prepare_handover_err
+                  | e_prepare_handover_res
+                  | e_prepare_subseq_handover_req
+                  | e_prepare_subseq_handover_err
+                  | e_prepare_subseq_handover_res
+                  | e_send_end_signal_req
+                  | e_send_end_signal_err
+                  | e_send_end_signal_res
+                  | e_process_access_signalling_req
+                  | e_forward_access_signalling_req
+                  | e_close
+                  | e_abort
+                  | e_routing_err.
+
+-type 'GSUPRatType'() :: rat_unknown | rat_geran_a | rat_utran_iu | rat_eutran_sgs.
+
+-type 'GSUPAuthTuple'() :: #{
+  rand := binary(),
+  sres := binary(),
+  kc := binary(),
+  ik => binary(),
+  ck => binary(),
+  autn => binary(),
+  res => binary()
+}.
+
+-type 'GSUPPdpInfo'() :: #{
+  pdp_context_id => integer(),
+  pdp_type => integer(),
+  access_point_name => binary(),
+  quality_of_service => binary(),
+  pdp_charging => integer()
+}.
+
+-type 'GSUPMessage'() :: #{
+  message_type := 'GSUPMessageType'(),
+  imsi := binary(),
+  cause => integer(),
+  auth_tuples => 'GSUPAuthTuple'(),
+  pdp_info_complete => true,
+  pdp_info_list => 'GSUPPdpInfo'(),
+  cancellation_type => integer(),
+  freeze_p_tmsi => true,  
+  msisdn => binary(),
+  hlr_number => binary(),
+  pdp_context_id => integer(),
+  pdp_charging => integer(),
+  rand => binary(),
+  auts => binary(),
+  cn_domain => integer(),
+  supported_rat_types => 'GSUPRatType'(),
+  current_rat_type => 'GSUPRatType'(),
+  session_id => integer(),
+  session_state => integer(),
+  ss_info => binary(),
+  sm_rp_mr => integer(),
+  sm_rp_da => binary(),
+  sm_rp_oa => binary(),
+  sm_rp_ui => binary(),
+  sm_rp_cause => integer(),
+  sm_rp_mms => integer(),
+  sm_alert_reason => integer(),
+  imei => binary(),
+  imei_check_result => integer(),
+  num_vectors_req => integer(),
+  message_class => integer(),
+  source_name => binary(),
+  destination_name => binary(),
+  an_apdu => binary(),
+  rr_cause => integer(),
+  session_management_cause => integer(),
+  bssap_cause => integer()
+}.
+
+-define(SESSION_STATE_BEGIN, 1).
+-define(SESSION_STATE_CONTINUE, 2).
+-define(SESSION_STATE_END, 3).
+
+-define(IMSI, 16#01).
+-define(CAUSE, 16#02).
+-define(AUTH_TUPLE, 16#03).
+-define(PDP_INFO_COMPLETE, 16#04).
+-define(PDP_INFO, 16#05).
+-define(CANCELLATION_TYPE, 16#06).
+-define(FREEZE_P_TMSI, 16#07).
+-define(MSISDN, 16#08).
+-define(HLR_NUMBER, 16#09).
+-define(MESSAGE_CLASS, 16#0a).
+-define(PDP_CONTEXT_ID, 16#10).
+-define(PDP_TYPE, 16#11).
+-define(ACCESS_POINT_NAME, 16#12).
+-define(QUALITY_OF_SERVICE, 16#13).
+-define(PDP_CHARGING, 16#14).
+-define(RAND, 16#20).
+-define(SRES, 16#21).
+-define(KC, 16#22).
+-define(IK, 16#23).
+-define(CK, 16#24).
+-define(AUTN, 16#25).
+-define(AUTS, 16#26).
+-define(RES, 16#27).
+-define(CN_DOMAIN, 16#28).
+-define(SUPPORTED_RAT_TYPES, 16#29).
+-define(CURRENT_RAT_TYPE, 16#2a).
+-define(SESSION_ID, 16#30).
+-define(SESSION_STATE, 16#31).
+-define(SS_INFO, 16#35).
+-define(SM_RP_MR, 16#40).
+-define(SM_RP_DA, 16#41).
+-define(SM_RP_OA, 16#42).
+-define(SM_RP_UI, 16#43).
+-define(SM_RP_CAUSE, 16#44).
+-define(SM_RP_MMS, 16#45).
+-define(SM_ALERT_REASON, 16#46).
+-define(IMEI, 16#50).
+-define(IMEI_CHECK_RESULT, 16#51).
+-define(NUM_VECTORS_REQ, 16#52).
+-define(SOURCE_NAME, 16#60).
+-define(DESTINATION_NAME, 16#61).
+-define(AN_APDU, 16#62).
+-define(RR_CAUSE, 16#63).
+-define(BSSAP_CAUSE, 16#64).
+-define(SESSION_MANAGEMENT_CAUSE, 16#65).
+
+-define(MANDATORY_DEFAULT, imsi, message_type).
+
+-define(OPTIONAL_DEFAULT, message_class, source_name, destination_name).
+
+-define (GSUP_MESSAGES(), #{
+  16#04 => #{message_type => location_upd_req, mandatory => , optional => cn_domain},
+  16#05 => #{message_type => location_upd_err, mandatory => cause},
+  16#06 => #{message_type => location_upd_res, mandatory => , optional => msisdn, hlr_number, pdp_info_complete, pdp_info_list, pdp_charging},
+  16#08 => #{message_type => send_auth_info_req, mandatory => , optional => cn_domain, auts, rand, supported_rat_types, current_rat_type, num_vectors_req},
+  16#09 => #{message_type => send_auth_info_err, mandatory => cause},
+  16#0a => #{message_type => send_auth_info_res, mandatory => , optional => auth_tuples, auts, rand},
+  16#0b => #{message_type => auth_failure_report, mandatory => , optional => cn_domain},
+  16#0c => #{message_type => purge_ms_req, mandatory => , optional => cn_domain, hlr_number},
+  16#0d => #{message_type => purge_ms_err, mandatory => cause},
+  16#0e => #{message_type => purge_ms_res, mandatory => freeze_p_tmsi},
+  16#10 => #{message_type => insert_sub_data_req, mandatory => , optional => cn_domain, msisdn, hlr_number, pdp_info_complete, pdp_info_list, pdp_charging},
+  16#11 => #{message_type => insert_sub_data_err, mandatory => cause},
+  16#12 => #{message_type => insert_sub_data_res, mandatory => },
+  16#14 => #{message_type => delete_sub_data_req, mandatory => , optional => cn_domain, pdp_context_id},
+  16#15 => #{message_type => delete_sub_data_err, mandatory => cause},
+  16#16 => #{message_type => delete_sub_data_res, mandatory => },
+  16#1c => #{message_type => location_cancellation_req, mandatory => , optional => cn_domain, cancellation_type},
+  16#1d => #{message_type => location_cancellation_err, mandatory => cause},
+  16#1e => #{message_type => location_cancellation_res, mandatory => , optional => cn_domain},
+  16#20 => #{message_type => ss_req, mandatory => session_id, session_state, optional => ss_info},
+  16#21 => #{message_type => ss_err, mandatory => session_id, session_state, cause},
+  16#22 => #{message_type => ss_res, mandatory => session_id, session_state, optional => ss_info},
+  16#24 => #{message_type => mo_forward_sm_req, mandatory => sm_rp_mr, sm_rp_da, sm_rp_oa, sm_rp_ui},
+  16#25 => #{message_type => mo_forward_sm_err, mandatory => sm_rp_mr, sm_rp_cause, optional => sm_rp_ui},
+  16#26 => #{message_type => mo_forward_sm_res, mandatory => sm_rp_mr, optional => sm_rp_ui},
+  16#28 => #{message_type => mt_forward_sm_req, mandatory => sm_rp_mr, sm_rp_da, sm_rp_oa, sm_rp_ui, optional => sm_rp_mms},
+  16#29 => #{message_type => mt_forward_sm_err, mandatory => sm_rp_mr, sm_rp_cause, optional => sm_rp_ui},
+  16#2a => #{message_type => mt_forward_sm_res, mandatory => sm_rp_mr, optional => sm_rp_ui},
+  16#2c => #{message_type => ready_for_sm_req, mandatory => sm_rp_mr, sm_alert_reason},
+  16#2d => #{message_type => ready_for_sm_err, mandatory => sm_rp_mr, sm_rp_cause, optional => sm_rp_ui},
+  16#2e => #{message_type => ready_for_sm_res, mandatory => sm_rp_mr},
+  16#30 => #{message_type => check_imei_req, mandatory => imei},
+  16#31 => #{message_type => check_imei_err, mandatory => cause},
+  16#32 => #{message_type => check_imei_res, mandatory => imei_check_result},
+  16#34 => #{message_type => e_prepare_handover_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
+  16#35 => #{message_type => e_prepare_handover_err, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state, bssap_cause},
+  16#36 => #{message_type => e_prepare_handover_res, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
+  16#38 => #{message_type => e_prepare_subseq_handover_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
+  16#39 => #{message_type => e_prepare_subseq_handover_err, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state, bssap_cause},
+  16#3a => #{message_type => e_prepare_subseq_handover_res, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
+  16#3c => #{message_type => e_send_end_signal_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
+  16#3d => #{message_type => e_send_end_signal_err, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state, bssap_cause},
+  16#3e => #{message_type => e_send_end_signal_res, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
+  16#40 => #{message_type => e_process_access_signalling_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
+  16#44 => #{message_type => e_forward_access_signalling_req, mandatory => message_class, source_name, destination_name, an_apdu, session_id, session_state},
+  16#47 => #{message_type => e_close, mandatory => message_class, source_name, destination_name, session_id, session_state},
+  16#4b => #{message_type => e_abort, mandatory => message_class, session_id, session_state, bssap_cause},
+  16#4e => #{message_type => e_routing_err, mandatory => message_class, source_name, destination_name, optional => session_id, session_state}
+}).
+
+-define(AUTH_TUPLE_MANDATORY, rand, sres, kc).
+-define(AUTH_TUPLE_OPTIONAL, ik, ck, autn, res).
+-define(PDP_INFO_MANDATORY, ).
+-define(PDP_INFO_OPTIONAL, pdp_context_id, pdp_type, access_point_name, quality_of_service, pdp_charging).
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/include/ipa.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/rebar.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/rebar.lock Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/src/gsup_protocol.erl Added

@@ -0,0 +1,628 @@
+% This Source Code Form is subject to the terms of the Mozilla Public
+% License, v. 2.0. If a copy of the MPL was not distributed with this
+% file, You can obtain one at https://mozilla.org/MPL/2.0/.
+% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
+% (C) 2019 Fairwaves (edited) 
+
+-module(gsup_protocol).
+
+-include ("gsup_protocol.hrl").
+-include ("ipa.hrl").
+
+-export(decode/1, encode/1, decode_bcd/1, encode_bcd/1).
+-export_type('GSUPMessage'/0, 'GSUPMessageType'/0).
+
+-define (CHECK_SIZE(IE, Len, Value),
+  Value >= 0 andalso Value < (1 bsl (Len * 8)) orelse error({ie_value_length_mismatch, IE, Value})
+  ).
+
+-define (CHECK_LEN(IE, Len, Min, Max),
+  Len >= Min andalso Len =< Max orelse error({ie_length_mismatch, IE, Len})
+  ).
+
+-ifdef (TEST).
+-export (encode_ie/2, decode_ie/2).
+-endif.
+
+-spec decode(binary()) -> 'GSUPMessage'() | no_return().
+decode(<<MsgType, Tail/binary>>) ->
+  case ?GSUP_MESSAGES() of
+    #{MsgType := #{message_type := MsgTypeAtom, mandatory := Mandatory0}} ->
+      GSUPMessage = decode_ie(Tail, #{message_type => MsgTypeAtom}),
+      Mandatory = Mandatory0 ++ ?MANDATORY_DEFAULT,
+      case maps:size(maps:with(Mandatory, GSUPMessage)) == length(Mandatory) of
+        true -> GSUPMessage;
+        false -> error({mandatory_ie_missing, MsgTypeAtom, Mandatory -- maps:keys(GSUPMessage)})
+      end;
+    _ -> 
+      error({unknown_gsup_msg_type, MsgType})
+  end.
+
+decode_ie(<<>>, Map) -> Map;
+
+decode_ie(<<?IMSI, Len, IMSI:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(imsi, Len, 0, 8),
+  decode_ie(Tail, Map#{imsi => decode_bcd(IMSI, <<>>)});
+
+decode_ie(<<?CAUSE, Len, Cause:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(cause, Len, 1, 1),
+  decode_ie(Tail, Map#{cause => Cause});
+
+decode_ie(<<?AUTH_TUPLE, Len, AuthTuple0:Len/binary, Tail/binary>>, Map) ->
+  List = maps:get(auth_tuples, Map, ),
+  ?CHECK_LEN(auth_tuples, length(List) + 1, 1, 5),
+  AuthTuple = decode_auth_tuple(AuthTuple0, #{}),
+  check_auth_tuple(AuthTuple) orelse error({bad_auth_tuple, AuthTuple}),
+  decode_ie(Tail, Map#{auth_tuples => List ++ AuthTuple});
+
+decode_ie(<<?PDP_INFO_COMPLETE, Len, _:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(pdp_info_complete, Len, 0, 0),
+  decode_ie(Tail, Map#{pdp_info_complete => true});
+
+decode_ie(<<?PDP_INFO, Len, PDPInfo0:Len/binary, Tail/binary>>, Map) ->
+  List = maps:get(pdp_info_list, Map, ),
+  ?CHECK_LEN(pdp_info_list, length(List) + 1, 1, 10),
+  PDPInfo = decode_pdp_info(PDPInfo0, #{}),
+  check_pdp_info(PDPInfo) orelse error({bad_pdp_info, PDPInfo}),
+  decode_ie(Tail, Map#{pdp_info_list => List ++ PDPInfo});
+
+decode_ie(<<?CANCELLATION_TYPE, Len, CancellationType:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(cancellation_type, Len, 1, 1),
+  decode_ie(Tail, Map#{cancellation_type => CancellationType});
+
+decode_ie(<<?FREEZE_P_TMSI, Len, _:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(freeze_p_tmsi, Len, 0, 0),
+  decode_ie(Tail, Map#{freeze_p_tmsi => true});
+
+decode_ie(<<?MSISDN, Len, MSISDN:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(msisdn, Len, 0, 8),
+  decode_ie(Tail, Map#{msisdn => MSISDN});
+
+decode_ie(<<?HLR_NUMBER, Len, HLRNumber:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(hlr_number, Len, 0, 8),
+  decode_ie(Tail, Map#{hlr_number => HLRNumber});
+
+decode_ie(<<?MESSAGE_CLASS, Len, MessageClass:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(message_class, Len, 1, 1),
+  decode_ie(Tail, Map#{message_class => MessageClass});
+
+decode_ie(<<?PDP_CONTEXT_ID, Len, PDPContextId:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(pdp_context_id, Len, 1, 1),
+  List = maps:get(pdp_context_id, Map, ),
+  ?CHECK_LEN(pdp_context_id_list, length(List) + 1, 1, 10),
+  decode_ie(Tail, Map#{pdp_context_id => List ++ PDPContextId});
+
+decode_ie(<<?PDP_CHARGING, Len, PDPCharging:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(pdp_charging, Len, 2, 2),
+  decode_ie(Tail, Map#{pdp_charging => PDPCharging});
+
+decode_ie(<<?RAND, Len, Rand:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(rand, Len, 16, 16),
+  decode_ie(Tail, Map#{rand => Rand});
+
+decode_ie(<<?AUTS, Len, AUTS:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(auts, Len, 14, 14),
+  decode_ie(Tail, Map#{auts => AUTS});
+
+decode_ie(<<?CN_DOMAIN, Len, CN_Domain:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(cn_domain, Len, 1, 1),
+  decode_ie(Tail, Map#{cn_domain => CN_Domain});
+
+decode_ie(<<?SUPPORTED_RAT_TYPES, Len, Rat_Type:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(supported_rat_types, Len, 1, 8),
+  decode_ie(Tail, Map#{supported_rat_types => decode_rat_types(binary_to_list(Rat_Type))});
+
+decode_ie(<<?CURRENT_RAT_TYPE, Len, Rat_Type:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(current_rat_type, Len, 1, 1),
+  decode_ie(Tail, Map#{current_rat_type => decode_rat_type(Rat_Type)});
+
+decode_ie(<<?SESSION_ID, Len, SesID:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(session_id, Len, 4, 4),
+  decode_ie(Tail, Map#{session_id => SesID});
+
+decode_ie(<<?SESSION_STATE, Len, SesState:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(session_state, Len, 1, 1),
+  decode_ie(Tail, Map#{session_state => SesState});
+
+decode_ie(<<?SS_INFO, Len, SesInfo:Len/binary, Tail/binary>>, Map) ->
+  decode_ie(Tail, Map#{ss_info => SesInfo});
+
+decode_ie(<<?SM_RP_MR, Len, MsgRef:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(sm_rp_mr, Len, 1, 1),
+  decode_ie(Tail, Map#{sm_rp_mr => MsgRef});
+
+decode_ie(<<?SM_RP_DA, Len, DA:Len/binary, Tail/binary>>, Map) ->
+  decode_ie(Tail, Map#{sm_rp_da => DA});
+
+decode_ie(<<?SM_RP_OA, Len, OA:Len/binary, Tail/binary>>, Map) ->
+  decode_ie(Tail, Map#{sm_rp_oa => OA});
+
+decode_ie(<<?SM_RP_UI, Len, MessageBody:Len/binary, Tail/binary>>, Map) ->
+  decode_ie(Tail, Map#{sm_rp_ui => MessageBody});
+
+decode_ie(<<?SM_RP_CAUSE, Len, RPCause:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(sm_rp_cause, Len, 1, 1),
+  decode_ie(Tail, Map#{sm_rp_cause => RPCause});
+
+decode_ie(<<?SM_RP_MMS, Len, RPMMS:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(sm_rp_mms, Len, 1, 1),
+  decode_ie(Tail, Map#{sm_rp_mms => RPMMS});
+
+decode_ie(<<?SM_ALERT_REASON, Len, AlertReason:Len/unit:8, Tail/binary>>, Map) ->
+  decode_ie(Tail, Map#{sm_alert_reason => AlertReason});
+
+decode_ie(<<?IMEI, Len, IMEI:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(imei, Len, 9, 9),
+  decode_ie(Tail, Map#{imei => IMEI});
+
+decode_ie(<<?IMEI_CHECK_RESULT, Len, IMEIResult:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(imei_check_result, Len, 1, 1),
+  decode_ie(Tail, Map#{imei_check_result => IMEIResult});
+
+decode_ie(<<?NUM_VECTORS_REQ, Len, NumVectorsRequest:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(num_vectors_req, Len, 1, 1),
+  decode_ie(Tail, Map#{num_vectors_req => NumVectorsRequest});
+
+decode_ie(<<?SOURCE_NAME, Len, SourceName:Len/binary, Tail/binary>>, Map) ->
+  decode_ie(Tail, Map#{source_name => SourceName});
+
+decode_ie(<<?DESTINATION_NAME, Len, DestName:Len/binary, Tail/binary>>, Map) ->
+  decode_ie(Tail, Map#{destination_name => DestName});
+
+decode_ie(<<?AN_APDU, Len, AN_APDU:Len/binary, Tail/binary>>, Map) ->
+  decode_ie(Tail, Map#{an_apdu => AN_APDU});
+
+decode_ie(<<?RR_CAUSE, Len, RRCause:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(rr_cause, Len, 1, 1),
+  decode_ie(Tail, Map#{rr_cause => RRCause});
+
+decode_ie(<<?BSSAP_CAUSE, Len, BSSAPCause:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(bssap_cause, Len, 1, 1),
+  decode_ie(Tail, Map#{bssap_cause => BSSAPCause});
+
+decode_ie(<<?SESSION_MANAGEMENT_CAUSE, Len, SMCause:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(session_management_cause, Len, 1, 1),
+  decode_ie(Tail, Map#{session_management_cause => SMCause});
+
+decode_ie(<<_, Len, _:Len/binary, Tail/binary>>, Map) -> %% skip unknown IE
+  decode_ie(Tail, Map);
+
+decode_ie(X, Map) ->
+  error({cannot_decode_ie, X, Map}).
+
+-spec decode_bcd(binary()) -> binary().
+decode_bcd(BCDNumber) -> decode_bcd(BCDNumber, <<>>).
+
+decode_bcd(<<>>, Number) -> Number;
+
+decode_bcd(<<A:4, B:4, Tail/binary>>, Number) when A < 15, B < 15 ->
+  decode_bcd(Tail, <<Number/binary, (decode_nibble(B)), (decode_nibble(A))>>);
+
+decode_bcd(<<_:4, B:4, _Tail/binary>>, Number) when B < 15 ->
+  <<Number/binary, (decode_nibble(B))>>.
+
+decode_nibble(0) -> $0;
+decode_nibble(1) -> $1;
+decode_nibble(2) -> $2;
+decode_nibble(3) -> $3;
+decode_nibble(4) -> $4;
+decode_nibble(5) -> $5;
+decode_nibble(6) -> $6;
+decode_nibble(7) -> $7;
+decode_nibble(8) -> $8;
+decode_nibble(9) -> $9;
+decode_nibble(10) -> $*;
+decode_nibble(11) -> $#;
+decode_nibble(12) -> $a;
+decode_nibble(13) -> $b;
+decode_nibble(14) -> $c.
+
+decode_auth_tuple(<<?RAND, Len, Rand:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(rand, Len, 16, 16),
+  decode_auth_tuple(Tail, Map#{rand => Rand});
+
+decode_auth_tuple(<<?SRES, Len, SRES:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(sres, Len, 4, 4),
+  decode_auth_tuple(Tail, Map#{sres => SRES});
+
+decode_auth_tuple(<<?KC, Len, KC:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(kc, Len, 8, 8),
+  decode_auth_tuple(Tail, Map#{kc => KC});
+
+decode_auth_tuple(<<?IK, Len, IK:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(ik, Len, 16, 16),
+  decode_auth_tuple(Tail, Map#{ik => IK});
+
+decode_auth_tuple(<<?CK, Len, CK:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(ck, Len, 16, 16),
+  decode_auth_tuple(Tail, Map#{ck => CK});
+
+decode_auth_tuple(<<?AUTN, Len, AUTN:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(autn, Len, 16, 16),
+  decode_auth_tuple(Tail, Map#{autn => AUTN});
+
+decode_auth_tuple(<<?RES, Len, Res:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(res, Len, 0, 16),
+  decode_auth_tuple(Tail, Map#{res => Res});
+
+decode_auth_tuple(<<>>, Map) -> Map.
+
+decode_pdp_info(<<?PDP_CONTEXT_ID, Len, PDPContextId:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(pdp_context_id, Len, 1, 1),
+  decode_pdp_info(Tail, Map#{pdp_context_id => PDPContextId});
+
+decode_pdp_info(<<?PDP_TYPE, Len, PDPType:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(pdp_type, Len, 2, 2),
+  decode_pdp_info(Tail, Map#{pdp_type => PDPType});
+
+decode_pdp_info(<<?ACCESS_POINT_NAME, Len, APN:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(access_point_name, Len, 1, 100),
+  decode_pdp_info(Tail, Map#{access_point_name => APN});
+
+decode_pdp_info(<<?QUALITY_OF_SERVICE, Len, QOS:Len/binary, Tail/binary>>, Map) ->
+  ?CHECK_LEN(quality_of_service, Len, 1, 20),
+  decode_pdp_info(Tail, Map#{quality_of_service => QOS});
+
+decode_pdp_info(<<?PDP_CHARGING, Len, PDPCharging:Len/unit:8, Tail/binary>>, Map) ->
+  ?CHECK_LEN(pdp_charging, Len, 2, 2),
+  decode_pdp_info(Tail, Map#{pdp_charging => PDPCharging});
+
+decode_pdp_info(<<>>, Map) -> Map.
+
+decode_rat_type(0) -> rat_unknown;
+decode_rat_type(1) -> rat_geran_a;
+decode_rat_type(2) -> rat_utran_iu;
+decode_rat_type(3) -> rat_eutran_sgs.
+
+decode_rat_types(, Acc) -> lists:reverse(Acc);
+decode_rat_types(Head|Tail, Acc) ->
+	T = decode_rat_type(Head),
+	decode_rat_types(Tail, T|Acc).
+decode_rat_types(List) -> decode_rat_types(List, ).
+
+-spec encode('GSUPMessage'()) -> binary() | no_return().
+encode(GSUPMessage = #{message_type := MsgTypeAtom}) when is_atom(MsgTypeAtom) ->
+  F = fun
+    (MsgType_, #{message_type := MsgTypeAtom_}, undefined) when MsgTypeAtom_ == MsgTypeAtom -> MsgType_;
+    (_, _, Acc) -> Acc
+  end,
+  case maps:fold(F, undefined, ?GSUP_MESSAGES()) of
+    undefined -> error({unknown_message_type, MsgTypeAtom}), MsgType = undefined;
+    MsgType when is_integer(MsgType) -> ok
+  end,
+  encode(MsgType, GSUPMessage).
+
+encode(MsgType, GSUPMessage) when is_integer(MsgType), is_map(GSUPMessage), MsgType >=0, MsgType =< 255 ->
+  case ?GSUP_MESSAGES() of
+    #{MsgType := #{message_type := MsgTypeAtom, mandatory := Mandatory0} = Map} ->
+      Mandatory = Mandatory0 ++ ?MANDATORY_DEFAULT,
+      Possible = Mandatory ++ maps:get(optional, Map, ) ++ ?OPTIONAL_DEFAULT,
+      case {maps:size(maps:with(Mandatory, GSUPMessage)) == length(Mandatory),
+            maps:size(maps:without(Possible, GSUPMessage)) == 0} of
+        {true, true} -> 
+          Tail = encode_ie(GSUPMessage, <<>>),
+          <<MsgType, Tail/binary>>;
+        {false, _} -> error({mandatory_ie_missing, MsgTypeAtom, Mandatory -- maps:keys(GSUPMessage)});
+        {_, false} -> error({ie_not_expected, MsgTypeAtom, maps:keys(GSUPMessage) -- Possible})
+      end;
+    _ -> 
+      error({unknown_gsup_msg_type, MsgType})
+  end.
+
+encode_ie(#{imsi := Value0} = GSUPMessage, Head) ->
+  Value = encode_bcd(Value0, <<>>),
+  Len = size(Value),
+  ?CHECK_LEN(imsi, Len, 0, 8),
+  encode_ie(maps:without(imsi, GSUPMessage), <<Head/binary, ?IMSI, Len, Value/binary>>);
+
+encode_ie(#{cause := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(cause, Len, Value),
+  encode_ie(maps:without(cause, GSUPMessage), <<Head/binary, ?CAUSE, Len, Value:Len/unit:8>>);
+
+encode_ie(#{auth_tuples := Tuples0} = GSUPMessage, Head) ->
+  ?CHECK_LEN(auth_tuples, length(Tuples0), 0, 5),
+  Tuples = <<
+    begin
+      check_auth_tuple(Tuple) orelse error({bad_auth_tuple, Tuple}),
+      Value = encode_auth_tuple(Tuple, <<>>),
+      Len = size(Value),
+      <<?AUTH_TUPLE, Len, Value/binary>>
+    end || Tuple <- Tuples0>>,
+  encode_ie(maps:without(auth_tuples, GSUPMessage), <<Head/binary, Tuples/binary>>);
+
+encode_ie(#{msisdn := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  ?CHECK_LEN(msisdn, Len, 0, 8),
+  encode_ie(maps:without(msisdn, GSUPMessage), <<Head/binary, ?MSISDN, Len, Value/binary>>);
+
+encode_ie(#{hlr_number := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  ?CHECK_LEN(hlr_number, Len, 0, 8),
+  encode_ie(maps:without(hlr_number, GSUPMessage), <<Head/binary, ?HLR_NUMBER, Len, Value/binary>>);
+
+encode_ie(#{pdp_info_complete := true} = GSUPMessage, Head) ->
+  encode_ie(maps:without(pdp_info_complete, GSUPMessage), <<Head/binary, ?PDP_INFO_COMPLETE, 0>>);
+
+encode_ie(#{pdp_info_complete := _} = _GSUPMessage, _Head) ->
+  error(pdp_info_complete_must_be_true);
+
+encode_ie(#{pdp_info_list := PDPInfoList0} = GSUPMessage, Head) -> %% PDPInfo
+  ?CHECK_LEN(pdp_info_list, length(PDPInfoList0), 0, 10),
+  PDPInfoList = <<
+    begin
+      check_pdp_info(PDPInfo) orelse error({bad_pdp_info, PDPInfo}),
+      Value = encode_pdp_info(PDPInfo, <<>>),
+      Len = size(Value),
+      <<?PDP_INFO, Len, Value/binary>>
+    end || PDPInfo <- PDPInfoList0>>,
+  encode_ie(maps:without(pdp_info_list, GSUPMessage), <<Head/binary, PDPInfoList/binary>>);
+
+encode_ie(#{cancellation_type := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(cancellation_type, Len, Value),
+  encode_ie(maps:without(cancellation_type, GSUPMessage), <<Head/binary, ?CANCELLATION_TYPE, Len, Value:Len/unit:8>>);
+
+encode_ie(#{freeze_p_tmsi := true} = GSUPMessage, Head) ->
+  encode_ie(maps:without(freeze_p_tmsi, GSUPMessage), <<Head/binary, ?FREEZE_P_TMSI, 0>>);
+
+encode_ie(#{freeze_p_tmsi := _} = _GSUPMessage, _Head) ->
+  error(freeze_p_tmsi_must_be_true);
+
+encode_ie(#{session_id := Value} = GSUPMessage, Head) ->
+  Len = 4,
+  ?CHECK_SIZE(session_id, Len, Value),
+  encode_ie(maps:without(session_id, GSUPMessage), <<Head/binary, ?SESSION_ID, Len, Value:Len/unit:8>>);
+
+encode_ie(#{session_state := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(session_state, Len, Value),
+  encode_ie(maps:without(session_state, GSUPMessage), <<Head/binary, ?SESSION_STATE, Len, Value:Len/unit:8>>);
+
+encode_ie(#{message_class := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(message_class, Len, Value),
+  encode_ie(maps:without(message_class, GSUPMessage), <<Head/binary, ?MESSAGE_CLASS, Len, Value:Len/unit:8>>);
+
+encode_ie(#{pdp_context_id := PDPCIdList0} = GSUPMessage, Head) ->
+  Len = 1,
+  PDPCIdList = <<
+    begin
+      ?CHECK_SIZE(pdp_context_id, Len, Value),
+      <<?PDP_CONTEXT_ID, Len, Value:Len/unit:8>>
+    end || Value <- PDPCIdList0>>,
+  encode_ie(maps:without(pdp_context_id, GSUPMessage), <<Head/binary, PDPCIdList/binary>>);
+
+encode_ie(#{pdp_charging := Value} = GSUPMessage, Head) ->
+  Len = 2,
+  ?CHECK_SIZE(pdp_charging, Len, Value),
+  encode_ie(maps:without(pdp_charging, GSUPMessage), <<Head/binary, ?PDP_CHARGING, Len, Value:Len/unit:8>>);
+
+encode_ie(#{auts := Value} = GSUPMessage, Head) ->
+  Len = 14,
+  ?CHECK_LEN(auts, size(Value), Len, Len),
+  encode_ie(maps:without(auts, GSUPMessage), <<Head/binary, ?AUTS, Len, Value:Len/binary>>);
+
+encode_ie(#{rand := Value} = GSUPMessage, Head) ->
+  Len = 16,
+  ?CHECK_LEN(rand, size(Value), Len, Len),
+  encode_ie(maps:without(rand, GSUPMessage), <<Head/binary, ?RAND, Len, Value:Len/binary>>);
+
+encode_ie(#{cn_domain := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(cn_domain, Len, Value),
+  encode_ie(maps:without(cn_domain, GSUPMessage), <<Head/binary, ?CN_DOMAIN, Len, Value:Len/unit:8>>);
+
+encode_ie(#{supported_rat_types := Value} = GSUPMessage, Head) when is_list(Value) ->
+  Len = length(Value),
+  ?CHECK_LEN(supported_rat_types, Len, 1, 8),
+  RatList = encode_rat_types(Value),
+  encode_ie(maps:without(supported_rat_types, GSUPMessage), <<Head/binary, ?SUPPORTED_RAT_TYPES, Len, RatList/binary>>);
+
+encode_ie(#{current_rat_type := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_LEN(current_rat_type, Len, 1, 1),
+  Rat = encode_rat_type(Value),
+  encode_ie(maps:without(current_rat_type, GSUPMessage), <<Head/binary, ?CURRENT_RAT_TYPE, Len, Rat:Len/unit:8>>);
+
+encode_ie(#{ss_info := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  encode_ie(maps:without(ss_info, GSUPMessage), <<Head/binary, ?SS_INFO, Len, Value/binary>>);
+
+encode_ie(#{sm_rp_mr := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(sm_rp_mr, Len, Value),
+  encode_ie(maps:without(sm_rp_mr, GSUPMessage), <<Head/binary, ?SM_RP_MR, Len, Value:Len/unit:8>>);
+
+encode_ie(#{sm_rp_da := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  encode_ie(maps:without(sm_rp_da, GSUPMessage), <<Head/binary, ?SM_RP_DA, Len, Value/binary>>);
+
+encode_ie(#{sm_rp_oa := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  encode_ie(maps:without(sm_rp_oa, GSUPMessage), <<Head/binary, ?SM_RP_OA, Len, Value/binary>>);
+
+encode_ie(#{sm_rp_ui := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  encode_ie(maps:without(sm_rp_ui, GSUPMessage), <<Head/binary, ?SM_RP_UI, Len, Value/binary>>);
+
+encode_ie(#{sm_rp_cause := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(sm_rp_cause, Len, Value),
+  encode_ie(maps:without(sm_rp_cause, GSUPMessage), <<Head/binary, ?SM_RP_CAUSE, Len, Value:Len/unit:8>>);
+
+encode_ie(#{sm_rp_mms := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(sm_rp_mms, Len, Value),
+  encode_ie(maps:without(sm_rp_mms, GSUPMessage), <<Head/binary, ?SM_RP_MMS, Len, Value:Len/unit:8>>);
+
+encode_ie(#{sm_alert_reason := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(sm_alert_reason, Len, Value),
+  encode_ie(maps:without(sm_alert_reason, GSUPMessage), <<Head/binary, ?SM_ALERT_REASON, Len, Value:Len/unit:8>>);
+
+encode_ie(#{imei := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  ?CHECK_LEN(imei, Len, 9, 9),
+  encode_ie(maps:without(imei, GSUPMessage), <<Head/binary, ?IMEI, Len, Value/binary>>);
+
+encode_ie(#{imei_check_result := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(imei_check_result, Len, Value),
+  encode_ie(maps:without(imei_check_result, GSUPMessage), <<Head/binary, ?IMEI_CHECK_RESULT, Len, Value:Len/unit:8>>);
+
+encode_ie(#{num_vectors_req := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(num_vectors_req, Len, Value),
+  encode_ie(maps:without(num_vectors_req, GSUPMessage), <<Head/binary, ?NUM_VECTORS_REQ, Len, Value:Len/unit:8>>);
+
+encode_ie(#{source_name := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  encode_ie(maps:without(source_name, GSUPMessage), <<Head/binary, ?SOURCE_NAME, Len, Value/binary>>);
+
+encode_ie(#{destination_name := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  encode_ie(maps:without(destination_name, GSUPMessage), <<Head/binary, ?DESTINATION_NAME, Len, Value/binary>>);
+
+encode_ie(#{an_apdu := Value} = GSUPMessage, Head) ->
+  Len = size(Value),
+  encode_ie(maps:without(an_apdu, GSUPMessage), <<Head/binary, ?AN_APDU, Len, Value/binary>>);
+
+encode_ie(#{rr_cause := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(rr_cause, Len, Value),
+  encode_ie(maps:without(rr_cause, GSUPMessage), <<Head/binary, ?RR_CAUSE, Len, Value:Len/unit:8>>);
+
+encode_ie(#{bssap_cause := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(bssap_cause, Len, Value),
+  encode_ie(maps:without(bssap_cause, GSUPMessage), <<Head/binary, ?BSSAP_CAUSE, Len, Value:Len/unit:8>>);
+
+encode_ie(#{session_management_cause := Value} = GSUPMessage, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(session_management_cause, Len, Value),
+  encode_ie(maps:without(session_management_cause, GSUPMessage), <<Head/binary, ?SESSION_MANAGEMENT_CAUSE, Len, Value:Len/unit:8>>);
+
+encode_ie(_, Head) -> Head.
+
+encode_bcd(BCDNumber) -> encode_bcd(BCDNumber, <<>>).
+
+encode_bcd(<<A, B, Tail/binary>>, BCDNumber) ->
+  encode_bcd(Tail, <<BCDNumber/binary, (encode_nibble(B)):4, (encode_nibble(A)):4>>);
+
+encode_bcd(<<A>>, BCDNumber) ->
+  <<BCDNumber/binary, 16#f:4, (encode_nibble(A)):4>>;
+
+encode_bcd(<<>>, BCDNumber) ->
+  BCDNumber.
+
+encode_nibble($0) -> 0;
+encode_nibble($1) -> 1;
+encode_nibble($2) -> 2;
+encode_nibble($3) -> 3;
+encode_nibble($4) -> 4;
+encode_nibble($5) -> 5;
+encode_nibble($6) -> 6;
+encode_nibble($7) -> 7;
+encode_nibble($8) -> 8;
+encode_nibble($9) -> 9;
+encode_nibble($*) -> 10;
+encode_nibble($#) -> 11;
+encode_nibble($a) -> 12;
+encode_nibble($b) -> 13;
+encode_nibble($c) -> 14;
+encode_nibble($A) -> 12;
+encode_nibble($B) -> 13;
+encode_nibble($C) -> 14;
+encode_nibble(X) -> error({bad_bcd_character, X}).
+
+check_auth_tuple(AuthTuple) ->
+  Mandatory = ?AUTH_TUPLE_MANDATORY,
+  Possible = Mandatory ++ ?AUTH_TUPLE_OPTIONAL,
+  (maps:size(maps:with(Mandatory, AuthTuple)) == length(Mandatory))
+    orelse error({mandatory_ie_missing, auth_tuples, Mandatory -- maps:keys(AuthTuple)}),
+  (maps:size(maps:without(Possible, AuthTuple)) == 0)
+    orelse error({ie_not_expected, auth_tuples, maps:keys(AuthTuple) -- Possible}).
+
+check_pdp_info(PDPInfo) ->
+  Mandatory = ?PDP_INFO_MANDATORY,
+  Possible = Mandatory ++ ?PDP_INFO_OPTIONAL,
+  (maps:size(maps:with(Mandatory, PDPInfo)) == length(Mandatory))
+    orelse error({mandatory_ie_missing, pdp_info_list, Mandatory -- maps:keys(PDPInfo)}),
+  (maps:size(maps:without(Possible, PDPInfo)) == 0)
+    orelse error({ie_not_expected, pdp_info_list, maps:keys(PDPInfo) -- Possible}).
+
+encode_auth_tuple(#{rand := Value} = Map, Head) ->
+  Len = 16,
+  ?CHECK_LEN(rand, size(Value), Len, Len),
+  encode_auth_tuple(maps:without(rand, Map), <<Head/binary, ?RAND, Len, Value:Len/binary>>);
+
+encode_auth_tuple(#{sres := Value} = Map, Head) ->
+  Len = 4,
+  ?CHECK_LEN(sres, size(Value), Len, Len),
+  encode_auth_tuple(maps:without(sres, Map), <<Head/binary, ?SRES, Len, Value:Len/binary>>);
+
+encode_auth_tuple(#{kc := Value} = Map, Head) ->
+  Len = 8,
+  ?CHECK_LEN(kc, size(Value), Len, Len),
+  encode_auth_tuple(maps:without(kc, Map), <<Head/binary, ?KC, Len, Value:Len/binary>>);
+
+encode_auth_tuple(#{ik := Value} = Map, Head) ->
+  Len = 16,
+  ?CHECK_LEN(ik, size(Value), Len, Len),
+  encode_auth_tuple(maps:without(ik, Map), <<Head/binary, ?IK, Len, Value:Len/binary>>);
+
+encode_auth_tuple(#{ck := Value} = Map, Head) ->
+  Len = 16,
+  ?CHECK_LEN(ck, size(Value), Len, Len),
+  encode_auth_tuple(maps:without(ck, Map), <<Head/binary, ?CK, Len, Value:Len/binary>>);
+
+encode_auth_tuple(#{autn := Value} = Map, Head) ->
+  Len = 16,
+  ?CHECK_LEN(autn, size(Value), Len, Len),
+  encode_auth_tuple(maps:without(autn, Map), <<Head/binary, ?AUTN, Len, Value:Len/binary>>);
+
+encode_auth_tuple(#{res := Value} = Map, Head) ->
+  Len = size(Value),
+  ?CHECK_LEN(res, size(Value), Len, Len),
+  encode_auth_tuple(maps:without(res, Map), <<Head/binary, ?RES, Len, Value/binary>>);
+
+encode_auth_tuple(#{}, Head) -> Head.
+
+encode_pdp_info(#{pdp_context_id := Value} = Map, Head) ->
+  Len = 1,
+  ?CHECK_SIZE(pdp_context_id, Len, Value),
+  encode_pdp_info(maps:without(pdp_context_id, Map), <<Head/binary, ?PDP_CONTEXT_ID, Len, Value:Len/unit:8>>);
+
+encode_pdp_info(#{pdp_type := Value} = Map, Head) ->
+  Len = 2,
+  ?CHECK_SIZE(pdp_type, Len, Value),
+  encode_pdp_info(maps:without(pdp_type, Map), <<Head/binary, ?PDP_TYPE, Len, Value:Len/unit:8>>);
+
+encode_pdp_info(#{access_point_name := Value} = Map, Head) ->
+  Len = size(Value),
+  ?CHECK_LEN(access_point_name, Len, 1, 100),
+  encode_pdp_info(maps:without(access_point_name, Map), <<Head/binary, ?ACCESS_POINT_NAME, Len, Value/binary>>);
+
+encode_pdp_info(#{quality_of_service := Value} = Map, Head) ->
+  Len = size(Value),
+  ?CHECK_LEN(quality_of_service, Len, 1, 20),
+  encode_pdp_info(maps:without(quality_of_service, Map), <<Head/binary, ?QUALITY_OF_SERVICE, Len, Value/binary>>);
+
+encode_pdp_info(#{pdp_charging := Value} = Map, Head) ->
+  Len = 2,
+  ?CHECK_SIZE(pdp_charging, Len, Value),
+  encode_pdp_info(maps:without(pdp_charging, Map), <<Head/binary, ?PDP_CHARGING, Len, Value:Len/unit:8>>);
+
+encode_pdp_info(#{}, Head) -> Head.
+
+encode_rat_type(rat_unknown) -> 0;
+encode_rat_type(rat_geran_a) -> 1;
+encode_rat_type(rat_utran_iu) -> 2;
+encode_rat_type(rat_eutran_sgs) -> 3.
+
+encode_rat_types(, Acc) -> list_to_binary(lists:reverse(Acc));
+encode_rat_types(Head|Tail, Acc) ->
+	T = encode_rat_type(Head),
+	encode_rat_types(Tail, T|Acc).
+encode_rat_types(List) -> encode_rat_types(List, ).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/src/ipa.erl Added

@@ -0,0 +1,40 @@
+% This Source Code Form is subject to the terms of the Mozilla Public
+% License, v. 2.0. If a copy of the MPL was not distributed with this
+% file, You can obtain one at https://mozilla.org/MPL/2.0/.
+% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
+% (C) 2019 Fairwaves (edited) 
+
+-module(ipa).
+
+-include ("ipa.hrl").
+
+-export (decode/1, encode/1).
+
+-spec decode(binary()) -> {ok, {binary(), binary()}} | {reply, ping | resp | ack, binary(), binary()} | {more_data, binary()} | {error, term()}.
+decode(<<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_PING, Rest/binary>>) ->
+  {reply, ping, <<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_PONG>>, Rest};
+
+decode(<<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_ID_RESP, Rest/binary>>) ->
+  {reply, resp, <<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_ID_ACK>>, Rest};
+
+decode(<<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_ID_ACK, Rest/binary>>) ->
+  {reply, ack, <<1:16, ?IPAC_PROTO_IPACCESS, ?IPAC_MSGT_ID_GET>>, Rest};
+
+decode(<<PSize:16, ?IPAC_PROTO_OSMO, Packet:PSize/binary, Rest/binary>>) ->
+  case Packet of
+    <<?IPAC_PROTO_EXT_GSUP, Packet1/binary>> ->
+      {ok, {Packet1, Rest}};
+    <<X, _/binary>> ->
+      {error, {bad_protocol_extension, X}}
+  end;
+
+decode(<<_PSize:16, X, _, _/binary>>) when X /= ?IPAC_PROTO_OSMO ->
+  {error, {bad_stream_id, X}};
+
+decode(Rest) ->
+  {more_data, Rest}.
+
+-spec encode(binary()) -> binary().
+encode(Packet) ->
+  Len = size(Packet) + 1,
+  <<Len:16, ?IPAC_PROTO_OSMO, ?IPAC_PROTO_EXT_GSUP, Packet/binary>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/src/osmo_gsup.app.src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/test Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/test/gsup_encode_decode_test.erl Added

@@ -0,0 +1,707 @@
+% This Source Code Form is subject to the terms of the Mozilla Public
+% License, v. 2.0. If a copy of the MPL was not distributed with this
+% file, You can obtain one at https://mozilla.org/MPL/2.0/.
+% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
+% (C) 2019 Fairwaves (edited) 
+
+-module (gsup_encode_decode_test).
+
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TEST_IMSI_IE, 16#01, 16#08, 16#21, 16#43, 16#65, 16#87, 16#09, 16#21, 16#43, 16#f5).
+-define(TEST_MSISDN_IE, 16#08, 16#07, 16#91, 16#94, 16#61, 16#46, 16#32, 16#24, 16#43).
+-define(TEST_CLASS_SUBSCR_IE, 16#0a, 16#01, 16#01).
+-define(TEST_CLASS_INTER_MSC_IE, 16#0a, 16#01, 16#04).
+-define(TEST_AN_APDU_IE, 16#62, 16#05, 16#01, 16#42, 16#42, 16#42, 16#42).
+-define(TEST_SOURCE_NAME_IE, 16#60, 16#05, "MSC-A").
+-define(TEST_DESTINATION_NAME_IE, 16#61, 16#05, "MSC-B").
+-define(TEST_SUPP_RAT_TYPES_IE, 16#29, 16#02, 16#01, 16#03).
+-define(TEST_CURR_RAT_TYPE_LTE_IE, 16#2a, 16#01, 16#03).
+
+
+missing_params_test() ->
+  ?assertError({mandatory_ie_missing,location_cancellation_err,cause}, gsup_protocol:decode(<<16#1d, ?TEST_IMSI_IE>>)),
+  ?assertError({mandatory_ie_missing,mo_forward_sm_req,sm_rp_mr,sm_rp_da,sm_rp_oa,sm_rp_ui}, gsup_protocol:encode(#{message_type => mo_forward_sm_req, imsi => <<"123456">>})).
+
+excess_params_test() ->
+  ?assertError({ie_not_expected,location_upd_err,pdp_info_complete}, gsup_protocol:encode(#{message_type => location_upd_err,imsi => <<"1234">>,cause => 1,pdp_info_complete => <<>>})).
+
+ie_size_test() ->
+  ?assertEqual(#{cause => 255}, gsup_protocol:decode_ie(<<2,1,255>>, #{})),
+  ?assertError({ie_length_mismatch,cause,2}, gsup_protocol:decode_ie(<<2,2,0,0>>, #{})),
+
+  ?assertError({ie_value_length_mismatch,cause,-1}, gsup_protocol:encode_ie(#{cause => -1}, <<>>)),
+  ?assertEqual(<<2,1,255>>, gsup_protocol:encode_ie(#{cause => 255}, <<>>)),
+  ?assertError({ie_value_length_mismatch,cause,256}, gsup_protocol:encode_ie(#{cause => 256}, <<>>)),
+  ?assertEqual(<<20,2,255,255>>, gsup_protocol:encode_ie(#{pdp_charging => 16#ffff}, <<>>)),
+  ?assertError({ie_value_length_mismatch,pdp_charging,16#10000}, gsup_protocol:encode_ie(#{pdp_charging => 16#10000}, <<>>)),
+  ?assertEqual(<<48,4,255,255,255,255>>, gsup_protocol:encode_ie(#{session_id => 16#ffffffff}, <<>>)),
+  ?assertError({ie_value_length_mismatch,session_id,16#100000000}, gsup_protocol:encode_ie(#{session_id => 16#100000000}, <<>>)).
+
+sai_req_test() ->
+  Bin = <<16#08, ?TEST_IMSI_IE, ?TEST_CLASS_SUBSCR_IE>>,
+  Map = #{imsi => <<"123456789012345">>, message_class => 1, message_type => send_auth_info_req},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+sai_req_num_test() ->
+  Bin = <<16#08, ?TEST_IMSI_IE, ?TEST_CLASS_SUBSCR_IE, 16#52, 16#01, 16#02>>,
+  Map = #{imsi => <<"123456789012345">>,
+          message_class => 1,
+          message_type => send_auth_info_req,
+          num_vectors_req => 2},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+sai_req_eps_test() ->
+  Bin = <<16#08, ?TEST_IMSI_IE, ?TEST_CLASS_SUBSCR_IE, ?TEST_SUPP_RAT_TYPES_IE, ?TEST_CURR_RAT_TYPE_LTE_IE>>,
+  Map = #{imsi => <<"123456789012345">>, message_class => 1, message_type => send_auth_info_req,
+	  supported_rat_types => rat_geran_a, rat_eutran_sgs, current_rat_type => rat_eutran_sgs},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+sai_err_test() ->
+  Bin = <<16#09, ?TEST_IMSI_IE, 16#02, 16#01, 16#07>>,
+  Map = #{imsi => <<"123456789012345">>, message_type => send_auth_info_err, cause=>7},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+sai_res_test() ->
+  Bin = <<16#0a, ?TEST_IMSI_IE, 
+    16#03, 16#22, %% Auth tuple
+      16#20, 16#10,
+        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
+        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
+      16#21, 16#04,
+        16#21, 16#22, 16#23, 16#24,
+      16#22, 16#08,
+        16#31, 16#32, 16#33, 16#34, 16#35, 16#36, 16#37, 16#38,
+    16#03, 16#22, %% Auth tuple
+      16#20, 16#10,
+        16#81, 16#82, 16#83, 16#84, 16#85, 16#86, 16#87, 16#88,
+        16#89, 16#8a, 16#8b, 16#8c, 16#8d, 16#8e, 16#8f, 16#90,
+      16#21, 16#04,
+        16#a1, 16#a2, 16#a3, 16#a4,
+      16#22, 16#08,
+        16#b1, 16#b2, 16#b3, 16#b4, 16#b5, 16#b6, 16#b7, 16#b8
+  >>,
+  Map = #{auth_tuples =>
+                       #{kc => <<16#31, 16#32, 16#33, 16#34, 16#35, 16#36, 16#37, 16#38>>,
+                          rand => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
+                          sres => <<16#21, 16#22, 16#23, 16#24>>},
+                        #{kc => <<16#b1, 16#b2, 16#b3, 16#b4, 16#b5, 16#b6, 16#b7, 16#b8>>,
+                          rand =>
+                              <<129,130,131,132,133,134,135,136,137,138,139,
+                                140,141,142,143,144>>,
+                          sres => <<16#a1, 16#a2, 16#a3, 16#a4>>},
+                   imsi => <<"123456789012345">>,
+                   message_type => send_auth_info_res},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+sai_res_umts_test() ->
+  Bin = <<16#0a, ?TEST_IMSI_IE, 
+    16#03, 16#62, %% Auth tuple
+      16#20, 16#10, %% rand
+        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
+        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
+      16#21, 16#04, %% sres
+        16#21, 16#22, 16#23, 16#24,
+      16#22, 16#08, %% kc
+        16#31, 16#32, 16#33, 16#34, 16#35, 16#36, 16#37, 16#38,
+      16#23, 16#10, %% IK (UMTS)
+        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
+        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
+      16#24, 16#10, %% CK (UMTS)
+        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
+        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
+      16#25, 16#10, %% AUTN (UMTS)
+        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
+        16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10,
+      16#27, 16#08, %% RES (UMTS)
+        16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
+    16#03, 16#62, %% Auth tuple
+      16#20, 16#10, %% rand
+        16#a1, 16#a2, 16#a3, 16#a4, 16#a5, 16#a6, 16#a7, 16#a8,
+        16#a9, 16#aa, 16#ab, 16#ac, 16#ad, 16#ae, 16#af, 16#10,
+      16#21, 16#04, %% sres
+        16#b1, 16#b2, 16#b3, 16#b4,
+      16#22, 16#08, %% kc
+        16#c1, 16#c2, 16#c3, 16#c4, 16#c5, 16#c6, 16#c7, 16#c8,
+      16#23, 16#10, %% IK (UMTS)
+        16#d1, 16#d2, 16#d3, 16#d4, 16#d5, 16#d6, 16#d7, 16#d8,
+        16#d9, 16#da, 16#db, 16#dc, 16#dd, 16#de, 16#df, 16#d0,
+      16#24, 16#10, %% CK (UMTS)
+        16#e1, 16#e2, 16#e3, 16#e4, 16#e5, 16#e6, 16#e7, 16#e8,
+        16#e9, 16#ea, 16#eb, 16#ec, 16#ed, 16#ee, 16#ef, 16#e0,
+      16#25, 16#10, %%AUTN (UMTS)
+        16#f1, 16#f2, 16#f3, 16#f4, 16#f5, 16#f6, 16#f7, 16#f8,
+        16#f9, 16#fa, 16#fb, 16#fc, 16#fd, 16#fe, 16#ff, 16#f0,
+      16#27, 16#08,  %%RES (UMTS)
+        16#91, 16#92, 16#93, 16#94, 16#95, 16#96, 16#97, 16#98
+  >>,
+  Map = #{auth_tuples =>
+                       #{autn => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
+                          ck => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
+                          ik => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
+                          kc => <<"12345678">>,
+                          rand => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>,
+                          res => <<1,2,3,4,5,6,7,8>>,
+                          sres => <<16#21, 16#22, 16#23, 16#24>>},
+                        #{autn => <<16#f1, 16#f2, 16#f3, 16#f4, 16#f5, 16#f6, 16#f7, 16#f8,
+                                  16#f9, 16#fa, 16#fb, 16#fc, 16#fd, 16#fe, 16#ff, 16#f0>>,
+                          ck => <<16#e1, 16#e2, 16#e3, 16#e4, 16#e5, 16#e6, 16#e7, 16#e8,
+                                  16#e9, 16#ea, 16#eb, 16#ec, 16#ed, 16#ee, 16#ef, 16#e0>>,
+                          ik => <<16#d1, 16#d2, 16#d3, 16#d4, 16#d5, 16#d6, 16#d7, 16#d8,
+                                  16#d9, 16#da, 16#db, 16#dc, 16#dd, 16#de, 16#df, 16#d0>>,
+                          kc => <<16#c1, 16#c2, 16#c3, 16#c4, 16#c5, 16#c6, 16#c7, 16#c8>>,
+                          rand =>
+                              <<161,162,163,164,165,166,167,168,169,170,171,
+                                172,173,174,175,16>>,
+                          res => <<145,146,147,148,149,150,151,152>>,
+                          sres => <<16#b1, 16#b2, 16#b3, 16#b4>>},
+                   imsi => <<"123456789012345">>,
+                   message_type => send_auth_info_res},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+sai_res_auts_test() ->
+  Bin = <<16#0a, ?TEST_IMSI_IE, 
+    16#26, 16#0e, %% AUTS (UMTS)
+      16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
+      16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e,
+    16#20, 16#10, %% rand
+      16#01, 16#02, 16#03, 16#04, 16#05, 16#06, 16#07, 16#08,
+      16#09, 16#0a, 16#0b, 16#0c, 16#0d, 16#0e, 16#0f, 16#10
+  >>,
+  Map = #{auts => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14>>,
+                   imsi => <<"123456789012345">>,
+                   message_type => send_auth_info_res,
+                   rand => <<1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+lu_req_test() ->
+  Bin = <<16#04, ?TEST_IMSI_IE>>,
+  Map = #{imsi => <<"123456789012345">>, message_type => location_upd_req},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+lu_err_test() ->
+  Bin = <<16#05, ?TEST_IMSI_IE, 16#02, 16#01, 16#07>>,
+  Map = #{imsi => <<"123456789012345">>, message_type => location_upd_err, cause=>7},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+lu_res_test() ->
+  Bin = <<16#06, ?TEST_IMSI_IE, ?TEST_MSISDN_IE,
+    16#09, 16#07, %% HLR-Number of the subscriber
+      16#91, 16#83, 16#52, 16#38, 16#48, 16#83, 16#93,
+    16#04, 16#00, %% PDP info complete
+    16#05, 16#19,
+      16#10, 16#01, 16#01,
+      16#11, 16#02, 16#f1, 16#21, %% IPv4
+      16#12, 16#09, 16#04, "test", 16#03, "apn",
+      16#13, 16#01, 16#02,
+      16#14, 16#02, 16#FF, 16#23,
+    16#05, 16#11,
+      16#10, 16#01, 16#02,
+      16#11, 16#02, 16#f1, 16#21, %% IPv4
+      16#12, 16#08, 16#03, "foo", 16#03, "apn",
+    16#14, 16#02,
+      16#AE, 16#FF
+  >>,
+  Map = #{hlr_number => <<145,131,82,56,72,131,147>>,
+                   imsi => <<"123456789012345">>,
+                   message_type => location_upd_res,
+                   msisdn => <<145,148,97,70,50,36,67>>,
+                   pdp_charging => 44799,pdp_info_complete => true,
+                   pdp_info_list =>
+                       #{access_point_name =>
+                              <<4,116,101,115,116,3,97,112,110>>,
+                          pdp_charging => 65315,pdp_context_id => 1,
+                          pdp_type => 61729,
+                          quality_of_service => <<2>>},
+                        #{access_point_name => <<3,102,111,111,3,97,112,110>>,
+                          pdp_context_id => 2,pdp_type => 61729}},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+lc_req_test() ->
+  Bin = <<16#1c, ?TEST_IMSI_IE, 16#06, 16#01, 16#00>>,
+  Map = #{imsi => <<"123456789012345">>, message_type => location_cancellation_req, cancellation_type => 0},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+lc_err_test() ->
+  Bin = <<16#1d, ?TEST_IMSI_IE, 16#02, 16#01, 16#03>>,
+  Map = #{imsi => <<"123456789012345">>, message_type => location_cancellation_err, cause=>3},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+lc_res_test() ->
+  Bin = <<16#1e, ?TEST_IMSI_IE>>,
+  Map = #{imsi => <<"123456789012345">>, message_type => location_cancellation_res},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+purge_ms_req_test() ->
+  Bin = <<16#0c, ?TEST_IMSI_IE>>,
+  Map = #{imsi => <<"123456789012345">>, message_type => purge_ms_req},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+purge_ms_err_test() ->
+  Bin = <<16#0d, ?TEST_IMSI_IE, 16#02, 16#01, 16#03>>,
+  Map = #{imsi => <<"123456789012345">>, message_type => purge_ms_err, cause=>3},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+purge_ms_res_test() ->
+  Bin = <<16#0e, ?TEST_IMSI_IE, 16#07, 16#00>>,
+  Map = #{imsi => <<"123456789012345">>, message_type => purge_ms_res, freeze_p_tmsi => true},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+% dummy_session_test() ->
+%   Bin = <<16#2b, ?TEST_IMSI_IE, %% Session ID and state
+%     16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+%     16#31, 16#01, 16#01
+%   >>,
+%   Map = #{imsi => <<"123456789012345">>},
+%   ?assertEqual(Map, gsup_protocol:decode(Bin)),
+%   ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+ussd_req_test() ->
+  Bin = <<16#20, ?TEST_IMSI_IE, %% Session ID and state
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#01,
+
+    %% SS/USSD information IE
+    16#35, 16#14,
+      %% ASN.1 encoded MAP payload
+      16#a1, 16#12,
+        16#02, 16#01, %% Component: invoke
+        16#01, %% invokeID = 1
+        %% opCode: processUnstructuredSS-Request
+        16#02, 16#01, 16#3b, 16#30, 16#0a, 16#04, 16#01, 16#0f,
+        16#04, 16#05, 16#aa, 16#18, 16#0c, 16#36, 16#02
+  >>,
+  Map = #{imsi => <<"123456789012345">>,message_type => ss_req,
+                   session_id => 3735928559,session_state => 1,
+                   ss_info =>
+                       <<161,18,2,1,1,2,1,59,48,10,4,1,15,4,5,170,24,12,54,2>>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+ussd_res_test() ->
+  Bin = <<16#22, ?TEST_IMSI_IE, %% Session ID and state
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#03,
+
+    %% SS/USSD information IE
+    16#35, 16#08,
+      %% ASN.1 encoded MAP payload
+      16#a3, 16#06,
+        16#02, 16#01, %% Component: returnError
+        16#01, %% invokeID = 1
+        %% localValue: unknownAlphabet
+        16#02, 16#01, 16#47
+  >>,
+  Map = #{imsi => <<"123456789012345">>,message_type => ss_res,
+                   session_id => 3735928559,session_state => 3,
+                   ss_info => <<163,6,2,1,1,2,1,71>>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+mo_forward_sm_req_test() ->
+  Bin = <<16#24, ?TEST_IMSI_IE, %% SM related IEs
+    16#40, 16#01, %% SM-RP-MR (Message Reference)
+      16#fa,
+    16#41, 16#08, %% SM-RP-DA (Destination Address)
+      16#03, %% SMSC address
+        16#91, 16#52, 16#75, 16#47, 16#99, 16#09, 16#82,
+    16#42, 16#01, %% SM-RP-OA (Originating Address)
+      16#ff, %% Special case: noSM-RP-OA
+    16#43, 16#04, %% SM-RP-UI (TPDU)
+      16#de, 16#ad, 16#be, 16#ef
+  >>,
+  Map = #{imsi => <<"123456789012345">>,
+                   message_type => mo_forward_sm_req,
+                   sm_rp_da => <<3,145,82,117,71,153,9,130>>,
+                   sm_rp_mr => 250,sm_rp_oa => <<16#ff>>,sm_rp_ui => <<16#de, 16#ad, 16#be, 16#ef>>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+mt_forward_sm_req_test() ->
+  Bin = <<16#28, ?TEST_IMSI_IE, %% SM related IEs
+    16#40, 16#01, %% SM-RP-MR (Message Reference)
+      16#fa,
+    16#41, 16#09, %% SM-RP-DA (Destination Address)
+      16#01, %% IMSI
+        16#21, 16#43, 16#65, 16#87, 16#09, 16#21, 16#43, 16#f5,
+    16#42, 16#08, %% SM-RP-OA (Originating Address)
+      16#03, %% SMSC address
+        16#91, 16#52, 16#75, 16#47, 16#99, 16#09, 16#82,
+    16#43, 16#04, %% SM-RP-UI (TPDU)
+      16#de, 16#ad, 16#be, 16#ef,
+    16#45, 16#01, %% SM-RP-MMS (More Messages to Send)
+      16#01
+  >>,
+  Map = #{imsi => <<"123456789012345">>,
+                   message_type => mt_forward_sm_req,
+                   sm_rp_da => <<1,33,67,101,135,9,33,67,245>>,
+                   sm_rp_mms => 1,sm_rp_mr => 250,
+                   sm_rp_oa => <<3,145,82,117,71,153,9,130>>,
+                   sm_rp_ui => <<16#de, 16#ad, 16#be, 16#ef>>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+mo_forward_sm_err_test() ->
+  Bin = <<16#25, ?TEST_IMSI_IE, %% SM related IEs
+    16#40, 16#01, %% SM-RP-MR (Message Reference)
+      16#fa,
+    16#44, 16#01, %% SM-RP-Cause value
+      16#af
+  >>,
+  Map = #{imsi => <<"123456789012345">>,
+                   message_type => mo_forward_sm_err,sm_rp_cause => 175,
+                   sm_rp_mr => 250},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+mt_forward_sm_res_test() ->
+  Bin = <<16#2a, ?TEST_IMSI_IE, %% SM related IEs
+    16#40, 16#01, %% SM-RP-MR (Message Reference)
+      16#fa,
+    16#43, 16#04, %% SM-RP-UI (TPDU)
+      16#de, 16#ad, 16#be, 16#ef
+  >>,
+  Map = #{imsi => <<"123456789012345">>,
+                   message_type => mt_forward_sm_res,sm_rp_mr => 250,
+                   sm_rp_ui => <<16#de, 16#ad, 16#be, 16#ef>>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+ready_for_sm_req_test() ->
+  Bin = <<16#2c, ?TEST_IMSI_IE,
+    16#40, 16#01, %% SM-RP-MR
+      16#41,
+    16#46, 16#01, %% Alert reason
+      16#02
+  >>,
+  Map = #{imsi => <<"123456789012345">>,
+                   message_type => ready_for_sm_req,
+                   sm_rp_mr => 65,
+                   sm_alert_reason => 2},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+check_imei_req_test() ->
+  Bin = <<16#30, ?TEST_IMSI_IE,
+    16#50, 16#09, %% IMEI
+      16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42
+  >>,
+  Map = #{imei => <<16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42, 16#42>>,imsi => <<"123456789012345">>,
+                   message_type => check_imei_req},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+check_imei_err_test() ->
+  Bin = <<16#31, ?TEST_IMSI_IE, 16#02, 16#01, 16#60>>,
+  Map = #{cause => 96,imsi => <<"123456789012345">>,
+                   message_type => check_imei_err},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+check_imei_res_test() ->
+  Bin = <<16#32, ?TEST_IMSI_IE,
+    16#51, 16#01,
+      16#00 %% OSMO_GSUP_IMEI_RESULT_ACK
+  >>,
+  Map = #{imei_check_result => 0,imsi => <<"123456789012345">>,
+                   message_type => check_imei_res},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_prepare_handover_req_test() ->
+  Bin = <<16#34, ?TEST_IMSI_IE,
+    %% Session ID and state (begin)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#01,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE %% (Handover Request)
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_prepare_handover_req,
+                   session_id => 3735928559,session_state => 1,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_prepare_handover_err_test() ->
+  Bin = <<16#35, ?TEST_IMSI_IE,
+    %% Session ID and state (continue)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#02,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE, %% (Handover Request) ??? unknown IE
+    %% cause bssap
+    16#64, 16#01, 16#51
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   bssap_cause => 81,destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_prepare_handover_err,
+                   session_id => 3735928559,session_state => 2,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_prepare_handover_res_test() ->
+  Bin = <<16#36, ?TEST_IMSI_IE,
+    %% Session ID and state (continue)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#02,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE %% (Handover Request)
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_prepare_handover_res,
+                   session_id => 3735928559,session_state => 2,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_prepare_subseq_handover_req_test() ->
+  Bin = <<16#38, ?TEST_IMSI_IE,
+    %% Session ID and state (begin)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#01,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE %% (Handover Request)
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_prepare_subseq_handover_req,
+                   session_id => 3735928559,session_state => 1,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_prepare_subseq_handover_err_test() ->
+  Bin = <<16#39, ?TEST_IMSI_IE,
+    %% Session ID and state (continue)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#02,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE, %% (Handover Request) ??? unknown IE
+    %% cause bssap
+    16#64, 16#01, 16#51
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   bssap_cause => 81,destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_prepare_subseq_handover_err,
+                   session_id => 3735928559,session_state => 2,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_prepare_subseq_handover_res_test() ->
+  Bin = <<16#3a, ?TEST_IMSI_IE,
+    %% Session ID and state (continue)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#02,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE %% (Handover Request)
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_prepare_subseq_handover_res,
+                   session_id => 3735928559,session_state => 2,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_send_end_signal_req_test() ->
+  Bin = <<16#3c, ?TEST_IMSI_IE,
+    %% Session ID and state (end)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#03,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE %% (Handover Request)
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_send_end_signal_req,
+                   session_id => 3735928559,session_state => 3,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_send_end_signal_err_test() ->
+  Bin = <<16#3d, ?TEST_IMSI_IE,
+    %% Session ID and state (end)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#03,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE, %% (Handover Request) ??? unknown IE
+    %% cause bssap
+    16#64, 16#01, 16#51
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   bssap_cause => 81,destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_send_end_signal_err,
+                   session_id => 3735928559,session_state => 3,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_send_end_signal_res_test() ->
+  Bin = <<16#3e, ?TEST_IMSI_IE,
+    %% Session ID and state (end)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#03,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE %% (Handover Request)
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_send_end_signal_res,
+                   session_id => 3735928559,session_state => 3,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_process_access_signalling_req_test() ->
+  Bin = <<16#40, ?TEST_IMSI_IE,
+    %% Session ID and state (continue)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#02,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE %% (Handover Request)
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_process_access_signalling_req,
+                   session_id => 3735928559,session_state => 2,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_forward_access_signalling_req_test() ->
+  Bin = <<16#44, ?TEST_IMSI_IE,
+    %% Session ID and state (continue)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#02,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE,
+    ?TEST_AN_APDU_IE %% (Handover Request)
+  >>,
+  Map = #{an_apdu => <<1,66,66,66,66>>,
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_forward_access_signalling_req,
+                   session_id => 3735928559,session_state => 2,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_close_test() ->
+  Bin = <<16#47, ?TEST_IMSI_IE,
+    %% Session ID and state (end)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#03,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE
+  >>,
+  Map = #{
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_close,
+                   session_id => 3735928559,session_state => 3,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_abort_test() ->
+  Bin = <<16#4b, ?TEST_IMSI_IE,
+    %% Session ID and state (end)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#03,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+     %% cause bssap
+    16#64, 16#01, 16#51
+ >>,
+  Map = #{
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   bssap_cause => 81,message_type => e_abort,
+                   session_id => 3735928559,session_state => 3},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+
+e_routing_error_test() ->
+  Bin = <<16#4e, ?TEST_IMSI_IE,
+    %% Session ID and state (end)
+    16#30, 16#04, 16#de, 16#ad, 16#be, 16#ef,
+    16#31, 16#01, 16#03,
+
+    ?TEST_CLASS_INTER_MSC_IE,
+    ?TEST_SOURCE_NAME_IE,
+    ?TEST_DESTINATION_NAME_IE
+  >>,
+  Map = #{
+                   destination_name => <<"MSC-B">>,
+                   imsi => <<"123456789012345">>,message_class => 4,
+                   message_type => e_routing_err,
+                   session_id => 3735928559,session_state => 3,
+                   source_name => <<"MSC-A">>},
+  ?assertEqual(Map, gsup_protocol:decode(Bin)),
+  ?assertEqual(Bin, gsup_protocol:encode(Map)).
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_gsup/test/ipa_encode_decode_test.erl Added

@@ -0,0 +1,25 @@
+% This Source Code Form is subject to the terms of the Mozilla Public
+% License, v. 2.0. If a copy of the MPL was not distributed with this
+% file, You can obtain one at https://mozilla.org/MPL/2.0/.
+% (C) 2019 Andrey Velikiy <agreat22@gmail.com>
+% (C) 2019 Fairwaves (edited) 
+
+-module (ipa_encode_decode_test).
+
+-include_lib("eunit/include/eunit.hrl").
+
+ping_test() ->
+  ?assertEqual({reply, ping, <<00,01,16#fe,01>>,<<>>}, ipa:decode(<<00,01,16#fe,00>>)),
+  ?assertEqual({reply, ack, <<00,01,16#fe,04>>,<<>>}, ipa:decode(<<00,01,16#fe,06>>)),
+  ?assertEqual({reply, resp, <<00,01,16#fe,06>>,<<>>}, ipa:decode(<<00,01,16#fe,05>>)).
+
+more_data_test() ->
+  ?assertEqual({more_data, <<00,01,16#fe>>}, ipa:decode(<<00,01,16#fe>>)),
+  ?assertEqual({more_data, <<00,06,16#ee,5,1,2>>}, ipa:decode(<<00,06,16#ee,5,1,2>>)).
+
+error_test() ->
+  ?assertEqual({error, {bad_stream_id, 255}}, ipa:decode(<<00,01,16#ff,1>>)),
+  ?assertEqual({error, {bad_protocol_extension, 1}}, ipa:decode(<<00,01,16#ee,1>>)).
+
+ok_test() ->
+  ?assertEqual({ok,{<<1,2,3,4,5>>, <<6,7>>}}, ipa:decode(<<00,06,16#ee,5,1,2,3,4,5,6,7>>)).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7 Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/COPYING Added

@@ -0,0 +1,661 @@
+                    GNU AFFERO GENERAL PUBLIC LICENSE
+                       Version 3, 19 November 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+                            Preamble
+
+  The GNU Affero General Public License is a free, copyleft license for
+software and other kinds of works, specifically designed to ensure
+cooperation with the community in the case of network server software.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+our General Public Licenses are intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  Developers that use our General Public Licenses protect your rights
+with two steps: (1) assert copyright on the software, and (2) offer
+you this License which gives you legal permission to copy, distribute
+and/or modify the software.
+
+  A secondary benefit of defending all users' freedom is that
+improvements made in alternate versions of the program, if they
+receive widespread use, become available for other developers to
+incorporate.  Many developers of free software are heartened and
+encouraged by the resulting cooperation.  However, in the case of
+software used on network servers, this result may fail to come about.
+The GNU General Public License permits making a modified version and
+letting the public access it on a server without ever releasing its
+source code to the public.
+
+  The GNU Affero General Public License is designed specifically to
+ensure that, in such cases, the modified source code becomes available
+to the community.  It requires the operator of a network server to
+provide the source code of the modified version running there to the
+users of that server.  Therefore, public use of a modified version, on
+a publicly accessible server, gives the public access to the source
+code of the modified version.
+
+  An older license, called the Affero General Public License and
+published by Affero, was designed to accomplish similar goals.  This is
+a different license, not a version of the Affero GPL, but Affero has
+released a new version of the Affero GPL which permits relicensing under
+this license.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+                       TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU Affero General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondarily liable for
+infringement under applicable copyright law, except executing it on a
+computer or modifying a private copy.  Propagation includes copying,
+distribution (with or without modification), making available to the
+public, and in some countries other activities as well.
+
+  To "convey" a work means any kind of propagation that enables other
+parties to make or receive copies.  Mere interaction with a user through
+a computer network, with no transfer of a copy, is not conveying.
+
+  An interactive user interface displays "Appropriate Legal Notices"
+to the extent that it includes a convenient and prominently visible
+feature that (1) displays an appropriate copyright notice, and (2)
+tells the user that there is no warranty for the work (except to the
+extent that warranties are provided), that licensees may convey the
+work under this License, and how to view a copy of this License.  If
+the interface presents a list of user commands or options, such as a
+menu, a prominent item in the list meets this criterion.
+
+  1. Source Code.
+
+  The "source code" for a work means the preferred form of the work
+for making modifications to it.  "Object code" means any non-source
+form of a work.
+
+  A "Standard Interface" means an interface that either is an official
+standard defined by a recognized standards body, or, in the case of
+interfaces specified for a particular programming language, one that
+is widely used among developers working in that language.
+
+  The "System Libraries" of an executable work include anything, other
+than the work as a whole, that (a) is included in the normal form of
+packaging a Major Component, but which is not part of that Major
+Component, and (b) serves only to enable use of the work with that
+Major Component, or to implement a Standard Interface for which an
+implementation is available to the public in source code form.  A
+"Major Component", in this context, means a major essential component
+(kernel, window system, and so on) of the specific operating system
+(if any) on which the executable work runs, or a compiler used to
+produce the work, or an object code interpreter used to run it.
+
+  The "Corresponding Source" for a work in object code form means all
+the source code needed to generate, install, and (for an executable
+work) run the object code and to modify the work, including scripts to
+control those activities.  However, it does not include the work's
+System Libraries, or general-purpose tools or generally available free
+programs which are used unmodified in performing those activities but
+which are not part of the work.  For example, Corresponding Source
+includes interface definition files associated with source files for
+the work, and the source code for shared libraries and dynamically
+linked subprograms that the work is specifically designed to require,
+such as by intimate data communication or control flow between those
+subprograms and other parts of the work.
+
+  The Corresponding Source need not include anything that users
+can regenerate automatically from other parts of the Corresponding
+Source.
+
+  The Corresponding Source for a work in source code form is that
+same work.
+
+  2. Basic Permissions.
+
+  All rights granted under this License are granted for the term of
+copyright on the Program, and are irrevocable provided the stated
+conditions are met.  This License explicitly affirms your unlimited
+permission to run the unmodified Program.  The output from running a
+covered work is covered by this License only if the output, given its
+content, constitutes a covered work.  This License acknowledges your
+rights of fair use or other equivalent, as provided by copyright law.
+
+  You may make, run and propagate covered works that you do not
+convey, without conditions so long as your license otherwise remains
+in force.  You may convey covered works to others for the sole purpose
+of having them make modifications exclusively for you, or provide you
+with facilities for running those works, provided that you comply with
+the terms of this License in conveying all material for which you do
+not control copyright.  Those thus making or running the covered works
+for you must do so exclusively on your behalf, under your direction
+and control, on terms that prohibit them from making any copies of
+your copyrighted material outside their relationship with you.
+
+  Conveying under any other circumstances is permitted solely under
+the conditions stated below.  Sublicensing is not allowed; section 10
+makes it unnecessary.
+
+  3. Protecting Users' Legal Rights From Anti-Circumvention Law.
+
+  No covered work shall be deemed part of an effective technological
+measure under any applicable law fulfilling obligations under article
+11 of the WIPO copyright treaty adopted on 20 December 1996, or
+similar laws prohibiting or restricting circumvention of such
+measures.
+
+  When you convey a covered work, you waive any legal power to forbid
+circumvention of technological measures to the extent such circumvention
+is effected by exercising rights under this License with respect to
+the covered work, and you disclaim any intention to limit operation or
+modification of the work as a means of enforcing, against the work's
+users, your or third parties' legal rights to forbid circumvention of
+technological measures.
+
+  4. Conveying Verbatim Copies.
+
+  You may convey verbatim copies of the Program's source code as you
+receive it, in any medium, provided that you conspicuously and
+appropriately publish on each copy an appropriate copyright notice;
+keep intact all notices stating that this License and any
+non-permissive terms added in accord with section 7 apply to the code;
+keep intact all notices of the absence of any warranty; and give all
+recipients a copy of this License along with the Program.
+
+  You may charge any price or no price for each copy that you convey,
+and you may offer support or warranty protection for a fee.
+
+  5. Conveying Modified Source Versions.
+
+  You may convey a work based on the Program, or the modifications to
+produce it from the Program, in the form of source code under the
+terms of section 4, provided that you also meet all of these conditions:
+
+    a) The work must carry prominent notices stating that you modified
+    it, and giving a relevant date.
+
+    b) The work must carry prominent notices stating that it is
+    released under this License and any conditions added under section
+    7.  This requirement modifies the requirement in section 4 to
+    "keep intact all notices".
+
+    c) You must license the entire work, as a whole, under this
+    License to anyone who comes into possession of a copy.  This
+    License will therefore apply, along with any applicable section 7
+    additional terms, to the whole of the work, and all its parts,
+    regardless of how they are packaged.  This License gives no
+    permission to license the work in any other way, but it does not
+    invalidate such permission if you have separately received it.
+
+    d) If the work has interactive user interfaces, each must display
+    Appropriate Legal Notices; however, if the Program has interactive
+    interfaces that do not display Appropriate Legal Notices, your
+    work need not make them do so.
+
+  A compilation of a covered work with other separate and independent
+works, which are not by their nature extensions of the covered work,
+and which are not combined with it such as to form a larger program,
+in or on a volume of a storage or distribution medium, is called an
+"aggregate" if the compilation and its resulting copyright are not
+used to limit the access or legal rights of the compilation's users
+beyond what the individual works permit.  Inclusion of a covered work
+in an aggregate does not cause this License to apply to the other
+parts of the aggregate.
+
+  6. Conveying Non-Source Forms.
+
+  You may convey a covered work in object code form under the terms
+of sections 4 and 5, provided that you also convey the
+machine-readable Corresponding Source under the terms of this License,
+in one of these ways:
+
+    a) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by the
+    Corresponding Source fixed on a durable physical medium
+    customarily used for software interchange.
+
+    b) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by a
+    written offer, valid for at least three years and valid for as
+    long as you offer spare parts or customer support for that product
+    model, to give anyone who possesses the object code either (1) a
+    copy of the Corresponding Source for all the software in the
+    product that is covered by this License, on a durable physical
+    medium customarily used for software interchange, for a price no
+    more than your reasonable cost of physically performing this
+    conveying of source, or (2) access to copy the
+    Corresponding Source from a network server at no charge.
+
+    c) Convey individual copies of the object code with a copy of the
+    written offer to provide the Corresponding Source.  This
+    alternative is allowed only occasionally and noncommercially, and
+    only if you received the object code with such an offer, in accord
+    with subsection 6b.
+
+    d) Convey the object code by offering access from a designated
+    place (gratis or for a charge), and offer equivalent access to the
+    Corresponding Source in the same way through the same place at no
+    further charge.  You need not require recipients to copy the
+    Corresponding Source along with the object code.  If the place to
+    copy the object code is a network server, the Corresponding Source
+    may be on a different server (operated by you or a third party)
+    that supports equivalent copying facilities, provided you maintain
+    clear directions next to the object code saying where to find the
+    Corresponding Source.  Regardless of what server hosts the
+    Corresponding Source, you remain obligated to ensure that it is
+    available for as long as needed to satisfy these requirements.
+
+    e) Convey the object code using peer-to-peer transmission, provided
+    you inform other peers where the object code and Corresponding
+    Source of the work are being offered to the general public at no
+    charge under subsection 6d.
+
+  A separable portion of the object code, whose source code is excluded
+from the Corresponding Source as a System Library, need not be
+included in conveying the object code work.
+
+  A "User Product" is either (1) a "consumer product", which means any
+tangible personal property which is normally used for personal, family,
+or household purposes, or (2) anything designed or sold for incorporation
+into a dwelling.  In determining whether a product is a consumer product,
+doubtful cases shall be resolved in favor of coverage.  For a particular
+product received by a particular user, "normally used" refers to a
+typical or common use of that class of product, regardless of the status
+of the particular user or of the way in which the particular user
+actually uses, or expects or is expected to use, the product.  A product
+is a consumer product regardless of whether the product has substantial
+commercial, industrial or non-consumer uses, unless such uses represent
+the only significant mode of use of the product.
+
+  "Installation Information" for a User Product means any methods,
+procedures, authorization keys, or other information required to install
+and execute modified versions of a covered work in that User Product from
+a modified version of its Corresponding Source.  The information must
+suffice to ensure that the continued functioning of the modified object
+code is in no case prevented or interfered with solely because
+modification has been made.
+
+  If you convey an object code work under this section in, or with, or
+specifically for use in, a User Product, and the conveying occurs as
+part of a transaction in which the right of possession and use of the
+User Product is transferred to the recipient in perpetuity or for a
+fixed term (regardless of how the transaction is characterized), the
+Corresponding Source conveyed under this section must be accompanied
+by the Installation Information.  But this requirement does not apply
+if neither you nor any third party retains the ability to install
+modified object code on the User Product (for example, the work has
+been installed in ROM).
+
+  The requirement to provide Installation Information does not include a
+requirement to continue to provide support service, warranty, or updates
+for a work that has been modified or installed by the recipient, or for
+the User Product in which it has been modified or installed.  Access to a
+network may be denied when the modification itself materially and
+adversely affects the operation of the network or violates the rules and
+protocols for communication across the network.
+
+  Corresponding Source conveyed, and Installation Information provided,
+in accord with this section must be in a format that is publicly
+documented (and with an implementation available to the public in
+source code form), and must require no special password or key for
+unpacking, reading or copying.
+
+  7. Additional Terms.
+
+  "Additional permissions" are terms that supplement the terms of this
+License by making exceptions from one or more of its conditions.
+Additional permissions that are applicable to the entire Program shall
+be treated as though they were included in this License, to the extent
+that they are valid under applicable law.  If additional permissions
+apply only to part of the Program, that part may be used separately
+under those permissions, but the entire Program remains governed by
+this License without regard to the additional permissions.
+
+  When you convey a copy of a covered work, you may at your option
+remove any additional permissions from that copy, or from any part of
+it.  (Additional permissions may be written to require their own
+removal in certain cases when you modify the work.)  You may place
+additional permissions on material, added by you to a covered work,
+for which you have or can give appropriate copyright permission.
+
+  Notwithstanding any other provision of this License, for material you
+add to a covered work, you may (if authorized by the copyright holders of
+that material) supplement the terms of this License with terms:
+
+    a) Disclaiming warranty or limiting liability differently from the
+    terms of sections 15 and 16 of this License; or
+
+    b) Requiring preservation of specified reasonable legal notices or
+    author attributions in that material or in the Appropriate Legal
+    Notices displayed by works containing it; or
+
+    c) Prohibiting misrepresentation of the origin of that material, or
+    requiring that modified versions of such material be marked in
+    reasonable ways as different from the original version; or
+
+    d) Limiting the use for publicity purposes of names of licensors or
+    authors of the material; or
+
+    e) Declining to grant rights under trademark law for use of some
+    trade names, trademarks, or service marks; or
+
+    f) Requiring indemnification of licensors and authors of that
+    material by anyone who conveys the material (or modified versions of
+    it) with contractual assumptions of liability to the recipient, for
+    any liability that these contractual assumptions directly impose on
+    those licensors and authors.
+
+  All other non-permissive additional terms are considered "further
+restrictions" within the meaning of section 10.  If the Program as you
+received it, or any part of it, contains a notice stating that it is
+governed by this License along with a term that is a further
+restriction, you may remove that term.  If a license document contains
+a further restriction but permits relicensing or conveying under this
+License, you may add to a covered work material governed by the terms
+of that license document, provided that the further restriction does
+not survive such relicensing or conveying.
+
+  If you add terms to a covered work in accord with this section, you
+must place, in the relevant source files, a statement of the
+additional terms that apply to those files, or a notice indicating
+where to find the applicable terms.
+
+  Additional terms, permissive or non-permissive, may be stated in the
+form of a separately written license, or stated as exceptions;
+the above requirements apply either way.
+
+  8. Termination.
+
+  You may not propagate or modify a covered work except as expressly
+provided under this License.  Any attempt otherwise to propagate or
+modify it is void, and will automatically terminate your rights under
+this License (including any patent licenses granted under the third
+paragraph of section 11).
+
+  However, if you cease all violation of this License, then your
+license from a particular copyright holder is reinstated (a)
+provisionally, unless and until the copyright holder explicitly and
+finally terminates your license, and (b) permanently, if the copyright
+holder fails to notify you of the violation by some reasonable means
+prior to 60 days after the cessation.
+
+  Moreover, your license from a particular copyright holder is
+reinstated permanently if the copyright holder notifies you of the
+violation by some reasonable means, this is the first time you have
+received notice of violation of this License (for any work) from that
+copyright holder, and you cure the violation prior to 30 days after
+your receipt of the notice.
+
+  Termination of your rights under this section does not terminate the
+licenses of parties who have received copies or rights from you under
+this License.  If your rights have been terminated and not permanently
+reinstated, you do not qualify to receive new licenses for the same
+material under section 10.
+
+  9. Acceptance Not Required for Having Copies.
+
+  You are not required to accept this License in order to receive or
+run a copy of the Program.  Ancillary propagation of a covered work
+occurring solely as a consequence of using peer-to-peer transmission
+to receive a copy likewise does not require acceptance.  However,
+nothing other than this License grants you permission to propagate or
+modify any covered work.  These actions infringe copyright if you do
+not accept this License.  Therefore, by modifying or propagating a
+covered work, you indicate your acceptance of this License to do so.
+
+  10. Automatic Licensing of Downstream Recipients.
+
+  Each time you convey a covered work, the recipient automatically
+receives a license from the original licensors, to run, modify and
+propagate that work, subject to this License.  You are not responsible
+for enforcing compliance by third parties with this License.
+
+  An "entity transaction" is a transaction transferring control of an
+organization, or substantially all assets of one, or subdividing an
+organization, or merging organizations.  If propagation of a covered
+work results from an entity transaction, each party to that
+transaction who receives a copy of the work also receives whatever
+licenses to the work the party's predecessor in interest had or could
+give under the previous paragraph, plus a right to possession of the
+Corresponding Source of the work from the predecessor in interest, if
+the predecessor has it or can get it with reasonable efforts.
+
+  You may not impose any further restrictions on the exercise of the
+rights granted or affirmed under this License.  For example, you may
+not impose a license fee, royalty, or other charge for exercise of
+rights granted under this License, and you may not initiate litigation
+(including a cross-claim or counterclaim in a lawsuit) alleging that
+any patent claim is infringed by making, using, selling, offering for
+sale, or importing the Program or any portion of it.
+
+  11. Patents.
+
+  A "contributor" is a copyright holder who authorizes use under this
+License of the Program or a work on which the Program is based.  The
+work thus licensed is called the contributor's "contributor version".
+
+  A contributor's "essential patent claims" are all patent claims
+owned or controlled by the contributor, whether already acquired or
+hereafter acquired, that would be infringed by some manner, permitted
+by this License, of making, using, or selling its contributor version,
+but do not include claims that would be infringed only as a
+consequence of further modification of the contributor version.  For
+purposes of this definition, "control" includes the right to grant
+patent sublicenses in a manner consistent with the requirements of
+this License.
+
+  Each contributor grants you a non-exclusive, worldwide, royalty-free
+patent license under the contributor's essential patent claims, to
+make, use, sell, offer for sale, import and otherwise run, modify and
+propagate the contents of its contributor version.
+
+  In the following three paragraphs, a "patent license" is any express
+agreement or commitment, however denominated, not to enforce a patent
+(such as an express permission to practice a patent or covenant not to
+sue for patent infringement).  To "grant" such a patent license to a
+party means to make such an agreement or commitment not to enforce a
+patent against the party.
+
+  If you convey a covered work, knowingly relying on a patent license,
+and the Corresponding Source of the work is not available for anyone
+to copy, free of charge and under the terms of this License, through a
+publicly available network server or other readily accessible means,
+then you must either (1) cause the Corresponding Source to be so
+available, or (2) arrange to deprive yourself of the benefit of the
+patent license for this particular work, or (3) arrange, in a manner
+consistent with the requirements of this License, to extend the patent
+license to downstream recipients.  "Knowingly relying" means you have
+actual knowledge that, but for the patent license, your conveying the
+covered work in a country, or your recipient's use of the covered work
+in a country, would infringe one or more identifiable patents in that
+country that you have reason to believe are valid.
+
+  If, pursuant to or in connection with a single transaction or
+arrangement, you convey, or propagate by procuring conveyance of, a
+covered work, and grant a patent license to some of the parties
+receiving the covered work authorizing them to use, propagate, modify
+or convey a specific copy of the covered work, then the patent license
+you grant is automatically extended to all recipients of the covered
+work and works based on it.
+
+  A patent license is "discriminatory" if it does not include within
+the scope of its coverage, prohibits the exercise of, or is
+conditioned on the non-exercise of one or more of the rights that are
+specifically granted under this License.  You may not convey a covered
+work if you are a party to an arrangement with a third party that is
+in the business of distributing software, under which you make payment
+to the third party based on the extent of your activity of conveying
+the work, and under which the third party grants, to any of the
+parties who would receive the covered work from you, a discriminatory
+patent license (a) in connection with copies of the covered work
+conveyed by you (or copies made from those copies), or (b) primarily
+for and in connection with specific products or compilations that
+contain the covered work, unless you entered into that arrangement,
+or that patent license was granted, prior to 28 March 2007.
+
+  Nothing in this License shall be construed as excluding or limiting
+any implied license or other defenses to infringement that may
+otherwise be available to you under applicable patent law.
+
+  12. No Surrender of Others' Freedom.
+
+  If conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot convey a
+covered work so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you may
+not convey it at all.  For example, if you agree to terms that obligate you
+to collect a royalty for further conveying from those to whom you convey
+the Program, the only way you could satisfy both those terms and this
+License would be to refrain entirely from conveying the Program.
+
+  13. Remote Network Interaction; Use with the GNU General Public License.
+
+  Notwithstanding any other provision of this License, if you modify the
+Program, your modified version must prominently offer all users
+interacting with it remotely through a computer network (if your version
+supports such interaction) an opportunity to receive the Corresponding
+Source of your version by providing access to the Corresponding Source
+from a network server at no charge, through some standard or customary
+means of facilitating copying of software.  This Corresponding Source
+shall include the Corresponding Source for any work covered by version 3
+of the GNU General Public License that is incorporated pursuant to the
+following paragraph.
+
+  Notwithstanding any other provision of this License, you have
+permission to link or combine any covered work with a work licensed
+under version 3 of the GNU General Public License into a single
+combined work, and to convey the resulting work.  The terms of this
+License will continue to apply to the part which is the covered work,
+but the work with which it is combined will remain governed by version
+3 of the GNU General Public License.
+
+  14. Revised Versions of this License.
+
+  The Free Software Foundation may publish revised and/or new versions of
+the GNU Affero General Public License from time to time.  Such new versions
+will be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+  Each version is given a distinguishing version number.  If the
+Program specifies that a certain numbered version of the GNU Affero General
+Public License "or any later version" applies to it, you have the
+option of following the terms and conditions either of that numbered
+version or of any later version published by the Free Software
+Foundation.  If the Program does not specify a version number of the
+GNU Affero General Public License, you may choose any version ever published
+by the Free Software Foundation.
+
+  If the Program specifies that a proxy can decide which future
+versions of the GNU Affero General Public License can be used, that proxy's
+public statement of acceptance of a version permanently authorizes you
+to choose that version for the Program.
+
+  Later license versions may give you additional or different
+permissions.  However, no additional obligations are imposed on any
+author or copyright holder as a result of your choosing to follow a
+later version.
+
+  15. Disclaimer of Warranty.
+
+  THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
+HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
+OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
+IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+  16. Limitation of Liability.
+
+  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
+THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
+USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
+DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
+EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGES.
+
+  17. Interpretation of Sections 15 and 16.
+
+  If the disclaimer of warranty and limitation of liability provided
+above cannot be given local legal effect according to their terms,
+reviewing courts shall apply local law that most closely approximates
+an absolute waiver of all civil liability in connection with the
+Program, unless a warranty or assumption of liability accompanies a
+copy of the Program in return for a fee.
+
+                     END OF TERMS AND CONDITIONS
+
+            How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+state the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Affero 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 Affero General Public License for more details.
+
+    You should have received a copy of the GNU Affero General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+  If your software can interact with users remotely through a computer
+network, you should also make sure that it provides a way for users to
+get its source.  For example, if your program is a web application, its
+interface could display a "Source" link that leads users to an archive
+of the code.  There are many ways you could offer source, and different
+solutions will be better for different programs; see section 13 for the
+specific requirements.
+
+  You should also get your employer (if you work as a programmer) or school,
+if any, to sign a "copyright disclaimer" for the program, if necessary.
+For more information on this, and how to apply and follow the GNU AGPL, see
+<http://www.gnu.org/licenses/>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/Emakefile Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/contrib Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/contrib/jenkins.sh Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/ebin Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/ebin/.empty Changed

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/ebin/osmo_ss7.app Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/ebin/osmo_ss7.rel Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/bssmap.hrl Added

@@ -0,0 +1,263 @@
+% From libosmocore gsm_08_08.h
+
+% this is from GSM 03.03 CGI but is copied in GSM 08.08
+% in § 3.2.2.27 for Cell Identifier List
+-define(CELL_ID_WHOLE_GLOBAL, 0).
+-define(CELL_ID_LAC_AND_CI, 1).
+-define(CELL_ID_CI, 2).
+-define(CELL_ID_NO_CELL, 3).
+-define(CELL_ID_LAI_AND_LAC, 4).
+-define(CELL_ID_LAC, 5).
+-define(CELL_ID_BSS, 6).
+-define(CELL_ID_UTRAN_PLMN_LAC_RNC, 8).
+-define(CELL_ID_UTRAN_RNC, 9).
+-define(CELL_ID_UTRAN_LAC_RNC, 10).
+
+% GSM 08.06 § 6.3 
+-define(BSSAP_MSG_BSS_MANAGEMENT, 16#0).
+-define(BSSAP_MSG_DTAP, 16#1).
+
+% enum BSSMAP_MSG_TYPE {
+-define(BSSMAP_MSG_RESERVED_0, 0).
+% ASSIGNMENT MESSAGES
+-define(BSSMAP_MSG_ASS_RQST, 1).
+-define(BSSMAP_MSG_ASS_COMPL, 2).
+-define(BSSMAP_MSG_ASS_FAILURE, 3).
+% HANDOVER MESSAGES
+-define(BSSMAP_MSG_HO_REQ, 16).
+-define(BSSMAP_MSG_HO_REQUIRED, 17).
+-define(BSSMAP_MSG_HO_REQ_ACK, 18).
+-define(BSSMAP_MSG_HO_CMD, 19).
+-define(BSSMAP_MSG_HO_COMPL, 20).
+-define(BSSMAP_MSG_HO_SUCCEEDED, 21).
+-define(BSSMAP_MSG_HO_FAILURE, 22).
+-define(BSSMAP_MSG_HO_PERFORMED, 23).
+-define(BSSMAP_MSG_HO_CAND_ENQ, 24).
+-define(BSSMAP_MSG_HO_CAND_RESP, 25).
+-define(BSSMAP_MSG_HO_REQUIRED_REJ, 26).
+-define(BSSMAP_MSG_HO_DETECT, 27).
+% RELEASE MESSAGES 
+-define(BSSMAP_MSG_CLEAR_CMD, 32).
+-define(BSSMAP_MSG_CLEAR_COMPL, 33).
+-define(BSSMAP_MSG_CLEAR_RQST, 34).
+-define(BSSMAP_MSG_RESERVED_1, 35).
+-define(BSSMAP_MSG_RESERVED_2, 36).
+-define(BSSMAP_MSG_SAPI_N_REJ, 37).
+-define(BSSMAP_MSG_CONFUSION, 38).
+% OTHER CONNECTION RELATED MESSAGES
+-define(BSSMAP_MSG_SUSPEND, 40).
+-define(BSSMAP_MSG_RESUME, 41).
+-define(BSSMAP_MSG_CONN_ORIENT_INFO, 42).
+-define(BSSMAP_MSG_PERFORM_LOC_RQST, 43).
+-define(BSSMAP_MSG_LSA_INFORMATION, 44).
+-define(BSSMAP_MSG_PERFORM_LOC_RESPONSE, 45).
+-define(BSSMAP_MSG_PERFORM_LOC_ABORT, 46).
+-define(BSSMAP_MSG_COMMON_ID, 47).
+% GENERAL MESSAGES
+-define(BSSMAP_MSG_RESET, 48).
+-define(BSSMAP_MSG_RESET_ACK, 49).
+-define(BSSMAP_MSG_OVERLOAD, 50).
+-define(BSSMAP_MSG_RESERVED_3, 51).
+-define(BSSMAP_MSG_RESET_CIRC, 52).
+-define(BSSMAP_MSG_RESET_CIRC_ACK, 53).
+-define(BSSMAP_MSG_MSC_INVOKE_TRACE, 54).
+-define(BSSMAP_MSG_BSS_INVOKE_TRACE, 55).
+-define(BSSMAP_MSG_CONN_LESS_INFO, 58).
+% TERRESTRIAL RESOURCE MESSAGES
+-define(BSSMAP_MSG_BLOCK, 64).
+-define(BSSMAP_MSG_BLOCKING_ACK, 65).
+-define(BSSMAP_MSG_UNBLOCK, 66).
+-define(BSSMAP_MSG_UNBLOCKING_ACK, 67).
+-define(BSSMAP_MSG_CIRC_GROUP_BLOCK, 68).
+-define(BSSMAP_MSG_CIRC_GROUP_BLOCKING_ACK, 69).
+-define(BSSMAP_MSG_CIRC_GROUP_UNBLOCK, 70).
+-define(BSSMAP_MSG_CIRC_GROUP_UNBLOCKING_ACK, 71).
+-define(BSSMAP_MSG_UNEQUIPPED_CIRCUIT, 72).
+-define(BSSMAP_MSG_CHANGE_CIRCUIT, 78).
+-define(BSSMAP_MSG_CHANGE_CIRCUIT_ACK, 79).
+% RADIO RESOURCE MESSAGES
+-define(BSSMAP_MSG_RESOURCE_RQST, 80).
+-define(BSSMAP_MSG_RESOURCE_INDICATION, 81).
+-define(BSSMAP_MSG_PAGING, 82).
+-define(BSSMAP_MSG_CIPHER_MODE_CMD, 83).
+-define(BSSMAP_MSG_CLASSMARK_UPDATE, 84).
+-define(BSSMAP_MSG_CIPHER_MODE_COMPL, 85).
+-define(BSSMAP_MSG_QUEUING_INDICATION, 86).
+-define(BSSMAP_MSG_COMPL_LAYER_3, 87).
+-define(BSSMAP_MSG_CLASSMARK_RQST, 88).
+-define(BSSMAP_MSG_CIPHER_MODE_REJ, 89).
+-define(BSSMAP_MSG_LOAD_INDICATION, 90).
+% VGCS/VBS
+-define(BSSMAP_MSG_VGCS_VBS_SETUP, 4).
+-define(BSSMAP_MSG_VGCS_VBS_SETUP_ACK, 5).
+-define(BSSMAP_MSG_VGCS_VBS_SETUP_REFUSE, 6).
+-define(BSSMAP_MSG_VGCS_VBS_ASS_RQST, 7).
+-define(BSSMAP_MSG_VGCS_VBS_ASS_RESULT, 28).
+-define(BSSMAP_MSG_VGCS_VBS_ASS_FAILURE, 29).
+-define(BSSMAP_MSG_VGCS_VBS_QUEUING_INDICATION, 30).
+-define(BSSMAP_MSG_UPLINK_RQST, 31).
+-define(BSSMAP_MSG_UPLINK_RQST_ACK, 39).
+-define(BSSMAP_MSG_UPLINK_RQST_CONFIRMATION, 73).
+-define(BSSMAP_MSG_UPLINK_RELEASE_INDICATION, 74).
+-define(BSSMAP_MSG_UPLINK_REJ_CMD, 75).
+-define(BSSMAP_MSG_UPLINK_RELEASE_CMD, 76).
+-define(BSSMAP_MSG_UPLINK_SEIZED_CMD, 77).
+
+% enum BSSMAP_IE_CODING {
+-define(BSSMAP_IE_CIRC_ID_CODE, 1).		% TV16
+%-define(BSSMAP_IE_RESERVED_0, 2).
+-define(BSSMAP_IE_RES_AVAIL, 3).		% TVf
+-define(BSSMAP_IE_CAUSE, 4).			% TLV
+-define(BSSMAP_IE_CELL_ID, 5).			% TLV
+-define(BSSMAP_IE_PRIORITY, 6).			% TLV
+-define(BSSMAP_IE_L3_HDR_INFO, 7).		% TLV
+-define(BSSMAP_IE_IMSI, 8).			% TLV
+-define(BSSMAP_IE_TMSI, 9).			% TLV
+-define(BSSMAP_IE_ENCR_INFO, 10).		% TLV
+-define(BSSMAP_IE_CHANNEL_TYPE, 11).		% TLV
+-define(BSSMAP_IE_PERIODICITY, 12).		% TV
+-define(BSSMAP_IE_EXTD_RES_IND, 13).		% TV
+-define(BSSMAP_IE_NUMBER_OF_MSS, 14).		% TV
+%-define(BSSMAP_IE_RESERVED_1, 15).
+%-define(BSSMAP_IE_RESERVED_2, 16).
+%-define(BSSMAP_IE_RESERVED_3, 17).
+-define(BSSMAP_IE_CM_INFO_T2, 18).		% TLV
+-define(BSSMAP_IE_CM_INFO_T3, 19).		% TLV
+-define(BSSMAP_IE_INTERF_BAND_TO_USE, 20).	% TV
+-define(BSSMAP_IE_RR_CAUSE, 21).		% TV
+%-define(BSSMAP_IE_RESERVED_4, 22).
+-define(BSSMAP_IE_L3_INFO, 23).			% TLV
+-define(BSSMAP_IE_DLCI, 24).			% TV
+-define(BSSMAP_IE_DOWNLINK_DTX_FLAG, 25).	% TV
+-define(BSSMAP_IE_CELL_ID_LIST, 	26).	% TLV
+-define(BSSMAP_IE_RESPONSE_RQST, 27).		% TV
+-define(BSSMAP_IE_RES_IND_METHOD, 28).		% TV
+-define(BSSMAP_IE_CM_INFO_T1, 29).		% TV
+-define(BSSMAP_IE_CIRC_ID_CODE_LIST, 30).	% TLV
+-define(BSSMAP_IE_DIAGNOSTIC, 31).		% TLV
+-define(BSSMAP_IE_L3_MSG_CONTENTS, 32).		% TLV
+-define(BSSMAP_IE_CHOSEN_CHANNEL, 33).		% TV
+-define(BSSMAP_IE_TOT_RES_ACCESS, 34).		% TVf
+-define(BSSMAP_IE_CIPH_RESP_MODE, 35).		% TV
+-define(BSSMAP_IE_CHANNEL_NEEDED, 36).		% TV
+-define(BSSMAP_IE_TRACE_TYPE, 37).		% TV
+-define(BSSMAP_IE_TRIGGERID, 38).		% TLV
+-define(BSSMAP_IE_TRACE_REFERENCE, 39).		% TV
+-define(BSSMAP_IE_TRANSACTIONID, 40).		% TLV
+-define(BSSMAP_IE_MOBILE_IDENTITY, 41).		% TLV
+-define(BSSMAP_IE_OMCID, 42).			% TLV
+-define(BSSMAP_IE_FORWARD_INDICATOR, 43).	% TV
+-define(BSSMAP_IE_CHOSEN_ENCR_ALG, 44).		% TV
+-define(BSSMAP_IE_CIRCUIT_POOL, 45).		% TV
+-define(BSSMAP_IE_CIRCUIT_POOL_LIST, 46).	% TLV
+-define(BSSMAP_IE_TIME_INDICATION, 47).		% TV
+-define(BSSMAP_IE_RESOURCE_SITUATION, 48).	% TLV
+-define(BSSMAP_IE_CUR_CHAN_TYPE_1, 49).		% TV
+-define(BSSMAP_IE_QUEUEING_IND, 50).		% TV
+-define(BSSMAP_IE_SPEECH_VERSION, 64).		% TV
+-define(BSSMAP_IE_ASS_REQUIREMENT, 51).		% TV
+-define(BSSMAP_IE_TALKER_FLAG, 53).		% T
+-define(BSSMAP_IE_CONN_REL_RQSTED, 54).		% T
+-define(BSSMAP_IE_GROUP_CALL_REFERENCE, 55).	% TLV
+-define(BSSMAP_IE_EMLPP_PRIORITY, 56).		% TV
+-define(BSSMAP_IE_CONFIG_EVO_INDI, 57).		% TV
+-define(BSSMAP_IE_OLD_TO_NEW_BSS_INFO, 58).	% TLV
+-define(BSSMAP_IE_LSA_IDENTIFIER, 59).		% TLV
+-define(BSSMAP_IE_LSA_IDENTIFIER_LIST, 60).	% TLV
+-define(BSSMAP_IE_LSA_INFORMATION, 61).		% TLV
+-define(BSSMAP_IE_LCS_QOS, 62).			% TLV
+-define(BSSMAP_IE_LSA_ACCESS_CTRL_SUPPR, 63).	% TV
+-define(BSSMAP_IE_LCS_PRIORITY, 67).		% TLV
+-define(BSSMAP_IE_LOCATION_TYPE, 68).		% TLV
+-define(BSSMAP_IE_LOCATION_ESTIMATE, 69).	% TLV
+-define(BSSMAP_IE_POSITIONING_DATA, 70).	% TLV
+-define(BSSMAP_IE_LCS_CAUSE, 71).		% TLV
+-define(BSSMAP_IE_LCS_CLIENT_TYPE, 72).		% TLV
+-define(BSSMAP_IE_APDU, 73).			% TLV
+-define(BSSMAP_IE_NETWORK_ELEMENT_ID, 74).	% TLV
+-define(BSSMAP_IE_GPS_ASSISTANCE_DATA, 75).	% TLV
+-define(BSSMAP_IE_DECIPHERING_KEYS, 76).	% TLV
+-define(BSSMAP_IE_RETURN_ERROR_RQST, 77).	% TLV
+-define(BSSMAP_IE_RETURN_ERROR_CAUSE, 78).	% TLV
+-define(BSSMAP_IE_SEGMENTATION, 79).		% TLV
+-define(BSSMAP_IE_SERVICE_HANDOVER, 80).	% TLV
+-define(BSSMAP_IE_SRC_TGT_RNC_TRANSP_UMTS, 81).	% TLV
+-define(BSSMAP_IE_SRC_TGT_RNC_TRANSP_CDMA2K, 82). % TLV
+%-define(BSSMAP_IE_RESERVED_5, 65).
+%-define(BSSMAP_IE_RESERVED_6, 66).
+
+% enum gsm0808_cause {
+-define(BSSMAP_CAUSE_RIF_MSG_FAILURE, 0).
+-define(BSSMAP_CAUSE_RIF_FAILURE, 1).
+-define(BSSMAP_CAUSE_UPLINK_QUALITY, 2).
+-define(BSSMAP_CAUSE_UPLINK_STRENGTH, 3).
+-define(BSSMAP_CAUSE_DOWNLINK_QUALITY, 4).
+-define(BSSMAP_CAUSE_DOWNLINK_STRENGTH, 5).
+-define(BSSMAP_CAUSE_DISTANCE, 6).
+-define(BSSMAP_CAUSE_O_AND_M_INTERVENTION, 7).
+-define(BSSMAP_CAUSE_RESPONSE_TO_MSC_INVOCATION, 8).
+-define(BSSMAP_CAUSE_CALL_CONTROL, 9).
+-define(BSSMAP_CAUSE_RIF_FAILURE_REVERSION, 10).
+-define(BSSMAP_CAUSE_HO_SUCCESSFUL, 11).
+-define(BSSMAP_CAUSE_BETTER_CELL, 12).
+-define(BSSMAP_CAUSE_DIRECTED_RETRY, 13).
+-define(BSSMAP_CAUSE_JOINED_GROUP_CALL_CHANNEL, 14).
+-define(BSSMAP_CAUSE_TRAFFIC, 15).
+-define(BSSMAP_CAUSE_EQUIPMENT_FAILURE, 32).
+-define(BSSMAP_CAUSE_NO_RR_AVAILABLE, 33).
+-define(BSSMAP_CAUSE_RQSTED_TERR_RES_UNAVAIL, 34).
+-define(BSSMAP_CAUSE_CCCH_OVERLOAD, 35).
+-define(BSSMAP_CAUSE_PROCESSOR_OVERLOAD, 36).
+-define(BSSMAP_CAUSE_BSS_NOT_EQUIPPED, 37).
+-define(BSSMAP_CAUSE_MS_NOT_EQUIPPED, 38).
+-define(BSSMAP_CAUSE_INVALID_CELL, 39).
+-define(BSSMAP_CAUSE_TRAFFIC_LOAD, 40).
+-define(BSSMAP_CAUSE_PREEMPTION, 41).
+-define(BSSMAP_CAUSE_RQSTED_TRANSC_RA_UNAVAIL, 48).
+-define(BSSMAP_CAUSE_CIRCUIT_POOL_MISMATCH, 49).
+-define(BSSMAP_CAUSE_SWITCH_CIRCUIT_POOL, 50).
+-define(BSSMAP_CAUSE_RQSTED_SPEECH_V_UNAVAIL, 51).
+-define(BSSMAP_CAUSE_LSA_NOT_ALLOWED, 52).
+-define(BSSMAP_CAUSE_CIPH_ALG_NOT_SUPPORTED, 64).
+-define(BSSMAP_CAUSE_TERR_CIRC_ALLOCATED, 80).
+-define(BSSMAP_CAUSE_INV_MSG_CONTENTS, 81).
+-define(BSSMAP_CAUSE_IE_OR_FIELD_MISSING, 82).
+-define(BSSMAP_CAUSE_INCORRECT_VALUE, 83).
+-define(BSSMAP_CAUSE_UNKNOWN_MSG_TYPE, 84).
+-define(BSSMAP_CAUSE_UNKNOWN_IE, 85).
+-define(BSSMAP_CAUSE_PROT_ERR_BSS_AND_MSC, 96).
+
+% GSM 08.08 3.2.2.11 Channel Type
+% enum gsm0808_chan_indicator {
+-define(BSSMAP_CHAN_SPEECH, 1).
+-define(BSSMAP_CHAN_DATA, 2).
+-define(BSSMAP_CHAN_SIGN, 3).
+
+% enum gsm0808_chan_rate_type_data {
+-define(BSSMAP_DATA_FULL_BM, 16#8).
+-define(BSSMAP_DATA_HALF_LM, 16#9).
+-define(BSSMAP_DATA_FULL_RPREF, 16#a).
+-define(BSSMAP_DATA_HALF_PREF, 16#b).
+-define(BSSMAP_DATA_FULL_PREF_NO_CHANGE, 16#1a).
+-define(BSSMAP_DATA_HALF_PREF_NO_CHANGE, 16#1b).
+-define(BSSMAP_DATA_MULTI_MASK, 16#20).
+-define(BSSMAP_DATA_MULTI_MASK_NO_CHANGE, 16#30).
+
+% enum gsm0808_chan_rate_type_speech {
+-define(BSSMAP_SPEECH_FULL_BM, 16#8).
+-define(BSSMAP_SPEECH_HALF_LM, 16#9).
+-define(BSSMAP_SPEECH_FULL_PREF, 16#a).
+-define(BSSMAP_SPEECH_HALF_PREF, 16#b).
+-define(BSSMAP_SPEECH_FULL_PREF_NO_CHANGE, 16#1a).
+-define(BSSMAP_SPEECH_HALF_PREF_NO_CHANGE, 16#1b).
+-define(BSSMAP_SPEECH_PERM, 16#f).
+-define(BSSMAP_SPEECH_PERM_NO_CHANGE, 16#1f).
+
+% enum gsm0808_permitted_speech {
+-define(BSSMAP_PERM_FR1, 16#01).
+-define(BSSMAP_PERM_FR2, 16#11).
+-define(BSSMAP_PERM_FR3, 16#21).
+%	BSSMAP_PERM_HR1	= BSSMAP_PERM_FR1 | 16#4,
+%	BSSMAP_PERM_HR2	= BSSMAP_PERM_FR2 | 16#4,
+%	BSSMAP_PERM_HR3	= BSSMAP_PERM_FR3 | 16#4,
+%};

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/gtt.hrl Added

@@ -0,0 +1,34 @@
+
+-type digit()		:: 0..9.
+-type global_title()	:: non_neg_integer().
+-type digit_list()	:: digit().
+-type nature_of_addr()	:: 1..256.	% FIXME
+-type numbering_plan()	:: 1..256.	% FIXME
+
+% Record describing a GTT match
+-record(gtt_match, {
+	 gt_range_from	:: global_title(),	% integer(), GT range lower boundary, included
+	 gt_range_to	:: global_title(),	% integer(), GT range upper boundary, included
+	 numbering_plan :: numbering_plan(),
+	 nature_of_addr_ind :: nature_of_addr(),
+	 dpc		:: non_neg_integer(),
+	 ssn		:: non_neg_integer()
+ 	}).
+
+% GTT action for replacing some digits
+-record(gtt_act_repl_digits, {
+	 replace_digit_start	:: non_neg_integer(),	% digit from which we should replace
+	 replace_digit_end	:: non_neg_integer(),
+	 new_digits		:: digit_list()
+	}).
+
+% GTT action for replacing the numbering plan
+-record(gtt_act_repl_num_plan, {
+	numbering_plan		:: numbering_plan()
+	}).
+
+% GTT action for a generic apply/3 call
+-record(gtt_act_apply, {
+	 funct,
+	 args			:: list()
+	}).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/ipa.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/isup.hrl Added

@@ -0,0 +1,114 @@
+% Table 1 / Q.762 - ISDN user part message acronyms
+% Table C-3 / Q.762
+-define(ISUP_MSGT_ACM, 2#00000110).	%  Address complete
+-define(ISUP_MSGT_ANM, 2#00001001).	%  Answer
+%-define(ISUP_MSGT_APM).	%  Application transport
+-define(ISUP_MSGT_BLA, 2#00010101).	%  Blocking acknowledgement
+-define(ISUP_MSGT_BLO, 2#00010011).	%  Blocking
+-define(ISUP_MSGT_CCR, 2#00010001).	%  Continuity check request
+-define(ISUP_MSGT_CFN, 2#00101111).	%  Confusion
+-define(ISUP_MSGT_CGB, 2#00011000).	%  Circuit group blocking
+-define(ISUP_MSGT_CGBA,2#00011010).%  Circuit group blocking acknowledgement
+-define(ISUP_MSGT_CGU, 2#00011001).	%  Circuit group unblocking
+-define(ISUP_MSGT_CGUA,2#00011011).%  Circuit group unblocking acknowledgement
+-define(ISUP_MSGT_CON, 2#00000111).	%  Connect
+-define(ISUP_MSGT_COT, 2#00000101).	%  Continuity
+-define(ISUP_MSGT_CPG, 2#00101100).	%  Call progress
+-define(ISUP_MSGT_CRG, 2#00110001).	%  Charge information
+-define(ISUP_MSGT_CQM, 2#00101010).	%  Circuit group query
+-define(ISUP_MSGT_CQR, 2#00101011).	%  Circuit group query response
+-define(ISUP_MSGT_DRS, 2#00100111).	%  Delayed release (reserved – used in 1988 version)
+-define(ISUP_MSGT_FAA, 2#00100000).	%  Facility accepted
+%-define(ISUP_MSGT_FAC).	%  Facility
+-define(ISUP_MSGT_FAR, 2#00011111).	%  Facility request
+-define(ISUP_MSGT_FOT, 2#00001000).	%  Forward transfer
+-define(ISUP_MSGT_FRJ, 2#00100001).	%  Facility reject
+-define(ISUP_MSGT_GRA, 2#00101001).	%  Circuit group reset acknowledgement
+-define(ISUP_MSGT_GRS, 2#00010111).	%  Circuit group reset
+-define(ISUP_MSGT_IAM, 2#00000001).	%  Initial address
+%-define(ISUP_MSGT_IDR).	%  Identification request
+%-define(ISUP_MSGT_IRS).	%  Identification response
+-define(ISUP_MSGT_INF, 2#00000100).	%  Information
+-define(ISUP_MSGT_INR, 2#00000011).	%  Information request
+-define(ISUP_MSGT_LPA, 2#00100100).	%  Loop back acknowledgement
+%-define(ISUP_MSGT_LOP).	%  Loop prevention
+%-define(ISUP_MSGT_NRM).	%  Network resource management
+-define(ISUP_MSGT_OLM, 2#00110000).	%  Overload
+-define(ISUP_MSGT_PAM, 2#00101000).	%  Pass-along
+%-define(ISUP_MSGT_PRI).	%  Pre-release information
+-define(ISUP_MSGT_REL, 2#00001100).	%  Release
+-define(ISUP_MSGT_RES, 2#00001110).	%  Resume
+-define(ISUP_MSGT_RLC, 2#00010000).	%  Release complete
+-define(ISUP_MSGT_RSC, 2#00010010).	%  Reset circuit
+-define(ISUP_MSGT_SAM, 2#00000010).	%  Subsequent address
+%-define(ISUP_MSGT_SDM).	%  Subsequent directory number
+%-define(ISUP_MSGT_SGM).	%  Segmentation
+-define(ISUP_MSGT_SUS, 2#00001101).	%  Suspend
+-define(ISUP_MSGT_UBL, 2#00010100).	%  Unblocking
+-define(ISUP_MSGT_UBA, 2#00010110).	%  Unblocking acknowledgement
+-define(ISUP_MSGT_UCIC,2#00101110).%  Unequipped circuit identification code
+%-define(ISUP_MSGT_UPA).	%  User part available
+%-define(ISUP_MSGT_UPT).	%  User part test
+-define(ISUP_MSGT_USR, 2#00101101).	%  User-to-user information
+
+
+% TABLE C-4/Q.767
+-define(ISUP_PAR_ACC_TRANSP,		2#00000011).	% Access transport
+-define(ISUP_PAR_AUT_CONG_LVL,		2#00100111).	% Automatic congestion level
+-define(ISUP_PAR_BACKW_CALL_IND,	2#00010001).	% Backward call indicators
+-define(ISUP_PAR_CALL_MOD_IND,		2#00010111).	% Call modification indicators
+-define(ISUP_PAR_CALL_REF,		2#00000001).	% Call reference
+-define(ISUP_PAR_CALLED_P_NUM,		2#00000100).	% Called party number
+-define(ISUP_PAR_CALLING_P_NUM,		2#00001010).	% Calling party number
+-define(ISUP_PAR_CALLING_P_CAT,		2#00001001).	% Calling party category
+-define(ISUP_PAR_CAUSE_IND,		2#00010010).	% Cause indicators
+-define(ISUP_PAR_CG_SUB_MSGT_IND,	2#00010101).	% Circuit group supervision message type indicator
+-define(ISUP_PAR_CIRC_STATE_IND,	2#00100110).	% Circuit state indicator
+-define(ISUP_PAR_CLSD_U_INTERL_CODE,	2#00011010).	% Closed user interlock code
+-define(ISUP_PAR_CONNECTED_NUM,		2#00100001).	% Connected number
+-define(ISUP_PAR_CONN_REQ,		2#00001101).	% Connection request
+-define(ISUP_PAR_CONTINUITY_IND,	2#00010000).	% Continuity idnicators
+-define(ISUP_PAR_END_OF_OPT,		2#00000000).	% End of optional parameters
+-define(ISUP_PAR_EVENT_INFO,		2#00100100).	% Event information
+-define(ISUP_PAR_FACILITY_IND,		2#00011000).	% Facility indicators
+-define(ISUP_PAR_FW_CALL_IND,		2#00000111).	% Forward call indicators
+-define(ISUP_PAR_INFO_IND,		2#00001111).	% Information indicators
+-define(ISUP_PAR_INFO_REQ_IND,		2#00001110).	% Information request indicatos
+-define(ISUP_PAR_NAT_OF_CONN_IND,	2#00000110).	% Nature of connection indicators
+-define(ISUP_PAR_OPT_BW_CALL_IND,	2#00101001).	% Optional backward call indicators
+-define(ISUP_PAR_OPT_FW_CALL_IND,	2#00001000).	% Optional forward call indicators
+-define(ISUP_PAR_ORIG_CALLED_NUM,	2#00101000).	% Original called number
+-define(ISUP_PAR_RANGE_AND_STATUS,	2#00010110).	% Range and status
+-define(ISUP_PAR_REDIR_NUM,		2#00001011).	% Redirecting number
+-define(ISUP_PAR_REDIR_INFO,		2#00010011).	% Redirection information
+-define(ISUP_PAR_REDIRECTION_NUM,	2#00001100).	% Redirection number
+-define(ISUP_PAR_SIGN_POINT_CODE,	2#00011110).	% Signalling point code
+-define(ISUP_PAR_SUBSEQ_NUM,		2#00000101).	% Subsequent number
+-define(ISUP_PAR_SUSP_RES_IND,		2#00100010).	% Suspend/resume indicators
+-define(ISUP_PAR_XMIT_NET_SEL,		2#00100011).	% Transmit network selection
+-define(ISUP_PAR_TRANSM_MED_REQ,	2#00000010).	% Transmission medium requirement
+-define(ISUP_PAR_USER_SERV_INFO,	2#00011101).	% User service information
+-define(ISUP_PAR_USER_USER_IND,		2#00101010).	% User-to-user indicators
+-define(ISUP_PAR_USER_USER_INFO,	2#00100000).	% User-to-user information
+
+-define(ISUP_ADDR_NAT_SUBSCRIBER,	2#0000001).	% Subscriber number
+-define(ISUP_ADDR_NAT_NATIONAL,		2#0000011).	% National (significant) number
+-define(ISUP_ADDR_NAT_INTERNATIONAL,	2#0000100).	% International number
+
+-record(party_number, {
+	nature_of_addr_ind,
+	internal_net_num,	% only in called party
+	number_incompl_ind,	% only in calling party
+	numbering_plan,
+	present_restrict,	% only in calling party
+	screening_ind,		% only in calling party
+	phone_number}
+	).
+
+-type isup_cic()	::	0..65535.
+
+-record(isup_msg, {
+	msg_type		:: non_neg_integer(),
+	cic			:: isup_cic(),
+	parameters		:: list()
+	}).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/m2pa.hrl Added

@@ -0,0 +1,52 @@
+% RFC 4165 MTP2 P2P Adaption Layer coding / decoding
+
+% (C) 2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-define(M2PA_PPID,		5).
+-define(M2PA_PORT,		3565).
+
+% Section 2.1.3
+-define(M2PA_CLASS_M2PA,	11).
+
+% Section 2.1.4
+-define(M2PA_TYPE_USER,		1).
+-define(M2PA_TYPE_LINK,		2).
+
+% Section 2.3.2
+-define(M2PA_LS_ALIGNMENT,	1).
+-define(M2PA_LS_PROVING_NORMAL,	2).
+-define(M2PA_LS_PROVING_EMERG,	3).
+-define(M2PA_LS_READY,		4).
+-define(M2PA_LS_PROC_OUTAGE,	5).
+-define(M2PA_LS_PROC_RECOVERED,	6).
+-define(M2PA_LS_BUSY,		7).
+-define(M2PA_LS_BUSY_ENDED,	8).
+-define(M2PA_LS_OOS,		9).
+
+% SCTP stream IDs
+-define(M2PA_STREAM_STATUS,	0).
+-define(M2PA_STREAM_USER,	1).
+
+-record(m2pa_msg, {
+		msg_class,
+		msg_type,
+		fwd_seq_nr,
+		back_seq_nr,
+		mtp3,
+		parameters
+	}).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/m2ua.hrl Added

@@ -0,0 +1,110 @@
+
+-define(M2UA_PPID,	2).
+-define(M2UA_PORT,	2904).
+
+% RFC 3331 Section 3.1.3 Message Class
+-define(M2UA_MSGC_MGMT,		0).	% Management Messages IUA/M2UA/M3UA/SUA
+-define(M2UA_MSGC_TRANSFER,	1).	% Transfer Messages M3UA
+-define(M2UA_MSGC_SSNM,		2).	% SS7 Signalling Network Management M3UA/SUA
+-define(M2UA_MSGC_ASPSM,	3).	% ASP State Maintenance IUA/M2UA/M3UA/SUA
+-define(M2UA_MSGC_ASPTM,	4).	% ASP Traffic Maintenance IUA/M2UA/M3UA/SUA
+-define(M2UA_MSGC_QPTM,		5).	% Q.921/Q.931 Boundary Primitives Transport IUA
+-define(M2UA_MSGC_MAUP,		6).	% MTP2 User Adaption M2UA
+-define(M2UA_MSGC_CONNLESS,	7).	% Connectionless Messages SUA
+-define(M2UA_MSGC_CONN,		8).	% Connection oriented messages SUA
+-define(M2UA_MSGC_RKM,		9).	% Routing Key Management M3UA
+-define(M2UA_MSGC_IIM,		10).	% Interface Identifier Management (M2UA)
+
+% RFC 3331 Section 3.1.4 Message Type
+-define(M2UA_MAUP_MSGT_RESERVED,	0).
+-define(M2UA_MAUP_MSGT_DATA,		1).
+-define(M2UA_MAUP_MSGT_EST_REQ,		2).
+-define(M2UA_MAUP_MSGT_EST_CONF,	3).
+-define(M2UA_MAUP_MSGT_REL_REQ,		4).
+-define(M2UA_MAUP_MSGT_REL_CONF,	5).
+-define(M2UA_MAUP_MSGT_REL_IND,		6).
+-define(M2UA_MAUP_MSGT_STATE_REQ,	7).
+-define(M2UA_MAUP_MSGT_STATE_CONF,	8).
+-define(M2UA_MAUP_MSGT_STATE_IND,	9).
+-define(M2UA_MAUP_MSGT_DATA_RETR_REQ,	10).
+-define(M2UA_MAUP_MSGT_DATA_RETR_CONF,	11).
+-define(M2UA_MAUP_MSGT_DATA_RETR_IND,	12).
+-define(M2UA_MAUP_MSGT_DATA_RETR_COMPL_IND,	13).
+-define(M2UA_MAUP_MSGT_CONG_IND,	14).
+-define(M2UA_MAUP_MSGT_DATA_ACK,	15).
+
+-define(M2UA_ASPSM_MSGT_UP,		0).
+-define(M2UA_ASPSM_MSGT_DOWN,		1).
+-define(M2UA_ASPSM_MSGT_BEAT,		2).
+-define(M2UA_ASPSM_MSGT_UP_ACK,		3).
+-define(M2UA_ASPSM_MSGT_DOWN_ACK,	5).
+-define(M2UA_ASPSM_MSGT_BEAT_ACK,	6).
+
+-define(M2UA_ASPTM_MSGT_ACTIVE,		1).
+-define(M2UA_ASPTM_MSGT_INACTIVE,	2).
+-define(M2UA_ASPTM_MSGT_ACTIVE_ACK,	3).
+-define(M2UA_ASPTM_MSGT_INACTIVE_ACK,	4).
+
+-define(M2UA_MGMT_MSGT_ERROR,		0).
+-define(M2UA_MGMT_MSGT_NOTIFY,		1).
+
+-define(M2UA_MGMT_IIM_REG_REQ,		1).
+-define(M2UA_MGMT_IIM_REG_RSP,		2).
+-define(M2UA_MGMT_IIM_DEREG_REQ,	3).
+-define(M2UA_MGMT_IIM_DEREG_RSP,	4).
+
+% RFC 3331 Section 3.1.6 Common Parameter Tags
+% 0: reserved
+-define(M2UA_P_COM_INTF_ID_INT,		1).
+% 2: unused
+-define(M2UA_P_COM_INTF_ID_TEXT,	3).
+-define(M2UA_P_COM_INFO_STRING,		4).
+% 5: unused
+% 6: unused
+-define(M2UA_P_COM_DIAG_INFO,		7).
+-define(M2UA_P_COM_INTF_ID_INT_RANGE,	8).
+-define(M2UA_P_COM_HEARTB_DATA,		9).
+% 10: unused
+-define(M2UA_P_COM_TRAF_MODE_T,		11).
+-define(M2UA_P_COM_ERR_CODE,		12).
+-define(M2UA_P_COM_STATUS_T,		13).
+% 14: unused
+% 15: unused
+% 16: unused
+-define(M2UA_P_COM_ASP_ID,		17).
+% 18: unused
+-define(M2UA_P_COM_CORREL_ID,		19).
+
+-define(M2UA_P_M2UA_DATA1,		16#300).
+-define(M2UA_P_M2UA_DATA2,		16#301).
+
+-define(M2UA_P_MAUP_STATE,		16#302).
+-define(M2UA_P_MAUP_ACTION,		16#306).
+-define(M2UA_P_MAUP_SEQN,		16#307).
+-define(M2UA_P_MAUP_RESULT,		16#308).
+
+% Section 3.3.1.5
+-define(M2UA_MAUP_S_LPO_SET,		0).
+-define(M2UA_MAUP_S_LPO_CLEAR,		1).
+-define(M2UA_MAUP_S_EMER_SET,		2).
+-define(M2UA_MAUP_S_EMER_CLEAR,		3).
+-define(M2UA_MAUP_S_FLUSH_BUFFERS,	4).
+
+% Section 3.3.1.7 State Indication
+-define(M2UA_MAUP_SI_RPO_ENTER,		1).
+-define(M2UA_MAUP_SI_RPO_EXIT,		2).
+-define(M2UA_MAUP_SI_LPO_ENTER,		3).
+-define(M2UA_MAUP_SI_LPO_EXIT,		4).
+
+
+% Section 3.3.1.9 Retrieval Request
+-define(M2UA_MAUP_ACT_RTRV_BSN,		1).
+-define(M2UA_MAUP_ACT_RTRV_MSGS,	2).
+
+
+-record(m2ua_msg, {
+	msg_class	:: 0..255,
+	msg_type	:: 0..255,
+	parameters
+	}).
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/m3ua.hrl Added

@@ -0,0 +1,75 @@
+% M3UA in accordance with RFC4666 (http://tools.ietf.org/html/rfc4666)
+
+-define(M3UA_PPID,	3).
+-define(M3UA_PORT,	2905).
+
+-define(M3UA_MSGC_MGMT,			0).	% Management
+-define(M3UA_MSGC_TRANSFER,		1).	% Transfer
+-define(M3UA_MSGC_SSNM,			2).	% SS7 Signalling Network Management
+-define(M3UA_MSGC_ASPSM,		3).	% ASP State Management
+-define(M3UA_MSGC_ASPTM,		4).	% ASP Traffic Maintenance
+-define(M3UA_MSGC_RKM,			9).	% Routing Key Management
+
+-define(M3UA_MSGT_MGMT_ERR,		0).
+-define(M3UA_MSGT_MGMT_NTFY,		1).
+
+-define(M3UA_MSGT_XFR_DATA,		1).
+
+-define(M3UA_MSGT_SSNM_DUNA,		1).	% Destination Unavailable
+-define(M3UA_MSGT_SSNM_DAVA,		2).	% Destination Available
+-define(M3UA_MSGT_SSNM_DAUD,		3).	% Destination State Audit
+-define(M3UA_MSGT_SSNM_SCON,		4).	% Signalling Congestion
+-define(M3UA_MSGT_SSNM_DUPU,		5).	% Destination User Part Unavailable
+-define(M3UA_MSGT_SSNM_DRST,		6).	% Destination Restricted
+
+-define(M3UA_MSGT_ASPSM_ASPUP,		1).	% ASP Up
+-define(M3UA_MSGT_ASPSM_ASPDN,		2).	% ASP Down
+-define(M3UA_MSGT_ASPSM_BEAT,		3).	% Heartbeat
+-define(M3UA_MSGT_ASPSM_ASPUP_ACK,	4).	% ASP Up Acknowledgement
+-define(M3UA_MSGT_ASPSM_ASPDN_ACK,	5).	% ASP Down Acknowledgement
+-define(M3UA_MSGT_ASPSM_BEAT_ACK,	6).	% Heartbeat Acknowledgement
+
+-define(M3UA_MSGT_ASPTM_ASPAC,		1).	% ASP Active
+-define(M3UA_MSGT_ASPTM_ASPIA,		2).	% ASP Inactive
+-define(M3UA_MSGT_ASPTM_ASPAC_ACK,	3).	% ASP Active Acknowledgement
+-define(M3UA_MSGT_ASPTM_ASPIA_ACK,	4).	% ASP Inactive Acknowledgement
+
+-define(M3UA_MSGT_RKM_REG_REQ,		1).	% Registration Request
+-define(M3UA_MSGT_RKM_REG_RSP,		2).	% Registration Response
+-define(M3UA_MSGT_RKM_DEREG_REQ,	3).	% Deregistration Request
+-define(M3UA_MSGT_RKM_DEREG_RSP,	4).	% Deregistration Response
+
+-define(M3UA_IEI_INFO_STRING,		16#0004).
+-define(M3UA_IEI_ROUTE_CTX,		16#0006).
+-define(M3UA_IEI_DIAG_INFO,		16#0007).
+-define(M3UA_IEI_HEARTB_DATA,		16#0009).
+-define(M3UA_IEI_TRAF_MODE_TYPE,	16#000b).
+-define(M3UA_IEI_ERR_CODE,		16#000c).
+-define(M3UA_IEI_STATUS,		16#000d).
+-define(M3UA_IEI_ASP_ID,		16#0011).
+-define(M3UA_IEI_AFFECTED_PC,		16#0012).
+-define(M3UA_IEI_CORR_ID,		16#0013).
+% M3UA-Specific parameters
+-define(M3UA_IEI_NET_APPEARANCE,	16#0200).
+-define(M3UA_IEI_USER_CAUSE,		16#0204).
+-define(M3UA_IEI_CONGESTION_IND,	16#0205).
+-define(M3UA_IEI_CONCERNED_IND,		16#0206).
+-define(M3UA_IEI_ROUTING_KEY,		16#0207).
+-define(M3UA_IEI_REG_RESULT,		16#0208).
+-define(M3UA_IEI_DEREG_RESULT,		16#0209).
+-define(M3UA_IEI_LOCAL_RKEY_ID,		16#020a).
+-define(M3UA_IEI_DEST_PC,		16#020b).
+-define(M3UA_IEI_SERVICE_IND,		16#020c).
+-define(M3UA_IEI_ORIG_PC_LIST,		16#020e).
+-define(M3UA_IEI_PROTOCOL_DATA,		16#0210).
+-define(M3UA_IEI_REG_STATUS,		16#0212).
+-define(M3UA_IEI_DEREG_STATUS,		16#0213).
+
+-record(m3ua_msg, {
+	 version	:: 0..255,
+	 msg_class	:: 0..255,
+	 msg_type	:: 0..255,
+	 msg_length	:: non_neg_integer(),
+	 payload
+	}).
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/mtp3.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/osmo_ss7.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/osmo_util.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/sccp.hrl Added

@@ -0,0 +1,185 @@
+
+% Table 1 / Q.713 - SCCP Message Types
+-define(SCCP_MSGT_CR,		1).	% Connection request
+-define(SCCP_MSGT_CC,		2).	% Connection confirm
+-define(SCCP_MSGT_CREF,		3).	% Connection refused
+-define(SCCP_MSGT_RLSD,		4).	% Released
+-define(SCCP_MSGT_RLC,		5).	% Release complete
+-define(SCCP_MSGT_DT1,		6).	% Data form 1
+-define(SCCP_MSGT_DT2,		7).	% Data form 2
+-define(SCCP_MSGT_AK,		8).	% Data acknowledgement
+-define(SCCP_MSGT_UDT,		9).	% Unitdata
+-define(SCCP_MSGT_UDTS,		10).	% Unitdata service
+-define(SCCP_MSGT_ED,		11).	% Expedited data
+-define(SCCP_MSGT_EA,		12).	% Expedited data ack
+-define(SCCP_MSGT_RSR,		13).	% Reset Request
+-define(SCCP_MSGT_RSC,		14).	% Reset Confirmation
+-define(SCCP_MSGT_ERR,		15).	% Protocol data unit error
+-define(SCCP_MSGT_IT,		16).	% Inactivity test
+-define(SCCP_MSGT_XUDT,		17).	% Extended unitdata
+-define(SCCP_MSGT_XUDTS,	18).	% Extended unitdata service
+-define(SCCP_MSGT_LUDT,		19).	% Long unitdata
+-define(SCCP_MSGT_LUDTS,	20).	% Long unitdata service
+
+% Table 2 / Q.713 - SCCP parameter name codes
+-define(SCCP_PNC_END_OF_OPTIONAL,		0).
+-define(SCCP_PNC_DESTINATION_LOCAL_REFERENCE,	1).
+-define(SCCP_PNC_SOURCE_LOCAL_REFERENCE,	2).
+-define(SCCP_PNC_CALLED_PARTY_ADDRESS,		3).
+-define(SCCP_PNC_CALLING_PARTY_ADDRESS,		4).
+-define(SCCP_PNC_PROTOCOL_CLASS,		5).
+-define(SCCP_PNC_SEGMENTING,			6).
+-define(SCCP_PNC_RECEIVE_SEQ_NUMBER,		7).
+-define(SCCP_PNC_SEQUENCING,			8).
+-define(SCCP_PNC_CREDIT,			9).
+-define(SCCP_PNC_RELEASE_CAUSE,			10).
+-define(SCCP_PNC_RETURN_CAUSE,			11).
+-define(SCCP_PNC_RESET_CAUSE,			12).
+-define(SCCP_PNC_ERROR_CAUSE,			13).
+-define(SCCP_PNC_REFUSAL_CAUSE,			14).
+-define(SCCP_PNC_DATA,				15).
+-define(SCCP_PNC_SEGMENTATION,			16).
+-define(SCCP_PNC_HOP_COUNTER,			17).
+-define(SCCP_PNC_IMPORTANCE,			18).
+-define(SCCP_PNC_LONG_DATA,			19).
+
+% According to Q.713 Section 3.4.1
+-define(SCCP_GTI_NO_GT,		2#0000).
+-define(SCCP_GTI_NAT_ONLY,	2#0001).
+-define(SCCP_GTI_TT_ONLY,	2#0010).
+-define(SCCP_GTI_TT_NP_ENC,	2#0011).
+-define(SCCP_GTI_TT_NP_ENC_NAT,	2#0100).
+
+% According to Q.731 Section 3.4.2.2
+-define(SCCP_SSN_UNKNOWN,	2#000000000).
+-define(SCCP_SSN_SCCP_MGMT,	2#000000001).
+-define(SCCP_SSN_ITU_T,		2#000000010).
+-define(SCCP_SSN_ISUP,		2#000000011).
+-define(SCCP_SSN_OAM,		2#000000100).
+-define(SCCP_SSN_MAP,		2#000000101).
+-define(SCCP_SSN_HLR,		2#000000110).
+-define(SCCP_SSN_VLR,		2#000000111).
+-define(SCCP_SSN_MSC,		2#000001000).
+-define(SCCP_SSN_EIR,		2#000001001).
+-define(SCCP_SSN_AUC,		2#000001010).
+-define(SCCP_SSN_ISDN_SS,	2#000001011).
+-define(SCCP_SSN_RES_NAT,	2#000001100).
+-define(SCCP_SSN_BISDN,		2#000001101).
+-define(SCCP_SSN_TC_TEST,	2#000001110).
+
+% According to Q.731 Section 3.4.2.3.1
+-define(SCCP_NAI_SUBSCRIBER,	2#00000001).
+-define(SCCP_NAI_NATIONA_SIGN,	2#00000011).
+-define(SCCP_NAI_INTERNATIONAL,	2#00000100).
+
+% According to Q.713 Section 3.11 - Release Cause
+-define(SCCP_CAUSE_REL_USER_ORIG,	2#00000000).
+-define(SCCP_CAUSE_REL_USER_CONG,	2#00000001).
+-define(SCCP_CAUSE_REL_USER_FAILURE,	2#00000010).
+-define(SCCP_CAUSE_REL_SCCP_USER_ORIG,	2#00000011).
+-define(SCCP_CAUSE_REL_REM_PROC_ERR,	2#00000100).
+-define(SCCP_CAUSE_REL_INCONS_CONN_DAT,	2#00000101).
+-define(SCCP_CAUSE_REL_ACCESS_FAIL,	2#00000110).
+-define(SCCP_CAUSE_REL_ACCESS_CONG,	2#00000111).
+-define(SCCP_CAUSE_REL_SUBSYS_FAILURE,	2#00001000).
+-define(SCCP_CAUSE_REL_SUBSYS_CONG,	2#00001001).
+-define(SCCP_CAUSE_REL_MTP_FAILURE,	2#00001010).
+-define(SCCP_CAUSE_REL_NET_CONG,	2#00001011).
+-define(SCCP_CAUSE_REL_EXP_T_RES,	2#00001100).
+-define(SCCP_CAUSE_REL_EXP_T_IAR,	2#00001101).
+-define(SCCP_CAUSE_REL_UNQUALIFIED,	2#00001111).
+-define(SCCP_CAUSE_REL_SCCP_FAILURE,	2#00010000).
+
+% According to Q.713 Section 3.12 - Return Cause
+-define(SCCP_CAUSE_RET_NOTRANS_NATURE,	2#00000000).
+-define(SCCP_CAUSE_RET_NOTRANS_ADDR,	2#00000001).
+-define(SCCP_CAUSE_RET_SUBSYS_CONG,	2#00000010).
+-define(SCCP_CAUSE_RET_SUBSYS_FAILURE,	2#00000011).
+-define(SCCP_CAUSE_RET_UNEQUIP_USER,	2#00000100).
+-define(SCCP_CAUSE_RET_MTP_FAILURE,	2#00000101).
+-define(SCCP_CAUSE_RET_NET_CONG,	2#00000110).
+-define(SCCP_CAUSE_RET_UNQUALIFIED,	2#00000111).
+-define(SCCP_CAUSE_RET_ERR_MSG_TRANSP,	2#00001000).
+-define(SCCP_CAUSE_RET_ERR_LOCAL_PROC,	2#00001001).
+-define(SCCP_CAUSE_RET_DEST_NO_REASS,	2#00001010).
+-define(SCCP_CAUSE_RET_SCCP_FAILURE,	2#00001011).
+-define(SCCP_CAUSE_RET_HOP_CTR_FAIL,	2#00001100).
+-define(SCCP_CAUSE_RET_SEG_NOT_SUPP,	2#00001101).
+-define(SCCP_CAUSE_RET_SEG_FAILURE,	2#00001110).
+
+% According to Q.713 Section 3.13 - Reset Cause
+-define(SCCP_CAUSE_RES_ENDU_ORIGINATED,	2#00000000).
+-define(SCCP_CAUSE_RES_SCCP_USER_ORIG,	2#00000001).
+-define(SCCP_CAUSE_RES_MSGO_OOO_PS,	2#00000010).
+-define(SCCP_CAUSE_RES_MSGO_OOO_PR,	2#00000011).
+-define(SCCP_CAUSE_RES_MSGO_OO_WIND,	2#00000100).
+-define(SCCP_CAUSE_RES_INC_PS_REINIT,	2#00000101).
+-define(SCCP_CAUSE_RES_REM_GENERAL,	2#00000110).
+-define(SCCP_CAUSE_RES_REM_OPERATIONAL,	2#00000111).
+-define(SCCP_CAUSE_RES_NET_OPERATIONAL,	2#00001000).
+-define(SCCP_CAUSE_RES_ACC_OPERATIONAL,	2#00001001).
+-define(SCCP_CAUSE_RES_NET_CONG,	2#00001010).
+-define(SCCP_CAUSE_RES_UNQUALIFIED,	2#00001100).
+
+% According to Q.713 Section 3.14 - Error Cause
+-define(SCCP_CAUSE_ERR_LRN_UNASSIGNED,	2#00000000).
+-define(SCCP_CAUSE_ERR_LRN_MISMATCH,	2#00000001).
+-define(SCCP_CAUSE_ERR_PC_MISMATCH,	2#00000010).
+-define(SCCP_CAUSE_ERR_SCLASS_MISMATCH,	2#00000011).
+-define(SCCP_CAUSE_ERR_UNQUALIFIED,	2#00000100).
+
+% According to Q.713 Section 3.15 - Refusal Cause
+-define(SCCP_CAUSE_REF_ENDU_ORIGINATED,		2#00000000).
+-define(SCCP_CAUSE_REF_ENDU_CONGESTION,		2#00000001).
+-define(SCCP_CAUSE_REF_ENDU_FAILURE,		2#00000010).
+-define(SCCP_CAUSE_REF_USER_ORIGINATED,		2#00000011).
+-define(SCCP_CAUSE_REF_DEST_UNKNOWN,		2#00000100).
+-define(SCCP_CAUSE_REF_DEST_INACCESS,		2#00000101).
+-define(SCCP_CAUSE_REF_QOS_UNAVAIL_TRANS,	2#00000110).
+-define(SCCP_CAUSE_REF_QOS_UNAVAIL_NTRANS,	2#00000111).
+-define(SCCP_CAUSE_REF_ACCESS_FAIL,		2#00001000).
+-define(SCCP_CAUSE_REF_ACCES_CONGESTION,	2#00001001).
+-define(SCCP_CAUSE_REF_SUBSYS_FAILURE,		2#00001010).
+-define(SCCP_CAUSE_REF_SUBSYS_CONGESTION,	2#00001011).
+-define(SCCP_CAUSE_REF_EXP_CONN_EST_TMR,	2#00001100).
+-define(SCCP_CAUSE_REF_INCOMP_USER_DATA,	2#00001101).
+-define(SCCP_CAUSE_REF_HOP_COUNTER_VIOL,	2#00010000).
+-define(SCCP_CAUSE_REF_NO_GTT_FOR_NATURE,	2#00010010).
+-define(SCCP_CAUSE_REF_UNEQUIPPED_USER,		2#00010011).
+
+% SCCP sub-system numbers
+-define(SCCP_SSN_MAP_HLR,	6).
+-define(SCCP_SSN_MAP_VLR,	7).
+-define(SCCP_SSN_MAP_MSC,	8).
+-define(SCCP_SSN_MAP_EIR,	9).
+-define(SCCP_SSN_MAP_GMLC,	145).
+-define(SCCP_SSN_MAP_gsmSCF,	147).
+-define(SCCP_SSN_MAP_SGSN,	149).
+-define(SCCP_SSN_MAP_GGSN,	150).
+
+-type sccp_msg_type()		:: 0..255.
+-type sccp_proto_class()	:: 0..3.
+
+% a single parsed SCCP message
+-record(sccp_msg, {
+	msg_type	:: sccp_msg_type(),
+	parameters
+	}).
+
+
+-record(global_title, {
+	  gti :: 0..15,
+	  nature_of_addr_ind :: 0..127,
+	  trans_type,
+	  encoding	:: 0..15,
+	  numbering_plan:: 0..15,
+	  phone_number
+	}).
+
+-record(sccp_addr, {
+	  res_nat_use,
+	  route_on_ssn,
+	  point_code,		% optional
+	  ssn,			% optional
+	  global_title		% optional
+	}).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/sua.hrl Added

@@ -0,0 +1,116 @@
+% RFC 3868 SUA SCCP User Adaption
+
+% (C) 2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-define(SUA_PPID,	4).
+-define(SUA_PORT, 	14001).
+
+% 3.1.2 Message Classes
+-define(SUA_MSGC_MGMT,	0).
+-define(SUA_MSGC_SNM,	2).
+-define(SUA_MSGC_ASPSM,	3).
+-define(SUA_MSGC_ASPTM,	4).
+-define(SUA_MSGC_CL,	7).
+-define(SUA_MSGC_CO,	8).
+-define(SUA_MSGC_RKM,	9).
+
+% 3.1.3 Message Types
+-define(SUA_MGMT_ERR,	0).
+-define(SUA_MGMT_NTFY,	1).
+
+-define(SUA_SNM_DUNA,	1).
+-define(SUA_SNM_DAVA,	2).
+-define(SUA_SNM_DAUD,	3).
+-define(SUA_SNM_SCON,	4).
+-define(SUA_SNM_DUPU,	5).
+-define(SUA_SNM_DRST,	6).
+
+-define(SUA_ASPSM_UP,	1).
+-define(SUA_ASPSM_DOWN,	2).
+-define(SUA_ASPSM_BEAT,	3).
+-define(SUA_ASPSM_UP_ACK, 	4).
+-define(SUA_ASPSM_DOWN_ACK,	5).
+-define(SUA_ASPSM_BEAT_ACK,	6).
+
+-define(SUA_ASPTM_ACTIVE,	1).
+-define(SUA_ASPTM_INACTIVE,	2).
+-define(SUA_ASPTM_ACTIVE_ACK,	3).
+-define(SUA_ASPTM_INACTIVE_ACK,	4).
+
+-define(SUA_RKM_REG_REQ,	1).
+-define(SUA_RKM_REG_RSP,	2).
+-define(SUA_RKM_DEREG_REQ,	3).
+-define(SUA_RKM_DEREG_RSP,	4).
+
+-define(SUA_CL_CLDT,	 1).
+-define(SUA_CL_CLDR,	 2).
+
+-define(SUA_CO_CORE,	1).
+-define(SUA_CO_COAK,	2).
+-define(SUA_CO_COREF,	3).
+-define(SUA_CO_RELRE,	4).
+-define(SUA_CO_RELCO,	5).
+-define(SUA_CO_RESCO,	6).
+-define(SUA_CO_RESRE,	7).
+-define(SUA_CO_CODT,	8).
+-define(SUA_CO_CODA,	9).
+-define(SUA_CO_COERR,	10).
+-define(SUA_CO_COIT,	11).
+
+-define(SUA_IEI_ROUTE_CTX,	16#0006).
+-define(SUA_IEI_CORR_ID,	16#0013).
+-define(SUA_IEI_REG_RESULT,	16#0014).
+-define(SUA_IEI_DEREG_RESULT,	16#0015).
+
+% 3.10 SUA specific parameters
+
+-define(SUA_IEI_S7_HOP_CTR,	16#0101).
+-define(SUA_IEI_SRC_ADDR,	16#0102).
+-define(SUA_IEI_DEST_ADDR,	16#0103).
+-define(SUA_IEI_SRC_REF,	16#0104).
+-define(SUA_IEI_DEST_REF,	16#0105).
+-define(SUA_IEI_CAUSE,		16#0106).
+-define(SUA_IEI_SEQ_NR,		16#0107).
+-define(SUA_IEI_RX_SEQ_NR,	16#0108).
+-define(SUA_IEI_ASP_CAPA,	16#0109).
+-define(SUA_IEI_CREDIT,		16#010A).
+-define(SUA_IEI_DATA,		16#010B).
+-define(SUA_IEI_USER_CAUSE,	16#010C).
+-define(SUA_IEI_NET_APPEARANCE,	16#010D).
+-define(SUA_IEI_ROUTING_KEY,	16#010E).
+-define(SUA_IEI_DRN,		16#010F).
+-define(SUA_IEI_TID,		16#0110).
+-define(SUA_IEI_SMI,		16#0112).
+-define(SUA_IEI_IMPORTANCE,	16#0113).
+-define(SUA_IEI_MSG_PRIO,	16#0114).
+-define(SUA_IEI_PROTO_CLASS,	16#0115).
+-define(SUA_IEI_SEQ_CTRL,	16#0116).
+-define(SUA_IEI_SEGMENTATION,	16#0117).
+-define(SUA_IEI_CONG_LEVEL,	16#0118).
+
+-define(SUA_IEI_GT,	16#8001).
+-define(SUA_IEI_PC,	16#8002).
+-define(SUA_IEI_SSN,	16#8003).
+-define(SUA_IEI_IPv4,	16#8004).
+-define(SUA_IEI_HOST,	16#8005).
+-define(SUA_IEI_IPv6,	16#8006).
+
+-define(SUA_RI_GT,	1).
+-define(SUA_RI_SSN_PC,	2).
+-define(SUA_RI_HOST,	3).
+-define(SUA_RI_SSN_IP,	4).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/include/xua.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/priv Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/priv/.empty Changed

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/rebar.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/rel Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/rel/files Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/rel/files/app.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/rel/files/erl Added

@@ -0,0 +1,34 @@
+#!/bin/bash
+
+## This script replaces the default "erl" in erts-VSN/bin. This is necessary
+## as escript depends on erl and in turn, erl depends on having access to a
+## bootscript (start.boot). Note that this script is ONLY invoked as a side-effect
+## of running escript -- the embedded node bypasses erl and uses erlexec directly
+## (as it should). 
+##
+## Note that this script makes the assumption that there is a start_clean.boot
+## file available in $ROOTDIR/release/VSN.
+
+# Determine the abspath of where this script is executing from.
+ERTS_BIN_DIR=$(cd ${0%/*} && pwd)
+
+# Now determine the root directory -- this script runs from erts-VSN/bin,
+# so we simply need to strip off two dirs from the end of the ERTS_BIN_DIR
+# path.
+ROOTDIR=${ERTS_BIN_DIR%/*/*}
+
+# Parse out release and erts info
+START_ERL=`cat $ROOTDIR/releases/start_erl.data`
+ERTS_VSN=${START_ERL% *}
+APP_VSN=${START_ERL#* }
+
+BINDIR=$ROOTDIR/erts-$ERTS_VSN/bin
+EMU=beam
+PROGNAME=`echo $0 | sed 's/.*\\///'`
+CMD="$BINDIR/erlexec"
+export EMU
+export ROOTDIR
+export BINDIR
+export PROGNAME
+
+exec $CMD -boot $ROOTDIR/releases/$APP_VSN/start_clean ${1+"$@"}
\ No newline at end of file

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/rel/files/nodetool Added

@@ -0,0 +1,80 @@
+%% -*- erlang -*-
+%% -------------------------------------------------------------------
+%%
+%% nodetool: Helper Script for interacting with live nodes
+%%
+%% -------------------------------------------------------------------
+
+main(Args) ->
+    %% Extract the args
+    {RestArgs, TargetNode} = process_args(Args, , undefined),
+
+    %% See if the node is currently running  -- if it's not, we'll bail
+    case {net_kernel:hidden_connect_node(TargetNode), net_adm:ping(TargetNode)} of
+        {true, pong} ->
+            ok;
+        {_, pang} ->
+            io:format("Node ~p not responding to pings.\n", TargetNode),
+            halt(1)
+    end,
+
+    case RestArgs of
+        "ping" ->
+            %% If we got this far, the node already responsed to a ping, so just dump
+            %% a "pong"
+            io:format("pong\n");
+        "stop" ->
+            io:format("~p\n", rpc:call(TargetNode, init, stop, , 60000));
+        "restart" ->
+            io:format("~p\n", rpc:call(TargetNode, init, restart, , 60000));
+        "reboot" ->
+            io:format("~p\n", rpc:call(TargetNode, init, reboot, , 60000));
+        "rpc", Module, Function | RpcArgs ->
+            case rpc:call(TargetNode, list_to_atom(Module), list_to_atom(Function), RpcArgs, 60000) of
+                ok ->
+                    ok;
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p\n", TargetNode, Reason),
+                    halt(1);
+                _ ->
+                    halt(1)
+            end;
+        Other ->
+            io:format("Other: ~p\n", Other),
+            io:format("Usage: nodetool {ping|stop|restart|reboot}\n")
+    end,
+    net_kernel:stop().
+
+process_args(, Acc, TargetNode) ->
+    {lists:reverse(Acc), TargetNode};
+process_args("-setcookie", Cookie | Rest, Acc, TargetNode) ->
+    erlang:set_cookie(node(), list_to_atom(Cookie)),
+    process_args(Rest, Acc, TargetNode);
+process_args("-name", TargetName | Rest, Acc, _) ->
+    ThisNode = append_node_suffix(TargetName, "_maint_"),
+    {ok, _} = net_kernel:start(ThisNode, longnames),
+    process_args(Rest, Acc, nodename(TargetName));
+process_args("-sname", TargetName | Rest, Acc, _) ->
+    ThisNode = append_node_suffix(TargetName, "_maint_"),
+    {ok, _} = net_kernel:start(ThisNode, shortnames),
+    process_args(Rest, Acc, nodename(TargetName));
+process_args(Arg | Rest, Acc, Opts) ->
+    process_args(Rest, Arg | Acc, Opts).
+
+
+nodename(Name) ->
+    case string:tokens(Name, "@") of
+        _Node, _Host ->
+            list_to_atom(Name);
+        Node ->
+            _, Host = string:tokens(atom_to_list(node()), "@"),
+            list_to_atom(lists:concat(Node, "@", Host))
+    end.
+
+append_node_suffix(Name, Suffix) ->
+    case string:tokens(Name, "@") of
+        Node, Host ->
+            list_to_atom(lists:concat(Node, Suffix, os:getpid(), "@", Host));
+        Node ->
+            list_to_atom(lists:concat(Node, Suffix, os:getpid()))
+    end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/rel/files/osmo Added

@@ -0,0 +1,149 @@
+#!/bin/bash
+# -*- tab-width:4;indent-tabs-mode:nil -*-
+# ex: ts=4 sw=4 et
+
+RUNNER_SCRIPT_DIR=$(cd ${0%/*} && pwd)
+
+RUNNER_BASE_DIR=${RUNNER_SCRIPT_DIR%/*}
+RUNNER_ETC_DIR=$RUNNER_BASE_DIR/etc
+RUNNER_LOG_DIR=$RUNNER_BASE_DIR/log
+PIPE_DIR=/tmp/$RUNNER_BASE_DIR/
+RUNNER_USER=
+
+# Make sure this script is running as the appropriate user
+if  ! -z "$RUNNER_USER"  &&  `whoami` != "$RUNNER_USER" ; then
+    exec sudo -u $RUNNER_USER -i $0 $@
+fi
+
+# Make sure CWD is set to runner base dir
+cd $RUNNER_BASE_DIR
+
+# Make sure log directory exists
+mkdir -p $RUNNER_LOG_DIR
+
+# Extract the target node name from node.args
+NAME_ARG=`grep -e '-s*name' $RUNNER_ETC_DIR/vm.args`
+if  -z "$NAME_ARG" ; then
+    echo "vm.args needs to have either -name or -sname parameter."
+    exit 1
+fi
+
+# Extract the target cookie
+COOKIE_ARG=`grep -e '-setcookie' $RUNNER_ETC_DIR/vm.args`
+if  -z "$COOKIE_ARG" ; then
+    echo "vm.args needs to have a -setcookie parameter."
+    exit 1
+fi
+
+# Identify the script name
+SCRIPT=`basename $0`
+
+# Parse out release and erts info
+START_ERL=`cat $RUNNER_BASE_DIR/releases/start_erl.data`
+ERTS_VSN=${START_ERL% *}
+APP_VSN=${START_ERL#* }
+
+# Add ERTS bin dir to our path
+ERTS_PATH=$RUNNER_BASE_DIR/erts-$ERTS_VSN/bin
+
+# Setup command to control the node
+NODETOOL="$ERTS_PATH/escript $ERTS_PATH/nodetool $NAME_ARG $COOKIE_ARG"
+
+# Check the first argument for instructions
+case "$1" in
+    start)
+        # Make sure there is not already a node running
+        RES=`$NODETOOL ping`
+        if  "$RES" = "pong" ; then
+            echo "Node is already running!"
+            exit 1
+        fi
+        HEART_COMMAND="$RUNNER_BASE_DIR/bin/$SCRIPT start"
+        export HEART_COMMAND
+        mkdir -p $PIPE_DIR
+        # Note the trailing slash on $PIPE_DIR/
+        $ERTS_PATH/run_erl -daemon $PIPE_DIR/ $RUNNER_LOG_DIR "exec $RUNNER_BASE_DIR/bin/$SCRIPT console" 2>&1
+        ;;
+
+    stop)
+        # Wait for the node to completely stop...
+        case `uname -s` in
+            Linux|Darwin|FreeBSD|DragonFly|NetBSD|OpenBSD)
+                # PID COMMAND
+                PID=`ps ax -o pid= -o command=|\
+                    grep "$RUNNER_BASE_DIR/.*/beam"|awk '{print $1}'`
+                ;;
+            SunOS)
+                # PID COMMAND
+                PID=`ps -ef -o pid= -o args=|\
+                    grep "$RUNNER_BASE_DIR/.*/beam"|awk '{print $1}'`
+                ;;
+            CYGWIN*)
+                # UID PID PPID TTY STIME COMMAND
+                PID=`ps -efW|grep "$RUNNER_BASE_DIR/.*/beam"|awk '{print $2}'`
+                ;;
+        esac
+        $NODETOOL stop
+        while `kill -0 $PID 2>/dev/null`;
+        do
+            sleep 1
+        done
+        ;;
+
+    restart)
+        ## Restart the VM without exiting the process
+        $NODETOOL restart
+        ;;
+
+    reboot)
+        ## Restart the VM completely (uses heart to restart it)
+        $NODETOOL reboot
+        ;;
+
+    ping)
+        ## See if the VM is alive
+        $NODETOOL ping
+        ;;
+
+    attach)
+        # Make sure a node IS running
+        RES=`$NODETOOL ping`
+        if  "$RES" != "pong" ; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        $ERTS_PATH/to_erl $PIPE_DIR
+        ;;
+
+    console)
+        # Setup beam-required vars
+        ROOTDIR=$RUNNER_BASE_DIR
+        BINDIR=$ROOTDIR/erts-$ERTS_VSN/bin
+        EMU=beam
+        PROGNAME=`echo $0 | sed 's/.*\\///'`
+        CMD="$BINDIR/erlexec -boot $RUNNER_BASE_DIR/releases/$APP_VSN/$SCRIPT -embedded -config $RUNNER_ETC_DIR/app.config -args_file $RUNNER_ETC_DIR/vm.args -- ${1+"$@"}"
+        export EMU
+        export ROOTDIR
+        export BINDIR
+        export PROGNAME
+
+        # Dump environment info for logging purposes
+        echo "Exec: $CMD"
+        echo "Root: $ROOTDIR"
+
+        # Log the startup
+        logger -t "$SCRIPT$$" "Starting up"
+
+        # Start the VM
+        exec $CMD
+        ;;
+
+    *)
+        echo "Usage: $SCRIPT {start|stop|restart|reboot|ping|console|attach}"
+        exit 1
+        ;;
+esac
+
+exit 0

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/rel/files/vm.args Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/rel/reltool.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/bssmap_codec.erl Added

@@ -0,0 +1,211 @@
+% GSM TS 08.08 / 3GPP TS 48.008 BSSMAP
+
+% (C) 2010 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(bssmap_codec).
+-author('Harald Welte <laforge@gnumonks.org>').
+-include("bssmap.hrl").
+
+-export(parse_bssmap_msg/1, encode_bssmap_msg/1).
+
+parse_bssmap_msg(<<MsgType:8, Remain/binary>>) ->
+	parse_bssmap_msgt(MsgType, Remain).
+
+parse_bssmap_msgt(MsgType, Msg) when is_integer(MsgType), is_binary(Msg) ->
+	IeList = parse_ies(Msg, ),
+	{bssmap_msg, MsgType, IeList}.
+
+parse_ies(<<>>, ParsedIeList) ->
+	ParsedIeList;
+parse_ies(Msg, ParsedIeList) when is_binary(Msg) ->
+	CurIe = binary:first(Msg),
+	% Parse current IE and append it to list of Parsed IEs
+	case is_tv_ie(CurIe) of
+		true ->
+			Res = parse_ie_tv(CurIe, Msg);
+		false ->
+			Res = parse_ie(CurIe, Msg)
+	end,
+	{ok, BytesConsumed, ParsedIe} = Res,
+	{CurIe, Payload} = ParsedIe,
+	DecodedIe = decode_ie(CurIe, Payload),
+	ParsedIeList1 = ParsedIeList ++ DecodedIe,
+	%ParsedIeList1 = ParsedIeList ++ ParsedIe,
+	RemainMsg = binary:part(Msg, BytesConsumed, byte_size(Msg)-BytesConsumed),
+	parse_ies(RemainMsg, ParsedIeList1).
+
+% check if this element is of TV type
+is_tv_ie(T) when 
+	T == ?BSSMAP_IE_NUMBER_OF_MSS;
+	T == ?BSSMAP_IE_PERIODICITY;
+	T == ?BSSMAP_IE_EXTD_RES_IND;
+	T == ?BSSMAP_IE_INTERF_BAND_TO_USE;
+	T == ?BSSMAP_IE_RR_CAUSE;
+	T == ?BSSMAP_IE_DLCI;
+	T == ?BSSMAP_IE_DOWNLINK_DTX_FLAG;
+	T == ?BSSMAP_IE_RESPONSE_RQST;
+	T == ?BSSMAP_IE_RES_IND_METHOD;
+	T == ?BSSMAP_IE_CM_INFO_T1;
+	T == ?BSSMAP_IE_CHOSEN_CHANNEL;
+	T == ?BSSMAP_IE_CIPH_RESP_MODE;
+	T == ?BSSMAP_IE_TRACE_TYPE;
+	T == ?BSSMAP_IE_TRACE_REFERENCE;
+	T == ?BSSMAP_IE_FORWARD_INDICATOR;
+	T == ?BSSMAP_IE_CHOSEN_ENCR_ALG;
+	T == ?BSSMAP_IE_CIRCUIT_POOL;
+	T == ?BSSMAP_IE_TIME_INDICATION;
+	T == ?BSSMAP_IE_CUR_CHAN_TYPE_1;
+	T == ?BSSMAP_IE_QUEUEING_IND;
+	T == ?BSSMAP_IE_SPEECH_VERSION;
+	T == ?BSSMAP_IE_ASS_REQUIREMENT;
+	T == ?BSSMAP_IE_EMLPP_PRIORITY;
+	T == ?BSSMAP_IE_CONFIG_EVO_INDI;
+	T == ?BSSMAP_IE_LSA_ACCESS_CTRL_SUPPR ->
+		true;
+is_tv_ie(_T) ->
+		false.
+
+% Parser for any non-TLV and non-TV IEs
+parse_ie(?BSSMAP_IE_CIRC_ID_CODE, Msg) ->
+	<<?BSSMAP_IE_CIRC_ID_CODE:8, Cic:16/big>> = Msg,
+	{ok, 3, {?BSSMAP_IE_CIRC_ID_CODE, Cic}};
+parse_ie(?BSSMAP_IE_CONN_REL_RQSTED, Msg) ->
+	<<?BSSMAP_IE_CONN_REL_RQSTED:8>> = Msg,
+	{ok, 1, {?BSSMAP_IE_CONN_REL_RQSTED, 1}};
+parse_ie(?BSSMAP_IE_RES_AVAIL, Msg) ->
+	<<?BSSMAP_IE_RES_AVAIL:8, ResAvail:8/binary>> = Msg,
+	{ok, 9, {?BSSMAP_IE_RES_AVAIL, ResAvail}};
+parse_ie(?BSSMAP_IE_TOT_RES_ACCESS, Msg) ->
+	<<?BSSMAP_IE_TOT_RES_ACCESS:8, ResAvail:4/binary>> = Msg,
+	{ok, 5, {?BSSMAP_IE_TOT_RES_ACCESS, ResAvail}};
+parse_ie(?BSSMAP_IE_TALKER_FLAG, Msg) ->
+	<<?BSSMAP_IE_TALKER_FLAG:8>> = Msg,
+	{ok, 1, {?BSSMAP_IE_TALKER_FLAG, 1}};
+% Default: Parser for TLV IE
+parse_ie(MsgType, Msg) ->
+	<<MsgType:8, Length:8, Value:Length/binary, _/binary>> = Msg,
+	{ok, 2+Length, {MsgType, Value}}.
+
+% Parser for simple Tag-Value IE
+parse_ie_tv(IeType, Msg) ->
+	<<IeType:8, Par:8>> = Msg,
+	{ok, 2, {IeType, Par}}.
+
+
+% FIXME
+encode_bssmap_msg(_) ->
+	ok.
+
+
+
+
+
+decode_ie(?BSSMAP_IE_CIRC_ID_CODE, <<Pcm:11, Ts:5>>) ->
+	{circuit_id, Pcm, Ts};
+decode_ie(?BSSMAP_IE_IMSI, Remain) ->
+	{imsi, bin_bcd2str(Remain)};
+decode_ie(?BSSMAP_IE_TMSI, <<Tmsi:32>>) ->
+	{tmsi, Tmsi};
+decode_ie(?BSSMAP_IE_L3_HDR_INFO, <<Pdisc:8, Tid:8>>) ->
+	{l3_hdr_info, Pdisc, Tid};
+decode_ie(?BSSMAP_IE_ENCR_INFO, <<Algos:8, Key/binary>>) ->
+	{encr_info, Algos, Key};
+decode_ie(?BSSMAP_IE_CHANNEL_TYPE, <<_:4, Spdi:4, RateType:8, Remain/binary>>) ->
+	{chan_type, Spdi, RateType, Remain};
+decode_ie(?BSSMAP_IE_EXTD_RES_IND, Ri) ->
+	<<_:6, Sm:1, Tarr:1>> = <<Ri>>,
+	{extended_ri, Sm, Tarr};
+decode_ie(?BSSMAP_IE_TOT_RES_ACCESS, <<NumFr:16/big, NumHr:16/big>>) ->
+	{tot_res_access, NumFr, NumHr};
+decode_ie(?BSSMAP_IE_CELL_ID, <<_Spare:4, Discr:4, Remain/binary>>) ->
+	{cell_id, decode_cid_ie(Discr, Remain)};
+decode_ie(?BSSMAP_IE_PRIORITY, <<_:1, Pci:1, Prio:4, Qa:1, Pvi:1>>) ->
+	{priority, Pci, Prio, Qa, Pvi};
+decode_ie(?BSSMAP_IE_CELL_ID_LIST, <<_Spare:4, Discr:4, Remain/binary>>) ->
+	{cell_id_list, decode_cid_list(Discr, Remain, )};
+decode_ie(?BSSMAP_IE_DIAGNOSTIC, <<ErrPtr:8, _:4, BitPtr:4, MsgRecv/binary>>) ->
+	{diagnostic, ErrPtr, BitPtr, MsgRecv};
+decode_ie(?BSSMAP_IE_CHOSEN_CHANNEL, Int) ->
+	<<Mode:4, Chan:4>> = <<Int:8>>,
+	{chosen_channel, Mode, Chan};
+decode_ie(?BSSMAP_IE_MOBILE_IDENTITY, Data) ->
+	% FIXME
+	fixme;
+% Default: don't decode
+decode_ie(IeI, Data) ->
+	{IeI, Data}.
+
+decode_cid_ie(?CELL_ID_WHOLE_GLOBAL, Remain) ->
+	<<Mcc2:4, Mcc1:4, Mnc3:4, Mcc3:4, Mnc2:4, Mnc1:4, Lac:16/big, Ci:16/big>> = Remain,
+	{mcc, Mcc1, Mcc2, Mcc3}, {mnc, Mnc1, Mnc2, Mnc3}, {lac, Lac}, {cid, Ci};
+decode_cid_ie(?CELL_ID_LAC_AND_CI, Remain) ->
+	<<Lac:16/big, Ci:16/big>> = Remain,
+	{lac, Lac}, {cid, Ci};
+decode_cid_ie(?CELL_ID_CI, Remain) ->
+	<<Ci:16/big>> = Remain,
+	{cid, Ci};
+decode_cid_ie(?CELL_ID_NO_CELL, _Remain) ->
+	;
+decode_cid_ie(?CELL_ID_UTRAN_PLMN_LAC_RNC, Remain) ->
+	<<Mcc2:4, Mcc1:4, Mnc3:4, Mcc3:4, Mnc2:4, Mnc1:4, Lac:16/big, Rnc:16/big>> = Remain,
+	{mcc, Mcc1, Mcc2, Mcc3}, {mnc, Mnc1, Mnc2, Mnc3}, {lac, Lac}, {rnc_id, Rnc};
+decode_cid_ie(?CELL_ID_UTRAN_RNC, Remain) ->
+	<<Rnc:16/big>> = Remain,
+	{rnc_id, Rnc};
+decode_cid_ie(?CELL_ID_UTRAN_LAC_RNC, Remain) ->
+	<<Lac:16/big, Rnc:16/big>> = Remain,
+	{lac, Lac}, {rnc_id, Rnc}.
+
+decode_cid_list(Discr, Data, List) ->
+	case Discr of
+		?CELL_ID_WHOLE_GLOBAL -> Len = 7;
+		?CELL_ID_LAC_AND_CI ->	 Len = 4;
+		?CELL_ID_CI ->		 Len = 2;
+		?CELL_ID_NO_CELL ->	 Len = 0;
+		?CELL_ID_UTRAN_PLMN_LAC_RNC -> Len = 7;
+		?CELL_ID_UTRAN_RNC ->	Len = 2;
+		?CELL_ID_UTRAN_LAC_RNC -> Len = 4
+	end,
+	<<Subset:Len/binary, Remain/binary>> = Data,
+	Elem = {cell_id, decode_cid_ie(Discr, Subset)},
+	decode_cid_list(Discr, Remain, List ++ Elem).
+
+
+
+bin_bcd2str(BcdBin) when is_binary(BcdBin) ->
+	bin_bcd2str(BcdBin, ).
+bin_bcd2str(<<>>, List) ->
+	List;
+bin_bcd2str(BcdBin, List) ->
+	<<Nibble:4, Remain/bitstring>> = BcdBin,
+	Char = $0 + Nibble,
+	bin_bcd2str(Remain, List ++ Char).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/ipa_proto.erl Added

@@ -0,0 +1,392 @@
+% ip.access IPA multiplex protocol 
+
+% (C) 2010,2012,2019 by Harald Welte <laforge@gnumonks.org>
+% (C) 2010 by On-Waves
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+
+-module(ipa_proto).
+-author('Harald Welte <laforge@gnumonks.org>').
+-compile(export_all).
+
+-include("ipa.hrl").
+
+-define(TIMEOUT, 1000).
+-define(IPA_SOCKOPTS, binary, {packet, 0}, {reuseaddr, true}, {active, false}).
+
+-define(IPAC_MSGT_PING,		0).
+-define(IPAC_MSGT_PONG, 	1).
+-define(IPAC_MSGT_ID_GET, 	4).
+-define(IPAC_MSGT_ID_RESP, 	5).
+-define(IPAC_MSGT_ID_ACK, 	6).
+
+-define(IPAC_PROTO_OSMO,	238).
+-define(IPAC_PROTO_CCM,		254).
+
+-export(register_socket/1, register_stream/3, unregister_stream/2,
+	 send/3, connect/3, connect/4, listen_accept_handle/2,
+	 start_listen/3, controlling_process/3, register_codec/3).
+
+-type stream_id() :: integer() | {osmo, integer()}.
+
+-record(ipa_socket, {socket, ipaPid, streamTbl, listenType}).
+
+-record(ipa_codec, {streamId :: stream_id(),
+		    encodeFn :: fun(),
+		    decodeFn :: fun()
+	}).
+
+% register a TCP socket with this IPA protocol implementation
+register_socket(Socket) ->
+	IpaPid = spawn(?MODULE, init_sock, Socket, self()),
+	% synchronously wait for init_sock to be done
+	receive 
+		{ipa_init_sock_done, Socket} ->
+			% assign ownership of the socket to the new IPA handler process
+			gen_tcp:controlling_process(Socket, IpaPid),
+			{ok, IpaPid}
+	after 
+		?TIMEOUT ->
+			{error, timeout}
+	end.
+
+% call_sync() preceeded by a Socket -> Pid lookup
+call_sync_sock(Socket, Request) ->
+	% resolve PID responsible for this socket
+	case ets:lookup(ipa_sockets, Socket) of
+		IpaSock ->
+			call_sync(IpaSock#ipa_socket.ipaPid, Request);
+		_ ->
+			io:format("No Process for Socket ~p~n", Socket),
+			{error, no_sock_for_pid}
+	end.
+
+% a user process wants to register itself for a given Socket/StreamID tuple
+register_stream(Socket, StreamID, Pid) ->
+	call_sync_sock(Socket, {ipa_reg_stream, Socket, StreamID, Pid}).
+
+register_streams(_S, ) ->
+	ok;
+register_streams(S, {StreamID, Pid}|SList) ->
+	ipa_proto:register_stream(S, StreamID, Pid),
+	register_streams(S, SList).
+
+% unregister for a given stream
+unregister_stream(Socket, StreamID) ->
+	call_sync_sock(Socket, {ipa_unreg_stream, Socket, StreamID}).
+
+% change the controlling process for a given {Socket, StreamID}
+controlling_process(Socket, StreamID, NewPid) ->
+	call_sync_sock(Socket, {ipa_ctrl_proc, Socket, StreamID, NewPid}).
+
+% Set the metadata required for the ipa CCM sub-protocol.
+set_ccm_options(Socket, CcmOptions) ->
+	call_sync_sock(Socket, {ipa_set_ccm_options, Socket, CcmOptions}).
+
+% unblock the socket from further processing
+unblock(Socket) ->
+	call_sync_sock(Socket, {ipa_unblock, Socket}).
+
+% server-side handler for unregister_stream()
+request({ipa_reg_stream, Socket, StreamID, Pid}, _) ->
+	io:format("Registering handler ~p for socket ~p Stream ~p~n", Pid, Socket, StreamID),
+	IpaSock = ets:lookup(ipa_sockets, Socket),
+	ets:insert_new(IpaSock#ipa_socket.streamTbl, {{Socket, StreamID}, Pid});
+% server-side handler for unregister_stream()
+request({ipa_unreg_stream, Socket, StreamID}, _) ->
+	io:format("Unregistering handler for Socket ~p Stream ~p~n", Socket, StreamID),
+	IpaSock = ets:lookup(ipa_sockets, Socket),
+	ets:delete(IpaSock#ipa_socket.streamTbl, {Socket, StreamID});
+% server-side handler for controlling_process()
+request({ipa_ctrl_proc, Socket, StreamID, NewPid}, _) ->
+	io:format("Changing handler for socket ~p Stream ~p~n", Socket, StreamID),
+	IpaSock = ets:lookup(ipa_sockets, Socket),
+	ets:delete(IpaSock#ipa_socket.streamTbl, {Socket, StreamID}),
+	ets:insert_new(IpaSock#ipa_socket.streamTbl, {{Socket, StreamID}, NewPid});
+% server-side handler for set_ccm_options()
+% set ccm protocol metadata options reported with connection setup.
+request({ipa_set_ccm_options, Socket, CcmOptions}, _) ->
+	io:format("Setting ccm options for socket ~p to ~p~n", Socket, CcmOptions),
+	{ccm_options, CcmOptions};
+% server-side handler for unblock()
+request({ipa_unblock, Socket}, CcmOptions) ->
+	if
+		CcmOptions#ipa_ccm_options.initiate_ack -> send_ccm_id_ack(Socket);
+		true -> send_ccm_id_get(Socket)
+	end,
+	io:format("Unblocking socket ~p~n", Socket),
+	%IpaSock = ets:lookup(ipa_sockets, Socket),
+	Ret = inet:setopts(Socket, {active, once}),
+	io:format("Unblocking socket ~p:~p~n", Socket, Ret).
+
+% split an incoming IPA message and split it into Length/StreamID/Payload
+split_ipa_msg(DataBin) ->
+	% FIXME: This will throw an exception if DataBin doesn't contain all payload
+	<<Length:16/big-unsigned-integer, StreamID:8, Payload:Length/binary, Trailer/binary>> = DataBin,
+	io:format("Stream ~p, ~p bytes~n", StreamID, Length),
+	{StreamID, Payload, Trailer}.
+
+% deliver an incoming message to the process that is registered for the socket/stream_id
+deliver_rx_ipa_msg(Socket, StreamID, StreamMap, DataBin) ->
+	DataDec = try_decode(StreamID, DataBin),
+	case ets:lookup(StreamMap, {Socket, StreamID}) of
+		{_,{process_id, Pid}} ->
+			Pid ! {ipa, Socket, StreamID, DataDec};
+		{_,{callback_fn, Fn, Args}} ->
+			Fn(Socket, StreamID, DataDec, Args);
+		 ->
+			io:format("No Pid registered for Socket ~p Stream ~p~n", Socket, StreamID)
+	end.
+
+% register a Codec with this IPA protocol implementation
+-spec register_codec(stream_id(), fun(), fun()) -> boolean().
+register_codec(StreamID, EncodeFn, DecodeFn) ->
+	ets:insert(ipa_codecs, #ipa_codec{streamId=StreamID, encodeFn=EncodeFn, decodeFn=DecodeFn}).
+
+-spec try_decode(stream_id(), binary()) -> any().
+try_decode(StreamID, Data) ->
+	case ets:lookup(ipa_codecs, StreamID) of
+		IpaCodec ->
+			Fun = IpaCodec#ipa_codec.decodeFn,
+			Fun(Data);
+		 ->
+			Data
+	end.
+
+-spec try_encode(stream_id(), any()) -> binary().
+try_encode(_StreamID, Data) when is_binary(Data) ->
+	Data;
+try_encode(StreamID, Data) ->
+	case ets:lookup(ipa_codecs, StreamID) of
+		IpaCodec ->
+			Fun = IpaCodec#ipa_codec.encodeFn,
+			Fun(Data);
+		 ->
+			Data
+	end.
+
+% process (split + deliver) an incoming IPA message
+process_rx_ipa_msg(_S, _StreamMap, _, <<>>) ->
+	ok;
+process_rx_ipa_msg(S, StreamMap, CcmOptions, Data) ->
+	{StreamID, PayloadBin, Trailer} = split_ipa_msg(Data),
+	case StreamID of
+		?IPAC_PROTO_CCM ->
+			process_rx_ccm_msg(S, StreamID, CcmOptions, PayloadBin);
+		?IPAC_PROTO_OSMO ->
+			<<ExtStreamID:8, PayloadExt/binary>> = PayloadBin,
+			deliver_rx_ipa_msg(S, {osmo, ExtStreamID}, StreamMap, PayloadExt);
+		_ ->
+			deliver_rx_ipa_msg(S, StreamID, StreamMap, PayloadBin)
+	end,
+	process_rx_ipa_msg(S, StreamMap, CcmOptions, Trailer).
+
+send_close_signal() ->
+	ok;
+send_close_signal(StreamSpec|Tail) ->
+	io:format("send_close_signal ~p ~p~n", StreamSpec, Tail),
+	case StreamSpec of
+		{{Socket, StreamID}, {process_id, Pid}} ->
+			Pid ! {ipa_closed, {Socket, StreamID}};
+		{{Socket, StreamID}, {callback_fn, Fn, Args}} ->
+			Fn(Socket, StreamID, ipa_closed, Args)
+	end,
+	send_close_signal(Tail).
+
+process_tcp_closed(S, StreamMap) ->
+	% signal the closed socket to the user
+	StreamList = ets:match(StreamMap, '$1'),
+	send_close_signal(StreamList),
+	% remove the stream map for this socket
+	ets:delete(StreamMap),
+	% remove any entry regarding 'S' from ipa_sockets
+	ets:delete(ipa_sockets, S),
+	ok.
+
+% send a binary message through a given Socket / StreamID
+send(Socket, {osmo, StreamIdExt}, DataBin) ->
+	DataEnc = try_encode({osmo, StreamIdExt}, DataBin),
+	send(Socket, ?IPAC_PROTO_OSMO, StreamIdExt, DataEnc);
+send(Socket, StreamID, DataBin) ->
+	DataEnc = try_encode(StreamID, DataBin),
+	Size = iolist_size(DataEnc),
+	gen_tcp:send(Socket, iolist_to_binary(<<Size:2/big-unsigned-integer-unit:8>>, StreamID, DataEnc)).
+
+
+call_sync(Pid, Request) ->
+	Ref = make_ref(),
+	Pid ! {request, {self(), Ref}, Request},
+	receive
+		{reply, Ref, Reply} -> Reply
+	after
+		?TIMEOUT -> {error, timeout}
+	end.
+
+reply({From, Ref}, Reply) ->
+	From ! {reply, Ref, Reply}.
+
+
+% global module initialization
+init() ->
+	ipa_sockets = ets:new(ipa_sockets, named_table, set, public, {keypos, #ipa_socket.socket}),
+	ipa_codecs = ets:new(ipa_codecs, named_table, set, public, {keypos, #ipa_codec.streamId}).
+
+% initialize a signle socket, create its handle process
+init_sock(Socket, CallingPid) ->
+	StreamMap = ets:new(stream_map, set),
+	ets:insert(ipa_sockets, #ipa_socket{socket=Socket, ipaPid=self(), streamTbl=StreamMap}),
+	CallingPid ! {ipa_init_sock_done, Socket},
+	loop(Socket, StreamMap, #ipa_ccm_options{}).
+
+loop(S, StreamMap, CcmOptions) ->
+	receive
+		{request, From, Request} ->
+			case ipa_proto:request(Request, CcmOptions) of
+				{ccm_options, NewCcmOptions} ->
+					NextCcmOptions = NewCcmOptions,
+					Reply = ok;
+				EmbeddedReply ->
+					NextCcmOptions = CcmOptions,
+					Reply = EmbeddedReply
+			end,
+			ipa_proto:reply(From, Reply),
+			ipa_proto:loop(S, StreamMap, NextCcmOptions);
+		{ipa_send, S, StreamId, Data} ->
+			send(S, StreamId, Data),
+			ipa_proto:loop(S, StreamMap, CcmOptions);
+		{tcp, S, Data} ->
+			% process incoming IPA message and mark socket active once more
+			ipa_proto:process_rx_ipa_msg(S, StreamMap, CcmOptions, Data),
+			inet:setopts(S, {active, once}),
+			ipa_proto:loop(S, StreamMap, CcmOptions);
+		{tcp_closed, S} ->
+			io:format("Socket ~w closed ~w~n", S,self()),
+			ipa_proto:process_tcp_closed(S, StreamMap),
+			% terminate the process by not looping further
+			ok
+	end.
+
+% Respond with PONG to PING
+process_ccm_msg(Socket, StreamID, _, ping, _) ->
+	io:format("Socket ~p Stream ~p: PING -> PONG~n", Socket, StreamID),
+	send(Socket, StreamID, <<?IPAC_MSGT_PONG>>);
+% Respond to ID_ACK with ID_ACK if this instance did not initiate
+process_ccm_msg(Socket, StreamID, CcmOptions, id_ack, _) ->
+	if
+		CcmOptions#ipa_ccm_options.initiate_ack /= true ->
+			% Only respond to an ack if this instance did
+			% not initiate to prevent an infinite ack loop.
+			io:format("Socket ~p Stream ~p: ID_ACK -> ID_ACK~n", Socket, StreamID),
+			send(Socket, StreamID, <<?IPAC_MSGT_ID_ACK>>);
+		true ->
+			io:format("Socket ~p Stream ~p: ID_ACK -> None~n", Socket, StreamID)
+	end;
+% Simply respond to ID_RESP with ID_ACK
+process_ccm_msg(Socket, StreamID, _, id_resp, _) ->
+	io:format("Socket ~p Stream ~p: ID_RESP -> ID_ACK~n", Socket, StreamID),
+	send(Socket, StreamID, <<?IPAC_MSGT_ID_ACK>>);
+% Simply respond to ID_GET with ID_RESP
+process_ccm_msg(Socket, StreamID, CcmOptions, id_req, _) ->
+	io:format("Socket ~p Stream ~p: ID_GET -> ID_RESP~n", Socket, StreamID),
+	CcmBin = ipa_proto_ccm:encode(
+		{id_resp,
+		 {string,serial_nr,CcmOptions#ipa_ccm_options.serial_number},
+		  {string,unit_id,CcmOptions#ipa_ccm_options.unit_id},
+		  {string,mac_address,CcmOptions#ipa_ccm_options.mac_address},
+		  {string,location,CcmOptions#ipa_ccm_options.location},
+		  {string,unit_type,CcmOptions#ipa_ccm_options.unit_type},
+		  {string,equip_vers,CcmOptions#ipa_ccm_options.equipment_version},
+		  {string,sw_version,CcmOptions#ipa_ccm_options.sw_version},
+		  {string,unit_name,CcmOptions#ipa_ccm_options.unit_name}
+		 }),
+	send(Socket, StreamID, CcmBin);
+
+% Default message handler for unknown messages
+process_ccm_msg(Socket, StreamID, _, MsgType, Opts) ->
+	io:format("Socket ~p Stream ~p: Unknown CCM message type ~p Opts ~p~n",
+		  Socket, StreamID, MsgType, Opts).
+
+% process an incoming CCM message (Stream ID 254)
+process_rx_ccm_msg(Socket, StreamID, CcmOptions, PayloadBin) ->
+	{MsgType, Opts} = ipa_proto_ccm:decode(PayloadBin),
+	process_ccm_msg(Socket, StreamID, CcmOptions, MsgType, Opts).
+
+send_ccm_id_get(Socket) ->
+	send(Socket, ?IPAC_PROTO_CCM, <<?IPAC_MSGT_ID_GET>>).
+
+send_ccm_id_ack(Socket) ->
+	send(Socket, ?IPAC_PROTO_CCM, <<?IPAC_MSGT_ID_ACK>>).
+
+% convenience wrapper for interactive use / debugging from the shell
+listen_accept_handle(LPort, Opts) ->
+	case gen_tcp:listen(LPort, ?IPA_SOCKOPTS ++ Opts) of
+		{ok, ListenSock} ->
+			{ok, Port} = inet:port(ListenSock),
+			{ok, Sock} = gen_tcp:accept(ListenSock),
+			{ok, IpaPid} = ipa_proto:register_socket(Sock),
+			ipa_proto:register_stream(Sock, 0, self()),
+			ipa_proto:register_stream(Sock, 255, self()),
+			gen_tcp:controlling_process(Sock, IpaPid),
+			{ok, Port};
+		{error, Reason} ->
+			{error, Reason}
+	end.
+
+% gen_tcp:connect() convenience wrappers
+connect(Address, Port, Options) ->
+	connect(Address, Port, Options, infinity).
+
+connect(Address, Port, Options, Timeout) ->
+	case gen_tcp:connect(Address, Port, ?IPA_SOCKOPTS ++ Options, Timeout) of
+		{ok, Socket} ->
+			case ipa_proto:register_socket(Socket) of
+				{ok, IpaPid} ->
+					{ok, {Socket, IpaPid}};
+				{error, Reason} ->
+					gen_tcp:close(Socket),
+					{error, Reason}
+			end;
+		{error, Reason} ->
+			{error, Reason}
+	end.
+
+% Utility function to continuously server incomming IPA connections on a
+% listening TCP socket
+start_listen(LPort, NumServers, Opts) ->
+	case gen_tcp:listen(LPort, ?IPA_SOCKOPTS ++ Opts) of
+		{ok, ListenSock} ->
+			start_servers(NumServers, ListenSock, self()),
+			{ok, Port} = inet:port(ListenSock),
+			Port;
+		{error, Reason} ->
+			{error, Reason}
+	end.
+
+start_servers(0, _, _) ->
+	ok;
+start_servers(Num, LS, CtrlPid) ->
+	spawn(?MODULE, listen_server, LS, CtrlPid),
+	start_servers(Num-1, LS, CtrlPid).
+
+listen_server(LS, CtrlPid) ->
+	case gen_tcp:accept(LS) of
+		{ok, S} ->
+			io:format("Accepted TCP connection from ~p~n", inet:peername(S)),
+			% assign the socket to the Controlling process
+			gen_tcp:controlling_process(S, CtrlPid),
+			CtrlPid ! {ipa_tcp_accept, S},
+			listen_server(LS, CtrlPid);
+		Other ->
+			io:format("accept returned ~w - goodbye!~n", Other),
+			ok
+	end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/ipa_proto_ccm.erl Added

@@ -0,0 +1,115 @@
+% ip.access IPA CCM protocol 
+
+% (C) 2019 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+
+-module(ipa_proto_ccm).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-export(decode/1, encode/1).
+
+-define(TESTMSG, <<5,0,7,8,48,47,48,47,48,0,0,19,7,48,48,58,48,48,58,48,48,58,48,48,58,48,48,58,
+  48,48,0,0,19,2,48,48,58,48,48,58,48,48,58,48,48,58,48,48,58,48,48,0,0,19,3,
+  48,48,58,48,48,58,48,48,58,48,48,58,48,48,58,48,48,0,0,19,4,48,48,58,48,48,
+  58,48,48,58,48,48,58,48,48,58,48,48,0,0,24,5,111,115,109,111,45,109,115,99,
+  45,49,46,51,46,49,46,49,49,45,52,50,55,50,0,0,23,1,77,83,67,45,48,48,45,48,
+  48,45,48,48,45,48,48,45,48,48,45,48,48,0,0,23,0,77,83,67,45,48,48,45,48,48,
+  45,48,48,45,48,48,45,48,48,45,48,48,0>>).
+
+decode_msgt(0) -> ping;
+decode_msgt(1) -> pong;
+decode_msgt(4) -> id_req;
+decode_msgt(5) -> id_resp;
+decode_msgt(6) -> id_ack;
+decode_msgt(7) -> id_nack;
+decode_msgt(8) -> proxy_req;
+decode_msgt(9) -> proxy_ack;
+decode_msgt(10) -> proxy_nack;
+decode_msgt(Int) when is_integer(Int) -> Int.
+
+encode_msgt(ping) -> 0;
+encode_msgt(pong) -> 1;
+encode_msgt(id_req) -> 4;
+encode_msgt(id_resp) -> 5;
+encode_msgt(id_ack) -> 6;
+encode_msgt(id_nack) -> 7;
+encode_msgt(proxy_req) -> 8;
+encode_msgt(proxy_ack) -> 9;
+encode_msgt(proxy_nack) -> 10;
+encode_msgt(Int) when is_integer(Int) -> Int.
+
+decode_idtag(0) -> serial_nr;
+decode_idtag(1) -> unit_name;
+decode_idtag(2) -> location;
+decode_idtag(3) -> unit_type;
+decode_idtag(4) -> equip_vers;
+decode_idtag(5) -> sw_version;
+decode_idtag(6) -> ip_address;
+decode_idtag(7) -> mac_address;
+decode_idtag(8) -> unit_id;
+decode_idtag(Int) when is_integer(Int) -> Int.
+
+encode_idtag(serial_nr) -> 0;
+encode_idtag(unit_name) -> 1;
+encode_idtag(location) -> 2;
+encode_idtag(unit_type) -> 3;
+encode_idtag(equip_vers) -> 4;
+encode_idtag(sw_version) -> 5;
+encode_idtag(ip_address) -> 6;
+encode_idtag(mac_address) -> 7;
+encode_idtag(unit_id) -> 8;
+encode_idtag(Int) when is_integer(Int) -> Int.
+
+decode(Bin) when is_binary(Bin) ->
+	<<MsgType:8, IeList/binary>> = Bin,
+	{decode_msgt(MsgType), decode_ies(IeList, )}.
+
+decode_ies(<<>>, IeList) when is_list(IeList) ->
+	IeList;
+decode_ies(<<1:8, IdTag:8, Remain/binary>>, IeList) when is_list(IeList) ->
+	decode_ies(Remain, IeList ++ {id, IdTag});
+decode_ies(<<0:8, Len:8, TypeValue:Len/binary, Remain/binary>>, IeList) when is_list(IeList) ->
+	<<Type:8, Value/binary>> = TypeValue,
+	ValueList = binary_to_list(Value),
+	case lists:last(ValueList) of
+		0 -> ValueStripped = lists:droplast(ValueList);
+		_ -> ValueStripped = ValueList
+	end,
+	decode_ies(Remain, IeList ++ {string, decode_idtag(Type), ValueStripped}).
+
+
+encode_ie({id, IdTag}) ->
+	<<1:8, IdTag:8>>;
+encode_ie({string, Type, Value}) ->
+	case lists:last(Value) of
+		0 -> ValueTerminated = Value;
+		_ -> ValueTerminated = lists:append(Value, 0)
+	end,
+	ValueBin = list_to_binary(ValueTerminated),
+	Type2 = encode_idtag(Type),
+	TypeValue = <<Type2:8, ValueBin/binary>>,
+	Len = byte_size(TypeValue),
+	<<0:8, Len:8, TypeValue/binary>>.
+
+encode_ies(IeList) when is_list(IeList) ->
+	encode_ies(IeList, <<>>).
+encode_ies(, Bin) -> Bin;
+encode_ies(Head|Tail, Bin) ->
+	IeBin = encode_ie(Head),
+	encode_ies(Tail, <<Bin/binary, IeBin/binary>>).
+
+encode({MsgType, IeList}) ->
+	MsgtInt = encode_msgt(MsgType),
+	IesBin = encode_ies(IeList),
+	<<MsgtInt:8, IesBin/binary>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/isup_codec.erl Added

@@ -0,0 +1,519 @@
+% ITU-T Q.76x ISUPcoding / decoding
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(isup_codec).
+-author('Harald Welte <laforge@gnumonks.org>').
+-include("isup.hrl").
+
+-export(parse_isup_msg/1, encode_isup_msg/1, parse_isup_party/2,
+	 encode_isup_party/1, gen_party_number/3).
+
+-compile(export_all).
+
+-compile({parse_transform, exprecs}).
+-export_records(party_number, isup_msg).
+
+parse_isup_party(<<>>, OddEven, DigitList) ->
+	% in case of odd number of digits, we need to cut the last
+	case OddEven of
+		1 ->
+			lists:sublist(DigitList, length(DigitList)-1);
+		0 ->
+			DigitList
+	end;
+parse_isup_party(BcdBin, OddEven, DigitList) ->
+	<<Second:4, First:4, Remain/binary>> = BcdBin,
+	NewDigits = First, Second,
+	parse_isup_party(Remain, OddEven, DigitList ++ NewDigits).
+
+parse_isup_party(BinBcd, OddEven) when is_binary(BinBcd) ->
+	parse_isup_party(BinBcd, OddEven, ).
+
+
+% parse a single option
+parse_isup_opt(OptType = ?ISUP_PAR_CALLED_P_NUM, _OptLen, Content) ->
+	% C.3.7 Called Party Number
+	<<OddEven:1, Nature:7, Inn:1, NumPlan:3, 0:4, Remain/binary>> = Content,
+	PhoneNum = parse_isup_party(Remain, OddEven),
+	{OptType, #party_number{nature_of_addr_ind = Nature,
+				internal_net_num = Inn,
+				numbering_plan = NumPlan,
+				phone_number = PhoneNum}};
+parse_isup_opt(OptType = ?ISUP_PAR_CALLING_P_NUM, _OptLen, Content) ->
+	% C.3.8 Calling Party Number
+	<<OddEven:1, Nature:7, Ni:1, NumPlan:3, PresRestr:2, Screen:2, Remain/binary>> = Content,
+	PhoneNum = parse_isup_party(Remain, OddEven),
+	{OptType, #party_number{nature_of_addr_ind = Nature,
+				number_incompl_ind = Ni,
+				numbering_plan = NumPlan,
+				present_restrict = PresRestr,
+				screening_ind = Screen,
+				phone_number = PhoneNum}};
+parse_isup_opt(OptType = ?ISUP_PAR_CONNECTED_NUM, _OptLen, Content) ->
+	% C.3.14 Connected Number
+	<<OddEven:1, Nature:7, 0:1, NumPlan:3, PresRestr:2, Screen:2, Remain/binary>> = Content,
+	PhoneNum = parse_isup_party(Remain, OddEven),
+	{OptType, #party_number{nature_of_addr_ind = Nature,
+				numbering_plan = NumPlan,
+				present_restrict = PresRestr,
+				screening_ind = Screen,
+				phone_number = PhoneNum}};
+parse_isup_opt(OptType = ?ISUP_PAR_SUBSEQ_NUM, _OptLen, Content) ->
+	% C.3.32 Subsequent Number
+	<<OddEven:1, 0:7, Remain/binary>> = Content,
+	PhoneNum = parse_isup_party(Remain, OddEven),
+	{OptType, #party_number{phone_number = PhoneNum}};
+parse_isup_opt(OptType, OptLen, Content) ->
+	{OptType, {OptLen, Content}}.
+
+% parse a Binary into a list of options
+parse_isup_opts(<<>>, OptList) ->
+	% empty list
+	OptList;
+parse_isup_opts(<<0>>, OptList) ->
+	% end of options
+	OptList;
+parse_isup_opts(OptBin, OptList) when is_binary(OptBin) ->
+	<<OptType:8, OptLen:8, Content:OptLen/binary, Remain/binary>> = OptBin,
+	NewOpt = parse_isup_opt(OptType, OptLen, Content),
+	parse_isup_opts(Remain, OptList ++ NewOpt).
+parse_isup_opts(OptBin) ->
+	parse_isup_opts(OptBin, ).
+
+% Parse options preceeded by 1 byte OptPtr
+parse_isup_opts_ptr(OptBinPtr) ->
+	OptPtr = binary:at(OptBinPtr, 0),
+	case OptPtr of
+		0 ->
+			;
+		_ ->
+			OptBin = binary:part(OptBinPtr, OptPtr, byte_size(OptBinPtr)-OptPtr),
+			parse_isup_opts(OptBin, )
+	end.
+
+% References to 'Tabe C-xxx' are to Annex C of Q.767
+
+% Default case: no fixed and no variable parts, only options
+% ANM, RLC, FOT
+parse_isup_msgt(M, Bin) when
+	M == ?ISUP_MSGT_ANM;
+	M == ?ISUP_MSGT_RLC;
+	M == ?ISUP_MSGT_FOT ->
+		parse_isup_opts_ptr(Bin);
+% Table C-5	Address complete
+parse_isup_msgt(?ISUP_MSGT_ACM, Bin) ->
+	<<BackCallInd:16, Remain/binary>> = Bin,
+	BciOpt = {backward_call_ind, BackCallInd},
+	Opts = parse_isup_opts_ptr(Remain),
+	BciOpt|Opts;
+% Table C-7	Call progress
+parse_isup_msgt(?ISUP_MSGT_CPG, Bin) ->
+	<<EventInf:8, Remain/binary>> = Bin,
+	BciOpt = {event_info, EventInf},
+	Opts = parse_isup_opts_ptr(Remain),
+	BciOpt|Opts;
+% Table C-9	Circuit group reset acknowledgement
+parse_isup_msgt(?ISUP_MSGT_GRA, Bin) ->
+	% V: Range and status
+	<<PtrVar:8, _Remain/binary>> = Bin,
+	RangStsLen = binary:at(Bin, PtrVar),
+	RangeStatus = binary:part(Bin, PtrVar+1, RangStsLen),
+	RangeStsTuple = {?ISUP_PAR_RANGE_AND_STATUS, {RangStsLen, RangeStatus}},
+	RangeStsTuple;
+% Table C-11	Connect
+parse_isup_msgt(?ISUP_MSGT_CON, Bin) ->
+	<<BackCallInd:16, Remain/binary>> = Bin,
+	BciOpt = {backward_call_ind, BackCallInd},
+	Opts = parse_isup_opts_ptr(Remain),
+	BciOpt|Opts;
+% Table C-12	Continuity
+parse_isup_msgt(?ISUP_MSGT_COT, Bin) ->
+	<<ContInd:8>> = Bin,
+	{continuity_ind, ContInd};
+% Table C-16	Initial address
+parse_isup_msgt(?ISUP_MSGT_IAM, Bin) ->
+	<<CINat:8, FwCallInd:16/big, CallingCat:8, TransmReq:8, VarAndOpt/binary>> = Bin,
+	FixedOpts = {conn_ind_nature, CINat}, {fw_call_ind, FwCallInd}, {calling_cat, CallingCat},
+		     {transm_medium_req, TransmReq},
+	<<PtrVar:8, PtrOpt:8, _/binary>> = VarAndOpt,
+	% V: Called Party Number
+	CalledPartyLen = binary:at(VarAndOpt, PtrVar),
+	CalledParty = binary:part(VarAndOpt, PtrVar+1, CalledPartyLen),
+	VarOpts = parse_isup_opt(?ISUP_PAR_CALLED_P_NUM, CalledPartyLen, CalledParty),
+	% Optional part
+	case PtrOpt of
+		0 ->
+			Opts = ;
+		_ ->
+			Remain = binary:part(VarAndOpt, 1 + PtrOpt, byte_size(VarAndOpt)-(1+PtrOpt)),
+			Opts = parse_isup_opts(Remain)
+	end,
+	FixedOpts ++ VarOpts ++ Opts;
+% Table C-17	Release
+% Table 26/Q.763: Confusion
+parse_isup_msgt(M, VarAndOpt) when
+		M == ?ISUP_MSGT_REL;
+		M == ?ISUP_MSGT_CFN ->
+	<<PtrVar:8, PtrOpt:8, _/binary>> = VarAndOpt,
+	% V: Cause indicators
+	CauseIndLen = binary:at(VarAndOpt, PtrVar),
+	CauseInd = binary:part(VarAndOpt, PtrVar+1, CauseIndLen),
+	VarOpts = {?ISUP_PAR_CAUSE_IND, {CauseIndLen, CauseInd}},
+	case PtrOpt of
+		0 ->
+			Opts = ;
+		_ ->
+			Remain = binary:part(VarAndOpt, 1 + PtrOpt, byte_size(VarAndOpt)-(1+PtrOpt)),
+			Opts = parse_isup_opts(Remain)
+	end,
+	VarOpts ++ Opts;
+% Table C-19	Subsequent address
+parse_isup_msgt(?ISUP_MSGT_SAM, VarAndOpt) ->
+	<<PtrVar:8, PtrOpt:8, _/binary>> = VarAndOpt,
+	% V: Subsequent number
+	SubseqNumLen = binary:at(VarAndOpt, PtrVar),
+	SubsetNum = binary:part(VarAndOpt, PtrVar+1, SubseqNumLen),
+	VarOpts = {?ISUP_PAR_SUBSEQ_NUM, {SubseqNumLen, SubsetNum}},
+	Remain = binary:part(VarAndOpt, 1 + PtrOpt, byte_size(VarAndOpt)-(1+PtrOpt)),
+	Opts = parse_isup_opts(Remain),
+	VarOpts ++ Opts;
+% Table C-21	Suspend, Resume
+parse_isup_msgt(Msgt, Bin) when Msgt == ?ISUP_MSGT_RES; Msgt == ?ISUP_MSGT_SUS ->
+	<<SuspResInd:8, Remain/binary>> = Bin,
+	FixedOpts = {susp_res_ind, SuspResInd},
+	Opts = parse_isup_opts_ptr(Remain),
+	FixedOpts ++ Opts;
+% Table C-23
+parse_isup_msgt(M, <<>>) when
+	M == ?ISUP_MSGT_BLO;
+	M == ?ISUP_MSGT_BLA;
+	M == ?ISUP_MSGT_CCR;
+	M == ?ISUP_MSGT_RSC;
+	M == ?ISUP_MSGT_UBL;
+	M == ?ISUP_MSGT_UBA ->
+		;
+% Table 39/Q.763 messages for national use, fixed length 1 byte msgtype
+parse_isup_msgt(M, <<>>) when
+	M == ?ISUP_MSGT_LPA;
+	M == ?ISUP_MSGT_OLM;
+	M == ?ISUP_MSGT_UCIC ->
+		;
+% Table C-25
+parse_isup_msgt(M, Bin) when
+	M == ?ISUP_MSGT_CGB;
+	M == ?ISUP_MSGT_CGBA;
+	M == ?ISUP_MSGT_CGU;
+	M == ?ISUP_MSGT_CGUA ->
+		<<CGMsgt:8, PtrVar:8, VarBin/binary>> = Bin,
+		FixedOpts = {cg_supv_msgt, CGMsgt},
+		% V: Range and status
+		RangStsLen = binary:at(VarBin, PtrVar-1),
+		RangeStatus = binary:part(VarBin, PtrVar, RangStsLen),
+		VarOpts = {?ISUP_PAR_RANGE_AND_STATUS, {RangStsLen, RangeStatus}},
+		FixedOpts ++ VarOpts;
+% Table C-26	Circuit group reset
+parse_isup_msgt(?ISUP_MSGT_GRS, Bin) ->
+	<<PtrVar:8, _VarBin/binary>> = Bin,
+	% V: Range without status
+	RangeLen = binary:at(Bin, PtrVar),
+	Range = binary:part(Bin, PtrVar+1, RangeLen),
+	{?ISUP_PAR_RANGE_AND_STATUS, {RangeLen, Range}}.
+
+
+parse_isup_msg(DataBin) when is_binary(DataBin) ->
+	<<Cic:12/little, 0:4, MsgType:8, Remain/binary>> = DataBin,
+	Opts = parse_isup_msgt(MsgType, Remain),
+	#isup_msg{cic = Cic, msg_type = MsgType, parameters = Opts}.
+
+
+% encode a phone number from a list of digits into the BCD binary sequence
+encode_isup_party(BcdInt) when is_integer(BcdInt) ->
+	BcdList = osmo_util:int2digit_list(BcdInt),
+	encode_isup_party(BcdList);
+encode_isup_party(BcdList) when is_list(BcdList) ->
+	encode_isup_party(BcdList, <<>>, length(BcdList)).
+encode_isup_party(, Bin, NumDigits) ->
+	case NumDigits rem 2 of
+		1 ->
+			{Bin, 1};
+		0 ->
+			{Bin, 0}
+	end;
+encode_isup_party(First,Second|BcdList, Bin, NumDigits) ->
+	encode_isup_party(BcdList, <<Bin/binary, Second:4, First:4>>, NumDigits);
+encode_isup_party(Last, Bin, NumDigits) ->
+	encode_isup_party(, <<Bin/binary, 0:4, Last:4>>, NumDigits).
+
+% encode a single option
+encode_isup_par(?ISUP_PAR_CALLED_P_NUM,
+		#party_number{nature_of_addr_ind = Nature,
+			      internal_net_num = Inn,
+			      numbering_plan = NumPlan,
+			      phone_number=  PhoneNum}) ->
+	% C.3.7 Called Party Number
+	{PhoneBin, OddEven} = encode_isup_party(PhoneNum),
+	<<OddEven:1, Nature:7, Inn:1, NumPlan:3, 0:4, PhoneBin/binary>>;
+encode_isup_par(?ISUP_PAR_CALLING_P_NUM,
+		#party_number{nature_of_addr_ind = Nature,
+			      number_incompl_ind = Ni,
+			      numbering_plan = NumPlan,
+			      present_restrict = PresRestr,
+			      screening_ind = Screen,
+			      phone_number=  PhoneNum}) ->
+	% C.3.8 Calling Party Number
+	{PhoneBin, OddEven} = encode_isup_party(PhoneNum),
+	<<OddEven:1, Nature:7, Ni:1, NumPlan:3, PresRestr:2, Screen:2, PhoneBin/binary>>;
+encode_isup_par(?ISUP_PAR_CONNECTED_NUM,
+		#party_number{nature_of_addr_ind = Nature,
+			      numbering_plan = NumPlan,
+			      present_restrict = PresRestr,
+			      screening_ind = Screen,
+			      phone_number = PhoneNum}) ->
+	% C.3.14 Connected Number
+	{PhoneBin, OddEven} = encode_isup_party(PhoneNum),
+	<<OddEven:1, Nature:7, 0:1, NumPlan:3, PresRestr:2, Screen:2, PhoneBin/binary>>;
+encode_isup_par(?ISUP_PAR_SUBSEQ_NUM,
+		#party_number{phone_number = PhoneNum}) ->
+	% C.3.32 Subsequent Number
+	{PhoneBin, OddEven} = encode_isup_party(PhoneNum),
+	<<OddEven:1, 0:7, PhoneBin/binary>>;
+encode_isup_par(Atom, _More) when is_atom(Atom) ->
+	<<>>;
+encode_isup_par(OptNum, {OptLen, Binary}) when is_binary(Binary), is_integer(OptNum), is_integer(OptLen) ->
+	Binary.
+
+% encode a single OPTIONAL parameter (TLV type), skip all others
+encode_isup_optpar(ParNum, _ParBody) when is_atom(ParNum) ->
+	<<>>;
+encode_isup_optpar(ParNum, ParBody) ->
+	ParBin = encode_isup_par(ParNum, ParBody),
+	ParLen = byte_size(ParBin),
+	<<ParNum:8, ParLen:8, ParBin/binary>>.
+
+% recursive function to encode all optional parameters
+encode_isup_opts(, OutBin) ->
+	% terminate with end-of-options, but only if we have options
+	case OutBin of
+		<<>> ->
+			OutBin;
+		_ ->
+			<<OutBin/binary, 0:8>>
+	end;
+encode_isup_opts(Opt|OptPropList, OutBin) ->
+	{OptType, OptBody} = Opt,
+	OptBin = encode_isup_optpar(OptType, OptBody),
+	encode_isup_opts(OptPropList, <<OutBin/binary, OptBin/binary>>).
+encode_isup_opts(OptPropList) ->
+	encode_isup_opts(OptPropList, <<>>).
+
+encode_isup_hdr(#isup_msg{msg_type = MsgType, cic = Cic}) ->
+	<<Cic:12/little, 0:4, MsgType:8>>.
+
+% Default case: no fixed and no variable parts, only options
+% ANM, RLC, FOT
+encode_isup_msgt(M, #isup_msg{parameters = Params}) when
+	M == ?ISUP_MSGT_ANM;
+	M == ?ISUP_MSGT_RLC;
+	M == ?ISUP_MSGT_FOT ->
+		OptBin = encode_isup_opts(Params),
+		case OptBin of
+			<<>> ->	PtrOpt = 0;
+			_    -> PtrOpt = 1
+		end,
+		<<PtrOpt:8, OptBin/binary>>;
+% Table C-5	Address complete
+encode_isup_msgt(?ISUP_MSGT_ACM, #isup_msg{parameters = Params}) ->
+	BackCallInd = proplists:get_value(backward_call_ind, Params),
+	OptBin = encode_isup_opts(Params),
+	case OptBin of
+		<<>> -> 	PtrOpt = 0;
+		_    ->		PtrOpt = 1
+	end,
+	<<BackCallInd:16, PtrOpt:8, OptBin/binary>>;
+% Table C-7	Call progress
+encode_isup_msgt(?ISUP_MSGT_CPG, #isup_msg{parameters = Params}) ->
+	EventInf = proplists:get_value(event_info, Params),
+	OptBin = encode_isup_opts(Params),
+	case OptBin of
+		<<>> -> 	PtrOpt = 0;
+		_    ->		PtrOpt = 1
+	end,
+	<<EventInf:8, PtrOpt:8, OptBin/binary>>;
+% Table C-9	Circuit group reset acknowledgement
+encode_isup_msgt(?ISUP_MSGT_GRA, #isup_msg{parameters = Params}) ->
+	% V: Range and status
+	{RangStsLen, RangeStatus} = proplists:get_value(?ISUP_PAR_RANGE_AND_STATUS, Params),
+	<<1:8, RangStsLen:8, RangeStatus/binary>>;
+% Table C-11	Connect
+encode_isup_msgt(?ISUP_MSGT_CON, #isup_msg{parameters = Params}) ->
+	BackCallInd = proplists:get_value(backward_call_ind, Params),
+	OptBin = encode_isup_opts(Params),
+	case OptBin of
+		<<>> -> 	PtrOpt = 0;
+		_    ->		PtrOpt = 1
+	end,
+	<<BackCallInd:16, PtrOpt:8, OptBin/binary>>;
+% Table C-12	Continuity
+encode_isup_msgt(?ISUP_MSGT_COT, #isup_msg{parameters = Params}) ->
+	ContInd = proplists:get_value(continuity_ind, Params),
+	<<ContInd:8>>;
+% Table C-16	Initial address
+encode_isup_msgt(?ISUP_MSGT_IAM, #isup_msg{parameters = Params}) ->
+	% Fixed part
+	CINat = proplists:get_value(conn_ind_nature, Params),
+	FwCallInd = proplists:get_value(fw_call_ind, Params),
+	CallingCat = proplists:get_value(calling_cat, Params),
+	TransmReq = proplists:get_value(transm_medium_req, Params),
+	PtrVar = 2, % one byte behind the PtrOpt
+	FixedBin = <<CINat:8, FwCallInd:16/big, CallingCat:8, TransmReq:8>>,
+	% V: Called Party Number
+	CalledParty = encode_isup_par(?ISUP_PAR_CALLED_P_NUM,
+					proplists:get_value(?ISUP_PAR_CALLED_P_NUM, Params)),
+	CalledPartyLen = byte_size(CalledParty),
+	% Optional part
+	Params2 = proplists:delete(?ISUP_PAR_CALLED_P_NUM, Params),
+	OptBin = encode_isup_opts(Params2),
+	case OptBin of
+		<<>>	-> PtrOpt = 0;
+		_	-> PtrOpt = CalledPartyLen + 1 + 1 % 1 byte length, 1 byte start offset
+	end,
+	<<FixedBin/binary, PtrVar:8, PtrOpt:8, CalledPartyLen:8, CalledParty/binary, OptBin/binary>>;
+% Table C-17	Release
+encode_isup_msgt(Msgt, #isup_msg{parameters = Params}) when
+						Msgt == ?ISUP_MSGT_REL;
+						Msgt == ?ISUP_MSGT_CFN ->
+	PtrVar = 2, % one byte behind the PtrOpt
+	% V: Cause indicators
+	CauseInd = encode_isup_par(?ISUP_PAR_CAUSE_IND,
+					proplists:get_value(?ISUP_PAR_CAUSE_IND, Params)),
+	CauseIndLen = byte_size(CauseInd),
+	% Optional Part
+	Params2 = proplists:delete(?ISUP_PAR_CAUSE_IND, Params),
+	OptBin = encode_isup_opts(Params2),
+	case OptBin of
+		<<>>	-> PtrOpt = 0;
+		_	-> PtrOpt = CauseIndLen + 1 + 1	% 1 byte length, 1 byte start offset
+	end,
+	<<PtrVar:8, PtrOpt:8, CauseIndLen:8, CauseInd/binary, OptBin/binary>>;
+% Table C-19	Subsequent address
+encode_isup_msgt(?ISUP_MSGT_SAM, #isup_msg{parameters = Params}) ->
+	PtrVar = 2, % one byte behind the PtrOpt
+	% V: Subsequent number
+	SubseqNum = encode_isup_par(?ISUP_PAR_SUBSEQ_NUM,
+					proplists:get_value(?ISUP_PAR_SUBSEQ_NUM, Params)),
+	SubseqNumLen = byte_size(SubseqNum),
+	% Optional Part
+	Params2 = proplists:delete(?ISUP_PAR_SUBSEQ_NUM, Params),
+	OptBin = encode_isup_opts(Params2),
+	case OptBin of
+		<<>>	-> PtrOpt = 0;
+		_	-> PtrOpt = SubseqNumLen + 1 + 1 % 1 byte length, 1 byte start offset
+	end,
+	<<PtrVar:8, PtrOpt:8, SubseqNumLen:8, SubseqNum/binary, OptBin/binary>>;
+% Table C-21	Suspend, Resume
+encode_isup_msgt(Msgt, #isup_msg{parameters = Params}) when Msgt == ?ISUP_MSGT_RES; Msgt == ?ISUP_MSGT_SUS ->
+	SuspResInd = proplists:get_value(susp_res_ind, Params),
+	OptBin = encode_isup_opts(Params),
+	case OptBin of
+		<<>>	-> PtrOpt = 0;
+		_	-> PtrOpt = 1
+	end,
+	<<SuspResInd:8, PtrOpt:8, OptBin/binary>>;
+% Table C-23
+encode_isup_msgt(M, #isup_msg{}) when
+	M == ?ISUP_MSGT_BLO;
+	M == ?ISUP_MSGT_BLA;
+	M == ?ISUP_MSGT_CCR;
+	M == ?ISUP_MSGT_RSC;
+	M == ?ISUP_MSGT_UBL;
+	M == ?ISUP_MSGT_UBA ->
+		<<>>;
+% Table 39/Q.763 (national use)
+encode_isup_msgt(M, #isup_msg{}) when
+	M == ?ISUP_MSGT_LPA;
+	M == ?ISUP_MSGT_OLM;
+	M == ?ISUP_MSGT_UCIC ->
+		<<>>;
+% Table C-25
+encode_isup_msgt(M, #isup_msg{parameters = Params}) when
+	M == ?ISUP_MSGT_CGB;
+	M == ?ISUP_MSGT_CGBA;
+	M == ?ISUP_MSGT_CGU;
+	M == ?ISUP_MSGT_CGUA ->
+		PtrVar = 1, % one byte behind the PtrVar
+		CGMsgt = proplists:get_value(cg_supv_msgt, Params),
+		% V: Range and status
+		{RangStsLen, RangeStatus} = proplists:get_value(?ISUP_PAR_RANGE_AND_STATUS, Params),
+		<<CGMsgt:8, PtrVar:8, RangStsLen:8, RangeStatus/binary>>;
+% Table C-26	Circuit group reset
+encode_isup_msgt(?ISUP_MSGT_GRS, #isup_msg{parameters = Params}) ->
+	PtrVar = 1, % one byte behind the PtrVar
+	{RangeLen, Range} = proplists:get_value(?ISUP_PAR_RANGE_AND_STATUS, Params),
+	% V: Range without status
+	<<PtrVar:8, RangeLen:8, Range/binary>>.
+
+encode_isup_msg(Msg = #isup_msg{msg_type = MsgType}) ->
+	HdrBin = encode_isup_hdr(Msg),
+	Remain = encode_isup_msgt(MsgType, Msg),
+	<<HdrBin/binary, Remain/binary>>.
+
+
+listify(L) when is_list(L) ->
+	L;
+listify(L) when is_integer(L) ->
+	osmo_util:int2digit_list(L).
+
+encode_nature(international) ->
+	?ISUP_ADDR_NAT_INTERNATIONAL;
+encode_nature(national) ->
+	?ISUP_ADDR_NAT_NATIONAL;
+encode_nature(subscriber) ->
+	?ISUP_ADDR_NAT_SUBSCRIBER;
+encode_nature(Int) when is_integer(Int) ->
+	Int.
+
+encode_numplan(isdn) ->
+	1;
+encode_numplan(telephony) ->
+	1;
+encode_numplan(data) ->
+	3;
+encode_numplan(telex) ->
+	4;
+encode_numplan(Int) when is_integer(Int) ->
+	Int.
+
+gen_party_number(NAI, NumPlan, Number) ->
+	#party_number{nature_of_addr_ind = encode_nature(NAI),
+		      numbering_plan = encode_numplan(NumPlan),
+		      phone_number = listify(Number)}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/m2pa_codec.erl Added

@@ -0,0 +1,87 @@
+% RFC 4165 MTP2 P2P Adaption Layer coding / decoding
+
+% (C) 2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(m2pa_codec).
+-author('Harald Welte <laforge@gnumonks.org>').
+-include("m2pa.hrl").
+-include("mtp3.hrl").
+
+-export(parse_msg/1, encode_msg/1).
+
+-compile({parse_transform, exprecs}).
+-export_records(m2pa_msg).
+
+parse_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_LINK, Len, Remain) ->
+	<<State:32/big, Filler/binary>> = Remain,
+	Ret = {link_state, State},
+	if
+		byte_size(Filler) > 0 ->
+			{undefined, {filler, Filler}|Ret};
+		true ->
+			{undefined, Ret}
+	end;
+parse_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, 16, <<>>) ->
+	{undefined, };
+parse_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, Len, RemainIn) ->
+	<<Pri:1, _:7, Mtp3Bin/binary>> = RemainIn,
+	Mtp3 = mtp3_codec:parse_mtp3_msg(Mtp3Bin),
+	{Mtp3, }.
+
+parse_msg(DataBin) when is_binary(DataBin) ->
+	<<1:8, 0:8, MsgClass:8, MsgType:8, MsgLen:32/big, AllRemain/binary>> = DataBin,
+	<<_:8, BSN:24/big, _:8, FSN:24/big, Remain/binary>> = AllRemain,
+	{Mtp3, Params} = parse_m2pa_msgt(MsgClass, MsgType, MsgLen, Remain),
+	{ok, #m2pa_msg{msg_class = MsgClass, msg_type = MsgType,
+			fwd_seq_nr = FSN, back_seq_nr = BSN,
+			mtp3 = Mtp3, parameters = Params}}.
+
+encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, undefined, _Params) ->
+	<<>>;
+encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, Mtp3, _Params) when is_binary(Mtp3) ->
+	<<0:1, 0:7, Mtp3/binary>>;
+encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, Mtp3, Params) when is_record(Mtp3, mtp3_msg) ->
+	Mtp3bin = mtp3_codec:encode_mtp3_msg(Mtp3),
+	encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_USER, Mtp3bin, Params);
+encode_m2pa_msgt(?M2PA_CLASS_M2PA, ?M2PA_TYPE_LINK, _, Params) ->
+	State = proplists:get_value(link_state, Params),
+	% FIXME: filler
+	Filler = <<>>,
+	<<State:32/big, Filler/binary>>.
+
+
+encode_msg(Msg) when is_record(Msg, m2pa_msg) ->
+	#m2pa_msg{msg_class = MsgClass, msg_type = MsgType, fwd_seq_nr = FSN,
+			back_seq_nr = BSN, mtp3 = Mtp3, parameters = Params} = Msg,
+	Payload = encode_m2pa_msgt(MsgClass, MsgType, Mtp3, Params),
+	MsgLen = byte_size(Payload) + 16,
+	<<1:8, 0:8, MsgClass:8, MsgType:8, MsgLen:32/big, 0:8, BSN:24/big, 0:8, FSN:24/big, Payload/binary>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/m2ua_codec.erl Added

@@ -0,0 +1,33 @@
+% RFC 3331 MTP2 User Adaption Layer coding / decoding
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(m2ua_codec).
+-author('Harald Welte <laforge@gnumonks.org>').
+-include("xua.hrl").
+-include("m2ua.hrl").
+
+-export(parse_m2ua_msg/1, encode_m2ua_msg/1).
+
+% parse a M2UA message binary into a record
+parse_m2ua_msg(DataBin) when is_binary(DataBin) ->
+	xua_codec:parse_msg(DataBin).
+
+% encode a message from record to binary
+encode_m2ua_msg(Msg) when is_record(Msg, xua_msg) ->
+	xua_codec:encode_msg(Msg).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/m3ua_asp.erl Added

@@ -0,0 +1,111 @@
+% M3UA ASP xua_asp_fsm callback
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(m3ua_asp).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(xua_asp_fsm).
+
+-include("osmo_util.hrl").
+-include("m3ua.hrl").
+
+-export(init/1).
+
+-export(gen_xua_msg/3, asp_down/3, asp_inactive/3, asp_active/3).
+
+init() ->
+	{ok, we_have_no_state}.
+
+gen_xua_msg(MsgClass, MsgType, Params) ->
+	#m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType, payload = Params}.
+
+asp_down(#m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
+	 LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
+	% convert from M3UA to xua_msg and call into master module
+	xua_asp_fsm:asp_down({xua_msg, MsgClass, MsgType}, Mld);
+asp_down(M3uaMsg, LoopDat, Mld) when is_record(M3uaMsg, m3ua_msg) ->
+	rx_m3ua(M3uaMsg, asp_down, Mld).
+
+asp_inactive(#m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
+	     LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
+	% convert from M3UA to xua_msg and call into master module
+	xua_asp_fsm:asp_inactive({xua_msg, MsgClass, MsgType}, Mld);
+asp_inactive(M3uaMsg, LoopDat, Mld) when is_record(M3uaMsg, m3ua_msg) ->
+	rx_m3ua(M3uaMsg, asp_inactive, Mld).
+
+asp_active(#m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
+	   LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
+	% convert from M3UA to xua_msg and call into master module
+	xua_asp_fsm:asp_active({xua_msg, MsgClass, MsgType}, Mld);
+asp_active(M3uaMsg, LoopDat, Mld) when is_record(M3uaMsg, m3ua_msg) ->
+	rx_m3ua(M3uaMsg, asp_active, Mld).
+
+
+
+
+
+rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_MGMT,
+			msg_type = ?M3UA_MSGT_MGMT_NTFY}, State, LoopDat) ->
+	xua_asp_fsm:send_prim_to_user(LoopDat, osmo_util:make_prim('M','NOTIFY',indication,Msg)),
+	{next_state, State, LoopDat};
+
+rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_ASPSM,
+			msg_type = ?M3UA_MSGT_ASPSM_BEAT}, State, LoopDat) ->
+	% Send BEAT_ACK using the same payload as the BEAT msg
+	xua_asp_fsm:send_sctp_to_peer(LoopDat, Msg#m3ua_msg{msg_type = ?M3UA_MSGT_ASPSM_BEAT_ACK}),
+	{next_state, State, LoopDat};
+
+rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_MGMT,
+			msg_type = ?M3UA_MSGT_MGMT_ERR}, State, LoopDat) ->
+	xua_asp_fsm:send_prim_to_user(LoopDat, osmo_util:make_prim('M','ERROR',indication,Msg)),
+	{next_state, State, LoopDat};
+
+rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_SSNM,
+		        msg_type = MsgType, payload = Params}, State, LoopDat) ->
+	% transform to classic MTP primitive and send up to the user
+	Mtp = map_ssnm_to_mtp_prim(MsgType),
+	xua_asp_fsm:send_prim_to_user(LoopDat, Mtp),
+	{next_state, State, LoopDat};
+
+rx_m3ua(Msg = #m3ua_msg{}, State, LoopDat) ->
+	io:format("M3UA Unknown messge ~p in state ~p~n", Msg, State),
+	{next_state, State, LoopDat}.
+
+% Transform the M3UA SSNM messages into classic MTP primitives
+map_ssnm_to_mtp_prim(MsgType) ->
+	Mtp = #primitive{subsystem = 'MTP', spec_name = indication},
+	case MsgType of
+	    ?M3UA_MSGT_SSNM_DUNA -> Mtp#primitive{gen_name = 'PAUSE'};
+	    ?M3UA_MSGT_SSNM_DAVA -> Mtp#primitive{gen_name = 'RESUME'};
+	    ?M3UA_MSGT_SSNM_SCON -> Mtp#primitive{gen_name = 'STATUS'};
+	    ?M3UA_MSGT_SSNM_DUPU -> Mtp#primitive{gen_name = 'STATUS'}
+	end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/m3ua_codec.erl Added

@@ -0,0 +1,120 @@
+% M3UA in accordance with RFC4666 (http://tools.ietf.org/html/rfc4666)
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(m3ua_codec).
+-author('Harald Welte <laforge@gnumonks.org>').
+-include("m3ua.hrl").
+-include("mtp3.hrl").
+
+-export(parse_m3ua_msg/1, encode_m3ua_msg/1).
+
+%-compile(export_all).
+
+-compile({parse_transform, exprecs}).
+-export_records(m3ua_msg).
+
+% compute the number of pad bits required after a binary parameter
+get_num_pad_bytes(BinLenBytes) ->
+	case BinLenBytes rem 4 of
+		0 ->    0;
+		Val ->  4 - Val
+	end.
+
+parse_m3ua_msg(DataBin) when is_binary(DataBin) ->
+	<<Version:8, _Reserved:8, MsgClass:8, MsgType:8, MsgLen:32/big, Remain/binary>> = DataBin,
+	OptList = parse_m3ua_opts(Remain),
+	#m3ua_msg{version = Version, msg_class = MsgClass, msg_type = MsgType,
+		  msg_length = MsgLen-4, payload = OptList};
+parse_m3ua_msg(Data) when is_list(Data) ->
+	parse_m3ua_msg(list_to_binary(Data)).
+
+parse_m3ua_opts(OptBin) when is_binary(OptBin) ->
+	parse_m3ua_opts(OptBin, ).
+
+parse_m3ua_opts(<<>>, OptList) when is_list(OptList) ->
+	OptList;
+parse_m3ua_opts(OptBin, OptList) when is_binary(OptBin), is_list(OptList) ->
+	<<Tag:16/big, Length:16/big, Remain/binary>> = OptBin,
+	PadLen = get_num_pad_bytes(Length),
+	LengthNet = Length - 4,
+	<<CurOpt:LengthNet/binary, 0:PadLen/integer-unit:8, Remain2/binary>> = Remain,
+	NewOpt = parse_m3ua_opt(Tag, CurOpt),
+	parse_m3ua_opts(Remain2, OptList ++ NewOpt).
+
+parse_m3ua_opt(Opt = ?M3UA_IEI_PROTOCOL_DATA, MsgBin) when is_binary(MsgBin) ->
+	<<Opc:32/big, Dpc:32/big, Si:8, Ni:8, Mp:8, Sls:8, Payload/binary>> = MsgBin,
+	% The idea is to hand back a #mtp3_msg{} to make upper layers beyond
+	% MTP-TRANSFR.{ind,req} unaware of a MTP3 or M3UA lower layer
+	{Opt, #mtp3_msg{network_ind = Ni, service_ind = Si,
+			routing_label = #mtp3_routing_label{sig_link_sel = Sls,
+							    origin_pc = Opc,
+							    dest_pc = Dpc},
+			payload = Payload, m3ua_mp = Mp}};
+parse_m3ua_opt(Opt, Msg) ->
+	{Opt, Msg}.
+
+
+
+encode_m3ua_msg(#m3ua_msg{version = Version, msg_class = MsgClass,
+			  msg_type = MsgType, payload = OptList}) ->
+	OptBin = encode_m3ua_opts(OptList),
+	MsgLen = byte_size(OptBin) + 8,
+	<<Version:8, 0:8, MsgClass:8, MsgType:8, MsgLen:32/big, OptBin/binary>>.
+
+encode_m3ua_opts(OptList) when is_list(OptList) ->
+	encode_m3ua_opts(OptList, <<>>).
+
+encode_m3ua_opts(, Bin) ->
+	Bin;
+encode_m3ua_opts({Iei, Attr}|Tail, Bin) ->
+	OptBin = encode_m3ua_opt(Iei, Attr),
+	encode_m3ua_opts(Tail, <<Bin/binary, OptBin/binary>>).
+
+encode_m3ua_opt(?M3UA_IEI_PROTOCOL_DATA, Mtp3) when is_record(Mtp3, mtp3_msg) ->
+	#mtp3_msg{network_ind = Ni, service_ind = Si,
+		  routing_label = #mtp3_routing_label{sig_link_sel = Sls,
+						      origin_pc = OpcIn,
+						      dest_pc = DpcIn},
+		  payload = Payload, m3ua_mp = Mp} = Mtp3,
+	Opc = osmo_util:pointcode2int(OpcIn),
+	Dpc = osmo_util:pointcode2int(DpcIn),
+	case Mp of
+		undefined -> MpD = 0;
+		_ -> MpD = Mp
+	end,
+	PayBin = <<Opc:32/big, Dpc:32/big, Si:8, Ni:8, MpD:8, Sls:8, Payload/binary>>,
+	encode_m3ua_opt(?M3UA_IEI_PROTOCOL_DATA, PayBin);
+encode_m3ua_opt(Iei, Data) when is_integer(Iei), is_binary(Data) ->
+	Length = byte_size(Data) + 4,
+	PadLen = get_num_pad_bytes(Length),
+	<<Iei:16/big, Length:16/big, Data/binary, 0:PadLen/integer-unit:8>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/m3ua_core.erl Added

@@ -0,0 +1,378 @@
+% M3UA in accordance with RFC4666 (http://tools.ietf.org/html/rfc4666)
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(m3ua_core).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(gen_fsm).
+
+-include_lib("kernel/include/inet_sctp.hrl").
+-include("osmo_util.hrl").
+-include("sccp.hrl").
+-include("m3ua.hrl").
+
+-export(start_link/1).
+
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
+
+% FSM states:
+-export(asp_down/2, asp_inactive/2, asp_active/2).
+
+-define(T_ACK_TIMEOUT, 2*60*100).
+
+% Loop Data
+-record(m3ua_state, {
+	  role,		% asp | sgp
+	  asp_state,	% down, inactive, active
+	  t_ack,
+	  user_fun,
+	  user_args,
+	  sctp_remote_ip,
+	  sctp_remote_port,
+	  sctp_sock,
+	  sctp_assoc_id
+	}).
+
+start_link(InitOpts) ->
+	gen_fsm:start_link(?MODULE, InitOpts, {debug, trace}).
+
+reconnect_sctp(L = #m3ua_state{sctp_remote_ip = Ip, sctp_remote_port = Port, sctp_sock = Sock}) ->
+	timer:sleep(1*1000),
+	io:format("SCTP Reconnect ~p:~p~n", Ip, Port),
+	InitMsg = #sctp_initmsg{num_ostreams = 2, max_instreams = 2},
+	case gen_sctp:connect(Sock, Ip, Port, {active, once}, {reuseaddr, true},
+					       {sctp_initmsg, InitMsg}) of
+		{ok, Assoc} ->
+			send_prim_to_user(L, osmo_util:make_prim('M','SCTP_ESTABLISH',confirm)),
+			L#m3ua_state{sctp_assoc_id = Assoc#sctp_assoc_change.assoc_id};
+		{error, Error } ->
+			io:format("SCTP Error ~p, reconnecting~n", Error),
+			reconnect_sctp(L)
+	end.
+
+build_openopt({sctp_local_port, Port}) ->
+	{port, Port};
+build_openopt({sctp_local_ip, undefined}) ->
+	;
+build_openopt({sctp_local_ip, Ip}) ->
+	{ip, Ip};
+build_openopt(_) ->
+	.
+build_openopts(PropList) ->
+	{active, once}, {reuseaddr, true} ++
+	lists:flatten(lists:map(fun build_openopt/1, PropList)).
+
+init(InitOpts) ->
+	{ok, SctpSock} = gen_sctp:open(build_openopts(InitOpts)),
+	LoopDat = #m3ua_state{role = asp, sctp_sock = SctpSock,
+				user_fun = proplists:get_value(user_fun, InitOpts),
+				user_args = proplists:get_value(user_args, InitOpts),
+				sctp_remote_ip = proplists:get_value(sctp_remote_ip, InitOpts),
+				sctp_remote_port = proplists:get_value(sctp_remote_port, InitOpts)},
+	LoopDat2 = reconnect_sctp(LoopDat),
+	{ok, asp_down, LoopDat2}.
+
+terminate(Reason, _State, LoopDat) ->
+	io:format("Terminating ~p (Reason: ~p)~n", ?MODULE, Reason),
+	gen_sctp:close(LoopDat#m3ua_state.sctp_sock).
+
+code_change(_OldVsn, StateName, StateData, _Extra) ->
+	{ok, StateName, StateData}.
+
+% Helper function to send data to the SCTP peer
+send_sctp_to_peer(LoopDat, PktData, StreamId) when is_binary(PktData) ->
+	#m3ua_state{sctp_sock = Sock, sctp_assoc_id = Assoc} = LoopDat,
+	SndRcvInfo = #sctp_sndrcvinfo{assoc_id = Assoc, ppid = 3, stream = StreamId},
+	gen_sctp:send(Sock, SndRcvInfo, PktData).
+
+% same as above, but for un-encoded #m3ua_msg{}
+send_sctp_to_peer(LoopDat, M3uaMsg) when is_record(M3uaMsg, m3ua_msg) ->
+	MsgBin = m3ua_codec:encode_m3ua_msg(M3uaMsg),
+	StreamId = sctp_stream_for_m3ua(M3uaMsg),
+	send_sctp_to_peer(LoopDat, MsgBin, StreamId).
+
+% resolve the Stream ID depending on the m3ua_msg: 0 == management, 1 == trafic
+sctp_stream_for_m3ua(#m3ua_msg{msg_class = Class}) when
+				Class == ?M3UA_MSGC_TRANSFER ->
+	1;
+sctp_stream_for_m3ua(#m3ua_msg{}) ->
+	0.
+
+
+send_prim_to_user(LoopDat, Prim) when is_record(LoopDat, m3ua_state), is_record(Prim, primitive) ->
+	#m3ua_state{user_fun = Fun, user_args = Args} = LoopDat,
+	Fun(Prim, Args).
+
+% helper to send one of the up/down/act/inact management messages + start timer
+send_msg_start_tack(LoopDat, State, MsgClass, MsgType, Params) ->
+	% generate and send the respective message
+	Msg = #m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType, payload = Params},
+	send_sctp_to_peer(LoopDat, Msg),
+	% start T(ack) timer and wait for ASP_UP_ACK
+	timer:cancel(LoopDat#m3ua_state.t_ack),
+	{ok, Tack} = timer:apply_after(?T_ACK_TIMEOUT, gen_fsm, send_event,
+				 self(), {timer_expired, t_ack, {MsgClass, MsgType, Params}}),
+	{next_state, State, LoopDat#m3ua_state{t_ack = Tack}}.
+
+
+
+handle_event(Event, State, LoopDat) ->
+	io:format("Unknown Event ~p in state ~p~n", Event, State),
+	{next_state, State, LoopDat}.
+
+
+
+handle_info({sctp, Socket, _RemoteIp, _RemotePort, {ANC, SAC}},
+	     _State, LoopDat) when is_record(SAC, sctp_assoc_change) ->
+	io:format("SCTP Assoc Change ~p ~p~n", ANC, SAC),
+	#sctp_assoc_change{state = SacState, outbound_streams = _OutStreams,
+			   inbound_streams = _InStreams, assoc_id = _AssocId} = SAC,
+	case SacState of 
+		comm_up ->
+			% primmitive to the user
+			send_prim_to_user(LoopDat, osmo_util:make_prim('M','SCTP_ESTABLISH',confirm)),
+			LoopDat2 = LoopDat;
+		comm_lost ->
+			send_prim_to_user(LoopDat, osmo_util:make_prim('M','SCTP_RELEASE',indication)),
+			LoopDat2 = reconnect_sctp(LoopDat);
+		shutdown_comp ->
+			send_prim_to_user(LoopDat, osmo_util:make_prim('M','SCTP_RELEASE',indication)),
+			LoopDat2 = reconnect_sctp(LoopDat);
+		addr_unreachable ->
+			LoopDat2 = reconnect_sctp(LoopDat)
+	end,
+	inet:setopts(Socket, {active, once}),
+	{next_state, asp_down, LoopDat2};
+
+handle_info({sctp, Socket, _RemoteIp, _RemotePort, {ANC, SPC}},
+	     State, LoopDat) when is_record(SPC, sctp_paddr_change) ->
+	io:format("SCTP Peer address change ~p ~p~n", ANC, SPC),
+	{NewState, LoopDat2} = case SPC#sctp_paddr_change.state of
+		addr_available ->
+			% we don't care
+			{State, LoopDat};
+		addr_unreachable ->
+			send_prim_to_user(LoopDat, osmo_util:make_prim('M','SCTP_RELEASE',indication)),
+			{asp_down, reconnect_sctp(LoopDat)};
+		addr_removed ->
+			% FIXME: what if the last one is removed
+			{State, LoopDat};
+		addr_added ->
+			% we don't care
+			{State, LoopDat};
+		addr_made_prim ->
+			% FIXME: do we need to change remote_ip in our LoopDat?
+			{State, LoopDat}
+	end,
+	inet:setopts(Socket, {active, once}),
+	{next_state, NewState, LoopDat2};
+
+handle_info({sctp, Socket, RemoteIp, RemotePort, {Anc, Data}}, State, LoopDat) ->
+	io:format("SCTP rx data: ~p ~p~n", Anc, Data),
+	% process incoming SCTP data 
+	if Socket == LoopDat#m3ua_state.sctp_sock,
+	   RemoteIp == LoopDat#m3ua_state.sctp_remote_ip,
+	   RemotePort == LoopDat#m3ua_state.sctp_remote_port,
+	   3 == Anc#sctp_sndrcvinfo.ppid ->
+		Ret = rx_sctp(Anc, Data, State, LoopDat);
+	   true ->
+		io:format("unknown SCTP: ~p ~p~n", Anc, Data),
+		Ret = {next_state, State, LoopDat}
+	end,
+	inet:setopts(Socket, {active, once}),
+	Ret;
+
+handle_info({sctp, Socket, RemoteIp, RemotePort, {_Anc, Data}}, _State, LoopDat)
+					when is_record(Data, sctp_shutdown_event) ->
+	io:format("SCTP remote ~p:~p shutdown~n", RemoteIp, RemotePort),
+	inet:setopts(Socket, {active, once}),
+	{next_state, asp_down, LoopDat}.
+
+
+
+asp_down(#primitive{subsystem = 'M', gen_name = 'ASP_UP',
+		    spec_name = request, parameters = _Params}, LoopDat) ->
+	% M-ASP_UP.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, );
+asp_down({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, Params);
+
+asp_down(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPSM,
+		   msg_type = ?M3UA_MSGT_ASPSM_ASPUP_ACK}, LoopDat) ->
+	timer:cancel(LoopDat#m3ua_state.t_ack),
+	% transition into ASP_INACTIVE
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_UP',confirm)),
+	{next_state, asp_inactive, LoopDat};
+
+asp_down(M3uaMsg, LoopDat) when is_record(M3uaMsg, m3ua_msg) ->
+	rx_m3ua(M3uaMsg, asp_down, LoopDat).
+
+
+asp_inactive(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE',
+			spec_name = request, parameters = _Params}, LoopDat) ->
+	% M-ASP_ACTIVE.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC,
+			   {?M3UA_IEI_TRAF_MODE_TYPE, <<0,0,0,1>>});
+
+asp_inactive({timer_expired, t_ack, {?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC, Params);
+
+asp_inactive(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN',
+		      spec_name = request, parameters = _Params}, LoopDat) ->
+	% M-ASP_DOWN.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, );
+
+asp_inactive({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params);
+
+asp_inactive(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPTM,
+		       msg_type = ?M3UA_MSGT_ASPTM_ASPAC_ACK}, LoopDat) ->
+	timer:cancel(LoopDat#m3ua_state.t_ack),
+	% transition into ASP_ACTIVE
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_ACTIVE',confirm)),
+	{next_state, asp_active, LoopDat};
+
+asp_inactive(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPSM,
+		       msg_type = ?M3UA_MSGT_ASPSM_ASPDN_ACK}, LoopDat) ->
+	timer:cancel(LoopDat#m3ua_state.t_ack),
+	% transition into ASP_DOWN
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',confirm)),
+	{next_state, asp_down, LoopDat};
+
+asp_inactive(M3uaMsg, LoopDat) when is_record(M3uaMsg, m3ua_msg) ->
+	rx_m3ua(M3uaMsg, asp_inactive, LoopDat).
+
+
+
+asp_active(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPSM,
+		     msg_type = ?M3UA_MSGT_ASPSM_ASPDN_ACK}, LoopDat) ->
+	timer:cancel(LoopDat#m3ua_state.t_ack),
+	% transition into ASP_DOWN
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',confirm)),
+	{next_state, asp_down, LoopDat};
+
+asp_active(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPTM,
+		     msg_type = ?M3UA_MSGT_ASPTM_ASPIA_ACK}, LoopDat) ->
+	timer:cancel(LoopDat#m3ua_state.t_ack),
+	% transition into ASP_INACTIVE
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_INACTIVE',confirm)),
+	{next_state, asp_inactive, LoopDat};
+
+asp_active(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN',
+		      spec_name = request, parameters = _Params}, LoopDat) ->
+	% M-ASP_DOWN.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, );
+
+asp_active({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params);
+
+asp_active(#primitive{subsystem = 'M', gen_name = 'ASP_INACTIVE',
+		      spec_name = request, parameters = _Params}, LoopDat) ->
+	% M-ASP_INACTIVE.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, );
+
+asp_active({timer_expired, t_ack, {?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, Params);
+
+asp_active(#primitive{subsystem = 'MTP', gen_name = 'TRANSFER',
+		      spec_name = request, parameters = Params}, LoopDat) ->
+	% MTP-TRANSFER.req from user app: Send message to remote peer
+	OptList = {?M3UA_IEI_PROTOCOL_DATA, Params},
+	Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_TRANSFER,
+			msg_type = ?M3UA_MSGT_XFR_DATA,
+			payload = OptList},
+	send_sctp_to_peer(LoopDat, Msg),
+	{next_state, asp_active, LoopDat};
+asp_active(#m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_TRANSFER,
+		     msg_type = ?M3UA_MSGT_XFR_DATA, payload = Params}, LoopDat) ->
+	% Data transfer from remote entity: Send MTP-TRANSFER.ind primitive to the user
+	Mtp3 = proplists:get_value(?M3UA_IEI_PROTOCOL_DATA, Params),
+	send_prim_to_user(LoopDat, osmo_util:make_prim('MTP','TRANSFER',indication,Mtp3)),
+	{next_state, asp_active, LoopDat};
+asp_active(#m3ua_msg{msg_class = ?M3UA_MSGC_ASPTM,
+		     msg_type = ?M3UA_MSGT_ASPTM_ASPIA_ACK}, LoopDat) ->
+	timer:cancel(LoopDat#m3ua_state.t_ack),
+	% transition to ASP_INACTIVE
+        {next_state, asp_inactive, LoopDat};
+
+asp_active(M3uaMsg, LoopDat) when is_record(M3uaMsg, m3ua_msg) ->
+	rx_m3ua(M3uaMsg, asp_active, LoopDat).
+
+
+
+rx_sctp(_Anc, Data, State, LoopDat) ->
+	M3uaMsg = m3ua_codec:parse_m3ua_msg(Data),
+	gen_fsm:send_event(self(), M3uaMsg),
+	{next_state, State, LoopDat}.
+
+
+
+rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_MGMT,
+			msg_type = ?M3UA_MSGT_MGMT_NTFY}, State, LoopDat) ->
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','NOTIFY',indication,Msg)),
+	{next_state, State, LoopDat};
+
+rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_ASPSM,
+			msg_type = ?M3UA_MSGT_ASPSM_BEAT}, State, LoopDat) ->
+	% Send BEAT_ACK using the same payload as the BEAT msg
+	send_sctp_to_peer(LoopDat, Msg#m3ua_msg{msg_type = ?M3UA_MSGT_ASPSM_BEAT_ACK}),
+	{next_state, State, LoopDat};
+
+rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_MGMT,
+			msg_type = ?M3UA_MSGT_MGMT_ERR}, State, LoopDat) ->
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ERROR',indication,Msg)),
+	{next_state, State, LoopDat};
+
+rx_m3ua(Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_SSNM,
+		        msg_type = MsgType, payload = Params}, State, LoopDat) ->
+	% transform to classic MTP primitive and send up to the user
+	Mtp = map_ssnm_to_mtp_prim(MsgType),
+	send_prim_to_user(LoopDat, Mtp),
+	{next_state, State, LoopDat};
+
+rx_m3ua(Msg = #m3ua_msg{}, State, LoopDat) ->
+	io:format("M3UA Unknown messge ~p in state ~p~n", Msg, State),
+	{next_state, State, LoopDat}.
+
+% Transform the M3UA SSNM messages into classic MTP primitives
+map_ssnm_to_mtp_prim(MsgType) ->
+	Mtp = #primitive{subsystem = 'MTP', spec_name = indication},
+	case MsgType of
+	    ?M3UA_MSGT_SSNM_DUNA -> Mtp#primitive{gen_name = 'PAUSE'};
+	    ?M3UA_MSGT_SSNM_DAVA -> Mtp#primitive{gen_name = 'RESUME'};
+	    ?M3UA_MSGT_SSNM_SCON -> Mtp#primitive{gen_name = 'STATUS'};
+	    ?M3UA_MSGT_SSNM_DUPU -> Mtp#primitive{gen_name = 'STATUS'}
+	end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/m3ua_example.erl Added

@@ -0,0 +1,68 @@
+-module(m3ua_example).
+
+-include("osmo_util.hrl").
+-include("m3ua.hrl").
+-include("sccp.hrl").
+
+-export(init/0).
+
+-record(loop_dat, {
+	 scrc_pid,
+	 m3ua_pid
+	}).
+
+init() ->
+	% start the M3UA link to the SG
+	Opts = {user_pid, self()}, {sctp_remote_ip, {192,168,104,2}}, {sctp_remote_port, 2905},
+		{sctp_local_port, 60180}, {user_fun, fun m3ua_tx_to_user/2}, {user_args, self()},
+	{ok, M3uaPid} = m3ua_core:start_link(Opts),
+	% instantiate SCCP routing instance
+	{ok, ScrcPid} = sccp_scrc:start_link({mtp_tx_action, {callback_fn, fun scrc_tx_to_mtp/2, M3uaPid}}),
+	loop(#loop_dat{m3ua_pid = M3uaPid, scrc_pid = ScrcPid}).
+
+loop(L) ->
+	io:format("Example: Entering main loop~n"),
+	receive
+		{m3ua_prim, Prim} ->
+			io:format("Example: Rx M3UA Prim ~p~n", Prim),
+			rx_m3ua_prim(Prim, L);
+		Stop ->
+			io:format("Example: Received ~p~n", Stop),
+			exit(stop_received)
+	end,
+	loop(L).
+	
+
+scrc_tx_to_mtp(Prim, Args) ->
+	M3uaPid = Args,
+	gen_fsm:send_event(M3uaPid, Prim).
+
+m3ua_tx_to_user(Prim, Args) ->
+	UserPid = Args,
+	UserPid ! {m3ua_prim, Prim}.
+
+
+rx_m3ua_prim(#primitive{subsystem = 'M', gen_name = 'SCTP_ESTABLISH', spec_name = confirm}, L) ->
+	gen_fsm:send_event(L#loop_dat.m3ua_pid, osmo_util:make_prim('M','ASP_UP',request));
+
+rx_m3ua_prim(#primitive{subsystem = 'M', gen_name = 'ASP_UP', spec_name = confirm}, L) ->
+	gen_fsm:send_event(L#loop_dat.m3ua_pid, osmo_util:make_prim('M','ASP_ACTIVE',request));
+
+rx_m3ua_prim(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE', spec_name = confirm}, L) ->
+	io:format("Example: M3UA now active and ready~n"),
+	tx_sccp_udt(L#loop_dat.scrc_pid);
+
+rx_m3ua_prim(P, _L) ->
+	io:format("Example: Ignoring M3UA prim ~p~n", P),
+	ok.
+
+
+tx_sccp_udt(ScrcPid) ->
+	CallingP = #sccp_addr{ssn = ?SCCP_SSN_MSC, point_code = osmo_util:pointcode2int(itu, {1,2,2})},
+	CalledP = #sccp_addr{ssn = ?SCCP_SSN_HLR, point_code = osmo_util:pointcode2int(itu, {1,1,1})},
+	Data = <<1,2,3,4>>,
+	Opts = {protocol_class, 0}, {called_party_addr, CalledP},
+		{calling_party_addr, CallingP}, {user_data, Data},
+	io:format("Example: Sending N-UNITDATA.req to SCRC~n"),
+	gen_fsm:send_event(ScrcPid, osmo_util:make_prim('N','UNITDATA',request,Opts)).
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/mtp2_iac.erl Added

@@ -0,0 +1,341 @@
+% MTP2 Initial Alignment Control according to Q.703 Figure 4 / Figure 9
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(mtp2_iac).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(gen_fsm).
+
+% gen_fsm exports 
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
+
+% states in this FSM
+-export(idle/2, not_aligned/2, aligned/2, proving/2).
+
+% Timeouts in milliseconds According to Q.703 / Section 12.3
+-define(M2PA_T1_DEF,	 50000).
+-define(M2PA_T2_DEF,	150000).
+-define(M2PA_T3_DEF,	  2000).
+-define(M2PA_T4N_DEF,	  8200).
+-define(M2PA_T4E_DEF,	   500).
+
+-record(iac_state, {
+		t2_timeout,
+		t3_timeout,
+		t4_timeout,
+		t4_timeout_pn,
+		t4_timeout_pe,
+		t2, t3, t4,
+		emergency,
+		cp,
+		further_prov,
+		lsc_pid,
+		aerm_pid,
+		txc_pid
+	}).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% gen_fsm callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+init(Lsc, Aerm, Txc) ->
+	IacState = #iac_state{t2_timeout = ?M2PA_T2_DEF,
+			      t3_timeout = ?M2PA_T3_DEF,
+			      t4_timeout_pn = ?M2PA_T4N_DEF,
+			      t4_timeout_pe = ?M2PA_T4E_DEF,
+			      emergency = 0,
+			      cp = 0,
+			      further_prov = 1,
+			      lsc_pid = Lsc,
+			      aerm_pid = Aerm,
+			      txc_pid = Txc},
+	{ok, idle, IacState}.
+
+terminate(Reason, State, _LoopDat) ->
+	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
+		  ?MODULE, State, Reason),
+	ok.
+
+code_change(_OldVsn, StateName, LoopDat, _Extra) ->
+	{ok, StateName, LoopDat}.
+
+handle_event(Event, State, LoopDat) ->
+	io:format("Unknown Event ~p in state ~p~n", Event, State),
+	{next_state, State, LoopDat}.
+
+
+handle_info(Info, State, LoopDat) ->
+	io:format("Unknown Info ~p in state ~p~n", Info, State),
+	{next_state, State, LoopDat}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "idle"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+idle(start, LoopDat) ->
+	% send sio
+	send_to_txc(si_o, LoopDat),
+	% start timer
+	T2tout = LoopDat#iac_state.t2_timeout,
+	{ok, T2} = timer:apply_after(T2tout, gen_fsm, send_event,
+			  	     self(), {timer_expired, t2}),
+	{next_state, not_aligned, LoopDat#iac_state{t2 = T2}};
+idle(emergency, LoopDat) ->
+	% mark emergency
+	{next_state, idle, LoopDat#iac_state{emergency = 1}}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "not aligned"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+not_aligned(stop, LoopDat) ->
+	% stop T2
+	timer:cancel(LoopDat#iac_state.t2),
+	% cancel emergency
+	{next_state, idle, LoopDat#iac_state{emergency=0}};
+not_aligned(si_e, LoopDat) ->
+	% stop T2
+	timer:cancel(LoopDat#iac_state.t2),
+	T4tout = LoopDat#iac_state.t4_timeout_pe,
+	% send SIE or SIN
+	case LoopDat#iac_state.emergency of
+		0 ->
+			Send = si_n;
+		_ ->
+			Send = si_e
+	end,
+	send_to_txc(Send, LoopDat),
+	% start T3
+	T3tout = LoopDat#iac_state.t3_timeout,
+	{ok, T3} = timer:apply_after(T3tout, gen_fsm, send_event,
+				     self(), {timer_expired, t3}),
+	{next_state, aligned, LoopDat#iac_state{t3 = T3, t2 = undefined, t4_timeout = T4tout}};
+not_aligned(What, LoopDat) when What == si_o; What == si_n ->
+	% stop T2
+	timer:cancel(LoopDat#iac_state.t2),
+	% send SIE or SIN
+	case LoopDat#iac_state.emergency of
+		0 ->
+			T4tout = LoopDat#iac_state.t4_timeout_pn,
+			Send = si_n;
+		_ ->
+			T4tout = LoopDat#iac_state.t4_timeout_pe,
+			Send = si_e
+	end,
+	send_to_txc(Send, LoopDat),
+	T3tout = LoopDat#iac_state.t3_timeout,
+	{ok, T3} = timer:apply_after(T3tout, gen_fsm, send_event,
+				     self(), {timer_expired, t3}),
+	{next_state, aligned, LoopDat#iac_state{t3 = T3, t2 = undefined, t4_timeout = T4tout}};
+not_aligned(emergency, LoopDat) ->
+	% mark emergency
+	{next_state, not_aligned, LoopDat#iac_state{emergency=1}};
+not_aligned(si_os, LoopDat) ->
+	% ignore SIOS in this state, as some implementations (notably
+	% yate) seem to send it in violation of the spec
+	{next_state, not_aligned, LoopDat};
+not_aligned({timer_expired, t2}, LoopDat) ->
+	% send 'alignment not possible' to LSC
+	send_to_lsc(alignment_not_possible, LoopDat),
+	% stop emergency
+	{next_state, idle, LoopDat#iac_state{emergency=0}}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "aligned"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+aligned(What, LoopDat) when What == si_n; What == si_e ->
+	case What of
+		si_e ->
+			% set T4 to Pe
+			T4tout = LoopDat#iac_state.t4_timeout_pe;
+		_ ->
+			T4tout = LoopDat#iac_state.t4_timeout_pn
+	end,
+	% stop T3
+	timer:cancel(LoopDat#iac_state.t3),
+	ToutPE = LoopDat#iac_state.t4_timeout_pe,
+	case T4tout of
+		ToutPE ->
+			% set i to ie IAC->AERM
+			send_to_aerm(set_i_to_ie, LoopDat);
+		_ ->
+			ok
+	end,
+	% send Start to AERM
+	send_to_aerm(start, LoopDat),
+	% start T4
+	{ok, T4} = timer:apply_after(T4tout, gen_fsm, send_event,
+				     self(), {timer_expired, t4}),
+	% Cp := 0
+	% cancel further proving?
+	LoopDat2 = LoopDat#iac_state{t4 = T4, t4_timeout = T4tout,
+				     cp = 0, further_prov = 0},
+	{next_state, proving, LoopDat2};
+aligned(emergency, LoopDat) ->
+	% Send SIE
+	send_to_txc(si_e, LoopDat),
+	T4tout = LoopDat#iac_state.t4_timeout_pe,
+	{next_State, aligned, LoopDat#iac_state{t4_timeout = T4tout}};
+aligned(si_os, LoopDat) ->
+	% Send alignment not possible
+	send_to_lsc(alignment_not_possible, LoopDat),
+	% stop T3
+	timer:cancel(LoopDat#iac_state.t3),
+	{next_state, idle, LoopDat#iac_state{emergency=0, t3=undefined}};
+aligned(stop, LoopDat) ->
+	% Stop T3
+	timer:cancel(LoopDat#iac_state.t3),
+	% cancel Emergency
+	{next_state, idle, LoopDat#iac_state{emergency=0, t3=undefined}};
+aligned({timer_expired, t3}, LoopDat) ->
+	% Send alignment not possible
+	send_to_lsc(alignment_not_possible, LoopDat),
+	% cancel emergency
+	{next_state, idle, LoopDat#iac_state{emergency=0}}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "proving"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+fig9_4(LoopDat) ->
+	% send Stop to AERM
+	send_to_aerm(stop, LoopDat),
+	% cancel emergency
+	{next_state, idle, LoopDat#iac_state{emergency=0}}.
+
+fig9_5(LoopDat) ->
+	% send Start to AERM
+	send_to_aerm(start, LoopDat),
+	% cancel further proving
+	% start T4
+	T4tout = LoopDat#iac_state.t4_timeout,
+	{ok, T4} = timer:apply_after(T4tout, gen_fsm, send_event,
+				     self(), {timer_expired, t4}),
+	{next_state, proving, LoopDat#iac_state{t4=T4, further_prov=0}}.
+
+prov_emerg_or_sie(LoopDat) ->
+	% stop T4
+	timer:cancel(LoopDat#iac_state.t4),
+	% Set T4 to Pe
+	T4tout = LoopDat#iac_state.t4_timeout_pe,
+	% Send stop to AERM
+	send_to_aerm(stop, LoopDat),
+	% Send 'set ti to tie' to AERM
+	send_to_aerm(set_ti_to_tie, LoopDat),
+	fig9_5(LoopDat#iac_state{t4_timeout=T4tout, t4=undefined}).
+
+
+proving(expires, LoopDat) ->
+	% alignment complete
+	{next_state, idle, LoopDat};
+proving(si_e, LoopDat) ->
+	ToutPE = LoopDat#iac_state.t4_timeout_pe,
+	case LoopDat#iac_state.t4_timeout of
+		ToutPE ->
+			{next_state, proving, LoopDat};
+		_ ->
+			prov_emerg_or_sie(LoopDat)
+	end;
+proving(emergency, LoopDat) ->
+	prov_emerg_or_sie(LoopDat);
+proving(stop, LoopDat) ->
+	% stop T4
+	timer:cancel(LoopDat#iac_state.t4),
+	fig9_4(LoopDat);
+proving(si_os, LoopDat) ->
+	% stop T4
+	timer:cancel(LoopDat#iac_state.t4),
+	% Send alignment not possible to LSC
+	send_to_lsc(alignment_not_possible, LoopDat),
+	fig9_4(LoopDat);
+proving(high_err_rate, LoopDat) ->
+	% alignment not possible
+	{next_state, idle, LoopDat};
+proving(sio, LoopDat) ->
+	% stop T4
+	timer:cancel(LoopDat#iac_state.t4),
+	% send Stop to AERM
+	send_to_aerm(stop, LoopDat),
+	% start T3
+	T3tout = LoopDat#iac_state.t3_timeout,
+	{ok, T3} = timer:apply_after(T3tout, gen_fsm, send_event,
+				     self(), {timer_expired, t3}),
+	{next_state, aligned, LoopDat#iac_state{t3=T3, t4=undefined}};
+proving(What, LoopDat) when What == correct_su; What == si_n ->
+	case LoopDat#iac_state.further_prov of
+		1 ->
+			% stop T4
+			timer:cancel(LoopDat#iac_state.t4),
+			fig9_5(LoopDat);
+		_ ->
+			{next_state, proving, LoopDat}
+	end;
+proving({timer_expired, t4}, LoopDat) ->
+	% check if we are further proving, if yes, call fig9_5
+	case LoopDat#iac_state.further_prov of
+		1 ->
+			fig9_5(LoopDat);
+		_ ->
+			% send 'aligment complete' to LSC
+			send_to_lsc(alignment_complete, LoopDat),
+			fig9_4(LoopDat)
+	end;
+proving(abort_proving, LoopDat) ->
+	% Cp := Cp + 1
+	Cp = LoopDat#iac_state.cp,
+	LoopDat2 = LoopDat#iac_state{cp = Cp + 1},
+	case Cp + 1 of
+		5 ->
+			% send 'alignment not possible' to LSC
+			send_to_lsc(alignment_not_possible, LoopDat),
+			% stop T4
+			timer:cancel(LoopDat#iac_state.t4),
+			fig9_4(LoopDat2);
+		_ ->
+			% mark further proving
+			{next_state, proving, LoopDat2#iac_state{further_prov=1}}
+	end.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% helper functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+send_to_lsc(What, #iac_state{lsc_pid = Lsc}) ->
+	gen_fsm:send_event(Lsc, What).
+
+send_to_aerm(What, #iac_state{aerm_pid = Aerm}) ->
+	Aerm ! {iac_aerm, What}.
+
+send_to_txc(What, #iac_state{txc_pid = Txc}) ->
+	Txc ! {iac_txc, What}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/mtp2_lsc.erl Added

@@ -0,0 +1,430 @@
+% MTP2 Link State Control according to Q.703 Figure 3 / Figure 8
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(mtp2_lsc).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(gen_fsm).
+
+% gen_fsm exports 
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
+
+% individual FSM states
+-export(power_off/2, out_of_service/2, initial_alignment/2,
+	 aligned_not_ready/2, aligned_ready/2, in_service/2,
+	 processor_outage/2).
+
+% sync event handlers
+-export(power_off/3).
+
+-record(lsc_state, {
+		t1_timeout,
+		t1,
+		iac_pid,
+		aerm_pid,
+		l3_pid,
+		poc_pid,
+		txc_pid,
+		rc_pid,
+		local_proc_out,
+		proc_out,
+		emergency
+	}).
+
+-define(M2PA_T1_DEF,	300000).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% gen_fsm callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+init(Aerm, Rc, Txc, L3, Poc) ->
+	{ok, Iac} = gen_fsm:start_link(mtp2_iac, self(), Aerm, Txc, {debug, trace}),
+	LscState = #lsc_state{t1_timeout = ?M2PA_T1_DEF,
+			      iac_pid = Iac,
+			      aerm_pid = Aerm,
+			      l3_pid = L3,
+			      poc_pid = L3,
+			      txc_pid = Txc,
+			      rc_pid = Rc,
+		      	      local_proc_out = 0,
+		      	      proc_out = 0,
+		      	      emergency = 0},
+	{ok, power_off, LscState}.
+
+terminate(Reason, State, _LoopDat) ->
+	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
+		  ?MODULE, State, Reason),
+	ok.
+
+code_change(_OldVsn, StateName, LoopDat, _Extra) ->
+	{ok, StateName, LoopDat}.
+
+handle_event(Event, State, LoopDat) ->
+	io:format("Unknown Event ~p in state ~p~n", Event, State),
+	{next_state, State, LoopDat}.
+
+
+handle_info(Info, State, LoopDat) ->
+	io:format("Unknown Info ~p in state ~p~n", Info, State),
+	{next_state, State, LoopDat}.
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: power_off
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+power_off(power_on, LoopDat) ->
+	% Power On from MGMT
+	send_to(txc, start, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	send_to(aerm, set_ti_to_tin, LoopDat),
+	% Cancel local processor outage, cancel emergency
+	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}}.
+
+power_off(get_iac_pid, From, LoopDat) ->
+	Iac = LoopDat#lsc_state.iac_pid,
+	{reply, {ok, Iac}, power_off, LoopDat}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: out_of_service
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+out_of_service(start, LoopDat) ->
+	% Start from L3
+	send_to(rc, start, LoopDat),
+	send_to(txc, start, LoopDat),
+	case LoopDat#lsc_state.emergency of
+		1 ->
+			send_to(iac, emergency, LoopDat);
+		_ ->
+			ok
+	end,
+	send_to(iac, start, LoopDat),
+	{next_state, initial_alignment, LoopDat};
+
+out_of_service(retrieve_bsnt, LoopDat) ->
+	send_to(rc, retrieve_bsnt, LoopDat),
+	{next_state, out_of_service, LoopDat};
+
+out_of_service(retrieval_request_and_fsnc, LoopDat) ->
+	send_to(txc, retrieval_request_and_fsnc, LoopDat),
+	{next_state, out_of_service, LoopDat};
+
+out_of_service(emergency, LoopDat) ->
+	{next_state, out_of_service, LoopDat#lsc_state{emergency=1}};
+
+out_of_service(emergency_ceases, LoopDat) ->
+	{next_state, out_of_service, LoopDat#lsc_state{emergency=0}};
+
+out_of_service(What, LoopDat) when	What == local_processor_outage;
+					What == level3_failure ->
+	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=1}};
+
+out_of_service(si_os, LoopDat) ->
+	% this transition is not specified in Q.703, but it makes
+	% quite a bit of sense.  yate M2PA requires it, too.
+	{next_state, out_of_service, LoopDat};
+
+out_of_service(local_processor_recovered, LoopDat) ->
+	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0}}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: initial_alignment
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+initial_alignment(What, LoopDat) when	What == local_processor_outage;
+					What == level3_failure ->
+	{next_state, initial_alignment, LoopDat#lsc_state{local_proc_out=1}};
+
+initial_alignment(local_processor_recovered, LoopDat) ->
+	{next_state, initial_alignment, LoopDat#lsc_state{local_proc_out=0}};
+
+initial_alignment(emergency, LoopDat) ->
+	send_to(iac, emergency, LoopDat),
+	{next_state, initial_alignment, LoopDat#lsc_state{emergency=1}};
+
+initial_alignment(alignment_complete, LoopDat) ->
+	send_to(suerm, start, LoopDat),
+	{ok, T1} = timer:apply_after(LoopDat#lsc_state.t1_timeout,
+				     gen_fsm, send_event,
+				     self(), {timer_expired, t1}),
+	case LoopDat#lsc_state.local_proc_out of
+		1 ->
+			send_to(poc, local_processor_outage, LoopDat),
+			send_to(txc, si_po, LoopDat),
+			send_to(rc, reject_msu_fisu, LoopDat),
+			NextState = aligned_not_ready;
+		_ ->
+			send_to(txc, fisu, LoopDat),
+			send_to(rc, accept_msu_fisu, LoopDat),
+			NextState = aligned_ready
+	end,
+	{next_state, NextState, LoopDat#lsc_state{t1=T1}};
+
+initial_alignment(stop, LoopDat) ->
+	send_to(iac, stop, LoopDat),
+	send_to(rc, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
+
+initial_alignment(link_failure, LoopDat) ->
+	send_to(l3, out_of_service, LoopDat),
+	send_to(iac, stop, LoopDat),
+	send_to(rc, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
+
+initial_alignment(alignment_not_possible, LoopDat) ->
+	send_to(rc, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
+
+% forward into IAC sub-state-machine
+initial_alignment(What, LoopDat) when
+		What == si_n; What == si_e; What == si_o; What == si_os;
+		What == fisu_msu_received ->
+	Iac = LoopDat#lsc_state.iac_pid,
+	gen_fsm:send_event(Iac, What),
+	{next_state, initial_alignment, LoopDat}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: aligned_ready
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+aligned_ready(SioOrSios, LoopDat) when SioOrSios == si_o;
+					SioOrSios == si_os;
+			       		SioOrSios == link_failure ->
+	timer:cancel(LoopDat#lsc_state.t1),
+	send_to(l3, out_of_service, LoopDat),
+	send_to(rc, stop, LoopDat),
+	send_to(suerm, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat};
+
+aligned_ready(stop, LoopDat) ->
+	timer:cancel(LoopDat#lsc_state.t1),
+	send_to(rc, stop, LoopDat),
+	send_to(suerm, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat};
+
+aligned_ready({timer_expired, t1}, LoopDat) ->
+	send_to(l3, out_of_service, LoopDat),
+	send_to(rc, stop, LoopDat),
+	send_to(suerm, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat};
+
+aligned_ready(si_po, LoopDat) ->
+	timer:cancel(LoopDat#lsc_state.t1),
+	send_to(l3, remote_processor_outage, LoopDat),
+	send_to(poc, remote_processor_outage, LoopDat),
+	{next_state, processor_outage, LoopDat};
+
+aligned_ready(fisu_msu_received, LoopDat) ->
+	send_to(l3, in_service, LoopDat),
+	timer:cancel(LoopDat#lsc_state.t1),
+	send_to(txc, msu, LoopDat),
+	{next_state, in_service, LoopDat};
+aligned_ready(What, LoopDat) when	What == local_processor_outage;
+					What == level3_failure ->
+	send_to(poc, local_processor_outage, LoopDat),
+	send_to(txc, si_po, LoopDat),
+	send_to(rc, reject_msu_fisu, LoopDat),
+	{next_state, aligned_not_ready, LoopDat}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: aligned_not_ready
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+aligned_not_ready(Err, LoopDat) when 	Err == link_failure;
+					Err == si_o;
+					Err == si_os ->
+	timer:cancel(LoopDat#lsc_state.t1),
+	send_to(l3, out_of_service, LoopDat),
+	send_to(l3, stop, LoopDat),
+	send_to(suerm, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	send_to(poc, stop, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
+
+aligned_not_ready(stop, LoopDat) ->
+	timer:cancel(LoopDat#lsc_state.t1),
+	send_to(l3, stop, LoopDat),
+	send_to(suerm, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	send_to(poc, stop, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
+
+aligned_not_ready({timer_expired, t1}, LoopDat) ->
+	send_to(l3, stop, LoopDat),
+	send_to(suerm, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	send_to(poc, stop, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{local_proc_out=0, emergency=0}};
+
+aligned_not_ready(local_processor_recovered, LoopDat) ->
+	send_to(poc, local_processor_recovered, LoopDat),
+	send_to(txc, fisu, LoopDat),
+	send_to(rc, accept_msu_fisu, LoopDat),
+	{next_state, aligned_ready, LoopDat#lsc_state{local_proc_out=0}};
+
+aligned_not_ready(fisu_msu_received, LoopDat) ->
+	send_to(l3, in_service, LoopDat),
+	timer:cancel(LoopDat#lsc_state.t1),
+	{next_state, processor_outage, LoopDat};
+
+aligned_not_ready(si_po, LoopDat) ->
+	send_to(l3, remote_processor_outage, LoopDat),
+	send_to(poc, remote_processor_outage, LoopDat),
+	timer:cancel(LoopDat#lsc_state.t1),
+	{next_state, processor_outage, LoopDat}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: in_service
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+in_service(What, LoopDat) when	What == link_failure;
+				What == si_o;
+				What == si_n;
+				What == si_e;
+				What == si_os ->
+	send_to(l3, out_of_service, LoopDat),
+	send_to(suerm, stop, LoopDat),
+	send_to(rc, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{emergency=0}};
+
+in_service(stop, LoopDat) ->
+	send_to(suerm, stop, LoopDat),
+	send_to(rc, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{emergency=0}};
+
+in_service(What, LoopDat) when	What == local_processor_outage;
+				What == level3_failure ->
+	send_to(poc, local_processor_outage, LoopDat),
+	send_to(txc, si_po, LoopDat),
+	send_to(rc, reject_msu_fisu, LoopDat),
+	{next_state, aligned_not_ready, LoopDat#lsc_state{local_proc_out=1}};
+
+in_service(si_po, LoopDat) ->
+	send_to(txc, fisu, LoopDat),
+	send_to(l3, remote_processor_outage, LoopDat),
+	send_to(poc, remote_processor_outage, LoopDat),
+	{next_state, processor_outage, LoopDat#lsc_state{proc_out=1}}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: processor_outage
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+processor_outage(retrieval_request_and_fsnc, LoopDat) ->
+	send_to(txc, retrieval_request_and_fsnc, LoopDat),
+	{next_state, processor_outage, LoopDat};
+
+processor_outage(fisu_msu_received, LoopDat) ->
+	send_to(poc, remote_processor_recovered, LoopDat),
+	send_to(l3, remote_processor_recovered, LoopDat),
+	{next_state, processor_outage, LoopDat};
+
+processor_outage(retrieve_bsnt, LoopDat) ->
+	send_to(rc, retrieve_bsnt, LoopDat),
+	{next_state, processor_outage, LoopDat};
+
+processor_outage(What, LoopDat) when	What == local_processor_outage;
+					What == level3_failure ->
+	send_to(poc, local_processor_outage, LoopDat),
+	send_to(txc, si_po, LoopDat),
+	{next_state, processor_outage, LoopDat#lsc_state{local_proc_out=1}};
+
+processor_outage(si_po, LoopDat) ->
+	send_to(l3, remote_processor_outage, LoopDat),
+	send_to(poc, remote_processor_outage, LoopDat),
+	{next_state, processor_outage, LoopDat#lsc_state{proc_out=1}};
+
+processor_outage(local_processor_recovered, LoopDat) ->
+	send_to(poc, local_processor_recovered, LoopDat),
+	send_to(rc, retrieve_fsnx, LoopDat),
+	send_to(txc, fisu, LoopDat),
+	{next_state, processor_outage, LoopDat};
+
+processor_outage(flush_buffers, LoopDat) ->
+	send_to(txc, flush_buffers, LoopDat),
+	% FIXME: mark L3 ind recv
+	{next_state, processor_outage, LoopDat};
+
+processor_outage(no_processor_outage, LoopDat) ->
+	% FIXME: check L3 ind
+	send_to(txc, msu, LoopDat),
+	send_to(rc, accept_msu_fisu, LoopDat),
+	{next_state, in_service, LoopDat#lsc_state{local_proc_out=0, proc_out=0}};
+
+processor_outage(What, LoopDat) when	What == link_failure;
+					What == si_o;
+					What == si_n;
+					What == si_e;
+					What == si_os ->
+	send_to(l3, out_of_service, LoopDat),
+	send_to(suerm, stop, LoopDat),
+	send_to(rc, stop, LoopDat),
+	send_to(poc, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{emergency=0, local_proc_out=0}};
+
+processor_outage(stop, LoopDat) ->
+	send_to(suerm, stop, LoopDat),
+	send_to(rc, stop, LoopDat),
+	send_to(poc, stop, LoopDat),
+	send_to(txc, si_os, LoopDat),
+	{next_state, out_of_service, LoopDat#lsc_state{emergency=0, local_proc_out=0}}.
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% helper functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+send_to(txc, What, #lsc_state{txc_pid = Txc}) ->
+	Txc ! {lsc_txc, What};
+send_to(iac, What, #lsc_state{iac_pid = Iac}) ->
+	gen_fsm:send_event(Iac, What);
+send_to(rc, What, #lsc_state{rc_pid = Rc}) ->
+	Rc ! {lsc_rc, What};
+send_to(Who, What, _LoopDat) ->
+	io:format("Not sending LSC -> ~p: ~p~n", Who, What).
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/mtp3_codec.erl Added

@@ -0,0 +1,93 @@
+% ITU-T Q.704 (MTP Level 3) coding / decoding
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(mtp3_codec).
+-author('Harald Welte <laforge@gnumonks.org>').
+-include("mtp3.hrl").
+
+-export(parse_mtp3_msg/1, encode_mtp3_msg/1, invert_rout_lbl/1).
+
+-compile({parse_transform, exprecs}).
+-export_records(mtp3_routing_label, mtp3_msg).
+
+% Parse standard routing label according to Section 2.2 of ITU-T Q.704
+parse_mtp3_routing_label(_, LabelBin) when is_binary(LabelBin) ->
+	% we need to swap the four bytes and then parse the fields
+	<<Label32:32/little, Remain/binary>> = LabelBin,
+	LabelRev = <<Label32:32/big>>,
+	<<Sls:4/big, Opc:14/big, Dpc:14/big>> = LabelRev,
+	{ok, #mtp3_routing_label{sig_link_sel = Sls, origin_pc = Opc, dest_pc = Dpc}, Remain}.
+
+parse_mtp3_msg(DataBin) when is_binary(DataBin) ->
+	<<NetInd:2, 0:2, ServiceInd:4, Remain/binary>> = DataBin,
+	{ok, RoutLbl, Payload} = parse_mtp3_routing_label(ServiceInd, Remain),
+	PayloadDec = decode_payload(ServiceInd, Payload),
+	#mtp3_msg{network_ind = NetInd, service_ind = ServiceInd, routing_label = RoutLbl,
+		  payload = PayloadDec}.
+
+
+encode_mtp3_routing_label(#mtp3_routing_label{sig_link_sel = Sls, origin_pc = OpcIn,
+					      dest_pc = DpcIn}) ->
+	Opc = osmo_util:pointcode2int(OpcIn),
+	Dpc = osmo_util:pointcode2int(DpcIn),
+	% we need to swap the four bytes after encoding the fields
+	<<Label32:32/little>> = <<Sls:4/big, Opc:14/big, Dpc:14/big>>,
+	<<Label32:32/big>>.
+
+encode_mtp3_msg(#mtp3_msg{network_ind = NetInd, service_ind = ServiceInd,
+			  routing_label = RoutLbl, payload = Payload}) ->
+	RoutLblBin = encode_mtp3_routing_label(RoutLbl),
+	PayloadBin = payload_to_binary(ServiceInd, Payload),
+	<<NetInd:2, 0:2, ServiceInd:4, RoutLblBin/binary, PayloadBin/binary>>.
+
+
+decode_payload(?MTP3_SERV_MTN, Payload) ->
+	<<H1:4, H0:4, Len:4, 0:4, TP/binary>> = Payload,
+	#mtp3mg_msg{h0 = H0, h1 = H1, payload = TP};
+decode_payload(?MTP3_SERV_MGMT, Payload) ->
+	<<H1:4, H0:4, Remain/binary>> = Payload,
+	#mtp3mg_msg{h0 = H0, h1 = H1, payload = Remain};
+decode_payload(_, Payload) ->
+	Payload.
+
+payload_to_binary(?MTP3_SERV_MTN, #mtp3mg_msg{h0=H0, h1=H1, payload=TP}) ->
+	Len = byte_size(TP),
+	<<H1:4, H0:4, Len:4, 0:4, TP/binary>>;
+payload_to_binary(?MTP3_SERV_MGMT, #mtp3mg_msg{h0=H0, h1=H1, payload=Payload}) ->
+	<<H1:4, H0:4, Payload/binary>>;
+payload_to_binary(_, Whatever) ->
+	Whatever.
+
+
+invert_rout_lbl(L = #mtp3_routing_label{origin_pc = Opc, dest_pc = Dpc}) ->
+	L#mtp3_routing_label{origin_pc = Dpc, dest_pc = Opc}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/mtp3_hmdt.erl Added

@@ -0,0 +1,116 @@
+% MTP3 Message handling; message distribution (HMDT) according to Q.704
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(mtp3_hmdt).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(gen_fsm).
+
+-include("mtp3.hrl").
+
+% gen_fsm exports 
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
+
+% individual FSM states
+-export(idle/2, own_sp_restart/2).
+
+-record(hmdt_state, {
+		sltc_pid
+	}).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% gen_fsm callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+init(Sltc) when is_pid(Sltc) ->
+	HmdtState = #hmdt_state{sltc_pid = Sltc},
+	{ok, idle, HmdtState}.
+
+terminate(Reason, State, _LoopDat) ->
+	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
+		  ?MODULE, State, Reason),
+	ok.
+
+code_change(_OldVsn, StateName, LoopDat, _Extra) ->
+	{ok, StateName, LoopDat}.
+
+handle_event(Event, State, LoopDat) ->
+	io:format("Unknown Event ~p in state ~p~n", Event, State),
+	{next_state, State, LoopDat}.
+
+handle_info(Info, State, LoopDat) ->
+	io:format("Unknown Info ~p in state ~p~n", Info, State),
+	{next_state, State, LoopDat}.
+
+% See Figure 2 of Q.707
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: idle
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+idle(M=#mtp3_msg{service_ind=Sio}, LoopDat) ->
+	handle_mtp3(Sio, M, LoopDat),
+	{next_state, idle, LoopDat};
+
+idle(restart_begins, LoopDat) ->
+	{next_state, own_sp_restart, LoopDat}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: own_sp_restart
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+own_sp_restart(M=#mtp3_msg{service_ind=Sio}, LoopDat) when
+			Sio == ?MTP3_SERV_MGMT; Sio == ?MTP3_SERV_MTN ->
+	handle_mtp3(Sio, M, LoopDat),
+	{next_state, own_sp_restart, LoopDat};
+
+own_sp_restart(restart_ends, LoopDat) ->
+	{next_state, idle, LoopDat}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% helper functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+handle_mtp3(?MTP3_SERV_MTN, Mtp3, LoopDat) ->
+	io:format("SIO ~p HMDT -> SLTC~n", ?MTP3_SERV_MTN),
+	gen_fsm:send_event(LoopDat#hmdt_state.sltc_pid, Mtp3);
+handle_mtp3(?MTP3_SERV_MGMT, Mtp3, LoopDat) ->
+	io:format("SIO ~p HMDT -> NULL~n", ?MTP3_SERV_MGMT),
+	% FIXME: distinguish between SRM, SLM and STM
+	ok;
+handle_mtp3(Sio, Mtp3, LoopDat) ->
+	io:format("SIO ~p HMDT -> ss7_links~n", Sio),
+	% deliver to subsystem
+	ss7_links:mtp3_rx(Mtp3),
+	% FIXME: Send UPU! ?
+	ok.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/mtp3_sltc.erl Added

@@ -0,0 +1,220 @@
+% MTP3 Signalling Link Test Control (SLTC) according to Q.707
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(mtp3_sltc).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(gen_fsm).
+
+-include("mtp3.hrl").
+
+% gen_fsm exports 
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
+
+% individual FSM states
+-export(idle/2, first_attempt/2, second_attempt/2).
+
+-record(sltc_state, {
+		hmrt_pid,
+		mgmt_pid,
+		lsac_pid,
+		sls,
+		opc,
+		adj_dpc,
+		t1,
+		t1_timeout,
+		x
+	}).
+
+-define(SLTC_T1_DEF,	10000).
+-define(SLTC_T2_DEF,	60000).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% gen_fsm callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+init(Hmrt, Mgmt, Lsac, Sls, AdjDpc, Opc) when
+		is_pid(Hmrt), is_pid(Mgmt), is_pid(Lsac), is_integer(Sls) ->
+	SltState = #sltc_state{hmrt_pid = Hmrt,
+			       mgmt_pid = Mgmt,
+			       lsac_pid = Lsac,
+			       sls = Sls,
+			       adj_dpc = AdjDpc,
+			       opc = Opc,
+			       t1_timeout = ?SLTC_T1_DEF,
+			       x = 16#2342},
+	{ok, idle, SltState}.
+
+terminate(Reason, State, _LoopDat) ->
+	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
+		  ?MODULE, State, Reason),
+	ok.
+
+code_change(_OldVsn, StateName, LoopDat, _Extra) ->
+	{ok, StateName, LoopDat}.
+
+handle_event(Event, State, LoopDat) ->
+	io:format("Unknown Event ~p in state ~p~n", Event, State),
+	{next_state, State, LoopDat}.
+
+handle_info(Info, State, LoopDat) ->
+	io:format("Unknown Info ~p in state ~p~n", Info, State),
+	{next_state, State, LoopDat}.
+
+% See Figure 2 of Q.707
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: idle
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+idle(M=#mtp3_msg{service_ind = ?MTP3_SERV_MTN,
+		 payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
+			 		h1 = ?MTP3MG_H1_SLTM}}, LoopDat) ->
+	Slta = slta_from_sltm(M),
+	send_to(hmrt, Slta, LoopDat),
+	{next_state, idle, LoopDat};
+
+idle(start, LoopDat) ->
+	Sltm = generate_sltm(LoopDat),
+	send_to(hmrt, Sltm, LoopDat),
+	{ok, T1} = timer:apply_after(gen_fsm, send_event,
+				     self(), {timer_expired, t1}),
+	{next_state, first_attempt, LoopDat#sltc_state{t1 = T1}}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: first_attempt
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+first_attempt(M=#mtp3_msg{service_ind = ?MTP3_SERV_MTN,
+			  payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
+						h1 = ?MTP3MG_H1_SLTM}}, LoopDat) ->
+	Slta = slta_from_sltm(M),
+	send_to(hmrt, Slta, LoopDat),
+	{next_state, first_attempt, LoopDat};
+
+first_attempt(M = #mtp3_msg{service_ind = ?MTP3_SERV_MTN,
+			    payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
+						  h1 = ?MTP3MG_H1_SLTA}}, LoopDat) ->
+	timer:cancel(LoopDat#sltc_state.t1),
+	case slt_matches(M, LoopDat) of
+	    true ->
+		send_to(lsac, slt_successful, LoopDat),
+		{next_state, idle, LoopDat};
+	    false ->
+		Sltm = generate_sltm(LoopDat),
+		send_to(hmrt, Sltm, LoopDat),
+		{ok, T1} = timer:apply_after(gen_fsm, send_event,
+					     self(), {timer_expired, t1}),
+		{next_state, second_attempt, LoopDat#sltc_state{t1 = T1}}
+	end.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE: second_attempt
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+second_attempt(M=#mtp3_msg{service_ind = ?MTP3_SERV_MTN,
+			  payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
+						h1 = ?MTP3MG_H1_SLTM}}, LoopDat) ->
+	Slta = slta_from_sltm(M),
+	send_to(hmrt, Slta, LoopDat),
+	{next_state, second_attempt, LoopDat};
+
+second_attempt(M = #mtp3_msg{service_ind = ?MTP3_SERV_MTN,
+			     payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
+						   h1 = ?MTP3MG_H1_SLTA}}, LoopDat) ->
+	timer:cancel(LoopDat#sltc_state.t1),
+	case slt_matches(M, LoopDat) of
+	    true ->
+		send_to(lsac, slt_successful, LoopDat);
+	    false ->
+		send_to(mgmt, slt_failed, LoopDat),
+		send_to(lsac, slt_failed, LoopDat)
+	end,
+	{next_state, idle, LoopDat};
+
+second_attempt({timer_expired, t1}, LoopDat) ->
+	send_to(mgmt, slt_failed, LoopDat),
+	send_to(lsac, slt_failed, LoopDat),
+	{next_state, idle, LoopDat}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% helper functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+send_to(hmrt, What, #sltc_state{hmrt_pid = Txc}) ->
+	Txc ! {sltc_hmrt, What};
+send_to(mgmt, What, #sltc_state{mgmt_pid = Txc}) ->
+	Txc ! {sltc_mgmt, What};
+send_to(lsac, What, #sltc_state{lsac_pid = Txc}) ->
+	Txc ! {sltc_lsac, What}.
+
+slta_from_sltm(M = #mtp3_msg{service_ind = ?MTP3_SERV_MTN,
+			     routing_label = RoutLbl,
+			     payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
+						   h1 = ?MTP3MG_H1_SLTM,
+					   	   payload = TP}}) ->
+	InvRoutLbl = mtp3_codec:invert_rout_lbl(RoutLbl),
+	M#mtp3_msg{routing_label = InvRoutLbl,
+		   payload = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST,
+			   		 h1 = ?MTP3MG_H1_SLTA,
+					 payload = TP}}.
+
+generate_sltm(LoopDat) ->
+	Mg = #mtp3mg_msg{h0 = ?MTP3MG_H0_TEST, h1 = ?MTP3MG_H1_SLTM,
+			 payload = LoopDat#sltc_state.x},
+	Lbl = #mtp3_routing_label{sig_link_sel = LoopDat#sltc_state.sls,
+				  origin_pc = LoopDat#sltc_state.opc,
+				  dest_pc = LoopDat#sltc_state.adj_dpc},
+
+	#mtp3_msg{network_ind = ?MTP3_NETIND_INTERNATIONAL,
+		  service_ind = ?MTP3_SERV_MTN,
+		  routing_label = Lbl, payload = Mg}.
+
+rout_lbl_matches(#mtp3_routing_label{sig_link_sel = SlsLocal,
+				     origin_pc = OPC}, LoopDat) ->
+	#sltc_state{adj_dpc = AdjDpc, sls = SLS} = LoopDat,
+	if SLS == SlsLocal, OPC == AdjDpc ->
+		true;
+	   true ->
+		false
+	end.
+
+slt_matches(#mtp3_msg{routing_label = RoutLbl,
+		      payload = #mtp3mg_msg{payload = TP}}, LoopDat) ->
+	case LoopDat#sltc_state.x of
+	    TP ->
+		rout_lbl_matches(RoutLbl, LoopDat);
+	    _ ->
+		false
+	end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/osmo_ss7_app.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/osmo_ss7_gtt.erl Added

@@ -0,0 +1,187 @@
+% Osmocom Global Title Translation
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(osmo_ss7_gtt).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-include("sccp.hrl").
+-include("gtt.hrl").
+
+-export(global_title_match/2, apply_gtt_actions/2, execute_gtt/2).
+
+-compile({parse_transform, exprecs}).
+-export_records(gtt_match, gtt_act_repl_digits, gtt_act_repl_num_plan).
+
+% Match a given GT against an ordered list of {match, action} tuples
+global_title_match(, _Gt) ->
+	false;
+global_title_match({Match, Action}|Tail, Gt) when is_record(Gt, global_title) ->
+	PhoneNumInt = osmo_util:digit_list2int(Gt#global_title.phone_number),
+	if Match#gtt_match.gt_range_from >= PhoneNumInt ->
+		% in an ordered list, we can assume that no trailing rules will
+		% match
+		false;
+	   true ->
+		case single_gt_match(Match, Gt) of
+		    true ->
+			Action;
+		    _ ->
+			% iterate further over the list of GTT rules
+			global_title_match(Tail, Gt)
+		end
+	end;
+% Same as above, but for SCCP Address (i.e. GT + point code and SSN)
+global_title_match({Match, Action}|Tail, SccpAddr) when
+					is_record(SccpAddr, sccp_addr) ->
+	Gt = SccpAddr#sccp_addr.global_title,
+	PhoneNumInt = osmo_util:digit_list2int(Gt#global_title.phone_number),
+	if Match#gtt_match.gt_range_from >= PhoneNumInt ->
+		% in an ordered list, we can assume that no trailing rules will
+		% match
+		false;
+	   true ->
+		case single_gt_match(Match, SccpAddr) of
+		    true ->
+			Action;
+		    _ ->
+			% iterate further over the list of GTT rules
+			global_title_match(Tail, SccpAddr)
+		end
+	end.
+
+
+% perform matching of a given global title against a single match
+single_gt_match(Match, Gt) when is_record(Match, gtt_match),
+				is_record(Gt, global_title) ->
+	#gtt_match{gt_range_from = RangeFrom, gt_range_to = RangeTo,
+		   numbering_plan = NumPlan,
+		   nature_of_addr_ind = NatureInd} = Match,
+	#global_title{phone_number = GtPhoneNum,
+		      numbering_plan = GtNumPlan,
+		      nature_of_addr_ind = GtNature} = Gt,
+	% build a list of the individual criteria that all have to match
+	SubMatchList = {digits, {RangeFrom, RangeTo}, GtPhoneNum},
+			{numbering_plan, NumPlan, GtNumPlan},
+			{nature_of_addr_ind, NatureInd, GtNature},
+	gt_sub_match_list(SubMatchList);
+% Same as above, but for SCCP Address (i.e. GT + point code and SSN)
+single_gt_match(Match, SccpAddr) when is_record(Match, gtt_match),
+				      is_record(SccpAddr, sccp_addr) ->
+	#gtt_match{dpc = Dpc, ssn = Ssn} = Match,
+	Gt = SccpAddr#sccp_addr.global_title,
+	% First match the GT part
+	case single_gt_match(Match, Gt) of
+	    false ->
+		false;
+	    true ->
+		% build a list of the individual criteria that all have to match
+		SubMatchList = {dpc, Dpc, SccpAddr#sccp_addr.point_code},
+				{ssn, Ssn, SccpAddr#sccp_addr.ssn},
+		gt_sub_match_list(SubMatchList)
+	end.
+
+% iterate over the list of individual match criteria and call the match function
+gt_sub_match_list() ->
+	true;
+gt_sub_match_list({What, MatchPart, GtPart}|SubMatchList) ->
+	case gt_sub_match(What, MatchPart, GtPart) of
+		false ->
+			false;
+		true ->
+			gt_sub_match_list(SubMatchList)
+	end.
+
+% matching of the actual phone number digits
+gt_sub_match(digits, {DigitsFrom, DigitsTo}, GtPart) ->
+	PhoneNumInt = osmo_util:digit_list2int(GtPart),
+	if
+		PhoneNumInt >= DigitsFrom, PhoneNumInt =< DigitsTo -> true;
+		true -> false
+	end;
+% any match that is not qualified will always match
+gt_sub_match(_What, undefined, _GtPart) ->
+	true;
+% remaining default match for all other fields
+gt_sub_match(_What, MatchPart, GtPart) ->
+	if
+		MatchPart == GtPart -> true;
+		true -> false
+	end.
+
+
+% Execute a single action: Replac some digits in the GT
+gtt_action(Gt, Action) when is_record(Gt, global_title),
+			    is_record(Action, gtt_act_repl_digits) ->
+	#gtt_act_repl_digits{replace_digit_start = ReplDigStart,
+			   replace_digit_end = ReplDigEnd,
+			   new_digits = NewDigits} = Action,
+	GtDigitList = Gt#global_title.phone_number,
+	Header = lists:sublist(GtDigitList, 1, ReplDigStart-1),
+	Trailer = lists:sublist(GtDigitList, ReplDigEnd+1, length(GtDigitList)),
+	Gt#global_title{phone_number = Header ++ NewDigits ++ Trailer};
+
+% Execute a single action: Replac the numbering plan in the GT
+gtt_action(Gt, #gtt_act_repl_num_plan{numbering_plan = NewNumPlan})
+					when is_record(Gt, global_title) ->
+	Gt#global_title{numbering_plan = NewNumPlan};
+
+% Execute a single 'generic purpose' action that will call apply/2
+gtt_action(Gt, #gtt_act_apply{funct = Funct, args = Args}) when
+					is_record(Gt, global_title) ->
+	apply(Funct, Args).
+
+
+% appliy a list of GTT actions to a Global Title
+apply_gtt_actions(Gt, ) when is_record(Gt, global_title) ->
+	Gt;
+apply_gtt_actions(Gt, Head|List) when is_record(Gt, global_title) ->
+	NewGt = gtt_action(Gt, Head),
+	apply_gtt_actions(NewGt, List);
+apply_gtt_actions(Gt, Action) when is_record(Gt, global_title) ->
+	gtt_action(Gt, Action).
+
+% Execute a complete GTT operation: matching + executing the action
+execute_gtt(Gt, RulesList) when is_record(Gt, global_title),
+				is_list(RulesList) ->
+	case global_title_match(RulesList, Gt) of
+	    false ->
+		Gt;
+	    Action ->
+		apply_gtt_actions(Gt, Action)
+	end;
+% Same as above, but for SCCP Address (i.e. GT + point code and SSN)
+execute_gtt(SccpAddr, RulesList) when is_record(SccpAddr, sccp_addr),
+				      is_list(RulesList) ->
+	Gt = SccpAddr#sccp_addr.global_title,
+	NewGt = execute_gtt(Gt, RulesList),
+	SccpAddr#sccp_addr{global_title = NewGt}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/osmo_ss7_pcap.erl Added

@@ -0,0 +1,101 @@
+% MGW Nat testing code
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+% (C) 2011 OnWaves
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(osmo_ss7_pcap).
+-author("Harald Welte <laforge@gnumonks.org>").
+-export(pcap_apply/3).
+
+-define(NODEBUG, 1).
+
+-include_lib("eunit/include/eunit.hrl").
+-include_lib("pkt/include/pkt.hrl").
+
+-record(loop_data, {
+		args,
+		pkt_nr
+	}).
+
+pcap_apply(File, Filter, Args) ->
+	epcap:start({file, File}, {filter, Filter}),
+	loop(#loop_data{args = Args, pkt_nr = 1}).
+
+loop(L = #loop_data{args=Args, pkt_nr = PktNr}) ->
+	receive
+		{pkthdr, {_,_,_,{datalink,Datalink}}}, {packet, Packet} ->
+			Decaps = epcap_net:decapsulate_dlt(Datalink, Packet),
+			handle_pkt_cb(PktNr, Decaps, Args),
+			loop(L#loop_data{pkt_nr = PktNr+1});
+		{epcap, eof} ->
+			?debugFmt("EOF from PCAP~n", ),
+			epcap:stop(),
+			{ok, PktNr-1};
+		Default ->
+			?debugFmt("Unknown ~p from PCAP~n", Default)
+	end.
+
+handle_pkt_cb(PktNr, Ether, IP, Hdr, Payload, Args) ->
+	?debugFmt("~p:~n  ~p/~p~n", IP, Hdr, Payload),
+	case Hdr of
+		#sctp{chunks = Chunks} ->
+			Path = {epcap_pkt_nr, PktNr}, Ether, IP, Hdr,
+			handle_sctp_chunks(Chunks, Path, Args);
+		_ ->
+			ok
+	end.
+
+handle_sctp_chunks(, _Path, _Args) ->
+	ok;
+handle_sctp_chunks(Head|Tail, Path, Args) ->
+	RewriteFn = proplists:get_value(rewrite_fn, Args),
+	case Head of
+		#sctp_chunk{type = 0, payload=#sctp_chunk_data{ppi=Ppi, data=Data}} ->
+			%mgw_nat:mangle_rx_data(l, from_stp, Data, fun handle_rewrite_cb/5);
+			put(rewrite_cb, RewriteFn),
+			shim_rw_actor(sctp, from_msc, Path, Ppi, Data);
+		_ ->
+			ok
+	end,
+	handle_sctp_chunks(Tail, Path, Args).
+
+shim_rw_actor(Proto, From, Path, MsgType, Msg) ->
+	?debugFmt(" IN:~p:~p:~p~n", Proto, From, Msg),
+	Fn = get(rewrite_cb),
+	MsgOut = Fn(Proto, From, Path, MsgType, Msg),
+	case MsgOut of
+		Msg ->
+			MsgOut;
+		_ ->
+			%io:format("OUT:~p:~p:~p~n", Proto, From, MsgOut),
+			MsgOut
+	end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/osmo_ss7_sup.erl Added

@@ -0,0 +1,76 @@
+% OTP Supervisor for Osmocom SCCP
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(osmo_ss7_sup).
+-behavior(supervisor).
+
+-export(start_link/0, add_mtp_link/1).
+-export(init/1).
+
+-include_lib("osmo_ss7/include/osmo_ss7.hrl").
+
+start_link() ->
+	supervisor:start_link({local, ?MODULE}, ?MODULE, {debug, trace}).
+
+init(Args) ->
+	LinksChild = {ss7_links, {ss7_links, start_link, },
+		     permanent, 2000, worker, ss7_links},
+	RouteChild = {ss7_routes, {ss7_routes, start_link, },
+		     permanent, 2000, worker, ss7_routes},
+	{ok,{{one_for_one,60,600}, LinksChild, RouteChild}}.
+
+% Add a m3ua link to this supervisor
+add_mtp_link(L=#sigtran_link{type = m3ua, name = Name,
+			   local = Local, remote = Remote}) ->
+	ChildName = list_to_atom("ss7_link_m3ua_" ++ Name),
+	ChildSpec = {ChildName, {ss7_link_m3ua, start_link, L},
+		     permanent, 2000, worker, ss7_link_m3ua},
+	supervisor:start_child(?MODULE, ChildSpec);
+add_mtp_link(L=#sigtran_link{type = m2ua, name = Name,
+			   local = Local, remote = Remote}) ->
+	ChildName = list_to_atom("ss7_link_m2ua_" ++ Name),
+	ChildSpec = {ChildName, {ss7_link_m2ua, start_link, L},
+		     permanent, 2000, worker, ss7_link_m2ua},
+	supervisor:start_child(?MODULE, ChildSpec);
+add_mtp_link(L=#sigtran_link{type = ipa_client, name = Name}) ->
+	ChildName = list_to_atom("ss7_link_ipa_client_" ++ Name),
+	ChildSpec = {ChildName, {ss7_link_ipa_client, start_link, L},
+		     permanent, 2000, worker, ss7_link_ipa_client},
+	supervisor:start_child(?MODULE, ChildSpec);
+add_mtp_link() ->
+	ok;
+add_mtp_link(Head|Tail) ->
+	add_mtp_link(Head, Tail).
+add_mtp_link(Head, Tail) ->
+	{ok, _Child} = add_mtp_link(Head),
+	add_mtp_link(Tail).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/osmo_util.erl Added

@@ -0,0 +1,222 @@
+% Osmocom Erlang utility functions
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(osmo_util).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-export(digit_list2int/1, int2digit_list/1).
+-export(reload_config/0).
+-export(tuple_walk/3, tuple_walk_print_cb/3).
+-export(make_prim/4, make_prim/3).
+-export(pointcode2int/1, pointcode2int/2, pointcode_fmt/2).
+-export(asn_val/1).
+-export(get_env/2, get_env/3).
+
+-include("osmo_util.hrl").
+
+-compile({parse_transform, exprecs}).
+-export_records(primitive).
+
+% Convert a list of digits to an integer value
+digit_list2int(Int, ) ->
+	Int;
+digit_list2int(Int, Digit|Tail) ->
+	digit_list2int(Int*10 + Digit, Tail).
+digit_list2int(Digits) when is_list(Digits) ->
+	digit_list2int(0, Digits).
+
+% Convert an integer value into a list of decimal digits
+int2digit_list(0, Digits) when is_list(Digits) ->
+	Digits;
+int2digit_list(Int, Digits) when is_integer(Int), is_list(Digits) ->
+	Digit = Int rem 10,
+	int2digit_list(Int div 10, Digit|Digits).
+int2digit_list(Int) when is_integer(Int) ->
+	int2digit_list(Int, ).
+
+% reload configuration of an application
+reload_config() ->
+	case init:get_argument(config) of
+	{ok,  Files } ->
+		ConfFiles = begin
+				S = filename:basename(F,".config"),
+				filename:join(filename:dirname(F),
+				S ++ ".config")
+			     end || F <- Files,
+		% Move sys.config to the head of the list
+		Config = lists:sort(fun("sys.config", _) -> true;
+					(_, _) -> false end, ConfFiles),
+
+		OldEnv = application_controller:prep_config_change(),
+
+		Apps = {application, A, make_appl(A)}
+		|| {A,_,_} <- application:which_applications(),
+		application_controller:change_application_data(Apps, Config),
+		application_controller:config_change(OldEnv);
+	_ ->
+		{ok, }
+	end.
+
+make_appl(App) when is_atom(App) ->
+	AppList  = element(2,application:get_all_key(App)),
+	FullName = code:where_is_file(atom_to_list(App) ++ ".app"),
+	case file:consult(FullName) of
+	{ok, {application, _, Opts}} ->
+		Env = proplists:get_value(env, Opts, ),
+		lists:keyreplace(env, 1, AppList, {env, Env});
+	{error, _Reason} ->
+		lists:keyreplace(env, 1, AppList, {env, })
+	end.
+
+
+% Walk a named tuple and (recursively) all its fields, call user-supplied
+% callback for each of them
+tuple_walk(Tpl, TupleCb, Args) when is_tuple(Tpl), is_function(TupleCb),
+				    is_list(Args) ->
+	tuple_walk(, Tpl, TupleCb, Args).
+
+tuple_walk(Path, Tpl, TupleCb, Args) when is_list(Path), is_tuple(Tpl),
+					  is_list(Args) ->
+	% call Callback
+	RetVal = TupleCb(Path, Tpl, Args),
+	if
+		is_tuple(RetVal) ->
+                	TplName|TplList = tuple_to_list(RetVal),
+                	NewTplList = tuple_fieldlist_walk(Path, TplName, TplList, TupleCb, Args),
+                	list_to_tuple(TplName|NewTplList);
+        	true ->
+                	RetVal
+        end;
+tuple_walk(Path, TplL, TupleCb, Args) when is_list(Path), is_list(TplL),
+					   is_list(Args) ->
+	tuple_walk_list(Path, TplL, TupleCb, Args, ).
+
+tuple_walk_list(_Path, , _TupleCb, _Args, OutList) ->
+	OutList;
+tuple_walk_list(Path, Head|Tail, TupleCb, Args, OutList) ->
+	if
+		is_tuple(Head) ->
+			NewHead = tuple_walk(Path, Head, TupleCb, Args);
+		is_list(Head) ->
+			NewHead = tuple_walk(Path, Head, TupleCb, Args);
+		true ->
+			NewHead = Head
+	end,
+	tuple_walk_list(Path, Tail, TupleCb, Args, OutList++NewHead).
+
+
+tuple_fieldlist_walk(Path, TplName, FieldList, TupleCb, Args) ->
+	tuple_fieldlist_walk(Path, TplName, FieldList, TupleCb, Args, ).
+
+tuple_fieldlist_walk(_Path, _TplName, , _TplCb, _Args, OutList) ->
+	OutList;
+tuple_fieldlist_walk(Path, TplName, Head|List, TupleCb, Args, OutList) ->
+	if
+		is_tuple(Head) ->
+			NewHead = tuple_walk(Path++TplName, Head, TupleCb, Args);
+		is_list(Head) ->
+			NewHead = tuple_walk(Path++TplName, Head, TupleCb, Args);
+		true ->
+			NewHead = Head
+	end,
+	tuple_fieldlist_walk(Path, TplName, List, TupleCb, Args, OutList++NewHead).
+
+
+tuple_walk_print_cb(Path, Tpl, _Args) when is_list(Path), is_tuple(Tpl) ->
+	io:format("~p:~p~n", Path, Tpl),
+	Tpl.
+
+% helper function to create a #primitive record
+make_prim(Subsys, GenName, SpecName) ->
+	make_prim(Subsys, GenName, SpecName, ).
+make_prim(Subsys, GenName, SpecName, Param) ->
+	#primitive{subsystem = Subsys, gen_name = GenName,
+		   spec_name = SpecName, parameters = Param}.
+
+% parse a 3-tuple pointcode into a raw integer
+pointcode2int(Int) when is_integer(Int) ->
+	Int;
+pointcode2int(undefined) ->
+	undefined;
+pointcode2int(#pointcode{repr=Type, value=Value}) ->
+	pointcode2int(Type, Value);
+pointcode2int({Std, Param}) ->
+	pointcode2int(Std, Param).
+
+pointcode2int(itu, {A, B, C}) ->
+	<<PcInt:14/big>> = <<A:3, B:8, C:3>>,
+	PcInt;
+pointcode2int(ansi, {A, B, C}) ->
+	<<PcInt:24/big>> = <<A:8, B:8, C:8>>,
+	PcInt;
+pointcode2int(ttc, {A, B, C}) ->
+	<<PcInt:16/big>> = <<A:5, B:4, C:7>>,
+	PcInt.
+
+% format a point-code into a 3-tuple according to the standard used
+pointcode_fmt(Std, P) when is_binary(P) ->
+	<<PcInt/integer>> = P,
+	pointcode_fmt(Std, PcInt);
+pointcode_fmt(itu, PcInt) when is_integer(PcInt) ->
+	<<A:3, B:8, C:3>> = <<PcInt:14/big>>,
+	{pointcode, itu, {A, B, C}};
+pointcode_fmt(ansi, PcInt) ->
+	<<A:8, B:8, C:8>> = <<PcInt:24/big>>,
+	{pointcode, ansi, {A, B, C}};
+pointcode_fmt(ttc, PcInt) ->
+	<<A:5, B:4, C:7>> = <<PcInt:16/big>>,
+	{pointcode, ttc, {A, B, C}}.
+
+asn_val(undefined) ->
+	asn1_NOVALUE;
+asn_val() ->
+	asn1_NOVALUE;
+asn_val(Foo) ->
+	Foo.
+
+% wrapper around application:get_env() thwowing exception on undef
+get_env(App, Var) when is_atom(App), is_atom(Var) ->
+	case application:get_env(App, Var) of
+		undefined ->
+			throw(undefined);
+		{ok, Value} ->
+			Value
+	end.
+
+get_env(App, Var, Default) ->
+	case application:get_env(App, Var) of
+		undefined ->
+			Default;
+		{ok, Value} ->
+			Value
+	end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/sccp_codec.erl Added

@@ -0,0 +1,558 @@
+% ITU-T Q.71x SCCP Message coding / decoding
+
+% (C) 2010 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(sccp_codec).
+-author('Harald Welte <laforge@gnumonks.org>').
+-include("sccp.hrl").
+
+-export(parse_sccp_msg/1, encode_sccp_msg/1, encode_sccp_msgt/2,
+	 is_connectionless/1).
+
+-export(gen_gt_helper/1, gen_addr_helper/2, gen_addr_helper/3).
+
+-compile(export_all).
+
+-compile({parse_transform, exprecs}).
+-export_records(global_title, sccp_addr, sccp_msg).
+
+binarify(In) when is_binary(In) ->
+	In;
+binarify(In) when is_list(In) ->
+	list_to_binary(In).
+
+parse_point_code(BinPC, PCind) when is_binary(BinPC) ->
+	case PCind of
+		1 ->
+			<<PointCode:16/little, Remain/binary>> = BinPC;
+		_ ->
+			Remain = BinPC,
+			PointCode = undefined
+	end,
+	{Remain, PointCode}.
+
+parse_ssn(BinSSN, SSNind) ->
+	case SSNind of
+		1 ->
+			<<SSN:8, Remain/binary>> = BinSSN;
+		_ ->
+			Remain = BinSSN,
+			SSN = undefined
+	end,
+	{Remain, SSN}.
+
+enc_is_odd(Enc) ->
+	case Enc of
+		1 -> 1;
+		_ -> 0
+	end.
+
+parse_gt(BinGT, GTind) ->
+	case GTind of
+		?SCCP_GTI_NO_GT ->
+			undefined;
+		?SCCP_GTI_NAT_ONLY ->
+			% Figure 7/Q.713
+			<<Odd:1, Nature:7, Digits/binary>> = BinGT,
+			PhoneNum = isup_codec:parse_isup_party(Digits, Odd),
+			#global_title{gti = GTind,
+				      nature_of_addr_ind = Nature,
+				      phone_number = PhoneNum};
+		?SCCP_GTI_TT_ONLY ->
+			% Figure 9/Q.913
+			<<TransType:8, Digits/binary>> = BinGT,
+			% Used in national interfaces only, we cannot parse Digits
+			#global_title{gti = GTind,
+				      trans_type = TransType,
+				      phone_number = Digits};
+		?SCCP_GTI_TT_NP_ENC ->
+			% Figure 10/Q.713
+			<<TransType:8, NumPlan:4, Enc:4, Digits/binary>> = BinGT,
+			PhoneNum = isup_codec:parse_isup_party(Digits, enc_is_odd(Enc)),
+			#global_title{gti = GTind,
+				      trans_type = TransType,
+				      numbering_plan = NumPlan,
+				      phone_number = PhoneNum};
+		?SCCP_GTI_TT_NP_ENC_NAT ->
+			% Figure 11/Q.713
+			<<TransType:8, NumPlan:4, Enc:4, 0:1, Nature:7, Digits/binary>> = BinGT,
+			PhoneNum = isup_codec:parse_isup_party(Digits, enc_is_odd(Enc)),
+			#global_title{gti = GTind,
+				      trans_type = TransType,
+				      numbering_plan = NumPlan,
+				      nature_of_addr_ind = Nature,
+				      phone_number = PhoneNum};
+		_ ->
+			BinGT
+	end.
+
+% parse SCCP Address
+parse_sccp_addr(BinAddr) when is_binary(BinAddr) ->
+	<<ResNatUse:1, RoutInd:1, GTind:4, SSNind:1, PCind:1, Remain/binary>> = BinAddr,
+	{RemainPC, OptPC} = parse_point_code(Remain, PCind),
+	{RemainSSN, OptSSN} = parse_ssn(RemainPC, SSNind),
+	OptGT = parse_gt(RemainSSN, GTind),
+	#sccp_addr{res_nat_use = ResNatUse, route_on_ssn = RoutInd,
+		   point_code = OptPC, ssn = OptSSN, global_title = OptGT}.
+
+% parse SCCP Optional Part
+parse_sccp_opt(OptType, _OptLen, Content) ->
+	OptAtom = opt_to_atom(OptType),
+	{OptAtom, Content}.
+
+parse_sccp_opts(<<>>, OptList) ->
+	% empty list
+	OptList;
+parse_sccp_opts(<<0>>, OptList) ->
+	% end of options
+	OptList;
+parse_sccp_opts(OptBin, OptList) ->
+	<<OptType, OptLen, Content:OptLen/binary, Remain/binary>> = OptBin,
+	NewOpt = parse_sccp_opt(OptType, OptLen, Content),
+	parse_sccp_opts(Remain, NewOpt|OptList).
+
+
+% Parse incoming SCCP message, one function for every message type
+parse_sccp_msgt(?SCCP_MSGT_CR, DataBin) ->
+	% first get the fixed part
+	<<_:8, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, RemainVar/binary >> = DataBin,
+	% variable length fixed part
+	<<PtrVar:8, PtrOpt:8, _/binary>> = RemainVar,
+	CalledPartyLen = binary:at(RemainVar, PtrVar),
+	CalledParty = binary:part(RemainVar, PtrVar+1, CalledPartyLen),
+	CalledPartyDec = parse_sccp_addr(CalledParty),
+	% optional part
+	OptBin = binary:part(RemainVar, 1 + PtrOpt, byte_size(RemainVar)-(1+PtrOpt)),
+	OptList = parse_sccp_opts(OptBin, ),
+	%OptList = ,
+	% build parsed list of message
+	{src_local_ref, SrcLocalRef},{protocol_class, {ProtoClass, PCOpt}},
+	 {called_party_addr, CalledPartyDec} | OptList;
+parse_sccp_msgt(?SCCP_MSGT_CC, DataBin) ->
+	% first get the fixed part
+	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, PtrOpt:8, Remain/binary >> = DataBin,
+	% optional part
+	OptBin = binary:part(Remain, PtrOpt-1, byte_size(Remain)-(PtrOpt-1)),
+	OptList = parse_sccp_opts(OptBin, ),
+	% build parsed list of message
+	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef},
+	 {protocol_class, {ProtoClass, PCOpt}} | OptList;
+parse_sccp_msgt(?SCCP_MSGT_CREF, DataBin) ->
+	% first get the fixed part
+	<<_:8, DstLocalRef:24/big, RefusalCause:8, Remain/binary >> = DataBin,
+	% optional part
+	OptList = parse_sccp_opts(Remain, ),
+	% build parsed list of message
+	{dst_local_ref, DstLocalRef},{refusal_cause, RefusalCause}|OptList;
+parse_sccp_msgt(?SCCP_MSGT_RLSD, DataBin) ->
+	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big, ReleaseCause:8, Remain/binary >> = DataBin,
+	% optional part
+	OptList = parse_sccp_opts(Remain, ),
+	% build parsed list of message
+	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef},{release_cause, ReleaseCause}|OptList;
+parse_sccp_msgt(?SCCP_MSGT_RLC, DataBin) ->
+	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big>> = DataBin,
+	% build parsed list of message
+	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef};
+parse_sccp_msgt(?SCCP_MSGT_DT1, DataBin) ->
+	<<_:8, DstLocalRef:24/big, SegmReass:8, DataPtr:8, Remain/binary >> = DataBin,
+	DataLen = binary:at(Remain, DataPtr-1),
+	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
+	% build parsed list of message
+	{dst_local_ref, DstLocalRef},{segm_reass, SegmReass},{user_data, UserData};
+parse_sccp_msgt(?SCCP_MSGT_DT2, DataBin) ->
+	<<_:8, DstLocalRef:24/big, SeqSegm:16, DataPtr:8, Remain/binary >> = DataBin,
+	DataLen = binary:at(Remain, DataPtr-1),
+	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
+	% build parsed list of message
+	{dst_local_ref, DstLocalRef},{seq_segm, SeqSegm},{user_data, UserData};
+parse_sccp_msgt(?SCCP_MSGT_AK, DataBin) ->
+	<<_:8, DstLocalRef:24/big, RxSeqnr:8, Credit:8>> = DataBin,
+	{dst_local_ref, DstLocalRef},{rx_seq_nr, RxSeqnr},{credit, Credit};
+parse_sccp_msgt(?SCCP_MSGT_UDT, DataBin) ->
+	<<_:8, PCOpt:4, ProtoClass:4, CalledPartyPtr:8, CallingPartyPtr:8, DataPtr:8, Remain/binary >> = DataBin,
+	% variable part
+	CalledPartyLen = binary:at(Remain, CalledPartyPtr-3),
+	CalledParty = binary:part(Remain, CalledPartyPtr-3+1, CalledPartyLen),
+	CalledPartyDec = parse_sccp_addr(CalledParty),
+	CallingPartyLen = binary:at(Remain, CallingPartyPtr-2),
+	CallingParty = binary:part(Remain, CallingPartyPtr-2+1, CallingPartyLen),
+	CallingPartyDec = parse_sccp_addr(CallingParty),
+	DataLen = binary:at(Remain, DataPtr-1),
+	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
+	{protocol_class, {ProtoClass, PCOpt}},{called_party_addr, CalledPartyDec},
+	 {calling_party_addr, CallingPartyDec},{user_data, UserData};
+parse_sccp_msgt(?SCCP_MSGT_UDTS, DataBin) ->
+	<<_:8, ReturnCause:8, CalledPartyPtr:8, CallingPartyPtr:8, DataPtr:8, Remain/binary >> = DataBin,
+	% variable part
+	CalledPartyLen = binary:at(Remain, CalledPartyPtr-3),
+	CalledParty = binary:part(Remain, CalledPartyPtr-3+1, CalledPartyLen),
+	CalledPartyDec = parse_sccp_addr(CalledParty),
+	CallingPartyLen = binary:at(Remain, CallingPartyPtr-2),
+	CallingParty = binary:part(Remain, CallingPartyPtr-2+1, CallingPartyLen),
+	CallingPartyDec = parse_sccp_addr(CallingParty),
+	DataLen = binary:at(Remain, DataPtr-1),
+	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
+	{return_cause, ReturnCause},{called_party_addr, CalledPartyDec},
+	 {calling_party_addr, CallingPartyDec},{user_data, UserData};
+parse_sccp_msgt(?SCCP_MSGT_ED, DataBin) ->
+	<<_:8, DstLocalRef:24/big, DataPtr:8, Remain/binary>> = DataBin,
+	DataLen = binary:at(Remain, DataPtr-1),
+	UserData = binary:part(Remain, DataPtr-1+1, DataLen),
+	{dst_local_ref, DstLocalRef}, {user_data, UserData};
+parse_sccp_msgt(?SCCP_MSGT_EA, DataBin) ->
+	<<_:8, DstLocalRef:24/big>> = DataBin,
+	{dst_local_ref, DstLocalRef};
+parse_sccp_msgt(?SCCP_MSGT_RSR, DataBin) ->
+	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big, ResetCause:8>> = DataBin,
+	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef},{reset_cause, ResetCause};
+parse_sccp_msgt(?SCCP_MSGT_RSC, DataBin) ->
+	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big>> = DataBin,
+	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef};
+parse_sccp_msgt(?SCCP_MSGT_ERR, DataBin) ->
+	<<_:8, DstLocalRef:24/big, ErrCause:8>> = DataBin,
+	{dst_local_ref, DstLocalRef},{error_cause, ErrCause};
+parse_sccp_msgt(?SCCP_MSGT_IT, DataBin) ->
+	<<_:8, DstLocalRef:24/big, SrcLocalRef:24/big, PCOpt: 4, ProtoClass:4, SegmSeq:16, Credit:8>> = DataBin,
+	{dst_local_ref, DstLocalRef},{src_local_ref, SrcLocalRef},
+         {protocol_class, {ProtoClass, PCOpt}},{seq_segm, SegmSeq},{credit, Credit}.
+% FIXME: XUDT/XUDTS, LUDT/LUDTS
+
+% process one incoming SCCP message
+parse_sccp_msg(DataBin) ->
+	MsgType = binary:first(DataBin),
+	Parsed = parse_sccp_msgt(MsgType, DataBin),
+	{ok, #sccp_msg{msg_type = MsgType, parameters = Parsed}}.
+
+% Encoding Part
+
+gt_enc_by_odd(Odd) ->
+	if Odd == 1 ->
+		1;
+	   true ->
+		2
+	end.
+
+encode_gt(undefined) ->
+	{?SCCP_GTI_NO_GT, <<>>};
+encode_gt(#global_title{gti = GTind, phone_number = PhoneNum,
+			nature_of_addr_ind = Nature,
+			trans_type = TransType,
+			numbering_plan = NumPlan}) ->
+	case GTind of
+		?SCCP_GTI_NO_GT ->
+			{GTind, <<>>};
+		?SCCP_GTI_NAT_ONLY ->
+			% Figure 7/Q.713
+			{PhoneBin, OddEven} = isup_codec:encode_isup_party(PhoneNum),
+			{GTind, <<OddEven:1, Nature:7, PhoneBin/binary>>};
+		?SCCP_GTI_TT_ONLY ->
+			% Figure 9/Q.913
+			% Used in national interfaces only, we cannot parse Digits
+			{GTind, <<TransType:8, PhoneNum/binary>>};
+		?SCCP_GTI_TT_NP_ENC ->
+			% Figure 10/Q.713
+			{PhoneBin, OddEven} = isup_codec:encode_isup_party(PhoneNum),
+			Enc = gt_enc_by_odd(OddEven),
+			{GTind, <<TransType:8, NumPlan:4, Enc:4, PhoneBin/binary>>};
+		?SCCP_GTI_TT_NP_ENC_NAT ->
+			% Figure 11/Q.713
+			{PhoneBin, OddEven} = isup_codec:encode_isup_party(PhoneNum),
+			Enc = gt_enc_by_odd(OddEven),
+			{GTind, <<TransType:8, NumPlan:4, Enc:4, 0:1, Nature:7, PhoneBin/binary>>}
+	end.
+
+encode_pc(undefined) ->
+	{0, <<>>};
+encode_pc(PointCode) when is_integer(PointCode) ->
+	{1, <<PointCode:16/little>>};
+encode_pc(PcRec) ->
+	PcInt = osmo_util:pointcode2int(PcRec),
+	encode_pc(PcInt).
+
+encode_ssn(SSN) ->
+	case SSN of
+		undefined ->
+			{0, <<>>};
+		_ ->
+			{1, <<SSN:8>>}
+	end.
+
+undef_or_true(Foo) ->
+	case Foo of
+		undefined -> 0;
+		0 -> 0;
+		_ -> 1
+	end.
+
+
+encode_sccp_addr(#sccp_addr{res_nat_use = ResNatUse,
+			    route_on_ssn = RoutInd,
+			    point_code = PointCode,
+			    ssn = SSN,
+			    global_title = GT}) ->
+
+	{GTind, GTbin} = encode_gt(GT),
+	{SSNind, SSNbin} = encode_ssn(SSN),
+	{PCind, PCbin} = encode_pc(PointCode),
+	ResNatOut = undef_or_true(ResNatUse),
+	RoutIndOut = undef_or_true(RoutInd),
+	<<ResNatOut:1, RoutIndOut:1, GTind:4, SSNind:1, PCind:1, PCbin/binary, SSNbin/binary, GTbin/binary>>.
+
+
+encode_sccp_opt({AddrTag, AddrVal}) when AddrTag == ?SCCP_PNC_CALLED_PARTY_ADDRESS;
+					 AddrTag == ?SCCP_PNC_CALLING_PARTY_ADDRESS ->
+	AddrEnc = encode_sccp_addr(AddrVal),
+	AddrLen = byte_size(AddrEnc),
+	<<AddrTag:8, AddrLen:8, AddrEnc/binary>>;
+encode_sccp_opt({OptInt, DataBin}) when is_binary(DataBin), is_integer(OptInt) ->
+	DataBinLen = byte_size(DataBin),
+	<<OptInt:8, DataBinLen:8, DataBin/binary>>;
+encode_sccp_opt({Opt, DataBin}) when is_atom(Opt) ->
+	OptNum = atom_to_opt(Opt),
+	encode_sccp_opt({OptNum, DataBin});
+encode_sccp_opt({Opt, DataInt}) when is_integer(DataInt), DataInt =< 255 ->
+	encode_sccp_opt({Opt, <<DataInt:8>>});
+encode_sccp_opt({Opt, DataList}) when is_list(DataList) ->
+	encode_sccp_opt({Opt, list_to_binary(DataList)}).
+
+encode_sccp_opts(OptList, Filter) ->
+	FilteredList = lists:filter(fun({Tag, _Val}) -> proplists:is_defined(opt_to_atom(Tag), Filter) end, OptList),
+	e_sccp_opts(FilteredList, ).
+
+e_sccp_opts(, OptEnc) ->
+	% end of options + convert to binary
+	list_to_binary(OptEnc, ?SCCP_PNC_END_OF_OPTIONAL);
+e_sccp_opts(CurOpt|OptPropList, OptEnc) ->
+	CurOptEnc = encode_sccp_opt(CurOpt),
+	e_sccp_opts(OptPropList, list_to_binary(OptEnc,CurOptEnc)).
+
+
+encode_sccp_msgt(?SCCP_MSGT_CR, Params) ->
+	SrcLocalRef = proplists:get_value(src_local_ref, Params),
+	{ProtoClass, PCOpt} = proplists:get_value(protocol_class, Params),
+	CalledParty = proplists:get_value(called_party_addr, Params),
+	CalledPartyEnc = encode_sccp_addr(CalledParty),
+	CalledPartyLen = byte_size(CalledPartyEnc),
+	PtrOpt = CalledPartyLen+1+1,
+	OptBin = encode_sccp_opts(Params, credit, calling_party_addr, user_data, hop_counter, importance),
+	<<?SCCP_MSGT_CR:8, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, 2:8, PtrOpt:8, CalledPartyLen:8, CalledPartyEnc/binary, OptBin/binary>>;
+encode_sccp_msgt(?SCCP_MSGT_CC, Params) ->
+	SrcLocalRef = proplists:get_value(src_local_ref, Params),
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	{ProtoClass, PCOpt} = proplists:get_value(protocol_class, Params),
+	OptBin = encode_sccp_opts(Params, credit, called_party_addr, user_data, importance),
+	<<?SCCP_MSGT_CC:8, DstLocalRef:24/big, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, OptBin/binary>>;
+encode_sccp_msgt(?SCCP_MSGT_CREF, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	RefusalCause = proplists:get_value(refusal_cause, Params),
+	OptBin = encode_sccp_opts(Params, called_party_addr, user_data, importance),
+	<<?SCCP_MSGT_CREF:8, DstLocalRef:24/big, RefusalCause:8, OptBin/binary>>;
+encode_sccp_msgt(?SCCP_MSGT_RLSD, Params) ->
+	SrcLocalRef = proplists:get_value(src_local_ref, Params),
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	ReleaseCause = proplists:get_value(release_cause, Params),
+	OptBin = encode_sccp_opts(Params, user_data, importance),
+	<<?SCCP_MSGT_RLSD:8, DstLocalRef:24/big, SrcLocalRef:24/big, ReleaseCause:8, OptBin/binary>>;
+encode_sccp_msgt(?SCCP_MSGT_RLC, Params) ->
+	SrcLocalRef = proplists:get_value(src_local_ref, Params),
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	<<?SCCP_MSGT_RLC:8, DstLocalRef:24/big, SrcLocalRef:24/big>>;
+encode_sccp_msgt(?SCCP_MSGT_DT1, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	SegmReass = proplists:get_value(segm_reass, Params),
+	UserData = binarify(proplists:get_value(user_data, Params)),
+	UserDataLen = byte_size(UserData),
+	<<?SCCP_MSGT_DT1:8, DstLocalRef:24/big, SegmReass:8, 1:8, UserDataLen:8, UserData/binary>>;
+encode_sccp_msgt(?SCCP_MSGT_DT2, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	SeqSegm = proplists:get_value(seq_segm, Params),
+	UserData = binarify(proplists:get_value(user_data, Params)),
+	UserDataLen = byte_size(UserData),
+	<<?SCCP_MSGT_DT2:8, DstLocalRef:24/big, SeqSegm:16, 1:8, UserDataLen:8, UserData/binary>>;
+encode_sccp_msgt(?SCCP_MSGT_AK, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	RxSeqnr = proplists:get_value(rx_seqnr, Params),
+	Credit = proplists:get_value(credit, Params),
+	<<?SCCP_MSGT_AK:8, DstLocalRef:24/big, RxSeqnr:8, Credit:8>>;
+encode_sccp_msgt(?SCCP_MSGT_UDT, Params) ->
+	{ProtoClass, PCOpt} = proplists:get_value(protocol_class, Params),
+	CalledParty = proplists:get_value(called_party_addr, Params),
+	CalledPartyEnc = encode_sccp_addr(CalledParty),
+	CalledPartyLen = byte_size(CalledPartyEnc),
+	CallingParty = proplists:get_value(calling_party_addr, Params),
+	CallingPartyEnc = encode_sccp_addr(CallingParty),
+	CallingPartyLen = byte_size(CallingPartyEnc),
+	UserData = binarify(proplists:get_value(user_data, Params)),
+	UserDataLen = byte_size(UserData),
+	% variable part
+	CalledPartyPtr = 3,
+	CallingPartyPtr = 2 + (1 + CalledPartyLen),
+	DataPtr = 1 + (1 + CalledPartyLen) + (1 + CallingPartyLen),
+	Remain = <<CalledPartyLen:8, CalledPartyEnc/binary,
+		   CallingPartyLen:8, CallingPartyEnc/binary,
+		   UserDataLen:8, UserData/binary>>,
+	<<?SCCP_MSGT_UDT:8, PCOpt:4, ProtoClass:4, CalledPartyPtr:8, CallingPartyPtr:8, DataPtr:8, Remain/binary>>;
+encode_sccp_msgt(?SCCP_MSGT_UDTS, Params) ->
+	ReturnCause = proplists:get_value(return_cause, Params),
+	CalledParty = proplists:get_value(called_party_addr, Params),
+	CalledPartyEnc = encode_sccp_addr(CalledParty),
+	CalledPartyLen = byte_size(CalledPartyEnc),
+	CallingParty = proplists:get_value(calling_party_addr, Params),
+	CallingPartyEnc = encode_sccp_addr(CallingParty),
+	CallingPartyLen = byte_size(CallingPartyEnc),
+	UserData = binarify(proplists:get_value(user_data, Params)),
+	UserDataLen = byte_size(UserData),
+	% variable part
+	CalledPartyPtr = 3,
+	CallingPartyPtr = 2 + (1 + CalledPartyLen),
+	DataPtr = 1 + (1 + CalledPartyLen) + (1 + CallingPartyLen),
+	Remain = <<CalledPartyLen:8, CalledPartyEnc/binary,
+		   CallingPartyLen:8, CallingPartyEnc/binary,
+		   UserDataLen:8, UserData/binary>>,
+	<<?SCCP_MSGT_UDTS:8, ReturnCause:8, CalledPartyPtr:8, CallingPartyPtr:8, DataPtr:8, Remain/binary>>;
+encode_sccp_msgt(?SCCP_MSGT_ED, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	UserData = binarify(proplists:get_value(user_data, Params)),
+	UserDataLen = byte_size(UserData),
+	DataPtr = 1,
+	<<?SCCP_MSGT_ED:8, DstLocalRef:24/big, DataPtr:8, UserDataLen:8, UserData/binary>>;
+encode_sccp_msgt(?SCCP_MSGT_EA, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	<<?SCCP_MSGT_EA:8, DstLocalRef:24/big>>;
+encode_sccp_msgt(?SCCP_MSGT_RSR, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	SrcLocalRef = proplists:get_value(src_local_ref, Params),
+	ResetCause = proplists:get_value(reset_cause, Params),
+	<<?SCCP_MSGT_RSR:8, DstLocalRef:24/big, SrcLocalRef:24/big, ResetCause:8>>;
+encode_sccp_msgt(?SCCP_MSGT_RSC, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	SrcLocalRef = proplists:get_value(src_local_ref, Params),
+	<<?SCCP_MSGT_RSC:8, DstLocalRef:24/big, SrcLocalRef:24/big>>;
+encode_sccp_msgt(?SCCP_MSGT_ERR, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	ErrCause = proplists:get_value(error_cause, Params),
+	<<?SCCP_MSGT_ERR:8, DstLocalRef:24/big, ErrCause:8>>;
+encode_sccp_msgt(?SCCP_MSGT_IT, Params) ->
+	DstLocalRef = proplists:get_value(dst_local_ref, Params),
+	SrcLocalRef = proplists:get_value(src_local_ref, Params),
+	{ProtoClass, PCOpt} = proplists:get_value(protocol_class, Params),
+	SegmSeq = proplists:get_value(seq_segm, Params),
+	Credit = proplists:get_value(credit, Params),
+	<<?SCCP_MSGT_IT:8, DstLocalRef:24/big, SrcLocalRef:24/big, PCOpt:4, ProtoClass:4, SegmSeq:16, Credit:8>>.
+% FIXME: XUDT/XUDTS, LUDT/LUDTS
+
+
+% encode one sccp message data structure into the on-wire format
+encode_sccp_msg(#sccp_msg{msg_type = MsgType, parameters = Params}) ->
+	encode_sccp_msgt(MsgType, Params).
+
+% is the supplied message type a connectionless message?
+is_connectionless(#sccp_msg{msg_type = MsgType}) ->
+	is_connectionless(MsgType);
+is_connectionless(MsgType) ->
+	case MsgType of
+		?SCCP_MSGT_UDT -> true;
+		?SCCP_MSGT_UDTS -> true;
+		?SCCP_MSGT_XUDT -> true;
+		?SCCP_MSGT_XUDTS -> true;
+		?SCCP_MSGT_LUDT -> true;
+		?SCCP_MSGT_LUDTS -> true;
+		_ -> false
+	end.
+
+
+gen_gt_helper(Number) when is_list(Number) ->
+	#global_title{gti=?SCCP_GTI_NAT_ONLY,
+		      nature_of_addr_ind=?SCCP_NAI_INTERNATIONAL,
+		      phone_number = Number}.
+
+gen_addr_helper(Gt, Pc, Ssn) when is_record(Gt, global_title) ->
+	#sccp_addr{point_code=Pc, ssn=Ssn, global_title=Gt};
+gen_addr_helper(Number, Pc, Ssn) when is_list(Number) ->
+	Gt = gen_gt_helper(Number),
+	gen_addr_helper(Gt, Pc, Ssn).
+
+
+gen_addr_helper(Gt, Pc) when is_record(Gt, global_title) ->
+	#sccp_addr{point_code=Pc, global_title=Gt};
+gen_addr_helper(Number, Pc) when is_list(Number) ->
+	Gt = gen_gt_helper(Number),
+	gen_addr_helper(Gt, Pc).
+
+opt_to_atom(Num) ->
+	case Num of
+		?SCCP_PNC_DESTINATION_LOCAL_REFERENCE -> dst_local_ref;
+		?SCCP_PNC_SOURCE_LOCAL_REFERENCE ->	src_local_ref;
+		?SCCP_PNC_CALLED_PARTY_ADDRESS ->	called_party_addr;
+		?SCCP_PNC_CALLING_PARTY_ADDRESS ->	calling_party_addr;
+		?SCCP_PNC_PROTOCOL_CLASS ->		protocol_class;
+		?SCCP_PNC_SEGMENTING ->			segmenting;
+		?SCCP_PNC_RECEIVE_SEQ_NUMBER ->		rx_seq_number;
+		?SCCP_PNC_SEQUENCING ->			seq_segm;
+		?SCCP_PNC_CREDIT ->			credit;
+		?SCCP_PNC_RELEASE_CAUSE ->		release_cause;
+		?SCCP_PNC_RETURN_CAUSE ->		return_cause;
+		?SCCP_PNC_RESET_CAUSE ->		reset_cause;
+		?SCCP_PNC_ERROR_CAUSE ->		error_cause;
+		?SCCP_PNC_REFUSAL_CAUSE ->		refusal_cause;
+		?SCCP_PNC_DATA ->			user_data;
+		?SCCP_PNC_SEGMENTATION ->		segmentation;
+		?SCCP_PNC_HOP_COUNTER ->		hop_counter;
+		?SCCP_PNC_IMPORTANCE ->			importance;
+		?SCCP_PNC_LONG_DATA ->			long_data;
+		Foo -> Foo
+	end.
+
+atom_to_opt(Atom) ->
+	case Atom of
+		dst_local_ref	-> ?SCCP_PNC_DESTINATION_LOCAL_REFERENCE;
+		src_local_ref	-> ?SCCP_PNC_SOURCE_LOCAL_REFERENCE;
+		called_party_addr  -> ?SCCP_PNC_CALLED_PARTY_ADDRESS;
+		calling_party_addr -> ?SCCP_PNC_CALLING_PARTY_ADDRESS;
+		protocol_class	-> ?SCCP_PNC_PROTOCOL_CLASS;
+		segmenting	-> ?SCCP_PNC_SEGMENTING;
+		rx_seq_number	-> ?SCCP_PNC_RECEIVE_SEQ_NUMBER;
+		seq_segm	-> ?SCCP_PNC_SEQUENCING;
+		credit		-> ?SCCP_PNC_CREDIT;
+		release_cause	-> ?SCCP_PNC_RELEASE_CAUSE;
+		return_cause	-> ?SCCP_PNC_RETURN_CAUSE;
+		reset_cause	-> ?SCCP_PNC_RESET_CAUSE;
+		error_cause	-> ?SCCP_PNC_ERROR_CAUSE;
+		refusal_cause	-> ?SCCP_PNC_REFUSAL_CAUSE;
+		user_data	-> ?SCCP_PNC_DATA;
+		segmentation	-> ?SCCP_PNC_SEGMENTATION;
+		hop_counter	-> ?SCCP_PNC_HOP_COUNTER;
+		importance	-> ?SCCP_PNC_IMPORTANCE;
+		long_data	-> ?SCCP_PNC_LONG_DATA;
+		Foo		-> Foo
+	end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/sctp_core.erl Added

@@ -0,0 +1,319 @@
+% SCTP wrapper behavior, used by M2PA/M2UA/M3UA/SUA 
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(sctp_core).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(gen_fsm).
+
+-include_lib("kernel/include/inet_sctp.hrl").
+-include("osmo_util.hrl").
+
+-export(start_link/1).
+
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
+
+-export(behaviour_info/1).
+
+% FSM states:
+-export(idle/2, associating/2, established/2).
+
+behaviour_info(callbacks) ->
+	gen_fsm:behaviour_info(callbacks) ++ 
+	{rx_sctp, 4}, {mtp_xfer, 2}, {state_change, 2}, {prim_up, 3};
+behaviour_info(Other) ->
+	gen_fsm:behaviour_info(Other).
+
+% Loop Data
+-record(sctp_state, {
+	  role,		% passive | active
+	  state,	% idle | associating | established
+	  user_pid,
+	  sctp_remote_ip,
+	  sctp_remote_port,
+	  sctp_sock,
+	  sctp_assoc_id,
+	  module,	% callback module
+	  ext_state	% state of the callback module
+	}).
+
+start_link(InitOpts) ->
+	LocalPort = proplists:get_value(sctp_local_port, InitOpts),
+	Name = list_to_atom("sctp_core_" ++ integer_to_list(LocalPort)),
+	gen_fsm:start_link({local, Name}, ?MODULE, InitOpts, {debug, trace}).
+
+reconnect_sctp(L = #sctp_state{sctp_remote_ip = Ip, sctp_remote_port = Port, sctp_sock = Sock}) ->
+	io:format("SCTP Reconnect ~p:~p~n", Ip, Port),
+	timer:sleep(1*1000),
+	InitMsg = #sctp_initmsg{num_ostreams = 2, max_instreams = 2},
+	case gen_sctp:connect_init(Sock, Ip, Port, {active, once}, {reuseaddr, true},
+						    {sctp_initmsg, InitMsg}) of
+		ok ->
+			ok;
+		{error, Error } ->
+			io:format("SCTP Error ~p, reconnecting~n", Error),
+			reconnect_sctp(L)
+	end.
+
+build_openopt({sctp_local_port, Port}) ->
+	{port, Port};
+build_openopt({sctp_local_ip, undefined}) ->
+	;
+build_openopt({sctp_local_ip, Ip}) ->
+	{ip, Ip};
+build_openopt(_) ->
+	.
+build_openopts(PropList) ->
+	{active, once}, {reuseaddr, true} ++ 
+	lists:flatten(lists:map(fun build_openopt/1, PropList)).
+
+init(InitOpts) ->
+	Module = proplists:get_value(module, InitOpts),
+	ModuleArgs = proplists:get_value(module_args, InitOpts),
+	Role = proplists:get_value(sctp_role, InitOpts),
+	{ok, SctpSock} = gen_sctp:open(build_openopts(InitOpts)),
+	case Module:init(ModuleArgs) of
+		{ok, ExtState} ->
+			LoopDat = #sctp_state{role = Role, sctp_sock = SctpSock,
+					user_pid = proplists:get_value(user_pid, InitOpts),
+					ext_state = ExtState, module = Module,
+					sctp_remote_ip = proplists:get_value(sctp_remote_ip, InitOpts),
+					sctp_remote_port = proplists:get_value(sctp_remote_port, InitOpts)},
+			case Role of
+				active ->
+					gen_fsm:send_event(self(), osmo_util:make_prim('M','SCTP_ESTABLISH',request));
+				_ ->
+					ok = gen_sctp:listen(SctpSock, true)
+			end,
+			{ok, idle, LoopDat};
+		Default ->
+			{error, {module_returned, Default}}
+	end.
+
+terminate(Reason, State, LoopDat) ->
+	io:format("Terminating ~p (Reason: ~p)~n", ?MODULE, Reason),
+	Module = LoopDat#sctp_state.module,
+	gen_sctp:close(LoopDat#sctp_state.sctp_sock),
+	Module:terminate(Reason, State, LoopDat#sctp_state.ext_state).
+
+code_change(OldVsn, StateName, LoopDat, Extra) ->
+	Module = LoopDat#sctp_state.module,
+	case Module:code_change(OldVsn, StateName, LoopDat#sctp_state.ext_state, Extra) of
+		{ok, ExtState} ->
+			{ok, StateName, LoopDat#sctp_state{ext_state = ExtState}};
+		Other ->
+			Other
+	end.
+
+% Helper function to send data to the SCTP peer
+send_sctp_to_peer(LoopDat, PktData, StreamId, Ppid) when is_binary(PktData) ->
+	#sctp_state{sctp_sock = Sock, sctp_assoc_id = Assoc} = LoopDat,
+	SndRcvInfo = #sctp_sndrcvinfo{assoc_id = Assoc, ppid = Ppid, stream = StreamId},
+	gen_sctp:send(Sock, SndRcvInfo, PktData).
+
+send_prim_to_user(LoopDat, Prim) when is_record(LoopDat, sctp_state), is_record(Prim, primitive) ->
+	UserPid = LoopDat#sctp_state.user_pid,
+	UserPid ! Prim.
+
+prim_up_to_callback(Prim, State, LoopDat) ->
+	Module = LoopDat#sctp_state.module,
+	case Module:prim_up(Prim, State, LoopDat#sctp_state.ext_state) of
+		{ok, Prim, ExtNew} ->
+			send_prim_to_user(LoopDat, Prim);
+		{ignore, ExtNew} ->
+			ok
+	end,
+	LoopDat#sctp_state{ext_state = ExtNew}.
+
+
+handle_event(Event, State, LoopDat) ->
+	Module = LoopDat#sctp_state.module,
+	io:format("Unknown Event ~p in state ~p~n", Event, State),
+	case Module:handle_event(Event, State, LoopDat#sctp_state.ext_state) of
+		{next_state, State, ExtState} ->
+			{next_state, State, LoopDat#sctp_state{ext_state = ExtState}}
+	end.
+
+
+handle_info({sctp, Socket, _RemoteIp, _RemotePort, {ANC, SAC}},
+	     State, LoopDat) when is_record(SAC, sctp_assoc_change) ->
+	io:format("SCTP Assoc Change ~p ~p~n", ANC, SAC),
+	#sctp_assoc_change{state = SacState, outbound_streams = _OutStreams,
+			   inbound_streams = _InStreams, assoc_id = AssocId} = SAC,
+	if
+		SacState == comm_up;
+		SacState == restart ->
+			case State of
+				associating ->
+					NewState = established,
+					Spec = confirm;
+				idle ->
+					NewState = established,
+					Spec = indication;
+				_ ->
+					NewState = State,
+					Spec = indication
+			end,
+			% primitive to the user
+			LoopDat2 = prim_up_to_callback(osmo_util:make_prim('M','SCTP_ESTABLISH',Spec),
+						       State, LoopDat);
+		SacState == comm_lost ->
+			case State of
+				releasing ->
+					Spec = confirm;
+				_ ->
+					Spec = indication
+			end,
+			LoopDat2 = prim_up_to_callback(osmo_util:make_prim('M','SCTP_RELEASE',Spec),
+							State, LoopDat),
+			case LoopDat#sctp_state.role of
+				active ->
+					NewState = associating,
+					reconnect_sctp(LoopDat2);
+				_ ->
+					NewState = idle
+			end;
+		SacState == addr_unreachable;
+		SacState == cant_assoc	->
+			case LoopDat#sctp_state.role of
+				active ->
+					NewState = associating,
+					reconnect_sctp(LoopDat);
+				_ ->
+					NewState = idle
+			end,
+			LoopDat2 = LoopDat;
+		SacState == shutdown_comp ->
+			% we already started reconnect in shutdown_event
+			NewState = State,
+			LoopDat2 = LoopDat
+	end,
+	inet:setopts(Socket, {active, once}),
+	next_state(State, NewState, LoopDat2#sctp_state{sctp_assoc_id = AssocId});
+
+handle_info({sctp, Socket, RemoteIp, RemotePort, {Anc, Data}}, State, LoopDat) ->
+	Module = LoopDat#sctp_state.module,
+	io:format("SCTP rx data: ~p ~p~n", Anc, Data),
+	% process incoming SCTP data
+	if Socket == LoopDat#sctp_state.sctp_sock,
+	   RemoteIp == LoopDat#sctp_state.sctp_remote_ip,
+	   RemotePort == LoopDat#sctp_state.sctp_remote_port ->
+		Ret = Module:rx_sctp(Anc, Data, State, LoopDat#sctp_state.ext_state),
+		case Ret of
+			{ok, Prim, ExtState} ->
+				send_prim_to_user(LoopDat, Prim);
+			{ignore, ExtState} ->
+				ok
+		end;
+	   true ->
+		io:format("unknown SCTP: ~p ~p~n", Anc, Data),
+		ExtState = LoopDat#sctp_state.ext_state
+	end,
+	inet:setopts(Socket, {active, once}),
+	next_state(State, State, LoopDat#sctp_state{ext_state = ExtState});
+
+handle_info({sctp, Socket, RemoteIp, RemotePort, {_Anc, Data}}, State, LoopDat)
+					when is_record(Data, sctp_shutdown_event) ->
+	io:format("SCTP remote ~p:~p shutdown~n", RemoteIp, RemotePort),
+	% FIXME: send SCTP_RELEASE.ind ?
+	inet:setopts(Socket, {active, once}),
+	case LoopDat#sctp_state.role of
+		active ->
+			reconnect_sctp(LoopDat);
+		_ ->
+			ok
+	end,
+	next_state(State, associating, LoopDat);
+
+handle_info(Info, State, LoopDat) ->
+	Module = LoopDat#sctp_state.module,
+	case Module:handle_info(Info, State, LoopDat#sctp_state.ext_state) of
+		{next_state, State, ExtState} ->
+			{next_state, State, LoopDat#sctp_state{ext_state = ExtState}}
+	end.
+
+
+idle(#primitive{subsystem = 'M', gen_name = 'SCTP_ESTABLISH', spec_name = request}, LoopDat) ->
+	% M-SCTP_ESTABLISH.req from User
+	case LoopDat#sctp_state.role of
+		active ->
+			reconnect_sctp(LoopDat);
+		_ ->
+			ok
+	end,
+	next_state(idle, associating, LoopDat);
+idle(Prim, LoopDat) when is_record(Prim, primitive) ->
+	LoopDat2 = prim_up_to_callback(Prim, idle, LoopDat),
+	next_state(idle, idle, LoopDat2).
+
+
+
+associating(#primitive{subsystem = 'M', gen_name = 'SCTP_RELEASE',
+			spec_name = request}, LoopDat) ->
+	% M-SCTP_RELEASE.req from User
+	% directly send RELEASE.conf ?!?
+	next_state(associating, idle, LoopDat);
+associating(Prim, LoopDat) when is_record(Prim, primitive) ->
+	LoopDat2 = prim_up_to_callback(Prim, associating, LoopDat),
+	next_state(associating, associating, LoopDat2).
+
+
+
+established(#primitive{subsystem = 'M', gen_name = 'SCTP_RELEASE',
+			spec_name = request}, LoopDat) ->
+	% M-SCTP_RELEASE.req from User
+	next_state(established, releasing, LoopDat);
+established(#primitive{subsystem = 'MTP', gen_name = 'TRANSFER',
+		       spec_name = request, parameters = Params}, LoopDat) ->
+	% MTP-TRANSFER.req from user app; Send message to remote peer
+	Module = LoopDat#sctp_state.module,
+	ExtState = Module:mtp_xfer(Params, LoopDat#sctp_state.ext_state),
+	next_state(established, established, LoopDat#sctp_state{ext_state = ExtState});
+established(#primitive{subsystem = 'SCTP', gen_name = 'TRANSFER',
+		spec_name = request, parameters = {Stream, Ppid, Data}}, LoopDat) ->
+	io:format("SCTP-TRANSFER.req~n",),
+	% somebody (typically callback module) requests us to send SCTP data
+	send_sctp_to_peer(LoopDat, Data, Stream, Ppid),
+	next_state(established, established, LoopDat);
+established(Prim, LoopDat) when is_record(Prim, primitive) ->
+	LoopDat2 = prim_up_to_callback(Prim, established, LoopDat),
+	next_state(established, established, LoopDat2).
+
+next_state(State, NewState, LoopDat) when is_record(LoopDat, sctp_state) ->
+	Module = LoopDat#sctp_state.module,
+	case NewState of
+		State ->
+			{next_state, NewState, LoopDat};
+		_ ->
+			ExtState = Module:state_change(State, NewState, LoopDat#sctp_state.ext_state),
+			{next_state, NewState, LoopDat#sctp_state{ext_state = ExtState}}
+	end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/sctp_m2pa.erl Added

@@ -0,0 +1,250 @@
+% M2PA in accordance with RFC4165 (http://tools.ietf.org/html/rfc4665)
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(sctp_m2pa).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(sctp_core).
+
+-include_lib("kernel/include/inet_sctp.hrl").
+-include("osmo_util.hrl").
+-include("m2pa.hrl").
+
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
+
+-export(rx_sctp/4, mtp_xfer/2, state_change/3, prim_up/3).
+
+-record(m2pa_state, {
+		last_bsn_received,
+		last_fsn_sent,
+		lsc_pid,
+		iac_pid,
+		msu_fisu_accepted
+	}).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% gen_fsm callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+init(_InitOpts) ->
+	% start MTP2 IAC FSM pointing LSC, AERM and TXC to us
+	{ok, Lsc} = gen_fsm:start_link(mtp2_lsc, self(), self(), self(), self(),self(), {debug, trace}),
+	{ok, Iac} = gen_fsm:sync_send_event(Lsc, get_iac_pid),
+	gen_fsm:send_event(Lsc, power_on),
+	{ok, #m2pa_state{last_bsn_received=16#ffffff, last_fsn_sent=16#ffffff,
+			 lsc_pid=Lsc, iac_pid=Iac,
+		 	 msu_fisu_accepted = 0}}.
+
+terminate(Reason, _State, _LoopDat) ->
+	io:format("Terminating ~p (Reason ~p)~n", ?MODULE, Reason),
+	ok.
+
+code_change(_OldVsn, _State, LoopDat, _Extra) ->
+	{ok, LoopDat}.
+
+handle_event(_Event, State, LoopDat) ->
+	{next_state, State, LoopDat}.
+
+handle_info({lsc_txc, What}, State, LoopDat) when
+			What == start; What == retrieval_request_and_fsnc ->
+	{next_state, State, LoopDat};
+handle_info({lsc_rc, accept_msu_fisu}, State, LoopDat) ->
+	{next_state, State, LoopDat#m2pa_state{msu_fisu_accepted = 1}};
+handle_info({lsc_rc, reject_msu_fisu}, State, LoopDat) ->
+	{next_state, State, LoopDat#m2pa_state{msu_fisu_accepted = 0}};
+handle_info({Who, What}, established, LoopDat) when Who == iac_txc; Who == lsc_txc ->
+	Ls = iac_to_ls(What),
+	send_linkstate(Ls, LoopDat),
+	{next_state, established, LoopDat};
+handle_info(_Info, State, LoopDat) ->
+	{next_state, State, LoopDat}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% sctp_core callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+prim_up(Prim, State, LoopDat) ->
+	% default: forward all primitives to the user 
+	{ok, Prim, LoopDat}.
+
+
+% sctp_core indicates that we have received some data...
+rx_sctp(#sctp_sndrcvinfo{ppid = ?M2PA_PPID}, Data, State, LoopDat) ->
+	{ok, M2pa} = m2pa_codec:parse_msg(Data),
+	FsnRecv = M2pa#m2pa_msg.fwd_seq_nr,
+	% FIXME: check sequenc number linearity
+	case M2pa of
+		#m2pa_msg{msg_class = ?M2PA_CLASS_M2PA,
+			  msg_type = ?M2PA_TYPE_USER} ->
+			Mtp3 = M2pa#m2pa_msg.mtp3,
+			case LoopDat#m2pa_state.msu_fisu_accepted of
+				1 ->
+					LoopDat2 = LoopDat#m2pa_state{last_bsn_received = FsnRecv},
+					case Mtp3 of
+						undefined ->
+							ok;
+						_ ->
+							send_userdata_ack(LoopDat2)
+					end,
+					gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, fisu_msu_received),
+					Prim = osmo_util:make_prim('MTP','TRANSFER',indication, Mtp3),
+					{ok, Prim, LoopDat2};
+				_ ->
+					{ignore, LoopDat}
+			end;
+		#m2pa_msg{msg_type = ?M2PA_TYPE_LINK} ->
+			handle_linkstate(M2pa, LoopDat),
+			{ignore, LoopDat};
+		_ ->
+			% do something with link related msgs
+			io:format("M2PA Unknown message ~p in state ~p~n", M2pa, State),
+			{ignore, State, LoopDat}
+	end.
+
+% MTP-TRANSFER.req has arrived at sctp_core, encapsulate+tx it
+mtp_xfer(Mtp3, LoopDat) ->
+	Fsn = inc_seq_nr(LoopDat#m2pa_state.last_fsn_sent),
+	M2pa = #m2pa_msg{msg_class = ?M2PA_CLASS_M2PA,
+			 msg_type = ?M2PA_TYPE_USER,
+			 fwd_seq_nr = Fsn,
+			 back_seq_nr = LoopDat#m2pa_state.last_bsn_received,
+			 mtp3 = Mtp3},
+	M2paBin = m2pa_codec:encode_msg(M2pa),
+	LoopDat2 = LoopDat#m2pa_state{last_fsn_sent = Fsn},
+	tx_sctp(?M2PA_STREAM_USER, M2paBin),
+	LoopDat2.
+
+state_change(_, established, LoopDat) ->
+	% emulate a 'start' from LSC
+	gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, start),
+	LoopDat;
+state_change(established, _, LoopDat) ->
+	gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, link_failure),
+	LoopDat;
+state_change(_, _, LoopDat) ->
+	LoopDat.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% helper functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+inc_seq_nr(SeqNr) when is_integer(SeqNr) ->
+	SeqNr + 1 rem 16#FFFFFF.
+
+handle_linkstate(M2pa, LoopDat) when is_record(M2pa, m2pa_msg) ->
+	Linkstate = proplists:get_value(link_state, M2pa#m2pa_msg.parameters),
+	LsMtp2 = ls_to_iac(Linkstate),
+	if LsMtp2 == fisu ->
+		case LoopDat#m2pa_state.msu_fisu_accepted of
+			1 ->
+				gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid,
+						   fisu_msu_received);
+			0 -> ok
+		end;
+	   LsMtp2 == si_po ->
+		gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, LsMtp2);
+	   LsMtp2 == si_n; LsMtp2 == si_e; LsMtp2 == si_o; LsMtp2 == si_os ->
+		gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, LsMtp2)
+		% IAC will receive the event as pass-through from LSC
+		%gen_fsm:send_event(LoopDat#m2pa_state.iac_pid, LsMtp2)
+	end.
+
+% convert M2PA link state to MTP2
+ls_to_iac(?M2PA_LS_OOS) ->
+	si_os;
+ls_to_iac(?M2PA_LS_ALIGNMENT) ->
+	si_o;
+ls_to_iac(?M2PA_LS_PROVING_NORMAL) ->
+	si_n;
+ls_to_iac(?M2PA_LS_PROVING_EMERG) ->
+	si_e;
+ls_to_iac(?M2PA_LS_READY) ->
+	fisu;
+ls_to_iac(?M2PA_LS_PROC_OUTAGE) ->
+	si_po;
+ls_to_iac(?M2PA_LS_PROC_RECOVERED) ->
+	fisu;
+ls_to_iac(?M2PA_LS_BUSY) ->
+	si_b.
+% FIXME: what about BUSY_ENDED?
+
+
+% convert MTP2 link state to M2PA
+iac_to_ls(si_os) ->
+	?M2PA_LS_OOS;
+iac_to_ls(si_o) ->
+	?M2PA_LS_ALIGNMENT;
+iac_to_ls(si_n) ->
+	?M2PA_LS_PROVING_NORMAL;
+iac_to_ls(si_e) ->
+	?M2PA_LS_PROVING_EMERG;
+iac_to_ls(fisu) ->
+	?M2PA_LS_READY;
+iac_to_ls(msu) ->
+	?M2PA_LS_READY;
+iac_to_ls(si_po) ->
+	?M2PA_LS_PROC_OUTAGE;
+iac_to_ls(si_b) ->
+	?M2PA_LS_BUSY.
+
+% Chapter 4.1.2 of RFC4165
+ls_stream(?M2PA_LS_PROC_OUTAGE) ->
+	1;
+ls_stream(?M2PA_LS_PROC_RECOVERED) ->
+	1;
+ls_stream(Foo) when is_integer(Foo) ->
+	0.
+
+send_linkstate(Ls, LoopDat) when is_integer(Ls) ->
+	Stream = ls_stream(Ls),
+	M2pa = #m2pa_msg{msg_class = ?M2PA_CLASS_M2PA,
+			 msg_type = ?M2PA_TYPE_LINK,
+			 fwd_seq_nr = LoopDat#m2pa_state.last_fsn_sent,
+			 back_seq_nr = LoopDat#m2pa_state.last_bsn_received,
+			 parameters = {link_state, Ls}},
+	M2paBin = m2pa_codec:encode_msg(M2pa),
+	tx_sctp(Stream, M2paBin),
+	LoopDat.
+
+send_userdata_ack(LoopDat) ->
+	M2pa = #m2pa_msg{msg_class = ?M2PA_CLASS_M2PA,
+			 msg_type = ?M2PA_TYPE_USER,
+			 fwd_seq_nr = LoopDat#m2pa_state.last_fsn_sent,
+			 back_seq_nr = LoopDat#m2pa_state.last_bsn_received},
+	M2paBin = m2pa_codec:encode_msg(M2pa),
+	tx_sctp(0, M2paBin).
+
+tx_sctp(Stream, Payload) when is_integer(Stream), is_binary(Payload) ->
+	Param = {Stream, ?M2PA_PPID, Payload},
+	% sent to 'ourselves' (behaviour master module)
+	gen_fsm:send_event(self(), osmo_util:make_prim('SCTP','TRANSFER',request,Param)).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/sctp_m2ua.erl Added

@@ -0,0 +1,227 @@
+% M2UA in accordance with RFC3331 (http://tools.ietf.org/html/rfc3331)
+
+% (C) 2011-2013 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(sctp_m2ua).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(sctp_core).
+
+-include_lib("kernel/include/inet_sctp.hrl").
+-include("osmo_util.hrl").
+-include("xua.hrl").
+-include("m2ua.hrl").
+-include("mtp3.hrl").
+
+-define(M2UA_STREAM_USER,	1).
+
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
+
+-export(rx_sctp/4, mtp_xfer/2, state_change/3, prim_up/3).
+
+-record(m2ua_state, {
+		asp_pid,
+		last_bsn_received,
+		last_fsn_sent,
+		role
+	}).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% gen_fsm callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+init(Role) ->
+	Fun = fun(Prim, Args) -> asp_prim_to_user(Prim, Args) end,
+	AsPid = undefined, % FIXME
+	% we use sua_asp module, as m2ua has no difference here
+	{ok, Asp} = gen_fsm:start_link(xua_asp_fsm, AsPid, sua_asp, , Fun, self(), self(), Role, {debug, trace}),
+	{ok, #m2ua_state{last_bsn_received=16#ffffff,
+			last_fsn_sent=16#ffffff, asp_pid=Asp, role=Role}}.
+
+terminate(Reason, _State, _LoopDat) ->
+	io:format("Terminating ~p (Reason ~p)~n", ?MODULE, Reason),
+	ok.
+
+code_change(_OldVsn, _State, LoopDat, _Extra) ->
+	{ok, LoopDat}.
+
+handle_event(_Event, State, LoopDat) ->
+	{next_state, State, LoopDat}.
+
+handle_info(_Info, State, LoopDat) ->
+	{next_state, State, LoopDat}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% sctp_core callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+prim_up(#primitive{subsystem='M', gen_name = 'SCTP_ESTABLISH', spec_name = confirm}, State, LoopDat) ->
+	% confirmation in case of active/connect mode
+	Asp = LoopDat#m2ua_state.asp_pid,
+	gen_fsm:send_event(Asp, osmo_util:make_prim('M','ASP_UP',request)),
+	{ignore, LoopDat};
+prim_up(#primitive{subsystem='M', gen_name = 'SCTP_ESTABLISH', spec_name = indication}, State, LoopDat) ->
+	% indication in case of passive/listen mode
+	{ignore, LoopDat};
+prim_up(#primitive{subsystem='M', gen_name = 'ASP_UP', spec_name = confirm}, State, LoopDat) ->
+	% confirmation in case of active/connect mode
+	Asp = LoopDat#m2ua_state.asp_pid,
+	% override mode, interface ID  1. FIXME: user-specify interface ID(s)
+	Pars = {?M2UA_P_COM_TRAF_MODE_T, {4, 1}}, {?M2UA_P_COM_INTF_ID_INT, {4, 0}},
+	gen_fsm:send_event(Asp, osmo_util:make_prim('M','ASP_ACTIVE',request,Pars)),
+	{ignore, LoopDat};
+prim_up(#primitive{subsystem='M', gen_name = 'ASP_ACTIVE', spec_name = confirm}, State, LoopDat) ->
+	% FIXME: start a timer or have a separate FSM about it!
+	M = #xua_msg{version = 1, msg_class = ?M2UA_MSGC_MAUP,
+		     msg_type = ?M2UA_MAUP_MSGT_EST_REQ,
+		     payload = {?M2UA_P_COM_INTF_ID_INT, {4, 0}}},
+	LoopDat2 = mtp_xfer(M, LoopDat),
+	{ignore, LoopDat2};
+
+
+
+prim_up(Prim, State, LoopDat) ->
+	% default: forward all primitives to the user
+	{ok, Prim, LoopDat}.
+
+
+% sctp_core indicates that we have received some data...
+rx_sctp(#sctp_sndrcvinfo{ppid = ?M2UA_PPID}, Data, State, LoopDat) ->
+	Asp = LoopDat#m2ua_state.asp_pid,
+	M2ua = xua_codec:parse_msg(Data),
+	% FIXME: check sequenc number linearity
+	case M2ua of
+		#xua_msg{msg_class = ?M2UA_MSGC_ASPSM} ->
+			gen_fsm:send_event(Asp, M2ua),
+			{ignore, LoopDat};
+		#xua_msg{msg_class = ?M2UA_MSGC_ASPTM} ->
+			gen_fsm:send_event(Asp, M2ua),
+			{ignore, LoopDat};
+		#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
+			 msg_type = ?M2UA_MAUP_MSGT_CONG_IND} ->
+			% FIXME
+			error_logger:error_report("unimplemented message",
+						   {msg_type, "CONG_IND"}),
+			{ignore, LoopDat};
+		#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
+			 msg_type = ?M2UA_MAUP_MSGT_DATA_RETR_REQ} ->
+			% FIXME
+			error_logger:error_report("unimplemented message",
+						   {msg_type, "RETR_REQ"}),
+			{ignore, LoopDat};
+		#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
+			  msg_type = ?M2UA_MAUP_MSGT_DATA} ->
+			{_Len, M3bin} = proplists:get_value(?M2UA_P_M2UA_DATA1, M2ua#xua_msg.payload),
+			Mtp3 = mtp3_codec:parse_mtp3_msg(M3bin),
+			Prim = osmo_util:make_prim('MTP','TRANSFER',indication, Mtp3),
+			{ok, Prim, LoopDat};
+		_ ->
+			rx_sctp(M2ua, State, LoopDat)
+	end.
+
+% SG side
+rx_sctp(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
+		 msg_type = ?M2UA_MAUP_MSGT_EST_REQ}, State,
+	LoopDat = #m2ua_state{role=sg}) ->
+	% FIXME: respond with M2UA_MAUP_MSGT_EST_CONF
+	error_logger:error_report("unimplemented message",
+				   {msg_type, "EST_REQ"}),
+	{ignore, LoopDat};
+rx_sctp(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
+		 msg_type = ?M2UA_MAUP_MSGT_REL_REQ}, State,
+	LoopDat = #m2ua_state{role=sg}) ->
+	% FIXME: respond with M2UA_MAUP_MSGT_REL_CONF
+	error_logger:error_report("unimplemented message",
+				   {msg_type, "REL_REQ"}),
+	{ignore, LoopDat};
+
+rx_sctp(M2ua = #xua_msg{msg_class = ?M2UA_MSGC_MAUP,
+		 msg_type = ?M2UA_MAUP_MSGT_STATE_REQ}, State,
+        LoopDat = #m2ua_state{role=sg})	->
+	handle_m2ua_state_req(M2ua),
+	{ignore, LoopDat};
+
+% ASP side
+rx_sctp(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
+		 msg_type = ?M2UA_MAUP_MSGT_REL_CONF}, State,
+	LoopDat = #m2ua_state{role=asp}) ->
+	error_logger:error_report("unimplemented message",
+				   {msg_type, "REL_CONF"}),
+	{ignore, LoopDat};
+
+rx_sctp(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
+		msg_type = ?M2UA_MAUP_MSGT_EST_CONF}, State,
+	LoopDat = #m2ua_state{role=asp}) ->
+	error_logger:error_report("unimplemented message",
+				   {msg_type, "EST_CONF"}),
+	{ignore, LoopDat};
+
+rx_sctp(M2ua = #xua_msg{}, State, LoopDat) ->
+	% do something with link rel msgs
+	io:format("M2UA Unknown message ~p in state ~p~n", M2ua, State),
+	{ignore, LoopDat}.
+
+
+% MTP-TRANSFER.req has arrived at sctp_core, encapsulate+tx it
+mtp_xfer(M2ua, LoopDat) when is_record(M2ua, xua_msg) ->
+	M2uaBin = xua_codec:encode_msg(M2ua),
+	tx_sctp(?M2UA_STREAM_USER, M2uaBin),
+	LoopDat;
+
+mtp_xfer(Mtp3, LoopDat) when is_record(Mtp3, mtp3_msg) ->
+	MsgBin = mtp3_codec:encode_mtp3_msg(Mtp3),
+	mtp_xfer(MsgBin, LoopDat);
+
+mtp_xfer(Mtp3bin, LoopDat) when is_binary(Mtp3bin) ->
+	M2ua = #xua_msg{version = 1,
+			 msg_class = ?M2UA_MSGC_MAUP,
+			 msg_type = ?M2UA_MAUP_MSGT_DATA,
+			 payload = {?M2UA_P_COM_INTF_ID_INT, {4, 0}},
+				    {?M2UA_P_M2UA_DATA1, {byte_size(Mtp3bin), Mtp3bin}}},
+	mtp_xfer(M2ua, LoopDat).
+
+state_change(_, established, LoopDat) ->
+	% emulate a 'start' from LSC
+	%gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, start),
+	LoopDat;
+state_change(established, _, LoopDat) ->
+	%gen_fsm:send_event(LoopDat#m2pa_state.lsc_pid, link_failure),
+	LoopDat;
+state_change(_, _, LoopDat) ->
+	LoopDat.
+
+handle_m2ua_state_req(M2ua = #xua_msg{payload = Payload}) ->
+	{?M2UA_P_MAUP_STATE, State} = lists:keyfind(?M2UA_P_MAUP_STATE, 1, Payload),
+	% FIXME handle_m2ua_state_req(State).
+	% LOP_SET/CLEAR, EMER_SET/CLEAR, FLUSH_BUFFERSm CONTINUE, CLEAR_RTB, AUDIT, CONG*
+	% FIXME: respond with M2UA_MAUP_MSGT_STATE_CONF
+	error_logger:error_report("unimplemented message",
+				   {msg_type, "STATE_REQ"}),
+	true.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% helper functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+tx_sctp(Stream, Payload) when is_integer(Stream), is_binary(Payload) ->
+	Param = {Stream, ?M2UA_PPID, Payload},
+	% sent to 'ourselves' (behaviour master module)
+	gen_fsm:send_event(self(), osmo_util:make_prim('SCTP','TRANSFER',request,Param)).
+
+% callback fun for ASP FMS
+asp_prim_to_user(Prim, SctpPid) ->
+	gen_fsm:send_event(SctpPid, Prim).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/sctp_sua.erl Added

@@ -0,0 +1,158 @@
+% SUA behaviour call-back for sctp_core
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(sctp_sua).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(sctp_core).
+
+-include_lib("kernel/include/inet_sctp.hrl").
+-include("osmo_util.hrl").
+-include("xua.hrl").
+-include("sua.hrl").
+-include("m3ua.hrl").
+
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3).
+
+-export(rx_sctp/4, mtp_xfer/2, state_change/3, prim_up/3).
+
+-record(sua_state, {
+		asp_pid
+	}).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% gen_fsm callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+init(Role) ->
+	% start SUA ASP
+	Fun = fun(Prim, Args) -> asp_prim_to_user(Prim, Args) end,
+	AsPid = undefined,
+	{ok, Asp} = gen_fsm:start_link(xua_asp_fsm, AsPid, sua_asp, , Fun, self(), self(), Role, {debug, trace}),
+	{ok, #sua_state{asp_pid=Asp}}.
+
+terminate(Reason, _State, _LoopDat) ->
+	io:format("Terminating ~p (Reason ~p)~n", ?MODULE, Reason),
+	ok.
+
+code_change(_OldVsn, _State, LoopDat, _Extra) ->
+	{ok, LoopDat}.
+
+handle_event(_Event, State, LoopDat) ->
+	{next_state, State, LoopDat}.
+
+handle_info(_Info, State, LoopDat) ->
+	{next_state, State, LoopDat}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% sctp_core callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+prim_up(#primitive{subsystem='M', gen_name = 'SCTP_ESTABLISH', spec_name = confirm}, State, LoopDat) ->
+	Asp = LoopDat#sua_state.asp_pid,
+	gen_fsm:send_event(Asp, osmo_util:make_prim('M','ASP_UP',request)),
+	{ignore, LoopDat};
+prim_up(#primitive{subsystem='M', gen_name = 'ASP_UP', spec_name = confirm}, State, LoopDat) ->
+	Asp = LoopDat#sua_state.asp_pid,
+	gen_fsm:send_event(Asp, osmo_util:make_prim('M','ASP_ACTIVE',request)),
+	{ignore, LoopDat};
+prim_up(Prim, State, LoopDat) ->
+	% default: forward all primitives to the user 
+	{ok, Prim, LoopDat}.
+
+
+% sctp_core indicates that ew have received some data...
+rx_sctp(#sctp_sndrcvinfo{ppid = ?SUA_PPID}, Data, State, LoopDat) ->
+	Asp = LoopDat#sua_state.asp_pid,
+	Sua = xua_codec:parse_msg(Data),
+	case Sua of
+		#xua_msg{msg_class = ?M3UA_MSGC_MGMT,
+			 msg_type = ?M3UA_MSGT_MGMT_NTFY} ->
+			Prim = osmo_util:make_prim('M','NOTIFY',indication,Sua),
+			{ok, Prim, LoopDat};
+		#xua_msg{msg_class = ?M3UA_MSGC_MGMT,
+			 msg_type = ?M3UA_MSGT_MGMT_ERR} ->
+			Prim = osmo_util:make_prim('M','ERROR',indication,Sua),
+			{ok, Prim, LoopDat};
+		#xua_msg{msg_class = ?M3UA_MSGC_SSNM} ->
+			% FIXME
+			{ignore, LoopDat};
+		#xua_msg{msg_class = ?M3UA_MSGC_ASPSM} ->
+			gen_fsm:send_event(Asp, Sua),
+			{ignore, LoopDat};
+		#xua_msg{msg_class = ?M3UA_MSGC_ASPTM} ->
+			gen_fsm:send_event(Asp, Sua),
+			{ignore, LoopDat};
+		#xua_msg{msg_class = ?SUA_MSGC_CL} ->
+			Prim = sua_to_prim(Sua, LoopDat),
+			{ok, Prim, LoopDat};
+		%#xua_msg{msg_class = ?SUA_MSGC_C0} ->
+		_ ->
+			% do something with link related msgs
+			io:format("SUA Unknown message ~p in state ~p~n", Sua, State),
+			{ignore, State, LoopDat}
+	end.
+
+% MTP-TRANSFER.req has arrived at sctp_core, encapsulate+tx it
+mtp_xfer(Sua, LoopDat) when is_record(Sua, xua_msg) ->
+	SuaBin = xua_codec:encode_msg(Sua),
+	tx_sctp(1, SuaBin),
+	LoopDat.
+
+state_change(_, established, LoopDat) ->
+	% emulate a 'start' from LSC
+	%gen_fsm:send_event(LoopDat#sua_state.lsc_pid, start),
+	LoopDat;
+state_change(established, _, LoopDat) ->
+	%gen_fsm:send_event(LoopDat#sua_state.lsc_pid, link_failure),
+	LoopDat;
+state_change(_, _, LoopDat) ->
+	LoopDat.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% helper functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+tx_sctp(Stream, Payload) when is_integer(Stream), is_binary(Payload) ->
+	Param = {Stream, ?SUA_PPID, Payload},
+	% sent to 'ourselves' (behaviour master module)
+	gen_fsm:send_event(self(), osmo_util:make_prim('SCTP','TRANSFER',request,Param)).
+
+% callback fun for ASP FMS
+asp_prim_to_user(Prim, SctpPid) ->
+	gen_fsm:send_event(SctpPid, Prim).
+
+
+sua_to_prim(Sua, LoopDat) when is_record(Sua, xua_msg) ->
+	Sccp = sua_sccp_conv:sua_to_sccp(Sua),
+	osmo_util:make_prim('N','UNITADATA',indication, Sccp).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/sg_as_sup.erl Added

@@ -0,0 +1,57 @@
+% SIGTRAN SGW AS supervisor
+
+% (C) 2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(sg_as_sup).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(supervisor).
+
+-export(init/1, start_link/2).
+
+-export(get_as_fsm_name/1).
+
+init(Name, Options) ->
+	AsName = get_as_fsm_name(Name),
+	StartArgs = {local, AsName}, xua_as_fsm, self(), Options,
+	StartFunc = {gen_fsm, start_link, StartArgs},
+	ChildSpec = {as_fsm, StartFunc, permanent, 4000, worker, xua_as_fsm},
+
+	AspsName = list_to_atom("sg_asp_" ++ Name ++ "_sup"),
+	StartFuncASPS = {supervisor, start_link, {local, AspsName}, sg_asp_sup, Name, self()},
+	ChildSpecASPS = {asp_sup, StartFuncASPS, permanent, 4000, worker, asp_sup},
+	{ok, {{one_for_all, 1, 1}, ChildSpec, ChildSpecASPS}}.
+
+start_link(Name, Options) ->
+	supervisor:start_link(?MODULE, Name, Options).
+
+get_as_fsm_name(Name) ->
+	list_to_atom("sg_as_" ++ Name ++ "_fsm").

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/sg_asp_sup.erl Added

@@ -0,0 +1,49 @@
+% SIGTRAN SGW ASP supervisor
+
+% (C) 2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(sg_asp_sup).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(supervisor).
+
+-export(init/1, start_link/2).
+
+init(Name, AsSupPid) ->
+	%AsName = list_to_atom("sg_as_" ++ Name ++ "_fsm"),
+	% supervisor:start_child/2 will append to this list of arguments
+	StartFunc = {xua_asp_fsm, start_link, },
+	ChildSpec = {xua_asp_fsm, StartFunc, permanent, infinity, worker, xua_asp_fsm},
+	% simple_one_for_one will not start any children!
+	{ok, {{simple_one_for_one, 10, 60}, ChildSpec}}.
+
+start_link(Name, Options) ->
+	supervisor:start_link(?MODULE, Name, Options).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/ss7_link_ipa_client.erl Added

@@ -0,0 +1,100 @@
+% Osmocom adaptor to interface the IPA core with osmo_ss7
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(ss7_link_ipa_client).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behavior(gen_server).
+
+-include_lib("osmo_ss7/include/osmo_util.hrl").
+%-include_lib("osmo_ss7/include/ipa.hrl").
+-include_lib("osmo_ss7/include/sccp.hrl").
+-include_lib("osmo_ss7/include/osmo_ss7.hrl").
+-include_lib("osmo_ss7/include/mtp3.hrl").
+
+-export(start_link/1, init/1).
+
+-export(handle_cast/2, handle_info/2).
+
+-record(loop_dat, {
+	 ipa_pid,
+	 socket,
+	 link
+	}).
+
+start_link(Args) ->
+	gen_server:start_link(?MODULE, Args, ).
+
+init(L = #sigtran_link{type = ipa_client, name = Name, linkset_name = LinksetName,
+			sls = Sls}) ->
+	% start the IPA link to the SG
+	ok = ss7_links:register_link(LinksetName, Sls, Name),
+	{ok, LoopDat2} = reconnect(#loop_dat{link = L}),
+	{ok, LoopDat2}.
+
+handle_info({ipa_closed, {_Sock, _Stream}}, LoopDat) ->
+	set_link_state(LoopDat, down),
+	{ok, LoopDat2} = reconnect(LoopDat),
+	{noreply, LoopDat2}.
+
+handle_cast(#primitive{subsystem='MTP', gen_name='TRANSFER', spec_name=request,
+		       parameters = #mtp3_msg{service_ind = ?MTP3_SERV_SCCP,
+		       			    payload = Data}}, LoopDat) ->
+	#loop_dat{socket = Socket, ipa_pid = Pid} = LoopDat,
+	Pid ! {ipa_send, Socket, 253, Data},
+	{noreply, LoopDat}.
+
+reconnect(LoopDat = #loop_dat{link=Link}) ->
+	#sigtran_link{local = Local, remote = Remote} = Link,
+	#sigtran_peer{ip = LocalIp, port = LocalPort, point_code = LocalPc} = Local,
+	#sigtran_peer{ip = RemoteIp, port = RemotePort, point_code = RemotePc} = Remote,
+	case ipa_proto:connect(RemoteIp, RemotePort, , 10000) of
+		{ok, {Socket, IpaPid}} ->
+			set_link_state(LoopDat, up),
+			Mtp3Label = #mtp3_routing_label{sig_link_sel=0, origin_pc = RemotePc, dest_pc = LocalPc},
+			ipa_proto:register_stream(Socket, 253, {callback_fn, fun ipa_tx_to_sccp/4, Mtp3Label}),
+			set_link_state(LoopDat, active),
+			ipa_proto:unblock(Socket),
+			{ok, LoopDat#loop_dat{ipa_pid=IpaPid, socket=Socket}};
+		{error, Reason} ->
+			io:format("Reconnecting TCP (~w)~n", Reason),
+			reconnect(LoopDat)
+	end.
+
+set_link_state(#loop_dat{link = #sigtran_link{linkset_name = LinksetName, sls = Sls}}, State) ->
+	ss7_links:set_link_state(LinksetName, Sls, State).
+
+% Callback that we pass to the ipa_proto, which it will call when it wants to
+% send a primitive up the stack to SCCP
+ipa_tx_to_sccp(_Socket, 253, Data, Mtp3Label) ->
+	ss7_links:mtp3_rx(#mtp3_msg{service_ind=?MTP3_SERV_SCCP,
+				    routing_label=Mtp3Label, payload=Data}).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/ss7_link_m2ua.erl Added

@@ -0,0 +1,116 @@
+% Osmocom adaptor to interface the M2UA core with osmo_sccp
+
+% (C) 2013 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(ss7_link_m2ua).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behavior(gen_server).
+
+-include_lib("osmo_ss7/include/osmo_util.hrl").
+-include_lib("osmo_ss7/include/m2ua.hrl").
+-include_lib("osmo_ss7/include/sccp.hrl").
+-include_lib("osmo_ss7/include/osmo_ss7.hrl").
+
+-export(start_link/1, init/1).
+
+-export(handle_info/2, terminate/2).
+
+-record(loop_dat, {
+	 m2ua_pid,
+	 link
+	}).
+
+start_link(Args = #sigtran_link{name=LinkName}) ->
+	Name = list_to_atom("ss7_link_m2ua_" ++ LinkName),
+	gen_server:start_link({local, Name}, ?MODULE, Args, {debug, trace}).
+
+init(L = #sigtran_link{type = m2ua, name = Name, linkset_name = LinksetName,
+		       sls = Sls, local = Local, remote = Remote, role = Role}) ->
+	#sigtran_peer{ip = LocalIp, port = LocalPort} = Local,
+	#sigtran_peer{ip = RemoteIp, port = RemotePort} = Remote,
+	% start the M2UA link to the SG
+	Opts = {module, sctp_m2ua}, {module_args, Role},
+		{sctp_role, ss7_links:role2sctp_role(Role)},
+		{user_pid, self()}, {sctp_remote_ip, RemoteIp},
+		{sctp_remote_port, RemotePort}, {sctp_local_port, LocalPort},
+		{sctp_local_ip, LocalIp},
+	{ok, M2uaPid} = sctp_core:start_link(Opts),
+	% FIXME: register this link with SCCP_SCRC
+	ok = ss7_links:register_link(LinksetName, Sls, Name),
+	{ok, #loop_dat{m2ua_pid = M2uaPid, link = L}}.
+
+%	% instantiate SCCP routing instance
+%	{ok, ScrcPid} = sccp_scrc:start_link({mtp_tx_action, {callback_fn, fun scrc_tx_to_mtp/2, M3uaPid}}),
+%	loop(#loop_dat{m2ua_pid = M3uaPid, scrc_pid = ScrcPid}).
+
+
+set_link_state(#sigtran_link{linkset_name = LinksetName, sls = Sls}, State) ->
+	ok = ss7_links:set_link_state(LinksetName, Sls, State).
+
+scrc_tx_to_mtp(Prim, Args) ->
+	M2uaPid = Args,
+	gen_fsm:send_event(M2uaPid, Prim).
+
+handle_info(P = #primitive{subsystem = 'MTP', gen_name = 'TRANSFER', spec_name = request}, L) ->
+	scrc_tx_to_mtp(P, L#loop_dat.m2ua_pid),
+	{noreply, L};
+
+handle_info(#primitive{subsystem = 'M', gen_name = 'ASP_UP'}, L) ->
+	set_link_state(L#loop_dat.link, up),
+	{noreply, L};
+handle_info(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE'}, L) ->
+	set_link_state(L#loop_dat.link, active),
+	{noreply, L};
+handle_info(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN'}, L) ->
+	set_link_state(L#loop_dat.link, down),
+	{noreply, L};
+handle_info(#primitive{subsystem = 'M', gen_name = 'ASP_INACTIVE'}, L) ->
+	set_link_state(L#loop_dat.link, up),
+	{noreply, L};
+
+handle_info(P, L) ->
+	io:format("~p: Ignoring M2UA cast ~p~n", ?MODULE, P),
+	{noreply, L}.
+
+terminate(Reason, _S) ->
+	io:format("terminating ~p with reason ~p", ?MODULE, Reason),
+	ok.
+
+tx_sccp_udt(ScrcPid) ->
+	CallingP = #sccp_addr{ssn = ?SCCP_SSN_MSC, point_code = osmo_util:pointcode2int(itu, {1,2,2})},
+	CalledP = #sccp_addr{ssn = ?SCCP_SSN_HLR, point_code = osmo_util:pointcode2int(itu, {1,1,1})},
+	Data = <<1,2,3,4>>,
+	Opts = {protocol_class, 0}, {called_party_addr, CalledP},
+		{calling_party_addr, CallingP}, {user_data, Data},
+	io:format("~p: Sending N-UNITDATA.req to SCRC~n", ?MODULE),
+	gen_fsm:send_event(ScrcPid, osmo_util:make_prim('N','UNITDATA',request,Opts)).
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/ss7_link_m3ua.erl Added

@@ -0,0 +1,133 @@
+% Osmocom adaptor to interface the M3UA core with osmo_sccp
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(ss7_link_m3ua).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behavior(gen_server).
+
+-include_lib("osmo_ss7/include/osmo_util.hrl").
+-include_lib("osmo_ss7/include/m3ua.hrl").
+-include_lib("osmo_ss7/include/sccp.hrl").
+-include_lib("osmo_ss7/include/osmo_ss7.hrl").
+
+-export(start_link/1, init/1).
+
+-export(handle_cast/2).
+
+-record(loop_dat, {
+	 m3ua_pid,
+	 link
+	}).
+
+start_link(Args) ->
+	gen_server:start_link(?MODULE, Args, {debug, trace}).
+
+init(L = #sigtran_link{type = m3ua, name = Name, linkset_name = LinksetName,
+		       sls = Sls, local = Local, remote = Remote}) ->
+	#sigtran_peer{ip = LocalIp, port = LocalPort} = Local,
+	#sigtran_peer{ip = RemoteIp, port = RemotePort} = Remote,
+	% start the M3UA link to the SG
+	Opts = {user_pid, self()},
+		{sctp_remote_ip, RemoteIp}, {sctp_remote_port, RemotePort},
+		{sctp_local_ip, LocalIp}, {sctp_local_port, LocalPort},
+		{user_fun, fun m3ua_tx_to_user/2}, {user_args, self()},
+	{ok, M3uaPid} = m3ua_core:start_link(Opts),
+	% FIXME: register this link with SCCP_SCRC
+	ok = ss7_links:register_link(LinksetName, Sls, Name),
+	{ok, #loop_dat{m3ua_pid = M3uaPid, link = L}}.
+
+%	% instantiate SCCP routing instance
+%	{ok, ScrcPid} = sccp_scrc:start_link({mtp_tx_action, {callback_fn, fun scrc_tx_to_mtp/2, M3uaPid}}),
+%	loop(#loop_dat{m3ua_pid = M3uaPid, scrc_pid = ScrcPid}).
+
+
+set_link_state(#sigtran_link{linkset_name = LinksetName, sls = Sls}, State) ->
+	ok = ss7_links:set_link_state(LinksetName, Sls, State).
+
+scrc_tx_to_mtp(Prim, Args) ->
+	M3uaPid = Args,
+	gen_fsm:send_event(M3uaPid, Prim).
+
+% Callback that we pass to the m3ua_core, which it will call when it wants to
+% send a primitive up the stack to SCCP
+m3ua_tx_to_user(P=#primitive{subsystem = 'MTP'}, Args) ->
+	% send it directly to the 'service' that has bound
+	ss7_links:mtp3_rx(P);
+m3ua_tx_to_user(P=#primitive{subsystem = 'M'}, Args) ->
+	% send management primitives into the m3ua_link process
+	UserPid = Args,
+	gen_server:cast(UserPid, P).
+
+handle_cast(P = #primitive{subsystem = 'MTP', gen_name = 'TRANSFER', spec_name = request}, L) ->
+	scrc_tx_to_mtp(P, L#loop_dat.m3ua_pid),
+	{noreply, L};
+% This is what we receive from m3ua_tx_to_user/2
+handle_cast(#primitive{subsystem = 'M', gen_name = 'SCTP_ESTABLISH', spec_name = confirm}, L) ->
+	io:format("~p: SCTP_ESTABLISH.ind -> ASP_UP.req~n", ?MODULE),
+	gen_fsm:send_event(L#loop_dat.m3ua_pid, osmo_util:make_prim('M','ASP_UP',request)),
+	{noreply, L};
+handle_cast(#primitive{subsystem = 'M', gen_name = 'ASP_UP', spec_name = confirm}, L) ->
+	io:format("~p: ASP_UP.ind -> ASP_ACTIVE.req~n", ?MODULE),
+	set_link_state(L#loop_dat.link, up),
+	gen_fsm:send_event(L#loop_dat.m3ua_pid, osmo_util:make_prim('M','ASP_ACTIVE',request)),
+	{noreply, L};
+handle_cast(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE', spec_name = confirm}, L) ->
+	io:format("~p: ASP_ACTIVE.ind - M3UA now active and ready~n", ?MODULE),
+	set_link_state(L#loop_dat.link, active),
+	%tx_sccp_udt(L#loop_dat.scrc_pid),
+	{noreply, L};
+handle_cast(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN'}, L) ->
+	io:format("~p: ASP_DOWN.ind~n", ?MODULE),
+	set_link_state(L#loop_dat.link, down),
+	{noreply, L};
+handle_cast(#primitive{subsystem = 'M', gen_name = 'ASP_INACTIVE'}, L) ->
+	io:format("~p: ASP_INACTIVE.ind~n", ?MODULE),
+	set_link_state(L#loop_dat.link, up),
+	{noreply, L};
+handle_cast(P, L) ->
+	io:format("~p: Ignoring M3UA prim ~p~n", ?MODULE, P),
+	{noreply, L}.
+
+terminate(Reason, _S) ->
+	io:format("terminating ~p with reason ~p", ?MODULE, Reason),
+	ok.
+
+tx_sccp_udt(ScrcPid) ->
+	CallingP = #sccp_addr{ssn = ?SCCP_SSN_MSC, point_code = osmo_util:pointcode2int(itu, {1,2,2})},
+	CalledP = #sccp_addr{ssn = ?SCCP_SSN_HLR, point_code = osmo_util:pointcode2int(itu, {1,1,1})},
+	Data = <<1,2,3,4>>,
+	Opts = {protocol_class, 0}, {called_party_addr, CalledP},
+		{calling_party_addr, CallingP}, {user_data, Data},
+	io:format("~p: Sending N-UNITDATA.req to SCRC~n", ?MODULE),
+	gen_fsm:send_event(ScrcPid, osmo_util:make_prim('N','UNITDATA',request,Opts)).
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/ss7_links.erl Added

@@ -0,0 +1,503 @@
+% Internal SS7 link database keeping
+
+% (C) 2011-2013 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(ss7_links).
+-behaviour(gen_server).
+
+-include_lib("osmo_ss7/include/mtp3.hrl").
+-include_lib("osmo_ss7/include/osmo_util.hrl").
+-include_lib("osmo_ss7/include/osmo_ss7.hrl").
+
+% gen_fsm callbacks
+-export(init/1, handle_call/3, handle_cast/2, handle_info/2,
+	 terminate/2, code_change/3).
+
+% our published API
+-export(start_link/0, reload_config/0).
+
+% client functions, may internally talk to our sccp_user server
+-export(register_linkset/3, unregister_linkset/1).
+-export(register_link/3, unregister_link/2, set_link_state/3).
+-export(bind_service/2, unbind_service/1).
+
+-export(get_pid_for_link/2, get_pid_for_dpc_sls/2,
+	 mtp3_tx/1, mtp3_tx/2,
+	 get_linkset_for_dpc/1, get_opc_for_linkset/1, is_pc_local/1,
+	 get_user_pid_for_service/1, mtp3_rx/1, dump/0,
+	 role2sctp_role/1).
+
+-type link_state() :: down | up_inactive | active.
+-opaque tid()      :: integer().
+-type error()	   :: { error, term() }.
+-type osmo_point_code() :: non_neg_integer().
+
+-record(slink, {
+	key,		% {linkset_name, sls}
+	name,		% name of the link
+	linkset_name,	% name of the linkset to which we belong
+	sls,
+	user_pid :: pid(), % Pid handling MTP-TRANSFER primitives
+	state :: link_state()
+}).
+
+-record(slinkset, {
+	name :: string(),		% name of the linkset
+	local_pc :: non_neg_integer(),	% local point code
+	remote_pc :: non_neg_integer(),	% remote point code
+	user_pid :: pid(),
+	state :: link_state(),
+	active_sls :: list()	% list of Sls of currently active links
+}).
+
+-record(service, {
+	name :: string(),
+	service_nr :: non_neg_integer(),
+	user_pid :: pid()
+}).
+
+-record(su_state, {
+	linkset_tbl :: tid(),
+	link_tbl :: tid(),
+	service_tbl :: tid()
+}).
+
+
+% initialization code
+
+start_link() ->
+	gen_server:start_link({local, ?MODULE}, ?MODULE, , {debug, trace}).
+
+init(_Arg) ->
+	LinksetTbl = ets:new(ss7_linksets, ordered_set, named_table,
+					     {keypos, #slinkset.name}),
+	ServiceTbl = ets:new(mtp3_services, ordered_set, named_table,
+				{keypos, #service.service_nr}),
+
+	% create a named table so we can query without reference directly
+	% within client/caller process
+	LinkTbl = ets:new(ss7_link_table, ordered_set, named_table,
+					    {keypos, #slink.key}),
+	process_flag(trap_exit, true),
+	{ok, #su_state{linkset_tbl = LinksetTbl, link_tbl = LinkTbl,
+			service_tbl = ServiceTbl}}.
+
+% client side API
+
+% all write operations go through gen_server:call(), as only the ?MODULE
+% process has permission to modify the table content
+
+-spec register_linkset(non_neg_integer(), non_neg_integer(), string())
+						-> ok | error().
+
+register_linkset(LocalPc, RemotePc, Name) ->
+	gen_server:call(?MODULE, {register_linkset, {LocalPc, RemotePc, Name}}).
+
+-spec unregister_linkset(string()) -> ok | error().
+
+unregister_linkset(Name) ->
+	gen_server:call(?MODULE, {unregister_linkset, {Name}}).
+
+-spec register_link(string(), non_neg_integer(), string()) ->
+					ok | error().
+
+register_link(LinksetName, Sls, Name) ->
+	gen_server:call(?MODULE, {register_link, {LinksetName, Sls, Name}}).
+
+-spec unregister_link(string(), non_neg_integer()) ->
+					ok | error().
+
+unregister_link(LinksetName, Sls) ->
+	gen_server:call(?MODULE, {unregister_link, {LinksetName, Sls}}).
+
+-spec set_link_state(string(), non_neg_integer(), link_state()) ->
+					ok | error().
+
+set_link_state(LinksetName, Sls, State) ->
+	gen_server:call(?MODULE, {set_link_state, {LinksetName, Sls, State}}).
+
+-spec bind_service(non_neg_integer(), string()) ->
+					ok | error().
+
+% bind a service (such as ISUP, SCCP) to the MTP3 link manager
+bind_service(ServiceNum, ServiceName) ->
+	gen_server:call(?MODULE, {bind_service, {ServiceNum, ServiceName}}).
+
+-spec unbind_service(non_neg_integer()) ->
+					ok | error().
+
+% unbind a service (such as ISUP, SCCP) from the MTP3 link manager
+unbind_service(ServiceNum) ->
+	gen_server:call(?MODULE, {unbind_service, {ServiceNum}}).
+
+% the lookup functions can directly use the ets named_table from within
+% the client process, no need to go through a synchronous IPC
+
+-spec get_user_pid_for_service(non_neg_integer()) ->
+	{ok, pid()} | error().
+
+get_user_pid_for_service(Service) when is_integer(Service) ->
+	case ets:lookup(mtp3_services, Service) of
+	    #service{user_pid=Pid} ->
+		{ok, Pid};
+	     ->
+		{error, no_such_service}
+	end.
+
+-spec get_pid_for_link(string(), non_neg_integer()) ->
+	{ok, pid()} | error().
+
+get_pid_for_link(LinksetName, Sls) when is_list(LinksetName), is_integer(Sls) ->
+	case ets:lookup(ss7_link_table, {LinksetName, Sls}) of
+	    #slink{user_pid = Pid} ->	
+		% FIXME: check the link state 
+		{ok, Pid};
+	    _ ->
+		{error, no_such_link}
+	end.
+
+-spec get_linkset_for_dpc(osmo_point_code()) ->
+	{ok, string()} | error().
+
+% Resolve linkset name directly connected to given point code
+get_linkset_for_dpc(DpcIn) ->
+	Dpc = osmo_util:pointcode2int(DpcIn),
+	Ret = ets:match_object(ss7_linksets,
+			       #slinkset{remote_pc = Dpc, _ = '_'}),
+	case Ret of
+	     ->
+		{error, undefined};
+	    #slinkset{name=Name}|_Tail ->
+		{ok, Name}
+	end.
+
+-spec get_pid_for_dpc_sls(osmo_point_code(), non_neg_integer()) ->
+	{ok, string()} | error().
+
+% resolve link-handler Pid for given (directly connected) point code/sls
+get_pid_for_dpc_sls(DpcIn, Sls) when is_integer(Sls) ->
+	Dpc = osmo_util:pointcode2int(DpcIn),
+	case get_linkset_for_dpc(Dpc) of
+	    {error, Err} ->
+		{error, Err};
+	    {ok, LinksetName} ->
+		get_pid_for_link(LinksetName, Sls)
+	end.
+
+-spec get_opc_for_linkset(string()) -> non_neg_integer() | undefined.
+
+% the the local point code for a given linkset
+get_opc_for_linkset(LsName) when is_list(LsName) ->
+	case ets:lookup(ss7_linksets, LsName) of
+	    #slinkset{local_pc = Opc}|_Tail ->
+		Opc;
+	    _ ->
+		undefined
+	end.
+
+% determine if a given point code is local
+is_pc_local(Pc) when is_integer(Pc) ->
+	Ret = ets:match_object(ss7_linksets,
+			       #slinkset{local_pc = Pc, _ = '_'}),
+	case Ret of
+	    #slinkset{} ->
+		true;
+	    _ ->
+		false
+	end.
+
+% process a received message on an underlying link
+mtp3_rx(Mtp3) when is_record(Mtp3, mtp3_msg) ->
+	mtp3_rx(osmo_util:make_prim('MTP', 'TRANSFER', indication, Mtp3));
+% FIXME: PAUSE/RESUME/STATUS handling
+mtp3_rx(#primitive{subsystem='MTP', gen_name='PAUSE', spec_name=indication}) ->
+	ok;
+mtp3_rx(#primitive{subsystem='MTP', gen_name='RESUME', spec_name=indication}) ->
+	ok;
+mtp3_rx(#primitive{subsystem='MTP', gen_name='STATUS', spec_name=indication}) ->
+	ok;
+mtp3_rx(P = #primitive{parameters=#mtp3_msg{service_ind=Serv}}) ->
+	case ets:lookup(mtp3_services, Serv) of
+	     #service{user_pid = Pid} ->
+		gen_server:cast(Pid, P);
+	    _ ->
+		% FIXME: send back some error message on MTP level
+		ok
+	end.
+
+
+% transmit a MTP3 message via any of the avaliable links for the DPC
+mtp3_tx(Mtp3 = #mtp3_msg{routing_label = RoutLbl}, Link) ->
+	#mtp3_routing_label{sig_link_sel = Sls} = RoutLbl,
+	% discover the link through which we shall send
+	case get_pid_for_link(Link, Sls) of
+	    {error, Error} ->
+		{error, Error};
+	    {ok, Pid} ->
+		    gen_server:cast(Pid,
+				osmo_util:make_prim('MTP', 'TRANSFER',
+						    request, Mtp3))
+	end.
+
+
+% transmit a MTP3 message via any of the avaliable links for the DPC
+mtp3_tx(Mtp3 = #mtp3_msg{routing_label = RoutLbl}) ->
+	#mtp3_routing_label{dest_pc = Dpc, sig_link_sel = Sls} = RoutLbl,
+	% discover the link through which we shall send
+	case ss7_routes:route_dpc(Dpc) of
+	    {error, Error} ->
+		{error, Error};
+	    {ok, Linkset} ->
+		{ok, Pid} = get_pid_for_link(Linkset, Sls),
+		gen_server:cast(Pid,
+				osmo_util:make_prim('MTP', 'TRANSFER',
+						    request, Mtp3))
+	end.
+
+dump() ->
+	List = ets:tab2list(ss7_linksets),
+	dump_linksets(List),
+	SList = ets:tab2list(mtp3_services),
+	dump_services(SList).
+
+dump_linksets() ->
+	ok;
+dump_linksets(Head|Tail) when is_record(Head, slinkset) ->
+	dump_single_linkset(Head),
+	dump_linksets(Tail).
+
+dump_single_linkset(Sls) when is_record(Sls, slinkset) ->
+	#slinkset{name = Name, local_pc = Lpc, remote_pc = Rpc,
+		  user_pid = Pid, state = State} = Sls,
+	io:format("Linkset ~p, Local PC: ~p, Remote PC: ~p, Pid: ~p, State: ~p~n",
+		  Name, Lpc, Rpc, Pid, State),
+	dump_linkset_links(Name).
+
+dump_linkset_links(Name) ->
+	List = ets:match_object(ss7_link_table,
+				#slink{key={Name,'_'}, _='_'}),
+	dump_links(List).
+
+dump_links() ->
+	ok;
+dump_links(Head|Tail) when is_record(Head, slink) ->
+	#slink{name = Name, sls = Sls, state = State, user_pid = Pid} = Head,
+	io:format("  Link ~p, SLS: ~p, Pid: ~p, State: ~p~n",
+		  Name, Sls, Pid, State),
+	dump_links(Tail).
+
+dump_services() ->
+	ok;
+dump_services(Head|Tail) when is_record(Head, service) ->
+	#service{name = Name, user_pid = Pid, service_nr = Nr} = Head,
+	io:format("Service ~p bound to ~p (Pid ~p)~n", Nr, Name, Pid),
+	dump_services(Tail).
+
+% server side code
+
+handle_call({register_linkset, {LocalPc, RemotePc, Name}},
+				{FromPid, _FromRef}, S) ->
+	#su_state{linkset_tbl = Tbl} = S,
+	Ls = #slinkset{local_pc = LocalPc, remote_pc = RemotePc,
+		       name = Name, user_pid = FromPid,
+		       state = down, active_sls=},
+	case ets:insert_new(Tbl, Ls) of
+	    false ->
+		{reply, {error, ets_insert}, S};
+	    _ ->
+		% We need to trap the user Pid for EXIT
+		% in order to automatically remove any links/linksets if
+		% the user process dies
+		%
+		% we decided to keep Linksets as something like global
+		% configuration around and not kill them in case the user who
+		% created them has died.
+		%link(FromPid),
+		{reply, ok, S}
+	end;
+
+handle_call({unregister_linkset, {Name}}, {FromPid, _FromRef}, S) ->
+	#su_state{linkset_tbl = Tbl} = S,
+	ets:delete(Tbl, Name),
+	{reply, ok, S};
+
+handle_call({register_link, {LsName, Sls, Name}},
+				{FromPid, _FromRef}, S) ->
+	#su_state{linkset_tbl = LinksetTbl, link_tbl = LinkTbl} = S,
+	% check if linkset actually exists
+	case ets:lookup(LinksetTbl, LsName) of
+	    #slinkset{} ->
+		Link = #slink{name = Name, sls = Sls, state = down,
+			      user_pid = FromPid, key = {LsName, Sls}},
+		case ets:insert_new(LinkTbl, Link) of
+		    false ->
+			{reply, {error, link_exists}, S};
+		    _ ->
+			% We need to trap the user Pid for EXIT
+			% in order to automatically remove any links if
+			% the user process dies
+			link(FromPid),
+			{reply, ok, S}
+		end;
+	    _ ->
+		{reply, {error, no_such_linkset}, S}
+	end;
+
+handle_call({unregister_link, {LsName, Sls}}, {FromPid, _FromRef}, S) ->
+	#su_state{link_tbl = LinkTbl} = S,
+	ets:delete(LinkTbl, {LsName, Sls}),
+	{reply, ok, S};
+
+handle_call({set_link_state, {LsName, Sls, State}}, {FromPid, _}, S) ->
+	#su_state{link_tbl = LinkTbl} = S,
+	case ets:lookup(LinkTbl, {LsName, Sls}) of
+	     ->
+		{reply, {error, no_such_link}, S};
+	    Link ->
+		NewLink = Link#slink{state = State},
+		ets:insert(LinkTbl, NewLink),
+		propagate_linkstate_to_linkset(LsName, Sls, State),
+		{reply, ok, S}
+	end;
+
+handle_call({bind_service, {SNum, SName}}, {FromPid, _},
+	    #su_state{service_tbl = ServTbl} = S) ->
+	NewServ = #service{name = SName, service_nr = SNum,
+			   user_pid = FromPid},
+	case ets:insert_new(ServTbl, NewServ) of
+	    false ->
+		{reply, {error, ets_insert}, S};
+	    _ ->
+		% We need to trap the user Pid for EXIT
+		% in order to automatically remove any links if
+		% the user process dies
+		link(FromPid),
+		{reply, ok, S}
+	end;
+handle_call({unbind_service, {SNum}}, {FromPid, _},
+	    #su_state{service_tbl = ServTbl} = S) ->
+	ets:delete(ServTbl, SNum),
+	{reply, ok, S}.
+
+handle_cast(Info, S) ->
+	error_logger:error_report("unknown handle_cast",
+				  {module, ?MODULE},
+				  {info, Info}, {state, S}),
+	{noreply, S}.
+
+handle_info({'EXIT', Pid, Reason}, S) ->
+	io:format("EXIT from Process ~p (~p), cleaning up tables~n",
+		  Pid, Reason),
+	#su_state{linkset_tbl = LinksetTbl, link_tbl = LinkTbl,
+		  service_tbl = ServiceTbl} = S,
+	% we decided to keep Linksets as something like global
+	% configuration around and not kill them in case the user who
+	% created them has died.
+	%ets:match_delete(LinksetTbl, #slinkset{user_pid = Pid, _='_'}),
+	ets:match_delete(LinkTbl, #slink{user_pid = Pid, _='_'}),
+	ets:match_delete(ServiceTbl, #service{user_pid = Pid, _='_'}),
+	{noreply, S};
+handle_info(Info, S) ->
+	error_logger:error_report("unknown handle_info",
+				  {module, ?MODULE},
+				  {info, Info}, {state, S}),
+	{noreply, S}.
+
+terminate(Reason, _S) ->
+	io:format("terminating ~p with reason ~p", ?MODULE, Reason),
+	ok.
+
+code_change(_OldVsn, State, _Extra) ->
+	{ok, State}.
+
+% update the active_sls state in a linkset after a link state chg
+propagate_linkstate_to_linkset(LsName, Sls, State) ->
+	case ets:lookup(ss7_linksets, LsName) of
+	     Ls = #slinkset{} ->
+	       #slinkset{active_sls = ActSls, remote_pc = Dpc} = Ls,
+		case State of
+		    active ->
+			% add Sls to list (unique)
+			ActSls2 = lists:usort(Sls|ActSls);
+		    _ ->
+			% del Sls from list
+			ActSls2 = lists:delete(Sls, ActSls)
+		end,
+		% compute the linkstate state
+		case ActSls2 of
+		     ->
+			LsState = up_inactive,
+			ss7_routes:delete_route(Dpc, 16#ffff, LsName);
+		    _ ->
+			LsState = active,
+			ss7_routes:create_route(Dpc, 16#ffff, LsName)
+		end,
+		ets:insert(ss7_linksets,
+			   Ls#slinkset{active_sls = ActSls2,
+					state = LsState});
+	    _ ->
+		{error, ets_lookup}
+	end.
+
+role2sctp_role(asp) ->
+	active;
+role2sctp_role(sg) ->
+	passive.
+
+
+to_peer({Ip, Port, Pointcode}) ->
+	{ok, ParsedIp} = inet:parse_address(Ip),
+	#sigtran_peer{ip=ParsedIp, port=Port, point_code=Pointcode}.
+
+reconfig_linkset({Name, LocalPC, RemotePC}) ->
+	unregister_linkset(Name),
+	case register_linkset(LocalPC, RemotePC, Name) of
+		ok -> true;
+		_ -> false
+	end.
+
+reconfig_link({Name, {Lset, Sls}, Type, Local, Remote}) ->
+	% FIXME: not relaod safe!!
+	L = #sigtran_link{type=Type, name=Name, linkset_name=Lset,
+			  sls=Sls, local=to_peer(Local), remote=to_peer(Remote)},
+	case osmo_ss7_sup:add_mtp_link(L) of
+		{ok, _, _} -> true;
+		{ok, _} -> true;
+		{error, _} -> false
+	end.
+
+reload_config() ->
+	Linksets = osmo_util:get_env(osmo_ss7, linksets, ),
+	LinksetsRes =  lists:all(fun reconfig_linkset/1, Linksets),
+	Links = osmo_util:get_env(osmo_ss7, links, ),
+	LinksRes = lists:all(fun reconfig_link/1, Links),
+	LinksetsRes and LinksRes.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/ss7_routes.erl Added

@@ -0,0 +1,179 @@
+% Internal SS7 route database keeping
+
+% (C) 2011-2013 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+
+% this module is keeping the point code routing table for the MTP3 layer
+% of the Omsocom SS7 protocol stack.  Routes are created and deleted
+% with create_route() and delete_route(), the arguments are
+% 	* destination point code
+% 	* point code mask
+% 	* name of the linkset
+%
+% there is one function to actually make a routing decision: route_dpc/1
+% with a single argument: the destination point code.
+
+-module(ss7_routes).
+-behaviour(gen_server).
+
+-include_lib("osmo_ss7/include/mtp3.hrl").
+
+% gen_fsm callbacks
+-export(init/1, handle_call/3, handle_info/2, terminate/2, code_change/3).
+
+% our published API
+-export(start_link/0).
+
+% client functions, may internally talk to our sccp_user server
+-export(create_route/3, delete_route/3, flush_routes/0).
+-export(dump/0).
+-export(route_dpc/1).
+-export(reload_config/0).
+
+-record(ss7route, {
+	remote_pc_mask,		% {remote_pc, remote_pc_mask}
+	linkset_name
+}).
+
+-record(sr_state, {
+	route_tbl
+}).
+
+% initialization code
+
+start_link() ->
+	gen_server:start_link({local, ?MODULE}, ?MODULE, , {debug, trace}).
+
+init(_Arg) ->
+	RouteTbl = ets:new(ss7_routes, ordered_set, named_table,
+			     {keypos, #ss7route.remote_pc_mask}),
+	process_flag(trap_exit, true),
+	{ok, #sr_state{route_tbl = RouteTbl}}.
+
+% client side API
+
+% all write operations go through gen_server:call(), as only the ?MODULE
+% process has permission to modify the table content
+
+create_route(RemotePcIn, RemoteMask, LinksetName) ->
+	RemotePc = osmo_util:pointcode2int(RemotePcIn),
+	gen_server:call(?MODULE, {create_route, {RemotePc, RemoteMask, LinksetName}}).
+
+delete_route(RemotePcIn, RemoteMask, LinksetName) ->
+	RemotePc = osmo_util:pointcode2int(RemotePcIn),
+	gen_server:call(?MODULE, {delete_route, {RemotePc, RemoteMask, LinksetName}}).
+
+flush_routes() ->
+	gen_server:call(?MODULE, flush_routes).
+
+% the lookup functions can directly use the ets named_table from within
+% the client process, no need to go through a synchronous IPC
+
+route_dpc(DpcIn) ->
+	Dpc = osmo_util:pointcode2int(DpcIn),
+	% this was generated by ets:fun2ms() on the shell
+	Match = {#ss7route{remote_pc_mask={'$1','$2'},linkset_name='$3'},
+			  {'==',{'band',Dpc,'$2'},'$1'},
+			    '$3'},
+	case ets:select(ss7_routes, Match) of
+	    Name|_ ->
+		{ok, Name};
+	    _ ->
+		{error, no_route}
+	end.
+
+dump() ->
+	List = ets:tab2list(ss7_routes),
+	dump_routes(List).
+
+dump_routes() ->
+	ok;
+dump_routes(Head|Tail) when is_record(Head, ss7route) ->
+	dump_single_route(Head),
+	dump_routes(Tail).
+
+dump_single_route(#ss7route{remote_pc_mask = {Pc, Mask},
+			    linkset_name = Name}) ->
+	PcTuple = osmo_util:pointcode_fmt(itu, Pc),
+	MaskTuple = osmo_util:pointcode_fmt(itu, Mask),
+	io:format("Dest PC ~p/~p -> Linkset ~p~n",
+		  PcTuple, MaskTuple, Name).
+
+% server side code
+
+handle_call({create_route, {RemotePc, RemoteMask, Name}},
+				{_FromPid, _FromRef}, S) ->
+	#sr_state{route_tbl = Tbl} = S,
+	R = #ss7route{remote_pc_mask = {RemotePc, RemoteMask},
+		      linkset_name = Name},
+	case ets:insert_new(Tbl, R) of
+	    false ->
+		{reply, {error, ets_insert}, S};
+	    _ ->
+		{reply, ok, S}
+	end;
+
+handle_call(flush_routes, {_FromPid, _FromRef}, S) ->
+	#sr_state{route_tbl = Tbl} = S,
+	ets:delete_all_objects(Tbl),
+	{reply, ok, S};
+
+handle_call({delete_route, {RemotePc, RemoteMask, _Name}},
+				{_FromPid, _FromRef}, S) ->
+	#sr_state{route_tbl = Tbl} = S,
+	ets:delete(Tbl, {RemotePc, RemoteMask}),
+	{reply, ok, S}.
+
+handle_info(Info, S) ->
+	error_logger:error_report("unknown handle_info",
+				  {module, ?MODULE},
+				  {info, Info}, {state, S}),
+	{noreply, S}.
+
+terminate(Reason, _S) ->
+	io:format("terminating ~p with reason ~p", ?MODULE, Reason),
+	ok.
+
+
+code_change(_OldVsn, State, _Extra) ->
+	{ok, State}.
+
+reconfig_route({Dpc, Mask, Dest}) ->
+	case create_route(Dpc, Mask, Dest) of
+		ok -> true;
+		_ -> false
+	end.
+
+reload_config() ->
+	flush_routes(),
+	Routes = osmo_util:get_env(osmo_ss7, routes, ),
+	lists:all(fun reconfig_route/1, Routes).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/ss7_service_dump.erl Added

@@ -0,0 +1,78 @@
+% SS7 service handler for dumping MTP3 payload (testing)
+
+% (C) 2010-2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+
+-module(ss7_service_dump).
+-behaviour(gen_fsm).
+-export(start_link/1, init/1, idle/2).
+
+-include_lib("osmo_ss7/include/osmo_util.hrl").
+-include_lib("osmo_ss7/include/mtp3.hrl").
+-include_lib("osmo_ss7/include/isup.hrl").
+-include_lib("osmo_ss7/include/sccp.hrl").
+
+-record(loop_dat, {
+	ssns
+}).
+
+start_link(Ssns) ->
+	gen_fsm:start_link(ss7_service_dump, Ssns, ).
+
+init(Ssn) when is_integer(Ssn) ->
+	init(Ssn);
+init(Ssns) when is_list(Ssns) ->
+	bind_services(Ssns),
+	{ok, idle, #loop_dat{ssns = Ssns}}.
+
+bind_services() ->
+	ok;
+bind_services(Head|Tail) ->
+	ok = ss7_links:bind_service(Head, "ss7_service_dump"),
+	bind_services(Tail).
+
+parse_mtp3(#mtp3_msg{service_ind = ?MTP3_SERV_SCCP, payload = Payload}) ->
+	sccp_codec:parse_sccp_msg(Payload);
+parse_mtp3(#mtp3_msg{service_ind = ?MTP3_SERV_ISUP, payload = Payload}) ->
+	isup_codec:parse_isup_msg(Payload).
+
+idle(#primitive{subsystem = 'MTP', gen_name = 'TRANSFER',
+		spec_name = indication, parameters = Mtp3Msg}, LoopDat) ->
+	io:format("ss7_service_dump in: ~p~n", Mtp3Msg),
+	try parse_mtp3(Mtp3Msg) of
+		Parsed ->
+			io:format("ss7_service_dump out: ~p~n", Parsed)
+	catch
+		_ ->
+			io:format("ss7_service_dump parser error~n")
+	end,
+	{next_state, idle, LoopDat}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/sua_asp.erl Added

@@ -0,0 +1,91 @@
+% SCCP SUA ASP xua_asp_fsm callback according to RFC3868 4.3.1
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(sua_asp).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(xua_asp_fsm).
+
+-include("osmo_util.hrl").
+-include("m3ua.hrl").
+-include("sua.hrl").
+-include("xua.hrl").
+
+-export(init/1).
+
+-export(gen_xua_msg/3, asp_down/3, asp_inactive/3, asp_active/3).
+
+init() ->
+	{ok, we_have_no_state}.
+
+gen_xua_msg(MsgClass, MsgType, Params) ->
+	#xua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType, payload = Params}.
+
+asp_down(#xua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
+	 LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
+	% convert from SUA to xua_msg and call into master module
+	xua_asp_fsm:asp_down({xua_msg, MsgClass, MsgType}, Mld);
+asp_down(SuaMsg, LoopDat, Mld) when is_record(SuaMsg, xua_msg) ->
+	rx_sua(SuaMsg, asp_down, Mld).
+
+asp_inactive(#xua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
+	     LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
+	% convert from SUA to xua_msg and call into master module
+	xua_asp_fsm:asp_inactive({xua_msg, MsgClass, MsgType}, Mld);
+asp_inactive(SuaMsg, LoopDat, Mld) when is_record(SuaMsg, xua_msg) ->
+	rx_sua(SuaMsg, asp_inactive, Mld).
+
+asp_active(#xua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType},
+	   LoopDat, Mld) when MsgClass == ?M3UA_MSGC_ASPSM; MsgClass == ?M3UA_MSGC_ASPTM ->
+	% convert from SUA to xua_msg and call into master module
+	xua_asp_fsm:asp_active({xua_msg, MsgClass, MsgType}, Mld);
+asp_active(SuaMsg, LoopDat, Mld) when is_record(SuaMsg, xua_msg) ->
+	rx_sua(SuaMsg, asp_active, Mld).
+
+
+
+rx_sua(Msg = #xua_msg{version = 1, msg_class = ?M3UA_MSGC_ASPSM,
+		      msg_type = ?M3UA_MSGT_ASPSM_BEAT}, State, LoopDat) ->
+	% Send BEAT_ACK using the same payload as the BEAT msg
+	xua_asp_fsm:send_sctp_to_peer(LoopDat, Msg#xua_msg{msg_type = ?M3UA_MSGT_ASPSM_BEAT_ACK}),
+	{next_state, State, LoopDat};
+
+%rx_sua(Msg = #xua_msg{version = 1, msg_class = ?M3UA_MSGC_SSNM,
+		       %msg_type = MsgType, payload = Params}, State, LoopDat) ->
+	% transform to classic MTP primitive and send up to the user
+	%Mtp = map_ssnm_to_mtp_prim(MsgType),
+	%send_prim_to_user(LoopDat, Mtp),
+	%{next_state, State, LoopDat};
+
+rx_sua(Msg = #xua_msg{}, State, LoopDat) ->
+	io:format("SUA Unknown messge ~p in state ~p~n", Msg, State),
+	{next_state, State, LoopDat}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/sua_sccp_conv.erl Added

@@ -0,0 +1,257 @@
+% Conversion between SUA messages and #sccp_msg{}
+
+% (C) 2011 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+% FIXME: this currently only supports connection-less SCCP
+
+-module(sua_sccp_conv).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-include("sua.hrl").
+-include("xua.hrl").
+-include("sccp.hrl").
+
+-export(sua_to_sccp/1, sccp_to_sua/1).
+
+sua_to_sccp(M=#xua_msg{msg_class = Class, msg_type = Type}) ->
+	sua_to_sccp(Class, Type, M).
+sua_to_sccp(?SUA_MSGC_CL, ?SUA_CL_CLDT, Sua) ->
+	Params = sua_to_sccp_params(Sua),
+	#sccp_msg{msg_type = ?SCCP_MSGT_UDT,
+		parameters = Params};
+sua_to_sccp(?SUA_MSGC_CL, ?SUA_CL_CLDR, Sua) ->
+	Params = sua_to_sccp_params(Sua),
+	#sccp_msg{msg_type = ?SCCP_MSGT_UDTS,
+		parameters = Params}.
+
+sccp_to_sua(#sccp_msg{msg_type = Type, parameters = Params}) ->
+	sccp_to_sua(Type, Params).
+sccp_to_sua(Type, Params) when	Type == ?SCCP_MSGT_UDT;
+				Type == ?SCCP_MSGT_XUDT;
+				Type == ?SCCP_MSGT_LUDT ->
+	Opts = sccp_to_sua_params(Type, Params),
+	#xua_msg{version = 1, msg_class = ?SUA_MSGC_CL,
+		 msg_type = ?SUA_CL_CLDT, payload = Opts};
+sccp_to_sua(Type, Params) when 	Type == ?SCCP_MSGT_UDTS;
+				Type == ?SCCP_MSGT_XUDTS;
+				Type == ?SCCP_MSGT_LUDTS ->
+	Opts = sccp_to_sua_params(Params),
+	#xua_msg{version=1, msg_class = ?SUA_MSGC_CL,
+		 msg_type = ?SUA_CL_CLDR, payload = Opts}.
+
+
+% CLDT parameters:
+% 	?SUA_IEI_ROUTE_CTX, ?SUA_IEI_PROTO_CLASS, ?SUA_IEI_SRC_ADDR,
+% 	?SUA_IEI_DEST_ADDR, ?SUA_IEI_SEQ_CTRL, ?SUA_IEI_S7_HOP_CTR,
+% 	?SUA_IEI_IMPORTANCE, ?SUA_IEI_MSG_PRIO, ?SUA_IEI_CORR_ID,
+% 	?SUA_IEI_SEGMENTATION, ?SUA_IEI_DATA
+
+sua_to_sccp_params(#xua_msg{msg_class=Class, msg_type=Type, payload=Payload}) ->
+	sua_to_sccp_params(Class, Type, Payload).
+sua_to_sccp_params(Class, Type, Payload) ->
+	sua_to_sccp_params(Class, Type, Payload, ).
+sua_to_sccp_params(_Class, _Type, , List) ->
+	List;
+sua_to_sccp_params(Class, Type, {ParTag, {_Len, ParVal}}|Remain, List) ->
+	NewPars = sua_to_sccp_param(Class, Type, ParTag, ParVal),
+	sua_to_sccp_params(Class, Type, Remain, List ++ NewPars).
+
+% convert an individual SUA parameter to a SCCP option
+sua_to_sccp_param(_, _, ?SUA_IEI_PROTO_CLASS, Remain) ->
+	<<_:24, PCOpt:4, _:2, Class:2>> = Remain,
+	{protocol_class, {Class, PCOpt}};
+sua_to_sccp_param(_, _, ?SUA_IEI_SRC_ADDR, Remain) ->
+	Addr = sua_to_sccp_addr(Remain),
+	{calling_party_addr, Addr};
+sua_to_sccp_param(_, _, ?SUA_IEI_DEST_ADDR, Remain) ->
+	Addr = sua_to_sccp_addr(Remain),
+	{called_party_addr, Addr};
+sua_to_sccp_param(_, _, ?SUA_IEI_SEQ_CTRL, _Remain) ->
+	% If we were to translate to a N-UNITDATA.req, we could map
+	% this, but there is no mapping to a SCCP message...
+	;
+sua_to_sccp_param(_, _, ?SUA_IEI_S7_HOP_CTR, Remain) ->
+	<<_:24, HopCtr:8>> = Remain,
+	{?SCCP_PNC_HOP_COUNTER, HopCtr};
+sua_to_sccp_param(_, _, ?SUA_IEI_IMPORTANCE, Remain) ->
+	<<_:24, Imp:8>> = Remain,
+	{?SCCP_PNC_IMPORTANCE, Imp};
+sua_to_sccp_param(_, _, ?SUA_IEI_DATA, Remain) ->
+	{user_data, Remain};
+sua_to_sccp_param(_, _, ?SUA_IEI_ROUTE_CTX, _Remain) ->
+	%FIXME: what to do with routing context?
+	.
+
+sccp_to_sua_params(#sccp_msg{msg_type=Type, parameters=Params}) ->
+	sccp_to_sua_params(Type, Params).
+sccp_to_sua_params(Type, Params) when is_list(Params) ->
+	sccp_to_sua_params(Type, Params, ).
+sccp_to_sua_params(_Type, , List) ->
+	List;
+sccp_to_sua_params(Type, {ParTag, ParVal}|Tail, List) ->
+	NewPars = sccp_to_sua_param(Type, ParTag, ParVal),
+	sccp_to_sua_params(Type, Tail, List ++ NewPars).
+
+sccp_to_sua_param(_, protocol_class, {Opt, Class}) ->
+	{?SUA_IEI_PROTO_CLASS, <<0:24, Opt:4, 0:2, Class:2>>};
+sccp_to_sua_param(_, calling_party_addr, Addr) ->
+	AddrSua = sccp_to_sua_addr(Addr),
+	{?SUA_IEI_SRC_ADDR, AddrSua};
+sccp_to_sua_param(_, called_party_addr, Addr) ->
+	AddrSua = sccp_to_sua_addr(Addr),
+	{?SUA_IEI_DEST_ADDR, AddrSua};
+sccp_to_sua_param(_, ?SCCP_PNC_HOP_COUNTER, Hop) ->
+	{?SUA_IEI_S7_HOP_CTR, <<0:24, Hop:8>>};
+sccp_to_sua_param(_, ?SCCP_PNC_IMPORTANCE, Imp) ->
+	{?SUA_IEI_IMPORTANCE, <<0:24, Imp:8>>};
+sccp_to_sua_param(_, user_data, Data) ->
+	{?SUA_IEI_DATA, Data}.
+
+sua_to_sccp_addr(SuaBin) ->
+	<<RoutInd:16, _:13, GTinc:1, PCinc:1, SSNinc:1, Remain/binary>> = SuaBin,
+	ParList = addr_pars_to_list(Remain),
+	case GTinc of
+		1 ->
+			{_, GTopt} = proplists:get_value(?SUA_IEI_GT, ParList),
+			GT = parse_sua_gt(GTopt);
+		0 ->
+			GT = undefined
+	end,
+	case PCinc of
+		1 ->
+			{_, PCopt} = proplists:get_value(?SUA_IEI_PC, ParList),
+			PC = parse_sua_pc(PCopt);
+		0 ->
+			PC = undefined
+	end,
+	case SSNinc of
+		1 ->
+			{_, SSNopt} = proplists:get_value(?SUA_IEI_SSN, ParList),
+			SSN = parse_sua_ssn(SSNopt);
+		0 ->
+			SSN = undefined
+	end,
+	case RoutInd of
+		?SUA_RI_GT ->
+			RoutSSN = 0;
+		?SUA_RI_SSN_PC ->
+			RoutSSN = 1
+	end,
+	#sccp_addr{route_on_ssn = RoutSSN, point_code = PC, ssn = SSN, global_title = GT}.
+
+addr_pars_to_list(Bin) ->
+	xua_codec:parse_xua_opts(Bin).
+
+sccp_to_sua_addr(Addr) when is_record(Addr, sccp_addr) ->
+	#sccp_addr{route_on_ssn = RoutOnSsn, point_code = PC, ssn = SSN,
+		   global_title = GT} = Addr,
+	case GT of
+		#global_title{} ->
+			GTopt = {?SUA_IEI_GT, encode_sua_gt(GT)},
+			GTinc = 1;
+		_ ->
+			GTopt = ,
+			GTinc = 0
+	end,
+	case PC of
+		Int when is_integer(Int) ->
+			PCopt = {?SUA_IEI_PC, encode_sua_pc(PC)},
+			PCinc = 1;
+		_ ->
+			PCopt = ,
+			PCinc = 0
+	end,
+	case SSN of
+		Int2 when is_integer(Int2) ->
+			SSNopt = {?SUA_IEI_SSN, encode_sua_ssn(SSN)},
+			SSNinc = 1;
+		_ ->
+			SSNopt = ,
+			SSNinc = 0
+	end,
+	case RoutOnSsn of
+		0 ->
+			RoutInd = ?SUA_RI_GT;
+		1 ->
+			RoutInd = ?SUA_RI_SSN_PC
+	end,
+	Tail = xua_codec:encode_xua_opts(GTopt ++ PCopt ++ SSNopt),
+	<<RoutInd:16, 0:13, GTinc:1, PCinc:1, SSNinc:1, Tail/binary>>.
+
+parse_sua_gt(Bin) ->
+	<<_:24, GTI:8, NoDigits:8, TransType:8, NumPlan:8, NAI:8, Remain/binary>> = Bin,
+	Number = parse_sua_gt_digits(NoDigits, Remain),
+	#global_title{gti = GTI, nature_of_addr_ind = NAI,
+		      trans_type = TransType,
+		      numbering_plan = NumPlan,
+		      phone_number = Number}.
+encode_sua_gt(Gt) when is_record(Gt, global_title) ->
+	#global_title{gti = GTI, nature_of_addr_ind = NAI,
+		      trans_type = TransType,
+		      numbering_plan = NumPlan,
+		      phone_number = Number} = Gt,
+	NoDigits = count_digits(Number),
+	DigitBin = encode_sua_gt_digits(Number),
+	<<0:24, GTI:8, NoDigits:8, TransType:8, NumPlan:8, NAI:8, DigitBin/binary>>.
+
+count_digits(Number) when is_integer(Number) ->
+	BcdList = osmo_util:int2digit_list(Number),
+	count_digits(BcdList);
+count_digits(Number) when is_list(Number) ->
+	length(Number).
+
+
+parse_sua_gt_digits(NoDigits, Remain) ->
+	% as opposed to ISUP/SCCP, we can have more than one nibble padding,
+	OddEven = NoDigits rem 1,
+	case OddEven of
+		0 ->
+			ByteLen = NoDigits div 2;
+		1 ->
+			ByteLen = NoDigits div 2 + 1
+	end,
+	<<Bin:ByteLen/binary, _/binary>> = Remain,
+	isup_codec:parse_isup_party(Bin, OddEven).
+encode_sua_gt_digits(Digits) when is_list(Digits); is_integer(Digits) ->
+	% Assume that overall option encoder will do the padding...
+	{Enc, _OddEven} = isup_codec:encode_isup_party(Digits),
+	Enc.
+
+parse_sua_pc(<<PC:32/big>>) ->
+	PC.
+encode_sua_pc(Pc) when is_integer(Pc) ->
+	<<Pc:32/big>>.
+
+parse_sua_ssn(<<_:24, SSN:8>>) ->
+	SSN.
+encode_sua_ssn(Ssn) when is_integer(Ssn) ->
+	<<0:24, Ssn:8>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/xua_as_fsm.erl Added

@@ -0,0 +1,246 @@
+% M2UA / M3UA / SUA AS gsn_fsm according to RFC3868 4.3.1
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(xua_as_fsm).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(gen_fsm).
+
+-include("osmo_util.hrl").
+-include("m3ua.hrl").
+
+% gen_fsm exports
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_sync_event/4, handle_info/3).
+
+% states in this FSM
+-export(as_down/2, as_inactive/2, as_active/2, as_pending/2).
+
+% exported API
+-export(create_asp/2).
+
+% Timeouts in milliseconds
+-define(T_R_TIMEOUT, 2*60*100).
+
+-record(as_state, {
+		as_sup_pid,
+		role,
+		t_r,
+		asp_list
+	}).
+
+create_asp(Name, AspFsmArgs) ->
+	AsFsmName = sg_as_sup:get_as_fsm_name(Name),
+	gen_fsm:sync_send_all_state_event(AsFsmName, {create_asp, AspFsmArgs}).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% gen_fsm callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+init(AsSupPid) when is_pid(AsSupPid) ->
+	AsState = #as_state{asp_list = ,
+			    as_sup_pid = AsSupPid,
+			    role = sg},
+	{ok, as_down, AsState}.
+
+terminate(Reason, State, _LoopDat) ->
+	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
+		  ?MODULE, State, Reason),
+	ok.
+
+code_change(_OldVsn, StateName, LoopDat, _Extra) ->
+	{ok, StateName, LoopDat}.
+
+handle_sync_event({create_asp, Args}, From, State, LoopDat) ->
+	% resolve the ASP supervisor PID
+	AsSupPid = LoopDat#as_state.as_sup_pid,
+	AsChildList = supervisor:which_children(AsSupPid),
+	io:format("AsSupPid ~p, ChildList ~p~n", AsSupPid, AsChildList),
+	{asp_sup, AspSupPid, _, _} = lists:keyfind(asp_sup, 1, AsChildList),
+	% actually tell it to start a new ASP, prepend our own Pid
+	Ret = supervisor:start_child(AspSupPid, self()|Args),
+	LoopDatOut = case Ret of
+		{ok, AspPid} ->
+			link(AspPid),
+			LoopDat#as_state{asp_list = AspPid|LoopDat#as_state.asp_list};
+		{ok, AspPid, _} ->
+			link(AspPid),
+			LoopDat#as_state{asp_list = AspPid|LoopDat#as_state.asp_list};
+		_ ->
+			LoopDat
+	end,
+	{reply, Ret, State, LoopDatOut}.
+
+handle_event(Event, State, LoopDat) ->
+	io:format("Unknown Event ~p in state ~p~n", Event, State),
+	{next_state, State, LoopDat}.
+
+handle_info({'EXIT', Pid, Reason}, State, LoopDat) ->
+	io:format("EXIT from Process ~p (~p), cleaning up ASP list~n",
+		  Pid, Reason),
+	% FIXME: send fake ASP-DOWN event about ASP to self
+	NewAspList = lists:delete(Pid, LoopDat#as_state.asp_list),
+	{next_state, State, LoopDat#as_state{asp_list = NewAspList}};
+
+handle_info(Info, State, LoopDat) ->
+	io:format("Unknown Info ~p in state ~p~n", Info, State),
+	{next_state, State, LoopDat}.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "as_down"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+as_down(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_INACTIVE',
+		   spec_name = indication, parameters = _Params}, LoopDat) ->
+	% One ASP transitions into ASP-INACTIVE
+	next_state(as_inactive, LoopDat);
+
+as_down(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_DOWN',
+		   spec_name = indication, parameters = _Params}, LoopDat) ->
+	% ignore
+	next_state(as_down, LoopDat).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "as_inactive"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+as_inactive(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_DOWN',
+			spec_name = indication, parameters = AsPid}, LoopDat) ->
+	% One ASP transitions into ASP-DOWN
+	% FIXME: check if there are any other ASP != DOWN, if yes -> as_inactive
+	case check_any_other_asp_not_down(LoopDat, AsPid) of
+		true ->
+			next_state(as_inactive, LoopDat);
+		false ->
+			next_state(as_down, LoopDat)
+	end;
+
+as_inactive(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_ACTIVE',
+			spec_name = indication, parameters = Params}, LoopDat) ->
+	% One ASP transitions to ASP-ACTIVE
+	next_state(as_active, LoopDat);
+
+as_inactive(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_INACTIVE',
+		       spec_name = indication, parameters = _Params}, LoopDat) ->
+	% ignore
+	next_state(as_inactive, LoopDat).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "as_active"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+as_active(#primitive{subsystem = 'ASPAS', gen_name = InactDown,
+		     spec_name = indication, parameters = AspPid}, LoopDat) when
+		InactDown == 'ASP_DOWN'; InactDown == 'ASP_INACTIVE' ->
+	% One ASP transitions to ASP-INACTIVE
+	% check if there are other ASP in active, if yes -> as_active
+	case check_any_other_asp_in_active(LoopDat, AspPid) of
+		true ->
+			next_state(as_active, LoopDat);
+		false ->
+			{ok, Tr} = timer:apply_after(?T_R_TIMEOUT, gen_fsm, send_event,
+						 self(), {timer_expired, t_r}),
+			next_state(as_pending, LoopDat#as_state{t_r = Tr})
+	end;
+
+as_active(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_ACTIVE',
+		     spec_name = indication, parameters = _Params}, LoopDat) ->
+	% ignore
+	next_state(as_active, LoopDat).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "as_pending"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+as_pending(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_ACTIVE',
+		      spec_name = indication}, LoopDat) ->
+	% One ASP transitions into ASP-ACTIVE
+	timer:cancel(LoopDat#as_state.t_r),
+	next_state(as_active, LoopDat);
+
+as_pending(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_INACTIVE',
+		      spec_name = indication, parameters = _Params}, LoopDat) ->
+	% ignore
+	next_state(as_pending, LoopDat);
+
+% FIXME: do we need to re-check as_pending state if we get ASP_DOWN of the last
+% inactive ASP ?
+as_pending(#primitive{subsystem = 'ASPAS', gen_name = 'ASP_DOWN',
+		      spec_name = indication, parameters = _Params}, LoopDat) ->
+	next_state(as_pending, LoopDat);
+
+as_pending({timer_expired, t_r}, LoopDat) ->
+	% check if there is at least one ASP in ASP-INACTIVE -> AS-INACTIVE
+	case check_any_other_asp_in_inactive(LoopDat, undefined) of
+		true ->
+			next_state(as_inactive, LoopDat);
+		false ->
+			next_state(as_down, LoopDat)
+	end.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% helper functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+next_state(NewState, LoopDat) ->
+	%FIXME Module:as_state_change(NewState, LoopDat#as_state.ext_state),
+	{next_state, NewState, LoopDat}.
+
+%create_asp(LoopDatIn = #as_state{asp_module = {AspModule, AspModuleArgs},
+%				 asp_list = AspListIn}) ->
+%	Args = AspModule, AspModuleArgs, UserFun, UserFunArgs, SctpPid,
+%	{ok, AspPid} = gen_fsm:start_link(xua_asp_fsm, Args, {debug, trace}),
+%	{AspPid, LoopDatIn#{asp_list = AspPid|AspListIn}}.
+
+
+
+check_any_other_asp_in_inactive(LoopDat, AspPid) ->
+	check_any_other_asp_in_state('ASP_INACTIVE', LoopDat, AspPid).
+
+check_any_other_asp_in_active(LoopDat, AspPid) ->
+	check_any_other_asp_in_state('ASP_ACTIVE', LoopDat, AspPid).
+
+check_any_other_asp_not_down(LoopDat, AspPid) ->
+	ListWithoutMe = lists:delete(AspPid, LoopDat#as_state.asp_list),
+	StateList = build_asp_state_list(ListWithoutMe),
+	not lists:all(fun(E) -> E == 'ASP_DOWN' end, StateList).
+
+check_any_other_asp_in_state(State, LoopDat, AspPid) ->
+	ListWithoutMe = lists:delete(AspPid, LoopDat#as_state.asp_list),
+	StateList = build_asp_state_list(ListWithoutMe),
+	lists:member(State, StateList).
+
+build_asp_state_list(ListOfPids) ->
+	xua_asp_fsm:get_state(X) || X <- ListOfPids.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/xua_asp_fsm.erl Added

@@ -0,0 +1,328 @@
+% SCCP M3UA / SUA ASP gsn_fsm according to RFC3868 4.3.1
+
+% (C) 2011-2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(xua_asp_fsm).
+-author('Harald Welte <laforge@gnumonks.org>').
+-behaviour(gen_fsm).
+
+-include("osmo_util.hrl").
+-include("m3ua.hrl").
+
+% gen_fsm exports
+-export(init/1, terminate/3, code_change/4, handle_event/3, handle_info/3,
+	 handle_sync_event/4).
+
+% states in this FSM
+-export(asp_down/2, asp_inactive/2, asp_active/2).
+
+% helper functions exporte to callback modules
+-export(send_sctp_to_peer/2, send_prim_to_user/2).
+
+% global exports
+-export(get_state/1, start_link/7).
+
+-export(behaviour_info/1).
+
+behaviour_info(callbacks) ->
+	{gen_xua_msg, 3}, {asp_down, 3}, {asp_inactive, 3}, {asp_active, 3}.
+
+% Timeouts in milliseconds
+-define(T_ACK_TIMEOUT, 2*60*100).
+
+-record(asp_state, {
+		module,
+		role,	% asp, sg
+		t_ack,
+		ext_state,
+		user_fun,
+		user_args,
+		as_pid,
+		sctp_pid
+	}).
+
+start_link(AsPid, Module, ModuleArgs, UserFun, UserArgs, SctpPid, Role) ->
+	gen_fsm:start_link(?MODULE, AsPid, Module, ModuleArgs, UserFun, UserArgs, SctpPid, Role, {debug, trace}).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% gen_fsm callbacks
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+init(AsPid, Module, ModuleArgs, UserFun, UserArgs, SctpPid, Role) ->
+	{ok, ExtState} = Module:init(ModuleArgs),
+	AspState = #asp_state{module = Module,
+			      user_fun = UserFun,
+			      user_args = UserArgs,
+			      ext_state = ExtState,
+			      as_pid = AsPid,
+			      sctp_pid = SctpPid,
+			      role = Role},
+	{ok, asp_down, AspState}.
+
+terminate(Reason, State, _LoopDat) ->
+	io:format("Terminating ~p in State ~p (Reason: ~p)~n",
+		  ?MODULE, State, Reason),
+	ok.
+
+code_change(_OldVsn, StateName, LoopDat, _Extra) ->
+	{ok, StateName, LoopDat}.
+
+handle_event(Event, State, LoopDat) ->
+	io:format("Unknown Event ~p in state ~p~n", Event, State),
+	{next_state, State, LoopDat}.
+
+
+handle_info(Info, State, LoopDat) ->
+	io:format("Unknown Info ~p in state ~p~n", Info, State),
+	{next_state, State, LoopDat}.
+
+handle_sync_event(get_state, _From, StateName, LoopDat) ->
+	{reply, state2aspas(StateName), StateName, LoopDat}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% exports
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+get_state(Pid) ->
+	gen_fsm:sync_send_all_state_event(Pid, get_state).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "asp_down"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+asp_down(#primitive{subsystem = 'M', gen_name = 'ASP_UP',
+		    spec_name = request, parameters = _Params},
+	 LoopDat = #asp_state{role=asp}) ->
+	% M-ASP_UP.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, );
+asp_down({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP, Params);
+
+asp_down({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP_ACK},
+	 LoopDat = #asp_state{role=asp}) ->
+	timer:cancel(LoopDat#asp_state.t_ack),
+	% transition into ASP_INACTIVE
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_UP',confirm)),
+	next_state(asp_inactive, LoopDat);
+
+asp_down({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP},
+	 LoopDat = #asp_state{role=sg}) ->
+	% transition into ASP_INACTIVE
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_UP',indication)),
+	send_msg(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPUP_ACK, );
+
+asp_down(WhateverElse, LoopDat = #asp_state{module = Module, ext_state = ExtState}) ->
+	{next_state, State, LDnew} = Module:asp_down(WhateverElse, ExtState, LoopDat),
+	next_state(State, LDnew).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "asp_inactive"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+asp_inactive(#primitive{subsystem = 'M', gen_name = 'ASP_ACTIVE',
+			spec_name = request, parameters = Params},
+	     LoopDat = #asp_state{role=asp}) ->
+	% M-ASP_ACTIVE.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC,
+			   Params);
+
+asp_inactive({timer_expired, t_ack, {?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC, Params);
+
+asp_inactive(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN',
+		      spec_name = request, parameters = _Params},
+	     LoopDat = #asp_state{role=asp}) ->
+	% M-ASP_DOWN.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, );
+
+asp_inactive({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_inactive, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params);
+
+asp_inactive({xua_msg,?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC_ACK},
+	     LoopDat = #asp_state{role=asp}) ->
+	timer:cancel(LoopDat#asp_state.t_ack),
+	% transition into ASP_ACTIVE
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_ACTIVE',confirm)),
+	next_state(asp_active, LoopDat);
+
+asp_inactive({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN_ACK},
+	     LoopDat = #asp_state{role=asp}) ->
+	timer:cancel(LoopDat#asp_state.t_ack),
+	% transition into ASP_DOWN
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',confirm)),
+	next_state(asp_down, LoopDat);
+
+
+asp_inactive({xua_msg,?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC},
+	     LoopDat = #asp_state{role=sg}) ->
+	% transition into ASP_ACTIVE
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_ACTIVE',indication)),
+	send_msg(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPAC_ACK, );
+
+asp_inactive({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN},
+	     LoopDat = #asp_state{role=asp}) ->
+	% transition into ASP_DOWN
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',indication)),
+	send_msg(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN_ACK, );
+
+asp_inactive(WhateverElse, LoopDat = #asp_state{module = Module, ext_state = ExtState}) ->
+	{next_state, State, LDnew} = Module:asp_inactive(WhateverElse, ExtState, LoopDat),
+	next_state(State, LDnew).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% STATE "asp_active"
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+asp_active({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN_ACK},
+	   LoopDat = #asp_state{role=asp}) ->
+	timer:cancel(LoopDat#asp_state.t_ack),
+	% transition into ASP_DOWN
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',confirm)),
+	next_state(asp_down, LoopDat);
+
+asp_active({xua_msg, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA_ACK},
+	   LoopDat = #asp_state{role=asp}) ->
+	timer:cancel(LoopDat#asp_state.t_ack),
+	% transition into ASP_INACTIVE
+	% signal this to the user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_INACTIVE',confirm)),
+	next_state(asp_inactive, LoopDat);
+
+asp_active(#primitive{subsystem = 'M', gen_name = 'ASP_DOWN',
+		      spec_name = request, parameters = _Params},
+	   LoopDat = #asp_state{role=asp}) ->
+	% M-ASP_DOWN.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, );
+
+asp_active({timer_expired, t_ack, {?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN, Params);
+
+asp_active(#primitive{subsystem = 'M', gen_name = 'ASP_INACTIVE',
+		      spec_name = request, parameters = _Params},
+	   LoopDat = #asp_state{role=asp}) ->
+	% M-ASP_INACTIVE.req from user, generate message and send to remote peer
+	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, );
+
+asp_active({timer_expired, t_ack, {?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, Params}}, LoopDat) ->
+	send_msg_start_tack(LoopDat, asp_active, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA, Params);
+
+asp_active({xua_msg, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA},
+	   LoopDat = #asp_state{role=sg}) ->
+	% transition into ASP_INACTIVE
+	% signal this to user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_INACTIVE',indication)),
+	send_msg(LoopDat, asp_inactive, ?M3UA_MSGC_ASPTM, ?M3UA_MSGT_ASPTM_ASPIA_ACK, );
+
+asp_active({xua_msg, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN},
+	   LoopDat = #asp_state{role=sg}) ->
+	% transition into ASP_INACTIVE
+	% signal this to user
+	send_prim_to_user(LoopDat, osmo_util:make_prim('M','ASP_DOWN',indication)),
+	send_msg(LoopDat, asp_down, ?M3UA_MSGC_ASPSM, ?M3UA_MSGT_ASPSM_ASPDN_ACK, );
+
+
+asp_active(#primitive{subsystem = 'MTP', gen_name = 'TRANSFER',
+		      spec_name = request, parameters = Params}, LoopDat) ->
+	% MTP-TRANSFER.req from user app: Send message to remote peer
+	OptList = {?M3UA_IEI_PROTOCOL_DATA, Params},
+	Msg = #m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_TRANSFER,
+			msg_type = ?M3UA_MSGT_XFR_DATA,
+			payload = OptList},
+	send_sctp_to_peer(LoopDat, Msg),
+	next_state(asp_active, LoopDat);
+asp_active(#m3ua_msg{version = 1, msg_class = ?M3UA_MSGC_TRANSFER,
+		     msg_type = ?M3UA_MSGT_XFR_DATA, payload = Params}, LoopDat) ->
+	% Data transfer from remote entity: Send MTP-TRANSFER.ind primitive to the user
+	Mtp3 = proplists:get_value(?M3UA_IEI_PROTOCOL_DATA, Params),
+	send_prim_to_user(LoopDat, osmo_util:make_prim('MTP','TRANSFER',indication,Mtp3)),
+	next_state(asp_active, LoopDat);
+
+asp_active(WhateverElse, LoopDat = #asp_state{module = Module, ext_state = ExtState}) ->
+	{next_state, State, LDnew} = Module:asp_active(WhateverElse, ExtState, LoopDat),
+	next_state(State, LDnew).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% helper functions
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% helper to send one of the up/down/act/inact management messages + start timer
+send_msg_start_tack(LoopDat, State, MsgClass, MsgType, Params) ->
+	Module = LoopDat#asp_state.module,
+	% generate and send the respective message
+	%Msg = #m3ua_msg{version = 1, msg_class = MsgClass, msg_type = MsgType, payload = Params},
+	Msg = Module:gen_xua_msg(MsgClass, MsgType, Params),
+	send_sctp_to_peer(LoopDat, Msg),
+	% start T(ack) timer and wait for ASP_UP_ACK
+	timer:cancel(LoopDat#asp_state.t_ack),
+	{ok, Tack} = timer:apply_after(?T_ACK_TIMEOUT, gen_fsm, send_event,
+				 self(), {timer_expired, t_ack, {MsgClass, MsgType, Params}}),
+	next_state(State, LoopDat#asp_state{t_ack = Tack}).
+
+send_msg(LoopDat, State, MsgClass, MsgType, Params) ->
+	Module = LoopDat#asp_state.module,
+	% generate and send the respective message
+	Msg = Module:gen_xua_msg(MsgClass, MsgType, Params),
+	send_sctp_to_peer(LoopDat, Msg),
+	next_state(State, LoopDat).
+
+send_prim_to_user(LoopDat, Prim) when is_record(LoopDat, asp_state),
+				      is_record(Prim, primitive) ->
+	#asp_state{user_fun = Fun, user_args = Args} = LoopDat,
+	Fun(Prim, Args).
+
+state2aspas(asp_down) -> 'ASP_DOWN';
+state2aspas(asp_inactive) -> 'ASP_INACTIVE';
+state2aspas(asp_active) -> 'ASP_ACTIVE'.
+
+% propagate an ASP state transition as ASPAS primitive to AS
+next_state(State, LoopDat = #asp_state{as_pid = AsPid}) ->
+	Prim = osmo_util:make_prim('ASPAS', state2aspas(State), indication),
+	case AsPid of
+		undefined ->
+			ok;
+		_ ->
+			gen_fsm:send_event(AsPid, Prim)
+	end,
+	{next_state, State, LoopDat}.
+
+% Helper function to send data to the SCTP peer
+send_sctp_to_peer(LoopDat, Msg) ->
+	Prim = osmo_util:make_prim('MTP','TRANSFER',request, Msg),
+	gen_fsm:send_event(LoopDat#asp_state.sctp_pid, Prim).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/xua_asp_test.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/src/xua_codec.erl Added

@@ -0,0 +1,110 @@
+% RFC 3868 SUA SCCP Adaption Layer coding / decoding
+
+% (C) 2012 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on http://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
+-module(xua_codec).
+-author('Harald Welte <laforge@gnumonks.org>').
+-include("xua.hrl").
+
+-export(parse_msg/1, encode_msg/1, parse_xua_opts/1, encode_xua_opts/1).
+
+parse_msg(DataBin) when is_binary(DataBin) ->
+	<<Version:8, _Reserved:8, MsgClass:8, MsgType:8, MsgLen:32/big, Remain/binary>> = DataBin,
+	RemainLen = MsgLen - 4,
+	OptList = parse_xua_opts(Remain),
+	#xua_msg{version = Version, msg_class = MsgClass, msg_type = MsgType,
+		 payload = OptList};
+parse_msg(Data) when is_list(Data) ->
+	parse_msg(list_to_binary(Data)).
+
+parse_xua_opts(OptBin) when is_binary(OptBin) ->
+	parse_xua_opts(OptBin, ).
+
+parse_xua_opts(<<>>, OptList) when is_list(OptList) ->
+	OptList;
+parse_xua_opts(OptBin, OptList) when is_binary(OptBin), is_list(OptList) ->
+	<<Tag:16/big, LengthIncHdr:16/big, Remain/binary>> = OptBin,
+	Length = LengthIncHdr - 4,
+	PadLength = get_num_pad_bytes(Length),
+	%io:format("Tag ~w, LenInHdr ~w, Len ~w, PadLen ~w, Remain ~w(~p)~n",
+	%	  Tag, LengthIncHdr, Length, PadLength, byte_size(Remain), Remain),
+	<<Value:Length/binary, PadNextOpts/binary>> = Remain,
+	% this is ridiculous, we cannot use "<<Value:Length/binary,
+	% 0:PadLength, Remain/binary>>" as the last part would not match an
+	% empty binary <<>> anymore.  Without the "0:PadLengh" this works
+	% perfectly fine.  Now we need some complicated construct and check if
+	% the resulting list would be empty :((
+	if
+		byte_size(PadNextOpts) > PadLength ->
+			<<0:PadLength/integer-unit:8, NextOpts/binary>> = PadNextOpts;
+		true ->
+			NextOpts = <<>>
+	end,
+	NewOpt = {Tag, {Length, Value}},
+	parse_xua_opts(NextOpts, OptList ++ NewOpt).
+
+
+
+encode_msg(#xua_msg{version = Version, msg_class = MsgClass,
+		    msg_type = MsgType, payload = OptList}) ->
+	OptBin = encode_xua_opts(OptList),
+	MsgLen = byte_size(OptBin) + 8,
+	<<Version:8, 0:8, MsgClass:8, MsgType:8, MsgLen:32/big, OptBin/binary>>.
+
+encode_xua_opts(OptList) when is_list(OptList) ->
+	encode_xua_opts(OptList, <<>>).
+
+encode_xua_opts(, Bin) ->
+	Bin;
+encode_xua_opts({Iei, Attr}|Tail, Bin) ->
+	OptBin = encode_xua_opt(Iei, Attr),
+	encode_xua_opts(Tail, <<Bin/binary, OptBin/binary>>).
+
+% convert integer parameters to binary before continuing
+encode_xua_opt(Iei, {LenIn, Data}) when is_integer(Iei), is_integer(Data) ->
+	encode_xua_opt(Iei, {LenIn, <<Data:LenIn/big-integer-unit:8>>});
+
+encode_xua_opt(Iei, {LenIn, Data}) when is_integer(Iei), is_binary(Data) ->
+	Length = LenIn + 4,
+	PadLen = get_num_pad_bytes(Length),
+	<<Iei:16/big, Length:16/big, Data:LenIn/binary, 0:PadLen/integer-unit:8>>;
+encode_xua_opt(Iei, Data) when is_integer(Iei), is_binary(Data) ->
+	Length = byte_size(Data) + 4,
+	PadLen = get_num_pad_bytes(Length),
+	<<Iei:16/big, Length:16/big, Data/binary, 0:PadLen/integer-unit:8>>.
+
+% compute the number of pad bits required after a binary parameter
+get_num_pad_bytes(BinLenBytes) ->
+	case BinLenBytes rem 4 of
+		0 ->    0;
+		Val ->  4 - Val
+	end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/test Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/test/isup_codec_tests.erl Added

@@ -0,0 +1,66 @@
+-module(isup_codec_tests).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-include_lib("eunit/include/eunit.hrl").
+
+-include("isup.hrl").
+-include("xua.hrl").
+-include("m2ua.hrl").
+-include("mtp3.hrl").
+
+
+% individual message encode/decode tests
+
+-define(ISUP_GRS_BIN, <<1,0,23,1,1,14>>).
+-define(ISUP_GRS_DEC, #isup_msg{msg_type = 23,cic = 1, parameters = {22,{1,<<14>>}}}).
+
+grs_dec_test() ->
+	?assertEqual(?ISUP_GRS_DEC, isup_codec:parse_isup_msg(?ISUP_GRS_BIN)).
+grs_enc_test() ->
+	?assertEqual(?ISUP_GRS_BIN, isup_codec:encode_isup_msg(?ISUP_GRS_DEC)).
+
+-define(ISUP_IAM_BIN, <<9,0,1,16,72,0,10,3,2,10,8,131,16,41,153,36,0,128,15,10,8,3,19,148,3,
+			66,48,147,32,242,21,54,25,8,0,0,21,255,255,255,255,255,255,255,255,
+			255,255,29,69,56,203,32,0>>).
+
+-define(ISUP_IAM_DEC, {isup_msg,1,9,{conn_ind_nature,16},{fw_call_ind,18432},{calling_cat,10},{transm_medium_req,3},{4,{party_number,3,0,undefined,1,undefined,undefined,9,2,9,9,4,2,0,0,0,8,15}},{10,{party_number,3,undefined,0,1,0,3,4,9,3,0,2,4,0,3,3,9,0,2}},{242,{21,<<54,25,8,0,0,21,255,255,255,255,255,255,255,255,255,255,29,69,56,203,32>>}}}).
+
+iam_dec_test() ->
+	?assertEqual(?ISUP_IAM_DEC, isup_codec:parse_isup_msg(?ISUP_IAM_BIN)).
+iam_enc_test() ->
+	?assertEqual(?ISUP_IAM_BIN, isup_codec:encode_isup_msg(?ISUP_IAM_DEC)).
+
+
+% parser test for real-world ISUP data
+pcap_parse_test() ->
+	Args = {rewrite_fn, fun pcap_cb/5},
+	File = "../priv/isup.pcap",
+	case file:read_file_info(File) of
+		{ok, _Info} ->
+			{ok, NrPkts} = osmo_ss7_pcap:pcap_apply("../priv/isup.pcap", "", Args),
+			?debugFmt("Parsed ~p PCAP packets~n", NrPkts);
+		{error, _Reason} ->
+			?debugFmt("Skipping PCAP based tests as no ~p could be found~n",
+				  File)
+	end.
+
+pcap_cb(sctp, _From, _Path, 2, DataBin) ->
+	M2ua = m2ua_codec:parse_m2ua_msg(DataBin),
+	handle_m2ua(M2ua).
+
+handle_m2ua(#xua_msg{msg_class = ?M2UA_MSGC_MAUP,
+		     msg_type = ?M2UA_MAUP_MSGT_DATA,
+		     payload = Params}) ->
+	{_Len, M2uaPayload} = proplists:get_value(16#300, Params),
+	Mtp3 = mtp3_codec:parse_mtp3_msg(M2uaPayload),
+	handle_mtp3(Mtp3);
+handle_m2ua(#m2ua_msg{}) ->
+	ok.
+
+handle_mtp3(#mtp3_msg{service_ind = ?MTP3_SERV_ISUP,
+		      payload = Payload}) ->
+	#isup_msg{} = IsupDec = isup_codec:parse_isup_msg(Payload),
+	IsupEnc = isup_codec:encode_isup_msg(IsupDec),
+	?assertEqual(Payload, IsupEnc);
+handle_mtp3(#mtp3_msg{}) ->
+	ok.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/test/m2ua_codec_tests.erl Added

@@ -0,0 +1,22 @@
+-module(m2ua_codec_tests).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-include_lib("eunit/include/eunit.hrl").
+
+-include("xua.hrl").
+-include("m2ua.hrl").
+
+-define(M2UA_MSG_BIN, <<1,0,6,1,0,0,0,124,0,1,0,8,0,0,0,0,3,0,0,105,131,92,
+			 64,0,192,9,0,3,13,24,10,18,7,0,18,4,83,132,9,0,23,
+			 11,18,6,0,18,4,68,119,88,16,70,35,67,100,65,73,4,
+			 81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160,
+			 29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162,
+			 3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0,0,0,0>>).
+-define(M2UA_MSG_DEC, {xua_msg,1,6,1,{1,{4,<<0,0,0,0>>}},{768,{101,<<131,92,64,0,192,9,0,3,13,24,10,18,7,0,18,4,83,132,9,0,23,11,18,6,0,18,4,68,119,88,16,70,35,67,100,65,73,4,81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160,29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162,3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0>>}}}).
+
+parse_test() ->
+	?assertEqual(?M2UA_MSG_DEC, m2ua_codec:parse_m2ua_msg(?M2UA_MSG_BIN)),
+	?assertEqual(?M2UA_MSG_DEC, xua_codec:parse_msg(?M2UA_MSG_BIN)).
+encode_test() ->
+	?assertEqual(?M2UA_MSG_BIN, m2ua_codec:encode_m2ua_msg(?M2UA_MSG_DEC)),
+	?assertEqual(?M2UA_MSG_BIN, xua_codec:encode_msg(?M2UA_MSG_DEC)).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/test/m3ua_codec_tests.erl Added

@@ -0,0 +1,54 @@
+-module(m3ua_codec_tests).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-include_lib("eunit/include/eunit.hrl").
+
+-include("m3ua.hrl").
+-include("mtp3.hrl").
+
+
+% individual message encode/decode tests
+
+-define(MSG_ENC, <<1,0,1,1,0,0,0,168,2,0,0,8,1,171,205,239,0,6,0,8,17,34,51,68,2,16,0,136, 0,1,3,5,0,1,1,1,3,2,8,14,9,1,3,14,25,11,146,6,0,18,4,25,153,150,118,57, 152,11,18,8,0,18,4,25,137,150,146,153,41,90,98,88,72,4,134,18,5,114,107, 26,40,24,6,7,0,17,134,5,1,1,1,160,13,96,11,161,9,6,7,4,0,0,1,0,5,3,108, 52,161,50,2,1,128,2,1,22,48,42,128,7,145,25,153,150,118,57,152,131,1,0, 133,1,1,134,7,145,25,137,150,146,153,41,135,8,155,172,3,185,8,16,174, 125,171,6,3,2,6,192,5,0,0,19,0,8,252,220,18,152>>).
+-define(MSG_DEC, {m3ua_msg,1,1,1,164,{512,<<1,171,205,239>>},{6,<<17,34,51,68>>},{528,{mtp3_msg,2,3,{mtp3_routing_label,14,65793,66309},8,<<9,1,3,14,25,11,146,6,0,18,4,25,153,150,118,57,152,11,18,8,0,18,4,25,137,150,146,153,41,90,98,88,72,4,134,18,5,114,107,26,40,24,6,7,0,17,134,5,1,1,1,160,13,96,11,161,9,6,7,4,0,0,1,0,5,3,108,52,161,50,2,1,128,2,1,22,48,42,128,7,145,25,153,150,118,57,152,131,1,0,133,1,1,134,7,145,25,137,150,146,153,41,135,8,155,172,3,185,8,16,174,125,171,6,3,2,6,192,5,0>>}},{19,<<252,220,18,152>>}}).
+
+%dec_test() ->
+%	?assertEqual(?MSG_DEC, m3ua_codec:parse_m3ua_msg(?MSG_ENC)).
+%enc_test() ->
+%	?assertEqual(?MSG_ENC, m3ua_codec:encode_m3ua_msg(?MSG_DEC)).
+
+
+% parser test for real-world ISUP data
+pcap_parse_test() ->
+	Args = {rewrite_fn, fun pcap_cb/5},
+	File = "../priv/m3ua.pcap",
+	case file:read_file_info(File) of
+		{ok, _Info} ->
+			{ok, NrPkts} = osmo_ss7_pcap:pcap_apply(File, "", Args),
+			?debugFmt("Parsed ~p PCAP packets~n", NrPkts);
+		{error, _Reason} ->
+			?debugFmt("Skipping PCAP based tests as no ~p could be found~n",
+				  File)
+	end.
+
+pcap_cb(sctp, _From, _Path, 3, DataBin) ->
+	%?debugFmt("PCAP ~p~n", DataBin),
+	M3ua = m3ua_codec:parse_m3ua_msg(DataBin),
+	NewBin = m3ua_codec:encode_m3ua_msg(M3ua),
+	handle_m3ua(M3ua),
+	?assertEqual(DataBin, NewBin).
+
+handle_m3ua(#m3ua_msg{msg_class = ?M3UA_MSGC_TRANSFER, msg_type = ?M3UA_MSGT_XFR_DATA,
+			payload = OptList}) ->
+	%?debugFmt("TRANSFER OptList ~p~n", OptList),
+	Mtp3 = proplists:get_value(?M3UA_IEI_PROTOCOL_DATA, OptList),
+	handle_mtp3(Mtp3);
+handle_m3ua(#m3ua_msg{}) ->
+	ok.
+
+handle_mtp3(Mtp3 = #mtp3_msg{service_ind = ?MTP3_SERV_SCCP, payload = Payload}) ->
+	{ok, SccpDec} = sccp_codec:parse_sccp_msg(Payload),
+	SccpEnc = sccp_codec:encode_sccp_msg(SccpDec),
+	?assertEqual(Payload, SccpEnc);
+handle_mtp3(#mtp3_msg{}) ->
+	ok.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/test/mtp3_codec_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/test/osmo_ss7_gtt_tests.erl Added

@@ -0,0 +1,79 @@
+-module(osmo_ss7_gtt_tests).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-include_lib("eunit/include/eunit.hrl").
+-include("sccp.hrl").
+-include("gtt.hrl").
+
+match_inrange_test() ->
+	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1},
+	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000},
+	?assertEqual(foobar, osmo_ss7_gtt:global_title_match({Match, foobar}, Gt)).
+
+nomatch_outrange_test() ->
+	Gt = #global_title{phone_number = 1,2,3,5,0,0,0,1},
+	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000},
+	?assertEqual(false, osmo_ss7_gtt:global_title_match({Match, foobar}, Gt)).
+
+nomatch_inrange_othercrit_test() ->
+	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1},
+	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000, nature_of_addr_ind = 4},
+	?assertEqual(false, osmo_ss7_gtt:global_title_match({Match, foobar}, Gt)).
+
+match_inrange_othercrit_test() ->
+	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, nature_of_addr_ind = 4},
+	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000, nature_of_addr_ind = 4},
+	?assertEqual(foobar, osmo_ss7_gtt:global_title_match({Match, foobar}, Gt)).
+
+
+repl_digit_test() ->
+	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, nature_of_addr_ind = 4},
+	Act = #gtt_act_repl_digits{replace_digit_start = 1, replace_digit_end = 4, new_digits = 5,6,7,8},
+	ReplGt = osmo_ss7_gtt:apply_gtt_actions(Gt, Act),
+	?assertEqual(ReplGt, Gt#global_title{phone_number = 5,6,7,8,0,0,0,1}).
+
+repl_numplan_test() ->
+	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
+	Act = #gtt_act_repl_num_plan{numbering_plan = 3},
+	ReplGt = osmo_ss7_gtt:apply_gtt_actions(Gt, Act),
+	?assertEqual(ReplGt, Gt#global_title{numbering_plan = 3}).
+
+apply_cb(Arg) ->
+	Arg.
+
+apply_test() ->
+	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
+	Act = #gtt_act_apply{funct = fun apply_cb/1, args = rtfm},
+	ReplGt = osmo_ss7_gtt:apply_gtt_actions(Gt, Act),
+	?assertEqual(rtfm, ReplGt).
+
+actlist_test() ->
+	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
+	Act1 = #gtt_act_repl_digits{replace_digit_start = 1, replace_digit_end = 4, new_digits = 5,6,7,8},
+	Act2 = #gtt_act_repl_num_plan{numbering_plan = 3},
+	ReplGt = osmo_ss7_gtt:apply_gtt_actions(Gt, Act1, Act2),
+	?assertEqual(ReplGt, Gt#global_title{phone_number = 5,6,7,8,0,0,0,1, numbering_plan = 3}).
+
+execute_gtt_test() ->
+	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
+	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000},
+	Act1 = #gtt_act_repl_digits{replace_digit_start = 1, replace_digit_end = 4, new_digits = 5,6,7,8},
+	Act2 = #gtt_act_repl_num_plan{numbering_plan = 3},
+	Rules = {Match, Act1, Act2},
+	ReplGt = osmo_ss7_gtt:execute_gtt(Gt, Rules),
+	?assertEqual(ReplGt, Gt#global_title{phone_number = 5,6,7,8,0,0,0,1, numbering_plan = 3}).
+
+
+execute_gtts_test() ->
+	Gt = #global_title{phone_number = 1,2,3,4,0,0,0,1, numbering_plan = 4},
+	SccpAddr = #sccp_addr{point_code = 23, ssn = 42, global_title = Gt},
+	Match = #gtt_match{gt_range_from = 12340000, gt_range_to = 12350000, dpc = 23},
+	% build list of two actions to perform
+	Act1 = #gtt_act_repl_digits{replace_digit_start = 1, replace_digit_end = 4, new_digits = 5,6,7,8},
+	Act2 = #gtt_act_repl_num_plan{numbering_plan = 3},
+	Rules = {Match, Act1, Act2},
+	% compute the expected result
+	ExpGt = Gt#global_title{phone_number = 5,6,7,8,0,0,0,1, numbering_plan = 3},
+	ExpSccp = SccpAddr#sccp_addr{global_title = ExpGt},
+	ReplSccp = osmo_ss7_gtt:execute_gtt(SccpAddr, Rules),
+	?assertEqual(ExpSccp, ReplSccp).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/test/osmo_util_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/test/sccp_codec_tests.erl Added

@@ -0,0 +1,15 @@
+-module(sccp_codec_tests).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-include_lib("eunit/include/eunit.hrl").
+
+-include("sccp.hrl").
+
+-define(SCCP_MSG_BIN, <<9,0,3,13,24,10,18,7,0,18,4,83,132,9,0,23,11,18,6,0,18,4,68,119,88,16,70,35,67,100,65,73,4,81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160,29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162,3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0>>).
+
+-define(SCCP_MSG_DEC, {sccp_msg,9,{protocol_class,{0,0}},{called_party_addr,{sccp_addr,0,0,undefined,7,{global_title,4,4,0,undefined,1,3,5,4,8,9,0,0,0,7,1}}},{calling_party_addr,{sccp_addr,0,0,undefined,6,{global_title,4,4,0,undefined,1,4,4,7,7,8,5,0,1,6,4,3,2}}},{user_data,<<100,65,73,4,81,1,2,200,107,42,40,40,6,7,0,17,134,5,1,1,1,160,29,97,27,128,2,7,128,161,9,6,7,4,0,0,1,0,1,3,162,3,2,1,0,163,5,161,3,2,1,0,108,13,163,11,2,1,64,2,1,8,48,3,10,1,0>>}}).
+
+parse_test() ->
+	?assertEqual({ok, ?SCCP_MSG_DEC}, sccp_codec:parse_sccp_msg(?SCCP_MSG_BIN)).
+encode_test() ->
+	?assertEqual(?SCCP_MSG_BIN, sccp_codec:encode_sccp_msg(?SCCP_MSG_DEC)).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/osmo_ss7/test/sua_codec_tests.erl Added

@@ -0,0 +1,17 @@
+-module(sua_codec_tests).
+-author('Harald Welte <laforge@gnumonks.org>').
+
+-include_lib("eunit/include/eunit.hrl").
+
+-include("xua.hrl").
+-include("sua.hrl").
+
+
+-define(MSG_ENC, <<1,0,7,1,0,0,0,208,0,6,0,8,0,0,0,3,1,21,0,8,0,0,0,1,1,2,0,44,0,1,0,7,128,1,0,20,0,0,0,4,12,0,1,4,68,119,121,7,22,0,0,0,128,2,0,8,0,0,8,21,128,3,0,8,0,0,0,7,1,3,0,44,0,1,0,7,128,1,0,20,0,0,0,4,15,0,7,4,8,18,17,9,97,16,81,1,128,2,0,8,0,0,8,22,128,3,0,8,0,0,0,6,1,22,0,8,0,0,0,0,1,11,0,86,98,80,72,4,0,0,32,64,107,26,40,24,6,7,0,17,134,5,1,1,1,160,13,96,11,161,9,6,7,4,0,0,1,0,1,3,108,44,161,42,2,1,0,2,1,2,48,34,4,8,0,1,17,9,97,16,81,241,129,7,145,8,18,1,0,0,242,4,7,145,68,119,121,7,22,0,166,4,128,2,6,192,0,0>>).
+-define(MSG_DEC, {xua_msg,1,7,1,{6,{4,<<0,0,0,3>>}},{277,{4,<<0,0,0,1>>}},{258,{40,<<0,1,0,7,128,1,0,20,0,0,0,4,12,0,1,4,68,119,121,7,22,0,0,0,128,2,0,8,0,0,8,21,128,3,0,8,0,0,0,7>>}},{259,{40,<<0,1,0,7,128,1,0,20,0,0,0,4,15,0,7,4,8,18,17,9,97,16,81,1,128,2,0,8,0,0,8,22,128,3,0,8,0,0,0,6>>}},{278,{4,<<0,0,0,0>>}},{267,{82,<<98,80,72,4,0,0,32,64,107,26,40,24,6,7,0,17,134,5,1,1,1,160,13,96,11,161,9,6,7,4,0,0,1,0,1,3,108,44,161,42,2,1,0,2,1,2,48,34,4,8,0,1,17,9,97,16,81,241,129,7,145,8,18,1,0,0,242,4,7,145,68,119,121,7,22,0,166,4,128,2,6,192>>}}}).
+
+
+dec_test() ->
+	?assertEqual(?MSG_DEC, xua_codec:parse_msg(?MSG_ENC)).
+enc_test() ->
+	?assertEqual(?MSG_ENC, xua_codec:encode_msg(?MSG_DEC)).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/.github Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/.github/FUNDING.yml Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/.travis.yml Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/LICENSE Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/Makefile Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/README.md Added

@@ -0,0 +1,41 @@
+
+
+# The parse_trans application #
+
+__Authors:__ Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
+
+Parse_transform utilities
+
+!Build Status(https://travis-ci.org/uwiger/parse_trans.svg)(https://travis-ci.com/github/uwiger/parse_trans)
+!Hex pm(http://img.shields.io/hexpm/v/parse_trans.svg?style=flat)(https://hex.pm/packages/parse_trans)
+
+
+## Introduction ##
+
+Parse_trans was written in order to capture some useful patterns in parse transformation
+and code generation for Erlang.
+
+Most notably, perhaps, the module `exprecs`(http://github.com/uwiger/parse_trans/blob/master/doc/exprecs.md) generates standardized accessor
+functions for records, and `ct_expand`(http://github.com/uwiger/parse_trans/blob/master/doc/ct_expand.md) makes it possible to evaluate an
+expression at compile-time and substitute the result as a compile-time constant.
+
+Less known modules, perhaps:
+* `parse_trans_pp`(http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_pp.md) can be called with escript to pretty-print source from
+  debug-compiled .beam files.
+* `parse_trans_codegen`(http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_codegen.md) provides pseudo-functions that can be used for
+  simple code generation.
+* `parse_trans`(http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans.md) provides various helper functions for traversing code and
+  managing complex parse transforms
+
+
+## Modules ##
+
+
+<table width="100%" border="0" summary="list of modules">
+<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/ct_expand.md" class="module">ct_expand</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/exprecs.md" class="module">exprecs</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans.md" class="module">parse_trans</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_codegen.md" class="module">parse_trans_codegen</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_mod.md" class="module">parse_trans_mod</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/parse_trans/blob/master/doc/parse_trans_pp.md" class="module">parse_trans_pp</a></td></tr></table>
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/README.md Added

@@ -0,0 +1,41 @@
+
+
+# The parse_trans application #
+
+__Authors:__ Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
+
+Parse_transform utilities
+
+!Build Status(https://travis-ci.org/uwiger/parse_trans.svg)
+!Hex pm(http://img.shields.io/hexpm/v/parse_trans.svg?style=flat)(https://hex.pm/packages/parse_trans)
+
+
+## Introduction ##
+
+Parse_trans was written in order to capture some useful patterns in parse transformation
+and code generation for Erlang.
+
+Most notably, perhaps, the module `exprecs`(exprecs.md) generates standardized accessor
+functions for records, and `ct_expand`(ct_expand.md) makes it possible to evaluate an
+expression at compile-time and substitute the result as a compile-time constant.
+
+Less known modules, perhaps:
+* `parse_trans_pp`(parse_trans_pp.md) can be called with escript to pretty-print source from
+  debug-compiled .beam files.
+* `parse_trans_codegen`(parse_trans_codegen.md) provides pseudo-functions that can be used for
+  simple code generation.
+* `parse_trans`(parse_trans.md) provides various helper functions for traversing code and
+  managing complex parse transforms
+
+
+## Modules ##
+
+
+<table width="100%" border="0" summary="list of modules">
+<tr><td><a href="ct_expand.md" class="module">ct_expand</a></td></tr>
+<tr><td><a href="exprecs.md" class="module">exprecs</a></td></tr>
+<tr><td><a href="parse_trans.md" class="module">parse_trans</a></td></tr>
+<tr><td><a href="parse_trans_codegen.md" class="module">parse_trans_codegen</a></td></tr>
+<tr><td><a href="parse_trans_mod.md" class="module">parse_trans_mod</a></td></tr>
+<tr><td><a href="parse_trans_pp.md" class="module">parse_trans_pp</a></td></tr></table>
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/ct_expand.md Added

@@ -0,0 +1,104 @@
+
+
+# Module ct_expand #
+* Description(#description)
+* Data Types(#types)
+* Function Index(#index)
+* Function Details(#functions)
+
+Compile-time expansion utility.
+
+__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
+
+<a name="description"></a>
+
+## Description ##
+
+This module serves as an example of parse_trans-based transforms,
+but might also be a useful utility in its own right.
+The transform searches for calls to the pseudo-function
+`ct_expand:term(Expr)`, and then replaces the call site with the
+result of evaluating `Expr` at compile-time.
+
+For example, the line
+
+`ct_expand:term(lists:sort(3,5,2,1,4))`
+
+would be expanded at compile-time to `1,2,3,4,5`.
+
+ct_expand has now been extended to also evaluate calls to local functions.
+See examples/ct_expand_test.erl for some examples.
+
+A debugging facility exists: passing the option {ct_expand_trace, Flags} as an option,
+or adding a compiler attribute -ct_expand_trace(Flags) will enable a form of call trace.
+
+`Flags` can be `` (no trace) or `F`, where `F` is `c` (call trace),
+`r` (return trace), or `x` (exception trace)'.
+
+<a name="types"></a>
+
+## Data Types ##
+
+
+
+
+### <a name="type-form">form()</a> ###
+
+
+<pre><code>
+form() = any()
+</code></pre>
+
+
+
+
+### <a name="type-forms">forms()</a> ###
+
+
+<pre><code>
+forms() = <a href="#type-form">form()</a>
+</code></pre>
+
+
+
+
+### <a name="type-options">options()</a> ###
+
+
+<pre><code>
+options() = {atom(), any()}
+</code></pre>
+
+<a name="index"></a>
+
+## Function Index ##
+
+
+<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#extract_fun-3">extract_fun/3</a></td><td></td></tr><tr><td valign="top"><a href="#lfun_rewrite-2">lfun_rewrite/2</a></td><td></td></tr><tr><td valign="top"><a href="#parse_transform-2">parse_transform/2</a></td><td></td></tr></table>
+
+
+<a name="functions"></a>
+
+## Function Details ##
+
+<a name="extract_fun-3"></a>
+
+### extract_fun/3 ###
+
+`extract_fun(Name, Arity, Forms) -> any()`
+
+<a name="lfun_rewrite-2"></a>
+
+### lfun_rewrite/2 ###
+
+`lfun_rewrite(Exprs, Forms) -> any()`
+
+<a name="parse_transform-2"></a>
+
+### parse_transform/2 ###
+
+<pre><code>
+parse_transform(Forms::<a href="#type-forms">forms()</a>, Options::<a href="#type-options">options()</a>) -&gt; <a href="#type-forms">forms()</a>
+</code></pre>
+<br />
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/edoc-info Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/erlang.png Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/exprecs.md Added

@@ -0,0 +1,662 @@
+
+
+# Module exprecs #
+* Description(#description)
+* Data Types(#types)
+* Function Index(#index)
+* Function Details(#functions)
+
+Parse transform for generating record access functions.
+
+__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
+
+<a name="description"></a>
+
+## Description ##
+
+This parse transform can be used to reduce compile-time
+dependencies in large systems.
+
+In the old days, before records, Erlang programmers often wrote
+access functions for tuple data. This was tedious and error-prone.
+The record syntax made this easier, but since records were implemented
+fully in the pre-processor, a nasty compile-time dependency was
+introduced.
+
+This module automates the generation of access functions for
+records. While this method cannot fully replace the utility of
+pattern matching, it does allow a fair bit of functionality on
+records without the need for compile-time dependencies.
+
+Whenever record definitions need to be exported from a module,
+inserting a compiler attribute,
+`export_records(RecName|...)` causes this transform
+to lay out access functions for the exported records:
+
+As an example, consider the following module:
+
+```erlang
+
+  -module(test_exprecs).
+  -record(r,{a = 0 :: integer(),b = 0 :: integer(),c = 0 :: integer()}).
+  -record(s,{a}).
+  -record(t,{}).
+  -export_records(r,s,t).
+  -export_type('#prop-r'/0,
+                '#attr-r'/0,
+                '#prop-s'/0,
+                '#attr-s'/0,
+                '#prop-t'/0,
+                '#attr-t'/0).
+  -type '#prop-s'() :: {a, any()}.
+  -type '#attr-s'() :: a.
+  -type '#prop-r'() :: {a, any()} | {b, any()} | {c, any()}.
+  -type '#attr-r'() :: a | b | c.
+  -type '#prop-t'() :: any().
+  -type '#attr-t'() :: any().
+  -spec '#exported_records-'() -> r | s | t.
+  -spec '#new-'(r) -> #r{};
+               (s) -> #s{};
+               (t) -> #t{}.
+  -spec '#info-'(r) -> '#attr-r'();
+                (s) -> '#attr-s'();
+                (t) -> '#attr-t'().
+  -spec '#info-'(r, size) -> 4;
+                (r, fields) -> '#attr-r'();
+                (s, size) -> 2;
+                (s, fields) -> '#attr-s'();
+                (t, size) -> 1;
+                (t, fields) -> '#attr-t'().
+  -spec '#pos-'(r, a) -> 1;
+               (r, b) -> 2;
+               (r, c) -> 3;
+               (s, a) -> 1.
+  -spec '#is_record-'(any()) -> boolean().
+  -spec '#is_record-'(any(), any()) -> boolean().
+  -spec '#get-'(a, #s{}) -> any();
+               (a, #r{}) -> any();
+               (b, #r{}) -> any();
+               (c, #r{}) -> any();
+               ('#attr-t'(), #t{}) -> ;
+               ('#attr-s'(), #s{}) -> any();
+               ('#attr-r'(), #r{}) -> any().
+  -spec '#set-'('#prop-r'(), #r{}) -> #r{};
+               ('#prop-s'(), #s{}) -> #s{};
+               ('#prop-t'(), #t{}) -> #t{}.
+  -spec '#fromlist-'('#prop-r'(), #r{}) -> #r{};
+                    ('#prop-s'(), #s{}) -> #s{};
+                    ('#prop-t'(), #t{}) -> #t{}.
+  -spec '#frommap-'(#{a => any(), b => any(), c => any()}, #r{}) -> #r{};
+                   (#{a => any()}, #s{}) -> #s{};
+                   (#{}, #t{}) -> #t{}.
+  -spec '#lens-'('#attr-r'(), r) ->
+                    {fun((#r{}) -> any()), fun((any(), #r{}) -> #r{})};
+                ('#attr-s'(), s) ->
+                    {fun((#s{}) -> any()), fun((any(), #s{}) -> #s{})};
+                ('#attr-t'(), t) ->
+                    {fun((#t{}) -> any()), fun((any(), #t{}) -> #t{})}.
+  -spec '#new-r'() -> #r{}.
+  -spec '#new-r'('#prop-r'()) -> #r{}.
+  -spec '#get-r'(a, #r{}) -> any();
+                (b, #r{}) -> any();
+                (c, #r{}) -> any();
+                ('#attr-r'(), #r{}) -> any().
+  -spec '#set-r'('#prop-r'(), #r{}) -> #r{}.
+  -spec '#fromlist-r'('#prop-r'()) -> #r{}.
+  -spec '#fromlist-r'('#prop-r'(), #r{}) -> #r{}.
+  -spec '#frommap-r'(#{a => any(), b => any(), c => any()}) -> #r{}.
+  -spec '#frommap-r'(#{a => any(), b => any(), c => any()}, #r{}) -> #r{}.
+  -spec '#pos-r'('#attr-r'() | atom()) -> integer().
+  -spec '#info-r'(fields) -> a | b | c;
+                 (size) -> 4.
+  -spec '#lens-r'('#attr-r'()) ->
+                     {fun((#r{}) -> any()), fun((any(), #r{}) -> #r{})}.
+  -spec '#new-s'() -> #s{}.
+  -spec '#new-s'('#prop-s'()) -> #s{}.
+  -spec '#get-s'(a, #s{}) -> any();
+                ('#attr-s'(), #s{}) -> any().
+  -spec '#set-s'('#prop-s'(), #s{}) -> #s{}.
+  -spec '#fromlist-s'('#prop-s'()) -> #s{}.
+  -spec '#fromlist-s'('#prop-s'(), #s{}) -> #s{}.
+  -spec '#frommap-s'(#{a => any()}) -> #s{}.
+  -spec '#frommap-s'(#{a => any()}, #s{}) -> #s{}.
+  -spec '#pos-s'('#attr-s'() | atom()) -> integer().
+  -spec '#info-s'(fields) -> a;
+                 (size) -> 2.
+  -spec '#lens-s'('#attr-s'()) ->
+                     {fun((#s{}) -> any()), fun((any(), #s{}) -> #s{})}.
+  -spec '#new-t'() -> #t{}.
+  -spec '#new-t'('#prop-t'()) -> #t{}.
+  -spec '#get-t'('#attr-t'(), #t{}) -> any().
+  -spec '#set-t'('#prop-t'(), #t{}) -> #t{}.
+  -spec '#fromlist-t'('#prop-t'()) -> #t{}.
+  -spec '#fromlist-t'('#prop-t'(), #t{}) -> #t{}.
+  -spec '#frommap-t'(#{}) -> #t{}.
+  -spec '#frommap-t'(#{}, #t{}) -> #t{}.
+  -spec '#pos-t'('#attr-t'() | atom()) -> integer().
+  -spec '#info-t'(fields) -> ;
+                 (size) -> 1.
+  -spec '#lens-t'('#attr-t'()) ->
+                     {fun((#t{}) -> any()), fun((any(), #t{}) -> #t{})}.
+  -file("c:/git/etp/_checkouts/parse_trans/examples/test_exprecs.erl", 1).
+  '#exported_records-'() ->
+      r,s,t.
+  '#new-'(r) ->
+      '#new-r'();
+  '#new-'(s) ->
+      '#new-s'();
+  '#new-'(t) ->
+      '#new-t'().
+  '#info-'(RecName) ->
+      '#info-'(RecName, fields).
+  '#info-'(r, Info) ->
+      '#info-r'(Info);
+  '#info-'(s, Info) ->
+      '#info-s'(Info);
+  '#info-'(t, Info) ->
+      '#info-t'(Info).
+  '#pos-'(r, Attr) ->
+      '#pos-r'(Attr);
+  '#pos-'(s, Attr) ->
+      '#pos-s'(Attr);
+  '#pos-'(t, Attr) ->
+      '#pos-t'(Attr).
+  '#is_record-'(X) ->
+      if
+          is_record(X, r, 4) ->
+              true;
+          is_record(X, s, 2) ->
+              true;
+          is_record(X, t, 1) ->
+              true;
+          true ->
+              false
+      end.
+  '#is_record-'(t, Rec) when tuple_size(Rec) == 1, element(1, Rec) == t ->
+      true;
+  '#is_record-'(s, Rec) when tuple_size(Rec) == 2, element(1, Rec) == s ->
+      true;
+  '#is_record-'(r, Rec) when tuple_size(Rec) == 4, element(1, Rec) == r ->
+      true;
+  '#is_record-'(_, _) ->
+      false.
+  '#get-'(Attrs, {r,_,_,_} = Rec) when true ->
+      '#get-r'(Attrs, Rec);
+  '#get-'(Attrs, {s,_} = Rec) when true ->
+      '#get-s'(Attrs, Rec);
+  '#get-'(Attrs, {t} = Rec) when true ->
+      '#get-t'(Attrs, Rec).
+  '#set-'(Vals, {r,_,_,_} = Rec) when true ->
+      '#set-r'(Vals, Rec);
+  '#set-'(Vals, {s,_} = Rec) when true ->
+      '#set-s'(Vals, Rec);
+  '#set-'(Vals, {t} = Rec) when true ->
+      '#set-t'(Vals, Rec).
+  '#fromlist-'(Vals, {r,_,_,_} = Rec) when true ->
+      '#fromlist-r'(Vals, Rec);
+  '#fromlist-'(Vals, {s,_} = Rec) when true ->
+      '#fromlist-s'(Vals, Rec);
+  '#fromlist-'(Vals, {t} = Rec) when true ->
+      '#fromlist-t'(Vals, Rec).
+  '#frommap-'(Vals, {r,_,_,_} = Rec) when true ->
+      '#frommap-r'(Vals, Rec);
+  '#frommap-'(Vals, {s,_} = Rec) when true ->
+      '#frommap-s'(Vals, Rec);
+  '#frommap-'(Vals, {t} = Rec) when true ->
+      '#frommap-t'(Vals, Rec).
+  '#lens-'(Attr, r) ->
+      '#lens-r'(Attr);
+  '#lens-'(Attr, s) ->
+      '#lens-s'(Attr);
+  '#lens-'(Attr, t) ->
+      '#lens-t'(Attr).
+  '#new-r'() ->
+      {r,0,0,0}.
+  '#new-r'(Vals) ->
+      '#set-r'(Vals, {r,0,0,0}).
+  '#get-r'(Attrs, R) when is_list(Attrs) ->
+      
+       '#get-r'(A, R) ||
+           A <- Attrs
+      ;
+  '#get-r'(a, R) ->
+      case R of
+          {r,rec0,_,_} ->
+              rec0;
+          _ ->
+              error({badrecord,r})
+      end;
+  '#get-r'(b, R) ->
+      case R of
+          {r,_,rec1,_} ->
+              rec1;
+          _ ->
+              error({badrecord,r})
+      end;
+  '#get-r'(c, R) ->
+      case R of
+          {r,_,_,rec2} ->
+              rec2;
+          _ ->
+              error({badrecord,r})
+      end;
+  '#get-r'(Attr, R) ->
+      error(bad_record_op, '#get-r',Attr,R).
+  '#set-r'(Vals, Rec) ->
+      F = % fun-info: {0,0,'-#set-r/2-fun-0-'}
+          fun(, R, _F1) ->
+                 R;
+             ({a,V}|T, R, F1) when is_list(T) ->
+                 F1(T,
+                    begin
+                        rec3 = R,
+                        case rec3 of
+                            {r,_,_,_} ->
+                                setelement(2, rec3, V);
+                            _ ->
+                                error({badrecord,r})
+                        end
+                    end,
+                    F1);
+             ({b,V}|T, R, F1) when is_list(T) ->
+                 F1(T,
+                    begin
+                        rec4 = R,
+                        case rec4 of
+                            {r,_,_,_} ->
+                                setelement(3, rec4, V);
+                            _ ->
+                                error({badrecord,r})
+                        end
+                    end,
+                    F1);
+             ({c,V}|T, R, F1) when is_list(T) ->
+                 F1(T,
+                    begin
+                        rec5 = R,
+                        case rec5 of
+                            {r,_,_,_} ->
+                                setelement(4, rec5, V);
+                            _ ->
+                                error({badrecord,r})
+                        end
+                    end,
+                    F1);
+             (Vs, R, _) ->
+                 error(bad_record_op, '#set-r',Vs,R)
+          end,
+      F(Vals, Rec, F).
+  '#fromlist-r'(Vals) when is_list(Vals) ->
+      '#fromlist-r'(Vals, '#new-r'()).
+  '#fromlist-r'(Vals, Rec) ->
+      AttrNames = {a,2},{b,3},{c,4},
+      F = % fun-info: {0,0,'-#fromlist-r/2-fun-0-'}
+          fun(, R, _F1) ->
+                 R;
+             ({H,Pos}|T, R, F1) when is_list(T) ->
+                 case lists:keyfind(H, 1, Vals) of
+                     false ->
+                         F1(T, R, F1);
+                     {_,Val} ->
+                         F1(T, setelement(Pos, R, Val), F1)
+                 end
+          end,
+      F(AttrNames, Rec, F).
+  '#frommap-r'(Vals) when is_map(Vals) ->
+      '#frommap-r'(Vals, '#new-r'()).
+  '#frommap-r'(Vals, Rec) ->
+      List = maps:to_list(Vals),
+      '#fromlist-r'(List, Rec).
+  '#pos-r'(a) ->
+      2;
+  '#pos-r'(b) ->
+      3;
+  '#pos-r'(c) ->
+      4;
+  '#pos-r'(A) when is_atom(A) ->
+      0.
+  '#info-r'(fields) ->
+      a,b,c;
+  '#info-r'(size) ->
+      4.
+  '#lens-r'(a) ->
+      {% fun-info: {0,0,'-#lens-r/1-fun-0-'}
+       fun(R) ->
+              '#get-r'(a, R)
+       end,
+       % fun-info: {0,0,'-#lens-r/1-fun-1-'}
+       fun(X, R) ->
+              '#set-r'({a,X}, R)
+       end};
+  '#lens-r'(b) ->
+      {% fun-info: {0,0,'-#lens-r/1-fun-2-'}
+       fun(R) ->
+              '#get-r'(b, R)
+       end,
+       % fun-info: {0,0,'-#lens-r/1-fun-3-'}
+       fun(X, R) ->
+              '#set-r'({b,X}, R)
+       end};
+  '#lens-r'(c) ->
+      {% fun-info: {0,0,'-#lens-r/1-fun-4-'}
+       fun(R) ->
+              '#get-r'(c, R)
+       end,
+       % fun-info: {0,0,'-#lens-r/1-fun-5-'}
+       fun(X, R) ->
+              '#set-r'({c,X}, R)
+       end};
+  '#lens-r'(Attr) ->
+      error(bad_record_op, '#lens-r',Attr).
+  '#new-s'() ->
+      {s,undefined}.
+  '#new-s'(Vals) ->
+      '#set-s'(Vals, {s,undefined}).
+  '#get-s'(Attrs, R) when is_list(Attrs) ->
+      
+       '#get-s'(A, R) ||
+           A <- Attrs
+      ;
+  '#get-s'(a, R) ->
+      case R of
+          {s,rec6} ->
+              rec6;
+          _ ->
+              error({badrecord,s})
+      end;
+  '#get-s'(Attr, R) ->
+      error(bad_record_op, '#get-s',Attr,R).
+  '#set-s'(Vals, Rec) ->
+      F = % fun-info: {0,0,'-#set-s/2-fun-0-'}
+          fun(, R, _F1) ->
+                 R;
+             ({a,V}|T, R, F1) when is_list(T) ->
+                 F1(T,
+                    begin
+                        rec7 = R,
+                        case rec7 of
+                            {s,rec8} ->
+                                {s,V};
+                            _ ->
+                                error({badrecord,s})
+                        end
+                    end,
+                    F1);
+             (Vs, R, _) ->
+                 error(bad_record_op, '#set-s',Vs,R)
+          end,
+      F(Vals, Rec, F).
+  '#fromlist-s'(Vals) when is_list(Vals) ->
+      '#fromlist-s'(Vals, '#new-s'()).
+  '#fromlist-s'(Vals, Rec) ->
+      AttrNames = {a,2},
+      F = % fun-info: {0,0,'-#fromlist-s/2-fun-0-'}
+          fun(, R, _F1) ->
+                 R;
+             ({H,Pos}|T, R, F1) when is_list(T) ->
+                 case lists:keyfind(H, 1, Vals) of
+                     false ->
+                         F1(T, R, F1);
+                     {_,Val} ->
+                         F1(T, setelement(Pos, R, Val), F1)
+                 end
+          end,
+      F(AttrNames, Rec, F).
+  '#frommap-s'(Vals) when is_map(Vals) ->
+      '#frommap-s'(Vals, '#new-s'()).
+  '#frommap-s'(Vals, Rec) ->
+      List = maps:to_list(Vals),
+      '#fromlist-s'(List, Rec).
+  '#pos-s'(a) ->
+      2;
+  '#pos-s'(A) when is_atom(A) ->
+      0.
+  '#info-s'(fields) ->
+      a;
+  '#info-s'(size) ->
+      2.
+  '#lens-s'(a) ->
+      {% fun-info: {0,0,'-#lens-s/1-fun-0-'}
+       fun(R) ->
+              '#get-s'(a, R)
+       end,
+       % fun-info: {0,0,'-#lens-s/1-fun-1-'}
+       fun(X, R) ->
+              '#set-s'({a,X}, R)
+       end};
+  '#lens-s'(Attr) ->
+      error(bad_record_op, '#lens-s',Attr).
+  '#new-t'() ->
+      {t}.
+  '#new-t'(Vals) ->
+      '#set-t'(Vals, {t}).
+  '#get-t'(Attrs, R) when is_list(Attrs) ->
+      
+       '#get-t'(A, R) ||
+           A <- Attrs
+      ;
+  '#get-t'(Attr, R) ->
+      error(bad_record_op, '#get-t',Attr,R).
+  '#set-t'(Vals, Rec) ->
+      F = % fun-info: {0,0,'-#set-t/2-fun-0-'}
+          fun(, R, _F1) ->
+                 R;
+             (Vs, R, _) ->
+                 error(bad_record_op, '#set-t',Vs,R)
+          end,
+      F(Vals, Rec, F).
+  '#fromlist-t'(Vals) when is_list(Vals) ->
+      '#fromlist-t'(Vals, '#new-t'()).
+  '#fromlist-t'(Vals, Rec) ->
+      AttrNames = ,
+      F = % fun-info: {0,0,'-#fromlist-t/2-fun-0-'}
+          fun(, R, _F1) ->
+                 R;
+             ({H,Pos}|T, R, F1) when is_list(T) ->
+                 case lists:keyfind(H, 1, Vals) of
+                     false ->
+                         F1(T, R, F1);
+                     {_,Val} ->
+                         F1(T, setelement(Pos, R, Val), F1)
+                 end
+          end,
+      F(AttrNames, Rec, F).
+  '#frommap-t'(Vals) when is_map(Vals) ->
+      '#frommap-t'(Vals, '#new-t'()).
+  '#frommap-t'(Vals, Rec) ->
+      List = maps:to_list(Vals),
+      '#fromlist-t'(List, Rec).
+  '#pos-t'(A) when is_atom(A) ->
+      0.
+  '#info-t'(fields) ->
+      ;
+  '#info-t'(size) ->
+      1.
+  '#lens-t'(Attr) ->
+      error(bad_record_op, '#lens-t',Attr).
+  f() ->
+      foo.
+```
+
+It is possible to modify the naming rules of exprecs, through the use
+of the following attributes (example reflecting the current rules):
+
+```
+
+  -exprecs_prefix("#", operation, "-").
+  -exprecs_fname(prefix, record).
+  -exprecs_vfname(fname, "__", version).
+```
+
+The lists must contain strings or any of the following control atoms:
+
+* in `exprecs_prefix`: `operation`
+
+* in `exprecs_fname`: `operation`, `record`, `prefix`
+
+* in `exprecs_vfname`: `operation`, `record`, `prefix`, `fname`, `version`
+
+
+Exprecs will substitute the control atoms with the string values of the
+corresponding items. The result will then be flattened and converted to an
+atom (a valid function or type name).
+
+`operation` is one of:
+
+
+
+<dt><code>new</code></dt>
+
+ 
+
+<dd>Creates a new record</dd>
+
+
+
+
+<dt><code>get</code></dt>
+
+ 
+
+<dd>Retrieves given attribute values from a record</dd>
+
+
+
+
+<dt><code>set</code></dt>
+
+ 
+
+<dd>Sets given attribute values in a record</dd>
+
+
+
+
+<dt><code>fromlist</code></dt>
+
+ 
+
+<dd>Creates a record from a key-value list</dd>
+
+
+
+
+<dt><code>info</code></dt>
+
+ 
+
+<dd>Equivalent to record_info/2</dd>
+
+
+
+
+<dt><code>pos</code></dt>
+
+ 
+
+<dd>Returns the position of a given attribute</dd>
+
+
+
+
+<dt><code>is_record</code></dt>
+
+ 
+
+<dd>Tests if a value is a specific record</dd>
+
+
+
+
+<dt><code>convert</code></dt>
+
+ 
+
+<dd>Converts an old record to the current version</dd>
+
+
+
+
+<dt><code>prop</code></dt>
+
+ 
+
+<dd>Used only in type specs</dd>
+
+
+
+
+<dt><code>attr</code></dt>
+
+ 
+
+<dd>Used only in type specs</dd>
+
+
+
+
+<dt><code>lens</code></dt>
+
+ 
+
+<dd>Returns a 'lens' (an accessor pair) as described in
+<a href="http://github.com/jlouis/erl-lenses" target="_top"><tt>http://github.com/jlouis/erl-lenses</tt></a></dd>
+
+
+
+
+<a name="types"></a>
+
+## Data Types ##
+
+
+
+
+### <a name="type-form">form()</a> ###
+
+
+<pre><code>
+form() = any()
+</code></pre>
+
+
+
+
+### <a name="type-forms">forms()</a> ###
+
+
+<pre><code>
+forms() = <a href="#type-form">form()</a>
+</code></pre>
+
+
+
+
+### <a name="type-options">options()</a> ###
+
+
+<pre><code>
+options() = {atom(), any()}
+</code></pre>
+
+<a name="index"></a>
+
+## Function Index ##
+
+
+<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#parse_transform-2">parse_transform/2</a></td><td></td></tr></table>
+
+
+<a name="functions"></a>
+
+## Function Details ##
+
+<a name="parse_transform-2"></a>
+
+### parse_transform/2 ###
+
+<pre><code>
+parse_transform(Forms::<a href="#type-forms">forms()</a>, Options::<a href="#type-options">options()</a>) -&gt; <a href="#type-forms">forms()</a>
+</code></pre>
+<br />
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/overview.edoc Added

@@ -0,0 +1,25 @@
+@author Ulf Wiger <ulf@wiger.net>
+
+@doc Parse_transform utilities
+
+!Build Status(https://travis-ci.org/uwiger/parse_trans.svg)
+!Hex pm(http://img.shields.io/hexpm/v/parse_trans.svg?style=flat)(https://hex.pm/packages/parse_trans)
+
+<h2>Introduction</h2>
+
+Parse_trans was written in order to capture some useful patterns in parse transformation
+and code generation for Erlang.
+
+Most notably, perhaps, the module {@link exprecs} generates standardized accessor
+functions for records, and {@link ct_expand} makes it possible to evaluate an
+expression at compile-time and substitute the result as a compile-time constant.
+
+Less known modules, perhaps:
+* {@link parse_trans_pp} can be called with escript to pretty-print source from
+  debug-compiled .beam files.
+* {@link parse_trans_codegen} provides pseudo-functions that can be used for
+  simple code generation.
+* {@link parse_trans} provides various helper functions for traversing code and
+  managing complex parse transforms
+
+@end
\ No newline at end of file

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/parse_trans.md Added

@@ -0,0 +1,536 @@
+
+
+# Module parse_trans #
+* Description(#description)
+* Data Types(#types)
+* Function Index(#index)
+* Function Details(#functions)
+
+Generic parse transform library for Erlang.
+
+__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
+
+<a name="description"></a>
+
+## Description ##
+
+...
+
+
+<a name="types"></a>
+
+## Data Types ##
+
+
+
+
+### <a name="type-form">form()</a> ###
+
+
+<pre><code>
+form() = any()
+</code></pre>
+
+
+
+
+### <a name="type-forms">forms()</a> ###
+
+
+<pre><code>
+forms() = <a href="#type-form">form()</a>
+</code></pre>
+
+
+
+
+### <a name="type-insp_f">insp_f()</a> ###
+
+
+<pre><code>
+insp_f() = fun((<a href="#type-type">type()</a>, <a href="#type-form">form()</a>, #context{}, A) -&gt; {boolean(), A})
+</code></pre>
+
+
+
+
+### <a name="type-options">options()</a> ###
+
+
+<pre><code>
+options() = {atom(), any()}
+</code></pre>
+
+
+
+
+### <a name="type-type">type()</a> ###
+
+
+<pre><code>
+type() = atom()
+</code></pre>
+
+
+
+
+### <a name="type-xform_f_df">xform_f_df()</a> ###
+
+
+<pre><code>
+xform_f_df() = fun((<a href="#type-type">type()</a>, <a href="#type-form">form()</a>, #context{}, Acc) -&gt; {<a href="#type-form">form()</a>, Acc} | {<a href="#type-forms">forms()</a>, <a href="#type-form">form()</a>, <a href="#type-forms">forms()</a>, Acc})
+</code></pre>
+
+
+
+
+### <a name="type-xform_f_rec">xform_f_rec()</a> ###
+
+
+<pre><code>
+xform_f_rec() = fun((<a href="#type-type">type()</a>, <a href="#type-form">form()</a>, #context{}, Acc) -&gt; {<a href="#type-form">form()</a>, boolean(), Acc} | {<a href="#type-forms">forms()</a>, <a href="#type-form">form()</a>, <a href="#type-forms">forms()</a>, boolean(), Acc})
+</code></pre>
+
+<a name="index"></a>
+
+## Function Index ##
+
+
+<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#context-2">context/2</a></td><td>
+Accessor function for the Context record.</td></tr><tr><td valign="top"><a href="#depth_first-4">depth_first/4</a></td><td></td></tr><tr><td valign="top"><a href="#do_depth_first-4">do_depth_first/4</a></td><td></td></tr><tr><td valign="top"><a href="#do_insert_forms-4">do_insert_forms/4</a></td><td></td></tr><tr><td valign="top"><a href="#do_inspect-4">do_inspect/4</a></td><td></td></tr><tr><td valign="top"><a href="#do_transform-4">do_transform/4</a></td><td></td></tr><tr><td valign="top"><a href="#error-3">error/3</a></td><td>.</td></tr><tr><td valign="top"><a href="#export_function-3">export_function/3</a></td><td></td></tr><tr><td valign="top"><a href="#format_error-1">format_error/1</a></td><td></td></tr><tr><td valign="top"><a href="#format_exception-2">format_exception/2</a></td><td>Equivalent to <a href="#format_exception-3"><tt>format_exception(Class, Reason, 4)</tt></a>.</td></tr><tr><td valign="top"><a href="#format_exception-3">format_exception/3</a></td><td>Produces a few lines of user-friendly formatting of exception info.</td></tr><tr><td valign="top"><a href="#function_exists-3">function_exists/3</a></td><td>
+Checks whether the given function is defined in Forms.</td></tr><tr><td valign="top"><a href="#get_attribute-2">get_attribute/2</a></td><td>
+Returns the value of the first occurrence of attribute A.</td></tr><tr><td valign="top"><a href="#get_attribute-3">get_attribute/3</a></td><td></td></tr><tr><td valign="top"><a href="#get_file-1">get_file/1</a></td><td>
+Returns the name of the file being compiled.</td></tr><tr><td valign="top"><a href="#get_module-1">get_module/1</a></td><td>
+Returns the name of the module being compiled.</td></tr><tr><td valign="top"><a href="#get_orig_syntax_tree-1">get_orig_syntax_tree/1</a></td><td>.</td></tr><tr><td valign="top"><a href="#get_pos-1">get_pos/1</a></td><td>
+Tries to retrieve the line number from an erl_syntax form.</td></tr><tr><td valign="top"><a href="#initial_context-2">initial_context/2</a></td><td>
+Initializes a context record.</td></tr><tr><td valign="top"><a href="#inspect-4">inspect/4</a></td><td>
+Equivalent to do_inspect(Fun,Acc,Forms,initial_context(Forms,Options)).</td></tr><tr><td valign="top"><a href="#optionally_pretty_print-3">optionally_pretty_print/3</a></td><td></td></tr><tr><td valign="top"><a href="#plain_transform-2">plain_transform/2</a></td><td>
+Performs a transform of <code>Forms</code> using the fun <code>Fun(Form)</code>.</td></tr><tr><td valign="top"><a href="#pp_beam-1">pp_beam/1</a></td><td>
+Reads debug_info from the beam file Beam and returns a string containing
+the pretty-printed corresponding erlang source code.</td></tr><tr><td valign="top"><a href="#pp_beam-2">pp_beam/2</a></td><td>
+Reads debug_info from the beam file Beam and pretty-prints it as
+Erlang source code, storing it in the file Out.</td></tr><tr><td valign="top"><a href="#pp_src-2">pp_src/2</a></td><td>Pretty-prints the erlang source code corresponding to Forms into Out.</td></tr><tr><td valign="top"><a href="#replace_function-4">replace_function/4</a></td><td></td></tr><tr><td valign="top"><a href="#replace_function-5">replace_function/5</a></td><td></td></tr><tr><td valign="top"><a href="#return-2">return/2</a></td><td>Checks the transformed result for errors and warnings.</td></tr><tr><td valign="top"><a href="#revert-1">revert/1</a></td><td>Reverts back from Syntax Tools format to Erlang forms.</td></tr><tr><td valign="top"><a href="#revert_form-1">revert_form/1</a></td><td>Reverts a single form back from Syntax Tools format to Erlang forms.</td></tr><tr><td valign="top"><a href="#top-3">top/3</a></td><td></td></tr><tr><td valign="top"><a href="#transform-4">transform/4</a></td><td>
+Makes one pass.</td></tr></table>
+
+
+<a name="functions"></a>
+
+## Function Details ##
+
+<a name="context-2"></a>
+
+### context/2 ###
+
+<pre><code>
+context(X1::Attr, Context) -&gt; any()
+</code></pre>
+
+<ul class="definitions"><li><code>Attr = module | function | arity | options</code></li></ul>
+
+Accessor function for the Context record.
+
+<a name="depth_first-4"></a>
+
+### depth_first/4 ###
+
+<pre><code>
+depth_first(Fun::<a href="#type-xform_f_df">xform_f_df()</a>, Acc, Forms::<a href="#type-forms">forms()</a>, Options::<a href="#type-options">options()</a>) -&gt; {<a href="#type-forms">forms()</a>, Acc} | {error, list()}
+</code></pre>
+<br />
+
+<a name="do_depth_first-4"></a>
+
+### do_depth_first/4 ###
+
+<pre><code>
+do_depth_first(F::<a href="#type-xform_f_df">xform_f_df()</a>, Acc::term(), Forms::<a href="#type-forms">forms()</a>, Context::#context{}) -&gt; {<a href="#type-forms">forms()</a>, term()}
+</code></pre>
+<br />
+
+<a name="do_insert_forms-4"></a>
+
+### do_insert_forms/4 ###
+
+<pre><code>
+do_insert_forms(X1::above | below, Insert::<a href="#type-forms">forms()</a>, Forms::<a href="#type-forms">forms()</a>, Context::#context{}) -&gt; <a href="#type-forms">forms()</a>
+</code></pre>
+<br />
+
+<a name="do_inspect-4"></a>
+
+### do_inspect/4 ###
+
+<pre><code>
+do_inspect(F::<a href="#type-insp_f">insp_f()</a>, Acc::term(), Forms::<a href="#type-forms">forms()</a>, Context::#context{}) -&gt; term()
+</code></pre>
+<br />
+
+<a name="do_transform-4"></a>
+
+### do_transform/4 ###
+
+<pre><code>
+do_transform(F::<a href="#type-xform_f_rec">xform_f_rec()</a>, Acc::term(), Forms::<a href="#type-forms">forms()</a>, Context::#context{}) -&gt; {<a href="#type-forms">forms()</a>, term()}
+</code></pre>
+<br />
+
+<a name="error-3"></a>
+
+### error/3 ###
+
+<pre><code>
+error(R::Reason, F::Form, I::Info) -&gt; <a href="#type-throw">throw()</a>
+</code></pre>
+
+<ul class="definitions"><li><code>Info = {Key, Value}</code></li></ul>
+
+Used to report errors detected during the parse transform.
+
+<a name="export_function-3"></a>
+
+### export_function/3 ###
+
+`export_function(F, Arity, Forms) -> any()`
+
+<a name="format_error-1"></a>
+
+### format_error/1 ###
+
+<pre><code>
+format_error(Error::{atom(), term()}) -&gt; iolist()
+</code></pre>
+<br />
+
+<a name="format_exception-2"></a>
+
+### format_exception/2 ###
+
+<pre><code>
+format_exception(Class, Reason) -&gt; String
+</code></pre>
+<br />
+
+Equivalent to `format_exception(Class, Reason, 4)`(#format_exception-3).
+
+<a name="format_exception-3"></a>
+
+### format_exception/3 ###
+
+<pre><code>
+format_exception(Class, Reason, Lines) -&gt; String
+</code></pre>
+
+<ul class="definitions"><li><code>Class = error | throw | exit</code></li><li><code>Reason = term()</code></li><li><code>Lines = integer() | infinity</code></li></ul>
+
+Produces a few lines of user-friendly formatting of exception info
+
+This function is very similar to the exception pretty-printing in the shell,
+but returns a string that can be used as error info e.g. by error forms
+handled by `return/2`(#return-2). By default, the first 4 lines of the
+pretty-printed exception info are returned, but this can be controlled
+with the `Lines` parameter.
+
+Note that a stacktrace is generated inside this function.
+
+<a name="function_exists-3"></a>
+
+### function_exists/3 ###
+
+<pre><code>
+function_exists(Fname::atom(), Arity::integer(), Forms) -&gt; boolean()
+</code></pre>
+<br />
+
+Checks whether the given function is defined in Forms.
+
+<a name="get_attribute-2"></a>
+
+### get_attribute/2 ###
+
+<pre><code>
+get_attribute(A, Forms) -&gt; any()
+</code></pre>
+
+<ul class="definitions"><li><code>A = atom()</code></li></ul>
+
+Returns the value of the first occurrence of attribute A.
+
+<a name="get_attribute-3"></a>
+
+### get_attribute/3 ###
+
+`get_attribute(A, Forms, Undef) -> any()`
+
+<a name="get_file-1"></a>
+
+### get_file/1 ###
+
+<pre><code>
+get_file(Forms) -&gt; string()
+</code></pre>
+<br />
+
+Returns the name of the file being compiled.
+
+<a name="get_module-1"></a>
+
+### get_module/1 ###
+
+<pre><code>
+get_module(Forms) -&gt; atom()
+</code></pre>
+<br />
+
+Returns the name of the module being compiled.
+
+<a name="get_orig_syntax_tree-1"></a>
+
+### get_orig_syntax_tree/1 ###
+
+<pre><code>
+get_orig_syntax_tree(File) -&gt; Forms
+</code></pre>
+<br />
+
+Fetches a Syntax Tree representing the code before pre-processing,
+that is, including record and macro definitions. Note that macro
+definitions must be syntactically complete forms (this function
+uses epp_dodger).
+
+<a name="get_pos-1"></a>
+
+### get_pos/1 ###
+
+<pre><code>
+get_pos(I::list()) -&gt; integer()
+</code></pre>
+<br />
+
+Tries to retrieve the line number from an erl_syntax form. Returns a
+(very high) dummy number if not successful.
+
+<a name="initial_context-2"></a>
+
+### initial_context/2 ###
+
+<pre><code>
+initial_context(Forms, Options) -&gt; #context{}
+</code></pre>
+<br />
+
+Initializes a context record. When traversing through the form
+list, the context is updated to reflect the current function and
+arity. Static elements in the context are the file name, the module
+name and the options passed to the transform function.
+
+<a name="inspect-4"></a>
+
+### inspect/4 ###
+
+<pre><code>
+inspect(F::Fun, Acc::Forms, Forms::Acc, Options) -&gt; NewAcc
+</code></pre>
+
+<ul class="definitions"><li><code>Fun = function()</code></li></ul>
+
+Equivalent to do_inspect(Fun,Acc,Forms,initial_context(Forms,Options)).
+
+<a name="optionally_pretty_print-3"></a>
+
+### optionally_pretty_print/3 ###
+
+<pre><code>
+optionally_pretty_print(Result::<a href="#type-forms">forms()</a>, Options::<a href="#type-options">options()</a>, Context::#context{}) -&gt; ok
+</code></pre>
+<br />
+
+<a name="plain_transform-2"></a>
+
+### plain_transform/2 ###
+
+<pre><code>
+plain_transform(Fun, Forms) -&gt; <a href="#type-forms">forms()</a>
+</code></pre>
+
+<ul class="definitions"><li><code>Fun = function()</code></li><li><code>Forms = <a href="#type-forms">forms()</a></code></li></ul>
+
+Performs a transform of `Forms` using the fun `Fun(Form)`. `Form` is always
+an Erlang abstract form, i.e. it is not converted to syntax_tools
+representation. The intention of this transform is for the fun to have a
+catch-all clause returning `continue`. This will ensure that it stays robust
+against additions to the language.
+
+`Fun(Form)` must return either of the following:
+
+* `NewForm` - any valid form
+* `continue` - dig into the sub-expressions of the form
+* `{done, NewForm}` - Replace `Form` with `NewForm`; return all following
+forms unchanged
+* `{error, Reason}` - Abort transformation with an error message.
+
+Example - This transform fun would convert all instances of `P ! Msg` to
+`gproc:send(P, Msg)`:
+
+```
+
+  parse_transform(Forms, _Options) ->
+      parse_trans:plain_transform(fun do_transform/1, Forms).
+  do_transform({'op', L, '!', Lhs, Rhs}) ->
+       NewLhs = parse_trans:plain_transform(fun do_transform/1, Lhs),
+       NewRhs = parse_trans:plain_transform(fun do_transform/1, Rhs),
+      {call, L, {remote, L, {atom, L, gproc}, {atom, L, send}},
+       NewLhs, NewRhs};
+  do_transform(_) ->
+      continue.
+```
+
+<a name="pp_beam-1"></a>
+
+### pp_beam/1 ###
+
+<pre><code>
+pp_beam(Beam::<a href="file.md#type-filename">file:filename()</a>) -&gt; string() | {error, Reason}
+</code></pre>
+<br />
+
+Reads debug_info from the beam file Beam and returns a string containing
+the pretty-printed corresponding erlang source code.
+
+<a name="pp_beam-2"></a>
+
+### pp_beam/2 ###
+
+<pre><code>
+pp_beam(Beam::<a href="#type-filename">filename()</a>, Out::<a href="#type-filename">filename()</a>) -&gt; ok | {error, Reason}
+</code></pre>
+<br />
+
+Reads debug_info from the beam file Beam and pretty-prints it as
+Erlang source code, storing it in the file Out.
+
+<a name="pp_src-2"></a>
+
+### pp_src/2 ###
+
+<pre><code>
+pp_src(Res::Forms, Out::<a href="#type-filename">filename()</a>) -&gt; ok
+</code></pre>
+<br />
+
+Pretty-prints the erlang source code corresponding to Forms into Out
+
+<a name="replace_function-4"></a>
+
+### replace_function/4 ###
+
+`replace_function(F, Arity, NewForm, Forms) -> any()`
+
+<a name="replace_function-5"></a>
+
+### replace_function/5 ###
+
+`replace_function(F, Arity, NewForm, Forms, Opts) -> any()`
+
+<a name="return-2"></a>
+
+### return/2 ###
+
+<pre><code>
+return(Forms, Context) -&gt; Forms | {error, Es, Ws} | {warnings, Forms, Ws}
+</code></pre>
+<br />
+
+Checks the transformed result for errors and warnings
+
+Errors and warnings can be produced from inside a parse transform, with
+a bit of care. The easiest way is to simply produce an `{error, Err}` or
+`{warning, Warn}` form in place. This function finds such forms, and
+removes them from the form list (otherwise, the linter will crash), and
+produces a return value that the compiler can work with.
+
+The format of the `error` and `warning` "forms" must be
+`{Tag, {Pos, Module, Info}}`, where:
+
+* `Tag :: error | warning`
+
+* `Pos :: LineNumber | {LineNumber, ColumnNumber}`
+
+* `Module` is a module that exports a corresponding
+`Module:format_error(Info)`
+
+* `Info :: term()`
+
+
+
+If the error is in the form of a caught exception, `Info` may be produced
+using the function `format_exception/2`(#format_exception-2).
+
+<a name="revert-1"></a>
+
+### revert/1 ###
+
+<pre><code>
+revert(Tree) -&gt; Forms
+</code></pre>
+<br />
+
+Reverts back from Syntax Tools format to Erlang forms.
+
+Note that the Erlang forms are a subset of the Syntax Tools
+syntax tree, so this function is safe to call even on a list of
+regular Erlang forms.
+
+Note2: R16B03 introduced a bug, where forms produced by
+`erl_syntax:revert/1` (specifically, implicit funs) could crash the linter.
+This function works around that limitation, after first verifying that it's
+necessary to do so. Use of the workaround can be forced with the help of
+the `parse_trans` environment variable {revert_workaround, true}. This
+variable will be removed when R16B03 is no longer 'supported'.
+
+<a name="revert_form-1"></a>
+
+### revert_form/1 ###
+
+<pre><code>
+revert_form(F::Tree) -&gt; Form
+</code></pre>
+<br />
+
+Reverts a single form back from Syntax Tools format to Erlang forms.
+
+`erl_syntax:revert/1` has had a long-standing bug where it doesn't
+completely revert attribute forms. This function deals properly with those
+cases.
+
+Note that the Erlang forms are a subset of the Syntax Tools
+syntax tree, so this function is safe to call even on a regular Erlang
+form.
+
+Note2: R16B03 introduced a bug, where forms produced by
+`erl_syntax:revert/1` (specifically, implicit funs) could crash the linter.
+This function works around that limitation, after first verifying that it's
+necessary to do so. Use of the workaround can be forced with the help of
+the `parse_trans` environment variable {revert_workaround, true}. This
+variable will be removed when R16B03 is no longer 'supported'.
+
+<a name="top-3"></a>
+
+### top/3 ###
+
+<pre><code>
+top(F::function(), Forms::<a href="#type-forms">forms()</a>, Options::list()) -&gt; <a href="#type-forms">forms()</a> | {error, term()}
+</code></pre>
+<br />
+
+<a name="transform-4"></a>
+
+### transform/4 ###
+
+<pre><code>
+transform(Fun, Acc, Forms, Options) -&gt; {TransformedForms, NewAcc}
+</code></pre>
+
+<ul class="definitions"><li><code>Fun = function()</code></li><li><code>Options = {Key, Value}</code></li></ul>
+
+Makes one pass
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/parse_trans_codegen.md Added

@@ -0,0 +1,175 @@
+
+
+# Module parse_trans_codegen #
+* Description(#description)
+* Function Index(#index)
+* Function Details(#functions)
+
+Parse transform for code generation pseduo functions.
+
+__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
+
+<a name="description"></a>
+
+## Description ##
+
+...
+
+<a name="index"></a>
+
+## Function Index ##
+
+
+<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#format_error-1">format_error/1</a></td><td></td></tr><tr><td valign="top"><a href="#parse_transform-2">parse_transform/2</a></td><td>
+Searches for calls to pseudo functions in the module <code>codegen</code>,
+and converts the corresponding erlang code to a data structure
+representing the abstract form of that code.</td></tr></table>
+
+
+<a name="functions"></a>
+
+## Function Details ##
+
+<a name="format_error-1"></a>
+
+### format_error/1 ###
+
+`format_error(E) -> any()`
+
+<a name="parse_transform-2"></a>
+
+### parse_transform/2 ###
+
+<pre><code>
+parse_transform(Forms, Options) -&gt; NewForms
+</code></pre>
+<br />
+
+Searches for calls to pseudo functions in the module `codegen`,
+and converts the corresponding erlang code to a data structure
+representing the abstract form of that code.
+
+The purpose of these functions is to let the programmer write
+the actual code that is to be generated, rather than manually
+writing abstract forms, which is more error prone and cannot be
+checked by the compiler until the generated module is compiled.
+
+Supported functions:
+
+
+## gen_function/2 ##
+
+Usage: `codegen:gen_function(Name, Fun)`
+
+Substitutes the abstract code for a function with name `Name`
+and the same behaviour as `Fun`.
+
+`Fun` can either be a anonymous `fun`, which is then converted to
+a named function, or it can be an `implicit fun`, e.g.
+`fun is_member/2`. In the latter case, the referenced function is fetched
+and converted to an abstract form representation. It is also renamed
+so that the generated function has the name `Name`.
+
+Another alternative is to wrap a fun inside a list comprehension, e.g.
+
+```
+
+  f(Name, L) ->
+      codegen:gen_function(
+          Name,
+           fun({'$var',X}) ->
+               {'$var', Y}
+            end || {X, Y} &lt;- L ).
+```
+
+
+Calling the above with `f(foo, {1,a},{2,b},{3,c})` will result in
+generated code corresponding to:
+
+```
+
+  foo(1) -> a;
+  foo(2) -> b;
+  foo(3) -> c.
+```
+
+
+## gen_functions/1 ##
+
+Takes a list of `{Name, Fun}` tuples and produces a list of abstract
+data objects, just as if one had written
+`codegen:gen_function(N1,F1),codegen:gen_function(N2,F2),...`.
+
+
+## exprs/1 ##
+
+Usage: `codegen:exprs(Fun)`
+
+`Fun` is either an anonymous function, or an implicit fun with only one
+function clause. This "function" takes the body of the fun and produces
+a data type representing the abstract form of the list of expressions in
+the body. The arguments of the function clause are ignored, but can be
+used to ensure that all necessary variables are known to the compiler.
+
+
+## gen_module/3 ##
+
+Generates abstract forms for a complete module definition.
+
+Usage: `codegen:gen_module(ModuleName, Exports, Functions)`
+
+`ModuleName` is either an atom or a `{'$var', V}` reference.
+
+`Exports` is a list of `{Function, Arity}` tuples.
+
+`Functions` is a list of `{Name, Fun}` tuples analogous to that for
+`gen_functions/1`.
+
+
+## Variable substitution ##
+
+It is possible to do some limited expansion (importing a value
+bound at compile-time), using the construct `{'$var', V}`, where
+`V` is a bound variable in the scope of the call to `gen_function/2`.
+
+Example:
+
+```
+
+  gen(Name, X) ->
+     codegen:gen_function(Name, fun(L) -> lists:member({'$var',X}, L) end).
+```
+
+After transformation, calling `gen(contains_17, 17)` will yield the
+abstract form corresponding to:
+
+```
+
+  contains_17(L) ->
+     lists:member(17, L).
+```
+
+
+## Form substitution ##
+
+It is possible to inject abstract forms, using the construct
+`{'$form', F}`, where `F` is bound to a parsed form in
+the scope of the call to `gen_function/2`.
+
+Example:
+
+```
+
+  gen(Name, F) ->
+     codegen:gen_function(Name, fun(X) -> X =:= {'$form',F} end).
+```
+
+After transformation, calling `gen(is_foo, {atom,0,foo})` will yield the
+abstract form corresponding to:
+
+```
+
+  is_foo(X) ->
+     X =:= foo.
+```
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/parse_trans_mod.md Added

@@ -0,0 +1,103 @@
+
+
+# Module parse_trans_mod #
+* Data Types(#types)
+* Function Index(#index)
+* Function Details(#functions)
+
+<a name="types"></a>
+
+## Data Types ##
+
+
+
+
+### <a name="type-compile_options">compile_options()</a> ###
+
+
+<pre><code>
+compile_options() = term()
+</code></pre>
+
+
+
+
+### <a name="type-erlang_form">erlang_form()</a> ###
+
+
+<pre><code>
+erlang_form() = term()
+</code></pre>
+
+<a name="index"></a>
+
+## Function Index ##
+
+
+<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#abstract_code-1">abstract_code/1</a></td><td></td></tr><tr><td valign="top"><a href="#beam_file-1">beam_file/1</a></td><td></td></tr><tr><td valign="top"><a href="#compile_and_load_forms-1">compile_and_load_forms/1</a></td><td></td></tr><tr><td valign="top"><a href="#compile_and_load_forms-2">compile_and_load_forms/2</a></td><td></td></tr><tr><td valign="top"><a href="#compile_options-1">compile_options/1</a></td><td></td></tr><tr><td valign="top"><a href="#rename_module-2">rename_module/2</a></td><td></td></tr><tr><td valign="top"><a href="#transform_module-3">transform_module/3</a></td><td></td></tr></table>
+
+
+<a name="functions"></a>
+
+## Function Details ##
+
+<a name="abstract_code-1"></a>
+
+### abstract_code/1 ###
+
+<pre><code>
+abstract_code(BeamFile::binary()) -&gt; <a href="#type-erlang_form">erlang_form()</a>
+</code></pre>
+<br />
+
+<a name="beam_file-1"></a>
+
+### beam_file/1 ###
+
+<pre><code>
+beam_file(Module::module()) -&gt; binary()
+</code></pre>
+<br />
+
+<a name="compile_and_load_forms-1"></a>
+
+### compile_and_load_forms/1 ###
+
+<pre><code>
+compile_and_load_forms(AbsCode::<a href="#type-erlang_form">erlang_form()</a>) -&gt; ok
+</code></pre>
+<br />
+
+<a name="compile_and_load_forms-2"></a>
+
+### compile_and_load_forms/2 ###
+
+<pre><code>
+compile_and_load_forms(AbsCode::<a href="#type-erlang_form">erlang_form()</a>, Opts::<a href="#type-compile_options">compile_options()</a>) -&gt; ok
+</code></pre>
+<br />
+
+<a name="compile_options-1"></a>
+
+### compile_options/1 ###
+
+<pre><code>
+compile_options(BeamFile::binary() | module()) -&gt; <a href="#type-compile_options">compile_options()</a>
+</code></pre>
+<br />
+
+<a name="rename_module-2"></a>
+
+### rename_module/2 ###
+
+<pre><code>
+rename_module(T::<a href="#type-erlang_form">erlang_form()</a>, NewName::module()) -&gt; <a href="#type-erlang_form">erlang_form()</a>
+</code></pre>
+<br />
+
+<a name="transform_module-3"></a>
+
+### transform_module/3 ###
+
+`transform_module(Mod, PT, Options) -> any()`
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/parse_trans_pp.md Added

@@ -0,0 +1,89 @@
+
+
+# Module parse_trans_pp #
+* Description(#description)
+* Function Index(#index)
+* Function Details(#functions)
+
+Generic parse transform library for Erlang.
+
+__Authors:__ : Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
+
+<a name="description"></a>
+
+## Description ##
+
+This module contains some useful utility functions for inspecting
+the results of parse transforms or code generation.
+The function `main/1` is called from escript, and can be used to
+pretty-print debug info in a .beam file from a Linux shell.
+
+Using e.g. the following bash alias:
+
+```
+
+  alias pp='escript $PARSE_TRANS_ROOT/ebin/parse_trans_pp.beam'
+```
+
+a file could be pretty-printed using the following command:
+
+`$ pp ex_codegen.beam | less`<a name="index"></a>
+
+## Function Index ##
+
+
+<table width="100%" border="1" cellspacing="0" cellpadding="2" summary="function index"><tr><td valign="top"><a href="#main-1">main/1</a></td><td></td></tr><tr><td valign="top"><a href="#pp_beam-1">pp_beam/1</a></td><td>
+Reads debug_info from the beam file Beam and returns a string containing
+the pretty-printed corresponding erlang source code.</td></tr><tr><td valign="top"><a href="#pp_beam-2">pp_beam/2</a></td><td>
+Reads debug_info from the beam file Beam and pretty-prints it as
+Erlang source code, storing it in the file Out.</td></tr><tr><td valign="top"><a href="#pp_src-2">pp_src/2</a></td><td>Pretty-prints the erlang source code corresponding to Forms into Out.</td></tr></table>
+
+
+<a name="functions"></a>
+
+## Function Details ##
+
+<a name="main-1"></a>
+
+### main/1 ###
+
+<pre><code>
+main(X1::string()) -&gt; any()
+</code></pre>
+<br />
+
+<a name="pp_beam-1"></a>
+
+### pp_beam/1 ###
+
+<pre><code>
+pp_beam(Beam::<a href="#type-filename">filename()</a>) -&gt; string() | {error, Reason}
+</code></pre>
+<br />
+
+Reads debug_info from the beam file Beam and returns a string containing
+the pretty-printed corresponding erlang source code.
+
+<a name="pp_beam-2"></a>
+
+### pp_beam/2 ###
+
+<pre><code>
+pp_beam(Beam::<a href="#type-filename">filename()</a>, Out::<a href="#type-filename">filename()</a>) -&gt; ok | {error, Reason}
+</code></pre>
+<br />
+
+Reads debug_info from the beam file Beam and pretty-prints it as
+Erlang source code, storing it in the file Out.
+
+<a name="pp_src-2"></a>
+
+### pp_src/2 ###
+
+<pre><code>
+pp_src(Forms0::Forms, Out::<a href="#type-filename">filename()</a>) -&gt; ok
+</code></pre>
+<br />
+
+Pretty-prints the erlang source code corresponding to Forms into Out
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/doc/stylesheet.css Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/ct_expand_test.erl Added

@@ -0,0 +1,50 @@
+-module(ct_expand_test).
+
+-export(f/0, g/0, h/0, i/0, fixture/0).
+
+-compile({parse_transform, ct_expand}).
+-compile({ct_expand_trace, x}).
+-pt_pp_src(true).
+
+f() ->
+    ct_expand:term(
+      {a, 1},
+       {b, ct_expand:term(
+             {ba, 1},
+              {bb, ct_expand:term(2)})}).
+
+%% expand a term which calls a local function - even one which uses a fun reference.
+g() ->
+    ct_expand:term(zip(1,2, a,b)).
+
+h() ->
+    ct_expand:term(wrap(my_fun())).
+
+i() ->
+    ct_expand:term(gb_trees:insert(a_fun, my_fun2(), gb_trees:empty())).
+
+%% expand a call to a function that reads and decodes a fixture
+fixture() ->
+    ct_expand:term(jsx_consult("my_file.json", return_maps)).
+%% Note: function is mocked only to not depend on https://hex.pm/packages/jsx
+jsx_consult("my_file.json", _) ->
+    M0 = maps:from_list(),
+    M0#{<<"k">> => 42
+       , 1 => a
+       ,#{2=>2, 1=>1} => {"s", 4.2}
+       }.
+
+zip(H1|T1, H2|T2) ->
+    F = my_fun2(),
+    {F(H1),F(H2)} | zip(T1, T2);
+zip(, ) ->
+    .
+
+wrap(X) ->
+    {X}.
+
+my_fun() ->
+    fun() -> foo end.
+
+my_fun2() ->
+    fun wrap/1.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/ex1.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/ex_codegen.erl Added

@@ -0,0 +1,83 @@
+-module(ex_codegen).
+
+-compile({parse_transform, parse_trans_codegen}).
+
+-export(f/1, g/2, h/0, i/0, j/2, k/0, k/1, gen/2, fs/0).
+
+%%-pt_pp_forms(true).
+-pt_pp_src(true).
+
+f(Name) ->
+    codegen:gen_function(
+      Name,
+      fun(1,2,3) ->
+	      foo;
+	  (A,B,C) ->
+	      {A,B,C}
+      end).
+
+
+
+g(Name, V) ->
+    codegen:gen_function(
+      Name,
+      fun(L) ->
+	      member({'$var',V}, L)
+      end).
+
+h() ->
+    codegen:gen_function(
+      funny,
+      fun() ->
+	      fun gen/2
+      end).
+
+i() ->
+    codegen:exprs(fun(X) ->
+			  case X of 1 ->
+				  is_1;
+			      Other ->
+				  {is_other,Other}
+			  end
+		  end).
+
+j(Name, Form) ->
+    codegen:gen_function(
+      Name,
+      fun(L) ->
+	      member({'$form',Form}, L)
+      end).
+
+x() ->
+    (fun(X) ->
+	      X
+      end)(X1) || X1 <- 1,2.
+
+k() ->
+    codegen:gen_function(
+      lcf,
+      fun({'$var',X}) ->
+	       {'$var',Y}
+       end || {X, Y}  <- {1,a},{2,b},{3,c}).
+
+k(L) ->
+    codegen:gen_function(
+      lcf,
+      fun({'$var',X}) ->
+	       {'$var',Y}
+       end || {X, Y}  <- L).
+
+gen(Name, X) ->
+    codegen:gen_function(Name, fun(L) -> lists:member({'$var',X}, L) end).
+
+fs() ->
+    V = local_V,
+    codegen:gen_functions(
+      {foo, fun() ->
+		     foo
+	     end},
+       {h1, fun h/0},
+       {g1, fun g/2},
+       {bar, fun() ->
+		     bar
+	     end}).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/ex_gen_module.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/ex_gproc_send_xform.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/ex_pmod.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/exprecs_eunit.erl Added

@@ -0,0 +1,34 @@
+-module(exprecs_eunit).
+-include_lib("eunit/include/eunit.hrl").
+
+-export(module_test/0).
+
+
+module_test() ->
+    M = test_exprecs,
+    RecNames = lists:concat(
+		 Rs || {export_records, Rs} <- M:module_info(attributes)),
+    io:fwrite("RecNames = ~p~n", RecNames),
+    false = M:'#is_record-'(),
+    false = M:'#is_record-'(, ),
+    test_record(R, M) || R <- RecNames.
+
+test_record(R, M) ->
+    Rec = M:'#new-'(R),
+    Fields = M:'#info-'(R),
+    FieldCount = length(Fields),
+    InfoF = list_to_existing_atom("#info-" ++ atom_to_list(R)),
+    ?assertEqual(FieldCount+1, M:InfoF(size)),
+    ?assertEqual(true, M:'#is_record-'(Rec)),
+    ?assertMatch({R,true}, {R, M:'#is_record-'(R, Rec)}),
+    NewF = list_to_existing_atom("#new-" ++ atom_to_list(R)),
+    L = lists:seq(1, FieldCount),
+    Vals = lists:zip(Fields, L),
+    Rec1 = M:NewF(Vals),
+    Rec1 = M:'#set-'(Vals, Rec),
+    Rec1 = M:'#fromlist-'(Vals, M:'#new-'(R)),
+    L = M:'#get-'(Fields, Rec1),
+    ?assertError(bad_record_op, M:'#get-'(17,Rec1)),
+    PosL = lists:seq(2, FieldCount + 1),
+    PosL = M:'#pos-'(R, A) || A <- Fields,
+    ?assertEqual(0, M:'#pos-'(R, bad_attr_name)).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/lc.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/pmod.erl Added

@@ -0,0 +1,113 @@
+-module(pmod).
+
+-export(parse_transform/2).
+
+-import(erl_syntax, attribute_name/1, attribute_arguments/1,
+		     list_elements/1,
+		     atom_value/1, tuple_elements/1, integer_value/1).
+
+-record(st, {vars = ,
+	     funs = ordsets:new()}).
+
+parse_transform(Forms, Opts) ->
+    case proplists:get_bool(trace, Opts) of
+	true ->
+	    dbg:tracer(),
+	    dbg:tpl(?MODULE,x),
+	    dbg:p(all,c);
+	false ->
+	    ok
+    end,
+    C = parse_trans:initial_context(Forms, Opts),
+    St = parse_trans:do_inspect(fun inspect/4, #st{}, Forms, C),
+    Res = parse_trans:revert(
+	    export_funs(wrap_funs(create_new_f(Forms, St, C), St, C), St, C)),
+    parse_trans:optionally_pretty_print(Res, Opts, C),
+    Res.
+
+inspect(attribute, Form, _C, Acc) ->
+    case attr_name(Form) of
+	pmod_vars ->
+	     = Acc#st.vars,  %% assertion - should be a proper check
+	    VarNames = atom_value(V) ||
+			   V <- list_elements(hd(attribute_arguments(Form))),
+	    {false, Acc#st{vars = VarNames}};
+	pmod_funs ->
+	    Fs = lists:foldl(fun(E, Acc1) ->
+				     Fun,Ay = tuple_elements(E),
+				     ordsets:add_element(
+				       {atom_value(Fun), integer_value(Ay)},
+				       Acc1)
+			     end, Acc#st.funs,
+			     list_elements(hd(attribute_arguments(Form)))),
+	    {false, Acc#st{funs = Fs}};
+	_ ->
+	    {false, Acc}
+    end;
+inspect(_, _, _, Acc) ->
+    {false, Acc}.
+
+attr_name(F) ->
+    atom_value(attribute_name(F)).
+
+create_new_f(Forms, #st{vars = Vs}, C) ->
+    Arity = length(Vs),
+    Anno1 = erl_anno:new(1),
+    Form = {function, Anno1, new, Arity,
+	    {clause, Anno1,
+	      {var,Anno1,V} || V <- Vs,
+	      ,
+	      {tuple, Anno1, {atom, Anno1, parse_trans:context(module, C)},
+                               {tuple, Anno1, {var,Anno1,V} || V <- Vs}}
+	      }
+	    },
+    parse_trans:do_insert_forms(above, Form, Forms, C).
+
+wrap_funs(Forms, #st{vars = Vs, funs = Fs}, C) ->
+    Mod = parse_trans:context(module, C),
+    lists:foldl(
+      fun({F,A}, Acc) ->
+	      {NewForms, _} =
+		  parse_trans:do_transform(
+		    fun(T,Form,C1,Acc1) ->
+			    wrap_fun(T,Form,C1,Acc1,F,A,Vs,Mod)
+		    end, false, Acc, C),
+	      NewForms
+      end, Forms, Fs).
+
+wrap_fun(function, Form, _, Acc, F, A, Vs,Mod) ->
+    Anno1 = erl_anno:new(1),
+    case erl_syntax:revert(Form) of
+	{function, Anno, F, A, Cs} ->
+	    {{function, Anno, F, A + 1,
+	      {clause, AnnoLc,
+		Args ++ {tuple,Anno1,{atom,Anno1,Mod},
+                                       {tuple,Anno1,
+                                        fix_vars(Vs, F, A, Clause)}}, Gs, B}
+	       || {clause, AnnoLc, Args, Gs, B} = Clause <- Cs},
+	     false, Acc};
+	_ ->
+	    {Form, false, Acc}
+    end;
+wrap_fun(_, Form, _, Acc, _, _, _, _) ->
+    {Form, false, Acc}.
+
+fix_vars(Vars, F, A, Clause) ->
+    %% erl_syntax_lib:variables/1 doesn't seem to work with just a clause...
+    Anno1 = erl_anno:new(1),
+    Used = sets:to_list(erl_syntax_lib:variables({function,Anno1,F,A,Clause})),
+    {var, Anno1, fix_var(V, Used)} || V <- Vars.
+
+fix_var(V, Used) ->
+    case lists:member(V, Used) of
+	true -> V;
+	false ->
+	    list_to_atom("_" ++ atom_to_list(V))
+    end.
+
+
+export_funs(Forms, #st{vars = Vs, funs = Fs}, C) ->
+    Anno1 = erl_anno:new(1),
+    New = {attribute,Anno1,export,{new,length(Vs)}},
+	   {attribute,Anno1,export,{F,A+1} || {F,A} <- Fs},
+    parse_trans:do_insert_forms(above, New, Forms, C).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/t.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/t_ex.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/test.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/test_exprecs.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/test_exprecs_vsns.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/test_pt.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/examples/test_transform_mod.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/include Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/include/codegen.hrl Added

@@ -0,0 +1,24 @@
+%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% --------------------------------------------------
+%% 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.
+%% --------------------------------------------------
+%% File    : codegen.hrl
+%% @author  : Ulf Wiger <ulf@wiger.net>
+%% @end
+%% Description :
+%%
+%% Created : 25 Feb 2010 by Ulf Wiger <ulf@wiger.net>
+%%-------------------------------------------------------------------
+-compile({parse_transform, parse_trans_codegen}).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/include/exprecs.hrl Added

@@ -0,0 +1,24 @@
+%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% --------------------------------------------------
+%% 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.
+%% --------------------------------------------------
+%% File    : exprecs.hrl
+%% @author  : Ulf Wiger <ulf@wiger.net>
+%% @end
+%% Description :
+%%
+%% Created : 25 Feb 2010 by Ulf Wiger <ulf@wiger.net>
+%%-------------------------------------------------------------------
+-compile({parse_transform, exprecs}).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/rebar.config Added

@@ -0,0 +1,43 @@
+%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% --------------------------------------------------
+%% 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.
+%% --------------------------------------------------
+
+{minimum_otp_vsn, "21.0"}.
+
+{erl_first_files, "src/parse_trans.erl",
+                   "src/parse_trans_pp.erl",
+                   "src/parse_trans_codegen.erl"}.
+
+{erl_opts, debug_info
+           }.
+{xref_checks, undefined_function_calls}.
+
+{profiles,
+ {docs,
+   
+    {deps, {edown, "0.8.1"}},
+    {edoc_opts, {doclet, edown_doclet},
+                 {top_level_readme,
+                  {"./README.md",
+                   "http://github.com/uwiger/parse_trans",
+                   "master"}}}
+   },
+  {test,
+   
+    {extra_src_dirs, "examples"}
+   
+  }
+ }.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/rebar.lock Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/rebar3 Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/src/ct_expand.erl Added

@@ -0,0 +1,249 @@
+%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% --------------------------------------------------
+%% 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.
+%% --------------------------------------------------
+%% File    : ct_expand.erl
+%% @author  : Ulf Wiger <ulf@wiger.net>
+%% @end
+%% Created : 7 Apr 2010 by Ulf Wiger <ulf@wiger.net>
+%%-------------------------------------------------------------------
+
+%% @doc Compile-time expansion utility
+%%
+%% This module serves as an example of parse_trans-based transforms,
+%% but might also be a useful utility in its own right.
+%% The transform searches for calls to the pseudo-function
+%% `ct_expand:term(Expr)', and then replaces the call site with the
+%% result of evaluating `Expr' at compile-time.
+%%
+%% For example, the line
+%%
+%% `ct_expand:term(lists:sort(3,5,2,1,4))'
+%%
+%% would be expanded at compile-time to `1,2,3,4,5'.
+%%
+%% ct_expand has now been extended to also evaluate calls to local functions.
+%% See examples/ct_expand_test.erl for some examples.
+%%
+%% A debugging facility exists: passing the option {ct_expand_trace, Flags} as an option,
+%% or adding a compiler attribute -ct_expand_trace(Flags) will enable a form of call trace.
+%%
+%% `Flags' can be `' (no trace) or `F', where `F' is `c' (call trace),
+%% `r' (return trace), or `x' (exception trace)'.
+%%
+%% @end
+-module(ct_expand).
+-export(parse_transform/2).
+
+-export(extract_fun/3,
+         lfun_rewrite/2).
+
+-type form()    :: any().
+-type forms()   :: form().
+-type options() :: {atom(), any()}.
+
+
+-spec parse_transform(forms(), options()) ->
+    forms().
+parse_transform(Forms, Options) ->
+    Trace = ct_trace_opt(Options, Forms),
+    case parse_trans:depth_first(fun(T,F,C,A) ->
+                                         xform_fun(T,F,C,A,Forms, Trace)
+                                 end, , Forms, Options) of
+        {error, Es} ->
+            Es ++ Forms;
+        {NewForms, _} ->
+            parse_trans:revert(NewForms)
+    end.
+
+ct_trace_opt(Options, Forms) ->
+    case proplists:get_value(ct_expand_trace, Options) of
+        undefined ->
+            case Opt || {attribute,_,compile,{ct_expand_trace,Opt}} <- Forms of
+                 ->
+                    ;
+                _|_ = L ->
+                    lists:last(L)
+            end;
+        Flags when is_list(Flags) ->
+            Flags
+    end.
+
+xform_fun(application, Form, _Ctxt, Acc, Forms, Trace) ->
+    MFA = erl_syntax_lib:analyze_application(Form),
+    case MFA of
+        {?MODULE, {term, 1}} ->
+            LFH = fun(Name, Args, Bs) ->
+                          eval_lfun(
+                            extract_fun(Name, length(Args), Forms),
+                            Args, Bs, Forms, Trace)
+                  end,
+            Args = erl_syntax:application_arguments(Form),
+            RevArgs = parse_trans:revert(Args),
+            case erl_eval:exprs(RevArgs, , {eval, LFH}) of
+                {value, Value,} ->
+                    {abstract(Value), Acc};
+                Other ->
+                    parse_trans:error(cannot_evaluate,?LINE,
+                                      {expr, RevArgs},
+                                       {error, Other})
+            end;
+        _ ->
+            {Form, Acc}
+    end;
+xform_fun(_, Form, _Ctxt, Acc, _, _) ->
+    {Form, Acc}.
+
+extract_fun(Name, Arity, Forms) ->
+    case F_ || {function,_,N_,A_,_Cs} = F_ <- Forms,
+                N_ == Name, A_ == Arity of
+         ->
+            erlang:error({undef, {Name, Arity}});
+        FForm ->
+            FForm
+    end.
+
+eval_lfun({function,L,F,_,Clauses}, Args, Bs, Forms, Trace) ->
+    Line = erl_anno:line(L),
+    try
+        {ArgsV, Bs1} = lists:mapfoldl(
+                         fun(A, Bs_) ->
+                                 {value,AV,Bs1_} =
+                                     erl_eval:expr(A, Bs_, lfh(Forms, Trace)),
+                                 {abstract(AV), Bs1_}
+                         end, Bs, Args),
+        Expr = {call, L, {'fun', L, {clauses, lfun_rewrite(Clauses, Forms)}}, ArgsV},
+        call_trace(Trace =/= , Line, F, ArgsV),
+        {value, Ret, _} =
+            erl_eval:expr(Expr, erl_eval:new_bindings(), lfh(Forms, Trace)),
+        ret_trace(lists:member(r, Trace) orelse lists:member(x, Trace),
+                  Line, F, Args, Ret),
+        %% restore bindings
+        {value, Ret, Bs1}
+    catch
+        error:Err ->
+            exception_trace(lists:member(x, Trace), Line, F, Args, Err),
+            error(Err)
+    end.
+
+lfh(Forms, Trace) ->
+    {eval, fun(Name, As, Bs1) ->
+                   eval_lfun(
+                     extract_fun(Name, length(As), Forms),
+                     As, Bs1, Forms, Trace)
+           end}.
+
+call_trace(false, _, _, _) -> ok;
+call_trace(true, L, F, As) ->
+    io:fwrite("ct_expand (~w): call ~s~n", L, pp_function(F, As)).
+
+pp_function(F, ) ->
+    atom_to_list(F) ++ "()";
+pp_function(F, A|As) ->
+    lists:flatten(atom_to_list(F), "(",
+                   pp_term(A) |
+                    ",", pp_term(A_) || A_ <- As,
+                   ")").
+
+pp_term({'fun',_, {clauses,_}} = F) ->
+    %% erl_parse:normalise/1 doesn't handle this
+    io_lib:fwrite("~s", erl_prettypr:format(F));
+pp_term(F) ->
+    io_lib:fwrite("~p", erl_parse:normalise(F)).
+
+ret_trace(false, _, _, _, _) -> ok;
+ret_trace(true, L, F, Args, Res) ->
+    io:fwrite("ct_expand (~w): returned from ~w/~w: ~w~n",
+              L, F, length(Args), Res).
+
+exception_trace(false, _, _, _, _) -> ok;
+exception_trace(true, L, F, Args, Err) ->
+    io:fwrite("ct_expand (~w): exception from ~w/~w: ~p~n", L, F, length(Args), Err).
+
+
+lfun_rewrite(Exprs, Forms) ->
+    parse_trans:plain_transform(
+      fun({'fun',L,{function,F,A}}) ->
+              {function,_,_,_,Cs} = extract_fun(F, A, Forms),
+              {'fun',L,{clauses, Cs}};
+         (_) ->
+              continue
+      end, Exprs).
+
+
+%% abstract/1 - modified from erl_eval:abstract/1:
+-type abstract_expr() :: term().
+-spec abstract(Data) -> AbsTerm when
+      Data :: term(),
+      AbsTerm :: abstract_expr().
+abstract(T) ->
+    abstract(T, erl_anno:new(0)).
+
+abstract(T, A) when is_function(T) ->
+    case erlang:fun_info(T, module) of
+        {module, erl_eval} ->
+            case erl_eval:fun_data(T) of
+                {fun_data, _Imports, Clauses} ->
+                    {'fun', A, {clauses, Clauses}};
+                false ->
+                    erlang:error(function_clause)  % mimicking erl_parse:abstract(T)
+            end;
+        _ ->
+            erlang:error(function_clause)
+    end;
+abstract(T, A) when is_integer(T) -> {integer,A,T};
+abstract(T, A) when is_float(T) -> {float,A,T};
+abstract(T, A) when is_atom(T) -> {atom,A,T};
+abstract(, A) -> {nil,A};
+abstract(B, A) when is_bitstring(B) ->
+    {bin, A, abstract_byte(Byte, A) || Byte <- bitstring_to_list(B)};
+abstract(C|T, A) when is_integer(C), 0 =< C, C < 256 ->
+    abstract_string(T, C, A);
+abstract(H|T, A) ->
+    {cons,A,abstract(H, A),abstract(T, A)};
+abstract(Map, A) when is_map(Map) ->
+    {map,A,abstract_map(Map, A)};
+abstract(Tuple, A) when is_tuple(Tuple) ->
+    {tuple,A,abstract_list(tuple_to_list(Tuple), A)}.
+
+abstract_string(C|T, String, A) when is_integer(C), 0 =< C, C < 256 ->
+    abstract_string(T, C|String, A);
+abstract_string(, String, A) ->
+    {string, A, lists:reverse(String)};
+abstract_string(T, String, A) ->
+    not_string(String, abstract(T, A), A).
+
+not_string(C|T, Result, A) ->
+    not_string(T, {cons, A, {integer, A, C}, Result}, A);
+not_string(, Result, _A) ->
+    Result.
+
+abstract_list(H|T, A) ->
+    abstract(H, A)|abstract_list(T, A);
+abstract_list(, _A) ->
+    .
+
+abstract_map(Map, A) ->
+    {map_field_assoc,A,abstract(K, A),abstract(V, A)}
+     || {K,V} <- lists:sort(maps:to_list(Map))
+    .
+
+abstract_byte(Byte, Line) when is_integer(Byte) ->
+    {bin_element, Line, {integer, Line, Byte}, default, default};
+abstract_byte(Bits, Line) ->
+    Sz = bit_size(Bits),
+    <<Val:Sz>> = Bits,
+    {bin_element, Line, {integer, Line, Val}, {integer, Line, Sz}, default}.
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/src/exprecs.erl Added

@@ -0,0 +1,1626 @@
+%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% --------------------------------------------------
+%% 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.
+%% --------------------------------------------------
+%% File    : exprecs.erl
+%% @author  : Ulf Wiger <ulf@wiger.net>
+%% @end
+%% Description :
+%%
+%% Created : 13 Feb 2006 by Ulf Wiger <ulf@wiger.net>
+%% Rewritten: Jan-Feb 2010 by Ulf Wiger <ulf@wiger.net>
+%%-------------------------------------------------------------------
+
+%% @doc Parse transform for generating record access functions.
+%% <p>This parse transform can be used to reduce compile-time
+%% dependencies in large systems.</p>
+%% <p>In the old days, before records, Erlang programmers often wrote
+%% access functions for tuple data. This was tedious and error-prone.
+%% The record syntax made this easier, but since records were implemented
+%% fully in the pre-processor, a nasty compile-time dependency was
+%% introduced.</p>
+%% <p>This module automates the generation of access functions for
+%% records. While this method cannot fully replace the utility of
+%% pattern matching, it does allow a fair bit of functionality on
+%% records without the need for compile-time dependencies.</p>
+%% <p>Whenever record definitions need to be exported from a module,
+%% inserting a compiler attribute,
+%% <code>export_records(RecName|...)</code> causes this transform
+%% to lay out access functions for the exported records:</p>
+%%
+%% As an example, consider the following module:
+%% <pre lang="erlang">
+%% -module(test_exprecs).
+%%
+%% -record(r,{a = 0 :: integer(),b = 0 :: integer(),c = 0 :: integer()}).
+%% -record(s,{a}).
+%% -record(t,{}).
+%%
+%% -export_records(r,s,t).
+%%
+%% -export_type('#prop-r'/0,
+%%               '#attr-r'/0,
+%%               '#prop-s'/0,
+%%               '#attr-s'/0,
+%%               '#prop-t'/0,
+%%               '#attr-t'/0).
+%%
+%% -type '#prop-s'() :: {a, any()}.
+%%
+%% -type '#attr-s'() :: a.
+%%
+%% -type '#prop-r'() :: {a, any()} | {b, any()} | {c, any()}.
+%%
+%% -type '#attr-r'() :: a | b | c.
+%%
+%% -type '#prop-t'() :: any().
+%%
+%% -type '#attr-t'() :: any().
+%%
+%% -spec '#exported_records-'() -&gt; r | s | t.
+%%
+%% -spec '#new-'(r) -&gt; #r{};
+%%              (s) -&gt; #s{};
+%%              (t) -&gt; #t{}.
+%%
+%% -spec '#info-'(r) -&gt; '#attr-r'();
+%%               (s) -&gt; '#attr-s'();
+%%               (t) -&gt; '#attr-t'().
+%%
+%% -spec '#info-'(r, size) -&gt; 4;
+%%               (r, fields) -&gt; '#attr-r'();
+%%               (s, size) -&gt; 2;
+%%               (s, fields) -&gt; '#attr-s'();
+%%               (t, size) -&gt; 1;
+%%               (t, fields) -&gt; '#attr-t'().
+%%
+%% -spec '#pos-'(r, a) -&gt; 1;
+%%              (r, b) -&gt; 2;
+%%              (r, c) -&gt; 3;
+%%              (s, a) -&gt; 1.
+%%
+%% -spec '#is_record-'(any()) -&gt; boolean().
+%%
+%% -spec '#is_record-'(any(), any()) -&gt; boolean().
+%%
+%% -spec '#get-'(a, #s{}) -&gt; any();
+%%              (a, #r{}) -&gt; any();
+%%              (b, #r{}) -&gt; any();
+%%              (c, #r{}) -&gt; any();
+%%              ('#attr-t'(), #t{}) -&gt; ;
+%%              ('#attr-s'(), #s{}) -&gt; any();
+%%              ('#attr-r'(), #r{}) -&gt; any().
+%%
+%% -spec '#set-'('#prop-r'(), #r{}) -&gt; #r{};
+%%              ('#prop-s'(), #s{}) -&gt; #s{};
+%%              ('#prop-t'(), #t{}) -&gt; #t{}.
+%%
+%% -spec '#fromlist-'('#prop-r'(), #r{}) -&gt; #r{};
+%%                   ('#prop-s'(), #s{}) -&gt; #s{};
+%%                   ('#prop-t'(), #t{}) -&gt; #t{}.
+%%
+%% -spec '#frommap-'(#{a =&gt; any(), b =&gt; any(), c =&gt; any()}, #r{}) -&gt; #r{};
+%%                  (#{a =&gt; any()}, #s{}) -&gt; #s{};
+%%                  (#{}, #t{}) -&gt; #t{}.
+%%
+%% -spec '#lens-'('#attr-r'(), r) -&gt;
+%%                   {fun((#r{}) -&gt; any()), fun((any(), #r{}) -&gt; #r{})};
+%%               ('#attr-s'(), s) -&gt;
+%%                   {fun((#s{}) -&gt; any()), fun((any(), #s{}) -&gt; #s{})};
+%%               ('#attr-t'(), t) -&gt;
+%%                   {fun((#t{}) -&gt; any()), fun((any(), #t{}) -&gt; #t{})}.
+%%
+%% -spec '#new-r'() -&gt; #r{}.
+%%
+%% -spec '#new-r'('#prop-r'()) -&gt; #r{}.
+%%
+%% -spec '#get-r'(a, #r{}) -&gt; any();
+%%               (b, #r{}) -&gt; any();
+%%               (c, #r{}) -&gt; any();
+%%               ('#attr-r'(), #r{}) -&gt; any().
+%%
+%% -spec '#set-r'('#prop-r'(), #r{}) -&gt; #r{}.
+%%
+%% -spec '#fromlist-r'('#prop-r'()) -&gt; #r{}.
+%%
+%% -spec '#fromlist-r'('#prop-r'(), #r{}) -&gt; #r{}.
+%%
+%% -spec '#frommap-r'(#{a =&gt; any(), b =&gt; any(), c =&gt; any()}) -&gt; #r{}.
+%%
+%% -spec '#frommap-r'(#{a =&gt; any(), b =&gt; any(), c =&gt; any()}, #r{}) -&gt; #r{}.
+%%
+%% -spec '#pos-r'('#attr-r'() | atom()) -&gt; integer().
+%%
+%% -spec '#info-r'(fields) -&gt; a | b | c;
+%%                (size) -&gt; 4.
+%%
+%% -spec '#lens-r'('#attr-r'()) -&gt;
+%%                    {fun((#r{}) -&gt; any()), fun((any(), #r{}) -&gt; #r{})}.
+%%
+%% -spec '#new-s'() -&gt; #s{}.
+%%
+%% -spec '#new-s'('#prop-s'()) -&gt; #s{}.
+%%
+%% -spec '#get-s'(a, #s{}) -&gt; any();
+%%               ('#attr-s'(), #s{}) -&gt; any().
+%%
+%% -spec '#set-s'('#prop-s'(), #s{}) -&gt; #s{}.
+%%
+%% -spec '#fromlist-s'('#prop-s'()) -&gt; #s{}.
+%%
+%% -spec '#fromlist-s'('#prop-s'(), #s{}) -&gt; #s{}.
+%%
+%% -spec '#frommap-s'(#{a =&gt; any()}) -&gt; #s{}.
+%%
+%% -spec '#frommap-s'(#{a =&gt; any()}, #s{}) -&gt; #s{}.
+%%
+%% -spec '#pos-s'('#attr-s'() | atom()) -&gt; integer().
+%%
+%% -spec '#info-s'(fields) -&gt; a;
+%%                (size) -&gt; 2.
+%%
+%% -spec '#lens-s'('#attr-s'()) -&gt;
+%%                    {fun((#s{}) -&gt; any()), fun((any(), #s{}) -&gt; #s{})}.
+%%
+%% -spec '#new-t'() -&gt; #t{}.
+%%
+%% -spec '#new-t'('#prop-t'()) -&gt; #t{}.
+%%
+%% -spec '#get-t'('#attr-t'(), #t{}) -&gt; any().
+%%
+%% -spec '#set-t'('#prop-t'(), #t{}) -&gt; #t{}.
+%%
+%% -spec '#fromlist-t'('#prop-t'()) -&gt; #t{}.
+%%
+%% -spec '#fromlist-t'('#prop-t'(), #t{}) -&gt; #t{}.
+%%
+%% -spec '#frommap-t'(#{}) -&gt; #t{}.
+%%
+%% -spec '#frommap-t'(#{}, #t{}) -&gt; #t{}.
+%%
+%% -spec '#pos-t'('#attr-t'() | atom()) -&gt; integer().
+%%
+%% -spec '#info-t'(fields) -&gt; ;
+%%                (size) -&gt; 1.
+%%
+%% -spec '#lens-t'('#attr-t'()) -&gt;
+%%                    {fun((#t{}) -&gt; any()), fun((any(), #t{}) -&gt; #t{})}.
+%%
+%% -file("c:/git/etp/_checkouts/parse_trans/examples/test_exprecs.erl", 1).
+%%
+%% '#exported_records-'() -&gt;
+%%     r,s,t.
+%%
+%% '#new-'(r) -&gt;
+%%     '#new-r'();
+%% '#new-'(s) -&gt;
+%%     '#new-s'();
+%% '#new-'(t) -&gt;
+%%     '#new-t'().
+%%
+%% '#info-'(RecName) -&gt;
+%%     '#info-'(RecName, fields).
+%%
+%% '#info-'(r, Info) -&gt;
+%%     '#info-r'(Info);
+%% '#info-'(s, Info) -&gt;
+%%     '#info-s'(Info);
+%% '#info-'(t, Info) -&gt;
+%%     '#info-t'(Info).
+%%
+%% '#pos-'(r, Attr) -&gt;
+%%     '#pos-r'(Attr);
+%% '#pos-'(s, Attr) -&gt;
+%%     '#pos-s'(Attr);
+%% '#pos-'(t, Attr) -&gt;
+%%     '#pos-t'(Attr).
+%%
+%% '#is_record-'(X) -&gt;
+%%     if
+%%         is_record(X, r, 4) -&gt;
+%%             true;
+%%         is_record(X, s, 2) -&gt;
+%%             true;
+%%         is_record(X, t, 1) -&gt;
+%%             true;
+%%         true -&gt;
+%%             false
+%%     end.
+%%
+%% '#is_record-'(t, Rec) when tuple_size(Rec) == 1, element(1, Rec) == t -&gt;
+%%     true;
+%% '#is_record-'(s, Rec) when tuple_size(Rec) == 2, element(1, Rec) == s -&gt;
+%%     true;
+%% '#is_record-'(r, Rec) when tuple_size(Rec) == 4, element(1, Rec) == r -&gt;
+%%     true;
+%% '#is_record-'(_, _) -&gt;
+%%     false.
+%%
+%% '#get-'(Attrs, {r,_,_,_} = Rec) when true -&gt;
+%%     '#get-r'(Attrs, Rec);
+%% '#get-'(Attrs, {s,_} = Rec) when true -&gt;
+%%     '#get-s'(Attrs, Rec);
+%% '#get-'(Attrs, {t} = Rec) when true -&gt;
+%%     '#get-t'(Attrs, Rec).
+%%
+%% '#set-'(Vals, {r,_,_,_} = Rec) when true -&gt;
+%%     '#set-r'(Vals, Rec);
+%% '#set-'(Vals, {s,_} = Rec) when true -&gt;
+%%     '#set-s'(Vals, Rec);
+%% '#set-'(Vals, {t} = Rec) when true -&gt;
+%%     '#set-t'(Vals, Rec).
+%%
+%% '#fromlist-'(Vals, {r,_,_,_} = Rec) when true -&gt;
+%%     '#fromlist-r'(Vals, Rec);
+%% '#fromlist-'(Vals, {s,_} = Rec) when true -&gt;
+%%     '#fromlist-s'(Vals, Rec);
+%% '#fromlist-'(Vals, {t} = Rec) when true -&gt;
+%%     '#fromlist-t'(Vals, Rec).
+%%
+%% '#frommap-'(Vals, {r,_,_,_} = Rec) when true -&gt;
+%%     '#frommap-r'(Vals, Rec);
+%% '#frommap-'(Vals, {s,_} = Rec) when true -&gt;
+%%     '#frommap-s'(Vals, Rec);
+%% '#frommap-'(Vals, {t} = Rec) when true -&gt;
+%%     '#frommap-t'(Vals, Rec).
+%%
+%% '#lens-'(Attr, r) -&gt;
+%%     '#lens-r'(Attr);
+%% '#lens-'(Attr, s) -&gt;
+%%     '#lens-s'(Attr);
+%% '#lens-'(Attr, t) -&gt;
+%%     '#lens-t'(Attr).
+%%
+%% '#new-r'() -&gt;
+%%     {r,0,0,0}.
+%%
+%% '#new-r'(Vals) -&gt;
+%%     '#set-r'(Vals, {r,0,0,0}).
+%%
+%% '#get-r'(Attrs, R) when is_list(Attrs) -&gt;
+%%     
+%%      '#get-r'(A, R) ||
+%%          A &lt;- Attrs
+%%     ;
+%% '#get-r'(a, R) -&gt;
+%%     case R of
+%%         {r,rec0,_,_} -&gt;
+%%             rec0;
+%%         _ -&gt;
+%%             error({badrecord,r})
+%%     end;
+%% '#get-r'(b, R) -&gt;
+%%     case R of
+%%         {r,_,rec1,_} -&gt;
+%%             rec1;
+%%         _ -&gt;
+%%             error({badrecord,r})
+%%     end;
+%% '#get-r'(c, R) -&gt;
+%%     case R of
+%%         {r,_,_,rec2} -&gt;
+%%             rec2;
+%%         _ -&gt;
+%%             error({badrecord,r})
+%%     end;
+%% '#get-r'(Attr, R) -&gt;
+%%     error(bad_record_op, '#get-r',Attr,R).
+%%
+%% '#set-r'(Vals, Rec) -&gt;
+%%     F = % fun-info: {0,0,'-#set-r/2-fun-0-'}
+%%         fun(, R, _F1) -&gt;
+%%                R;
+%%            ({a,V}|T, R, F1) when is_list(T) -&gt;
+%%                F1(T,
+%%                   begin
+%%                       rec3 = R,
+%%                       case rec3 of
+%%                           {r,_,_,_} -&gt;
+%%                               setelement(2, rec3, V);
+%%                           _ -&gt;
+%%                               error({badrecord,r})
+%%                       end
+%%                   end,
+%%                   F1);
+%%            ({b,V}|T, R, F1) when is_list(T) -&gt;
+%%                F1(T,
+%%                   begin
+%%                       rec4 = R,
+%%                       case rec4 of
+%%                           {r,_,_,_} -&gt;
+%%                               setelement(3, rec4, V);
+%%                           _ -&gt;
+%%                               error({badrecord,r})
+%%                       end
+%%                   end,
+%%                   F1);
+%%            ({c,V}|T, R, F1) when is_list(T) -&gt;
+%%                F1(T,
+%%                   begin
+%%                       rec5 = R,
+%%                       case rec5 of
+%%                           {r,_,_,_} -&gt;
+%%                               setelement(4, rec5, V);
+%%                           _ -&gt;
+%%                               error({badrecord,r})
+%%                       end
+%%                   end,
+%%                   F1);
+%%            (Vs, R, _) -&gt;
+%%                error(bad_record_op, '#set-r',Vs,R)
+%%         end,
+%%     F(Vals, Rec, F).
+%%
+%% '#fromlist-r'(Vals) when is_list(Vals) -&gt;
+%%     '#fromlist-r'(Vals, '#new-r'()).
+%%
+%% '#fromlist-r'(Vals, Rec) -&gt;
+%%     AttrNames = {a,2},{b,3},{c,4},
+%%     F = % fun-info: {0,0,'-#fromlist-r/2-fun-0-'}
+%%         fun(, R, _F1) -&gt;
+%%                R;
+%%            ({H,Pos}|T, R, F1) when is_list(T) -&gt;
+%%                case lists:keyfind(H, 1, Vals) of
+%%                    false -&gt;
+%%                        F1(T, R, F1);
+%%                    {_,Val} -&gt;
+%%                        F1(T, setelement(Pos, R, Val), F1)
+%%                end
+%%         end,
+%%     F(AttrNames, Rec, F).
+%%
+%% '#frommap-r'(Vals) when is_map(Vals) -&gt;
+%%     '#frommap-r'(Vals, '#new-r'()).
+%%
+%% '#frommap-r'(Vals, Rec) -&gt;
+%%     List = maps:to_list(Vals),
+%%     '#fromlist-r'(List, Rec).
+%%
+%% '#pos-r'(a) -&gt;
+%%     2;
+%% '#pos-r'(b) -&gt;
+%%     3;
+%% '#pos-r'(c) -&gt;
+%%     4;
+%% '#pos-r'(A) when is_atom(A) -&gt;
+%%     0.
+%%
+%% '#info-r'(fields) -&gt;
+%%     a,b,c;
+%% '#info-r'(size) -&gt;
+%%     4.
+%%
+%% '#lens-r'(a) -&gt;
+%%     {% fun-info: {0,0,'-#lens-r/1-fun-0-'}
+%%      fun(R) -&gt;
+%%             '#get-r'(a, R)
+%%      end,
+%%      % fun-info: {0,0,'-#lens-r/1-fun-1-'}
+%%      fun(X, R) -&gt;
+%%             '#set-r'({a,X}, R)
+%%      end};
+%% '#lens-r'(b) -&gt;
+%%     {% fun-info: {0,0,'-#lens-r/1-fun-2-'}
+%%      fun(R) -&gt;
+%%             '#get-r'(b, R)
+%%      end,
+%%      % fun-info: {0,0,'-#lens-r/1-fun-3-'}
+%%      fun(X, R) -&gt;
+%%             '#set-r'({b,X}, R)
+%%      end};
+%% '#lens-r'(c) -&gt;
+%%     {% fun-info: {0,0,'-#lens-r/1-fun-4-'}
+%%      fun(R) -&gt;
+%%             '#get-r'(c, R)
+%%      end,
+%%      % fun-info: {0,0,'-#lens-r/1-fun-5-'}
+%%      fun(X, R) -&gt;
+%%             '#set-r'({c,X}, R)
+%%      end};
+%% '#lens-r'(Attr) -&gt;
+%%     error(bad_record_op, '#lens-r',Attr).
+%%
+%% '#new-s'() -&gt;
+%%     {s,undefined}.
+%%
+%% '#new-s'(Vals) -&gt;
+%%     '#set-s'(Vals, {s,undefined}).
+%%
+%% '#get-s'(Attrs, R) when is_list(Attrs) -&gt;
+%%     
+%%      '#get-s'(A, R) ||
+%%          A &lt;- Attrs
+%%     ;
+%% '#get-s'(a, R) -&gt;
+%%     case R of
+%%         {s,rec6} -&gt;
+%%             rec6;
+%%         _ -&gt;
+%%             error({badrecord,s})
+%%     end;
+%% '#get-s'(Attr, R) -&gt;
+%%     error(bad_record_op, '#get-s',Attr,R).
+%%
+%% '#set-s'(Vals, Rec) -&gt;
+%%     F = % fun-info: {0,0,'-#set-s/2-fun-0-'}
+%%         fun(, R, _F1) -&gt;
+%%                R;
+%%            ({a,V}|T, R, F1) when is_list(T) -&gt;
+%%                F1(T,
+%%                   begin
+%%                       rec7 = R,
+%%                       case rec7 of
+%%                           {s,rec8} -&gt;
+%%                               {s,V};
+%%                           _ -&gt;
+%%                               error({badrecord,s})
+%%                       end
+%%                   end,
+%%                   F1);
+%%            (Vs, R, _) -&gt;
+%%                error(bad_record_op, '#set-s',Vs,R)
+%%         end,
+%%     F(Vals, Rec, F).
+%%
+%% '#fromlist-s'(Vals) when is_list(Vals) -&gt;
+%%     '#fromlist-s'(Vals, '#new-s'()).
+%%
+%% '#fromlist-s'(Vals, Rec) -&gt;
+%%     AttrNames = {a,2},
+%%     F = % fun-info: {0,0,'-#fromlist-s/2-fun-0-'}
+%%         fun(, R, _F1) -&gt;
+%%                R;
+%%            ({H,Pos}|T, R, F1) when is_list(T) -&gt;
+%%                case lists:keyfind(H, 1, Vals) of
+%%                    false -&gt;
+%%                        F1(T, R, F1);
+%%                    {_,Val} -&gt;
+%%                        F1(T, setelement(Pos, R, Val), F1)
+%%                end
+%%         end,
+%%     F(AttrNames, Rec, F).
+%%
+%% '#frommap-s'(Vals) when is_map(Vals) -&gt;
+%%     '#frommap-s'(Vals, '#new-s'()).
+%%
+%% '#frommap-s'(Vals, Rec) -&gt;
+%%     List = maps:to_list(Vals),
+%%     '#fromlist-s'(List, Rec).
+%%
+%% '#pos-s'(a) -&gt;
+%%     2;
+%% '#pos-s'(A) when is_atom(A) -&gt;
+%%     0.
+%%
+%% '#info-s'(fields) -&gt;
+%%     a;
+%% '#info-s'(size) -&gt;
+%%     2.
+%%
+%% '#lens-s'(a) -&gt;
+%%     {% fun-info: {0,0,'-#lens-s/1-fun-0-'}
+%%      fun(R) -&gt;
+%%             '#get-s'(a, R)
+%%      end,
+%%      % fun-info: {0,0,'-#lens-s/1-fun-1-'}
+%%      fun(X, R) -&gt;
+%%             '#set-s'({a,X}, R)
+%%      end};
+%% '#lens-s'(Attr) -&gt;
+%%     error(bad_record_op, '#lens-s',Attr).
+%%
+%% '#new-t'() -&gt;
+%%     {t}.
+%%
+%% '#new-t'(Vals) -&gt;
+%%     '#set-t'(Vals, {t}).
+%%
+%% '#get-t'(Attrs, R) when is_list(Attrs) -&gt;
+%%     
+%%      '#get-t'(A, R) ||
+%%          A &lt;- Attrs
+%%     ;
+%% '#get-t'(Attr, R) -&gt;
+%%     error(bad_record_op, '#get-t',Attr,R).
+%%
+%% '#set-t'(Vals, Rec) -&gt;
+%%     F = % fun-info: {0,0,'-#set-t/2-fun-0-'}
+%%         fun(, R, _F1) -&gt;
+%%                R;
+%%            (Vs, R, _) -&gt;
+%%                error(bad_record_op, '#set-t',Vs,R)
+%%         end,
+%%     F(Vals, Rec, F).
+%%
+%% '#fromlist-t'(Vals) when is_list(Vals) -&gt;
+%%     '#fromlist-t'(Vals, '#new-t'()).
+%%
+%% '#fromlist-t'(Vals, Rec) -&gt;
+%%     AttrNames = ,
+%%     F = % fun-info: {0,0,'-#fromlist-t/2-fun-0-'}
+%%         fun(, R, _F1) -&gt;
+%%                R;
+%%            ({H,Pos}|T, R, F1) when is_list(T) -&gt;
+%%                case lists:keyfind(H, 1, Vals) of
+%%                    false -&gt;
+%%                        F1(T, R, F1);
+%%                    {_,Val} -&gt;
+%%                        F1(T, setelement(Pos, R, Val), F1)
+%%                end
+%%         end,
+%%     F(AttrNames, Rec, F).
+%%
+%% '#frommap-t'(Vals) when is_map(Vals) -&gt;
+%%     '#frommap-t'(Vals, '#new-t'()).
+%%
+%% '#frommap-t'(Vals, Rec) -&gt;
+%%     List = maps:to_list(Vals),
+%%     '#fromlist-t'(List, Rec).
+%%
+%% '#pos-t'(A) when is_atom(A) -&gt;
+%%     0.
+%%
+%% '#info-t'(fields) -&gt;
+%%     ;
+%% '#info-t'(size) -&gt;
+%%     1.
+%%
+%% '#lens-t'(Attr) -&gt;
+%%     error(bad_record_op, '#lens-t',Attr).
+%%
+%% f() -&gt;
+%%     foo.
+%% </pre>
+%%
+%% It is possible to modify the naming rules of exprecs, through the use
+%% of the following attributes (example reflecting the current rules):
+%%
+%% <pre>
+%% -exprecs_prefix("#", operation, "-").
+%% -exprecs_fname(prefix, record).
+%% -exprecs_vfname(fname, "__", version).
+%% </pre>
+%%
+%% The lists must contain strings or any of the following control atoms:
+%% <ul>
+%% <li>in `exprecs_prefix': `operation'</li>
+%% <li>in `exprecs_fname': `operation', `record', `prefix'</li>
+%% <li>in `exprecs_vfname': `operation', `record', `prefix', `fname', `version'
+%% </li>
+%% </ul>
+%%
+%% Exprecs will substitute the control atoms with the string values of the
+%% corresponding items. The result will then be flattened and converted to an
+%% atom (a valid function or type name).
+%%
+%% `operation' is one of:
+%% <dl>
+%% <dt>`new'</dt> <dd>Creates a new record</dd>
+%% <dt>`get'</dt> <dd>Retrieves given attribute values from a record</dd>
+%% <dt>`set'</dt> <dd>Sets given attribute values in a record</dd>
+%% <dt>`fromlist'</dt> <dd>Creates a record from a key-value list</dd>
+%% <dt>`info'</dt> <dd>Equivalent to record_info/2</dd>
+%% <dt>`pos'</dt> <dd>Returns the position of a given attribute</dd>
+%% <dt>`is_record'</dt> <dd>Tests if a value is a specific record</dd>
+%% <dt>`convert'</dt> <dd>Converts an old record to the current version</dd>
+%% <dt>`prop'</dt> <dd>Used only in type specs</dd>
+%% <dt>`attr'</dt> <dd>Used only in type specs</dd>
+%% <dt>`lens'</dt> <dd>Returns a 'lens' (an accessor pair) as described in
+%%              http://github.com/jlouis/erl-lenses</dd>
+%% </dl>
+%%
+%% @end
+
+-module(exprecs).
+
+-export(parse_transform/2,
+         format_error/1,
+%        transform/3,
+         context/2).
+
+-record(context, {module,
+                  function,
+                  arity}).
+
+-record(pass1, {exports = ,
+                generated = false,
+                records = ,
+                record_types = ,
+                versions = orddict:new(),
+                inserted = false,
+                prefix = "#", operation, "-",
+                fname = prefix, record,
+                vfname = fname, "__", version}).
+
+-include("../include/codegen.hrl").
+
+-define(HERE, {?MODULE, ?LINE}).
+
+-define(ERROR(R, F, I),
+        begin
+            rpt_error(R, F, I),
+            throw({error,get_pos(I),{unknown,R}})
+        end).
+
+-type form()    :: any().
+-type forms()   :: form().
+-type options() :: {atom(), any()}.
+
+
+get_pos(I) ->
+    case proplists:get_value(form, I) of
+        undefined ->
+            0;
+        Form ->
+            Anno = erl_syntax:get_pos(Form),
+            erl_anno:location(Anno)
+    end.
+
+-spec parse_transform(forms(), options()) ->
+    forms().
+parse_transform(Forms, Options) ->
+    parse_trans:top(fun do_transform/2, Forms, Options).
+
+do_transform(Forms, Context) ->
+    Acc1 = versioned_records(
+             add_untyped_recs(
+               parse_trans:do_inspect(fun inspect_f/4, #pass1{},
+                                      Forms, Context))),
+    {Forms2, Acc2} =
+        parse_trans:do_transform(fun generate_f/4, Acc1, Forms, Context),
+    parse_trans:revert(verify_generated(Forms2, Acc2, Context)).
+
+add_untyped_recs(#pass1{records = Rs,
+                        record_types = RTypes,
+                        exports = Es} = Acc) ->
+    Untyped =
+        {R, Def} || {R, Def} <- Rs,
+                     lists:member(R, Es),
+                     not lists:keymember(R, 1, RTypes),
+    RTypes1 = {R, lists:map(
+                     fun({record_field,L,{atom,_,A}}) -> {A, t_any(L)};
+                        ({record_field,L,{atom,_,A},_}) -> {A, t_any(L)};
+                        ({typed_record_field,
+                          {record_field,L,{atom,_,A}},_}) -> {A, t_any(L)};
+                        ({typed_record_field,
+                          {record_field,L,{atom,_,A},_},_}) -> {A, t_any(L)}
+                     end, Def)} || {R, Def} <- Untyped,
+    Acc#pass1{record_types = RTypes ++ RTypes1}.
+
+inspect_f(attribute, {attribute,_L,exprecs_prefix,Pattern}, _Ctxt, Acc) ->
+    {false, Acc#pass1{prefix = Pattern}};
+inspect_f(attribute, {attribute,_L,exprecs_fname,Pattern}, _Ctxt, Acc) ->
+    {false, Acc#pass1{fname = Pattern}};
+inspect_f(attribute, {attribute,_L,exprecs_vfname,Pattern}, _Ctxt, Acc) ->
+    {false, Acc#pass1{vfname = Pattern}};
+inspect_f(attribute, {attribute,_L,record,RecDef}, _Ctxt, Acc) ->
+    Recs0 = Acc#pass1.records,
+    {false, Acc#pass1{records = RecDef|Recs0}};
+inspect_f(attribute, {attribute,_L,export_records, E}, _Ctxt, Acc) ->
+    Exports0 = Acc#pass1.exports,
+    NewExports = Exports0 ++ E,
+    {false, Acc#pass1{exports = NewExports}};
+inspect_f(attribute, {attribute, _L, type,
+                      {{record, R}, RType,_}}, _Ctxt, Acc) ->
+    Type = lists:map(
+             fun({typed_record_field, {record_field,_,{atom,_,A}}, T}) ->
+                     {A, T};
+                ({typed_record_field, {record_field,_,{atom,_,A},_}, T}) ->
+                     {A, T};
+                ({record_field, _, {atom,L,A}, _}) ->
+                     {A, t_any(L)};
+                ({record_field, _, {atom,L,A}}) ->
+                     {A, t_any(L)}
+             end, RType),
+    {false, Acc#pass1{record_types = {R, Type}|Acc#pass1.record_types}};
+inspect_f(_Type, _Form, _Context, Acc) ->
+    {false, Acc}.
+
+generate_f(attribute, {attribute,L,export_records,_} = Form, _Ctxt,
+            #pass1{exports = _|_ = Es, versions = Vsns,
+                   inserted = false} = Acc) ->
+    case check_record_names(Es, L, Acc) of
+        ok -> continue;
+        {error, Bad} ->
+            ?ERROR(invalid_record_exports, ?HERE, Bad)
+    end,
+    Exports = {fname(exported_records, Acc), 0},
+               {fname(new, Acc), 1},
+               {fname(info, Acc), 1},
+               {fname(info, Acc), 2},
+               {fname(pos, Acc), 2},
+               {fname(is_record, Acc), 1},
+               {fname(is_record, Acc), 2},
+               {fname(get, Acc), 2},
+               {fname(set, Acc), 2},
+               {fname(fromlist, Acc), 2},
+               {fname(frommap, Acc), 2},
+               {fname(lens, Acc), 2} |
+               lists:flatmap(
+                 fun(Rec) ->
+                         RecS = atom_to_list(Rec),
+                         FNew = fname(new, RecS, Acc),
+                         {FNew, 0}, {FNew,1},
+                          {fname(get, RecS, Acc), 2},
+                          {fname(set, RecS, Acc), 2},
+                          {fname(pos, RecS, Acc), 1},
+                          {fname(fromlist, RecS, Acc), 1},
+                          {fname(frommap, RecS, Acc), 1},
+                          {fname(fromlist, RecS, Acc), 2},
+                          {fname(frommap, RecS, Acc), 2},
+                          {fname(info, RecS, Acc), 1},
+                          {fname(lens, RecS, Acc), 1}
+                 end, Es) ++ version_exports(Vsns, Acc),
+    TypeExports =
+        lists:flatmap(
+          fun(Rec) ->
+                  {fname(prop, Rec, Acc), 0},
+                   {fname(attr, Rec, Acc), 0}
+          end, Es),
+    {, Form,
+     {attribute,L,export,Exports},
+      {attribute,L,ignore_xref,Exports},
+      {attribute,L,export_type, TypeExports},
+     false, Acc#pass1{inserted = true}};
+generate_f(function, Form, _Context, #pass1{generated = false} = Acc) ->
+    % Layout record funs before first function
+    Anno = erl_syntax:get_pos(Form),
+    L = erl_anno:location(Anno),
+    Forms = generate_specs_and_accessors(L, Acc),
+    {Forms, Form, , false, Acc#pass1{generated = true}};
+generate_f(_Type, Form, _Ctxt, Acc) ->
+    {Form, false, Acc}.
+
+generate_specs_and_accessors(L, #pass1{exports = _|_ = Es,
+                                       record_types = Ts} = Acc) ->
+    Specs = generate_specs(L, {R,T} || {R,T} <- Ts, lists:member(R, Es), Acc),
+    Funs = generate_accessors(L, Acc),
+    Specs ++ Funs;
+generate_specs_and_accessors(_, _) ->
+    .
+
+verify_generated(Forms, #pass1{} = Acc, _Context) ->
+    case (Acc#pass1.generated == true) orelse (Acc#pass1.exports == ) of
+        true ->
+            Forms;
+        false ->
+            % should be re-written to use the parse_trans helper...?
+            {eof,Last}|RevForms = lists:reverse(Forms),
+            Anno = erl_anno:new(Last),
+            {function, NewLast, _, _, _}|_ = RevAs =
+                lists:reverse(generate_specs_and_accessors(Anno, Acc)),
+            Loc = erl_anno:location(NewLast),
+            lists:reverse({eof, increment_line(Loc)} | RevAs ++ RevForms)
+    end.
+
+increment_line(L) when is_integer(L) ->
+    L + 1;
+increment_line({L, C}) when is_integer(L), is_integer(C) ->
+    {L + 1, C}.
+
+check_record_names(Es, L, #pass1{records = Rs}) ->
+    case E || E <- Es,
+               not(lists:keymember(E, 1, Rs)) of
+         ->
+            ok;
+        Bad ->
+            {error, {L,E} || E <- Bad}
+    end.
+
+versioned_records(#pass1{exports = Es, records = Rs} = Pass1) ->
+    case split_recnames(Rs) of
+         ->
+            Pass1#pass1{versions = };
+        _|_ = Versions ->
+            Exp_vsns =
+                lists:foldl(
+                  fun(Re, Acc) ->
+                          case orddict:find(atom_to_list(Re), Versions) of
+                              {ok, Vs} ->
+                                  orddict:store(Re, Vs, Acc);
+                              error ->
+                                  Acc
+                          end
+                  end, orddict:new(), Es),
+            Pass1#pass1{versions = Exp_vsns}
+    end.
+
+version_exports(, _Acc) ->
+    ;
+version_exports(_|_ = _Vsns, Acc) ->
+    {list_to_atom(fname_prefix(info, Acc)), 3},
+     {list_to_atom(fname_prefix(convert, Acc)), 2}.
+
+
+version_accessors(_L, #pass1{versions = }) ->
+    ;
+version_accessors(L, #pass1{versions = Vsns} = Acc) ->
+    Flat_vsns = flat_versions(Vsns),
+    f_convert(Vsns, L, Acc),
+     f_info_3(Vsns, L, Acc)
+        ++ f_info_1(Rname, Acc, L, V) || {Rname,V} <- Flat_vsns.
+
+flat_versions(Vsns) ->
+    lists:flatmap(fun({R,Vs}) ->
+                          {R,V} || V <- Vs
+                  end, Vsns).
+
+split_recnames(Rs) ->
+    lists:foldl(
+      fun({R,_As}, Acc) ->
+              case re:split(atom_to_list(R), "__", {return, list}) of
+                  Base, V ->
+                      orddict:append(Base,V,Acc);
+                  _ ->
+                      Acc
+              end
+      end, orddict:new(), Rs).
+
+generate_specs(L, Specs, Acc) ->
+    
+      {attribute, L, type,
+      {fname(prop, R, Acc),
+       {type, L, union,
+        {type, L, tuple, {atom,L,A},T} || {A,T} <- Attrs}, }},
+      {attribute, L, type,
+       {fname(attr, R, Acc),
+        {type, L, union,
+         {atom, L, A} || {A,_} <- Attrs}, }}
+      || {R, Attrs} <- Specs, Attrs =/=  ++
+        {attribute, L, type,
+           {fname(prop, R, Acc),
+            {type, L, any, }, }},
+          {attribute, L, type,
+           {fname(attr, R, Acc),
+            {type, L, any, }, }} || {R, } <- Specs.
+
+
+generate_accessors(L, Acc) ->
+    lists:flatten(
+      f_exported_recs(Acc, L),
+       f_new_(Acc, L),
+       f_info(Acc, L),
+       f_info_2(Acc, L),
+       f_pos_2(Acc, L),
+       f_isrec_1(Acc, L),
+       f_isrec_2(Acc, L),
+       f_get(Acc, L),
+       f_set(Acc, L),
+       f_fromlist(Acc, L),
+       f_frommap(Acc, L),
+       f_lens_(Acc, L)|
+       lists:append(
+         lists:map(
+           fun(Rname) ->
+                   Fields = get_flds(Rname, Acc),
+                   f_new_0(Rname, L, Acc),
+                    f_new_1(Rname, L, Acc),
+                    f_get_2(Rname, Fields, L, Acc),
+                    f_set_2(Rname, Fields, L, Acc),
+                    f_fromlist_1(Rname, L, Acc),
+                    f_fromlist_2(Rname, Fields, L, Acc),
+                    f_frommap_1(Rname, L, Acc),
+                    f_frommap_2(Rname, L, Acc),
+                    f_pos_1(Rname, Fields, L, Acc),
+                    f_info_1(Rname, Acc, L),
+                    f_lens_1(Rname, Fields, L, Acc)
+           end, Acc#pass1.exports)) ++ version_accessors(L, Acc)).
+
+get_flds(Rname, #pass1{records = Rs}) ->
+    {_, Flds} = lists:keyfind(Rname, 1, Rs),
+    lists:map(
+      fun({record_field,_, {atom,_,N}}) -> N;
+         ({record_field,_, {atom,_,N}, _}) -> N;
+         ({typed_record_field,{record_field,_,{atom,_,N}},_}) -> N;
+         ({typed_record_field,{record_field,_,{atom,_,N},_},_}) -> N
+      end, Flds).
+
+
+fname_prefix(Op, #pass1{prefix = Pat}) ->
+    lists:flatten(
+      lists:map(fun(operation) -> str(Op);
+                   (X) -> str(X)
+                end, Pat)).
+%% fname_prefix(Op, #pass1{} = Acc) ->
+%%     case Op of
+%%      new -> "#new-";
+%%      get -> "#get-";
+%%      set -> "#set-";
+%%      fromlist -> "#fromlist-";
+%%      info     -> "#info-";
+%%         pos      -> "#pos-";
+%%      is_record   -> "#is_record-";
+%%         convert  -> "#convert-";
+%%      prop     -> "#prop-";
+%%      attr     -> "#attr-"
+%%     end.
+
+%% fname_prefix(Op, Rname, Acc) ->
+%%     fname_prefix(Op, Acc) ++ str(Rname).
+
+str(A) when is_atom(A) ->
+    atom_to_list(A);
+str(S) when is_list(S) ->
+    S.
+
+fname(Op, #pass1{} = Acc) ->
+    list_to_atom(fname_prefix(Op, Acc)).
+    %% list_to_atom(fname_prefix(Op, Acc)).
+
+fname(Op, Rname, #pass1{fname = FPat} = Acc) ->
+    Prefix = fname_prefix(Op, Acc),
+    list_to_atom(
+      lists:flatten(
+        lists:map(fun(prefix) -> str(Prefix);
+                     (record) -> str(Rname);
+                     (operation) -> str(Op);
+                     (X) -> str(X)
+                  end, FPat))).
+    %% list_to_atom(fname_prefix(Op, Rname, Acc)).
+
+fname(Op, Rname, V, #pass1{vfname = VPat} = Acc) ->
+    list_to_atom(
+      lists:flatten(
+        lists:map(fun(prefix) -> fname_prefix(Op, Acc);
+                     (operation) -> str(Op);
+                     (record) -> str(Rname);
+                     (version) -> str(V);
+                     (fname) -> str(fname(Op, Rname, Acc));
+                     (X) -> str(X)
+                  end, VPat))).
+    %% list_to_atom(fname_prefix(Op, Rname, Acc) ++ "__" ++ V).
+
+
+%%% Meta functions
+
+f_exported_recs(#pass1{exports = Es} = Acc, L) ->
+    Fname = fname(exported_records, Acc),
+    funspec(L, Fname, ,
+             t_list(L, t_union(L, t_atom(L, E) || E <- Es))),
+     {function, L, Fname, 0,
+      {clause, L, , ,
+        erl_parse:abstract(Es, L)}}
+    .
+
+%%% Accessor functions
+%%%
+f_new_(#pass1{exports = Es} = Acc, L) ->
+    Fname = fname(new, Acc),
+    funspec(L, Fname,  {t_atom(L, E), t_record(L, E)} ||
+                           E <- Es ),
+     {function, L, fname(new, Acc), 1,
+      {clause, L, {atom, L, Re}, ,
+        {call, L, {atom, L, fname(new, Re, Acc)}, }}
+       || Re <- Es}
+    .
+
+f_new_0(Rname, L, Acc) ->
+    Fname = fname(new, Rname, Acc),
+    funspec(L, Fname, , t_record(L, Rname)),
+     {function, L, fname(new, Rname, Acc), 0,
+      {clause, L, , ,
+        {record, L, Rname, }}}
+    .
+
+
+f_new_1(Rname, L, Acc) ->
+    Fname = fname(new, Rname, Acc),
+    funspec(L, Fname, t_list(L, t_prop(L, Rname, Acc)),
+             t_record(L, Rname)),
+    {function, L, Fname, 1,
+     {clause, L, {var, L, 'Vals'}, ,
+       {call, L, {atom, L, fname(set, Rname, Acc)},
+         {var, L, 'Vals'},
+          {record, L, Rname, }
+         }
+       }}.
+
+funspec(L, Fname, {H,_} | _ = Alts) ->
+    Arity = length(H),
+    {attribute, L, spec,
+     {{Fname, Arity},
+      {type, L, 'fun', {type, L, product, Head}, Ret} ||
+          {Head, Ret} <- Alts,
+          no_empty_union(Head)}}.
+
+no_empty_union({type,_,union,}) ->
+    false;
+no_empty_union(T) when is_tuple(T) ->
+    no_empty_union(tuple_to_list(T));
+no_empty_union(H|T) ->
+    no_empty_union(H) andalso no_empty_union(T);
+no_empty_union(_) ->
+    true.
+
+
+
+
+funspec(L, Fname, Head, Returns) ->
+    Arity = length(Head),
+    {attribute, L, spec,
+     {{Fname, Arity},
+      {type, L, 'fun',
+        {type, L, product, Head}, Returns}}}.
+
+
+t_prop(L, Rname, Acc) -> {user_type, L, fname(prop, Rname, Acc), }.
+t_attr(L, Rname, Acc) -> {user_type, L, fname(attr, Rname, Acc), }.
+t_union(L, Alt)   -> {type, L, union, lists:usort(Alt)}.
+t_any(L)          -> {type, L, any, }.
+t_atom(L)         -> {type, L, atom, }.
+t_atom(L, A)      -> {atom, L, A}.
+t_integer(L)      -> {type, L, integer, }.
+t_integer(L, I)   -> {integer, L, I}.
+t_list(L, Es)     -> {type, L, list, Es}.
+t_fun(L, As, Res) -> {type, L, 'fun', {type, L, product, As}, Res}.
+t_tuple(L, Es)    -> {type, L, tuple, Es}.
+t_boolean(L)     -> {type, L, boolean, }.
+t_record(L, A)   -> {type, L, record, {atom, L, A}}.
+t_map(L, Rname, Acc) -> {type, L, map,
+                         {type, L, map_field_assoc, t_atom(L, F), t_any(L)}
+                          || F <- get_flds(Rname, Acc)
+                         
+                        }.
+
+f_set_2(Rname, Flds, L, Acc) ->
+    Fname = fname(set, Rname, Acc),
+    TRec = t_record(L, Rname),
+    funspec(L, Fname, t_list(L, t_prop(L, Rname, Acc)), TRec, TRec),
+     {function, L, Fname, 2,
+      {clause, L, {var, L, 'Vals'}, {var, L, 'Rec'}, ,
+        {match, L, {var, L, 'F'},
+          {'fun', L,
+           {clauses,
+            {clause, L, {nil,L},
+                          {var,L,'R'},
+                          {var,L,'_F1'},
+              ,
+              {var, L, 'R'}} |
+             {clause, L,
+               {cons, L, {tuple, L, {atom, L, Attr},
+                                      {var,  L, 'V'}},
+                 {var, L, 'T'}},
+                {var, L, 'R'},
+                {var, L, 'F1'},
+               {call, L, {atom, L, is_list}, {var, L, 'T'}},
+               {call, L, {var, L, 'F1'},
+                 {var,L,'T'},
+                  {record, L, {var,L,'R'}, Rname,
+                   {record_field, L,
+                     {atom, L, Attr},
+                     {var, L, 'V'}}},
+                  {var, L, 'F1'}}} || Attr <- Flds
+             ++ {clause, L, {var, L, 'Vs'}, {var,L,'R'},{var,L,'_'},
+                  ,
+                  bad_record_op(L, Fname, 'Vs', 'R')}
+            }}},
+         {call, L, {var, L, 'F'}, {var, L, 'Vals'},
+                                   {var, L, 'Rec'},
+                                   {var, L, 'F'}}}}.
+
+bad_record_op(L, Fname, Val) ->
+    {call, L, {remote, L, {atom,L,erlang}, {atom,L,error}},
+     {atom,L,bad_record_op}, {cons, L, {atom, L, Fname},
+                               {cons, L, {var, L, Val},
+                                {nil, L}}}}.
+
+bad_record_op(L, Fname, Val, R) ->
+    {call, L, {remote, L, {atom,L,erlang}, {atom,L,error}},
+     {atom,L,bad_record_op}, {cons, L, {atom, L, Fname},
+                               {cons, L, {var, L, Val},
+                                {cons, L, {var, L, R},
+                                 {nil, L}}}}}.
+
+
+f_pos_1(Rname, Flds, L, Acc) ->
+    Fname = fname(pos, Rname, Acc),
+    FieldList = lists:zip(Flds, lists:seq(2, length(Flds)+1)),
+    
+     funspec(L, Fname, t_union(L, t_attr(L, Rname, Acc),
+                                    t_atom(L)),
+             t_integer(L)),
+     {function, L, Fname, 1,
+      {clause, L,
+        {atom, L, FldName},
+        ,
+        {integer, L, Pos}} || {FldName, Pos} <- FieldList ++
+          {clause, L,
+            {var, L, 'A'},
+            {call, L, {atom, L, is_atom}, {var, L, 'A'}},
+            {integer, L, 0}}
+     }.
+
+f_frommap_1(Rname, L, Acc) ->
+    Fname = fname(frommap, Rname, Acc),
+    
+     funspec(L, Fname, t_map(L, Rname, Acc),
+             t_record(L, Rname)),
+     {function, L, Fname, 1,
+      {clause, L, {var, L, 'Vals'},
+         {call, L, {atom, L, is_map}, {var, L, 'Vals'}} ,
+        {call, L, {atom, L, Fname},
+          {var, L, 'Vals'},
+           {call, L, {atom, L, fname(new, Rname, Acc)}, }}
+        }
+      }.
+
+f_fromlist_1(Rname, L, Acc) ->
+    Fname = fname(fromlist, Rname, Acc),
+    
+     funspec(L, Fname, t_list(L, t_prop(L, Rname, Acc)),
+             t_record(L, Rname)),
+     {function, L, Fname, 1,
+      {clause, L, {var, L, 'Vals'},
+         {call, L, {atom, L, is_list}, {var, L, 'Vals'}} ,
+        {call, L, {atom, L, Fname},
+          {var, L, 'Vals'},
+           {call, L, {atom, L, fname(new, Rname, Acc)}, }}
+        }
+      }.
+
+f_frommap_2(Rname, L, Acc) ->
+    Fname = fname(frommap, Rname, Acc),
+    TRec = t_record(L, Rname),
+    
+     funspec(L, Fname, t_map(L, Rname, Acc), TRec,
+             TRec),
+     {function, L, Fname, 2,
+      {clause, L, {var, L, 'Vals'}, {var, L, 'Rec'}, ,
+        {match, L, {var, L, 'List'},
+          {call, L, {remote, L, {atom, L, maps}, {atom, L, to_list}},
+           {var, L, 'Vals'}
+          }
+         },
+         {call, L, {atom, L, fname(fromlist, Rname, Acc)},
+          {var, L, 'List'}, {var, L, 'Rec'}
+         }
+        }
+      }.
+
+f_fromlist_2(Rname, Flds, L, Acc) ->
+    Fname = fname(fromlist, Rname, Acc),
+    FldList = field_list(Flds),
+    TRec = t_record(L, Rname),
+    
+     funspec(L, Fname, t_list(L, t_prop(L, Rname, Acc)), TRec,
+             TRec),
+     {function, L, Fname, 2,
+      {clause, L, {var, L, 'Vals'}, {var, L, 'Rec'}, ,
+        {match, L, {var, L, 'AttrNames'}, FldList},
+         {match, L, {var, L, 'F'},
+          {'fun', L,
+           {clauses,
+            {clause, L, {nil, L},
+                          {var, L,'R'},
+                          {var, L,'_F1'},
+              ,
+              {var, L, 'R'}},
+             {clause, L, {cons, L,
+                           {tuple, L, {var, L, 'H'},
+                                       {var, L, 'Pos'}},
+                           {var, L, 'T'}},
+                          {var, L, 'R'}, {var, L, 'F1'},
+              {call, L, {atom, L, is_list}, {var, L, 'T'}},
+              {'case', L, {call, L, {remote, L,
+                                      {atom,L,lists},{atom,L,keyfind}},
+                            {var,L,'H'},{integer,L,1},{var,L,'Vals'}},
+                {clause, L, {atom,L,false}, ,
+                  {call, L, {var, L, 'F1'}, {var, L, 'T'},
+                                              {var, L, 'R'},
+                                              {var, L, 'F1'}}},
+                 {clause, L, {tuple, L, {var,L,'_'},{var,L,'Val'}},
+                  ,
+                  {call, L, {var, L, 'F1'},
+                    {var, L, 'T'},
+                     {call, L, {atom, L, 'setelement'},
+                      {var, L, 'Pos'}, {var, L, 'R'}, {var, L, 'Val'}},
+                     {var, L, 'F1'}}}
+                }
+              }
+            }}},
+         {call, L, {var, L, 'F'}, {var, L, 'AttrNames'},
+                                   {var, L, 'Rec'},
+                                   {var, L, 'F'}}
+        }
+      }.
+
+field_list(Flds) ->
+    erl_parse:abstract(
+      lists:zip(Flds, lists:seq(2, length(Flds)+1))).
+
+
+
+f_get_2(R, Flds, L, Acc) ->
+    FName = fname(get, R, Acc),
+    {_, Types} = lists:keyfind(R, 1, Acc#pass1.record_types),
+    funspec(L, FName,
+             {t_atom(L, A), t_record(L, R), T}
+                 || {A, T} <- Types
+             ++ {t_list(L, t_attr(L, R, Acc)), t_record(L, R),
+                  t_list(L, t_any(L))}
+            ),
+    {function, L, FName, 2,
+     {clause, L, {var, L, 'Attrs'}, {var, L, 'R'},
+       {call, L, {atom, L, is_list}, {var, L, 'Attrs'}},
+       {lc, L, {call, L, {atom, L, FName}, {var, L, 'A'}, {var, L, 'R'}},
+         {generate, L, {var, L, 'A'}, {var, L, 'Attrs'}}}
+       } |
+      {clause, L, {atom, L, Attr}, {var, L, 'R'}, ,
+        {record_field, L, {var, L, 'R'}, R, {atom, L, Attr}}} ||
+          Attr <- Flds ++
+     {clause, L, {var, L, 'Attr'}, {var, L, 'R'}, ,
+       bad_record_op(L, FName, 'Attr', 'R')}
+    }.
+
+
+f_info(Acc, L) ->
+    Fname = list_to_atom(fname_prefix(info, Acc)),
+    funspec(L, Fname,
+             {t_atom(L, R),
+               t_list(L, t_attr(L, R, Acc))}
+              || R <- Acc#pass1.exports),
+     {function, L, Fname, 1,
+      {clause, L,
+        {var, L, 'RecName'}, ,
+        {call, L, {atom, L, Fname}, {var, L, 'RecName'}, {atom, L, fields}}
+       }}
+    .
+
+f_isrec_2(#pass1{records = Rs, exports = Es} = Acc, L) ->
+    Fname = list_to_atom(fname_prefix(is_record, Acc)),
+    Info = {R,length(As) + 1} || {R,As} <- Rs, lists:member(R, Es),
+    %% This contract is correct, but is ignored by Dialyzer because it
+     %% has overlapping domains:
+     %% funspec(L, Fname,
+     %%              {t_atom(L, R), t_record(L, R), t_atom(L, true)}
+     %%               || R <- Es ++
+     %%                  {t_any(L), t_any(L), t_atom(L, false)}),
+     %% This is less specific, but more useful to Dialyzer:
+     funspec(L, Fname, {t_any(L), t_any(L), t_boolean(L)}),
+     {function, L, Fname, 2,
+      lists:map(
+        fun({R, Ln}) ->
+                {clause, L,
+                 {atom, L, R}, {var, L, 'Rec'},
+                 {op,L,'==',
+                    {call, L, {atom,L,tuple_size},{var,L,'Rec'}},
+                    {integer, L, Ln}},
+                   {op,L,'==',
+                    {call,L,{atom,L,element},{integer,L,1},
+                                              {var,L,'Rec'}},
+                    {atom, L, R}},
+                 {atom, L, true}}
+        end, Info) ++
+          {clause, L, {var,L,'_'}, {var,L,'_'}, ,
+            {atom, L, false}}}
+    .
+
+
+f_info_2(Acc, L) ->
+    Fname = list_to_atom(fname_prefix(info, Acc)),
+    funspec(L, Fname,
+             lists:flatmap(
+               fun(Rname) ->
+                       Flds = get_flds(Rname, Acc),
+                       TRec = t_atom(L, Rname),
+                       {TRec, t_atom(L, size), t_integer(L, length(Flds)+1)},
+                        {TRec, t_atom(L, fields),
+                         t_list(L, t_attr(L, Rname, Acc))}
+               end, Acc#pass1.exports)),
+     {function, L, Fname, 2,
+      {clause, L,
+        {atom, L, R},
+         {var, L, 'Info'},
+        ,
+        {call, L, {atom, L, fname(info, R, Acc)}, {var, L, 'Info'}}} ||
+          R <- Acc#pass1.exports}
+    .
+
+f_info_3(Versions, L, Acc) ->
+    Fname = list_to_atom(fname_prefix(info, Acc)),
+    
+    {function, L, Fname, 3,
+     {clause, L,
+       {atom, L, R},
+        {var, L, 'Info'},
+        {string, L, V},
+       ,
+       {call, L, {atom, L, fname(info,R,V,Acc)}, {var, L, 'Info'}}} ||
+         {R,V} <- flat_versions(Versions)}
+    .
+
+f_pos_2(#pass1{exports = Es} = Acc, L) ->
+    Fname = list_to_atom(fname_prefix(pos, Acc)),
+    
+     funspec(L, Fname, lists:flatmap(
+                         fun(R) ->
+                                 Flds = get_flds(R, Acc),
+                                 %% PFlds = lists:zip(
+                                 %%           lists:seq(2, length(Flds)+1), Flds),
+                                 Ps = lists:seq(2, length(Flds)+1),
+                                 {t_atom(L, R), t_union(
+                                                    L, (t_atom(L, F)
+                                                         || F <- Flds
+                                                        ++ t_atom(L))),
+                                   t_union(L, (t_integer(L, P) || P <- Ps
+                                               ++ t_integer(L, 0)))}
+                                 %% {t_atom(L, R), t_atom(L, A),
+                                 %%   t_integer(L, P)} || {P,A} <- PFlds
+                                 %%     ++ {t_atom(L, R), t_any(L),
+                                 %%          t_integer(L, 0)}
+                         end, Es)),
+     {function, L, Fname, 2,
+      {clause, L,
+        {atom, L, R},
+         {var, L, 'Attr'},
+        ,
+        {call, L, {atom, L, fname(pos, R, Acc)}, {var, L, 'Attr'}}} ||
+          R <- Acc#pass1.exports}
+    .
+
+f_isrec_1(Acc, L) ->
+    Fname = list_to_atom(fname_prefix(is_record, Acc)),
+    %% This contract is correct, but is ignored by Dialyzer because it
+     %% has overlapping domains:
+     %% funspec(L, Fname,
+     %%              {t_record(L, R), t_atom(L, true)}
+     %%               || R <- Acc#pass1.exports
+     %%              ++ {t_any(L), t_atom(L, false)}),
+     %% This is less specific, but more useful to Dialyzer:
+     funspec(L, Fname, {t_any(L), t_boolean(L)}),
+     {function, L, Fname, 1,
+      {clause, L,
+        {var, L, 'X'},
+        ,
+        {'if',L,
+          {clause, L, , {call, L, {atom,L,is_record},
+                              {var,L,'X'},{atom,L,R}},
+            {atom,L,true}} || R <- Acc#pass1.exports ++
+              {clause,L, , {atom,L,true},
+                {atom, L, false}}}}
+      }
+    .
+
+
+
+f_get(#pass1{record_types = RTypes, exports = Es} = Acc, L) ->
+    Fname = list_to_atom(fname_prefix(get, Acc)),
+    funspec(L, Fname,
+             lists:append(
+               {t_atom(L, A), t_record(L, R), T}
+                 || {A, T} <- Types
+                || {R, Types} <- RTypes, lists:member(R, Es))
+             ++ {t_list(L, t_attr(L, R, Acc)), t_record(L, R),
+                  t_list(L, t_union(L, Ts || {_, Ts} <- Types))}
+                 || {R, Types} <- RTypes, lists:member(R, Es)
+            ),
+     {function, L, Fname, 2,
+      {clause, L,
+        {var, L, 'Attrs'},
+         {var, L, 'Rec'},
+        {call, L,
+           {atom, L, is_record},
+           {var, L, 'Rec'}, {atom, L, R}},
+        {call, L, {atom, L, fname(get, R, Acc)}, {var, L, 'Attrs'},
+                                                   {var, L, 'Rec'}}} ||
+          R <- Es}
+    .
+
+
+f_set(Acc, L) ->
+    Fname = list_to_atom(fname_prefix(set, Acc)),
+    funspec(L, Fname,
+             lists:map(
+               fun(Rname) ->
+                       TRec = t_record(L, Rname),
+                       {t_list(L, t_prop(L, Rname, Acc)), TRec, TRec}
+               end, Acc#pass1.exports)),
+     {function, L, Fname, 2,
+      {clause, L,
+        {var, L, 'Vals'},
+         {var, L, 'Rec'},
+        {call, L,
+           {atom, L, is_record},
+           {var, L, 'Rec'}, {atom, L, R}},
+        {call, L, {atom, L, fname(set, R, Acc)}, {var, L, 'Vals'},
+                                                   {var, L, 'Rec'}}} ||
+          R <- Acc#pass1.exports}
+    .
+
+f_fromlist(Acc, L) ->
+    Fname = list_to_atom(fname_prefix(fromlist, Acc)),
+    funspec(L, Fname,
+             lists:map(
+               fun(Rname) ->
+                       TRec = t_record(L, Rname),
+                       {t_list(L, t_prop(L, Rname, Acc)), TRec, TRec}
+               end, Acc#pass1.exports)),
+     {function, L, Fname, 2,
+      {clause, L,
+        {var, L, 'Vals'},
+         {var, L, 'Rec'},
+        {call, L,
+           {atom, L, is_record},
+           {var, L, 'Rec'}, {atom, L, R}},
+        {call, L, {atom, L, fname(fromlist, R, Acc)}, {var, L, 'Vals'},
+                                                        {var, L, 'Rec'}}} ||
+          R <- Acc#pass1.exports}
+    .
+
+f_frommap(Acc, L) ->
+    Fname = list_to_atom(fname_prefix(frommap, Acc)),
+    funspec(L, Fname,
+             lists:map(
+               fun(Rname) ->
+                       TRec = t_record(L, Rname),
+                       {t_map(L, Rname, Acc), TRec, TRec}
+               end, Acc#pass1.exports)),
+     {function, L, Fname, 2,
+      {clause, L,
+        {var, L, 'Vals'},
+         {var, L, 'Rec'},
+        {call, L,
+           {atom, L, is_record},
+           {var, L, 'Rec'}, {atom, L, R}},
+        {call, L, {atom, L, fname(frommap, R, Acc)}, {var, L, 'Vals'},
+                                                        {var, L, 'Rec'}}} ||
+          R <- Acc#pass1.exports}
+    .
+
+f_info_1(Rname, Acc, L) ->
+    Fname = fname(info, Rname, Acc),
+    Flds = get_flds(Rname, Acc),
+    funspec(L, Fname, {t_atom(L, fields),
+                         t_list(L, t_union(L, t_atom(L,F) || F <- Flds))},
+                        {t_atom(L, size), t_integer(L, length(Flds)+1)}),
+     {function, L, Fname, 1,
+      {clause, L, {atom, L, fields}, ,
+        {call, L, {atom, L, record_info},
+          {atom, L, fields}, {atom, L, Rname}}
+       },
+       {clause, L, {atom, L, size}, ,
+        {call, L, {atom, L, record_info},
+          {atom, L, size}, {atom, L, Rname}}
+       }}
+    .
+
+f_info_1(Rname, Acc, L, V) ->
+    f_info_1(recname(Rname, V), Acc, L).
+
+recname(Rname, V) ->
+    list_to_atom(lists:concat(Rname,"__",V)).
+
+f_convert(_Vsns, L, Acc) ->
+    {function, L, fname(convert, Acc), 2,
+     {clause, L,
+       {var, L, 'FromVsn'},
+        {var, L, 'Rec'},
+       {call,L,{atom, L, is_tuple},
+         {var, L, 'Rec'}},
+       {match, L, {var, L, 'Rname'},
+         {call, L, {atom, L, element},
+          {integer, L, 1}, {var, L, 'Rec'}}},
+        {match,L,{var,L,'Size'},
+         {call, L, {atom, L, fname(info, Acc)},
+          {var,L,'Rname'}, {atom, L, size}, {var,L,'FromVsn'}}},
+        {match, L, {var, L, 'Size'},
+         {call, L, {atom, L, size},
+          {var, L, 'Rec'}}},
+        %%
+        %% {match, L, {var, L, 'Old_fields'},
+        %%  {call, L, {atom,L,fname(info, Acc)},
+        %%     {var,L,'Rname'},{atom,L,fields},{var,L,'FromVsn'}}},
+        {match, L, {var, L, 'New_fields'},
+         {call, L, {atom,L,fname(info, Acc)},
+            {var,L,'Rname'},{atom,L,fields}}},
+
+        {match, L, {var, L, 'Values'},
+         {call, L, {remote, L, {atom, L, lists}, {atom, L, zip}},
+          {call, L, {atom,L,fname(info, Acc)},
+            {var,L,'Rname'},{atom,L,fields},{var,L,'FromVsn'}},
+           {call, L, {atom, L, 'tl'},
+            {call, L, {atom, L, tuple_to_list},
+              {var, L, 'Rec'}}}}},
+        {match, L, {tuple, L, {var, L, 'Matching'},
+                               {var, L, 'Discarded'}},
+         {call, L, {remote, L, {atom, L, lists}, {atom, L, partition}},
+          {'fun',L,
+            {clauses,
+             {clause,L,
+               {tuple,L,{var,L,'F'},{var,L,'_'}},
+               ,
+               {call,L,
+                 {remote,L,{atom,L,lists},{atom,L,member}},
+                 {var, L, 'F'}, {var,L,'New_fields'}}}}},
+           {var, L, 'Values'}}},
+        {tuple, L, {call, L, {atom, L, fname(set, Acc)},
+                     {var, L, 'Matching'},
+                      {call, L, {atom, L, fname(new, Acc)},
+                       {var, L, 'Rname'}}},
+                    {var, L, 'Discarded'}}
+      }}.
+
+f_lens_(#pass1{exports = Es} = Acc, L) ->
+    Fname = fname(lens, Acc),
+    
+     funspec(L, Fname,  {t_attr(L, Rname, Acc), t_atom(L, Rname),
+                          t_tuple(L, t_fun(L, t_record(L, Rname), t_any(L)),
+                                      t_fun(L, t_any(L),
+                                                t_record(L, Rname),
+                                            t_record(L, Rname)))}
+                         || Rname <- Es),
+     {function, L, Fname, 2,
+      {clause, L, {var, L, 'Attr'}, {atom, L, Re}, ,
+        {call, L, {atom, L, fname(lens, Re, Acc)}, {var, L, 'Attr'}}}
+         || Re <- Es}
+    .
+
+f_lens_1(Rname, Flds, L, Acc) ->
+    Fname = fname(lens, Rname, Acc),
+    funspec(L, Fname,  {t_attr(L, Rname, Acc),
+                          t_tuple(L, t_fun(L, t_record(L, Rname), t_any(L)),
+                                      t_fun(L, t_any(L),
+                                                t_record(L, Rname),
+                                            t_record(L, Rname)))} ),
+     {function, L, Fname, 1,
+      {clause, L, {atom, L, Attr}, ,
+        {tuple, L, {'fun', L,
+                      {clauses,
+                       {clause, L, {var, L, 'R'}, ,
+                         {call, L, {atom, L, fname(get, Rname, Acc)},
+                           {atom, L, Attr}, {var, L, 'R'}}}
+                       }},
+                     {'fun', L,
+                      {clauses,
+                       {clause, L, {var, L, 'X'}, {var, L, 'R'}, ,
+                         {call, L, {atom, L, fname(set, Rname, Acc)},
+                           {cons,L, {tuple, L, {atom, L, Attr},
+                                                 {var, L, 'X'}}, {nil,L}},
+                            {var, L, 'R'}}
+                        }}}
+                    }} || Attr <- Flds ++
+          {clause, L, {var, L, 'Attr'}, ,
+           bad_record_op(L, Fname, 'Attr')}
+     }.
+
+%%% ========== generic parse_transform stuff ==============
+
+-spec context(atom(), #context{}) ->
+    term().
+%% @hidden
+context(module,   #context{module = M}  ) -> M;
+context(function, #context{function = F}) -> F;
+context(arity,    #context{arity = A}   ) -> A.
+
+
+
+rpt_error(Reason, Fun, Info) ->
+    Fmt = lists:flatten(
+            "*** ERROR in parse_transform function:~n"
+             "*** Reason     = ~p~n",
+             "*** Location: ~p~n",
+             "*** ~10w = ~p~n" || _ <- Info),
+    Args = Reason, Fun |
+            lists:foldr(
+              fun({K,V}, Acc) ->
+                      K, V | Acc
+              end, , Info),
+    io:format(Fmt, Args).
+
+-spec format_error({atom(), term()}) ->
+    iolist().
+%% @hidden
+format_error({_Cat, Error}) ->
+    Error.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/src/parse_trans.app.src Added

@@ -0,0 +1,32 @@
+%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% --------------------------------------------------
+%% 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.
+%% --------------------------------------------------
+%%
+%% @author Ulf Wiger <ulf@wiger.net>
+%% @doc Parse transform library.
+%% @end
+{application, parse_trans,
+    {description, "Parse transform library"},
+        {vsn, git},
+        {registered, },
+        {applications, kernel, stdlib, syntax_tools},
+  {env, },
+
+  {maintainers, "Ulf Wiger"},
+  {licenses, "Apache 2.0"},
+  {links, {"Github", "https://github.com/uwiger/parse_trans"}}
+ }.
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/src/parse_trans.erl Added

@@ -0,0 +1,968 @@
+%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% --------------------------------------------------
+%% 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.
+%% --------------------------------------------------
+%% File    : parse_trans.erl
+%% @author  : Ulf Wiger <ulf@wiger.net>
+%% @end
+%% Description :
+%%
+%% Created : 13 Feb 2006 by Ulf Wiger <ulf@wiger.net> (then Ericsson)
+%%%-------------------------------------------------------------------
+
+%% @doc Generic parse transform library for Erlang.
+%%
+%% <p>...</p>
+%%
+%% @end
+
+-module(parse_trans).
+
+-compile({no_auto_import,error/3}).
+
+-export(plain_transform/2).
+
+-export(
+         inspect/4,
+         transform/4,
+         depth_first/4,
+         revert/1,
+         revert_form/1,
+         format_exception/2, format_exception/3,
+         return/2
+        ).
+
+-export(
+         error/3,
+         format_error/1
+        ).
+
+-export(
+         initial_context/2,
+         do_inspect/4,
+         do_transform/4,
+         do_depth_first/4,
+         top/3
+        ).
+
+-export(do_insert_forms/4,
+         replace_function/4,
+         replace_function/5,
+         export_function/3).
+
+-export(
+         context/2,
+         get_pos/1,
+         get_file/1,
+         get_module/1,
+         get_attribute/2,
+         get_attribute/3,
+         get_orig_syntax_tree/1,
+         function_exists/3,
+         optionally_pretty_print/3,
+         pp_src/2,
+         pp_beam/1, pp_beam/2
+        ).
+
+-import(erl_syntax, atom_value/1,
+                     attribute_name/1,
+                     attribute_arguments/1,
+                     string_value/1,
+                     type/1
+                    ).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-record(context, {module,
+                  function,
+                  arity,
+                  file,
+                  options}).
+
+%% Useful macros for debugging and error reporting
+-define(HERE, {?MODULE, ?LINE}).
+
+-define(DUMMY_LINE, 9999).
+
+-define(ERROR(R, F, I, Trace),
+        begin
+            rpt_error(R, F, I, Trace),
+            throw({error,get_pos(I),{R, Trace}})
+        end).
+
+-export_type(forms/0).
+
+%% Typedefs
+-type form()    :: any().
+-type forms()   :: form().
+-type options() :: {atom(), any()}.
+-type type()    :: atom().
+-type xform_f_rec() :: fun((type(), form(), #context{}, Acc) ->
+                                  {form(), boolean(), Acc}
+                                      | {forms(), form(), forms(), boolean(), Acc}).
+-type xform_f_df() :: fun((type(), form(), #context{}, Acc) ->
+                                 {form(), Acc}
+                                     | {forms(), form(), forms(), Acc}).
+-type insp_f()  :: fun((type(), form(), #context{}, A) -> {boolean(), A}).
+
+
+%%% @spec (Reason, Form, Info) -> throw()
+%%% Info = {Key,Value}
+%%%
+%%% @doc
+%%% <p>Used to report errors detected during the parse transform.</p>
+%%% @end
+%%%
+-spec error(string(), any(), {any(),any()}) ->
+    none().
+error(R, _F, I) ->
+    ST = erlang:process_info(self(), current_stacktrace),
+    % rpt_error(R, F, I, ST),
+    throw({error,get_pos(I),{R, ST}}).
+
+%% @spec plain_transform(Fun, Forms) -> forms()
+%% Fun = function()
+%% Forms = forms()
+%%
+%% @doc
+%% Performs a transform of `Forms' using the fun `Fun(Form)'. `Form' is always
+%% an Erlang abstract form, i.e. it is not converted to syntax_tools
+%% representation. The intention of this transform is for the fun to have a
+%% catch-all clause returning `continue'. This will ensure that it stays robust
+%% against additions to the language.
+%%
+%% `Fun(Form)' must return either of the following:
+%%
+%% * `NewForm' - any valid form
+%% * `continue' - dig into the sub-expressions of the form
+%% * `{done, NewForm}' - Replace `Form' with `NewForm'; return all following
+%%   forms unchanged
+%% * `{error, Reason}' - Abort transformation with an error message.
+%%
+%% Example - This transform fun would convert all instances of `P ! Msg' to
+%% `gproc:send(P, Msg)':
+%% <pre>
+%% parse_transform(Forms, _Options) -&gt;
+%%     parse_trans:plain_transform(fun do_transform/1, Forms).
+%%
+%% do_transform({'op', L, '!', Lhs, Rhs}) -&gt;
+%%      NewLhs = parse_trans:plain_transform(fun do_transform/1, Lhs),
+%%      NewRhs = parse_trans:plain_transform(fun do_transform/1, Rhs),
+%%     {call, L, {remote, L, {atom, L, gproc}, {atom, L, send}},
+%%      NewLhs, NewRhs};
+%% do_transform(_) -&gt;
+%%     continue.
+%% </pre>
+%% @end
+%%
+plain_transform(Fun, Forms) when is_function(Fun, 1), is_list(Forms) ->
+    plain_transform1(Fun, Forms).
+
+plain_transform1(_, ) ->
+    ;
+plain_transform1(Fun, F|Fs) when is_atom(element(1,F)) ->
+    case Fun(F) of
+        skip ->
+            plain_transform1(Fun, Fs);
+        continue ->
+            list_to_tuple(plain_transform1(Fun, tuple_to_list(F))) |
+             plain_transform1(Fun, Fs);
+        {done, NewF} ->
+            NewF | Fs;
+        {error, Reason} ->
+            erlang:error(Reason, F, {form, F});
+        NewF when is_tuple(NewF) ->
+            NewF | plain_transform1(Fun, Fs)
+    end;
+plain_transform1(Fun, L|Fs) when is_list(L) ->
+    plain_transform1(Fun, L) | plain_transform1(Fun, Fs);
+plain_transform1(Fun, F|Fs) ->
+    F | plain_transform1(Fun, Fs);
+plain_transform1(_, F) ->
+    F.
+
+
+%% @spec (list()) -> integer()
+%%
+%% @doc
+%% Tries to retrieve the line number from an erl_syntax form. Returns a
+%% (very high) dummy number if not successful.
+%% @end
+%%
+-spec get_pos(list()) ->
+    erl_anno:location().
+get_pos(I) when is_list(I) ->
+    case proplists:get_value(form, I) of
+        undefined ->
+            ?DUMMY_LINE;
+        Form ->
+            Anno = erl_syntax:get_pos(Form),
+            erl_anno:location(Anno)
+    end.
+
+
+%%% @spec (Forms) -> string()
+%%% @doc
+%%% Returns the name of the file being compiled.
+%%% @end
+%%%
+-spec get_file(forms()) ->
+    string().
+get_file(Forms) ->
+    string_value(hd(get_attribute(file, Forms, erl_syntax:string("undefined")))).
+
+
+
+%%% @spec (Forms) -> atom()
+%%% @doc
+%%% Returns the name of the module being compiled.
+%%% @end
+%%%
+-spec get_module(any()) ->
+    atom().
+get_module(Forms) ->
+    atom_value(hd(get_attribute(module, Forms, erl_syntax:atom(undefined)))).
+
+
+
+%%% @spec (A, Forms) -> any()
+%%% A = atom()
+%%%
+%%% @doc
+%%% Returns the value of the first occurrence of attribute A.
+%%% @end
+%%%
+-spec get_attribute(atom(), any()) ->
+                           'none' | erl_syntax:syntaxTree().
+%%
+get_attribute(A, Forms) -> get_attribute(A,Forms,erl_syntax:atom(undefined)).
+get_attribute(A, Forms, Undef) ->
+    case find_attribute(A, Forms) of
+        false ->
+            Undef;
+        Other ->
+            Other
+    end.
+
+find_attribute(A, F|Forms) ->
+    case type(F) == attribute
+        andalso atom_value(attribute_name(F)) == A of
+        true ->
+            attribute_arguments(F);
+        false ->
+            find_attribute(A, Forms)
+    end;
+find_attribute(_, ) ->
+    false.
+
+%% @spec (Fname::atom(), Arity::integer(), Forms) -> boolean()
+%%
+%% @doc
+%% Checks whether the given function is defined in Forms.
+%% @end
+%%
+-spec function_exists(atom(), integer(), forms()) ->
+    boolean().
+function_exists(Fname, Arity, Forms) ->
+    Fns = proplists:get_value(
+            functions, erl_syntax_lib:analyze_forms(Forms), ),
+    lists:member({Fname,Arity}, Fns).
+
+
+%%% @spec (Forms, Options) -> #context{}
+%%%
+%%% @doc
+%%% Initializes a context record. When traversing through the form
+%%% list, the context is updated to reflect the current function and
+%%% arity. Static elements in the context are the file name, the module
+%%% name and the options passed to the transform function.
+%%% @end
+%%%
+-spec initial_context(forms(), options()) ->
+    #context{}.
+initial_context(Forms, Options) ->
+    File = get_file(Forms),
+    Module = get_module(Forms),
+    #context{file = File,
+             module = Module,
+             options = Options}.
+
+%%% @spec (Fun, Acc, Forms, Options) -> {TransformedForms, NewAcc}
+%%% Fun = function()
+%%% Options = {Key,Value}
+%%%
+%%% @doc
+%%% Makes one pass
+%%% @end
+-spec transform(xform_f_rec(), Acc, forms(), options()) ->
+    {forms(), Acc} | {error, list()}.
+transform(Fun, Acc, Forms, Options) when is_function(Fun, 4) ->
+    do(fun do_transform/4, Fun, Acc, Forms, Options).
+
+-spec depth_first(xform_f_df(), Acc, forms(), options()) ->
+    {forms(), Acc} | {error, list()}.
+depth_first(Fun, Acc, Forms, Options) when is_function(Fun, 4) ->
+    do(fun do_depth_first/4, Fun, Acc, Forms, Options).
+
+do(Transform, Fun, Acc, Forms, Options) ->
+    Context = initial_context(Forms, Options),
+    File = Context#context.file,
+    try Transform(Fun, Acc, Forms, Context) of
+        {NewForms, Acc1} when is_list(NewForms) ->
+            NewForms1 = optionally_renumber(NewForms, Options),
+            optionally_pretty_print(NewForms1, Options, Context),
+            {NewForms1, Acc1}
+    catch
+        error:Reason:ST ->
+            {error,
+             {File, {?DUMMY_LINE, ?MODULE,
+                       {Reason, ST}}}};
+        throw:{error, Ln, What} ->
+            {error, {error, {Ln, ?MODULE, What}}}
+    end.
+
+-spec top(function(), forms(), list()) ->
+    forms() | {error, term()}.
+top(F, Forms, Options) ->
+    Context = initial_context(Forms, Options),
+    File = Context#context.file,
+    try F(Forms, Context) of
+        {error, Reason} -> {error, Reason};
+        NewForms when is_list(NewForms) ->
+            NewForms1 = optionally_renumber(NewForms, Options),
+            optionally_pretty_print(NewForms1, Options, Context),
+            NewForms1
+    catch
+        error:Reason:ST ->
+            {error,
+             {File, {?DUMMY_LINE, ?MODULE,
+                       {Reason, ST}}}};
+        throw:{error, Ln, What} ->
+            {error, {File, {Ln, ?MODULE, What}}, }
+    end.
+
+replace_function(F, Arity, NewForm, Forms) ->
+    replace_function(F, Arity, NewForm, Forms, ).
+
+replace_function(F, Arity, NewForm, Forms, Opts) ->
+    {NewForms, _} =
+        do_transform(
+          fun(function, Form, _Ctxt, Acc) ->
+                  case erl_syntax:revert(Form) of
+                      {function, _, F, Arity, _} = RevForm ->
+                          {, NewForm, with_original_f(RevForm, Opts),
+                           false, Acc};
+                      _ ->
+                          {Form, false, Acc}
+                  end;
+             (_, Form, _Ctxt, Acc) ->
+                  {Form, false, Acc}
+          end, false, Forms, initial_context(Forms, )),
+    revert(maybe_export_renamed(NewForms, Arity, Opts)).
+
+with_original_f({function,_,_,_,_} = Form, Opts) ->
+    case lists:keyfind(rename_original, 1, Opts) of
+        {_, NewName} when is_atom(NewName) ->
+            setelement(3, Form, NewName);
+        _ ->
+            
+    end.
+
+maybe_export_renamed(Forms, Arity, Opts) ->
+    case lists:keyfind(rename_original, 1, Opts) of
+        {_, NewName} when is_atom(NewName) ->
+            export_function(NewName, Arity, Forms);
+        _ ->
+            Forms
+    end.
+
+export_function(F, Arity, Forms) ->
+    do_insert_forms(above, {attribute, 1, export, {F, Arity}}, Forms,
+                    initial_context(Forms, )).
+
+-spec do_insert_forms(above | below, forms(), forms(), #context{}) ->
+    forms().
+do_insert_forms(above, Insert, Forms, Context) when is_list(Insert) ->
+    {NewForms, _} =
+        do_transform(
+          fun(function, F, _Ctxt, false) ->
+                  {Insert, F, , _Recurse = false, true};
+             (_, F, _Ctxt, Acc) ->
+                  {F, _Recurse = false, Acc}
+          end, false, Forms, Context),
+    NewForms;
+do_insert_forms(below, Insert, Forms, _Context) when is_list(Insert) ->
+    insert_below(Forms, Insert).
+
+
+insert_below(F|Rest, Insert) ->
+    case type(F) of
+        eof_marker ->
+            %% In the unlikely case someone misused eof_marker
+            Insert ++ F | Rest;
+        _ ->
+            F|insert_below(Rest, Insert)
+    end.
+
+-spec optionally_pretty_print(forms(), options(), #context{}) ->
+    ok.
+optionally_pretty_print(Result, Options, Context) ->
+    DoPP = option_value(pt_pp_src, Options, Result),
+    DoLFs = option_value(pt_log_forms, Options, Result),
+    File = Context#context.file,
+    if DoLFs ->
+            Out1 = outfile(File, forms),
+            {ok,Fd} = file:open(Out1, write),
+            try lists:foreach(fun(F) -> io:fwrite(Fd, "~p.~n", F) end, Result)
+            after
+                ok = file:close(Fd)
+            end;
+       true -> ok
+    end,
+    if DoPP ->
+            Out2 = outfile(File, pp),
+            pp_src(Result, Out2),
+            io:fwrite("Pretty-printed in ~p~n", Out2);
+       true -> ok
+    end.
+
+optionally_renumber(Result, Options) ->
+    case option_value(pt_renumber, Options, Result) of
+        true ->
+            io:fwrite("renumbering...~n", ),
+            Rev = revert(Result),
+            renumber_(Rev);
+        false ->
+            Result
+    end.
+
+renumber_(L) when is_list(L) ->
+    {Result, _} = renumber_(L, 1),
+    Result.
+
+renumber_(L, Acc) when is_list(L) ->
+    lists:mapfoldl(fun renumber_/2, Acc, L);
+renumber_(T, Prev) when is_tuple(T) ->
+    case is_form(T) of
+        true ->
+            New = Prev+1,
+            NewE2 = update_line(element(2, T), New),
+            T1 = setelement(2, T, NewE2),
+            {Res, NewAcc} = renumber_(tuple_to_list(T1), New),
+            {list_to_tuple(Res), NewAcc};
+        false ->
+            L = tuple_to_list(T),
+            {Res, NewAcc} = renumber_(L, Prev),
+            {list_to_tuple(Res), NewAcc}
+    end;
+renumber_(X, Prev) ->
+    {X, Prev}.
+
+is_form(T) when element(1,T)==type -> true;
+is_form(T) ->
+    try erl_syntax:type(T),
+         true
+    catch
+        error:_ ->
+            false
+    end.
+
+update_line(Element2, Line) ->
+    case erl_anno:is_anno(Element2) of
+        true ->
+            erl_anno:set_line(Line, Element2);
+        false -> % location
+            A = erl_anno:new(Element2),
+            NewA = erl_anno:set_line(Line, A),
+            erl_anno:location(NewA)
+    end.
+
+option_value(Key, Options, Result) ->
+    case proplists:get_value(Key, Options) of
+        undefined ->
+            case find_attribute(Key,Result) of
+                Expr ->
+                    type(Expr) == atom andalso
+                        atom_value(Expr) == true;
+                _ ->
+                    false
+            end;
+        V when is_boolean(V) ->
+            V
+    end.
+
+
+%%% @spec (Fun, Forms, Acc, Options) -> NewAcc
+%%% Fun = function()
+%%% @doc
+%%% Equivalent to do_inspect(Fun,Acc,Forms,initial_context(Forms,Options)).
+%%% @end
+%%%
+-spec inspect(insp_f(), A, forms(), options()) ->
+    A.
+inspect(F, Acc, Forms, Options) ->
+    Context = initial_context(Forms, Options),
+    do_inspect(F, Acc, Forms, Context).
+
+
+
+outfile(File, Type) ->
+    "lre." ++ RevF = lists:reverse(File),
+    lists:reverse(RevF) ++ ext(Type).
+
+ext(pp)    -> ".xfm";
+ext(forms) -> ".xforms".
+
+%% @spec (Forms, Out::filename()) -> ok
+%%
+%% @doc Pretty-prints the erlang source code corresponding to Forms into Out
+%%
+-spec pp_src(forms(), string()) ->
+    ok.
+pp_src(Res, F) ->
+    parse_trans_pp:pp_src(Res, F).
+%%     Str = io_lib:fwrite("~s~n",
+%%                          lists:flatten(erl_pp:form(Fm) ||
+%%                                             Fm <- revert(Res))),
+%%     file:write_file(F, list_to_binary(Str)).
+
+%% @spec (Beam::file:filename()) -> string() | {error, Reason}
+%%
+%% @doc
+%% Reads debug_info from the beam file Beam and returns a string containing
+%% the pretty-printed corresponding erlang source code.
+%% @end
+-spec pp_beam(file:filename()) -> ok.
+pp_beam(Beam) ->
+    parse_trans_pp:pp_beam(Beam).
+
+%% @spec (Beam::filename(), Out::filename()) -> ok | {error, Reason}
+%%
+%% @doc
+%% Reads debug_info from the beam file Beam and pretty-prints it as
+%% Erlang source code, storing it in the file Out.
+%% @end
+%%
+-spec pp_beam(file:filename(), file:filename()) -> ok.
+pp_beam(F, Out) ->
+    parse_trans_pp:pp_beam(F, Out).
+
+
+%%% @spec (File) -> Forms
+%%%
+%%% @doc
+%%% <p>Fetches a Syntax Tree representing the code before pre-processing,
+%%% that is, including record and macro definitions. Note that macro
+%%% definitions must be syntactically complete forms (this function
+%%% uses epp_dodger).</p>
+%%% @end
+%%%
+-spec get_orig_syntax_tree(string()) ->
+    forms().
+get_orig_syntax_tree(File) ->
+    case epp_dodger:parse_file(File) of
+        {ok, Forms} ->
+            Forms;
+        Err ->
+            erlang:error(error_reading_file, ?HERE, {File,Err})
+    end.
+
+%%% @spec (Tree) -> Forms
+%%%
+%%% @doc Reverts back from Syntax Tools format to Erlang forms.
+%%% <p>Note that the Erlang forms are a subset of the Syntax Tools
+%%% syntax tree, so this function is safe to call even on a list of
+%%% regular Erlang forms.</p>
+%%% <p>Note2: R16B03 introduced a bug, where forms produced by
+%%% `erl_syntax:revert/1' (specifically, implicit funs) could crash the linter.
+%%% This function works around that limitation, after first verifying that it's
+%%% necessary to do so. Use of the workaround can be forced with the help of
+%%% the `parse_trans' environment variable {revert_workaround, true}. This
+%%% variable will be removed when R16B03 is no longer 'supported'.</p>
+%%% @end
+%%%
+-spec revert(forms()) ->
+    forms().
+revert(Tree) when is_list(Tree) ->
+    WorkAround = needs_revert_workaround(),
+    revert_form(T, WorkAround) || T <- lists:flatten(Tree).
+
+%%% @spec (Tree) -> Form
+%%%
+%%% @doc Reverts a single form back from Syntax Tools format to Erlang forms.
+%%% <p>`erl_syntax:revert/1' has had a long-standing bug where it doesn't
+%%% completely revert attribute forms. This function deals properly with those
+%%% cases.</p>
+%%% <p>Note that the Erlang forms are a subset of the Syntax Tools
+%%% syntax tree, so this function is safe to call even on a regular Erlang
+%%% form.</p>
+%%% <p>Note2: R16B03 introduced a bug, where forms produced by
+%%% `erl_syntax:revert/1' (specifically, implicit funs) could crash the linter.
+%%% This function works around that limitation, after first verifying that it's
+%%% necessary to do so. Use of the workaround can be forced with the help of
+%%% the `parse_trans' environment variable {revert_workaround, true}. This
+%%% variable will be removed when R16B03 is no longer 'supported'.</p>
+%%% @end
+revert_form(F) ->
+    revert_form(F, needs_revert_workaround()).
+
+revert_form(F, W) ->
+    case erl_syntax:revert(F) of
+        {attribute,L,A,Tree} when element(1,Tree) == tree ->
+            {attribute,L,A,erl_syntax:revert(Tree)};
+        Result ->
+            if W -> fix_impl_fun(Result);
+               true -> Result
+            end
+    end.
+
+fix_impl_fun({'fun',L,{function,{atom,_,Fn},{integer,_,Ay}}}) ->
+    {'fun',L,{function,Fn,Ay}};
+fix_impl_fun({'fun',L,{function,{atom,_,M},{atom,_,Fn},{integer,_,Ay}}}) ->
+    {'fun',L,{function,M,Fn,Ay}};
+fix_impl_fun(T) when is_tuple(T) ->
+    list_to_tuple(fix_impl_fun(F) || F <- tuple_to_list(T));
+fix_impl_fun(H|T) ->
+    fix_impl_fun(H) | fix_impl_fun(T);
+fix_impl_fun(X) ->
+    X.
+
+needs_revert_workaround() ->
+    case application:get_env(parse_trans,revert_workaround) of
+        {ok, Bool} when is_boolean(Bool) -> Bool;
+        _ ->
+            Res = try lint_reverted()
+                  catch
+                      error:_ ->
+                          true
+                  end,
+            application:set_env(parse_trans,revert_workaround,Res),
+            Res
+    end.
+
+lint_reverted() ->
+    Ts = {attribute,1,module,m},
+          {attribute,2,export,{f,0}},
+          erl_syntax:function(erl_syntax:atom(f),
+                              erl_syntax:clause(
+                                 ,
+                                 erl_syntax:implicit_fun(
+                                    erl_syntax:atom(f),
+                                    erl_syntax:integer(0)))),
+    Rev = erl_syntax:revert_forms(Ts),
+    erl_lint:module(Rev),
+    false.
+
+
+%%% @spec (Forms, Context) -> Forms | {error,Es,Ws} | {warnings,Forms,Ws}
+%%%
+%%% @doc Checks the transformed result for errors and warnings
+%%% <p>Errors and warnings can be produced from inside a parse transform, with
+%%% a bit of care. The easiest way is to simply produce an `{error, Err}' or
+%%% `{warning, Warn}' form in place. This function finds such forms, and
+%%% removes them from the form list (otherwise, the linter will crash), and
+%%% produces a return value that the compiler can work with.</p>
+%%%
+%%% The format of the `error' and `warning' "forms" must be
+%%% `{Tag, {Pos, Module, Info}}', where:
+%%% <ul>
+%%% <li>`Tag :: error | warning'</li>
+%%% <li>`Pos :: LineNumber | {LineNumber, ColumnNumber}'</li>
+%%% <li>`Module' is a module that exports a corresponding
+%%%    `Module:format_error(Info)'</li>
+%%% <li>`Info :: term()'</li>
+%%% </ul>
+%%% <p>If the error is in the form of a caught exception, `Info' may be produced
+%%% using the function {@link format_exception/2}.</p>
+%%% @end
+return(Forms, Context) ->
+    JustForms = plain_transform(
+                  fun({error,_}) -> skip;
+                     ({warning,_}) -> skip;
+                     (_) -> continue
+                  end, Forms),
+    File = case Context of
+               #context{file = F} -> F;
+               _ -> "parse_transform"
+           end,
+    case {find_forms(Forms, error), find_forms(Forms, warning)} of
+        {, } ->
+            JustForms;
+        {, Ws} ->
+            {warnings, JustForms, {File, W || {warning,W} <- Ws}};
+        {Es, Ws} ->
+            {error,
+             {File, E || {error,E} <- Es},
+             {File, W || {warning,W} <- Ws}}
+    end.
+
+find_forms(H|T, Tag) when element(1, H) == Tag ->
+    H|find_forms(T, Tag);
+find_forms(H|T, Tag) when is_tuple(H) ->
+    find_forms(tuple_to_list(H), Tag) ++ find_forms(T, Tag);
+find_forms(H|T, Tag) when is_list(H) ->
+    find_forms(H, Tag) ++ find_forms(T, Tag);
+find_forms(_|T, Tag) ->
+    find_forms(T, Tag);
+find_forms(, _) ->
+    .
+
+
+-define(LINEMAX, 5).
+-define(CHAR_MAX, 60).
+
+%%% @spec (Class, Reason) -> String
+%%% @equiv format_exception(Class, Reason, 4)
+format_exception(Class, Reason) ->
+    format_exception(Class, Reason, 4).
+
+%%% @spec (Class, Reason, Lines) -> String
+%%% Class = error | throw | exit
+%%% Reason = term()
+%%% Lines = integer() | infinity
+%%%
+%%% @doc Produces a few lines of user-friendly formatting of exception info
+%%%
+%%% This function is very similar to the exception pretty-printing in the shell,
+%%% but returns a string that can be used as error info e.g. by error forms
+%%% handled by {@link return/2}. By default, the first 4 lines of the
+%%% pretty-printed exception info are returned, but this can be controlled
+%%% with the `Lines' parameter.
+%%%
+%%% Note that a stacktrace is generated inside this function.
+%%% @end
+format_exception(Class, Reason, Lines) ->
+    {current_stacktrace, ST} = erlang:process_info(self(), current_stacktrace),
+    PrintF = fun(Term, I) ->
+                     io_lib_pretty:print(
+                       Term, I, columns(), ?LINEMAX, ?CHAR_MAX,
+                       record_print_fun())
+             end,
+    StackF = fun(_, _, _) -> false end,
+    lines(Lines, erl_error:format_exception(
+                   1, Class, Reason, ST, StackF, PrintF)).
+
+columns() ->
+    case io:columns() of
+        {ok, N} -> N;
+        _-> 80
+    end.
+
+lines(infinity, S) -> S;
+lines(N, S) ->
+    L1|Ls = re:split(iolist_to_binary(S), <<"\n">>, {return,list}),
+    L1|"\n" ++ L || L <- lists:sublist(Ls, 1, N-1).
+
+record_print_fun() ->
+    fun(_,_) -> no end.
+
+%%% @spec (Attr, Context) -> any()
+%%% Attr = module | function | arity | options
+%%%
+%%% @doc
+%%% Accessor function for the Context record.
+%%% @end
+-spec context(atom(), #context{}) ->
+    term().
+context(module,   #context{module = M}  ) -> M;
+context(function, #context{function = F}) -> F;
+context(arity,    #context{arity = A}   ) -> A;
+context(file,     #context{file = F}    ) -> F;
+context(options,  #context{options = O} ) -> O.
+
+
+-spec do_inspect(insp_f(), term(), forms(), #context{}) ->
+    term().
+do_inspect(F, Acc, Forms, Context) ->
+    F1 =
+        fun(Form, Acc0) ->
+                Type = type(Form),
+                {Recurse, Acc1} = apply_F(F, Type, Form, Context, Acc0),
+                if_recurse(
+                  Recurse, Form, _Else = Acc1,
+                  fun(ListOfLists) ->
+                          lists:foldl(
+                            fun(L, AccX) ->
+                                    do_inspect(
+                                      F, AccX, L,
+                                      update_context(Form, Context))
+                            end, Acc1, ListOfLists)
+                  end)
+        end,
+    lists:foldl(F1, Acc, Forms).
+
+if_recurse(true, Form, Else, F) -> recurse(Form, Else, F);
+if_recurse(false, _, Else, _)   -> Else.
+
+recurse(Form, Else, F) ->
+    case erl_syntax:subtrees(Form) of
+         ->
+            Else;
+        _|_ = ListOfLists ->
+            F(ListOfLists)
+    end.
+
+-spec do_transform(xform_f_rec(), term(), forms(), #context{}) ->
+    {forms(), term()}.
+do_transform(F, Acc, Forms, Context) ->
+    Rec = fun do_transform/4, % this function
+    F1 =
+        fun(Form, Acc0) ->
+                {Before1, Form1, After1, Recurse, Acc1} =
+                    this_form_rec(F, Form, Context, Acc0),
+                if Recurse ->
+                        {NewForm, NewAcc} =
+                            enter_subtrees(Form1, F,
+                                update_context(Form1, Context), Acc1, Rec),
+                        {Before1, NewForm, After1, NewAcc};
+                   true ->
+                        {Before1, Form1, After1, Acc1}
+                end
+        end,
+    mapfoldl(F1, Acc, Forms).
+
+-spec do_depth_first(xform_f_df(), term(), forms(), #context{}) ->
+    {forms(), term()}.
+do_depth_first(F, Acc, Forms, Context) ->
+    Rec = fun do_depth_first/4,  % this function
+    F1 =
+        fun(Form, Acc0) ->
+                {NewForm, NewAcc} =
+                    enter_subtrees(Form, F, Context, Acc0, Rec),
+                this_form_df(F, NewForm, Context, NewAcc)
+        end,
+    mapfoldl(F1, Acc, Forms).
+
+enter_subtrees(Form, F, Context, Acc, Recurse) ->
+    case erl_syntax:subtrees(Form) of
+         ->
+            {Form, Acc};
+        _|_ = ListOfLists ->
+            {NewListOfLists, NewAcc} =
+                mapfoldl(
+                  fun(L, AccX) ->
+                          Recurse(F, AccX, L, Context)
+                  end, Acc, ListOfLists),
+            NewForm =
+                erl_syntax:update_tree(
+                  Form, NewListOfLists),
+            {NewForm, NewAcc}
+    end.
+
+
+this_form_rec(F, Form, Context, Acc) ->
+    Type = type(Form),
+    case apply_F(F, Type, Form, Context, Acc) of
+        {Form1x, Rec1x, A1x} ->
+            {, Form1x, , Rec1x, A1x};
+        {_Be1, _F1, _Af1, _Rec1, _Ac1} = Res1 ->
+            Res1
+    end.
+this_form_df(F, Form, Context, Acc) ->
+    Type = type(Form),
+    case apply_F(F, Type, Form, Context, Acc) of
+        {Form1x, A1x} ->
+            {, Form1x, , A1x};
+        {_Be1, _F1, _Af1, _Ac1} = Res1 ->
+            Res1
+    end.
+
+apply_F(F, Type, Form, Context, Acc) ->
+    try F(Type, Form, Context, Acc)
+    catch
+        error:Reason:ST ->
+            ?ERROR(Reason,
+                   ?HERE,
+                   {type, Type},
+                    {context, Context},
+                    {acc, Acc},
+                    {apply_f, F},
+                    {form, Form},
+                    {stack, ST},
+                   ST)
+    end.
+
+
+update_context(Form, Context0) ->
+    case type(Form) of
+        function ->
+            {Fun, Arity} =
+                erl_syntax_lib:analyze_function(Form),
+            Context0#context{function = Fun,
+                             arity = Arity};
+        _ ->
+            Context0
+    end.
+
+
+
+
+%%% Slightly modified version of lists:mapfoldl/3
+%%% Here, F/2 is able to insert forms before and after the form
+%%% in question. The inserted forms are not transformed afterwards.
+mapfoldl(F, Accu0, Hd|Tail) ->
+    {Before, Res, After, Accu1} =
+        case F(Hd, Accu0) of
+            {Be, _, Af, _} = Result when is_list(Be), is_list(Af) ->
+                Result;
+            {R1, A1} ->
+                {, R1, , A1}
+        end,
+    {Rs, Accu2} = mapfoldl(F, Accu1, Tail),
+    {Before ++ Res| After ++ Rs, Accu2};
+mapfoldl(F, Accu, ) when is_function(F, 2) -> {, Accu}.
+
+
+rpt_error(_Reason, _Fun, _Info, _Trace) ->
+    %% Fmt = lists:flatten(
+    %%      "*** ERROR in parse_transform function:~n"
+    %%       "*** Reason     = ~p~n",
+    %%          "*** Location: ~p~n",
+    %%       "*** Trace: ~p~n",
+    %%       "*** ~10w = ~p~n" || _ <- Info),
+    %% Args = Reason, Fun, Trace |
+    %%      lists:foldr(
+    %%        fun({K,V}, Acc) ->
+    %%                K, V | Acc
+    %%        end, , Info),
+    %%io:format(Fmt, Args),
+    ok.
+
+-spec format_error({atom(), term()}) ->
+    iolist().
+format_error({E, {M,F,A}|_} = Error) ->
+    try lists:flatten(io_lib:fwrite("~p in ~s:~s/~s", E, atom_to_list(M),
+                                                       atom_to_list(F), integer_to_list(A)))
+    catch
+        error:_ ->
+            format_error_(Error)
+    end;
+format_error(Error) ->
+    format_error_(Error).
+
+format_error_(Error) ->
+    lists:flatten(io_lib:fwrite("~p", Error)).
+
+
+%% EUnit
+-ifdef(TEST).
+
+format_exeption_test() ->
+    _,_,_ = format_exception(error, {error, foo}, 3),
+    ok.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/src/parse_trans_codegen.erl Added

@@ -0,0 +1,431 @@
+%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% --------------------------------------------------
+%% 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.
+%% --------------------------------------------------
+%% File    : parse_trans_codegen.erl
+%% @author  : Ulf Wiger <ulf@wiger.net>
+%% @end
+%%-------------------------------------------------------------------
+
+%% @doc Parse transform for code generation pseduo functions
+%%
+%% <p>...</p>
+%%
+%% @end
+
+-module(parse_trans_codegen).
+
+-export(parse_transform/2).
+-export(format_error/1).
+
+%% @spec (Forms, Options) -> NewForms
+%%
+%% @doc
+%% Searches for calls to pseudo functions in the module `codegen',
+%% and converts the corresponding erlang code to a data structure
+%% representing the abstract form of that code.
+%%
+%% The purpose of these functions is to let the programmer write
+%% the actual code that is to be generated, rather than manually
+%% writing abstract forms, which is more error prone and cannot be
+%% checked by the compiler until the generated module is compiled.
+%%
+%% Supported functions:
+%%
+%% <h2>gen_function/2</h2>
+%%
+%% Usage: `codegen:gen_function(Name, Fun)'
+%%
+%% Substitutes the abstract code for a function with name `Name'
+%% and the same behaviour as `Fun'.
+%%
+%% `Fun' can either be a anonymous `fun', which is then converted to
+%% a named function, or it can be an `implicit fun', e.g.
+%% `fun is_member/2'. In the latter case, the referenced function is fetched
+%% and converted to an abstract form representation. It is also renamed
+%% so that the generated function has the name `Name'.
+%% <p/>
+%% Another alternative is to wrap a fun inside a list comprehension, e.g.
+%% <pre>
+%% f(Name, L) -&gt;
+%%     codegen:gen_function(
+%%         Name,
+%%          fun({'$var',X}) -&gt;
+%%              {'$var', Y}
+%%           end || {X, Y} &amp;lt;- L ).
+%% </pre>
+%% <p/>
+%% Calling the above with `f(foo, {1,a},{2,b},{3,c})' will result in
+%% generated code corresponding to:
+%% <pre>
+%% foo(1) -&gt; a;
+%% foo(2) -&gt; b;
+%% foo(3) -&gt; c.
+%% </pre>
+%%
+%% <h2>gen_functions/1</h2>
+%%
+%% Takes a list of `{Name, Fun}' tuples and produces a list of abstract
+%% data objects, just as if one had written
+%% `codegen:gen_function(N1,F1),codegen:gen_function(N2,F2),...'.
+%%
+%% <h2>exprs/1</h2>
+%%
+%% Usage: `codegen:exprs(Fun)'
+%%
+%% `Fun' is either an anonymous function, or an implicit fun with only one
+%% function clause. This "function" takes the body of the fun and produces
+%% a data type representing the abstract form of the list of expressions in
+%% the body. The arguments of the function clause are ignored, but can be
+%% used to ensure that all necessary variables are known to the compiler.
+%%
+%% <h2>gen_module/3</h2>
+%%
+%% Generates abstract forms for a complete module definition.
+%%
+%% Usage: `codegen:gen_module(ModuleName, Exports, Functions)'
+%%
+%% `ModuleName' is either an atom or a <code>{'$var', V}</code> reference.
+%%
+%% `Exports' is a list of `{Function, Arity}' tuples.
+%%
+%% `Functions' is a list of `{Name, Fun}' tuples analogous to that for
+%% `gen_functions/1'.
+%%
+%% <h2>Variable substitution</h2>
+%%
+%% It is possible to do some limited expansion (importing a value
+%% bound at compile-time), using the construct <code>{'$var', V}</code>, where
+%% `V' is a bound variable in the scope of the call to `gen_function/2'.
+%%
+%% Example:
+%% <pre>
+%% gen(Name, X) ->
+%%    codegen:gen_function(Name, fun(L) -> lists:member({'$var',X}, L) end).
+%% </pre>
+%%
+%% After transformation, calling `gen(contains_17, 17)' will yield the
+%% abstract form corresponding to:
+%% <pre>
+%% contains_17(L) ->
+%%    lists:member(17, L).
+%% </pre>
+%%
+%% <h2>Form substitution</h2>
+%%
+%% It is possible to inject abstract forms, using the construct
+%% <code>{'$form', F}</code>, where `F' is bound to a parsed form in
+%% the scope of the call to `gen_function/2'.
+%%
+%% Example:
+%% <pre>
+%% gen(Name, F) ->
+%%    codegen:gen_function(Name, fun(X) -> X =:= {'$form',F} end).
+%% </pre>
+%%
+%% After transformation, calling `gen(is_foo, {atom,0,foo})' will yield the
+%% abstract form corresponding to:
+%% <pre>
+%% is_foo(X) ->
+%%    X =:= foo.
+%% </pre>
+%% @end
+%%
+parse_transform(Forms, Options) ->
+    Context = parse_trans:initial_context(Forms, Options),
+    {NewForms, _} =
+        parse_trans:do_depth_first(
+          fun xform_fun/4, _Acc = Forms, Forms, Context),
+    parse_trans:return(parse_trans:revert(NewForms), Context).
+
+xform_fun(application, Form, _Ctxt, Acc) ->
+    MFA = erl_syntax_lib:analyze_application(Form),
+    Anno = erl_syntax:get_pos(Form),
+    L = erl_anno:line(Anno),
+    case MFA of
+        {codegen, {gen_module, 3}} ->
+            NameF, ExportsF, FunsF =
+                erl_syntax:application_arguments(Form),
+            NewForms = gen_module(NameF, ExportsF, FunsF, L, Acc),
+            {NewForms, Acc};
+        {codegen, {gen_function, 2}} ->
+            NameF, FunF =
+                erl_syntax:application_arguments(Form),
+            NewForm = gen_function(NameF, FunF, L, L, Acc),
+            {NewForm, Acc};
+        {codegen, {gen_function, 3}} ->
+            NameF, FunF, LineF =
+                erl_syntax:application_arguments(Form),
+            NewForm = gen_function(
+                        NameF, FunF, L, erl_syntax:integer_value(LineF), Acc),
+            {NewForm, Acc};
+        {codegen, {gen_function_alt, 3}} ->
+            NameF, FunF, AltF =
+                erl_syntax:application_arguments(Form),
+            NewForm = gen_function_alt(NameF, FunF, AltF, L, L, Acc),
+            {NewForm, Acc};
+        {codegen, {gen_functions, 1}} ->
+            List = erl_syntax:application_arguments(Form),
+            Elems = erl_syntax:list_elements(List),
+            NewForms = lists:map(
+                         fun(E) ->
+                                 NameF, FunF = erl_syntax:tuple_elements(E),
+                                 gen_function(NameF, FunF, L, L, Acc)
+                         end, Elems),
+            {erl_syntax:list(NewForms), Acc};
+        {codegen, {exprs, 1}} ->
+            FunF = erl_syntax:application_arguments(Form),
+            Clause = erl_syntax:fun_expr_clauses(FunF),
+            {clause,_,_,_,Body} = parse_trans:revert(Clause),
+            NewForm = substitute(erl_parse:abstract(Body)),
+            {NewForm, Acc};
+        _ ->
+            {Form, Acc}
+    end;
+xform_fun(_, Form, _Ctxt, Acc) ->
+    {Form, Acc}.
+
+gen_module(NameF, ExportsF, FunsF, L, Acc) ->
+    case erl_syntax:type(FunsF) of
+        list ->
+            try gen_module_(NameF, ExportsF, FunsF, L, Acc)
+            catch
+                error:E ->
+                    ErrStr = parse_trans:format_exception(error, E),
+                    {error, {L, ?MODULE, ErrStr}}
+            end;
+        _ ->
+            ErrStr = parse_trans:format_exception(
+                       error, "Argument must be a list"),
+            {error, {L, ?MODULE, ErrStr}}
+    end.
+
+gen_module_(NameF, ExportsF, FunsF, L0, Acc) ->
+    P = erl_syntax:get_pos(NameF),
+    ModF = case parse_trans:revert_form(NameF) of
+               {atom,_,_} = Am -> Am;
+               {tuple,_,{atom,_,'$var'},
+                         {var,_,V}} ->
+                   {var,P,V}
+           end,
+    cons(
+      {cons,P,
+       {tuple,P,
+        {atom,P,attribute},
+         {integer,P,1},
+         {atom,P,module},
+         ModF},
+       substitute(
+         abstract(
+           {attribute,P,export,
+             lists:map(
+               fun(TupleF) ->
+                       F,A = erl_syntax:tuple_elements(TupleF),
+                       {erl_syntax:atom_value(F), erl_syntax:integer_value(A)}
+               end, erl_syntax:list_elements(ExportsF))}))},
+      lists:map(
+        fun(FTupleF) ->
+                Pos = erl_syntax:get_pos(FTupleF),
+                FName, FFunF = erl_syntax:tuple_elements(FTupleF),
+                gen_function(FName, FFunF, L0, Pos, Acc)
+        end, erl_syntax:list_elements(FunsF))).
+
+cons({cons,L,H,T}, L2) ->
+    {cons,L,H,cons(T, L2)};
+cons({nil,L}, H|T) ->
+    Pos = erl_syntax:get_pos(H),
+    {cons,L,H,cons({nil,Pos}, T)};
+cons({nil,L}, ) ->
+    {nil,L}.
+
+
+
+gen_function(NameF, FunF, L0, L, Acc) ->
+    try gen_function_(NameF, FunF, , L, Acc)
+    catch
+        error:E ->
+            ErrStr = parse_trans:format_exception(error, E),
+            {error, {L0, ?MODULE, ErrStr}}
+    end.
+
+gen_function_alt(NameF, FunF, AltF, L0, L, Acc) ->
+    try gen_function_(NameF, FunF, AltF, L, Acc)
+    catch
+        error:E ->
+            ErrStr = parse_trans:format_exception(error, E),
+            {error, {L0, ?MODULE, ErrStr}}
+    end.
+
+gen_function_(NameF, FunF, AltF, L, Acc) ->
+    case erl_syntax:type(FunF) of
+        T when T==implicit_fun; T==fun_expr ->
+            {Arity, Clauses} = gen_function_clauses(T, NameF, FunF, L, Acc),
+            A1 = erl_anno:new(1),
+            {tuple, A1, {atom, A1, function},
+                         {integer, A1, L},
+                         NameF,
+                         {integer, A1, Arity},
+                         substitute(abstract(Clauses))};
+        list_comp ->
+            %% Extract the fun from the LC
+            Template = parse_trans:revert(
+                           erl_syntax:list_comp_template(FunF)),
+            %% Process fun in the normal fashion (as above)
+            {Arity, Clauses} = gen_function_clauses(erl_syntax:type(Template),
+                                                    NameF, Template, L, Acc),
+            Body = erl_syntax:list_comp_body(FunF),
+            %% Collect all variables from the LC generator(s)
+            %% We want to produce an abstract representation of something like:
+            %% {function,1,Name,Arity,
+            %%  lists:flatten(
+            %%     (fun(V1,V2,...) ->
+            %%           ...
+            %%       end)(__V1,__V2,...) || {__V1,__V2,...} <- L)}
+            %% where the __Vn vars are our renamed versions of the LC generator
+            %% vars. This allows us to instantiate the clauses at run-time.
+            Vars = lists:flatten(
+                     sets:to_list(erl_syntax_lib:variables(
+                                     erl_syntax:generator_pattern(G)))
+                      || G <- Body),
+            Vars1 = list_to_atom("__" ++ atom_to_list(V)) || V <- Vars,
+            VarMap = lists:zip(Vars, Vars1),
+            Body1 =
+                erl_syntax:generator(
+                   rename_vars(VarMap, gen_pattern(G)),
+                   gen_body(G)) || G <- Body,
+            A1 = erl_anno:new(1),
+            RevLC = parse_trans:revert(
+                        erl_syntax:list_comp(
+                           {call, A1,
+                            {'fun',A1,
+                             {clauses,
+                              {clause,A1,{var,A1,V} || V <- Vars,,
+                                substitute(
+                                   abstract(Clauses))
+                               }}
+                            }, {var,A1,V} || V <- Vars1}, Body1)),
+            AltC = case AltF of
+                        -> {nil,A1};
+                       _ ->
+                           {Arity, AltC1} = gen_function_clauses(
+                                              erl_syntax:type(AltF),
+                                              NameF, AltF, L, Acc),
+                           substitute(abstract(AltC1))
+                   end,
+            {tuple,A1,{atom,A1,function},
+                       {integer, A1, L},
+                       NameF,
+                       {integer, A1, Arity},
+                       {call, A1, {remote, A1, {atom, A1, lists},
+                                  {atom,A1,flatten}},
+                        {op, A1, '++', RevLC, AltC}}}
+    end.
+
+gen_pattern(G) ->
+    erl_syntax:generator_pattern(G).
+
+gen_body(G) ->
+    erl_syntax:generator_body(G).
+
+rename_vars(Vars, Tree) ->
+    erl_syntax_lib:map(
+      fun(T) ->
+              case erl_syntax:type(T) of
+                  variable ->
+                      V = erl_syntax:variable_name(T),
+                      {_,V1} = lists:keyfind(V,1,Vars),
+                      erl_syntax:variable(V1);
+                  _ ->
+                      T
+              end
+      end, Tree).
+
+gen_function_clauses(implicit_fun, _NameF, FunF, _L, Acc) ->
+    AQ = erl_syntax:implicit_fun_name(FunF),
+    Name = erl_syntax:atom_value(erl_syntax:arity_qualifier_body(AQ)),
+    Arity = erl_syntax:integer_value(
+              erl_syntax:arity_qualifier_argument(AQ)),
+    NewForm = find_function(Name, Arity, Acc),
+    ClauseForms = erl_syntax:function_clauses(NewForm),
+    {Arity, ClauseForms};
+gen_function_clauses(fun_expr, _NameF, FunF, _L, _Acc) ->
+    ClauseForms = erl_syntax:fun_expr_clauses(FunF),
+    Arity = get_arity(ClauseForms),
+    {Arity, ClauseForms}.
+
+find_function(Name, Arity, Forms) ->
+    Form = F || {function,_,N,A,_} = F <- Forms,
+                   N == Name,
+                   A == Arity,
+    Form.
+
+abstract(ClauseForms) ->
+    erl_parse:abstract(parse_trans:revert(ClauseForms)).
+
+substitute({tuple,L0,
+            {atom,_,tuple},
+             Loc,
+             {cons,_,
+              {tuple,_,{atom,_,atom},_LocA,{atom,_,'$var'}},
+              {cons,_,
+               {tuple,_,{atom,_,var},_LocB,{atom,_,V}},
+               {nil,_}}}}) when element(1, Loc) == tuple; % Erlang 24+
+                                 element(1, Loc) == integer ->
+    AbstConcreteLoc =
+        case Loc of
+            {integer, _, L} ->
+                {integer, L0, L};
+            {tuple, _, {integer, _, L}, {integer, _, C}} ->
+                {tuple, L0, {integer, L0, L}, {integer, L0, C}}
+        end,
+    {call, L0, {remote,L0,{atom,L0,erl_parse},
+                {atom,L0,abstract}},
+     {var, L0, V}, AbstConcreteLoc};
+substitute({tuple,L0, % Erlang 24: {Line,Col}
+            {atom,_,tuple},
+             Loc,
+             {cons,_,
+              {tuple,_,{atom,_,atom},_LocA,{atom,_,'$form'}},
+              {cons,_,
+               {tuple,_,{atom,_,var},_LocB,{atom,_,F}},
+               {nil,_}}}}) when element(1, Loc) == tuple; % Erlang 24+
+                                 element(1, Loc) == integer ->
+    {var, L0, F};
+substitute() ->
+    ;
+substitute(H|T) ->
+    substitute(H) | substitute(T);
+substitute(T) when is_tuple(T) ->
+    list_to_tuple(substitute(tuple_to_list(T)));
+substitute(X) ->
+    X.
+
+get_arity(Clauses) ->
+    Ays = length(erl_syntax:clause_patterns(C)) || C <- Clauses,
+    case lists:usort(Ays) of
+        Ay ->
+            Ay;
+        Other ->
+            erlang:error(ambiguous, Other)
+    end.
+
+
+format_error(E) ->
+    case io_lib:deep_char_list(E) of
+        true ->
+            E;
+        _ ->
+            io_lib:write(E)
+    end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/src/parse_trans_mod.erl Added

@@ -0,0 +1,128 @@
+%%============================================================================
+%% Copyright 2014 Ulf Wiger
+%%
+%% Licensed 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.
+%%============================================================================
+%%
+%% Based on meck_mod.erl from http://github.com/eproxus/meck.git
+%% Original author: Adam Lindberg
+%%
+-module(parse_trans_mod).
+%% Interface exports
+-export(transform_module/3).
+
+-export(abstract_code/1).
+-export(beam_file/1).
+-export(compile_and_load_forms/1).
+-export(compile_and_load_forms/2).
+-export(compile_options/1).
+-export(rename_module/2).
+
+%% Types
+-type erlang_form() :: term().
+-type compile_options() :: term().
+
+%%============================================================================
+%% Interface exports
+%%============================================================================
+
+transform_module(Mod, PT, Options) ->
+    File = beam_file(Mod),
+    Forms = abstract_code(File),
+    Context = parse_trans:initial_context(Forms, Options),
+    PTMods = if is_atom(PT) -> PT;
+                is_function(PT, 2) -> PT;
+                is_list(PT) -> PT
+             end,
+    Transformed = lists:foldl(fun(PTx, Fs) when is_function(PTx, 2) ->
+                                      PTx(Fs, Options);
+                                 (PTMod, Fs) ->
+                                      PTMod:parse_transform(Fs, Options)
+                              end, Forms, PTMods),
+    parse_trans:optionally_pretty_print(Transformed, Options, Context),
+    compile_and_load_forms(Transformed, get_compile_options(Options)).
+
+
+-spec abstract_code(binary()) -> erlang_form().
+abstract_code(BeamFile) ->
+    case beam_lib:chunks(BeamFile, abstract_code) of
+        {ok, {_, {abstract_code, {raw_abstract_v1, Forms}}}} ->
+            Forms;
+        {ok, {_, {abstract_code, no_abstract_code}}} ->
+            erlang:error(no_abstract_code)
+    end.
+
+-spec beam_file(module()) -> binary().
+beam_file(Module) ->
+    % code:which/1 cannot be used for cover_compiled modules
+    case code:get_object_code(Module) of
+        {_, Binary, _Filename} -> Binary;
+        error                  -> throw({object_code_not_found, Module})
+    end.
+
+-spec compile_and_load_forms(erlang_form()) -> ok.
+compile_and_load_forms(AbsCode) -> compile_and_load_forms(AbsCode, ).
+
+-spec compile_and_load_forms(erlang_form(), compile_options()) -> ok.
+compile_and_load_forms(AbsCode, Opts) ->
+    case compile:forms(AbsCode, Opts) of
+        {ok, ModName, Binary} ->
+            load_binary(ModName, Binary, Opts);
+        {ok, ModName, Binary, _Warnings} ->
+            load_binary(ModName, Binary, Opts)
+    end.
+
+-spec compile_options(binary() | module()) -> compile_options().
+compile_options(BeamFile) when is_binary(BeamFile) ->
+    case beam_lib:chunks(BeamFile, compile_info) of
+        {ok, {_, {compile_info, Info}}} ->
+            proplists:get_value(options, Info);
+        _ ->
+            
+    end;
+compile_options(Module) ->
+    proplists:get_value(options, Module:module_info(compile)).
+
+-spec rename_module(erlang_form(), module()) -> erlang_form().
+rename_module({attribute, Line, module, _OldName}|T, NewName) ->
+    {attribute, Line, module, NewName}|T;
+rename_module(H|T, NewName) ->
+    H|rename_module(T, NewName).
+
+%%==============================================================================
+%% Internal functions
+%%==============================================================================
+
+load_binary(Name, Binary, Opts) ->
+    code:purge(Name),
+    File = beam_filename(Name, Opts),
+    case code:load_binary(Name, File, Binary) of
+        {module, Name}  -> ok;
+        {error, Reason} ->  exit({error_loading_module, Name, Reason})
+    end.
+
+get_compile_options(Options) ->
+    case lists:keyfind(compile_options, 1, Options) of
+        {_, COpts} ->
+            COpts;
+        false ->
+            
+    end.
+
+beam_filename(Mod, Opts) ->
+    case lists:keyfind(outdir, 1, Opts) of
+        {_, D} ->
+            filename:join(D, atom_to_list(Mod) ++ code:objfile_extension());
+        false ->
+            ""
+    end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/parse_trans/src/parse_trans_pp.erl Added

@@ -0,0 +1,118 @@
+%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% --------------------------------------------------
+%% 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.
+%% --------------------------------------------------
+%% File    : parse_trans_pp.erl
+%% @author  : Ulf Wiger <ulf@wiger.net>
+%% @end
+%% Description :
+%%
+%% Created : 3 Aug 2010 by Ulf Wiger <ulf@wiger.net>
+%% --------------------------------------------------
+
+%% @doc Generic parse transform library for Erlang.
+%%
+%% This module contains some useful utility functions for inspecting
+%% the results of parse transforms or code generation.
+%% The function `main/1' is called from escript, and can be used to
+%% pretty-print debug info in a .beam file from a Linux shell.
+%%
+%% Using e.g. the following bash alias:
+%% <pre>
+%% alias pp='escript $PARSE_TRANS_ROOT/ebin/parse_trans_pp.beam'
+%%% </pre>
+%% a file could be pretty-printed using the following command:
+%%
+%% `$ pp ex_codegen.beam | less'
+%% @end
+
+-module(parse_trans_pp).
+
+-export(
+         pp_src/2,
+         pp_beam/1, pp_beam/2
+        ).
+
+-export(main/1).
+
+
+-spec main(string()) -> any().
+main(F) ->
+    pp_beam(F).
+
+
+%% @spec (Forms, Out::filename()) -> ok
+%%
+%% @doc Pretty-prints the erlang source code corresponding to Forms into Out
+%%
+-spec pp_src(parse_trans:forms(), file:filename()) ->
+    ok.
+pp_src(Forms0, F) ->
+    Forms = epp:restore_typed_record_fields(revert(Forms0)),
+    Str = io_lib:fwrite("~s~n",
+                         lists:flatten(erl_pp:form(Fm) ||
+                                            Fm <- Forms)),
+    file:write_file(F, list_to_binary(Str)).
+
+%% @spec (Beam::filename()) -> string() | {error, Reason}
+%%
+%% @doc
+%% Reads debug_info from the beam file Beam and returns a string containing
+%% the pretty-printed corresponding erlang source code.
+%% @end
+-spec pp_beam(file:filename()) -> ok | {error, any()}.
+pp_beam(Beam) ->
+    case pp_beam_to_str(Beam) of
+        {ok, Str} ->
+            io:put_chars(Str);
+        Other ->
+            Other
+    end.
+
+%% @spec (Beam::filename(), Out::filename()) -> ok | {error, Reason}
+%%
+%% @doc
+%% Reads debug_info from the beam file Beam and pretty-prints it as
+%% Erlang source code, storing it in the file Out.
+%% @end
+%%
+-spec pp_beam(file:filename(), file:filename()) -> ok | {error,any()}.
+pp_beam(F, Out) ->
+    case pp_beam_to_str(F) of
+        {ok, Str} ->
+            file:write_file(Out, list_to_binary(Str));
+        Other ->
+            Other
+    end.
+
+pp_beam_to_str(F) ->
+    case beam_lib:chunks(F, abstract_code) of
+        {ok, {_, {abstract_code,{_,AC0}}}} ->
+            AC = epp:restore_typed_record_fields(AC0),
+            {ok, lists:flatten(
+                   %% io_lib:fwrite("~s~n", erl_prettypr:format(
+                   %%                          erl_syntax:form_list(AC)))
+                   io_lib:fwrite("~s~n", lists:flatten(
+                                            erl_pp:form(Form) ||
+                                                Form <- AC))
+                  )};
+        Other ->
+            {error, Other}
+    end.
+
+-spec revert(parse_trans:forms()) ->
+    parse_trans:forms().
+revert(Tree) ->
+    erl_syntax:revert(T) || T <- lists:flatten(Tree).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/LICENSE Added

@@ -0,0 +1,30 @@
+Copyright (c) 2009-2022, Michael Santos <michael.santos@gmail.com>
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+
+Redistributions of source code must retain the above copyright
+notice, this list of conditions and the following disclaimer.
+
+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.
+
+Neither the name of the author nor the names of its contributors
+may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"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
+COPYRIGHT HOLDER 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.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/Makefile Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/README.md Added

@@ -0,0 +1,176 @@
+
+An Erlang network protocol library.
+
+Originally part of epcap:
+<http://github.com/msantos/epcap>
+
+
+## EXPORTS
+
+    pkt:decapsulate(Data) -> Packet
+    pkt:decapsulate(Proto, Data) -> Packet
+
+        Types   Data = binary()
+                Proto = atom() | integer()
+                Packet =  Header | Payload 
+                Header = #ether{} | #arp{} | #null{} | #linux_cooked{} |
+                    #ipv4{} | #ipv6{} | #tcp{} | #udp{} | #sctp{} | #icmp{} |
+                    #icmp6{} | #igmp{} | #gre{} | #llc{} | #vrrp{} | #'802.1q'{} |
+                    #lldp{} | #mpls{} | #rarp{} | #'802.1x'{}
+                Payload = binary()
+
+        Convert network protocols from binary data to a list of Erlang
+        records followed by the payload.
+
+        decapsulate/1,2 works on valid packets. If the packet is malformed
+        or unsupported, decapsulate/1 will crash.
+
+        decapsulate/1 parses the data as an ethernet frame.
+
+        decapsulate/2 allows specifying the protocol for decoding the
+        packet. If the protocol is specified as an integer, the integer
+        is treated as a datalink type.
+
+    pkt:decode(Data) -> {ok, Packet} | {error, SoFar, {FailedProto, binary()}}
+    pkt:decode(Proto, Data) -> {ok, Packet} | {error, SoFar, {FailedProto, binary()}}
+
+        Types   Data = binary()
+                Proto = FailedProto = atom()
+                Packet = {Headers, Payload}
+                Headers = Header
+                Header = #ether{} | #arp{} | #null{} | #linux_cooked{} |
+                    #ipv4{} | #ipv6{} | #tcp{} | #udp{} | #sctp{} | #icmp{} |
+                    #icmp6{} | #igmp{} | #gre{} | #llc{} | #vrrp{} | #'802.1q'{} |
+                    #lldp{} | #mpls{} | #rarp{} | #'802.1x'{}
+                SoFar = Headers | 
+                Payload = binary()
+
+        Similar to decapsulate/1 but, on error, returns any part of the
+        packet that has been successfully converted to Erlang term format.
+
+The following functions create the protocol headers, converting between
+records and binaries. See include/pkt.hrl for definition of the record
+types.
+
+    ether(Packet) -> {#ether{}, Payload} | binary()
+    llc(Packet) -> {#llc{}, Payload} | binary()
+    vrrp(Packet) -> {#vrrp{}, Payload} | binary()
+    '802.1q'(Packet) -> {#'802.1q'{}, Payload} | binary()
+    null(Packet) -> {#null{}, Payload} | binary()
+    linux_cooked(Packet) -> {#linux_cooked{}, Payload} | binary()
+    gre(Packet) -> {#gre{}, Payload} | binary()
+    arp(Packet) -> {#arp{}, Payload} | binary()
+    ipv4(Packet) -> {#ipv4{}, Payload} | binary()
+    ipv6(Packet) -> {#ipv6{}, Payload} | binary()
+    tcp(Packet) -> {#tcp{}, Payload} | binary()
+    sctp(Packet) -> {#sctp{}, Payload} | binary()
+    udp(Packet) -> {#udp{}, Payload} | binary()
+    icmp(Packet) -> {#icmp{}, Payload} | binary()
+    icmp6(Packet) -> {#icmp6{}, Payload} | binary()
+    igmp(Packet) -> {#igmp{}, Payload} | binary()
+    mpls(Packet) -> {#mpls{}, Next, Payload}
+    lldp(Packet) -> {#lldp{}, Payload}
+    rarp(Packet) -> {#rarp{}, Payload}
+    '802.1x'(Packet) -> {#'802.1x'{}, Payload}
+
+        Types   Packet = Header | binary()
+                Header = #ether{} | #null{} | #linux_cooked{} | #arp{} |
+                    #ipv4{} | #ipv6{} | #tcp{} | #sctp{} | #udp{} |
+                    #icmp{} | #icmp6{} | #igmp{} | #gre{} | #llc{} |
+                    #vrrp{} | #'802.1q'{} | #lldp{} | #mpls{} | #rarp{} | #'802.1x'{}
+                Next = ipv4 | ipv6
+
+
+    makesum(Packet) -> integer()
+
+        Types   Packet = IPv4_header | IPv4_header, Header, Payload
+                IPv4_header = #ipv4{}
+                Header = #tcp{} | #udp{}
+                Payload = binary()
+
+        Calculate the one's complement checksum of the packet.
+
+        When computing the checksum, the header sum field must be set
+        to 0:
+
+            Sum = pkt:makesum(IPv4, TCP#tcp{sum = 0}, Payload).
+
+        For verifcation, the checksum can be compared to the value in
+        the header or:
+
+            0 = pkt:makesum(IPv4, TCP, Payload).
+
+## EXAMPLES
+
+* decode an ethernet frame, displaying the source and destination of
+  valid packets
+
+```erlang
+Frame = <<224,105,149,59,163,24,0,22,182,181,62,198,8,0,69,0,0,54,2,108,64,
+          0,53,6,172,243,173,192,82,195,192,168,213,54,0,80,143,166,75,154,
+          212,181,116,33,53,92,128,24,0,126,60,199,0,0,1,1,8,10,92,104,96,
+          16,22,69,237,136,137,0>>,
+
+try pkt:decapsulate(Frame) of
+    #ether{}, #ipv4{saddr = Saddr, daddr = Daddr},
+        #tcp{sport = Sport, dport = Dport}, _Payload ->
+        {{Saddr, Sport}, {Daddr, Dport}}
+catch
+    error:_ ->
+        ok % ignore invalid packets
+end
+```
+
+* verify the TCP checksum of an ethernet frame
+
+```erlang
+{ok, #ether{}, IPv4, #tcp{sum = Sum} = TCP, Payload} = pkt:decode(ether, Frame),
+
+% Re-calculate the checksum and match against the checksum in the header
+Sum = pkt:makesum(IPv4, TCP#tcp{sum = 0}, Payload),
+
+% Or just verify the checksum
+0 = pkt:makesum(IPv4, TCP, Payload).
+```
+
+## PADDING OF ETHERNET FRAMES
+
+The minimum size of an ethernet payload is 46 bytes. An ethernet frame
+containing a TCP/IP packet composed of a 20 byte IPv4 header and 20 byte
+TCP header and payload will be padded by 6 bytes. To calculate the actual
+length of the packet, use the length and header length values in the IPv4
+header and the offset value in the TCP header:
+
+```erlang
+#ether{}, #ipv4{len = Len, hl = HL}, #tcp{off = Off}, Payload = pkt:decapsulate(Frame),
+    Size = Len - (HL * 4) - (Off * 4),
+    <<Payload:Size/bytes>>.
+```
+
+## TODO
+
+* support RFC 2675 (IPv6 Jumbograms)
+
+* IPv6 AH and ESP
+    * handle alignment differences between IPv4 and IPv6 (IPv4 uses 32
+      bits, IPv6 uses 64 bits)
+
+* ICMPv6
+    * fix handling of neighbour discovery
+    * simplify ICMPv6 header record and add a record for ICMPv6 type or
+      add functions for ICMPv6 variable length payloads
+
+* IGMP
+    * support IGMPv3 variable payloads
+
+* merge in DLT\_IEEE802\_11 support from wierl
+
+* merge in ICMPv6 code from gen_icmp
+
+* DLTs
+    * DLT_SLIP
+    * DLT_PPP
+    * DLT_RAW
+    * DLT\_PPP\_SERIAL
+    * DLT\_PPP\_ETHER
+    * DLT_LOOP

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_802_1q.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_802_1x.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_arp.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_dlt.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_ether.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_gre.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_icmp.hrl Added

@@ -0,0 +1,35 @@
+-define(ICMP_ECHOREPLY, 0).
+-define(ICMP_DEST_UNREACH, 3).
+-define(    ICMP_UNREACH_NET, 0).           % bad net
+-define(    ICMP_UNREACH_HOST, 1).          % bad host
+-define(    ICMP_UNREACH_PROTOCOL, 2).      % bad protocol
+-define(    ICMP_UNREACH_PORT, 3).          % bad port
+-define(    ICMP_UNREACH_NEEDFRAG, 4).      % IP_DF caused drop
+-define(    ICMP_UNREACH_SRCFAIL, 5 ).      % src route failed
+-define(ICMP_SOURCE_QUENCH, 4).
+-define(ICMP_REDIRECT, 5).
+-define(    ICMP_REDIRECT_NET, 0).          % for network
+-define(    ICMP_REDIRECT_HOST, 1).         % for host
+-define(    ICMP_REDIRECT_TOSNET, 2).       % for tos and net
+-define(    ICMP_REDIRECT_TOSHOST, 3).      % for tos and host
+-define(ICMP_ECHO, 8).
+-define(ICMP_TIME_EXCEEDED, 11).
+-define(    ICMP_TIMXCEED_INTRANS, 0).      % ttl==0 in transit
+-define(    ICMP_TIMXCEED_REASS, 1).        % ttl==0 in reass
+-define(ICMP_PARAMETERPROB, 12).
+-define(ICMP_TIMESTAMP, 13).
+-define(ICMP_TIMESTAMPREPLY, 14).
+-define(ICMP_INFO_REQUEST, 15).
+-define(ICMP_INFO_REPLY, 16).
+-define(ICMP_ADDRESS, 17).
+-define(ICMP_ADDRESSREPLY, 18).
+
+-record(icmp, {
+        type = ?ICMP_ECHO :: pkt:uint8_t(), code = 0 :: pkt:uint8_t(), checksum = 0 :: pkt:uint16_t(),
+        id = 0 :: pkt:uint16_t(), sequence = 0 :: pkt:uint16_t(),
+        gateway = {127,0,0,1} :: pkt:in_addr(),
+        un = <<0:32>> :: binary(),
+        mtu = 0 :: pkt:uint16_t(),
+        pointer = 0 :: pkt:uint8_t(),
+        ts_orig = 0 :: pkt:uint32_t(), ts_recv = 0 :: pkt:uint32_t(), ts_tx = 0 :: pkt:uint32_t()
+    }).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_icmp6.hrl Added

@@ -0,0 +1,55 @@
+-define(ICMP6_DST_UNREACH, 1).
+-define(ICMP6_PACKET_TOO_BIG, 2).
+-define(ICMP6_TIME_EXCEEDED, 3).
+-define(ICMP6_PARAM_PROB, 4).
+-define(ICMP6_INFOMSG_MASK, 16#80).         % all informational messages
+-define(ICMP6_ECHO_REQUEST, 128).
+-define(ICMP6_ECHO_REPLY, 129).
+-define(ICMP6_DST_UNREACH_NOROUTE, 0).      % no route to destination
+-define(ICMP6_DST_UNREACH_ADMIN, 1).        % communication with destination
+-define(ICMP6_DST_UNREACH_BEYONDSCOPE, 2).  % beyond scope of source address
+-define(ICMP6_DST_UNREACH_ADDR, 3).         % address unreachable
+-define(ICMP6_DST_UNREACH_NOPORT, 4).       % bad port
+-define(ICMP6_TIME_EXCEED_TRANSIT, 0).      % Hop Limit == 0 in transit
+-define(ICMP6_TIME_EXCEED_REASSEMBLY, 1).   % Reassembly time out
+-define(ICMP6_PARAMPROB_HEADER, 0).         % erroneous header field
+-define(ICMP6_PARAMPROB_NEXTHEADER, 1).     % unrecognized Next Header
+-define(ICMP6_PARAMPROB_OPTION, 2).         % unrecognized IPv6 option
+-define(ICMP6_ROUTER_RENUMBERING, 138).
+
+-define(MLD_LISTENER_QUERY, 130).
+-define(MLD_LISTENER_REPORT, 131).
+-define(MLD_LISTENER_REPORTV2, 143).
+-define(MLD_LISTENER_REDUCTION, 132).
+
+-define(ND_ROUTER_SOLICIT, 133).
+-define(ND_ROUTER_ADVERT, 134).
+-define(ND_NEIGHBOR_SOLICIT, 135).
+-define(ND_NEIGHBOR_ADVERT, 136).
+-define(ND_REDIRECT, 137).
+
+-record(icmp6, {
+        type = ?ICMP6_ECHO_REQUEST :: pkt:uint8_t(), code = 0 :: pkt:uint8_t(), checksum = 0 :: pkt:uint16_t(),
+
+        un = <<0:32>> :: <<_:32>>,
+        pptr = 0 :: pkt:uint32_t(),
+        mtu = 0 :: pkt:uint32_t(),
+        id = 0 :: pkt:uint16_t(),
+        seq = 0 :: pkt:uint16_t(),
+        maxdelay = 0 :: pkt:uint16_t(),
+
+        res = 0 :: pkt:uint16_t(), res2 = 0 :: pkt:uint16_t(),
+
+        saddr = {0,0,0,0,0,0,0,0} :: pkt:in6_addr(),
+        daddr = {0,0,0,0,0,0,0,0} :: pkt:in6_addr(),
+
+        % router advertisement
+        hop = 0 :: pkt:uint8_t(), m = 0 :: pkt:bit(), o = 0 :: pkt:bit(), lifetime = 0 :: pkt:uint16_t(), reach = 0 :: pkt:uint32_t(), retrans = 0 :: pkt:uint32_t(),
+
+        % Neighbor Advertisement Message
+        r = 0 :: pkt:bit(), s = 0 :: pkt:bit(),
+
+        % Multicast Listener Discovery (MLD)
+        % use daddr for the multicast address
+        delay = 0 :: pkt:uint16_t()
+    }).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_igmp.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_ipproto.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_ipv4.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_ipv6.hrl Added

@@ -0,0 +1,61 @@
+%% RFC 2460: IPv6 Specification
+-record(ipv6, {
+        v = 6 :: pkt:bit4(), class = 0 :: pkt:uint8_t(), flow = 0 :: 0 .. 2#11111111111111111111,
+        len = 40 :: pkt:uint16_t(), next = ?IPPROTO_TCP :: pkt:uint8_t(), hop = 0 :: pkt:uint8_t(),
+        saddr :: pkt:in6_addr(), daddr :: pkt:in6_addr()
+    }).
+
+% XXX fix naming
+
+%% IPv6 Extension Headers
+%%
+%% RFC 6564: A Uniform Format for IPv6 Extension Headers
+
+% Hop-by-Hop Options Header
+-record(ipv6_hopopts, {
+        next = ?IPPROTO_NONE :: pkt:uint8_t(),
+        len = 0 :: pkt:uint8_t(),
+        opt = <<>> :: binary()
+    }).
+
+-record(ipv6_routing, {
+        next = ?IPPROTO_NONE :: pkt:uint8_t(),
+        len = 0 :: pkt:uint8_t(),
+        type = 0 :: pkt:uint8_t(),
+        left = 0 :: pkt:uint8_t(),
+        data = <<>> :: binary()
+    }).
+
+-record(ipv6_fragment, {
+        next = ?IPPROTO_NONE :: pkt:uint8_t(),
+        res = 0 :: pkt:uint8_t(),
+        off = 0 :: 0 .. 2#1111111111111,
+        res2 = 0 :: 0 .. 3,
+        m = 0 :: pkt:bit(),
+        id = 0 :: pkt:uint32_t()
+    }).
+
+-record(ipv6_dstopts, {
+        next = ?IPPROTO_NONE,
+        len = 0,
+        opt = <<>>
+    }).
+
+-record(ipv6_ah, {
+        next = ?IPPROTO_NONE :: pkt:uint8_t(),
+        len = 0 :: pkt:uint8_t(),
+        res = 0 :: pkt:uint16_t(),
+        spi = 0 :: pkt:uint32_t(),
+        seq = 0 :: pkt:uint32_t(),
+        icv = <<>> :: binary()
+    }).
+
+-record(ipv6_esp, {
+        spi = ?IPPROTO_NONE :: pkt:uint32_t(),
+        seq = 0 :: pkt:uint32_t(),
+        data = <<>> :: binary(),
+        pad = <<>> :: binary(),
+        padlen = 0 :: pkt:uint8_t(),
+        next = 0 :: pkt:uint8_t(),
+        icv = <<>> :: binary()
+    }).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_linux_cooked.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_llc.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_lldp.hrl Added

@@ -0,0 +1,163 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% End of LLDPDU
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(END_OF_LLDPDU, 0).
+
+-type end_of_lldpdu() :: end_of_lldpdu.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Chassis Id
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(CHASSIS_ID, 1).
+
+-define(CHASSIS_ID_CHASSIS, 1).
+-define(CHASSIS_ID_IFAlias, 2).
+-define(CHASSIS_ID_PORT,    3).
+-define(CHASSIS_ID_MAC,     4).
+-define(CHASSIS_ID_NW,      5).
+-define(CHASSIS_ID_IFNAME,  6).
+-define(CHASSIS_ID_LOCALLY, 7).
+
+-type chassis_id_subtype() :: chassis_component
+                            | interface_alias
+                            | port_component
+                            | mac_address
+                            | network_address
+                            | interface_name
+                            | locally_assigned.
+
+-record(chassis_id, { subtype = locally_assigned :: chassis_id_subtype(),
+                      value   = <<>>             :: binary() }).
+-type chassis_id() :: #chassis_id{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Port Id
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(PORT_ID, 2).
+
+-define(PORT_ID_IFALIAS,       1).
+-define(PORT_ID_PORT,          2).
+-define(PORT_ID_MAC,           3).
+-define(PORT_ID_NW,            4).
+-define(PORT_ID_IFNAME,        5).
+-define(PORT_ID_AGENT_CIRC_ID, 6).
+-define(PORT_ID_LOCALLY,       7).
+
+-type port_id_subtype() :: interface_alias
+                         | port_component
+                         | mac_address
+                         | network_address
+                         | interface_name
+                         | agent_circuit_id
+                         | locally_assigned.
+
+-record(port_id, { subtype = locally_assigned :: port_id_subtype(),
+                   value   = <<>>             :: binary() }).
+-type port_id() :: #port_id{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% TTL
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(TTL, 3).
+
+-record(ttl, { value = 0 :: non_neg_integer() }).
+-type ttl() :: #ttl{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Port Description
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(PORT_DESC, 4).
+
+-record(port_desc, { value = <<>> :: binary() }).
+-type port_desc() :: #port_desc{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% System Name
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(SYSTEM_NAME, 5).
+
+-record(system_name, { value = <<>> :: binary() }).
+-type system_name() :: #system_name{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% System Description
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(SYSTEM_DESC, 6).
+
+-record(system_desc, { value = <<>> :: binary() }).
+-type system_desc() :: #system_desc{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% System Capability
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(SYSTEM_CAPABILITY, 7).
+
+-type capability_flag() :: other
+                         | repeater
+                         | bridge
+                         | wlan_access_point
+                         | router
+                         | telephone
+                         | docsis
+                         | station_only.
+
+-define(SYSTEM_CAP_OTHER,     1 bsl 0).
+-define(SYSTEM_CAP_REPEATER,  1 bsl 1).
+-define(SYSTEM_CAP_BRIDGE,    1 bsl 2).
+-define(SYSTEM_CAP_WLANAP,    1 bsl 3).
+-define(SYSTEM_CAP_ROUTER,    1 bsl 4).
+-define(SYSTEM_CAP_TELEPHONE, 1 bsl 5).
+-define(SYSTEM_CAP_DOCSIS,    1 bsl 6).
+-define(SYSTEM_CAP_STATION,   1 bsl 7).
+
+-record(system_capability, { system  =  :: capability_flag(),
+                             enabled =  :: capability_flag() }).
+-type system_capability() :: #system_capability{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Management Address
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(MANAGEMENT_ADDRESS, 8).
+
+-record(management_address, { value = <<>> :: binary() }).
+-type management_address() :: #management_address{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Organizationally Specific
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-define(ORGANIZATIONALLY_SPECIFIC, 127).
+
+-record(organizationally_specific, { value = <<>> :: binary() }).
+-type organizationally_specific() :: #organizationally_specific{}.
+
+-record(unknown_lldp_tlv,{type = 0:: integer(), value = <<>> :: binary()}).
+-type unknown_lldp_tlv() :: #unknown_lldp_tlv{}.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% LLDP Frame Format
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+-type pdu() :: chassis_id()
+             | end_of_lldpdu()
+             | port_id()
+             | ttl()
+             | port_desc()
+             | system_name()
+             | system_desc()
+             | system_capability()
+             | management_address()
+             | organizationally_specific()
+             | unknown_lldp_tlv().
+
+-record(lldp, { pdus =  :: pdu() }).
+-type lldp() :: #lldp{}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_mpls.hrl Added

@@ -0,0 +1,32 @@
+-define(MPLS_LABEL_IPV4NULL, 0).
+-define(MPLS_LABEL_RTALERT, 1).
+-define(MPLS_LABEL_IPV6NULL, 2).
+-define(MPLS_LABEL_IMPLNULL, 3).
+-define(MPLS_LABEL_ENTROPY, 7).
+-define(MPLS_LABEL_GAL, 13).
+-define(MPLS_LABEL_OAMALERT, 14).
+-define(MPLS_LABEL_EXTENSION, 15).
+-define(MPLS_LABEL_FIRST_UNRESERVED, 16).
+
+%% Reference: RFC 5462, RFC 3032
+%%
+%%   0                   1                   2                   3
+%%   0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
+%%  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
+%%  |                Label                  | TC  |S|       TTL     |
+%%  +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
+%%
+%% 	Label:  Label Value, 20 bits
+%% 	TC:     Traffic Class field, 3 bits
+%% 	S:      Bottom of Stack, 1 bit
+%% 	TTL:    Time to Live, 8 bits
+%%
+
+-record(shim, {label = 0 :: 1..16#fffff,
+               tc = 0 :: 1..7,
+               s = true :: boolean(),
+               ttl = 0 :: pkt:uint8_t()}).
+-type shim() :: #shim{}.
+
+-record(mpls, {labels =  :: shim()}).
+-type mpls() :: #mpls{}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_null.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_protocol_family.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_rarp.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_sctp.hrl Added

@@ -0,0 +1,113 @@
+-define(SCTP_CHUNK_DATA, 0).                % Payload data
+-define(SCTP_CHUNK_INIT, 1).                % Initiation
+-define(SCTP_CHUNK_INIT_ACK, 2).            % Initiation acknowledgement
+-define(SCTP_CHUNK_SACK, 3).                % Selective acknowledgement
+-define(SCTP_CHUNK_HEARTBEAT, 4).           % Heartbeat request
+-define(SCTP_CHUNK_HEARTBEAT_ACK, 5).       % Heartbeat acknowledgement
+-define(SCTP_CHUNK_ABORT, 6).               % Abort
+-define(SCTP_CHUNK_SHUTDOWN, 7).            % Shutdown
+-define(SCTP_CHUNK_SHUTDOWN_ACK, 8).        % Shutdown acknowledgement
+-define(SCTP_CHUNK_ERROR, 9).               % Operation error
+-define(SCTP_CHUNK_COOKIE_ECHO, 10).        % State cookie
+-define(SCTP_CHUNK_COOKIE_ACK, 11).         % Cookie acknowledgement
+-define(SCTP_CHUNK_SHUTDOWN_COMPLETE, 14).  % Shutdown complete
+
+-record(sctp_chunk_data, {
+    tsn = 0 :: pkt:uint32_t(),
+    sid = 0 :: pkt:uint16_t(),
+    ssn = 0 :: pkt:uint16_t(),
+    ppi = 0 :: pkt:uint32_t(),
+    data = <<>> :: binary()
+}).
+
+-record(sctp_chunk_init, {
+    itag = 0 :: pkt:uint32_t(),
+    a_rwnd = 0 :: pkt:uint32_t(),
+    outbound_streams = 0 :: pkt:uint16_t(),
+    inbound_streams = 0 :: pkt:uint16_t(),
+    tsn = 0 :: pkt:uint32_t(),
+    params =  :: proplists:property()
+}).
+
+-record(sctp_chunk_init_ack, {
+    itag = 0 :: pkt:uint32_t(),
+    a_rwnd = 0 :: pkt:uint32_t(),
+    outbound_streams = 0 :: pkt:uint16_t(),
+    inbound_streams = 0 :: pkt:uint16_t(),
+    tsn = 0 :: pkt:uint32_t(),
+    params  =  :: proplists:property()
+}).
+
+-record(sctp_chunk_sack, {
+    tsn_ack = 0 :: pkt:uint32_t(),
+    a_rwnd = 0 :: pkt:uint32_t(),
+    number_gap_ack_blocks = 0 :: pkt:uint16_t(),
+    number_duplicate_tsn = 0 :: pkt:uint16_t(),
+    gap_ack_blocks =  :: {pkt:uint16_t(), pkt:uint16_t()},
+    duplicate_tsns =  :: pkt:uint32_t()
+}).
+
+-record(sctp_chunk_cookie_echo, {
+    cookie :: binary()
+}).
+
+-record(sctp_chunk_cookie_ack, {}).
+
+-record(sctp_chunk_heartbeat, {
+    type = 1 :: 1,
+    info = <<>> :: binary()
+}).
+
+-record(sctp_chunk_heartbeat_ack, {
+    type = 1 :: 1,
+    info = <<>> :: binary()
+}).
+
+-record(sctp_chunk_shutdown, {
+    tsn_ack = 0 :: pkt:uint32_t()
+}).
+
+-record(sctp_chunk_shutdown_ack, {}).
+-record(sctp_chunk_shutdown_complete, {}).
+
+-record(sctp_error_cause, {
+    code :: 1..13,
+    descr :: string(),
+    opts =  :: proplists:property()
+}).
+
+-record(sctp_chunk_abort, {
+    error_causes =  :: #sctp_error_cause{}
+}).
+
+-record(sctp_chunk, {
+    type = 0 :: 0..254, %% The value of 255 is reserved for future use as an extension field
+    %% Flags
+    i = 0 :: pkt:bit(),
+    u = 0 :: pkt:bit(),
+    b = 1 :: pkt:bit(),
+    e = 0 :: pkt:bit(),
+    %% End of flags
+    len = 0 :: pkt:uint16_t(),
+    payload = <<>> ::
+        #sctp_chunk_data{}
+        | #sctp_chunk_init{}
+        | #sctp_chunk_init_ack{}
+        | #sctp_chunk_sack{}
+        | #sctp_chunk_cookie_echo{}
+        | #sctp_chunk_cookie_ack{}
+        | #sctp_chunk_heartbeat{}
+        | #sctp_chunk_heartbeat_ack{}
+        | #sctp_chunk_shutdown{}
+        | #sctp_chunk_shutdown_ack{}
+        | #sctp_chunk_shutdown_complete{}
+        | binary()
+}).
+
+-record(sctp, {
+    sport  = 0  :: inet:port_number(),
+    dport  = 0  :: inet:port_number(),
+    vtag   = 0  :: pkt:uint32_t(),
+    sum    = 0  :: pkt:uint32_t(),
+    chunks =  :: #sctp_chunk{}
+}).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_tcp.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_udp.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/include/pkt_vrrp.hrl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/rebar.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/rebar.lock Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt.app.src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt.erl Added

@@ -0,0 +1,683 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt).
+
+-include("pkt.hrl").
+
+-export(
+        checksum/1,
+        build_checksum/1,
+        codec/1, encode/1,
+        decapsulate/1, decapsulate/2,
+        decode/1, decode/2,
+        makesum/1,
+        ether/1,
+        ether_type/1,
+        mpls/1,
+        '802.1q'/1,
+	'802.1x'/1,
+        llc/1,
+        arp/1,
+        rarp/1,
+        lldp/1,
+        null/1,
+        gre/1,
+        linux_cooked/1,
+        linux_cooked_v2/1,
+        icmp/1,
+        icmp6/1,
+        igmp/1,
+        ipv4/1,
+        ipv6/1,
+        vrrp/1,
+        ipv6_ah/1,
+        ipv6_dstopts/1,
+        ipv6_esp/1,
+        ipv6_fragment/1,
+        ipv6_hopopts/1,
+        ipv6_routing/1,
+        ipproto/1, proto/1,
+        tcp/1,
+        tcp_options/1,
+        udp/1,
+        sctp/1,
+        verify_checksum/1,
+        dlt/1, link_type/1
+).
+
+-type bit() :: 0 .. 1.
+-type in_port_t() :: 0 .. 16#ffff.
+-type bit4() :: 0 .. 2#1111.
+-type uint8_t() :: 0..16#ff.
+-type uint16_t() :: 0 .. 16#ffff.
+-type uint32_t() :: 0 .. 16#ffffffff.
+-type in_addr() :: {uint8_t(),uint8_t(),uint8_t(),uint8_t()}.
+-type in6_addr() :: {uint16_t(),uint16_t(),uint16_t(),uint16_t(),uint16_t(),uint16_t(),uint16_t(),uint16_t()}.
+
+-export_type(
+        bit/0,
+        in6_addr/0,
+        in_addr/0,
+        in_port_t/0,
+        bit4/0,
+        uint8_t/0,
+        uint16_t/0,
+        uint32_t/0
+    ).
+
+% For integers, assume a whole frame and check the datalink type.
+%
+% Atoms can indicate any protocol type.
+decapsulate(Proto, Data) ->
+    decapsulate({Proto, Data}).
+
+decapsulate({DLT, Data}) when is_integer(DLT) ->
+    decapsulate_next({dlt(DLT), Data}, );
+decapsulate({Proto, Data}) when is_atom(Proto) ->
+    decapsulate_next({Proto, Data}, );
+decapsulate(Data) when is_binary(Data) ->
+    decapsulate_next({ether, Data}, ).
+
+% Aliases
+decapsulate_next({en10mb, Data}, Headers) ->
+    decapsulate_next({ether, Data}, Headers);
+decapsulate_next({linux_sll, Data}, Headers) ->
+    decapsulate_next({linux_cooked, Data}, Headers);
+decapsulate_next({linux_sll2, Data}, Headers) ->
+    decapsulate_next({linux_cooked_v2, Data}, Headers);
+
+% Protocol header indicates next header
+decapsulate_next({null, Data}, Headers) ->
+    {Header, Payload} = null(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({linux_cooked, Data}, Headers) ->
+    {Header, Payload} = linux_cooked(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({linux_cooked_v2, Data}, Headers) ->
+    {Header, Payload} = linux_cooked_v2(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({ether, Data}, Headers) ->
+    {Header, Payload} = ether(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({mpls, Data}, Headers) ->
+    {Header, Next, Payload} = mpls(Data),
+    decapsulate_next({Next, Payload}, Header|Headers);
+decapsulate_next({'802.1q', Data}, Headers) ->
+    {Header, Payload} = '802.1q'(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({'802.1qinq', Data}, Headers) ->
+    {Header, Payload} = '802.1q'(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({llc, Data}, Headers) ->
+    {Header, Payload} = llc(Data),
+    lists:reverse(Payload, Header|Headers);
+
+decapsulate_next({ipv4, Data}, Headers) ->
+    {Header, Payload} = ipv4(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({ipv6, Data}, Headers) ->
+    {Header, Payload} = ipv6(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+
+decapsulate_next({ipv6_ah, Data}, Headers) ->
+    {Header, Payload} = ipv6_ah(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({ipv6_dstopts, Data}, Headers) ->
+    {Header, Payload} = ipv6_dstopts(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({ipv6_esp, Data}, Headers) ->
+    {Header, Payload} = ipv6_esp(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({ipv6_fragment, Data}, Headers) ->
+    {Header, Payload} = ipv6_fragment(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({ipv6_hopopts, Data}, Headers) ->
+    {Header, Payload} = ipv6_hopopts(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+decapsulate_next({ipv6_routing, Data}, Headers) ->
+    {Header, Payload} = ipv6_routing(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+
+decapsulate_next({gre, Data}, Headers) ->
+    {Header, Payload} = gre(Data),
+    decapsulate_next({next(Header), Payload}, Header|Headers);
+
+% Upper layer: data follows header
+decapsulate_next({arp, Data}, Headers) ->
+    {Header, Payload} = arp(Data),
+    lists:reverse(Payload, Header|Headers);
+decapsulate_next({rarp, Data}, Headers) ->
+    {Header, Payload} = rarp(Data),
+    lists:reverse(Payload, Header|Headers);
+decapsulate_next({lldp, Data}, Headers) ->
+    {Header, Payload} = lldp(Data),
+    lists:reverse(Payload, Header|Headers);
+decapsulate_next({tcp, Data}, Headers) ->
+    {Header, Payload} = tcp(Data),
+    lists:reverse(Payload, Header|Headers);
+decapsulate_next({udp, Data}, Headers) ->
+    {Header, Payload} = udp(Data),
+    lists:reverse(Payload, Header|Headers);
+decapsulate_next({sctp, Data}, Headers) ->
+    {Header, Payload} = sctp(Data),
+    lists:reverse(Payload, Header|Headers);
+decapsulate_next({icmp, Data}, Headers) ->
+    {Header, Payload} = icmp(Data),
+    lists:reverse(Payload, Header|Headers);
+decapsulate_next({icmp6, Data}, Headers) ->
+    {Header, Payload} = icmp6(Data),
+    lists:reverse(Payload, Header|Headers);
+decapsulate_next({igmp, Data}, Headers) ->
+    {Header, Payload} = igmp(Data),
+    lists:reverse(Payload, Header|Headers);
+decapsulate_next({vrrp, Data}, Headers) ->
+    {Header, Payload} = vrrp(Data),
+    lists:reverse(Payload, Header | Headers);
+decapsulate_next({'802.1x', Data}, Headers) ->
+    {Header, Payload} = '802.1x'(Data),
+    lists:reverse(Payload, Header|Headers);
+
+% IPv6 NONE pseudo-header
+decapsulate_next({ipv6_none, Data}, Headers) ->
+    lists:reverse(Data|Headers);
+
+decapsulate_next({'$stop', Data}, Headers) ->
+    lists:reverse(Data|Headers).
+
+codec(Data) when is_binary(Data) ->
+    decode(Data);
+codec(Data) ->
+    encode(Data).
+
+encode({Pdus, Payload}) when is_list(Pdus) or is_tuple(Pdus), is_binary(Payload) ->
+    PduBin = encode(Pdus),
+    <<PduBin/binary, Payload/binary>>;
+encode() -> <<>>;
+encode(H|R) ->
+    B1 = encode(H),
+    B2 = encode(R),
+    <<B1/binary, B2/binary>>;
+encode(Data) when is_tuple(Data) ->
+    Proto = element(1, Data),
+    ?MODULE:Proto(Data);
+encode(Data) when is_binary(Data) ->
+    Data.
+
+decode(Data) when is_binary(Data) ->
+    decode(ether, Data).
+
+decode(Proto, Data) when is_atom(Proto) ->
+    try decode_next({Proto, Data}, ) of
+        N ->
+            N
+    catch
+        error:_ ->
+            {error, , {unsupported, Data}}
+    end.
+
+% Aliases
+decode_next({en10mb, Data}, Headers) ->
+    decode_next({ether, Data}, Headers);
+decode_next({linux_sll, Data}, Headers) ->
+    decode_next({linux_cooked, Data}, Headers);
+decode_next({linux_sll2, Data}, Headers) ->
+    decode_next({linux_cooked_v2, Data}, Headers);
+
+% Protocol header indicates next header
+decode_next({Proto, Data}, Headers) when
+    Proto =:= ether;
+    Proto =:= gre;
+    Proto =:= ipv4;
+    Proto =:= ipv6;
+    Proto =:= linux_cooked;
+    Proto =:= linux_cooked_v2;
+    Proto =:= null;
+    Proto =:= '802.1q';
+
+    Proto =:= ipv6_ah;
+    Proto =:= ipv6_dstopts;
+    Proto =:= ipv6_esp;
+    Proto =:= ipv6_fragment;
+    Proto =:= ipv6_hopopts;
+    Proto =:= ipv6_routing ->
+
+    Decode = try ?MODULE:Proto(Data) of
+        N ->
+            {ok, N}
+    catch
+        error:_ ->
+            {error, lists:reverse(Headers), {Proto, Data}}
+    end,
+
+    case Decode of
+        {ok, {Header, Payload}} ->
+            try next(Header) of
+                '$stop' ->
+                    {ok, {lists:reverse(Header|Headers), Payload}};
+                Next ->
+                    decode_next({Next, Payload}, Header|Headers)
+            catch
+                error:_ ->
+                    {error, lists:reverse(Header|Headers), {unsupported, Payload}}
+            end;
+        {error, _, _} = Error ->
+            Error
+    end;
+
+% Upper layer: data follows header
+
+% IPv6 NONE pseudo-header
+decode_next({ipv6_none, Data}, Headers) ->
+    {ok, {lists:reverse(Headers), Data}};
+
+decode_next({Proto, Data}, Headers) when
+    Proto =:= arp;
+    Proto =:= rarp;
+    Proto =:= '802.1x';
+    Proto =:= lldp;
+    Proto =:= icmp;
+    Proto =:= icmp6;
+    Proto =:= igmp;
+    Proto =:= sctp;
+    Proto =:= sctp;
+    Proto =:= tcp;
+    Proto =:= udp ->
+    try ?MODULE:Proto(Data) of
+        {Header, Payload} ->
+            {ok, {lists:reverse(Header|Headers), Payload}}
+    catch
+        error:_ ->
+            {error, lists:reverse(Headers), {Proto, Data}}
+    end.
+
+next(#null{family = Family}) -> family(Family);
+next(#linux_cooked{pro = Pro}) -> ether_type(Pro);
+next(#linux_cooked_v2{pro = Pro}) -> ether_type(Pro);
+next(#ether{type = Type}) -> ether_type(Type);
+next(#'802.1q'{type = Type}) -> ether_type(Type);
+next(#ipv4{off = Off}) when Off =/= 0 -> '$stop';
+next(#ipv4{p = P}) -> ipproto(P);
+next(#gre{type = Type}) -> ether_type(Type);
+next(#ipv6{next = Next}) -> ipproto(Next);
+next(#ipv6_ah{next = Next}) -> ipproto(Next);
+next(#ipv6_dstopts{next = Next}) -> ipproto(Next);
+next(#ipv6_esp{next = Next}) -> ipproto(Next);
+next(#ipv6_fragment{off = Off}) when Off =/= 0 -> '$stop';
+next(#ipv6_fragment{next = Next}) -> ipproto(Next);
+next(#ipv6_hopopts{next = Next}) -> ipproto(Next);
+next(#ipv6_routing{next = Next}) -> ipproto(Next).
+
+%% BSD loopback
+null(N) ->
+    pkt_null:codec(N).
+
+%% Linux cooked capture ("-i any") - DLT_LINUX_SLL
+linux_cooked(N) ->
+    pkt_linux_cooked:codec(N).
+linux_cooked_v2(N) ->
+    pkt_linux_cooked_v2:codec(N).
+
+%% Ethernet
+ether(N) ->
+    pkt_ether:codec(N).
+
+ether_type(N) ->
+    pkt_ether:type(N).
+
+%% MPLS
+mpls(N) ->
+    pkt_mpls:codec(N).
+
+%% ARP
+arp(N) ->
+    pkt_arp:codec(N).
+
+%% RARP
+rarp(N) ->
+    pkt_rarp:codec(N).
+
+%% LLDP
+lldp(N) ->
+    pkt_lldp:codec(N).
+
+llc(N) ->
+    pkt_llc:codec(N).
+
+'802.1q'(N) ->
+    pkt_802_1q:codec(N).
+
+%% 802.1x
+'802.1x'(N) ->
+    pkt_802_1x:codec(N).
+
+%% IPv4
+ipv4(N) ->
+    pkt_ipv4:codec(N).
+
+
+%% IPv6
+ipv6(N) ->
+    pkt_ipv6:codec(N).
+
+ipv6_ah(N) ->
+    pkt_ipv6_ah:codec(N).
+ipv6_dstopts(N) ->
+    pkt_ipv6_dstopts:codec(N).
+ipv6_esp(N) ->
+    pkt_ipv6_esp:codec(N).
+ipv6_fragment(N) ->
+    pkt_ipv6_fragment:codec(N).
+ipv6_hopopts(N) ->
+    pkt_ipv6_hopopts:codec(N).
+ipv6_routing(N) ->
+    pkt_ipv6_routing:codec(N).
+
+%% GRE
+gre(N) ->
+    pkt_gre:codec(N).
+
+%% TCP
+tcp(N) ->
+    pkt_tcp:codec(N).
+
+tcp_options(N) ->
+    pkt_tcp:options(N).
+
+%% SCTP
+sctp(N) ->
+    pkt_sctp:codec(N).
+
+%% UDP
+udp(N) ->
+    pkt_udp:codec(N).
+
+%% ICMP
+icmp(N) ->
+    pkt_icmp:codec(N).
+
+%% ICMPv6
+icmp6(N) ->
+    pkt_icmp6:codec(N).
+
+%% IGMP
+igmp(N) ->
+    pkt_igmp:codec(N).
+
+vrrp(N) ->
+    pkt_vrrp:codec(N).
+
+%% Datalink types
+link_type(N) ->
+    dlt(N).
+
+dlt(N) ->
+    pkt_dlt:codec(N).
+
+%% IP protocols
+proto(N) ->
+    ipproto(N).
+
+ipproto(N) ->
+    pkt_ipproto:codec(N).
+
+%% Protocol families: BSD NULL (loopback) linktype
+family(?PF_INET) -> ipv4;
+family(Family) ->
+    case {os:type(), Family} of
+        {{unix,darwin}, 30} -> ipv6;
+        {{unix,freebsd}, 28} -> ipv6;
+        {{unix,netbsd}, 24} -> ipv6;
+        {{unix,openbsd}, 24} -> ipv6
+    end.
+
+%%
+%% Utility functions
+%%
+
+% TCP pseudoheader checksum
+checksum(#ipv4{
+        saddr = {SA1,SA2,SA3,SA4},
+        daddr = {DA1,DA2,DA3,DA4},
+        len = IPLen,
+        hl = HL
+    },
+    #tcp{
+        off = Off
+    } = TCPhdr,
+    Payload
+) ->
+    Len = IPLen - (HL * 4),
+    PayloadLen = IPLen - ((HL * 4) + (Off * 4)),
+    TCP = tcp(TCPhdr),
+    checksum(
+        <<SA1,SA2,SA3,SA4,
+          DA1,DA2,DA3,DA4,
+          0:8,
+          ?IPPROTO_TCP:8,
+          Len:16,
+          TCP/binary,
+          Payload:PayloadLen/binary>>
+    );
+
+% UDP pseudoheader checksum
+checksum(#ipv4{
+        saddr = {SA1,SA2,SA3,SA4},
+        daddr = {DA1,DA2,DA3,DA4}
+    },
+    #udp{
+        ulen = Len
+    } = Hdr,
+    Payload
+) ->
+    UDP = udp(Hdr),
+    checksum(
+        <<SA1,SA2,SA3,SA4,
+          DA1,DA2,DA3,DA4,
+          0:8,
+          ?IPPROTO_UDP:8,
+          Len:16,
+          UDP/binary,
+          Payload/bits>>
+    );
+
+checksum(#ipv4{} = H) ->
+    checksum(ipv4(H));
+
+checksum(#ipv6{
+	     len = IPLen, next = Next,
+	     saddr = {SA1, SA2, SA3, SA4, SA5, SA6, SA7, SA8},
+	     daddr = {DA1, DA2, DA3, DA4, DA5, DA6, DA7, DA8}
+	    },
+	    #tcp{
+                 off = Off
+            } = TCPhdr,
+	  Payload
+	 ) when Next == ?IPPROTO_TCP ->
+    PayloadLen = IPLen - (Off * 4),
+    %% calculation of the TCP header
+    TCP_Header = pkt:tcp(TCPhdr),
+    pkt:checksum(
+      <<
+        %% calculation of the ipv6 pseudo header: rfc2460
+	SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
+	DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
+        IPLen:32,
+        0:24, Next:8,
+        TCP_Header/binary,
+        %% calculation of the padded payload
+	Payload:PayloadLen/binary>>
+     );
+
+checksum(#ipv6{
+	     len = IPLen, next = Next,
+	     saddr = {SA1, SA2, SA3, SA4, SA5, SA6, SA7, SA8},
+	     daddr = {DA1, DA2, DA3, DA4, DA5, DA6, DA7, DA8}
+	    },
+	    #udp{
+            } = UDPhdr,
+	  Payload
+	 ) when Next == ?IPPROTO_UDP ->
+    PayloadLen = IPLen - 8, % header offset for saddr, daddr is 8
+    %% calculation of the UDP header
+    UDP_Header = pkt:udp(UDPhdr),
+    pkt:checksum(
+      <<
+        %% calculation of the ipv6 pseudo header: rfc2460
+	SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
+	DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
+        IPLen:32,
+        0:24, Next:8,
+        UDP_Header/binary,
+        %% calculation of the padded payload
+	Payload:PayloadLen/binary>>
+     );
+
+checksum(#ipv6{} = H) ->
+    checksum(ipv6(H));
+
+checksum(Bin) ->
+ 	checksum(Bin, 0).
+
+checksum(<<N1:64/integer, N2:64/integer, N3:64/integer, N4:64/integer, N5:64/integer, N6:64/integer, N7:64/integer, N8:64/integer, ReminderBin/binary>>, Checksum128Bit) ->
+ 	checksum(ReminderBin, N1+N2+N3+N4+N5+N6+N7+N8+Checksum128Bit);
+
+checksum(<<N1:64/integer, N2:64/integer, N3:64/integer, N4:64/integer, ReminderBin/binary>>, Checksum128Bit) ->
+ 	checksum(ReminderBin, N1+N2+N3+N4+Checksum128Bit);
+
+checksum(<<N1:64/integer, N2:64/integer, ReminderBin/binary>>, Checksum128Bit) ->
+ 	checksum(ReminderBin, N1+N2+Checksum128Bit);
+
+checksum(<<N:64/integer, ReminderBin/binary>>, Checksum128Bit) ->
+ 	checksum(ReminderBin, N+Checksum128Bit);
+
+checksum(<<N:16/integer, ReminderBin/binary>>, Checksum128Bit) ->
+ 	checksum(ReminderBin, N+Checksum128Bit);
+
+checksum(<<N:8/integer>>, Checksum128Bit) ->
+ 	checksum(<<>>, (N bsl 8)+Checksum128Bit);
+
+checksum(<<>>, Checksum128Bit) ->
+        Checksum64Bit = foldWithOverflow64(Checksum128Bit),
+        Checksum32Bit = foldWithOverflow32(Checksum64Bit),
+        Checksum16Bit = foldWithOverflow16(Checksum32Bit),
+        Checksum16Bit.
+
+foldWithOverflow64(A) ->
+        C = A band 16#FFFFFFFFFFFFFFFF,
+	D = (A bsr 64) band 16#FFFFFFFFFFFFFFFF,
+	E = (C + D) band 16#FFFFFFFFFFFFFFFF,
+        case E < D of
+		true ->
+			E + 1; % overflow
+		false ->
+			E
+         end.
+
+foldWithOverflow32(A) ->
+        C = A band 16#FFFFFFFF,
+	D = (A bsr 32) band 16#FFFFFFFF,
+	E = (C + D) band 16#FFFFFFFF,
+        case E < D of
+		true ->
+			E + 1; % overflow
+		false ->
+			E
+         end.
+
+foldWithOverflow16(A) ->
+        C = A band 16#FFFF,
+	D = (A bsr 16) band 16#FFFF,
+	E = (C + D) band 16#FFFF,
+        case E < D of
+		true ->
+			E + 1; % overflow
+		false ->
+			E
+         end.
+
+
+makesum(IP, UDP, Payload) when % handle UDP packets
+    (is_record(IP,ipv4) or is_record(IP,ipv6)) and is_record(UDP,udp)->
+    Sum = (checksum(IP, UDP, Payload) bxor 16#FFFF) band 16#FFFF, % bitwise-complement
+    if
+      Sum == 0 -> 16#FFFF; % According RFC 6935 0x0000 checksum shall be replaced by 0xFFFF
+      true -> Sum
+    end;
+
+makesum(Hdr) ->
+	(checksum(Hdr) bxor 16#FFFF) band 16#FFFF. % bitwise-complement
+
+%%Note:
+%% - Checksum building for tunneled packets according to RFC 6936 is not supported
+%% - Jumbo packets are not supported
+%% - Extension headers are not supported
+
+build_checksum(#ipv4{} = IP, #tcp{} = TCP, Payload) -> % handle IPv4 TCP packets
+    {ipv4_tcp, makesum(IP#ipv4{sum=0}), makesum(IP, TCP#tcp{sum = 0}, Payload)};
+
+build_checksum(#ipv6{} = IP, #tcp{} = TCP, Payload) -> % handle IPv6 TCP packets
+    {ipv6_tcp, makesum(IP, TCP#tcp{sum = 0}, Payload)};
+
+build_checksum(#ipv4{} = IP, #udp{} = UDP, Payload) -> % handle IPv4 UDP packets
+    {ipv4_udp, makesum(IP#ipv4{sum=0}), makesum(IP, UDP#udp{sum = 0}, Payload)};
+
+build_checksum(#ipv6{} = IP, #udp{} = UDP, Payload)-> % handle IPv6 UDP packets
+    {ipv6_udp, makesum(IP, UDP#udp{sum = 0}, Payload)}.
+
+
+verify_checksum(#ipv4{} = IP, #tcp{} = TCP, Payload) -> % handle IPv4 TCP packets
+    build_checksum(IP, TCP, Payload) == {ipv4_tcp, IP#ipv4.sum, TCP#tcp.sum};
+
+verify_checksum(#ipv6{} = IP, #tcp{} = TCP, Payload) -> % handle IPv6 TCP packets
+    build_checksum(IP, TCP, Payload) == {ipv6_tcp, TCP#tcp.sum};
+
+verify_checksum(#ipv4{} = IP, #udp{} = UDP, Payload) -> % handle IPv4 UDP packets
+    if
+      UDP#udp.sum == 0 -> % for ipv4 the UDP checksum is optional. According RFC 6935, the UDP checksum shall be ignored, when set to 0x0000.
+        {ipv4_udp, IPv4sum, _} = build_checksum(IP, UDP, Payload), % ignore UDP checksum, as UDP#udp.sum is 0
+        if
+          IPv4sum == IP#ipv4.sum ->
+            true; % ok
+          true ->
+            false % checksum failure as IP4 checksum does not match
+        end;
+      true ->
+          build_checksum(IP, UDP, Payload) == {ipv4_udp, IP#ipv4.sum, UDP#udp.sum}
+    end;
+
+verify_checksum(#ipv6{} = IP, #udp{} = UDP, Payload) -> % handle IPv6 UDP packets
+    if
+      UDP#udp.sum == 0 ->
+        % for ipv6 the UDP packets, which contain the checksum 0x0000 are invalid according RFC 6935, they shall be discarded and an error shall be logged.
+        false; % Thus set checksum as invalid
+      true ->
+        build_checksum(IP, UDP, Payload) == {ipv6_udp, UDP#udp.sum}
+    end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_802_1q.erl Added

@@ -0,0 +1,69 @@
+%% Copyright (c) 2009-2016, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+
+%% IEEE 802.1Q, 802.1ad (802.1q QinQ)
+-module(pkt_802_1q).
+
+-include("pkt_802_1q.hrl").
+
+-export(codec/1).
+
+% See: https://en.wikipedia.org/wiki/IEEE_802.1ad
+%
+% The 802.1q 4-byte tag is inserted into the frame between the source
+% MAC and the original tag:
+%
+%   Original frame:
+%       <<Dhost:6/bytes, Shost:6/bytes, EtherType:16, Payload/binary>>
+%
+%   With 802.1q tag:
+%       <<Dhost:6/bytes, Shost:6/bytes,
+%           16#81, 16#00, Prio:3, CFI:1, VID:12,
+%           EtherType:16, Payload/binary>>
+%
+%   802.1ad (802.1QinQ) tag:
+%       <<Dhost:6/bytes, Shost:6/bytes,
+%           16#88, 16#a8, Prio:3, CFI:1, VID:12,
+%           16#81, 16#00, Prio:3, CFI:1, VID:12,
+%           EtherType:16, Payload/binary>>
+%
+% The original ethernet type tag is replaced with the 802.1q TPID. The
+% inner 802.1q header (tag 2 or C-TAG) is set to the original ethertype.
+%
+codec(<<Prio:3, CFI:1, VID:12, Type:16, Payload/binary>>) ->
+    {#'802.1q'{
+        prio = Prio,
+        cfi = CFI,
+        vid = VID,
+        type = Type
+    }, Payload};
+codec(#'802.1q'{prio = Prio, cfi = CFI, vid = VID, type = Type}) ->
+    <<Prio:3, CFI:1, VID:12, Type:16>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_802_1x.erl Added

@@ -0,0 +1,45 @@
+%% Copyright (c) 2009-2017, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_802_1x).
+
+-include("pkt_ether.hrl").
+-include("pkt_802_1x.hrl").
+
+-export(codec/1).
+
+codec(<<Ver:8, Type:8, Len:16, Payload/binary>>) ->
+    {#'802.1x'{
+	ver = Ver, type = Type, len = Len
+    }, Payload};
+codec(#'802.1x'{
+	 ver = Ver, type = Type, len = Len
+    }) ->
+    <<Ver:8, Type:8, Len:16>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_arp.erl Added

@@ -0,0 +1,67 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_arp).
+
+-include("pkt_ether.hrl").
+-include("pkt_arp.hrl").
+
+-export(codec/1).
+
+codec(<<Hrd:16, Pro:16,
+    Hln:8, Pln:8, Op:16,
+    Sha:6/bytes,
+    SA1:8, SA2:8, SA3:8, SA4:8,
+    Tha:6/bytes,
+    DA1:8, DA2:8, DA3:8, DA4:8,
+    Payload/binary>>
+) ->
+    {#arp{
+        hrd = Hrd, pro = Pro,
+        hln = Hln, pln = Pln, op = Op,
+        sha = Sha,
+        sip = {SA1,SA2,SA3,SA4},
+        tha = Tha,
+        tip = {DA1,DA2,DA3,DA4}
+    }, Payload};
+codec(#arp{
+        hrd = Hrd, pro = Pro,
+        hln = Hln, pln = Pln, op = Op,
+        sha = Sha,
+        sip = {SA1,SA2,SA3,SA4},
+        tha = Tha,
+        tip = {DA1,DA2,DA3,DA4}
+    }) ->
+    <<Hrd:16, Pro:16,
+    Hln:8, Pln:8, Op:16,
+    Sha:6/bytes,
+    SA1:8, SA2:8, SA3:8, SA4:8,
+    Tha:6/bytes,
+    DA1:8, DA2:8, DA3:8, DA4:8>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_dlt.erl Added

@@ -0,0 +1,96 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_dlt).
+
+-include("pkt_dlt.hrl").
+
+-export(codec/1).
+
+%%
+%% Datalink types
+%%
+codec(?DLT_NULL) -> null;
+codec(?DLT_EN10MB) -> en10mb;
+codec(?DLT_EN3MB) -> en3mb;
+codec(?DLT_AX25) -> ax25;
+codec(?DLT_PRONET) -> pronet;
+codec(?DLT_CHAOS) -> chaos;
+codec(?DLT_IEEE802) -> ieee802;
+codec(?DLT_ARCNET) -> arcnet;
+codec(?DLT_SLIP) -> slip;
+codec(?DLT_PPP) -> ppp;
+codec(?DLT_FDDI) -> fddi;
+codec(?DLT_ATM_RFC1483) -> atm_rfc1483;
+codec(?DLT_RAW) -> raw;
+codec(?DLT_SLIP_BSDOS) -> slip_bsdos;
+codec(?DLT_PPP_BSDOS) -> ppp_bsdos;
+codec(?DLT_PFSYNC) -> pfsync;
+codec(?DLT_ATM_CLIP) -> atm_clip;
+codec(?DLT_PPP_SERIAL) -> ppp_serial;
+%dlt(?DLT_C_HDLC) -> c_hdlc;
+codec(?DLT_CHDLC) -> chdlc;
+codec(?DLT_IEEE802_11) -> ieee802_11;
+codec(?DLT_LOOP) -> loop;
+codec(?DLT_LINUX_SLL) -> linux_sll;
+codec(?DLT_PFLOG) -> pflog;
+codec(?DLT_IEEE802_11_RADIO) -> ieee802_11_radio;
+codec(?DLT_APPLE_IP_OVER_IEEE1394) -> apple_ip_over_ieee1394;
+codec(?DLT_IEEE802_11_RADIO_AVS) -> ieee802_11_radio_avs;
+codec(?DLT_LINUX_SLL2) -> linux_sll2;
+
+codec(null) -> ?DLT_NULL;
+codec(en10mb) -> ?DLT_EN10MB;
+codec(en3mb) -> ?DLT_EN3MB;
+codec(ax25) -> ?DLT_AX25;
+codec(pronet) -> ?DLT_PRONET;
+codec(chaos) -> ?DLT_CHAOS;
+codec(ieee802) -> ?DLT_IEEE802;
+codec(arcnet) -> ?DLT_ARCNET;
+codec(slip) -> ?DLT_SLIP;
+codec(ppp) -> ?DLT_PPP;
+codec(fddi) -> ?DLT_FDDI;
+codec(atm_rfc1483) -> ?DLT_ATM_RFC1483;
+codec(raw) -> ?DLT_RAW;
+codec(slip_bsdos) -> ?DLT_SLIP_BSDOS;
+codec(ppp_bsdos) -> ?DLT_PPP_BSDOS;
+codec(pfsync) -> ?DLT_PFSYNC;
+codec(atm_clip) -> ?DLT_ATM_CLIP;
+codec(ppp_serial) -> ?DLT_PPP_SERIAL;
+codec(c_hdlc) -> ?DLT_C_HDLC;
+codec(chdlc) -> ?DLT_CHDLC;
+codec(ieee802_11) -> ?DLT_IEEE802_11;
+codec(loop) -> ?DLT_LOOP;
+codec(linux_sll) -> ?DLT_LINUX_SLL;
+codec(pflog) -> ?DLT_PFLOG;
+codec(ieee802_11_radio) -> ?DLT_IEEE802_11_RADIO;
+codec(apple_ip_over_ieee1394) -> ?DLT_APPLE_IP_OVER_IEEE1394;
+codec(ieee802_22_radio_avs) -> ?DLT_IEEE802_11_RADIO_AVS;
+codec(linux_sll2) -> ?DLT_LINUX_SLL2.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ether.erl Added

@@ -0,0 +1,65 @@
+%% Copyright (c) 2009-2016, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ether).
+
+-include("pkt_ether.hrl").
+
+-export(codec/1, type/1).
+
+type(?ETH_P_IP) -> ipv4;
+type(?ETH_P_IPV6) -> ipv6;
+type(?ETH_P_ARP) -> arp;
+type(?ETH_P_RARP) -> rarp;
+type(?ETH_P_LLDP) -> lldp;
+%% IEEE 802.3 Ethernet
+type(EtherType) when EtherType < 16#05DC -> llc;
+%% 802.1Q Virtual LAN
+type(?ETH_P_802_1Q) -> '802.1q';
+%% 802.1X EAPoL
+type(?ETH_P_802_1X) -> '802.1x';
+%% 802.1ad (802.1q QinQ)
+type(?ETH_P_802_1QinQ) -> '802.1qinq';
+%% MPLS_
+type(?ETH_P_MPLS_UNI) -> mpls;
+type(?ETH_P_MPLS_MULTI) -> mpls.
+
+codec(<<Dhost:6/bytes, Shost:6/bytes, Type:16, Payload/binary>>) ->
+%    Len = byte_size(Packet) - 4,
+%    <<Payload:Len/bytes, CRC:4/bytes>> = Packet,
+    {#ether{
+       dhost = Dhost, shost = Shost,
+       type = Type
+      }, Payload};
+codec(#ether{
+       dhost = Dhost, shost = Shost,
+       type = Type
+      }) ->
+    <<Dhost:6/bytes, Shost:6/bytes, Type:16>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_gre.erl Added

@@ -0,0 +1,61 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_gre).
+
+-include("pkt_ether.hrl").
+-include("pkt_gre.hrl").
+
+-export(codec/1).
+
+codec(<<C:1,R:1,K:1,S:1,Res0:9,Ver:3,Type:16,Bin/binary>>) ->
+  {Chksum, Res1, Key, Sequence, Payload} = unpack(C, K, S, Bin),
+  {#gre{c = C, r = R, k = K, s = S, res0 = Res0, ver = Ver, type = Type, chksum = Chksum,
+    res1 = Res1, key = Key, sequence = Sequence
+       },Payload
+    };
+
+codec(#gre{c = C, r = R, k = K, s = S, res0 = Res0, ver = Ver, type = Type, chksum = Chksum,
+    res1 = Res1, key = Key, sequence = Sequence
+       }) ->
+    ChecksumLength = C*16,
+    Res1Length = ChecksumLength,
+    KeyLength = K*32,
+    SequenceLength = S*32,
+    <<C:1,R:1,K:1,S:1,Res0:9,Ver:3,Type:16,Chksum:ChecksumLength,Res1:Res1Length,Key:KeyLength,Sequence:SequenceLength>>.
+
+unpack(0, 0, 0, Bin) -> {0, 0, 0, 0, Bin};
+unpack(C, K, S, Bin) ->
+  ChecksumLength = C*16,
+  Res1Length = ChecksumLength,
+  KeyLength = K*32,
+  SequenceLength = S*32,
+  <<Chksum:ChecksumLength,Res1:Res1Length,Key:KeyLength,Sequence:SequenceLength,Payload/binary>> = Bin,
+  {Chksum, Res1, Key, Sequence, Payload}.
\ No newline at end of file

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_icmp.erl Added

@@ -0,0 +1,135 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_icmp).
+
+-include("pkt_icmp.hrl").
+
+-export(codec/1).
+
+% Destination Unreachable Message
+codec(<<?ICMP_DEST_UNREACH:8, Code:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
+    {#icmp{
+        type = ?ICMP_DEST_UNREACH, code = Code, checksum = Checksum, un = Unused
+    }, Payload};
+codec(#icmp{
+        type = ?ICMP_DEST_UNREACH, code = Code, checksum = Checksum, un = Unused
+    }) ->
+    <<?ICMP_DEST_UNREACH:8, Code:8, Checksum:16, Unused:32/bits>>;
+
+% Time Exceeded Message
+codec(<<?ICMP_TIME_EXCEEDED:8, Code:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
+    {#icmp{
+        type = ?ICMP_TIME_EXCEEDED, code = Code, checksum = Checksum, un = Unused
+    }, Payload};
+codec(#icmp{
+        type = ?ICMP_TIME_EXCEEDED, code = Code, checksum = Checksum, un = Unused
+    }) ->
+    <<?ICMP_TIME_EXCEEDED:8, Code:8, Checksum:16, Unused:32/bits>>;
+
+% Parameter Problem Message
+codec(<<?ICMP_PARAMETERPROB:8, Code:8, Checksum:16, Pointer:8, Unused:24/bits, Payload/binary>>) ->
+    {#icmp{
+        type = ?ICMP_PARAMETERPROB, code = Code, checksum = Checksum, pointer = Pointer,
+        un = Unused
+    }, Payload};
+codec(#icmp{
+        type = ?ICMP_PARAMETERPROB, code = Code, checksum = Checksum, pointer = Pointer,
+        un = Unused
+    }) ->
+    <<?ICMP_PARAMETERPROB:8, Code:8, Checksum:16, Pointer:8, Unused:24/bits>>;
+
+% Source Quench Message
+codec(<<?ICMP_SOURCE_QUENCH:8, 0:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
+    {#icmp{
+        type = ?ICMP_SOURCE_QUENCH, code = 0, checksum = Checksum, un = Unused
+    }, Payload};
+codec(#icmp{
+        type = ?ICMP_SOURCE_QUENCH, code = Code, checksum = Checksum, un = Unused
+    }) ->
+    <<?ICMP_SOURCE_QUENCH:8, Code:8, Checksum:16, Unused:32/bits>>;
+
+% Redirect Message
+codec(<<?ICMP_REDIRECT:8, Code:8, Checksum:16, DA1, DA2, DA3, DA4, Payload/binary>>) ->
+    {#icmp{
+        type = ?ICMP_REDIRECT, code = Code, checksum = Checksum, gateway = {DA1,DA2,DA3,DA4}
+    }, Payload};
+codec(#icmp{
+        type = ?ICMP_REDIRECT, code = Code, checksum = Checksum, gateway = {DA1,DA2,DA3,DA4}
+    }) ->
+    <<?ICMP_REDIRECT:8, Code:8, Checksum:16, DA1, DA2, DA3, DA4>>;
+
+% Echo or Echo Reply Message
+codec(<<Type:8, Code:8, Checksum:16, Id:16, Sequence:16, Payload/binary>>)
+when Type =:= ?ICMP_ECHO; Type =:= ?ICMP_ECHOREPLY ->
+    {#icmp{
+        type = Type, code = Code, checksum = Checksum, id = Id,
+        sequence = Sequence
+    }, Payload};
+codec(#icmp{
+        type = Type, code = Code, checksum = Checksum, id = Id,
+        sequence = Sequence
+    })
+when Type =:= ?ICMP_ECHO; Type =:= ?ICMP_ECHOREPLY ->
+    <<Type:8, Code:8, Checksum:16, Id:16, Sequence:16>>;
+
+% Timestamp or Timestamp Reply Message
+codec(<<Type:8, 0:8, Checksum:16, Id:16, Sequence:16, TS_Orig:32, TS_Recv:32, TS_Tx:32>>)
+when Type =:= ?ICMP_TIMESTAMP; Type =:= ?ICMP_TIMESTAMPREPLY ->
+    {#icmp{
+        type = Type, code = 0, checksum = Checksum, id = Id,
+        sequence = Sequence, ts_orig = TS_Orig, ts_recv = TS_Recv, ts_tx = TS_Tx
+    }, <<>>};
+codec(#icmp{
+        type = Type, code = Code, checksum = Checksum, id = Id,
+        sequence = Sequence, ts_orig = TS_Orig, ts_recv = TS_Recv, ts_tx = TS_Tx
+    }) when Type =:= ?ICMP_TIMESTAMP; Type =:= ?ICMP_TIMESTAMPREPLY ->
+    <<Type:8, Code:8, Checksum:16, Id:16, Sequence:16, TS_Orig:32, TS_Recv:32, TS_Tx:32>>;
+
+% Information Request or Information Reply Message
+codec(<<Type:8, 0:8, Checksum:16, Id:16, Sequence:16>>)
+when Type =:= ?ICMP_INFO_REQUEST; Type =:= ?ICMP_INFO_REPLY ->
+    {#icmp{
+        type = Type, code = 0, checksum = Checksum, id = Id,
+        sequence = Sequence
+    }, <<>>};
+codec(#icmp{
+        type = Type, code = Code, checksum = Checksum, id = Id,
+        sequence = Sequence
+    }) when Type =:= ?ICMP_INFO_REQUEST; Type =:= ?ICMP_INFO_REPLY ->
+    <<Type:8, Code:8, Checksum:16, Id:16, Sequence:16>>;
+
+% Catch/build arbitrary types
+codec(<<Type:8, Code:8, Checksum:16, Un:32/bits, Payload/binary>>) ->
+    {#icmp{
+        type = Type, code = Code, checksum = Checksum, un = Un
+    }, Payload};
+codec(#icmp{type = Type, code = Code, checksum = Checksum, un = Un}) ->
+    <<Type:8, Code:8, Checksum:16, Un:32/bits>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_icmp6.erl Added

@@ -0,0 +1,228 @@
+%% Copyright (c) 2009-2017, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_icmp6).
+
+-include("pkt_icmp6.hrl").
+
+-export(codec/1).
+
+%%
+%% ICMPv6 Error Messages
+%%
+
+% Destination Unreachable Message
+codec(<<?ICMP6_DST_UNREACH:8, Code:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
+    {#icmp6{
+        type = ?ICMP6_DST_UNREACH, code = Code, checksum = Checksum, un = Unused
+    }, Payload};
+codec(#icmp6{
+        type = ?ICMP6_DST_UNREACH, code = Code, checksum = Checksum, un = Unused
+    }) ->
+    <<?ICMP6_DST_UNREACH:8, Code:8, Checksum:16, Unused:32/bits>>;
+
+% Packet too big
+codec(<<?ICMP6_PACKET_TOO_BIG:8, Code:8, Checksum:16, MTU:32, Payload/binary>>) ->
+    {#icmp6{
+        type = ?ICMP6_PACKET_TOO_BIG, code = Code, checksum = Checksum, mtu = MTU
+    }, Payload};
+codec(#icmp6{
+        type = ?ICMP6_PACKET_TOO_BIG, code = Code, checksum = Checksum, mtu = MTU
+    }) ->
+    <<?ICMP6_PACKET_TOO_BIG:8, Code:8, Checksum:16, MTU:32>>;
+
+% Time Exceeded Message
+codec(<<?ICMP6_TIME_EXCEEDED:8, Code:8, Checksum:16, Unused:32/bits, Payload/binary>>) ->
+    {#icmp6{
+        type = ?ICMP6_TIME_EXCEEDED, code = Code, checksum = Checksum, un = Unused
+    }, Payload};
+codec(#icmp6{
+        type = ?ICMP6_TIME_EXCEEDED, code = Code, checksum = Checksum, un = Unused
+    }) ->
+    <<?ICMP6_TIME_EXCEEDED:8, Code:8, Checksum:16, Unused:32/bits>>;
+
+% Parameter Problem Message
+codec(<<?ICMP6_PARAM_PROB:8, Code:8, Checksum:16, Ptr:32, Payload/binary>>) ->
+    {#icmp6{
+        type = ?ICMP6_PARAM_PROB, code = Code, checksum = Checksum, pptr = Ptr
+    }, Payload};
+codec(#icmp6{
+        type = ?ICMP6_PARAM_PROB, code = Code, checksum = Checksum, pptr = Ptr
+    }) ->
+    <<?ICMP6_PARAM_PROB:8, Code:8, Checksum:16, Ptr:32>>;
+
+%%
+%% ICMPv6 Informational Messages
+%%
+
+% Echo Request Message/Echo Reply Message
+codec(<<Type:8, Code:8, Checksum:16, Id:16, Seq:16, Payload/binary>>)
+        when Type =:= ?ICMP6_ECHO_REQUEST; Type =:= ?ICMP6_ECHO_REPLY ->
+    {#icmp6{
+        type = Type, code = Code, checksum = Checksum,
+        id = Id, seq = Seq
+    }, Payload};
+codec(#icmp6{
+        type = Type, code = Code, checksum = Checksum,
+        id = Id, seq = Seq
+    }) when Type =:= ?ICMP6_ECHO_REQUEST; Type =:= ?ICMP6_ECHO_REPLY ->
+    <<Type:8, Code:8, Checksum:16, Id:16, Seq:16>>;
+
+%%
+%% RFC 4861: Neighbor Discovery for IP version 6 (IPv6)
+%%
+
+% Router Solicitation Message
+codec(<<?ND_ROUTER_SOLICIT:8, Code:8, Checksum:16, Res:32, Payload/binary>>) ->
+    {#icmp6{
+        type = ?ND_ROUTER_SOLICIT, code = Code, checksum = Checksum,
+        res = Res
+    }, Payload};
+codec(#icmp6{
+        type = ?ND_ROUTER_SOLICIT, code = Code, checksum = Checksum,
+        res = Res
+    }) ->
+    <<?ND_ROUTER_SOLICIT:8, Code:8, Checksum:16, Res:32>>;
+
+% Router Advertisement Message
+codec(<<?ND_ROUTER_ADVERT:8, Code:8, Checksum:16, Hop:8, M:1, O:1, Res:6,
+        Lifetime:16, Reach:32, Retrans:32, Payload/binary>>) ->
+    {#icmp6{
+        type = ?ND_ROUTER_ADVERT, code = Code, checksum = Checksum,
+        hop = Hop, m = M, o = O, res =Res, lifetime = Lifetime,
+        reach = Reach, retrans = Retrans
+    }, Payload};
+codec(#icmp6{
+        type = ?ND_ROUTER_ADVERT, code = Code, checksum = Checksum,
+        hop = Hop, m = M, o = O, res =Res, lifetime = Lifetime,
+        reach = Reach, retrans = Retrans
+    }) ->
+    <<?ND_ROUTER_ADVERT:8, Code:8, Checksum:16, Hop:8, M:1, O:1, Res:6,
+        Lifetime:16, Reach:32, Retrans:32>>;
+
+% Neighbor Solicitation Message Format
+codec(<<?ND_NEIGHBOR_SOLICIT:8, Code:8, Checksum:16, Res:32,
+        SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
+        Payload/binary>>) ->
+    {#icmp6{
+        type = ?ND_NEIGHBOR_SOLICIT, code = Code, checksum = Checksum,
+        res = Res,
+        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8}
+    }, Payload};
+codec(#icmp6{
+        type = ?ND_NEIGHBOR_SOLICIT, code = Code, checksum = Checksum,
+        res = Res,
+        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8}
+    }) ->
+    <<?ND_NEIGHBOR_SOLICIT:8, Code:8, Checksum:16, Res:32,
+      SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16>>;
+
+% Neighbor Advertisement Message
+codec(<<?ND_NEIGHBOR_ADVERT:8, Code:8, Checksum:16,
+        R:1, S:1, O:1, Res:29,
+        SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
+        Payload/binary>>) ->
+    {#icmp6{
+        type = ?ND_NEIGHBOR_ADVERT, code = Code, checksum = Checksum,
+        r = R, s = S, o = O, res = Res,
+        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8}
+    }, Payload};
+codec(#icmp6{
+        type = ?ND_NEIGHBOR_ADVERT, code = Code, checksum = Checksum,
+        r = R, s = S, o = O, res = Res,
+        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8}
+    }) ->
+    <<?ND_NEIGHBOR_ADVERT:8, Code:8, Checksum:16,
+      R:1, S:1, O:1, Res:29,
+      SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16>>;
+
+% Redirect Message
+codec(<<?ND_REDIRECT:8, Code:8, Checksum:16,
+        Res:32,
+        SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
+        DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
+        Payload/binary>>) ->
+    {#icmp6{
+        type = ?ND_REDIRECT, code = Code, checksum = Checksum,
+        res = Res,
+        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8},
+        daddr = {DA1,DA2,DA3,DA4,DA5,DA6,DA7,DA8}
+    }, Payload};
+codec(#icmp6{
+        type = ?ND_REDIRECT, code = Code, checksum = Checksum,
+        res = Res,
+        saddr = {SA1,SA2,SA3,SA4,SA5,SA6,SA7,SA8},
+        daddr = {DA1,DA2,DA3,DA4,DA5,DA6,DA7,DA8}
+    }) ->
+    <<?ND_REDIRECT:8, Code:8, Checksum:16,
+       Res:32,
+       SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
+       DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16>>;
+
+%%
+%% RFC 2710: Multicast Listener Discovery (MLD) for IPv6
+%% RFC 4604: Multicast Listener Discovery Version 2 (MLDv2) for IPv6
+%%
+codec(<<Type:8, Code:8, Checksum:16,
+        Delay:16, Res:16,
+        DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
+        Payload/binary>>) when
+        Type =:= ?MLD_LISTENER_QUERY;
+        Type =:= ?MLD_LISTENER_REPORT;
+        Type =:= ?MLD_LISTENER_REDUCTION ->
+    {#icmp6{
+        type = Type, code = Code, checksum = Checksum,
+        delay = Delay, res = Res,
+        daddr = {DA1,DA2,DA3,DA4,DA5,DA6,DA7,DA8}
+    }, Payload};
+codec(#icmp6{
+        type = Type, code = Code, checksum = Checksum,
+        delay = Delay, res = Res,
+        daddr = {DA1,DA2,DA3,DA4,DA5,DA6,DA7,DA8}
+    }) when
+        Type =:= ?MLD_LISTENER_QUERY;
+        Type =:= ?MLD_LISTENER_REPORT;
+        Type =:= ?MLD_LISTENER_REDUCTION ->
+    <<Type:8, Code:8, Checksum:16,
+       Delay:16, Res:16,
+       DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16>>;
+
+codec(<<?MLD_LISTENER_REPORTV2:8, Res:8, Checksum:16,
+        Res2:16, M:16, Payload/binary>>) ->
+    {#icmp6{
+        type = ?MLD_LISTENER_REPORTV2, res = Res, checksum = Checksum,
+        res2 = Res2, m = M
+    }, Payload};
+codec(#icmp6{
+        type = ?MLD_LISTENER_REPORTV2, res = Res, checksum = Checksum,
+        res2 = Res2, m = M
+    }) ->
+    <<?MLD_LISTENER_REPORTV2:8, Res:8, Checksum:16,
+        Res2:16, M:16>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_igmp.erl Added

@@ -0,0 +1,81 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_igmp).
+
+-include("pkt_igmp.hrl").
+
+-export(codec/1).
+
+
+% IGMPv3 message, http://tools.ietf.org/html/rfc3376#page-12
+codec(<<Type:8, _:8, Checksum:16, _:16, GroupCount:16, Bin/binary>>) when Type == 16#22 ->
+    {Groups, Payload} = unpack_groups(GroupCount, Bin),
+    {#igmp{
+        type = Type, csum = Checksum,
+        group = Groups
+    }, Payload};
+
+% IGMPv2 messages
+codec(<<Type:8, Code:8, Checksum:16,
+    DA1:8, DA2:8, DA3:8, DA4:8, Payload/binary>>) ->
+    {#igmp{
+        type = Type, code = Code, csum = Checksum,
+        group = {DA1,DA2,DA3,DA4}
+    }, Payload};
+
+codec(#igmp{
+        type = Type, csum = Checksum,
+        group = Groups
+    }) when Type == 16#22 andalso is_list(Groups) ->
+    GroupBin = pack_group(Group) || Group <- Groups,
+    iolist_to_binary(<<Type:8, 0:8, Checksum:16, 0:16, (length(Groups)):16>>, GroupBin);
+
+codec(#igmp{
+        type = Type, code = Code, csum = Checksum,
+        group = {DA1,DA2,DA3,DA4}
+    }) ->
+    <<Type:8, Code:8, Checksum:16, DA1:8, DA2:8, DA3:8, DA4:8>>.
+
+
+
+unpack_groups(0, Bin) -> {, Bin};
+unpack_groups(Count, <<Type, Len, SourceCount:16, I1,I2,I3,I4, Bin/binary>>) ->
+  SourceLength = SourceCount*4,
+  <<SourceBin:SourceLength/binary, Aux:Len/binary, Rest/binary>> = Bin,
+  Sources = {S1,S2,S3,S4} || <<S1,S2,S3,S4>> <= SourceBin,
+  {Groups, Payload} = unpack_groups(Count - 1, Rest),
+  {#igmp_group{type = Type, addr = {I1,I2,I3,I4}, sources = Sources, aux = Aux}|Groups, Payload}.
+
+
+pack_group(#igmp_group{type = Type, aux = Aux, addr = {I1,I2,I3,I4}, sources = Sources}) ->
+  SourcesBin = <<S1,S2,S3,S4>> || {S1,S2,S3,S4} <- Sources,
+  <<Type, (size(Aux)), (length(Sources)):16, I1,I2,I3,I4>>, SourcesBin, Aux.
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ipproto.erl Added

@@ -0,0 +1,73 @@
+%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ipproto).
+
+-include("pkt_ipproto.hrl").
+
+-export(codec/1).
+
+% IPPROTO_HOPOPTS and IPROTO_IP are both defined as 0
+%codec(?IPPROTO_IP) -> ip;
+codec(?IPPROTO_ICMP) -> icmp;
+codec(?IPPROTO_IGMP) -> igmp;
+codec(?IPPROTO_ICMPV6) -> icmp6;
+codec(?IPPROTO_TCP) -> tcp;
+codec(?IPPROTO_UDP) -> udp;
+codec(?IPPROTO_IPV6) -> ipv6;
+codec(?IPPROTO_VRRP) -> vrrp;
+codec(?IPPROTO_SCTP) -> sctp;
+codec(?IPPROTO_GRE) -> gre;
+codec(?IPPROTO_RAW) -> raw;
+
+codec(?IPPROTO_HOPOPTS) -> ipv6_hopopts;
+codec(?IPPROTO_ROUTING) -> ipv6_routing;
+codec(?IPPROTO_FRAGMENT) -> ipv6_fragment;
+codec(?IPPROTO_NONE) -> ipv6_none;
+codec(?IPPROTO_DSTOPTS) -> ipv6_dstopts;
+codec(?IPPROTO_MH) -> ipv6_mh;
+
+codec(ip) -> ?IPPROTO_IP;
+codec(icmp) -> ?IPPROTO_ICMP;
+codec(igmp) -> ?IPPROTO_IGMP;
+codec(icmp6) -> ?IPPROTO_ICMPV6;
+codec(tcp) -> ?IPPROTO_TCP;
+codec(udp) -> ?IPPROTO_UDP;
+codec(ipv6) -> ?IPPROTO_IPV6;
+codec(vrrp) -> ?IPPROTO_VRRP;
+codec(sctp) -> ?IPPROTO_SCTP;
+codec(gre) -> ?IPPROTO_GRE;
+
+codec(ipv6_hopopts) -> ?IPPROTO_HOPOPTS;
+codec(ipv6_routing) -> ?IPPROTO_ROUTING;
+codec(ipv6_fragment) -> ?IPPROTO_FRAGMENT;
+codec(ipv6_none) -> ?IPPROTO_NONE;
+codec(ipv6_dstopts) -> ?IPPROTO_DSTOPTS ;
+codec(ipv6_mh) -> ?IPPROTO_MH.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ipv4.erl Added

@@ -0,0 +1,70 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ipv4).
+
+-include("pkt_ipproto.hrl").
+-include("pkt_ipv4.hrl").
+
+-export(codec/1).
+
+codec(
+    <<4:4, HL:4, ToS:8, Len:16,
+    Id:16, 0:1, DF:1, MF:1, %% RFC791 states it's a MUST
+    Off:13, TTL:8, P:8, Sum:16,
+    SA1:8, SA2:8, SA3:8, SA4:8,
+    DA1:8, DA2:8, DA3:8, DA4:8,
+    Rest/binary>>
+) when HL >= 5 ->
+    OptLen = (HL - 5) * 4,
+    <<Opt:OptLen/binary, Payload/binary>> = Rest,
+    {#ipv4{
+        hl = HL, tos = ToS, len = Len,
+        id = Id, df = DF, mf = MF,
+        off = Off, ttl = TTL, p = P, sum = Sum,
+        saddr = {SA1,SA2,SA3,SA4},
+        daddr = {DA1,DA2,DA3,DA4},
+        opt = Opt
+    }, Payload};
+codec(#ipv4{
+        hl = HL, tos = ToS, len = Len,
+        id = Id, df = DF, mf = MF,
+        off = Off, ttl = TTL, p = P, sum = Sum,
+        saddr = {SA1,SA2,SA3,SA4},
+        daddr = {DA1,DA2,DA3,DA4},
+        opt = Opt
+    }) ->
+    Pad = ((HL - 5) * 4 - byte_size(Opt)) * 8,
+    <<4:4, HL:4, ToS:8, Len:16,
+    Id:16, 0:1, DF:1, MF:1, %% RFC791 states it's a MUST
+    Off:13, TTL:8, P:8, Sum:16,
+    SA1:8, SA2:8, SA3:8, SA4:8,
+    DA1:8, DA2:8, DA3:8, DA4:8,
+    Opt/binary, 0:Pad>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ipv6.erl Added

@@ -0,0 +1,62 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ipv6).
+
+%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
+
+-include("pkt_ipproto.hrl").
+-include("pkt_ipv6.hrl").
+
+-export(codec/1).
+
+codec(
+    <<6:4, Class:8, Flow:20,
+    Len:16, Next:8, Hop:8,
+    SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
+    DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16,
+    Payload/binary>>
+) ->
+    {#ipv6{
+        class = Class, flow = Flow,
+        len = Len, next = Next, hop = Hop,
+        saddr = {SA1, SA2, SA3, SA4, SA5, SA6, SA7, SA8},
+        daddr = {DA1, DA2, DA3, DA4, DA5, DA6, DA7, DA8}
+    }, Payload};
+codec(#ipv6{
+        class = Class, flow = Flow,
+        len = Len, next = Next, hop = Hop,
+        saddr = {SA1, SA2, SA3, SA4, SA5, SA6, SA7, SA8},
+        daddr = {DA1, DA2, DA3, DA4, DA5, DA6, DA7, DA8}
+    }) ->
+    <<6:4, Class:8, Flow:20,
+    Len:16, Next:8, Hop:8,
+    SA1:16, SA2:16, SA3:16, SA4:16, SA5:16, SA6:16, SA7:16, SA8:16,
+    DA1:16, DA2:16, DA3:16, DA4:16, DA5:16, DA6:16, DA7:16, DA8:16>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ipv6_ah.erl Added

@@ -0,0 +1,67 @@
+%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ipv6_ah).
+
+%% RFC 4302: IP Authentication Header
+
+-include("pkt_ipproto.hrl").
+-include("pkt_ipv6.hrl").
+
+-export(codec/1).
+
+codec(
+    <<Next:8, Len:8, Res:16, SPI:32, Seq:32, Rest/binary>>
+) ->
+    % the length of AH in 32-bit words (4-byte units), minus "2"
+    %  Next + Len + Res = 32 bits
+    %  SPI = 32 bits
+    % The length is the 32-bit sequence number + the ICV
+    %
+    % XXX for IPv6, must be a multiple of 8-octets
+    ICVLen = ((Len - 1) * 4),
+    <<ICV:ICVLen/bytes, Payload/binary>> = Rest,
+    {#ipv6_ah{
+        next = Next,
+        len = Len,
+        res = Res,
+        spi = SPI,
+        seq = Seq,
+        icv = ICV
+    }, Payload};
+codec(#ipv6_ah{
+        next = Next,
+        len = Len,
+        res = Res,
+        spi = SPI,
+        seq = Seq,
+        icv = ICV
+        }) ->
+    <<Next:8, Len:8, Res:16, SPI:32, Seq:32, ICV/binary>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ipv6_dstopts.erl Added

@@ -0,0 +1,57 @@
+%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ipv6_dstopts).
+
+%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
+
+-include("pkt_ipproto.hrl").
+-include("pkt_ipv6.hrl").
+
+-export(codec/1).
+
+codec(
+    <<Next:8, Len:8, Rest/binary>>
+) ->
+    % Length of the Destination Options header in 8-octet units, not
+    % including the first 8 octets
+    OptLen = 6 + (Len * 8),
+    <<Opt:OptLen/bytes, Payload/binary>> = Rest,
+    {#ipv6_dstopts{
+            next = Next,
+            len = Len,
+            opt = Opt
+            }, Payload};
+codec(#ipv6_dstopts{
+            next = Next,
+            len = Len,
+            opt = Opt
+        }) ->
+    <<Next:8, Len:8, Opt/binary>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ipv6_esp.erl Added

@@ -0,0 +1,62 @@
+%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ipv6_esp).
+
+%% RFC 4303: IP Encapsulating Security Payload (ESP)
+
+-include("pkt_ipproto.hrl").
+-include("pkt_ipv6.hrl").
+
+-export(codec/1).
+
+% XXX TODO
+codec(
+    <<SPI:32, Seq:32, Rest/binary>>
+) ->
+    {#ipv6_esp{
+        spi = SPI,
+        seq = Seq,
+        data = Rest,
+        pad = <<>>,
+        padlen = 0,
+        next = 0,
+        icv = <<>>
+    }, <<>>};
+codec(#ipv6_esp{
+        spi = SPI,
+        seq = Seq,
+        data = Data,
+        pad = Pad,
+        padlen = PadLen,
+        next = Next,
+        icv = ICV
+        }) ->
+    <<SPI:32, Seq:32, Data/binary, Pad/binary, PadLen:8, Next:8, ICV/binary>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ipv6_fragment.erl Added

@@ -0,0 +1,59 @@
+%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ipv6_fragment).
+
+%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
+
+-include("pkt_ipproto.hrl").
+-include("pkt_ipv6.hrl").
+
+-export(codec/1).
+
+codec(
+    <<Next:8, Res:8, Off:13, Res2:2, M:1, Id:32, Payload/binary>>
+) ->
+    {#ipv6_fragment{
+            next = Next,
+            res = Res,
+            off = Off,
+            res2 = Res2,
+            m = M,
+            id = Id
+            }, Payload};
+codec(#ipv6_fragment{
+            next = Next,
+            res = Res,
+            off = Off,
+            res2 = Res2,
+            m = M,
+            id = Id
+        }) ->
+    <<Next:8, Res:8, Off:13, Res2:2, M:1, Id:32>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ipv6_hopopts.erl Added

@@ -0,0 +1,58 @@
+%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ipv6_hopopts).
+
+%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
+
+-include("pkt_ipproto.hrl").
+-include("pkt_ipv6.hrl").
+
+-export(codec/1).
+
+codec(
+    <<Next:8, Len:8, Rest/binary>>
+) ->
+    % Length of the Hop-by-Hop Options header in 8-octet units (64 bits),
+    % not including the first 8 octets. The minimum payload is therefore
+    % 48 bits (8 - Next - Len)
+    OptLen = 6 + (Len * 8),
+    <<Opt:OptLen/bytes, Payload/binary>> = Rest,
+    {#ipv6_hopopts{
+            next = Next,
+            len = Len,
+            opt = Opt
+            }, Payload};
+codec(#ipv6_hopopts{
+            next = Next,
+            len = Len,
+            opt = Opt
+        }) ->
+    <<Next:8, Len:8, Opt/binary>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_ipv6_routing.erl Added

@@ -0,0 +1,61 @@
+%% Copyright (c) 2013-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_ipv6_routing).
+
+%% RFC 2460: Internet Protocol, Version 6 (IPv6) Specification
+
+-include("pkt_ipproto.hrl").
+-include("pkt_ipv6.hrl").
+
+-export(codec/1).
+
+codec(
+    <<Next:8, Len:8, Type:8, Left:8, Rest/binary>>
+) ->
+    % Length of the Routing header in 8-octet units, not including the
+    % first 8 octets.
+    DataLen = 4 + (Len * 8),
+    <<Data:DataLen/bytes, Payload/binary>> = Rest,
+    {#ipv6_routing{
+            next = Next,
+            len = Len,
+            type = Type,
+            left = Left,
+            data = Data
+            }, Payload};
+codec(#ipv6_routing{
+            next = Next,
+            len = Len,
+            type = Type,
+            left = Left,
+            data = Data
+            }) ->
+    <<Next:8, Len:8, Type:8, Left:8, Data/binary>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_linux_cooked.erl Added

@@ -0,0 +1,56 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_linux_cooked).
+
+-include("pkt_dlt.hrl").
+-include("pkt_ether.hrl").
+-include("pkt_arp.hrl").
+-include("pkt_linux_cooked.hrl").
+
+-export(codec/1).
+
+%%
+%% Linux cooked capture ("-i any") - DLT_LINUX_SLL
+%%
+codec(<<Ptype:16/big, Hrd:16/big, Ll_len:16/big,
+               Ll_hdr:8/bytes, Pro:16, Payload/binary>>) ->
+    {#linux_cooked{
+        packet_type = Ptype, hrd = Hrd,
+        ll_len = Ll_len, ll_bytes = Ll_hdr,
+        pro = Pro
+      }, Payload};
+codec(#linux_cooked{
+              packet_type = Ptype, hrd = Hrd,
+              ll_len = Ll_len, ll_bytes = Ll_hdr,
+              pro = Pro
+             }) ->
+    <<Ptype:16/big, Hrd:16/big, Ll_len:16/big,
+      Ll_hdr:8/bytes, Pro:16>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_linux_cooked_v2.erl Added

@@ -0,0 +1,53 @@
+%% Copyright (c) 2009-2022, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_linux_cooked_v2).
+
+-include("pkt_dlt.hrl").
+-include("pkt_ether.hrl").
+-include("pkt_arp.hrl").
+-include("pkt_linux_cooked.hrl").
+
+-export(codec/1).
+
+codec(<<Pro:16/big, MBZ:2/bytes, Ifi:32/big, Hrd:16/big,
+        Ptype:8, Ll_len:8/big, Ll_hdr:8/bytes, Payload/binary>>) ->
+    {#linux_cooked_v2{
+        pro = Pro, mbz = MBZ, if_idx = Ifi,
+        hrd = Hrd, packet_type = Ptype,
+        ll_len = Ll_len, ll_bytes = Ll_hdr
+       }, Payload};
+codec(#linux_cooked_v2{
+         pro = Pro, mbz = MBZ, if_idx = Ifi,
+         hrd = Hrd, packet_type = Ptype,
+         ll_len = Ll_len, ll_bytes = Ll_hdr
+        }) ->
+    <<Pro:16/big, MBZ:2/bytes, Ifi:32/big, Hrd:16/big,
+      Ptype:16, Ll_len:8/big, Ll_hdr:8/bytes>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_llc.erl Added

@@ -0,0 +1,48 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+
+%% Logical-Link Control
+-module(pkt_llc).
+
+-include("pkt_llc.hrl").
+
+-export(codec/1).
+
+codec(<<DSAP:8, SSAP:8, Control:8, Vendor:3/bytes, PID:16, Payload/binary>>) ->
+    {#llc{
+        dsap = DSAP,
+        ssap = SSAP,
+        control = Control,
+        vendor = Vendor,
+        pid = PID
+    }, Payload};
+codec(#llc{dsap = DSAP, ssap = SSAP, control = Control, vendor = Vendor, pid = PID}) ->
+    <<DSAP:8, SSAP:8, Control:8, Vendor:3/bytes, PID:16>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_lldp.erl Added

@@ -0,0 +1,229 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_lldp).
+
+-include("pkt_ether.hrl").
+-include("pkt_lldp.hrl").
+
+-export(codec/1).
+
+codec(Binary) when is_binary(Binary) -> { decode(Binary, ), <<>> };
+codec(#lldp{ pdus = Pdus }) -> pad_to(50, encode(Pdus, <<>>)).
+
+decode(<<?END_OF_LLDPDU:7, 0:9, _Tail/bytes>>, Acc) ->
+    Acc2 = end_of_lldpdu | Acc,
+    #lldp{ pdus = lists:reverse(Acc2) };
+decode(<<?CHASSIS_ID:7, Length:9, SubTypeInt:8, Tail/bytes>>, Acc) ->
+    ValueLen = Length - 1,
+    <<Value:ValueLen/bytes, Rest/bytes>> = Tail,
+    SubType = map(chassis_id, SubTypeInt),
+    Pdu = #chassis_id{ subtype = SubType, value = Value },
+    decode(Rest, Pdu | Acc);
+decode(<<?PORT_ID:7, Length:9, SubTypeInt:8, Tail/bytes>>, Acc) ->
+    ValueLen = Length - 1,
+    <<Value:ValueLen/bytes, Rest/bytes>> = Tail,
+    SubType = map(port_id, SubTypeInt),
+    Pdu = #port_id{ subtype = SubType, value = Value },
+    decode(Rest, Pdu | Acc);
+decode(<<?TTL:7, Length:9, Tail/bytes>>, Acc) ->
+    BitLen = Length * 8,
+    <<Value:BitLen, Rest/bytes>> = Tail,
+    Pdu = #ttl{ value = Value },
+    decode(Rest, Pdu | Acc);
+decode(<<?PORT_DESC:7, Length:9,
+         Value:Length/bytes, Rest/bytes>>, Acc) ->
+    Pdu = #port_desc{ value = decode_string(Value) },
+    decode(Rest, Pdu | Acc);
+decode(<<?SYSTEM_NAME:7, Length:9,
+         Value:Length/bytes, Rest/bytes>>, Acc) ->
+    Pdu = #system_name{ value = decode_string(Value) },
+    decode(Rest, Pdu | Acc);
+decode(<<?SYSTEM_DESC:7, Length:9,
+         Value:Length/bytes, Rest/bytes>>, Acc) ->
+    Pdu = #system_desc{ value = decode_string(Value) },
+    decode(Rest, Pdu | Acc);
+decode(<<?SYSTEM_CAPABILITY:7, _Length:9, Tail/bytes>>, Acc) ->
+    <<SystemBin:16/bits, EnabledBin:16/bits, Rest/bytes>> = Tail,
+    System = binary_to_flags(system_capability, SystemBin),
+    Enabled = binary_to_flags(system_capability, EnabledBin),
+    Pdu = #system_capability{ system = System,
+                              enabled = Enabled },
+    decode(Rest, Pdu | Acc);
+decode(<<?MANAGEMENT_ADDRESS:7, Length:9,
+         Value:Length/bytes, Rest/bytes>>, Acc) ->
+    Pdu = #management_address{ value = Value },
+    decode(Rest, Pdu | Acc);
+decode(<<?ORGANIZATIONALLY_SPECIFIC:7, Length:9,
+         Value:Length/bytes, Rest/bytes>>, Acc) ->
+    Pdu = #organizationally_specific{ value = Value },
+    decode(Rest, Pdu | Acc);
+decode(<<Type:7, Length:9,
+         Value:Length/bytes, Rest/bytes>>, Acc) ->
+    Pdu = #unknown_lldp_tlv{ type = Type, value = Value },
+    decode(Rest, Pdu | Acc).
+
+encode(, Binary) -> Binary;
+encode(Pdu | Rest, Binary) ->
+    PduBin = encode_pdu(Pdu),
+    encode(Rest, <<Binary/bytes, PduBin/bytes>>).
+
+encode_pdu(end_of_lldpdu) ->
+    <<?END_OF_LLDPDU:7, 0:9>>;
+encode_pdu(#chassis_id{ subtype = SubType, value = Value }) ->
+    SubTypeInt = map(chassis_id, SubType),
+    Length = byte_size(Value),
+    <<?CHASSIS_ID:7, (Length + 1):9, SubTypeInt:8, Value:Length/bytes>>;
+encode_pdu(#port_id{ subtype = SubType, value = Value }) ->
+    SubTypeInt = map(port_id, SubType),
+    Length = byte_size(Value),
+    <<?PORT_ID:7, (Length + 1):9, SubTypeInt:8, Value:Length/bytes>>;
+encode_pdu(#ttl{ value = Value }) ->
+    <<?TTL:7, 2:9, Value:16>>;
+encode_pdu(#port_desc{ value = Value }) ->
+    Value2 = encode_string(Value),
+    Length = byte_size(Value2),
+    <<?PORT_DESC:7, Length:9, Value2:Length/bytes>>;
+encode_pdu(#system_name{ value = Value }) ->
+    Value2 = encode_string(Value),
+    Length = byte_size(Value2),
+    <<?SYSTEM_NAME:7, Length:9, Value2:Length/bytes>>;
+encode_pdu(#system_desc{ value = Value }) ->
+    Value2 = encode_string(Value),
+    Length = byte_size(Value2),
+    <<?SYSTEM_DESC:7, Length:9, Value2:Length/bytes>>;
+encode_pdu(#system_capability{ system = System,
+                               enabled = Enabled }) ->
+    SystemBin = flags_to_binary(system_capability, System, 16),
+    EnabledBin = flags_to_binary(system_capability, Enabled, 16),
+    Value = <<SystemBin:2/bytes, EnabledBin:2/bytes>>,
+    <<?SYSTEM_CAPABILITY:7, 4:9, Value:4/bytes>>;
+encode_pdu(#management_address{ value = Value }) ->
+    Length = byte_size(Value),
+    <<?MANAGEMENT_ADDRESS:7, Length:9, Value:Length/bytes>>;
+encode_pdu(#organizationally_specific{ value = Value }) ->
+    Length = byte_size(Value),
+    <<?ORGANIZATIONALLY_SPECIFIC:7, Length:9, Value:Length/bytes>>;
+encode_pdu(#unknown_lldp_tlv{ type = Type, value = Value }) ->
+    Length = byte_size(Value),
+    <<Type:7, Length:9, Value:Length/bytes>>.
+
+% ChassisID SubTypes
+map(chassis_id, ?CHASSIS_ID_IFAlias) -> interface_alias;
+map(chassis_id, ?CHASSIS_ID_PORT)    -> port_component;
+map(chassis_id, ?CHASSIS_ID_MAC)     -> mac_address;
+map(chassis_id, ?CHASSIS_ID_NW)      -> network_address;
+map(chassis_id, ?CHASSIS_ID_IFNAME)  -> interface_name;
+map(chassis_id, ?CHASSIS_ID_LOCALLY) -> locally_assigned;
+map(chassis_id, interface_alias)  -> ?CHASSIS_ID_IFAlias;
+map(chassis_id, port_component)   -> ?CHASSIS_ID_PORT;
+map(chassis_id, mac_address)      -> ?CHASSIS_ID_MAC;
+map(chassis_id, network_address)  -> ?CHASSIS_ID_NW;
+map(chassis_id, interface_name)   -> ?CHASSIS_ID_IFNAME;
+map(chassis_id, locally_assigned) -> ?CHASSIS_ID_LOCALLY;
+
+% PortID SubTypes
+map(port_id, ?PORT_ID_IFALIAS)       -> interface_alias;
+map(port_id, ?PORT_ID_PORT)          -> port_component;
+map(port_id, ?PORT_ID_MAC)           -> mac_address;
+map(port_id, ?PORT_ID_NW)            -> network_address;
+map(port_id, ?PORT_ID_IFNAME)        -> interface_name;
+map(port_id, ?PORT_ID_AGENT_CIRC_ID) -> agent_circuit_id;
+map(port_id, ?PORT_ID_LOCALLY)       -> locally_assigned;
+map(port_id, interface_alias)  -> ?PORT_ID_IFALIAS;
+map(port_id, port_component)   -> ?PORT_ID_PORT;
+map(port_id, mac_address)      -> ?PORT_ID_MAC;
+map(port_id, network_address)  -> ?PORT_ID_NW;
+map(port_id, interface_name)   -> ?PORT_ID_IFNAME;
+map(port_id, agent_circuit_id) -> ?PORT_ID_AGENT_CIRC_ID;
+map(port_id, locally_assigned) -> ?PORT_ID_LOCALLY.
+
+% Encode Bitmap flags
+flags_to_binary(Type, Flags, BitSize) ->
+    flags_to_binary(Type, Flags, BitSize, <<0:BitSize>>).
+
+flags_to_binary(_, , _, Binary) -> Binary;
+flags_to_binary(Type, Flag | Rest, BitSize, Binary) ->
+    <<FlagsInt:BitSize>> = Binary,
+    FlagInt = proplists:get_value(Flag, enums(Type)),
+    FlagsInt2 = FlagsInt bor FlagInt,
+    flags_to_binary(Type, Rest, BitSize, <<FlagsInt2:BitSize>>).
+
+% Decode Bitmap Flags
+binary_to_flags(Type, Binary) ->
+    BitSize = bit_size(Binary),
+    <<FlagsInt:BitSize>> = Binary,
+    Keys = proplists:get_keys(enums(Type)),
+    binary_to_flags(Type, FlagsInt, Keys, ).
+
+binary_to_flags(_, _, , Flags) -> lists:reverse(Flags);
+binary_to_flags(Type, FlagsInt, Flag | Rest, Flags) ->
+    FlagInt = proplists:get_value(Flag, enums(Type)),
+    case 0 /= FlagInt band FlagsInt of
+        true ->
+            binary_to_flags(Type, FlagsInt, Rest, Flag | Flags);
+        false ->
+            binary_to_flags(Type, FlagsInt, Rest, Flags)
+    end.
+
+% system capability enums
+enums(system_capability) ->
+    { other,             ?SYSTEM_CAP_OTHER },
+     { repeater,          ?SYSTEM_CAP_REPEATER },
+     { bridge,            ?SYSTEM_CAP_BRIDGE },
+     { wlan_access_point, ?SYSTEM_CAP_WLANAP },
+     { router,            ?SYSTEM_CAP_ROUTER },
+     { telephone,         ?SYSTEM_CAP_TELEPHONE },
+     { docsis,            ?SYSTEM_CAP_DOCSIS },
+     { station_only,      ?SYSTEM_CAP_STATION }.
+
+% padding binary to byte length
+pad_to(ByteLen, Binary) ->
+    BinLength = byte_size(Binary),
+    case ByteLen > BinLength of
+        true ->
+            PadLen = (ByteLen - BinLength) * 8,
+            <<Binary/bytes, 0:PadLen>>;
+        false ->
+            Binary
+    end.
+
+decode_string(Binary) ->
+    decode_string(Binary, byte_size(Binary) - 1).
+
+decode_string(Binary, Size) when Size >= 0 ->
+    case binary:at(Binary, Size) of
+        0 -> decode_string(Binary, Size - 1);
+        _ -> binary:part(Binary, 0, Size + 1)
+    end;
+decode_string(_, _) ->
+    <<>>.
+
+encode_string(Binary) -> <<Binary/bytes, 0:8>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_mpls.erl Added

@@ -0,0 +1,59 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_mpls).
+
+-include("pkt_mpls.hrl").
+
+-export(codec/1).
+
+codec(Mpls) when is_binary(Mpls) ->
+    decode(Mpls, );
+codec(#mpls{labels = Labels}) ->
+    encode(Labels, <<>>).
+
+decode(<<L:20, Tc:3, 1:1, Ttl:8, Rest/binary>>, Labels0) ->
+    Mpls = #shim{label = L, tc = Tc, s = true, ttl = Ttl},
+    Labels = #mpls{labels = lists:reverse(Mpls|Labels0)},
+    {Next, Payload} = next_header(Rest),
+    {Labels, Next, Payload};
+decode(<<L:20, Tc:3, 0:1, Ttl:8, Rest/binary>>, Labels0) ->
+    Mpls = #shim{label = L, tc = Tc, s = false, ttl = Ttl},
+    decode(Rest, Mpls|Labels0).
+
+encode(, Bin) -> Bin;
+encode(#shim{label = L, tc = Tc, s = true, ttl = Ttl}|_, Bin) ->
+    <<Bin/bytes, L:20, Tc:3, 1:1, Ttl:8>>;
+encode(#shim{label = L, tc = Tc, s = false, ttl = Ttl}|Rest, Bin) ->
+    encode(Rest, <<L:20, Tc:3, 0:1, Ttl:8, Bin/bytes>>).
+
+next_header(<<>>) -> {none, <<>>};
+next_header(<<4:4, _/bitstring>> = Binary) -> {ipv4, Binary};
+next_header(<<6:4, _/bitstring>> = Binary) -> {ipv6, Binary}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_null.erl Added

@@ -0,0 +1,46 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_null).
+
+-include("pkt_protocol_family.hrl").
+-include("pkt_null.hrl").
+
+-export(codec/1).
+
+%%
+%% BSD loopback
+%%
+codec(<<Family:4/native-unsigned-integer-unit:8, Payload/binary>>) ->
+    {#null{
+            family = Family
+        }, Payload};
+codec(#null{family = Family}) ->
+    <<Family:4/native-unsigned-integer-unit:8>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_rarp.erl Added

@@ -0,0 +1,67 @@
+%% Copyright (c) 2009-2017, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_rarp).
+
+-include("pkt_ether.hrl").
+-include("pkt_rarp.hrl").
+
+-export(codec/1).
+
+codec(<<Hrd:16, Pro:16,
+    Hln:8, Pln:8, Op:16,
+    Sha:6/bytes,
+    SA1:8, SA2:8, SA3:8, SA4:8,
+    Tha:6/bytes,
+    DA1:8, DA2:8, DA3:8, DA4:8,
+    Payload/binary>>
+) ->
+    {#rarp{
+        hrd = Hrd, pro = Pro,
+        hln = Hln, pln = Pln, op = Op,
+        sha = Sha,
+        sip = {SA1,SA2,SA3,SA4},
+        tha = Tha,
+        tip = {DA1,DA2,DA3,DA4}
+    }, Payload};
+codec(#rarp{
+        hrd = Hrd, pro = Pro,
+        hln = Hln, pln = Pln, op = Op,
+        sha = Sha,
+        sip = {SA1,SA2,SA3,SA4},
+        tha = Tha,
+        tip = {DA1,DA2,DA3,DA4}
+    }) ->
+    <<Hrd:16, Pro:16,
+    Hln:8, Pln:8, Op:16,
+    Sha:6/bytes,
+    SA1:8, SA2:8, SA3:8, SA4:8,
+    Tha:6/bytes,
+    DA1:8, DA2:8, DA3:8, DA4:8>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_sctp.erl Added

@@ -0,0 +1,208 @@
+%% Copyright (c) 2009-2022, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_sctp).
+
+-include("pkt_sctp.hrl").
+
+-export(codec/1).
+
+-spec codec(binary()) -> {#sctp{}, binary()}.
+codec(<<SPort:16, DPort:16, VTag:32, Sum:32, Payload/binary>>) ->
+    {Chunks, Other} = decode_chunks(Payload, ),
+    SCTP = #sctp{
+        sport = SPort,
+        dport = DPort,
+        vtag = VTag,
+        sum = Sum,
+        chunks = lists:reverse(Chunks)
+    },
+    {SCTP, Other}.
+
+%% Internal functions
+
+decode_chunks(Chunks, Acc) ->
+    case chunk_len(Chunks) < byte_size(Chunks) of
+        true ->
+            <<Type:8, Flags:1/binary, Length:16, Rest/binary>> = Chunks,
+            Pad = chunk_pad_len(Length),
+            Len = Length-4,
+            <<Payload:Len/binary, _:Pad/binary, Tail/binary>> = Rest,
+            decode_chunks(Tail, chunk(Type, Flags, Length, Payload) | Acc);
+        false ->
+            {Acc, Chunks}
+    end.
+
+%%% if 'chunks' is less than 4 bytes, we can't read a length.
+%%% if 'length' is less than 4, the chunk is corrupt.
+%%% we return 'sizeof chunks' plus one, indicating that a read will fail.
+chunk_len(<<_:16, L:16, _/binary>>) when 4 =< L ->
+    L-4+chunk_pad_len(L);
+chunk_len(Chunks) ->
+    byte_size(Chunks)+1.
+
+%%% pad length in bytes
+chunk_pad_len(L) ->
+    3-((L+3) rem 4).
+
+-spec chunk(byte(), binary(), non_neg_integer(), binary()) -> #sctp_chunk{}.
+chunk(Type, Flags, Len, Payload) ->
+    <<_Spare:4, I:1, U:1, B:1, E:1>> = Flags,
+	#sctp_chunk{
+        type = Type,
+        i = I,
+        u = U,
+        b = B,
+        e = E,
+        len = Len - 4,
+        payload = chunk_payload(Type, Payload)
+    }.
+
+-spec chunk_payload(non_neg_integer(), binary()) ->
+    #sctp_chunk_data{}
+    | #sctp_chunk_init{}
+    | #sctp_chunk_init_ack{}
+    | #sctp_chunk_sack{}
+    | #sctp_chunk_cookie_echo{}
+    | #sctp_chunk_cookie_ack{}
+    | #sctp_chunk_heartbeat{}
+    | #sctp_chunk_heartbeat_ack{}
+    | #sctp_chunk_shutdown{}
+    | #sctp_chunk_shutdown_ack{}
+    | #sctp_chunk_shutdown_complete{}
+    | binary().
+chunk_payload(?SCTP_CHUNK_DATA, <<Tsn:32, Sid:16, Ssn:16, Ppi:32, Data/binary>>) ->
+	#sctp_chunk_data{tsn = Tsn, sid = Sid, ssn = Ssn, ppi = Ppi, data = Data};
+chunk_payload(?SCTP_CHUNK_INIT, <<Itag:32, Arwnd:32, OutStreams:16, InStreams:16, Tsn:32, Rest/binary>>) ->
+    #sctp_chunk_init{
+        itag = Itag,
+        a_rwnd = Arwnd,
+        outbound_streams = OutStreams,
+        inbound_streams = InStreams,
+        tsn = Tsn,
+        params = init_params(Rest, )
+    };
+chunk_payload(?SCTP_CHUNK_INIT_ACK, <<Itag:32, Arwnd:32, OutStreams:16, InStreams:16, Tsn:32, Rest/binary>>) ->
+    #sctp_chunk_init_ack{
+        itag = Itag,
+        a_rwnd = Arwnd,
+        outbound_streams = OutStreams,
+        inbound_streams = InStreams,
+        tsn = Tsn,
+        params = init_params(Rest, )
+    };
+chunk_payload(?SCTP_CHUNK_SACK, <<TSN_ACK:32, Arwnd:32, GapsN:16, DuplicateTSN:16, Rest/binary>>) ->
+    GapsLength = GapsN * 4, %% Gap Ack start (16), Gap Ack end (16)
+    <<Gaps:GapsLength/binary-unit:8, TSNs/binary>> = Rest,
+    #sctp_chunk_sack{
+        tsn_ack = TSN_ACK,
+        a_rwnd = Arwnd,
+        number_gap_ack_blocks = GapsN,
+        number_duplicate_tsn = DuplicateTSN,
+        gap_ack_blocks = {Start, End} || <<Start:16, End:16>> <= Gaps,
+        duplicate_tsns = T || <<T:32>> <= TSNs
+    };
+chunk_payload(?SCTP_CHUNK_COOKIE_ECHO, Cookie) ->
+    #sctp_chunk_cookie_echo{cookie = Cookie};
+chunk_payload(?SCTP_CHUNK_COOKIE_ACK, <<>>) ->
+    #sctp_chunk_cookie_ack{};
+chunk_payload(?SCTP_CHUNK_HEARTBEAT, <<Type:16, _Length:16, Info/binary>>) ->
+    #sctp_chunk_heartbeat{type = Type, info = Info};
+chunk_payload(?SCTP_CHUNK_HEARTBEAT_ACK, <<Type:16, _Length:16, Info/binary>>) ->
+    #sctp_chunk_heartbeat_ack{type = Type, info = Info};
+chunk_payload(?SCTP_CHUNK_SHUTDOWN, <<TSN_ACK:32>>) ->
+    #sctp_chunk_shutdown{tsn_ack = TSN_ACK};
+chunk_payload(?SCTP_CHUNK_SHUTDOWN_ACK, <<>>) ->
+    #sctp_chunk_shutdown_ack{};
+chunk_payload(?SCTP_CHUNK_SHUTDOWN_COMPLETE, <<>>) ->
+    #sctp_chunk_shutdown_complete{};
+chunk_payload(?SCTP_CHUNK_ABORT, Errors) ->
+    #sctp_chunk_abort{error_causes = error_causes(Errors, )};
+chunk_payload(_, Data) ->
+	Data.
+
+%% IPv4 Address Parameter
+init_params(<<5:16, 8:16, A:8, B:8, C:8, D:8, Rest/binary>>, Acc) ->
+    init_params(Rest, {ipv4, {A, B, C, D}} | Acc);
+%% IPv6 Address Parameter
+init_params(<<6:16, 20:16, Value:16/binary-unit:8, Rest/binary>>, Acc) ->
+    IP = list_to_tuple(N || <<N:16>> <= Value),
+    init_params(Rest, {ipv6, IP} | Acc);
+%% State cookie
+init_params(<<7:16, Length:16, Rest/binary>>, Acc) ->
+    L = Length - 4,
+    <<Cookie:L/binary-unit:8, Tail/binary>> = Rest,
+    init_params(Tail, {state_cookie, Cookie} | Acc);
+%% Unrecognized Parameter
+init_params(<<8:16, Length:16, Rest/binary>>, Acc) ->
+    L = Length - 4,
+    <<Parameter:L/binary-unit:8, Tail/binary>> = Rest,
+    init_params(Tail, {unrecognized, Parameter} | Acc);
+%% Cookie Preservative
+init_params(<<9:16, 8:16, Value:32, Rest/binary>>, Acc) ->
+    init_params(Rest, {cookie, Value} | Acc);
+%% Host Name Address
+init_params(<<11:16, Length:16, Rest/binary>>, Acc) ->
+    L = Length - 4,
+    <<Hostname:L/binary-unit:8, Tail/binary>> = Rest,
+    init_params(Tail, {hostname, Hostname} | Acc);
+%% Supported Address Types
+init_params(<<12:16, Length:16, Rest/binary>>, Acc) ->
+    AddressType =
+        fun(5) -> ipv4;
+           (6) -> ipv6;
+           (11) -> hostname
+    end,
+    L = Length - 4,
+    <<Types:L/binary-unit:8, Tail/binary>> = Rest,
+    init_params(Tail, {address_types, AddressType(V) || <<V:16>> <= Types} | Acc);
+init_params(<<>>, Acc) -> Acc;
+%% Ignore ECN and Forward TSN parameters
+init_params(_, Acc) -> Acc.
+
+error_causes(<<Code:16, Length:16, Rest/binary>>, Acc) ->
+    L = Length - 4,
+    <<Opts:L/binary-unit:8, Tail/binary>> = Rest,
+    Error = #sctp_error_cause{
+        code = Code,
+        descr = gen_sctp:error_string(Code),
+        opts = sctp_error(Code, L, Opts)
+    },
+    error_causes(Tail, Error | Acc);
+error_causes(<<>>, Acc) -> Acc.
+
+sctp_error(1, _Length, <<Ident:16, _Reserved:8>>) ->
+    {stream_identifier, Ident};
+sctp_error(12, Length, Opts) ->
+    <<Reason:Length/binary-unit:8>> = Opts,
+    {abort_reason, Reason};
+%% FIXME: add more error causes
+sctp_error(_Code, _Length, Opts) ->
+    {data, Opts}.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_tcp.erl Added

@@ -0,0 +1,129 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_tcp).
+
+-include("pkt_tcp.hrl").
+
+-export(
+        codec/1,
+        options/1
+    ).
+
+codec(
+    <<SPort:16, DPort:16,
+      SeqNo:32,
+      AckNo:32,
+      Off:4, 0:3, NS:1, CWR:1, ECE:1, URG:1, ACK:1,
+      PSH:1, RST:1, SYN:1, FIN:1, Win:16,
+      Sum:16, Urp:16,
+      Rest/binary>>
+) when Off >= 5 ->
+    OptLen = (Off - 5) * 4,
+    <<Opt:OptLen/binary, Payload/binary>> = Rest,
+    {#tcp{
+        sport = SPort, dport = DPort,
+        seqno = SeqNo,
+        ackno = AckNo,
+        off = Off, ns = NS, cwr = CWR, ece = ECE, urg = URG, ack = ACK,
+        psh = PSH, rst = RST, syn = SYN, fin = FIN, win = Win,
+        sum = Sum, urp = Urp,
+        opt = Opt
+    }, Payload};
+codec(#tcp{
+        sport = SPort, dport = DPort,
+        seqno = SeqNo,
+        ackno = AckNo,
+        off = Off, ns = NS, cwr = CWR, ece = ECE, urg = URG, ack = ACK,
+        psh = PSH, rst = RST, syn = SYN, fin = FIN, win = Win,
+        sum = Sum, urp = Urp,
+        opt = Opt
+    }) ->
+    Pad = ((Off - 5) * 4 - byte_size(Opt)) * 8,
+    <<SPort:16, DPort:16,
+      SeqNo:32,
+      AckNo:32,
+      Off:4, 0:3, NS:1, CWR:1, ECE:1, URG:1, ACK:1,
+      PSH:1, RST:1, SYN:1, FIN:1, Win:16,
+      Sum:16, Urp:16,
+      Opt/binary, 0:Pad>>.
+
+%% @doc Used to decoding or encoding the TCP options.
+options(Options) ->
+    options(Options, ).
+
+%% Decoding routines
+options(<<>>, Acc) ->
+    lists:reverse(Acc); % Return list of the options in the correct order
+%% Kind - 0, End of Option List (RFC 793)
+options(<<0:8, _Rest/binary>>, Acc) ->
+    options(<<>>, {eol, } | Acc);
+%% Kind - 1, No-Operation (RFC 793)
+options(<<1:8, Rest/binary>>, Acc) ->
+    options(Rest, {nop, } | Acc);
+%% Kind - 2, Length - 4, Maximum Segment Size (RFC 793)
+options(<<2:8, 4:8, MSSValue:16, Rest/binary>>, Acc) ->
+    options(Rest, {maximum_segment_size, MSSValue} | Acc);
+%% Kind - 3, Length - 3, WSOPT - Window Scale (RFC 1323)
+%% Multiplier is calculated as 1 bsl ShiftCount
+options(<<3:8, 3:8, ShiftCount:8, Rest/binary>>, Acc) ->
+    options(Rest, {window_scale, ShiftCount} | Acc);
+%% Kind - 4, Length - 2, SACK Permitted (RFC 2018)
+options(<<4:8, 2:8, Rest/binary>>, Acc) ->
+    options(Rest, {sack_permitted, true} | Acc);
+%% Kind - 5, Length - variable, SACK (RFC 2018)
+options(<<5:8, Len:8, Rest/binary>>, Acc) ->
+    Length = Len - 2,
+    <<Values:Length/binary, Rest1/binary>> = Rest,
+    Edges = {{left_edge, Left}, {right_edge, Right}} || <<Left:32, Right:32>> <= Values,
+    options(Rest1, {sack, Edges} | Acc);
+%% Kind - 8, Length - 10, TSOPT - Time Stamp Option (RFC 1072, RFC 6247)
+options(<<8:8, 10:8, Timestamp:32, TimestampEchoReply:32, Rest/binary>>, Acc) ->
+    options(Rest, {tsopt, {timestamp, Timestamp}, {timestamp_echo_reply, TimestampEchoReply}} | Acc);
+
+%% Encoding routines
+options(, Acc) ->
+    list_to_binary(lists:reverse(Acc));
+options({eol, } | _Rest, Acc) ->
+    options(, <<0:8>> | Acc); % No more options after EOL must be
+options({nop, } | Rest, Acc) ->
+    options(Rest, <<1:8>> | Acc);
+options({maximum_segment_size, MSSValue} | Rest, Acc) ->
+    options(Rest, <<2:8, 4:8, MSSValue:16>> | Acc);
+options({window_scale, ShiftCount} | Rest, Acc) ->
+    options(Rest, <<3:8, 3:8, ShiftCount:8>> | Acc);
+options({sack_permitted, true} | Rest, Acc) ->
+    options(Rest, <<4:8, 2:8>> | Acc);
+options({sack, Values} | Rest, Acc) ->
+    Edges = list_to_binary(<<Left:32, Right:32>> || {{left_edge, Left}, {right_edge, Right}} <- Values),
+    Length = byte_size(Edges) + 2,
+    options(Rest, <<5:8, Length:8, Edges/binary>> | Acc);
+options({tsopt, {timestamp, Timestamp}, {timestamp_echo_reply, TimestampEchoReply}} | Rest, Acc) ->
+    options(Rest, <<8:8, 10:8, Timestamp:32, TimestampEchoReply:32>> | Acc).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_udp.erl Added

@@ -0,0 +1,40 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_udp).
+
+-include("pkt_udp.hrl").
+
+-export(codec/1).
+
+codec(<<SPort:16, DPort:16, ULen:16, Sum:16, Payload/binary>>) ->
+    {#udp{sport = SPort, dport = DPort, ulen = ULen, sum = Sum}, Payload};
+codec(#udp{sport = SPort, dport = DPort, ulen = ULen, sum = Sum}) ->
+    <<SPort:16, DPort:16, ULen:16, Sum:16>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/src/pkt_vrrp.erl Added

@@ -0,0 +1,54 @@
+%% Copyright (c) 2009-2015, Michael Santos <michael.santos@gmail.com>
+%% All rights reserved.
+%%
+%% Redistribution and use in source and binary forms, with or without
+%% modification, are permitted provided that the following conditions
+%% are met:
+%%
+%% Redistributions of source code must retain the above copyright
+%% notice, this list of conditions and the following disclaimer.
+%%
+%% 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.
+%%
+%% Neither the name of the author nor the names of its contributors
+%% may be used to endorse or promote products derived from this software
+%% without specific prior written permission.
+%%
+%% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+%% "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
+%% COPYRIGHT HOLDER 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.
+-module(pkt_vrrp).
+
+-export(codec/1).
+
+-include("pkt_vrrp.hrl").
+
+codec(<<Version:4, Type:4, VRID:8, Prio:8, CntIP:8, AuthType:8, AdverInt:8, Sum:16, Rest/binary>>) ->
+    ASize = CntIP * 4,
+    <<Addresses:ASize/binary, 0:64, Payload/binary>> = Rest, % 0:64 - Application Data {1,2}
+    {#vrrp{
+        version = Version,
+        type = Type,
+        vrid = VRID,
+        priority = Prio,
+        auth_type = AuthType,
+        adver_int = AdverInt,
+        sum = Sum,
+        ip_addresses = {A, B, C, D} || <<A:8, B:8, C:8, D:8>> <= Addresses
+    }, Payload};
+codec(#vrrp{version = Version, type = Type, vrid = VRID, priority = Prio, auth_type = AuthType, adver_int = AdverInt, sum = Sum, ip_addresses = Addresses}) ->
+    CntIP = length(Addresses),
+    ASize = CntIP * 4,
+    IPs = << <<A:8, B:8, C:8, D:8>> || {A, B, C, D} <- Addresses >>,
+    <<Version:4, Type:4, VRID:8, Prio:8, CntIP:8, AuthType:8, AdverInt:8, Sum:16, IPs:ASize/binary, 0:64>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_802_1q_tests.erl Added

@@ -0,0 +1,51 @@
+-module(pkt_802_1q_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        frame_decode(),
+        decode(),
+        encode()
+    .
+
+% http://packetlife.net/captures/QinQ.pcap.cap
+frame() ->
+    <<255,255,255,255,255,255,202,3,13,180,0,28,129,0,0,100,
+      129,0,0,200,8,6,0,1,8,0,6,4,0,1,202,3,13,180,0,28,192,
+      168,2,200,0,0,0,0,0,0,192,168,2,254,0,0,0,0,0,0,0,0,0,0,
+      0,0,0,0>>.
+
+header() ->
+    <<0,100,129,0>>.
+
+frame_decode() ->
+    Frame = pkt:decapsulate(frame()),
+    Terms =#ether{dhost = <<255,255,255,255,255,255>>,
+                   shost = <<202,3,13,180,0,28>>,
+                   type = 33024,crc = 0},
+            #'802.1q'{prio = 0,cfi = 0,vid = 100,type = 33024},
+            #'802.1q'{prio = 0,cfi = 0,vid = 200,type = 2054},
+            #arp{hrd = 1,pro = 2048,hln = 6,pln = 4,op = 1,
+                 sha = <<202,3,13,180,0,28>>,
+                 sip = {192,168,2,200},
+                 tha = <<0,0,0,0,0,0>>,
+                 tip = {192,168,2,254}},
+            <<0,0,0,0,0,0,0,0,0,0,0,0,0,0>>,
+    ?_assertEqual(Terms, Frame).
+
+decode() ->
+    {Header, Payload} = pkt:'802.1q'(header()),
+    Result = #'802.1q'{
+        prio = 0,
+        cfi = 0,
+        vid = 100,
+        type = 16#8100
+    },
+    ?_assertEqual({Result, <<>>}, {Header, Payload}).
+
+encode() ->
+    Packet = header(),
+    {Header, Payload} = pkt:'802.1q'(Packet),
+    ?_assertEqual(Packet, <<(pkt:'802.1q'(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_802_1qinq_tests.erl Added

@@ -0,0 +1,49 @@
+-module(pkt_802_1qinq_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        frame_decode(),
+        decode(),
+        encode()
+    .
+
+% https://github.com/the-tcpdump-group/tcpdump/blob/master/tests/QinQpacket.pcap
+frame() ->
+    <<255,255,255,255,255,255,0,8,93,35,12,63,136,168,0,200,8,
+      6,0,1,8,0,6,4,0,1,0,8,93,35,12,63,172,17,0,20,0,0,0,0,0,
+      0,172,17,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>.
+
+header() ->
+    <<0,200,8,6>>.
+
+frame_decode() ->
+    Frame = pkt:decapsulate(frame()),
+    Terms = #ether{dhost = <<255,255,255,255,255,255>>,
+                    shost = <<0,8,93,35,12,63>>,
+                    type = 34984,crc = 0},
+                    #'802.1q'{prio = 0,cfi = 0,vid = 200,type = 2054},
+                    #arp{hrd = 1,pro = 2048,hln = 6,pln = 4,op = 1,
+                         sha = <<0,8,93,35,12,63>>,
+                         sip = {172,17,0,20},
+                         tha = <<0,0,0,0,0,0>>,
+                         tip = {172,17,0,2}},
+              <<0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>,
+    ?_assertEqual(Terms, Frame).
+
+decode() ->
+    {Header, Payload} = pkt:'802.1q'(header()),
+    Result = #'802.1q'{
+        prio = 0,
+        cfi = 0,
+        vid = 200,
+        type = 16#0806
+    },
+    ?_assertEqual({Result, <<>>}, {Header, Payload}).
+
+encode() ->
+    Packet = header(),
+    {Header, Payload} = pkt:'802.1q'(Packet),
+    ?_assertEqual(Packet, <<(pkt:'802.1q'(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_802_1x_tests.erl Added

@@ -0,0 +1,30 @@
+-module(pkt_802_1x_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        decode(),
+        encode()
+    .
+
+packet() ->
+    <<208,231,130,187,173,120,216,80,230,215,165,93,136,142,2,3,0,127,2,19,
+      130,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+      0,0,0,0,0,0,0,0,0,0,48,35,21,192,82,245,73,203,215,177,67,166,119,19,51,
+      133,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,200,45,182,0,54,207,185,135,165,160,
+      10,70,95,175,108,147,0,32,112,46,203,250,45,160,87,202,238,37,17,167,64,
+      202,98,8,201,119,185,73,11,98,90,123,40,181,73,189,189,89,19,137>>.
+
+decode() ->
+    _Ether, EAPoL, _Payload = pkt:decapsulate(packet()),
+    ?_assertEqual(
+       {'802.1x',2, 3, 127 },
+       EAPoL
+    ).
+
+encode() ->
+    <<_Ether:14/bytes, Packet/bytes>> = packet(),
+    {Header, Payload} = pkt:'802.1x'(Packet),
+    ?_assertEqual(Packet, <<(pkt:'802.1x'(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_arp_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_dlt_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_ether_tests.erl Added

@@ -0,0 +1,42 @@
+-module(pkt_ether_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        decode(),
+        encode(),
+        type(),
+        type_fail()
+    .
+
+packet() ->
+    <<0,80,217,184,222,13,22,43,241,75,9,12,176,18,17,4,140,86,
+      0,0,2,4,5,172,1, 3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,4,2,0,0>>.
+
+decode() ->
+    {Header, Payload} = pkt:ether(packet()),
+    ?_assertEqual(
+        {{ether,<<0,80,217,184,222,13>>,
+         <<22,43,241,75,9,12>>,
+         45074,0},
+         <<17,4,140,86,0,0,2,4,5,172,1,3,3,0,1,1,8,10,190,15,172,
+         236,0,64,161,73,4,2,0,0>>},
+         {Header, Payload}
+    ).
+
+encode() ->
+    Packet = packet(),
+    {Header, Payload} = pkt:ether(Packet),
+    ?_assertEqual(Packet, <<(pkt:ether(Header))/binary, Payload/binary>>).
+
+type() ->
+    ?_assertEqual(ipv4, pkt_ether:type(?ETH_P_IP)).
+
+type_fail() ->
+    ?_assertException(
+        error,
+        function_clause,
+        pkt_ether:type(31337)
+    ).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_gre_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_icmp6_tests.erl Added

@@ -0,0 +1,141 @@
+-module(pkt_icmp6_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        decode(),
+        encode(),
+        decode_rfc4861(),
+        encode_rfc4861()
+    .
+
+packet() ->
+    <<128,0,255,149,7,79,0,1,169,244,102,82,0,0,0,0,36,187,0,
+      0,0,0,0,0,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
+      31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
+      49,50,51,52,53,54,55>>.
+
+decode() ->
+    {Header, Payload} = pkt:icmp6(packet()),
+    ?_assertEqual(
+        {#icmp6{type = 128,code = 0,checksum = 65429,
+                un = <<0,0,0,0>>,
+                pptr = 0,mtu = 0,id = 1871,seq = 1,maxdelay = 0,res = 0,
+                res2 = 0,saddr = {0,0,0,0,0,0,0,0},daddr = {0,0,0,0,0,0,0,0},hop = 0,m = 0,
+                o = 0,lifetime = 0,reach = 0,retrans = 0,r = 0,s = 0,
+                delay = 0},
+          <<169,244,102,82,0,0,0,0,36,187,0,0,0,0,0,0,16,17,18,19,
+            20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
+            38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55>>},
+        {Header, Payload}
+    ).
+
+encode() ->
+    Packet = packet(),
+    {Header, Payload} = pkt:icmp6(Packet),
+    ?_assertEqual(Packet, <<(pkt:icmp6(Header))/binary, Payload/binary>>).
+
+packet_rfc4861() ->
+	<<133,0,171,189,0,0,0,0,1,1,82,84,0,117,74,88,11,41,5,0,
+	  125,99,38,190,84,120,235,111,241,94,13,46,203,174,76,
+	  165,254,128,131,0,32,1,255,255,0,48,130,1,34,48,13,6,9,
+	  42,134,72,134,247,13,1,1,1,5,0,3,130,1,15,0,48,130,1,10,
+	  2,130,1,1,0,205,129,138,159,96,224,29,12,187,120,227,66,
+	  203,242,10,168,128,62,16,235,94,251,49,192,23,249,129,
+	  177,245,83,75,179,130,109,10,191,128,166,97,100,53,154,
+	  66,90,19,208,177,212,38,114,40,208,16,206,239,160,190,
+	  210,245,35,250,228,26,241,243,60,232,177,130,36,195,254,
+	  217,228,63,104,101,48,92,132,156,175,209,125,248,74,182,
+	  61,123,220,15,92,218,32,122,40,59,145,42,129,139,152,
+	  204,128,205,237,217,53,4,79,192,174,146,203,54,30,221,
+	  167,14,82,114,136,181,164,61,3,45,181,76,83,35,46,113,
+	  124,97,244,126,45,151,41,0,196,227,140,5,88,129,137,93,
+	  244,224,100,15,214,164,12,229,41,191,103,183,145,22,69,
+	  34,142,74,173,91,77,182,51,13,182,248,121,152,3,154,187,
+	  168,65,21,232,233,130,32,146,84,68,211,159,203,91,73,21,
+	  206,79,172,92,237,113,168,100,99,34,196,30,233,73,144,
+	  80,226,111,221,178,178,231,100,115,35,53,226,221,205,
+	  151,3,195,184,124,172,172,93,49,69,109,91,20,207,207,
+	  192,202,170,218,237,222,7,37,176,192,22,251,114,70,33,
+	  123,2,3,1,0,1,0,0,0,0,0,13,2,0,0,0,0,0,0,0,0,89,121,136,
+	  185,0,0,14,1,62,244,73,12,171,237,12,35,0,0,112,190,22,
+	  112,142,166,156,168,104,254,69,199,58,217,219,241,174,
+	  101,234,231,179,49,253,242,212,46,245,105,167,41,234,
+	  191,56,219,97,163,26,170,146,56,237,138,99,67,155,219,
+	  253,59,73,161,63,251,149,207,44,129,23,171,121,204,90,
+	  242,32,27,114,50,56,5,81,177,78,174,65,197,193,181,122,
+	  50,140,27,50,216,166,4,81,124,69,19,19,200,91,237,115,
+	  193,90,133,23,135,237,237,192,106,233,221,134,26,164,
+	  170,236,133,221,90,38,12,195,226,238,21,114,162,6,194,
+	  106,177,193,61,1,205,115,19,242,179,217,117,153,174,79,
+	  49,153,6,9,186,199,75,196,63,251,31,56,57,21,145,119,
+	  228,239,20,114,119,131,112,156,220,251,19,120,146,134,
+	  223,141,145,21,193,222,5,253,180,247,61,80,56,171,81,84,
+	  248,140,151,230,186,11,83,62,159,211,167,56,209,44,115,
+	  33,134,201,203,64,93,67,127,94,94,33,136,223,204,102,
+	  120,98,245,48,196,91,103,154,59,29,79,240,186,233,148,
+	  64,35,210,252,1,251,198,42,58,254,77,161,223,184,247,
+	  115,116,28,1,248,147,151,43,24,121,64,45,104,250,239,
+	  107,236,222,224,53,179,107,69,69,99,169,169,65,154,0,0,
+	  0,0>>.
+
+decode_rfc4861() ->
+    {Header, Payload} = pkt:icmp6(packet_rfc4861()),
+    ?_assertEqual(
+	{{icmp6,133,0,43965,
+			<<0,0,0,0>>,
+			0,0,0,0,0,0,0,
+			{0,0,0,0,0,0,0,0},
+			{0,0,0,0,0,0,0,0},
+			0,0,0,0,0,0,0,0,0},
+	 <<1,1,82,84,0,117,74,88,11,41,5,0,125,99,38,190,84,120,
+	   235,111,241,94,13,46,203,174,76,165,254,128,131,0,32,1,
+	   255,255,0,48,130,1,34,48,13,6,9,42,134,72,134,247,13,1,
+	   1,1,5,0,3,130,1,15,0,48,130,1,10,2,130,1,1,0,205,129,
+	   138,159,96,224,29,12,187,120,227,66,203,242,10,168,128,
+	   62,16,235,94,251,49,192,23,249,129,177,245,83,75,179,
+	   130,109,10,191,128,166,97,100,53,154,66,90,19,208,177,
+	   212,38,114,40,208,16,206,239,160,190,210,245,35,250,
+	   228,26,241,243,60,232,177,130,36,195,254,217,228,63,
+	   104,101,48,92,132,156,175,209,125,248,74,182,61,123,
+	   220,15,92,218,32,122,40,59,145,42,129,139,152,204,128,
+	   205,237,217,53,4,79,192,174,146,203,54,30,221,167,14,
+	   82,114,136,181,164,61,3,45,181,76,83,35,46,113,124,97,
+	   244,126,45,151,41,0,196,227,140,5,88,129,137,93,244,
+	   224,100,15,214,164,12,229,41,191,103,183,145,22,69,34,
+	   142,74,173,91,77,182,51,13,182,248,121,152,3,154,187,
+	   168,65,21,232,233,130,32,146,84,68,211,159,203,91,73,
+	   21,206,79,172,92,237,113,168,100,99,34,196,30,233,73,
+	   144,80,226,111,221,178,178,231,100,115,35,53,226,221,
+	   205,151,3,195,184,124,172,172,93,49,69,109,91,20,207,
+	   207,192,202,170,218,237,222,7,37,176,192,22,251,114,70,
+	   33,123,2,3,1,0,1,0,0,0,0,0,13,2,0,0,0,0,0,0,0,0,89,121,
+	   136,185,0,0,14,1,62,244,73,12,171,237,12,35,0,0,112,
+	   190,22,112,142,166,156,168,104,254,69,199,58,217,219,
+	   241,174,101,234,231,179,49,253,242,212,46,245,105,167,
+	   41,234,191,56,219,97,163,26,170,146,56,237,138,99,67,
+	   155,219,253,59,73,161,63,251,149,207,44,129,23,171,121,
+	   204,90,242,32,27,114,50,56,5,81,177,78,174,65,197,193,
+	   181,122,50,140,27,50,216,166,4,81,124,69,19,19,200,91,
+	   237,115,193,90,133,23,135,237,237,192,106,233,221,134,
+	   26,164,170,236,133,221,90,38,12,195,226,238,21,114,162,
+	   6,194,106,177,193,61,1,205,115,19,242,179,217,117,153,
+	   174,79,49,153,6,9,186,199,75,196,63,251,31,56,57,21,
+	   145,119,228,239,20,114,119,131,112,156,220,251,19,120,
+	   146,134,223,141,145,21,193,222,5,253,180,247,61,80,56,
+	   171,81,84,248,140,151,230,186,11,83,62,159,211,167,56,
+	   209,44,115,33,134,201,203,64,93,67,127,94,94,33,136,
+	   223,204,102,120,98,245,48,196,91,103,154,59,29,79,240,
+	   186,233,148,64,35,210,252,1,251,198,42,58,254,77,161,
+	   223,184,247,115,116,28,1,248,147,151,43,24,121,64,45,
+	   104,250,239,107,236,222,224,53,179,107,69,69,99,169,
+	   169,65,154,0,0,0,0>>},
+       {Header, Payload}
+    ).
+
+encode_rfc4861() ->
+    Packet = packet(),
+    {Header, Payload} = pkt:icmp6(Packet),
+    ?_assertEqual(Packet, <<(pkt:icmp6(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_icmp_tests.erl Added

@@ -0,0 +1,35 @@
+-module(pkt_icmp_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        decode(),
+        encode()
+    .
+
+packet() ->
+    <<0,0,147,214,5,65,0,1,113,241,102,82,0,0,0,0,198,208,9,
+      0,0,0,0,0,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
+      31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
+      49,50,51,52,53,54,55>>.
+
+decode() ->
+    {Header, Payload} = pkt:icmp(packet()),
+    ?_assertEqual(
+        {#icmp{type = 0,code = 0,checksum = 37846,id = 1345,
+               sequence = 1,
+               gateway = {127,0,0,1},
+               un = <<0,0,0,0>>,
+               mtu = 0,pointer = 0,ts_orig = 0,ts_recv = 0,ts_tx = 0},
+         <<113,241,102,82,0,0,0,0,198,208,9,0,0,0,0,0,16,17,18,19,
+           20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
+           38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55>>},
+        {Header, Payload}
+    ).
+
+encode() ->
+    Packet = packet(),
+    {Header, Payload} = pkt:icmp(Packet),
+    ?_assertEqual(Packet, <<(pkt:icmp(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_igmp_tests.erl Added

@@ -0,0 +1,44 @@
+-module(pkt_igmp_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        decode(),
+        encode(),
+        decode_igmpv3_22(),
+        encode_igmpv3_22()
+    .
+
+packet() ->
+    <<17,100,238,155,0,0,0,0>>.
+
+decode() ->
+    {Header, Payload} = pkt:igmp(packet()),
+    ?_assertEqual(
+        {#igmp{type = 17,code = 100,csum = 61083,group = {0,0,0,0}},
+               <<>>},
+        {Header, Payload}
+    ).
+
+encode() ->
+    Packet = packet(),
+    {Header, Payload} = pkt:igmp(Packet),
+    ?_assertEqual(Packet, <<(pkt:igmp(Header))/binary, Payload/binary>>).
+
+
+packet_igmp_22() ->
+    <<16#22, 0, 235,252, 0,0,0,1, 3,0,0,0,239,0,0,1>>.
+
+decode_igmpv3_22() ->
+    {Header, Payload} = pkt:igmp(packet_igmp_22()),
+    ?_assertEqual({
+        #igmp{type = 34, code = 0, csum = 60412, group = #igmp_group{type = 3, addr = {239,0,0,1}} },
+        <<>>
+    }, {Header, Payload}).
+
+encode_igmpv3_22() ->
+    Packet = packet_igmp_22(),
+    {Header, Payload} = pkt:igmp(Packet),
+    ?_assertEqual(Packet, <<(pkt:igmp(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_ipproto_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_ipv4_tests.erl Added

@@ -0,0 +1,161 @@
+-module(pkt_ipv4_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        decode(),
+        encode(),
+        ipv4_udp_makesum_1(),
+        ipv4_udp_makesum_2(),
+        ipv4_udp_verify_checksum_1(),
+        ipv4_udp_verify_checksum_2(),
+        ipv4_tcp_makesum_1(),
+        ipv4_tcp_makesum_2(),
+        ipv4_tcp_verify_checksum_1(),
+        ipv4_tcp_verify_checksum_2(),
+        ipv4_udp_build_checksum_1(),
+        ipv4_tcp_build_checksum_1()
+    .
+
+packet() ->
+    <<69,0,0,54,2,108,64,0,53,6,172,243,173,192,82,195,192,
+      168,213,54,0,80,143,166,75,154,212,181,116,33,53,92,128,
+      24,0,126,60,199,0,0,1,1,8,10,92,104,96,16,22,69,237,136,
+      137,0>>.
+
+decode() ->
+    {Header, Payload} = pkt:ipv4(packet()),
+    ?_assertEqual(
+        {{ipv4,4,5,0,54,620,1,0,0,53,6,44275,
+         {173,192,82,195},
+         {192,168,213,54},
+         <<>>},
+         <<0,80,143,166,75,154,212,181,116,33,53,92,128,24,0,126,
+           60,199,0,0,1,1,8,10,92,104,96,16,22,69,237,136,137,0>>},
+         {Header, Payload}
+    ).
+
+encode() ->
+    Packet = packet(),
+    {Header, Payload} = pkt:ipv4(Packet),
+    ?_assertEqual(Packet, <<(pkt:ipv4(Header))/binary, Payload/binary>>).
+
+
+ipv4_udp_build_checksum_1() ->
+    Result = pkt:build_checksum(ipv4_udp_packet_1()),
+    ?_assertEqual(
+        {ipv4_udp, 48969,37018},
+        Result
+    ).
+
+ipv4_tcp_build_checksum_1() ->
+    Result = pkt:build_checksum(ipv4_tcp_packet_1()),
+    ?_assertEqual(
+        {ipv4_tcp, 59801,49844},
+        Result
+    ).
+
+ipv4_udp_packet_1() ->
+    #ipv4{v = 4,hl = 5,tos = 0,len = 328,id = 1946,df = 0,
+       mf = 0,off = 0,ttl = 128,p = 17,sum = 48969,
+       saddr = {192,168,178,25},
+       daddr = {255,255,255,255},
+       opt = <<>>},
+     #udp{sport = 68,dport = 67,ulen = 308,sum = 37018},
+     <<1,1,6,0,163,126,46,17,3,0,0,0,192,168,178,25,0,0,0,0,0,0,0,0,0,0,0,0,0,34,100,91,16,42,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+     0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
+     0,0,0,0,0,0,0,99,130,83,99,53,1,8,61,7,1,0,34,100,91,16,42,12,10,109,105,99,104,97,101,108,45,80,67,60,8,77,83,70,84,32,
+     53,46,48,55,13,1,15,3,6,44,46,47,31,33,121,249,43,252,255,0,0,0,0,0,0,0,0,0,0>>.
+
+ipv4_udp_packet_2() ->
+    #ipv4{v = 4,hl = 5,tos = 0,len = 78,id = 1949,df = 0,
+       mf = 0,off = 0,ttl = 128,p = 17,sum = 19608,
+       saddr = {192,168,178,25},
+       daddr = {192,168,178,255},
+       opt = <<>>},
+    #udp{sport = 137,dport = 137,ulen = 58,sum = 7692},
+    <<184,131,1,16,0,1,0,0,0,0,0,0,32,70,72,70,65,69,66,69,69,67,65,67,65,67,65,67,65,67,65,67,65,67,65,67,65,67,65,67,65,67,65,65,65,0,0,32,0,1>>.
+
+ipv4_udp_makesum_1() ->
+    Checksum = pkt:makesum(ipv4_udp_packet_1()),
+    ?_assertEqual(
+        16#FFFF,
+        Checksum
+    ).
+
+ipv4_udp_makesum_2() ->
+    Checksum = pkt:makesum(ipv4_udp_packet_2()),
+    ?_assertEqual(
+        16#FFFF,
+        Checksum
+    ).
+
+ipv4_udp_verify_checksum_1() ->
+    Result = pkt:verify_checksum(ipv4_udp_packet_1()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv4_udp_verify_checksum_2() ->
+    Result = pkt:verify_checksum(ipv4_udp_packet_2()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv4_tcp_packet_1() ->
+    #ipv4{v = 4,hl = 5,tos = 0,len = 60,id = 27574,df = 1,
+       mf = 0,off = 0,ttl = 64,p = 6,sum = 59801,
+       saddr = {192,168,178,1},
+       daddr = {192,168,178,25},
+       opt = <<>>},
+     #tcp{sport = 49549,dport = 2869,seqno = 1351181078,
+       ackno = 0,off = 10,cwr = 0,ece = 0,urg = 0,ack = 0,psh = 0,
+       rst = 0,syn = 1,fin = 0,win = 5840,sum = 49844,urp = 0,
+       opt = <<2,4,5,180,4,2,8,10,0,18,8,160,0,0,0,0,1,3,3,2>>},
+       <<>>.
+
+ipv4_tcp_packet_2() ->
+    #ipv4{v = 4,hl = 5,tos = 0,len = 40,id = 2642,df = 1,
+       mf = 0,off = 0,ttl = 128,p = 6,sum = 50311,
+       saddr = {192,168,178,25},
+       daddr = {81,19,104,33},
+       opt = <<>>},
+     #tcp{sport = 49443,dport = 443,seqno = 3493555953,
+      ackno = 2085059857,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
+      psh = 0,rst = 0,syn = 0,fin = 0,win = 16652,sum = 18285,
+      urp = 0,opt = <<>>},
+     <<0,0,0,0,0,0>>.
+
+ipv4_tcp_makesum_1() ->
+    Checksum = pkt:makesum(ipv4_tcp_packet_1()),
+    ?_assertEqual(
+        0,
+        Checksum
+    ).
+
+ipv4_tcp_makesum_2() ->
+    Checksum = pkt:makesum(ipv4_tcp_packet_2()),
+    ?_assertEqual(
+        0,
+        Checksum
+    ).
+
+ipv4_tcp_verify_checksum_1() ->
+    Result = pkt:verify_checksum(ipv4_tcp_packet_1()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv4_tcp_verify_checksum_2() ->
+    Result = pkt:verify_checksum(ipv4_tcp_packet_2()),
+    ?_assertEqual(
+        true,
+        Result
+    ).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_ipv6_hopopts_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_ipv6_tests.erl Added

@@ -0,0 +1,326 @@
+-module(pkt_ipv6_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        decode(),
+        encode(),
+        ipv6_tcp_makesum_1(),
+        ipv6_tcp_makesum_2(),
+        ipv6_tcp_makesum_3(),
+        ipv6_tcp_makesum_4(),
+        ipv6_tcp_makesum_5(),
+        ipv6_tcp_calculate_checksum_1(),
+        ipv6_udp_makesum_1(),
+        ipv6_udp_makesum_2(),
+        ipv6_udp_makesum_3(),
+        ipv6_udp_verify_checksum_1(),
+        ipv6_udp_verify_checksum_2(),
+        ipv6_udp_verify_checksum_3(),
+        ipv6_tcp_verify_checksum_1(),
+        ipv6_tcp_verify_checksum_2(),
+        ipv6_tcp_verify_checksum_3(),
+        ipv6_tcp_verify_checksum_4(),
+        ipv6_tcp_verify_checksum_5(),
+        ipv6_tcp_build_checksum_1(),
+        ipv6_udp_build_checksum_1()
+    .
+
+packet() ->
+    <<96,0,0,0,0,64,58,64,32,1,4,112,0,8,16,109,20,26,254,106,
+      31,249,166,149,38,7,248,176,64,11,8,10,0,0,0,0,0,0,16,3,
+      128,0,255,149,7,79,0,1,169,244,102,82,0,0,0,0,36,187,0,
+      0,0,0,0,0,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
+      31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
+      49,50,51,52,53,54,55>>.
+
+decode() ->
+    {Header, Payload} = pkt:ipv6(packet()),
+    ?_assertEqual(
+        {{ipv6,6,0,0,64,58,64,
+         {8193,1136,8,4205,5146,65130,8185,42645},
+         {9735,63664,16395,2058,0,0,0,4099}},
+         <<128,0,255,149,7,79,0,1,169,244,102,82,0,0,0,0,36,187,0,
+           0,0,0,0,0,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,
+           31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
+           49,50,51,52,53,54,55>>},
+        {Header, Payload}
+    ).
+
+encode() ->
+    Packet = packet(),
+    {Header, Payload} = pkt:ipv6(Packet),
+    ?_assertEqual(Packet, <<(pkt:ipv6(Header))/binary, Payload/binary>>).
+
+ipv6_tcp_packet_1() ->
+      #ipv6{v = 6,class = 0,flow = 0,len = 1432,next = 6,
+       hop = 255,
+       saddr = {8194,22395,62248,1,40647,42751,65133,30684},
+       daddr = {8194,22395,62248,1,31176,62569,31957,35820}},
+      #tcp{sport = 38197,dport = 50412,seqno = 3652146503,
+           ackno = 3868632195,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
+           psh = 0,rst = 0,syn = 0,fin = 0,win = 1412,sum = 27913,
+           urp = 0,opt = <<>>},
+            <<78,55,71,187,185,209,73,255,
+            142,147,190,182,92,23,117,230,123,216,1,29,226,13,191,126,171,117,21,51,235,222,45,238,67,214,254,26,239,
+            28,118,83,156,119,248,252,3,124,87,27,126,4,121,6,218,187,9,214,253,26,215,32,132,173,167,134,167,
+            128,7,148,17,125,32,211,221,8,124,122,139,154,46,49,250,147,229,91,96,14,54,132,157,161,22,187,46,185,
+            60,13,198,168,70,234,51,42,169,79,169,164,166,79,13,106,47,151,240,178,181,57,34,221,145,80,
+            23,164,217,207,247,251,64,182,219,89,119,130,108,193,54,214,84,199,9,126,7,125,190,45,93,
+            219,213,250,193,223,92,184,211,190,39,168,129,46,218,18,54,0,111,58,204,97,198,74,166,242,
+            125,171,154,88,150,138,189,170,2,160,39,149,97,184,238,183,98,28,215,199,12,90,211,147,165,
+            13,149,173,104,79,40,53,16,83,219,54,159,36,91,240,110,15,223,219,223,94,0,125,184,183,179,
+            238,35,61,179,158,169,156,151,165,251,30,239,60,22,51,82,125,255,80,176,103,243,71,100,79,
+            221,71,68,90,15,249,32,62,181,33,150,77,13,50,101,231,32,139,108,57,21,83,119,246,78,237,
+            160,223,253,72,167,153,70,5,191,111,209,182,206,116,248,92,198,196,9,65,95,27,170,92,207,
+            226,216,86,150,174,85,8,226,94,59,32,226,227,93,197,164,175,213,185,47,190,249,83,49,103,
+            142,194,255,255,51,242,236,49,192,63,226,30,241,142,253,128,125,96,225,135,159,165,52,109,
+            173,242,121,51,189,159,161,124,129,115,0,158,213,197,249,7,230,191,32,158,221,173,233,235,
+            178,109,13,20,15,181,112,16,27,250,74,185,140,131,251,19,53,169,46,170,189,81,44,105,47,239,
+            151,53,227,42,232,171,57,56,127,72,120,158,163,21,253,182,188,188,31,249,183,172,93,254,168,
+            121,207,42,199,226,149,44,120,31,212,121,57,183,187,173,200,130,78,139,204,51,152,37,48,198,
+            31,53,231,21,243,188,8,158,203,156,243,40,237,109,253,162,61,23,224,189,96,251,190,61,158,19,
+            141,89,246,59,34,68,91,244,168,75,46,1,249,96,140,116,238,57,194,146,31,172,167,238,2,157,221,
+            175,16,137,203,94,249,40,123,9,155,11,191,44,110,103,104,127,225,151,39,46,99,157,97,131,219,
+            35,254,224,121,5,113,197,247,234,195,23,146,82,45,251,40,204,171,179,152,6,242,142,41,95,241,
+            59,108,16,118,250,187,195,219,62,99,17,174,121,114,57,43,104,217,194,21,237,118,221,69,123,241,
+            81,207,92,136,115,109,43,212,77,187,122,63,211,222,129,242,14,63,202,231,112,107,254,134,113,17,
+            140,7,8,187,239,183,58,31,167,232,163,202,130,103,204,243,250,172,177,100,58,206,231,250,31,165,
+            119,37,39,19,75,22,194,51,20,192,123,152,38,19,201,130,95,252,199,71,105,237,111,137,180,28,230,
+            107,132,141,107,126,214,92,92,119,146,48,136,35,42,213,41,208,56,215,129,6,112,95,177,236,49,187,
+            79,172,189,215,61,141,237,124,207,113,8,244,182,250,234,70,138,233,18,159,19,246,27,55,238,83,80,
+            6,138,194,152,226,242,40,238,203,111,62,169,179,116,159,20,221,248,44,137,193,120,139,45,200,123,
+            129,143,223,149,172,133,37,182,105,56,102,164,116,173,129,103,57,64,134,20,112,113,127,17,199,123,
+            195,154,71,209,110,143,94,123,156,219,44,101,125,255,119,132,241,241,131,253,253,137,24,71,189,
+            127,215,74,235,147,173,20,207,63,216,103,146,10,136,94,19,107,73,37,242,194,122,61,211,27,107,216,
+            163,109,144,158,239,193,15,119,25,108,120,239,126,148,229,244,26,214,210,106,201,105,60,223,103,
+            35,207,242,116,168,211,66,30,128,97,202,72,97,110,67,164,62,166,179,122,22,1,190,83,64,60,58,202,
+            115,143,217,252,17,219,230,233,39,130,247,164,166,112,121,134,211,47,208,31,202,94,214,56,118,159,
+            189,175,187,69,103,214,249,251,211,125,48,15,229,166,144,83,61,221,147,44,59,33,120,22,159,159,201,
+            135,49,177,167,54,130,182,152,228,211,108,62,47,99,97,183,2,227,210,144,139,63,123,204,179,175,104,
+            239,45,234,97,222,239,232,123,234,232,151,67,32,91,118,224,29,59,249,254,91,196,253,26,227,175,128,
+            46,65,191,208,162,143,115,185,118,79,173,130,253,16,116,124,238,5,216,114,18,6,125,67,200,167,191,
+            79,132,164,129,190,238,86,251,126,169,209,44,23,131,142,90,119,11,234,183,205,76,219,78,65,223,49,
+            200,111,74,114,178,73,223,146,2,253,146,169,53,36,60,79,180,7,126,23,238,158,30,176,224,23,47,121,
+            28,244,13,37,184,112,247,110,24,195,209,73,102,93,89,103,235,231,36,212,89,109,253,38,142,246,88,
+            128,55,64,221,7,160,237,253,128,31,60,123,142,245,168,91,132,231,74,30,55,199,233,60,41,77,75,25,
+            175,207,230,199,105,26,244,81,193,179,74,200,253,183,2,159,222,100,64,63,148,73,188,207,32,95,114,
+            209,23,101,110,103,28,242,97,125,240,94,17,222,241,69,89,95,123,74,224,4,243,131,30,126,133,61,110,
+            16,54,180,153,239,137,0,60,28,55,88,207,58,128,175,189,252,56,69,93,252,94,115,142,248,222,34,29,
+            250,167,76,194,181,129,5,121,221,68,219,205,24,224,94,254,224,181,112,155,184,39,111,60,161,86,124,
+            14,244,148,114,102,245,55,142,173,205,183,146,96,166,86,101,11,239,9,75,153,25,89,233,193,195,165,
+            210,247,110,209,165,226,19,143,123,238,217,159,78,118,0,111,46,225,231,131,22,112,251,75,184,142,
+            151,13,142,133,43,235,140,254,135,64,107,238,249,229,67,160,45,180,133,97,157,215,119,63,23,189,
+            109,218,160,156,69,74,249,57,46,243,12,23,158,231,130,241,94,202,199,228,49,98,174,245,8,27,171,
+            200,15,140,25,36,138,247,164,190,241,54,149,32,93,148,175,135,117,185,206,118,221,100,152,107,142,
+            138,117,86,75,230,118,9,239,48,108,222,99,241,64,173,59,238,240,227,42,43,95,220,209,99,38,1,121,
+            188,81,172,67,61,218,0,190,110,157,249,171,133,122,105,13,34,125,210,188,19,60,102,93,63,30,249,
+            18,212,173,20>>.
+
+ipv6_tcp_makesum_1() ->
+    Checksum = pkt:makesum(ipv6_tcp_packet_1()),
+    ?_assertEqual(
+        0,
+        Checksum
+    ).
+
+ipv6_tcp_packet_2() ->
+         #ipv6{v = 6,class = 0,flow = 0,len = 20,next = 6,hop = 255,
+                saddr = {8194,22395,62248,1,31176,62569,31957,35820},
+                daddr = {8194,22395,62248,1,40647,42751,65133,30684}},
+          #tcp{sport = 50412,dport = 38197,seqno = 3868632195,
+                ackno = 3642886663,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
+                psh = 0,rst = 0,syn = 0,fin = 0,win = 53248,sum = 3865,
+                urp = 0,opt = <<>>},
+          <<>>.
+
+ipv6_tcp_makesum_2() ->
+    Checksum = pkt:makesum(ipv6_tcp_packet_2()),
+    ?_assertEqual(
+        0,
+        Checksum
+    ).
+
+ipv6_tcp_packet_3() ->
+        #ipv6{v = 6,class = 0,flow = 0,len = 20,next = 6,hop = 255,
+               saddr = {8194,22395,62248,1,31176,62569,31957,35820},
+               daddr = {8194,22395,62248,1,40647,42751,65133,30684}},
+         #tcp{sport = 50412,dport = 38197,seqno = 3868632195,
+               ackno = 3645792503,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
+               psh = 0,rst = 0,syn = 0,fin = 0,win = 53248,sum = 47100,
+               urp = 0,opt = <<>>},
+         <<>>.
+
+ipv6_tcp_makesum_3() ->
+    Checksum = pkt:makesum(ipv6_tcp_packet_3()),
+    ?_assertEqual(
+        0,
+        Checksum
+    ).
+
+ipv6_tcp_packet_4() ->
+       #ipv6{v = 6,class = 0,flow = 0,len = 57,next = 6,hop = 255,
+              saddr = {8194,22395,62248,1,40647,42751,65133,30684},
+              daddr = {8194,22395,62248,1,31176,62569,31957,35820}},
+        #tcp{sport = 21,dport = 50411,seqno = 2610741794,
+             ackno = 3765735301,off = 5,cwr = 0,ece = 0,urg = 0,ack = 1,
+             psh = 1,rst = 0,syn = 0,fin = 0,win = 1412,sum = 40931,
+             urp = 0,opt = <<>>},
+        <<"220 FRITZ!Box3272 FTP server ready.\r\n">>.
+
+ipv6_tcp_makesum_4() ->
+    Checksum = pkt:makesum(ipv6_tcp_packet_4()),
+    ?_assertEqual(
+        0,
+        Checksum
+    ).
+
+ipv6_tcp_packet_5() ->
+       #ipv6{v = 6,class = 0,flow = 0,len = 32,next = 6,hop = 255,
+              saddr = {8194,22395,62248,1,40647,42751,65133,30684},
+              daddr = {8194,22395,62248,1,31176,62569,31957,35820}},
+        #tcp{sport = 21,dport = 50411,seqno = 2610741793,
+              ackno = 3765735301,off = 8,cwr = 0,ece = 0,urg = 0,ack = 1,
+              psh = 0,rst = 0,syn = 1,fin = 0,win = 5648,sum = 48664,
+              urp = 0,
+              opt = <<2,4,5,132,1,1,4,2,1,3,3,2>>},
+        <<>>.
+
+ipv6_tcp_makesum_5() ->
+    Checksum = pkt:makesum(ipv6_tcp_packet_5()),
+    ?_assertEqual(
+        0,
+        Checksum
+    ).
+
+ipv6_tcp_calculate_checksum_1() ->
+    IPv6, TCP, Payload = ipv6_tcp_packet_5(),
+    Checksum = pkt:makesum(IPv6, TCP#tcp{sum=0}, Payload),
+    ?_assertEqual(
+        48664,
+        Checksum
+    ).
+
+ipv6_udp_packet_1() ->
+    #ipv6{v = 6,class = 0,flow = 0,len = 42,next = 17,
+       hop = 255,
+       saddr = {8194,22395,51079,1,40407,23622,58249,17245},
+       daddr = {64768,0,0,0,40647,42751,65133,30684}},
+     #udp{sport = 9903,dport = 53,ulen = 42,sum = 55561},
+     <<238,114,1,0,0,1,0,0,0,0,0,0,5,100,97,105,115,121,6,117,98,117,110,116,117,3,99,111,109,0,0,1,0,1>>.
+
+ipv6_udp_packet_2() ->
+    #ipv6{v = 6,class = 0,flow = 0,len = 44,next = 17,hop = 1,
+       saddr = {65152,0,0,0,21078,43263,65025,7903},
+       daddr = {65282,0,0,0,0,0,1,2}},
+     #udp{sport = 56868,dport = 547,ulen = 44,sum = 37991},
+     <<11,53,24,20,0,8,0,2,255,255,0,1,0,14,0,1,0,1,26,213,31,121,80,86,168,1,30,223,0,6,0,4,0,23,0,31>>.
+
+ipv6_udp_packet_3() ->
+    #ipv6{v = 6,class = 0,flow = 0,len = 287,next = 17,
+       hop = 255,
+       saddr = {64768,0,0,0,40647,42751,65133,30684},
+       daddr = {8194,22395,51079,1,63891,16752,53406,9399}},
+     #udp{sport = 53,dport = 53489,ulen = 287,sum = 34044},
+     <<41,29,129,128,0,1,0,7,0,0,0,0,2,97,117,8,100,111,119,110,108,111,97,100,13,119,105,110,100,111,119,115,117,112,
+     100,97,116,101,3,99,111,109,0,0,1,0,1,192,12,0,5,0,1,0,0,3,169,0,36,10,97,117,100,111,119,110,108,111,97,
+     100,13,119,105,110,100,111,119,115,117,112,100,97,116,101,5,110,115,97,116,99,3,110,101,116,0,192,59,0,5,
+     0,1,0,0,2,10,0,8,5,116,50,101,120,116,192,59,192,107,0,5,0,1,0,0,2,10,0,42,2,97,117,8,100,111,119,110,108,
+     111,97,100,13,119,105,110,100,111,119,115,117,112,100,97,116,101,3,99,111,109,9,101,100,103,101,115,117,105,
+     116,101,192,90,192,127,0,5,0,1,0,0,27,210,0,16,4,97,54,57,53,1,100,6,97,107,97,109,97,105,192,90,192,181,0,
+     5,0,1,0,0,0,87,0,38,4,97,54,57,53,1,100,6,97,107,97,109,97,105,3,110,101,116,1,48,1,49,2,99,110,10,97,107,97,
+     109,97,105,116,101,99,104,192,90,192,209,0,1,0,1,0,0,0,87,0,4,2,21,243,49,192,209,0,1,0,1,0,0,0,87,0,4,23,62,99,34>>.
+
+ipv6_udp_makesum_1() ->
+    Checksum = pkt:makesum(ipv6_udp_packet_1()),
+    ?_assertEqual(
+        16#FFFF,
+        Checksum
+    ).
+
+ipv6_udp_makesum_2() ->
+    Checksum = pkt:makesum(ipv6_udp_packet_2()),
+    ?_assertEqual(
+        16#FFFF,
+        Checksum
+    ).
+
+ipv6_udp_makesum_3() ->
+    Checksum = pkt:makesum(ipv6_udp_packet_3()),
+    ?_assertEqual(
+        16#FFFF,
+        Checksum
+    ).
+
+ipv6_udp_verify_checksum_1() ->
+    Result = pkt:verify_checksum(ipv6_udp_packet_1()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv6_udp_verify_checksum_2() ->
+    Result = pkt:verify_checksum(ipv6_udp_packet_2()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv6_udp_verify_checksum_3() ->
+    Result = pkt:verify_checksum(ipv6_udp_packet_3()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv6_tcp_verify_checksum_1() ->
+    Result = pkt:verify_checksum(ipv6_tcp_packet_1()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv6_tcp_verify_checksum_2() ->
+    Result = pkt:verify_checksum(ipv6_tcp_packet_2()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv6_tcp_verify_checksum_3() ->
+    Result = pkt:verify_checksum(ipv6_tcp_packet_3()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv6_tcp_verify_checksum_4() ->
+    Result = pkt:verify_checksum(ipv6_tcp_packet_4()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+ipv6_tcp_verify_checksum_5() ->
+    Result = pkt:verify_checksum(ipv6_tcp_packet_5()),
+    ?_assertEqual(
+        true,
+        Result
+    ).
+
+
+ipv6_udp_build_checksum_1() ->
+    Result = pkt:build_checksum(ipv6_udp_packet_1()),
+    ?_assertEqual(
+        {ipv6_udp, 55561},
+        Result
+    ).
+
+ipv6_tcp_build_checksum_1() ->
+    Result = pkt:build_checksum(ipv6_tcp_packet_1()),
+    ?_assertEqual(
+        {ipv6_tcp, 27913},
+        Result
+    ).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_linux_cooked_tests.erl Added

@@ -0,0 +1,32 @@
+-module(pkt_linux_cooked_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        decode(),
+        encode()
+    .
+
+packet() ->
+    <<0,0,0,1,0,6,0,22,182,181,62,198,0,0,8,0,69,0,0,52,3,46,64,0,54,6,
+      168,8,108,168,151,6,192,168,213,54,0,80,137,182,95,193,153,133,
+      143,44,160,100,128,16,0,126,82,76,0,0,1,1,8,10,222,215,19,81,29,
+      225,199,124>>.
+
+decode() ->
+    {Header, Payload} = pkt:linux_cooked(packet()),
+    ?_assertEqual(
+        {{linux_cooked,0,1,6,<<0,22,182,181,62,198,0,0>>,2048},
+         <<69,0,0,52,3,46,64,0,54,6,168,8,108,168,151,6,192,168,
+           213,54,0,80,137,182,95,193,153,133,143,44,160,100,128,
+           16,0,126,82,76,0,0,1,1,8,10,222,215,19,81,29,225,199,
+           124>>},
+        {Header, Payload}
+    ).
+
+encode() ->
+    Packet = packet(),
+    {Header, Payload} = pkt:linux_cooked(Packet),
+    ?_assertEqual(Packet, <<(pkt:linux_cooked(Header))/binary, Payload/binary>>).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_llc_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_lldp_tests.erl Added

@@ -0,0 +1,138 @@
+-module(pkt_lldp_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        decode(),
+        encode(),
+        pkt_decode(),
+        unknown_tlv_decode(),
+        unknown_tlv_eecode()
+    .
+
+packet() ->
+    <<16#02, 16#07, 16#04, 16#00, 16#01, 16#30, 16#f9, 16#ad,
+      16#a0, 16#04, 16#04, 16#05, 16#31, 16#2f, 16#31, 16#06,
+      16#02, 16#00, 16#78, 16#08, 16#17, 16#53, 16#75, 16#6d,
+      16#6d, 16#69, 16#74, 16#33, 16#30, 16#30, 16#2d, 16#34,
+      16#38, 16#2d, 16#50, 16#6f, 16#72, 16#74, 16#20, 16#31,
+      16#30, 16#30, 16#31, 16#00, 16#0a, 16#0d, 16#53, 16#75,
+      16#6d, 16#6d, 16#69, 16#74, 16#33, 16#30, 16#30, 16#2d,
+      16#34, 16#38, 16#00, 16#0c, 16#4c, 16#53, 16#75, 16#6d,
+      16#6d, 16#69, 16#74, 16#33, 16#30, 16#30, 16#2d, 16#34,
+      16#38, 16#20, 16#2d, 16#20, 16#56, 16#65, 16#72, 16#73,
+      16#69, 16#6f, 16#6e, 16#20, 16#37, 16#2e, 16#34, 16#65,
+      16#2e, 16#31, 16#20, 16#28, 16#42, 16#75, 16#69, 16#6c,
+      16#64, 16#20, 16#35, 16#29, 16#20, 16#62, 16#79, 16#20,
+      16#52, 16#65, 16#6c, 16#65, 16#61, 16#73, 16#65, 16#5f,
+      16#4d, 16#61, 16#73, 16#74, 16#65, 16#72, 16#20, 16#30,
+      16#35, 16#2f, 16#32, 16#37, 16#2f, 16#30, 16#35, 16#20,
+      16#30, 16#34, 16#3a, 16#35, 16#33, 16#3a, 16#31, 16#31,
+      16#00, 16#0e, 16#04, 16#00, 16#14, 16#00, 16#14, 16#10,
+      16#0e, 16#07, 16#06, 16#00, 16#01, 16#30, 16#f9, 16#ad,
+      16#a0, 16#02, 16#00, 16#00, 16#03, 16#e9, 16#00, 16#fe,
+      16#07, 16#00, 16#12, 16#0f, 16#02, 16#07, 16#01, 16#00,
+      16#fe, 16#09, 16#00, 16#12, 16#0f, 16#01, 16#03, 16#6c,
+      16#00, 16#00, 16#10, 16#fe, 16#09, 16#00, 16#12, 16#0f,
+      16#03, 16#01, 16#00, 16#00, 16#00, 16#00, 16#fe, 16#06,
+      16#00, 16#12, 16#0f, 16#04, 16#05, 16#f2, 16#fe, 16#06,
+      16#00, 16#80, 16#c2, 16#01, 16#01, 16#e8, 16#fe, 16#07,
+      16#00, 16#80, 16#c2, 16#02, 16#01, 16#00, 16#00, 16#fe,
+      16#17, 16#00, 16#80, 16#c2, 16#03, 16#01, 16#e8, 16#10,
+      16#76, 16#32, 16#2d, 16#30, 16#34, 16#38, 16#38, 16#2d,
+      16#30, 16#33, 16#2d, 16#30, 16#35, 16#30, 16#35, 16#00,
+      16#fe, 16#05, 16#00, 16#80, 16#c2, 16#04, 16#00, 16#00,
+      16#00>>.
+packet(entire_pkt) ->
+    <<
+        16#01, 16#80, 16#c2, 16#00, 16#00, 16#0e, 16#00, 16#04,
+        16#96, 16#1f, 16#a7, 16#26, 16#88, 16#cc, 16#02, 16#07,
+        16#04, 16#00, 16#04, 16#96, 16#1f, 16#a7, 16#26, 16#04,
+        16#04, 16#05, 16#31, 16#2f, 16#33, 16#06, 16#02, 16#00,
+        16#78, 16#06, 16#02, 16#00, 16#01, 16#06, 16#02, 16#00,
+        16#02, 16#06, 16#02, 16#00, 16#03, 16#00, 16#00, 16#ff,
+        16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#ff,
+        16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#ff, 16#aa, 16#bb
+    >>;
+packet(unknown_tlv_packet) ->
+    <<
+        16#01, 16#80, 16#c2, 16#00, 16#00, 16#0e, 16#ca, 16#e1,
+        16#f8, 16#79, 16#9b, 16#82, 16#88, 16#cc, 16#02, 16#07,
+        16#04, 16#72, 16#71, 16#fe, 16#9b, 16#8e, 16#4d, 16#04,
+        16#03, 16#02, 16#00, 16#02, 16#06, 16#02, 16#00, 16#78,
+        16#fe, 16#0c, 16#00, 16#26, 16#e1, 16#00, 16#00, 16#00,
+        16#72, 16#71, 16#fe, 16#9b, 16#8e, 16#4d, 16#18, 16#08,
+        16#06, 16#8f, 16#10, 16#aa, 16#74, 16#d7, 16#9a, 16#16,
+        16#e6, 16#01, 16#01, 16#fe, 16#0c, 16#00, 16#26, 16#e1,
+        16#01, 16#00, 16#00, 16#00, 16#00, 16#15, 16#11, 16#34,
+        16#97, 16#00, 16#00
+    >>.
+
+decode() ->
+    ?_assertEqual({{lldp, {chassis_id,mac_address,<<0,1,48,249,173,160>>},
+                           {port_id,interface_name,<<"1/1">>},
+                           {ttl,120},
+                           {port_desc,<<"Summit300-48-Port 1001">>},
+                           {system_name,<<"Summit300-48">>},
+                           {system_desc,<<"Summit300-48 - Version 7.4e.1 (Build 5) by Release_Master 05/27/05 04:53:11">>},
+                           {system_capability,router,bridge,router,bridge},
+                           {management_address,<<7,6,0,1,48,249,173,160,2,0,0,3,233,0>>},
+                           {organizationally_specific,<<0,18,15,2,7,1,0>>},
+                           {organizationally_specific,<<0,18,15,1,3,108,0,0,16>>},
+                           {organizationally_specific,<<0,18,15,3,1,0,0,0,0>>},
+                           {organizationally_specific,<<0,18,15,4,5,242>>},
+                           {organizationally_specific,<<0,128,194,1,1,232>>},
+                           {organizationally_specific,<<0,128,194,2,1,0,0>>},
+                           {organizationally_specific,<<0,128,194,3,1,232,16,118,
+                                                        50,45,48,52,56,56,45,48,51,45,48, 53,48,53,0>>},
+                           {organizationally_specific,<<0,128,194,4,0>>},
+                           end_of_lldpdu}, <<>>},
+                  pkt:lldp(packet())).
+
+encode() ->
+    {Header, _Payload} = pkt:lldp(packet()),
+    ?_assertEqual(pkt:lldp(Header), packet()).
+
+pkt_decode() ->
+    ?_assertEqual(
+        {ok,{{ether,<<1,128,194,0,0,14>>,
+            <<0,4,150,31,167,38>>,
+            35020,0},
+            {lldp,{chassis_id,mac_address,<<0,4,150,31,167,38>>},
+                {port_id,interface_name,<<"1/3">>},
+                {ttl,120},
+                {ttl,1},
+                {ttl,2},
+                {ttl,3},
+                end_of_lldpdu},
+            <<>>}},
+        pkt:codec(packet(entire_pkt))
+    ).
+
+unknown_tlv_decode() ->
+    ?_assertEqual(
+        {ok,{
+            {ether,<<1,128,194,0,0,14>>, <<202,225,248,121,155,130>>,35020,0},
+            {lldp,
+                {chassis_id,mac_address,<<114,113,254,155,142,77>>},
+                {port_id,port_component,<<0,2>>},
+                {ttl,120},
+                {organizationally_specific,<<0,38,225,0,0,0,114,113,254,155,142,77>>},
+                {unknown_lldp_tlv,12,<<6,143,16,170,116,215,154,22>>},
+                {unknown_lldp_tlv,115,<<1>>},
+                {organizationally_specific,<<0,38,225,1,0,0,0,0,21,17,52,151>>},
+                end_of_lldpdu
+            },
+            <<>>
+        }},
+        pkt:codec(packet(unknown_tlv_packet))
+    ).
+
+unknown_tlv_eecode() ->
+    {ok, DecodedTuple} = pkt:codec(packet(unknown_tlv_packet)),
+    ?_assertEqual(
+        packet(unknown_tlv_packet),
+        pkt:codec(DecodedTuple)
+    ).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_mpls_tests.erl Added

@@ -0,0 +1,67 @@
+-module(pkt_mpls_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    decode_single_tagging(),
+     decode_double_tagging().
+
+decode_single_tagging() ->
+    Frame = pkt:decapsulate(single()),
+    Expect = {ether,<<194,5,99,77,0,0>>,<<194,3,99,62,0,0>>,34887,0},
+              {mpls,{shim,18,0,true,254}},
+              {ipv4,4,5,0,100,25,0,0,0,254,1,2349,{192,168,10,1},{192,168,40,1},<<>>},
+              {icmp,8,0,28057,5,0,{127,0,0,1},<<0,0,0,0>>,0,0,0,0,0},
+              <<0,0,0,0,0,36,16,136,171,205,171,205,171,205,171,205,171,205,171,205,171,
+                205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,
+                205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,
+                205,171,205,171,205,171,205,171,205,171,205,171,205,171,205>>,
+    ?_assertEqual(Frame, Expect).
+
+decode_double_tagging() ->
+    Frame = pkt:decapsulate(double()),
+    Expect =  {ether,<<0,48,150,230,252,57>>,<<0,48,150,5,40,56>>,34887,0},
+               {mpls,{shim,18,0,false,255},{shim,16,0,true,255}},
+               {ipv4,4,5,0,100,80,0,0,0,255,1,42758,{10,31,0,1},{10,34,0,1},<<>>},
+               {icmp,8,0,48401,3941,4768,{127,0,0,1},<<0,0,0,0>>,0,0,0,0,0},
+               <<0,0,0,0,0,83,158,224,171,205,171,205,171,205,171,205,171,205,171,205,171,
+                 205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,
+                 205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,205,171,
+                 205,171,205,171,205,171,205,171,205,171,205,171,205,171,205>>,
+    ?_assertEqual(Frame, Expect).
+
+single() ->
+    <<16#c2, 16#05, 16#63, 16#4d, 16#00, 16#00, 16#c2, 16#03,
+      16#63, 16#3e, 16#00, 16#00, 16#88, 16#47, 16#00, 16#01,
+      16#21, 16#fe, 16#45, 16#00, 16#00, 16#64, 16#00, 16#19,
+      16#00, 16#00, 16#fe, 16#01, 16#09, 16#2d, 16#c0, 16#a8,
+      16#0a, 16#01, 16#c0, 16#a8, 16#28, 16#01, 16#08, 16#00,
+      16#6d, 16#99, 16#00, 16#05, 16#00, 16#00, 16#00, 16#00,
+      16#00, 16#00, 16#00, 16#24, 16#10, 16#88, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd>>.
+
+double() ->
+    <<16#00, 16#30, 16#96, 16#e6, 16#fc, 16#39, 16#00, 16#30,
+      16#96, 16#05, 16#28, 16#38, 16#88, 16#47, 16#00, 16#01,
+      16#20, 16#ff, 16#00, 16#01, 16#01, 16#ff, 16#45, 16#00,
+      16#00, 16#64, 16#00, 16#50, 16#00, 16#00, 16#ff, 16#01,
+      16#a7, 16#06, 16#0a, 16#1f, 16#00, 16#01, 16#0a, 16#22,
+      16#00, 16#01, 16#08, 16#00, 16#bd, 16#11, 16#0f, 16#65,
+      16#12, 16#a0, 16#00, 16#00, 16#00, 16#00, 16#00, 16#53,
+      16#9e, 16#e0, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd, 16#ab, 16#cd,
+      16#ab, 16#cd>>.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_null_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_rarp_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_sctp_tests.erl Added

@@ -0,0 +1,278 @@
+-module(pkt_sctp_tests).
+
+-include_lib("eunit/include/eunit.hrl").
+-include_lib("pkt/include/pkt_sctp.hrl").
+-include_lib("pcapfile/include/pcapfile.hrl").
+
+sctp_payload(File) ->
+    {ok, #pcap{records = Recs}} = pcapfile:read_file(filename:join("test/sctp_data", File)),
+    %% Skip Ethernet & IPv4
+    #pcap_record{payload = <<_Skip:34/binary-unit:8, Data/binary>>} = hd(Recs),
+    Data.
+
+codec_test_() ->
+    
+        init_chunk(),
+        init_ack_chunk(),
+        cookie_echo_chunk(),
+        cookie_ack_chunk(),
+        data_chunk(),
+        sack_chunk(),
+        heartbeat_chunk(),
+        heartbeat_ack_chunk(),
+        abort_chunk(),
+        shutdown_chunk(),
+        shutdown_ack_chunk(),
+        shutdown_complete_chunk()
+    .
+
+init_chunk() ->
+    SCTP = #sctp{
+        sport = 38001,
+        dport = 2006,
+        vtag = 0,
+        sum = 0,
+        chunks = 
+            #sctp_chunk{
+                type = 1,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 56,
+                payload = #sctp_chunk_init{
+                    itag = 3314912159,a_rwnd = 1500,
+                    outbound_streams = 5,inbound_streams = 65535,tsn = 19012793,
+                    params = 
+                        {address_types,ipv4},
+                        {ipv4,{192,168,2,2}},
+                        {ipv4,{192,168,1,102}},
+                        {ipv4,{127,0,0,1}}
+                    
+                }
+            }
+        
+    },
+    Data = sctp_payload("init.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+init_ack_chunk() ->
+    SCTP = #sctp{
+        sport = 2006,
+        dport = 38001,
+        vtag = 3314912159,
+        sum = 3113214697,
+        chunks = 
+            #sctp_chunk{
+                type = 2,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 60,
+                payload = #sctp_chunk_init_ack{
+                    itag = 346325327,
+                    a_rwnd = 65536,outbound_streams = 10,inbound_streams = 5,
+                    tsn = 1885860370,
+                    params = 
+                        {state_cookie,<<21,235,131,195,114,192>>},
+                        {ipv4,{192,168,2,2}},
+                        {ipv4,{192,168,1,102}},
+                        {ipv4,{127,0,0,1}}
+                    
+                }
+            }
+        
+    },
+    Data = sctp_payload("init_ack.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+cookie_echo_chunk() ->
+    SCTP = #sctp{
+        sport = 38001,
+        dport = 2006,
+        vtag = 346325327,
+        sum = 1432062984,
+        chunks = 
+            #sctp_chunk{
+                type = 10,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 5,
+                payload = #sctp_chunk_cookie_echo{cookie = <<21,235,131,195,114>>}
+            }
+        
+    },
+    Data = sctp_payload("cookie_echo.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+cookie_ack_chunk() ->
+    SCTP = #sctp{
+        sport = 2006,
+        dport = 38001,
+        vtag = 3314912159,
+        sum = 0,
+        chunks = 
+            #sctp_chunk{
+                type = 11,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 0,
+                payload = #sctp_chunk_cookie_ack{}
+            }
+        
+    },
+    Data = sctp_payload("cookie_ack.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+data_chunk() ->
+    SCTP = #sctp{
+        sport = 38001,
+        dport = 2006,
+        vtag = 346325327,
+        sum = 0,
+        chunks = 
+            #sctp_chunk{
+                type = 0,
+                i = 0,u = 0,b = 1,e = 1,
+                len = 18,
+                payload = #sctp_chunk_data{
+                    tsn = 19012793,sid = 0,ssn = 0,
+                    ppi = 0,data = <<"Test 0">>
+                }
+            }
+        
+    },
+    Data = sctp_payload("data.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+sack_chunk() ->
+    SCTP = #sctp{
+        sport = 2006,
+        dport = 38001,
+        vtag = 3314912159,
+        sum = 0,
+        chunks = 
+            #sctp_chunk{
+                type = 3,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 12,
+                payload = #sctp_chunk_sack{
+                    tsn_ack = 19012793,
+                    a_rwnd = 65530,
+                    number_gap_ack_blocks = 0, number_duplicate_tsn = 0,
+                    gap_ack_blocks = , duplicate_tsns = 
+                }
+            }
+        
+    },
+    Data = sctp_payload("sack.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+heartbeat_chunk() ->
+    SCTP = #sctp{
+        sport = 38001,
+        dport = 2006,
+        vtag = 346325327,
+        sum = 3432649193,
+        chunks = 
+            #sctp_chunk{
+                type = 4,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 9,
+                payload = #sctp_chunk_heartbeat{type = 1,info = <<2,0,7,214,192>>}
+            }
+        
+    },
+    Data = sctp_payload("heartbeat.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+heartbeat_ack_chunk() ->
+    SCTP = #sctp{
+        sport = 2006,
+        dport = 38001,
+        vtag = 3314912159,
+        sum = 220783544,
+        chunks = 
+            #sctp_chunk{
+                type = 5,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 9,
+                payload = #sctp_chunk_heartbeat_ack{type = 1, info = <<2,0,7,214,192>>}
+            }
+        
+    },
+    Data = sctp_payload("heartbeat_ack.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+abort_chunk() ->
+    SCTP = #sctp{
+        sport = 38001,
+        dport = 2006,
+        vtag = 346325327,
+        sum = 0,
+        chunks = 
+            #sctp_chunk{
+                type = 6,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 4,
+                payload = #sctp_chunk_abort{
+                    error_causes = 
+                        #sctp_error_cause{
+                            code = 12,
+                            descr = "User Initiated Abort",
+                            opts = {abort_reason,<<>>}
+                        }
+                    
+                }
+            }
+        
+    },
+    Data = sctp_payload("abort.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+shutdown_chunk() ->
+    SCTP = #sctp{
+        sport = 52565,
+        dport = 2006,
+        vtag = 775466434,
+        sum = 0,
+        chunks = 
+            #sctp_chunk{
+                type = 7,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 4,
+                payload = #sctp_chunk_shutdown{tsn_ack = 3349662519}
+            }
+        
+    },
+    Data = sctp_payload("shutdown.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+shutdown_ack_chunk() ->
+    SCTP = #sctp{
+        sport = 2006,
+        dport = 52565,
+        vtag = 15739429,
+        sum = 0,
+        chunks = 
+            #sctp_chunk{
+                type = 8,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 0,
+                payload = #sctp_chunk_shutdown_ack{}
+            }
+        
+    },
+    Data = sctp_payload("shutdown_ack.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).
+
+shutdown_complete_chunk() ->
+    SCTP = #sctp{
+        sport = 52565,
+        dport = 2006,
+        vtag = 775466434,
+        sum = 0,
+        chunks = 
+            #sctp_chunk{
+                type = 14,
+                i = 0,u = 0,b = 0,e = 0,
+                len = 0,
+                payload = #sctp_chunk_shutdown_complete{}
+            }
+        
+    },
+    Data = sctp_payload("shutdown_complete.pcap"),
+    ?_assertEqual({SCTP, <<>>}, pkt:sctp(Data)).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_tcp_tests.erl Added

@@ -0,0 +1,29 @@
+-module(pkt_tcp_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+codec_test_() ->
+    
+        tcp_decode_encode(),
+        tcp_checksum4()
+    .
+
+tcp_decode_encode() ->
+    Packet = <<0,80,217,184,222,13,22,43,241,75,9,12,176,18,17,4,140,86,
+        0,0,2,4,5,172,1, 3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,4,2,0,0>>,
+    {TCP, <<>>} = pkt:tcp(Packet),
+    TCP1 = TCP#tcp{opt = pkt_tcp:options(pkt_tcp:options(TCP#tcp.opt))},
+    ?_assertEqual(Packet, pkt:tcp(TCP1)).
+
+tcp_checksum4() ->
+    Packet = <<69,0,0,54,2,108,64,0,53,6,172,243,173,192,82,195,192,
+             168,213,54,0,80,143,166,75,154,212,181,116,33,53,92,128,
+             24,0,126,60,199,0,0,1,1,8,10,92,104,96,16,22,69,237,136,
+             137,0>>,
+
+    {IPv4, Payload0} = pkt:ipv4(Packet),
+    {#tcp{sum = Sum} = TCP, Payload} = pkt:tcp(Payload0),
+
+    Sum = pkt:makesum(IPv4, TCP#tcp{sum = 0}, Payload),
+    ?_assertEqual(0, pkt:makesum(IPv4, TCP, Payload)).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_tests.erl Added

@@ -0,0 +1,187 @@
+-module(pkt_tests).
+
+-include_lib("pkt/include/pkt.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+pkt_test_() ->
+    
+        decapsulate_1(),
+        decapsulate_2(),
+        decapsulate_2_failure(),
+        decapsulate_2_unsupported(),
+        decode_1(),
+        decode_2(),
+        decode_2_failure(),
+        decode_2_unsupported(),
+        encode_1(),
+        encode_2(),
+        makesum_1(),
+        makesum_2(),
+        makesum_4(),
+        makesum_8(),
+        makesum_16(),
+        makesum_32(),
+        makesum_64()
+    .
+
+packet(ether) ->
+    <<224,105,149,59,163,24,0,22,182,181,62,198,8,0,69,0,0,54,2,108,64,
+      0,53,6,172,243,173,192,82,195,192,168,213,54,0,80,143,166,75,154,
+      212,181,116,33,53,92,128,24,0,126,60,199,0,0,1,1,8,10,92,104,96,
+      16,22,69,237,136,137,0>>;
+packet(tcp) ->
+    <<0,80,217,184,222,13,22,43,241,75,9,12,176,18,17,4,140,86,
+      0,0,2,4,5,172,1, 3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,4,2,0,0>>;
+packet(ipv4_hdr) ->
+    <<69,0,0,54,2,108,64,0,53,6,172,243,173,192,82,195,192,
+        168,213,54>>.
+
+decapsulate_1() ->
+    ?_assertEqual(
+        {ether,<<224,105,149,59,163,24>>,
+                <<0,22,182,181,62,198>>,
+                2048,0},
+         {ipv4,4,5,0,54,620,1,0,0,53,6,44275,
+               {173,192,82,195},
+               {192,168,213,54},
+               <<>>},
+         {tcp,80,36774,1268438197,1948333404,8,0,0,0,0,1,1,0,0,0,126,
+              15559,0,
+              <<1,1,8,10,92,104,96,16,22,69,237,136>>},
+         <<137,0>>,
+        pkt:decapsulate(packet(ether))
+    ).
+
+decapsulate_2() ->
+    ?_assertEqual(
+        {tcp,80,55736,3725399595,4048226572,11,0,0,0,0,1,0,0,1,0,
+              4356,35926,0,
+              <<2,4,5,172,1,3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,
+                4,2,0,0>>},
+              <<>>,
+        pkt:decapsulate(tcp, packet(tcp))
+    ).
+
+decapsulate_2_failure() ->
+    ?_assertException(
+        error,
+        function_clause,
+        pkt:decapsulate(ipv6, packet(tcp))
+    ).
+
+decapsulate_2_unsupported() ->
+    ?_assertException(
+        error,
+        function_clause,
+        pkt:decapsulate(ether, packet(tcp))
+    ).
+
+decode_1() ->
+    ?_assertEqual(
+        {ok,{{ether,<<224,105,149,59,163,24>>,
+                     <<0,22,182,181,62,198>>,
+                       2048,0},
+              {ipv4,4,5,0,54,620,1,0,0,53,6,44275,
+                    {173,192,82,195},
+                    {192,168,213,54},
+                    <<>>},
+              {tcp,80,36774,1268438197,1948333404,8,0,0,0,0,1,1,0,0,0,126,
+                   15559,0,
+                   <<1,1,8,10,92,104,96,16,22,69,237,136>>},
+              <<137,0>>}},
+        pkt:decode(packet(ether))
+    ).
+
+decode_2() ->
+    ?_assertEqual(
+        {ok,{{tcp,80,55736,3725399595,4048226572,11,0,0,0,0,1,0,0,1,0,
+                   4356,35926,0,
+                   <<2,4,5,172,1,3,3,0,1,1,8,10,190,15,172,236,0,64,161,73,
+                     4,2,0,0>>},
+               <<>>}},
+        pkt:decode(tcp, packet(tcp))
+    ).
+
+decode_2_failure() ->
+    ?_assertEqual(
+        {error,,
+               {ipv6,<<0,80,217,184,222,13,22,43,241,75,9,12,176,18,17,
+                       4,140,86,0,0,2,4,5,172,1,3,3,0,1,1,8,10,190,15,
+                       172,236,0,64,161,73,4,2,0,0>>}},
+        pkt:decode(ipv6, packet(tcp))
+    ).
+
+decode_2_unsupported() ->
+    ?_assertEqual(
+        {error,{ether,<<0,80,217,184,222,13>>,
+                       <<22,43,241,75,9,12>>,
+                       45074,0},
+                {unsupported,<<17,4,140,86,0,0,2,4,5,172,1,3,3,0,1,1,8,
+                               10,190,15,172,236,0,64,161,73,4,2,0,0>>}},
+        pkt:decode(ether, packet(tcp))
+    ).
+
+encode_1() -> 
+    ?_assertEqual(
+        packet(ether),
+        pkt:encode(pkt:decapsulate(packet(ether)))
+    ),
+    ?_assertNotEqual(
+        packet(ether),
+        pkt:encode({pkt:decapsulate(packet(ether)), <<0,2>>})
+    )
+.
+
+encode_2() -> 
+    ?_assertEqual(
+        packet(ipv4_hdr),
+        pkt:encode(pkt:ipv4(packet(ipv4_hdr)))
+    ),
+    ?_assertNotEqual(
+        packet(ipv4_hdr),
+        pkt:encode({pkt:ipv4(packet(ipv4_hdr)), <<0,1>>})
+    )
+.
+
+makesum_1() ->
+    ?_assertEqual(
+        3839,
+        pkt:makesum(<<16#F1>>)
+    ).
+
+makesum_2() ->
+    ?_assertEqual(
+        3597,
+        pkt:makesum(<<16#F1, 16#F2>>)
+    ).
+
+makesum_4() ->
+    ?_assertEqual(
+        6680,
+        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4>>)
+    ).
+
+makesum_8() ->
+    ?_assertEqual(
+        11304,
+        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8>>)
+    ).
+
+makesum_16() ->
+    ?_assertEqual(
+        22608,
+        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8>>)
+    ).
+
+
+makesum_32() ->
+    ?_assertEqual(
+        45216,
+        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8 >>)
+    ).
+
+makesum_64() ->
+    ?_assertEqual(
+        24897,
+        pkt:makesum(<<16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8, 16#F1, 16#F2, 16#F3, 16#F4, 16#F5, 16#F6, 16#F7, 16#F8>>)
+    ).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_udp_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/pkt_vrrp_tests.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/abort.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/cookie_ack.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/cookie_echo.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/data.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/heartbeat.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/heartbeat_ack.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/init.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/init_ack.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/sack.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/shutdown.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/shutdown_ack.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/pkt/test/sctp_data/shutdown_complete.pcap Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/.github Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/.github/FUNDING.yml Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/.github/dependabot.yml Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/.github/workflows Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/.github/workflows/erlang.yml Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/LICENSE Added

@@ -0,0 +1,29 @@
+Copyright (c) 2015, CarlosEDP <me@carlosedp.com>.
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+
+* Redistributions of source code must retain the above copyright
+  notice, this list of conditions and the following disclaimer.
+
+* 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.
+
+* The names of its contributors may not be used to endorse or promote
+  products derived from this software without specific prior written
+  permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"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 COPYRIGHT
+OWNER 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.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/README.md Added

@@ -0,0 +1,84 @@
+rebar3_diameter_compiler
+=====
+
+Compile diameter(http://erlang.org/doc/man/diameter.html) .dia files in rebar3 projects
+
+!Erlang CI(https://github.com/carlosedp/rebar3_diameter_compiler/actions/workflows/erlang.yml/badge.svg)(https://github.com/carlosedp/rebar3_diameter_compiler/actions/workflows/erlang.yml)
+ !Hex pm(http://img.shields.io/hexpm/v/rebar3_diameter_compiler.svg?style=flat)(https://hex.pm/packages/rebar3_diameter_compiler)
+
+Build
+-----
+
+    ./rebar3 compile
+
+Use
+---
+
+Add the plugin to your rebar config from Github:
+
+```erlang
+{plugins, 
+    { rebar3_diameter_compiler, {git, "https://github.com/carlosedp/rebar3_diameter_compiler.git", {branch, "master"}}}
+}.
+
+{provider_hooks, 
+    {pre, 
+        {compile, {diameter, compile}},
+        {clean, {diameter, clean}}
+    }
+}.
+```
+
+Or fetch the plugin using Hex.pm:
+
+```erlang
+{plugins, 
+    rebar3_diameter_compiler
+}.
+
+{provider_hooks, 
+    {pre, 
+        {compile, {diameter, compile}},
+        {clean, {diameter, clean}}
+    }
+}.
+```
+
+
+The plugin will be ran on compile and clean commands or call your plugin directly in an existing application:
+
+    $ rebar3 diameter compile
+    ===> Fetching rebar3_diameter_compiler
+    ===> Compiling rebar3_diameter_compiler
+    ===> Compiling diameter...
+
+    $ rebar3 diameter clean
+    ===> Cleaning diameter compiled files...
+
+
+The option specified below allows to compile only specific diameter dictionaries
+
+```erlang
+{dia_only_files, 
+    your_dictionary
+    }.
+```
+
+Test
+-----
+
+One test compiles a `.dia` file for validation, another compares the generated erl/hrl files with the expected files in `test/expected` directory.
+
+    rebar3 eunit
+
+If the format changes in the future(for example due a compiler change), the expected files can be re-generated with `GOLDEN_RUN=1 rebar3 unit`. This will overwrite the existing expected files.
+
+Publishing new versions
+-----
+
+This is mostly a reminder on how to bump and publish a new version.
+
+    # Login to Hex
+    rebar3 hex user auth
+    # Cut new version with hex
+    rebar3 hex cut

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/ebin Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/ebin/rebar3_diameter_compiler.app Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/rebar.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/rebar.lock Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/src/clean_diameter.erl Added

@@ -0,0 +1,92 @@
+%% -------------------------------------------------------------------
+%%
+%% rebar3 diameter cleaner, in the manner of rebar2.
+%%
+%% -------------------------------------------------------------------
+-module(clean_diameter).
+
+-behaviour(provider).
+
+-export(init/1, do/1, format_error/1).
+
+-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 diameter clean"},   %% How to use the plugin
+                          {opts, },                    %% list of options understood by the plugin
+                          {short_desc, "Clean compiled diameter files."},
+                          {desc, ""},
+                          {namespace, diameter}),
+    {ok, rebar_state:add_provider(State, Provider)}.
+
+-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
+do(State) ->
+    rebar_api:info("Cleaning compiled diameter files...", ),
+    Apps =
+        case rebar_state:current_app(State) of
+            undefined ->
+                rebar_state:project_apps(State);
+            AppInfo ->
+                AppInfo
+        end,
+    lists:foreach(fun(App) -> clean(State, App) end, Apps),
+    {ok, State}.
+
+-spec format_error(any()) -> iolist().
+format_error(Reason) ->
+    io_lib:format("~p", Reason).
+
+clean(State, _AppFile) ->
+    AppDir = rebar_app_info:dir(_AppFile),
+    EbinDir = rebar_app_info:ebin_dir(_AppFile),
+    DiaOpts = rebar_state:get(State, dia_opts, ),
+    IncludeEbin = proplists:get_value(include, DiaOpts, ),
+    code:add_pathsz(EbinDir | IncludeEbin),
+    GeneratedFiles = dia_generated_files(AppDir, "dia", "src", "include", DiaOpts),
+    ok = rebar_file_utils:delete_each(GeneratedFiles),
+    ok.
+
+%% ===================================================================
+%% Internal functions
+%% ===================================================================
+
+dia_generated_files(AppDir, DiaDir, SrcDir, IncDir, DiaOpts) ->
+    F = fun(File, Acc) ->
+           case catch diameter_dict_util:parse({path, File}, DiaOpts) of
+               {ok, Spec} ->
+                   FileName = dia_filename(File, Spec),
+                   filename:join(AppDir, IncDir, FileName ++ ".hrl") | filelib:wildcard(
+                                                                              filename:join(AppDir,
+                                                                                             SrcDir,
+                                                                                             FileName
+                                                                                             ++ ".*"))
+                   ++ Acc;
+               _ ->
+                   Acc
+           end
+        end,
+    lists:foldl(F,
+                ,
+                filelib:wildcard(
+                    filename:join(AppDir, DiaDir, "*.dia"))).
+
+dia_filename(File, Spec) ->
+    case proplists:get_value(name, Spec) of
+        undefined ->
+            filename:rootname(
+                filename:basename(File));
+        Name ->
+            Name
+    end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/src/compile_diameter.erl Added

@@ -0,0 +1,284 @@
+-module(compile_diameter).
+
+-behaviour(provider).
+
+-export(init/1, do/1, format_error/1).
+
+-define(PROVIDER, compile).
+-define(DEPS, {default, app_discovery}).
+
+%% ===================================================================
+%% Public 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
+                          {namespace, diameter},
+                          {bare,
+                           true},                 % The task can be run by the user, always true
+                          {deps, ?DEPS},                % The list of dependencies
+                          {example, "rebar3 compile diameter"}, % How to use the plugin
+                          {opts, },                   % list of options understood by the plugin
+                          {short_desc, short_desc()},
+                          {desc, desc()}),
+    {ok, rebar_state:add_provider(State, Provider)}.
+
+-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
+do(State) ->
+    rebar_api:info("Compiling diameter files...", ),
+    Apps =
+        case rebar_state:current_app(State) of
+            undefined ->
+                rebar_state:project_apps(State);
+            AppInfo ->
+                AppInfo
+        end,
+    lists:foreach(fun(App) -> compile(State, App) end, Apps),
+    {ok, State}.
+
+compile(State, AppFile) ->
+    Opts = rebar_app_info:opts(AppFile),
+    AppDir = rebar_app_info:dir(AppFile),
+    DiaDir = filename:join(AppDir, "dia"),
+    SrcDir = filename:join(AppDir, "src"),
+    EbinDir = rebar_app_info:ebin_dir(AppFile),
+    rebar_api:debug("AppDir: ~p~n", AppDir),
+    rebar_api:debug("EbinDir: ~p~n", AppDir),
+
+    DiaOpts = rebar_state:get(State, dia_opts, ),
+    IncludeEbin = proplists:get_value(include, DiaOpts, ),
+
+    code:add_pathsz(EbinDir | filename:join(AppDir, IncludeEbin)),
+
+    DiaFirst =
+        case rebar_state:get(State, dia_first_files, ) of
+             ->
+                ;
+            CompileFirst ->
+                filename:join(DiaDir, filename:basename(F)) || F <- CompileFirst
+        end,
+
+    DiaExtRe = "^(?!\\._).*\\.dia$",
+    Recursive = proplists:get_value(recursive, DiaOpts, true),
+
+    %% Find all possible source files
+    DiaFiles = rebar_utils:find_files(DiaDir, DiaExtRe, Recursive),
+    rebar_api:debug("Diameter files: ~p~n", DiaFiles),
+
+    
+
+    case compile_order(DiaFiles, DiaOpts, State) of
+        {error, Reason} ->
+            rebar_api:error("DIAMETER error: ~p~n", Reason);
+        {ok, Order} ->
+            rebar_api:debug("Diameter Order: ~p~n", Order),
+            
+            CompileFun = fun(Source, Target, C) -> 
+                case lists:member(Source, Order) of
+                    true -> compile_dia(C, Source, Target, {AppDir, EbinDir});
+                    false -> ok
+                end
+            end,
+
+            rebar_base_compiler:run(Opts,
+                                    DiaFirst ++ Order,
+                                    DiaDir,
+                                    ".dia",
+                                    SrcDir,
+                                    ".erl",
+                                    CompileFun)
+    end.
+
+-spec format_error(any()) -> iolist().
+format_error(Reason) ->
+    io_lib:format("~p", Reason).
+
+%% ===================================================================
+%% Internal functions
+%% ===================================================================
+
+short_desc() ->
+    "Build Diameter (*.dia) sources".
+
+desc() ->
+    short_desc()
+    ++ "\n"
+       "\n"
+       "Valid rebar.config options:~n"
+       "  {dia_opts, } (options from diameter_make:codec/2 supported with~n"
+       "                  exception of inherits)~n"
+       "  {dia_first_files, } (files in sequence to compile first)~n".
+
+-spec compile_dia(rebar_config:config(),
+                  file:filename(),
+                  file:filename(),
+                  rebar_config:config()) ->
+                     ok.
+compile_dia(Config, Source, Target, {AppDir, EbinDir}) ->
+    rebar_api:debug("Source diameter file: ~p~n", Source),
+    rebar_api:debug("Target diameter file: ~p~n", Target),
+
+    ok = filelib:ensure_dir(Target),
+    ok =
+        filelib:ensure_dir(
+            filename:join(AppDir, "include", "dummy.hrl")),
+    ok =
+        filelib:ensure_dir(
+            filename:join(EbinDir, "dummy.beam")),
+
+    OutDir = filename:join(AppDir, "src"),
+    IncludeOutDir = filename:join(AppDir, "include"),
+
+    DiaOpts = rebar_opts:get(Config, dia_opts, ),
+    Opts = {outdir, OutDir} ++ DiaOpts,
+    IncludeOpts = {outdir, IncludeOutDir} ++ DiaOpts,
+    case diameter_dict_util:parse({path, Source}, DiaOpts) of
+        {ok, Spec} ->
+            FileName = dia_filename(Source, Spec),
+            _ = diameter_codegen:from_dict(FileName, Spec, Opts, erl),
+            _ = diameter_codegen:from_dict(FileName, Spec, IncludeOpts, hrl),
+            ErlCOpts = {outdir, EbinDir}, return_errors ++ rebar_opts:get(Config, erl_opts, ),
+            TargetName = proplists:get_value(name, Spec, filename:basename(Target, ".erl")),
+            RealTarget = filename:join(filename:dirname(Target), TargetName, ".erl"),
+            case compile:file(RealTarget, ErlCOpts) of
+                {ok, Module} ->
+                    code:purge(Module),
+                    case code:load_abs(EbinDir ++ "/" ++ atom_to_list(Module)) of
+                        {error, LoadError} ->
+                            rebar_api:error("Can't load DIAMTER dictionary ~p, error '~p'",
+                                            FileName, LoadError);
+                        {module, _} ->
+                            ok
+                    end;
+                Other ->
+                    rebar_api:error("Can't compile DIAMTER dictionary ~p, error '~p'",
+                                    FileName, Other),
+                    Other
+            end;
+        {error, Reason} ->
+            rebar_api:error("Compiling ~s failed: ~s~n",
+                            Source, diameter_dict_util:format_error(Reason))
+    end.
+
+dia_filename(File, Spec) ->
+    case proplists:get_value(name, Spec) of
+        undefined ->
+            filename:rootname(
+                filename:basename(File));
+        Name ->
+            Name
+    end.
+
+compile_order(DiaFiles, _, State) ->
+    Graph = digraph:new(),
+
+    DiaMods =
+        lists:foldl(fun(F, M) ->
+                       Dict =
+                           filename:rootname(
+                               filename:basename(F)),
+                       M#{Dict => F}
+                    end,
+                    #{},
+                    DiaFiles),
+    maps:map(fun(Dict, F) ->
+                try
+                    {ok, Bin} = file:read_file(F),
+                    Inherits0 = binary:split(Bin, <<$\n>>, <<$\r>>, global, trim_all),
+                    Inherits1 =
+                        binary:split(I, <<" ">>, <<$\t>>, global, trim_all) || I <- Inherits0,
+                    Inherits = I || <<"@inherits">>, I | _ <- Inherits1,
+                    rebar_api:debug("Inherits for ~p: ~p~n", Dict, Inherits),
+                    add(Graph, {Dict, Inherits})
+                catch
+                    _:_ ->
+                        ok
+                end
+             end,
+             DiaMods),
+
+    AllDicts = lists:map(fun(F) -> filename:rootname(filename:basename(F)) end, DiaFiles),
+
+    DiaOnlyFiles = rebar_state:get(State, dia_only_files, AllDicts),
+    DiaOnlyFiles1 = lists:map(fun(File) ->
+         case File of
+            F when is_list(F) -> F;
+            F when is_atom(F) -> atom_to_list(F);
+            F when is_binary(F) -> binary_to_list(F)
+        end
+    end, DiaOnlyFiles),
+
+    FilteredDicts = lists:filter(fun(F) -> lists:member(F, DiaOnlyFiles1) end, AllDicts),
+
+    Order = lists:flatmap(fun(F) ->
+        Reachable = digraph_utils:reachable(F, Graph),
+        SubGraph = digraph_utils:subgraph(Graph, Reachable),
+        TopSorted = digraph_utils:topsort(SubGraph),
+
+        true = digraph:delete(SubGraph),
+        
+        lists:foldl(fun(X, Acc) ->
+            case maps:get(X, DiaMods, undefined) of
+                undefined -> Acc;
+                File -> File | Acc
+            end
+        end, , TopSorted)
+
+    end, FilteredDicts),
+
+    true = digraph:delete(Graph),
+
+    {ok, uniq(Order)}.
+
+
+%% taken from rebar_digraph:
+%% @private Add a package and its dependencies to an existing digraph
+-spec add(digraph:graph(), {PkgName, Dep}) -> ok
+    when PkgName :: binary(),
+         Dep :: {Name, term()} | Name,
+         Name :: atom() | iodata().
+add(Graph, {PkgName, Deps}) ->
+    case digraph:vertex(Graph, PkgName) of
+        false ->
+            V = digraph:add_vertex(Graph, PkgName);
+        {V, } ->
+            V
+    end,
+
+    lists:foreach(fun(Name1) ->
+                     Name =
+                         case Name1 of
+                             N when is_atom(N) ->
+                                 atom_to_list(Name1);
+                             {N, _} when is_list(N) ->
+                                 N;
+                             N when is_list(N) ->
+                                 N;
+                             N when is_binary(N) ->
+                                 binary_to_list(N)
+                         end,
+                     V3 = case digraph:vertex(Graph, Name) of
+                              false ->
+                                  digraph:add_vertex(Graph, Name);
+                              {V2, } ->
+                                  V2
+                          end,
+                     digraph:add_edge(Graph, V, V3)
+                  end,
+                  Deps).
+
+
+uniq(L) ->
+    uniq_1(L, #{}).
+
+uniq_1(X | Xs, M) ->
+    case is_map_key(X, M) of
+        true ->
+            uniq_1(Xs, M);
+        false ->
+            X | uniq_1(Xs, M#{X => true})
+    end;
+uniq_1(, _) ->
+    .
\ No newline at end of file

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/src/rebar3_diameter_compiler.app.src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/src/rebar3_diameter_compiler.erl Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/bar.dia Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/baz.dia Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/dia_tests.erl Added

@@ -0,0 +1,195 @@
+-module(dia_tests).
+
+-include_lib("eunit/include/eunit.hrl").
+
+compile_only_test_() ->
+    {setup, fun() -> setup("baz") end, fun() -> test_compile("foo", "bar", "baz", diameter_basename()) end}.
+
+compile_test_() ->
+    {setup, fun() -> setup() end, fun() -> test_compile(diameter_files(), ) end}.
+
+compare_test() ->
+    compare_files().
+
+%% Internal
+
+diameter_basename() ->
+    "diameter_3gpp_base".
+
+diameter_files() ->
+    
+        diameter_basename(),
+        "foo",
+        "bar",
+        "baz"
+    .
+
+setup() ->
+    setup(undefined).
+
+setup(Only) ->
+    {ok, Repo} = file:get_cwd(),
+    Branch = setup_git_branch(),
+    Test_target = test_target(Repo),
+    setup_delete(Test_target),
+    setup_create(Test_target, Repo, Branch, Only).
+
+setup_create(Test_target, Repo, Branch, Only) ->
+    ok = setup_create_dia(Test_target, X) || X <- diameter_files(),
+    ok = setup_create_src(Test_target),
+    ok = setup_create_rebar_config(Test_target, Repo, Branch, Only).
+
+setup_create_dia(Test_target, BaseName) ->
+    Diameter_file = BaseName ++ ".dia",
+    File = filename:join(Test_target, "dia", Diameter_file),
+    ok = filelib:ensure_dir(File),
+    {ok, _} =
+        file:copy(
+            filename:join("test", Diameter_file), File),
+    ok.
+
+setup_create_src(Test_target) ->
+    App = "compile",
+    File = filename:join(Test_target, "src", App ++ ".app.src"),
+    ok = filelib:ensure_dir(File),
+    file:write_file(File, setup_create_src_content(App)).
+
+setup_create_src_content(App) ->
+    "
+{application, "
+    ++ App
+    ++ ", 
+\t{description, \""
+    ++ App
+    ++ "\"},
+\t{vsn, \"1.0\"},
+\t{applications, kernel,stdlib}
+}.
+".
+
+setup_create_rebar_config(Test_target, Repo, Branch, Only) ->
+    File = filename:join(Test_target, "rebar.config"),
+    ok = filelib:ensure_dir(File),
+    file:write_file(File, setup_rebar_config_content(Repo, Branch, Only)).
+
+setup_delete(Directory) ->
+    Paths =
+        filelib:wildcard(
+            filename:join(Directory, "*")),
+    {Directories, Files} = lists:partition(fun filelib:is_dir/1, Paths),
+    file:delete(X) || X <- Files,
+    setup_delete(X) || X <- Directories,
+    file:del_dir(Directory).
+
+setup_git_branch() ->
+    string:trim(
+        os:cmd("git branch --show-current")).
+
+setup_rebar_config_content(Repo, Branch, undefined) ->
+    "
+{plugins, 
+\t{rebar3_diameter_compiler, {git, \"file://"
+    ++ Repo
+    ++ "\", {branch, \""
+    ++ Branch
+    ++ "\"}}}
+}.
+{provider_hooks, 
+\t{pre, 
+\t	{clean, {diameter, clean}},
+\t	{compile, {diameter, compile}}
+\t}
+}.
+";
+
+setup_rebar_config_content(Repo, Branch, Only) ->
+    "
+{plugins, 
+\t{rebar3_diameter_compiler, {git, \"file://"
+    ++ Repo
+    ++ "\", {branch, \""
+    ++ Branch
+    ++ "\"}}}
+}.
+{provider_hooks, 
+\t{pre, 
+\t	{clean, {diameter, clean}},
+\t	{compile, {diameter, compile}}
+\t}
+}.
+{dia_only_files, " ++ Only ++ "}.
+".
+
+
+test_compile(CompiledFiles, SkippedFiles) ->
+    {ok, Repo} = file:get_cwd(),
+    Test_target = test_target(Repo),
+    ok = file:set_cwd(Test_target),
+    %	Result = os:cmd( "DIAGNOSTIC=1 rebar3 eunit" ),
+    %	?debugMsg( Result ),
+    ?assertCmd("rebar3 diameter compile"),
+    
+        ?assert(filelib:is_regular(filename:join("include", File ++ ".hrl")))
+        || File <- CompiledFiles
+    ,
+    
+        ?assert(filelib:is_regular(filename:join("src", File ++ ".erl"))) 
+        || File <- CompiledFiles
+    ,
+    
+        ?assertNot(filelib:is_regular(filename:join("include", File ++ ".hrl"))) 
+        || File <- SkippedFiles
+    ,
+    
+        ?assertNot(filelib:is_regular(filename:join("src", File ++ ".erl"))) 
+        || File <- SkippedFiles
+    ,
+    file:set_cwd(Repo).
+
+test_target(Repo) ->
+    filename:join(Repo,
+                   "_build",
+                   "test",
+                   "lib",
+                   "rebar3_diameter_compiler",
+                   "test",
+                   "compile").
+
+compare_files() ->
+    Golden = os:getenv("GOLDEN_RUN"),
+    golden_run(Golden, "erl", "src"),
+    golden_run(Golden, "hrl", "include"),
+
+    compare_files("erl", "src"),
+    compare_files("hrl", "include").
+
+golden_run(Val, Ext, Dir) ->
+    case Val of
+        false ->
+            true;
+        _ ->
+            {ok, Repo} = file:get_cwd(),
+            Test_target = test_target(Repo),
+            Src = filename:join(Test_target, Dir, diameter_basename() ++ "." ++ Ext),
+            Dst = filename:join(Repo,
+                                 "test/expected/" ++ Dir,
+                                 diameter_basename() ++ "." ++ Ext ++ "-expected"),
+            ?debugMsg("Copying " ++ Src ++ " file to " ++ Dst),
+            file:copy(Src, Dst)
+    end.
+
+compare_files(Ext, Dir) ->
+    {ok, Repo} = file:get_cwd(),
+    Test_target = test_target(Repo),
+    Generated = filename:join(Test_target, Dir, diameter_basename() ++ "." ++ Ext),
+    ok = filelib:ensure_dir(Generated),
+    {ok, Gen} = file:read_file(Generated),
+    F1 = binary:split(Gen, <<"\n">>, global),
+    Expected =
+        filename:join(Repo,
+                       "test/expected/" ++ Dir,
+                       diameter_basename() ++ "." ++ Ext ++ "-expected"),
+    ok = filelib:ensure_dir(Expected),
+    {ok, Exp} = file:read_file(Expected),
+    F2 = binary:split(Exp, <<"\n">>, global),
+    ?assertEqual(F1, F2).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/diameter_3gpp_base.dia Added

@@ -0,0 +1,73 @@
+;;
+;; %CopyrightBegin%
+;;
+;; Copyright Travelping GmbH 2015. All Rights Reserved.
+;;
+;; Licensed 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.
+;;
+;; %CopyrightEnd%
+;;
+
+;;
+;; Edits:
+;;
+;; - Ipv6   -> IPv6
+;; - 3GPP-Charging-Id: OctetString -> Unsigned32
+;; - 3GPP-User-Location-Info-Time: OctetString -> Unsigned32
+;;
+
+@id     0
+@name   diameter_3gpp_base
+@prefix diameter_3gpp
+@vendor 10415 3GPP
+
+;; only attributes required by other applications are defined
+
+@avp_types
+
+   3GPP-IMSI                        1      UTF8String     V
+   3GPP-Charging-Id                 2      Unsigned32     V
+   3GPP-PDP-Type                    3      Enumerated     V
+   3GPP-CG-Address                  4     OctetString     V
+   3GPP-GPRS-Negotiated-QoS-Profile 5      UTF8String     V
+   3GPP-SGSN-Address                6     OctetString     V
+   3GPP-GGSN-Address                7     OctetString     V
+   3GPP-IMSI-MCC-MNC                8      UTF8String     V
+   3GPP-GGSN-MCC-MNC                9      UTF8String     V
+   3GPP-NSAPI                       10    OctetString     V
+   3GPP-Session-Stop-Indicator      11    OctetString     V
+   3GPP-Selection-Mode              12     UTF8String     V
+   3GPP-Charging-Characteristics    13     UTF8String     V
+   3GPP-CG-IPv6-Address             14    OctetString     V
+   3GPP-SGSN-IPv6-Address           15    OctetString     V
+   3GPP-GGSN-IPv6-Address           16    OctetString     V
+   3GPP-IPv6-DNS-Servers            17    OctetString     V
+   3GPP-SGSN-MCC-MNC                18     UTF8String     V
+   3GPP-IMEISV                      20    OctetString     V
+   3GPP-RAT-Type                    21    OctetString     V
+   3GPP-User-Location-Info          22    OctetString     V
+   3GPP-MS-TimeZone                 23    OctetString     V
+   3GPP-CAMEL-Charging-Info         24    OctetString     V
+   3GPP-Packet-Filter               25    OctetString     V
+   3GPP-Negotiated-DSCP             26    OctetString     V
+   3GPP-Allocate-IP-Type            27    OctetString     V
+   TWAN-Identifier                  29    OctetString     V
+   3GPP-User-Location-Info-Time     30     Unsigned32     V
+
+@enum 3GPP-PDP-Type
+
+   IPv4                                               0
+   PPP                                                1
+   IPv6                                               2
+   IPv4v6                                             3
+   Non-IP                                             4

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected/include Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected/include/diameter_3gpp_base.hrl-expected Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/expected/src/diameter_3gpp_base.erl-expected Added

@@ -0,0 +1,302 @@
+%% -------------------------------------------------------------------
+%% This is a generated file.
+%% -------------------------------------------------------------------
+
+-module(diameter_3gpp_base).
+
+-compile({parse_transform, diameter_exprecs}).
+
+-compile(nowarn_unused_function).
+
+-dialyzer(no_return).
+
+-export_records().
+
+-export(name/0,
+         id/0,
+         vendor_id/0,
+         vendor_name/0,
+         decode_avps/3,
+         encode_avps/3,
+         grouped_avp/4,
+         msg_name/2,
+         msg_header/1,
+         rec2msg/1,
+         msg2rec/1,
+         name2rec/1,
+         avp_name/2,
+         avp_arity/1,
+         avp_arity/2,
+         avp_header/1,
+         avp/4,
+         enumerated_avp/3,
+         empty_value/2,
+         dict/0).
+
+-include_lib("diameter/include/diameter.hrl").
+
+-include_lib("diameter/include/diameter_gen.hrl").
+
+name() -> diameter_3gpp_base.
+
+id() -> 0.
+
+vendor_id() -> 10415.
+
+vendor_name() -> '3GPP'.
+
+msg_name(_, _) -> ''.
+
+msg_header(_) -> erlang:error(badarg).
+
+rec2msg(_) -> erlang:error(badarg).
+
+msg2rec(_) -> erlang:error(badarg).
+
+name2rec(T) -> msg2rec(T).
+
+avp_name(27, 10415) ->
+    {'3GPP-Allocate-IP-Type', 'OctetString'};
+avp_name(24, 10415) ->
+    {'3GPP-CAMEL-Charging-Info', 'OctetString'};
+avp_name(4, 10415) ->
+    {'3GPP-CG-Address', 'OctetString'};
+avp_name(14, 10415) ->
+    {'3GPP-CG-IPv6-Address', 'OctetString'};
+avp_name(13, 10415) ->
+    {'3GPP-Charging-Characteristics', 'UTF8String'};
+avp_name(2, 10415) ->
+    {'3GPP-Charging-Id', 'Unsigned32'};
+avp_name(7, 10415) ->
+    {'3GPP-GGSN-Address', 'OctetString'};
+avp_name(16, 10415) ->
+    {'3GPP-GGSN-IPv6-Address', 'OctetString'};
+avp_name(9, 10415) ->
+    {'3GPP-GGSN-MCC-MNC', 'UTF8String'};
+avp_name(5, 10415) ->
+    {'3GPP-GPRS-Negotiated-QoS-Profile', 'UTF8String'};
+avp_name(20, 10415) -> {'3GPP-IMEISV', 'OctetString'};
+avp_name(1, 10415) -> {'3GPP-IMSI', 'UTF8String'};
+avp_name(8, 10415) ->
+    {'3GPP-IMSI-MCC-MNC', 'UTF8String'};
+avp_name(17, 10415) ->
+    {'3GPP-IPv6-DNS-Servers', 'OctetString'};
+avp_name(23, 10415) ->
+    {'3GPP-MS-TimeZone', 'OctetString'};
+avp_name(10, 10415) -> {'3GPP-NSAPI', 'OctetString'};
+avp_name(26, 10415) ->
+    {'3GPP-Negotiated-DSCP', 'OctetString'};
+avp_name(3, 10415) -> {'3GPP-PDP-Type', 'Enumerated'};
+avp_name(25, 10415) ->
+    {'3GPP-Packet-Filter', 'OctetString'};
+avp_name(21, 10415) -> {'3GPP-RAT-Type', 'OctetString'};
+avp_name(6, 10415) ->
+    {'3GPP-SGSN-Address', 'OctetString'};
+avp_name(15, 10415) ->
+    {'3GPP-SGSN-IPv6-Address', 'OctetString'};
+avp_name(18, 10415) ->
+    {'3GPP-SGSN-MCC-MNC', 'UTF8String'};
+avp_name(12, 10415) ->
+    {'3GPP-Selection-Mode', 'UTF8String'};
+avp_name(11, 10415) ->
+    {'3GPP-Session-Stop-Indicator', 'OctetString'};
+avp_name(22, 10415) ->
+    {'3GPP-User-Location-Info', 'OctetString'};
+avp_name(30, 10415) ->
+    {'3GPP-User-Location-Info-Time', 'Unsigned32'};
+avp_name(29, 10415) ->
+    {'TWAN-Identifier', 'OctetString'};
+avp_name(_, _) -> 'AVP'.
+
+avp_arity(_) -> erlang:error(badarg).
+
+avp_arity(_, _) -> 0.
+
+avp_header('3GPP-Allocate-IP-Type') -> {27, 128, 10415};
+avp_header('3GPP-CAMEL-Charging-Info') ->
+    {24, 128, 10415};
+avp_header('3GPP-CG-Address') -> {4, 128, 10415};
+avp_header('3GPP-CG-IPv6-Address') -> {14, 128, 10415};
+avp_header('3GPP-Charging-Characteristics') ->
+    {13, 128, 10415};
+avp_header('3GPP-Charging-Id') -> {2, 128, 10415};
+avp_header('3GPP-GGSN-Address') -> {7, 128, 10415};
+avp_header('3GPP-GGSN-IPv6-Address') ->
+    {16, 128, 10415};
+avp_header('3GPP-GGSN-MCC-MNC') -> {9, 128, 10415};
+avp_header('3GPP-GPRS-Negotiated-QoS-Profile') ->
+    {5, 128, 10415};
+avp_header('3GPP-IMEISV') -> {20, 128, 10415};
+avp_header('3GPP-IMSI') -> {1, 128, 10415};
+avp_header('3GPP-IMSI-MCC-MNC') -> {8, 128, 10415};
+avp_header('3GPP-IPv6-DNS-Servers') -> {17, 128, 10415};
+avp_header('3GPP-MS-TimeZone') -> {23, 128, 10415};
+avp_header('3GPP-NSAPI') -> {10, 128, 10415};
+avp_header('3GPP-Negotiated-DSCP') -> {26, 128, 10415};
+avp_header('3GPP-PDP-Type') -> {3, 128, 10415};
+avp_header('3GPP-Packet-Filter') -> {25, 128, 10415};
+avp_header('3GPP-RAT-Type') -> {21, 128, 10415};
+avp_header('3GPP-SGSN-Address') -> {6, 128, 10415};
+avp_header('3GPP-SGSN-IPv6-Address') ->
+    {15, 128, 10415};
+avp_header('3GPP-SGSN-MCC-MNC') -> {18, 128, 10415};
+avp_header('3GPP-Selection-Mode') -> {12, 128, 10415};
+avp_header('3GPP-Session-Stop-Indicator') ->
+    {11, 128, 10415};
+avp_header('3GPP-User-Location-Info') ->
+    {22, 128, 10415};
+avp_header('3GPP-User-Location-Info-Time') ->
+    {30, 128, 10415};
+avp_header('TWAN-Identifier') -> {29, 128, 10415};
+avp_header(_) -> erlang:error(badarg).
+
+avp(T, Data, '3GPP-Allocate-IP-Type', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-CAMEL-Charging-Info', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-CG-Address', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-CG-IPv6-Address', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-Charging-Characteristics', Opts) ->
+    diameter_types:'UTF8String'(T, Data, Opts);
+avp(T, Data, '3GPP-Charging-Id', Opts) ->
+    diameter_types:'Unsigned32'(T, Data, Opts);
+avp(T, Data, '3GPP-GGSN-Address', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-GGSN-IPv6-Address', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-GGSN-MCC-MNC', Opts) ->
+    diameter_types:'UTF8String'(T, Data, Opts);
+avp(T, Data, '3GPP-GPRS-Negotiated-QoS-Profile',
+    Opts) ->
+    diameter_types:'UTF8String'(T, Data, Opts);
+avp(T, Data, '3GPP-IMEISV', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-IMSI', Opts) ->
+    diameter_types:'UTF8String'(T, Data, Opts);
+avp(T, Data, '3GPP-IMSI-MCC-MNC', Opts) ->
+    diameter_types:'UTF8String'(T, Data, Opts);
+avp(T, Data, '3GPP-IPv6-DNS-Servers', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-MS-TimeZone', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-NSAPI', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-Negotiated-DSCP', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-PDP-Type', _) ->
+    enumerated_avp(T, '3GPP-PDP-Type', Data);
+avp(T, Data, '3GPP-Packet-Filter', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-RAT-Type', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-SGSN-Address', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-SGSN-IPv6-Address', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-SGSN-MCC-MNC', Opts) ->
+    diameter_types:'UTF8String'(T, Data, Opts);
+avp(T, Data, '3GPP-Selection-Mode', Opts) ->
+    diameter_types:'UTF8String'(T, Data, Opts);
+avp(T, Data, '3GPP-Session-Stop-Indicator', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-User-Location-Info', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(T, Data, '3GPP-User-Location-Info-Time', Opts) ->
+    diameter_types:'Unsigned32'(T, Data, Opts);
+avp(T, Data, 'TWAN-Identifier', Opts) ->
+    diameter_types:'OctetString'(T, Data, Opts);
+avp(_, _, _, _) -> erlang:error(badarg).
+
+enumerated_avp(decode, '3GPP-PDP-Type',
+               <<0, 0, 0, 0>>) ->
+    0;
+enumerated_avp(encode, '3GPP-PDP-Type', 0) ->
+    <<0, 0, 0, 0>>;
+enumerated_avp(decode, '3GPP-PDP-Type',
+               <<0, 0, 0, 1>>) ->
+    1;
+enumerated_avp(encode, '3GPP-PDP-Type', 1) ->
+    <<0, 0, 0, 1>>;
+enumerated_avp(decode, '3GPP-PDP-Type',
+               <<0, 0, 0, 2>>) ->
+    2;
+enumerated_avp(encode, '3GPP-PDP-Type', 2) ->
+    <<0, 0, 0, 2>>;
+enumerated_avp(decode, '3GPP-PDP-Type',
+               <<0, 0, 0, 3>>) ->
+    3;
+enumerated_avp(encode, '3GPP-PDP-Type', 3) ->
+    <<0, 0, 0, 3>>;
+enumerated_avp(decode, '3GPP-PDP-Type',
+               <<0, 0, 0, 4>>) ->
+    4;
+enumerated_avp(encode, '3GPP-PDP-Type', 4) ->
+    <<0, 0, 0, 4>>;
+enumerated_avp(_, _, _) -> erlang:error(badarg).
+
+empty_value('3GPP-PDP-Type', _) -> <<0, 0, 0, 0>>;
+empty_value(Name, Opts) -> empty(Name, Opts).
+
+dict() ->
+    1,
+     {avp_types,
+      {"3GPP-Allocate-IP-Type", 27, "OctetString", "V"},
+       {"3GPP-CAMEL-Charging-Info", 24, "OctetString", "V"},
+       {"3GPP-CG-Address", 4, "OctetString", "V"},
+       {"3GPP-CG-IPv6-Address", 14, "OctetString", "V"},
+       {"3GPP-Charging-Characteristics",
+        13,
+        "UTF8String",
+        "V"},
+       {"3GPP-Charging-Id", 2, "Unsigned32", "V"},
+       {"3GPP-GGSN-Address", 7, "OctetString", "V"},
+       {"3GPP-GGSN-IPv6-Address", 16, "OctetString", "V"},
+       {"3GPP-GGSN-MCC-MNC", 9, "UTF8String", "V"},
+       {"3GPP-GPRS-Negotiated-QoS-Profile",
+        5,
+        "UTF8String",
+        "V"},
+       {"3GPP-IMEISV", 20, "OctetString", "V"},
+       {"3GPP-IMSI", 1, "UTF8String", "V"},
+       {"3GPP-IMSI-MCC-MNC", 8, "UTF8String", "V"},
+       {"3GPP-IPv6-DNS-Servers", 17, "OctetString", "V"},
+       {"3GPP-MS-TimeZone", 23, "OctetString", "V"},
+       {"3GPP-NSAPI", 10, "OctetString", "V"},
+       {"3GPP-Negotiated-DSCP", 26, "OctetString", "V"},
+       {"3GPP-PDP-Type", 3, "Enumerated", "V"},
+       {"3GPP-Packet-Filter", 25, "OctetString", "V"},
+       {"3GPP-RAT-Type", 21, "OctetString", "V"},
+       {"3GPP-SGSN-Address", 6, "OctetString", "V"},
+       {"3GPP-SGSN-IPv6-Address", 15, "OctetString", "V"},
+       {"3GPP-SGSN-MCC-MNC", 18, "UTF8String", "V"},
+       {"3GPP-Selection-Mode", 12, "UTF8String", "V"},
+       {"3GPP-Session-Stop-Indicator", 11, "OctetString", "V"},
+       {"3GPP-User-Location-Info", 22, "OctetString", "V"},
+       {"3GPP-User-Location-Info-Time", 30, "Unsigned32", "V"},
+       {"TWAN-Identifier", 29, "OctetString", "V"}},
+     {avp_vendor_id, },
+     {codecs, },
+     {command_codes, },
+     {custom_types, },
+     {define, },
+     {enum,
+      {"3GPP-PDP-Type",
+        {"IPv4", 0},
+         {"PPP", 1},
+         {"IPv6", 2},
+         {"IPv4v6", 3},
+         {"Non-IP", 4}}},
+     {grouped, },
+     {id, 0},
+     {import_avps, },
+     {import_enums, },
+     {import_groups, },
+     {inherits, },
+     {messages, },
+     {name, "diameter_3gpp_base"},
+     {prefix, "diameter_3gpp"},
+     {vendor, {10415, "3GPP"}}.
+
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/rebar3_diameter_compiler/test/foo.dia Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/LICENSE Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/Makefile Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/README.md Added

@@ -0,0 +1,125 @@
+
+
+# The setup application #
+
+__Authors:__ Ulf Wiger (`ulf@wiger.net`(mailto:ulf@wiger.net)).
+
+Generic setup utility for Erlang-based systems
+
+!Build Status(https://travis-ci.org/uwiger/setup.svg)(https://travis-ci.org/uwiger/setup)
+
+
+## Introduction ##
+
+While Erlang/OTP comes with many wonderful applications, including the
+Mnesia DBMS, there is no standard or convention for installing a
+system. Erlang/OTP provides tools for building a boot script, and rules
+for setting environment variables, etc., and Mnesia offers an API for
+creating and modifying the database schema.
+
+However, with no convention for when these tools and API functions
+are called - and by whom - application developers are left having to
+invent a lot of code and scripts, not to mention meditate over chapters
+of Erlang/OTP documentation in order to figure out how things fit
+together.
+
+This utility offers a framework for initializing and configuring a
+system, with a set of conventions allowing each component to provide
+callbacks for different steps in the installation procedure.
+
+The callbacks are defined through OTP application environment variables,
+which can easily be overriden at install time.
+
+
+## The setup_gen utility ##
+
+The `setup_gen` utility is a simple tool to generate .rel file and
+boot script for an Erlang-based system. It fetches configuration options
+from a .conf file (read using `file:script/2`). As an example of a very
+simple build, see examples/gproc.conf':
+
+```
+
+{apps, kernel,
+	 stdlib,
+	 sasl,
+	 gproc}.
+
+```
+
+This configuration file simply lists the applications to start from the
+boot script. The `setup_gen` script can either be called from within
+Erlang as:
+
+```
+
+Eshell V5.8.1  (abort with ^G)
+1> setup_gen:run({conf,"gproc.conf"},{outdir,"."},{name,"gproc"}).
+Options = {conf,"gproc.conf"},{outdir,"."},{name,"gproc"}
+Paths = 
+add path Res = ok
+app_vsn(kernel) -> "2.14.1"
+app_vsn(stdlib) -> "1.17.1"
+app_vsn(sasl) -> "2.1.9.2"
+app_vsn(gproc) -> "0.01"
+Rel: {release,{"gproc","tmp"},
+              {erts,"5.8.1"},
+              {kernel,"2.14.1"},
+               {stdlib,"1.17.1"},
+               {sasl,"2.1.9.2"},
+               {gproc,"0.01"}}
+entering directory .
+Path = 
+make_script() -> ok
+ok
+
+```
+
+...or as an escript:
+
+```
+
+escript ~/git/setup/ebin/setup_gen.beam gproc gproc.conf .
+
+```
+
+If the option `-install true` is given, the `setup_gen` utility will
+generate an installation boot script, and `install.config` file, which
+can be used to install the system, using a command like:
+
+```
+
+erl -sys install -boot install
+
+```
+
+This boot script will run kernel, stdlib and sasl, then load all other
+applications, and finally run the `setup` application, which will find
+and execute any setup hooks.
+
+If the option `-setup stop_when_done true` is added to the command line,
+the setup application will automatically shut down all running nodes after
+running the setup hooks. Otherwise (default), it will hand over control to
+the shell rather than terminate the Erlang VM.
+
+See `setup_gen:run/1`(http://github.com/uwiger/setup/blob/master/doc/setup_gen.md#run-1) for documentation on all supported options.
+
+
+## Variable expansion ##
+`setup` extends the functionality of `application:get_env/2,3` by also
+supporting variable expansion, as well as a function for searching all
+applications for instances of a given variable. This functionality is described
+in `setup`(http://github.com/uwiger/setup/blob/master/doc/setup.md).
+
+
+## Modules ##
+
+
+<table width="100%" border="0" summary="list of modules">
+<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup.md" class="module">setup</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_app.md" class="module">setup_app</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_gen.md" class="module">setup_gen</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_lib.md" class="module">setup_lib</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_srv.md" class="module">setup_srv</a></td></tr>
+<tr><td><a href="http://github.com/uwiger/setup/blob/master/doc/setup_sup.md" class="module">setup_sup</a></td></tr></table>
+

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/hex_metadata.config Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/rebar.config Added

@@ -0,0 +1,34 @@
+%% -*- mode: erlang; erlang-indent-level: 4; indent-tabs-mode: nil -*-
+{erl_opts, debug_info}.
+{profiles,
+ 
+  {deps, {edown, "0.8.1"}},
+  {edoc_opts, {doclet, edown_doclet},
+               {app_default, "http://www.erlang.org/doc/man"},
+               {top_level_readme,
+                {"./README.md",
+                 "http://github.com/uwiger/setup"}}}
+ }.
+{escript_main_app, setup}.
+{escript_name, setup_gen}.
+{escript_shebang, "#!/usr/bin/env escript\n"}.
+{escript_comment, "%%\n"}.
+{provider_hooks,
+ 
+  {post, 
+          {compile, escriptize}
+         }
+ }.
+
+{post_hooks, {"(linux|darwin|solaris|freebsd|netbsd|openbsd)",
+               escriptize,
+               "cp \"$REBAR_BUILD_DIR/bin/setup_gen\" ./setup_gen"},
+              {"win32",
+               escriptize,
+               "robocopy \"%REBAR_BUILD_DIR%/bin/\" ./ setup_gen* "
+               "/njs /njh /nfl /ndl & exit /b 0"} % silence things
+             }.
+%% This line is to ensure that any erl_first_files setting from
+%% 'above' isn't accidentally inherited, since there seems to be
+%% a strange interaction between SNMP MIB compilation and escriptize.
+{erl_first_files, }.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/rebar.config.script Added

@@ -0,0 +1,35 @@
+%% -*- erlang -*-
+%%
+IsRebar3Bare = (nomatch =/= re:run(init:get_plain_arguments(), "rebar3bare")).
+
+CONFIG1 =
+case os:getenv("TGT") of
+    false ->
+        CONFIG;
+     ->
+        CONFIG;
+    Tgt ->
+        io:fwrite("Tgt = ~p~n", Tgt),
+        {_, Opts} = lists:keyfind(edoc_opts, 1, CONFIG),
+        {_, {F,URL}} = lists:keyfind(top_level_readme, 1, Opts),
+        Name = lists:last(string:tokens(URL, "/")),
+        io:fwrite("Name = ~s~n", Name),
+        NewURL = re:replace(URL, "^/+/" ++ Name, Tgt ++ "/" ++ Name,
+                            {return, list}),
+        C1 =
+            lists:keyreplace(
+              edoc_opts, 1,
+              CONFIG,
+              {edoc_opts, lists:keyreplace(top_level_readme, 1, Opts,
+                                           {top_level_readme, {F, NewURL}})}),
+        C1
+end.
+
+%% %% It seems `rebar3 bare compile` (mix) fails if the following subst is made.
+%% case erlang:function_exported(rebar3, main, 1) andalso (not IsRebar3Bare) of
+%%     true ->
+%%         lists:keydelete(post_hooks, 1, CONFIG1)
+%%             ++ {provider_hooks, {post, {compile, escriptize}}};
+%%     _ ->
+%%         CONFIG1
+%% end.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/rebar.lock Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/src/setup.app.src Added

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/src/setup.erl Added

@@ -0,0 +1,1727 @@
+%% -*- mode: erlang; indent-tabs-mode: nil; -*-
+%%=============================================================================
+%% Copyright 2014 Ulf Wiger
+%%
+%% Licensed 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 Setup utility for erlang applications
+%%
+%% This API contains:
+%% * Support functions for system install ({@link find_hooks/0},
+%%   {@link run_hooks/0}, {@link lib_dirs/0}).
+%% * Functions for managing and inspecting the system environment
+%%   ({@link home/0}, {@link log_dir/0}, {@link data_dir/0},
+%%    {@link verify_directories/0}, {@link verify_dir/0}).
+%% * Support functions for application environments ({@link get_env/2},
+%%   {@link get_all_env/1}, {@link find_env_vars/1}, {@link expand_value/2}).
+%% * Functions for controlling dynamic load/upgrade of applications
+%%   ({@link find_app/1}, {@link pick_vsn/3}, {@link reload_app/1},
+%%    {@link patch_app/1}).
+%%
+%% == Variable expansion ==
+%%
+%% Setup supports variable substitution in application environments. It provides
+%% some global variables, `"$HOME", "$DATA_DIR", "$LOG_DIR"', corresponding to
+%% the API functions {@link home/0}, {@link data_dir/0} and {@link log_dir},
+%% as well as some application-specific variables, `"$APP", "$PRIV_DIR",
+%% "$LIB_DIR".
+%%
+%% The normal way to use these variables is by embedding them in file names,
+%% e.g. `{my_logs, "$LOG_DIR/$APP"}', but a variable can also be referenced as:
+%% * ``{'$value',Var}'' - The variable's value is used as-is (which means that
+%%   ``{'$value', "$APP"}'' expands to an atom corresponding to the current
+%%   app name.)
+%% * ``{'$string', Var}'' - The value is represented as a string (list). If the
+%%   value isn't a "string type", `io_lib:format("~w",Value)' is used.
+%% * ``{'$binary', Var}'' - Like ``'$string''', but using binary representation.
+%%
+%% Custom variables can be defined by using either:
+%% * *global scope* - The `setup' environment variable `vars', containing a
+%%   list of `{VarName, Definition}' tuples
+%% * *application-local scope* - Defining an application-local environment
+%%   variable ``'$setup_vars''', on the same format as above.
+%%
+%% The `VarName' shall be a string, e.g. `"MYVAR"' (no `$' prefix).
+%% `Definition' can be one of:
+%% * `{value, Val}' - the value of the variable is exactly `Val'
+%% * `{expand, Val}' - `Val' is expanded in its turn
+%% * `{apply, M, F, A}' - Use the return value of `apply(M, F, A)'.
+%%
+%% When using a variable expansion, either insert the variable reference in
+%% a string (or binary), or use one of the following formats:
+%% * ``'{'$value', Var}''' - Use value as-is
+%% * ``'{'$string', Var}''' - Use the string representation of the value
+%% * ``'{'$binary', Var}''' - Use the binary representation of the value.
+%%
+%% Example:
+%% <pre lang="erlang">
+%% 2> application:set_env(setup, vars, {"PLUS", {apply,erlang,'+',1,2}},
+%% 2>                                   {"FOO", {value, {foo,1}}}).
+%% ok
+%% 3> application:set_env(stdlib, '$setup_vars',
+%% 3>                     {"MINUS", {apply,erlang,'-',4,3}},
+%% 3>                      {"BAR", {value, "bar"}}).
+%% ok
+%% 4> application:set_env(setup, v1, "/$BAR/$PLUS/$MINUS/$FOO").
+%% ok
+%% 5> setup:get_env(setup,v1).
+%% {ok,"/$BAR/3/$MINUS/{foo,1}"}
+%% 6> application:set_env(stdlib, v1, "/$BAR/$PLUS/$MINUS/$FOO").
+%% ok
+%% 7> setup:get_env(stdlib,v1).
+%% {ok,"/bar/3/1/{foo,1}"}
+%% </pre>
+%%
+%% In the above example, the first expansion (command no. 5), leaves `$BAR'
+%% and `$MINUS' unexpanded, since they are defined in the `stdlib' application,
+%% and thus not known to `setup'. In command no. 6, however, they <em>are</em>
+%% in context, and are expanded. The variables `$PLUS' and `$FOO' have global
+%% context and are expanded in both cases.
+%%
+%% It is also possible to refer to environment variables in the same
+%% application. These are referenced as `"$env(VarName)"'. The corresponding
+%% values are expanded in turn - take care not to create expansion loops!
+%% The same rules for expansion as above apply.
+%%
+%% Example:
+%% <pre lang="erlang">
+%% 2> application:set_env(setup,foo,"foo").
+%% ok
+%% 3> application:set_env(setup,foo_dir,"$HOME/$env(foo)").
+%% ok
+%% 4> setup:get_env(setup,foo_dir).
+%% {ok,"/Users/uwiger/git/setup/foo"}
+%% </pre>
+%%
+%% == Customizing setup ==
+%% The following environment variables can be used to customize `setup':
+%% * `{home, Dir}' - The topmost directory of the running system. This should
+%%    be a writeable area.
+%% * `{data_dir, Dir}' - A directory where applications are allowed to create
+%%    their own subdirectories and save data. Default is `Home/data.Node'.
+%% * `{log_dir, Dir}' - A directory for logging. Default is `Home/log.Node'.
+%% * `{stop_when_done, true|false}' - When invoking `setup' for an install,
+%%    `setup' normally remains running, allowing for other operations to be
+%% * `{stop_delay, Millisecs}' - If `stop_when_done' is true, and the node
+%%    is going to shut down, setup will first wait for a specified number of
+%%    milliseconds (default: 5000). This can be useful in order to allow
+%%    asynchronous operations to complete before shutting down.
+%%    performed from the shell or otherwise. If `{stop_when_done, true}', the
+%%    node is shut down once `setup' is finished.
+%% * `{abort_on_error, true|false}' - When running install or upgrade hooks,
+%%    `setup' will normally keep going even if some hooks fail. A more strict
+%%    semantics can be had by setting `{abort_on_error, true}', in which case
+%%    `setup' will raise an exception if an error occurs.
+%% * `{mode, atom()}' - Specifies the context for running 'setup'. Default is
+%%   `normal'. The `setup' mode has special significance, since it's the default
+%%    mode for setup hooks, if no other mode is specified and the node has been
+%%    started with the setup-generated `install.boot' script. In theory, one may
+%%    specify any atom value, but it's probably wise to stick to the values
+%%    'normal', 'setup' and 'upgrade' as global contexts, and instead trigger
+%%    other mode hooks by explicitly calling {@link run_hooks/1}.
+%% * `{verify_directories, boolean()}' - At startup, setup will normally ensure that
+%%    the directories used by setup actually exist. This behavior can be disabled through
+%%    the environment variable `{verify_directories, false}'. This can be desirable
+%%    if setup is used mainly e.g. for environment variable expansion, but not for
+%%    disk storage.
+%% * `{run_timeout, Millisecs}' - Set a time limit for how long it may take for
+%%    setup to process the setup hooks. Default is `infinity'. If the timeout
+%%    is exceeded, the application start sequence will be aborted, which will
+%%    cause a (rather inelegant) boot sequence failure.
+%% @end
+-module(setup).
+
+-export(home/0,
+         log_dir/0,
+         data_dir/0,
+         verify_directories/0,
+         verify_dir/1,
+         mode/0,
+         find_hooks/0, find_hooks/1, find_hooks/2,
+         run_hooks/0, run_hooks/1, run_hooks/2,
+         find_env_vars/1,
+         get_env/2, get_env/3,
+         get_all_env/1,
+         expand_value/2,  % expand_value/3 recommended instead
+         expand_value/3,
+         patch_app/1,
+         find_app/1, find_app/2,
+         pick_vsn/3,
+         reload_app/1, reload_app/2, reload_app/3,
+         keep_release/1,
+         lib_dirs/0, lib_dirs/1).
+-export(read_config_script/3,   % (Name, F, Opts)
+         read_config_script/4). % (Name, F, Vars, Opts)
+
+-export(ok/1).
+
+
+-export(run_setup/0).
+
+-export(main/1).  % new escript entry point
+
+-include_lib("kernel/include/file.hrl").
+
+-ifdef(TEST).
+-compile(export_all, nowarn_export_all).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-define(THROW(E), {'___SETUP_THROW___', E}).
+
+-define(if_verbose(Expr),
+        case get(verbose) of
+            true -> Expr;
+            _    -> ok
+        end).
+
+%% @spec home() -> Directory
+%% @doc Returns the configured `home' directory, or a best guess (`$CWD')
+%% @end
+%%
+home() ->
+    home_().
+
+home_(Vis) ->
+    case get_env_v(setup, home, Vis) of
+        undefined ->
+            CWD = cwd(),
+            D = filename:absname(CWD),
+            application:set_env(setup, home, D),
+            D;
+        {ok, D} when is_binary(D) ->
+            binary_to_list(D);
+        {ok, D} when is_list(D) ->
+            D;
+        {error,_} = Error ->
+            Error;
+        Other ->
+            {error, Other}
+    end.
+
+%% @spec log_dir() -> Directory
+%% @doc Returns the configured log dir, or a best guess (`home()/log.Node')
+%% @end
+%%
+log_dir() ->
+    log_dir_().
+
+log_dir_(Vis) ->
+    setup_dir(log_dir, "log." ++ atom_to_list(node()), Vis).
+
+%% @spec data_dir() -> Directory
+%% @doc Returns the configured data dir, or a best guess (`home()/data.Node').
+%%
+%% @end
+%%
+data_dir() ->
+    data_dir_().
+
+data_dir_(Vis) ->
+    setup_dir(data_dir, "data." ++ atom_to_list(node()), Vis).
+
+setup_dir(Key, Default, Vis) ->
+    case get_env_v(setup, Key, Vis) of
+        undefined ->
+            D = filename:absname(filename:join(home(), Default)),
+            application:set_env(setup, Key, D),
+            D;
+        {ok, D} when is_binary(D) ->
+            binary_to_list(D);
+        {ok, D} when is_list(D) ->
+            D;
+        Other ->
+            {error, Other}
+    end.
+
+maybe_verify_directories() ->
+    case get_env(setup, verify_directories, true) of
+        true ->
+            verify_directories();
+        false ->
+            ok
+    end.
+
+%% @spec verify_directories() -> ok
+%% @doc Ensures that essential directories exist and are writable.
+%% Currently, the directories corresponding to {@link home/0},
+%% {@link log_dir/0} and {@link data_dir/0} are verified.
+%% @end
+%%
+verify_directories() ->
+    _ = verify_dir(home()),
+    _ = verify_dir(log_dir()),
+    _ = verify_dir(data_dir()),
+    ok.
+
+%% @spec verify_dir(Dir) -> Dir
+%% @doc Ensures that the directory Dir exists and is writable.
+%% @end
+%%
+verify_dir(Directory) ->
+    ok = filelib:ensure_dir(filename:join(Directory, "dummy")),
+    Directory.
+
+ok({ok, Result}) ->
+    Result;
+ok(Other) ->
+    setup_lib:abort("Expected {ok, Value}~n", Other).
+
+
+%% @spec find_env_vars(Env) -> {AppName, Value}
+%% @doc Searches all loaded apps for instances of the `Env' environment variable.
+%%
+%% The environment variables are expanded according to the rules outlined in
+%% {@section Variable expansion}
+%% @end
+find_env_vars(Env) ->
+    GEnv = global_env(),
+    lists:flatmap(
+      fun({A,_,_}) ->
+              case app_get_env(A, Env) of
+                  {ok, Val} when Val =/= undefined ->
+                      NewEnv = private_env(A, GEnv),
+                      {A, expand_env(NewEnv, Val, A, Env)};
+                  _ ->
+                      
+              end
+      end, application:loaded_applications()).
+
+get_env(A, Key) ->
+    case app_get_env(A, Key) of
+        {ok, Val} ->
+            {ok, expand_value(A, Val)};
+        Other ->
+            Other
+    end.
+
+get_env(A, Key, Default) ->
+    case get_env(A, Key) of
+        {ok, Val} ->
+            Val;
+        _ ->
+            Default
+    end.
+
+get_env_v(A, Key, V) ->
+    try get_env_v_(A, Key, V)
+    catch
+        throw:?THROW(Error) ->
+            Error
+    end.
+
+get_env_v_(A, Key, V) ->
+    case lists:member(Key, V) of
+        false ->
+            case app_get_env(A, Key) of
+                {ok, Val} ->
+                    {ok, expand_value_v(A, Key, Val, V)};
+                Other ->
+                    Other
+            end;
+        true ->
+            throw(?THROW({error, {loop_detected, Key}}))
+    end.
+
+-spec get_all_env(atom()) -> {atom(), any()}.
+%% @doc Like `application:get_all_env/1', but with variable expansion.
+%%
+%% The variable expansion is performed according to the rules outlined in
+%% {@section Variable expansion}.
+%% @end
+get_all_env(A) ->
+    Vars = private_env(A, global_env()),
+    {K, expand_env(Vars, V, A, K)} ||
+        {K, V} <- application:get_all_env(A).
+
+-spec expand_value(atom(), any()) -> any().
+%% @doc Expand `Value' using global variables and the variables of `App'
+%%
+%% The variable expansion is performed according to the rules outlined in
+%% {@section Variable expansion}. If a loop is detected (a variable ends
+%% up referencing itself), an exception is raised.
+%% Use of {@link expand_value/3} (also providing the initial key name) is
+%% recommended; this function is primarily here for backward compatibility
+%% purposes.
+%% @end
+expand_value(App, Value) ->
+    expand_env(private_env(App, global_env()), Value, App, ).
+
+-spec expand_value(atom(), atom(), any()) -> any().
+%% @doc Expand `Value' using global variables and the variables of `App'
+%%
+%% The variable expansion is performed according to the rules outlined in
+%% {@section Variable expansion}. The `Key' name as second argument is used
+%% for loop detection, in which case an exception will be raised..
+%% @end
+expand_value(App, Key, Value) ->
+    try expand_value_v(App, Key, Value, )
+    catch
+        throw:?THROW(Error) ->
+            error(Error)
+    end.
+
+expand_value_v(App, K, Value, V) ->
+    expand_env(private_env(App), Value, App, K|V).
+
+global_env() ->
+    Acc = {K, fun(V1) -> env_value(K, V1) end} ||
+              K <- "DATA_DIR", "LOG_DIR", "HOME",
+    custom_global_env(Acc).
+
+custom_global_env(Acc) ->
+    lists:foldl(fun(E, Acc1) ->
+                        custom_env1(E, Acc1, setup)
+                end, Acc,
+                {K,V} || {K,V} <- app_get_env(setup, vars, ),
+                          is_list(K)).
+
+private_env(A) ->
+    private_env(A, global_env()).
+
+private_env(A, GEnv) ->
+    Acc = {K, fun(Vis1) -> env_value(K, A, Vis1) end} ||
+              K <- "APP", "PRIV_DIR", "LIB_DIR",
+    custom_private_env(A, Acc ++ GEnv).
+
+custom_private_env(A, Acc) ->
+    lists:foldl(fun(E, Acc1) ->
+                        custom_env1(E, Acc1, A)
+                end, Acc,
+                {K, V} ||
+                    {K,V} <- app_get_env(A, '$setup_vars', ),
+                    is_list(K)).
+
+%% Wrapped for tracing purposes
+app_get_env(A, K) ->
+    application:get_env(A, K).
+
+%% Wrapped for tracing purposes
+app_get_env(A, K, Default) ->
+    %% Apparently, some still use setup on R15B ...
+    case application:get_env(A, K) of
+        {ok, Val} -> Val;
+        _ ->
+            Default
+    end.
+
+%% Wrapped for tracing purposes
+app_get_key(A, K) ->
+    application:get_key(A, K).
+
+custom_env1({K, V}, Acc, A) ->
+    {K, fun(Vis1) -> custom_env_value(K, V, Acc, A, Vis1) end} | Acc.
+
+expand_env(_, {T,"$env(" ++ S} = X, A, Vis)
+  when T=='$value'; T=='$string'; T=='$binary' ->
+    try Res = case get_env_name_l(S) of
+                  false -> undefined;
+                  {Name,} ->
+                      get_env_v_(A, Name, Vis)
+              end,
+         case {Res, T} of
+             {undefined, '$value'} -> undefined;
+             {undefined, '$string'} -> "";
+             {undefined, '$binary'} -> <<>>;
+             {{ok,V}   , '$value'} -> V;
+             {{ok,V}   , '$string'} -> binary_to_list(stringify(V));
+             {{ok,V}   , '$binary'} -> stringify(V)
+         end
+    catch
+        error:_ -> X
+    end;
+expand_env(Vs, {T,"$" ++ S}, _, Vis)
+  when T=='$value'; T=='$string'; T=='$binary' ->
+    case {lists:keyfind(S, 1, Vs), T} of
+        {false, '$value'}  -> undefined;
+        {false, '$string'} -> "";
+        {false, '$binary'} -> <<>>;
+        {{_,V}, '$value'}  -> V(Vis);
+        {{_,V}, '$string'} -> binary_to_list(stringify(V(Vis)));
+        {{_,V}, '$binary'} -> stringify(V(Vis))
+    end;
+expand_env(Vs, T, A, V) when is_tuple(T) ->
+    list_to_tuple(expand_env(Vs, X, A, V) || X <- tuple_to_list(T));
+expand_env(Vs, L, A, V) when is_list(L) ->
+    case setup_lib:is_string(L) of
+        true ->
+            do_expand_env(L, Vs, A, list, V);
+        false ->
+            %% expand_env(Vs, X, A) || X <- L
+            expand_env_l(Vs, L, A, V)
+    end;
+expand_env(Vs, B, A, V) when is_binary(B) ->
+    do_expand_env(B, Vs, A, binary, V);
+expand_env(_, X, _, _) ->
+    X.
+
+-spec expand_env_l(list(), maybe_improper_list(), any(), any()) ->
+                          maybe_improper_list().
+expand_env_l(_Vs, , _A, _V) ->
+    ;
+expand_env_l(Vs, H|T, A, V) when is_list(T) ->
+    expand_env(Vs, H, A, V) | expand_env_l(Vs, T, A, V);
+expand_env_l(Vs, H|T, A, V) ->
+    expand_env(Vs, H, A, V) | expand_env(Vs, T, A, V).
+
+
+%% do_expand_env(X, Vs, Type) ->
+%%     lists:foldl(fun({K, Val}, Xx) ->
+%%                         re:replace(Xx, $\\, $$ | K,
+%%                                    stringify(Val()), {return,Type})
+%%                 end, X, Vs).
+
+do_expand_env(X, Vs, A, binary, V) ->
+    do_expand_env_b(iolist_to_binary(X), Vs, A, V);
+do_expand_env(X, Vs, A, list, V) ->
+    binary_to_list(do_expand_env_b(iolist_to_binary(X), Vs, A, V)).
+
+do_expand_env_b(<<"$env(", T/binary>>, Vs, A, Vis) ->
+    case get_env_name_b(T) of
+        {K, T1} ->
+            case get_env_v_(A, K, Vis) of
+                {ok, V} ->
+                    Res = expand_env(Vs, V, A, Vis),
+                    <<(stringify(Res))/binary,
+                      (do_expand_env_b(T1, Vs, A, Vis))/binary>>;
+                undefined ->
+                    <<"$env(", (do_expand_env_b(T, Vs, A, Vis))/binary>>
+            end;
+        false ->
+            do_expand_env_b(T, Vs, A, Vis)
+    end;
+do_expand_env_b(<<"$", T/binary>>, Vs, A, Vis) ->
+    case match_var_b(Vs, T, Vis) of
+        {Res, T1} ->
+            <<Res/binary, (do_expand_env_b(T1, Vs, A, Vis))/binary>>;
+        false ->
+            <<"$", (do_expand_env_b(T, Vs, A, Vis))/binary>>
+    end;
+do_expand_env_b(<<H, T/binary>>, Vs, A, Vis) ->
+    <<H, (do_expand_env_b(T, Vs, A, Vis))/binary>>;
+do_expand_env_b(<<>>, _, _, _) ->
+    <<>>.
+
+get_env_name_b(B) ->
+    get_env_name_b(B, <<>>).
+
+get_env_name_b(<<")", T/binary>>, Acc) ->
+    try {binary_to_existing_atom(Acc, latin1), T}
+    catch
+        error:_ -> false
+    end;
+get_env_name_b(<<H, T/binary>>, Acc) ->
+    get_env_name_b(T, <<Acc/binary, H>>);
+get_env_name_b(<<>>, _) ->
+    false.
+
+get_env_name_l(L) ->
+    get_env_name_l(L, ).
+
+get_env_name_l(")" ++ T, Acc) ->
+    try {list_to_existing_atom(lists:reverse(Acc)), T}
+    catch
+        error:_ -> false
+    end;
+get_env_name_l(H|T, Acc) ->
+    get_env_name_l(T, H|Acc);
+get_env_name_l(, _) ->
+    false.
+
+match_var_b({K,V}|T, B, Vis) ->
+    case re:split(B, "^" ++ K, {return, binary}) of
+        _ ->
+            match_var_b(T, B, Vis);
+        <<>>, Rest ->
+            {stringify(V(Vis)), Rest}
+    end;
+match_var_b(, _, _) ->
+    false.
+
+env_value("LOG_DIR" , Vis) -> log_dir_(Vis);
+env_value("DATA_DIR", Vis) -> data_dir_(Vis);
+env_value("HOME"    , Vis) -> home_(Vis).
+
+env_value("APP"     , A, _Vis) -> A;
+env_value("PRIV_DIR", A, _Vis) -> priv_dir(A);
+env_value("LIB_DIR" , A, _Vis) -> lib_dir(A).
+
+custom_env_value(_K, {value, V}, _Vs, _A, _Vis) ->
+    V;
+custom_env_value(K, {expand, V}, Vs, A, Vis) ->
+    expand_env(Vs, V, A, K|Vis);
+custom_env_value(K, {apply, M, F, As}, _Vs, _A, _Vis) ->
+    %% Not ideal, but don't want to introduce exceptions in get_env()
+    try apply(M, F, As)
+    catch
+        error:_ ->
+            {error, {custom_setup_env, K}}
+    end.
+
+%% This function is more general than to_string/1 below
+stringify(V) ->
+    try iolist_to_binary(V)
+    catch
+        error:badarg ->
+            iolist_to_binary(io_lib:format("~w", V))
+    end.
+
+priv_dir(A) ->
+    case code:priv_dir(A) of
+        {error, bad_name} ->
+            case is_cur_dir(A) of
+                true ->
+                    filename:join(cwd(), "priv");
+                false ->
+                    error({cannot_get_priv_dir, A})
+            end;
+        D -> D
+    end.
+
+lib_dir(A) ->
+    case code:lib_dir(A) of
+        {error, bad_name} ->
+            case is_cur_dir(A) of
+                true ->
+                    cwd();
+                false ->
+                    error({cannot_get_lib_dir, A})
+            end;
+        D -> D
+    end.
+
+cwd() ->
+    {ok, CWD} = file:get_cwd(),
+    CWD.
+
+is_cur_dir(A) ->
+    As = atom_to_list(A),
+    filename:basename(cwd()) == As.
+
+
+%% @spec patch_app(AppName::atom()) -> true | {error, Reason}
+%%
+%% @doc Adds an application's "development" path to a target system
+%%
+%% This function locates the given application (`AppName') along the `$ERL_LIBS'
+%% path, and prepends it to the code path of the existing system. This is useful
+%% not least when one wants to add e.g. a debugging or trace application to a
+%% target system.
+%%
+%% The function will not add the same path again, if the new path is already
+%% the 'first' path entry for the application `A'.
+%% @end
+patch_app(A) when is_atom(A) ->
+    patch_app(A, latest).
+
+patch_app(A, Vsn) ->
+    patch_app(A, Vsn, lib_dirs()).
+
+patch_app(A, Vsn, LibDirs) ->
+    case find_app(A, LibDirs) of
+        _|_ = Found ->
+            {_ActualVsn, Dir} = pick_vsn(A, Found, Vsn),
+            error_logger:info_msg("~p vsn ~p code:add_patha(~s)~n", A, _ActualVsn, Dir),
+            code:add_patha(Dir);
+         ->
+            error(no_matching_vsn)
+    end.
+
+%% @spec pick_vsn(App::atom(), Dirs::{Vsn::string(),Dir::string()}, Which) ->
+%%          {Vsn, Dir}
+%%  where
+%%     Which = 'latest' | 'next' | Regexp
+%%
+%% @doc Picks the specified version out of a list returned by {@link find_app/1}
+%%
+%% * If `Which' is a string, it will be used as a `re' regexp pattern, and the
+%%   first matching version will be returned.
+%%
+%% * If `Which = latest', the last entry in the list will be returned (assumes
+%%   that the list is sorted in ascending version order).
+%%
+%% * If `Which = next', the next version following the current version of the
+%%   application `A' is returned, assuming `A' is loaded; if `A' is not loaded,
+%%   the first entry in the list is returned.
+%%
+%% If no matching version is found, the function raises an exception.
+%% @end
+pick_vsn(_, Dirs, latest) ->
+    lists:last(Dirs);
+pick_vsn(A, Dirs, next) ->
+    case app_get_key(A, vsn) of
+        {ok, Cur} ->
+            case lists:dropwhile(fun({V, _}) -> V =/= Cur end, Dirs) of
+                _, {_, _} = Next |_ -> Next;
+                _ -> error(no_matching_vsn)
+            end;
+        _ ->
+            hd(Dirs)
+    end;
+pick_vsn(_, Dirs, Vsn) ->
+    case X || {V, _} = X <- Dirs,
+               re:run(V, Vsn) =/= nomatch of
+        Found|_ ->
+            Found;
+         ->
+            error(no_matching_vsn)
+    end.
+
+
+%% @spec find_app(A::atom()) -> {Vsn, Dir}
+%% @equiv find_app(A, lib_dirs())
+find_app(A) ->
+    find_app(A, lib_dirs()).
+
+%% @spec find_app(A::atom(), LibDirs::string()) -> {Vsn, Dir}
+%%
+%% @doc Locates application `A' along LibDirs (see {@link lib_dirs/0} and
+%% {@link lib_dirs/1}) or under the OTP root, returning all found candidates.
+%% The version is extracted from the `.app' file; thus, no version suffix
+%% in the path name is required.
+%% @end
+find_app(A, LibDirs) ->
+    Astr = to_string(A),
+    CurDir = case code:lib_dir(A) of
+                 {error,_} -> ;
+                 D ->
+                     filename:join(D, "ebin")
+             end,
+    CurRoots = current_roots(),
+    InLib = P || P <- LibDirs,
+                  is_app_dir(Astr, P),
+    InRoots = lists:append(in_root(A, R) || R <- CurRoots),
+    setup_lib:sort_vsns(
+      lists:usort(CurDir ++ InRoots ++ InLib), atom_to_list(A)).
+
+to_string(A) when is_atom(A) ->
+    atom_to_list(A);
+to_string(A) when is_list(A) ->
+    A.
+
+is_app_dir(A, D) ->
+    case lists:reverse(filename:split(D)) of
+        "ebin", App|_ ->
+            case re:split(App, <<"-">>, {return,list}) of
+                A|_ -> true;
+                _ -> false
+            end;
+        _ ->
+            false
+    end.
+
+current_roots() ->
+    CurPath = code:get_path(),
+    roots_of(CurPath).
+
+roots_of(Path) ->
+    All = lists:foldr(
+            fun(D, Acc) ->
+                    case lists:reverse(filename:split(D)) of
+                        "ebin",_| _|_ = T ->
+                            filename:join(lists:reverse(T)) | Acc;
+                        _ ->
+                            Acc
+                    end
+            end, , Path),
+    lists:usort(All).
+
+in_root(A, R) ->
+    Paths = filelib:wildcard(filename:join(R, "*", "ebin")),
+    Pat = atom_to_list(A) ++ "-\\.0-9+/ebin\$",
+    P || P <- Paths,
+          re:run(P, Pat) =/= nomatch.
+
+%% @spec reload_app(AppName::atom()) -> {ok, NotPurged} | {error, Reason}
+%%
+%% @equiv reload_app(AppName, latest)
+reload_app(A) ->
+    reload_app(A, latest).
+
+%% @spec reload_app(AppName::atom(), ToVsn) -> {ok,UnPurged} | {error,Reason}
+%%
+%% @equiv reload_app(AppName, latest, lib_dirs())
+reload_app(A, ToVsn) ->
+    reload_app(A, ToVsn, lib_dirs()).
+
+%% @spec reload_app(AppName::atom(), ToVsn, LibDirs) ->
+%%           {ok, Unpurged} | {error, Reason}
+%%  where
+%%    ToVsn = 'latest' | 'next' | Vsn,
+%%    LibDirs = string()
+%%    Vsn   = string()
+%%
+%% @doc Loads or upgrades an application to the specified version
+%%
+%% This function is a convenient function for 'upgrading' an application.
+%% It locates the given version (using {@link find_app/1} and {@link pick_vsn/3})
+%% and loads it in the most appropriate way:
+%%
+%% * If the application isn't already loaded, it loads the application and
+%%   all its modules.
+%%
+%% * If the application is loaded, it generates an appup script and performs
+%%   a soft upgrade. If the new version of the application has an `.appup' script
+%%   on-disk, that script is used instead.
+%%
+%% The application is searched for along the existing path (that is, under
+%% the roots of the existing code path, allowing for e.g. $ROOT/lib/app-1.0
+%% and $ROOT/lib/app-1.2 to be found and tested against the version condition),
+%% and also along `LibDirs' (see {@link lib_dirs/0} an {@link lib_dirs/1}).
+%%
+%% The generated appup script is of the form:
+%%
+%% * add modules not present in the previous version of the application
+%%
+%% * do a soft upgrade on pre-existing modules, using suspend-code_change-resume
+%%
+%% * delete modules that existed in the old version, but not in the new.
+%%
+%% The purge method used is `brutal_purge' - see {@link //sasl/appup}.
+%%
+%% For details on how the new version is chosen, see {@link find_app/1} and
+%% {@link pick_vsn/3}.
+%% @end
+reload_app(A, ToVsn0, LibDirs) ->
+    case app_get_key(A, vsn) of
+        undefined ->
+            ok = application:load(A),
+            {ok, Modules} = app_get_key(A, modules),
+            _ = c:l(M) || M <- Modules,
+            {ok, };
+        {ok, FromVsn} ->
+            {ToVsn, NewPath} = pick_vsn(A, find_app(A, LibDirs), ToVsn0),
+            if ToVsn == FromVsn ->
+                    {error, same_version};
+               true ->
+                    error_logger:info_msg("~p vsn ~p soft upgrade from ~p~n",
+                                          A, ToVsn, FromVsn),
+                    reload_app(
+                      A, FromVsn, filename:join(code:lib_dir(A), "ebin"),
+                      NewPath, ToVsn)
+            end
+    end.
+
+reload_app(A, OldVsn, OldPath, NewPath, NewVsn) ->
+    {_NewVsn, Script, NewApp} = make_appup_script(A, OldVsn, NewPath),
+    reload_app(A, OldVsn, OldPath, NewPath, NewVsn, Script, NewApp).
+
+reload_app(A, _OldVsn, _OldPath, NewPath, NewVsn, Script, _NewApp) ->
+    LibDir = filename:dirname(NewPath),
+    _ = remove_path(NewPath, A),
+    case release_handler:eval_appup_script(A, NewVsn, LibDir, Script) of
+        {ok, Unpurged} ->
+            _ = code:purge(M) || {M, brutal_purge} <- Unpurged,
+            {ok, U || {_, Mode} = U <- Unpurged, Mode =/= brutal_purge};
+        Other ->
+            Other
+    end.
+
+remove_path(P, A) ->
+    CurPath = code:get_path(),
+    case lists:member(P, CurPath) of
+        true ->
+            %% don't remove if it's the only path
+            case Px || Px <- path_entries(A, CurPath),
+                        Px =/= P of
+                 ->
+                    true;
+                _|_ ->
+                    code:set_path(Px || Px <- CurPath,
+                                         Px =/= P)
+            end;
+        false ->
+            true
+    end.
+
+path_entries(A, Path) ->
+    Pat = atom_to_list(A) ++ "^/*/ebin\$",
+    P || P <- Path,
+          re:run(P, Pat) =/= nomatch.
+
+make_appup_script(A, OldVsn, NewPath) ->
+    {application, _, NewAppTerms} = NewApp =
+        read_app(filename:join(NewPath, atom_to_list(A) ++ ".app")),
+    %% OldAppTerms = application:get_all_key(A),
+    %% _OldApp = {application, A, OldAppTerms},
+    case find_script(A, NewPath, OldVsn, up) of
+        {NewVsn, Script} ->
+            {NewVsn, Script, NewApp};
+        false ->
+            {ok, OldMods} = app_get_key(A, modules),
+            {modules, NewMods} = lists:keyfind(modules, 1, NewAppTerms),
+            {vsn, NewVsn} = lists:keyfind(vsn, 1, NewAppTerms),
+            {DelMods,AddMods,ChgMods} = {OldMods -- NewMods,
+                                         NewMods -- OldMods,
+                                         intersection(NewMods, OldMods)},
+            {NewVsn,
+             {load_object_code,{A, NewVsn, NewMods}}
+             ++ point_of_no_return
+             ++ {load, {M, brutal_purge, brutal_purge}} || M <- AddMods
+             ++ {suspend, ChgMods} || ChgMods =/= 
+             ++ {load, {M, brutal_purge,brutal_purge}} || M <- ChgMods
+             ++ {code_change, up, {M, setup} || M <- ChgMods} ||
+                    ChgMods =/= 
+             ++ {resume, ChgMods} || ChgMods =/= 
+             ++ {remove, {M, brutal_purge,brutal_purge}} || M <- DelMods
+             ++ {purge, DelMods} || DelMods =/= ,
+             NewApp}
+    end.
+
+read_app(F) ->
+    case file:consult(F) of
+        {ok, App} ->
+            App;
+        {error,_} = Error ->
+            error(Error, F)
+    end.
+
+%% slightly modified (and corrected!) version of release_handler:find_script/4.
+find_script(App, Dir, OldVsn, UpOrDown) ->
+    Appup = filename:join(Dir, "ebin", atom_to_list(App)++".appup"),
+    case file:consult(Appup) of
+        {ok, {NewVsn, UpFromScripts, _DownToScripts}} ->
+            Scripts = case UpOrDown of
+                          up -> UpFromScripts
+                          %% down -> DownToScripts
+                      end,
+            case lists:dropwhile(fun({Re,_}) ->
+                                         re:run(OldVsn, Re) == nomatch
+                                 end, Scripts) of
+                {_OldVsn, Script}|_ ->
+                    {NewVsn, Script};
+                 ->
+                    false
+            end;
+        {error, enoent} ->
+            false;
+        {error, _} ->
+            false
+    end.
+
+
+%% find_procs(Mods) ->
+%%     Ps = release_handler_1:get_supervised_procs(),
+%%     lists:flatmap(
+%%       fun({P,_,_,Ms}) ->
+%%               case intersection(Ms, Mods) of
+%%                    -> ;
+%%                   I  -> {P, I}
+%%               end
+%%       end, Ps).
+
+intersection(A, B) ->
+    A -- (A -- B).
+
+
+
+%% @hidden
+%%
+%% Called from the start function. Will verify directories, then call
+%% all setup hooks in all applications, and execute them in order.
+%% Afterwards, setup will either finish and leave the system running, or
+%% stop, terminating all nodes automatically.
+%%
+run_setup() ->
+    error_logger:info_msg("Setup running ...~n", ),
+    AbortOnError = check_abort_on_error(),
+    try run_setup_()
+    catch
+        error:Error ->
+            error_logger:error_msg("Caught exception:~n"
+                                   "~p~n"
+                                   "~p~n", Error, erlang:get_stacktrace()),
+            if AbortOnError ->
+                    erlang:error(Error);
+               true ->
+                    ok
+            end
+    end.
+
+run_setup_() ->
+    Res = maybe_verify_directories(),
+    error_logger:info_msg("Directories verified. Res = ~p~n", Res),
+    Mode = mode(),
+    Hooks = find_hooks(Mode),
+    run_selected_hooks(Hooks),
+    error_logger:info_msg(
+      "Setup finished processing hooks (Mode=~p)...~n", Mode),
+    ok.
+
+%% @hidden
+main(Args) ->
+    setup_gen:main(Args).
+
+%% @spec find_hooks() -> {PhaseNo, {M,F,A}}
+%% @doc Finds all custom setup hooks in all applications.
+%% The setup hooks must be of the form
+%% ``{'$setup_hooks', {PhaseNo, {M, F, A}} | {Mode, {PhaseNo, {M,F,A}}}}'',
+%% where PhaseNo should be (but doesn't have to be) an integer.
+%% If `Mode' is not specified, the hook will pertain to the `setup' mode.
+%%
+%% The hooks will be called in order:
+%% - The phase numbers will be sorted.
+%% - All hooks for a specific PhaseNo will be called in sequence,
+%%   in the same order as the applications appear in the boot script
+%%   (and, if included applications exist, in preorder traversal order).
+%%
+%% A suggested convention is:
+%% - Create the database at phase 100
+%% - Create tables (or configure schema) at 200
+%% - Populate the database at 300
+%% @end
+%%
+find_hooks() ->
+    find_hooks(mode()).
+
+%% @spec find_hooks(Mode) -> {PhaseNo, {M, F, A}}
+%% @doc Find all setup hooks for `Mode' in all applications
+%% @end
+find_hooks(Mode) when is_atom(Mode) ->
+    Applications = applications(),
+    find_hooks(Mode, Applications).
+
+%% @spec find_hooks(Mode, Applications) -> {PhaseNo, {M, F, A}}
+%% @doc Find all setup hooks for `Mode' in `Applications'.
+%% @end
+find_hooks(Mode, Applications) ->
+    lists:foldl(
+      fun(A, Acc) ->
+              case app_get_env(A, '$setup_hooks') of
+                  {ok, Hooks} ->
+                      lists:foldl(
+                        fun({Mode1, {_, {_,_,_}}|_ = L}, Acc1)
+                              when Mode1 =:= Mode ->
+                                find_hooks_(Mode, A, L, Acc1);
+                           ({Mode1, {_, {_, _, _}|_}|_ = L}, Acc1)
+                              when Mode1 =:= Mode ->
+                                find_hooks_(Mode, A, L, Acc1);
+                           ({N, {_, _, _} = MFA}, Acc1) when Mode=:=setup ->
+                                orddict:append(N, MFA, Acc1);
+                           ({N, {_, _, _}|_ = L}, Acc1)
+                              when Mode=:=setup ->
+                                lists:foldl(
+                                  fun(MFA, Acc2) ->
+                                          orddict:append(N, MFA, Acc2)
+                                  end, Acc1, L);
+                           (_, Acc1) ->
+                                Acc1
+                        end, Acc, Hooks);
+                  _ ->
+                      Acc
+              end
+      end, orddict:new(), Applications).
+
+find_hooks_(Mode, A, L, Acc1) ->
+    lists:foldl(
+      fun({N, {_,_,_} = MFA}, Acc2) ->
+              orddict:append(N, MFA, Acc2);
+         ({N, {_,_,_}|_ = MFAs}, Acc2) when is_list(MFAs) ->
+              lists:foldl(
+                fun({_,_,_} = MFA1, Acc3) ->
+                        orddict:append(
+                          N, MFA1, Acc3);
+                   (Other1, Acc3) ->
+                        error_logger:info_msg(
+                          "Invalid hook: ~p~n"
+                          "  App  : ~p~n"
+                          "  Mode : ~p~n"
+                          "  Phase: ~p~n",
+                          Other1, A, Mode, N),
+                        Acc3
+                end, Acc2, MFAs)
+      end, Acc1, L).
+
+-spec mode() -> normal | atom().
+%% @doc Returns the current "setup mode".
+%%
+%% The mode can be defined using the `setup' environment variable `mode'.
+%% The default value is `normal'. The mode is used to select which setup
+%% hooks to execute when starting the `setup' application.
+%% @end
+mode() ->
+    case app_get_env(setup, mode) of
+        {ok, M} ->
+            M;
+        _ ->
+            case init:get_argument(boot) of
+                {ok, Boot} ->
+                    case filename:basename(Boot) of
+                        "install" -> setup;
+                        _ -> normal
+                    end;
+                _ ->
+                    normal
+            end
+    end.
+
+%% @spec run_hooks() -> ok
+%% @doc Execute all setup hooks for current mode in order.
+%%
+%% See {@link find_hooks/0} for details on the order of execution.
+%% @end
+run_hooks() ->
+    run_hooks(applications()).
+
+%% @spec run_hooks(Applications) -> ok
+%% @doc Execute setup hooks for current mode in `Applications' in order.
+%%
+%% See {@link find_hooks/0} for details on the order of execution.
+%% @end
+run_hooks(Apps) ->
+    run_hooks(mode(), Apps).
+
+%% @spec run_hooks(Mode, Applications) -> ok
+%% @doc Execute setup hooks for `Mode' in `Applications' in order
+%%
+%% Note that no assumptions can be made about which process each setup hook
+%% runs in, nor whether it runs in the same process as the previous hook.
+%% See {@link find_hooks/0} for details on the order of execution.
+%% @end
+run_hooks(Mode, Apps) ->
+    Hooks = find_hooks(Mode, Apps),
+    run_selected_hooks(Hooks).
+
+%% @spec run_selected_hooks(Hooks) -> ok
+%% @doc Execute specified setup hooks in order
+%%
+%% Exceptions are caught and printed. This might/should be improved, but the
+%% general idea is to complete as much as possible of the setup, and perhaps
+%% repair afterwards. However, the fact that something went wrong should be
+%% remembered and reflected at the end.
+%% @end
+%%
+run_selected_hooks(Hooks) ->
+    AbortOnError = check_abort_on_error(),
+    lists:foreach(
+      fun({Phase, MFAs}) ->
+              error_logger:info_msg("Setup phase ~p~n", Phase),
+              lists:foreach(fun({M, F, A}) ->
+                                    try_apply(M, F, A, AbortOnError)
+                            end, MFAs)
+      end, Hooks).
+
+check_abort_on_error() ->
+    case app_get_env(setup, abort_on_error) of
+        {ok, F} when is_boolean(F) -> F;
+        {ok, Other} ->
+            error_logger:error_msg("Invalid abort_on_error flag (~p)~n"
+                                   "Aborting...~n", Other),
+            error({invalid_abort_on_error, Other});
+        _ -> false
+    end.
+
+try_apply(M, F, A, Abort) ->
+    {_Pid, Ref} = spawn_monitor(
+                   fun() ->
+                           exit(try {ok, apply(M, F, A)}
+                                catch
+                                    Type:Exception ->
+                                        {error, {Type, Exception}}
+                                end)
+                   end),
+    receive
+        {'DOWN', Ref, _, _, Return} ->
+            case Return of
+                {ok, Result} ->
+                    report_result(Result, M, F, A);
+                {error, {Type, Exception}} ->
+                    report_error(Type, Exception, M, F, A),
+                    if Abort ->
+                            error_logger:error_msg(
+                              "Abort on error is set. Terminating sequence~n",),
+                            error(Exception);
+                       true ->
+                            ok
+                    end
+            end
+    end.
+
+report_result(Result, M, F, A) ->
+    MFAString = format_mfa(M, F, A),
+    error_logger:info_msg(MFAString ++ "-> ~p~n", Result).
+
+report_error(Type, Error, M, F, A) ->
+    ErrTypeStr = case Type of
+                     error -> "ERROR: ";
+                     throw -> "THROW: ";
+                     exit  -> "EXIT:  "
+                 end,
+    MFAString = format_mfa(M, F, A),
+    error_logger:error_msg(MFAString ++ "-> " ++ ErrTypeStr ++ "~p~n~p~n",
+                           Error, erlang:get_stacktrace()).
+
+
+format_mfa(M, F, A) ->
+    lists:flatten(atom_to_list(M),":",atom_to_list(F),
+                   "(", format_args(A), ")").
+
+format_args()         -> "";
+format_args(A)        -> format_arg(A);
+format_args(A, B | T) -> format_arg(A), "," | format_args(B | T).
+
+format_arg(A) ->
+    io_lib:fwrite("~p", A).
+
+%% @spec applications() -> atom()
+%% @doc Find all applications - either from the boot script or all loaded apps.
+%% @end
+%%
+applications() ->
+    Apps = A || {A, _, _} <- application:loaded_applications(),
+    group_applications(Apps).
+
+%% Sort apps in preorder traversal order.
+%% That is, for each "top application", all included apps follow before the
+%% next top application. Normally, there will be no included apps, in which
+%% case the list will maintain its original order.
+%%
+group_applications(Apps) ->
+    group_applications(Apps, ).
+
+group_applications(H | T, Acc) ->
+    case app_get_key(H, included_applications) of
+        {ok, } ->
+            group_applications(T, {H,}|Acc);
+        {ok, Incls} ->
+            AllIncls = all_included(Incls),
+            group_applications(T -- AllIncls,
+                               {H, AllIncls}
+                                | lists:foldl(
+                                    fun(A,Acc1) ->
+                                            lists:keydelete(A,1,Acc1)
+                                    end, Acc, AllIncls))
+    end;
+group_applications(, Acc) ->
+    unfold(lists:reverse(Acc)).
+
+unfold({A,Incl}|T) ->
+    A|Incl ++ unfold(T);
+unfold() ->
+    .
+
+all_included(H | T) ->
+    case app_get_key(H, included_applications) of
+        {ok, } ->
+            H | all_included(T);
+        {ok, Incls} ->
+            H | all_included(Incls) ++ all_included(T)
+    end;
+all_included() ->
+    .
+
+%% @spec keep_release(RelVsn) -> ok
+%% @doc Generates a release based on what's running in the current node.
+%% @end
+keep_release(RelVsn) ->
+    %% 0. Check
+    RelDir = setup_lib:releases_dir(),
+    case filelib:is_dir(TargetDir = filename:join(RelDir, RelVsn)) of
+        true -> error({target_dir_exists, TargetDir});
+        false -> verify_dir(TargetDir)
+    end,
+    %% 1. Collect info
+    Loaded = application:loaded_applications(),
+    LoadedNames = element(1,A) || A <- Loaded,
+    Running = application:which_applications(),
+    RunningNames = element(1,A) || A <- Running,
+    OnlyLoaded = LoadedNames -- RunningNames,
+    Included = lists:flatmap(
+                 fun(A) ->
+                         case app_get_key(A, included_applications) of
+                             {ok, } ->
+                                 ;
+                             {ok, As} ->
+                                 {A, As}
+                         end
+                 end, LoadedNames),
+    {Name,_} = init:script_id(),
+    Conf = 
+            {name, Name},
+            {apps, app_list(OnlyLoaded, Loaded, Included)}
+            | {root, R} || R <- current_roots() -- otp_root()
+           
+        ++ {env, env_diff(LoadedNames)},
+    setup_lib:write_script(
+      ConfF = filename:join(TargetDir, "setup.conf"), Conf),
+    setup_gen:run({name, Name}, {outdir, TargetDir}, {conf, ConfF}).
+     %% {loaded, Loaded},
+     %% {running, Running},
+     %% {only_loaded, OnlyLoaded},
+     %% {included, Included},
+     %% {env, env_diff(LoadedNames)},
+     %% {roots, current_roots() -- otp_root()},
+     %% {rel_dir, setup_lib:releases_dir()}.
+
+app_list(OnlyLoaded, AllLoaded, Included) ->
+    lists:map(
+      fun({A, _, V}) ->
+              case {lists:member(A, OnlyLoaded),
+                    lists:keyfind(A, 1, Included)} of
+                  {true,false} -> {A, V, load};
+                  {true,{_,I}} -> {A, V, load, I};
+                  {false,false} -> {A, V};
+                  {false,{_,I}} -> {A, V, I}
+              end
+      end, AllLoaded).
+
+env_diff(A|As) ->
+    AppF = filename:join(code:lib_dir(A), "ebin", atom_to_list(A) ++ ".app"),
+    LiveEnv = lists:keydelete(included_applications, 1,
+                              application:get_all_env(A)),
+    DiskEnv = fetch_env(AppF),
+    case LiveEnv -- DiskEnv of
+        _|_ = Diff ->
+            {A, Diff}|env_diff(As);
+         ->
+            env_diff(As)
+    end;
+env_diff() ->
+    .
+
+fetch_env(AppF) ->
+    case file:consult(AppF) of
+        {ok, {application,_,Terms}} ->
+            proplists:get_value(env, Terms, );
+        {error, Reason} ->
+            error({reading_app_file, AppF, Reason})
+    end.
+
+otp_root() ->
+    {ok, Root} = init:get_argument(root),
+    filename:join(Root, "lib").
+
+%% Modified from code_server:get_user_lib_dirs():
+
+%% @spec lib_dirs() -> string()
+%% @equiv union(lib_dirs("ERL_SETUP_LIBS"), lib_dirs("ERL_LIBS"))
+lib_dirs() ->
+    A = lib_dirs("ERL_SETUP_LIBS"),
+    B = lib_dirs("ERL_LIBS"),
+    A ++ (B -- A).
+
+%% @spec lib_dirs(Env::string()) -> string()
+%% @doc Returns an expanded list of application directories under a lib path
+%%
+%% This function expands the (ebin/) directories under e.g. `$ERL_SETUP_LIBS' or
+%% `$ERL_LIBS'. `$ERL_SETUP_LIB' has the same syntax and semantics as
+%% `$ERL_LIBS', but is (hopefully) only recognized by the `setup' application.
+%% This can be useful e.g. when keeping a special 'extensions' or 'plugin'
+%% root that is handled via `setup', but not treated as part of the normal
+%% 'automatic code loading path'.
+%% @end
+lib_dirs(Env) ->
+    case os:getenv(Env) of
+        L when is_list(L) ->
+            LibDirs = split_paths(L, path_separator(), , ),
+            get_user_lib_dirs_1(LibDirs);
+        false ->
+            
+    end.
+
+path_separator() ->
+    case os:type() of
+        {win32, _} -> $;;
+        _          -> $:
+    end.
+
+get_user_lib_dirs_1(Dir|DirList) ->
+    case erl_prim_loader:list_dir(Dir) of
+        {ok, Dirs} ->
+            {Paths,_Libs} = make_path(Dir, Dirs),
+            %% Only add paths trailing with ./ebin.
+            P || P <- Paths, filename:basename(P) =:= "ebin" ++
+                get_user_lib_dirs_1(DirList);
+        error ->
+            get_user_lib_dirs_1(DirList)
+    end;
+get_user_lib_dirs_1() -> .
+
+split_paths(S|T, S, Path, Paths) ->
+    split_paths(T, S, , lists:reverse(Path) | Paths);
+split_paths(C|T, S, Path, Paths) ->
+    split_paths(T, S, C|Path, Paths);
+split_paths(, _S, Path, Paths) ->
+    lists:reverse(Paths, lists:reverse(Path)).
+
+
+make_path(BundleDir, Bundles0) ->
+    Bundles = choose_bundles(Bundles0),
+    make_path(BundleDir, Bundles, , ).
+
+choose_bundles(Bundles) ->
+    ArchiveExt = archive_extension(),
+    Bs = lists:sort(create_bundle(B, ArchiveExt) || B <- Bundles),
+    FullName || {_Name,_NumVsn,FullName} <-
+                     choose(lists:reverse(Bs), , ArchiveExt).
+
+create_bundle(FullName, ArchiveExt) ->
+    BaseName = filename:basename(FullName, ArchiveExt),
+    case split(BaseName, "-") of
+        _, _|_ = Toks ->
+            VsnStr = lists:last(Toks),
+            case vsn_to_num(VsnStr) of
+                {ok, VsnNum} ->
+                    Name = join(lists:sublist(Toks, length(Toks)-1),"-"),
+                    {Name,VsnNum,FullName};
+                false ->
+                    {FullName,0,FullName}
+            end;
+        _ ->
+            {FullName,0,FullName}
+    end.
+
+%% Convert "X.Y.Z. ..." to K, L, M| ...
+vsn_to_num(Vsn) ->
+    case is_vsn(Vsn) of
+        true ->
+            {ok, list_to_integer(S) || S <- split(Vsn, ".")};
+        _  ->
+            false
+    end.
+
+is_vsn(Str) when is_list(Str) ->
+    Vsns = split(Str, "."),
+    lists:all(fun is_numstr/1, Vsns).
+
+is_numstr(Cs) ->
+    lists:all(fun (C) when $0 =< C, C =< $9 -> true;
+                  (_)                       -> false
+              end, Cs).
+
+split(Cs, S) ->
+    split1(Cs, S, ).
+
+split1(C|S, Seps, Toks) ->
+    case lists:member(C, Seps) of
+        true -> split1(S, Seps, Toks);
+        false -> split2(S, Seps, Toks, C)
+    end;
+split1(, _Seps, Toks) ->
+    lists:reverse(Toks).
+
+split2(C|S, Seps, Toks, Cs) ->
+    case lists:member(C, Seps) of
+        true -> split1(S, Seps, lists:reverse(Cs)|Toks);
+        false -> split2(S, Seps, Toks, C|Cs)
+    end;
+split2(, _Seps, Toks, Cs) ->
+    lists:reverse(lists:reverse(Cs)|Toks).
+
+join(H1, H2| T, S) ->
+    H1 ++ S ++ join(H2| T, S);
+join(H, _) ->
+    H;
+join(, _) ->
+    .
+
+choose({Name,NumVsn,NewFullName}=New|Bs, Acc, ArchiveExt) ->
+    case lists:keyfind(Name, 1, Acc) of
+        {_, NV, OldFullName} when NV =:= NumVsn ->
+            case filename:extension(OldFullName) =:= ArchiveExt of
+                false ->
+                    choose(Bs,Acc, ArchiveExt);
+                true ->
+                    Acc2 = lists:keystore(Name, 1, Acc, New),
+                    choose(Bs,Acc2, ArchiveExt)
+            end;
+        {_, _, _} ->
+            choose(Bs,Acc, ArchiveExt);
+        false ->
+            choose(Bs,{Name,NumVsn,NewFullName}|Acc, ArchiveExt)
+    end;
+choose(,Acc, _ArchiveExt) ->
+    Acc.
+
+make_path(_,,Res,Bs) ->
+    {Res,Bs};
+make_path(BundleDir,Bundle|Tail,Res,Bs) ->
+    Dir = filename:append(BundleDir,Bundle),
+    Ebin = filename:append(Dir,"ebin"),
+    %% First try with /ebin
+    case erl_prim_loader:read_file_info(Ebin) of
+        {ok,#file_info{type=directory}} ->
+            make_path(BundleDir,Tail,Ebin|Res,Bundle|Bs);
+        _ ->
+            %% Second try with archive
+            Ext = archive_extension(),
+            Base = filename:basename(Dir, Ext),
+            Ebin2 = filename:join(filename:dirname(Dir), Base ++ Ext,
+                                   Base, "ebin"),
+            Ebins =
+                case split(Base, "-") of
+                    _, _|_ = Toks ->
+                        AppName = join(lists:sublist(Toks, length(Toks)-1),"-"),
+                        Ebin3 = filename:join(filename:dirname(Dir), Base ++ Ext, AppName, "ebin"),
+                        Ebin3, Ebin2, Dir;
+                    _ ->
+                        Ebin2, Dir
+                end,
+            try_ebin_dirs(Ebins,BundleDir,Tail,Res,Bundle, Bs)
+    end.
+
+try_ebin_dirs(Ebin | Ebins,BundleDir,Tail,Res,Bundle,Bs) ->
+    case erl_prim_loader:read_file_info(Ebin) of
+        {ok,#file_info{type=directory}} ->
+            make_path(BundleDir,Tail,Ebin|Res,Bundle|Bs);
+        _ ->
+            try_ebin_dirs(Ebins,BundleDir,Tail,Res,Bundle,Bs)
+    end;
+try_ebin_dirs(,BundleDir,Tail,Res,_Bundle,Bs) ->
+    make_path(BundleDir,Tail,Res,Bs).
+
+archive_extension() ->
+    init:archive_extension().
+
+read_config_script(F, Name, Opts) ->
+    read_config_script(F, Name, , Opts).
+
+read_config_script(F, Name, Vars, Opts) ->
+    Dir = filename:dirname(F),
+    Absname = filename:absname(F),
+    case file_script(F, script_vars({'Name', Name},
+                                     {'SCRIPT', Absname},
+                                     {'CWD', filename:absname(Dir)},
+                                     {'OPTIONS', Opts} | Vars)) of
+        {ok, Conf} when is_list(Conf) ->
+            expand_config_script(Conf, Name, , Opts);
+        Error ->
+            setup_lib:abort("Error reading conf (~s): ~p~n", F, Error)
+    end.
+
+expand_config_script({include, F}|T, Name, Acc, Opts) ->
+    Incl = read_config_script(F, Name, , Opts),
+    expand_config_script(T, Name, Incl|Acc, Opts);
+expand_config_script({include, F, Vars}|T, Name, Acc, Opts) ->
+    Incl = read_config_script(F, Name, Vars, Opts),
+    expand_config_script(T, Name, Incl|Acc, Opts);
+expand_config_script({include_lib, LibF}|T, Name, Acc, Opts) ->
+    ?if_verbose(io:fwrite("include_lib: ~s~n", LibF)),
+    expand_include_lib(LibF, , T, Name, Acc, Opts);
+expand_config_script({include_lib, LibF, Vars}|T, Name, Acc, Opts) ->
+    ?if_verbose(io:fwrite("include_lib: ~s (~p)~n", LibF, Vars)),
+    expand_include_lib(LibF, Vars, T, Name, Acc, Opts);
+expand_config_script(H|T, Name, Acc, Opts) ->
+    expand_config_script(T, Name, H|Acc, Opts);
+expand_config_script(, _, Acc, _) ->
+    lists:flatten(lists:reverse(Acc)).
+
+expand_include_lib(LibF, Vars, T, Name, Acc, Opts) ->
+    Fullname = find_lib_script(LibF),
+    Incl = read_config_script(Fullname, Name, Vars, Opts),
+    expand_config_script(T, Name, Incl|Acc, Opts).
+
+find_lib_script(LibF) ->
+    case filename:split(LibF) of
+        App|Tail ->
+            ?if_verbose(io:fwrite("lib: ~s~n", App)),
+            try code_lib_dir(App) of
+                {error, bad_name} ->
+                    setup_lib:abort(
+                      "Error including conf (~s): no such lib (~s)~n",
+                      LibF, App);
+                LibDir when is_list(LibDir) ->
+                    filename:join(LibDir | Tail)
+            catch
+                error:_ ->
+                    setup_lib:abort(
+                      "Error including conf (~s): no such lib (~s)~n",
+                      LibF, App)
+            end;
+         ->
+            setup_lib:abort("Invalid include conf: no file specified~n", )
+    end.
+
+
+code_lib_dir("setup") ->
+    IsEscript = setup_lib:is_escript(),
+    case IsEscript of
+        true ->
+            filename:dirname(
+              filename:absname(
+                escript:script_name()));
+        false ->
+            code:lib_dir(setup)
+    end;
+code_lib_dir(App) when is_list(App); is_binary(App) ->
+    try code:lib_dir(binary_to_existing_atom(
+                       iolist_to_binary(App), latin1))
+    catch error:_ -> undefined
+    end.
+
+%% -- a modified version of file:script/2
+%% -- The main difference: call erl_eval:exprs() with a local_function handler
+
+file_script(File, Bs) ->
+    case file:open(File, read) of
+        {ok, Fd} ->
+            R = eval_stream(Fd, return, Bs),
+            _ = file:close(Fd),
+            R;
+        Error ->
+            Error
+    end.
+
+eval_stream(Fd, Handling, Bs) ->
+    _ = epp:set_encoding(Fd),
+    eval_stream(Fd, Handling, 1, undefined, , Bs).
+
+eval_stream(Fd, H, Line, Last, E, Bs) ->
+    eval_stream2(io:parse_erl_exprs(Fd, '', Line), Fd, H, Last, E, Bs).
+
+eval_stream2({ok,Form,EndLine}, Fd, H, Last, E, Bs0) ->
+    try erl_eval:exprs(Form, Bs0, local_func_handler()) of
+        {value,V,Bs} ->
+            eval_stream(Fd, H, EndLine, {V}, E, Bs)
+    catch Class:Reason ->
+            Error = {EndLine,?MODULE,{Class,Reason,erlang:get_stacktrace()}},
+            eval_stream(Fd, H, EndLine, Last, Error|E, Bs0)
+    end;
+eval_stream2({error,What,EndLine}, Fd, H, Last, E, Bs) ->
+    eval_stream(Fd, H, EndLine, Last, What | E, Bs);
+eval_stream2({eof,EndLine}, _Fd, H, Last, E, _Bs) ->
+    case {H, Last, E} of
+        {return, {Val}, } ->
+            {ok, Val};
+        {return, undefined, E} ->
+            {error, hd(lists:reverse(E, {EndLine,?MODULE,undefined_script}))};
+        %% {ignore, _, } ->
+        %%     ok;
+        {_, _, _|_ = E} ->
+            {error, hd(lists:reverse(E))}
+    end.
+
+%% -- end file:script/2 copy-paste
+
+local_func_handler() ->
+    {eval, fun local_func/3}.
+
+local_func(b, , Bs) ->
+    {value, erl_eval:bindings(Bs), Bs};
+local_func(eval, Params, Bs) ->
+    F|T = erl_parse:normalise(P) || P <- Params,
+    Vars = case T of
+                -> ;
+               Vs -> Vs
+           end,
+    Absname = filename:absname(F),
+    {value, file_script(F, script_vars(Vars ++ {'SCRIPT', Absname}|Bs)), Bs};
+local_func(eval_lib, Params, Bs) ->
+    LibF|T = erl_parse:normalise(P) || P <- Params,
+    try find_lib_script(LibF) of
+        Fullname ->
+            Vars = case T of
+                        -> ;
+                       Vs -> Vs
+                   end,
+            Res = file_script(Fullname, script_vars(
+                                          Vars ++ {'SCRIPT', Fullname}|Bs)),
+            {value, Res, Bs}
+    catch
+        error:_ ->
+            {value, {error, enoent}, Bs}
+    end;
+local_func(F, A, _) ->
+    erlang:error({script_undef, F, A, }).
+
+script_vars(Vs) ->
+    lists:foldl(fun({K,V}, Acc) ->
+                        erl_eval:add_binding(K, V, Acc)
+                end, erl_eval:new_bindings(), Vs).
+
+%% Unit tests
+-ifdef(TEST).
+
+setup_test_() ->
+    {foreach,
+     fun() ->
+             application:load(setup)
+     end,
+     fun(_) ->
+             application:stop(setup),
+             application:unload(setup)
+     end,
+     
+      ?_test(t_find_hooks()),
+      ?_test(t_expand_vars()),
+      ?_test(t_nested_includes())
+     }.
+
+t_find_hooks() ->
+    application:set_env(setup, '$setup_hooks',
+                        {100, {a, hook, 100,1},
+                                {a, hook, 100,2}},
+                         {200, {a, hook, 200,1}},
+                         {upgrade, {100, {a, upgrade_hook, 100,1}}},
+                         {setup, {100, {a, hook, 100,3}}},
+                         {normal, {300, {a, normal_hook, 300,1}}}
+                        ),
+    NormalHooks = find_hooks(normal),
+    {300, {a, normal_hook, 300,1}} = NormalHooks,
+    UpgradeHooks = find_hooks(upgrade),
+    {100, {a, upgrade_hook, 100,1}} = UpgradeHooks,
+    SetupHooks = find_hooks(setup),
+    {100, {a,hook,100,1},
+            {a,hook,100,2},
+            {a,hook,100,3}},
+     {200, {a,hook,200,1}} = SetupHooks,
+    ok.
+
+t_expand_vars() ->
+    %% global env
+    application:set_env(setup, vars, {"PLUS", {apply,erlang,'+',1,2}},
+                                      {"FOO", {value, {foo,1}}}),
+    %% private env, stdlib
+    application:set_env(stdlib, '$setup_vars',
+                        {"MINUS", {apply,erlang,'-',4,3}},
+                         {"BAR", {value, "bar"}}),
+    application:set_env(setup, envy, 17),
+    application:set_env(setup, v1, "/$BAR/$PLUS/$MINUS/$FOO/$env(envy)"),
+    application:set_env(setup, v2, {'$value', "$FOO"}),
+    application:set_env(setup, v3, {'$string', "$env(envy)"}),
+    application:set_env(stdlib, v1, {'$string', "$FOO"}),
+    application:set_env(stdlib, v2, {'$binary', "$FOO"}),
+    application:set_env(stdlib, v3, {"$PLUS", "$MINUS", "$BAR"}),
+    application:set_env(stdlib, v4, a|b),
+    %% $BAR and $MINUS are not in setup's context
+    {ok, "/$BAR/3/$MINUS/{foo,1}/17"} = setup:get_env(setup, v1),
+    {ok, {foo,1}} = setup:get_env(setup, v2),
+    {ok, "17"} = setup:get_env(setup, v3),
+    {ok, "{foo,1}"} = setup:get_env(stdlib, v1),
+    {ok, <<"{foo,1}">>} = setup:get_env(stdlib,v2),
+    {ok, {"3", "1", "bar"}} = setup:get_env(stdlib,v3),
+    {ok, a|b} = setup:get_env(stdlib, v4),
+    ok.
+
+t_nested_includes() ->
+    to_file_("a.config", {apps,kernel,stdlib,setup},
+                          {env,{setup,{a,1}}}),
+    to_file_("b.config", {include,"a.config"},
+                          {set_env, {setup, {a,2}}}),
+    to_file_("c.config", {include, "b.config"},
+                          {set_env, {setup, {a,3}}}),
+    {apps,kernel,stdlib,setup},
+     {env, {setup, {a,1}}},
+     {set_env, {setup, {a,2}}},
+     {set_env, {setup, {a,3}}} =
+        setup:read_config_script("c.config", nested, ).
+
+to_file_(F, Term) ->
+    {ok, Fd} = file:open(F, write),
+    try io:fwrite(Fd, "~p.~n", Term)
+    after
+        file:close(Fd)
+    end.
+
+-endif.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/src/setup_app.erl Added

@@ -0,0 +1,32 @@
+%% -*- mode: erlang; indent-tabs-mode: nil; -*-
+%%=============================================================================
+%% Copyright 2014-2016 Ulf Wiger
+%%
+%% Licensed 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(setup_app).
+-behaviour(application).
+
+-export(start/2,
+         start_phase/3,
+         stop/1).
+
+start(_Type, _Args) ->
+    setup_sup:start_link().
+
+start_phase(run_setup, _Type, ) ->
+    _ = setup_srv:run_setup(),
+    ok.
+
+stop(_) ->
+    ok.

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/src/setup_gen.erl Added

@@ -0,0 +1,958 @@
+%% -*- mode: erlang; indent-tabs-mode: nil; -*-
+%%=============================================================================
+%% Copyright 2014 Ulf Wiger
+%%
+%% Licensed 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(setup_gen).
+-export(main/1,   % escript-style
+         run/1,    % when called from within erlang
+         help/0). % prints help text.
+
+-import(setup_lib, abort/2).
+
+-define(if_verbose(Expr),
+        case get(verbose) of
+            true -> Expr;
+            _    -> ok
+        end).
+
+
+main() ->
+    help(),
+    halt(1);
+main(H) when H=="-h"; H=="-help" ->
+    help(),
+    halt(0);
+main("-" ++ _|_ = Args) ->
+    Opts = try options(Args)
+           catch
+               error:E ->
+                   abort(E, )
+           end,
+    run(Opts);
+main(Name, Config, Out| InArgs) ->
+    Opts = try options(InArgs)
+           catch
+               error:E ->
+                   abort(E, )
+           end,
+    run({name, Name}, {conf, Config}, {outdir, Out} | Opts).
+
+help() ->
+    setup_lib:help().
+
+%% @spec run(Options) -> ok
+%% @doc Generates .rel file(s) and boot scripts for a given configuration.
+%%
+%% This function reads a configuration specification and generates the
+%% files needed to start a node from an OTP boot script. Optionally, it can
+%% also generate a 'setup' script, which contains the same applications, but
+%% only loaded (except the `setup' application, if present, which is started).
+%% This way, a node can be started with all paths set, and all environment
+%% variables defined, such that a database can be created, and other setup
+%% tasks be performed.
+%%
+%% Mandatory options:
+%% * `{name, Name}'  - Name of the release (and of the .rel and .script files)
+%% * `{outdir, Dir}' - Where to put the generated files. Dir is created if not
+%%                     already present.
+%% * `{conf, Conf}'  - Config file listing apps and perhaps other options
+%% * `{relconf, File}' - can be used instead of `conf', and identifies a
+%%       reltool.config file (see {@link //reltool. `reltool'}) to be used as
+%%       system description. If a `conf' option is present, it will be used;
+%%       otherwise, a `relconf' option must be present.
+%%
+%% Additional options:
+%%
+%% * `{apps, App}' - List of applications to include in the release. Only the
+%%                     first instance of this option is considered.
+%% * `{add_apps, App}' - Adds applications to the ones given in the `apps'
+%%                         option.
+%% * `{remove_apps, Apps}' - Remove `Apps' from the list of applications.
+%% * `{sort_app, App, Before}' - Change the sort order so that `App' comes
+%%                       before `Before'. `Before' can be either an application
+%%                       name or a list of names. In the latter case, `App'
+%%                       is inserted before either of the applications in
+%%                       the list, whichever comes first.
+%% * `{include, ConfigFile}' - include options from the given file. The file
+%%                             is processed using `file:script/2'.
+%% * `{include, ConfigFile, Vars}' - as above, but passing along a list of
+%%                        variable bindings to ConfigFile.
+%% * `{include_lib, ConfigFile}' - As above, but ConfigFile is named as with
+%%                 the `-include_lib(...)' directive in Erlang source code.
+%% * `{include_lib, ConfigFile, Vars}' - as above, but passing along a list of
+%%                        variable bindings to ConfigFile.
+%% * `{sys, SysConfigFile}' - Read an existing sys.config file. The environment
+%%        found in this file may be redefined by `env' and `set_env' entries
+%%        (see below).
+%% * `{env, {App, {K,V}}}' - Environment variables for the `sys.config'
+%%        file. `setup_gen' will merge all `env' entries, where later entries
+%%        replace earlier entries (based on the environment variable name).
+%% * `{set_env, {App, {KeyPath, V}}}' - Modifies existing environment
+%%        structures, where `KeyPath' is a list of names (top name must be
+%%        an atom) describing a path in a tree structure, where each node
+%%        is either a `{Key, SubTree}' or a `{Key, Any, SubTree}' tuple. The
+%%        `set_env' function will continue into `SubTree' and either replace
+%%        the value representing the full `KeyPath' or create the remaining
+%%        subtree.
+%% * `{target, Dir}' - Where to produce the generated files. The files will
+%%        end up in `Dir/releases/Vsn/'. If a `reltool.config' file is used,
+%%        the `{target_dir, D}' option will be translated into `{target,D}'.
+%% * `{vsn, Vsn}' - System version, used to determine where to generate the
+%%        files (see `target' above).
+%% * `{root, RootDir}' - Where to look for applications. Normally, `RootDir'
+%%        should represent either `RootDir/lib/*/ebin', or `RootDir/*/ebin',
+%%        but if the option `{wild_roots,true}' is given, it can be either
+%%        an "ebin" directory, or any parent directory to "ebin" directories.
+%%        Multiple `root' options can be given. If `target' is not given
+%%        "boot variables" will be generated for each root directory in turn,
+%%        named `V1 ... Vn', then generating a relocatable boot script.
+%% * `{pa, Path}' - Prepends `Path' to the code path. Multiple `pa' options
+%%        can be given.
+%% * `{pz, Path}' - Appends `Path' to the code path. Multiple `pz' options
+%%        can be given.
+%% * `{install, true|false}' - Tells setup whether to also build "install"
+%%        scripts and config files. An install script contains the same
+%%        applications as the normal script, but only loads them, starting
+%%        only the `setup' application. This allows a system to be installed
+%%        using "setup hooks", while having all the target system code
+%%        and environment available. An "install.config" file is also created,
+%%        which, if a `{nodes, Ns}' option is given, also configures Erlang
+%%        to wait for all given nodes, and then start the `setup' application
+%%        on the first node.
+%% * `{start_setup, true|false}' - Tells whether setup should be started
+%%        automatically. The default is `true' (as it should be). The best way
+%%        to include setup, but not start it, would be to add `{setup, load}' to
+%%        the `apps' list.
+%% * `{verbose, true|false}' - (Default: `false') Turns on verbose printouts.
+%%
+%% == Application entries ==
+%%
+%% Applications can be represented in a number of different ways:
+%% * `AppName::atom()' - `setup' will search for the latest version
+%%       along the current code path.
+%% * `{App::atom(), Vsn::latest|list()}' - where `Vsn' is an explicit version
+%%       identifying the application. `latest' instructs `setup' to pick the
+%%       latest version, if several versions can be found along the path.
+%% * `{App::atom(), Type::atom()}' - where
+%%     `Type::permanent|temporary|transient|load' is the application start
+%%     type (or, in the case of 'load', no start at all).
+%% * `{App, Vsn, Type}' - see `App', `Vsn' and `Type' above
+%% * `{App, Vsn, Incl}' - where `Incl' is a list of included applications.
+%% * `{App, Vsn, Type, Incl}'
+%%
+%% == Command-line options ==
+%%
+%% The following options can be given on the command line of `setup_gen':
+%% * `-target Dir' - Equivalent to `{target, Dir}'
+%% * `-name Name'  - Equivalent to `{name, Name}'
+%% * `-root Dir'   - Equivalent to `{root, Dir}'
+%% * `-out Dir'    - Equivalent to `{outdir, Dir}'
+%% * `-relconf F'  - Equivalent to `{relconf, F}'
+%% * `-conf F'     - Equivalent to `{conf, F}'
+%% * `-install'    - Equivalent to `{install, true}'
+%% * `-sys F'      - Equivalent to `{sys, F}'
+%% * `-vsn V'      - Equivalent to `{vsn, V}'
+%% * `-pa Dir'     - Equivalent to `{pa, Dir}'
+%% * `-pz Dir'     - Equivalent to `{pa, Dir}'
+%% * `-v'          - Equivalent to `{verbose, true}'
+%%
+%% == Config File evaluation ==
+%%
+%% `setup' uses a customized version of `file:script()'. The return value
+%% from the script will be treated as a list of instructions to `setup'.
+%% Currently, a pseudo-local function, `b()' allows the script to inspect
+%% the current variable bindings, and using instructions like
+%% `{include, ConfigFile, Vars}', variables can be passed along to helper
+%% scripts. Using the pattern `{include, ConfigFile, {Key, Value}|b()}',
+%% all current variables can be passed to the helper script. Note that
+%% `setup' may override the values of variables `Name', `SCRIPT', `CWD'
+%% and `OPTIONS'. Specifically, these variables are bound to:
+%%
+%% * `Name': the name of the system being installed
+%% * `SCRIPT': the (absolute) name of the script currently being evaluated
+%% * `CWD': the current working directory when setup_gen was invoked
+%% * `OPTIONS': the options passed to the setup_gen script
+%%
+%% The following local functions are handled by the script evaluator:
+%%
+%% * `b() -> Bindings'
+%% * `eval(File) -> {ok, Result} | {error, Reason}'
+%% * `eval(File, Vars) -> {ok, Result} | {error, Reason}'
+%% * `eval_lib(File) -> {ok, Result} | {error, Reason}'
+%% * `eval_lib(File, Vars) -> {ok, Result} | {error, Reason}'
+%%
+%% The `eval/1,2' and `eval_lib/1,2' functions work like the
+%% `include' and `include_lib' instructions above, except the result is
+%% returned as a normal function return value rather than being embedded
+%% into the `setup' data. Essentially, they work like `file:script()', but
+%% with the variable bindings expected by a `setup' script and these local
+%% functions supported.
+%% @end
+%%
+run(Options) ->
+    case lists:keyfind(verbose, 1, Options) of
+        {_, true} -> put(verbose, true);
+        _ -> ignore
+    end,
+    setup_lib:determine_if_escript(),
+    ?if_verbose(io:fwrite("Options = ~p~n", Options)),
+    Config = read_config(Options),
+    ?if_verbose(io:fwrite("Config = ~p~n", Config)),
+    FullOpts = insert_config(Config, Options),
+    ?if_verbose(io:fwrite("FullOpts = ~p~n", FullOpts)),
+    {Name, OutDir, RelDir, RelVsn, GenTarget} = name_and_target(FullOpts),
+    ensure_dir(RelDir),
+    Roots = roots(FullOpts),
+    ?if_verbose(io:fwrite("Roots = ~p~n", Roots)),
+    check_config(FullOpts),
+    Env = env_vars(FullOpts),
+    InstEnv = install_env(Env, FullOpts),
+    add_paths(Roots, FullOpts),
+    Apps0 = apps(FullOpts, Env),
+    Rel = {release, {Name, RelVsn}, {erts, erts_vsn()}, A || {A,_} <- Apps0},
+    ?if_verbose(io:fwrite("Rel: ~p~n", Rel)),
+    build_target_lib(GenTarget, OutDir, Apps0),
+    copy_erts(GenTarget, OutDir),
+    in_dir(RelDir,
+           fun() ->
+                   setup_lib:write_eterm("start.rel", Rel),
+                   make_boot("start", GenTarget, Roots),
+                   setup_lib:write_eterm("sys.config", Env),
+                   if_install(FullOpts,
+                              fun() ->
+                                      InstRel = make_install_rel(Rel),
+                                      setup_lib:write_eterm(
+                                        "install.rel", InstRel),
+                                      setup_lib:write_eterm(
+                                        "install.config", InstEnv),
+                                      make_boot("install", GenTarget, Roots)
+                              end, ok),
+                   setup_lib:write_eterm("setup_gen.eterm", FullOpts)
+           end).
+
+insert_config(Conf, Options) ->
+    lists:flatmap(
+      fun({conf, _} = C) ->
+              C|Conf;
+         (Other) ->
+              Other
+      end, Options).
+
+name_and_target(FullOpts) ->
+    Name = option(name, FullOpts),
+    case proplists:get_value(target, FullOpts, false) of
+        false ->
+            RelDir = option(outdir, FullOpts),
+            RelVsn = rel_vsn(RelDir, FullOpts),
+            {Name, RelDir, RelDir, RelVsn, false};
+        TargetDir ->
+            RelVsn = option(vsn, FullOpts),
+            RelDir = filename:join(TargetDir, "releases", RelVsn),
+            case filelib:is_dir(TargetDir) of
+                true  -> abort("Target directory exists: ~s~n", TargetDir);
+                false -> ok
+            end,
+            {Name, TargetDir, RelDir, RelVsn, true}
+    end.
+
+
+build_target_lib(false, _, _) ->
+    ok;
+build_target_lib(true, Root, Apps) ->
+    LibRoot = filename:join(Root, "lib"),
+    file:make_dir(LibRoot),
+    in_dir(LibRoot,
+           fun() ->
+                   lists:foreach(
+                     fun({A, D}) ->
+                             AppName = element(1, A),
+                             AppVsn = element(2, A),
+                             AppD = atom_to_list(AppName) ++ "-" ++ AppVsn,
+                             Dir = filename:dirname(D),
+                             copy_app(Dir, AppD)
+                     end, Apps)
+           end).
+
+copy_erts(false, _) ->
+    ok;
+copy_erts(true, Root) ->
+    {ok, ErlRoot} = init:get_argument(root),
+    Erts = filelib:wildcard(filename:join(ErlRoot, "erts-*")),
+    BaseName = filename:basename(Erts),
+    file:make_dir(filename:join(Root, BaseName)),
+    Cmd = "cp -r " ++ Erts ++ "/bin " ++ Root ++ "/" ++ BaseName ++ "/",
+    os:cmd(Cmd).
+
+
+copy_app(A0, To) ->
+    file:make_dir(To),
+    os:cmd("cp -r " ++ A0 ++ "/priv " ++ To),
+    os:cmd("cp -r " ++ A0 ++ "/ebin " ++ To).
+
+
+if_install(Options, F, Else) ->
+    case proplists:get_value(install,Options,false) of
+        true ->
+            F();
+        _ ->
+            Else
+    end.
+
+options("-target"       , D|T) -> {target,D}|options(T);
+options("-name"         , N|T) -> {name, N}|options(T);
+options("-root"         , D|T) -> {root, D}|options(T);
+options("-out"          , D|T) -> {outdir, D}|options(T);
+options("-relconf"      , F|T) -> {relconf, F}|options(T);
+options("-conf"         , F|T) -> {conf, F}|options(T);
+%% options("-target_subdir", D|T) -> {target_subdir, D}|options(T);
+options("-install")            -> {install, true};
+options("-install" | "-" ++ _|_ = T) -> {install, true}|options(T);
+options("-install"      , D|T) -> {install, mk_bool(D)}|options(T);
+options("-start_setup"  , D|T) -> {start_setup, mk_bool(D)}|options(T);
+options("-sys"          , D|T) -> {sys, D}|options(T);
+options("-vsn"          , D|T) -> {vsn, D}|options(T);
+options("-pa"           , D|T) -> {pa, D}|options(T);
+options("-pz"           , D|T) -> {pz, D}|options(T);
+options("-v"               |T) -> {verbose, true}|options(T);
+options("-V" ++ VarName, ExprStr | T) ->
+    Var = list_to_atom(VarName),
+    Term = parse_term(ExprStr),
+    {var, Var, Term}|options(T);
+options(_Other|_ = L) ->
+    abort("Unknown_option: ~p~n", L);
+options() ->
+    .
+
+mk_bool(T) when T=="true" ; T=="1" -> true;
+mk_bool(F) when F=="false"; F=="0" -> false;
+mk_bool(Other) ->
+    abort("Expected truth value (~p)~n", Other).
+
+parse_term(Str) ->
+    case erl_scan:string(Str) of
+        {ok, Ts, _} ->
+            case erl_parse:parse_term(ensure_dot(Ts)) of
+                {ok, T} ->
+                    T;
+                {error,_} = EParse ->
+                    abort(EParse, )
+            end;
+        {error,_,_} = EScan ->
+            abort(EScan, )
+    end.
+
+ensure_dot(Ts) ->
+    case lists:reverse(Ts) of
+        {dot,_}|_ ->
+            Ts;
+        Rev ->
+            lists:reverse({dot,1}|Rev)
+    end.
+
+%% target_dir(RelDir, Config) ->
+%%     D = case proplists:get_value(target_subdir, Config) of
+%%          undefined ->
+%%              RelDir;
+%%          Sub ->
+%%              filename:join(RelDir, Sub)
+%%      end,
+%%     ensure_dir(D),
+%%     D.
+
+ensure_dir(D) ->
+    case filelib:is_dir(D) of
+        true ->
+            ok;
+        false ->
+            case filelib:ensure_dir(D) of
+                ok ->
+                    case file:make_dir(D) of
+                        ok ->
+                            ok;
+                        MakeErr ->
+                            abort("Could not create ~s (~p)~n", D, MakeErr)
+                    end;
+                EnsureErr ->
+                    abort("Parent of ~s could not be created or is not "
+                          "writeable (~p)~n", D, EnsureErr)
+            end
+    end.
+
+read_config(Opts) ->
+    case lists:keyfind(conf, 1, Opts) of
+        false ->
+            read_rel_config(Opts);
+        {_, F} ->
+            Name = option(name, Opts),
+            setup:read_config_script(F, Name, Opts)
+    end.
+
+read_rel_config(Opts) ->
+    case lists:keyfind(relconf, 1, Opts) of
+        {relconf, F} ->
+            Name = option(name, Opts),
+            case file:consult(F) of
+                {ok, Conf} ->
+                    ?if_verbose(io:fwrite("Relconf = ~p~n", Conf)),
+                    SysConf = option(sys, Conf),
+                    LibDirs = option(lib_dirs, SysConf),
+                    TargetOpt = rel_conf_target_dir(Conf, Opts),
+                    case {V,As} || {rel,N,V,As} <- SysConf,
+                                N == Name of
+                         ->
+                            abort("No matching 'rel' (~w) in ~s~n", Name, F);
+                        {V,Apps} ->
+                            TargetOpt ++
+                                {vsn, V},
+                                 {apps, Apps} | {root, D} || D <- LibDirs
+                    end;
+                Error ->
+                    abort("Error reading relconf ~s:~n"
+                          "~p~n", F, Error)
+            end;
+        false ->
+            abort("No usable config file~n", )
+    end.
+
+rel_conf_target_dir(Conf, Opts) ->
+    case lists:keyfind(target, 1, Opts) of
+        {_, _} ->
+            %% The 'target' option overrides whatever is in the relconf
+            ;
+        false ->
+            case lists:keyfind(target_dir, 1, Conf) of
+                false ->
+                    ;
+                {_, TargetDir} ->
+                    {target, TargetDir}
+            end
+    end.
+
+roots(Opts) ->
+    R || {root, R} <- Opts.
+
+check_config(Conf) ->
+    _ = mandatory(K, Conf) || K <- apps,
+    ok.
+
+option(K, Opts) ->
+    case lists:keyfind(K, 1, Opts) of
+        {_, V} ->
+            V;
+        false ->
+            abort("Mandatory: -~s~n", atom_to_list(K))
+    end.
+
+env_vars(Options) ->
+    Env0 = case proplists:get_value(sys, Options) of
+               undefined ->
+                   ;
+               Sys ->
+                   case file:consult(Sys) of
+                       {ok, E} ->
+                           E;
+                       {error, Reason} ->
+                           abort("Error reading ~s:~n"
+                                 "~p~n", Sys, Reason)
+                   end
+           end,
+    SetupEnv = if_install(Options, fun() -> {env, {setup,
+                                                     {conf,Options}}}
+                                   end, ),
+    lists:foldl(fun merge_env/2,
+                Env0, {K,E} || {K, E} <- Options ++ SetupEnv,
+                                K == env orelse K == set_env).
+
+install_env(Env, Options) ->
+    Dist =
+        case proplists:get_value(nodes, Options, ) of
+              -> ;
+            _ -> ;
+            _,_|_ = Nodes ->
+                {sync_nodes_mandatory, Nodes},
+                 {sync_nodes_timeout, infinity},
+                 {distributed, {setup, hd(Nodes)}}
+        end,
+    case lists:keyfind(kernel, 1, Env) of
+        false ->
+            {kernel, Dist} | Env;
+        {_, KEnv} ->
+            Env1 = Dist ++
+                E || {K,_} = E <- KEnv,
+                      not lists:member(K, sync_nodes_optional,
+                                           sync_nodes_mandatory,
+                                           sync_nodes_timeout,
+                                           distributed),
+            lists:keyreplace(kernel, 1, Env, {kernel, Env1})
+    end.
+
+merge_env({env, E}, Env) ->
+    lists:foldl(
+      fun({App, AEnv}, Acc) ->
+              case lists:keyfind(App, 1, Env) of
+                  false ->
+                      Acc ++ {App, AEnv};
+                  {_, AEnv1} ->
+                      New = {App, lists:foldl(
+                                    fun({K,V}, Acc1) ->
+                                            lists:keystore(K,1,Acc1,{K,V});
+                                       ({K,W,V}, Acc1) ->
+                                            lists:keystore(K,1,Acc1,{K,W,V})
+                                    end, AEnv1, AEnv)},
+                      lists:keyreplace(App, 1, Acc, New)
+              end
+      end, Env, E);
+merge_env({set_env, E}, Env) ->
+    lists:foldl(
+      fun({App, AEnv}, Acc) ->
+              case lists:keyfind(App, 1, Env) of
+                  false ->
+                      Acc ++ {App, merge_set_env(AEnv, )};
+                  {_, AEnv1} ->
+                      New = {App, merge_set_env(AEnv, AEnv1)},
+                      lists:keyreplace(App, 1, Acc, New)
+              end
+      end, Env, E).
+
+merge_set_env(E, E0) ->
+    lists:foldl(
+      fun({K, V}, Acc) when is_atom(K) ->
+              lists:keystore(K, 1, Acc, {K, V});
+         ({H|T, V}, Acc) ->
+              case lists:keyfind(H, 1, Acc) of
+                  false ->
+                      Acc ++ {H, mktree(T, V)};
+                  {_, Tree} ->
+                      lists:keyreplace(H, 1, Acc, {H, into_tree(T, Tree, V)});
+                  {_, V1, Tree} ->
+                      lists:keyreplace(
+                        H, 1, Acc, {H, V1, into_tree(T, Tree, V)})
+              end;
+         ({, _}, Acc) ->
+              %% allow, but ignore
+              Acc
+      end, E0, E).
+
+mktree(K, V) ->
+    {K, V};
+mktree(H|T, V) ->
+    {H, mktree(T, V)}.
+
+into_tree(K, T0, V) ->
+    lists:keystore(K, 1, T0, {K, V});
+into_tree(H|T = L, T0, V) when is_list(T0) ->
+    case lists:keyfind(H, 1, T0) of
+        false ->
+            T0 ++ mktree(L, V);
+        {_, T1} ->
+            lists:keystore(H, 1, T0, {H, into_tree(T, T1, V)});
+        {_, V1, T1} ->
+            lists:keystore(H, 1, T0, {H, V1, into_tree(T, T1, V)})
+    end;
+into_tree(_|_ = L, _, V) ->
+    mktree(L, V).
+
+
+mandatory(K, Conf) ->
+    case lists:keymember(K, 1, Conf) of
+        false ->
+            abort("missing mandatory config item: ~p~n", K);
+        true ->
+            ok
+    end.
+
+in_dir(D, F) ->
+    {ok, Old} = file:get_cwd(),
+    try file:set_cwd(D) of
+        ok ->
+            ?if_verbose(io:fwrite("entering directory ~s~n", D)),
+            F();
+        Error ->
+            abort("Error entering rel dir (~p): ~p~n", D,Error)
+    after
+        ok = file:set_cwd(Old)
+    end.
+
+-define(is_type(T), T==permanent;T==temporary;T==transient;T==load).
+
+apps(Options, Env) ->
+    %% Apps0 = proplists:get_value(apps, Options, )
+    %%     ++ lists:concat(proplists:get_all_values(add_apps, Options)),
+    {AddApps, RemoveApps} = add_remove_apps(Options, Env),
+    Apps0 = remove_apps(RemoveApps,
+                        proplists:get_value(apps, Options, ) ++ AddApps),
+    Apps1 = trim_duplicates(
+              if_install(Options,
+                         fun() ->
+                                 ensure_setup(Apps0)
+                         end, Apps0)),
+    AppNames = app_names(Apps1),
+    ?if_verbose(io:fwrite("Apps1 = ~p~n", Apps1)),
+    AppVsns = lists:flatmap(
+                fun(A) when is_atom(A) ->
+                        {V,D} = app_vsn(A),
+                        {{A, V}, D};
+                   ({A,V}) when is_list(V) ->
+                        {V1,D} = app_vsn(A, V),
+                        {{A, V1}, D};
+                   ({A,Type}) when ?is_type(Type) ->
+                        {V1,D} = app_vsn(A),
+                        {{A, V1, Type}, D};
+                   ({A,V,Type}) when ?is_type(Type) ->
+                        {V1,D} = app_vsn(A, V),
+                        {{A, V1, Type}, D};
+                   ({A,V,Incl}) when is_list(Incl) ->
+                        {V1, D} = app_vsn(A, V),
+                        expand_included(Incl, AppNames)
+                            ++ {{A, V1, Incl}, D};
+                   ({A,V,Type,Incl}) when ?is_type(Type) ->
+                        {V1, D} = app_vsn(A, V),
+                        expand_included(Incl, AppNames)
+                            ++ {{A, V1, Type, Incl}, D}
+                end, sort_apps(Options, Apps1)),
+    ?if_verbose(io:fwrite("AppVsns = ~p~n", AppVsns)),
+    %% setup_is_load_only(replace_versions(AppVsns, Apps1)).
+    case proplists:get_value(start_setup, Options, true) of
+        true -> AppVsns;
+        false ->
+            setup_is_load_only(AppVsns)
+    end.
+
+add_remove_apps(Options, _Env) ->
+    lists:foldl(
+      fun({add_apps, As}, {Incl, Excl}) ->
+              {add_to_set(As, Incl), del_from_set(As, Excl)};
+         ({remove_apps, As}, {Incl, Excl}) ->
+              {del_from_set(As, Incl), add_to_set(app_names(As), Excl)};
+         (_, Acc) ->
+              Acc
+      end, {, }, Options).
+
+sort_apps(Options, Apps) ->
+    lists:foldl(fun({sort_app, A, Before}, Acc) ->
+                        case is_in_set(A, Acc) of
+                            {true, App} ->
+                                insert_before(Acc -- App, App,
+                                              mk_set(Before));
+                            false ->
+                                abort("Cannot re-sort ~p - not found~n", A)
+                        end;
+                   (_, Acc) ->
+                        Acc
+                end, Apps, Options).
+
+insert_before(H|T, App, Before) ->
+    case is_in_set(H, Before) of
+        {true, _} ->
+            App, H|T;
+        false ->
+            H|insert_before(T, App, Before)
+    end.
+
+add_to_set(As, Set) ->
+    lists:foldl(fun(A, Acc) ->
+                        case is_in_set(A, Acc) of
+                            {true, Prev} ->
+                                lists:delete(Prev, Acc) ++ A;
+                            false ->
+                                Acc ++ A
+                        end
+                end, Set, As).
+
+del_from_set(As, Set) ->
+    lists:foldl(fun(A, Acc) ->
+                        case is_in_set(A, Acc) of
+                            {true, Prev} ->
+                                lists:delete(Prev, Acc);
+                            false ->
+                                Acc
+                        end
+                end, Set, As).
+
+%% ensure that this is a 'set' (well, at least a list)
+mk_set(Set) when is_list(Set) ->
+    Set;
+mk_set(Entry) ->
+    Entry.
+
+is_in_set(Entry, Set) ->
+    A = if is_tuple(Entry) -> element(1, Entry);
+           is_atom(Entry)  -> Entry
+        end,
+    name_in_set(A, Set).
+
+app_name(A) when is_atom(A) -> A;
+app_name(T) when is_tuple(T) -> element(1, T).
+
+app_names(As) ->
+    app_name(A) || A <- As.
+
+name_in_set(A, A|_) -> {true, A};
+name_in_set(A, H|_) when element(1,H) == A -> {true, H};
+name_in_set(A, _|T) ->
+    name_in_set(A, T);
+name_in_set(_, ) ->
+    false.
+
+
+remove_apps(Remove, Apps) ->
+    lists:filter(
+      fun(Entry) ->
+              A = case Entry of
+                      Am when is_atom(Am) -> Am;
+                      T when is_tuple(T)  -> element(1,T)
+                  end,
+              not lists:member(A, Remove)
+      end, Apps).
+
+
+
+trim_duplicates(A|As0) when is_atom(A) ->
+    As1 = Ax || Ax <- As0, Ax =/= A,
+    case lists:keymember(A, 1, As0) of
+        false ->
+            A|trim_duplicates(As1);
+        true ->
+            %% a more well-defined entry exists; use that one.
+            trim_duplicates(As1)
+    end;
+trim_duplicates(At|As0) when is_tuple(At) ->
+    %% Remove all exact duplicates
+    As1 = Ax || Ax <- As0, Ax =/= At,
+    %% If other detailed entries (though not duplicates) exist, we should
+    %% perhaps try to combine them. For now, let's just abort.
+    case Ay || Ay <- As1, element(1,Ay) == element(1,At) of
+         ->
+            At|trim_duplicates(As0);
+        _|_ = Duplicates ->
+            abort("Conflicting app entries: ~p~n", At|Duplicates)
+    end;
+trim_duplicates() ->
+    .
+
+
+expand_included(Incl, AppNames) ->
+    R = case Incl -- AppNames of
+             ->
+                ;
+            Implicit ->
+                {A, app_vsn(A), load} || A <- Implicit
+        end,
+    ?if_verbose(io:fwrite("expand_included(~p, ~p) -> ~p~n",
+                          Incl, AppNames, R)),
+    R.
+
+ensure_setup(setup|_ = As) -> As;
+ensure_setup(A|_ = As) when element(1,A) == setup -> As;
+ensure_setup(H|T) -> H|ensure_setup(T);
+ensure_setup() ->
+    setup.
+
+setup_is_load_only(Apps) ->
+    lists:map(fun({{setup,V}, D}) ->
+                      {{setup,V,load}, D};
+                 (A) ->
+                      A
+              end, Apps).
+
+add_paths(Roots, Opts) ->
+    APaths = proplists:get_all_values(pa, Opts),
+    _ =  true = code:add_patha(P) || P <- APaths ,
+
+    ZPaths = proplists:get_all_values(pz, Opts),
+    _ =  true = code:add_pathz(P) || P <- ZPaths ,
+
+    Paths = case proplists:get_value(wild_roots, Opts, false) of
+                true ->
+                    lists:foldl(fun(R, Acc) ->
+                                        expand_root(R, Acc)
+                                end, , Roots);
+                false ->
+                    lists:concat(
+                      lists:map(fun(R) ->
+                                        case filelib:wildcard(
+                                               filename:join(R, "lib/*/ebin")) of
+                                             ->
+                                                filelib:wildcard(
+                                                  filename:join(R, "*/ebin"));
+                                            Ds ->
+                                                Ds
+                                        end
+                                end, Roots))
+            end,
+    ?if_verbose(io:fwrite("Paths = ~p~n", Paths)),
+    Res = code:set_path(Paths ++ (code:get_path() -- Paths)),
+    %% Res = code:add_pathsa(Paths -- code:get_path()),
+    ?if_verbose(io:fwrite("add path Res = ~p~n", Res)).
+
+expand_root(R, Acc) ->
+    case filename:basename(R) of
+        "ebin" ->
+            R|Acc;
+        _ ->
+            case file:list_dir(R) of
+                {ok, Fs} ->
+                    lists:foldl(fun(F, Acc1) ->
+                                        expand_root(filename:join(R, F), Acc1)
+                                end, Acc, Fs);
+                {error,enotdir} ->
+                    Acc;
+                {error,_} = E ->
+                    ?if_verbose(io:fwrite("warning: ~p (~s)~n", E, R)),
+                    Acc
+            end
+    end.
+
+rel_vsn(RelDir, Options) ->
+    case proplists:get_value(vsn, Options) of
+        undefined ->
+            Dir =
+                case RelDir of
+                    "." ->
+                        {ok,Cwd} = file:get_cwd(),
+                        Cwd;
+                    D ->
+                        D
+                end,
+            filename:basename(Dir);
+        V when is_list(V) ->
+            V;
+        Other ->
+            abort("Invalid release version ~p~n", Other)
+    end.
+
+erts_vsn() ->
+    erlang:system_info(version).
+
+app_vsn(A) ->
+    app_vsn(A, latest).
+    %% AName = if is_atom(A) -> A;
+    %%            true -> element(1, A)
+    %%         end,
+    %% D = code:lib_dir(AName),
+    %% AppFile = filename:join(D, "ebin/" ++ atom_to_list(AName) ++ ".app"),
+    %% case file:consult(AppFile) of
+    %%     {ok, {application, _, Opts}} ->
+    %%         V = proplists:get_value(vsn, Opts),
+    %%         ?if_verbose(io:fwrite("app_vsn(~p) -> ~p~n", A,V)),
+    %%         V;
+    %%     Other ->
+    %%         abort("Oops reading .app file (~p): ~p~n", AppFile, Other)
+    %% end.
+
+app_vsn(A, V) ->
+    AppStr = atom_to_list(A),
+    Path = code:get_path(),
+    Found = D || D <- Path, is_app(AppStr, D),
+    Sorted = setup_lib:sort_vsns(lists:usort(Found), AppStr),
+    ?if_verbose(io:fwrite("Sorted = ~p~n", Sorted)),
+    match_app_vsn(Sorted, V, AppStr).
+
+match_app_vsn(Vsns, latest, App) ->
+    %% element(1, lists:last(Vsns));
+    case Vsns of
+         ->
+            abort("No version of ~s found~n", App);
+        _|_ ->
+            lists:last(Vsns)
+    end;
+match_app_vsn(Vsns, V, App) when is_list(V) ->
+    case Pair || {V1, _} = Pair <- Vsns,
+                V == V1 of
+        FoundV ->
+            FoundV;
+         ->
+            abort("Cannot find version ~s of ~s~n", V, App)
+    end.
+
+
+is_app(A, D) ->
+    case re:run(D, A ++ "^/*/ebin\$") of
+        {match, _} ->
+            true;
+        nomatch ->
+            false
+    end.
+
+%% replace_versions(App|Apps, H|T) ->
+%%     A = element(1, App),
+%%     V = element(2, App),
+%%     Res =
+%%         if is_atom(H) ->
+%%                 A = H,  % assertion
+%%                 {A, V};
+%%            true ->
+%%                 A = element(1, H), % assertion
+%%                 setelement(2, H, V)
+%%         end,
+%%     Res | replace_versions(Apps, T);
+%% replace_versions(, ) ->
+%%     .
+
+make_boot(Rel, GenTarget, Roots) ->
+    Path = path(Roots),
+    Vars =
+        if GenTarget -> ;
+           true ->
+                {Vs, _} = lists:mapfoldl(
+                            fun(R, N) ->
+                                    V = var_name(N),
+                                    {{V, R}, N+1}
+                            end, 1, Roots),
+                Vs
+        end,
+    ?if_verbose(io:fwrite("Path = ~p~n", Path)),
+    Opts = if GenTarget -> no_module_tests;
+              true      -> no_module_tests, local, {variables, Vars}
+           end,
+    Res = systools:make_script(Rel, {path, path(Roots)}|Opts),
+    ?if_verbose(io:fwrite("make_script() -> ~p~n", Res)).
+
+
+make_install_rel({release, R, Erts, Apps}) ->
+    Apps1 =
+        lists:map(
+          fun({setup,V,load}) ->
+                  {setup, V};
+             (A) ->
+                  case lists:member(element(1,A), stdlib,kernel,sasl) of
+                      true ->
+                          A;
+                      false ->
+                          case A of
+                              {Nm,Vsn} ->
+                                  {Nm,Vsn,load};
+                              {Nm,Vsn,Inc} when is_list(Inc) ->
+                                  {Nm,Vsn,load,Inc};
+                              _ ->
+                                  A
+                          end
+                  end
+          end, Apps),
+    %% Apps2 = case app_vsn(setup) of
+    %%          undefined ->
+    %%              Apps1;
+    %%          V ->
+    %%              Apps1 ++ {setup, V}
+    %%      end,
+    {release, R, Erts, Apps1}.
+
+
+path(Roots) ->
+    filename:join(R, "lib/*/ebin") || R <- Roots.
+
+
+var_name(N) ->
+    "V" ++ integer_to_list(N).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/src/setup_lib.erl Added

@@ -0,0 +1,192 @@
+%% -*- erlang -*-
+%%==============================================================================
+%% Copyright 2014 Ulf Wiger
+%%
+%% Licensed 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(setup_lib).
+
+-export(is_string/1,
+	 sort_vsns/2,
+	 compare_vsns/2,
+	 releases_dir/0,
+	 write_eterm/2,
+	 write_script/2,
+	 is_escript/0,
+	 determine_if_escript/0,
+	 abort/2, help/0).
+
+is_string(L) ->
+    lists:all(fun(X) when 0 =< X, X =< 255 -> true;
+                 (_) -> false
+              end, L).
+
+write_eterm(F, Term) ->
+    case file:open(F, write) of
+        {ok, Fd} ->
+            try
+                io:fwrite(Fd, "~p.~n", Term)
+            after
+                ok = file:close(Fd)
+            end;
+        Error ->
+            abort("Error writing file (~s): ~p~n", F, Error)
+    end.
+
+write_script(F, Script) ->
+    case file:open(F, write) of
+        {ok, Fd} ->
+            try
+                io:fwrite(Fd, "~p.~n", Term) || Term <- Script
+            after
+                ok = file:close(Fd)
+            end;
+        Error ->
+            abort("Error writing file (~s): ~p~n", F, Error)
+    end.
+
+abort(Fmt, Args) ->
+    E = io_lib:fwrite(Fmt, Args),
+    case is_escript() of
+        true ->
+            io:fwrite(E),
+            help(),
+            halt(1);
+        _ ->
+            erlang:error(lists:flatten(E))
+    end.
+
+is_escript() ->
+    %% Slightly dirty, but at least we know that the kernel app is loaded
+    case application:get_env(kernel, '$setup_is_escript') of
+	{ok, Flag} ->
+	    Flag;
+	_ ->
+	    false
+    end.
+
+determine_if_escript() ->
+    %% Assumes it's running in the escript main process, if running escript
+    IsEscript = initial_is_escript_(),
+    application:set_env(kernel, '$setup_is_escript', IsEscript).
+
+initial_is_escript_() ->
+    {_, ST} = process_info(self(), current_stacktrace),
+     =/= 1 || {escript,run,_,_} <- ST.
+
+
+sort_vsns(Dirs, AppStr) ->
+    AppF = AppStr ++ ".app",
+    lists:sort(fun({Va,_}, {Vb,_}) ->
+                       compare_vsns(Va, Vb)
+               end,
+               lists:foldr(
+                 fun(D, Acc) ->
+                         case file:consult(
+                                filename:join(D, AppF)) of
+                             {ok, {_, _, Attrs}} ->
+                                 {_, Vsn} = lists:keyfind(vsn, 1, Attrs),
+                                 {Vsn, D} | Acc;
+                             _ ->
+                                 Acc
+                         end
+                 end, , Dirs)).
+
+compare_vsns(V1, V2) ->
+    ToS = fun(V) ->
+                  pad_x(X) || X <- string:tokens(V, ".")
+          end,
+    ToS(V1) < ToS(V2).
+
+pad_x(S) ->
+    lists:duplicate(30 - length(S), $0) ++ flip(C) || C <- S.
+
+flip(C) when $a =< C, C =< $z -> $A + (C - $a);
+flip(C) when $A =< C, C =< $Z -> $a + (C - $A);
+flip(C) -> C.
+
+%% Almost verbatim from release_handler:init/1
+releases_dir() ->
+    {ok, Root} = init:get_argument(root),
+    {CliDir, _Masters} = is_client(),
+    case application:get_env(sasl, releases_dir) of
+	undefined ->
+	    case os:getenv("RELDIR") of
+		R when R==false; R== ->
+		    if CliDir == false ->
+			    filename:join(Root, "releases");
+		       true ->
+			    filename:join(CliDir, "releases")
+		    end;
+		RELDIR ->
+		    RELDIR
+	    end;
+	{ok, Dir} ->
+	    Dir
+    end.
+
+%% Copy-pasted from release_handler.erl
+is_client() ->
+    case application:get_env(masters) of
+	{ok, Masters} ->
+	    Alive = is_alive(),
+	    case atom_list(Masters) of
+		true when Alive == true ->
+		    case application:get_env(client_directory) of
+			{ok, ClientDir} ->
+			    case int_list(ClientDir) of
+				true ->
+				    {ClientDir, Masters};
+				_ ->
+				    exit({bad_parameter, client_directory,
+					  ClientDir})
+			    end;
+			_ ->
+			    {false, false}
+		    end;
+		_ ->
+		    exit({bad_parameter, masters, Masters})
+	    end;
+	_ ->
+	    {false, false}
+    end.
+
+atom_list(A|T) when is_atom(A) -> atom_list(T);
+atom_list()                    -> true;
+atom_list(_)                     -> false.
+
+int_list(I|T) when is_integer(I) -> int_list(T);
+int_list()                       -> true;
+int_list(_)                        -> false.
+%% ... end copy-paste
+
+
+help() ->
+    io:fwrite(
+      "Usage: escript setup_gen.beam Name Conf Outdir Options~n"
+      "   or:~n"
+      "       escript setup_gen.beam Options~n~n"
+      "Name  : Name of release (for .rel file)~n"
+      "Conf  : Name of .conf file (file:script/2 format)~n"
+      "Outdir: Where to write generated files~n~n"
+      "-name Name : Name of release (for .rel file)~n"
+      "-root Dir  : Installation root directories"
+      " (multiple -root options allowed)~n"
+      "-conf F    : setup-style Conf file~n"
+      "-relconf F : RelTool-style config file~n"
+      "-out OutDir: Where to write generated files~n"
+      "-sys F     : Name of pre-existing sys.config file~n"
+      "-vsn V     : System version (otherwise derived from outdir)~n"
+      "-install B : B:: true|false - whether to create install boot script~n"
+      "-v         : Verbose - generate lots of output~n"
+      , ).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/src/setup_srv.erl Added

@@ -0,0 +1,64 @@
+%% -*- mode: erlang; indent-tabs-mode: nil; -*-
+%%=============================================================================
+%% Copyright 2014-2016 Ulf Wiger
+%%
+%% Licensed 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(setup_srv).
+-behaviour(gen_server).
+
+-export(start_link/0).
+-export(run_setup/0).
+
+-export(init/1,
+         handle_call/3,
+         handle_cast/2,
+         handle_info/2,
+         terminate/2,
+         code_change/3).
+
+start_link() ->
+    gen_server:start_link({local, ?MODULE}, ?MODULE, , ).
+
+run_setup() ->
+    Timeout = setup:get_env(setup, run_timeout, infinity),
+    gen_server:call(?MODULE, run_setup, Timeout).
+
+init(_) ->
+    {ok, }.
+
+handle_call(run_setup, _From, S) ->
+    Mode = setup:mode(),
+    setup:run_setup(),
+    case setup:get_env(setup, stop_when_done, false) of
+        true when Mode =/= normal ->
+            spawn_link(fun stop_node/0);
+        _ ->
+            ok
+    end,
+    {reply, ok, S};
+handle_call(_, _, S) ->
+    {reply, {error, badarg}, S}.
+
+handle_cast(_, S) -> {noreply, S}.
+handle_info(_, S) -> {noreply, S}.
+terminate(_  , _) -> ok.
+
+code_change(_FromVsn, S, _Extra) ->
+    {ok, S}.
+
+stop_node() ->
+    StopDelay = setup:get_env(setup, stop_delay, 5000),
+    error_logger:info_msg("Setup stopping...(Delay=~p)~n", StopDelay),
+    timer:sleep(StopDelay),
+    rpc:eval_everywhere(init,stop,0).

osmo-diameter2gsup_0.3.0.tar.xz/_checkouts/setup/src/setup_sup.erl Added

@@ -0,0 +1,28 @@
+%% -*- mode: erlang; indent-tabs-mode: nil; -*-
+%%=============================================================================
+%% Copyright 2014-2016 Ulf Wiger
+%%
+%% Licensed 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(setup_sup).
+-behaviour(supervisor).
+
+-export(start_link/0).
+-export(init/1).
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
+
+init(_) ->
+    {ok, {{one_for_one, 3, 10}, {setup_srv, {setup_srv, start_link, },
+                                  permanent, 2000, worker, setup_srv}}}.

osmo-diameter2gsup_0.2.0.tar.xz/build_dep.tar.gz -> osmo-diameter2gsup_0.3.0.tar.xz/build_dep.tar.gz Changed

osmo-diameter2gsup_0.2.0.tar.xz/contrib/systemd/osmo_dia2gsup.service -> osmo-diameter2gsup_0.3.0.tar.xz/contrib/systemd/osmo_dia2gsup.service Changed

osmo-diameter2gsup_0.2.0.tar.xz/debian/changelog -> osmo-diameter2gsup_0.3.0.tar.xz/debian/changelog Changed

@@ -1,3 +1,41 @@
+osmo-diameter2gsup (0.3.0) unstable; urgency=medium
+
+   Alexander Couzens 
+  * gsup: implement a (re-)connect the GSUP link if it fails
+  * rebar3: define a release
+  * osmo_dia2gsup: set Origin-State-Id
+  * osmo_dia2gsup: add config option diameter_connect_timer
+
+   Oliver Smith 
+  * contrib/systemd: run as osmocom user
+  * debian/postinst: chmod +x
+  * debian/postinst: don't change /etc/osmocom
+  * debian/postinst: add checks, be verbose
+
+   Harald Welte 
+  * add COPYING file with AGPLv3 and missing license headers to source files
+  * COPYING and copyright headers: use https instead of http
+  * replace http:// urls with https:// (diameter files)
+
+   Oliver Smith 
+  * Makefile: new file
+
+   Vadim Yanitskiy 
+  * Makefile: add 'install' target, clean up debian/rules
+  * Makefile: install 'sys.config' to /etc/osmocom/osmo-dia2gsup.config
+  * osmo_dia2gsup.service: use /etc/osmocom/osmo-dia2gsup.config
+  * examples/sys.config: add default lager formatting config
+  * examples/sys.config: add pid, delete time
+  * examples: add dev.config, let 'make run' use it by default
+  * examples/{sys,dev}.config: enable colored logging
+  * diameter: fix wrong 'Vendor-Id' value (should be 3GPP)
+  * diameter: fix unused macro param in ?SERVICE
+  * diameter: drop unused ?DIA_STATS_* macros
+  * fixup: diameter: fix unused macro param in ?SERVICE
+  * diameter: assert that diameter:start_service/2 returns ok
+
+ -- Oliver Smith <osmith@sysmocom.de>  Wed, 26 Mar 2025 10:24:06 +0100
+
 osmo-diameter2gsup (0.2.0) unstable; urgency=medium
 
    Alexander Couzens

osmo-diameter2gsup_0.3.0.tar.xz/debian/postinst Added

osmo-diameter2gsup_0.2.0.tar.xz/debian/rules -> osmo-diameter2gsup_0.3.0.tar.xz/debian/rules Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_3gpp_base.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_3gpp_base.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_3gpp_ts29_061_gmb.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_3gpp_ts29_061_gmb.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_3gpp_ts29_173.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_3gpp_ts29_173.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_3gpp_ts29_212.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_3gpp_ts29_212.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_3gpp_ts29_214.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_3gpp_ts29_214.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_3gpp_ts29_229.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_3gpp_ts29_229.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_3gpp_ts29_272.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_3gpp_ts29_272.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_3gpp_ts29_329.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_3gpp_ts29_329.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_3gpp_ts32_299.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_3gpp_ts32_299.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_etsi_es283_034.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_etsi_es283_034.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc4004.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc4004.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc4005_nasreq.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc4005_nasreq.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc4006_cc.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc4006_cc.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc4072.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc4072.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc5447.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc5447.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc5778.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc5778.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc6734.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc6734.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc6942.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc6942.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc7683.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc7683.dia Changed

osmo-diameter2gsup_0.2.0.tar.xz/dia/diameter_rfc7944.dia -> osmo-diameter2gsup_0.3.0.tar.xz/dia/diameter_rfc7944.dia Changed

osmo-diameter2gsup_0.3.0.tar.xz/examples/dev.config Added

osmo-diameter2gsup_0.2.0.tar.xz/examples/sys.config -> osmo-diameter2gsup_0.3.0.tar.xz/examples/sys.config Changed

osmo-diameter2gsup_0.2.0.tar.xz/rebar.config -> osmo-diameter2gsup_0.3.0.tar.xz/rebar.config Changed

osmo-diameter2gsup_0.2.0.tar.xz/src/gsup_client.erl -> osmo-diameter2gsup_0.3.0.tar.xz/src/gsup_client.erl Changed

@@ -15,15 +15,15 @@
 % GNU General Public License for more details.
 %
 % You should have received a copy of the GNU Affero General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+% along with this program.  If not, see <https://www.gnu.org/licenses/>.
 %
 % Additional Permission under GNU AGPL version 3 section 7:
 %
 % If you modify this Program, or any covered work, by linking or
 % combining it with runtime libraries of Erlang/OTP as released by
-% Ericsson on http://www.erlang.org (or a modified version of these
+% Ericsson on https://www.erlang.org (or a modified version of these
 % libraries), containing parts covered by the terms of the Erlang Public
-% License (http://www.erlang.org/EPLICENSE), the licensors of this
+% License (https://www.erlang.org/EPLICENSE), the licensors of this
 % Program grant you additional permission to convey the resulting work
 % without the need to license the runtime libraries of Erlang/OTP under
 % the GNU Affero General Public License. Corresponding Source for a
@@ -39,9 +39,13 @@
 -include_lib("osmo_ss7/include/ipa.hrl").
 
 -define(IPAC_PROTO_EXT_GSUP,	{osmo, 5}).
+-define(GSUP_TIMEOUT_MS, 5000).
 
 -record(gsupc_state, {
-	  	socket,
+		address,
+		port,
+		ccmoptions,
+		socket,
 		ipa_pid
 	 }).
 
@@ -54,43 +58,46 @@
 %% our exported API
 %% ------------------------------------------------------------------
 
-start_link(ServerAddr, ServerPort, Options) ->
-	gen_server:start_link(?MODULE, ServerAddr, ServerPort, Options, {debug, trace}).
+start_link(ServerAddr, ServerPort, GsupName) ->
+	gen_server:start_link(?MODULE, ServerAddr, ServerPort, GsupName, {debug, trace}).
 
 %% ------------------------------------------------------------------
 %% gen_server Function Definitions
 %% ------------------------------------------------------------------
 
-init(Address, Port, Options) ->
+init(Address, Port, GsupName) ->
 	ipa_proto:init(),
 	% register the GSUP codec with the IPA core; ignore result as we might be doing this multiple times
 	ipa_proto:register_codec(?IPAC_PROTO_EXT_GSUP, fun gsup_protocol:encode/1, fun gsup_protocol:decode/1),
-	connect(Address, Port, Options).
-
-connect(Address, Port, Options) ->
 	lager:info("Connecting to GSUP HLR on IP ~s port ~p~n", Address, Port),
-	CcmOptions = #ipa_ccm_options{
-		serial_number="HSS-00-00-00-00-00-00",
-		unit_id="0/0/0",
-		mac_address="00:00:00:00:00:00",
-		location="00:00:00:00:00:00",
-		unit_type="00:00:00:00:00:00",
-		equipment_version="00:00:00:00:00:00",
-		sw_version="00:00:00:00:00:00",
-		unit_name="HSS-00-00-00-00-00-00"
-		},
-	case ipa_proto:connect(Address, Port, Options) of
+        CcmOptions = #ipa_ccm_options{
+                serial_number=GsupName,
+                unit_id="0/0/0",
+                mac_address="00:00:00:00:00:00",
+                location="00:00:00:00:00:00",
+                unit_type="00:00:00:00:00:00",
+                equipment_version="00:00:00:00:00:00",
+                sw_version="00:00:00:00:00:00",
+                unit_name=GsupName
+                },
+        State = #gsupc_state{address = Address, port = Port, ccmoptions = CcmOptions, socket = , ipa_pid = },
+        case connect(State) of
+                {ok, State2} -> {ok, State2};
+                {error, _, State2} -> {ok, State2, ?GSUP_TIMEOUT_MS}
+        end.
+
+connect(State) ->
+        #gsupc_state{address = Address, port = Port, ccmoptions = Options} = State,
+	case ipa_proto:connect(Address, Port, ) of
 		{ok, {Socket, IpaPid}} ->
-			ipa_proto:set_ccm_options(Socket, CcmOptions),
+			ipa_proto:set_ccm_options(Socket, Options),
 			lager:info("connected!~n", ),
 			true = ipa_proto:register_stream(Socket, ?IPAC_PROTO_EXT_GSUP, {process_id, self()}),
 			ipa_proto:unblock(Socket),
-			{ok, #gsupc_state{socket=Socket, ipa_pid=IpaPid}};
-		{error, Reason} ->
-			lager:error("Connecting to GSUP HLR on IP ~s port ~p failed: ~p~n", Address, Port, Reason),
-			lager:info("Reconnecting to GSUP HLR in 5s...~n", ),
-			timer:sleep(5000),
-			connect(Address, Port, Options)
+			{ok, State#gsupc_state{socket=Socket, ipa_pid=IpaPid}};
+		{error, Error} ->
+	                lager:info("Failed to GSUP HLR on IP ~s port ~p ~p~n", Address, Port, Error),
+			{error, Error, State}
 	end.
 
 % send a given GSUP message and synchronously wait for message type ExpRes or ExpErr
@@ -102,10 +109,9 @@
 	receive
 		{ipa, Socket, ?IPAC_PROTO_EXT_GSUP, GsupMsgRx = #{message_type := ExpRes, imsi := Imsi}} ->
 			{reply, GsupMsgRx, State};
-
 		{ipa, Socket, ?IPAC_PROTO_EXT_GSUP, GsupMsgRx = #{message_type := ExpErr, imsi := Imsi}} ->
 			{reply, GsupMsgRx, State}
-	after 5000 ->
+	after ?GSUP_TIMEOUT_MS ->
 		{reply, timeout, State}
 	end.
 
@@ -114,8 +120,14 @@
 	{noreply, S}.
 
 handle_info({ipa_closed, _}, S) ->
-	lager:error("GSUP connection has been closed, supervisor should reconnect us"),
-	{stop, ipa_closed, S};
+	lager:error("GSUP connection has been closed, Reconnecting in 5sec."),
+	{noreply, S, ?GSUP_TIMEOUT_MS};
+handle_info(timeout, S) ->
+	case connect(S) of
+		{ok, State} -> {noreply, State};
+		{error, _, State} -> {noreply, State, ?GSUP_TIMEOUT_MS}
+	end;
+
 handle_info(Info, S) ->
 	error_logger:error_report("unknown handle_info", {module, ?MODULE}, {info, Info}, {state, S}),
 	{noreply, S}.

osmo-diameter2gsup_0.2.0.tar.xz/src/osmo_dia2gsup.erl -> osmo-diameter2gsup_0.3.0.tar.xz/src/osmo_dia2gsup.erl Changed

@@ -1,3 +1,34 @@
+% (C) 2019 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <https://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on https://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (https://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
+
 -module(osmo_dia2gsup).
 -behavior(gen_server).
 
@@ -19,19 +50,17 @@
 
 % Diameter application definitions
 
--define(DIA_STATS_TAB, iwf_stats).
--define(DIA_STATS_COUNTERS, event_OK, event_ERR).
-
 -define(SVC_NAME, ?MODULE).
 -define(APP_ALIAS, ?MODULE).
 -define(CALLBACK_MOD, server_cb).
 -define(DIAMETER_DICT_HSS, diameter_3gpp_ts29_272).
 
--define(APPID_S6, #'diameter_base_Vendor-Specific-Application-Id'{'Vendor-Id'=10515, 'Auth-Application-Id'=16777251}).
+-define(APPID_S6, #'diameter_base_Vendor-Specific-Application-Id'{'Vendor-Id'=10415, 'Auth-Application-Id'=16777251}).
 -define(SERVICE(Name), {'Origin-Host', application:get_env(osmo_dia2gsup, origin_host, "hss.localdomain")},
 			{'Origin-Realm', application:get_env(osmo_dia2gsup, origin_realm, "localdomain")},
 			{'Vendor-Id', application:get_env(osmo_dia2gsup, vendor_id, 0)},
-			{'Product-Name', "osmo_dia2gsup"},
+			{'Origin-State-Id', diameter:origin_state_id()},
+			{'Product-Name', Name},
 			{'Auth-Application-Id', },
 			{'Vendor-Specific-Application-Id', ?APPID_S6},
 			{application,
@@ -67,12 +96,14 @@
 %% @callback gen_server
 init(State) ->
 	% DIAMETER side
-	SvcName = ?MODULE,
-	diameter:start_service(SvcName, ?SERVICE(SvcName)),
+	ProdName = atom_to_list(?MODULE),
+	ok = diameter:start_service(?SVC_NAME, ?SERVICE(ProdName)),
+
 	Ip = application:get_env(osmo_dia2gsup, diameter_ip, "127.0.0.8"),
 	Port = application:get_env(osmo_dia2gsup, diameter_port, 3868),
 	Proto = application:get_env(osmo_dia2gsup, diameter_proto, sctp),
-	listen({address, Proto, element(2,inet:parse_address(Ip)), Port}),
+	ConnectTimer = application:get_env(osmo_dia2gsup, diameter_connect_timer, 30000),
+	listen(?SVC_NAME, {address, Proto, element(2,inet:parse_address(Ip)), Port}, {timer, ConnectTimer}),
 	lager:info("Diameter HSS Application started on IP ~s, ~p port ~p~n", Ip, Proto, Port),
 	{ok, State}.
 
@@ -113,14 +144,12 @@
 %% Internal Function Definitions
 %% ------------------------------------------------------------------
 
-listen(Name, {address, Protocol, IPAddr, Port}) ->
+listen(Name, {address, Protocol, IPAddr, Port}, {timer, ConnectTimer}) ->
 	TransOpts = {transport_module, tmod(Protocol)},
 		     {transport_config, {reuseaddr, true},
-		      			 {ip, IPAddr}, {port, Port}},
+					 {ip, IPAddr}, {port, Port}},
+		     {connect_timer, ConnectTimer},
 	{ok, _} = diameter:add_transport(Name, {listen, TransOpts}).
 
-listen(Address) ->
-	listen(?SVC_NAME, Address).
-
 tmod(tcp) -> diameter_tcp;
 tmod(sctp) -> diameter_sctp.

osmo-diameter2gsup_0.2.0.tar.xz/src/osmo_dia2gsup_sup.erl -> osmo-diameter2gsup_0.3.0.tar.xz/src/osmo_dia2gsup_sup.erl Changed

osmo-diameter2gsup_0.2.0.tar.xz/src/server_cb.erl -> osmo-diameter2gsup_0.3.0.tar.xz/src/server_cb.erl Changed

@@ -1,5 +1,35 @@
--module(server_cb).
+% (C) 2019 by Harald Welte <laforge@gnumonks.org>
+%
+% All Rights Reserved
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU Affero General Public License as
+% published by the Free Software Foundation; either version 3 of the
+% License, or (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU Affero General Public License
+% along with this program.  If not, see <https://www.gnu.org/licenses/>.
+%
+% Additional Permission under GNU AGPL version 3 section 7:
+%
+% If you modify this Program, or any covered work, by linking or
+% combining it with runtime libraries of Erlang/OTP as released by
+% Ericsson on https://www.erlang.org (or a modified version of these
+% libraries), containing parts covered by the terms of the Erlang Public
+% License (https://www.erlang.org/EPLICENSE), the licensors of this
+% Program grant you additional permission to convey the resulting work
+% without the need to license the runtime libraries of Erlang/OTP under
+% the GNU Affero General Public License. Corresponding Source for a
+% non-source form of such a combination shall include the source code
+% for the parts of the runtime libraries of Erlang/OTP used as well as
+% that of the covered work.
 
+-module(server_cb).
 
 -include_lib("diameter/include/diameter.hrl").
 -include_lib("diameter/include/diameter_gen_base_rfc6733.hrl").