/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-osu / alarm

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 74 75 | 74 2e 63 69 73 2e 6f 68 |Path: tu|t.cis.oh|
|00000010| 69 6f 2d 73 74 61 74 65 | 2e 65 64 75 21 75 73 65 |io-state|.edu!use|
|00000020| 6e 65 74 2e 69 6e 73 2e | 63 77 72 75 2e 65 64 75 |net.ins.|cwru.edu|
|00000030| 21 75 6b 6d 61 21 75 66 | 6c 6f 72 69 64 61 21 75 |!ukma!uf|lorida!u|
|00000040| 61 6b 61 72 69 2e 70 72 | 69 6d 61 74 65 2e 77 69 |akari.pr|imate.wi|
|00000050| 73 63 2e 65 64 75 21 73 | 61 6d 73 75 6e 67 21 75 |sc.edu!s|amsung!u|
|00000060| 75 6e 65 74 21 63 6f 6e | 76 65 78 21 63 6f 6e 76 |unet!con|vex!conv|
|00000070| 65 78 2e 43 4f 4d 0a 46 | 72 6f 6d 3a 20 74 63 68 |ex.COM.F|rom: tch|
|00000080| 72 69 73 74 40 63 6f 6e | 76 65 78 2e 43 4f 4d 20 |rist@con|vex.COM |
|00000090| 28 54 6f 6d 20 43 68 72 | 69 73 74 69 61 6e 73 65 |(Tom Chr|istianse|
|000000a0| 6e 29 0a 4e 65 77 73 67 | 72 6f 75 70 73 3a 20 63 |n).Newsg|roups: c|
|000000b0| 6f 6d 70 2e 6c 61 6e 67 | 2e 70 65 72 6c 0a 53 75 |omp.lang|.perl.Su|
|000000c0| 62 6a 65 63 74 3a 20 52 | 65 3a 20 48 6f 77 20 74 |bject: R|e: How t|
|000000d0| 6f 20 64 6f 20 61 6c 61 | 72 6d 28 29 3f 0a 4d 65 |o do ala|rm()?.Me|
|000000e0| 73 73 61 67 65 2d 49 44 | 3a 20 3c 31 30 38 30 31 |ssage-ID|: <10801|
|000000f0| 37 40 63 6f 6e 76 65 78 | 2e 63 6f 6e 76 65 78 2e |7@convex|.convex.|
|00000100| 63 6f 6d 3e 0a 44 61 74 | 65 3a 20 33 31 20 4f 63 |com>.Dat|e: 31 Oc|
|00000110| 74 20 39 30 20 32 33 3a | 32 32 3a 31 34 20 47 4d |t 90 23:|22:14 GM|
|00000120| 54 0a 52 65 66 65 72 65 | 6e 63 65 73 3a 20 3c 43 |T.Refere|nces: <C|
|00000130| 4c 49 50 50 45 52 2e 39 | 30 4f 63 74 32 38 31 36 |LIPPER.9|0Oct2816|
|00000140| 32 32 33 38 40 63 68 61 | 6e 2e 63 73 64 2e 75 77 |2238@cha|n.csd.uw|
|00000150| 6f 2e 63 61 3e 0a 53 65 | 6e 64 65 72 3a 20 6e 65 |o.ca>.Se|nder: ne|
|00000160| 77 73 40 63 6f 6e 76 65 | 78 2e 63 6f 6d 0a 52 65 |ws@conve|x.com.Re|
|00000170| 70 6c 79 2d 54 6f 3a 20 | 74 63 68 72 69 73 74 40 |ply-To: |tchrist@|
|00000180| 63 6f 6e 76 65 78 2e 43 | 4f 4d 20 28 54 6f 6d 20 |convex.C|OM (Tom |
|00000190| 43 68 72 69 73 74 69 61 | 6e 73 65 6e 29 0a 4f 72 |Christia|nsen).Or|
|000001a0| 67 61 6e 69 7a 61 74 69 | 6f 6e 3a 20 43 4f 4e 56 |ganizati|on: CONV|
|000001b0| 45 58 20 53 6f 66 74 77 | 61 72 65 20 44 65 76 65 |EX Softw|are Deve|
|000001c0| 6c 6f 70 6d 65 6e 74 2c | 20 52 69 63 68 61 72 64 |lopment,| Richard|
|000001d0| 73 6f 6e 2c 20 54 58 0a | 4c 69 6e 65 73 3a 20 31 |son, TX.|Lines: 1|
|000001e0| 36 39 0a 0a 49 6e 20 61 | 72 74 69 63 6c 65 20 3c |69..In a|rticle <|
|000001f0| 43 4c 49 50 50 45 52 2e | 39 30 4f 63 74 32 38 31 |CLIPPER.|90Oct281|
|00000200| 36 32 32 33 38 40 63 68 | 61 6e 2e 63 73 64 2e 75 |62238@ch|an.csd.u|
|00000210| 77 6f 2e 63 61 3e 20 63 | 6c 69 70 70 65 72 40 63 |wo.ca> c|lipper@c|
|00000220| 68 61 6e 2e 63 73 64 2e | 75 77 6f 2e 63 61 20 28 |han.csd.|uwo.ca (|
|00000230| 4b 68 75 6e 20 59 65 65 | 20 46 75 6e 67 29 20 77 |Khun Yee| Fung) w|
|00000240| 72 69 74 65 73 3a 0a 3e | 49 20 68 61 76 65 20 74 |rites:.>|I have t|
|00000250| 72 69 65 64 20 74 6f 20 | 64 6f 20 50 65 72 6c 27 |ried to |do Perl'|
|00000260| 73 20 65 71 75 69 76 61 | 6c 65 6e 63 65 20 6f 66 |s equiva|lence of|
|00000270| 20 61 6c 61 72 6d 28 29 | 20 6f 6e 20 61 6e 64 20 | alarm()| on and |
|00000280| 6f 66 66 20 66 6f 72 20 | 74 77 6f 0a 3e 6d 6f 6e |off for |two.>mon|
|00000290| 74 68 73 20 6e 6f 77 2e | 20 49 20 73 74 69 6c 6c |ths now.| I still|
|000002a0| 20 64 6f 6e 27 74 20 6b | 6e 6f 77 20 61 20 67 6f | don't k|now a go|
|000002b0| 6f 64 20 73 6f 6c 75 74 | 69 6f 6e 2e 20 49 20 74 |od solut|ion. I t|
|000002c0| 72 69 65 64 20 75 73 69 | 6e 67 0a 3e 73 79 73 63 |ried usi|ng.>sysc|
|000002d0| 61 6c 6c 28 29 20 62 75 | 74 20 64 69 64 20 6e 6f |all() bu|t did no|
|000002e0| 74 20 6b 6e 6f 77 20 68 | 6f 77 20 74 6f 20 67 65 |t know h|ow to ge|
|000002f0| 74 20 72 65 73 75 6c 74 | 20 62 61 63 6b 2e 20 49 |t result| back. I|
|00000300| 20 74 72 69 65 64 20 70 | 75 74 74 69 6e 67 0a 3e | tried p|utting.>|
|00000310| 61 6c 61 72 6d 28 29 20 | 69 6e 20 70 65 72 6c 20 |alarm() |in perl |
|00000320| 6d 79 73 65 6c 66 20 62 | 75 74 20 69 74 20 64 69 |myself b|ut it di|
|00000330| 64 20 6e 6f 74 20 77 6f | 72 6b 2e 20 43 61 6e 20 |d not wo|rk. Can |
|00000340| 73 6f 6d 65 62 6f 64 79 | 20 74 65 6c 6c 20 6d 65 |somebody| tell me|
|00000350| 20 68 6f 77 20 49 0a 3e | 63 61 6e 20 64 6f 20 61 | how I.>|can do a|
|00000360| 6c 61 72 6d 28 29 20 6f | 72 20 65 71 75 69 76 61 |larm() o|r equiva|
|00000370| 6c 65 6e 74 20 69 6e 20 | 50 65 72 6c 3f 20 54 68 |lent in |Perl? Th|
|00000380| 61 6e 6b 20 79 6f 75 20 | 76 65 72 79 20 6d 75 63 |ank you |very muc|
|00000390| 68 2e 20 49 20 64 6f 6e | 27 74 0a 3e 77 61 6e 74 |h. I don|'t.>want|
|000003a0| 20 74 6f 20 75 73 65 20 | 74 68 65 20 75 73 75 62 | to use |the usub|
|000003b0| 20 66 65 61 74 75 72 65 | 2e 0a 0a 49 27 76 65 20 | feature|...I've |
|000003c0| 70 6f 73 74 65 64 20 74 | 68 69 73 20 61 74 20 6c |posted t|his at l|
|000003d0| 65 61 73 74 20 74 77 69 | 63 65 20 62 65 66 6f 72 |east twi|ce befor|
|000003e0| 65 2e 20 20 20 20 48 65 | 72 65 27 73 20 67 65 74 |e.    He|re's get|
|000003f0| 20 61 6e 64 20 73 65 74 | 20 69 74 69 6d 65 72 2c | and set| itimer,|
|00000400| 0a 70 6c 75 73 20 61 6e | 20 61 6c 61 72 6d 20 74 |.plus an| alarm t|
|00000410| 68 61 74 20 67 72 6f 6b | 73 20 66 6c 6f 61 74 73 |hat grok|s floats|
|00000420| 2e 0a 0a 2d 2d 74 6f 6d | 0a 0a 23 21 20 2f 62 69 |...--tom|..#! /bi|
|00000430| 6e 2f 73 68 0a 23 20 54 | 68 69 73 20 69 73 20 61 |n/sh.# T|his is a|
|00000440| 20 73 68 65 6c 6c 20 61 | 72 63 68 69 76 65 2c 20 | shell a|rchive, |
|00000450| 6d 65 61 6e 69 6e 67 3a | 0a 23 20 31 2e 20 52 65 |meaning:|.# 1. Re|
|00000460| 6d 6f 76 65 20 65 76 65 | 72 79 74 68 69 6e 67 20 |move eve|rything |
|00000470| 61 62 6f 76 65 20 74 68 | 65 20 23 21 20 2f 62 69 |above th|e #! /bi|
|00000480| 6e 2f 73 68 20 6c 69 6e | 65 2e 0a 23 20 32 2e 20 |n/sh lin|e..# 2. |
|00000490| 53 61 76 65 20 74 68 65 | 20 72 65 73 75 6c 74 69 |Save the| resulti|
|000004a0| 6e 67 20 74 65 78 74 20 | 69 6e 20 61 20 66 69 6c |ng text |in a fil|
|000004b0| 65 2e 0a 23 20 33 2e 20 | 45 78 65 63 75 74 65 20 |e..# 3. |Execute |
|000004c0| 74 68 65 20 66 69 6c 65 | 20 77 69 74 68 20 2f 62 |the file| with /b|
|000004d0| 69 6e 2f 73 68 20 28 6e | 6f 74 20 63 73 68 29 20 |in/sh (n|ot csh) |
|000004e0| 74 6f 20 63 72 65 61 74 | 65 3a 0a 23 09 74 74 69 |to creat|e:.#.tti|
|000004f0| 6d 65 72 0a 23 09 69 74 | 69 6d 65 72 73 2e 70 6c |mer.#.it|imers.pl|
|00000500| 0a 23 20 54 68 69 73 20 | 61 72 63 68 69 76 65 20 |.# This |archive |
|00000510| 63 72 65 61 74 65 64 3a | 20 57 65 64 20 4f 63 74 |created:| Wed Oct|
|00000520| 20 33 31 20 31 35 3a 31 | 33 3a 32 39 20 31 39 39 | 31 15:1|3:29 199|
|00000530| 30 0a 65 78 70 6f 72 74 | 20 50 41 54 48 3b 20 50 |0.export| PATH; P|
|00000540| 41 54 48 3d 2f 62 69 6e | 3a 2f 75 73 72 2f 62 69 |ATH=/bin|:/usr/bi|
|00000550| 6e 3a 24 50 41 54 48 0a | 65 63 68 6f 20 73 68 61 |n:$PATH.|echo sha|
|00000560| 72 3a 20 22 65 78 74 72 | 61 63 74 69 6e 67 20 27 |r: "extr|acting '|
|00000570| 74 74 69 6d 65 72 27 22 | 20 27 28 36 32 34 20 63 |ttimer'"| '(624 c|
|00000580| 68 61 72 61 63 74 65 72 | 73 29 27 0a 69 66 20 74 |haracter|s)'.if t|
|00000590| 65 73 74 20 2d 66 20 27 | 74 74 69 6d 65 72 27 0a |est -f '|ttimer'.|
|000005a0| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|000005b0| 20 22 77 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d | "will n|ot over-|
|000005c0| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|000005d0| 69 6c 65 20 27 74 74 69 | 6d 65 72 27 22 0a 65 6c |ile 'tti|mer'".el|
|000005e0| 73 65 0a 73 65 64 20 27 | 73 2f 5e 09 58 2f 2f 27 |se.sed '|s/^.X//'|
|000005f0| 20 3c 3c 20 5c 53 48 41 | 52 5f 45 4f 46 20 3e 20 | << \SHA|R_EOF > |
|00000600| 27 74 74 69 6d 65 72 27 | 0a 09 58 23 21 2f 75 73 |'ttimer'|..X#!/us|
|00000610| 72 2f 62 69 6e 2f 70 65 | 72 6c 0a 09 58 0a 09 58 |r/bin/pe|rl..X..X|
|00000620| 72 65 71 75 69 72 65 20 | 27 69 74 69 6d 65 72 73 |require |'itimers|
|00000630| 2e 70 6c 27 3b 0a 09 58 | 72 65 71 75 69 72 65 20 |.pl';..X|require |
|00000640| 27 63 74 69 6d 65 2e 70 | 6c 27 3b 0a 09 58 0a 09 |'ctime.p|l';..X..|
|00000650| 58 24 7c 20 3d 20 31 3b | 0a 09 58 0a 09 58 24 53 |X$| = 1;|..X..X$S|
|00000660| 49 47 7b 27 41 4c 52 4d | 27 7d 20 3d 20 27 62 69 |IG{'ALRM|'} = 'bi|
|00000670| 6e 67 6f 27 3b 0a 09 58 | 0a 09 58 73 75 62 20 62 |ngo';..X|..Xsub b|
|00000680| 69 6e 67 6f 20 7b 0a 09 | 58 20 20 20 20 70 72 69 |ingo {..|X    pri|
|00000690| 6e 74 20 22 41 4c 41 52 | 4d 20 20 40 20 22 2c 20 |nt "ALAR|M  @ ", |
|000006a0| 26 63 74 69 6d 65 28 74 | 69 6d 65 29 3b 0a 09 58 |&ctime(t|ime);..X|
|000006b0| 20 20 20 20 24 68 69 74 | 2b 2b 3b 0a 09 58 7d 20 |    $hit|++;..X} |
|000006c0| 0a 09 58 0a 09 58 70 72 | 69 6e 74 20 22 61 6c 61 |..X..Xpr|int "ala|
|000006d0| 72 6d 20 37 20 40 20 22 | 2c 20 26 63 74 69 6d 65 |rm 7 @ "|, &ctime|
|000006e0| 28 74 69 6d 65 29 3b 0a | 09 58 0a 09 58 64 6f 20 |(time);.|.X..Xdo |
|000006f0| 61 6c 61 72 6d 28 37 29 | 3b 0a 09 58 0a 09 58 70 |alarm(7)|;..X..Xp|
|00000700| 72 69 6e 74 20 22 73 6c | 65 65 70 69 6e 67 20 32 |rint "sl|eeping 2|
|00000710| 20 73 65 63 6f 6e 64 73 | 2e 2e 2e 20 22 3b 0a 09 | seconds|... ";..|
|00000720| 58 0a 09 58 73 6c 65 65 | 70 20 32 3b 0a 09 58 0a |X..Xslee|p 2;..X.|
|00000730| 09 58 70 72 69 6e 74 66 | 20 22 61 6c 61 72 6d 20 |.Xprintf| "alarm |
|00000740| 68 61 64 20 25 67 20 73 | 65 63 73 20 6c 65 66 74 |had %g s|ecs left|
|00000750| 5c 6e 22 2c 20 26 61 6c | 61 72 6d 28 30 29 3b 0a |\n", &al|arm(0);.|
|00000760| 09 58 0a 09 58 70 72 69 | 6e 74 20 22 72 65 73 65 |.X..Xpri|nt "rese|
|00000770| 74 74 69 6e 67 20 74 6f | 20 31 2e 32 35 20 73 65 |tting to| 1.25 se|
|00000780| 63 6f 6e 64 73 5c 6e 22 | 3b 0a 09 58 0a 09 58 26 |conds\n"|;..X..X&|
|00000790| 61 6c 61 72 6d 28 31 2e | 32 35 29 3b 0a 09 58 0a |alarm(1.|25);..X.|
|000007a0| 09 58 64 6f 20 7b 20 26 | 74 69 6d 65 6c 65 66 74 |.Xdo { &|timeleft|
|000007b0| 3b 20 7d 20 75 6e 74 69 | 6c 20 24 68 69 74 3b 20 |; } unti|l $hit; |
|000007c0| 0a 09 58 0a 09 58 70 72 | 69 6e 74 20 22 65 73 63 |..X..Xpr|int "esc|
|000007d0| 61 70 65 64 20 61 74 20 | 5c 6e 5c 74 22 2c 20 26 |aped at |\n\t", &|
|000007e0| 63 74 69 6d 65 28 74 69 | 6d 65 29 3b 0a 09 58 0a |ctime(ti|me);..X.|
|000007f0| 09 58 73 75 62 20 74 69 | 6d 65 6c 65 66 74 20 7b |.Xsub ti|meleft {|
|00000800| 0a 09 58 20 20 20 20 6c | 6f 63 61 6c 28 24 74 69 |..X    l|ocal($ti|
|00000810| 6d 65 6c 65 66 74 29 3b | 0a 09 58 20 20 20 20 26 |meleft);|..X    &|
|00000820| 67 65 74 69 74 69 6d 65 | 72 28 26 49 54 49 4d 45 |getitime|r(&ITIME|
|00000830| 52 5f 52 45 41 4c 2c 20 | 24 74 69 6d 65 6c 65 66 |R_REAL, |$timelef|
|00000840| 74 29 20 7c 7c 20 64 69 | 65 20 22 63 61 6e 27 74 |t) || di|e "can't|
|00000850| 20 67 65 74 69 74 69 6d | 65 72 3a 20 24 21 22 3b | getitim|er: $!";|
|00000860| 0a 09 58 20 20 20 20 28 | 24 78 2c 20 24 79 2c 20 |..X    (|$x, $y, |
|00000870| 24 73 2c 20 24 75 29 20 | 3d 20 26 69 74 69 6d 65 |$s, $u) |= &itime|
|00000880| 72 28 24 74 69 6d 65 6c | 65 66 74 29 3b 0a 09 58 |r($timel|eft);..X|
|00000890| 20 20 20 20 70 72 69 6e | 74 66 28 22 74 69 6d 65 |    prin|tf("time|
|000008a0| 6c 65 66 74 20 69 73 20 | 25 67 5c 6e 22 2c 20 24 |left is |%g\n", $|
|000008b0| 73 20 2b 20 28 24 75 20 | 2f 20 31 65 36 29 29 3b |s + ($u |/ 1e6));|
|000008c0| 0a 09 58 7d 0a 53 48 41 | 52 5f 45 4f 46 0a 69 66 |..X}.SHA|R_EOF.if|
|000008d0| 20 74 65 73 74 20 36 32 | 34 20 2d 6e 65 20 22 60 | test 62|4 -ne "`|
|000008e0| 77 63 20 2d 63 20 3c 20 | 27 74 74 69 6d 65 72 27 |wc -c < |'ttimer'|
|000008f0| 60 22 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |`".then.|.echo sh|
|00000900| 61 72 3a 20 22 65 72 72 | 6f 72 20 74 72 61 6e 73 |ar: "err|or trans|
|00000910| 6d 69 74 74 69 6e 67 20 | 27 74 74 69 6d 65 72 27 |mitting |'ttimer'|
|00000920| 22 20 27 28 73 68 6f 75 | 6c 64 20 68 61 76 65 20 |" '(shou|ld have |
|00000930| 62 65 65 6e 20 36 32 34 | 20 63 68 61 72 61 63 74 |been 624| charact|
|00000940| 65 72 73 29 27 0a 66 69 | 0a 63 68 6d 6f 64 20 37 |ers)'.fi|.chmod 7|
|00000950| 37 35 20 27 74 74 69 6d | 65 72 27 0a 66 69 0a 65 |75 'ttim|er'.fi.e|
|00000960| 63 68 6f 20 73 68 61 72 | 3a 20 22 65 78 74 72 61 |cho shar|: "extra|
|00000970| 63 74 69 6e 67 20 27 69 | 74 69 6d 65 72 73 2e 70 |cting 'i|timers.p|
|00000980| 6c 27 22 20 27 28 32 32 | 32 31 20 63 68 61 72 61 |l'" '(22|21 chara|
|00000990| 63 74 65 72 73 29 27 0a | 69 66 20 74 65 73 74 20 |cters)'.|if test |
|000009a0| 2d 66 20 27 69 74 69 6d | 65 72 73 2e 70 6c 27 0a |-f 'itim|ers.pl'.|
|000009b0| 74 68 65 6e 0a 09 65 63 | 68 6f 20 73 68 61 72 3a |then..ec|ho shar:|
|000009c0| 20 22 77 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d | "will n|ot over-|
|000009d0| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|000009e0| 69 6c 65 20 27 69 74 69 | 6d 65 72 73 2e 70 6c 27 |ile 'iti|mers.pl'|
|000009f0| 22 0a 65 6c 73 65 0a 73 | 65 64 20 27 73 2f 5e 09 |".else.s|ed 's/^.|
|00000a00| 58 2f 2f 27 20 3c 3c 20 | 5c 53 48 41 52 5f 45 4f |X//' << |\SHAR_EO|
|00000a10| 46 20 3e 20 27 69 74 69 | 6d 65 72 73 2e 70 6c 27 |F > 'iti|mers.pl'|
|00000a20| 0a 09 58 23 09 69 74 69 | 6d 65 72 73 2e 70 6c 20 |..X#.iti|mers.pl |
|00000a30| 2d 20 74 69 6d 65 72 20 | 6d 61 6e 69 70 75 6c 61 |- timer |manipula|
|00000a40| 74 69 6f 6e 20 66 75 6e | 63 74 69 6f 6e 73 0a 09 |tion fun|ctions..|
|00000a50| 58 23 09 77 72 69 74 74 | 65 6e 20 62 79 20 74 6f |X#.writt|en by to|
|00000a60| 6d 20 63 68 72 69 73 74 | 69 61 6e 73 65 6e 20 3c |m christ|iansen <|
|00000a70| 74 63 68 72 69 73 74 40 | 63 6f 6e 76 65 78 2e 63 |tchrist@|convex.c|
|00000a80| 6f 6d 3e 0a 09 58 23 0a | 09 58 23 09 67 65 74 69 |om>..X#.|.X#.geti|
|00000a90| 74 69 6d 65 72 2c 20 73 | 65 74 69 74 69 6d 65 72 |timer, s|etitimer|
|00000aa0| 20 20 2d 20 6c 69 6b 65 | 20 73 79 73 63 61 6c 6c |  - like| syscall|
|00000ab0| 73 20 62 75 74 20 72 65 | 74 75 72 6e 20 74 72 75 |s but re|turn tru|
|00000ac0| 65 20 6f 6e 20 73 75 63 | 63 65 73 73 0a 09 58 23 |e on suc|cess..X#|
|00000ad0| 09 09 09 09 4e 42 3a 20 | 72 65 71 75 69 72 65 20 |....NB: |require |
|00000ae0| 70 61 63 6b 65 64 20 64 | 61 74 61 20 66 6f 72 20 |packed d|ata for |
|00000af0| 61 72 67 73 0a 09 58 23 | 0a 09 58 23 09 69 74 69 |args..X#|..X#.iti|
|00000b00| 6d 65 72 09 09 20 20 20 | 20 20 20 2d 20 63 6f 6e |mer..   |   - con|
|00000b10| 76 65 72 73 69 6f 6e 20 | 66 75 6e 63 74 69 6f 6e |version |function|
|00000b20| 20 66 6f 72 20 70 61 63 | 6b 69 6e 67 20 61 6e 64 | for pac|king and|
|00000b30| 20 0a 09 58 23 09 09 09 | 09 75 6e 70 61 63 6b 69 | ..X#...|.unpacki|
|00000b40| 6e 67 20 69 74 69 6d 65 | 72 73 2e 20 20 70 61 63 |ng itime|rs.  pac|
|00000b50| 6b 73 20 69 6e 20 73 63 | 61 6c 61 72 20 63 6f 6e |ks in sc|alar con|
|00000b60| 74 65 78 74 2c 0a 09 58 | 23 09 09 09 09 75 6e 70 |text,..X|#....unp|
|00000b70| 61 63 6b 73 20 69 6e 20 | 61 72 72 61 79 20 63 6f |acks in |array co|
|00000b80| 6e 74 65 78 74 2e 0a 09 | 58 23 0a 09 58 23 09 61 |ntext...|X#..X#.a|
|00000b90| 6c 61 72 6d 09 09 20 20 | 20 20 20 20 2d 20 6c 69 |larm..  |    - li|
|00000ba0| 6b 65 20 6c 69 62 63 20 | 63 61 6c 6c 20 62 75 74 |ke libc |call but|
|00000bb0| 20 63 61 6e 20 74 61 6b | 65 20 61 6e 64 20 72 65 | can tak|e and re|
|00000bc0| 74 75 72 6e 73 20 66 6c | 6f 61 74 73 0a 09 58 23 |turns fl|oats..X#|
|00000bd0| 0a 09 58 0a 09 58 72 65 | 71 75 69 72 65 20 27 73 |..X..Xre|quire 's|
|00000be0| 69 7a 65 6f 66 2e 70 68 | 27 3b 0a 09 58 72 65 71 |izeof.ph|';..Xreq|
|00000bf0| 75 69 72 65 20 27 73 79 | 73 63 61 6c 6c 2e 70 68 |uire 'sy|scall.ph|
|00000c00| 27 3b 0a 09 58 72 65 71 | 75 69 72 65 20 27 73 79 |';..Xreq|uire 'sy|
|00000c10| 73 2f 74 69 6d 65 2e 70 | 68 27 3b 0a 09 58 0a 09 |s/time.p|h';..X..|
|00000c20| 58 23 0a 09 58 23 20 63 | 61 72 65 66 75 6c 3a 20 |X#..X# c|areful: |
|00000c30| 69 6d 70 6c 65 6d 65 6e | 74 61 74 69 6f 6e 20 64 |implemen|tation d|
|00000c40| 65 70 65 6e 64 65 6e 74 | 21 0a 09 58 23 0a 09 58 |ependent|!..X#..X|
|00000c50| 24 69 74 69 6d 65 72 5f | 74 20 3d 20 27 4c 34 27 |$itimer_|t = 'L4'|
|00000c60| 3b 20 20 23 20 69 74 69 | 6d 65 72 73 20 63 6f 6e |;  # iti|mers con|
|00000c70| 73 69 73 74 20 6f 66 20 | 66 6f 75 72 20 6c 6f 6e |sist of |four lon|
|00000c80| 67 73 0a 09 58 24 73 69 | 7a 65 6f 66 7b 27 69 74 |gs..X$si|zeof{'it|
|00000c90| 69 6d 65 72 27 7d 20 3d | 20 27 31 36 27 20 75 6e |imer'} =| '16' un|
|00000ca0| 6c 65 73 73 20 64 65 66 | 69 6e 65 64 20 24 73 69 |less def|ined $si|
|00000cb0| 7a 65 6f 66 7b 27 69 74 | 69 6d 65 72 27 7d 3b 20 |zeof{'it|imer'}; |
|00000cc0| 20 23 20 66 72 6f 6d 20 | 73 69 7a 65 6f 66 2e 70 | # from |sizeof.p|
|00000cd0| 68 3f 0a 09 58 0a 09 58 | 23 23 23 23 23 23 23 23 |h?..X..X|########|
|00000ce0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000cf0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000d00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000d10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000d20| 23 23 23 0a 09 58 23 20 | 69 74 69 6d 65 72 20 63 |###..X# |itimer c|
|00000d30| 6f 6e 76 65 72 73 69 6f | 6e 20 66 75 6e 63 74 69 |onversio|n functi|
|00000d40| 6f 6e 3b 20 74 68 69 73 | 20 6f 6e 65 20 67 6f 65 |on; this| one goe|
|00000d50| 73 20 62 6f 74 68 20 77 | 61 79 73 0a 09 58 23 0a |s both w|ays..X#.|
|00000d60| 09 58 73 75 62 20 69 74 | 69 6d 65 72 20 7b 0a 09 |.Xsub it|imer {..|
|00000d70| 58 20 20 20 20 69 66 20 | 28 77 61 6e 74 61 72 72 |X    if |(wantarr|
|00000d80| 61 79 29 20 7b 0a 09 58 | 09 77 61 72 6e 20 22 69 |ay) {..X|.warn "i|
|00000d90| 74 69 6d 65 72 3a 20 6f | 6e 6c 79 20 65 78 70 65 |timer: o|nly expe|
|00000da0| 63 74 65 64 20 6f 6e 65 | 20 61 72 67 20 69 6e 20 |cted one| arg in |
|00000db0| 61 72 72 61 79 20 63 6f | 6e 74 65 78 74 22 20 69 |array co|ntext" i|
|00000dc0| 66 20 24 23 5f 3b 0a 09 | 58 09 77 61 72 6e 20 22 |f $#_;..|X.warn "|
|00000dd0| 69 74 69 6d 65 72 3a 20 | 69 74 69 6d 65 72 20 74 |itimer: |itimer t|
|00000de0| 6f 20 75 6e 70 61 63 6b | 20 6e 6f 74 20 6c 65 6e |o unpack| not len|
|00000df0| 67 74 68 20 22 2e 24 73 | 69 7a 65 6f 66 7b 27 69 |gth ".$s|izeof{'i|
|00000e00| 74 69 6d 65 72 27 7d 20 | 0a 09 58 09 20 20 20 20 |timer'} |..X.    |
|00000e10| 75 6e 6c 65 73 73 20 6c | 65 6e 67 74 68 28 24 5f |unless l|ength($_|
|00000e20| 5b 30 5d 29 20 3d 3d 20 | 24 73 69 7a 65 6f 66 7b |[0]) == |$sizeof{|
|00000e30| 27 69 74 69 6d 65 72 27 | 7d 3b 0a 09 58 09 72 65 |'itimer'|};..X.re|
|00000e40| 74 75 72 6e 20 75 6e 70 | 61 63 6b 28 24 69 74 69 |turn unp|ack($iti|
|00000e50| 6d 65 72 5f 74 2c 20 24 | 5f 5b 30 5d 29 3b 0a 09 |mer_t, $|_[0]);..|
|00000e60| 58 20 20 20 20 7d 20 65 | 6c 73 65 20 7b 0a 09 58 |X    } e|lse {..X|
|00000e70| 09 72 65 74 75 72 6e 20 | 70 61 63 6b 28 24 69 74 |.return |pack($it|
|00000e80| 69 6d 65 72 5f 74 2c 20 | 24 5f 5b 30 5d 2c 20 24 |imer_t, |$_[0], $|
|00000e90| 5f 5b 31 5d 2c 20 24 5f | 5b 32 5d 2c 20 24 5f 5b |_[1], $_|[2], $_[|
|00000ea0| 33 5d 29 3b 20 0a 09 58 | 20 20 20 20 7d 20 0a 09 |3]); ..X|    } ..|
|00000eb0| 58 7d 20 0a 09 58 0a 09 | 58 0a 09 58 23 23 23 23 |X} ..X..|X..X####|
|00000ec0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ed0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ee0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000ef0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f00| 23 23 23 23 23 23 23 0a | 09 58 73 75 62 20 73 65 |#######.|.Xsub se|
|00000f10| 74 69 74 69 6d 65 72 20 | 7b 0a 09 58 20 20 20 20 |titimer |{..X    |
|00000f20| 6c 6f 63 61 6c 28 24 77 | 68 69 63 68 29 20 3d 20 |local($w|hich) = |
|00000f30| 73 68 69 66 74 3b 0a 09 | 58 20 20 20 20 6c 6f 63 |shift;..|X    loc|
|00000f40| 61 6c 28 24 72 65 74 76 | 61 6c 29 3b 0a 09 58 0a |al($retv|al);..X.|
|00000f50| 09 58 20 20 20 20 64 69 | 65 20 22 73 65 74 69 74 |.X    di|e "setit|
|00000f60| 69 6d 65 72 3a 20 69 6e | 70 75 74 20 69 74 69 6d |imer: in|put itim|
|00000f70| 65 72 20 6e 6f 74 20 6c | 65 6e 67 74 68 20 22 2e |er not l|ength ".|
|00000f80| 24 73 69 7a 65 6f 66 7b | 27 69 74 69 6d 65 72 27 |$sizeof{|'itimer'|
|00000f90| 7d 20 0a 09 58 09 75 6e | 6c 65 73 73 20 6c 65 6e |} ..X.un|less len|
|00000fa0| 67 74 68 28 24 5f 5b 30 | 5d 29 20 3d 3d 20 24 73 |gth($_[0|]) == $s|
|00000fb0| 69 7a 65 6f 66 7b 27 69 | 74 69 6d 65 72 27 7d 3b |izeof{'i|timer'};|
|00000fc0| 0a 09 58 0a 09 58 20 20 | 20 20 24 5f 5b 31 5d 20 |..X..X  |  $_[1] |
|00000fd0| 3d 20 26 69 74 69 6d 65 | 72 28 30 2c 30 2c 30 2c |= &itime|r(0,0,0,|
|00000fe0| 30 29 3b 0a 09 58 20 20 | 20 20 73 79 73 63 61 6c |0);..X  |  syscal|
|00000ff0| 6c 28 26 53 59 53 5f 73 | 65 74 69 74 69 6d 65 72 |l(&SYS_s|etitimer|
|00001000| 2c 20 24 77 68 69 63 68 | 2c 20 24 5f 5b 30 5d 2c |, $which|, $_[0],|
|00001010| 20 24 5f 5b 31 5d 29 20 | 21 3d 20 2d 31 3b 0a 09 | $_[1]) |!= -1;..|
|00001020| 58 7d 20 0a 09 58 0a 09 | 58 23 23 23 23 23 23 23 |X} ..X..|X#######|
|00001030| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001040| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001050| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001060| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001070| 23 23 23 23 0a 09 58 73 | 75 62 20 67 65 74 69 74 |####..Xs|ub getit|
|00001080| 69 6d 65 72 20 7b 0a 09 | 58 20 20 20 20 6c 6f 63 |imer {..|X    loc|
|00001090| 61 6c 28 24 77 68 69 63 | 68 29 20 3d 20 73 68 69 |al($whic|h) = shi|
|000010a0| 66 74 3b 0a 09 58 0a 09 | 58 20 20 20 20 24 5f 5b |ft;..X..|X    $_[|
|000010b0| 30 5d 20 3d 20 26 69 74 | 69 6d 65 72 28 30 2c 30 |0] = &it|imer(0,0|
|000010c0| 2c 30 2c 30 29 3b 0a 09 | 58 0a 09 58 20 20 20 20 |,0,0);..|X..X    |
|000010d0| 73 79 73 63 61 6c 6c 28 | 26 53 59 53 5f 67 65 74 |syscall(|&SYS_get|
|000010e0| 69 74 69 6d 65 72 2c 20 | 24 77 68 69 63 68 2c 20 |itimer, |$which, |
|000010f0| 24 5f 5b 30 5d 29 20 21 | 3d 20 2d 31 3b 0a 09 58 |$_[0]) !|= -1;..X|
|00001100| 7d 20 0a 09 58 0a 09 58 | 23 23 23 23 23 23 23 23 |} ..X..X|########|
|00001110| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001120| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001130| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001140| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001150| 23 23 23 0a 09 58 23 20 | 0a 09 58 23 20 61 6c 61 |###..X# |..X# ala|
|00001160| 72 6d 3b 20 73 65 6e 64 | 20 6d 65 20 61 20 53 49 |rm; send| me a SI|
|00001170| 47 41 4c 52 4d 20 69 6e | 20 74 68 69 73 20 6d 61 |GALRM in| this ma|
|00001180| 6e 79 20 73 65 63 6f 6e | 64 73 20 28 66 72 61 63 |ny secon|ds (frac|
|00001190| 74 69 6f 6e 73 20 6f 6b | 29 0a 09 58 23 20 0a 09 |tions ok|)..X# ..|
|000011a0| 58 23 0a 09 58 73 75 62 | 20 61 6c 61 72 6d 20 7b |X#..Xsub| alarm {|
|000011b0| 0a 09 58 20 20 20 20 6c | 6f 63 61 6c 28 24 74 69 |..X    l|ocal($ti|
|000011c0| 63 6b 73 29 20 3d 20 40 | 5f 3b 0a 09 58 20 20 20 |cks) = @|_;..X   |
|000011d0| 20 6c 6f 63 61 6c 28 24 | 69 74 69 6d 65 72 2c 24 | local($|itimer,$|
|000011e0| 6f 74 69 6d 65 72 29 3b | 0a 09 58 20 20 20 20 6c |otimer);|..X    l|
|000011f0| 6f 63 61 6c 28 24 69 73 | 65 63 73 2c 20 24 69 75 |ocal($is|ecs, $iu|
|00001200| 73 65 63 73 2c 20 24 73 | 65 63 73 2c 20 24 75 73 |secs, $s|ecs, $us|
|00001210| 65 63 73 29 3b 0a 09 58 | 0a 09 58 20 20 20 20 24 |ecs);..X|..X    $|
|00001220| 73 65 63 73 20 3d 20 69 | 6e 74 28 24 74 69 63 6b |secs = i|nt($tick|
|00001230| 73 29 3b 0a 09 58 20 20 | 20 20 24 75 73 65 63 73 |s);..X  |  $usecs|
|00001240| 20 3d 20 28 24 74 69 63 | 6b 73 20 2d 20 24 73 65 | = ($tic|ks - $se|
|00001250| 63 73 29 20 2a 20 31 65 | 36 3b 0a 09 58 0a 09 58 |cs) * 1e|6;..X..X|
|00001260| 20 20 20 20 24 6f 74 69 | 6d 65 72 20 3d 20 26 69 |    $oti|mer = &i|
|00001270| 74 69 6d 65 72 28 30 2c | 30 2c 30 2c 30 29 3b 0a |timer(0,|0,0,0);.|
|00001280| 09 58 20 20 20 20 24 69 | 74 69 6d 65 72 20 3d 20 |.X    $i|timer = |
|00001290| 26 69 74 69 6d 65 72 28 | 30 2c 30 2c 24 73 65 63 |&itimer(|0,0,$sec|
|000012a0| 73 2c 24 75 73 65 63 73 | 29 3b 0a 09 58 0a 09 58 |s,$usecs|);..X..X|
|000012b0| 20 20 20 20 26 73 65 74 | 69 74 69 6d 65 72 28 26 |    &set|itimer(&|
|000012c0| 49 54 49 4d 45 52 5f 52 | 45 41 4c 2c 20 24 69 74 |ITIMER_R|EAL, $it|
|000012d0| 69 6d 65 72 2c 20 24 6f | 74 69 6d 65 72 29 20 0a |imer, $o|timer) .|
|000012e0| 09 58 09 7c 7c 20 77 61 | 72 6e 20 22 61 6c 61 72 |.X.|| wa|rn "alar|
|000012f0| 6d 3a 20 73 65 74 69 74 | 69 6d 65 72 20 66 61 69 |m: setit|imer fai|
|00001300| 6c 65 64 3a 20 24 21 22 | 3b 0a 09 58 0a 09 58 20 |led: $!"|;..X..X |
|00001310| 20 20 20 28 24 69 73 65 | 63 73 2c 20 24 69 75 73 |   ($ise|cs, $ius|
|00001320| 65 63 73 2c 20 24 73 65 | 63 73 2c 20 24 75 73 65 |ecs, $se|cs, $use|
|00001330| 63 73 29 20 3d 20 26 69 | 74 69 6d 65 72 28 24 6f |cs) = &i|timer($o|
|00001340| 74 69 6d 65 72 29 3b 0a | 09 58 20 20 20 20 72 65 |timer);.|.X    re|
|00001350| 74 75 72 6e 20 24 73 65 | 63 73 20 2b 20 28 24 75 |turn $se|cs + ($u|
|00001360| 73 65 63 73 2f 31 65 36 | 29 3b 0a 09 58 7d 20 0a |secs/1e6|);..X} .|
|00001370| 53 48 41 52 5f 45 4f 46 | 0a 69 66 20 74 65 73 74 |SHAR_EOF|.if test|
|00001380| 20 32 32 32 31 20 2d 6e | 65 20 22 60 77 63 20 2d | 2221 -n|e "`wc -|
|00001390| 63 20 3c 20 27 69 74 69 | 6d 65 72 73 2e 70 6c 27 |c < 'iti|mers.pl'|
|000013a0| 60 22 0a 74 68 65 6e 0a | 09 65 63 68 6f 20 73 68 |`".then.|.echo sh|
|000013b0| 61 72 3a 20 22 65 72 72 | 6f 72 20 74 72 61 6e 73 |ar: "err|or trans|
|000013c0| 6d 69 74 74 69 6e 67 20 | 27 69 74 69 6d 65 72 73 |mitting |'itimers|
|000013d0| 2e 70 6c 27 22 20 27 28 | 73 68 6f 75 6c 64 20 68 |.pl'" '(|should h|
|000013e0| 61 76 65 20 62 65 65 6e | 20 32 32 32 31 20 63 68 |ave been| 2221 ch|
|000013f0| 61 72 61 63 74 65 72 73 | 29 27 0a 66 69 0a 63 68 |aracters|)'.fi.ch|
|00001400| 6d 6f 64 20 36 36 34 20 | 27 69 74 69 6d 65 72 73 |mod 664 |'itimers|
|00001410| 2e 70 6c 27 0a 66 69 0a | 65 78 69 74 20 30 0a 23 |.pl'.fi.|exit 0.#|
|00001420| 09 45 6e 64 20 6f 66 20 | 73 68 65 6c 6c 20 61 72 |.End of |shell ar|
|00001430| 63 68 69 76 65 0a 0a    |                         |chive.. |        |
+--------+-------------------------+-------------------------+--------+--------+