/
sysv_msgcreate.rb
54 lines (43 loc) · 1.08 KB
/
sysv_msgcreate.rb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#!/usr/bin/env ruby
#
# Experimenting with SysV IPC message queues
#
# Time-stamp: <05-Sep-2003 13:26:22 deveiant>
#
BEGIN {
base = File.dirname( File.dirname(File.expand_path(__FILE__)) )
$LOAD_PATH.unshift "#{base}/lib"
require "#{base}/utils.rb"
include UtilityFunctions
require 'sysvipc'
include SystemVIPC
require 'optparse'
}
$oflag = 0644 | IPC_CREAT
$usage = "Usage: #{File.basename( $0 )} [options] <filename>\n"
$id = 0x45
ARGV.options {|oparser|
oparser.banner = $usage
oparser.on( "--debug", "-d", TrueClass, "Turn debugging on" ) {
$DEBUG = true
debugMsg "Turned debugging on."
}
oparser.on( "--exclusive", "-e", TrueClass, "Make the queue exclusive" ) {
$oflag |= IPC_EXCL
debugMsg "Turned exclusive mode on."
}
# Handle the 'help' option
oparser.on( "--help", "-h", "Display this text." ) {
$stderr.puts oparser
exit!(0)
}
oparser.parse!
}
if ARGV.empty?
errorMessage $usage
exit( 1 )
end
filename = ARGV.shift
message "Creating message queue for #{filename}: "
mq = MessageQueue.new( ftok(filename, $id), $oflag )
message mq.inspect + "\n\n"