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 '> ))