Browse Source

initial commit

Rigel Kent 1 year ago
commit
f6cbb62327
Signed by: Rigel Kent <sendmemail@rigelk.eu> GPG Key ID: EA12971B0E438F36
15 changed files with 7686 additions and 0 deletions
  1. 4
    0
      .formatter.exs
  2. 37
    0
      .gitignore
  3. 674
    0
      LICENSE
  4. 19
    0
      README.md
  5. 30
    0
      config/config.exs
  6. 74
    0
      lib/erltorrent.ex
  7. 146
    0
      lib/exos.ex
  8. 51
    0
      lib/mix/tasks/compile.typescript.ex
  9. 48
    0
      mix.exs
  10. 6400
    0
      priv/package-lock.json
  11. 19
    0
      priv/package.json
  12. 96
    0
      priv/runtime.ts
  13. 67
    0
      priv/tsconfig.json
  14. 20
    0
      test/erltorrent_test.exs
  15. 1
    0
      test/test_helper.exs

+ 4
- 0
.formatter.exs View File

@@ -0,0 +1,4 @@
1
+# Used by "mix format"
2
+[
3
+  inputs: ["{mix,.formatter}.exs", "{config,lib,test}/**/*.{ex,exs}"]
4
+]

+ 37
- 0
.gitignore View File

@@ -0,0 +1,37 @@
1
+# The directory Mix will write compiled artifacts to.
2
+/_build/
3
+
4
+# If you run "mix test --cover", coverage assets end up here.
5
+/cover/
6
+
7
+# The directory Mix downloads your dependencies sources to.
8
+/deps/
9
+
10
+# Where 3rd-party dependencies like ExDoc output generated docs.
11
+/doc/
12
+
13
+# Ignore .fetch files in case you like to edit your project deps locally.
14
+/.fetch
15
+
16
+# If the VM crashes, it generates a dump, let's ignore it too.
17
+erl_crash.dump
18
+
19
+# Also ignore archive artifacts (built via "mix archive.build").
20
+*.ez
21
+
22
+# Ignore package tarball (built via "mix hex.build").
23
+ambroisie-*.tar
24
+
25
+ebin
26
+mix.lock
27
+*.beam
28
+
29
+# Files generated by this IDE plugin
30
+.elixir_ls
31
+
32
+# Run release.sh to generate this release folder
33
+/release
34
+
35
+**/node_modules/
36
+
37
+priv/dist/

+ 674
- 0
LICENSE View File

