перевести строку на язык Йоды :-)

Обсуждение программ nnCron и nnCron LITE

перевести строку на язык Йоды :-)

Postby AlikasS » Sat, 01 Nov 2008, 04:40

Code: Select all
MODULE: iodaseytext
\ REQUIRE S+ devel\~nn\lib\az.f

USER-VALUE SOURCE-ID-XT

: SOURCE! ( c-addr u -- )
\ установить  c-addr u входным буфером (точнее, областью разбора - PARSE-AREA)
  #TIB ! TO TIB >IN 0!
;

: SAVE-SOURCE ( -- i*x i )
  SOURCE-ID-XT  SOURCE-ID   >IN @   SOURCE   CURSTR @   6
;

: RESTORE-SOURCE ( i*x i  -- )
  6 <> IF ABORT THEN
  CURSTR !    SOURCE!  >IN !  TO SOURCE-ID   TO SOURCE-ID-XT
;

USER-VALUE chet
EXPORT
: IODA-SAY ( a # -- ~a ~# ) \ :-)
2>R SAVE-SOURCE 2R> SOURCE!
BEGIN NextWord DUP WHILE
2>R chet 1 + TO chet
REPEAT 2DROP
RESTORE-SOURCE
S" "
BEGIN chet WHILE  2R> S+ S"  " S+ chet 1 - TO chet REPEAT
 ;
: ~TYPE IODA-SAY TYPE ;
;MODULE

\ S" Привет всем фортерам мира" ~TYPE

подключать как плагин или между <% %>
и пользоваться например
Code: Select all
#( как_Йода_сказал
NoActive
NoLog
Action:
WIN-INPUT-TEXT: "язык Йода" "введите ваш текст" "Привет всем пользователям nnCron" 0 0=
IF
IODA-SAY
MsgBox
THEN
)#
User avatar
AlikasS
 
Posts: 1434
Joined: Wed, 28 Jun 2006, 05:39
Location: Khabarovsk

Return to nnCron forum (Russian)

Who is online

Users browsing this forum: No registered users and 1 guest

cron