mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2025-01-29 15:46:02 +00:00
20 lines
490 B
HolyC
Executable file
20 lines
490 B
HolyC
Executable file
/*The +D flag causes a define-string
|
|
look-up and substitution.
|
|
|
|
It is available in the <CTRL-l> text-widget
|
|
menu under text entries for use in
|
|
documentation.
|
|
|
|
*/
|
|
|
|
DefineLoad("COMPANY", "Acme Inc");
|
|
"Company: $$TX,\"\",D=\"COMPANY\"$$\n";
|
|
|
|
DefinePrint("COMPANY_TIME", "%T", Now);
|
|
|
|
#exe {
|
|
StreamPrint("#define COMPANY_AGE %0.1f\n", (Now - Str2Date("8/1/2003")) / ToF64(1 << 32) / CDATE_YEAR_DAYS);
|
|
};
|
|
|
|
"Age : $$TX,\"\",D=\"COMPANY_AGE\"$$ years\n";
|
|
"Time: $$TX,\"\",D=\"COMPANY_TIME\"$$\n";
|