Update to latest TOS distro
This commit is contained in:
1 parent
7e46072c81
commit
70ff1e2f75
142 files changed
+6403
-9909
No files matched your search
@@ -76,5 +76,5 @@ The flag arrays $LK,"doldoc.type_flags_form",A="MN:CDolDocGlbls"$, etc
|
||||
are useful.
|
||||
*/
|
||||
|
||||
DocProfile("::/Doc/ChgLog.DD",0);
|
||||
DocProfile("::/Doc/ChgLog.DD",DOCF_PLAIN_TEXT);
|
||||
DocProfile("::/Doc/Welcome.DD",0);
|
||||
DocProfile("::/Doc/Welcome.DD",DOCF_PLAIN_TEXT);
|
||||
@@ -1,16 +1,16 @@
|
||||
class FDStruct
|
||||
{//Use <CTRL-l> and sel "Data", "List" or "Check Box"
|
||||
//to generate the fmtstrs.
|
||||
F64 num1 fmtstr "$$DA-TRM,A=\"Float 1:%12.8f\"$$\n";
|
||||
F64 num2 fmtstr "$$DA-TRM,A=\"Float 2:%12e\"$$\n";
|
||||
I64 num3 fmtstr "$$DA-TRM,A=\"Int 1:0x%016X\"$$\n";
|
||||
I64 num4 fmtstr "$$DA-TRM,A=\"Int 2:%12d\"$$\n";
|
||||
I64 type fmtstr "$$LS,D=\"ST_PERSON_TYPE\"$$\n";
|
||||
U8 name[32] fmtstr "$$DA-P,A=\"Name :%s\"$$\n";
|
||||
U8 *address1 fmtstr "$$DA+M,A=\"Address:%s\"$$\n"; //+M is unlimited len U8 *.
|
||||
U8 *address2 fmtstr "$$DA+M,A=\"Address:%s\"$$\n"; //+M is unlimited len U8 *.
|
||||
CDate datetime fmtstr "$$DA-TRM,A=\"Date :%8D\"$$\n";
|
||||
Bool check fmtstr "$$CB,\"Check\"$$\n";
|
||||
//to generate the formats.
|
||||
F64 num1 format "$$DA-TRM,A=\"Float 1:%12.8f\"$$\n";
|
||||
F64 num2 format "$$DA-TRM,A=\"Float 2:%12e\"$$\n";
|
||||
I64 num3 format "$$DA-TRM,A=\"Int 1:0x%016X\"$$\n";
|
||||
I64 num4 format "$$DA-TRM,A=\"Int 2:%12d\"$$\n";
|
||||
I64 type format "$$LS,D=\"ST_PERSON_TYPE\"$$\n";
|
||||
U8 name[32] format "$$DA-P,A=\"Name :%s\"$$\n";
|
||||
U8 *address1 format "$$DA+M,A=\"Address:%s\"$$\n"; //+M is unlimited len U8 *.
|
||||
U8 *address2 format "$$DA+M,A=\"Address:%s\"$$\n"; //+M is unlimited len U8 *.
|
||||
CDate datetime format "$$DA-TRM,A=\"Date :%8D\"$$\n";
|
||||
Bool check format "$$CB,\"Check\"$$\n";
|
||||
};
|
||||
|
||||
U0 FormDemo()
|
||||
|
||||
Reference in new issue
Block a user