| Holger Hans Peter Freyther | 3fab3fd | 2012-05-18 18:54:11 +0200 | [diff] [blame] | 1 | " |
| 2 | Simple UDP replay from the state files |
| 3 | " |
| 4 | |
| 5 | PackageLoader fileInPackage: #Sockets. |
| Holger Hans Peter Freyther | 602559f | 2012-08-05 09:27:20 +0200 | [diff] [blame] | 6 | FileStream fileIn: 'rtp_replay_shared.st'. |
| Holger Hans Peter Freyther | 3fab3fd | 2012-05-18 18:54:11 +0200 | [diff] [blame] | 7 | |
| Holger Hans Peter Freyther | 4552d80 | 2012-08-05 09:25:25 +0200 | [diff] [blame] | 8 | |
| 9 | Eval [ |
| Jacob Erlbeck | 8b66649 | 2013-12-13 13:18:19 +0100 | [diff] [blame] | 10 | | replay file host dport | |
| Holger Hans Peter Freyther | 4552d80 | 2012-08-05 09:25:25 +0200 | [diff] [blame] | 11 | |
| Jacob Erlbeck | 8b66649 | 2013-12-13 13:18:19 +0100 | [diff] [blame] | 12 | file := Smalltalk arguments at: 1 ifAbsent: [ 'rtpstream.state' ]. |
| 13 | host := Smalltalk arguments at: 2 ifAbsent: [ '127.0.0.1' ]. |
| 14 | dport := (Smalltalk arguments at: 3 ifAbsent: [ '4000' ]) asInteger. |
| 15 | sport := (Smalltalk arguments at: 4 ifAbsent: [ '0' ]) asInteger. |
| Holger Hans Peter Freyther | 602559f | 2012-08-05 09:27:20 +0200 | [diff] [blame] | 16 | |
| Jacob Erlbeck | 8b66649 | 2013-12-13 13:18:19 +0100 | [diff] [blame] | 17 | replay := RTPReplay on: file fromPort: sport. |
| Holger Hans Peter Freyther | 4552d80 | 2012-08-05 09:25:25 +0200 | [diff] [blame] | 18 | |
| 19 | Transcript nextPutAll: 'Going to stream now'; nl. |
| Jacob Erlbeck | 8b66649 | 2013-12-13 13:18:19 +0100 | [diff] [blame] | 20 | replay streamAudio: host port: dport. |
| Holger Hans Peter Freyther | 3fab3fd | 2012-05-18 18:54:11 +0200 | [diff] [blame] | 21 | ] |