Documentation
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(* ::Package:: *)

SetDirectory@NotebookDirectory[];
(*Needs["JLink`"];*)
(*InstallJava[];*)
(*LoadJavaClass["java.awt.Toolkit", AllowShortContext -> False];*)

(*CopyAsUTF8[s_String] := JavaBlock[java`awt`Toolkit`getDefaultToolkit[]@getSystemClipboard[]@setContents[#, #]&@JavaNew["java.awt.datatransfer.StringSelection", s]];*)
systems = Names["System`*"];
out = TemplateApply[
	"/// `3`\npub const SYSTEM_SYMBOLS: [&str; `2`] = [\"`1`\"];",
	{StringRiffle[systems, "\",\""], Length@systems, $Version}
];
(*% // CopyAsUTF8*)
Export["systems.rs", out, "Text"]