@@ -0,0 +1,674 @@
1
+                    GNU GENERAL PUBLIC LICENSE
2
+                       Version 3, 29 June 2007
3
+
4
+ Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
5
+ Everyone is permitted to copy and distribute verbatim copies
6
+ of this license document, but changing it is not allowed.
7
+
8
+                            Preamble
9
+
10
+  The GNU General Public License is a free, copyleft license for
11
+software and other kinds of works.
12
+
13
+  The licenses for most software and other practical works are designed
14
+to take away your freedom to share and change the works.  By contrast,
15
+the GNU General Public License is intended to guarantee your freedom to
16
+share and change all versions of a program--to make sure it remains free
17
+software for all its users.  We, the Free Software Foundation, use the
18
+GNU General Public License for most of our software; it applies also to
19
+any other work released this way by its authors.  You can apply it to
20
+your programs, too.
21
+
22
+  When we speak of free software, we are referring to freedom, not
23
+price.  Our General Public Licenses are designed to make sure that you
24
+have the freedom to distribute copies of free software (and charge for
25
+them if you wish), that you receive source code or can get it if you
26
+want it, that you can change the software or use pieces of it in new
27
+free programs, and that you know you can do these things.
28
+
29
+  To protect your rights, we need to prevent others from denying you
30
+these rights or asking you to surrender the rights.  Therefore, you have
31
+certain responsibilities if you distribute copies of the software, or if
32
+you modify it: responsibilities to respect the freedom of others.
33
+
34
+  For example, if you distribute copies of such a program, whether
35
+gratis or for a fee, you must pass on to the recipients the same
36
+freedoms that you received.  You must make sure that they, too, receive
37
+or can get the source code.  And you must show them these terms so they
38
+know their rights.
39
+
40
+  Developers that use the GNU GPL protect your rights with two steps:
41
+(1) assert copyright on the software, and (2) offer you this License
42
+giving you legal permission to copy, distribute and/or modify it.
43
+
44
+  For the developers' and authors' protection, the GPL clearly explains
45
+that there is no warranty for this free software.  For both users' and
46
+authors' sake, the GPL requires that modified versions be marked as
47
+changed, so that their problems will not be attributed erroneously to
48
+authors of previous versions.
49
+
50
+  Some devices are designed to deny users access to install or run
51
+modified versions of the software inside them, although the manufacturer
52
+can do so.  This is fundamentally incompatible with the aim of
53
+protecting users' freedom to change the software.  The systematic
54
+pattern of such abuse occurs in the area of products for individuals to
55
+use, which is precisely where it is most unacceptable.  Therefore, we
56
+have designed this version of the GPL to prohibit the practice for those
57
+products.  If such problems arise substantially in other domains, we
58
+stand ready to extend this provision to those domains in future versions
59
+of the GPL, as needed to protect the freedom of users.
60
+
61
+  Finally, every program is threatened constantly by software patents.
62
+States should not allow patents to restrict development and use of
63
+software on general-purpose computers, but in those that do, we wish to
64
+avoid the special danger that patents applied to a free program could
65
+make it effectively proprietary.  To prevent this, the GPL assures that
66
+patents cannot be used to render the program non-free.
67
+
68
+  The precise terms and conditions for copying, distribution and
69
+modification follow.
70
+
71
+                       TERMS AND CONDITIONS
72
+
73
+  0. Definitions.
74
+
75
+  "This License" refers to version 3 of the GNU General Public License.
76
+
77
+  "Copyright" also means copyright-like laws that apply to other kinds of
78
+works, such as semiconductor masks.
79
+
80
+  "The Program" refers to any copyrightable work licensed under this
81
+License.  Each licensee is addressed as "you".  "Licensees" and
82
+"recipients" may be individuals or organizations.
83
+
84
+  To "modify" a work means to copy from or adapt all or part of the work
85
+in a fashion requiring copyright permission, other than the making of an
86
+exact copy.  The resulting work is called a "modified version" of the
87
+earlier work or a work "based on" the earlier work.
88
+
89
+  A "covered work" means either the unmodified Program or a work based
90
+on the Program.
91
+
92
+  To "propagate" a work means to do anything with it that, without
93
+permission, would make you directly or secondarily liable for
94
+infringement under applicable copyright law, except executing it on a
95
+computer or modifying a private copy.  Propagation includes copying,
96
+distribution (with or without modification), making available to the
97
+public, and in some countries other activities as well.
98
+
99
+  To "convey" a work means any kind of propagation that enables other
100
+parties to make or receive copies.  Mere interaction with a user through
101
+a computer network, with no transfer of a copy, is not conveying.
102
+
103
+  An interactive user interface displays "Appropriate Legal Notices"
104
+to the extent that it includes a convenient and prominently visible
105
+feature that (1) displays an appropriate copyright notice, and (2)
106
+tells the user that there is no warranty for the work (except to the
107
+extent that warranties are provided), that licensees may convey the
108
+work under this License, and how to view a copy of this License.  If
109
+the interface presents a list of user commands or options, such as a
110
+menu, a prominent item in the list meets this criterion.
111
+
112
+  1. Source Code.
113
+
114
+  The "source code" for a work means the preferred form of the work
115
+for making modifications to it.  "Object code" means any non-source
116
+form of a work.
117
+
118
+  A "Standard Interface" means an interface that either is an official
119
+standard defined by a recognized standards body, or, in the case of
120
+interfaces specified for a particular programming language, one that
121
+is widely used among developers working in that language.
122
+
123
+  The "System Libraries" of an executable work include anything, other
124
+than the work as a whole, that (a) is included in the normal form of
125
+packaging a Major Component, but which is not part of that Major
126
+Component, and (b) serves only to enable use of the work with that
127
+Major Component, or to implement a Standard Interface for which an
128
+implementation is available to the public in source code form.  A
129
+"Major Component", in this context, means a major essential component
130
+(kernel, window system, and so on) of the specific operating system
131
+(if any) on which the executable work runs, or a compiler used to
132
+produce the work, or an object code interpreter used to run it.
133
+
134
+  The "Corresponding Source" for a work in object code form means all
135
+the source code needed to generate, install, and (for an executable
136
+work) run the object code and to modify the work, including scripts to
137
+control those activities.  However, it does not include the work's
138
+System Libraries, or general-purpose tools or generally available free
139
+programs which are used unmodified in performing those activities but
140
+which are not part of the work.  For example, Corresponding Source
141
+includes interface definition files associated with source files for
142
+the work, and the source code for shared libraries and dynamically
143
+linked subprograms that the work is specifically designed to require,
144
+such as by intimate data communication or control flow between those
145
+subprograms and other parts of the work.
146
+
147
+  The Corresponding Source need not include anything that users
148
+can regenerate automatically from other parts of the Corresponding
149
+Source.
150
+
151
+  The Corresponding Source for a work in source code form is that
152
+same work.
153
+
154
+  2. Basic Permissions.
155
+
156
+  All rights granted under this License are granted for the term of
157
+copyright on the Program, and are irrevocable provided the stated
158
+conditions are met.  This License explicitly affirms your unlimited
159
+permission to run the unmodified Program.  The output from running a
160
+covered work is covered by this License only if the output, given its
161
+content, constitutes a covered work.  This License acknowledges your
162
+rights of fair use or other equivalent, as provided by copyright law.
163
+
164
+  You may make, run and propagate covered works that you do not
165
+convey, without conditions so long as your license otherwise remains
166
+in force.  You may convey covered works to others for the sole purpose
167
+of having them make modifications exclusively for you, or provide you
168
+with facilities for running those works, provided that you comply with
169
+the terms of this License in conveying all material for which you do
170
+not control copyright.  Those thus making or running the covered works
171
+for you must do so exclusively on your behalf, under your direction
172
+and control, on terms that prohibit them from making any copies of
173
+your copyrighted material outside their relationship with you.
174
+
175
+  Conveying under any other circumstances is permitted solely under
176
+the conditions stated below.  Sublicensing is not allowed; section 10
177
+makes it unnecessary.
178
+
179
+  3. Protecting Users' Legal Rights From Anti-Circumvention Law.
180
+
181
+  No covered work shall be deemed part of an effective technological
182
+measure under any applicable law fulfilling obligations under article
183
+11 of the WIPO copyright treaty adopted on 20 December 1996, or
184
+similar laws prohibiting or restricting circumvention of such
185
+measures.
186
+
187
+  When you convey a covered work, you waive any legal power to forbid
188
+circumvention of technological measures to the extent such circumvention
189
+is effected by exercising rights under this License with respect to
190
+the covered work, and you disclaim any intention to limit operation or
191
+modification of the work as a means of enforcing, against the work's
192
+users, your or third parties' legal rights to forbid circumvention of
193
+technological measures.
194
+
195
+  4. Conveying Verbatim Copies.
196
+
197
+  You may convey verbatim copies of the Program's source code as you
198
+receive it, in any medium, provided that you conspicuously and
199
+appropriately publish on each copy an appropriate copyright notice;
200
+keep intact all notices stating that this License and any
201
+non-permissive terms added in accord with section 7 apply to the code;
202
+keep intact all notices of the absence of any warranty; and give all
203
+recipients a copy of this License along with the Program.
204
+
205
+  You may charge any price or no price for each copy that you convey,
206
+and you may offer support or warranty protection for a fee.
207
+
208
+  5. Conveying Modified Source Versions.
209
+
210
+  You may convey a work based on the Program, or the modifications to
211
+produce it from the Program, in the form of source code under the
212
+terms of section 4, provided that you also meet all of these conditions:
213
+
214
+    a) The work must carry prominent notices stating that you modified
215
+    it, and giving a relevant date.
216
+
217
+    b) The work must carry prominent notices stating that it is
218
+    released under this License and any conditions added under section
219
+    7.  This requirement modifies the requirement in section 4 to
220
+    "keep intact all notices".
221
+
222
+    c) You must license the entire work, as a whole, under this
223
+    License to anyone who comes into possession of a copy.  This
224
+    License will therefore apply, along with any applicable section 7
225
+    additional terms, to the whole of the work, and all its parts,
226
+    regardless of how they are packaged.  This License gives no
227
+    permission to license the work in any other way, but it does not
228
+    invalidate such permission if you have separately received it.
229
+
230
+    d) If the work has interactive user interfaces, each must display
231
+    Appropriate Legal Notices; however, if the Program has interactive
232
+    interfaces that do not display Appropriate Legal Notices, your
233
+    work need not make them do so.
234
+
235
+  A compilation of a covered work with other separate and independent
236
+works, which are not by their nature extensions of the covered work,
237
+and which are not combined with it such as to form a larger program,
238
+in or on a volume of a storage or distribution medium, is called an
239
+"aggregate" if the compilation and its resulting copyright are not
240
+used to limit the access or legal rights of the compilation's users
241
+beyond what the individual works permit.  Inclusion of a covered work
242
+in an aggregate does not cause this License to apply to the other
243
+parts of the aggregate.
244
+
245
+  6. Conveying Non-Source Forms.
246
+
247
+  You may convey a covered work in object code form under the terms
248
+of sections 4 and 5, provided that you also convey the
249
+machine-readable Corresponding Source under the terms of this License,
250
+in one of these ways:
251
+
252
+    a) Convey the object code in, or embodied in, a physical product
253
+    (including a physical distribution medium), accompanied by the
254
+    Corresponding Source fixed on a durable physical medium
255
+    customarily used for software interchange.
256
+
257
+    b) Convey the object code in, or embodied in, a physical product
258
+    (including a physical distribution medium), accompanied by a
259
+    written offer, valid for at least three years and valid for as
260
+    long as you offer spare parts or customer support for that product
261
+    model, to give anyone who possesses the object code either (1) a
262
+    copy of the Corresponding Source for all the software in the
263
+    product that is covered by this License, on a durable physical
264
+    medium customarily used for software interchange, for a price no
265
+    more than your reasonable cost of physically performing this
266
+    conveying of source, or (2) access to copy the
267
+    Corresponding Source from a network server at no charge.
268
+
269
+    c) Convey individual copies of the object code with a copy of the
270
+    written offer to provide the Corresponding Source.  This
271
+    alternative is allowed only occasionally and noncommercially, and
272
+    only if you received the object code with such an offer, in accord
273
+    with subsection 6b.
274
+
275
+    d) Convey the object code by offering access from a designated
276
+    place (gratis or for a charge), and offer equivalent access to the
277
+    Corresponding Source in the same way through the same place at no
278
+    further charge.  You need not require recipients to copy the
279
+    Corresponding Source along with the object code.  If the place to
280
+    copy the object code is a network server, the Corresponding Source
281
+    may be on a different server (operated by you or a third party)
282
+    that supports equivalent copying facilities, provided you maintain
283
+    clear directions next to the object code saying where to find the
284
+    Corresponding Source.  Regardless of what server hosts the
285
+    Corresponding Source, you remain obligated to ensure that it is
286
+    available for as long as needed to satisfy these requirements.
287
+
288
+    e) Convey the object code using peer-to-peer transmission, provided
289
+    you inform other peers where the object code and Corresponding
290
+    Source of the work are being offered to the general public at no
291
+    charge under subsection 6d.
292
+
293
+  A separable portion of the object code, whose source code is excluded
294
+from the Corresponding Source as a System Library, need not be
295
+included in conveying the object code work.
296
+
297
+  A "User Product" is either (1) a "consumer product", which means any
298
+tangible personal property which is normally used for personal, family,
299
+or household purposes, or (2) anything designed or sold for incorporation
300
+into a dwelling.  In determining whether a product is a consumer product,
301
+doubtful cases shall be resolved in favor of coverage.  For a particular
302
+product received by a particular user, "normally used" refers to a
303
+typical or common use of that class of product, regardless of the status
304
+of the particular user or of the way in which the particular user
305
+actually uses, or expects or is expected to use, the product.  A product
306
+is a consumer product regardless of whether the product has substantial
307
+commercial, industrial or non-consumer uses, unless such uses represent
308
+the only significant mode of use of the product.
309
+
310
+  "Installation Information" for a User Product means any methods,
311
+procedures, authorization keys, or other information required to install
312
+and execute modified versions of a covered work in that User Product from
313
+a modified version of its Corresponding Source.  The information must
314
+suffice to ensure that the continued functioning of the modified object
315
+code is in no case prevented or interfered with solely because
316
+modification has been made.
317
+
318
+  If you convey an object code work under this section in, or with, or
319
+specifically for use in, a User Product, and the conveying occurs as
320
+part of a transaction in which the right of possession and use of the
321
+User Product is transferred to the recipient in perpetuity or for a
322
+fixed term (regardless of how the transaction is characterized), the
323
+Corresponding Source conveyed under this section must be accompanied
324
+by the Installation Information.  But this requirement does not apply
325
+if neither you nor any third party retains the ability to install
326
+modified object code on the User Product (for example, the work has
327
+been installed in ROM).
328
+
329
+  The requirement to provide Installation Information does not include a
330
+requirement to continue to provide support service, warranty, or updates
331
+for a work that has been modified or installed by the recipient, or for
332
+the User Product in which it has been modified or installed.  Access to a
333
+network may be denied when the modification itself materially and
334
+adversely affects the operation of the network or violates the rules and
335
+protocols for communication across the network.
336
+
337
+  Corresponding Source conveyed, and Installation Information provided,
338
+in accord with this section must be in a format that is publicly
339
+documented (and with an implementation available to the public in
340
+source code form), and must require no special password or key for
341
+unpacking, reading or copying.
342
+
343
+  7. Additional Terms.
344
+
345
+  "Additional permissions" are terms that supplement the terms of this
346
+License by making exceptions from one or more of its conditions.
347
+Additional permissions that are applicable to the entire Program shall
348
+be treated as though they were included in this License, to the extent
349
+that they are valid under applicable law.  If additional permissions
350
+apply only to part of the Program, that part may be used separately
351
+under those permissions, but the entire Program remains governed by
352
+this License without regard to the additional permissions.
353
+
354
+  When you convey a copy of a covered work, you may at your option
355
+remove any additional permissions from that copy, or from any part of
356
+it.  (Additional permissions may be written to require their own
357
+removal in certain cases when you modify the work.)  You may place
358
+additional permissions on material, added by you to a covered work,
359
+for which you have or can give appropriate copyright permission.
360
+
361
+  Notwithstanding any other provision of this License, for material you
362
+add to a covered work, you may (if authorized by the copyright holders of
363
+that material) supplement the terms of this License with terms:
364
+
365
+    a) Disclaiming warranty or limiting liability differently from the
366
+    terms of sections 15 and 16 of this License; or
367
+
368
+    b) Requiring preservation of specified reasonable legal notices or
369
+    author attributions in that material or in the Appropriate Legal
370
+    Notices displayed by works containing it; or
371
+
372
+    c) Prohibiting misrepresentation of the origin of that material, or
373
+    requiring that modified versions of such material be marked in
374
+    reasonable ways as different from the original version; or
375
+
376
+    d) Limiting the use for publicity purposes of names of licensors or
377
+    authors of the material; or
378
+
379
+    e) Declining to grant rights under trademark law for use of some
380
+    trade names, trademarks, or service marks; or
381
+
382
+    f) Requiring indemnification of licensors and authors of that
383
+    material by anyone who conveys the material (or modified versions of
384
+    it) with contractual assumptions of liability to the recipient, for
385
+    any liability that these contractual assumptions directly impose on
386
+    those licensors and authors.
387
+
388
+  All other non-permissive additional terms are considered "further
389
+restrictions" within the meaning of section 10.  If the Program as you
390
+received it, or any part of it, contains a notice stating that it is
391
+governed by this License along with a term that is a further
392
+restriction, you may remove that term.  If a license document contains
393
+a further restriction but permits relicensing or conveying under this
394
+License, you may add to a covered work material governed by the terms
395
+of that license document, provided that the further restriction does
396
+not survive such relicensing or conveying.
397
+
398
+  If you add terms to a covered work in accord with this section, you
399
+must place, in the relevant source files, a statement of the
400
+additional terms that apply to those files, or a notice indicating
401
+where to find the applicable terms.
402
+
403
+  Additional terms, permissive or non-permissive, may be stated in the
404
+form of a separately written license, or stated as exceptions;
405
+the above requirements apply either way.
406
+
407
+  8. Termination.
408
+
409
+  You may not propagate or modify a covered work except as expressly
410
+provided under this License.  Any attempt otherwise to propagate or
411
+modify it is void, and will automatically terminate your rights under
412
+this License (including any patent licenses granted under the third
413
+paragraph of section 11).
414
+
415
+  However, if you cease all violation of this License, then your
416
+license from a particular copyright holder is reinstated (a)
417
+provisionally, unless and until the copyright holder explicitly and
418
+finally terminates your license, and (b) permanently, if the copyright
419
+holder fails to notify you of the violation by some reasonable means
420
+prior to 60 days after the cessation.
421
+
422
+  Moreover, your license from a particular copyright holder is
423
+reinstated permanently if the copyright holder notifies you of the
424
+violation by some reasonable means, this is the first time you have
425
+received notice of violation of this License (for any work) from that
426
+copyright holder, and you cure the violation prior to 30 days after
427
+your receipt of the notice.
428
+
429
+  Termination of your rights under this section does not terminate the
430
+licenses of parties who have received copies or rights from you under
431
+this License.  If your rights have been terminated and not permanently
432
+reinstated, you do not qualify to receive new licenses for the same
433
+material under section 10.
434
+
435
+  9. Acceptance Not Required for Having Copies.
436
+
437
+  You are not required to accept this License in order to receive or
438
+run a copy of the Program.  Ancillary propagation of a covered work
439
+occurring solely as a consequence of using peer-to-peer transmission
440
+to receive a copy likewise does not require acceptance.  However,
441
+nothing other than this License grants you permission to propagate or
442
+modify any covered work.  These actions infringe copyright if you do
443
+not accept this License.  Therefore, by modifying or propagating a
444
+covered work, you indicate your acceptance of this License to do so.
445
+
446
+  10. Automatic Licensing of Downstream Recipients.
447
+
448
+  Each time you convey a covered work, the recipient automatically
449
+receives a license from the original licensors, to run, modify and
450
+propagate that work, subject to this License.  You are not responsible
451
+for enforcing compliance by third parties with this License.
452
+
453
+  An "entity transaction" is a transaction transferring control of an
454
+organization, or substantially all assets of one, or subdividing an
455
+organization, or merging organizations.  If propagation of a covered
456
+work results from an entity transaction, each party to that
457
+transaction who receives a copy of the work also receives whatever
458
+licenses to the work the party's predecessor in interest had or could
459
+give under the previous paragraph, plus a right to possession of the
460
+Corresponding Source of the work from the predecessor in interest, if
461
+the predecessor has it or can get it with reasonable efforts.
462
+
463
+  You may not impose any further restrictions on the exercise of the
464
+rights granted or affirmed under this License.  For example, you may
465
+not impose a license fee, royalty, or other charge for exercise of
466
+rights granted under this License, and you may not initiate litigation
467
+(including a cross-claim or counterclaim in a lawsuit) alleging that
468
+any patent claim is infringed by making, using, selling, offering for
469
+sale, or importing the Program or any portion of it.
470
+
471
+  11. Patents.
472
+
473
+  A "contributor" is a copyright holder who authorizes use under this
474
+License of the Program or a work on which the Program is based.  The
475
+work thus licensed is called the contributor's "contributor version".
476
+
477
+  A contributor's "essential patent claims" are all patent claims
478
+owned or controlled by the contributor, whether already acquired or
479
+hereafter acquired, that would be infringed by some manner, permitted
480
+by this License, of making, using, or selling its contributor version,
481
+but do not include claims that would be infringed only as a
482
+consequence of further modification of the contributor version.  For
483
+purposes of this definition, "control" includes the right to grant
484
+patent sublicenses in a manner consistent with the requirements of
485
+this License.
486
+
487
+  Each contributor grants you a non-exclusive, worldwide, royalty-free
488
+patent license under the contributor's essential patent claims, to
489
+make, use, sell, offer for sale, import and otherwise run, modify and
490
+propagate the contents of its contributor version.
491
+
492
+  In the following three paragraphs, a "patent license" is any express
493
+agreement or commitment, however denominated, not to enforce a patent
494
+(such as an express permission to practice a patent or covenant not to
495
+sue for patent infringement).  To "grant" such a patent license to a
496
+party means to make such an agreement or commitment not to enforce a
497
+patent against the party.
498
+
499
+  If you convey a covered work, knowingly relying on a patent license,
500
+and the Corresponding Source of the work is not available for anyone
501
+to copy, free of charge and under the terms of this License, through a
502
+publicly available network server or other readily accessible means,
503
+then you must either (1) cause the Corresponding Source to be so
504
+available, or (2) arrange to deprive yourself of the benefit of the
505
+patent license for this particular work, or (3) arrange, in a manner
506
+consistent with the requirements of this License, to extend the patent
507
+license to downstream recipients.  "Knowingly relying" means you have
508
+actual knowledge that, but for the patent license, your conveying the
509
+covered work in a country, or your recipient's use of the covered work
510
+in a country, would infringe one or more identifiable patents in that
511
+country that you have reason to believe are valid.
512
+
513
+  If, pursuant to or in connection with a single transaction or
514
+arrangement, you convey, or propagate by procuring conveyance of, a
515
+covered work, and grant a patent license to some of the parties
516
+receiving the covered work authorizing them to use, propagate, modify
517
+or convey a specific copy of the covered work, then the patent license
518
+you grant is automatically extended to all recipients of the covered
519
+work and works based on it.
520
+
521
+  A patent license is "discriminatory" if it does not include within
522
+the scope of its coverage, prohibits the exercise of, or is
523
+conditioned on the non-exercise of one or more of the rights that are
524
+specifically granted under this License.  You may not convey a covered
525
+work if you are a party to an arrangement with a third party that is
526
+in the business of distributing software, under which you make payment
527
+to the third party based on the extent of your activity of conveying
528
+the work, and under which the third party grants, to any of the
529
+parties who would receive the covered work from you, a discriminatory
530
+patent license (a) in connection with copies of the covered work
531
+conveyed by you (or copies made from those copies), or (b) primarily
532
+for and in connection with specific products or compilations that
533
+contain the covered work, unless you entered into that arrangement,
534
+or that patent license was granted, prior to 28 March 2007.
535
+
536
+  Nothing in this License shall be construed as excluding or limiting
537
+any implied license or other defenses to infringement that may
538
+otherwise be available to you under applicable patent law.
539
+
540
+  12. No Surrender of Others' Freedom.
541
+
542
+  If conditions are imposed on you (whether by court order, agreement or
543
+otherwise) that contradict the conditions of this License, they do not
544
+excuse you from the conditions of this License.  If you cannot convey a
545
+covered work so as to satisfy simultaneously your obligations under this
546
+License and any other pertinent obligations, then as a consequence you may
547
+not convey it at all.  For example, if you agree to terms that obligate you
548
+to collect a royalty for further conveying from those to whom you convey
549
+the Program, the only way you could satisfy both those terms and this
550
+License would be to refrain entirely from conveying the Program.
551
+
552
+  13. Use with the GNU Affero General Public License.
553
+
554
+  Notwithstanding any other provision of this License, you have
555
+permission to link or combine any covered work with a work licensed
556
+under version 3 of the GNU Affero General Public License into a single
557
+combined work, and to convey the resulting work.  The terms of this
558
+License will continue to apply to the part which is the covered work,
559
+but the special requirements of the GNU Affero General Public License,
560
+section 13, concerning interaction through a network will apply to the
561
+combination as such.
562
+
563
+  14. Revised Versions of this License.
564
+
565
+  The Free Software Foundation may publish revised and/or new versions of
566
+the GNU General Public License from time to time.  Such new versions will
567
+be similar in spirit to the present version, but may differ in detail to
568
+address new problems or concerns.
569
+
570
+  Each version is given a distinguishing version number.  If the
571
+Program specifies that a certain numbered version of the GNU General
572
+Public License "or any later version" applies to it, you have the
573
+option of following the terms and conditions either of that numbered
574
+version or of any later version published by the Free Software
575
+Foundation.  If the Program does not specify a version number of the
576
+GNU General Public License, you may choose any version ever published
577
+by the Free Software Foundation.
578
+
579
+  If the Program specifies that a proxy can decide which future
580
+versions of the GNU General Public License can be used, that proxy's
581
+public statement of acceptance of a version permanently authorizes you
582
+to choose that version for the Program.
583
+
584
+  Later license versions may give you additional or different
585
+permissions.  However, no additional obligations are imposed on any
586
+author or copyright holder as a result of your choosing to follow a
587
+later version.
588
+
589
+  15. Disclaimer of Warranty.
590
+
591
+  THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
592
+APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
593
+HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
594
+OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
595
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
596
+PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
597
+IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
598
+ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
599
+
600
+  16. Limitation of Liability.
601
+
602
+  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
603
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
604
+THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
605
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
606
+USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
607
+DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
608
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
609
+EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
610
+SUCH DAMAGES.
611
+
612
+  17. Interpretation of Sections 15 and 16.
613
+
614
+  If the disclaimer of warranty and limitation of liability provided
615
+above cannot be given local legal effect according to their terms,
616
+reviewing courts shall apply local law that most closely approximates
617
+an absolute waiver of all civil liability in connection with the
618
+Program, unless a warranty or assumption of liability accompanies a
619
+copy of the Program in return for a fee.
620
+
621
+                     END OF TERMS AND CONDITIONS
622
+
623
+            How to Apply These Terms to Your New Programs
624
+
625
+  If you develop a new program, and you want it to be of the greatest
626
+possible use to the public, the best way to achieve this is to make it
627
+free software which everyone can redistribute and change under these terms.
628
+
629
+  To do so, attach the following notices to the program.  It is safest
630
+to attach them to the start of each source file to most effectively
631
+state the exclusion of warranty; and each file should have at least
632
+the "copyright" line and a pointer to where the full notice is found.
633
+
634
+    <one line to give the program's name and a brief idea of what it does.>
635
+    Copyright (C) <year>  <name of author>
636
+
637
+    This program is free software: you can redistribute it and/or modify
638
+    it under the terms of the GNU General Public License as published by
639
+    the Free Software Foundation, either version 3 of the License, or
640
+    (at your option) any later version.
641
+
642
+    This program is distributed in the hope that it will be useful,
643
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
644
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
645
+    GNU General Public License for more details.
646
+
647
+    You should have received a copy of the GNU General Public License
648
+    along with this program.  If not, see <https://www.gnu.org/licenses/>.
649
+
650
+Also add information on how to contact you by electronic and paper mail.
651
+
652
+  If the program does terminal interaction, make it output a short
653
+notice like this when it starts in an interactive mode:
654
+
655
+    <program>  Copyright (C) <year>  <name of author>
656
+    This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
657
+    This is free software, and you are welcome to redistribute it
658
+    under certain conditions; type `show c' for details.
659
+
660
+The hypothetical commands `show w' and `show c' should show the appropriate
661
+parts of the General Public License.  Of course, your program's commands
662
+might be different; for a GUI interface, you would use an "about box".
663
+
664
+  You should also get your employer (if you work as a programmer) or school,
665
+if any, to sign a "copyright disclaimer" for the program, if necessary.
666
+For more information on this, and how to apply and follow the GNU GPL, see
667
+<https://www.gnu.org/licenses/>.
668
+
669
+  The GNU General Public License does not permit incorporating your program
670
+into proprietary programs.  If your program is a subroutine library, you
671
+may consider it more useful to permit linking proprietary applications with
672
+the library.  If this is what you want to do, use the GNU Lesser General
673
+Public License instead of this License.  But first, please read
674
+<https://www.gnu.org/licenses/why-not-lgpl.html>.

