Changeset 540 for trunk/thune/boot.c

Show
Ignore:
Timestamp:
07/04/08 03:46:13 (5 months ago)
Author:
krobillard
Message:

Thune

  • Implemented date!. Added ur_arrayExpand(), save.

ThuneGL

  • Added line-edit widget, blit, move-glyphs.
  • Can now make font from texture & binary.
  • Optimized renderGlyphXY() a bit.
  • twidget close event handler works again.
  • Updated thune-gl.spec for renamed glv RPM.
Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/boot.c

    r539 r540  
    5959  "  to-block kernel-ops infuse\n" 
    6060  "] proc :load    ;(filename -- block)\n" 
     61  "[open swap string! to write close] proc :save    ;(value filename -- )\n" 
    6162  "[select if-some do] proc :case\n" 
    6263  "['break throw] proc :break\n" 
    … …  
    7576  "[ser words block! body block!]\n" 
    7677  "[\n" 
    77   "    ser [words set body do] words length? iter\n" 
     78  "  ser [words set body do] words length? iter\n" 
    7879  "]\n" 
    7980  "'loop func :each.set    ;(ser words body -- )\n" 
    … …  
    8485  "[[do dup iff return drop] each true] proc :all    ; (blk -- logic)\n" 
    8586  "[ser old new | len] [\n" 
    86   "    old length? :len\n" 
    87   "    ser old find if-some (new len change :ser recurse)\n" 
    88   "    ser\n" 
     87  "  old length? :len\n" 
     88  "  ser old find if-some (new len change :ser recurse)\n" 
     89  "  ser\n" 
    8990  "] func :replace.all     ;(ser old new -- ser)\n" 
    9091  "[reduce to-text console.out] proc :prin  ;(val -- )\n"