This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu( define ( DSpush x )
( push S DS -1 )
( pop DS )
( set 'S T 'T x ))
( define ( DSpop )
( set 'x T 'T S )
( set 'S ( pop DS -1 ) )
( push S DS )
x ) ; g8.lsp 19.October.2014 19:00
; test settings
( set 'DS '( 1 2 3 4 5 6 7 8 )) ; data stack
( set 'RS '( 11 12 13 14 15 16 17 18 )) ; return stack
( set 'S 9 'T 10 'R 19 'P 0 'A 0 'B 0 'ALU 0 'EXT 0 'CY 0 ) ; registers
( set 'RAM ( array 64 '( 0 ) )) ; RAM 64 words each 18 bits
( set 'ROM ( array 64 '( 0 ) )) ; ROM 64 words dto.
( set 'IO '( (0x15D "io" 0x15555 ) ; IO-section
(0x141 "data" 0 ) (0x145 "---u" 0 ) (0x175 "--l-" 0 ) (0x165 "--lu" 0 )
(0x115 "-d--" 0 ) (0x105 "-d-u" 0 ) (0x135 "-dl-" 0 ) (0x125 "-dlu" 0 )
(0x1D5 "r---" 0 ) (0x1C5 "r--u" 0 ) (0x1F5 "r-l-" 0 ) (0x1E5 "r-lu" 0 )
(0x195 "rd--" 0 ) (0x185 "rd-u" 0 ) (0x1B5 "rdl-" 0 ) (0x1A5 "rdlu" 0 ) )) <wp:postmeta>
<wp:meta_key>_oembed_f109b1315b82821c5f7d1d98a3530231</wp:meta_key>
<wp:meta_value><iframe width="500" height="375" src="http://www.youtube.com/embed/kKH77hfWYPU?fs=1&feature=oembed" frameborder="0" allowfullscreen></iframe></wp:meta_value>
</wp:postmeta><item>
<title>TEST</title>
<link>http://www.obeabe.de/?p=1090</link>
<pubDate>Thu, 10 Jan 2013 18:38:16 +0000</pubDate>
<dc:creator><![CDATA[Didi]]></dc:creator>
<category><![CDATA[Allgemein]]></category>
<category domain="category" nicename="allgemein"><![CDATA[Allgemein]]></category>
<guid isPermaLink="false">http://www.obeabe.de/?p=1090</guid>
<description></description>
<content:encoded><![CDATA[Testpost Testpost]]></content:encoded>
<excerpt:encoded><![CDATA[]]></excerpt:encoded>
<wp:post_id>1090</wp:post_id>
<wp:post_date>2013-01-10 18:38:16</wp:post_date>
<wp:post_date_gmt>2013-01-10 18:38:16</wp:post_date_gmt>
<wp:comment_status>open</wp:comment_status>
<wp:ping_status>open</wp:ping_status>
<wp:post_name>test</wp:post_name>
<wp:status>publish</wp:status>
<wp:post_parent>0</wp:post_parent>
<wp:menu_order>0</wp:menu_order>
<wp:post_type>post</wp:post_type>
<wp:post_password></wp:post_password>
<wp:is_sticky>0</wp:is_sticky>
<wp:postmeta>
<wp:meta_key>_edit_lock</wp:meta_key>
<wp:meta_value>1357843097</wp:meta_value>
</wp:postmeta>
<wp:postmeta>
<wp:meta_key>_edit_last</wp:meta_key>
<wp:meta_value>1</wp:meta_value>
</wp:postmeta>
</item>( do-while (find "title" outlist)
( set 'i ( find "title" outlist ))
( set 'outlist ( i outlist))
( pop outlist )
( push (pop outlist) title-list ))( do-while (find "title" outlist)
( set 'i ( find "title" outlist ))
( set 'outlist ( i outlist))
( push (pop outlist) title-list )
)( select-rows 'myBlog '(= xdate 'datevalue)'( titel mtext mdate mcat ))))
( select-rows 'myBlog '( find xcat 'mcat)'( datevalue ) 'datevalue '> ))to( select-rows 'myBlog '(= xdate datevalue)'( titel mtext mdate mcat ))))
( select-rows 'myBlog '( find xcat mcat)'( datevalue ) 'datevalue '> ))