Merhaba, assembly'e ara ara bakıyorum, kavrayamadığım şeyler oluyor, ama c ile kıyaslanarak anlatılırsa kolayca anlarım diye düşünüyorum. Bu şekilde kaynak var mı bildiğiniz? Ve ya burda birkaç örnek yazarsanız sevinirim.
İkinci olarak red diye yeni bir programlama dili var, belki assembly kadar karışık. Onu da anlıyamadım. Normalde c-like programlama dili bilen biri biraz uğraşsa lisp gibi değişik syntaxları okuyabilir. Ama ben red'i anlıyamıyorum. Örnek;
Red [] L: charset "ABCDEFGHI" D: union N: charset "123456789" charset "0"
repeat y 9 [repeat x 9 [col: either x = 1 [#" "][#"A" + (x - 2)]
append p: [] set ref: (to word! rejoin [col y - 1]) make face! [size: 90x24
type: pick [text field] header?: (y = 1) or (x = 1)
offset: -20x10 + as-pair ((x - 1) * size/x + 2) ((y - 1) * size/y + 1)
text: form case [y = 1 [col] x = 1 [y - 1] 'else [copy ""]]
para: make para! [align: pick [center right] header?]
extra: object [name: form ref formula: old: none]
actors: context [on-create: on-unfocus: function [f e][f/color: none
if rel: f/extra/old [react/unlink rel 'all]
if #"=" = first f/extra/formula: copy text: copy f/text [parse remove text
[any [p: L N not ["/" skip not N] insert p " " insert "/data "
| L skip | p: some D opt [dot some D] insert p " " insert " " | skip]]
f/text: rejoin [f/extra/name "/data: any [math/safe [" text {] "#UND"]}]
if f/data [any [react f/extra/old: f/data do f/data]]]]
on-focus: func [f e][f/text: any [f/extra/formula f/text] f/color: yello]
]]]] view make face! [type: 'window text: "PicoSheet" size: 840x250 pane: p]
Uzaktan baksam düz yazı sanırım bunu..
Bu arada bu programlama dilinin temelini "rebol" oluşturuyor.
--
[ Bu gönderi, http://ddili.org/forum'dan dönüştürülmüştür. ]
Permalink
Reply