Предобработчик языка "Малая Рая"

[Vapaamies]

Сообщение от quqeiqa

это тоже самое. "Processor" переводится как "Обработчик"

А почему описание без "ятей"? Неправославно.

[Smitt&Wesson]

quqeiqa, если не секрет, для чего он? Т.е., что он будет делать такого, чего не может С++ или Паскаль? Ну, PHP понятно, он на стороне сервера работает, а какую функциональную нагрузку несёт Ваш язык?

[quqeiqa]

Малая версия по функциональности будет как С, только стиль другой, ближе к Basic: то же оформление блоков (x..end x), объявление переменных(v:Type).

[Smitt&Wesson]

Сообщение от quqeiqa

Малая версия по функциональности будет как С, только стиль другой, ближе к Basic: то же оформление блоков (x..end x), объявление переменных(v:Type).

Асмысл плодить однообразие? Вот если-бы Ваш язык концептуально отличался от других, стоило бы им заниматься. Тут мы с Utkin-ым вскользь обсуждали возможность представления данных в виде дерева, уже встроенную в язык, вот это был-бы прорыв.

[quqeiqa]

что за представление данных?

типа, можно нарисовать в коде дерево данных для создания экземпляра класса Дерево?

[quqeiqa]

вот так, например:

tree:Tree =
create_tree Tree()
 branch("AB")
  node("A")
  node("B")
 else branch("ab")
  node("a")
  node("b")
 end branch
end tree

[Stilet]

Наверное что-то типа такого:

(fso := filesystem)
(db := dbf foxmode=yes)
(f := mainform align=client caption='Korr Guid'
  memo=(m align=top h=200 wordwrap)
  button=(b align=top caption='Extract Korr'
     onclick=(
	    (writeln 'Очищаю приемник: ' (call fso.delete file='x:\1\*.dbf') ' - ' (call fso.error))
	    (apath := (utf8 (call f.t.path)))
	    (writeln 'Обрабатываю ' apath)
		(writeln 'Ищу: ' (call fso.find path=apath mask='*.dbf'
		 onfound=(func
		  (dbfile := (fso[path] + fso[file]))

		  (if ((lower fso[file]) = 'pf_exp.dbf') (
		    (write 'Открываю ' (call db.open file=dbfile) (call db.error))
			(call db.scan
			 (if (db[code_num] in (call f.m.text)) ()
				(f.m <- db[code_num] ',')
			 )
			)
		  ))
		  (write 'Копирую ' fso[file] ': ' (call fso.copy from=dbfile to=('x:\1\' + fso[file]) ' ' (call fso.error) ' '))
		 )
	    ) (call fso.error))
	 )
  )
  tree=(t align=right w=500 shell='d:\Виталий\2014_KATALOG\')
)

[quqeiqa]

а что это?

[Stilet]

а что это?

Где?.......

[quqeiqa]

что это за код?

(fso := filesystem)
(db := dbf foxmode=yes)
(f := mainform align=client caption='Korr Guid'
  memo=(m align=top h=200 wordwrap)
  button=(b align=top caption='Extract Korr'
     onclick=(
	    (writeln 'Очищаю приемник: ' (call fso.delete file='x:\1\*.dbf') ' - ' (call fso.error))
	    (apath := (utf8 (call f.t.path)))
	    (writeln 'Обрабатываю ' apath)
		(writeln 'Ищу: ' (call fso.find path=apath mask='*.dbf'
		 onfound=(func
		  (dbfile := (fso[path] + fso[file]))

		  (if ((lower fso[file]) = 'pf_exp.dbf') (
		    (write 'Открываю ' (call db.open file=dbfile) (call db.error))
			(call db.scan
			 (if (db[code_num] in (call f.m.text)) ()
				(f.m <- db[code_num] ',')
			 )
			)
		  ))
		  (write 'Копирую ' fso[file] ': ' (call fso.copy from=dbfile to=('x:\1\' + fso[file]) ' ' (call fso.error) ' '))
		 )
	    ) (call fso.error))
	 )
  )
  tree=(t align=right w=500 shell='d:\Виталий\2014_KATALOG\')
)