+ 19
- 0
README.md View File

@@ -0,0 +1,19 @@
1
+# Ambroisie
2
+
3
+An Elixir library wrapping a webtorrent-hybrid process as an OTP application.
4
+
5
+## Installation
6
+
7
+You can add `ambroisie` to your list of dependencies in `mix.exs`:
8
+
9
+```elixir
10
+def deps do
11
+  [
12
+    {:ambroisie, git: "git@framagit.org:rigelk/ambroisie.git", branch: "master"}
13
+  ]
14
+end
15
+```
16
+
17
+## Usage
18
+
19
+The application 

+ 30
- 0
config/config.exs View File

@@ -0,0 +1,30 @@
1
+# This file is responsible for configuring your application
2
+# and its dependencies with the aid of the Mix.Config module.
3
+use Mix.Config
4
+
5
+# This configuration is loaded before any dependency and is restricted
6
+# to this project. If another project depends on this project, this
7
+# file won't be loaded nor affect the parent project. For this reason,
8
+# if you want to provide default values for your application for
9
+# 3rd-party users, it should be done in your "mix.exs" file.
10
+
11
+# You can configure your application as:
12
+#
13
+#     config :ambroisie, key: :value
14
+#
15
+# and access this configuration in your application as:
16
+#
17
+#     Application.get_env(:ambroisie, :key)
18
+#
19
+# You can also configure a 3rd-party app:
20
+#
21
+#     config :logger, level: :info
22
+#
23
+
24
+# It is also possible to import configuration files, relative to this
25
+# directory. For example, you can emulate configuration per environment
26
+# by uncommenting the line below and defining dev.exs, test.exs and such.
27
+# Configuration from the imported file will override the ones defined
28
+# here (which is why it is important to import them last).
29
+#
30
+#     import_config "#{Mix.env()}.exs"

