From b763809491195e6aa02e29bd6179be1a3276d58c Mon Sep 17 00:00:00 2001 From: Kuoi Date: Tue, 10 Oct 2023 13:58:32 +0800 Subject: [PATCH] add: winclada.ss directly; fix quote --- guoyi.run | 39 ++++++++++++++++++++++++++++++++++----- 1 file changed, 34 insertions(+), 5 deletions(-) diff --git a/guoyi.run b/guoyi.run index 2992dbc..8c54a15 100644 --- a/guoyi.run +++ b/guoyi.run @@ -434,6 +434,35 @@ set CI 'themin'/'TL'; /*CI=1 means no homoplasy*/ set RI ('themax'-'TL')/('themax'-'themin'); /*RI=1 character fits perfetcly*/ report=; +/*Generate ss file for winclada*/ +log %7.winclada.ss; +/*get basic info*/ +var: taxnum chanum; +set taxnum ntax+1; +set chanum nchar+1; +/*output head*/ +quote +xread +' +Data saved from TNT +' +'chanum' 'taxnum'; +/*outhead body*/ +xread!; +/*output split symnol*/ +runc! +tntprintf(";\n\n"); +! +/*output the tread*/ +taxname-; +tp*; +/*output the end*/ +runc! +tntprintf("proc/;\n"); +! +log/; + + /*Report CI/RI/TL */ log %7.report.log; macfloat 3; @@ -506,7 +535,7 @@ else if ('doiw') quote | under implied weighting, | -| K value is 'kvalue' |; +| K value is 'kvalue' |; else if ('doeiw') quote @@ -526,15 +555,15 @@ quote if ('doeiw') quote -| The file `eiw.log` contain the report |; +| The file `eiw.log` contain the report | +| of character concavities |; end quote -| of character concavities | | The file `winclada.tre` can be | | converted by tnt2winclada | -| The file `original.tnt.tre` can be read | -| by winclada after reading tnt file | +| The file `winclada.ss` can be read by | +| winclada directly | \----------------------------------------------/; /*Quit*/