Подсчёт количества строк в проекте

[wwswowsogon]

Всем доброго времени суток!

Программа сомнительной полезности. Однако я в какой-то момент устал считать вручную количество строк в разных проектах ,особенно если много исходных файлов. Не найдя готового решения, я запилил вот это за пару часов на коленке. Может быть, кому-то пригодится.

https://disk.yandex.ru/d/h_9_GejNKv0sIA

P. S. Таким образом я подсчитал, что исходники MechCommander 2 содержат около 400 000 строк.

[Vadim]

P. S. Таким образом я подсчитал, что исходники MechCommander 2 содержат около 400 000 строк.

Ужос!!!!
Не пробовали подсчитать, сколько строк всего в проекте FreePascal?

[runewalsh]

Я себе такую на Питоне сделал.

Во всём дереве FPC:

Код: Выделить всё

Всего 6305436 строк  в 17507 файлах, 225.36 Мб.
---
inc:  1232203 строки в  4747 файлах,  56.73 Мб.
pas:  2650754 строки в  2929 файлах,  96.93 Мб.
pp:   2401967 строк  в  9644 файлах,  71.19 Мб.
lpr:    12877 строк  в   130 файлах, 350.12 Кб.
c:       6137 строк  в    28 файлах, 128.02 Кб.
h:       1309 строк  в    25 файлах,  42.96 Кб.
cpp:      189 строк  в     4 файлах,   5.52 Кб.

Только в /compiler:

Код: Выделить всё

Всего 728124 строки в 1098 файлах,  24.02 Мб.
---
inc:  165316 строк  в  254 файлах,   3.8 Мб.
pas:  544570 строк  в  806 файлах,  19.73 Мб.
pp:    18238 строк  в   38 файлах, 504.94 Кб.

[wwswowsogon]

P. S. Таким образом я подсчитал, что исходники MechCommander 2 содержат около 400 000 строк.

Ужос!!!!
Не пробовали подсчитать, сколько строк всего в проекте FreePascal?

Хорошая мысль, кстати.

Конечно, всё это несерьёзно. Тем не менее, любопытство иногда наличествует, а раньше я всё это делал с помощью excel'a, что при наличии даже полусотни исходников утомительно.

[Сквозняк]

Количество строк примерно равно количеству маркеров конца строки. Пересчитать их циклом и вся работа.

[Дож]

Код: Выделить всё

find . -name "*.pas" | xargs wc -l