+ 74
- 0
lib/erltorrent.ex View File

@@ -0,0 +1,74 @@
1
+defmodule Ambroisie do
2
+  @moduledoc """
3
+  Wrapper for the WebTorrent library.
4
+  """
5
+  use WebTorrentConsumer
6
+
7
+  def cmd, do: "node --no-warnings runtime.js"
8
+
9
+  def start_link(ini) do
10
+    Exos.Proc.start_link(
11
+      Ambroisie.cmd(),
12
+      ini,
13
+      [cd: "#{:code.priv_dir(:ambroisie)}/dist"],
14
+      [name: WebTorrent],
15
+      __MODULE__
16
+    )
17
+
18
+    GenStage.start_link(__MODULE__, :ok)
19
+  end
20
+
21
+  # Client API
22
+  def add(v), do: GenServer.cast(WebTorrent, {:add, v})
23
+  def add(v, opts), do: GenServer.cast(WebTorrent, {:add, [v, opts]})
24
+  def seed(path), do: GenServer.cast(WebTorrent, {:seed, path})
25
+  def remove(v), do: GenServer.cast(WebTorrent, {:remove, v})
26
+  def get, do: GenServer.call(WebTorrent, :get, :infinity)
27
+  def destroy, do: GenServer.call(WebTorrent, :destroy, :infinity)
28
+
29
+  # Server API
30
+  def handle_events(events, _from, state) do
31
+    for event <- events do
32
+      IO.inspect({self(), event})
33
+
34
+      unless is_binary(event) do
35
+        case event[:torrents] do
36
+          [x] ->
37
+            cond do
38
+              x.status == "done" -> Stash.set(:client_state, "completed", x)
39
+              x.status == "ready" -> :nothing
40
+            end
41
+
42
+          _ ->
43
+            :nothing
44
+        end
45
+      end
46
+    end
47
+
48
+    {:noreply, [], state}
49
+  end
50
+end
51
+
52
+defmodule AmbroisieApp do
53
+  use Application
54
+
55
+  def start(_type, _args) do
56
+    AmbroisieApp.Sup.start_link()
57
+  end
58
+
59
+  defmodule Sup do
60
+    use Supervisor
61
+
62
+    def start_link, do: Supervisor.start_link(__MODULE__, [])
63
+
64
+    def init([]) do
65
+      Mix.Tasks.Compile.Typescript.run([])
66
+      supervise(
67
+        [
68
+          worker(Ambroisie, [0])
69
+        ],
70
+        strategy: :one_for_one
71
+      )
72
+    end
73
+  end
74
+end

