新年好易语言 sizeof 函数实现 - 精易论坛

窗口程序集名	保留	保留	备注
程序集1

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类型	静态	数组	备注
IP_ADAPTER_INFO	IP_ADAPTER_INFO
测试数据类型	测试数据类型
多层嵌套数据结构	多层嵌套数据结构

调试输出 (sizeof (取指针地址 (IP_ADAPTER_INFO)))
调试输出 (sizeof (取指针地址 (多层嵌套数据结构)), LocalSize_多层嵌套数据结构 (多层嵌套数据结构))
调试输出 (sizeof (取指针地址 (测试数据类型)))
调试输出 (sizeof ( #字节型 ), sizeof ( #短整数型 ), sizeof ( #整数型 ), sizeof ( #长整数型 ), sizeof ( #小数型 ), sizeof ( #双精度小数型 ), sizeof ( #逻辑型 ), sizeof ( #日期时间型 ), sizeof ( #子程序指针型 ))
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
sizeof	整数型		取数据结构的大小尺寸，失败返回0
参数名	类型	参考	可空	数组	备注
param	整数型				取指针地址（数据结构），不支持数组

变量名	类型	静态	数组	备注
pAddr	整数型
size	整数型
len	整数型
I	整数型
ptr	整数型

如果真 (param ＞ 0 且 param ＜ 10)

返回 (取数据类型尺寸 (param))

pAddr ＝ param
len ＝ __getPtrLen (pAddr)

变量循环首 (0, len, 4, I) ' 易语言数据结构是4字节对齐的，每4个字节一组循环

ptr ＝ __get (pAddr, I) ' 取索引组整数，该整数可能是指针地址，也有可能是纯数值

判断 (指针_是否有效 (ptr) ＝真) ' 指针是否有效可以区分一个整数是指针还是数值，分配内存的时候应该什么地方有记录

ptr ＝ __getRedirArrPtr (ptr) ' 有可能是数组指针，就要进行重定向+8偏移

size ＝ size ＋ sizeof (ptr) ' 传入新指针地址，递归累计大小

size ＝ size ＋ 4

变量循环尾 ()
' 下面 size - 4 作用解释
' sizeof()时，第一层的指针地址比如是{1,0,0,0,2,0,0,0,3,0,0,0},4字节对齐，表示这个数据结构有N个成员
' 成员的地址指向{1,0,0,0}或{2,0,0,0},这一层的大小是不统计进去的
' 只统计最终指向的数据实际长度
' 由于是递归，无论指针地址嵌套多少层，每递归一次就-4就完美了

如果真 (size ≠ 0)

size ＝ size － 4
返回 (size)

子程序名	返回值类型	公开	备注
__getPtrLen	整数型		取指针长度，找到8个连续的171时返回，如不明此函数用途请勿调用，避免异常！！！
参数名	类型	参考	可空	数组	备注
pointer	整数型

变量名	类型	静态	数组	备注
pAddr	整数型
byte	字节型
count	整数型

pAddr ＝ pointer

循环判断首 ()

byte ＝ __get_byte (pAddr, 0)

判断 (byte ＝ 171)

count ＝ count ＋ 1

count ＝ 0

pAddr ＝ pAddr ＋ 1

循环判断尾 (count ＜ 7)
返回 (pAddr － pointer － count ＋ 1)

子程序名	返回值类型	公开	备注
__getRedirArrPtr	整数型		数组指针重定向，如果指针地址指向的是数组起始地址{1,0,0,0,x,x,x,x}则对该指针地址进行+8重定向，否则返回源指针地址。
参数名	类型	参考	可空	数组	备注
pAddr	整数型

变量名	类型	静态	数组	备注
offset	整数型

如果真 (__get_byte (pAddr, 0) ＝ 1)

offset ＝ __get (pAddr, 4) ' 取数组成员数

如果真 (__get (pAddr ＋ 8, offset) ＝ -1414812757 且 __get (pAddr ＋ 12, offset) ＝ -1414812757)

' 取成员数量后面是否是8个连续的171，是的话就是数组了，返回+8。

' -1414812757=取字节集数据 ({ 171，171，171，171 }, #整数型, )

返回 (pAddr ＋ 8)

返回 (pAddr)

i支持库列表	支持库注释
spec	特殊功能支持库
shellEx	扩展功能支持库一

.版本 2<br />
.支持库 spec<br />
.支持库 shellEx<br />
<br />
.程序集 程序集1<br />
<br />
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />
.局部变量 IP_ADAPTER_INFO, IP_ADAPTER_INFO<br />
.局部变量 测试数据类型, 测试数据类型<br />
.局部变量 多层嵌套数据结构, 多层嵌套数据结构<br />
<br />
<br />
<br />
调试输出 (sizeof (取指针地址 (IP_ADAPTER_INFO)))<br />
调试输出 (sizeof (取指针地址 (多层嵌套数据结构)), LocalSize_多层嵌套数据结构 (多层嵌套数据结构))<br />
调试输出 (sizeof (取指针地址 (测试数据类型)))<br />
调试输出 (sizeof (#字节型), sizeof (#短整数型), sizeof (#整数型), sizeof (#长整数型), sizeof (#小数型), sizeof (#双精度小数型), sizeof (#逻辑型), sizeof (#日期时间型), sizeof (#子程序指针型))<br />
返回 (0)  ' 可以根据您的需要返回任意数值<br />
<br />
.子程序 sizeof, 整数型, , 取数据结构的大小尺寸，失败返回0<br />
.参数 param, 整数型, , 取指针地址（数据结构），不支持数组<br />
.局部变量 pAddr, 整数型<br />
.局部变量 size, 整数型<br />
.局部变量 len, 整数型<br />
.局部变量 I, 整数型<br />
.局部变量 ptr, 整数型<br />
<br />
.如果真 (param ＞ 0 且 param ＜ 10)<br />
    返回 (取数据类型尺寸 (param))<br />
.如果真结束<br />
<br />
pAddr ＝ param<br />
len ＝ __getPtrLen (pAddr)<br />
.变量循环首 (0, len, 4, I)  ' 易语言数据结构是4字节对齐的，每4个字节一组循环<br />
    ptr ＝ __get (pAddr, I)  ' 取索引组整数，该整数可能是指针地址，也有可能是纯数值<br />
    .判断开始 (指针_是否有效 (ptr) ＝ 真)  ' 指针是否有效可以区分一个整数是指针还是数值，分配内存的时候应该什么地方有记录<br />
        ptr ＝ __getRedirArrPtr (ptr)  ' 有可能是数组指针，就要进行重定向+8偏移<br />
        size ＝ size ＋ sizeof (ptr)  ' 传入新指针地址，递归累计大小<br />
    .默认<br />
        size ＝ size ＋ 4<br />
    .判断结束<br />
<br />
.变量循环尾 ()<br />
' 下面 size - 4 作用解释<br />
' sizeof()时，第一层的指针地址比如是{1,0,0,0,2,0,0,0,3,0,0,0},4字节对齐，表示这个数据结构有N个成员<br />
' 成员的地址指向{1,0,0,0}或{2,0,0,0},这一层的大小是不统计进去的<br />
' 只统计最终指向的数据实际长度<br />
' 由于是递归，无论指针地址嵌套多少层，每递归一次就-4就完美了<br />
.如果真 (size ≠ 0)<br />
    size ＝ size － 4<br />
.如果真结束<br />
返回 (size)<br />
<br />
.子程序 __getPtrLen, 整数型, , 取指针长度，找到8个连续的171时返回，如不明此函数用途请勿调用，避免异常！！！<br />
.参数 pointer, 整数型<br />
.局部变量 pAddr, 整数型<br />
.局部变量 byte, 字节型<br />
.局部变量 count, 整数型<br />
<br />
pAddr ＝ pointer<br />
.循环判断首 ()<br />
    byte ＝ __get_byte (pAddr, 0)<br />
    .判断开始 (byte ＝ 171)<br />
        count ＝ count ＋ 1<br />
    .默认<br />
        count ＝ 0<br />
    .判断结束<br />
<br />
    pAddr ＝ pAddr ＋ 1<br />
.循环判断尾 (count ＜ 7)<br />
返回 (pAddr － pointer － count ＋ 1)<br />
<br />
.子程序 __getRedirArrPtr, 整数型, , 数组指针重定向，如果指针地址指向的是数组起始地址{1,0,0,0,x,x,x,x}则对该指针地址进行+8重定向，否则返回源指针地址。<br />
.参数 pAddr, 整数型<br />
.局部变量 offset, 整数型<br />
<br />
.如果真 (__get_byte (pAddr, 0) ＝ 1)<br />
    offset ＝ __get (pAddr, 4)  ' 取数组成员数<br />
    .如果真 (__get (pAddr ＋ 8, offset) ＝ -1414812757 且 __get (pAddr ＋ 12, offset) ＝ -1414812757)<br />
        ' 取成员数量后面是否是8个连续的171，是的话就是数组了，返回+8。<br />
        ' -1414812757=取字节集数据 ({ 171，171，171，171 }, #整数型, )<br />
        返回 (pAddr ＋ 8)<br />
    .如果真结束<br />
<br />
.如果真结束<br />
返回 (pAddr)

子程序名	返回值类型	公开	备注
取数据尺寸	整数型
参数名	类型	参考	可空	数组	备注
通用数据	通用型

变量名	类型	静态	数组	备注
数据指针	整数型
指针数值

数据指针＝取通用数据地址 (通用数据)
指针数值＝指针到整数 (数据指针)
返回 (sizeof (指针数值))

子程序名	返回值类型	公开	备注
取通用数据地址	整数型		相当于取变量地址()
参数名	类型	参考	可空	数组	备注
参数通用	通用型

置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备注
sizeof	整数型		取数据结构的尺寸大小
参数名	类型	参考	可空	数组	备注
变量	通用型				数据结构变量，不能是数组，且数据结构未赋值

变量名	类型	静态	数组	备注
pAddr	整数型
I	整数型
char	字节型
count	整数型
len	整数型
ptr	整数型
size	整数型

pAddr ＝ __get (取指针_通用型 (变量), 0)

如果真 (pAddr ＞ 0 且 pAddr ＜ 10)

返回 (取数据类型尺寸 (pAddr))

循环判断首 ()

char ＝ __get_byte (pAddr, I)

判断 (char ＝ 171)

count ＝ count ＋ 1

count ＝ 0

I ＝ I ＋ 1

循环判断尾 (count ＜ 7)
len ＝ I － count ＋ 1

变量循环首 (0, len, 4, I)

ptr ＝ __get (pAddr, I)

判断 (指针_是否有效 (ptr) ＝真)

如果真 (__get (ptr, 0) ＝ 1) ' 如果开头是{1,0,0,0},可能是数组

ptr ＝ ptr ＋ 8

size ＝ size ＋ sizeof (ptr)

size ＝ size ＋ 4

变量循环尾 ()

如果真 (size ≠ 0)

size ＝ size － 4
返回 (size)

数据类型名	公开	备注
WAVEINCAPS
成员名	类型	传址	数组	备注
wMid	短整数型
wPid	短整数型
vDriverVersion
szPname	字节型		32
dwFormats
wChannels	短整数型
wReserved1	短整数型