Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / lib / pwd.pl < prev next >
MacBinary | 1992-09-27 | 2.1 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Sep 27 18:03:37 1992, modified Sun Sep 27 18:03:37 1992, creator 'MPS ', type ASCII, 1488 bytes "pwd.pl" , at 0x650 428 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 70 77 64 2e 70 6c | 00 00 00 00 00 00 00 00 |..pwd.pl|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 05 d0 00 | 00 01 ac a6 eb e0 39 a6 |........|......9.|
|00000060| eb e0 39 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..9.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2c 25 00 00 |........|....,%..|
|00000080| 3b 23 20 70 77 64 2e 70 | 6c 20 2d 20 6b 65 65 70 |;# pwd.p|l - keep|
|00000090| 73 20 74 72 61 63 6b 20 | 6f 66 20 63 75 72 72 65 |s track |of curre|
|000000a0| 6e 74 20 77 6f 72 6b 69 | 6e 67 20 64 69 72 65 63 |nt worki|ng direc|
|000000b0| 74 6f 72 79 20 69 6e 20 | 50 57 44 20 65 6e 76 69 |tory in |PWD envi|
|000000c0| 72 6f 6e 6d 65 6e 74 20 | 76 61 72 0d 3b 23 0d 3b |ronment |var.;#.;|
|000000d0| 23 20 24 52 43 53 66 69 | 6c 65 3a 20 70 77 64 2e |# $RCSfi|le: pwd.|
|000000e0| 70 6c 2c 76 20 24 24 52 | 65 76 69 73 69 6f 6e 3a |pl,v $$R|evision:|
|000000f0| 20 34 2e 30 2e 31 2e 31 | 20 24 24 44 61 74 65 3a | 4.0.1.1| $$Date:|
|00000100| 20 39 32 2f 30 36 2f 30 | 38 20 31 33 3a 34 35 3a | 92/06/0|8 13:45:|
|00000110| 32 32 20 24 0d 3b 23 0d | 3b 23 20 24 4c 6f 67 3a |22 $.;#.|;# $Log:|
|00000120| 09 70 77 64 2e 70 6c 2c | 76 20 24 0d 3b 23 20 52 |.pwd.pl,|v $.;# R|
|00000130| 65 76 69 73 69 6f 6e 20 | 34 2e 30 2e 31 2e 31 20 |evision |4.0.1.1 |
|00000140| 20 39 32 2f 30 36 2f 30 | 38 20 20 31 33 3a 34 35 | 92/06/0|8  13:45|
|00000150| 3a 32 32 20 20 6c 77 61 | 6c 6c 0d 3b 23 20 70 61 |:22  lwa|ll.;# pa|
|00000160| 74 63 68 32 30 3a 20 73 | 75 70 70 6f 72 74 20 61 |tch20: s|upport a|
|00000170| 64 64 65 64 20 74 6f 20 | 70 77 64 2e 70 6c 20 74 |dded to |pwd.pl t|
|00000180| 6f 20 73 74 72 69 70 20 | 61 75 74 6f 6d 6f 75 6e |o strip |automoun|
|00000190| 74 65 72 20 63 72 75 64 | 0d 3b 23 20 0d 3b 23 20 |ter crud|.;# .;# |
|000001a0| 52 65 76 69 73 69 6f 6e | 20 34 2e 30 20 20 39 31 |Revision| 4.0  91|
|000001b0| 2f 30 33 2f 32 30 20 20 | 30 31 3a 32 36 3a 30 33 |/03/20  |01:26:03|
|000001c0| 20 20 6c 77 61 6c 6c 0d | 3b 23 20 34 2e 30 20 62 |  lwall.|;# 4.0 b|
|000001d0| 61 73 65 6c 69 6e 65 2e | 0d 3b 23 20 0d 3b 23 20 |aseline.|.;# .;# |
|000001e0| 52 65 76 69 73 69 6f 6e | 20 33 2e 30 2e 31 2e 32 |Revision| 3.0.1.2|
|000001f0| 20 20 39 31 2f 30 31 2f | 31 31 20 20 31 38 3a 30 |  91/01/|11  18:0|
|00000200| 39 3a 32 34 20 20 6c 77 | 61 6c 6c 0d 3b 23 20 70 |9:24  lw|all.;# p|
|00000210| 61 74 63 68 34 32 3a 20 | 73 6f 6d 65 20 2e 70 6c |atch42: |some .pl|
|00000220| 20 66 69 6c 65 73 20 77 | 65 72 65 20 6d 69 73 73 | files w|ere miss|
|00000230| 69 6e 67 20 74 68 65 69 | 72 20 74 72 61 69 6c 69 |ing thei|r traili|
|00000240| 6e 67 20 31 3b 0d 3b 23 | 20 0d 3b 23 20 52 65 76 |ng 1;.;#| .;# Rev|
|00000250| 69 73 69 6f 6e 20 33 2e | 30 2e 31 2e 31 20 20 39 |ision 3.|0.1.1  9|
|00000260| 30 2f 30 38 2f 30 39 20 | 20 30 34 3a 30 31 3a 32 |0/08/09 | 04:01:2|
|00000270| 34 20 20 6c 77 61 6c 6c | 0d 3b 23 20 70 61 74 63 |4  lwall|.;# patc|
|00000280| 68 31 39 3a 20 49 6e 69 | 74 69 61 6c 20 72 65 76 |h19: Ini|tial rev|
|00000290| 69 73 69 6f 6e 0d 3b 23 | 20 0d 3b 23 0d 3b 23 20 |ision.;#| .;#.;# |
|000002a0| 55 73 61 67 65 3a 0d 3b | 23 09 72 65 71 75 69 72 |Usage:.;|#.requir|
|000002b0| 65 20 22 70 77 64 2e 70 | 6c 22 3b 0d 3b 23 09 26 |e "pwd.p|l";.;#.&|
|000002c0| 69 6e 69 74 70 77 64 3b | 0d 3b 23 09 2e 2e 2e 0d |initpwd;|.;#.....|
|000002d0| 3b 23 09 26 63 68 64 69 | 72 28 24 6e 65 77 64 69 |;#.&chdi|r($newdi|
|000002e0| 72 29 3b 0d 0d 70 61 63 | 6b 61 67 65 20 70 77 64 |r);..pac|kage pwd|
|000002f0| 3b 0d 0d 73 75 62 20 6d | 61 69 6e 27 69 6e 69 74 |;..sub m|ain'init|
|00000300| 70 77 64 20 7b 0d 20 20 | 20 20 69 66 20 28 24 45 |pwd {.  |  if ($E|
|00000310| 4e 56 7b 27 50 57 44 27 | 7d 29 20 7b 0d 09 6c 6f |NV{'PWD'|}) {..lo|
|00000320| 63 61 6c 28 24 64 64 2c | 24 64 69 29 20 3d 20 73 |cal($dd,|$di) = s|
|00000330| 74 61 74 28 27 2e 27 29 | 3b 0d 09 6c 6f 63 61 6c |tat('.')|;..local|
|00000340| 28 24 70 64 2c 24 70 69 | 29 20 3d 20 73 74 61 74 |($pd,$pi|) = stat|
|00000350| 28 24 45 4e 56 7b 27 50 | 57 44 27 7d 29 3b 0d 09 |($ENV{'P|WD'});..|
|00000360| 69 66 20 28 24 64 69 20 | 21 3d 20 24 70 69 20 7c |if ($di |!= $pi ||
|00000370| 7c 20 24 64 64 20 21 3d | 20 24 70 64 29 20 7b 0d || $dd !=| $pd) {.|
|00000380| 09 20 20 20 20 63 68 6f | 70 28 24 45 4e 56 7b 27 |.    cho|p($ENV{'|
|00000390| 50 57 44 27 7d 20 3d 20 | 60 70 77 64 60 29 3b 0d |PWD'} = |`pwd`);.|
|000003a0| 09 7d 0d 20 20 20 20 7d | 0d 20 20 20 20 65 6c 73 |.}.    }|.    els|
|000003b0| 65 20 7b 0d 09 63 68 6f | 70 28 24 45 4e 56 7b 27 |e {..cho|p($ENV{'|
|000003c0| 50 57 44 27 7d 20 3d 20 | 60 70 77 64 60 29 3b 0d |PWD'} = |`pwd`);.|
|000003d0| 20 20 20 20 7d 0d 20 20 | 20 20 69 66 20 28 24 45 |    }.  |  if ($E|
|000003e0| 4e 56 7b 27 50 57 44 27 | 7d 20 3d 7e 20 6d 7c 28 |NV{'PWD'|} =~ m|(|
|000003f0| 2f 5b 5e 2f 5d 2b 28 2f | 5b 5e 2f 5d 2b 2f 5b 5e |/[^/]+(/|[^/]+/[^|
|00000400| 2f 5d 2b 29 29 28 2e 2a | 29 7c 29 20 7b 0d 09 6c |/]+))(.*|)|) {..l|
|00000410| 6f 63 61 6c 28 24 70 64 | 2c 24 70 69 29 20 3d 20 |ocal($pd|,$pi) = |
|00000420| 73 74 61 74 28 24 32 29 | 3b 0d 09 6c 6f 63 61 6c |stat($2)|;..local|
|00000430| 28 24 64 64 2c 24 64 69 | 29 20 3d 20 73 74 61 74 |($dd,$di|) = stat|
|00000440| 28 24 31 29 3b 0d 09 69 | 66 20 28 24 64 69 20 3d |($1);..i|f ($di =|
|00000450| 3d 20 24 70 69 20 26 26 | 20 24 64 64 20 3d 3d 20 |= $pi &&| $dd == |
|00000460| 24 70 64 29 20 7b 0d 09 | 20 20 20 20 24 45 4e 56 |$pd) {..|    $ENV|
|00000470| 7b 27 50 57 44 27 7d 3d | 22 24 32 24 33 22 3b 0d |{'PWD'}=|"$2$3";.|
|00000480| 09 7d 0d 20 20 20 20 7d | 0d 7d 0d 0d 73 75 62 20 |.}.    }|.}..sub |
|00000490| 6d 61 69 6e 27 63 68 64 | 69 72 20 7b 0d 20 20 20 |main'chd|ir {.   |
|000004a0| 20 6c 6f 63 61 6c 28 24 | 6e 65 77 64 69 72 29 20 | local($|newdir) |
|000004b0| 3d 20 73 68 69 66 74 3b | 0d 20 20 20 20 69 66 20 |= shift;|.    if |
|000004c0| 28 63 68 64 69 72 20 24 | 6e 65 77 64 69 72 29 20 |(chdir $|newdir) |
|000004d0| 7b 0d 09 69 66 20 28 24 | 6e 65 77 64 69 72 20 3d |{..if ($|newdir =|
|000004e0| 7e 20 6d 23 5e 2f 23 29 | 20 7b 0d 09 20 20 20 20 |~ m#^/#)| {..    |
|000004f0| 24 45 4e 56 7b 27 50 57 | 44 27 7d 20 3d 20 24 6e |$ENV{'PW|D'} = $n|
|00000500| 65 77 64 69 72 3b 0d 09 | 7d 0d 09 65 6c 73 65 20 |ewdir;..|}..else |
|00000510| 7b 0d 09 20 20 20 20 6c | 6f 63 61 6c 28 40 63 75 |{..    l|ocal(@cu|
|00000520| 72 64 69 72 29 20 3d 20 | 73 70 6c 69 74 28 6d 23 |rdir) = |split(m#|
|00000530| 2f 23 2c 24 45 4e 56 7b | 27 50 57 44 27 7d 29 3b |/#,$ENV{|'PWD'});|
|00000540| 0d 09 20 20 20 20 40 63 | 75 72 64 69 72 20 3d 20 |..    @c|urdir = |
|00000550| 27 27 20 75 6e 6c 65 73 | 73 20 40 63 75 72 64 69 |'' unles|s @curdi|
|00000560| 72 3b 0d 09 20 20 20 20 | 66 6f 72 65 61 63 68 20 |r;..    |foreach |
|00000570| 24 63 6f 6d 70 6f 6e 65 | 6e 74 20 28 73 70 6c 69 |$compone|nt (spli|
|00000580| 74 28 6d 23 2f 23 2c 20 | 24 6e 65 77 64 69 72 29 |t(m#/#, |$newdir)|
|00000590| 29 20 7b 0d 09 09 6e 65 | 78 74 20 69 66 20 24 63 |) {...ne|xt if $c|
|000005a0| 6f 6d 70 6f 6e 65 6e 74 | 20 65 71 20 27 2e 27 3b |omponent| eq '.';|
|000005b0| 0d 09 09 70 6f 70 28 40 | 63 75 72 64 69 72 29 2c |...pop(@|curdir),|
|000005c0| 6e 65 78 74 20 69 66 20 | 24 63 6f 6d 70 6f 6e 65 |next if |$compone|
|000005d0| 6e 74 20 65 71 20 27 2e | 2e 27 3b 0d 09 09 70 75 |nt eq '.|.';...pu|
|000005e0| 73 68 28 40 63 75 72 64 | 69 72 2c 24 63 6f 6d 70 |sh(@curd|ir,$comp|
|000005f0| 6f 6e 65 6e 74 29 3b 0d | 09 20 20 20 20 7d 0d 09 |onent);.|.    }..|
|00000600| 20 20 20 20 24 45 4e 56 | 7b 27 50 57 44 27 7d 20 |    $ENV|{'PWD'} |
|00000610| 3d 20 6a 6f 69 6e 28 27 | 2f 27 2c 40 63 75 72 64 |= join('|/',@curd|
|00000620| 69 72 29 20 7c 7c 20 27 | 2f 27 3b 0d 09 7d 0d 20 |ir) || '|/';..}. |
|00000630| 20 20 20 7d 0d 20 20 20 | 20 65 6c 73 65 20 7b 0d |   }.   | else {.|
|00000640| 09 30 3b 0d 20 20 20 20 | 7d 0d 7d 0d 0d 31 3b 0d |.0;.    |}.}..1;.|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000690| 54 59 29 3a 0d 23 20 69 | 6e 74 65 72 6e 61 6c 20 |TY):.# i|nternal |
|000006a0| 70 72 6f 63 65 64 75 72 | 65 20 74 6f 20 67 65 74 |procedur|e to get|
|000006b0| 06 70 77 64 2e 70 6c da | 02 00 00 00 54 45 58 54 |.pwd.pl.|....TEXT|
|000006c0| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 75 e5 |MPS ....|......u.|
|000006d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 a6 ea b4 2a 00 00 | 05 d0 00 00 01 ac 20 54 |.....*..|...... T|
|00000700| 54 59 2e 0d 23 20 72 65 | 74 75 72 6e 73 20 75 6e |TY..# re|turns un|
|00000710| 64 65 66 20 69 66 20 63 | 61 6e 27 74 20 66 69 6e |def if c|an't fin|
|00000720| 64 20 61 20 70 74 79 2e | 0d 0d 73 75 62 20 5f 67 |d a pty.|..sub _g|
|00000730| 65 74 70 74 79 20 7b 20 | 23 23 20 70 72 69 76 61 |etpty { |## priva|
|00000740| 74 65 0d 09 6c 6f 63 61 | 6c 28 24 5f 50 54 59 2c |te..loca|l($_PTY,|
|00000750| 24 5f 54 54 59 29 20 3d | 20 40 5f 3b 0d 09 24 5f |$_TTY) =| @_;..$_|
|00000760| 50 54 59 20 3d 7e 20 73 | 2f 5e 28 5b 5e 27 5d 2b |PTY =~ s|/^([^']+|
|00000770| 29 24 2f 28 63 61 6c 6c | 65 72 29 5b 24 5b 5d 2e |)$/(call|er)[$[].|
|00000780| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 69 6e 20 |...H..Mo|naco.in |
|00000790| 50 57 44 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |PWD envi|ronment |
|000007a0| 76 61 72 0d 3b 23 00 06 | 00 08 00 3c 00 24 01 dd |var.;#..|...<.$..|
|000007b0| 02 3d 00 3c 00 24 01 dd | 02 3d a6 eb a7 f9 00 00 |.=.<.$..|.=......|
|000007c0| 04 09 00 00 04 09 00 00 | 02 73 01 00 00 00 00 1e |........|.s......|
|000007d0| 00 3c 00 24 01 dd 02 3d | 00 3c 00 24 01 dd 02 3d |.<.$...=|.<.$...=|
|000007e0| 00 00 02 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |...s....|........|
|000007f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 41 |.....n..|.n...>.A|
|00000800| 62 20 0f 6e 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |b .n....|.>..MPSR|
|00000810| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 03 f0 ff ff 00 00 00 4c | 00 47 95 5c 00 00 00 00 |.......L|.G.\....|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+