version 1.15, 1997/01/29 21:32:38
|
version 1.37, 2001/04/08 13:48:12
|
Line 1
|
Line 1
|
\ SEE.FS highend SEE for ANSforth 16may93jaw |
\ SEE.FS highend SEE for ANSforth 16may93jaw |
|
|
\ Copyright (C) 1995 Free Software Foundation, Inc. |
\ Copyright (C) 1995,2000 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 16
|
Line 16
|
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
|
|
\ May be cross-compiled |
\ May be cross-compiled |
Line 25
|
Line 25
|
|
|
\ Ideas: Level should be a stack |
\ Ideas: Level should be a stack |
|
|
|
require look.fs |
require termsize.fs |
require termsize.fs |
|
require wordinfo.fs |
|
[IFUNDEF] .name |
|
: id. ( nt -- ) \ gforth |
|
\G Print the name of the word represented by @var{nt}. |
|
\ this name comes from fig-Forth |
|
name>string type space ; |
|
|
|
' id. alias .id ( nt -- ) |
|
\G F83 name for @code{id.}. |
|
|
|
' id. alias .name ( nt -- ) |
|
\G Gforth <=0.5.0 name for @code{id.}. |
|
|
|
[THEN] |
|
|
decimal |
decimal |
|
|
Line 56 DEFER nlcount ' noop IS nlcount
|
Line 71 DEFER nlcount ' noop IS nlcount
|
|
|
: nl nlflag on ; |
: nl nlflag on ; |
: (nl) nlcount |
: (nl) nlcount |
XPos @ Level @ = ?Exit |
XPos @ Level @ = IF EXIT THEN \ ?Exit |
C-Formated @ IF |
C-Formated @ IF |
C-Output @ |
C-Output @ |
IF C-Clearline @ IF cols XPos @ - spaces |
IF C-Clearline @ IF cols XPos @ - spaces |
Line 69 DEFER nlcount ' noop IS nlcount
|
Line 84 DEFER nlcount ' noop IS nlcount
|
nlflag @ IF (nl) nlflag off THEN |
nlflag @ IF (nl) nlflag off THEN |
XPos @ over + cols u>= IF (nl) THEN ; |
XPos @ over + cols u>= IF (nl) THEN ; |
|
|
: c-to-upper |
: c-to-upper ( c1 -- c2 ) \ gforth |
dup [char] a >= over [char] z <= and if bl - then ; |
\ nac05feb1999 there is a primitive, toupper, with this function |
|
dup [char] a >= over [char] z <= and if bl - then ; |
|
|
: ctype ( adr len -- ) |
: ctype ( adr len -- ) |
warp? dup XPos +! C-Output @ |
warp? dup XPos +! C-Output @ |
Line 83 DEFER nlcount ' noop IS nlcount
|
Line 99 DEFER nlcount ' noop IS nlcount
|
IF 2drop ELSE XPos +! C-Output @ IF emit ELSE drop THEN |
IF 2drop ELSE XPos +! C-Output @ IF emit ELSE drop THEN |
THEN ; |
THEN ; |
|
|
DEFER .string |
DEFER .string ( c-addr u n -- ) |
|
|
[IFDEF] Green |
[IFDEF] Green |
VARIABLE Colors Colors on |
VARIABLE Colors Colors on |
Line 108 VARIABLE Colors Colors on
|
Line 124 VARIABLE Colors Colors on
|
: .struc |
: .struc |
uppercase on Str# .string ; |
uppercase on Str# .string ; |
|
|
\ CODES 15may93jaw |
\ CODES (Branchtypes) 15may93jaw |
|
|
21 CONSTANT RepeatCode |
21 CONSTANT RepeatCode |
22 CONSTANT AgainCode |
22 CONSTANT AgainCode |
Line 118 VARIABLE Colors Colors on
|
Line 134 VARIABLE Colors Colors on
|
11 CONSTANT AheadCode |
11 CONSTANT AheadCode |
13 CONSTANT WhileCode2 |
13 CONSTANT WhileCode2 |
14 CONSTANT Disable |
14 CONSTANT Disable |
|
15 CONSTANT LeaveCode |
|
|
|
|
\ FORMAT WORDS 13jun93jaw |
\ FORMAT WORDS 13jun93jaw |
|
|
VARIABLE C-Stop |
VARIABLE C-Stop |
VARIABLE Branches |
VARIABLE Branches |
|
|
VARIABLE BranchPointer |
VARIABLE BranchPointer \ point to the end of branch table |
VARIABLE SearchPointer |
VARIABLE SearchPointer |
CREATE BranchTable 500 allot |
|
|
\ The branchtable consists of three entrys: |
|
\ address of branch , branch destination , branch type |
|
|
|
CREATE BranchTable 128 cells allot |
here 3 cells - |
here 3 cells - |
ACONSTANT MaxTable |
ACONSTANT MaxTable |
|
|
: FirstBranch BranchTable cell+ SearchPointer ! ; |
: FirstBranch BranchTable cell+ SearchPointer ! ; |
|
|
: (BranchAddr?) ( a-addr -- a-addr true | false ) |
: (BranchAddr?) ( a-addr1 -- a-addr2 true | false ) |
|
\ searches a branch with destination a-addr1 |
|
\ a-addr1: branch destination |
|
\ a-addr2: pointer in branch table |
SearchPointer @ |
SearchPointer @ |
BEGIN dup BranchPointer @ u< |
BEGIN dup BranchPointer @ u< |
WHILE |
WHILE |
Line 161 ACONSTANT MaxTable
|
Line 186 ACONSTANT MaxTable
|
2drop true |
2drop true |
THEN ; |
THEN ; |
|
|
|
: MyBranch ( a-addr -- a-addr a-addr2 ) |
|
\ finds branch table entry for branch at a-addr |
|
dup @ over + |
|
BranchAddr? |
|
BEGIN |
|
WHILE 1 cells - @ |
|
over <> |
|
WHILE dup @ over + |
|
MoreBranchAddr? |
|
REPEAT |
|
SearchPointer @ 3 cells - |
|
ELSE true ABORT" SEE: Table failure" |
|
THEN ; |
|
|
\ |
\ |
\ addrw addrt |
\ addrw addrt |
\ BEGIN ... WHILE ... AGAIN ... THEN |
\ BEGIN ... WHILE ... AGAIN ... THEN |
Line 209 VARIABLE C-Pass
|
Line 248 VARIABLE C-Pass
|
: back? ( n -- flag ) 0< ; |
: back? ( n -- flag ) 0< ; |
: ahead? ( n -- flag ) 0> ; |
: ahead? ( n -- flag ) 0> ; |
|
|
: c-(compile) |
|
Display? |
|
IF |
|
s" POSTPONE " Com# .string |
|
dup @ look 0= ABORT" SEE: No valid XT" |
|
name>string 0 .string bl cemit |
|
THEN |
|
cell+ ; |
|
|
|
: c-lit |
: c-lit |
Display? IF |
Display? IF |
dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit |
dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit |
THEN |
THEN |
cell+ ; |
cell+ ; |
|
|
: c-s" |
: .word ( addr xt -- addr ) |
count 2dup + aligned -rot |
look 0= IF |
Display? |
drop dup 1 cells - @ dup body> look |
IF [char] S cemit [char] " cemit bl cemit 0 .string |
IF |
[char] " cemit bl cemit |
nip dup ." <" name>string rot wordinfo .string ." >" |
ELSE 2drop |
ELSE |
THEN ; |
drop ." <" 0 .r ." >" |
|
THEN |
: c-." |
ELSE |
count 2dup + aligned -rot |
dup cell+ @ immediate-mask and |
Display? |
IF |
IF [char] . cemit |
bl cemit ." POSTPONE " |
[char] " cemit bl cemit 0 .string |
THEN |
[char] " cemit bl cemit |
dup name>string rot wordinfo .string |
ELSE 2drop |
THEN ; |
THEN ; |
|
|
: c-call |
|
Display? IF dup @ body> .word bl cemit THEN cell+ ; |
|
|
|
: .name-without ( addr -- addr ) |
|
\ prints a name without () e.g. (+LOOP) or (s") |
|
dup 1 cells - @ look |
|
IF name>string over c@ '( = IF 1 /string THEN |
|
2dup + 1- c@ ') = IF 1- THEN .struc ELSE drop |
|
THEN ; |
|
|
: c-c" |
: c-c" |
|
Display? IF nl .name-without THEN |
count 2dup + aligned -rot |
count 2dup + aligned -rot |
Display? |
Display? |
IF [char] C cemit [char] " cemit bl cemit 0 .string |
IF bl cemit 0 .string |
[char] " cemit bl cemit |
[char] " cemit bl cemit |
ELSE 2drop |
ELSE 2drop |
THEN ; |
THEN ; |
|
|
|
|
: Forward? ( a-addr true | false -- ) |
: Forward? ( a-addr true | false -- a-addr true | false ) |
|
\ a-addr1 is pointer into branch table |
|
\ returns true when jump is a forward jump |
IF dup dup @ swap 1 cells - @ - |
IF dup dup @ swap 1 cells - @ - |
Ahead? IF true ELSE drop false THEN |
Ahead? IF true ELSE drop false THEN |
\ only if forward jump |
\ only if forward jump |
ELSE false THEN ; |
ELSE false THEN ; |
|
|
: RepeatCheck |
: RepeatCheck ( a-addr1 a-addr2 true | false -- false ) |
IF BEGIN 2dup |
IF BEGIN 2dup |
1 cells - @ swap dup @ + |
1 cells - @ swap dup @ + |
u<= |
u<= |
Line 295 VARIABLE C-Pass
|
Line 337 VARIABLE C-Pass
|
IF drop S" REPEAT " .struc nl |
IF drop S" REPEAT " .struc nl |
ELSE S" AGAIN " .struc nl |
ELSE S" AGAIN " .struc nl |
THEN |
THEN |
ELSE dup cell+ BranchAddr? Forward? |
ELSE MyBranch cell+ @ LeaveCode = |
IF dup cell+ @ WhileCode2 = |
IF S" LEAVE " .struc |
IF nl S" ELSE" .struc level+ |
ELSE |
ELSE level- nl S" ELSE" .struc level+ THEN |
dup cell+ BranchAddr? Forward? |
cell+ Disable swap ! |
IF dup cell+ @ WhileCode2 = |
ELSE S" AHEAD" .struc level+ |
IF nl S" ELSE" .struc level+ |
THEN |
ELSE level- nl S" ELSE" .struc level+ THEN |
|
cell+ Disable swap ! |
|
ELSE S" AHEAD" .struc level+ |
|
THEN |
|
THEN |
THEN |
THEN |
THEN |
THEN |
Debug? |
Debug? |
Line 309 VARIABLE C-Pass
|
Line 355 VARIABLE C-Pass
|
ELSE cell+ |
ELSE cell+ |
THEN ; |
THEN ; |
|
|
: MyBranch ( a-addr -- a-addr a-addr2 ) |
|
dup @ over + |
|
BranchAddr? |
|
BEGIN |
|
WHILE 1 cells - @ |
|
over <> |
|
WHILE dup @ over + |
|
MoreBranchAddr? |
|
REPEAT |
|
SearchPointer @ 3 cells - |
|
ELSE true ABORT" SEE: Table failure" |
|
THEN ; |
|
|
|
: DebugBranch |
: DebugBranch |
Debug? |
Debug? |
IF dup @ over + swap THEN ; \ return 2 different addresses |
IF dup @ over + swap THEN ; \ return 2 different addresses |
Line 344 VARIABLE C-Pass
|
Line 377 VARIABLE C-Pass
|
level- nl |
level- nl |
S" WHILE " .struc |
S" WHILE " .struc |
level+ |
level+ |
ELSE nl S" IF " .struc level+ |
ELSE MyBranch cell+ @ LeaveCode = |
|
IF s" 0= ?LEAVE " .struc |
|
ELSE nl S" IF " .struc level+ |
|
THEN |
THEN |
THEN |
THEN |
THEN |
THEN |
THEN |
Line 354 VARIABLE C-Pass
|
Line 390 VARIABLE C-Pass
|
: c-for |
: c-for |
Display? IF nl S" FOR" .struc level+ THEN ; |
Display? IF nl S" FOR" .struc level+ THEN ; |
|
|
: .name-without |
|
dup 1 cells - @ look IF name>string 1 /string 1- .struc ELSE drop THEN ; |
|
|
|
: c-loop |
: c-loop |
Display? IF level- nl .name-without bl cemit nl THEN |
Display? IF level- nl .name-without bl cemit nl THEN |
DebugBranch cell+ cell+ ; |
DebugBranch cell+ |
|
Scan? |
|
IF dup BranchAddr? |
|
BEGIN WHILE cell+ LeaveCode swap ! |
|
dup MoreBranchAddr? |
|
REPEAT |
|
THEN |
|
cell+ ; |
|
|
: c-do |
: c-do |
Display? IF nl .name-without level+ THEN ; |
Display? IF nl .name-without level+ THEN ; |
Line 368 VARIABLE C-Pass
|
Line 408 VARIABLE C-Pass
|
Display? IF nl S" ?DO" .struc level+ THEN |
Display? IF nl S" ?DO" .struc level+ THEN |
DebugBranch cell+ ; |
DebugBranch cell+ ; |
|
|
: c-leave |
|
Display? IF S" LEAVE " .struc THEN |
|
Debug? IF dup @ + THEN cell+ ; |
|
|
|
: c-?leave |
|
Display? IF S" ?LEAVE " .struc THEN |
|
cell+ DebugBranch swap cell+ swap cell+ ; |
|
|
|
: c-exit dup 1 cells - |
: c-exit dup 1 cells - |
CheckEnd |
CheckEnd |
IF Display? IF nlflag off S" ;" Com# .string THEN |
IF Display? IF nlflag off S" ;" Com# .string THEN |
Line 384 VARIABLE C-Pass
|
Line 416 VARIABLE C-Pass
|
THEN |
THEN |
Debug? IF drop THEN ; |
Debug? IF drop THEN ; |
|
|
: c-does> \ end of create part |
|
Display? IF S" DOES> " Com# .string THEN |
|
Cell+ cell+ ; |
|
|
|
: c-abort" |
: c-abort" |
count 2dup + aligned -rot |
count 2dup + aligned -rot |
Display? |
Display? |
Line 397 VARIABLE C-Pass
|
Line 425 VARIABLE C-Pass
|
ELSE 2drop |
ELSE 2drop |
THEN ; |
THEN ; |
|
|
|
[IFDEF] (does>) |
|
: c-does> \ end of create part |
|
Display? IF S" DOES> " Com# .string THEN |
|
maxaligned /does-handler + ; |
|
[THEN] |
|
|
|
[IFDEF] (compile) |
|
: c-(compile) |
|
Display? |
|
IF |
|
s" POSTPONE " Com# .string |
|
dup @ look 0= ABORT" SEE: No valid XT" |
|
name>string 0 .string bl cemit |
|
THEN |
|
cell+ ; |
|
[THEN] |
|
|
CREATE C-Table |
CREATE C-Table |
' lit A, ' c-lit A, |
' lit A, ' c-lit A, |
' (s") A, ' c-s" A, |
[IFDEF] call ' call A, ' c-call A, [THEN] |
' (.") A, ' c-." A, |
' (s") A, ' c-c" A, |
' "lit A, ' c-c" A, |
' (.") A, ' c-c" A, |
comp' leave drop A, ' c-leave A, |
' "lit A, ' c-c" A, |
comp' ?leave drop A, ' c-?leave A, |
[IFDEF] (c") ' (c") A, ' c-c" A, [THEN] |
' (do) A, ' c-do A, |
' (do) A, ' c-do A, |
' (+do) A, ' c-do A, |
[IFDEF] (+do) ' (+do) A, ' c-do A, [THEN] |
' (u+do) A, ' c-do A, |
[IFDEF] (u+do) ' (u+do) A, ' c-do A, [THEN] |
' (-do) A, ' c-do A, |
[IFDEF] (-do) ' (-do) A, ' c-do A, [THEN] |
' (u-do) A, ' c-do A, |
[IFDEF] (u-do) ' (u-do) A, ' c-do A, [THEN] |
' (?do) A, ' c-?do A, |
' (?do) A, ' c-?do A, |
' (for) A, ' c-for A, |
' (for) A, ' c-for A, |
' ?branch A, ' c-?branch A, |
' ?branch A, ' c-?branch A, |
' branch A, ' c-branch A, |
' branch A, ' c-branch A, |
' (loop) A, ' c-loop A, |
' (loop) A, ' c-loop A, |
' (+loop) A, ' c-loop A, |
' (+loop) A, ' c-loop A, |
' (s+loop) A, ' c-loop A, |
[IFDEF] (s+loop) ' (s+loop) A, ' c-loop A, [THEN] |
' (-loop) A, ' c-loop A, |
[IFDEF] (-loop) ' (-loop) A, ' c-loop A, [THEN] |
' (next) A, ' c-loop A, |
' (next) A, ' c-loop A, |
' ;s A, ' c-exit A, |
' ;s A, ' c-exit A, |
' (does>) A, ' c-does> A, |
' (abort") A, ' c-abort" A, |
' (abort") A, ' c-abort" A, |
\ only defined if compiler is loaded |
' (compile) A, ' c-(compile) A, |
[IFDEF] (compile) ' (compile) A, ' c-(compile) A, [THEN] |
0 , here 0 , |
[IFDEF] (does>) ' (does>) A, ' c-does> A, [THEN] |
|
0 , here 0 , |
|
|
avariable c-extender |
avariable c-extender |
c-extender ! |
c-extender ! |
Line 446 c-extender !
|
Line 491 c-extender !
|
; |
; |
|
|
: BranchTo? ( a-addr -- a-addr ) |
: BranchTo? ( a-addr -- a-addr ) |
Display? IF dup BranchAddr? |
Display? IF dup BranchAddr? |
IF |
IF |
BEGIN cell+ @ dup 20 u> |
BEGIN cell+ @ dup 20 u> |
IF drop nl S" BEGIN " .struc level+ |
IF drop nl S" BEGIN " .struc level+ |
ELSE |
ELSE |
dup Disable <> |
dup Disable <> over LeaveCode <> and |
IF WhileCode2 = |
IF WhileCode2 = |
IF nl S" THEN " .struc nl ELSE |
IF nl S" THEN " .struc nl ELSE |
level- nl S" THEN " .struc nl THEN |
level- nl S" THEN " .struc nl THEN |
Line 463 c-extender !
|
Line 508 c-extender !
|
THEN ; |
THEN ; |
|
|
: analyse ( a-addr1 -- a-addr2 ) |
: analyse ( a-addr1 -- a-addr2 ) |
Branches @ IF BranchTo? THEN |
Branches @ IF BranchTo? THEN |
dup cell+ swap @ |
dup cell+ swap @ |
dup >r DoTable r> swap IF drop EXIT THEN |
dup >r DoTable r> swap IF drop EXIT THEN |
Display? |
Display? |
IF look 0= IF drop dup 1 cells - @ . \ ABORT" SEE: Bua!" |
IF |
ELSE dup cell+ count 31 and rot wordinfo .string THEN bl cemit |
.word bl cemit |
ELSE drop |
ELSE |
THEN ; |
drop |
|
THEN ; |
|
|
: c-init |
: c-init |
0 YPos ! 0 XPos ! |
0 YPos ! 0 XPos ! |
Line 498 Defer xt-see-xt ( xt -- )
|
Line 544 Defer xt-see-xt ( xt -- )
|
then |
then |
space ; |
space ; |
|
|
Defer discode ( addr -- ) |
Defer discode ( addr u -- ) \ gforth |
\ hook for the disassembler: disassemble code at addr (as far as the |
\G hook for the disassembler: disassemble code at addr of length u |
\ disassembler thinks is sensible) |
' dump IS discode |
:noname ( addr -- ) |
|
drop ." ..." ; |
: next-head ( addr1 -- addr2 ) \ gforth |
IS discode |
\G find the next header starting after addr1, up to here (unreliable). |
|
here swap u+do |
|
i head? |
|
if |
|
i unloop exit |
|
then |
|
cell +loop |
|
here ; |
|
|
|
: umin ( u1 u2 -- u ) |
|
2dup u> |
|
if |
|
swap |
|
then |
|
drop ; |
|
|
|
: next-prim ( addr1 -- addr2 ) \ gforth |
|
\G find the next primitive after addr1 (unreliable) |
|
1+ >r -1 primstart |
|
begin ( umin head R: boundary ) |
|
@ dup |
|
while |
|
tuck name>int >code-address ( head1 umin ca R: boundary ) |
|
r@ - umin |
|
swap |
|
repeat |
|
drop dup r@ negate u>= |
|
\ "umin+boundary within [0,boundary)" = "umin within [-boundary,0)" |
|
if ( umin R: boundary ) \ no primitive found behind -> use a default length |
|
drop 31 |
|
then |
|
r> + ; |
|
|
: seecode ( xt -- ) |
: seecode ( xt -- ) |
dup s" Code" .defname |
dup s" Code" .defname |
>body discode |
threading-method |
." end-code" cr ; |
if |
|
>code-address |
|
then |
|
dup in-dictionary? \ user-defined code word? |
|
if |
|
dup next-head |
|
else |
|
dup next-prim |
|
then |
|
over - discode |
|
." end-code" cr ; |
: seevar ( xt -- ) |
: seevar ( xt -- ) |
s" Variable" .defname cr ; |
s" Variable" .defname cr ; |
: seeuser ( xt -- ) |
: seeuser ( xt -- ) |
Line 522 IS discode
|
Line 609 IS discode
|
: seedefer ( xt -- ) |
: seedefer ( xt -- ) |
dup >body @ xt-see-xt cr |
dup >body @ xt-see-xt cr |
dup s" Defer" .defname cr |
dup s" Defer" .defname cr |
>name dup ??? = if |
>name ?dup-if |
drop ." lastxt >body !" |
|
else |
|
." IS " .name cr |
." IS " .name cr |
|
else |
|
." lastxt >body !" |
then ; |
then ; |
: see-threaded ( addr -- ) |
: see-threaded ( addr -- ) |
C-Pass @ DebugMode = IF |
C-Pass @ DebugMode = IF |
Line 546 IS discode
|
Line 633 IS discode
|
dup >body ." 0 " ? ." 0 0 " |
dup >body ." 0 " ? ." 0 0 " |
s" Field" .defname cr ; |
s" Field" .defname cr ; |
|
|
: xt-see ( xt -- ) |
: xt-see ( xt -- ) \ gforth |
|
\G Decompile the definition represented by @i{xt}. |
cr c-init |
cr c-init |
dup >does-code |
dup >does-code |
if |
if |
seedoes EXIT |
seedoes EXIT |
then |
then |
dup forthstart u< |
dup xtprim? |
if |
if |
seecode EXIT |
seecode EXIT |
then |
then |
Line 561 IS discode
|
Line 649 IS discode
|
docon: of seecon endof |
docon: of seecon endof |
docol: of seecol endof |
docol: of seecol endof |
dovar: of seevar endof |
dovar: of seevar endof |
|
[ [IFDEF] douser: ] |
douser: of seeuser endof |
douser: of seeuser endof |
|
[ [THEN] ] |
|
[ [IFDEF] dodefer: ] |
dodefer: of seedefer endof |
dodefer: of seedefer endof |
|
[ [THEN] ] |
|
[ [IFDEF] dofield: ] |
dofield: of seefield endof |
dofield: of seefield endof |
over >body of seecode endof |
[ [THEN] ] |
|
over of seecode endof \ direct threaded code words |
|
over >body of seecode endof \ indirect threaded code words |
2drop abort" unknown word type" |
2drop abort" unknown word type" |
ENDCASE ; |
ENDCASE ; |
|
|
Line 595 IS discode
|
Line 690 IS discode
|
then |
then |
rdrop drop ; |
rdrop drop ; |
|
|
: see ( "name" -- ) \ tools |
: see ( "<spaces>name" -- ) \ tools |
|
\G Locate @var{name} using the current search order. Display the |
|
\G definition of @var{name}. Since this is achieved by decompiling |
|
\G the definition, the formatting is mechanised and some source |
|
\G information (comments, interpreted sequences within definitions |
|
\G etc.) is lost. |
name find-name dup 0= |
name find-name dup 0= |
IF |
IF |
drop -&13 bounce |
drop -&13 throw |
THEN |
THEN |
name-see ; |
name-see ; |
|
|