1. C++ / Говнокод #9801

    +999

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    template<class TVisitedComponentList>
    	TUniqueIDOfVisitedComponentList getUniqueIDOfVisitedComponentTypeList(void)
    	{
    		static Type2Type<TVisitedComponentList> UniqueObjectForVisitedComponentTypeList;
    		return (size_t)(&UniqueObjectForVisitedComponentTypeList);
    	}
    
    	template<class TVisitedComponentList>
    	TCastWindowComponentTo* const castWindowComponentInternal(PegThing* const Window)
    	{
    		ASSERT(Window!=NULL);
    		if(Window==NULL)
    			return NULL;
    		STATIC_CHECK(!(boost::mpl::empty<TVisitedComponentList>::value), TVisitedComponentList_must_be_not_empty_and_be__boost_mpl_list_c__type);
    		const TUniqueIDOfVisitedComponentList UniqueIDOfVisitedComponentList=this->getUniqueIDOfVisitedComponentTypeList<TVisitedComponentList>();
    		const TCasterRepositorys::const_iterator NotFound=_casterRepositorys.end();
    		TCasterRepositorys::const_iterator findedCasterRepositoryForThisVisitedComponentList=_casterRepositorys.find(UniqueIDOfVisitedComponentList);
    		if(findedCasterRepositoryForThisVisitedComponentList==NotFound)
    		{
    			this->registerVisitedComponentList<TVisitedComponentList>();
    			findedCasterRepositoryForThisVisitedComponentList=_casterRepositorys.find(UniqueIDOfVisitedComponentList);
    		}
    		ASSERT(findedCasterRepositoryForThisVisitedComponentList!=NotFound);
    		const TCasterRepository::const_iterator NotFoundCaster=findedCasterRepositoryForThisVisitedComponentList->second->end();
    		const unsigned int ComponentType=const_cast<PegThing* const>(Window)->Type();
    		const TCasterRepository::const_iterator findedCaster=findedCasterRepositoryForThisVisitedComponentList->second->find(ComponentType);
    		if(findedCaster==NotFoundCaster)
    			return NULL;
    		ASSERT(findedCaster!=NotFoundCaster);
    		return (*(findedCaster->second))(Window);		
    	}
    
    	template<class TCurrentItem, class TEnd>
    	void registerVisitedComponentListItem(TCasterRepository& casterRepository, TCurrentItem CurrentItem, TEnd End)
    	{
    		using namespace boost;
    		enum {WINDOW_COMPONENT_TYPE=mpl::deref<TCurrentItem>::type::value};
    		STATIC_CHECK((mpl::has_key<TWindowComponentsTypeIdToTypeMap, mpl::int_<WINDOW_COMPONENT_TYPE> >::value!=0), WINDOW_COMPONENT_TYPE_must_be_at_TWindowComponentsTypeIdToTypeMap);
    		typedef mpl::at<TWindowComponentsTypeIdToTypeMap, mpl::int_<WINDOW_COMPONENT_TYPE> >::type TRealTypeOfWindowComponent;
    		this->checkDuplicateComponentTypeID(WINDOW_COMPONENT_TYPE, casterRepository);
    		struct _
    		{
    			static TCastWindowComponentTo* const casterForEachWindowComponent(PegThing* const Window)
    			{
    				ASSERT(Window!=NULL);
    				if(Window==NULL)
    					return NULL;
    				TRealTypeOfWindowComponent* const RealTypeComponent = static_cast<TRealTypeOfWindowComponent* const>(Window);
    				ASSERT(RealTypeComponent!=NULL);
    				TCastWindowComponentTo* const FinalCastedWindowComponent = static_cast<TCastWindowComponentTo* const >(RealTypeComponent);
    				ASSERT(FinalCastedWindowComponent!=NULL);
    				return FinalCastedWindowComponent;
    			}
    		};
    		TCasterForEachWindowComponent CasterForEachWindowComponentFunction=&(_::casterForEachWindowComponent);
    		this->checkDuplicateType(CasterForEachWindowComponentFunction, casterRepository);
    		casterRepository[WINDOW_COMPONENT_TYPE]=CasterForEachWindowComponentFunction;
    		registerVisitedComponentListItem(casterRepository, mpl::next<TCurrentItem>::type(), TEnd());
    	}
    
    	template<class TEnd>
    	void registerVisitedComponentListItem(TCasterRepository& casterRepository, TEnd CurrentItem, TEnd End)
    	{}

    Код из того же большого проекта.
    Ассерты после static_cast и "шаблонная магия" особенно доставляют.
    Мне конечно boost::mpl нравиться, но я считаю, что его негоже использовать в реальных проектах.

    Говногость, 29 Марта 2012

    Комментарии (20)
  2. C++ / Говнокод #9790

    +163

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    THTTPServer::TDynamicResponse::~TDynamicResponse( void )
    {
    	if(typeid(*this)==typeid(TDynamicResponse))//Борьба с pure virtual function call.
    		this->flush();
    };

    Проект поменьше.

    Говногость, 28 Марта 2012

    Комментарии (62)
  3. C++ / Говнокод #9789

    +156

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    void checkDuplicateType(TWindowCasterToWindowAdditionalInformation GetWindowAdditionalInformation)
    	{
    		const TCasterRepository::const_iterator NotFound=_casterRepository.end();
    		const TCasterRepository::const_iterator Begin=_casterRepository.begin();
    		struct _
    		{
    			static bool TestDuplicateTypeAtThisItem(const TCasterRepository::value_type& Item, TWindowCasterToWindowAdditionalInformation GetWindowAdditionalInformationFunction)
    			{
    				return Item.second==GetWindowAdditionalInformationFunction;
    			}
    		};
    		ASSERT(std::find_if(Begin, NotFound, BOOST_BIND(_::TestDuplicateTypeAtThisItem, _1, GetWindowAdditionalInformationFunction))==NotFound);
    	}

    Большой проект.

    Говногость, 28 Марта 2012

    Комментарии (8)
  4. C++ / Говнокод #9726

    +995

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    Для Каждого ТекСтрокаТовары Из ЭтотОбъект.Товары Цикл
    		
          //Товары в резерве на складах
          Если ЗначениеЗаполнено(ЭтотОбъект.ЗаказПокупателя) Тогда
    
            ЗапросРезерв = Новый Запрос;
            ЗапросРезерв.УстановитьПараметр("Период", КонецДня(ЭтотОбъект.Дата));
            ЗапросРезерв.УстановитьПараметр("Склад", ЭтотОбъект.Склад);
            ЗапросРезерв.УстановитьПараметр("Номенклатура", ТекСтрокаТовары.Номенклатура);
    	ЗапросРезерв.УстановитьПараметр("Цвет", ТекСтрокаТовары.Цвет);
    	ЗапросРезерв.УстановитьПараметр("Регистратор", ЭтотОбъект.ЗаказПокупателя.Ссылка);
    	ЗапросРезерв.Текст = "ВЫБРАТЬ
    	|	ТоварыВРезервеНаСкладах.Номенклатура,
    	|	isnull(ТоварыВРезервеНаСкладах.Количество, 0) КАК Количество,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер42, 0) КАК Размер42,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер44, 0) КАК Размер44,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер46, 0) КАК Размер46,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер48, 0) КАК Размер48,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер50, 0) КАК Размер50,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер52, 0) КАК Размер52,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер54, 0) КАК Размер54,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер56, 0) КАК Размер56,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер58, 0) КАК Размер58,
    	|	isnull(ТоварыВРезервеНаСкладах.Размер60, 0) КАК Размер60
    	|ИЗ
    	|	РегистрНакопления.ТоварыВРезервеНаСкладах КАК ТоварыВРезервеНаСкладах
    	|ГДЕ
    	|	ТоварыВРезервеНаСкладах.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)
    	|	ТоварыВРезервеНаСкладах.Период <= &Период
    	|	И ТоварыВРезервеНаСкладах.Регистратор = &Регистратор
    	|	И ТоварыВРезервеНаСкладах.Склад = &Склад
    	|	И ТоварыВРезервеНаСкладах.Номенклатура = &Номенклатура
    	|	И ТоварыВРезервеНаСкладах.Цвет = &Цвет";
    	ТЗРезерв = ЗапросРезерв.Выполнить().Выгрузить();
    			
    	Если ЗапросРезерв.Выполнить().Пустой() = Истина Тогда
    	Иначе
    		ЗапросСнятие = Новый Запрос;
    		ЗапросСнятие.УстановитьПараметр("Период", КонецДня(ЭтотОбъект.Дата));
    		ЗапросСнятие.УстановитьПараметр("Склад", ЭтотОбъект.Склад);
    		ЗапросСнятие.УстановитьПараметр("Номенклатура", ТекСтрокаТовары.Номенклатура);
    		ЗапросСнятие.УстановитьПараметр("Цвет", ТекСтрокаТовары.Цвет);
    		ЗапросСнятие.УстановитьПараметр("ДокументРезерва", ЭтотОбъект.ЗаказПокупателя.Ссылка);
    		ЗапросСнятие.Текст = "ВЫБРАТЬ
    		|	ТоварыВРезервеНаСкладах.Номенклатура,
    		|	isnull(ТоварыВРезервеНаСкладах.Количество, 0) КАК Количество,
    		|	isnull(ТоварыВРезервеНаСкладах.Размер42, 0) КАК Размер42,
    				.....
    		|	isnull(ТоварыВРезервеНаСкладах.Размер60, 0) КАК Размер60			
    		|ИЗ
    		|	РегистрНакопления.ТоварыВРезервеНаСкладах КАК ТоварыВРезервеНаСкладах
    		|ГДЕ
    		|	ТоварыВРезервеНаСкладах.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
    		|	И ТоварыВРезервеНаСкладах.ДокументРезерва = &ДокументРезерва
    		|	И ТоварыВРезервеНаСкладах.Период = &Период
    		|	И ТоварыВРезервеНаСкладах.Склад = &Склад
    		|	И ТоварыВРезервеНаСкладах.Номенклатура = &Номенклатура
    		|	И ТоварыВРезервеНаСкладах.Цвет = &Цвет";
    		ТЗСнятие = ЗапросСнятие.Выполнить().Выгрузить();
    				
    		//Товары в резерве на складах
    		Движение = Движения.ТоварыВРезервеНаСкладах.Добавить();
    		Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    		Движение.Период = Дата;
    		Движение.Склад = ЭтотОбъект.Склад; 
    		Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;
    		Движение.ДокументРезерва = ЭтотОбъект.ЗаказПокупателя.Ссылка;
    		Движение.Цвет = ТекСтрокаТовары.Цвет;
    		//42
    		Если ТЗРезерв.Итог("Размер42") - ТЗСнятие.Итог("Размер42") > 0 Тогда
    			Если ТЗРезерв.Итог("Размер42") - ТЗСнятие.Итог("Размер42") > ТекСтрокаТовары.Количество Тогда
    				Движение.Размер42 = ТекСтрокаТовары.Размер42;
    			Иначе
    				Движение.Размер42 = ТЗРезерв.Итог("Размер42") - ТЗСнятие.Итог("Размер42");
    			КонецЕсли;
    		КонецЕсли;      
    		...
                    //И так до 60го размера

    Нашел у себя эту простыню. Чтобы вычислить остатки по резерву - делается запрос по движения со знаком плюс, потом запрос с движениями по минус.
    Далее все это дело выгружается в две таблицы значений и высчитывается разность колонок. Вместо простого запроса по регистру остатков) Ну и много чего интересного)

    ErrorEd88, 21 Марта 2012

    Комментарии (16)
  5. C++ / Говнокод #9725

    +1000

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    // Array below is for faster processing of variable length fields with ascii length.
    // Varbuut sho var arii initcializeet dinamiski. 
    char an[1000][3] = 
    {
    	{'0','0','0'},{'0','0','1'},{'0','0','2'},{'0','0','3'},{'0','0','4'},{'0','0','5'},{'0','0','6'},{'0','0','7'},{'0','0','8'},{'0','0','9'},
    	{'0','1','0'},{'0','1','1'},{'0','1','2'},{'0','1','3'},{'0','1','4'},{'0','1','5'},{'0','1','6'},{'0','1','7'},{'0','1','8'},{'0','1','9'},
    	{'0','2','0'},{'0','2','1'},{'0','2','2'},{'0','2','3'},{'0','2','4'},{'0','2','5'},{'0','2','6'},{'0','2','7'},{'0','2','8'},{'0','2','9'},
    	{'0','3','0'},{'0','3','1'},{'0','3','2'},{'0','3','3'},{'0','3','4'},{'0','3','5'},{'0','3','6'},{'0','3','7'},{'0','3','8'},{'0','3','9'},
    // 84 lines deleted
    	{'8','8','0'},{'8','8','1'},{'8','8','2'},{'8','8','3'},{'8','8','4'},{'8','8','5'},{'8','8','6'},{'8','8','7'},{'8','8','8'},{'8','8','9'},
    	{'9','0','0'},{'9','0','1'},{'9','0','2'},{'9','0','3'},{'9','0','4'},{'9','0','5'},{'9','0','6'},{'9','0','7'},{'9','0','8'},{'9','0','9'},
    // 6 lines deleted
    	{'9','7','0'},{'9','7','1'},{'9','7','2'},{'9','7','3'},{'9','7','4'},{'9','7','5'},{'9','7','6'},{'9','7','7'},{'9','7','8'},{'9','7','9'},
    	{'9','8','0'},{'9','8','1'},{'9','8','2'},{'9','8','3'},{'9','8','4'},{'9','8','5'},{'9','8','6'},{'9','8','7'},{'9','8','8'},{'9','8','9'}
    };
    
    			int ll = f->cfg.len_len;
    			long dl = f->data_len;
    			// Prepare length
    			if ( NULL == dst )
    			{
    				dst_len = f->data_len + ll + 1 ;
    				dst = (char*) malloc ( dst_len );
    			}
    			else
    			//if( dst_len < ll + dl )
    			if( dst_len < (unsigned) (ll + dl) )
    			{
    				// TO DOO - error should be processed
    				break;
    			}
    			long i2;
    			if ( ll < 2 )
    			{
    				dst[0]=an[dl][2];
    			}
    			else if ( ll < 3 )
    			{
    				dst[0]=an[dl][1];
    				dst[1]=an[dl][2];
    			}
    			else if ( ll < 4 )
    			{
    				dst[0]=an[dl][0];
    				dst[1]=an[dl][1];
    				dst[2]=an[dl][2];
    			}
    			else if ( ll < 5 )
    			{
    				i2 = dl / 1000;
    				dst[0]=an[i2][2];
    				i2 = dl % 1000;
    				dst[3]=an[i2][2];
    				dst[2]=an[i2][1];
    				dst[1]=an[i2][0];
    			}
    			else if ( ll < 6 )
    			{
    				i2 = dl / 1000;
    				dst[0]=an[i2][1];
    				dst[1]=an[i2][2];
    				i2 = dl % 1000;
    				dst[4]=an[i2][2];
    				dst[3]=an[i2][1];
    				dst[2]=an[i2][0];
    			}
    			else
    			{
    				// General case
    				for ( int k = ll  ; k > 0  ; k-- )
    				{
    					dst[k-1] ='0' + dl % 10;
    					dl/=10;
    				}
    			}
    
    			dst[dl]=0;

    This is a faster version of itoa() or sprintf(str,"%d",value)...
    Unfortunately it has a bug - lines of array with numbers 890-899 and 990-999 is missing.

    wtfcode, 21 Марта 2012

    Комментарии (13)
  6. C++ / Говнокод #9692

    +993

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    if(layerHeader.mFlags&AE_ANIM_BEZIER_EFFECT)
    {
    		btlv=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		btlt=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		btrt=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		brtv=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		brtt=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		brbt=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		bbrv=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		bbrt=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		bblt=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		blbv=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		blbt=(Point*)calloc(layer->frames.size(),sizeof(Point));
    		bltt=(Point*)calloc(layer->frames.size(),sizeof(Point));
    }

    lifemaker, 16 Марта 2012

    Комментарии (21)
  7. C++ / Говнокод #9687

    +994

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    int main()
    {   
       //выводит на экран среднее арифметическое чисел 1, 3, 5
       std::cout << Mean + 1 + 3 + 5 << std::endl;
       //выводит на экран среднее геометрическое чисел 2, 4, 8
       std::cout << Mean * 2 * 4 * 8 << std::endl;
    }
    
    //реализация
    
    class CMean
    {
       mutable double out;
       mutable size_t cnt;
       mutable size_t type;
    public:
       CMean(): out(0), cnt(0), type(-1)  {}
       CMean& operator + (double n)
       {
          return type = 0, out+= n, ++cnt, *this;   
       }
       CMean& operator * (double n)
       {   
          return (type == (size_t)-1 ? type = 1, out = 1 : 0), out*= n, ++cnt, *this;   
       }
       size_t reset() const {return type = -1, out = cnt = 0;};
       friend std::ostream& operator << (std::ostream&, const CMean&);   
    } Mean;
    
    std::ostream& operator << (std::ostream& _os, const CMean& _arith)
    {
       return _os << (!_arith.type ? _arith.out / _arith.cnt : std::pow(_arith.out, 1.0 / _arith.cnt)) + _arith.reset();
    }

    Вывод на экран арифметической и геометрической прогрессии.

    gooseim, 15 Марта 2012

    Комментарии (11)
  8. C++ / Говнокод #9686

    +999

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    assert(t1.tm_sec == t2.tm_sec);
            assert(t1.tm_min == t2.tm_min);
            assert(t1.tm_hour == t2.tm_hour);
            assert(t1.tm_mday == t2.tm_mday);
            assert(t1.tm_mon == t2.tm_mon);
            assert(t1.tm_year == t2.tm_year);
            assert(t1.tm_wday == t2.tm_wday);
            assert(t1.tm_yday == t2.tm_yday);
            assert(t1.tm_isdst == t2.tm_isdst);

    фрагмент из кода библиотеки SOCI: http://soci.sourceforge.net/

    наконец-то исправили на: assert(memcmp(&t1, &t2, sizeof(std::tm)) == 0);

    niXman, 15 Марта 2012

    Комментарии (27)
  9. C++ / Говнокод #9681

    +1002

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    template<class _CharType>
    bool check_arith(const _CharType* str)
    {
       for(; *str ; ++str)
          for(unsigned long long j = 0x6165696F7579ull; j; j >>= 8)
            if(((j & 0xFF) | 0x20) == (*str | 0x20))
               return true;
       return false; 
    }

    Функция, которая проверяет, есть ли в слове гласные буквы латинского алфавита с учетом регистра.

    gooseim, 15 Марта 2012

    Комментарии (48)
  10. C++ / Говнокод #9680

    +149

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    #include <iostream>
    #define caseop(op, code) case op: code; break;
    #define clamp(a, lo, hi) (a < lo) ? (a = lo) : (a > hi) ? (a = hi) : a;
    void main(int argc, char* args[]) {
    	FILE *srcfile = fopen(argc > 1 ? args[1] : "", "r");
    	(!srcfile) ? exit(0) : fseek(srcfile, 0, SEEK_END);
    	unsigned char bytes[1024], *byte = bytes;
    	int x = ftell(srcfile), bs = sizeof(bytes);
    	rewind(srcfile);
    	char *source = new char[x + 1], *token = source, *ret = token;
    	fread(source, sizeof(char), x, srcfile);
    	memset(&bytes, source[x] = (char)fclose(srcfile), bs--);
    	do { 
    		switch(*token) {
    			caseop('+', ++(*byte));
    			caseop('-', --(*byte));
    			caseop('.', std::cout << *byte);
    			caseop(':', std::cout << (int)*byte);
    			caseop(',', std::cin >> *byte);
    			caseop('>', clamp(++byte, bytes, &bytes[bs]));
    			caseop('<', clamp(--byte, bytes, &bytes[bs]));
    			caseop('[', if (*byte == (x = 1) - 1) while ((*token++) && (x += *token == '[' ? 1 : *token == ']' ? -1 : 0)); else ret = token);
    			caseop(']', if (*byte) token = ret);
    		}
    	} while(*token++);
    	delete source;
    }

    Интерпретатор брэинфака

    hexman, 14 Марта 2012

    Комментарии (1)