malacology/TNT_Script
1
0
Fork 0
Code Issues Pull requests Projects Releases 12 Wiki Activity

add: winclada.ss directly; fix quote

Browse source
This commit is contained in:
kuoi 2023-10-10 13:58:32 +08:00
parent f09742a8ce
commit b763809491
1 changed files with 34 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
guoyi.run
View file

@ -434,6 +434,35 @@ set CI 'themin'/'TL'; /*CI=1 means no homoplasy*/
set RI ('themax'-'TL')/('themax'-'themin'); /*RI=1 character fits perfetcly*/ set RI ('themax'-'TL')/('themax'-'themin'); /*RI=1 character fits perfetcly*/
report=; 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 */ /*Report CI/RI/TL */
log %7.report.log; log %7.report.log;
macfloat 3; macfloat 3;
@ -526,15 +555,15 @@ quote
if ('doeiw') if ('doeiw')
quote quote
| The file `eiw.log` contain the report |; | The file `eiw.log` contain the report |
| of character concavities |;
end end
quote quote
| of character concavities |
| The file `winclada.tre` can be | | The file `winclada.tre` can be |
| converted by tnt2winclada | | converted by tnt2winclada |
| The file `original.tnt.tre` can be read | | The file `winclada.ss` can be read by |
| by winclada after reading tnt file | | winclada directly |
\----------------------------------------------/; \----------------------------------------------/;
/*Quit*/ /*Quit*/