├── .gitignore ├── AUTHORS ├── COPYING ├── GNUmakefile.in ├── Makefile.am ├── NEWS ├── README.rst ├── TODO ├── build-helpers ├── package-version └── package-version.mk ├── configure.ac ├── erlusb ├── Makefile.am ├── c_src │ ├── driver-libusb1.c │ ├── driver.h │ ├── erlusb-ei.c │ ├── erlusb-ei.h │ ├── erlusb-log.c │ ├── erlusb-log.h │ └── erlusb-manager.c ├── include │ └── erlusb.hrl ├── src │ ├── erlusb.app.in │ ├── erlusb.erl │ ├── erlusb_app.erl │ ├── erlusb_internal.hrl │ ├── erlusb_sup.erl │ └── old_erlusb.hrl └── test │ ├── lsusb.erl │ ├── test-libusb1.cmds │ ├── test-libusb1.sh │ ├── test-lsusb.sh │ └── test-manager.sh └── m4 └── .gitignore /.gitignore: -------------------------------------------------------------------------------- 1 | *~ 2 | _build 3 | Makefile.in 4 | Makefile 5 | aclocal.m4 6 | autom4te.cache 7 | auxdir 8 | config.h.in 9 | configure 10 | INSTALL 11 | _install 12 | auxdir/compile 13 | auxdir/depcomp 14 | auxdir/install-sh 15 | auxdir/missing 16 | tests/testsuite 17 | tests/testsuite.at 18 | tests/package.m4 19 | -------------------------------------------------------------------------------- /AUTHORS: -------------------------------------------------------------------------------- 1 | Hans Ulrich Niedermann 2 | -------------------------------------------------------------------------------- /COPYING: -------------------------------------------------------------------------------- 1 | GNU LESSER GENERAL PUBLIC LICENSE 2 | Version 2.1, February 1999 3 | 4 | Copyright (C) 1991, 1999 Free Software Foundation, Inc. 5 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 6 | Everyone is permitted to copy and distribute verbatim copies 7 | of this license document, but changing it is not allowed. 8 | 9 | [This is the first released version of the Lesser GPL. It also counts 10 | as the successor of the GNU Library Public License, version 2, hence 11 | the version number 2.1.] 12 | 13 | Preamble 14 | 15 | The licenses for most software are designed to take away your 16 | freedom to share and change it. By contrast, the GNU General Public 17 | Licenses are intended to guarantee your freedom to share and change 18 | free software--to make sure the software is free for all its users. 19 | 20 | This license, the Lesser General Public License, applies to some 21 | specially designated software packages--typically libraries--of the 22 | Free Software Foundation and other authors who decide to use it. You 23 | can use it too, but we suggest you first think carefully about whether 24 | this license or the ordinary General Public License is the better 25 | strategy to use in any particular case, based on the explanations below. 26 | 27 | When we speak of free software, we are referring to freedom of use, 28 | not price. Our General Public Licenses are designed to make sure that 29 | you have the freedom to distribute copies of free software (and charge 30 | for this service if you wish); that you receive source code or can get 31 | it if you want it; that you can change the software and use pieces of 32 | it in new free programs; and that you are informed that you can do 33 | these things. 34 | 35 | To protect your rights, we need to make restrictions that forbid 36 | distributors to deny you these rights or to ask you to surrender these 37 | rights. These restrictions translate to certain responsibilities for 38 | you if you distribute copies of the library or if you modify it. 39 | 40 | For example, if you distribute copies of the library, whether gratis 41 | or for a fee, you must give the recipients all the rights that we gave 42 | you. You must make sure that they, too, receive or can get the source 43 | code. If you link other code with the library, you must provide 44 | complete object files to the recipients, so that they can relink them 45 | with the library after making changes to the library and recompiling 46 | it. And you must show them these terms so they know their rights. 47 | 48 | We protect your rights with a two-step method: (1) we copyright the 49 | library, and (2) we offer you this license, which gives you legal 50 | permission to copy, distribute and/or modify the library. 51 | 52 | To protect each distributor, we want to make it very clear that 53 | there is no warranty for the free library. Also, if the library is 54 | modified by someone else and passed on, the recipients should know 55 | that what they have is not the original version, so that the original 56 | author's reputation will not be affected by problems that might be 57 | introduced by others. 58 | 59 | Finally, software patents pose a constant threat to the existence of 60 | any free program. We wish to make sure that a company cannot 61 | effectively restrict the users of a free program by obtaining a 62 | restrictive license from a patent holder. Therefore, we insist that 63 | any patent license obtained for a version of the library must be 64 | consistent with the full freedom of use specified in this license. 65 | 66 | Most GNU software, including some libraries, is covered by the 67 | ordinary GNU General Public License. This license, the GNU Lesser 68 | General Public License, applies to certain designated libraries, and 69 | is quite different from the ordinary General Public License. We use 70 | this license for certain libraries in order to permit linking those 71 | libraries into non-free programs. 72 | 73 | When a program is linked with a library, whether statically or using 74 | a shared library, the combination of the two is legally speaking a 75 | combined work, a derivative of the original library. The ordinary 76 | General Public License therefore permits such linking only if the 77 | entire combination fits its criteria of freedom. The Lesser General 78 | Public License permits more lax criteria for linking other code with 79 | the library. 80 | 81 | We call this license the "Lesser" General Public License because it 82 | does Less to protect the user's freedom than the ordinary General 83 | Public License. It also provides other free software developers Less 84 | of an advantage over competing non-free programs. These disadvantages 85 | are the reason we use the ordinary General Public License for many 86 | libraries. However, the Lesser license provides advantages in certain 87 | special circumstances. 88 | 89 | For example, on rare occasions, there may be a special need to 90 | encourage the widest possible use of a certain library, so that it becomes 91 | a de-facto standard. To achieve this, non-free programs must be 92 | allowed to use the library. A more frequent case is that a free 93 | library does the same job as widely used non-free libraries. In this 94 | case, there is little to gain by limiting the free library to free 95 | software only, so we use the Lesser General Public License. 96 | 97 | In other cases, permission to use a particular library in non-free 98 | programs enables a greater number of people to use a large body of 99 | free software. For example, permission to use the GNU C Library in 100 | non-free programs enables many more people to use the whole GNU 101 | operating system, as well as its variant, the GNU/Linux operating 102 | system. 103 | 104 | Although the Lesser General Public License is Less protective of the 105 | users' freedom, it does ensure that the user of a program that is 106 | linked with the Library has the freedom and the wherewithal to run 107 | that program using a modified version of the Library. 108 | 109 | The precise terms and conditions for copying, distribution and 110 | modification follow. Pay close attention to the difference between a 111 | "work based on the library" and a "work that uses the library". The 112 | former contains code derived from the library, whereas the latter must 113 | be combined with the library in order to run. 114 | 115 | GNU LESSER GENERAL PUBLIC LICENSE 116 | TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 117 | 118 | 0. This License Agreement applies to any software library or other 119 | program which contains a notice placed by the copyright holder or 120 | other authorized party saying it may be distributed under the terms of 121 | this Lesser General Public License (also called "this License"). 122 | Each licensee is addressed as "you". 123 | 124 | A "library" means a collection of software functions and/or data 125 | prepared so as to be conveniently linked with application programs 126 | (which use some of those functions and data) to form executables. 127 | 128 | The "Library", below, refers to any such software library or work 129 | which has been distributed under these terms. A "work based on the 130 | Library" means either the Library or any derivative work under 131 | copyright law: that is to say, a work containing the Library or a 132 | portion of it, either verbatim or with modifications and/or translated 133 | straightforwardly into another language. (Hereinafter, translation is 134 | included without limitation in the term "modification".) 135 | 136 | "Source code" for a work means the preferred form of the work for 137 | making modifications to it. For a library, complete source code means 138 | all the source code for all modules it contains, plus any associated 139 | interface definition files, plus the scripts used to control compilation 140 | and installation of the library. 141 | 142 | Activities other than copying, distribution and modification are not 143 | covered by this License; they are outside its scope. The act of 144 | running a program using the Library is not restricted, and output from 145 | such a program is covered only if its contents constitute a work based 146 | on the Library (independent of the use of the Library in a tool for 147 | writing it). Whether that is true depends on what the Library does 148 | and what the program that uses the Library does. 149 | 150 | 1. You may copy and distribute verbatim copies of the Library's 151 | complete source code as you receive it, in any medium, provided that 152 | you conspicuously and appropriately publish on each copy an 153 | appropriate copyright notice and disclaimer of warranty; keep intact 154 | all the notices that refer to this License and to the absence of any 155 | warranty; and distribute a copy of this License along with the 156 | Library. 157 | 158 | You may charge a fee for the physical act of transferring a copy, 159 | and you may at your option offer warranty protection in exchange for a 160 | fee. 161 | 162 | 2. You may modify your copy or copies of the Library or any portion 163 | of it, thus forming a work based on the Library, and copy and 164 | distribute such modifications or work under the terms of Section 1 165 | above, provided that you also meet all of these conditions: 166 | 167 | a) The modified work must itself be a software library. 168 | 169 | b) You must cause the files modified to carry prominent notices 170 | stating that you changed the files and the date of any change. 171 | 172 | c) You must cause the whole of the work to be licensed at no 173 | charge to all third parties under the terms of this License. 174 | 175 | d) If a facility in the modified Library refers to a function or a 176 | table of data to be supplied by an application program that uses 177 | the facility, other than as an argument passed when the facility 178 | is invoked, then you must make a good faith effort to ensure that, 179 | in the event an application does not supply such function or 180 | table, the facility still operates, and performs whatever part of 181 | its purpose remains meaningful. 182 | 183 | (For example, a function in a library to compute square roots has 184 | a purpose that is entirely well-defined independent of the 185 | application. Therefore, Subsection 2d requires that any 186 | application-supplied function or table used by this function must 187 | be optional: if the application does not supply it, the square 188 | root function must still compute square roots.) 189 | 190 | These requirements apply to the modified work as a whole. If 191 | identifiable sections of that work are not derived from the Library, 192 | and can be reasonably considered independent and separate works in 193 | themselves, then this License, and its terms, do not apply to those 194 | sections when you distribute them as separate works. But when you 195 | distribute the same sections as part of a whole which is a work based 196 | on the Library, the distribution of the whole must be on the terms of 197 | this License, whose permissions for other licensees extend to the 198 | entire whole, and thus to each and every part regardless of who wrote 199 | it. 200 | 201 | Thus, it is not the intent of this section to claim rights or contest 202 | your rights to work written entirely by you; rather, the intent is to 203 | exercise the right to control the distribution of derivative or 204 | collective works based on the Library. 205 | 206 | In addition, mere aggregation of another work not based on the Library 207 | with the Library (or with a work based on the Library) on a volume of 208 | a storage or distribution medium does not bring the other work under 209 | the scope of this License. 210 | 211 | 3. You may opt to apply the terms of the ordinary GNU General Public 212 | License instead of this License to a given copy of the Library. To do 213 | this, you must alter all the notices that refer to this License, so 214 | that they refer to the ordinary GNU General Public License, version 2, 215 | instead of to this License. (If a newer version than version 2 of the 216 | ordinary GNU General Public License has appeared, then you can specify 217 | that version instead if you wish.) Do not make any other change in 218 | these notices. 219 | 220 | Once this change is made in a given copy, it is irreversible for 221 | that copy, so the ordinary GNU General Public License applies to all 222 | subsequent copies and derivative works made from that copy. 223 | 224 | This option is useful when you wish to copy part of the code of 225 | the Library into a program that is not a library. 226 | 227 | 4. You may copy and distribute the Library (or a portion or 228 | derivative of it, under Section 2) in object code or executable form 229 | under the terms of Sections 1 and 2 above provided that you accompany 230 | it with the complete corresponding machine-readable source code, which 231 | must be distributed under the terms of Sections 1 and 2 above on a 232 | medium customarily used for software interchange. 233 | 234 | If distribution of object code is made by offering access to copy 235 | from a designated place, then offering equivalent access to copy the 236 | source code from the same place satisfies the requirement to 237 | distribute the source code, even though third parties are not 238 | compelled to copy the source along with the object code. 239 | 240 | 5. A program that contains no derivative of any portion of the 241 | Library, but is designed to work with the Library by being compiled or 242 | linked with it, is called a "work that uses the Library". Such a 243 | work, in isolation, is not a derivative work of the Library, and 244 | therefore falls outside the scope of this License. 245 | 246 | However, linking a "work that uses the Library" with the Library 247 | creates an executable that is a derivative of the Library (because it 248 | contains portions of the Library), rather than a "work that uses the 249 | library". The executable is therefore covered by this License. 250 | Section 6 states terms for distribution of such executables. 251 | 252 | When a "work that uses the Library" uses material from a header file 253 | that is part of the Library, the object code for the work may be a 254 | derivative work of the Library even though the source code is not. 255 | Whether this is true is especially significant if the work can be 256 | linked without the Library, or if the work is itself a library. The 257 | threshold for this to be true is not precisely defined by law. 258 | 259 | If such an object file uses only numerical parameters, data 260 | structure layouts and accessors, and small macros and small inline 261 | functions (ten lines or less in length), then the use of the object 262 | file is unrestricted, regardless of whether it is legally a derivative 263 | work. (Executables containing this object code plus portions of the 264 | Library will still fall under Section 6.) 265 | 266 | Otherwise, if the work is a derivative of the Library, you may 267 | distribute the object code for the work under the terms of Section 6. 268 | Any executables containing that work also fall under Section 6, 269 | whether or not they are linked directly with the Library itself. 270 | 271 | 6. As an exception to the Sections above, you may also combine or 272 | link a "work that uses the Library" with the Library to produce a 273 | work containing portions of the Library, and distribute that work 274 | under terms of your choice, provided that the terms permit 275 | modification of the work for the customer's own use and reverse 276 | engineering for debugging such modifications. 277 | 278 | You must give prominent notice with each copy of the work that the 279 | Library is used in it and that the Library and its use are covered by 280 | this License. You must supply a copy of this License. If the work 281 | during execution displays copyright notices, you must include the 282 | copyright notice for the Library among them, as well as a reference 283 | directing the user to the copy of this License. Also, you must do one 284 | of these things: 285 | 286 | a) Accompany the work with the complete corresponding 287 | machine-readable source code for the Library including whatever 288 | changes were used in the work (which must be distributed under 289 | Sections 1 and 2 above); and, if the work is an executable linked 290 | with the Library, with the complete machine-readable "work that 291 | uses the Library", as object code and/or source code, so that the 292 | user can modify the Library and then relink to produce a modified 293 | executable containing the modified Library. (It is understood 294 | that the user who changes the contents of definitions files in the 295 | Library will not necessarily be able to recompile the application 296 | to use the modified definitions.) 297 | 298 | b) Use a suitable shared library mechanism for linking with the 299 | Library. A suitable mechanism is one that (1) uses at run time a 300 | copy of the library already present on the user's computer system, 301 | rather than copying library functions into the executable, and (2) 302 | will operate properly with a modified version of the library, if 303 | the user installs one, as long as the modified version is 304 | interface-compatible with the version that the work was made with. 305 | 306 | c) Accompany the work with a written offer, valid for at 307 | least three years, to give the same user the materials 308 | specified in Subsection 6a, above, for a charge no more 309 | than the cost of performing this distribution. 310 | 311 | d) If distribution of the work is made by offering access to copy 312 | from a designated place, offer equivalent access to copy the above 313 | specified materials from the same place. 314 | 315 | e) Verify that the user has already received a copy of these 316 | materials or that you have already sent this user a copy. 317 | 318 | For an executable, the required form of the "work that uses the 319 | Library" must include any data and utility programs needed for 320 | reproducing the executable from it. However, as a special exception, 321 | the materials to be distributed need not include anything that is 322 | normally distributed (in either source or binary form) with the major 323 | components (compiler, kernel, and so on) of the operating system on 324 | which the executable runs, unless that component itself accompanies 325 | the executable. 326 | 327 | It may happen that this requirement contradicts the license 328 | restrictions of other proprietary libraries that do not normally 329 | accompany the operating system. Such a contradiction means you cannot 330 | use both them and the Library together in an executable that you 331 | distribute. 332 | 333 | 7. You may place library facilities that are a work based on the 334 | Library side-by-side in a single library together with other library 335 | facilities not covered by this License, and distribute such a combined 336 | library, provided that the separate distribution of the work based on 337 | the Library and of the other library facilities is otherwise 338 | permitted, and provided that you do these two things: 339 | 340 | a) Accompany the combined library with a copy of the same work 341 | based on the Library, uncombined with any other library 342 | facilities. This must be distributed under the terms of the 343 | Sections above. 344 | 345 | b) Give prominent notice with the combined library of the fact 346 | that part of it is a work based on the Library, and explaining 347 | where to find the accompanying uncombined form of the same work. 348 | 349 | 8. You may not copy, modify, sublicense, link with, or distribute 350 | the Library except as expressly provided under this License. Any 351 | attempt otherwise to copy, modify, sublicense, link with, or 352 | distribute the Library is void, and will automatically terminate your 353 | rights under this License. However, parties who have received copies, 354 | or rights, from you under this License will not have their licenses 355 | terminated so long as such parties remain in full compliance. 356 | 357 | 9. You are not required to accept this License, since you have not 358 | signed it. However, nothing else grants you permission to modify or 359 | distribute the Library or its derivative works. These actions are 360 | prohibited by law if you do not accept this License. Therefore, by 361 | modifying or distributing the Library (or any work based on the 362 | Library), you indicate your acceptance of this License to do so, and 363 | all its terms and conditions for copying, distributing or modifying 364 | the Library or works based on it. 365 | 366 | 10. Each time you redistribute the Library (or any work based on the 367 | Library), the recipient automatically receives a license from the 368 | original licensor to copy, distribute, link with or modify the Library 369 | subject to these terms and conditions. You may not impose any further 370 | restrictions on the recipients' exercise of the rights granted herein. 371 | You are not responsible for enforcing compliance by third parties with 372 | this License. 373 | 374 | 11. If, as a consequence of a court judgment or allegation of patent 375 | infringement or for any other reason (not limited to patent issues), 376 | conditions are imposed on you (whether by court order, agreement or 377 | otherwise) that contradict the conditions of this License, they do not 378 | excuse you from the conditions of this License. If you cannot 379 | distribute so as to satisfy simultaneously your obligations under this 380 | License and any other pertinent obligations, then as a consequence you 381 | may not distribute the Library at all. For example, if a patent 382 | license would not permit royalty-free redistribution of the Library by 383 | all those who receive copies directly or indirectly through you, then 384 | the only way you could satisfy both it and this License would be to 385 | refrain entirely from distribution of the Library. 386 | 387 | If any portion of this section is held invalid or unenforceable under any 388 | particular circumstance, the balance of the section is intended to apply, 389 | and the section as a whole is intended to apply in other circumstances. 390 | 391 | It is not the purpose of this section to induce you to infringe any 392 | patents or other property right claims or to contest validity of any 393 | such claims; this section has the sole purpose of protecting the 394 | integrity of the free software distribution system which is 395 | implemented by public license practices. Many people have made 396 | generous contributions to the wide range of software distributed 397 | through that system in reliance on consistent application of that 398 | system; it is up to the author/donor to decide if he or she is willing 399 | to distribute software through any other system and a licensee cannot 400 | impose that choice. 401 | 402 | This section is intended to make thoroughly clear what is believed to 403 | be a consequence of the rest of this License. 404 | 405 | 12. If the distribution and/or use of the Library is restricted in 406 | certain countries either by patents or by copyrighted interfaces, the 407 | original copyright holder who places the Library under this License may add 408 | an explicit geographical distribution limitation excluding those countries, 409 | so that distribution is permitted only in or among countries not thus 410 | excluded. In such case, this License incorporates the limitation as if 411 | written in the body of this License. 412 | 413 | 13. The Free Software Foundation may publish revised and/or new 414 | versions of the Lesser General Public License from time to time. 415 | Such new versions will be similar in spirit to the present version, 416 | but may differ in detail to address new problems or concerns. 417 | 418 | Each version is given a distinguishing version number. If the Library 419 | specifies a version number of this License which applies to it and 420 | "any later version", you have the option of following the terms and 421 | conditions either of that version or of any later version published by 422 | the Free Software Foundation. If the Library does not specify a 423 | license version number, you may choose any version ever published by 424 | the Free Software Foundation. 425 | 426 | 14. If you wish to incorporate parts of the Library into other free 427 | programs whose distribution conditions are incompatible with these, 428 | write to the author to ask for permission. For software which is 429 | copyrighted by the Free Software Foundation, write to the Free 430 | Software Foundation; we sometimes make exceptions for this. Our 431 | decision will be guided by the two goals of preserving the free status 432 | of all derivatives of our free software and of promoting the sharing 433 | and reuse of software generally. 434 | 435 | NO WARRANTY 436 | 437 | 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO 438 | WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. 439 | EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR 440 | OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY 441 | KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE 442 | IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 443 | PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE 444 | LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME 445 | THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 446 | 447 | 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN 448 | WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY 449 | AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU 450 | FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR 451 | CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE 452 | LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING 453 | RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A 454 | FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF 455 | SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH 456 | DAMAGES. 457 | 458 | END OF TERMS AND CONDITIONS 459 | 460 | How to Apply These Terms to Your New Libraries 461 | 462 | If you develop a new library, and you want it to be of the greatest 463 | possible use to the public, we recommend making it free software that 464 | everyone can redistribute and change. You can do so by permitting 465 | redistribution under these terms (or, alternatively, under the terms of the 466 | ordinary General Public License). 467 | 468 | To apply these terms, attach the following notices to the library. It is 469 | safest to attach them to the start of each source file to most effectively 470 | convey the exclusion of warranty; and each file should have at least the 471 | "copyright" line and a pointer to where the full notice is found. 472 | 473 | 474 | Copyright (C) 475 | 476 | This library is free software; you can redistribute it and/or 477 | modify it under the terms of the GNU Lesser General Public 478 | License as published by the Free Software Foundation; either 479 | version 2.1 of the License, or (at your option) any later version. 480 | 481 | This library is distributed in the hope that it will be useful, 482 | but WITHOUT ANY WARRANTY; without even the implied warranty of 483 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 484 | Lesser General Public License for more details. 485 | 486 | You should have received a copy of the GNU Lesser General Public 487 | License along with this library; if not, write to the Free Software 488 | Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 489 | 490 | Also add information on how to contact you by electronic and paper mail. 491 | 492 | You should also get your employer (if you work as a programmer) or your 493 | school, if any, to sign a "copyright disclaimer" for the library, if 494 | necessary. Here is a sample; alter the names: 495 | 496 | Yoyodyne, Inc., hereby disclaims all copyright interest in the 497 | library `Frob' (a library for tweaking knobs) written by James Random Hacker. 498 | 499 | , 1 April 1990 500 | Ty Coon, President of Vice 501 | 502 | That's all there is to it! 503 | 504 | 505 | -------------------------------------------------------------------------------- /GNUmakefile.in: -------------------------------------------------------------------------------- 1 | include Makefile 2 | 3 | AUTORECONF ?= autoreconf 4 | AUTORECONF_OPTS ?= -vis 5 | 6 | git_version := $(shell $(top_srcdir)/build-helpers/package-version $(top_srcdir) version-stamp) 7 | ifneq ($(PACKAGE_VERSION),$(git_version)) 8 | $(info autoconf and git versions do not match: $(PACKAGE_VERSION) vs $(git_version)) 9 | $(info Removing autom4te.cache and related files and re-running autoreconf) 10 | dummy1 := $(shell rm -rf $(top_srcdir)/autom4te.cache) 11 | dummy2 := $(shell rm -f $(top_srcdir)/test/package.m4 $(top_srcdir)/test/testsuite) 12 | dummy3 := $(shell $(AUTORECONF) $(AUTORECONF_OPTS) $(top_srcdir)) 13 | endif 14 | 15 | # vim: syntax=make 16 | -------------------------------------------------------------------------------- /Makefile.am: -------------------------------------------------------------------------------- 1 | # -*- Makefile -*- 2 | 3 | SUBDIRS = $(subdirs) . erlusb 4 | 5 | ACLOCAL_AMFLAGS = -I m4 6 | 7 | EXTRA_DIST = 8 | CLEANFILES = 9 | 10 | # package version from git stuff 11 | EXTRA_DIST += GNUmakefile.in 12 | include build-helpers/package-version.mk 13 | 14 | erl_tidy: 15 | cd $(top_srcdir) && \ 16 | $(ERL) -noshell \ 17 | -eval 'erl_tidy:dir("erlusb/src",[verbose]).' \ 18 | -s erlang halt 19 | -------------------------------------------------------------------------------- /NEWS: -------------------------------------------------------------------------------- 1 | erlusb 0.5 2 | * Remove all code and tests not needed for the OTP application 3 | * Exclusively support libusb-1.0 4 | * Write Erlang code as OTP application 5 | * Improved debug logs with file name, line number, function name 6 | * Switch tarballs from lzma to xz compression 7 | * README now in rst format, and with more elaborate content. 8 | 9 | erlusb 0.4 10 | * Rudimentary libusb-1.0 support. 11 | * Only generate dist tarballs with lzma compression. 12 | * Migrate Erlang/C interface to ei API 13 | * Add skeleton file with GPS device support 14 | * Use new git tags for releases: release/erlusb-0.4 15 | 16 | erlusb 0.3 17 | * Update stuff to work in git managed source tree. 18 | 19 | erlusb 0.2.3 20 | * Introduce beginning of autotest based testsuite. 21 | 22 | erlusb 0.2.2 23 | * Introduce ERLCFLAGS and AM_ERLCFLAGS. 24 | * Use proper installation directories for erlusb library components. 25 | 26 | erlusb 0.2.1 27 | * Use Erlang macros introduced in autoconf 2.60 or 2.61 28 | 29 | erlusb 0.2.0 30 | * automake option subdir-objects 31 | * valgrind tests 32 | 33 | erlusb 0.1.1 34 | * 'make distclean' clean. 35 | 36 | erlusb 0.1.0 37 | * LGPL Licensing. 38 | * Proof-of-concept for passing libusb C data to Erlang. 39 | 40 | erlusb 0.0.4 41 | * Beefed up second erlang testcase. 42 | 43 | erlusb 0.0.3 44 | * Second erlang testcase. 45 | 46 | erlusb 0.0.2 47 | * Reorganized directories. 48 | 49 | erlusb 0.0.1 50 | * 'make distclean' clean. 51 | 52 | erlusb 0.0.0 53 | * First tests. 54 | -------------------------------------------------------------------------------- /README.rst: -------------------------------------------------------------------------------- 1 | erlusb 2 | ====== 3 | 4 | .. contents:: 5 | 6 | 7 | 8 | What is erlusb? 9 | --------------- 10 | 11 | erlusb might become an Erlang_ library with a general purpose interface 12 | to USB devices some time. 13 | 14 | As of 2009-01-21, erlusb is just a personal research project to see 15 | how to interface an USB_ device to an Erlang program, and how to do an 16 | Erlang/OTP application design implementing such an interface. 17 | 18 | The hope is that Erlang's binary pattern matching, message passing, 19 | and finite state machine support make writing device interfaces 20 | (communicating FSMs) easy, clean, and fun - as opposed to writing such 21 | interfaces in other languages. 22 | 23 | .. _Erlang: http://www.erlang.org/ 24 | .. _USB: http://www.usb.org/ 25 | 26 | 27 | 28 | What is the plan? 29 | ----------------- 30 | 31 | Reached Milestones: 32 | 33 | 0.5 Basic working OTP architecture 34 | 35 | Planned Milestones: 36 | 37 | 0.6 USB device list querying and tracking of device hotplugging 38 | 39 | 0.7 Communication with USB device (example: Garmin GPS 60) 40 | 41 | 0.8 Code generalized from Garmin access to general device access 42 | 43 | 0.9 Polishing 44 | 45 | 1.0 one dot zero! 46 | 47 | 48 | 49 | How do I build it? 50 | ------------------ 51 | 52 | Run:: 53 | 54 | $ autoreconf -ivs 55 | $ mkdir _b && cd _b 56 | $ ../configure --prefix=$PWD/../_i 57 | $ make all check install installcheck 58 | 59 | This requires that a number of software packages are installed, such 60 | as autoconf_, automake_, erlang_, gcc_, libtool_, GNU make_, and more. 61 | 62 | It might also be possible to build in the source directory 63 | ("./configure && make && make install"), but this is not tested 64 | regularly. 65 | 66 | .. _autoconf: http://www.gnu.org/software/autoconf/ 67 | .. _automake: http://www.gnu.org/software/automake/ 68 | .. _erlang: http://www.erlang.org/ 69 | .. _gcc: http://gcc.gnu.org/ 70 | .. _libtool: http://www.gnu.org/software/libtool/ 71 | .. _make: http://www.gnu.org/software/make/ 72 | 73 | 74 | 75 | What is the license? 76 | -------------------- 77 | 78 | No idea (yet). The complex2.erl and stuff are from the Erlang docs, 79 | anyway. Strong contenders for the license are LGPL and MIT/Erlang. 80 | 81 | As of 2009-01-21, the code is marked as LGPL, but that might change 82 | later, depending on many factors internal and external. 83 | 84 | 85 | 86 | Ideas 87 | ----- 88 | 89 | * gen_server for USB device access 90 | * One gen_server for each Erlang port / USB device, init/2 will open port. 91 | * handle_info/N being called by behaviour when non-OTP message is 92 | received (data from port) 93 | * USB devices being local, the usb server process only makes sense as 94 | {local, Foo} 95 | * A gen_fsm for devices might make more sense than a 96 | gen_server. Communicating with another device by messages is a 97 | classical example for communicating FSMs, after all. 98 | * Make a decision: One Erlang port (one libusb instance per USB host) 99 | for all devices, or one Erlang port (one libusb instance per USB 100 | device) for each device? 101 | 102 | 103 | 104 | Design arguments 105 | ---------------- 106 | 107 | USB interface library 108 | ~~~~~~~~~~~~~~~~~~~~~ 109 | 110 | First off, we needed to find out which underlying C API to 111 | use. Candidates included libusb-0.1_, libusb-1.0_, and openusb_. 112 | 113 | * libusb-0.1_ (or libusb-compat-0.1_) 114 | * compatible implementation for Win32 exists (libusb-win32) 115 | * no isochronous transfer mode support 116 | * very commonly used 117 | * libusb-1.0_ 118 | * implementation for Win32 is in the works 119 | * isochronous transfer mode support 120 | * very commonly used 121 | * openusb_ 122 | * does anyone use this at all? 123 | 124 | The safest bet appeared to be libusb-1.0_. It is widely used, and 125 | supports all transfer modes. So erlusb builds on libusb-1.0_. 126 | 127 | .. _libusb-0.1: http://www.libusb.org/ 128 | .. _libusb-compat-0.1: http://www.libusb.org/wiki/LibusbCompat0.1 129 | .. _libusb-1.0: http://www.libusb.org/wiki/Libusb1.0 130 | .. _openusb: http://sourceforge.net/projects/openusb/ 131 | 132 | 133 | -------------------------------------------------------------------------------- /TODO: -------------------------------------------------------------------------------- 1 | TODO: 2 | 3 | * Simplify comm protocol with Erlang port. Should make parsing and 4 | constructing messages easier. Use less string comparisons, more 5 | table indexes. 6 | 7 | * Rename erlpkg* variables to erlusb*, avoid PACKAGE_NAME in *.app 8 | files. We might want to put another Erlang app into this package, 9 | e.g. an example garmin.app. 10 | 11 | * Check parallel builds (make -j). There might be some dependencies 12 | missing and thus the parallel build might or even will fail. 13 | 14 | DONE: 15 | 16 | 17 | 18 | TODO for 0.6: 19 | 20 | 21 | 22 | DONE for 0.6: 23 | 24 | 25 | 26 | DONE for 0.5: 27 | 28 | * Verify basic communication with USB device manager (get device list) 29 | 30 | * Move APP_NAME and SERVER_NAME definitions to appropriate place. 31 | 32 | * Review whether the OTP plumbing is correct. [apparently] 33 | 34 | -------------------------------------------------------------------------------- /build-helpers/package-version: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | # Syntax: 3 | # $0 4 | # 5 | # may be relative 6 | # is relative to src/build topdir 7 | 8 | top_srcdir="${1-.}" 9 | [ -d "$top_srcdir" ] || { \ 10 | echo "Could not change to top_srcdir '$1'" >&2; \ 11 | exit 1; \ 12 | } 13 | version_stamp="${2-version-stamp}" 14 | top_srcdir=`cd "${top_srcdir}" && pwd` 15 | 16 | # If GIT_DIR is set, use it. If not, try top_srcdir/.git. 17 | if [ -n "$GIT_DIR" ]; then :; 18 | else GIT_DIR="$top_srcdir/.git"; export GIT_DIR 19 | fi 20 | 21 | cd "$top_srcdir" 22 | 23 | if [ -f "$top_srcdir/$version_stamp" ]; then # dist source tree 24 | cat "$top_srcdir/$version_stamp" | ${TR-tr} -d '\012' 25 | elif [ -d "$GIT_DIR" ]; then # git source tree 26 | git_describe=`${GIT-git} describe 2>/dev/null || echo devel` 27 | 28 | git_branch=`${GIT-git} symbolic-ref HEAD | ${SED-sed} -n 's|^refs/heads/|-|p' | ${SED-sed} 's|/|_|g'` 29 | [ "x$git_branch" = "x" ] && git_branch='-nobranch' 30 | 31 | dirtystr=-dirty 32 | [ "x$(${GIT-git} diff-files)" = "x" ] && [ "x$(${GIT-git} diff-index --cached HEAD)" = "x" ] && dirtystr= 33 | 34 | part1=`echo "$git_describe" | ${SED-sed} 's/^[a-zA-Z0-9\/-]\{1,\}-\([0-9]\{1,\}\.\)/\1/; s/-/./'` 35 | part3=$dirtystr 36 | if echo "$part1" | ${GREP-grep} -- - >/dev/null || [ -n "$part3" ]; then 37 | part2=$git_branch 38 | else 39 | part2= 40 | fi 41 | 42 | echo "${part1}${part2}${part3}" | ${TR-tr} -d '\012' 43 | else # ??? 44 | echo "devel" | ${TR-tr} -d '\012' 45 | fi 46 | -------------------------------------------------------------------------------- /build-helpers/package-version.mk: -------------------------------------------------------------------------------- 1 | BUILD_SCRIPT_DIR = build-helpers 2 | 3 | # Check that package version matches git version before creating dist tarballs 4 | dist-hook: git-version-check git-version-check-news git-version-stamp 5 | distcheck-hook: git-version-check 6 | 7 | # Note: We cannot run autogen.sh from here, because we would need some way to 8 | # restart the whole dist process from the start and there is none. 9 | EXTRA_DIST += $(top_srcdir)/$(BUILD_SCRIPT_DIR)/package-version 10 | git-version-check: 11 | @git_ver=`$(top_srcdir)/$(BUILD_SCRIPT_DIR)/package-version $(top_srcdir) version-stamp`; \ 12 | if test "x$${git_ver}" = "x$(PACKAGE_VERSION)"; then :; else \ 13 | echo "ERROR: PACKAGE_VERSION and 'git describe' version do not match:"; \ 14 | echo " current 'git describe' version: $${git_ver}"; \ 15 | echo " current PACKAGE_VERSION: $(PACKAGE_VERSION)"; \ 16 | rm -rf "$(top_srcdir)/autom4te.cache"; \ 17 | if test -f "$(top_srcdir)/autogen.sh"; then \ 18 | echo "Update PACKAGE_VERSION by running $(top_srcdir)/autogen.sh."; \ 19 | else \ 20 | echo "Update PACKAGE_VERSION by running autoreconf(1)."; \ 21 | fi; \ 22 | exit 1; \ 23 | fi 24 | 25 | # FIXME: NEWS check uses ${foo%%-*} POSIX shell, tested 26 | # with bash, dash, busybox. 27 | git-version-check-news: 28 | @git_ver=`$(top_srcdir)/$(BUILD_SCRIPT_DIR)/package-version $(top_srcdir) version-stamp`; \ 29 | gv_xyz="$${git_ver%%-*}"; \ 30 | gv_xy="$${gv_xyz%.*}"; \ 31 | case `sed 1q $(top_srcdir)/NEWS` in \ 32 | "$(PACKAGE_TARNAME) $${gv_xyz}") : ;; \ 33 | "$(PACKAGE_TARNAME) $${gv_xy}.x") : ;; \ 34 | "$(PACKAGE_TARNAME) $${gv_xy}.*") : ;; \ 35 | *) \ 36 | echo "NEWS not updated for version $${git_ver%%-*}; not releasing" 1>&2; \ 37 | exit 1;; \ 38 | esac 39 | 40 | # Version stamp files can only exist in tarball source trees. 41 | # 42 | # So there is no need to generate them anywhere else or to clean them 43 | # up anywhere. 44 | git-version-stamp: 45 | echo "$(PACKAGE_VERSION)" > "$(distdir)/version-stamp" 46 | 47 | -------------------------------------------------------------------------------- /configure.ac: -------------------------------------------------------------------------------- 1 | AC_PREREQ(2.61) dnl -*- Autoconf -*- 2 | AC_INIT([Erlang USB device interface], 3 | [m4_esyscmd([./build-helpers/package-version . version-stamp])], 4 | [hun@n-dimensional.de], 5 | [erlusb]) 6 | AC_CONFIG_SRCDIR([erlusb/src/erlusb_app.erl]) 7 | AC_CONFIG_HEADER([config.h]) 8 | AC_CONFIG_AUX_DIR([auxdir]) 9 | AC_CONFIG_MACRO_DIR([m4]) 10 | dnl Please not that we cannot use -Werror for Automake 11 | dnl unfortunately. The reason is that erlusb/Makefile.am is still 12 | dnl relying on a significant number of GNU make-isms which generate 13 | dnl warnings in Automake. 14 | AM_INIT_AUTOMAKE([ 15 | -Wall 16 | 1.11 17 | no-dist-gzip dist-xz 18 | foreign 19 | filename-length-max=99 20 | subdir-objects 21 | ]) 22 | 23 | dnl Simplified version number 24 | dnl Change something like 0.4.4-gd77d781-feature_otp-architecture to 0.4.4 25 | AC_SUBST([EU_PACKAGE_VERSION], [`echo "$PACKAGE_VERSION" | sed 's/-.*//'`]) 26 | 27 | AC_MSG_NOTICE([looking for compilers and tools]) 28 | 29 | # Checks for programs. 30 | AC_PROG_CC 31 | 32 | dnl We potentially need libtool to link against an uninstalled version 33 | dnl of libusb-1.0. 34 | LT_INIT 35 | 36 | AM_PROG_CC_C_O 37 | AC_ERLANG_NEED_ERLC 38 | AC_ERLANG_NEED_ERL 39 | AC_ERLANG_SUBST_ROOT_DIR 40 | AC_ERLANG_SUBST_LIB_DIR 41 | m4_pattern_forbid([^PKG_PROG_PKG_CONFIG])dnl 42 | PKG_PROG_PKG_CONFIG() 43 | 44 | # Checks for libraries. 45 | AC_MSG_NOTICE([checking for Erlang library locations]) 46 | AC_ERLANG_CHECK_LIB([stdlib], 47 | [], 48 | [AC_MSG_ERROR([stdlib was not found!])]) 49 | AC_ERLANG_CHECK_LIB([erl_interface], 50 | [], 51 | [AC_MSG_ERROR([erl_interface was not found!])]) 52 | AC_SUBST([ERL_INTERFACE_CPPFLAGS], 53 | ["-I\$(ERLANG_LIB_DIR_erl_interface)/include]") 54 | AC_SUBST([ERL_INTERFACE_LIBS], 55 | ["\$(ERLANG_LIB_DIR_erl_interface)/lib/liberl_interface.a \$(ERLANG_LIB_DIR_erl_interface)/lib/libei.a"]) 56 | 57 | AC_ERLANG_SUBST_INSTALL_LIB_SUBDIR([erlusb], [${EU_PACKAGE_VERSION}]) 58 | AC_SUBST([erlpkgrootdir], ["\$(ERLANG_INSTALL_LIB_DIR_erlusb)"]) 59 | dnl 60 | AC_SUBST([erlpkgcsrcdir], ["\$(erlpkgrootdir)/c_src"]) 61 | AC_SUBST([erlpkgebindir], ["\$(erlpkgrootdir)/ebin"]) 62 | AC_SUBST([erlpkgincludedir], ["\$(erlpkgrootdir)/include"]) 63 | AC_SUBST([erlpkgprivdir], ["\$(erlpkgrootdir)/priv"]) 64 | AC_SUBST([erlpkgsrcdir], ["\$(erlpkgrootdir)/src"]) 65 | AC_SUBST([erlpkgtestdir], ["\$(erlpkgrootdir)/test"]) 66 | 67 | dnl Missing: -Werror 68 | AC_SUBST([AM_CFLAGS], ["-Wall -Wextra -Wno-long-long -Wno-pointer-sign -pedantic"]) 69 | AC_SUBST([AM_CPPFLAGS], ["-I\$(top_srcdir)/src"]) 70 | dnl Missing: -hybrid 71 | AC_SUBST([AM_ERLCFLAGS], ["-v +debuginfo"]) 72 | 73 | AC_MSG_NOTICE([checking for C libs]) 74 | 75 | PKG_CHECK_MODULES([LIBUSB_10], [libusb-1.0], 76 | [have_libusb_10=yes], 77 | [have_libusb_10=no]) 78 | AM_CONDITIONAL([HAVE_LIBUSB_10], [test "x$have_libusb_10" = "xyes"]) 79 | 80 | # Checks for header files. 81 | 82 | # Checks for typedefs, structures, and compiler characteristics. 83 | dnl FIXME: check that sizeof(long) >= sizeof(int) 84 | dnl FIXME: check that sizeof(long) >= sizeof(size_t) 85 | 86 | # Checks for library functions. 87 | 88 | # Make sure the versions are always accurate 89 | AC_CONFIG_FILES([GNUmakefile]) 90 | 91 | # Subpackages 92 | 93 | # Output files 94 | AC_CONFIG_FILES([Makefile]) 95 | AC_CONFIG_FILES([erlusb/Makefile]) 96 | AC_OUTPUT 97 | 98 | dnl Be nice to user. 99 | cat< "ebin/erlusb.app" 103 | 104 | all-local: $(erlpkgpriv_PROGRAMS) 105 | mkdir -p priv 106 | for p in $(erlpkgpriv_PROGRAMS); do \ 107 | cp -p "$$p" "priv/$$p"; \ 108 | done 109 | 110 | distclean-local: 111 | rm -f priv/erlusb*.log 112 | for p in $(erlpkgpriv_PROGRAMS); do rm -f "priv/$$p"; done 113 | -------------------------------------------------------------------------------- /erlusb/c_src/driver-libusb1.c: -------------------------------------------------------------------------------- 1 | /* driver-libusb1.c - libusb1 specific part of Erlang USB interface 2 | * Copyright (C) 2006,2009 Hans Ulrich Niedermann 3 | * 4 | * This library is free software; you can redistribute it and/or 5 | * modify it under the terms of the GNU Lesser General Public 6 | * License as published by the Free Software Foundation; either 7 | * version 2.1 of the License, or (at your option) any later version. 8 | * 9 | * This library is distributed in the hope that it will be useful, 10 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 | * Lesser General Public License for more details. 13 | * 14 | * You should have received a copy of the GNU Lesser General Public 15 | * License along with this library; if not, write to the Free Software 16 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 17 | */ 18 | 19 | #include 20 | 21 | #include "driver.h" 22 | 23 | #include 24 | 25 | #include 26 | #include 27 | 28 | #include "erlusb-ei.h" 29 | 30 | 31 | static libusb_context *context = NULL; 32 | 33 | 34 | static 35 | void 36 | driver_init() 37 | { 38 | libusb_init(&context); 39 | } 40 | 41 | 42 | static 43 | void 44 | driver_exit() 45 | { 46 | libusb_exit(context); 47 | context=NULL; 48 | } 49 | 50 | 51 | static 52 | void 53 | ei_x_encode_usb_string(ei_x_buff *wb, 54 | /* libusb_device_handle *hdl, */ 55 | uint8_t index) 56 | { 57 | /* 58 | char buf[256]; 59 | 60 | if (index && 61 | (0 <= libusb_get_string_descriptor_ascii(hdl, index, 62 | buf, sizeof(buf)))) { 63 | CHECK_EI(ei_x_encode_tuple_header(wb, 2)); 64 | CHECK_EI(ei_x_encode_uint(wb, index)); 65 | CHECK_EI(ei_x_encode_string(wb, buf)); 66 | } else { 67 | */ 68 | CHECK_EI(ei_x_encode_uint(wb, index)); 69 | /* } */ 70 | } 71 | 72 | 73 | static 74 | void 75 | ei_x_encode_device(ei_x_buff *wb, 76 | libusb_device *dev) 77 | { 78 | struct libusb_device_descriptor desc; 79 | struct libusb_device_descriptor *descriptor=&desc; 80 | 81 | /* 82 | libusb_device_handle *hdl; 83 | 84 | if (0!=libusb_open(dev, &hdl)) { 85 | ei_x_encode_atom(wb, "cannot_open_libusb_device"); 86 | return; 87 | } 88 | */ 89 | 90 | if (0!=libusb_get_device_descriptor(dev, descriptor)) { 91 | ei_x_encode_tuple_header(wb, 2); 92 | ei_x_encode_atom(wb, "error"); 93 | ei_x_encode_atom(wb, "libusb_get_device_descriptor"); 94 | return; 95 | } 96 | 97 | CHECK_EI(ei_x_encode_tuple_header(wb, 15)); 98 | 99 | CHECK_EI(ei_x_encode_atom(wb, "usb_device_descriptor")); 100 | CHECK_EI(ei_x_encode_uint(wb, descriptor->bLength)); 101 | CHECK_EI(ei_x_encode_uint(wb, descriptor->bDescriptorType)); 102 | CHECK_EI(ei_x_encode_uint(wb, descriptor->bcdUSB)); 103 | CHECK_EI(ei_x_encode_uint(wb, descriptor->bDeviceClass)); 104 | 105 | CHECK_EI(ei_x_encode_uint(wb, descriptor->bDeviceSubClass)); 106 | CHECK_EI(ei_x_encode_uint(wb, descriptor->bDeviceProtocol)); 107 | CHECK_EI(ei_x_encode_uint(wb, descriptor->bMaxPacketSize0)); 108 | CHECK_EI(ei_x_encode_uint(wb, descriptor->idVendor)); 109 | CHECK_EI(ei_x_encode_uint(wb, descriptor->idProduct)); 110 | 111 | CHECK_EI(ei_x_encode_uint(wb, descriptor->bcdDevice)); 112 | ei_x_encode_usb_string(wb, /* hdl, */ descriptor->iManufacturer); 113 | ei_x_encode_usb_string(wb, /* hdl, */ descriptor->iProduct); 114 | ei_x_encode_usb_string(wb, /* hdl, */ descriptor->iSerialNumber); 115 | CHECK_EI(ei_x_encode_uint(wb, descriptor->bNumConfigurations)); 116 | } 117 | 118 | 119 | static 120 | void 121 | ei_x_encode_all_devices(ei_x_buff *wb) 122 | { 123 | libusb_device **list; 124 | ssize_t cnt = libusb_get_device_list(NULL, &list); 125 | ssize_t i = 0; 126 | if (cnt < 0) { 127 | ei_x_encode_tuple_header(wb, 2); 128 | ei_x_encode_atom(wb, "error"); 129 | ei_x_encode_atom(wb, "libusb_get_device_list"); 130 | } else { 131 | for (i = 0; i < cnt; i++) { 132 | libusb_device *device = list[i]; 133 | ei_x_encode_list_header(wb, 1); 134 | ei_x_encode_device(wb, device); 135 | } 136 | ei_x_encode_empty_list(wb); 137 | libusb_free_device_list(list, 1); 138 | } 139 | } 140 | 141 | 142 | static 143 | void 144 | ei_x_encode_send_packet(ei_x_buff *wb, 145 | void *packet, 146 | long len) 147 | { 148 | struct libusb_device *device = NULL; 149 | libusb_device_handle *devhdl = NULL; 150 | int configuration = 0; 151 | assert(device); 152 | assert(0 <= libusb_open(device, &devhdl)); 153 | assert(devhdl); 154 | assert(0 <= libusb_claim_interface(devhdl, configuration)); 155 | /* FIXME: eventually call libusb_release_interface as well */ 156 | /* FIXME: Actually send the packet */ 157 | packet = packet; 158 | len = len; 159 | ei_x_encode_tuple_header(wb, 2); 160 | ei_x_encode_atom(wb, "not_implemented_yet"); 161 | ei_x_encode_atom(wb, "send_packet"); 162 | } 163 | 164 | 165 | erlusb_driver_t driver = { 166 | .name = "libusb-1.0", 167 | .init = driver_init, 168 | .exit = driver_exit, 169 | .get_device_list = ei_x_encode_all_devices, 170 | .send_packet = ei_x_encode_send_packet 171 | }; 172 | -------------------------------------------------------------------------------- /erlusb/c_src/driver.h: -------------------------------------------------------------------------------- 1 | /* driver.h - backend specific part of Erlang USB interface 2 | * Copyright (C) 2006,2009 Hans Ulrich Niedermann 3 | * 4 | * This library is free software; you can redistribute it and/or 5 | * modify it under the terms of the GNU Lesser General Public 6 | * License as published by the Free Software Foundation; either 7 | * version 2.1 of the License, or (at your option) any later version. 8 | * 9 | * This library is distributed in the hope that it will be useful, 10 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 | * Lesser General Public License for more details. 13 | * 14 | * You should have received a copy of the GNU Lesser General Public 15 | * License along with this library; if not, write to the Free Software 16 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 17 | */ 18 | 19 | #ifndef DRIVER_H 20 | #define DRIVER_H 21 | 22 | #include 23 | #include 24 | 25 | typedef struct { 26 | char *name; 27 | void (*init)(void); 28 | void (*exit)(void); 29 | void (*get_device_list)(ei_x_buff *wb); 30 | void (*send_packet)(ei_x_buff *wb, 31 | void *packet, 32 | long len); 33 | } erlusb_driver_t; 34 | 35 | extern erlusb_driver_t driver; 36 | 37 | #endif /* !DRIVER_H */ 38 | -------------------------------------------------------------------------------- /erlusb/c_src/erlusb-ei.c: -------------------------------------------------------------------------------- 1 | /* erlusb-ei.c - ei utility functions 2 | * Copyright (C) 2009 Hans Ulrich Niedermann 3 | * 4 | * This library is free software; you can redistribute it and/or 5 | * modify it under the terms of the GNU Lesser General Public 6 | * License as published by the Free Software Foundation; either 7 | * version 2.1 of the License, or (at your option) any later version. 8 | * 9 | * This library is distributed in the hope that it will be useful, 10 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 | * Lesser General Public License for more details. 13 | * 14 | * You should have received a copy of the GNU Lesser General Public 15 | * License along with this library; if not, write to the Free Software 16 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 17 | */ 18 | 19 | #include "erlusb-ei.h" 20 | 21 | 22 | int 23 | ei_x_encode_uint(ei_x_buff *wb, 24 | unsigned int uint) 25 | { 26 | return ei_x_encode_long(wb, (long)(uint)); /* FIXME: signs etc? */ 27 | } 28 | -------------------------------------------------------------------------------- /erlusb/c_src/erlusb-ei.h: -------------------------------------------------------------------------------- 1 | /* erlusb-ei.h - ei utility macros and functions 2 | * Copyright (C) 2009 Hans Ulrich Niedermann 3 | * 4 | * This library is free software; you can redistribute it and/or 5 | * modify it under the terms of the GNU Lesser General Public 6 | * License as published by the Free Software Foundation; either 7 | * version 2.1 of the License, or (at your option) any later version. 8 | * 9 | * This library is distributed in the hope that it will be useful, 10 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 | * Lesser General Public License for more details. 13 | * 14 | * You should have received a copy of the GNU Lesser General Public 15 | * License along with this library; if not, write to the Free Software 16 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 17 | */ 18 | 19 | #ifndef ERLUSB_EI_H 20 | #define ERLUSB_EI_H 21 | 22 | #include 23 | 24 | #include 25 | #include 26 | 27 | #include "erlusb-log.h" 28 | 29 | extern 30 | int 31 | ei_x_encode_uint(ei_x_buff *wb, 32 | unsigned int uint); 33 | 34 | #define CHECK_EI(call) \ 35 | do { \ 36 | int ret = (call); \ 37 | if (ret != 0) { \ 38 | log_printf("error running %s: returned %d\n", \ 39 | #call, ret); \ 40 | exit(17); \ 41 | } \ 42 | } while (0) 43 | 44 | 45 | #endif /* ! ERLUSB_EI_H */ 46 | -------------------------------------------------------------------------------- /erlusb/c_src/erlusb-log.c: -------------------------------------------------------------------------------- 1 | /* erlusb-log.c - simple logging mechanism for debugging 2 | * Copyright (C) 2009 Hans Ulrich Niedermann 3 | * 4 | * This library is free software; you can redistribute it and/or 5 | * modify it under the terms of the GNU Lesser General Public 6 | * License as published by the Free Software Foundation; either 7 | * version 2.1 of the License, or (at your option) any later version. 8 | * 9 | * This library is distributed in the hope that it will be useful, 10 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 | * Lesser General Public License for more details. 13 | * 14 | * You should have received a copy of the GNU Lesser General Public 15 | * License along with this library; if not, write to the Free Software 16 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 17 | */ 18 | 19 | #include 20 | #include 21 | #include 22 | 23 | #include "erlusb-log.h" 24 | #include 25 | 26 | 27 | static FILE *logfile = NULL; 28 | 29 | 30 | void 31 | log_init() 32 | { 33 | logfile = fopen("erlusb.log", "a"); 34 | setvbuf(logfile, NULL, _IONBF, 0); 35 | LOGF("opened\n"); 36 | } 37 | 38 | 39 | void 40 | log_close() 41 | { 42 | LOGF("finished\n"); 43 | fclose(logfile); 44 | } 45 | 46 | 47 | void 48 | log_printf(const char *format, ...) 49 | { 50 | va_list ap, aq; 51 | va_start(ap, format); 52 | va_copy(aq, ap); 53 | vfprintf(logfile, format, aq); 54 | va_end(aq); 55 | va_end(ap); 56 | } 57 | 58 | 59 | static 60 | void 61 | dump_data(FILE *fp, const char *data, const size_t len) 62 | { 63 | size_t row; 64 | for (row=0; 16*row ei_print_term(logfile, buff, &index)) { 111 | fprintf(logfile, "error: could not decode term\n"); 112 | return; 113 | } 114 | fprintf(logfile, "\n"); 115 | } 116 | -------------------------------------------------------------------------------- /erlusb/c_src/erlusb-log.h: -------------------------------------------------------------------------------- 1 | /* erlusb-log.h - simple logging mechanism for debugging 2 | * Copyright (C) 2009 Hans Ulrich Niedermann 3 | * 4 | * This library is free software; you can redistribute it and/or 5 | * modify it under the terms of the GNU Lesser General Public 6 | * License as published by the Free Software Foundation; either 7 | * version 2.1 of the License, or (at your option) any later version. 8 | * 9 | * This library is distributed in the hope that it will be useful, 10 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 | * Lesser General Public License for more details. 13 | * 14 | * You should have received a copy of the GNU Lesser General Public 15 | * License along with this library; if not, write to the Free Software 16 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 17 | */ 18 | 19 | #ifndef ERLUSB_LOG_H 20 | #define ERLUSB_LOG_H 21 | 22 | #include 23 | #include 24 | 25 | #if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L) 26 | # define LOGF(...) \ 27 | do { \ 28 | const char *const slash = strrchr(__FILE__, '/'); \ 29 | const char *const filename = (slash)?(slash+1):(__FILE__); \ 30 | log_printf("%s:%d: %s(): ", \ 31 | filename, __LINE__, __FUNCTION__); \ 32 | log_printf(__VA_ARGS__); \ 33 | } while (0) 34 | #elif defined(__GNUC__) && (__GNUC__ >= 2) 35 | # define LOGF(format, args...) \ 36 | do { \ 37 | const char *const slash = strrchr(__FILE__, '/'); \ 38 | const char *const filename = (slash)?(slash+1):(__FILE__); \ 39 | log_printf("%s:%d: %s(): ", \ 40 | filename, __LINE__, __FUNCTION__); \ 41 | log_printf(format, ##args); \ 42 | } while (0) 43 | #else 44 | # error Need stdc-like or GNU-like variadic macros 45 | #endif 46 | 47 | extern 48 | void 49 | log_printf(const char *format, ...); 50 | 51 | extern 52 | void 53 | log_data(const char *data, const size_t len); 54 | 55 | extern 56 | void 57 | log_init(); 58 | 59 | extern 60 | void 61 | log_close(); 62 | 63 | extern 64 | void 65 | log_buff_term(const char *buff); 66 | 67 | #endif /* !ERLUSB_LOG_H */ 68 | -------------------------------------------------------------------------------- /erlusb/c_src/erlusb-manager.c: -------------------------------------------------------------------------------- 1 | /* erlusb-manager.c - Erlang interface to libusb device manager 2 | * Copyright (C) 2006,2009,2010 Hans Ulrich Niedermann 3 | * 4 | * This library is free software; you can redistribute it and/or 5 | * modify it under the terms of the GNU Lesser General Public 6 | * License as published by the Free Software Foundation; either 7 | * version 2.1 of the License, or (at your option) any later version. 8 | * 9 | * This library is distributed in the hope that it will be useful, 10 | * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 | * Lesser General Public License for more details. 13 | * 14 | * You should have received a copy of the GNU Lesser General Public 15 | * License along with this library; if not, write to the Free Software 16 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 17 | */ 18 | 19 | #include 20 | #include 21 | #include 22 | 23 | #include 24 | #include 25 | 26 | #include "driver.h" 27 | #include "erlusb-ei.h" 28 | #include "erlusb-log.h" 29 | 30 | 31 | typedef unsigned char byte; 32 | 33 | 34 | int write_exact(byte *buf, int len); 35 | int read_exact(byte *buf, size_t size, int len); 36 | int read_cmd(byte *buf, size_t size); 37 | int write_cmd(byte *buf, int len); 38 | 39 | 40 | #define DRIVER(fun, call) \ 41 | do { \ 42 | if (driver.fun) { \ 43 | driver.call; \ 44 | } else { \ 45 | ei_x_encode_tuple_header(wb, 3); \ 46 | ei_x_encode_atom(wb, "driver"); \ 47 | ei_x_encode_atom(wb, "unsupported_function"); \ 48 | ei_x_encode_atom(wb, atom); \ 49 | } \ 50 | } while (0) 51 | 52 | 53 | int main() { 54 | byte rbuf[1<<16]; 55 | int readlen = -1; 56 | 57 | log_init(); 58 | 59 | assert(driver.name); 60 | assert(driver.init); 61 | assert(driver.exit); 62 | driver.init(); 63 | 64 | LOGF("init done, using driver %s\n", driver.name); 65 | 66 | while ((readlen = read_cmd(rbuf, sizeof(rbuf))) > 0) { 67 | ei_x_buff write_buffer; 68 | ei_x_buff *wb = &write_buffer; 69 | int wb_empty_index; 70 | int version=-1; 71 | int index=0; 72 | int arity=-1; 73 | int type=-1, size=-1; 74 | char atom[MAXATOMLEN+1]; 75 | atom[0] = '\0'; 76 | LOGF("read message\n"); 77 | log_data(rbuf, readlen); 78 | log_buff_term(rbuf); 79 | CHECK_EI(ei_decode_version(rbuf, &index, &version)); 80 | LOGF("version: %d=0x%x\n", version, version); 81 | CHECK_EI(ei_get_type(rbuf, &index, &type, &size)); 82 | LOGF("type of received message: " 83 | "index=%d, type=%d=0x%x='%c', size=%d\n", 84 | index, type, type, type, size); 85 | CHECK_EI(ei_decode_tuple_header(rbuf, &index, &arity)); 86 | LOGF("decoded tuple header: index=%d, arity=%d\n", index, arity); 87 | CHECK_EI(ei_decode_atom(rbuf, &index, atom)); 88 | LOGF("decoded atom: index=%d, atom=%s\n", index, atom); 89 | 90 | CHECK_EI(ei_x_new_with_version(wb)); 91 | wb_empty_index = wb->index; 92 | 93 | LOGF("checking message: %s\n", atom); 94 | if (0) { 95 | /* nothing */ 96 | } else if (strncmp(atom, "send_packet", 12) == 0) { 97 | long endpoint = -1; 98 | int type; 99 | int size; 100 | long len; 101 | void *packet; 102 | CHECK_EI(ei_decode_long(rbuf, &index, &endpoint)); 103 | CHECK_EI(ei_get_type(rbuf, &index, &type, &size)); 104 | assert(type == ERL_BINARY_EXT); 105 | packet = malloc(size); 106 | assert(packet != NULL); 107 | CHECK_EI(ei_decode_binary(rbuf, &index, packet, &len)); 108 | DRIVER(send_packet, send_packet(wb, packet, len)); 109 | free(packet); 110 | } else if (strncmp(atom, "get_device_list", 16) == 0) { 111 | DRIVER(get_device_list, get_device_list(wb)); 112 | } else if (strncmp(atom, "test-0", 7) == 0) { 113 | CHECK_EI(ei_x_encode_tuple_header(wb, 2)); 114 | CHECK_EI(ei_x_encode_atom(wb, "driver")); 115 | CHECK_EI(ei_x_encode_atom(wb, driver.name)); 116 | } else if (strncmp(atom, "test-1", 7) == 0) { 117 | CHECK_EI(ei_x_encode_string(wb, "Humpf, Mops, Oerks!")); 118 | } else if (strncmp(atom, "test-2", 7) == 0) { 119 | CHECK_EI(ei_x_encode_string_len(wb, "Humpf, Mops, Oerks!", 13)); 120 | } else if (strncmp(atom, "test-3", 7) == 0) { 121 | CHECK_EI(ei_x_encode_list_header(wb, 3)); 122 | CHECK_EI(ei_x_encode_string(wb, "Humpf")); 123 | CHECK_EI(ei_x_encode_string(wb, "Mops")); 124 | CHECK_EI(ei_x_encode_string(wb, "Oerks")); 125 | CHECK_EI(ei_x_encode_empty_list(wb)); 126 | } else if (strncmp(atom, "close", 6) == 0) { 127 | CHECK_EI(ei_x_encode_atom(wb, "closed")); 128 | } else { 129 | CHECK_EI(ei_x_encode_tuple_header(wb, 2)); 130 | CHECK_EI(ei_x_encode_atom(wb, "unknown_function")); 131 | CHECK_EI(ei_x_encode_atom(wb, atom)); 132 | } 133 | 134 | if (wb->index > wb_empty_index) { 135 | /* OK */ 136 | } else { 137 | LOGF("no message to write back\n"); 138 | CHECK_EI(ei_x_encode_tuple_header(wb, 3)); 139 | CHECK_EI(ei_x_encode_atom(wb, "internal_error")); 140 | CHECK_EI(ei_x_encode_atom(wb, "no_message_for")); 141 | CHECK_EI(ei_x_encode_atom(wb, atom)); 142 | } 143 | 144 | LOGF("writing message: wb->buffsz=%d wb->index=%d\n", 145 | wb->buffsz, wb->index); 146 | log_data(wb->buff, wb->index); 147 | log_buff_term(wb->buff); 148 | write_cmd(wb->buff, wb->index); 149 | LOGF("wrote message\n"); 150 | 151 | CHECK_EI(ei_x_free(wb)); 152 | } 153 | 154 | driver.exit(); 155 | log_close(); 156 | return 0; 157 | } 158 | 159 | 160 | int read_cmd(byte *buf, size_t size) 161 | { 162 | int len; 163 | 164 | if (read_exact(buf, size, 2) != 2) 165 | return(-1); 166 | len = (buf[0] << 8) | buf[1]; 167 | return read_exact(buf, size, len); 168 | } 169 | 170 | 171 | int write_cmd(byte *buf, int len) 172 | { 173 | byte li; 174 | 175 | li = (len >> 8) & 0xff; 176 | write_exact(&li, 1); 177 | 178 | li = len & 0xff; 179 | write_exact(&li, 1); 180 | 181 | return write_exact(buf, len); 182 | } 183 | 184 | 185 | int read_exact(byte *buf, size_t size, int len) 186 | { 187 | int i, got=0; 188 | 189 | if (((size_t)len)>size) 190 | return -1; 191 | 192 | do { 193 | if ((i = read(0, buf+got, len-got)) <= 0) 194 | return(i); 195 | got += i; 196 | } while (got 4 | %%% Description : 5 | %%% 6 | %%% Created : 18 Jan 2010 by Hans Ulrich Niedermann 7 | %%%------------------------------------------------------------------- 8 | -module(erlusb). 9 | 10 | -behaviour(gen_server). 11 | 12 | %% API 13 | -export([start_link/0]). 14 | 15 | %% Service API 16 | -export([get_device_list/0]). 17 | 18 | %% gen_server callbacks 19 | -export([init/1, handle_call/3, handle_cast/2, handle_info/2, 20 | terminate/2, code_change/3]). 21 | 22 | -include("erlusb_internal.hrl"). 23 | 24 | -record(state, {manager_port}). 25 | 26 | 27 | %%==================================================================== 28 | %% Service API 29 | %%==================================================================== 30 | 31 | get_device_list() -> 32 | gen_server:call(?MODULE, get_device_list). 33 | 34 | 35 | %%==================================================================== 36 | %% API 37 | %%==================================================================== 38 | %%-------------------------------------------------------------------- 39 | %% Function: start_link() -> {ok,Pid} | ignore | {error,Error} 40 | %% Description: Starts the server 41 | %%-------------------------------------------------------------------- 42 | start_link() -> 43 | gen_server:start_link({local, ?MODULE}, ?MODULE, [], []). 44 | 45 | %%==================================================================== 46 | %% gen_server callbacks 47 | %%==================================================================== 48 | 49 | %%-------------------------------------------------------------------- 50 | %% Function: init(Args) -> {ok, State} | 51 | %% {ok, State, Timeout} | 52 | %% ignore | 53 | %% {stop, Reason} 54 | %% Description: Initiates the server 55 | %%-------------------------------------------------------------------- 56 | init([]) -> 57 | Prog = "erlusb-manager", 58 | PrivDir = code:priv_dir(?APP_NAME), 59 | ExtProg = filename:join(PrivDir, Prog), 60 | ManagerPort = open_port({spawn, ExtProg}, 61 | [ 62 | {cd, PrivDir}, % is there a better dir to run in? 63 | %% {env, [{'PATH'...}]}, 64 | use_stdio, 65 | {packet, 2}, 66 | hide, 67 | binary 68 | ]), 69 | {ok, #state{manager_port=ManagerPort}}. 70 | 71 | %%-------------------------------------------------------------------- 72 | %% Function: %% handle_call(Request, From, State) -> {reply, Reply, State} | 73 | %% {reply, Reply, State, Timeout} | 74 | %% {noreply, State} | 75 | %% {noreply, State, Timeout} | 76 | %% {stop, Reason, Reply, State} | 77 | %% {stop, Reason, State} 78 | %% Description: Handling call messages 79 | %%-------------------------------------------------------------------- 80 | handle_call(get_device_list, _From, State) -> 81 | #state{manager_port=ManagerPort} = State, 82 | ManagerPort ! {self(), {command, term_to_binary({get_device_list})}}, 83 | receive 84 | {ManagerPort, {data, Data}} -> 85 | {reply, {ok, binary_to_term(Data)}, State}; 86 | {'EXIT', ManagerPort, Reason} -> 87 | {stop, {port_terminated, Reason}, State} 88 | after 2000 -> 89 | {stop, timeout_waiting_for_port, State} 90 | end. 91 | 92 | %%-------------------------------------------------------------------- 93 | %% Function: handle_cast(Msg, State) -> {noreply, State} | 94 | %% {noreply, State, Timeout} | 95 | %% {stop, Reason, State} 96 | %% Description: Handling cast messages 97 | %%-------------------------------------------------------------------- 98 | handle_cast(Msg, State) -> 99 | {stop, {unhandled_cast, Msg}, State}. 100 | 101 | %%-------------------------------------------------------------------- 102 | %% Function: handle_info(Info, State) -> {noreply, State} | 103 | %% {noreply, State, Timeout} | 104 | %% {stop, Reason, State} 105 | %% Description: Handling all non call/cast messages 106 | %%-------------------------------------------------------------------- 107 | handle_info(Info, State) -> 108 | {stop, {unhandled_info, Info}, State}. 109 | 110 | %%-------------------------------------------------------------------- 111 | %% Function: terminate(Reason, State) -> void() 112 | %% Description: This function is called by a gen_server when it is about to 113 | %% terminate. It should be the opposite of Module:init/1 and do any necessary 114 | %% cleaning up. When it returns, the gen_server terminates with Reason. 115 | %% The return value is ignored. 116 | %%-------------------------------------------------------------------- 117 | terminate(_Reason, _State) -> 118 | ok. 119 | 120 | %%-------------------------------------------------------------------- 121 | %% Func: code_change(OldVsn, State, Extra) -> {ok, NewState} 122 | %% Description: Convert process state when code is changed 123 | %%-------------------------------------------------------------------- 124 | code_change(_OldVsn, State, _Extra) -> 125 | {ok, State}. 126 | 127 | %%-------------------------------------------------------------------- 128 | %%% Internal functions 129 | %%-------------------------------------------------------------------- 130 | -------------------------------------------------------------------------------- /erlusb/src/erlusb_app.erl: -------------------------------------------------------------------------------- 1 | %%%------------------------------------------------------------------- 2 | %%% File : erlusb_app.erl 3 | %%% Author : Hans Ulrich Niedermann 4 | %%% Description : 5 | %%% 6 | %%% Created : 18 Jan 2010 by Hans Ulrich Niedermann 7 | %%%------------------------------------------------------------------- 8 | -module(erlusb_app). 9 | 10 | -behaviour(application). 11 | 12 | %% Application callbacks 13 | -export([start/2, stop/1]). 14 | 15 | %%==================================================================== 16 | %% Application callbacks 17 | %%==================================================================== 18 | %%-------------------------------------------------------------------- 19 | %% Function: start(Type, StartArgs) -> {ok, Pid} | 20 | %% {ok, Pid, State} | 21 | %% {error, Reason} 22 | %% Description: This function is called whenever an application 23 | %% is started using application:start/1,2, and should start the processes 24 | %% of the application. If the application is structured according to the 25 | %% OTP design principles as a supervision tree, this means starting the 26 | %% top supervisor of the tree. 27 | %%-------------------------------------------------------------------- 28 | start(_Type, StartArgs) -> 29 | case erlusb_sup:start_link(StartArgs) of 30 | {ok, Pid} -> 31 | {ok, Pid}; 32 | Error -> 33 | Error 34 | end. 35 | 36 | %%-------------------------------------------------------------------- 37 | %% Function: stop(State) -> void() 38 | %% Description: This function is called whenever an application 39 | %% has stopped. It is intended to be the opposite of Module:start/2 and 40 | %% should do any necessary cleaning up. The return value is ignored. 41 | %%-------------------------------------------------------------------- 42 | stop(_State) -> 43 | ok. 44 | 45 | %%==================================================================== 46 | %% Internal functions 47 | %%==================================================================== 48 | -------------------------------------------------------------------------------- /erlusb/src/erlusb_internal.hrl: -------------------------------------------------------------------------------- 1 | %% Internal definitions 2 | 3 | -define(APP_NAME, erlusb). 4 | -------------------------------------------------------------------------------- /erlusb/src/erlusb_sup.erl: -------------------------------------------------------------------------------- 1 | %%%------------------------------------------------------------------- 2 | %%% File : erlusb_sup.erl 3 | %%% Author : Hans Ulrich Niedermann 4 | %%% Description : 5 | %%% 6 | %%% Created : 18 Jan 2010 by Hans Ulrich Niedermann 7 | %%%------------------------------------------------------------------- 8 | -module(erlusb_sup). 9 | 10 | -behaviour(supervisor). 11 | 12 | %% API 13 | -export([start_link/1]). 14 | 15 | %% Supervisor callbacks 16 | -export([init/1]). 17 | 18 | 19 | %%==================================================================== 20 | %% API functions 21 | %%==================================================================== 22 | %%-------------------------------------------------------------------- 23 | %% Function: start_link() -> {ok,Pid} | ignore | {error,Error} 24 | %% Description: Starts the supervisor 25 | %%-------------------------------------------------------------------- 26 | start_link(StartArgs) -> 27 | supervisor:start_link({local, ?MODULE}, ?MODULE, StartArgs). 28 | 29 | %%==================================================================== 30 | %% Supervisor callbacks 31 | %%==================================================================== 32 | %%-------------------------------------------------------------------- 33 | %% Func: init(Args) -> {ok, {SupFlags, [ChildSpec]}} | 34 | %% ignore | 35 | %% {error, Reason} 36 | %% Description: Whenever a supervisor is started using 37 | %% supervisor:start_link/[2,3], this function is called by the new process 38 | %% to find out about restart strategy, maximum restart frequency and child 39 | %% specifications. 40 | %%-------------------------------------------------------------------- 41 | init([]) -> 42 | Child = {erlusb,{erlusb,start_link,[]}, 43 | permanent,2000,worker,[erlusb]}, 44 | {ok,{{one_for_all,1,1}, [Child]}}. 45 | 46 | %%==================================================================== 47 | %% Internal functions 48 | %%==================================================================== 49 | -------------------------------------------------------------------------------- /erlusb/src/old_erlusb.hrl: -------------------------------------------------------------------------------- 1 | % erlusb.hrl - Erlang interface to libusb 2 | % Copyright (C) 2006 Hans Ulrich Niedermann 3 | % 4 | % This library is free software; you can redistribute it and/or 5 | % modify it under the terms of the GNU Lesser General Public 6 | % License as published by the Free Software Foundation; either 7 | % version 2.1 of the License, or (at your option) any later version. 8 | % 9 | % This library is distributed in the hope that it will be useful, 10 | % but WITHOUT ANY WARRANTY; without even the implied warranty of 11 | % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12 | % Lesser General Public License for more details. 13 | % 14 | % You should have received a copy of the GNU Lesser General Public 15 | % License along with this library; if not, write to the Free Software 16 | % Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 17 | 18 | -record(usb_endpoint_descriptor, 19 | { 20 | bLength, 21 | bDescriptorType, 22 | bEndpointAddress, 23 | bmAttributes, 24 | wMaxPacketSize, 25 | bInterval, 26 | bRefresh, 27 | bSynchAddress 28 | }). 29 | 30 | -record(usb_device_descriptor, { 31 | bLength, 32 | bDescriptorType, 33 | bcdUSB, 34 | bDeviceClass, 35 | bDeviceSubClass, 36 | bDeviceProtocol, 37 | bMaxPacketSize0, 38 | idVendor, 39 | idProduct, 40 | bcdDevice, 41 | iManufacturer, 42 | iProduct, 43 | iSerialNumber, 44 | bNumConfigurations 45 | }). 46 | -------------------------------------------------------------------------------- /erlusb/test/lsusb.erl: -------------------------------------------------------------------------------- 1 | -module(lsusb). 2 | 3 | -export([start/0, start/1]). 4 | 5 | -include_lib("erlusb/include/erlusb.hrl"). 6 | 7 | 8 | show(#usb_device_descriptor{bDeviceClass=Class, 9 | bDeviceSubClass=SubClass, 10 | idVendor=IDVendor, 11 | idProduct=IDProduct} = UDD) -> 12 | io:format("~p~n", [UDD]), 13 | io:format(" ID ~4.16.0b:~4.16.0b", [IDVendor, IDProduct]), 14 | io:format(" cls:sub ~w:~w~n", [Class, SubClass]). 15 | 16 | 17 | start() -> 18 | start([]). 19 | 20 | start([]) -> 21 | ok = application:start(erlusb), 22 | {ok, DeviceList} = erlusb:get_device_list(), 23 | %% io:format("~p~n", [DeviceList]), 24 | lists:foldl(fun(UDD,ok) -> show(UDD) end, 25 | ok, DeviceList). 26 | -------------------------------------------------------------------------------- /erlusb/test/test-libusb1.cmds: -------------------------------------------------------------------------------- 1 | % erlusb:start("valgrind -v --show-reachable=yes --log-file=erlusb.vlog ./erlusb"). 2 | erlusb:start("./erlusb-libusb1"). 3 | erlusb:ei_tests(). 4 | erlusb:usb_bus_list(). 5 | erlusb:stop(). 6 | stop 7 | -------------------------------------------------------------------------------- /erlusb/test/test-libusb1.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | exit 0 # FIXME: Reactivate test 3 | ${ERL} -noshell +v < ${srcdir}/test-libusb1.cmds 4 | -------------------------------------------------------------------------------- /erlusb/test/test-lsusb.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | ${ERL} -noshell -s lsusb start -s init stop 4 | -------------------------------------------------------------------------------- /erlusb/test/test-manager.sh: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | set -x 4 | 5 | erl \ 6 | -noshell \ 7 | -eval "application:start(erlusb)" \ 8 | -eval 'io:format("~p~n", [application:loaded_applications()])' \ 9 | -s init stop 10 | -------------------------------------------------------------------------------- /m4/.gitignore: -------------------------------------------------------------------------------- 1 | /libtool.m4 2 | /ltoptions.m4 3 | /ltsugar.m4 4 | /ltversion.m4 5 | /lt~obsolete.m4 6 | --------------------------------------------------------------------------------