明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2091|回复: 23

[经验] [原创]发一个工具,把任意保留函数变成普通函数

  [复制链接]
发表于 2022-8-5 10:19 | 显示全部楼层 |阅读模式
本帖最后由 baitang36 于 2022-8-5 10:51 编辑

我习惯把自动桌子没公开的函数叫保留函数,意思是桌子留着自己用的函数。大海叫它隐藏函数,晨语和猫叫它内部函数,其实意思是完全一样的。
syz-tran-fun2.fas定义了一个函数syz-tran-fun,转换后的函数在vlide中也是能变色的。
用法如下:
(syz-tran-fun "itoa")
返回syz-itoa,这是个普通函数了,可以这样使用  (syz-itoa 32 16)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

命令栏lsp,可以查看增加了多少函数。  发表于 2022-8-5 14:20

评分

参与人数 5明经币 +5 金钱 +30 收起 理由
guosheyang + 1 很给力!
伪书虫86 + 1 神马都是浮云
dtucad + 1
highflybird + 1 + 30 赞一个!
自贡黄明儒 + 1 很给力!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
 楼主| 发表于 2022-8-5 11:51 | 显示全部楼层
guosheyang 发表于 2022-8-5 11:22
大佬  我运行 (syz-itoa 32 16)   返回   ; 错误: 参数太多    是哪里不对呢?  谢谢!

这样用

命令: (LOAD "D:/syz-tran-fun2.fas")

命令: (syz-tran-fun "itoa")
syz-itoa

命令: (syz-itoa 32 16)
"20"
 楼主| 发表于 2022-8-5 10:53 | 显示全部楼层
liuyj 发表于 2022-8-5 10:49
原来觉得自己只懂点lisp,都不好意思跟人家说,现在觉得lisp还是挺强大的,还是自己懂得少

我在研究lsp直接调用windows的api,成功后lsp会和其他语言一样强大,做你想做的任何事

点评

牛逼  发表于 2022-8-7 09:30

评分

参与人数 1金钱 +10 收起 理由
ssyfeng + 10 赞一个!

查看全部评分

发表于 2022-8-5 11:15 | 显示全部楼层
baitang36 发表于 2022-8-5 10:53
我在研究lsp直接调用windows的api,成功后lsp会和其他语言一样强大,做你想做的任何事

转单精度16进制浮点数不知道能不能用你这个来优化
发表于 2022-8-5 10:20 | 显示全部楼层
好高深……
研究的这麽透彻
发表于 2022-8-5 10:26 | 显示全部楼层
Make Lisp Great Again!
发表于 2022-8-5 10:27 | 显示全部楼层
本帖最后由 自贡黄明儒 于 2022-8-5 10:28 编辑

itoa 是把一个整数变成字符串
(syz-itoa 32 16)====> "20" 是把10进制32,变成16进制“20”
有了这个函数,就不需要其它进制转换函数了。
发表于 2022-8-5 10:49 | 显示全部楼层
原来觉得自己只懂点lisp,都不好意思跟人家说,现在觉得lisp还是挺强大的,还是自己懂得少
 楼主| 发表于 2022-8-5 10:50 | 显示全部楼层
自贡黄明儒 发表于 2022-8-5 10:27
itoa 是把一个整数变成字符串
(syz-itoa 32 16)====> "20" 是把10进制32,变成16进制“20”
有了这个函数 ...

它支持2到36进制
发表于 2022-8-5 11:22 | 显示全部楼层
大佬  我运行 (syz-itoa 32 16)   返回   ; 错误: 参数太多    是哪里不对呢?  谢谢!
发表于 2022-8-5 11:37 | 显示全部楼层
(syz-tran-fun "vector-elt<-")
(syz-vector-elt<- '(1 2 3 4 5 6) 8 3)    不能运行 显示函数未定义   能否同时激活? 谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-4-25 07:39 , Processed in 0.364368 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表