rh

Hex Artifact Content
Login

Artifact b4a22e24874b8a4b4313a6d2bbc632df3f7fd3446de6cfad5309388b7e7faaec:


0000: 2f 2a 0a 20 2a 20 72 68 63 6d 64 73 2e 63 0a 20  /*. * rhcmds.c. 
0010: 2a 0a 20 2a 20 57 72 69 74 74 65 6e 20 62 79 3a  *. * Written by:
0020: 09 4b 65 6e 20 53 74 61 75 66 66 65 72 0a 20 2a  .Ken Stauffer. *
0030: 09 09 52 69 63 6b 20 4f 68 6e 65 6d 75 73 09 28  ..Rick Ohnemus.(
0040: 72 69 63 6b 40 73 74 65 72 6c 69 6e 67 2e 63 6f  rick@sterling.co
0050: 6d 29 0a 20 2a 20 0a 20 2a 20 54 68 69 73 20 66  m). * . * This f
0060: 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20 74 68 65  ile contains the
0070: 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20   functions that 
0080: 64 6f 20 74 68 65 20 65 76 61 6c 75 61 74 69 6f  do the evaluatio
0090: 6e 20 6f 66 0a 20 2a 20 74 68 65 20 73 74 61 63  n of. * the stac
00a0: 6b 20 70 72 6f 67 72 61 6d 2e 0a 20 2a 20 54 68  k program.. * Th
00b0: 65 73 65 20 66 75 6e 63 74 69 6f 6e 73 20 61 72  ese functions ar
00c0: 65 20 73 69 6d 70 6c 65 2c 20 61 6e 64 20 62 65  e simple, and be
00d0: 68 61 76 65 20 6c 69 6b 65 20 52 50 4e 20 6f 70  have like RPN op
00e0: 65 72 61 74 6f 72 73 2c 20 74 68 61 74 20 69 73  erators, that is
00f0: 0a 20 2a 20 74 68 65 79 20 75 73 65 20 74 68 65  . * they use the
0100: 20 6c 61 73 74 20 74 77 6f 20 76 61 6c 75 65 73   last two values
0110: 20 6f 6e 20 74 68 65 20 73 74 61 63 6b 2c 20 61   on the stack, a
0120: 70 70 6c 79 20 61 6e 20 6f 70 65 72 61 74 6f 72  pply an operator
0130: 0a 20 2a 20 61 6e 64 20 70 75 73 68 20 74 68 65  . * and push the
0140: 20 72 65 73 75 6c 74 2e 20 53 69 6d 69 6c 61 72   result. Similar
0150: 6c 79 20 66 6f 72 20 75 6e 61 72 79 20 6f 70 73  ly for unary ops
0160: 2e 0a 20 2a 0a 20 2a 2f 0a 0a 23 69 66 20 21 64  .. *. */..#if !d
0170: 65 66 69 6e 65 64 28 6c 69 6e 74 29 0a 73 74 61  efined(lint).sta
0180: 74 69 63 20 63 68 61 72 20 72 63 73 69 64 5b 5d  tic char rcsid[]
0190: 20 3d 20 22 24 49 64 3a 20 72 68 63 6d 64 73 2e   = "$Id: rhcmds.
01a0: 63 2c 76 20 31 2e 31 20 32 30 30 38 2f 31 32 2f  c,v 1.1 2008/12/
01b0: 32 37 20 30 30 3a 35 36 3a 30 33 20 76 61 6e 64  27 00:56:03 vand
01c0: 79 73 20 45 78 70 20 76 61 6e 64 79 73 20 24 22  ys Exp vandys $"
01d0: 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 6e 63 6c 75  ;.#endif..#inclu
01e0: 64 65 20 22 72 68 2e 68 22 0a 23 69 6e 63 6c 75  de "rh.h".#inclu
01f0: 64 65 20 22 72 68 64 61 74 61 2e 68 22 0a 23 69  de "rhdata.h".#i
0200: 6e 63 6c 75 64 65 20 22 73 79 73 69 6e 66 6f 2e  nclude "sysinfo.
0210: 68 22 0a 0a 76 6f 69 64 20 63 5f 6f 72 28 69 6e  h"..void c_or(in
0220: 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a  str_value *v).{.
0230: 20 20 20 20 53 74 61 63 6b 5b 53 50 20 2d 20 32      Stack[SP - 2
0240: 5d 20 3d 20 53 74 61 63 6b 5b 53 50 20 2d 20 32  ] = Stack[SP - 2
0250: 5d 20 7c 7c 20 53 74 61 63 6b 5b 53 50 20 2d 20  ] || Stack[SP - 
0260: 31 5d 3b 0a 20 20 20 20 53 50 2d 2d 3b 0a 20 20  1];.    SP--;.  
0270: 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69    return;.}..voi
0280: 64 20 63 5f 61 6e 64 28 69 6e 73 74 72 5f 76 61  d c_and(instr_va
0290: 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74  lue *v).{.    St
02a0: 61 63 6b 5b 53 50 20 2d 20 32 5d 20 3d 20 53 74  ack[SP - 2] = St
02b0: 61 63 6b 5b 53 50 20 2d 20 32 5d 20 26 26 20 53  ack[SP - 2] && S
02c0: 74 61 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a 20 20  tack[SP - 1];.  
02d0: 20 20 53 50 2d 2d 3b 0a 20 20 20 20 72 65 74 75    SP--;.    retu
02e0: 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f 6c 65  rn;.}..void c_le
02f0: 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29  (instr_value *v)
0300: 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50 20  .{.    Stack[SP 
0310: 2d 20 32 5d 20 3d 20 53 74 61 63 6b 5b 53 50 20  - 2] = Stack[SP 
0320: 2d 20 32 5d 20 3c 3d 20 53 74 61 63 6b 5b 53 50  - 2] <= Stack[SP
0330: 20 2d 20 31 5d 3b 0a 20 20 20 20 53 50 2d 2d 3b   - 1];.    SP--;
0340: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a  .    return;.}..
0350: 76 6f 69 64 20 63 5f 6c 74 28 69 6e 73 74 72 5f  void c_lt(instr_
0360: 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20  value *v).{.    
0370: 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20 3d 20  Stack[SP - 2] = 
0380: 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20 3c 20  Stack[SP - 2] < 
0390: 53 74 61 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a 20  Stack[SP - 1];. 
03a0: 20 20 20 53 50 2d 2d 3b 0a 20 20 20 20 72 65 74     SP--;.    ret
03b0: 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f 67  urn;.}..void c_g
03c0: 65 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76  e(instr_value *v
03d0: 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50  ).{.    Stack[SP
03e0: 20 2d 20 32 5d 20 3d 20 53 74 61 63 6b 5b 53 50   - 2] = Stack[SP
03f0: 20 2d 20 32 5d 20 3e 3d 20 53 74 61 63 6b 5b 53   - 2] >= Stack[S
0400: 50 20 2d 20 31 5d 3b 0a 20 20 20 20 53 50 2d 2d  P - 1];.    SP--
0410: 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a  ;.    return;.}.
0420: 0a 76 6f 69 64 20 63 5f 67 74 28 69 6e 73 74 72  .void c_gt(instr
0430: 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20  _value *v).{.   
0440: 20 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20 3d   Stack[SP - 2] =
0450: 20 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20 3e   Stack[SP - 2] >
0460: 20 53 74 61 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a   Stack[SP - 1];.
0470: 20 20 20 20 53 50 2d 2d 3b 0a 20 20 20 20 72 65      SP--;.    re
0480: 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f  turn;.}..void c_
0490: 6e 65 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a  ne(instr_value *
04a0: 76 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53  v).{.    Stack[S
04b0: 50 20 2d 20 32 5d 20 3d 20 53 74 61 63 6b 5b 53  P - 2] = Stack[S
04c0: 50 20 2d 20 32 5d 20 21 3d 20 53 74 61 63 6b 5b  P - 2] != Stack[
04d0: 53 50 20 2d 20 31 5d 3b 0a 20 20 20 20 53 50 2d  SP - 1];.    SP-
04e0: 2d 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d  -;.    return;.}
04f0: 0a 0a 76 6f 69 64 20 63 5f 65 71 28 69 6e 73 74  ..void c_eq(inst
0500: 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20  r_value *v).{.  
0510: 20 20 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20    Stack[SP - 2] 
0520: 3d 20 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20  = Stack[SP - 2] 
0530: 3d 3d 20 53 74 61 63 6b 5b 53 50 20 2d 20 31 5d  == Stack[SP - 1]
0540: 3b 0a 20 20 20 20 53 50 2d 2d 3b 0a 20 20 20 20  ;.    SP--;.    
0550: 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20  return;.}..void 
0560: 63 5f 62 6f 72 28 69 6e 73 74 72 5f 76 61 6c 75  c_bor(instr_valu
0570: 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61 63  e *v).{.    Stac
0580: 6b 5b 53 50 20 2d 20 32 5d 20 3d 20 53 74 61 63  k[SP - 2] = Stac
0590: 6b 5b 53 50 20 2d 20 32 5d 20 7c 20 53 74 61 63  k[SP - 2] | Stac
05a0: 6b 5b 53 50 20 2d 20 31 5d 3b 0a 20 20 20 20 53  k[SP - 1];.    S
05b0: 50 2d 2d 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b  P--;.    return;
05c0: 0a 7d 0a 0a 76 6f 69 64 20 63 5f 62 61 6e 64 28  .}..void c_band(
05d0: 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a  instr_value *v).
05e0: 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50 20 2d  {.    Stack[SP -
05f0: 20 32 5d 20 3d 20 53 74 61 63 6b 5b 53 50 20 2d   2] = Stack[SP -
0600: 20 32 5d 20 26 20 53 74 61 63 6b 5b 53 50 20 2d   2] & Stack[SP -
0610: 20 31 5d 3b 0a 20 20 20 20 53 50 2d 2d 3b 0a 20   1];.    SP--;. 
0620: 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f     return;.}..vo
0630: 69 64 20 63 5f 62 78 6f 72 28 69 6e 73 74 72 5f  id c_bxor(instr_
0640: 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20  value *v).{.    
0650: 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20 3d 20  Stack[SP - 2] = 
0660: 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20 5e 20  Stack[SP - 2] ^ 
0670: 53 74 61 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a 20  Stack[SP - 1];. 
0680: 20 20 20 53 50 2d 2d 3b 0a 20 20 20 20 72 65 74     SP--;.    ret
0690: 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f 6c  urn;.}..void c_l
06a0: 73 68 69 66 74 28 69 6e 73 74 72 5f 76 61 6c 75  shift(instr_valu
06b0: 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61 63  e *v).{.    Stac
06c0: 6b 5b 53 50 20 2d 20 32 5d 20 3d 20 53 74 61 63  k[SP - 2] = Stac
06d0: 6b 5b 53 50 20 2d 20 32 5d 20 3c 3c 20 53 74 61  k[SP - 2] << Sta
06e0: 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a 20 20 20 20  ck[SP - 1];.    
06f0: 53 50 2d 2d 3b 0a 20 20 20 20 72 65 74 75 72 6e  SP--;.    return
0700: 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f 72 73 68 69  ;.}..void c_rshi
0710: 66 74 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a  ft(instr_value *
0720: 76 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53  v).{.    Stack[S
0730: 50 20 2d 20 32 5d 20 3d 20 53 74 61 63 6b 5b 53  P - 2] = Stack[S
0740: 50 20 2d 20 32 5d 20 3e 3e 20 53 74 61 63 6b 5b  P - 2] >> Stack[
0750: 53 50 20 2d 20 31 5d 3b 0a 20 20 20 20 53 50 2d  SP - 1];.    SP-
0760: 2d 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d  -;.    return;.}
0770: 0a 0a 76 6f 69 64 20 63 5f 70 6c 75 73 28 69 6e  ..void c_plus(in
0780: 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a  str_value *v).{.
0790: 20 20 20 20 53 74 61 63 6b 5b 53 50 20 2d 20 32      Stack[SP - 2
07a0: 5d 20 3d 20 53 74 61 63 6b 5b 53 50 20 2d 20 32  ] = Stack[SP - 2
07b0: 5d 20 2b 20 53 74 61 63 6b 5b 53 50 20 2d 20 31  ] + Stack[SP - 1
07c0: 5d 3b 0a 20 20 20 20 53 50 2d 2d 3b 0a 20 20 20  ];.    SP--;.   
07d0: 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64   return;.}..void
07e0: 20 63 5f 6d 75 6c 28 69 6e 73 74 72 5f 76 61 6c   c_mul(instr_val
07f0: 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61  ue *v).{.    Sta
0800: 63 6b 5b 53 50 20 2d 20 32 5d 20 3d 20 53 74 61  ck[SP - 2] = Sta
0810: 63 6b 5b 53 50 20 2d 20 32 5d 20 2a 20 53 74 61  ck[SP - 2] * Sta
0820: 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a 20 20 20 20  ck[SP - 1];.    
0830: 53 50 2d 2d 3b 0a 20 20 20 20 72 65 74 75 72 6e  SP--;.    return
0840: 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f 6d 69 6e 75  ;.}..void c_minu
0850: 73 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76  s(instr_value *v
0860: 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50  ).{.    Stack[SP
0870: 20 2d 20 32 5d 20 3d 20 53 74 61 63 6b 5b 53 50   - 2] = Stack[SP
0880: 20 2d 20 32 5d 20 20 2d 20 20 53 74 61 63 6b 5b   - 2]  -  Stack[
0890: 53 50 2d 31 5d 3b 0a 20 20 20 20 53 50 2d 2d 3b  SP-1];.    SP--;
08a0: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a  .    return;.}..
08b0: 76 6f 69 64 20 63 5f 64 69 76 28 69 6e 73 74 72  void c_div(instr
08c0: 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20  _value *v).{.   
08d0: 20 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20 3d   Stack[SP - 2] =
08e0: 20 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d 20 2f   Stack[SP - 2] /
08f0: 20 53 74 61 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a   Stack[SP - 1];.
0900: 20 20 20 20 53 50 2d 2d 3b 0a 20 20 20 20 72 65      SP--;.    re
0910: 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f  turn;.}..void c_
0920: 6d 6f 64 28 69 6e 73 74 72 5f 76 61 6c 75 65 20  mod(instr_value 
0930: 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b  *v).{.    Stack[
0940: 53 50 20 2d 20 32 5d 20 3d 20 53 74 61 63 6b 5b  SP - 2] = Stack[
0950: 53 50 20 2d 20 32 5d 20 25 20 53 74 61 63 6b 5b  SP - 2] % Stack[
0960: 53 50 20 2d 20 31 5d 3b 0a 20 20 20 20 53 50 2d  SP - 1];.    SP-
0970: 2d 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d  -;.    return;.}
0980: 0a 0a 0a 2f 2a 20 75 6e 61 72 79 20 69 6e 73 74  .../* unary inst
0990: 72 75 63 74 69 6f 6e 73 20 2a 2f 0a 0a 76 6f 69  ructions */..voi
09a0: 64 20 63 5f 6e 6f 74 28 69 6e 73 74 72 5f 76 61  d c_not(instr_va
09b0: 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74  lue *v).{.    St
09c0: 61 63 6b 5b 53 50 20 2d 20 31 5d 20 3d 20 21 53  ack[SP - 1] = !S
09d0: 74 61 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a 20 20  tack[SP - 1];.  
09e0: 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69    return;.}..voi
09f0: 64 20 63 5f 62 6e 6f 74 28 69 6e 73 74 72 5f 76  d c_bnot(instr_v
0a00: 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53  alue *v).{.    S
0a10: 74 61 63 6b 5b 53 50 20 2d 20 31 5d 20 3d 20 7e  tack[SP - 1] = ~
0a20: 53 74 61 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a 20  Stack[SP - 1];. 
0a30: 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f     return;.}..vo
0a40: 69 64 20 63 5f 75 6e 69 6d 69 6e 75 73 28 69 6e  id c_uniminus(in
0a50: 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a  str_value *v).{.
0a60: 20 20 20 20 53 74 61 63 6b 5b 53 50 20 2d 20 31      Stack[SP - 1
0a70: 5d 20 3d 20 2d 53 74 61 63 6b 5b 53 50 20 2d 20  ] = -Stack[SP - 
0a80: 31 5d 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a  1];.    return;.
0a90: 7d 0a 0a 0a 2f 2a 20 74 72 69 6e 61 72 79 20 6f  }.../* trinary o
0aa0: 70 65 72 61 74 6f 72 20 3f 3a 20 2a 2f 0a 0a 76  perator ?: */..v
0ab0: 6f 69 64 20 63 5f 71 6d 28 69 6e 73 74 72 5f 76  oid c_qm(instr_v
0ac0: 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 50  alue *v).{.    P
0ad0: 43 20 3d 20 28 53 74 61 63 6b 5b 53 50 20 2d 20  C = (Stack[SP - 
0ae0: 31 5d 29 20 3f 20 50 43 20 3a 20 76 2d 3e 70 63  1]) ? PC : v->pc
0af0: 3b 0a 20 20 20 20 53 50 2d 2d 3b 0a 20 20 20 20  ;.    SP--;.    
0b00: 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20  return;.}..void 
0b10: 63 5f 63 6f 6c 6f 6e 28 69 6e 73 74 72 5f 76 61  c_colon(instr_va
0b20: 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 50 43  lue *v).{.    PC
0b30: 20 3d 20 76 2d 3e 70 63 3b 0a 20 20 20 20 72 65   = v->pc;.    re
0b40: 74 75 72 6e 3b 0a 7d 0a 0a 0a 2f 2a 20 61 63 63  turn;.}.../* acc
0b50: 65 73 73 69 6e 67 20 61 20 70 61 72 61 6d 65 74  essing a paramet
0b60: 65 72 20 2a 2f 0a 0a 76 6f 69 64 20 63 5f 70 61  er */..void c_pa
0b70: 72 61 6d 28 69 6e 73 74 72 5f 76 61 6c 75 65 20  ram(instr_value 
0b80: 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b  *v).{.    Stack[
0b90: 53 50 2b 2b 5d 20 3d 20 53 74 61 63 6b 5b 46 50  SP++] = Stack[FP
0ba0: 20 2b 20 76 2d 3e 70 61 72 61 6d 5d 3b 0a 20 20   + v->param];.  
0bb0: 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 0a 2f 2a    return;.}.../*
0bc0: 20 63 61 6c 6c 69 6e 67 20 61 20 66 75 6e 63 74   calling a funct
0bd0: 69 6f 6e 20 2a 2f 0a 0a 76 6f 69 64 20 63 5f 66  ion */..void c_f
0be0: 75 6e 63 28 69 6e 73 74 72 5f 76 61 6c 75 65 20  unc(instr_value 
0bf0: 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b  *v).{.    Stack[
0c00: 53 50 2b 2b 5d 20 3d 20 50 43 3b 0a 20 20 20 20  SP++] = PC;.    
0c10: 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 46 50  Stack[SP++] = FP
0c20: 3b 0a 20 20 20 20 50 43 20 3d 20 76 2d 3e 70 63  ;.    PC = v->pc
0c30: 3b 0a 20 20 20 20 46 50 20 3d 20 53 50 20 2d 20  ;.    FP = SP - 
0c40: 28 53 74 61 63 6b 50 72 6f 67 72 61 6d 5b 50 43  (StackProgram[PC
0c50: 5d 2e 76 61 6c 75 65 2e 70 63 20 2b 20 32 29 3b  ].value.pc + 2);
0c60: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a  .    return;.}..
0c70: 0a 2f 2a 20 72 65 74 75 72 6e 69 6e 67 20 66 72  ./* returning fr
0c80: 6f 6d 20 61 20 66 75 6e 63 74 69 6f 6e 20 2a 2f  om a function */
0c90: 0a 0a 76 6f 69 64 20 63 5f 72 65 74 75 72 6e 28  ..void c_return(
0ca0: 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a  instr_value *v).
0cb0: 7b 0a 20 20 20 20 50 43 20 3d 20 53 74 61 63 6b  {.    PC = Stack
0cc0: 5b 53 50 20 2d 20 33 5d 3b 0a 20 20 20 20 46 50  [SP - 3];.    FP
0cd0: 20 3d 20 53 74 61 63 6b 5b 53 50 20 2d 20 32 5d   = Stack[SP - 2]
0ce0: 3b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50 20 2d  ;.    Stack[SP -
0cf0: 20 28 33 20 2b 20 76 2d 3e 70 61 72 61 6d 29 5d   (3 + v->param)]
0d00: 20 3d 20 53 74 61 63 6b 5b 53 50 20 2d 20 31 5d   = Stack[SP - 1]
0d10: 3b 0a 20 20 20 20 53 50 20 2d 3d 20 28 32 20 2b  ;.    SP -= (2 +
0d20: 20 76 2d 3e 70 61 72 61 6d 29 3b 0a 20 20 20 20   v->param);.    
0d30: 72 65 74 75 72 6e 3b 0a 7d 0a 0a 0a 2f 2a 20 6f  return;.}.../* o
0d40: 70 65 72 61 6e 64 20 66 75 6e 63 74 69 6f 6e 73  perand functions
0d50: 20 2a 2f 0a 0a 76 6f 69 64 20 63 5f 6e 6f 70 28   */..void c_nop(
0d60: 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a  instr_value *v).
0d70: 7b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a  {.    return;.}.
0d80: 0a 76 6f 69 64 20 63 5f 64 61 74 65 28 69 6e 73  .void c_date(ins
0d90: 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20  tr_value *v).{. 
0da0: 20 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d     Stack[SP++] =
0db0: 20 76 2d 3e 64 69 2d 3e 73 65 63 6f 6e 64 73 3b   v->di->seconds;
0dc0: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a  .    return;.}..
0dd0: 76 6f 69 64 20 63 5f 6e 75 6d 62 65 72 28 69 6e  void c_number(in
0de0: 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a  str_value *v).{.
0df0: 20 20 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20      Stack[SP++] 
0e00: 3d 20 76 2d 3e 6c 3b 0a 20 20 20 20 72 65 74 75  = v->l;.    retu
0e10: 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f 61 74  rn;.}..void c_at
0e20: 69 6d 65 28 69 6e 73 74 72 5f 76 61 6c 75 65 20  ime(instr_value 
0e30: 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b  *v).{.    Stack[
0e40: 53 50 2b 2b 5d 20 3d 20 61 74 74 72 2e 62 75 66  SP++] = attr.buf
0e50: 2d 3e 73 74 5f 61 74 69 6d 65 3b 0a 20 20 20 20  ->st_atime;.    
0e60: 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20  return;.}..void 
0e70: 63 5f 63 74 69 6d 65 28 69 6e 73 74 72 5f 76 61  c_ctime(instr_va
0e80: 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74  lue *v).{.    St
0e90: 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 61 74 74 72  ack[SP++] = attr
0ea0: 2e 62 75 66 2d 3e 73 74 5f 63 74 69 6d 65 3b 0a  .buf->st_ctime;.
0eb0: 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76      return;.}..v
0ec0: 6f 69 64 20 63 5f 64 65 76 28 69 6e 73 74 72 5f  oid c_dev(instr_
0ed0: 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20  value *v).{.    
0ee0: 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 61 74  Stack[SP++] = at
0ef0: 74 72 2e 62 75 66 2d 3e 73 74 5f 64 65 76 3b 0a  tr.buf->st_dev;.
0f00: 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76      return;.}..v
0f10: 6f 69 64 20 63 5f 67 69 64 28 69 6e 73 74 72 5f  oid c_gid(instr_
0f20: 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20  value *v).{.    
0f30: 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 61 74  Stack[SP++] = at
0f40: 74 72 2e 62 75 66 2d 3e 73 74 5f 67 69 64 3b 0a  tr.buf->st_gid;.
0f50: 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76      return;.}..v
0f60: 6f 69 64 20 63 5f 69 6e 6f 28 69 6e 73 74 72 5f  oid c_ino(instr_
0f70: 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20  value *v).{.    
0f80: 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 61 74  Stack[SP++] = at
0f90: 74 72 2e 62 75 66 2d 3e 73 74 5f 69 6e 6f 3b 0a  tr.buf->st_ino;.
0fa0: 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76      return;.}..v
0fb0: 6f 69 64 20 63 5f 69 73 62 6c 6b 28 69 6e 73 74  oid c_isblk(inst
0fc0: 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20  r_value *v).{.  
0fd0: 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20    Stack[SP++] = 
0fe0: 53 5f 49 53 42 4c 4b 28 61 74 74 72 2e 62 75 66  S_ISBLK(attr.buf
0ff0: 2d 3e 73 74 5f 6d 6f 64 65 29 3b 0a 20 20 20 20  ->st_mode);.    
1000: 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20  return;.}..void 
1010: 63 5f 69 73 63 68 72 28 69 6e 73 74 72 5f 76 61  c_ischr(instr_va
1020: 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74  lue *v).{.    St
1030: 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 53 5f 49 53  ack[SP++] = S_IS
1040: 43 48 52 28 61 74 74 72 2e 62 75 66 2d 3e 73 74  CHR(attr.buf->st
1050: 5f 6d 6f 64 65 29 3b 0a 20 20 20 20 72 65 74 75  _mode);.    retu
1060: 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f 69 73  rn;.}..void c_is
1070: 64 69 72 28 69 6e 73 74 72 5f 76 61 6c 75 65 20  dir(instr_value 
1080: 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b  *v).{.    Stack[
1090: 53 50 2b 2b 5d 20 3d 20 53 5f 49 53 44 49 52 28  SP++] = S_ISDIR(
10a0: 61 74 74 72 2e 62 75 66 2d 3e 73 74 5f 6d 6f 64  attr.buf->st_mod
10b0: 65 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a  e);.    return;.
10c0: 7d 0a 0a 76 6f 69 64 20 63 5f 69 73 66 69 66 6f  }..void c_isfifo
10d0: 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29  (instr_value *v)
10e0: 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50 2b  .{.    Stack[SP+
10f0: 2b 5d 20 3d 20 53 5f 49 53 46 49 46 4f 28 61 74  +] = S_ISFIFO(at
1100: 74 72 2e 62 75 66 2d 3e 73 74 5f 6d 6f 64 65 29  tr.buf->st_mode)
1110: 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a  ;.    return;.}.
1120: 0a 76 6f 69 64 20 63 5f 69 73 6c 6e 6b 28 69 6e  .void c_islnk(in
1130: 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a  str_value *v).{.
1140: 20 20 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20      Stack[SP++] 
1150: 3d 20 53 5f 49 53 4c 4e 4b 28 61 74 74 72 2e 62  = S_ISLNK(attr.b
1160: 75 66 2d 3e 73 74 5f 6d 6f 64 65 29 3b 0a 20 20  uf->st_mode);.  
1170: 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69    return;.}..voi
1180: 64 20 63 5f 69 73 72 65 67 28 69 6e 73 74 72 5f  d c_isreg(instr_
1190: 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20  value *v).{.    
11a0: 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 53 5f  Stack[SP++] = S_
11b0: 49 53 52 45 47 28 61 74 74 72 2e 62 75 66 2d 3e  ISREG(attr.buf->
11c0: 73 74 5f 6d 6f 64 65 29 3b 0a 20 20 20 20 72 65  st_mode);.    re
11d0: 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f  turn;.}..void c_
11e0: 69 73 73 6f 63 6b 28 69 6e 73 74 72 5f 76 61 6c  issock(instr_val
11f0: 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61  ue *v).{.    Sta
1200: 63 6b 5b 53 50 2b 2b 5d 20 3d 20 53 5f 49 53 53  ck[SP++] = S_ISS
1210: 4f 43 4b 28 61 74 74 72 2e 62 75 66 2d 3e 73 74  OCK(attr.buf->st
1220: 5f 6d 6f 64 65 29 3b 0a 20 20 20 20 72 65 74 75  _mode);.    retu
1230: 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f 6d 6f  rn;.}..void c_mo
1240: 64 65 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a  de(instr_value *
1250: 76 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53  v).{.    Stack[S
1260: 50 2b 2b 5d 20 3d 20 61 74 74 72 2e 62 75 66 2d  P++] = attr.buf-
1270: 3e 73 74 5f 6d 6f 64 65 3b 0a 20 20 20 20 72 65  >st_mode;.    re
1280: 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63 5f  turn;.}..void c_
1290: 6d 74 69 6d 65 28 69 6e 73 74 72 5f 76 61 6c 75  mtime(instr_valu
12a0: 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61 63  e *v).{.    Stac
12b0: 6b 5b 53 50 2b 2b 5d 20 3d 20 61 74 74 72 2e 62  k[SP++] = attr.b
12c0: 75 66 2d 3e 73 74 5f 6d 74 69 6d 65 3b 0a 20 20  uf->st_mtime;.  
12d0: 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69    return;.}..voi
12e0: 64 20 63 5f 6e 6c 69 6e 6b 28 69 6e 73 74 72 5f  d c_nlink(instr_
12f0: 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20  value *v).{.    
1300: 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 61 74  Stack[SP++] = at
1310: 74 72 2e 62 75 66 2d 3e 73 74 5f 6e 6c 69 6e 6b  tr.buf->st_nlink
1320: 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a  ;.    return;.}.
1330: 0a 76 6f 69 64 20 63 5f 72 64 65 76 28 69 6e 73  .void c_rdev(ins
1340: 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20  tr_value *v).{. 
1350: 20 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d     Stack[SP++] =
1360: 20 61 74 74 72 2e 62 75 66 2d 3e 73 74 5f 72 64   attr.buf->st_rd
1370: 65 76 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a  ev;.    return;.
1380: 7d 0a 0a 76 6f 69 64 20 63 5f 62 6c 6b 73 69 7a  }..void c_blksiz
1390: 65 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76  e(instr_value *v
13a0: 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50  ).{.    Stack[SP
13b0: 2b 2b 5d 20 3d 20 61 74 74 72 2e 62 75 66 2d 3e  ++] = attr.buf->
13c0: 73 74 5f 62 6c 6f 63 6b 73 3b 0a 20 20 20 20 72  st_blocks;.    r
13d0: 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63  eturn;.}..void c
13e0: 5f 73 69 7a 65 28 69 6e 73 74 72 5f 76 61 6c 75  _size(instr_valu
13f0: 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61 63  e *v).{.    Stac
1400: 6b 5b 53 50 2b 2b 5d 20 3d 20 61 74 74 72 2e 62  k[SP++] = attr.b
1410: 75 66 2d 3e 73 74 5f 73 69 7a 65 3b 0a 20 20 20  uf->st_size;.   
1420: 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64   return;.}..void
1430: 20 63 5f 75 69 64 28 69 6e 73 74 72 5f 76 61 6c   c_uid(instr_val
1440: 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 53 74 61  ue *v).{.    Sta
1450: 63 6b 5b 53 50 2b 2b 5d 20 3d 20 61 74 74 72 2e  ck[SP++] = attr.
1460: 62 75 66 2d 3e 73 74 5f 75 69 64 3b 0a 20 20 20  buf->st_uid;.   
1470: 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64   return;.}..void
1480: 20 63 5f 6e 6f 67 72 6f 75 70 28 69 6e 73 74 72   c_nogroup(instr
1490: 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20  _value *v).{.   
14a0: 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 67   Stack[SP++] = g
14b0: 65 74 67 69 67 69 64 28 61 74 74 72 2e 62 75 66  etgigid(attr.buf
14c0: 2d 3e 73 74 5f 67 69 64 29 20 3d 3d 20 28 67 72  ->st_gid) == (gr
14d0: 6f 75 70 5f 69 6e 66 6f 20 2a 29 20 4e 55 4c 4c  oup_info *) NULL
14e0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a  ;.    return;.}.
14f0: 0a 76 6f 69 64 20 63 5f 6e 6f 75 73 65 72 28 69  .void c_nouser(i
1500: 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b  nstr_value *v).{
1510: 0a 20 20 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d  .    Stack[SP++]
1520: 20 3d 20 67 65 74 75 69 75 69 64 28 61 74 74 72   = getuiuid(attr
1530: 2e 62 75 66 2d 3e 73 74 5f 75 69 64 29 20 3d 3d  .buf->st_uid) ==
1540: 20 28 75 73 65 72 5f 69 6e 66 6f 20 2a 29 20 4e   (user_info *) N
1550: 55 4c 4c 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b  ULL;.    return;
1560: 0a 7d 0a 0a 76 6f 69 64 20 63 5f 64 65 70 74 68  .}..void c_depth
1570: 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29  (instr_value *v)
1580: 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50 2b  .{.    Stack[SP+
1590: 2b 5d 20 3d 20 61 74 74 72 2e 64 65 70 74 68 3b  +] = attr.depth;
15a0: 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a  .    return;.}..
15b0: 76 6f 69 64 20 63 5f 70 72 75 6e 65 28 69 6e 73  void c_prune(ins
15c0: 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20  tr_value *v).{. 
15d0: 20 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d     Stack[SP++] =
15e0: 20 30 3b 0a 20 20 20 20 61 74 74 72 2e 70 72 75   0;.    attr.pru
15f0: 6e 65 20 3d 20 54 52 55 45 3b 0a 20 20 20 20 72  ne = TRUE;.    r
1600: 65 74 75 72 6e 3b 0a 7d 0a 0a 0a 2f 2a 20 63 61  eturn;.}.../* ca
1610: 6c 63 75 6c 61 74 65 20 74 68 65 20 66 69 6c 65  lculate the file
1620: 6e 61 6d 65 20 6c 65 6e 67 74 68 20 2a 2f 0a 0a  name length */..
1630: 76 6f 69 64 20 63 5f 62 61 73 65 6c 65 6e 28 69  void c_baselen(i
1640: 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b  nstr_value *v).{
1650: 0a 20 20 20 20 72 65 67 69 73 74 65 72 20 63 68  .    register ch
1660: 61 72 20 2a 09 63 3b 0a 20 20 20 20 72 65 67 69  ar *.c;.    regi
1670: 73 74 65 72 20 69 6e 74 09 6c 65 6e 3b 0a 20 20  ster int.len;.  
1680: 20 20 0a 20 20 20 20 6c 65 6e 20 3d 20 30 3b 0a    .    len = 0;.
1690: 20 20 20 20 66 6f 72 20 28 63 20 3d 20 61 74 74      for (c = att
16a0: 72 2e 66 6e 61 6d 65 3b 20 2a 63 20 21 3d 20 27  r.fname; *c != '
16b0: 5c 30 27 3b 20 63 2b 2b 29 20 7b 0a 09 69 66 20  \0'; c++) {..if 
16c0: 28 2a 63 20 3d 3d 20 27 2f 27 29 20 7b 0a 09 20  (*c == '/') {.. 
16d0: 20 20 20 6c 65 6e 20 3d 20 30 3b 0a 09 7d 0a 09     len = 0;..}..
16e0: 65 6c 73 65 20 7b 0a 09 20 20 20 20 2b 2b 6c 65  else {..    ++le
16f0: 6e 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20  n;..}.    }.    
1700: 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 6c 65  Stack[SP++] = le
1710: 6e 3b 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d  n;.    return;.}
1720: 0a 0a 0a 2f 2a 20 63 61 6c 63 75 6c 61 74 65 20  .../* calculate 
1730: 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68  the length of th
1740: 65 20 64 69 72 65 63 74 6f 72 79 20 70 6f 72 74  e directory port
1750: 69 6f 6e 20 6f 66 20 74 68 65 20 70 61 74 68 20  ion of the path 
1760: 2a 2f 0a 0a 76 6f 69 64 20 63 5f 64 69 72 6c 65  */..void c_dirle
1770: 6e 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76  n(instr_value *v
1780: 29 0a 7b 0a 20 20 20 20 72 65 67 69 73 74 65 72  ).{.    register
1790: 20 63 68 61 72 20 2a 09 63 3b 0a 20 20 20 20 72   char *.c;.    r
17a0: 65 67 69 73 74 65 72 20 63 68 61 72 20 2a 09 73  egister char *.s
17b0: 6c 61 73 68 20 3d 20 28 63 68 61 72 20 2a 29 20  lash = (char *) 
17c0: 4e 55 4c 4c 3b 0a 20 20 20 20 72 65 67 69 73 74  NULL;.    regist
17d0: 65 72 20 69 6e 74 09 6c 65 6e 3b 0a 0a 20 20 20  er int.len;..   
17e0: 20 66 6f 72 20 28 63 20 3d 20 61 74 74 72 2e 66   for (c = attr.f
17f0: 6e 61 6d 65 3b 20 2a 63 20 21 3d 20 27 5c 30 27  name; *c != '\0'
1800: 3b 20 63 2b 2b 29 20 7b 0a 09 69 66 20 28 2a 63  ; c++) {..if (*c
1810: 20 3d 3d 20 27 2f 27 29 20 7b 0a 09 20 20 20 20   == '/') {..    
1820: 73 6c 61 73 68 20 3d 20 63 3b 0a 09 7d 0a 20 20  slash = c;..}.  
1830: 20 20 7d 0a 20 20 20 20 69 66 20 28 73 6c 61 73    }.    if (slas
1840: 68 20 3d 3d 20 28 63 68 61 72 20 2a 29 20 4e 55  h == (char *) NU
1850: 4c 4c 29 20 7b 0a 09 6c 65 6e 20 3d 20 30 3b 0a  LL) {..len = 0;.
1860: 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20 7b      }.    else {
1870: 0a 09 6c 65 6e 20 3d 20 28 73 6c 61 73 68 20 3d  ..len = (slash =
1880: 3d 20 61 74 74 72 2e 66 6e 61 6d 65 29 20 3f 20  = attr.fname) ? 
1890: 31 20 3a 20 28 73 6c 61 73 68 20 2d 20 61 74 74  1 : (slash - att
18a0: 72 2e 66 6e 61 6d 65 29 3b 0a 20 20 20 20 7d 0a  r.fname);.    }.
18b0: 20 20 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20      Stack[SP++] 
18c0: 3d 20 6c 65 6e 3b 0a 20 20 20 20 72 65 74 75 72  = len;.    retur
18d0: 6e 3b 0a 7d 0a 0a 0a 2f 2a 20 63 61 6c 63 75 6c  n;.}.../* calcul
18e0: 61 74 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68  ate length of th
18f0: 65 20 65 6e 74 69 72 65 20 70 61 74 68 20 2a 2f  e entire path */
1900: 0a 0a 76 6f 69 64 20 63 5f 70 61 74 68 6c 65 6e  ..void c_pathlen
1910: 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29  (instr_value *v)
1920: 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50 2b  .{.    Stack[SP+
1930: 2b 5d 20 3d 20 73 74 72 6c 65 6e 28 61 74 74 72  +] = strlen(attr
1940: 2e 66 6e 61 6d 65 29 3b 0a 20 20 20 20 72 65 74  .fname);.    ret
1950: 75 72 6e 3b 0a 7d 0a 0a 0a 2f 2a 0a 20 2a 20 63  urn;.}.../*. * c
1960: 5f 66 6e 63 61 73 65 3a 0a 20 2a 20 20 20 20 54  _fncase:. *    T
1970: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 6f 65  his function doe
1980: 73 20 61 6e 20 65 78 61 63 74 20 66 69 6c 65 20  s an exact file 
1990: 6e 61 6d 65 20 6d 61 74 63 68 2e 0a 20 2a 2f 0a  name match.. */.
19a0: 0a 76 6f 69 64 20 63 5f 66 6e 63 61 73 65 28 69  .void c_fncase(i
19b0: 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b  nstr_value *v).{
19c0: 0a 20 20 20 20 63 68 61 72 20 2a 09 74 61 69 6c  .    char *.tail
19d0: 3b 0a 20 20 20 20 0a 20 20 20 20 69 66 20 28 28  ;.    .    if ((
19e0: 74 61 69 6c 20 3d 20 73 74 72 72 63 68 72 28 61  tail = strrchr(a
19f0: 74 74 72 2e 66 6e 61 6d 65 2c 20 27 2f 27 29 29  ttr.fname, '/'))
1a00: 20 3d 3d 20 28 63 68 61 72 20 2a 29 20 4e 55 4c   == (char *) NUL
1a10: 4c 29 20 7b 0a 09 74 61 69 6c 20 3d 20 61 74 74  L) {..tail = att
1a20: 72 2e 66 6e 61 6d 65 3b 0a 20 20 20 20 7d 0a 20  r.fname;.    }. 
1a30: 20 20 20 65 6c 73 65 20 7b 0a 09 2b 2b 74 61 69     else {..++tai
1a40: 6c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 53 74  l;.    }..    St
1a50: 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20 28 73 74 72  ack[SP++] = (str
1a60: 63 6d 70 28 74 61 69 6c 2c 20 76 2d 3e 70 61 74  cmp(tail, v->pat
1a70: 74 65 72 6e 29 20 3d 3d 20 30 29 3b 0a 0a 20 20  tern) == 0);..  
1a80: 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 2f 2a 0a    return;.}../*.
1a90: 20 2a 20 63 5f 66 6e 69 67 6e 63 61 73 65 3a 0a   * c_fnigncase:.
1aa0: 20 2a 20 20 20 20 54 68 69 73 20 66 75 6e 63 74   *    This funct
1ab0: 69 6f 6e 20 64 6f 65 73 20 61 20 63 61 73 65 2d  ion does a case-
1ac0: 69 6e 73 65 6e 73 69 74 69 76 65 20 66 69 6c 65  insensitive file
1ad0: 20 6e 61 6d 65 20 6d 61 74 63 68 2e 0a 20 2a 2f   name match.. */
1ae0: 0a 0a 76 6f 69 64 20 63 5f 66 6e 69 67 6e 63 61  ..void c_fnignca
1af0: 73 65 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a  se(instr_value *
1b00: 76 29 0a 7b 0a 20 20 20 20 63 68 61 72 20 2a 09  v).{.    char *.
1b10: 74 61 69 6c 3b 0a 20 20 20 20 0a 20 20 20 20 69  tail;.    .    i
1b20: 66 20 28 28 74 61 69 6c 20 3d 20 73 74 72 72 63  f ((tail = strrc
1b30: 68 72 28 61 74 74 72 2e 66 6e 61 6d 65 2c 20 27  hr(attr.fname, '
1b40: 2f 27 29 29 20 3d 3d 20 28 63 68 61 72 20 2a 29  /')) == (char *)
1b50: 20 4e 55 4c 4c 29 20 7b 0a 09 74 61 69 6c 20 3d   NULL) {..tail =
1b60: 20 61 74 74 72 2e 66 6e 61 6d 65 3b 0a 20 20 20   attr.fname;.   
1b70: 20 7d 0a 20 20 20 20 65 6c 73 65 20 7b 0a 09 2b   }.    else {..+
1b80: 2b 74 61 69 6c 3b 0a 20 20 20 20 7d 0a 0a 20 20  +tail;.    }..  
1b90: 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d 20    Stack[SP++] = 
1ba0: 28 73 74 72 63 61 73 65 63 6d 70 28 74 61 69 6c  (strcasecmp(tail
1bb0: 2c 20 76 2d 3e 70 61 74 74 65 72 6e 29 20 3d 3d  , v->pattern) ==
1bc0: 20 30 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e   0);..    return
1bd0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 63 5f 70 61 74  ;.}../*. * c_pat
1be0: 74 65 72 6e 3a 0a 20 2a 20 20 20 20 54 68 69 73  tern:. *    This
1bf0: 20 66 75 6e 63 74 69 6f 6e 20 69 6d 70 6c 65 6d   function implem
1c00: 65 6e 74 73 20 74 68 65 20 72 65 67 75 6c 61 72  ents the regular
1c10: 20 65 78 70 72 65 73 73 69 6f 6e 20 73 74 75 66   expression stuf
1c20: 66 2e 0a 20 2a 20 20 20 20 73 74 72 20 69 73 20  f.. *    str is 
1c30: 74 68 65 20 74 68 65 20 61 63 74 75 61 6c 20 27  the the actual '
1c40: 5c 30 27 20 74 65 72 6d 69 6e 61 74 65 64 20 73  \0' terminated s
1c50: 74 72 69 6e 67 20 74 68 61 74 20 6f 63 63 75 72  tring that occur
1c60: 65 64 20 69 6e 20 74 68 65 0a 20 2a 20 20 20 20  ed in the. *    
1c70: 65 78 70 72 65 73 73 69 6f 6e 20 28 65 67 20 22  expression (eg "
1c80: 2a 2e 42 41 4b 22 20 29 2c 20 6d 69 6e 75 73 20  *.BAK" ), minus 
1c90: 74 68 65 20 71 75 6f 74 65 73 20 22 22 2e 0a 20  the quotes "".. 
1ca0: 2a 2f 0a 0a 76 6f 69 64 20 63 5f 70 61 74 74 65  */..void c_patte
1cb0: 72 6e 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a  rn(instr_value *
1cc0: 76 29 0a 7b 0a 20 20 20 20 65 78 74 65 72 6e 20  v).{.    extern 
1cd0: 69 6e 74 09 77 69 6c 64 6d 61 74 28 75 6e 73 69  int.wildmat(unsi
1ce0: 67 6e 65 64 20 63 68 61 72 20 2a 74 65 78 74 2c  gned char *text,
1cf0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a   unsigned char *
1d00: 70 61 74 74 65 72 6e 2c 0a 09 09 09 69 6e 74 20  pattern,....int 
1d10: 64 6f 74 73 70 65 63 2c 20 69 6e 74 20 69 67 6e  dotspec, int ign
1d20: 63 61 73 65 29 3b 0a 0a 20 20 20 20 63 68 61 72  case);..    char
1d30: 20 2a 09 74 61 69 6c 3b 0a 0a 20 20 20 20 0a 20   *.tail;..    . 
1d40: 20 20 20 69 66 20 28 28 74 61 69 6c 20 3d 20 73     if ((tail = s
1d50: 74 72 72 63 68 72 28 61 74 74 72 2e 66 6e 61 6d  trrchr(attr.fnam
1d60: 65 2c 20 27 2f 27 29 29 20 3d 3d 20 28 63 68 61  e, '/')) == (cha
1d70: 72 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 74 61  r *) NULL) {..ta
1d80: 69 6c 20 3d 20 61 74 74 72 2e 66 6e 61 6d 65 3b  il = attr.fname;
1d90: 0a 20 20 20 20 7d 0a 20 20 20 20 65 6c 73 65 20  .    }.    else 
1da0: 7b 0a 09 2b 2b 74 61 69 6c 3b 0a 20 20 20 20 7d  {..++tail;.    }
1db0: 0a 0a 20 20 20 20 53 74 61 63 6b 5b 53 50 2b 2b  ..    Stack[SP++
1dc0: 5d 20 3d 20 77 69 6c 64 6d 61 74 28 28 75 6e 73  ] = wildmat((uns
1dd0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 74 61  igned char *) ta
1de0: 69 6c 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68  il, (unsigned ch
1df0: 61 72 20 2a 29 20 76 2d 3e 70 61 74 74 65 72 6e  ar *) v->pattern
1e00: 2c 0a 09 09 09 20 20 61 74 74 72 2e 64 6f 74 5f  ,....  attr.dot_
1e10: 73 70 65 63 69 61 6c 2c 20 61 74 74 72 2e 69 67  special, attr.ig
1e20: 6e 6f 72 65 5f 63 61 73 65 29 3b 0a 0a 20 20 20  nore_case);..   
1e30: 20 72 65 74 75 72 6e 3b 0a 7d 0a 0a 23 69 66 20   return;.}..#if 
1e40: 64 65 66 69 6e 65 64 28 73 75 6e 29 0a 76 6f 69  defined(sun).voi
1e50: 64 20 63 5f 66 73 74 79 70 65 28 69 6e 73 74 72  d c_fstype(instr
1e60: 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20  _value *v).{.   
1e70: 20 66 73 5f 69 6e 66 6f 20 2a 09 70 3b 0a 0a 20   fs_info *.p;.. 
1e80: 20 20 20 53 74 61 63 6b 5b 53 50 5d 20 3d 20 30     Stack[SP] = 0
1e90: 3b 0a 0a 20 20 20 20 69 66 20 28 76 2d 3e 66 73  ;..    if (v->fs
1ea0: 74 79 70 65 20 21 3d 20 28 63 68 61 72 20 2a 29  type != (char *)
1eb0: 20 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 28 28 70   NULL) {..if ((p
1ec0: 20 3d 20 67 65 74 66 69 64 65 76 28 61 74 74 72   = getfidev(attr
1ed0: 2e 62 75 66 2d 3e 73 74 5f 64 65 76 29 29 20 21  .buf->st_dev)) !
1ee0: 3d 20 28 66 73 5f 69 6e 66 6f 20 2a 29 20 4e 55  = (fs_info *) NU
1ef0: 4c 4c 29 20 7b 0a 09 20 20 20 20 69 66 20 28 73  LL) {..    if (s
1f00: 74 72 63 6d 70 28 76 2d 3e 66 73 74 79 70 65 2c  trcmp(v->fstype,
1f10: 20 70 2d 3e 66 73 5f 74 79 70 65 29 20 3d 3d 20   p->fs_type) == 
1f20: 30 29 20 7b 0a 09 09 53 74 61 63 6b 5b 53 50 5d  0) {...Stack[SP]
1f30: 20 3d 20 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a   = 1;..    }..}.
1f40: 20 20 20 20 7d 0a 20 20 20 20 53 50 2b 2b 3b 0a      }.    SP++;.
1f50: 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a 23 65      return;.}.#e
1f60: 6c 73 65 0a 76 6f 69 64 20 63 5f 66 73 74 79 70  lse.void c_fstyp
1f70: 65 28 69 6e 73 74 72 5f 76 61 6c 75 65 20 2a 76  e(instr_value *v
1f80: 29 0a 7b 0a 20 20 20 20 53 74 61 63 6b 5b 53 50  ).{.    Stack[SP
1f90: 2b 2b 5d 20 3d 20 30 3b 0a 20 20 20 20 72 65 74  ++] = 0;.    ret
1fa0: 75 72 6e 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 76  urn;.}.#endif..v
1fb0: 6f 69 64 20 63 5f 73 61 6d 65 66 73 28 69 6e 73  oid c_samefs(ins
1fc0: 74 72 5f 76 61 6c 75 65 20 2a 76 29 0a 7b 0a 20  tr_value *v).{. 
1fd0: 20 20 20 53 74 61 63 6b 5b 53 50 2b 2b 5d 20 3d     Stack[SP++] =
1fe0: 20 28 76 2d 3e 64 65 76 20 3d 3d 20 28 64 65 76   (v->dev == (dev
1ff0: 5f 74 29 20 30 29 20 3f 20 31 20 3a 20 28 61 74  _t) 0) ? 1 : (at
2000: 74 72 2e 62 75 66 2d 3e 73 74 5f 64 65 76 20 3d  tr.buf->st_dev =
2010: 3d 20 76 2d 3e 64 65 76 29 3b 0a 20 20 20 20 72  = v->dev);.    r
2020: 65 74 75 72 6e 3b 0a 7d 0a 0a 76 6f 69 64 20 63  eturn;.}..void c
2030: 5f 73 79 73 63 61 6c 6c 28 69 6e 73 74 72 5f 76  _syscall(instr_v
2040: 61 6c 75 65 20 2a 76 29 0a 7b 0a 20 20 20 20 73  alue *v).{.    s
2050: 77 69 74 63 68 20 28 76 2d 3e 73 79 6d 2d 3e 76  witch (v->sym->v
2060: 61 6c 75 65 29 20 7b 0a 0a 20 20 20 20 63 61 73  alue) {..    cas
2070: 65 20 52 48 5f 53 59 53 43 41 4c 4c 5f 45 58 49  e RH_SYSCALL_EXI
2080: 54 3a 0a 09 65 78 69 74 28 53 74 61 63 6b 5b 2d  T:..exit(Stack[-
2090: 2d 53 50 5d 29 3b 0a 0a 20 20 20 20 64 65 66 61  -SP]);..    defa
20a0: 75 6c 74 3a 0a 09 65 72 72 6f 72 28 22 25 6c 75  ult:..error("%lu
20b0: 3a 20 75 6e 6b 6e 6f 77 6e 20 73 79 73 63 61 6c  : unknown syscal
20c0: 6c 22 2c 20 76 2d 3e 73 79 6d 2d 3e 76 61 6c 75  l", v->sym->valu
20d0: 65 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 53  e);.    }..    S
20e0: 74 61 63 6b 5b 53 50 20 2d 20 76 2d 3e 73 79 6d  tack[SP - v->sym
20f0: 2d 3e 6e 75 6d 5f 70 61 72 61 6d 73 5d 20 3d 20  ->num_params] = 
2100: 53 74 61 63 6b 5b 53 50 20 2d 20 31 5d 3b 0a 20  Stack[SP - 1];. 
2110: 20 20 20 53 50 20 2d 3d 20 76 2d 3e 73 79 6d 2d     SP -= v->sym-
2120: 3e 6e 75 6d 5f 70 61 72 61 6d 73 20 2d 20 31 3b  >num_params - 1;
2130: 0a 0a 20 20 20 20 72 65 74 75 72 6e 3b 0a 7d 0a  ..    return;.}.