+ 146
- 0
lib/exos.ex View File

@@ -0,0 +1,146 @@
1
+defmodule Exos.Proc do
2
+  use GenServer
3
+  alias :erlang, as: Erl
4
+
5
+  @doc """
6
+  Launch a GenServer which starts a port and proxify cast and call to
7
+  it using a port protocol with `packet: 4`, (32bits-length+data)
8
+  messages are transmitted throught stdin/out. Input terms are
9
+  encoded using `binary_to_term` and received terms are decoded using
10
+  `term_to_binary`.
11
+
12
+  - `cmd` is the shell command to launch the port
13
+  - when the port starts, it automatically receives as first message the `init`
14
+    term if `init !== :no_init`
15
+  - `opts` are options for `Port.open` (for instance `[cd: "/path/"]`)
16
+  - `link_opts` are options for `GenServer.start_link` (for instance `[name: :servername]`)
17
+  - messages received from the port outside of a `GenServer.call`
18
+    context are sent to the `event_manager` GenEvent if it is not `nil`
19
+  - to allow easy supervision, if the port die with a return code == 0, then
20
+    the GenServer die with the reason `:normal`, else with the reason `:port_terminated`
21
+  """
22
+  def start_link(cmd, init, opts \\ [], link_opts \\ [], event_manager \\ nil) do
23
+    GenServer.start_link(Exos.Proc, {cmd, init, opts, event_manager}, link_opts)
24
+    QueueBroadcaster.start_link()
25
+  end
26
+
27
+  def init({cmd, initarg, opts}), do: init({cmd, initarg, opts, nil})
28
+
29
+  def init({cmd, initarg, opts, event_manager}) do
30
+    port = Port.open({:spawn, '#{cmd}'}, [:binary, :exit_status, packet: 4] ++ opts)
31
+    if initarg !== :no_init, do: send(port, {self(), {:command, Erl.term_to_binary(initarg)}})
32
+    {:ok, {port, event_manager}}
33
+  end
34
+
35
+  def handle_info({port, {:exit_status, 0}}, {port, _} = state), do: {:stop, :normal, state}
36
+
37
+  def handle_info({port, {:exit_status, _}}, {port, _} = state),
38
+    do: {:stop, :port_terminated, state}
39
+
40
+  def handle_info({port, {:data, b}}, {port, event_manager} = state) do
41
+    if event_manager do
42
+      QueueBroadcaster.sync_notify(Erl.binary_to_term(b))
43
+    end
44
+
45
+    {:noreply, state}
46
+  end
47
+
48
+  def handle_cast(term, {port, _} = state) do
49
+    send(port, {self(), {:command, Erl.term_to_binary(term)}})
50
+    {:noreply, state}
51
+  end
52
+
53
+  def handle_call(term, _reply_to, {port, _} = state) do
54
+    send(port, {self(), {:command, Erl.term_to_binary(term)}})
55
+
56
+    res =
57
+      receive do
58
+        {^port, {:data, b}} ->
59
+          Erl.binary_to_term(b)
60
+
61
+        # catch exit msg and resend it
62
+        {^port, {:exit_status, _}} = exit_msg ->
63
+          send(self(), exit_msg)
64
+          {:error, :port_terminated}
65
+      end
66
+
67
+    {:reply, res, state}
68
+  end
69
+end
70
+
71
+defmodule QueueBroadcaster do
72
+  use GenStage
73
+
74
+  @doc "Starts the broadcaster."
75
+  def start_link() do
76
+    GenStage.start_link(__MODULE__, :ok, name: __MODULE__)
77
+  end
78
+
79
+  @doc "Sends an event and returns only after the event is dispatched."
80
+  def sync_notify(event, timeout \\ 5000) do
81
+    GenStage.call(__MODULE__, {:notify, event}, timeout)
82
+  end
83
+
84
+  ## Callbacks
85
+
86
+  def init(:ok) do
87
+    {:producer, {:queue.new(), 0}, dispatcher: GenStage.BroadcastDispatcher}
88
+  end
89
+
90
+  def handle_call({:notify, event}, from, {queue, pending_demand}) do
91
+    queue = :queue.in({from, event}, queue)
92
+    dispatch_events(queue, pending_demand, [])
93
+  end
94
+
95
+  def handle_demand(incoming_demand, {queue, pending_demand}) do
96
+    dispatch_events(queue, incoming_demand + pending_demand, [])
97
+  end
98
+
99
+  defp dispatch_events(queue, 0, events) do
100
+    {:noreply, Enum.reverse(events), {queue, 0}}
101
+  end
102
+
103
+  defp dispatch_events(queue, demand, events) do
104
+    case :queue.out(queue) do
105
+      {{:value, {from, event}}, queue} ->
106
+        GenStage.reply(from, :ok)
107
+        dispatch_events(queue, demand - 1, [event | events])
108
+
109
+      {:empty, queue} ->
110
+        {:noreply, Enum.reverse(events), {queue, demand}}
111
+    end
112
+  end
113
+end
114
+
115
+defmodule WebTorrentConsumer do
116
+  # When you call use in your module, the __using__ macro is called.
117
+  defmacro __using__(_params) do
118
+    quote do
119
+      # User modules must implement the Filter callbacks
120
+      @behaviour GenStage
121
+
122
+      @doc "Starts the consumer."
123
+      def start_link() do
124
+        GenStage.start_link(__MODULE__, :ok)
125
+      end
126
+
127
+      def init(:ok) do
128
+        # Starts a permanent subscription to the broadcaster
129
+        # which will automatically start requesting items.
130
+        {:consumer, :ok, subscribe_to: [QueueBroadcaster]}
131
+      end
132
+
133
+      def handle_events(events, _from, state) do
134
+        for event <- events do
135
+          IO.inspect({self(), event})
136
+        end
137
+
138
+        {:noreply, [], state}
139
+      end
140
+
141
+      # Defoverridable makes the given functions in the current module overridable
142
+      # Without defoverridable, new definitions of greet will not be picked up
143
+      defoverridable handle_events: 3
144
+    end
145
+  end
146
+end

