foreach指令剖析

baitang36

lsp有foreach指令，但fas中是没有这个指令的，它是 由一组指令来实现这个功能的，是怎么实现的呢？
先做个试验，(foreach n '(2 3 4) (print n))
把这一句编译后解码
Offset      0  1  2  3  4  5  6  7   8  9  A  B  C  D  E  F
00000000   0D 0A 20 46 41 53 34 2D  46 49 4C 45 20 3B 20 44      FAS4-FILE ; D
00000010   6F 20 6E 6F 74 20 63 68  61 6E 67 65 20 69 74 21   o not change it!
00000020   0D 0A 31 0D 0A 31 20 24  20 24 0D 0A 31 32 30 20     1  1 $ $  120
00000030   35 20 24 14 01 01 01 00  32 00 32 3F 2A 39 01 00   5 $     2 2?*9  
00000040   5B 50 52 49 4E 54 00 4E  00 00 32 02 32 03 32 04   [PRINT N  2 2 2
00000050   39 03 00 01 01 43 00 00  05 00 0A 01 5C 00 00 43   9    C      \  C
00000060   00 00 01 00 0A 01 43 05  00 00 00 1C 14 01 00 00         C         
00000070   00 09 04 00 0A 09 03 00  5D 00 00 09 02 00 01 18           ]      
00000080   03 00 01 5C 00 00 67 1C  00 00 00 0A 5C 00 00 28      \  g     \  (
00000090   06 02 00 5C 00 00 29 5D  00 00 03 02 00 35 01 01      \  )]     5  
000000A0   00 03 57 DC FF FF FF 19  01 00 16 16 00 67 57 36     W?

用到的符号：
03 / '(2 3 4 )
02 / N
01 / PRINT
指令字节码及解释：
09 03 00  ； '(2 3 4 )
5D 00 00 ；将'(2 3 4 )放入局部变量   (setq var1 '(2 3 4))
09 02 00   ； N  
01 18 03 00 ；绑定一个局部变量
01 ；nil
loc_1:
5C 00 00            ;局部变量 var1
67 1C  00 00 00  ；if指令，如果var1为空，转到解除绑定、结束
0A  ;NIL
5C 00 00  ;局部变量var1
28        ；car
06 02 00 ；(SETQ N (car var1))
5C 00 00 ;局部变量var1
29       ；cdr  
5D  00 00   ；  (setq var1(cdr var1))
03 02 00 ；N
35 01 01 00 03 ；(PRINT N)
57 DC FF FF FF   ；goto loc_1
19  01 00       ；解除绑定
16                 ；结束     
结论：
(foreach n '(2 3 4) (print n))相当于：
(setq var1 '(2 3 4))
(while var1
  (SETQ N (car var1))
  (setq var1(cdr var1))
  (print N)
)        

f4800

好帖子  支持      分析的很好

zghmaya

好帖子  支持      分析的很好

紫苏炒黄瓜

感谢大侠翻译天书

自贡黄明儒

这样说来，while相当好使。什么repeat delay mapcar 都可用它替代，是万能的。

baitang36

自贡黄明儒 发表于 2022-4-19 13:57
这样说来，while相当好使。什么repeat delay mapcar 都可用它替代，是万能的。

确实如此，本质上都是if 和goto

qianzj

学习了  原来是这样                          

明_明

学习学习，感谢分享！

gzsod

函数大全上看不明白  这下就明白多了  感谢大佬

baitang36

gzsod 发表于 2022-5-27 13:42
函数大全上看不明白  这下就明白多了  感谢大佬

你喜欢就好