+ 51
- 0
lib/mix/tasks/compile.typescript.ex View File

@@ -0,0 +1,51 @@
1
+defmodule Mix.Tasks.Compile.Typescript do
2
+  use Mix.Task
3
+
4
+  def run(_args) do
5
+    cmd("npm", ["install"], "#{:code.priv_dir(:ambroisie)}/", %{}, true)
6
+    case cmd("tsc", [], "#{:code.priv_dir(:ambroisie)}/", %{}, true) do
7
+      0 ->
8
+        :ok
9
+
10
+      exit_status ->
11
+        raise_build_error("tsc", exit_status, "Typescript failed.")
12
+    end
13
+  end
14
+
15
+  defp cmd(exec, args, cwd, env, verbose?) do
16
+    opts = [
17
+      into: IO.stream(:stdio, :line),
18
+      stderr_to_stdout: true,
19
+      cd: cwd,
20
+      env: env
21
+    ]
22
+
23
+    if verbose? do
24
+      print_verbose_info(exec, args)
25
+    end
26
+
27
+    {%IO.Stream{}, status} = System.cmd(find_executable(exec), args, opts)
28
+    status
29
+  end
30
+
31
+  defp find_executable(exec) do
32
+    System.find_executable(exec) ||
33
+      Mix.raise("""
34
+      "#{exec}" not found in the path. If you have set the MAKE environment variable,
35
+      please make sure it is correct.
36
+      """)
37
+  end
38
+
39
+  defp raise_build_error(exec, exit_status, error_msg) do
40
+    Mix.raise(~s{Could not compile with "#{exec}" (exit status: #{exit_status}).\n} <> error_msg)
41
+  end
42
+
43
+  defp print_verbose_info(exec, args) do
44
+    args =
45
+      Enum.map_join(args, " ", fn arg ->
46
+        if String.contains?(arg, " "), do: inspect(arg), else: arg
47
+      end)
48
+
49
+    Mix.shell().info("Compiling WebTorrent client (Javascript): #{exec} #{args}")
50
+  end
51
+end

+ 48
- 0
mix.exs View File

@@ -0,0 +1,48 @@
1
+defmodule Ambroisie.MixProject do
2
+  use Mix.Project
3
+
4
+  defp description do
5
+    """
6
+    An Elixir library wrapping a webtorrent-hybrid process as an OTP application.
7
+    """
8
+  end
9
+
10
+  defp package do
11
+    {priv, 0} = System.cmd("git", ["ls-files", "priv*"])
12
+    [
13
+      files: (Enum.drop String.split(priv, "\n"), -1) ++ ["lib", "mix.exs", "README*", "LICENSE"],
14
+      maintainers: ["Rigel Kent"],
15
+      licenses: ["GPL-3.0-or-later"],
16
+      links: %{"GitHub" => "https://github.com/rigelk/ambroisie"}
17
+    ]
18
+  end
19
+
20
+  def project do
21
+    [
22
+      app: :ambroisie,
23
+      version: "0.1.0",
24
+      elixir: "~> 1.7",
25
+      start_permanent: Mix.env() == :prod,
26
+      deps: deps(),
27
+      description: description(),
28
+      package: package(),
29
+      deps: deps()
30
+    ]
31
+  end
32
+
33
+  # Run "mix help compile.app" to learn about applications.
34
+  def application do
35
+    [
36
+      extra_applications: [:logger],
37
+      mod: {AmbroisieApp, []}
38
+    ]
39
+  end
40
+
41
+  # Run "mix help deps" to learn about dependencies.
42
+  defp deps do
43
+    [
44
+      {:gen_stage, "~> 0.14"},
45
+      {:stash, "~> 1.0.0"}
46
+    ]
47
+  end
48
+end

+ 6400
- 0
priv/package-lock.json
File diff suppressed because it is too large
View File


+ 19
- 0
priv/package.json View File

@@ -0,0 +1,19 @@
1
+{
2
+  "name": "ambroisie",
3
+  "version": "1.0.0",
4
+  "main": "priv/runtime.js",
5
+  "license": "MIT",
6
+  "dependencies": {
7
+    "@types/lodash": "^4.14.116",
8
+    "brunch-typescript": "^2.1.0",
9
+    "lodash": "^4.17.10",
10
+    "module-concat": "^2.3.0",
11
+    "node_erlastic": "^0.0.8",
12
+    "spawn-sync": "^2.0.0",
13
+    "webtorrent-hybrid": "^1.0.6"
14
+  },
15
+  "devDependencies": {
16
+    "typescript": "^3.0.1",
17
+    "brunch": "^2.10.16"
18
+  }
19
+}

+ 96
- 0
priv/runtime.ts View File

@@ -0,0 +1,96 @@
1
+import { server } from 'node_erlastic'
2
+import webtorrent from 'webtorrent-hybrid'
3
+import { pick } from 'lodash'
4
+
5
+const client = new webtorrent({
6
+  maxConns: 55, // default value = 55, value per torrent
7
+  tracker: true, // default = true
8
+  dht: {
9
+    //bootstrap: [],   // bootstrap servers (default: router.bittorrent.com:6881, router.utorrent.com:6881, dht.transmissionbt.com:6881)
10
+    host: false,     // host of local peer, if specified then announces get added to local table (String, disabled by default)
11
+    concurrency: 16, // k-rpc option to specify maximum concurrent UDP requests allowed (Number, 16 by default)
12
+    //hash: Function,  // custom hash function to use (Function, SHA1 by default),
13
+    //krpc: krpc(),     // optional k-rpc instance
14
+    timeBucketOutdated: 900000, // check buckets every 15min
15
+    maxAge: Infinity,  // optional setting for announced peers to time out
16
+  }, // default = true
17
+  webSeeds: true // default = true
18
+})
19
+client.on('error', err => {
20
+  if (typeof(err) != 'string') err = JSON.stringify(err); 
21
+  process.stderr.write(err)
22
+})
23
+
24
+const reduce = torrents => torrents.map(t => reduceT(t))
25
+const reduceT = torrent => {
26
+  const keys = (torrent.progress == 1) ? [
27
+    'infoHash',
28
+    'magnetURI',
29
+    'torrentFile',
30
+    'progress',
31
+    'timeRemaining',
32
+    'received',
33
+    'downloaded',
34
+    'uploaded',
35
+    'downloadSpeed',
36
+    'uploadSpeed',
37
+    'progress',
38
+    'ratio',
39
+    'numPeers',
40
+    'path',
41
+    ] : [
42
+      'infoHash',
43
+      'magnetURI',
44
+      'torrentFile',
45
+      'progress'
46
+    ] 
47
+  return pick(torrent, keys)
48
+}
49
+const c = (torrents, status = 'running') => { 
50
+  return { status, torrents }
51
+}
52
+const t = (torrent, status = 'seeding') => {
53
+  return { status, ...torrent }
54
+}
55
+
56
+server(
57
+  (term: any, from: any, base_amount: any, done: any) => {
58
+    if (term == 'get') {
59
+      return done('reply', c(reduce(client.torrents)))
60
+    }
61
+
62
+    if (term[0] == 'add') {
63
+      let args = (term[1] instanceof Array) ? term[1] : [term[1]]
64
+      client.add(...args, torrent => {
65
+        torrent.on('ready', () => from(c([t(reduceT(torrent), 'added')])))
66
+        torrent.on('download', () => from(c([t(reduceT(torrent), 'download')])))
67
+        torrent.on('done', () => from(c([t(reduceT(torrent), 'done')])))
68
+      })
69
+      return done('reply', 'add operation done')
70
+    }
71
+
72
+    if (term[0] == 'remove') {
73
+      client.remove(term[1])
74
+      return done('noreply', 'remove operation done')
75
+    }
76
+
77
+    if (term[0] == 'resume') {
78
+      client.seed(term[1])
79
+      return done('noreply', 'resume operation done')
80
+    }
81
+    
82
+    if (term[0] == 'seed') {
83
+      client.seed(term[1])
84
+      return done('noreply', 'torrent created and seeded')
85
+    }
86
+
87
+    if (term[0] == 'destroy') {
88
+      client.destroy(() => {
89
+        from('client destroyed successfully')
90
+        process.exit()
91
+      })
92
+    }
93
+
94
+    throw new Error('unexpected request')
95
+  }
96
+)

+ 67
- 0
priv/tsconfig.json View File

@@ -0,0 +1,67 @@
1
+{
2
+  "compilerOptions": {
3
+    /* Basic Options */
4
+    "target": "esnext",                          /* Specify ECMAScript target version: 'ES3' (default), 'ES5', 'ES2015', 'ES2016', 'ES2017','ES2018' or 'ESNEXT'. */
5
+    "module": "commonjs",                     /* Specify module code generation: 'none', 'commonjs', 'amd', 'system', 'umd', 'es2015', or 'ESNext'. */
6
+    //"lib": [
7
+    //],                             /* Specify library files to be included in the compilation. */
8
+    "allowJs": true,                       /* Allow javascript files to be compiled. */
9
+    // "checkJs": true,                       /* Report errors in .js files. */
10
+    // "jsx": "preserve",                     /* Specify JSX code generation: 'preserve', 'react-native', or 'react'. */
11
+    // "declaration": true,                   /* Generates corresponding '.d.ts' file. */
12
+    // "declarationMap": true,                /* Generates a sourcemap for each corresponding '.d.ts' file. */
13
+    "sourceMap": false,                     /* Generates corresponding '.map' file. */
14
+    // "outFile": "../priv/runtime.js",                       /* Concatenate and emit output to single file. */
15
+    "outDir": "./dist",                        /* Redirect output structure to the directory. */
16
+    // "rootDir": "./",                       /* Specify the root directory of input files. Use to control the output directory structure with --outDir. */
17
+    // "composite": true,                     /* Enable project compilation */
18
+    "removeComments": true,                /* Do not emit comments to output. */
19
+    // "noEmit": true,                        /* Do not emit outputs. */
20
+    // "importHelpers": true,                 /* Import emit helpers from 'tslib'. */
21
+    // "downlevelIteration": true,            /* Provide full support for iterables in 'for-of', spread, and destructuring when targeting 'ES5' or 'ES3'. */
22
+    // "isolatedModules": true,               /* Transpile each file as a separate module (similar to 'ts.transpileModule'). */
23
+
24
+    /* Strict Type-Checking Options */
25
+    "strict": true,                           /* Enable all strict type-checking options. */
26
+    "noImplicitAny": false,                 /* Raise error on expressions and declarations with an implied 'any' type. */
27
+    // "strictNullChecks": true,              /* Enable strict null checks. */
28
+    // "strictFunctionTypes": true,           /* Enable strict checking of function types. */
29
+    // "strictPropertyInitialization": true,  /* Enable strict checking of property initialization in classes. */
30
+    // "noImplicitThis": true,                /* Raise error on 'this' expressions with an implied 'any' type. */
31
+    // "alwaysStrict": true,                  /* Parse in strict mode and emit "use strict" for each source file. */
32
+
33
+    /* Additional Checks */
34
+    "noUnusedLocals": true,                /* Report errors on unused locals. */
35
+    // "noUnusedParameters": true,            /* Report errors on unused parameters. */
36
+    "noImplicitReturns": true,             /* Report error when not all code paths in function return a value. */
37
+    "noFallthroughCasesInSwitch": true,    /* Report errors for fallthrough cases in switch statement. */
38
+
39
+    /* Module Resolution Options */
40
+    "moduleResolution": "node",            /* Specify module resolution strategy: 'node' (Node.js) or 'classic' (TypeScript pre-1.6). */
41
+    // "baseUrl": "./",                       /* Base directory to resolve non-absolute module names. */
42
+    // "paths": {},                           /* A series of entries which re-map imports to lookup locations relative to the 'baseUrl'. */
43
+    // "rootDirs": [],                        /* List of root folders whose combined content represents the structure of the project at runtime. */
44
+    // "typeRoots": [],                       /* List of folders to include type definitions from. */
45
+    // "types": [],                           /* Type declaration files to be included in compilation. */
46
+    "allowSyntheticDefaultImports": true,  /* Allow default imports from modules with no default export. This does not affect code emit, just typechecking. */
47
+    "esModuleInterop": true,                   /* Enables emit interoperability between CommonJS and ES Modules via creation of namespace objects for all imports. Implies 'allowSyntheticDefaultImports'. */
48
+    // "preserveSymlinks": true,              /* Do not resolve the real path of symlinks. */
49
+
50
+    /* Source Map Options */
51
+    // "sourceRoot": "",                      /* Specify the location where debugger should locate TypeScript files instead of source locations. */
52
+    // "mapRoot": "",                         /* Specify the location where debugger should locate map files instead of generated locations. */
53
+    // "inlineSourceMap": true,               /* Emit a single file with source maps instead of having a separate file. */
54
+    // "inlineSources": true,                 /* Emit the source alongside the sourcemaps within a single file; requires '--inlineSourceMap' or '--sourceMap' to be set. */
55
+
56
+    /* Experimental Options */
57
+    "experimentalDecorators": true,        /* Enables experimental support for ES7 decorators. */
58
+    "emitDecoratorMetadata": true,         /* Enables experimental support for emitting type metadata for decorators. */
59
+  },
60
+  "include": [
61
+    "**/*.ts",
62
+    "!node_modules/**/*"
63
+  ],
64
+  "exclude": [
65
+    "node_modules"
66
+  ]
67
+}

+ 20
- 0
test/erltorrent_test.exs View File

@@ -0,0 +1,20 @@
1
+defmodule AmbroisieTest do
2
+  use ExUnit.Case, async: false
3
+  doctest Ambroisie
4
+
5
+  @sintel_trailer 'magnet:?xt=urn:btih:6a9759bffd5c0af65319979fb7832189f4f3c35d'
6
+
7
+  test "pool is empty" do
8
+    list = Ambroisie.get()[:torrents]
9
+    assert [] = list
10
+    assert 0 = length(list)
11
+  end
12
+
13
+  test "can add a torrent" do
14
+    assert Ambroisie.add(@sintel_trailer) == :ok
15
+  end
16
+
17
+  test "can delete a torrent" do
18
+    assert Ambroisie.remove(@sintel_trailer) == :ok
19
+  end
20
+end

+ 1
- 0
test/test_helper.exs View File

@@ -0,0 +1 @@
1
+ExUnit.start()

Loading…
Cancel
Save