Re: Ваши последние 20 строк кода
От: Flamer Кипр http://users.livejournal.com/_flamer_/
Дата: 17.03.05 12:34
Оценка: 6 (4) +1 :))) :))) :))) :))) :))) :))) :))) :))) :))) :))) :)))
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


Мои — вот они:

17.03.05 12:26: Перенесено модератором из 'О работе' — Flamer
17.03.05 12:30: Удалено модератором из 'Работа — поиск и предложение' — Flamer
17.03.05 12:32: Удалено модератором из 'Работа — поиск и предложение' — Flamer
17.03.05 12:34: Удалено модератором из 'Работа — поиск и предложение' — Flamer
17.03.05 12:36: Удалено модератором из 'Работа — поиск и предложение' — Flamer
17.03.05 12:38: Удалено модератором из 'Работа — поиск и предложение' — Flamer
17.03.05 12:40: Удалено модератором из 'Работа — поиск и предложение' — Flamer
17.03.05 12:41: Удалено модератором из 'Работа — поиск и предложение' — Flamer
17.03.05 12:42: Удалено модератором из 'Работа — поиск и предложение' — Flamer


Достало все

Re[2]: Ваши последние 20 строк кода
От: ssm Россия  
Дата: 17.03.05 09:26
Оценка: +2 :))) :))) :)
Здравствуйте, butcher, Вы писали:

B>+       if (key == XK_Super_L || key == XK_Super_R)
B>+           needMenu = true;
B>+       else needMenu = false;


исключительно в целях отладки и волею индуса архитектора
Re[3]: Ваши последние 20 строк кода
От: AndrewVK Россия http://blogs.rsdn.org/avk
Дата: 27.03.05 12:14
Оценка: :))) :))) :))
Здравствуйте, Real 3L0, Вы писали:

R3>Какие у нас модеры производительные, как автоматы: по 2 секунды на сообщение. И всё быстрее и быстрее. Скоро будет закинешь пост, захочешь удалить как ошибочный, а его уже и нет.


Когда перепишем сайт под QNX то когда будешь писать вторую строчку оффтопичного сообщения, первая будет уже удаляться.
... << RSDN@Home 1.1.4 beta 4 rev. 371>>
AVK Blog
Тенденции
От: minorlogic Украина  
Дата: 15.04.07 11:00
Оценка: :))) :))) :))
Складывается впечатление , что половина РСДН пишет парсеры XML а вторая данные в них сохранят...
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
Ищу работу, 3D, SLAM, computer graphics/vision.
Re[7]: Ваши последние 20 строк кода
От: jhfrek Россия  
Дата: 17.03.05 15:46
Оценка: :))) :))) :)
Здравствуйте, Слава Шевцов, Вы писали:

СШ>Здравствуйте, jhfrek, Вы писали:


J>>>>Пусть радуется что он не модератор ru.anecdot. А то пришел бы в компанию, а там все рассказывают анекдоты из FAQa


СШ>>>Зато известно что ему дарить на день варенья. Баян.


J>>А на второй год? Если снова баян, то это уже будет баян в квадрате


СШ>Это будет коллекция баянов


Спорный вопрос.

Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.
Re: Ваши последние 20 строк кода
От: Jenyay http://jenyay.net
Дата: 17.03.05 19:05
Оценка: :))) :)))
Почему последние?
... << RSDN@Home 1.1.4 beta 4 rev. 0>>
Софт, исходники и фото
Ваши последние 20 строк кода
От: Нахлобуч Великобритания https://hglabhq.com
Дата: 16.03.05 16:40
Оценка: 10 (5)
Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

        class XmlContainerSerializer
        {
        public:
            //
            // Serializes container
            template <typename Container>
            static MSXML2::IXMLDOMElementPtr Serialize(const MSXML2::IXMLDOMDocument2Ptr &xmlDocument,
                const Container &container, long lItems, const CString &strElementName)
            {
                MSXML2::IXMLDOMElementPtr xmlElement = xmlDocument->createElement((LPCTSTR)strElementName);
                for(long lItem = 0; lItem < lItems; ++lItem)
                    xmlElement->appendChild(container[lItem].Serialize(xmlDocument));

                return xmlElement;
            }

            //
            // Deserializes container. strXPath is the XPath expression
            // which selects root node
            template <typename Container, typename Type>
            static void Deserialize(const MSXML2::IXMLDOMElementPtr &xmlElement, Container &container,


17.03.05 12:26: Перенесено модератором из 'Исходники' — Хитрик Денис
HgLab: Mercurial Server and Repository Management for Windows
Re: Ваши последние 20 строк кода
От: devstd Чехия 1941149
Дата: 18.03.05 09:56
Оценка: :))) :)
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют




Генеральному директору
ОСАО ***

от специалиста ***



ЗАЯВЛЕНИЕ


Прошу уволить меня по собственному желанию 00 декабря 2005 года.



Re[3]: Ваши последние 20 строк кода
От: jhfrek Россия  
Дата: 17.03.05 15:15
Оценка: :)))
Здравствуйте, Mamut, Вы писали:

M>Тяжка судьба у модератора


Пусть радуется что он не модератор ru.anecdot. А то пришел бы в компанию, а там все рассказывают анекдоты из FAQa
Re[2]: Ваши последние 20 строк кода
От: MShura  
Дата: 18.03.05 17:11
Оценка: 2 (1) :)
M>Привел всю функчию, не обессудьте

M>
M>bool iqBuilder::build()
M>{
M>    QFile file( _file );
M>    if(!file.open(IO_ReadWrite))
M>    {
M>        _logger.log(QString("Could not open file ") + _file);
M>        file.close();  // Либо этот вызов необязателен: ~QFile
M>        return false;
M>    }

M>    QString s;
M>    int line, column;

M>    if(!_xmlDoc->setContent(&file, &s, &line, &column))
M>    {
M>        _logger.log(QString("Xml error: ") + s + QString(" on line ") +  QString::number(line) + ", column " + QString::number(column));
// Либо здесь пропущено file.close()
M>        return false;
M>    }
}
M>
Re: Ваши последние 20 строк кода
От: MaximE Великобритания  
Дата: 16.03.05 18:25
Оценка: 1 (1) :)
Нахлобуч wrote:

> Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


BOOST_AUTO_UNIT_TEST(parser)
{
     using namespace boost;
     using namespace boost::assign; // bring 'operator+=()' into scope
     using namespace text_rpc;

     request t;
     std::stringstream s;

     request r1;
     r1.call_id = 1;
     r1.ns = "profile";
     r1.function = "add";
     r1.arguments["id"] = 0x007;
     r1.arguments["first_name"] = "James";
     r1.arguments["last_name"] = "Bond";
     r1.arguments["additional_info"] = "Has a license to kill";
     std::vector<argument_type> v1;
     v1 += -1, 0, 1, 1u;
     r1.arguments["secret_codes"] = v1;

     s << r1;
     s >> t;
     std::cout << r1;
     std::cout << t;
     BOOST_CHECK(lexical_cast<std::string>(r1) == lexical_cast<std::string>(t));
}


--
Maxim Yegorushkin
Posted via RSDN NNTP Server 1.9
Re[3]: Ваши последние 20 строк кода
От: oldskool Россия  
Дата: 18.03.05 08:02
Оценка: 1 (1) :)
Здравствуйте, Real 3L0, Вы писали:

R3>А где коментарии?


Вообще-то в том куске, который я привел, их ажно целых 6 штук. Смотрите внимательнее
Re[2]: Ваши последние 20 строк кода
От: Roman Odaisky Украина  
Дата: 14.04.07 22:45
Оценка: :))
Здравствуйте, avbochagov, Вы писали:

Н>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


A>
A>function outputToHtmlStream(text, stream)
A>{
A>    // создание объекта для вывода в поток в формате HTML
A>    var writer = new KodeksFormatHTMLWriter(stream);
A>    writer.setHyperlinkConverter(ConverterHyperlink);
A>    writer.setPictureConverter(ConvertImage);
    
A>    // создание объекта-итератора по тексту документа
A>    var parser = new KodeksFormatParser();
    
A>    // установка объекта-обработчика событий
A>    parser.setHandler(writer);
    
A>    // установка объекта-обработчика ошибок
A>    parser.setErrorHandler(writer);
    
A>    // запуск процесса вывода в HTML
A>    parser.parse(text);
A>}

A>


Код ни разу не понятен без комментариев
До последнего не верил в пирамиду Лебедева.
Re[2]: Тенденции
От: MikePetrichenko Беларусь www.btframework.com
Дата: 15.04.07 17:05
Оценка: :))
Здравствуйте, Константин Л., Вы писали:

КЛ>Здравствуйте, minorlogic, Вы писали:


M>>Складывается впечатление , что половина РСДН пишет парсеры XML а вторая данные в них сохранят...


КЛ>причем парсеры пишутся на с++ .


А сохраняют на C#
Bluetooth, IrDA, WiFi and Serial Ports SDK for .NET, ActiveX, C++ and VCL
Spektrum Telemetry Log File Viewer
Re: Ваши последние 20 строк кода
От: oldskool Россия  
Дата: 17.03.05 13:27
Оценка: 1 (1)
Мои — вот
Че, я тут один такой, да?
m4  ROUT
_memcpy
pdst  RN  r0
psrc  RN  r1
count RN  r2
pdst  RN  r0
psrc  RN  r1
count RN  r2
    tst     count, count
    beq     _end
    ; check count
    cmp     count, #4
    ble     _bb_loop
    ; check relative pointer alignment
    cmp     pdst, psrc
    bgt     _pdst_gt_psrc
    sub     r3, psrc, pdst
    bal   _test_r3
_pdst_gt_psrc
    sub     r3, pdst, psrc
_test_r3
    tst     r3, #3
    beq     _ww_copy
    tst     r3, #1
    beq     _hh_copy
    ; copy byte-by-byte (no optimization)

_bb_loop
    ldrb    r3, [psrc], #1
    strb    r3, [pdst], #1
    subs    count, count, #1
    bne     _bb_loop
    mov   pc, lr

_hh_copy
    ; align first
    tst     pdst, #1
    beq     _hh_loop_no_tail
    ldrb    r3, [psrc], #1
    strb    r3, [pdst], #1
    subs    count, count, #1
    ; check count for one-byte tail
    tst     count, #1
    beq     _hh_loop_no_tail
    eor     count, count, #1
_hh_loop_tail
    ldrh    r3, [psrc], #2
    strh    r3, [pdst], #2
    subs    count, count, #2
    bne     _hh_loop_tail
    ; store tail byte
    ldrb    r3, [psrc]
    strb    r3, [pdst]
    mov   pc, lr

Ну и так далее...
Re[3]: Ваши последние 20 строк кода
От: oldskool Россия  
Дата: 17.03.05 13:37
Оценка: 1 (1)
Здравствуйте, Слава Шевцов, Вы писали:

СШ>И где здесь ООП, boost и STL?


А нету
Разве что ООП — уровнем выше

Вроде как просили последние 20 строчек, не важно, на чем. Нет?
Re: Ваши последние 20 строк кода
От: G2 Ниоткуда  
Дата: 27.03.05 13:47
Оценка: 1 (1)
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют



/// <summary>
        /// Execute an OleDbCommand (that returns a 1x1 resultset) against the database specified in the connection string 
        /// using the provided parameters.
        /// </summary>
        /// <param name="commandText">SQL command</param>
        /// <param name="commandParameters">An array of OleDbParameters used to execute the command</param>
        /// <returns>An object containing the value in the 1x1 resultset generated by the command</returns>        
        public object ExecuteScalar(string commandText, params OleDbParameter[] commandParameters)
        {
            // Return Value
            // The first column of the first row in the result set, 
            // or a null reference if the result set is empty.
            return InternalExecuteCommand(commandText,ExecuteCommandType.ExecuteScalar,commandParameters);
        }

        /// <summary>
        /// Execute an OleDbCommand using the provided parameter values.
        /// </summary>
        /// <param name="commandText">SQL command</param>
        /// <param name="commandText"></param>
        /// <param name="commandType">Enum indicating  type of command calling, ExecuteScalar or ExecuteNonQuery.</param>
        /// <param name="commandParameters">An array of OleDbParameters used to execute the command</param>
        /// <returns>An object containing the value in resultset generated by the command</returns>        
        /// <exception cref="System.ArgumentNullException">Thrown if commandText is null</exception>
        private object InternalExecuteCommand(string commandText, ExecuteCommandType commandType, params OleDbParameter[] commandParameters)
        {
            if( commandText == null || commandText.Length == 0 ) throw new ArgumentNullException( "commandText" );
            using (OleDbConnection dbCnctn = GetConnection())
            {
                OleDbCommand dbCmnd = new OleDbCommand(commandText,dbCnctn);
                foreach (OleDbParameter pr in commandParameters)
                    dbCmnd.Parameters.Add(pr);
                // Open the database connection and execute the command
                dbCnctn.Open();
        
                if (ExecuteCommandType.ExecuteScalar == commandType)
                    
                    // Return Value
                    // The first column of the first row in the result set, 
                    // or a null reference if the result set is empty.

                    return dbCmnd.ExecuteScalar();

                    // Return Value
                    // The number of rows affected.

                else return dbCmnd.ExecuteNonQuery(); 
            }
        }


Тема, только звучит, как -то мрачновато.
Улыбаемся и машем :-)
Re[2]: Ваши последние 20 строк кода
От: vdimas Россия  
Дата: 29.03.05 01:48
Оценка: 1 (1)
Здравствуйте, Andy_MAN, Вы писали:

держи из той же оперы, надеюсь пригодится:
(приятное поведение под пальчиками)


using System;
using System.Collections;
using System.ComponentModel;
using System.Drawing;
using System.Windows.Forms;
using System.Reflection;

using Infragistics.Win;
using Infragistics.Win.UltraWinGrid;

namespace WW.Controls
{
    // some typedefs for shorting
    using _A = UltraGridAction;
    using _S = UltraGridState;
    using _C = UltraGridCell;

    [Serializable]
    public class Grid : Infragistics.Win.UltraWinGrid.UltraGrid
    {

        public Grid()
        {
            Infragistics.Win.Appearance backAppearance = new Infragistics.Win.Appearance();
            backAppearance.BackColor = System.Drawing.Color.White;
            backAppearance.BorderColor = System.Drawing.Color.LightGray;
            backAppearance.FontData.SizeInPoints = 8F;
            this.DisplayLayout.Appearance = backAppearance;

        }
    
        protected override void OnKeyDown(KeyEventArgs e)
        {    
            switch (e.KeyData) 
            {
                case Keys.Up : 
                {
                    _C c = this.ActiveCell;
                    if (c != null && c.IsInEditMode) 
                    {
                        if ((this.CurrentState & _S.FirstRowInGrid) == 0)
                        {
                            if (TryPerformAction(_A.ExitEditMode))
                                PerformAction(_A.AboveCell);
                        }
                        e.Handled = true;
                    } 
                }
                    break;

                case Keys.Down : 
                {
                    _C c = this.ActiveCell;
                    if (c != null && c.IsInEditMode) 
                    {
                        if ((this.CurrentState & _S.LastRowInGrid) == 0) 
                        {
                            if (TryPerformAction(_A.ExitEditMode))
                                PerformAction(_A.BelowCell);
                        }                    
                        e.Handled = true;
                    }
                }
                    break;

                case Keys.Left : 
                {
                    _C c = ActiveCell;
                    if (c != null && 
                        c.Column.Editor.SupportsSelectableText && 
                        c.IsInEditMode && 
                        c.SelStart == 0) 
                    {
                        if (((this.CurrentState & _S.FirstRowInGrid) == 0) || 
                            ((this.CurrentState & _S.CellFirst) == 0))
                        {
                            if (TryPerformAction(_A.ExitEditMode))
                                PerformAction(_A.PrevCell);
                        }
                        e.Handled = true;
                    }
                }
                    break;

                case Keys.Right : 
                {
                    _C c = ActiveCell;
                    if (c != null && 
                        c.Column.Editor.SupportsSelectableText && 
                        c.IsInEditMode && 
                        c.SelStart + c.SelLength == c.Text.Length) 
                    {
                        if (((this.CurrentState & _S.LastRowInGrid) == 0) || 
                            ((this.CurrentState & _S.CellLast) == 0))
                        {
                            if (TryPerformAction(_A.ExitEditMode))
                                PerformAction(_A.NextCell);
                        }
                        e.Handled = true;
                    }
                }
                    break;

                case Keys.Enter : 
                {
                    _C c = ActiveCell;
                    if (c != null && 
                        c.Column.Editor.SupportsSelectableText && 
                        c.IsInEditMode) 
                    {
                        if (((this.CurrentState & _S.LastRowInGrid) == 0) || 
                            ((this.CurrentState & _S.CellLast) == 0))
                        {
                            if (TryPerformAction(_A.ExitEditMode))
                                PerformAction(_A.BelowCell);
                        }
                        e.Handled = true;
                    }
                }
                    break;

            }
            
            base.OnKeyDown(e);
        }

        protected override void OnAfterCellActivate()
        {
            if (this.ActiveCell.CanEnterEditMode) 
                this.PerformAction(_A.EnterEditMode);
        }

        /// <summary>
        /// internal helper class
        /// </summary>
        internal class Helper 
        {

            static Type cellType = typeof(_C);

            /// <summary>
            /// using of reflection to retrive private field
            /// </summary>
            /// <param name="c">cell</param>
            /// <returns>displayText field value</returns>
            public static string GetDisplayText(_C c)
            {
                FieldInfo pi = cellType.GetField("displayText", BindingFlags.NonPublic | BindingFlags.Instance);
                return pi.GetValue(c) as string;
            }

            public static void SetDisplayText(_C c, string txt)
            {
                FieldInfo pi = cellType.GetField("displayText", BindingFlags.NonPublic | BindingFlags.Instance);
                pi.SetValue(c, txt);
            }
        }

        bool cancelEvent = false;
        public void CancelEvent()
        {
            cancelEvent = true;
        }

        public bool TryExitEditMode()
        {
            return TryPerformAction(_A.ExitEditMode);
        }

        public bool TryPerformAction(_A action)
        {
            cancelEvent = false;
            PerformAction(action);
            return!cancelEvent;
        }
    
        protected override void OnBeforeCellUpdate(BeforeCellUpdateEventArgs e)
        {
            try
            {
                base.OnBeforeCellUpdate(e);
                cancelEvent = e.Cancel;
            }
            catch {
                _C c = e.Cell;
                if (c.Column.Editor.SupportsSelectableText) 
                {
                    c.SelStart = 0;
                    c.SelLength = c.Text.Length;
                }                
                throw;
            }
        }
    
    
        protected override void OnGotFocus(EventArgs e)
        {
            base.OnGotFocus(e);
            _C c = this.ActiveCell;
            if (c != null) {
                //PerformAction(_A.EnterEditMode);
            }
        }
    
        protected override void WndProc(ref Message m)
        {
            // TODO:  Add Grid.WndProc implementation
            try
            {
                base.WndProc (ref m);
            } catch (Exception e) {
//                MessageBox.Show(e.ToString());
            }
        }
    }
}
Re[3]: Ваши последние 20 строк кода
От: Privalov  
Дата: 17.03.05 10:00
Оценка: :)
Здравствуйте, ssm, Вы писали:


ssm>исключительно в целях отладки и волею индуса архитектора


И у меня такого хватает. И, кстати, код, написанный несколько лет тому назад в таком стиле, принуждает меня следовать такому стилю и сейчас. А переписывать старый не дают: работающий код — священная корова.
Re[5]: Ваши последние 20 строк кода
От: Mamut Швеция http://dmitriid.com
Дата: 17.03.05 10:52
Оценка: +1
M>> Не, пока удается разбивать код на логические кусочки-функции. Правда ща намечается функция-монстр на пару сотен строчек точно

P>Блин, везет же людям!


Везет, что я один на всем проекте Хоть и не очень маленьком. Так что контроль — полностью в моих руках. Еще его бы не растерять...

А в прошлом году с двумя друзьями работал — ууу. Они тоже, вроде, не курили, но код писали
... << RSDN@Home 1.1.4 beta 4 rev. 0>> ... <<Winamp is playing "Soundtrack — Vois Tur Ton Chemin">> ...


dmitriid.comGitHubLinkedIn
Re[2]: Ваши последние 20 строк кода
От: Слава Шевцов Россия http://www.rentaguru.ru/
Дата: 17.03.05 13:30
Оценка: :)
Здравствуйте, oldskool, Вы писали:

O>Мои — вот

O>Че, я тут один такой, да?
O>
O>m4  ROUT
O>_memcpy
O>pdst  RN  r0
O>psrc  RN  r1
O>count RN  r2
O>...
O>

O>Ну и так далее...

И где здесь ООП, boost и STL?
----------------------------------------------------------------------------------------------
Rentaguru
Re[2]: Ваши последние 20 строк кода
От: BiТ  
Дата: 17.03.05 15:21
Оценка: :)
Здравствуйте, poilk, Вы писали:

P>Здравствуйте, Нахлобуч, Вы писали:


Н>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


P>
P>dim a[20];

P>

P>

Видимо — построчная оплата труда
Re[9]: Ваши последние 20 строк кода
От: jhfrek Россия  
Дата: 17.03.05 15:52
Оценка: :)
Здравствуйте, BiТ, Вы писали:

BiТ>Здравствуйте, jhfrek, Вы писали:


J>>Здравствуйте, Слава Шевцов, Вы писали:


J>>Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.


BiТ>А где вы такую красивую каску купили ?


Почему каску? Это же героин — достаточно и половины дозы (с)
Re[3]: Ваши последние 20 строк кода
От: Рома Мик Россия http://romamik.com
Дата: 17.03.05 21:59
Оценка: -1
OK>Это что за язык?
Похоже на паскаль, я правда давно паскаля не видал...
Re[3]: Ваши последние 20 строк кода
От: БСС Россия  
Дата: 18.03.05 16:37
Оценка: :)
Здравствуйте, DuШes, Вы писали:

DШ>имхо...нечитаемый язык...


Да, это точно... Есть така штука — Trace Mode (трассовая мудя в простонародии). Есть там такой язык — язык функциональных блоков. Вообще писать на нем куда проще — пишется в редакторе, там всё визуально — накидываешь блоки (например здесь функция GT(...) — это блок "больше", а SEL(...) — выбор из двух по флагу), а также взаимосвязи между ними. Просто сейчас пишу документацию, а там скриншот (для описания функционального предназначения программы) фиг приведешь — нада все расписывать и приходиться писать в документации такое (благо трасе муде может генерировать этот код из FBD) + коментарии для непонятливых программеров заказчика (тем более обидно, т.к. они ничего читать не будут).
... << RSDN@Home 1.1.4 beta 4 rev. 303>>

Re[5]: Ваши последние 20 строк кода
От: Рома Мик Россия http://romamik.com
Дата: 18.03.05 17:17
Оценка: :)
Здравствуйте, ozone.km, Вы писали:

OK>Интересно кто-нибудт на турбопаскле еще пишет?

пишет-пишет
Автор: jhfrek
Дата: 03.06.03
Re: Ваши последние 20 строк кода
От: Ban001  
Дата: 24.03.05 09:21
Оценка: :)
Звучит както настоаживающе...
Ваши последние 20 строк кода...

А потом костлявая с косой?
... << RSDN@Home 1.1.3 stable >>
Re[2]: Ваши последние 20 строк кода
От: cencio Украина http://ua-coder.blogspot.com
Дата: 27.03.05 12:16
Оценка: :)
Здравствуйте, AndrewVK, Вы писали:

AVK>Здравствуйте, Нахлобуч, Вы писали:


AVK>Вопрос — что это? Те, кто сталкивался с используемой библиотекой — молчите

не сталкивался с c#, но второй линк в гугле по слову OnlineProxyContext выдал вот это:
Smart Client Offline Application Block
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnpag/html/offline-ch03.asp
Re[3]: Ваши последние 20 строк кода
От: _Oleg_ Украина  
Дата: 15.04.07 17:55
Оценка: :)
Здравствуйте, anidal, Вы писали:

A>Здравствуйте, A_l_e_x_e_y, Вы писали:



A>pAT91PS_PIOB->PIO_PER=AT91C_PIO_PB5|AT91C_PIO_PB28|AT91C_PIO_PB29;
A> pAT91PS_PIOA->PIO_PER=AT91C_PIO_PA23;
A> pAT91PS_PIOB->PIO_OER=AT91C_PIO_PB5;
A> pAT91PS_PIOB->PIO_PPUDR=AT91C_PIO_PB5;
A> pAT91PS_PIOB->PIO_CODR=AT91C_PIO_PB5;
A>Комментарии на русском к сожалению нечитаемы

Да ну зачем. И так все понятно !
Re: Ваши последние 20 строк кода
От: vdimas Россия  
Дата: 16.03.05 20:01
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют



        // predicate expression type
        enum ExpressionType {
            EXP_COMPARE, EXP_NULL, EXP_LIKE, EXP_BETWEEN, EXP_IN
        };

        // item of expression
        union Expression
        switch (ExpressionType) {
            case(EXP_COMPARE):
                CompareExpression expCompare;

            case(EXP_NULL):
                NullExpression expNull;

            case(EXP_LIKE):
                LikeExpression expLike;

            case(EXP_BETWEEN):
                BetweenExpression expBetween;

            case(EXP_IN):
                InExpression expIn;
        };

        // predicate connector
        enum PredicateConnect { PRED_AND, PRED_OR };

        enum PredicateType { PRED_SIMPLE, PRED_COMPLEX, PRED_EMPTY };

        union Predicate
        switch (PredicateType) {
            case(PRED_SIMPLE):
                Expression expression;

            case(PRED_COMPLEX):
                struct ComplexPredicate {
                    PredicateConnect connect;
                    sequence<Predicate> predList;
                } predList;
        };
Re: Ваши последние 20 строк кода
От: Mr. None Россия http://mrnone.blogspot.com
Дата: 17.03.05 04:37
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


void VHeap::CommitTopChunk()
{
    _nUsedChunk = _freeChunks.front();
    _freeChunks.pop_front();
    UsedChunk().Commit();
}

void* VHeap::Allocate(size_t size)
{
    void* res = NULL;
    res = UsedChunk().Allocate(size);
    if(res == NULL)
    {
        if( _freeChunks.empty()
            || size > UsedChunk().Size() )
        {
            return NULL;
        }
        CommitTopChunk();
        res = UsedChunk().Allocate(size);
    }
    return res;
}
Компьютер сделает всё, что вы ему скажете, но это может сильно отличаться от того, что вы имели в виду.
Re: Ваши последние 20 строк кода
От: GregZ СССР  
Дата: 17.03.05 04:52
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют



#define CMD_DATA_HANDLER(MessageType, func) \
    case MessageType::code: \
    { \
        VS_STATIC_CHECK(MessageType::type == typeData, CantUseForNonDataType); \
        u_long sizeOfData = *reinterpret_cast<u_long*>(msg + sizeof(MessageType)); \
        assert(sizeof(MessageType) == size + sizeOfData + sizeof(u_long)); \
        if(sizeof(MessageType) == size + sizeOfData + sizeof(u_long)) \
        { \
            func( \
                reinterpret_cast<MessageType&>(*msg), \
                sizeOfData, \
                msg + sizeof(MessageType) + sizeof(u_long)); \
        } \
        break; \
    }
Re: Ваши последние 20 строк кода
От: Andir Россия
Дата: 17.03.05 05:07
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


:GetMonthString:{
    monthNumber |
    ["января", "февраля", "марта", "апреля", "мая", "июня", "июля", "августа", "сентября", "октября", "ноября", "декабря"].Item(monthNumber)
}

@@[
    namespace.Topics.SortBy
    {
        each | DateTime.Now.SpanBetween(each.Created)
    }.Snip(3).Collect
    {
        e |
        [            
            "%small gray%[",
            e.Created.Day, " ", GetMonthString(e.Created.Month), " ", e.Created.Year, " года",
            "]%% ",
            Presentations.Link(federation.LinkMaker.LinkToTopic(e.Fullname), e.Name, e.Summary),
            ": ",
            e.Summary, ".",
            Newline
        ]
    }

]@@


С Уважением, Andir!
Re: Ваши последние 20 строк кода
От: AlLucky Беларусь Qulix Systems
Дата: 17.03.05 06:53
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

public Hashtable(int capacity, float loadFactor, IHashCodeProvider hcp, IComparer comparer) {
            if (capacity < 0)
                throw new ArgumentOutOfRangeException("capacity", Environment.GetResourceString("ArgumentOutOfRange_NeedNonNegNum"));
            if (!(loadFactor >= 0.1f && loadFactor <= 1.0f))
                throw new ArgumentOutOfRangeException("loadFactor", String.Format(Environment.GetResourceString("ArgumentOutOfRange_HashtableLoadFactor"), .1, 1.0));
    
            // Based on perf work, .72 is the optimal load factor for this table.  
            this.loadFactor = 0.72f * loadFactor;
    
            double rawsize = capacity / this.loadFactor;
            if (rawsize > Int32.MaxValue)
                throw new ArgumentException(Environment.GetResourceString("Arg_HTCapacityOverflow"));

            int hashsize = GetPrime ((int)rawsize);
            buckets = new bucket[hashsize];
    
            loadsize = (int)(this.loadFactor * hashsize);
            if (loadsize >= hashsize)
              loadsize = hashsize-1;
    
            this.hcp = hcp;
            this.comparer = comparer;
        }

Sincerely Mine ... AlLucky Sly << RSDN@Home 1.1.4 Слушаю болтовню коллег... >>
Aleksandr Sly
Re: Ваши последние 20 строк кода
От: avbochagov Россия  
Дата: 17.03.05 07:03
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


function outputToHtmlStream(text, stream)
{
    // создание объекта для вывода в поток в формате HTML
    var writer = new KodeksFormatHTMLWriter(stream);
    writer.setHyperlinkConverter(ConverterHyperlink);
    writer.setPictureConverter(ConvertImage);
    
    // создание объекта-итератора по тексту документа
    var parser = new KodeksFormatParser();
    
    // установка объекта-обработчика событий
    parser.setHandler(writer);
    
    // установка объекта-обработчика ошибок
    parser.setErrorHandler(writer);
    
    // запуск процесса вывода в HTML
    parser.parse(text);
}
... << RSDN@Home 1.1.4 beta 4 rev. 350>>
Re: Ваши последние 20 строк кода
От: butcher Россия http://bu7cher.blogspot.com
Дата: 17.03.05 07:04
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

Те которые с плюсом — мои
--- src/fluxbox.cc.orig Mon Jan 17 12:35:52 2005
+++ src/fluxbox.cc  Wed Mar 16 07:01:19 2005
@@ -1026,9 +1026,16 @@
     if (keyScreen() == 0 || mouseScreen() == 0)
         return;

+   static bool needMenu = false;
+   KeySym key = XLookupKeysym(&ke, 0);

     switch (ke.type) {
     case KeyPress:
+
+       if (key == XK_Super_L || key == XK_Super_R)
+           needMenu = true;
+       else needMenu = false;
+
         m_key->doAction(ke);
         break;
     case KeyRelease: {
@@ -1052,6 +1059,10 @@
             }
         }

+       if (needMenu && (key == XK_Super_L || key == XK_Super_R)){
+           FbCommands::ShowRootMenuCmd cmd;
+           cmd.execute();
+       }
         break;
     }
     default:
--- src/Keys.cc.orig    Fri Nov 19 15:01:37 2004
+++ src/Keys.cc Wed Mar 16 07:00:45 2005
@@ -134,6 +134,12 @@

     FbTk::App::instance()->sync(false);

+   // keybindings for RootMenu
+   FbTk::KeyUtil::grabKey(XKeysymToKeycode(
+       FbTk::App::instance()->display(), XK_Super_L), 0);
+   FbTk::KeyUtil::grabKey(XKeysymToKeycode(
+       FbTk::App::instance()->display(), XK_Super_R), 0);
+
     //open the file
     ifstream infile(filename);

Нет ничего невозможного..
Re: Ваши последние 20 строк кода
От: Mamut Швеция http://dmitriid.com
Дата: 17.03.05 07:26
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


Привел всю функчию, не обессудьте

bool iqBuilder::build()
{
    QFile file( _file );
    if(!file.open(IO_ReadWrite))
    {
        _logger.log(QString("Could not open file ") + _file);
        file.close();
        return false;
    }

    QString s;
    int line, column;

    if(!_xmlDoc->setContent(&file, &s, &line, &column))
    {
        _logger.log(QString("Xml error: ") + s + QString(" on line ") +  QString::number(line) + ", column " + QString::number(column));
        return false;
    }

    QDomElement rootElement = _xmlDoc->documentElement();
    try
    {
        QString tool = "";
        QString toolName = "";

        QDomNode toolNode = rootElement.firstChild().firstChild();
        while(!toolNode.isNull())
        {
            QDomElement toolElement = toolNode.toElement();
            if(!toolElement.isNull())
            {
                toolName = toolElement.attribute("name", "Undefined");
                tool = toolElement.attribute("path");
                _logger.log("<b>" + toolName + "</b>");
            }    
                
            QDomNode fileNode = toolNode.firstChild();
            while(!fileNode.isNull())
            {
                QDomElement fileElement = fileNode.toElement();
                if(!fileElement.isNull())
                {
                    QString name = fileElement.attribute("name");
                    QString path = fileElement.attribute("path");
                    QString fileName = fileElement.attribute("file");
                    QString lastTime = fileElement.attribute("lasttime", "0");

                    QFileInfo qfinfo = QFileInfo(path + fileName);
                    QDateTime qLastModified = qfinfo.lastModified();
                    
                    QString fileTime = qLastModified.toString("yyyyMMddhhmmsszzz");

                    _logger.log("\t" + fileName);
                    if(lastTime == fileTime)
                    {
                        _logger.log("\t\tSkipped. File time hasn't changed");
                    }
                    else
                    {
                        _logger.log("\t\tProcessing.");
                        fileElement.setAttribute("lasttime", fileTime);
                        QDomNode execNode = fileNode.firstChild();

                        while(!execNode.isNull())
                        {
                            QDomElement execElement = execNode.toElement();
                            if(!execElement.isNull())
                            {
                                QRegExp rx;
                                QString options = execElement.attribute("options");

                                rx.setPattern("\\$\\(name\\)");
                                options.replace(rx, name);

                                rx.setPattern("\\$\\(path\\)");
                                options.replace(rx, path);

                                rx.setPattern("\\$\\(file\\)");
                                options.replace(rx, fileName);

                                while(!_processExited) qApp->processEvents();
                                _processExited = false;
                                _process->clearArguments();
                                _process->addArgument(tool + " " + options);
                                if(!_process->start())
                                {
                                    _logger.log("Could not process: \n" + tool + " " + options);
                                }
                                if(!_process->start())
                                {
                                    _logger.log("Could not process: \n" + tool + " " + options);
                                }
                            }
                            execNode = execNode.nextSibling();
                        }
                    }
                }
                fileNode = fileNode.nextSibling();
            }
            toolNode = toolNode.nextSibling();
        }
    } catch(...){
        return false;
    }

    file.close();
    if(file.open( IO_WriteOnly | IO_Truncate ))
    {
        _logger.log("Writing file...");
        QTextStream qts(&file);

        _xmlDoc->save(qts, 4);
        file.close();
    }
    _logger.log("Done.");
    
    return true;
}
... << RSDN@Home 1.1.4 beta 4 rev. 0>> ... <<Winamp is playing "Kenji Kawai — 07 Kugutsuuta aratayo ni kamutsudo hite">> ...


dmitriid.comGitHubLinkedIn
Re: Ваши последние 20 строк кода
От: CiViLiS Россия  
Дата: 17.03.05 07:44
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

Новый вид флешмоба?
<< RSDN@Home 1.1.4 beta 4 rev. 350>>
"Бог не терпит голой сингулярности" -- Роджер Пенроуз
Re: Ваши последние 20 строк кода
От: yxiie Украина www.enkord.com
Дата: 17.03.05 08:54
Оценка:
    <!-- wave 6 -->
    <schedule>
        <object>/object/asteroid1-small1-slowest.xml</object>
        <begintime>100000</begintime>
        <endtime>120000</endtime>
        <count>40</count>
        <orbitradius>500.0</orbitradius>
        <shard>/object/bonus/box1.xml</shard>
        <shardcount>10</shardcount>
    </schedule>
    <schedule>
        <object>/object/asteroid1-big1-slowest.xml</object>
        <begintime>100000</begintime>
        <endtime>120000</endtime>
        <count>40</count>
        <orbitradius>500.0</orbitradius>
        <shard>/object/bonus/capsule1.xml</shard>
        <shardcount>10</shardcount>
    </schedule>
    <schedule>
... << RSDN@Home 1.1.3 stable >>
Re: Ваши последние 20 строк кода
От: ssm Россия  
Дата: 17.03.05 09:12
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют



const ICXMTDataTagTextAttrib *queryTag(
        ITextModel *iTextModel, 
        TextIndex &textIndex, 
        int32 &selectionLength)
    {
        ASSERT(iTextModel);    

        K2Vector<ClassID> attributeClasses;
        attributeClasses.push_back(kcxmtDataTagBoss);

        K2Vector<InDesign::TextRange> textRanges;
        textRanges.push_back(InDesign::TextRange(iTextModel, textIndex, selectionLength));

        TextAttributeRunIterator iter(
            textRanges.begin(), textRanges.end(),
            attributeClasses.begin(), attributeClasses.end());    

        while(iter)
        {
            const ICXMTDataTagTextAttrib * result = 
                static_cast<const ICXMTDataTagTextAttrib *>(
                iter->QueryByClassID(kcxmtDataTagBoss, ICXMTDataTagTextAttrib::kDefaultIID));

            if(result)
            {
                RangeData rangeData = iter.GetRunRange();
                textIndex = rangeData.Start(0);
                selectionLength = rangeData.Length();

                return result;
            }

            ++iter;
        }

        return 0;
    }
Re: Ваши последние 20 строк кода
От: Sergeant Украина www.photomirror.com.ua
Дата: 17.03.05 09:33
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


            5 { 
                #факсы - краткая выписка
                set repeat 0
                set date [GetString "$path\\r_putdate.wav" 5000 3]
                set faxtype 0
                set language "ru"
                set faxfilename "vipiska.fax"
                file delete $faxfilename
                if { [source "scripts\\faxes.tcl"] == "0" } {
                    PlayFile [syntez "<$path\\r_missingquery.wav><$path\\r_meinmenu.wav>"] 0
                } else {
                    #send fax
                    output "$path\\r_pressfax.wav" 1
                    if { [sendfax 0 "" $faxfilename] == "SUCCESS" } {
                        dbg "Факс отправлен успешно"
                    }
                    file delete $faxfilename
                    set confmenuloop 0
                }
                incr timout 5000
            }
Курить я буду, но пить не брошу.
Re: Ваши последние 20 строк кода
От: Chamele0n  
Дата: 17.03.05 09:37
Оценка:
Здравствуйте, Нахлобуч, Вы писали:
function main ()
 local w = mappy.getValue(mappy.MAPWIDTH)
 local h = mappy.getValue(mappy.MAPHEIGHT)

 if (w == 0) then
  mappy.msgBox ("Flip horizontal", "You need to load or create a map first", mappy.MMB_OK, mappy.MMB_ICONINFO)
 else
   mappy.copyLayer(mappy.getValue(mappy.CURLAYER),mappy.MPY_UNDO)
    local y = 0
    while y < h do
     local x = 0
     while x < w/2 do
      local bleft = mappy.getBlock (x, y)
      local bright = mappy.getBlock (w-x-1, y)
      mappy.setBlock (x, y, bright)
      mappy.setBlock (w-x-1, y, bleft)
      x = x + 1
     end
     y = y + 1
    end

    mappy.updateScreen()

   end
  end
    function main ()
 local w = mappy.getValue(mappy.MAPWIDTH)
 local h = mappy.getValue(mappy.MAPHEIGHT)

 if (w == 0) then
  mappy.msgBox ("Flip horizontal", "You need to load or create a map first", mappy.MMB_OK, mappy.MMB_ICONINFO)
 else
   mappy.copyLayer(mappy.getValue(mappy.CURLAYER),mappy.MPY_UNDO)
    local y = 0
    while y < h do
     local x = 0
     while x < w/2 do
      local bleft = mappy.getBlock (x, y)
      local bright = mappy.getBlock (w-x-1, y)
      mappy.setBlock (x, y, bright)
      mappy.setBlock (w-x-1, y, bleft)
      x = x + 1
     end
     y = y + 1
    end

    mappy.updateScreen()

   end
  end
... << RSDN@Home 1.1.3 stable >>
Re[2]: Ваши последние 20 строк кода
От: Esef Украина  
Дата: 17.03.05 09:37
Оценка:
g.setStrokeStyle(Graphics.DOTTED);
        g.setColor(Settings.LEVEL_INFO_COLOR);
        g.drawLine(0, Settings.LEVEL_INFO_HEIGHT, Settings.SCREEN_WIDTH, Settings.LEVEL_INFO_HEIGHT);
        g.setStrokeStyle(Graphics.SOLID);

        for (int i = 0; i < 2; i++)
        {
            g.drawLine((i + 1) * Settings.SCREEN_WIDTH / 3, 2,
                       (i + 1) * Settings.SCREEN_WIDTH / 3, Settings.LEVEL_INFO_HEIGHT - 2);
        }
        iconsFramer.drawFrame(g, 0, Settings.SCREEN_WIDTH / 3 + 2,
                              (Settings.LEVEL_INFO_HEIGHT - iconsFramer.getFrameHeight()) / 2);
        if(fisher.getBaitCount() > 0)
        {
            iconsFramer.drawFrame(g, fisher.getBaitType() + 1, Settings.SCREEN_WIDTH * 2 / 3 + 2,
                                  (Settings.LEVEL_INFO_HEIGHT - iconsFramer.getFrameHeight()) / 2);
        }
        String str = String.valueOf(fisher.getNeedFishes() - fisher.getCatchedFishes());
        Game.smallFont.drawText(str, Settings.SCREEN_WIDTH * 2 / 3 - 2 - Game.smallFont.stringWidth(str),
                                (Settings.LEVEL_INFO_HEIGHT - Game.smallFont.getCharHeight()) / 2,
                                true, g);
        str = String.valueOf(fisher.getBaitCount());
        Game.smallFont.drawText(str, Settings.SCREEN_WIDTH - 2 - Game.smallFont.stringWidth(str),
                                (Settings.LEVEL_INFO_HEIGHT - Game.smallFont.getCharHeight()) / 2,
                                true, g);
        str = timeToStr(currentTime, null);
        Game.smallFont.drawText(str, (Settings.SCREEN_WIDTH / 3 - Game.smallFont.stringWidth(str)) / 2,
                                (Settings.LEVEL_INFO_HEIGHT - Game.smallFont.getCharHeight()) / 2, true, g);
Re: Ваши последние 20 строк кода
От: WoldemaR Россия  
Дата: 17.03.05 09:38
Оценка:
bool Compositor::IsAncestor(const Document* pDocument)const
{
    const Document* pParent = static_cast<const Document*>(this);
    while (pParent)
    {
        if (pParent == pDocument)
            return true;
        pParent = pParent->GetParent();
    }
    return false;
}

Document* Compositor::GetRoot()
{
    Document* pDocument = static_cast<Document*>(this);
    while (pDocument->GetParent())
        pDocument = pDocument->GetParent();
    return pDocument;
}
Re: Ваши последние 20 строк кода
От: V.Petrovski Беларусь  
Дата: 17.03.05 09:46
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


using System;

namespace Ranet.Cooperation.DataTransformer
{
    /// <summary>
    /// A helper class for testing parameters.
    /// </summary>
    public sealed class Error
    {
        /// <summary>
        /// Throws ArgumentException when character in the range 0x0 to 0x20, and the characters in the range 0xFFFE and 0xFFFF. 
        /// </summary>
        /// <param name="value">char value.</param>
        public static void ThrowIsInvalidChar(char value) 
        {
            if (value > 0xFFFD) 
                throw new ArgumentException("Invalid Unicode.");
            else if (value < 0x20 && value != '\t' & value != '\n' & value != '\r') 
                throw new ArgumentException("Invalid Xml Characters.");
        }
        /// <summary>
        /// Throws ArgumentException when value is null or value isn't validType.
        /// </summary>
        /// <param name="value">test object.</param>
        /// <param name="validType">valid type for test object.</param>
        /// <param name="paramName">parameter name for ArgumentException.</param>
        public static void ThrowIsNullOrInvalidType(object value, Type validType, string paramName)
        {
            ThrowIsNull(value, paramName);
            
            System.Type valueType = value.GetType();
            
            if(!valueType.Equals(validType))
                throw new ArgumentException(String.Format("Received '{1}' type, but expected '{0}' type.", validType, valueType), paramName);
        }
        /// <summary>
        /// Throws ArgumentNullException when string value is null or empty.
        /// </summary>
        /// <param name="value">string value.</param>
        /// <param name="paramName">parameter name for ArgumentNullException.</param>
        public static void ThrowIsNullOrEmpty(string value, string paramName)
        {
            // check for null
            ThrowIsNull(value, paramName, null);
            
            // check for empty
            if(value.Length == 0)
                throw new ArgumentException("string is empty", paramName);
        }
        /// <summary>
        /// Throws ArgumentNullException when value is null or empty string.
        /// </summary>
        /// <param name="value">test object.</param>
        /// <param name="paramName">parameter name for ArgumentNullException.</param>
        public static void ThrowIsNull(object value, string paramName)
        {
            ThrowIsNull(value, paramName, null);
        }
        /// <summary>
        /// Throws ArgumentNullException when value is null or empty string.
        /// </summary>
        /// <param name="value">test object.</param>
        /// <param name="paramName">parameter name for ArgumentNullException.</param>
        /// <param name="message">text message for ArgumentNullException.</param>
        public static void ThrowIsNull(object value, string paramName, string message)
        {
            if(value == null)
            {
                if(message == null)
                    throw new ArgumentNullException(paramName);
                else
                    throw new ArgumentNullException(paramName, message);
            }
        }
    }
}
... << RSDN@Home 1.1.4 beta 4 rev. 303>>
Re: Ваши последние 20 строк кода
От: Real 3L0 Россия http://prikhodko.blogspot.com
Дата: 17.03.05 09:49
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>[ccode]


У тебя там ошибка.
... << RSDN@Home 1.1.4 beta 4 rev. 302>>
Вселенная бесконечна как вширь, так и вглубь.
Re[2]: Ваши последние 20 строк кода
От: Real 3L0 Россия http://prikhodko.blogspot.com
Дата: 17.03.05 09:55
Оценка:
Здравствуйте, V.Petrovski, Вы писали:

VP>
VP>using System;

VP>namespace Ranet.Cooperation.DataTransformer
VP>{
VP>...
VP>


О! Это то, что мне надо было!
... << RSDN@Home 1.1.4 beta 4 rev. 302>>
Вселенная бесконечна как вширь, так и вглубь.
Re[2]: Ваши последние 20 строк кода
От: Privalov  
Дата: 17.03.05 10:02
Оценка:
Здравствуйте, Mamut, Вы писали:

А чего такая короткая-то? Вот в том проекте, где я сейчас занят, есть функции до 1500 строк...
Re: Ваши последние 20 строк кода
От: Nickolas Чехия  
Дата: 17.03.05 10:13
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

while( cur.Fetch() ) {
Int orderID = order.DocID;
Int invoiceID = invoice.DocID;

//make subcriptions for this order invalid
{
ASCursor cur2( rdb );
OItem oitem;
Subscription sub;
cur2.Project()
<< oitem->subscriptionID
<< sub->ServStatus;
cur2.Set( oitem->OrderDocDocID == orderID && sub->subscriptionID == oitem->subscriptionID );
while( cur2.Fetch() && sub.ServStatus == SSE_NOTEXIST ) {
oSubscription.changeStatus(oitem.subscriptionID, SS_INVALID, Msg("bla-bla-bla").what() );
}
}

ths->SetDocStatus(invoiceID, DS_INVALID, Msg("bla-bla-bla").what() );

ths->SetDocStatus(orderID, DS_INVALID, Msg("bla-bla-bla").what() );
}
... << RSDN@Home 1.1.4 beta 4 rev. 350>>
Re: Ваши последние 20 строк кода
От: SilentDeuce  
Дата: 17.03.05 10:13
Оценка:
Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

    using namespace MSO;

    CUrl url;
    url.CrackUrl(sLocationUrl, ATL_URL_DECODE);

    if (!::_tcscmp(url.GetSchemeName(), _T("outlook")))
    {
        _ApplicationPtr spOutlook;

        // try attaching to Outlook
        // create new instance if Outlook isn't running
        if (FAILED(spOutlook.GetActiveObject(__uuidof(Application))))
            spOutlook = _ApplicationPtr(__uuidof(Application));

        if (bool(spOutlook))
        {
            // get folder root
            MAPIFolderPtr spFolder(spOutlook->GetNamespace(_T("MAPI"))
                ->Folders->Item(_variant_t(url.GetHostName())));

            if (bool(spFolder))
            {
                // traverse folder path 
                const _bstr_t sPathHolder(url.GetUrlPath());
                for (LPTSTR sPath = sPathHolder, pDelim = 0; sPath; sPath = pDelim ? pDelim + 1 : 0)
                {
                    pDelim = ::_tcschr(sPath, _T('/'));
                    if (pDelim)
                        *pDelim = _T('\0');

                    if (::_tcslen(sPath))
                        spFolder = spFolder->Folders->Item(_variant_t(sPath));
                }

                if (bool(spFolder))
                {
                    const _bstr_t sWebViewURL(spFolder->WebViewURL);
                    if (sWebViewURL.length())
                        sLocationUrl = sWebViewURL;
                }
            }
        }
    }
Re: Ваши последние 20 строк кода
От: Dirichlet Россия  
Дата: 17.03.05 10:15
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


void MayaSceneReader::ExportObject( const ExportItem * item, IObjectTreeItem * outputItem )
{
  Assert( item != NULL );
  Assert( outputItem != NULL );
  MStatus stat;
  Assert( item->NeedExport( ) );
  const ExportItem * curChild;
  while ( item->NextChildToExport( &curChild ) )
  {
    try
    {
      Assert( curChild->NeedExport( ) );
      CMayaObject obj = curChild->MayaObject( );
      std::string type = obj.getType( );
      IObjectTreeItemPtr newItem;
      if ( type == "mesh" )
      {
        newItem = ExportMesh( obj, outputItem );
      } 
      else if ( type == "transform" )
      {
        if ( !obj.isAttrExist( "LogicName" ) )
          newItem = ExportGroup( obj, outputItem );
        else 
          newItem = ExportUserItem( obj, outputItem );
      }
      else
      {        
        newItem = CreateItem( "Group", obj );
        CheckError( newItem != 0 );
        SetMessage( L"Can't determine type of scene element", ML_WARNING );
        outputItem->AddChild( outputItem->ChildCount( ), newItem );
      }
      Assert( newItem != NULL );
      DWORD curAttr = 0;
      while ( true )
      {
        MString curAttrName = MString("Attr") + curAttr;
        if ( !obj.isAttrExist( curAttrName.asChar( ) ) )
          break;
        std::string attrName = obj.getStringAttr( curAttrName.asChar( ) );
        if ( attrName == "Attachment" )
          ExportTransform( obj, newItem );
        else
        {
          IObjectTreeItemAttributePtr newAttr;
          newAttr = CreateAttr( attrName.c_str( ), obj );
          CheckError( newAttr != NULL );
          newItem->AddAttribute( newItem->AttributesCount( ), newAttr );  
          MString attrDataName = MString("Attr") + curAttr + "Data";
          std::vector< BYTE > attrData = obj.getBinaryAttr( attrDataName.asChar( ) );
          newAttr->AttributeData( )->SetData( &attrData[0], attrData.size( ) );
        }
        ++curAttr;
      }
      newItem->SetName( obj.getUnicodeName( ).c_str( ) );
      ExportObject( curChild, newItem );
    }
    catch( CException & )
    {
      SetMessage( L"Can't export element", ML_WARNING );
    }
  }
}
Re[3]: Ваши последние 20 строк кода
От: Mamut Швеция http://dmitriid.com
Дата: 17.03.05 10:19
Оценка:
Здравствуйте, Privalov, Вы писали:

P>Здравствуйте, Mamut, Вы писали:


P>А чего такая короткая-то? Вот в том проекте, где я сейчас занят, есть функции до 1500 строк...




Не, пока удается разбивать код на логические кусочки-функции. Правда ща намечается функция-монстр на пару сотен строчек точно

А извинения я принес потому, что просили 20 строчек, а я выкинул около сотни
... << RSDN@Home 1.1.4 beta 4 rev. 0>> ... <<Winamp is playing "Evanescence — Going Under">> ...


dmitriid.comGitHubLinkedIn
Re: Ваши последние 20 строк кода
От: DuШes  
Дата: 17.03.05 10:32
Оценка:
Здравствуйте, Нахлобуч, Вы писали:
[...]

аааа...бейте...

.........................................................................
        *   Позиция, с которйо начинается название бизнес-процесса
            lnPositionCut = RAT("][", pcParentID)
            IF lnPositionCut = 0
                RETURN NULL
            ENDIF
            
            
        *   Название бизнес-процесса
            lcUnitID = SUBSTR(pcParentID, lnPositionCut + 1)
            lcUnitID = SUBSTR(lcUnitID, 2 , LEN(lcUnitID) - 2)
        
        *   идентификатор родителя
            lcParentOfParentID = SUBSTR(pcParentID, 1, lnPositionCut)


            loCollection = This.p_oRulesOfPerformance.SearchByUniqueID(ALLTRIM(lcParentOfParentID), This.p_oRulesOfPerformance.GetNextState(NULL))
            IF NOT ISNULL(loCollection)
                loCollection = loCollection.Add(CREATEOBJECT("Unit", lcUnitID))
                RETURN loCollection.Add(CREATEOBJECT("Unit", pcUnitID))
            ELSE
            *   пошла гулять рекурсия
                RETURN This.AnalizeAndAddParents(lcParentOfParentID, lcUnitID)
            ENDIF
        ENDPROC
.........................................................................
Re: Ваши последние 20 строк кода
От: rus blood Россия  
Дата: 17.03.05 10:33
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

20 — так 20...
 ..........................
    /* Now we should re-order keywords, created from names of products.
       These keywords and their derived forms (canonical and templated)
       have spider_order value -1. */
"   FOR pro_rec IN "
"     (SELECT DISTINCT prk_pro_id FROM dd_sem_product_keyword "
"      WHERE prk_spider_order < 0) "
"   LOOP "
"     v_current_order := 0; "
      /* We should re-order keywords of the current product */
"     FOR pro_kwd_rec IN "
"       (SELECT prk_kwd_id FROM dd_sem_product_keyword "
"        WHERE prk_pro_id = pro_rec.prk_pro_id "
"        ORDER BY prk_active_product DESC) "
"     LOOP "
"       v_current_order := v_current_order + 1; "
"       UPDATE dd_sem_product_keyword "
"       SET prk_spider_order = v_current_order "
"       WHERE prk_pro_id = pro_rec.prk_pro_id AND "
"             prk_kwd_id = pro_kwd_rec.prk_kwd_id; "
"     END LOOP; "
"   END LOOP; "
......................
Имею скафандр — готов путешествовать!
Re[4]: Ваши последние 20 строк кода
От: Privalov  
Дата: 17.03.05 10:35
Оценка:
Здравствуйте, Mamut, Вы писали:


M>


Когда начинал в этом проекте работать, тоже так смотрел. Потом пытался выяснить, какую траву курили те, кто писал те функции. Думал, может если тоже курну, озарение снизойдет. Не вышло. Да и не курю я. А потом просто перестал обращать внимание.



M> Не, пока удается разбивать код на логические кусочки-функции. Правда ща намечается функция-монстр на пару сотен строчек точно


Блин, везет же людям!
Re: Ваши последние 20 строк кода
От: Владислав Россия  
Дата: 17.03.05 10:53
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


    CVerifier <MAPIError> hMapiVer;
    CVerifier <LogicError> bVer (pAmbFolder && pPstParentFolder &&
        strFolderName.length () && pEntryIdAmbFolder.GetLength ());

    CComPtr<IMAPIFolder> pPstFolder;
    if (!pFolderInPst)
    {
        bool bIsOpen;
        pPstFolder = CreateFolder (pPstParentFolder, strFolderName, bIsOpen, bCreateFolderOnly);

        SizedSPropTagArray(5, tag) = {5, { PR_CONTAINER_HIERARCHY, 
            PR_CONTAINER_CONTENTS, PR_FOLDER_ASSOCIATED_CONTENTS, PR_DISPLAY_NAME_W,
            PR_DISPLAY_NAME_A}};
        hMapiVer.SetMAPIProvider (pAmbFolder);
        hMapiVer = pAmbFolder -> CopyTo (0, NULL, reinterpret_cast<LPSPropTagArray>(&tag), 
            0, NULL, &IID_IMAPIFolder, pPstFolder, 0, NULL);
    }
    else
    {
        pPstFolder = pFolderInPst;

        SizedSPropTagArray(4, tag) = {4, { PR_DISPLAY_NAME_W, 
            PR_DISPLAY_NAME_A, PR_COMMENT_W, PR_COMMENT_A }};
        hMapiVer.SetMAPIProvider (pAmbFolder);
        //hMapiVer = pAmbFolder -> CopyProps (reinterpret_cast<LPSPropTagArray>(&tag), 
        //    0, NULL, &IID_IMAPIFolder, pPstFolder, 0, NULL);
        HRESULT hRes = pAmbFolder -> CopyProps (reinterpret_cast<LPSPropTagArray>(&tag), 
            0, NULL, &IID_IMAPIFolder, pPstFolder, 0, NULL);
        if (hRes != MAPI_E_COLLISION)
            hMapiVer = hRes;
    }

    hMapiVer = pPstFolder -> SaveChanges (KEEP_OPEN_READWRITE);
Suum cuique (лат.)
Re[2]: Ваши последние 20 строк кода
От: John1979  
Дата: 17.03.05 11:29
Оценка:
Здравствуйте, avbochagov, Вы писали:

A> var writer = new KodeksFormatHTMLWriter(stream);

а разве Codec пищется не через "c" в двух местах ?
Re: Ваши последние 20 строк кода
От: Andy_MAN Россия  
Дата: 17.03.05 11:44
Оценка:
Вотъ:

            if (isGridSetupCompleted) return;
            foreach(DataColumn dc in table.Columns)
            {
                UltraGridColumn col = grid.DisplayLayout.Bands[0].Columns[dc.ColumnName];
                ColumnDescriptor cd = refUIItem.GetColDescr(dc.ColumnName);
                if (cd != null)
                {
                    if (cd.IsReadOnly)
                        col.Layout.Override.AllowUpdate = DefaultableBoolean.False;
                    col.Header.Caption = cd.Caption;
                    col.Hidden = !cd.IsVisible;
                    if (cd.Values != null)
                    {
                        col.ValueList = cd.Values;
                        col.Style = ColumnStyle.DropDownValidate;
                    }
                    else if (cd.EditorGUID != Guid.Empty)
                    {
                        col.Style = ColumnStyle.EditButton;
                    }
                }
            }
            isGridSetupCompleted = true;
Re[2]: Ваши последние 20 строк кода
От: DMVB  
Дата: 17.03.05 11:44
Оценка:
фокспро?
Re[3]: Ваши последние 20 строк кода
От: V.Petrovski Беларусь  
Дата: 17.03.05 11:55
Оценка:
Здравствуйте, Real 3L0, Вы писали:

R3>О! Это то, что мне надо было!

R3>
Дарю. За пиво могу огранизовать тех поддержку
Re: Ваши последние 20 строк кода
От: Зверёк Харьковский  
Дата: 17.03.05 12:00
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


void tst_dbengine_read()
{
    BOOST_CHECKPOINT("open database");
    dbengine dbe( dbengine_test_path, dbengine::open_or_fail );

    BOOST_CHECKPOINT("tables creation");
    BOOST_CHECK(dbe.ensure_tables<test_class>());

    BOOST_CHECKPOINT("select by id");
    test_class t2;

    BOOST_CHECK(dbe.select<test_class>(tid, t2));

    BOOST_CHECK(t2.has("one"));
    BOOST_CHECK(t2.has("two"));
    BOOST_CHECK(t2.has("three"));
    BOOST_CHECK_EQUAL(t2["three"], "four");

    string_t test_array[] = {"one", "two", "four"};
    BOOST_CHECK_EQUAL_COLLECTIONS(t2.begin(), t2.end(), test_array);

    BOOST_CHECKPOINT("select by property");

    test_class t3;
    testid tid1;

    BOOST_REQUIRE(dbe.select<test_class>("one*", tid1, t3));
    BOOST_CHECK_EQUAL(tid1, tid);
    BOOST_CHECK(t3.has("one"));
    BOOST_CHECK(t3.has("two"));
    BOOST_CHECK(t3.has("three"));
    BOOST_CHECK_EQUAL(t3["three"], "four");

    BOOST_REQUIRE(dbe.select_next<test_class>(tid1, t3));
    BOOST_CHECK(tid1 != tid);
    BOOST_CHECK(t3.has("one-1"));
    BOOST_CHECK(t3.has("two-2"));
    BOOST_CHECK(t3.has("three-3"));
    BOOST_CHECK_EQUAL(t3["three-3"], "four-4");

    BOOST_CHECK(!dbe.select_next<test_class>(tid1, t3));
}
это мы, Зверьки!
FAQ — це мiй ай-кью!
Re: Ваши последние 20 строк кода
От: DMVB  
Дата: 17.03.05 12:01
Оценка:
class CSoapMultistringParam
{
public:
    CSoapMultistringParam(IAtlMemMgr *pMemMgr, int StrCount) 
    : m_pMemMgr(pMemMgr), m_StrCount(StrCount), m_Index(0)
    {
    ATLASSERT(StrCount > 0);
    m_pData = (BSTR *)pMemMgr->Allocate(m_StrCount * sizeof(BSTR));
    }
    ~CSoapMultistringParam()
    {
    AtlCleanupArray(m_pData, m_StrCount);
    m_pMemMgr->Free(m_pData);
    }
    HRESULT AddString(BSTR str)
    {
    if (m_Index == m_StrCount)
        return AtlHresultFromWin32(ERROR_INVALID_STATE);
    m_pData[m_Index] = ::SysAllocString(str);
    m_Index++;
    return S_OK;
    }
    int GetStringCount()
    {
    return m_StrCount;
    }
    operator BSTR* ()
    {
    return m_pData;
    }
private:
    IAtlMemMgr *m_pMemMgr;
    BSTR *m_pData;
    int m_StrCount;
    int m_Index;
};
Re[3]: Ваши последние 20 строк кода
От: DuШes  
Дата: 17.03.05 12:06
Оценка:
Здравствуйте, DMVB, Вы писали:

DMV>фокспро?


признаюсь ... грешен ...пока нет возможности перейти полностью на c#
Re: Ваши последние 20 строк кода
От: A_l_e_x_e_y Россия  
Дата: 17.03.05 12:10
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


ArrayList load_rubrics(string rubric_id, int type, OleDbConnection conn)
    {
        string query = string.Format("SELECT [Иерархия], [Классификатор].[Название], [Типы данных].[Название] AS [Тип данных], [Классификатор].[Код], [Вычисляемое] " +
                    "FROM [Классификатор] JOIN [Типы данных] ON [Типы данных].[Код] = [Классификатор].[Тип данных] WHERE [Иерархия] LIKE '{0}%' AND [Тип] = {1} ORDER BY [Иерархия]", rubric_id, type);
        OleDbDataAdapter adapter = new OleDbDataAdapter(query, conn);
        DataTable table = new DataTable();
        adapter.Fill(table);
        HierarchyTree tree = new HierarchyTree();
        tree.load_tree(table);
        if(tree.tree_nodes.Count == 0 || tree.root_nodes.Count == 0)
            return null;
        TreeNode root_node = (TreeNode)tree.root_nodes[0];
        ArrayList nodes = new ArrayList();

        if(root_node.child_nodes.Count == 0)
            nodes.Add(root_node);
        else
            nodes.AddRange(root_node.child_nodes);
                        
        return nodes;
    }
... << RSDN@Home 1.1.4 beta 4 rev. 0>>
Re[2]: Ваши последние 20 строк кода
От: anidal  
Дата: 17.03.05 12:15
Оценка:
Здравствуйте, A_l_e_x_e_y, Вы писали:

A__>Здравствуйте, Нахлобуч, Вы писали:


Н>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют



pAT91PS_PIOB->PIO_PER=AT91C_PIO_PB5|AT91C_PIO_PB28|AT91C_PIO_PB29;
pAT91PS_PIOA->PIO_PER=AT91C_PIO_PA23;

pAT91PS_PIOB->PIO_OER=AT91C_PIO_PB5;
pAT91PS_PIOB->PIO_PPUDR=AT91C_PIO_PB5;
pAT91PS_PIOB->PIO_CODR=AT91C_PIO_PB5;

pAT91PS_PIOA->PIO_PER=AT91C_PIO_PA23;
pAT91PS_PIOA->PIO_ODR=AT91C_PIO_PA23;
pAT91PS_PIOA->PIO_IFDR=AT91C_PIO_PA23;
pAT91PS_PIOA->PIO_CODR=AT91C_PIO_PA23;
pAT91PS_PIOA->PIO_IDR=AT91C_PIO_PA23;
pAT91PS_PIOA->PIO_MDDR=AT91C_PIO_PA23;
pAT91PS_PIOA->PIO_PPUER=AT91C_PIO_PA23;
pAT91PS_PIOA->PIO_OWDR=AT91C_PIO_PA23;

pAT91PS_PIOB->PIO_PER=AT91C_PIO_PB28|AT91C_PIO_PB29;
pAT91PS_PIOB->PIO_ODR=AT91C_PIO_PB28|AT91C_PIO_PB29;
pAT91PS_PIOB->PIO_IFDR=AT91C_PIO_PB28|AT91C_PIO_PB29;
pAT91PS_PIOB->PIO_CODR=AT91C_PIO_PB28|AT91C_PIO_PB29;
pAT91PS_PIOB->PIO_IDR=AT91C_PIO_PB28|AT91C_PIO_PB29;
pAT91PS_PIOB->PIO_MDDR=AT91C_PIO_PB28|AT91C_PIO_PB29;
pAT91PS_PIOB->PIO_PPUER=AT91C_PIO_PB28|AT91C_PIO_PB29;
pAT91PS_PIOB->PIO_OWDR=AT91C_PIO_PB28|AT91C_PIO_PB29;

Комментарии на русском к сожалению нечитаемы
Re[4]: Ваши последние 20 строк кода
От: DMVB  
Дата: 17.03.05 12:30
Оценка:
Здравствуйте, DuШes, Вы писали:

DШ>Здравствуйте, DMVB, Вы писали:


DMV>>фокспро?


DШ>признаюсь ... грешен ...пока нет возможности перейти полностью на c#


А я так иногда ностальгирую по тем временам, когда приходилось на 2.6 for DOS Сбербанк асучивать.
Re[5]: Ваши последние 20 строк кода
От: DuШes  
Дата: 17.03.05 12:33
Оценка:
Здравствуйте, DMVB, Вы писали:

DMV>Здравствуйте, DuШes, Вы писали:


DШ>>Здравствуйте, DMVB, Вы писали:


DMV>>>фокспро?


DШ>>признаюсь ... грешен ...пока нет возможности перейти полностью на c#


DMV>А я так иногда ностальгирую по тем временам, когда приходилось на 2.6 for DOS Сбербанк асучивать.


ндя...меня до сих пор клиенты беспокоят, сделай им то да это...одна из таких прог работает с 97 года, щас вот на 9м фоксе пишу, надеюсь — это последний проект на нем, а то некогда даже вплотную заняться .NET
Re[6]: Ваши последние 20 строк кода
От: Privalov  
Дата: 17.03.05 12:35
Оценка:
Здравствуйте, Mamut, Вы писали:

M>Везет, что я один на всем проекте Хоть и не очень маленьком. Так что контроль — полностью в моих руках. Еще его бы не растерять...


M>А в прошлом году с двумя друзьями работал — ууу. Они тоже, вроде, не курили, но код писали


А в моем проекте раньше код целая толпа писала, а сейчас я один остался. Считается, что проект скоро умрет (по крайней мере, последние 2 года только об этом и говорят), однако время от времени наступают критические дни, когда нужно дописать что-то новое или поменять что-то старое. Вызовешь, бывает, функцию, а она такие побочные эффекты кидает...
Но, по крайней мере, в своем коде стараюсь быть аккуратным. Во всяком случае мне удается понять свои функции, написанные месяц-другой назад. А в чужих оставляю следы в виде развернутых комментариев.
Re[7]: Ваши последние 20 строк кода
От: Mamut Швеция http://dmitriid.com
Дата: 17.03.05 12:44
Оценка:
M>>А в прошлом году с двумя друзьями работал — ууу. Они тоже, вроде, не курили, но код писали

P>А в моем проекте раньше код целая толпа писала, а сейчас я один остался. Считается, что проект скоро умрет (по крайней мере, последние 2 года только об этом и говорят), однако время от времени наступают критические дни, когда нужно дописать что-то новое или поменять что-то старое. Вызовешь, бывает, функцию, а она такие побочные эффекты кидает...


Искренне сочувствую. Помню, сидел, мучился над чужим кодом. Потом плюнул и все переписал по-своему. Правда, тогда времени было хоть отбавляй.

P>Но, по крайней мере, в своем коде стараюсь быть аккуратным. Во всяком случае мне удается понять свои функции, написанные месяц-другой назад. А в чужих оставляю следы в виде развернутых комментариев.


Наш человек
... << RSDN@Home 1.1.4 beta 4 rev. 0>> ... <<Winamp is playing "Robbie Williams — Rock DJ">> ...


dmitriid.comGitHubLinkedIn
Re[2]: Ваши последние 20 строк кода
От: Mamut Швеция http://dmitriid.com
Дата: 17.03.05 12:44
Оценка:
Тяжка судьба у модератора
... << RSDN@Home 1.1.4 beta 4 rev. 0>> ... <<Winamp is playing "Robbie Williams — Rock DJ">> ...


dmitriid.comGitHubLinkedIn
Re: Ваши последние 20 строк кода
От: Oyster Украина https://github.com/devoyster
Дата: 17.03.05 12:53
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


PopupRenderer.prototype._setItemsRule = function(rewriteRule)
{
    var ruleSelector = "#itemsDiv div";
    
    // Create rule (with styles merging element) if it's empty
    if (this._itemCssRule == null) {
        // Get/create stylesheet (always the first one)
        var popupDoc = this._popupDoc;
        if (popupDoc == null) return;
        var styleSheets = popupDoc.styleSheets;
        var styleSheet = styleSheets.length != 0 ? styleSheets[0] : popupDoc.createStyleSheet();
        
        // Сreate new rule
        styleSheet.addRule(ruleSelector, "cursor:default", 0);
        this._itemCssRule = styleSheet.rules[0];
    } else if (!rewriteRule) {
        // Rule is already created and mustn't be rewritten
        return;
    }
    
    // Set rule CSS text
    this._itemCssRule.style.cssText = this.itemCssText;
    this._itemCssRule.style.cursor  = "default";
};
Re[8]: Ваши последние 20 строк кода
От: Privalov  
Дата: 17.03.05 13:00
Оценка:
Здравствуйте, Mamut, Вы писали:


M>Искренне сочувствую. Помню, сидел, мучился над чужим кодом. Потом плюнул и все переписал по-своему. Правда, тогда времени было хоть отбавляй.


А мне не дают переписать. То что работает — священно.

P>>Но, по крайней мере, в своем коде стараюсь быть аккуратным. Во всяком случае мне удается понять свои функции, написанные месяц-другой назад. А в чужих оставляю следы в виде развернутых комментариев.


M> Наш человек


Спасибо. Стараюсь оправдывать оказанное мне высокое доверие. По крайней мере надеюсь, что те, кто наставляли меня на путь истинный, не краснеют за меня.
Однако, если в минуту отдыха после нескольких часов копания в коде, вылезу пообщаться, такую белиберду иногда несу — самому страшно становится...
Re: Ваши последние 20 строк кода
От: Слава Шевцов Россия http://www.rentaguru.ru/
Дата: 17.03.05 13:04
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


    Sub LoadRegionList ( okrugId$ )
        Dim view As NotesView
        Dim doc As NotesDocument
        
        Set view = m_dbClassificator.GetView ( "(Regions)" )
        view.Refresh
        
        Redim m_arrayRegionNames ( view.EntryCount - 1 ) As String
        Redim m_arrayRegionIds ( view.EntryCount - 1 ) As String
        Redim m_arrayRegionOkrug ( view.EntryCount - 1 ) As String
        
        Set doc = view.GetFirstDocument
        While Not ( doc Is Nothing )
            If okrugId$ = "" Or doc.okrug ( 0 ) = okrugId$ Then
                m_arrayRegionNames ( cb% ) = doc.nameReg ( 0 )
                m_arrayRegionIds ( cb% ) = doc.codReg ( 0 )
                m_arrayRegionOkrug ( cb% ) = doc.Okrug ( 0 )
                m_listOkrug ( doc.Okrug ( 0 ) ) = doc.Okrug ( 0 )
                cb% = cb% + 1
            End If
            
            Set doc = view.GetNextDocument ( doc )
        Wend
        
        If okrugId$ <> "" Then
            Redim Preserve m_arrayRegionNames ( cb% - 1 ) As String
            Redim Preserve m_arrayRegionIds ( cb% - 1 ) As String
            Redim Preserve m_arrayRegionOkrug ( cb% - 1 ) As String
        End If
    End Sub
----------------------------------------------------------------------------------------------
Rentaguru
Re: Ваши последние 20 строк кода
От: Abalak США  
Дата: 17.03.05 13:13
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


// Если все ок - оплачиваем покупку номера
if (parResult.Value.ToString() == "1")
{
    SqlCommand cmdBil_StartAccounting = new SqlCommand("bil_StartAccounting", con);
        cmdBil_StartAccounting.CommandType = CommandType.StoredProcedure;
    cmdBil_StartAccounting.Parameters.Add("@AccountID", ((dbConnector)Session["tds"]).User);
    cmdBil_StartAccounting.Parameters.Add("@ServiceCode", serviceCode);
    cmdBil_StartAccounting.Parameters.Add("@Params", parParams.Value.ToString());
    cmdBil_StartAccounting.Parameters.Add("@CurrentTime", DateTime.Now);
    cmdBil_StartAccounting.Parameters.Add("@Parameters", number);
    SqlParameter parResultBuy = cmdBil_StartAccounting.Parameters.Add("@Result", SqlDbType.Decimal);
    parResultBuy.Direction = ParameterDirection.Output;

    cmdBil_StartAccounting.ExecuteNonQuery();

    // Делаем новую запись в account_numbers
    tdsMts.account_numbersRow newRow = ((dbConnector)Session["tds"]).Tds.account_numbers.Newaccount_numbersRow();
                    
    newRow.accounts_id = Int32.Parse(((dbConnector)Session["tds"]).User);
    newRow.country_code = numberRow.country_code;
    newRow.city_code = numberRow.city_code;
    newRow.number = numberRow.number.Replace(" ", "").Replace("-", "");
    newRow.state = false;

    ((dbConnector)Session["tds"]).Tds.account_numbers.Addaccount_numbersRow(newRow);
    ((dbConnector)Session["tds"]).UpdateToDb();

    // Резервируем номер
    numberRow.reserved = Int32.Parse(((dbConnector)Session["tds"]).User);
    numberRow.reason = 1; // Код покупки номера
    pd.UpdateToDb();
}
Re[9]: Ваши последние 20 строк кода
От: Mamut Швеция http://dmitriid.com
Дата: 17.03.05 13:15
Оценка:
M>> Наш человек

P>Спасибо. Стараюсь оправдывать оказанное мне высокое доверие.




P>По крайней мере надеюсь, что те, кто наставляли меня на путь истинный, не краснеют за меня.

P>Однако, если в минуту отдыха после нескольких часов копания в коде, вылезу пообщаться, такую белиберду иногда несу — самому страшно становится...

Я под конец дня человеческим языком вообще почти не могу общаться. В наушниках — что-то поют на японском, на экране — С++, вслух в течение дня почти не разговариваю. Тяжко...
... << RSDN@Home 1.1.4 beta 4 rev. 0>> ... <<Winamp is playing "Robbie Williams — Knutsford City Limits">> ...


dmitriid.comGitHubLinkedIn
Re: Ваши последние 20 строк кода
От: poilk  
Дата: 17.03.05 14:10
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


dim a[20];
a[1] = 1;
a[2] = 2;
a[3] = 3;
a[4] = 4;
a[5] = 5;
a[6] = 6;
a[7] = 7;
a[8] = 8;
a[9] = 9;
a[10] = 10;
a[11] = 11;
a[12] = 12;
a[13] = 13;
a[14] = 14;
a[15] = 15;
a[16] = 16;
a[17] = 17;
a[18] = 18;
a[19] = 19;
a[20] = 20;

Re[2]: Ваши последние 20 строк кода
От: korzhik Россия  
Дата: 17.03.05 14:24
Оценка:
Здравствуйте, poilk, Вы писали:

P>dim a[20];
P>a[1] = 1;
P>a[2] = 2;
P>a[3] = 3;
P>a[4] = 4;
P>a[5] = 5;
P>a[6] = 6;
P>a[7] = 7;
P>a[8] = 8;
P>a[9] = 9;
P>a[10] = 10;
P>a[11] = 11;
P>a[12] = 12;
P>a[13] = 13;
P>a[14] = 14;
P>a[15] = 15;
P>a[16] = 16;
P>a[17] = 17;
P>a[18] = 18;
P>a[19] = 19;
P>a[20] = 20;


Эххх...
Кто ж так пишет то.
Надо так:
#include <boost/iterator/counting_iterator.hpp>
#include <algorithm>

template<size_t N>
void fill_array(int (&arr)[N])
{
  std::copy(boost::counting_iterator<int>(0), boost::counting_iterator<int>(N), arr);
}

int main()
{
  int a[20];

  fill_array(a);
}


Re[3]: Ваши последние 20 строк кода
От: poilk  
Дата: 17.03.05 14:31
Оценка:
Здравствуйте, korzhik, Вы писали:

K>Здравствуйте, poilk, Вы писали:


K>
P>>dim a[20];
P>>a[1] = 1;
P>>a[2] = 2;
P>>a[3] = 3;
P>>a[4] = 4;
P>>a[5] = 5;
P>>a[6] = 6;
P>>a[7] = 7;
P>>a[8] = 8;
P>>a[9] = 9;
P>>a[10] = 10;
P>>a[11] = 11;
P>>a[12] = 12;
P>>a[13] = 13;
P>>a[14] = 14;
P>>a[15] = 15;
P>>a[16] = 16;
P>>a[17] = 17;
P>>a[18] = 18;
P>>a[19] = 19;
P>>a[20] = 20;
K>


K>Эххх...

K>Кто ж так пишет то.
K>Надо так:
K>
K>#include <boost/iterator/counting_iterator.hpp>
K>#include <algorithm>

K>template<size_t N>
K>void fill_array(int (&arr)[N])
K>{
K>  std::copy(boost::counting_iterator<int>(0), boost::counting_iterator<int>(N), arr);
K>}

K>int main()
K>{
K>  int a[20];

K>  fill_array(a);
K>}
K>


K>


ну ладно, для тех, кто не понял:

dim a[5,4];
a[1,1]=1
a[1,2]=2
a[1,3]=3
a[1,4]=4
a[2,1]=5
a[2,2]=6
a[2,3]=7
a[2,4]=8
a[3,1]=9
a[3,2]=10
a[3,3]=11
a[3,4]=12
a[4,1]=13
a[4,2]=14
a[4,3]=15
a[4,4]=16
a[5,1]=17
a[5,2]=18
a[5,3]=19
a[5,4]=20
Re[3]: Ваши последние 20 строк кода
От: Слава Шевцов Россия http://www.rentaguru.ru/
Дата: 17.03.05 14:36
Оценка:
Здравствуйте, korzhik, Вы писали:

K>Здравствуйте, poilk, Вы писали:


K>
P>>dim a[20];
P>>a[1] = 1;
P>>...
P>>a[20] = 20;
K>


K>Эххх...

K>Кто ж так пишет то.

K>Надо так:

K>
K>template<size_t N>
K>void fill_array(int (&arr)[N])
K>{
K>  std::copy(boost::counting_iterator<int>(0), boost::counting_iterator<int>(N), arr);
K>}
K>


Переписать Бейсик на С++? Вот сижу сейчас, пишу в Lotus Notes на Lotus Script (специализированный VB), плююсь и ничиго не могу поделать — ну нет встроенного С++ в Lotus Notes. Есть там Java, но заказчика он не интересует
----------------------------------------------------------------------------------------------
Rentaguru
Re[4]: Ваши последние 20 строк кода
От: Слава Шевцов Россия http://www.rentaguru.ru/
Дата: 17.03.05 15:19
Оценка:
Здравствуйте, jhfrek, Вы писали:

M>>Тяжка судьба у модератора


J>Пусть радуется что он не модератор ru.anecdot. А то пришел бы в компанию, а там все рассказывают анекдоты из FAQa


Зато известно что ему дарить на день варенья. Баян.
----------------------------------------------------------------------------------------------
Rentaguru
Re[5]: Ваши последние 20 строк кода
От: jhfrek Россия  
Дата: 17.03.05 15:24
Оценка:
Здравствуйте, Слава Шевцов, Вы писали:

J>>Пусть радуется что он не модератор ru.anecdot. А то пришел бы в компанию, а там все рассказывают анекдоты из FAQa


СШ>Зато известно что ему дарить на день варенья. Баян.


А на второй год? Если снова баян, то это уже будет баян в квадрате
Re[6]: Ваши последние 20 строк кода
От: Слава Шевцов Россия http://www.rentaguru.ru/
Дата: 17.03.05 15:29
Оценка:
Здравствуйте, jhfrek, Вы писали:

J>>>Пусть радуется что он не модератор ru.anecdot. А то пришел бы в компанию, а там все рассказывают анекдоты из FAQa


СШ>>Зато известно что ему дарить на день варенья. Баян.


J>А на второй год? Если снова баян, то это уже будет баян в квадрате


Это будет коллекция баянов
----------------------------------------------------------------------------------------------
Rentaguru
Re[8]: Ваши последние 20 строк кода
От: BiТ  
Дата: 17.03.05 15:48
Оценка:
Здравствуйте, jhfrek, Вы писали:

J>Здравствуйте, Слава Шевцов, Вы писали:


J>Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.


А где вы такую красивую каску купили ?
Re: Ваши последние 20 строк кода
От: Stas1981 Россия http://www.rsdn.ru/
Дата: 17.03.05 15:49
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


Здесь:

http://www.script-debugger.com/temp/anidog.zip

void CAniDogDlg::OnTimer(UINT nIDEvent)
{
CDialog::OnTimer(nIDEvent);

if (nIDEvent == UPD_TIMER)
{
int CurPict = m_CurPict;
m_CurPict++;
if (m_CurPict == m_pPictsCount)
m_CurPict = 0;

HRGN hrgn = CreateRectRgn(0, 0, 0, 0);
int regionType = GetWindowRgn(hrgn);
if (regionType != ERROR)
m_pPicts[CurPict].m_hRgn = hrgn;
else
MessageBox("Can't GetWindowRgn()!");

// assign region to window
SetWindowRgn(m_pPicts[m_CurPict].m_hRgn, TRUE);
Invalidate();
}
}
Стас
Re[2]: Ваши последние 20 строк кода
От: Нахлобуч Великобритания https://hglabhq.com
Дата: 17.03.05 16:11
Оценка:
Здравствуйте, Andir, Вы писали:

<>

А это на чем?
HgLab: Mercurial Server and Repository Management for Windows
Re[2]: Ваши последние 20 строк кода
От: Нахлобуч Великобритания https://hglabhq.com
Дата: 17.03.05 16:11
Оценка:
Здравствуйте, Real 3L0, Вы писали:

R3>У тебя там ошибка.


Хде?
HgLab: Mercurial Server and Repository Management for Windows
Re: Ваши последние 20 строк кода
От: ozone.km Россия  
Дата: 17.03.05 16:55
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

    select     ItemId, 
        CatId,
        Type,
        OrderBy,
        ItemName,
        CellColor,
        BorderStyle,
        CheckStatusName,
        ResultStatusName,
        Repairs
    from (
        select     IC.tintOrder as OrderBy,
            IC.[Id] as ItemId,
            IC.[Id] as CatId,
            0 as Type,
            IC.vchName as ItemName,
            '#CCCCCC' as CellColor,
            'None' as BorderStyle,
            '' as CheckStatusName,
            '' as ResultStatusName,
            '' as Repairs
        from InspectCats IC
        inner join WorkOrderInspections WOI
        on WOI.[Id] = @InspectId
        and WOI.OrgId = @OrgId
        and IC.[InspectId] = WOI.InspectId
        and IC.OrgId = WOI.OrgId
        union all
         select     II.tintOrder as OrderBy,
            II.[Id] as ItemId,
            II.InspectCatId as CatId,
            1 as Type,
            II.vchDesc as ItemName,
            '#FFFFFF' as CellColor,
            'Solid' as BorderStyle,
            isnull(SC.vchDesc, 'Unchecked') as CheckStatusName,
            case when isnull(WII.ServiceCheckId, 0) <> 3
                    then ''
                    else isnull(SR.vchDesc, 'No result')
            end as ResultStatusName,
            isnull(t2.tbl_list, '') as Repairs
        from WorkOrderInspectItems WII
        inner join InspectionItems II
        on WII.WorkOrderInspectId = @InspectId
        and WII.WorkOrderId = @OrderId
        and WII.OrgId = @OrgId
        and WII.ItemId = II.[Id]
        and WII.OrgId = II.OrgId
        left outer join ServiceChecks SC
        on SC.[Id] = WII.ServiceCheckId
        left outer join ServiceResults SR
        on SR.[Id] = WII.ServiceResultId
        left outer join @tbl2 t2
        on WII.RepairItemId = t2.tbl_ItemId
        ) G
    order by G.[CatId], G.Type, G.OrderBy asc
Re[2]: Ваши последние 20 строк кода
От: Нахлобуч Великобритания https://hglabhq.com
Дата: 17.03.05 19:10
Оценка:
Здравствуйте, Jenyay, Вы писали:

J>Почему последние?


Как у вас с экстремальными видами спорта ?
Хотел "крайние" написать, но чего-то подумал, что недопоймут
HgLab: Mercurial Server and Repository Management for Windows
Re[10]: Ваши последние 20 строк кода
От: Mamut Швеция http://dmitriid.com
Дата: 17.03.05 19:48
Оценка:
BiТ>>А где вы такую красивую каску купили ?

J>Почему каску? Это же героин — достаточно и половины дозы (с)


Ну вот, а я только хотел спросить, откуда такая трава берется


dmitriid.comGitHubLinkedIn
Re[11]: Ваши последние 20 строк кода
От: Слава Шевцов Россия http://www.rentaguru.ru/
Дата: 17.03.05 19:55
Оценка:
Здравствуйте, Mamut, Вы писали:

BiТ>>>А где вы такую красивую каску купили ?


J>>Почему каску? Это же героин — достаточно и половины дозы (с)


M>Ну вот, а я только хотел спросить, откуда такая трава берется


Из Интернета, вестимо. Интернет-засисимость сильная штука. Что тут было, пока rsdn чинили...
----------------------------------------------------------------------------------------------
Rentaguru
Re: Ваши последние 20 строк кода
От: Poisson Россия  
Дата: 17.03.05 20:00
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

DaysConverter methodsFor: 'accessing'

dateHolder: aValueHolder
    dateHolder := aValueHolder 

DaysConverter methodsFor: 'converting'

convertDay: aDay
    | result |
    result := aDay - self date weekdayIndex + 1.
    result := result > self date daysInMonth
        ifTrue: [result - self date daysInMonth]
        ifFalse: [result].
    ^result <= 0
        ifTrue: [result + self date daysInPreviousMonth]
        ifFalse: [result].

dateFromDay: aDay
    | key date day |
    key := aDay - self date weekdayIndex + 1.
    date := dateHolder value.
    day := self convertDay: aDay.
    key <= 0 ifTrue: [^date asPreviousMonthDay: day].
    key > self date daysInMonth ifTrue: [^date asNextMonthDay: day].
    ^date asCurrentMonthDay: day. 

DaysConverter methodsFor: 'testing'

isMonthDay: aDay
    ^(self dateFromDay: aDay) monthIndex = self date monthIndex. 

DaysConverter methodsFor: 'private'

date
    ^Date monthNumber: dateHolder value monthIndex year: dateHolder value year
... << RSDN@Home 1.1 beta 2 >>
Re[2]: Ваши последние 20 строк кода
От: ozone.km Россия  
Дата: 17.03.05 21:02
Оценка:
Здравствуйте, Poisson, Вы писали:

Это что за язык?
Re[2]: Ваши последние 20 строк кода
От: Real 3L0 Россия http://prikhodko.blogspot.com
Дата: 18.03.05 02:30
Оценка:
Здравствуйте, oldskool, Вы писали:

O>[asm]


А где коментарии?
... << RSDN@Home 1.1.4 beta 4 rev. 302>>
Вселенная бесконечна как вширь, так и вглубь.
Re[8]: Ваши последние 20 строк кода
От: Костя Ещенко Россия  
Дата: 18.03.05 04:05
Оценка:
Здравствуйте, jhfrek, Вы писали:

J>>>А на второй год? Если снова баян, то это уже будет баян в квадрате


СШ>>Это будет коллекция баянов


J>Спорный вопрос.


J>Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.


Это недопустимо. Если множество может содержать само себя, то такая система будет противоречива. Таким образом на очередной День рождения модератор может сойти с ума.
На самом деле, люди не читают газеты, они принимают их каждое утро, так же как ванну. ©Маршалл Мак-Льюэн
Re[3]: Ваши последние 20 строк кода
От: Shire  
Дата: 18.03.05 04:33
Оценка:
Здравствуйте, John1979, Вы писали:

A>> var writer = new KodeksFormatHTMLWriter(stream);

J>а разве Codec пищется не через "c" в двух местах ?

Есть ещё информационная правовая система "Кодекс"
Re[3]: Ваши последние 20 строк кода
От: Andir Россия
Дата: 18.03.05 04:36
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>А это на чем?


Скриптовый язык WikiTalk для FlexWiki ... Мощная вещица

C Уважением, Andir!
Re: Ваши последние 20 строк кода
От: БСС Россия  
Дата: 18.03.05 04:39
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


(* Sel с выбором 0 или >0

Используеться в выборе управления (Дист, Жестк, Автом) *)
FUNCTION_BLOCK Mega_Sel

VAR_IN_OUT
IN1_0 : REAL;
(* In: Флаг выбора *)
SEL_1 : REAL;
(* Out: Выход *)
IN0_1 : REAL;
(* In: Если == 0 *)
IN1_1 : REAL;
(* In: Если > 0 *)
END_VAR

VAR_CONSTANT
IN2_0 : REAL := 0;
(* Const: 0 *)
END_VAR

VAR
GT_0 : USINT;
END_VAR

GT_0 := GT(0,IN1_0,IN2_0);
SEL_1 := SEL(0,GT_0,IN0_1,IN1_1);

FUNCTION_BLOCK_END
... << RSDN@Home 1.1.4 beta 4 rev. 303>>

Re[9]: Ваши последние 20 строк кода
От: Mr. None Россия http://mrnone.blogspot.com
Дата: 18.03.05 04:47
Оценка:
Здравствуйте, Костя Ещенко, Вы писали:

КЕ>Здравствуйте, jhfrek, Вы писали:


J>>>>А на второй год? Если снова баян, то это уже будет баян в квадрате


СШ>>>Это будет коллекция баянов


J>>Спорный вопрос.


J>>Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.


КЕ>Это недопустимо. Если множество может содержать само себя, то такая система будет противоречива. Таким образом на очередной День рождения модератор может сойти с ума.


Ну почему? Нулевое множество может содержать само себя и не создавать при этом парадокса. Достаточно просто сделать так чтобы множество баянов стало пустым, то есть выкинуть их все нафиг, бросить эту работу и пойти искать ту траву, которую курил автор изначального поста.
Компьютер сделает всё, что вы ему скажете, но это может сильно отличаться от того, что вы имели в виду.
Re[10]: Ваши последние 20 строк кода
От: Костя Ещенко Россия  
Дата: 18.03.05 05:08
Оценка:
Здравствуйте, Mr. None, Вы писали:

J>>>>>А на второй год? Если снова баян, то это уже будет баян в квадрате


СШ>>>>Это будет коллекция баянов


J>>>Спорный вопрос.


J>>>Каждый последующий баян, являясь баяном по сути, будет так же являтся баяном с точки зрения повторения подарка. Таким образом баяны как физические объекты будут действительно образовывать коллекцию, но метафизически — это будет иерархическая структура, в которой каждый элемент, кроме первого, будет являтся баяном по отношению к оставшимся, включая, кстати, самого себя.


КЕ>>Это недопустимо. Если множество может содержать само себя, то такая система будет противоречива. Таким образом на очередной День рождения модератор может сойти с ума.


MN>Ну почему? Нулевое множество может содержать само себя и не создавать при этом парадокса. Достаточно просто сделать так чтобы множество баянов стало пустым, то есть выкинуть их все нафиг, бросить эту работу и пойти искать ту траву, которую курил автор изначального поста.


Похоже это единственный выход для Flamera
На самом деле, люди не читают газеты, они принимают их каждое утро, так же как ванну. ©Маршалл Мак-Льюэн
Re[3]: Ваши последние 20 строк кода
От: Poisson Россия  
Дата: 18.03.05 06:11
Оценка:
Здравствуйте, ozone.km, Вы писали:

OK>Здравствуйте, Poisson, Вы писали:


OK>Это что за язык?

Smalltalk
... << RSDN@Home 1.1 beta 2 >>
Re[10]: Ваши последние 20 строк кода
От: Костя Ещенко Россия  
Дата: 18.03.05 06:15
Оценка:
Здравствуйте, Mr. None, Вы писали:

MN>Ну почему? Нулевое множество может содержать само себя и не создавать при этом парадокса. Достаточно просто сделать так чтобы множество баянов стало пустым, то есть выкинуть их все нафиг, бросить эту работу и пойти искать ту траву, которую курил автор изначального поста.


Вот подумалось — пустое множество ничего не содержит по определению. Так что это тоже парадокс.
На самом деле, люди не читают газеты, они принимают их каждое утро, так же как ванну. ©Маршалл Мак-Льюэн
Re[2]: Ваши последние 20 строк кода
От: DuШes  
Дата: 18.03.05 06:18
Оценка:
Здравствуйте, БСС, Вы писали:

БСС>Здравствуйте, Нахлобуч, Вы писали:


Н>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


[...]

имхо...нечитаемый язык...
Re[4]: Ваши последние 20 строк кода
От: John1979  
Дата: 18.03.05 06:57
Оценка:
Здравствуйте, Shire, Вы писали:

S>Здравствуйте, John1979, Вы писали:


A>>> var writer = new KodeksFormatHTMLWriter(stream);

J>>а разве Codec пищется не через "c" в двух местах ?

S>Есть ещё информационная правовая система "Кодекс" :)

тогда вообще Codex :)))
ну да это не особо важно конечно
Re[3]: Ваши последние 20 строк кода
От: Real 3L0 Россия http://prikhodko.blogspot.com
Дата: 18.03.05 07:00
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Хде?


Ну вот и ты полезным делом занялся.
... << RSDN@Home 1.1.4 beta 4 rev. 302>>
Вселенная бесконечна как вширь, так и вглубь.
Re[2]: Ваши последние 20 строк кода
От: Real 3L0 Россия http://prikhodko.blogspot.com
Дата: 18.03.05 07:00
Оценка:
Здравствуйте, Flamer, Вы писали:

F>Мои — вот они:


Какие у нас модеры производительные, как автоматы: по 2 секунды на сообщение. И всё быстрее и быстрее. Скоро будет закинешь пост, захочешь удалить как ошибочный, а его уже и нет.
... << RSDN@Home 1.1.4 beta 4 rev. 302>>
Вселенная бесконечна как вширь, так и вглубь.
Re[4]: Ваши последние 20 строк кода
От: Real 3L0 Россия http://prikhodko.blogspot.com
Дата: 18.03.05 07:00
Оценка:
Здравствуйте, Рома Мик, Вы писали:

РМ>Похоже на паскаль, я правда давно паскаля не видал...


У паскаля есть ;
... << RSDN@Home 1.1.4 beta 4 rev. 302>>
Вселенная бесконечна как вширь, так и вглубь.
Re[12]: Ваши последние 20 строк кода
От: Mamut Швеция http://dmitriid.com
Дата: 18.03.05 07:23
Оценка:
BiТ>>>>А где вы такую красивую каску купили ?

J>>>Почему каску? Это же героин — достаточно и половины дозы (с)


M>>Ну вот, а я только хотел спросить, откуда такая трава берется


СШ>Из Интернета, вестимо. Интернет-засисимость сильная штука. Что тут было, пока rsdn чинили...


Нууу... Это я очень живо помню
Автор: retn
Дата: 07.02.05
... << RSDN@Home 1.1.4 beta 4 rev. 0>> ... <<Winamp is playing "Что играет? Где играет? Где ВинАмп, я вас спрашиваю?">> ...


dmitriid.comGitHubLinkedIn
Re[11]: Ваши последние 20 строк кода
От: jhfrek Россия  
Дата: 18.03.05 08:06
Оценка:
Здравствуйте, Костя Ещенко, Вы писали:

MN>>Ну почему? Нулевое множество может содержать само себя и не создавать при этом парадокса. Достаточно просто сделать так чтобы множество баянов стало пустым, то есть выкинуть их все нафиг, бросить эту работу и пойти искать ту траву, которую курил автор изначального поста.


КЕ>Похоже это единственный выход для Flamera


Ну, значит жду Flamera в гости траву курить
Re[4]: Ваши последние 20 строк кода
От: Real 3L0 Россия http://prikhodko.blogspot.com
Дата: 18.03.05 08:11
Оценка:
Здравствуйте, oldskool, Вы писали:

O>Смотрите внимательнее


Извиняюсь.
Тогда почему подсветка не правильная?
... << RSDN@Home 1.1.4 beta 4 rev. 302>>
Вселенная бесконечна как вширь, так и вглубь.
Re[5]: Ваши последние 20 строк кода
От: oldskool Россия  
Дата: 18.03.05 08:22
Оценка:
Здравствуйте, Real 3L0, Вы писали:

R3>Тогда почему подсветка не правильная?


Насколько я понимаю, потому, что движок форума никаких других асмов, кроме x86, не знает
Re[11]: Ваши последние 20 строк кода
От: Mr. None Россия http://mrnone.blogspot.com
Дата: 18.03.05 10:13
Оценка:
Здравствуйте, Костя Ещенко, Вы писали:

КЕ>Здравствуйте, Mr. None, Вы писали:


MN>>Ну почему? Нулевое множество может содержать само себя и не создавать при этом парадокса. Достаточно просто сделать так чтобы множество баянов стало пустым, то есть выкинуть их все нафиг, бросить эту работу и пойти искать ту траву, которую курил автор изначального поста.


КЕ>Вот подумалось — пустое множество ничего не содержит по определению.

Поэтому над пустым множеством можно совершать любые операции — результат всегда будет нулевой . Это один из важных принципов теории множеств...

Кроме того, кстати, любое множество содержит само себя вместе со своими границами. Так что в любом случае нет никакого парадокса...
Компьютер сделает всё, что вы ему скажете, но это может сильно отличаться от того, что вы имели в виду.
Re[12]: Ваши последние 20 строк кода
От: Mr. None Россия http://mrnone.blogspot.com
Дата: 18.03.05 10:21
Оценка:
Здравствуйте, Mr. None, Вы писали:

MN>Здравствуйте, Костя Ещенко, Вы писали:


MN>Кроме того, кстати, любое множество содержит само себя вместе со своими границами. Так что в любом случае нет никакого парадокса...


Продолжая тему... Парадокс можно описать так...
Допустим множество A содержит множество B со всеми границами и существует такое непустое множество X, для которого справедливо: X содержится в A, пересечение X и B — нулевое множество. Парадокс получаем, если A тождественно равно B. Ключевой момент — X непустое множество.

Если же A содержит множество B со всеми границами и не существует непустого множества X, для которого справедливо: X содержится в A, пересечение X и B — нулевое множество, то A и B — это одно и то же множество...
Компьютер сделает всё, что вы ему скажете, но это может сильно отличаться от того, что вы имели в виду.
Re: Ваши последние 20 строк кода
От: Eugeny__ Украина  
Дата: 18.03.05 10:37
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


public void pullTables() {
            LoadingStatus status = new LoadingStatus();
            try {                
                status.Text = "Загрузка таблиц";
                status.addTask("closeconn", 6, "Загрузка текущего соединения");
                status.addTask("price", 50, "Загрузка таблицы номенклатур");
                status.addTask("options", 30, "Загрузка таблицы опций");
                status.addTask("clients", 20, "Загрузка таблицы клиентов");
                status.addTask("clientavgorder", 60, "Загрузка таблицы средних заказов");
                status.addTask("passwords", 5, "Загрузка таблицы паролей");
                status.addTask("routes", 13, "Загрузка таблицы маршрутов");
                status.addTask("orders", 5, "Загрузка таблицы заказов");
                status.addTask("order_items", 6, "Загрузка таблицы элементов заказов");
                status.addTask("pricecategories", 45, "Загрузка таблицы цен");
                status.Show();
                status.startTask("closeconn");
                this.connection.Close();
                string rdaOleDbConnectString = "Provider=SQLOLEDB; Data Source="+serverName+";Initial Catalog="+serverDBName+"; " +
                    "User Id="+serverLogin+";Password="+serverPassword; 
                SqlCeRemoteDataAccess acc = new SqlCeRemoteDataAccess();
                acc.InternetUrl = "http://" + serverName + "/mag/sscesa20.dll";
                acc.LocalConnectionString = "Data Source=" + dbLocation + ";password=" + dbPassword;
                status.startTask("price");
                acc.Pull("price", "select * from price where pda = '" + Dns.GetHostName() + "'", rdaOleDbConnectString, RdaTrackOption.TrackingOn);
                status.startTask("options");
                acc.Pull("options", "select * from options where pda = '" + Dns.GetHostName() + "'", rdaOleDbConnectString, RdaTrackOption.TrackingOn);
                status.startTask("clients");
                acc.Pull("clients", "select * from clients where pda = '" + Dns.GetHostName() + "'", rdaOleDbConnectString, RdaTrackOption.TrackingOn);
                status.startTask("clientavgorder");
                acc.Pull("clientavgorder", "select * from clientavgorder where pda = '" + Dns.GetHostName() + "'", rdaOleDbConnectString, RdaTrackOption.TrackingOn);
                status.startTask("passwords");
                acc.Pull("passwords", "select * from passwords where pda = '" + Dns.GetHostName() + "'", rdaOleDbConnectString, RdaTrackOption.TrackingOn);
                status.startTask("routes");
                acc.Pull("routes", "select * from routes where pda = '" + Dns.GetHostName() + "'", rdaOleDbConnectString, RdaTrackOption.TrackingOn);
                status.startTask("orders");
                acc.Pull("orders", "select * from orders where pda = '" + Dns.GetHostName() + "'", rdaOleDbConnectString, RdaTrackOption.TrackingOn);
                status.startTask("order_items");
                acc.Pull("order_items", "select * from order_items where pda = '" + Dns.GetHostName() + "'", rdaOleDbConnectString, RdaTrackOption.TrackingOn);
                status.startTask("pricecategories");
                acc.Pull("pricecategories", "select * from pricecategories where pda = '" + Dns.GetHostName() + "'", rdaOleDbConnectString, RdaTrackOption.TrackingOn);
                status.Close();
                status.Dispose();
            } catch (Exception e) {
                logger.Logger.log(this.GetType(), e);;
                MessageBox.Show("Не удалось загрузить таблицы. Проверьте правильность введенных параметров и наличие связи с сервером.");
                status.Close();
                status.Dispose();
            }
        }
... << RSDN@Home 1.1.3 stable >> Winamp: Marilyn Manson — This is the new shit
Новости очень смешные. Зря вы не смотрите. Как будто за наркоманами подсматриваешь. Только тетка с погодой в завязке.
There is no such thing as a winnable war.
Re: Ваши последние 20 строк кода
От: BkmzBIN Беларусь  
Дата: 18.03.05 10:57
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


Н>
Н>        class XmlContainerSerializer
Н>        {
Н>        public:
Н>            //
Н>            // Serializes container
Н>            template <typename Container>
Н>            static MSXML2::IXMLDOMElementPtr Serialize(const MSXML2::IXMLDOMDocument2Ptr &xmlDocument,
Н>                const Container &container, long lItems, const CString &strElementName)
Н>            {
Н>                MSXML2::IXMLDOMElementPtr xmlElement = xmlDocument->createElement((LPCTSTR)strElementName);
Н>                for(long lItem = 0; lItem < lItems; ++lItem)
Н>                    xmlElement->appendChild(container[lItem].Serialize(xmlDocument));

Н>                return xmlElement;
Н>            }

Н>            //
Н>            // Deserializes container. strXPath is the XPath expression
Н>            // which selects root node
Н>            template <typename Container, typename Type>
Н>            static void Deserialize(const MSXML2::IXMLDOMElementPtr &xmlElement, Container &container,
Н>
Re[2]: Ваши последние 20 строк кода
От: BkmzBIN Беларусь  
Дата: 18.03.05 11:03
Оценка:
Упс...
    PROCEDURE update_by_rowid(pi_kpk    IN ent.kpk%TYPE,
                              pi_name   IN ent.NAME%TYPE,
                              pi_kpckeo IN ent.kpckeo%TYPE,
                              pi_rowid  IN ROWID) AS
        err VARCHAR2(512);
    BEGIN
        SAVEPOINT sp; -- точка восстановления
    
        -- пробуем обновить данные
        UPDATE ent
           SET kpk = pi_kpk, NAME = pi_name, kpckeo = pi_kpckeo
         WHERE ROWID = pi_rowid;
    
        COMMIT;
    EXCEPTION
        -- если КПК уже есть
        WHEN dup_val_on_index THEN
            -- откат
            ROLLBACK TO sp;
        
            -- получаем кем он занят и выводим сообщение
            SELECT 'Введённый КПК - ' || pi_kpk || ' уже занят для "' || NAME || '"'
              INTO err
              FROM ent
             WHERE kpk = pi_kpk;
        
            raise_application_error(-20005, err);
        WHEN OTHERS THEN
            -- откат
            ROLLBACK TO sp;
            RAISE;
    END;
Re[4]: Ваши последние 20 строк кода
От: ozone.km Россия  
Дата: 18.03.05 12:47
Оценка:
Здравствуйте, Рома Мик, Вы писали:

OK>>Это что за язык?

РМ>Похоже на паскаль, я правда давно паскаля не видал...
Я тоже с начала подумал паскаль, а потом присмотрелся — неее... не паскаль

Интересно кто-нибудт на турбопаскле еще пишет?
Re[12]: Ваши последние 20 строк кода
От: Костя Ещенко Россия  
Дата: 18.03.05 13:42
Оценка:
Mr. None wrote:

> КЕ>Вот подумалось — пустое множество ничего не содержит по определению.

> Поэтому над пустым множеством можно совершать любые операции — результат всегда будет нулевой . Это один из важных принципов теории множеств...
>
> Кроме того, кстати, любое множество содержит само себя вместе со своими границами. Так что в любом случае нет никакого парадокса...

Дык мы о разном говорим. Виноват мой кривой язык.

Ты говоришь о том что множество всегда является своим подмножеством. А а я о том что множество не должно включать само себя в качестве элемента. X не принадлежит X. Понятно что это касается и пустого множества.

Пример парадокса — утверждение "Из каждого правила есть исключения". Будучи примененным к самому себе это утверждение приводит к противоречию.
Posted via RSDN NNTP Server 1.9
На самом деле, люди не читают газеты, они принимают их каждое утро, так же как ванну. ©Маршалл Мак-Льюэн
Re: Это выглядит вот так:
От: SilverCloud Россия http://rodonist.wordpress.com
Дата: 18.03.05 18:11
Оценка:
Re[3]: Ваши последние 20 строк кода
От: Mamut Швеция http://dmitriid.com
Дата: 19.03.05 08:30
Оценка:
Ндааа... Что-то я промахнулся... Спасибо
... << RSDN@Home 1.1.4 beta 4 rev. 0>> ... <<Winamp is playing "Что играет? Где играет? Где ВинАмп, я вас спрашиваю?">> ...


dmitriid.comGitHubLinkedIn
Re: Ваши последние 20 строк кода
От: 55aaf925-4dbf-4578-9e3c-2f63d11aeda5  
Дата: 19.03.05 16:08
Оценка:
        public static object FillObjectFromSqlDataReader(object obj, SqlCommand cmd, SqlConnection conn)
        {
            Type type = obj.GetType();
            cmd.Connection = conn;
            if (conn.State!=ConnectionState.Open) conn.Open();
            SqlDataReader reader = cmd.ExecuteReader();
            while(reader.Read())
            {
                MemberInfo[] members = type.GetProperties();
                foreach(MemberInfo member in members)
                {
                    SqlSelectAttribute selectAttribute = new SqlSelectAttribute(true);
                    Object[] myAttributes = member.GetCustomAttributes(typeof(SqlSelectAttribute),true);
                    if (myAttributes.Length>0)
                        selectAttribute = (SqlSelectAttribute)myAttributes[0];

                    if (selectAttribute.Select)
                    {
                        object sqlValue = reader[member.Name];
                        try
                        {
                            type.GetProperty(member.Name).SetValue(obj, sqlValue, null);
                        }
                        catch{}
                    }
                }
            }
            if (conn.State==ConnectionState.Open) conn.Close();
            return obj;
        }
... << RSDN@Home 1.1.4 beta 4 rev. 303>>
Re: Ваши последние 20 строк кода
От: tiamatinc  
Дата: 20.03.05 09:48
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


    QRImage1->Picture->LoadFromFile(dm_DataBase->Pict);
    QRlbl_Address->Caption = dm_DataBase->Company;
    QRlbl_Caption->Caption = "Акт выполнения работ №" +
        dm_DataBase->ADOtbl_Main->FieldByName("Номер")->AsString + " от " + Date().DateString();
    QRlbl_Prod->Caption = "Оборудование: " +
        dm_DataBase->ADOtbl_Main->FieldByName("Оборудование 2")->AsString +
        ", S/N: " + dm_DataBase->ADOtbl_Main->FieldByName("Серийный номер")->AsString;
    QRlbl_Report->Caption = "Заявка №" +
        dm_DataBase->ADOtbl_Main->FieldByName("Номер")->AsString + " от " +
        dm_DataBase->ADOtbl_Main->FieldByName("Дата приёма")->AsString;
    QRBand2->Enabled      = dm_DataBase->ADOtbl_NewParts->RecordCount;
    QRSubDetail2->Enabled = dm_DataBase->ADOtbl_NewParts->RecordCount;

    double Sum = double(f_Main->cxgrid_WorksDBTableView1->DataController->Summary->FooterSummaryValues[0].IsNull()?
        0.:f_Main->cxgrid_WorksDBTableView1->DataController->Summary->FooterSummaryValues[0]) +
        double(f_Main->cxGrid1DBTableView1->DataController->Summary->FooterSummaryValues[0].IsNull()?
        0.:f_Main->cxGrid1DBTableView1->DataController->Summary->FooterSummaryValues[0]);
    AnsiString Cost = FloatToStrF(Sum, ffNumber, 15, 2);
    AnsiString Number = Numeral(Sum) + Cost.SubString(Cost.Pos(",")+1, 2) + " копеек";
    
    QRlbl_Cost->Caption = "Всего оказано услуг на сумму " + Number;
    if(dm_DataBase->ADOtbl_Main->FieldByName("Исполнитель")->AsString.IsEmpty())
    {
        dm_DataBase->ADOqry_SetUser->Parameters->ParamValues["Name"] =
            dm_DataBase->ADOtbl_Users->FieldByName("ФИО")->AsString;
        dm_DataBase->ADOqry_SetUser->ExecSQL();
        dm_DataBase->Refresh(dm_DataBase->ADOtbl_Main, "[Номер] ASC");
    }
    qrep_Act->Preview();


Поубивал бы тех кто QReport делал
Re[13]: Ваши последние 20 строк кода
От: Mr. None Россия http://mrnone.blogspot.com
Дата: 21.03.05 05:57
Оценка:
Здравствуйте, Костя Ещенко, Вы писали:

КЕ>Mr. None wrote:


КЕ>Дык мы о разном говорим. Виноват мой кривой язык.


КЕ>Ты говоришь о том что множество всегда является своим подмножеством. А а я о том что множество не должно включать само себя в качестве элемента. X не принадлежит X. Понятно что это касается и пустого множества.


Множество A может быть элементом множества B только в том случае, если множество B есть множество множеств... Так что множество не может быть своим собственным элементом, равно как и элементом любого другого множества содержащего налогичные элементы (не помню как называется термин обозначающий описываемую сущность этих множеств, то ли мощность, то ли размерность, то ли не то не другое, так что не буду выпендриваться ).
Компьютер сделает всё, что вы ему скажете, но это может сильно отличаться от того, что вы имели в виду.
Re[2]: Ваши последние 20 строк кода
От: Privalov  
Дата: 21.03.05 06:18
Оценка:
Здравствуйте, devstd, Вы писали:

D>Генеральному директору

D>ОСАО ***

D>от специалиста ***




D>ЗАЯВЛЕНИЕ



D> Прошу уволить меня по собственному желанию 00 декабря 2005 года.




D>


И что, компилируется? А какой транслятор?
Re[14]: Ваши последние 20 строк кода
От: Костя Ещенко Россия  
Дата: 21.03.05 06:59
Оценка:
Здравствуйте, Mr. None, Вы писали:

КЕ>>Ты говоришь о том что множество всегда является своим подмножеством. А а я о том что множество не должно включать само себя в качестве элемента. X не принадлежит X. Понятно что это касается и пустого множества.


MN>Множество A может быть элементом множества B только в том случае, если множество B есть множество множеств... Так что множество не может быть своим собственным элементом, равно как и элементом любого другого множества содержащего налогичные элементы (не помню как называется термин обозначающий описываемую сущность этих множеств, то ли мощность, то ли размерность, то ли не то не другое, так что не буду выпендриваться ).


Ну вот, теперь ты сделал наши множества типизированными. Термин так и называется — тип (тип 0 — примитивные элементы, тип 1 — множества элементов и т.д.). Теория типов была введена для пресечения подобных противоречий, но она будто бы сильно осложняет математические построения. И чтобы оставить сложность на приемлемом уровне в теорию типов была введена какая-то дополнительная аксиома, позволяющая формулировать и доказывать одну теорему для множеств различных типов.

Не так давно читал книгу по истории-философии математики и чего-то еще помню
На самом деле, люди не читают газеты, они принимают их каждое утро, так же как ванну. ©Маршалл Мак-Льюэн
Re[2]: Ваши последние 20 строк кода
От: Ватакуси Россия  
Дата: 24.03.05 11:55
Оценка:
Ты свой класс что-ли пишешь?
В тех диалектах, что я знаю есть стандартные методы для конвертации дат и вычисления разнообразных дистанций.
Все будет Украина!
Re: Ваши последние 20 строк кода
От: The Lex Украина  
Дата: 24.03.05 13:10
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


А я ничего не делаю — пишу в форуме RSDN всякие глупости — кто знает, тот в курсе...



P.S. Хотя, если уж очень хотите: "перемастерил" из
  FILE* fp;
  LARGE_INTEGER file_size;

  fp = fopen(naam, _T("rb"));
  if ( !fp ) return 0;

  ::GetFileSizeEx( fp, &file_size );

в
  HANDLE hFile = ::CreateFile(
    naam,
    0,
    FILE_SHARE_READ,
    NULL,
    OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL,
    NULL);

  if (hFile == INVALID_HANDLE_VALUE)
    return 0;

  LARGE_INTEGER file_size;
  memset(&file_size, 0, sizeof(file_size));

  ::GetFileSizeEx( hFile, &file_size );

  ::CloseHandle(hFile);



Теперь вот снова ничего не делаю — пишу в форуме RSDN всякие глупости...
Голь на выдумку хитра, однако...
Re[2]: Ваши последние 20 строк кода
От: Jester Канада  
Дата: 24.03.05 15:59
Оценка:
Здравствуйте, rus blood, Вы писали:

RB>Здравствуйте, Нахлобуч, Вы писали:


RB>20 — так 20...

RB>
RB> ..........................
RB>    /* Now we should re-order keywords, created from names of products.
RB>       These keywords and their derived forms (canonical and templated)
RB>       have spider_order value -1. */
RB>"   FOR pro_rec IN "
RB>"     (SELECT DISTINCT prk_pro_id FROM dd_sem_product_keyword "
RB>"      WHERE prk_spider_order < 0) "
RB>"   LOOP "
RB>"     v_current_order := 0; "
RB>      /* We should re-order keywords of the current product */
RB>"     FOR pro_kwd_rec IN "
RB>"       (SELECT prk_kwd_id FROM dd_sem_product_keyword "
RB>"        WHERE prk_pro_id = pro_rec.prk_pro_id "
RB>"        ORDER BY prk_active_product DESC) "
RB>"     LOOP "
RB>"       v_current_order := v_current_order + 1; "
RB>"       UPDATE dd_sem_product_keyword "
RB>"       SET prk_spider_order = v_current_order "
RB>"       WHERE prk_pro_id = pro_rec.prk_pro_id AND "
RB>"             prk_kwd_id = pro_kwd_rec.prk_kwd_id; "
RB>"     END LOOP; "
RB>"   END LOOP; "
RB>......................
RB>


ИМХО, фороллом быстрее было бы...
Re[3]: Ваши последние 20 строк кода
От: rus blood Россия  
Дата: 24.03.05 16:07
Оценка:
Здравствуйте, Jester, Вы писали:

J>ИМХО, фороллом быстрее было бы...


Можно подробнее? Я в pl/sql не сильный спец...
Имею скафандр — готов путешествовать!
Re: Ваши последние 20 строк кода
От: Spidola Россия http://www.usametrics.ru
Дата: 24.03.05 17:57
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


Вот как раз в этот момент пришлось вспоминать молодость

parameters f1, f2
local xTemp := ""

if f1 = NIL .or. f2 = NIL .or. f1 = "/?" 
   quit
end

? "Source: " + f1
? "Target: " + f2
? ""
use (f1)
? "Copy structure..."
copy structure to (f2)
use (f1)
? "Export to SDF..."
xTemp := "_temp.txt"
copy to (xTemp) SDF
? "Import from SDF..."
use (f2)
append from (xTemp) sdf
? "...complete"
... << RSDN@Home 1.1.4 beta 4 rev. 303>>
Re[2]: Ваши последние 20 строк кода
От: ZetRooT Россия  
Дата: 24.03.05 19:18
Оценка:
Здравствуйте, Ban001, Вы писали:

B>Звучит както настоаживающе...

B>Ваши последние 20 строк кода...

B>А потом костлявая с косой?

нет уж, потом придёт злобный админ и напишет
 kill -9 vash_PID
Счастье, это когда множество желаний есть подмножество множества возможностей.... (с)студенты ВМиК

"Если бы не было колобка, его следовало бы придумать..."

Re: Ваши последние 20 строк кода
От: ZetRooT Россия  
Дата: 24.03.05 19:28
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


Н>
Н>        class XmlContainerSerializer
Н>        {
Н>        public:
Н>            //
Н>            // Serializes container
Н>            template <typename Container>
Н>            static MSXML2::IXMLDOMElementPtr Serialize(const MSXML2::IXMLDOMDocument2Ptr &xmlDocument,
Н>                const Container &container, long lItems, const CString &strElementName)
Н>            {
Н>                MSXML2::IXMLDOMElementPtr xmlElement = xmlDocument->createElement((LPCTSTR)strElementName);
Н>                for(long lItem = 0; lItem < lItems; ++lItem)
Н>                    xmlElement->appendChild(container[lItem].Serialize(xmlDocument));

Н>                return xmlElement;
Н>            }

Н>            //
Н>            // Deserializes container. strXPath is the XPath expression
Н>            // which selects root node
Н>            template <typename Container, typename Type>
Н>            static void Deserialize(const MSXML2::IXMLDOMElementPtr &xmlElement, Container &container,
Н>


convert    bcf     PORTA,CS     ; подтверждаем приём
        movlw    0x08        ; инициализируем приём 8 битов данных
        movwf    counter2
loop    bsf        PORTA,CLK    ; генерим тактовый импульс
        nop                    ; погодим....
        bcf        PORTA,CLK    ; сбрасываем тактовый импульс
        btfss    PORTB,data_    ;
        bcf     STATUS,C    ;
        btfsc    PORTB, data_;
        bsf        STATUS, C     ;
        rlf     adresult, 1    ; сдвигаемся влево, выводим перенос
        decfsz     counter2,1    ;
        goto     loop        ;
        bsf        PORTA,CS    ;
        retlw    0x00        ;


wait32    
        movlw    0x0F
        movwf    counter1
st        decfsz     counter1, 1    
        goto     st
        retlw    0x00

    
        org     0x04
        BANK0
        btfsc    INTCON, RBIF; от rb?
        btfsc    PORTB, 7
        call    send        ; начинаем передачу
Счастье, это когда множество желаний есть подмножество множества возможностей.... (с)студенты ВМиК

"Если бы не было колобка, его следовало бы придумать..."

Re[3]: Ваши последние 20 строк кода
От: ZetRooT Россия  
Дата: 24.03.05 19:28
Оценка:
Здравствуйте, Privalov, Вы писали:

P>Здравствуйте, devstd, Вы писали:


D>>Генеральному директору

D>>ОСАО ***

D>>от специалиста ***




D>>ЗАЯВЛЕНИЕ



D>> Прошу уволить меня по собственному желанию 00 декабря 2005 года.




D>>


P>И что, компилируется? А какой транслятор?


ProgrammerToHuman Translator
Счастье, это когда множество желаний есть подмножество множества возможностей.... (с)студенты ВМиК

"Если бы не было колобка, его следовало бы придумать..."

Re: Ваши последние 20 строк кода
От: AndrewVK Россия http://blogs.rsdn.org/avk
Дата: 27.03.05 11:42
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Вопрос — что это? Те, кто сталкивался с используемой библиотекой — молчите
public void GetGoods()
{
    OnlineProxyContext prxContext = new OnlineProxyContext(
        "SCDemoClient",
        "SCDemo.SvcProxy",
        "GetGoods");
    ServiceAgentContext saCtx = new ServiceAgentContext("GoodsAvailableCallBack");
    ReferenceDataDefinition dataDef = new ReferenceDataDefinition(
        _cacheKey, 600, prxContext);
    OfflineBlockBuilder.Instance.DataLoaderManager.LoadData(
        Guid, saCtx, dataDef);
}

public void AddGood(Good good)
{
    OnlineProxyContext prxContext = new OnlineProxyContext(
        "SCDemoClient",
        "SCDemo.SvcProxy",
        "AddGood");
    ServiceAgentContext saCtx = new ServiceAgentContext("GoodAdded");
    Payload pl = new Payload(prxContext, Guid, saCtx, good);
    OfflineBlockBuilder.Instance.PayloadConsumer.Enqueue(pl);
}
... << RSDN@Home 1.1.4 beta 4 rev. 371>>
AVK Blog
Re[2]: Ваши последние 20 строк кода
От: AndrewVK Россия http://blogs.rsdn.org/avk
Дата: 27.03.05 12:52
Оценка:
Здравствуйте, 55aaf925-4dbf-4578-9e3c-2f63d11aeda5, Вы писали:

При исключении в момент чтения ресурсы потекут.
... << RSDN@Home 1.1.4 beta 4 rev. 371>>
AVK Blog
Re[3]: Ваши последние 20 строк кода
От: AndrewVK Россия http://blogs.rsdn.org/avk
Дата: 27.03.05 12:53
Оценка:
Здравствуйте, cencio, Вы писали:

AVK>>Вопрос — что это? Те, кто сталкивался с используемой библиотекой — молчите

C>не сталкивался с c#, но второй линк в гугле по слову OnlineProxyContext выдал вот это:
C>Smart Client Offline Application Block

Так нечестно
... << RSDN@Home 1.1.4 beta 4 rev. 371>>
AVK Blog
Re[3]: Ваши последние 20 строк кода
От: 55aaf925-4dbf-4578-9e3c-2f63d11aeda5  
Дата: 27.03.05 17:20
Оценка:
Здравствуйте, AndrewVK, Вы писали:

из-за try-catch?
... << RSDN@Home 1.1.4 beta 4 rev. 303>>
Re[4]: Ваши последние 20 строк кода
От: AndrewVK Россия http://blogs.rsdn.org/avk
Дата: 27.03.05 18:37
Оценка:
Здравствуйте, 55aaf925-4dbf-4578-9e3c-2f63d11aeda5, Вы писали:

544>из-за try-catch?


Точнее из-за его отсуствия.
... << RSDN@Home 1.1.4 beta 4 rev. 371>>
AVK Blog
Re[5]: Ваши последние 20 строк кода
От: 55aaf925-4dbf-4578-9e3c-2f63d11aeda5  
Дата: 27.03.05 20:11
Оценка:
Здравствуйте, AndrewVK, Вы писали:

AVK>Здравствуйте, 55aaf925-4dbf-4578-9e3c-2f63d11aeda5, Вы писали:


544>>из-за try-catch?


AVK>Точнее из-за его отсуствия.


а как надо?
... << RSDN@Home 1.1.4 beta 4 rev. 303>>
Re[3]: Ваши последние 20 строк кода
От: Ban001  
Дата: 28.03.05 06:52
Оценка:
Н>Хотел "крайние" написать, но чего-то подумал, что недопоймут
А так перепоняли...
... << RSDN@Home 1.1.3 stable >>
Re: Ваши последние 20 строк кода
От: Ban001  
Дата: 28.03.05 06:52
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют




LIBS = $(CLIB) $(SLIB)
LIBD= -L$(QT_LIB)
CFLAGS := $(CFLAGS) -I$(LINTER_INCLUDE) \
-I$(CONSTELLATION_INC) \
-I$(QT_INCLUDE) \
$(XCL_INC) \
-DQT_THREAD_SUPPORT \
$(BRIZ_INC)

all: $(NAME)

$(NAME): $(OBJ)
$(CPPC) $(CFLAGS) $(LIBD) -o $@ $(OBJ) $(LIBS) $(LINTER_OBJS)
$(STRIP) $(NAME)


clean:
rm -f $(NAME) $(OBJ)
... << RSDN@Home 1.1.3 stable >>
Re[6]: Ваши последние 20 строк кода
От: AndrewVK Россия http://blogs.rsdn.org/avk
Дата: 28.03.05 07:08
Оценка:
Здравствуйте, 55aaf925-4dbf-4578-9e3c-2f63d11aeda5, Вы писали:

AVK>>Точнее из-за его отсуствия.


544>а как надо?


А надо так:

using (SqlDataReader rdr = cmd.ExecuteReader())
{
...
}
... << RSDN@Home 1.1.4 beta 4 rev. 372>>
AVK Blog
Re[7]: Ваши последние 20 строк кода
От: 55aaf925-4dbf-4578-9e3c-2f63d11aeda5  
Дата: 28.03.05 17:16
Оценка:
Здравствуйте, AndrewVK, Вы писали:

юзаю вот так:

            using(SqlConnection conn = new SqlConnection(System.Configuration.ConfigurationSettings.AppSettings["ConnectionString"]))
            {
                SqlCommand cmd = new SqlCommand();
                cmd.CommandText = "SELECT * FROM Contacts WHERE id = @id";
                cmd.Parameters.Add("@id", id);
                thisClass = (Contact)cl.SqlSelectFromDB.FillObjectFromSqlDataReader(thisClass, cmd, conn);
            }


хотя наверное логически более разумно внести using внутрь FillObjectFromSqlDataReader
... << RSDN@Home 1.1.4 beta 4 rev. 303>>
Re[2]: Ваши последние 20 строк кода
От: Privalov  
Дата: 29.03.05 05:47
Оценка:
Здравствуйте, Spidola, Вы писали:

S>Здравствуйте, Нахлобуч, Вы писали:


Н>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


S> Вот как раз в этот момент пришлось вспоминать молодость


[....]

Увидел это и тоже вспомнил молодость. Это FoxPro, кажется? Лет 15 назад трудно было найти человека, не написавшего хотя бы 20 строк на Лисе.
Re[2]: Ваши последние 20 строк кода
От: Demiurg  
Дата: 29.03.05 09:40
Оценка:
Здравствуйте, devstd, Вы писали:

D>Здравствуйте, Нахлобуч, Вы писали:


Н>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют




D>Генеральному директору

D>ОСАО ***

У меня последние — резюме были
... << RSDN@Home 1.1.4 beta 4 358, silent>>
Re[3]: Ваши последние 20 строк кода
От: Andy_MAN Россия  
Дата: 29.03.05 11:14
Оценка:
Здравствуйте, vdimas, Вы писали:

V>Здравствуйте, Andy_MAN, Вы писали:


V>держи из той же оперы, надеюсь пригодится:

V>(приятное поведение под пальчиками)

Похоже сюда скоро целыми проектами постить будут

А за код спасибо, разгребу потом
Re[4]: Ваши последние 20 строк кода
От: vdimas Россия  
Дата: 29.03.05 12:02
Оценка:
Здравствуйте, Andy_MAN, Вы писали:

A_M>А за код спасибо, разгребу потом


А чего тут разгребать? Везде вместо самого UltraGrid используй приведенного наследника (ну, может, с точностью до названий неймспейсов и пр. шелухи).

Меня раздражает навигация UltraGrid по-умолчанию (вверх/вниз и ввправо-влево). Обрадовало, однако, что они выставили довольно-таки удобный и развитый интерфейс по управлению гридом, что позволяет придать ему практически произвольное поведение.
Re[5]: Ваши последние 20 строк кода
От: Andy_MAN Россия  
Дата: 29.03.05 12:19
Оценка:
Здравствуйте, vdimas, Вы писали:


V>А чего тут разгребать? Везде вместо самого UltraGrid используй приведенного наследника (ну, может, с точностью до названий неймспейсов и пр. шелухи).


Это я уже понял

V>Меня раздражает навигация UltraGrid по-умолчанию (вверх/вниз и ввправо-влево). Обрадовало, однако, что они выставили довольно-таки удобный и развитый интерфейс по управлению гридом, что позволяет придать ему практически произвольное поведение.


Infragistics рулез однозначно, единственный его недостаток — платность
Re[3]: Ваши последние 20 строк кода
От: Spidola Россия http://www.usametrics.ru
Дата: 30.03.05 11:30
Оценка:
Здравствуйте, Privalov, Вы писали:

P>Здравствуйте, Spidola, Вы писали:


S>>Здравствуйте, Нахлобуч, Вы писали:


Н>>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


S>> Вот как раз в этот момент пришлось вспоминать молодость


P>[....]


P>Увидел это и тоже вспомнил молодость. Это FoxPro, кажется? Лет 15 назад трудно было найти человека, не написавшего хотя бы 20 строк на Лисе.


Clipper, хотя синтаксис общий xBase-ный
... << RSDN@Home 1.1.4 @@subversion >> Home
Re: Ваши последние 20 строк кода
От: VMin Россия  
Дата: 30.03.05 20:39
Оценка:
Здравствуйте, Нахлобуч, Вы писали:


    if(lpDispatch)
    {
        lpDispatch->QueryInterface(IID_IHTMLDocument2, (void**)&lpHtmlDocument);
        lpDispatch->Release();
        IHTMLElement *pb=0;
        BSTR p=0;
        if(lpHtmlDocument)
        {
            lpHtmlDocument->get_body(&pb);
            lpHtmlDocument->Release();
            int sz=0;
            if(pb)
            {
                pb->get_innerHTML(&p);
                pb->Release();
                if(p)
                {
                    _bstr_t bs=p;
                    sz=bs.length();
                    char *S=new char[sz+2];
                    WideCharToMultiByte( CP_ACP, 0, p, sz,  S, sz+1, NULL, NULL );
                }
            }
        }
    }
Это я Вас как математик математика спрашиваю:
Что такое математика?
Один из законов Божьих или это сам Бог и есть? (ХХ век)

По-моему Математика — это Слово Божие. (22.03.05)
Re: Ваши последние 20 строк кода
От: Arsu Россия  
Дата: 31.03.05 13:23
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


    public TreeAResultSet( Connection aCon, String aBranch) {
        String sqlText = "";

        if ( "".equals( aBranch) || null == aBranch) {
            sqlText = "select type, desc_1, \"\" "+
                      "from agroup_type "+
                      "order by type ";
        } else {
            sqlText = "select agroup, "+
                             "desc_1, "+
                             "case "+
                               "when length(agroup) = 1 then type "+
                               "when length(agroup) > 1 then substring( agroup from 1 for length(agroup)-2) "+
                            "end "+
                      "from agroup "+
                      "where type = '"+aBranch+"'"+
                      "order by agroup ";
        }


        try {
            stmt = aCon.createStatement();
            rs = stmt.executeQuery( sqlText);
        } catch (Exception e){
            error = "ERROR: execution failed in query :<br>" +
                    sqlText + "<br> "+
                    "ERROR: " + e.getMessage();
            return;
        }
    }
Re[2]: Ваши последние 20 строк кода
От: Didro Россия home~pages
Дата: 14.04.07 21:03
Оценка:
Неплохая была идея, а уже прошло года два...

Н>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


[Inno Setup|RemObjects Pascal Script]
function InitializeSetup(): Boolean;
begin
//если через ком.строку не передан аргумент - "запуск без проверок = /Check:No", то проверяем
 if(ExpandConstant('{param:Check|Yes}')='Yes') then
    Result:=CheckPreliminaries()
 else
    Result:=true;
end;

procedure InitializeWizard();
begin
if(CheckVS()=0) then
    //VS2005 установлена, можно продолжать
    ;//MsgBox('VS2005 is OK', mbInformation, MB_OK)
    else
    //если же VS2005 не установлена, то нужно сообщить об этом пользователю и сбросить флажок
    //с компонента с именем Integration
    begin
        wizardform.componentslist.checked[0]:= false;
        wizardform.componentslist.itemenabled[0]:= false;
        wizardform.SelectComponentsLabel.Caption:=ExpandConstant('{cm:ThereIsNoVS2005}');
    end
end;
Re: Ваши последние 20 строк кода
От: peterbes Россия  
Дата: 14.04.07 21:16
Оценка:
Здравствуйте, Нахлобуч, Вы писали:


// test lua
int test_lua( lua_State *L )
{
    /* get number of arguments */
    int n = lua_gettop(L);
    int i;
        float f[255];
    /* loop through each argument */
    for (i = 0; i < n; i++)
    {
        /* total the arguments */
        f[i] = lua_tonumber( L, i);
    }

        g_this->Sum( f, n );
    
    /* return the number of results */
    return 0;
}
Re[3]: Ваши последние 20 строк кода
От: JazzzMaster Россия  
Дата: 15.04.07 07:19
Оценка:
Здравствуйте, BiТ, Вы писали:

BiТ>Видимо — построчная оплата труда


Индус?
... << RSDN@Home 1.1.4 stable rev. 510>>
Re: Ваши последние 20 строк кода
От: MikePetrichenko Беларусь www.btframework.com
Дата: 15.04.07 08:25
Оценка:
Вот народу делать нечего

// Extended information. WinSock do not provide extended information
// so we need use MS Bluetooth API.
DeviceInfoSize := SizeOf(BLUETOOTH_DEVICE_INFO);
FillChar(DeviceInfo, DeviceInfoSize, 0);
with DeviceInfo do begin
  dwSize := DeviceInfoSize;
  Address.ullLong := ADevice.FBTAddress;
end;

if BluetoothGetDeviceInfo(0, DeviceInfo) = 0 then
  with ADevice do begin
    FAuthenticated := DeviceInfo.fAuthenticated;
    FConnected := DeviceInfo.fConnected;
    FClassOfDevice := DeviceInfo.ulClassofDevice;
    FRemembered := DeviceInfo.fRemembered;
    // If name was not recognized in WSAXXX then try retrive it here.
    if (Trim(FName) = '') or (FName = StrDeviceNameUnknown) then FName := string(WideString(DeviceInfo.szName));
    // This try/except block protect as when last seen date is
    // unspecified. So it is normal!!! Do not asks me anymore
    // why here is exception. Just read this comment and thinking a
    // little. And you undertand!!!
    try
      FLastSeen := SystemTimeToDateTime(DeviceInfo.stLastSeen);
    except
      FLastSeen := 0;
    end;
    // Read comment above!!!
    try
      FLastUsed := SystemTimeToDateTime(DeviceInfo.stLastUsed);
    except
      FLastUsed := 0
    end;
  end;
Bluetooth, IrDA, WiFi and Serial Ports SDK for .NET, ActiveX, C++ and VCL
Spektrum Telemetry Log File Viewer
Re: Ваши последние 20 строк кода
От: Дм.Григорьев  
Дата: 15.04.07 10:55
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


<?php
/*
 * Returns metadata and data for all lists.
 */

require_once(dirname(__FILE__) . '/../../_php/include.php');

$lists = $db->qarray("select l.id, l.name, l.sqlname, " .
        "    if((systype is not null) or (count(c.id) > 0), 1, 0) as used " .
        "from lists l " .
        "    left join obj_columns c on (c.datatype='lookup' and c.lookup_listid=l.id) " .
        "group by l.id " .
        "order by l.id");

$xlists = $response->rowset('lists'); 
foreach($lists as $list) {
    $xlists->addRow(array(
            'id' => $list['id'], 
            'name' => $list['name'], 
            'used' => $list['used']));
    $q = $db->query("select id, text from " . $list['sqlname'] . " order by sortorder");
    $response->rowset('list.' . $list['id'])->addDBRowset($q);
}

$response->outputXML("admin/GetLists.xsl");
?>
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
http://dimgel.ru/lib.web — thin, stateless, strictly typed Scala web framework.
Re: Ваши последние 20 строк кода
От: zaufi Земля  
Дата: 15.04.07 11:50
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

[ccode]
BOOST_AUTO_TEST_CASE(override_exception_test)
{
string hello = "Hello Africa!";
try
{
try
{
throw my_exception() << THIS_LOCATION() << status(123) << hello;
}
catch (my_exception& e) // catch and override
{
BOOST_CHECK(hello == e.what());
BOOST_CHECK(123 == e.status());
e << status(456); // override status
throw; // rethrow !!!
}
catch (...)
{
BOOST_ERROR("Unexpected exception");
}
BOOST_ERROR("Expected exception was not caught");
}
catch (const my_exception& e)
{
BOOST_CHECK(456 == e.status());
BOOST_CHECK(hello == e.what());
cout << e.location() << "Caught " << debug::type_name(e) << ": "
<< e.what() << "(status=") << e.status() << ")\n";
return;
}
catch (...)
{
BOOST_ERROR("Unexpected exception");
}
BOOST_ERROR("Expected exception was not caught");
}
[ccode]
Re: Тенденции
От: Константин Л. Франция  
Дата: 15.04.07 12:11
Оценка:
Здравствуйте, minorlogic, Вы писали:

M>Складывается впечатление , что половина РСДН пишет парсеры XML а вторая данные в них сохранят...


причем парсеры пишутся на с++ .
Re: Ваши последние 20 строк кода
От: vadimchen Россия  
Дата: 15.04.07 14:06
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

    class create_task_form(object):
        title = not_empty()&not_space()&has_len(max=50)
        summary = not_empty()&not_space()
        budget = is_int()
        deadline = is_datetime()

    @render('create-task.xsl', debug=True, cache=False)
    @validate_form(create_task_form)
    def do_create_task(self):
        fd = Form_Data(self.request.form)
        fe = Form_Errors(self.form_errors)
        
        if not hasattr(fd, 'tag'):
            setattr(fd, 'tag', set())        

        tasks = Tasks(self.session)
        projects = Projects(self.session)
        p = projects.get_project(owner=self.http_session.uid, id=fd.prj_id)

        if not p:
            raise PageNotFound()
        
        types = proxy_list(tasks.get_task_types())
        c = tasks.get_task_tags_categories()
        fallback = dict( form_data=fd, form_errors=fe, task_types=types,
                         project=proxy(p), categories=proxy_list(c, relations=('tags',)))

        if self.form_errors:
            return fallback

        tasks.create( project=p, title=fd.title, summary=fd.summary,
                      task_type_id=fd.task_type_id, budget=fd.budget, 
                      deadline=fd.deadline, tag_ids=tuple(fd.tag))

        raise HttpFound('/account/projects/details-t/%s'%p.id)
---
http://vadimchen.livejournal.com
Re: Ваши последние 20 строк кода
От: Tilir Россия http://tilir.livejournal.com
Дата: 16.04.07 05:28
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


Упс... А я и не знал, что они были последними.

// Соединяемся с базой
//------------------------------------------------------------------------------
procedure TCoTestServer.ConnectToDB(const Server, Base: WideString);
begin
  ConnMain.Connected := false;
  ConnMain.ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=' + Base + ';Data Source=' + Server;
  ConnMain.Connected := true;
end;

// Выясняем Id по имени-обозначению-версии
//------------------------------------------------------------------------------
function TCoTestServer.GetIdVersion(const stType, stProduct,
  stVersion: WideString): OleVariant;
begin
  if (not ConnMain.Connected) then
    raise Exception.Create('ADO not connected');

  qMain.SQL.Text := 'SELECT sv.inId FROM stVersions sv ' +
                      'INNER JOIN stMain sm ' +
                        'INNER JOIN dsTypes dt ON (dt.InId = sm.InIdType) AND (dt.stName = ''' + stType + ''') ' +
                      'ON (sm.InId = sv.InIdMain) AND (sm.stKeyAttr = ''' + stProduct + ''') ' +
                    'WHERE (sv.stNumber = ''' + stVersion + ''')';
  qMain.Open;
  Result := qMain.Fields[0].AsInteger;
end;
Re: Ваши последние 20 строк кода
От: WildMage Россия http://users.livejournal.com/_wildmage/
Дата: 16.04.07 05:53
Оценка:
Здравствуйте, Нахлобуч, Вы писали:




private void btnTest_Click(object sender, System.EventArgs e)
{
    int res;
    string line = "Дамы и господа! Специальное предложение!";
    FprnM1C.FprnM45Class f = new FprnM1C.FprnM45Class();
    f.PortNumber = 1;
    f.BaudRate = 18;
    f.Password ="30";
    f.UseAccessPassword = true;
    f.DeviceEnabled = true;
    f.TestMode = true;
    f.CheckType = 1;
    f.TextWrap = 1;
    f.Mode = 1;
    f.SetMode();
    f.CheckType = 1;
    if(f.OpenCheck() != 0) MessageBox.Show("OpenCheck!");
    f.Caption = line;
    if(f.PrintString() != 0) MessageBox.Show("PrintString!");
    f.Name = "Плюшки";
    f.Price = 10.50;
    f.Quantity = 5;
    if(f.Registration() != 0) MessageBox.Show("Registration!");
    f.Name = "Плюшки2";
    f.Price = 10;
    f.Quantity = 1;
    if(f.Registration() != 0) MessageBox.Show("Registration!");
    f.TypeClose = 0;
    f.Summ = 100.0;
    res = f.Payment();
    if(res != 0) MessageBox.Show("Payment! " + res.ToString());
    f.TypeClose = 0;
    if(f.CloseCheck() != 0)  MessageBox.Show("CloseCheck!");
    f.PartialCut();
}
Re: Ваши последние 20 строк кода
От: Константин Л. Франция  
Дата: 16.04.07 09:24
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют




bool Notifications::CAlertsDlg::TryToCleanupAlerts( NotificationsStorage& storage, Notifications::NotificationSPtr const& nt,
                                                        const unsigned long count )
    {
        if( !count ) return true;

        const size_t storageSize = storage.Size();

        NotificationSPtr const& begin = storage[ storageSize - count ];

        //new alert is older than that we want to delete?
        if( begin->Date() < nt->Date() )
        {
            LogDebug<< _T("[SA]: Limit exceeded. Killing last ") << count << _T(" alerts...") <<endl;

            if( !FilterByID_ && !IsInSearchMode() )
            {
                unsigned int deletedInUI = CAlertsDlg::KillLastNthAlertsFromUI( uiAlertsList_, count );
                ATLASSERT( count == deletedInUI );
            }            

            NotificationsStorage::iterator begin, end;
            storage.GetLastNth( count, begin, end );
            if( storage.Collection().end() != begin )
            {
                for( NotificationsStorage::iterator it = begin ; it != end ; ++it )
                {
                    NotificationSPtr const& curr = it->second;

                    if( curr->BodyID() )
                        BodyToNtMapping_.erase( curr->BodyID() );

                    if( curr->SourceID() )
                    {
                        NotificationsStorage& as = SourceToNtsMapping_[ curr->SourceID() ];
                        as.Erase( it->second );
                    }

                    if( curr->MessageID() )
                    {                    
                        const MessageIDs::const_iterator duplicateItems = MessageIDs_.find( curr->MessageID() );
                        if( MessageIDs_.end() != duplicateItems )
                        {
                            std::vector<NotificationSPtr> const& nts = duplicateItems->second;

                            for( size_t i = 0 ; i < nts.size() ; ++i )
                            {
                                NotificationsStorage& as = SourceToNtsMapping_[ nts[i]->SourceID() ];
                                as.Erase( nts[i] );
                            }
                        }

                        MessageIDs_.erase( curr->MessageID() );
                    }

                    // we can't just delete last nth alerst because we can stay in AS filter
                    // so there can be no exact mapping from storage to UI. Ugly ;(                    
                    if( FilterByID_ && !IsInSearchMode() ) 
                    {
                        //clean alert in UI in case we have filtering by AS
                        DeleteFromUI(curr);                    
                    }

                    if( curr->ClusterID() )
                    {
                        const Clustering::ClusterPtr cluster = ClusteringInfo_.GetByID( curr->ClusterID() );
                        if( cluster )
                        {
                            for( SourceToNtsMapping::iterator sit = SourceToNtsMapping_.begin() ; sit != SourceToNtsMapping_.end() ; ++sit )
                            {
                                Utils::DeleteAllByClusterID( sit->second, cluster->ID() );
                            }

                            ClusteringInfo_.Erase( cluster->ID() );
                        }
                    }
                }

                storage.Clear(begin, end);
            }        

            return true;
        }

        //do not delete alerts and do not add new
        return false;
    }
Re[4]: Ваши последние 20 строк кода
От: Злость Россия  
Дата: 16.04.07 10:43
Оценка:
Здравствуйте, poilk, Вы писали:

[skip]
K>>

P>ну ладно, для тех, кто не понял:


P>
P>dim a[5,4];
P>a[1,1]=1
P>a[1,2]=2
P>a[1,3]=3
P>a[1,4]=4
P>a[2,1]=5
P>a[2,2]=6
P>a[2,3]=7
P>a[2,4]=8
P>a[3,1]=9
P>a[3,2]=10
P>a[3,3]=11
P>a[3,4]=12
P>a[4,1]=13
P>a[4,2]=14
P>a[4,3]=15
P>a[4,4]=16
P>a[5,1]=17
P>a[5,2]=18
P>a[5,3]=19
P>a[5,4]=20
P>


)) a(i,j) = (i-1)*N+j [M,N]
Правда, Ложь — мне все одно — я имею свое мнение.
Если функция недокументированна — это не значит, что ее не используют все ваши конкуренты в своих продуктах.
Любой строй переходный и отрицать это значит быть закостенелым идиотом.
Re: Ваши последние 20 строк кода
От: Пингвиненок Россия  
Дата: 16.04.07 11:26
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

/*
    Ñòðàíèöà îò÷åòà î çàãðóçêàõ
*/

PROCEDURE loads_info_frame_workflow_log
IS
   f   UTL_FILE.file_type;

   CURSOR loads
   IS
      SELECT   id, id_load, description, start_time, end_time
          FROM mdtb_workflow_log
      ORDER BY ID ASC;
BEGIN
   f :=
      UTL_FILE.fopen (UPPER (report_directory_name),
                      LOWER (report_page_filename
                             || html_file_extention),
                      'w');
   UTL_FILE.put
      (f,
       '<html> <head> <title></title> </head> <body> <table> 
       <tr>
        <th>ID</th> <th>Íîìåð çàãðóçêè</th> <th>Îïèñàíèå</th> <th>Âðåìÿ íà÷àëà</th> <th>Âðåìÿ îêîí÷àíèÿ</th>
      </tr>');

   FOR r IN loads
   LOOP
      UTL_FILE.put (f,
                       '<tr> <td>'
                    || r.ID
                    || '</td> <td>'
                    || r.id_load
                    || '</td> <td>'
                    || r.description
                    || '</td> <td>'
                    || r.start_time
                    || ' </td> <td>'
                    || r.end_time
                    || '</td> </tr>');
   END LOOP;

   UTL_FILE.put (f, '</table> </body> </html>');
   UTL_FILE.fflush (f);
   UTL_FILE.fclose (f);
EXCEPTION
   WHEN OTHERS
   THEN
      IF UTL_FILE.is_open (f)
      THEN
         UTL_FILE.fclose (f);
      END IF;

      RAISE;
END;

   /*
    Ïðîöåäóðà çàïóñêà ãåíåðàöèè îò÷åòà î ðàáîòå
   */

PROCEDURE start_workflow_report
IS
BEGIN
   main_frame_report_workflow_log;
   loads_num_frame;
   loads_info_frame_workflow_log;
END;
То что меня не убивает, делает меня умнее.
Re[2]: Ваши последние 20 строк кода
От: 8bit  
Дата: 17.04.07 14:03
Оценка:
Здравствуйте, yxiie, Вы писали:

Y>
Y>    <!-- wave 6 -->
Y>    <schedule>
Y>        <object>/object/asteroid1-small1-slowest.xml</object>
Y>        <begintime>100000</begintime>
Y>        <endtime>120000</endtime>
Y>        <count>40</count>
Y>        <orbitradius>500.0</orbitradius>
Y>        <shard>/object/bonus/box1.xml</shard>
Y>        <shardcount>10</shardcount>
Y>    </schedule>
Y>    <schedule>
Y>        <object>/object/asteroid1-big1-slowest.xml</object>
Y>        <begintime>100000</begintime>
Y>        <endtime>120000</endtime>
Y>        <count>40</count>
Y>        <orbitradius>500.0</orbitradius>
Y>        <shard>/object/bonus/capsule1.xml</shard>
Y>        <shardcount>10</shardcount>
Y>    </schedule>
Y>    <schedule>
Y>


Clash'N Slash III
Re: Ваши последние 20 строк кода
От: frogkiller Россия  
Дата: 17.04.07 16:01
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


try
{
    CPhoneMaskFilter::CPhoneMaskInfo bestMaskInfo = g_PhoneMaskFilter->value.SelectBestMatchInfo(mask);

    // CallBallancer
    //TODO: вынести в отдельную процедуру
    std::list<CGroupFactory::CGroupData*> tmpGroupList = bestMaskInfo.get_GroupList();
    for (std::list<CGroupFactory::CGroupData*>::iterator it = tmpGroupList.begin(); it != tmpGroupList.end(); ++it)
    {
        if (!(*it)->Accept())
        {
            //TODO: вынести в отдельную процедуру
            Msg.Name = L"DROP_CALL";
            pConnector->WriteTo(From, Msg, NULL);
            LOGW(MP_CRITICAL, L"Call was rejected by CallBallancer");
            return;
        }
    }

    //TODO: check for managed blacklist

    // посылаем сообщение диспетчеру на запуск скрипта
    Msg.Name = L"TA2D_RUNSCRIPT";
    Msg[L"FileName"]                = bestMaskInfo.get_ScriptName().c_str();
    Msg[L"MonitorDisplayedName"]    = bestMaskInfo.get_MonitorDisplayName().c_str();
    Msg[L"RunRequestID"]            = (LONGLONG) rand() | rand()<<16 | rand()<<32 | rand()<<48;

    // здесь в сообщении заменяется адрес отправителя
    // ставится адрес телсервера, инициирующего запуск скрипта
    // это является нарушением принципов адресации в системе роутеров
    // по возможности следует исправить алгоритм взаимодействия
    // системы телсервер - транзитагент - диспетчер
    // тяжкое наследие кривого дизайна, который приходится поддерживать
    // аналогичные косяки наблюдаются и у других сообщений
    pConnector->WriteFromTo(From, CLIENT_ADDRESS::Any(), Msg, NULL);
}
catch (std::exception&e)
{
    LOG(MP_CRITICAL, e.what());

    //TODO: send alarm
}
catch (...)
{
    //TODO: send alarm
}
Курица — это инструмент, с помощью которого одно яйцо производит другие.
Re[2]: Ваши последние 20 строк кода
От: Dair Россия  
Дата: 17.04.07 16:05
Оценка:
B>LIBS = $(CLIB) $(SLIB)
B>LIBD= -L$(QT_LIB)

А зачем писать Makefile самому, если есть Qt и qmake?
Re[3]: Ваши последние 20 строк кода
От: 8bit  
Дата: 17.04.07 16:36
Оценка:
Здравствуйте, 8bit, Вы писали:

8>Clash'N Slash III


упс... на год то я и не глянул
Re: Ваши последние 20 строк кода
От: maloi_alex СССР  
Дата: 17.04.07 16:59
Оценка:
 public class FilterChain
    {
        private List<Filter> filters = new List<Filter>();
        private int currentPos = -1;

        public void NextFilter(MQMessage request, MQMessage response)
        {
            currentPos ++;
            
            if (currentPos >= 0 && currentPos < filters.Count)
            {
                Filter filter = filters[currentPos];
                filter.DoFilter(request, response, this);
            }
        }
     }
Re[2]: Ваши последние 20 строк кода
От: Anton Batenev Россия https://github.com/abbat
Дата: 18.04.07 05:26
Оценка:
Здравствуйте, Andir, Вы писали:

Н>>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

A>[code]
A>:GetMonthString:{
A> monthNumber |
A> ["января", "февраля", "марта", "апреля", "мая", "июня", "июля", "августа", "сентября", "октября", "ноября", "декабря"].Item(monthNumber)
A>}

Что-то вспомнилось:

< $andman > $months = array("Нулябрь", "Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь");

А у вас тоже есть нулевой месяц или вы тупо вычитаете единичку?

Re[13]: Ваши последние 20 строк кода
От: egaron http://127.0.0.1
Дата: 18.04.07 06:33
Оценка:
а я уже давно код не пишу, надоело. скоро забуду как это делается и забуду свой родной дотнет.

один только эскуэль — многоэтажные запросы, пээль эскуэль и транзакт иногда. Навело на мысль что надо поддерживать навыки.
Re: Ваши последние 20 строк кода
От: ironwit Украина  
Дата: 20.04.07 07:36
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


                //opc прочитать данные по свежезагруженным приборам.
            cl := AllGroup[I1].DeviceList[I2].GetChannelsList;
            if Assigned(cl) then
            begin
              for I3 := 0 to cl.Count - 1 do
              begin
                try
                  st.Add(aDeviceList[I2].DispName + '\' + worksbd.GetStCodeByDevID(AllGroup[I1].DeviceList[I2].ID) +
                    '.' + cl[I3].Accept(OV).Items[0].DispName);
                finally
                end;
              end;
              FreeAndNil(cl);
            end;


все это только для

procedure IPZ6806.ListItemIDs(List: TItemIDList);
var
  I: integer;
begin
  for I := 0 to st.Count - 1 do
  try
    list.AddItemID(st[I], [iaRead], varInteger)
  except
  end;
end;


... << RSDN@Home 1.2.0 alpha rev. 0>>
Я не умею быть злым, и не хочу быть добрым.
Re[4]: Ваши последние 20 строк кода
От: ironwit Украина  
Дата: 20.04.07 07:48
Оценка:
Здравствуйте, БСС, Вы писали:

БСС>Здравствуйте, DuШes, Вы писали:


DШ>>имхо...нечитаемый язык...


БСС>Да, это точно... Есть така штука — Trace Mode (трассовая мудя в простонародии)


соболезнования
я этой заразе по орс данные с приборов отдаю. лучше б я сдох
тут чуть ниже кусок кода из того самого сервера
... << RSDN@Home 1.2.0 alpha rev. 0>>
Я не умею быть злым, и не хочу быть добрым.
Re: Ваши последние 20 строк кода
От: sanyo  
Дата: 20.04.07 18:39
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют



    CHK(m_pGraphBuilder->AddFilter(pVideoCapture, L"Video capture source"));
    pPropertyBag.Release();
    //Create and add transform filter to graph
    CHK(pRotate.CoCreateInstance(CLSID_Transform));
    CHK(m_pGraphBuilder->AddFilter(pRotate, L"Rotate Filter"));
    //Find callback interfave and set callbuck function
    CHK(pRotate->QueryInterface(IID_IFCallback,(void**)&m_cFilter));
    CHK(m_cFilter->SetCallback(1,&BufferCallBack));//Set Callback
    m_cFilter->SetDevName(m_DevName, m_wres, m_hres);
    CHK(pNull.CoCreateInstance(CLSID_VideoRenderer));
    CHK(m_pGraphBuilder->AddFilter(pNull, L"NULL REND"));
    //Find pins
    IPin *vPin;
    CHK(pNull->EnumPins(&pEnum));
    CHK(pEnum->Next(1, &vPin, NULL));  // NullRend pin
    IPin *vcPin;
    CHK(pRotate->EnumPins(&pEnum));
    CHK(pEnum->Next(1, &vcPin, NULL));   // rotate input Pin
    m_rotInPin=vcPin;

    CHK(pEnum->Next(1, &vcPin, NULL));  //rotate output Pin
    m_rotOuPin=vcPin;
    
    //Connecting pins
    CHK(ConnectPins());


...
и т.д
Re: Ваши последние 20 строк кода
От: afurmanov Россия  
Дата: 21.04.07 21:10
Оценка:
InstallJournal()
    {
    INSTALL_STEP=$1
    INSTALL_STEP_DESCRIPTION=$2
    shift
    shift
    if [ 0 -eq "$NOSKIP" ] && InstallJournal_Contains "$INSTALL_STEP" ; then
         OutputVerbosely "Skipping step '$INSTALL_STEP_DESCRIPTION', it has been done eariler."
    else
        $INSTALL_STEP

        if [ 1 -eq "$NOSKIP" ]; then
            return 0
        fi
        if [ ${INSTALLATION_ABORTED} = 1 ]; then
             :
        elif HaveErrors; then
            :
        else
            InstallJournal_Commit $INSTALL_STEP
        fi
    fi
    }
Re: Ваши последние 20 строк кода
От: NikeByNike Россия  
Дата: 22.04.07 21:58
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

void CDSelRecipientState::InitMenu(const TRect& aRect)
{
    GUIManagerPtr iGUIManager = iApp->iGuiManager;
    iContainer = iGUIManager->CreateContainer(1, aRect);
    m_GUIObject = iContainer;

    iContainer->SetClientRect(iApp->iClientSize);

    svector<TContact>::iterator it = iApp->iContacts.begin(), end = iApp->iContacts.end();
    for(int i = 10; it != end; ++it, ++i)
    {
        TString str = it->m_NickName;
        str.Append(_L(" ("));
        str.Append(m_PhoneNumber);
        str.Append(_L(")"));
        GUIObjectPtr item = iGUIManager->CreateCheckBox(i, aRect, str, false);
        item->SetAttach(ref_ptr<TContactInfo>(new TContactInfo(it->m_NickName, it->m_Id)));
        iContainer->InsertItem(item);
    }

    iMenu.push_back(MenuItem(100, LOCSTR("OK"), Functor(this, &OnOK)));
    iMenu.push_back(MenuItem(101, LOCSTR("CANCEL"), Functor(this, &OnCancel)));
    iMenu.push_back(MenuItem(102, LOCSTR("SELECT_ALL"), Functor(this, &OnSelectAll)));
}

void CDSelRecipientState::OnOK()
{
    size_t nCount = iContainer->GetItemsCount();
    for(size_t i = 0; i < nCount; ++i)
    {
        GUIObjectPtr obj = iContainer->GetItem(i);
        IGUICheckBox* check_box = cd_dynamic_cast<IGUICheckBox>(obj.get());
        if ( check_box && check_box->IsChecked() )
        {
            TContactInfo* info = cd_dynamic_cast<TContactInfo>(obj->GetAttach().get());
            if(info)
                m_Result->m_Contacts.push_back(ref_ptr<TContactInfo>(info));
        }
    }
    m_Result->m_result = true;
}
Нужно разобрать угил.
Re: Ваши последние 20 строк кода
От: mogadanez Чехия  
Дата: 23.04.07 12:33
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

если без скобок ровно 20 строк

public class dav_test
    {
    [Test]
    public void test_bug_20886()
        {
        test_data_folders td_folders = massert.prepare_comparision_folders( "test_bug_20886" , true );
        using ( new subsystems_factory.scoped( typeof ( ILogger ), console_full_logger.logger ) )
        using( new current_datetime_setter( new DateTime( 2007, 2, 2, 13, 13, 13, DateTimeKind.Utc )  ) )
            {
            file_info f = files.get_file( "rsdn.pdf" );
            f.is_review_enabled = true;
            f.save();

            acrobat_review acr1 = new acrobat_review( "rev 1", "rev_1_profile" , "meta", "kozel" );
            details.do_propfind( f, users.reviewer_1.id, acr1, td_folders, counter );
            }
        }
    class details
        {
        public static void do_propfind( file_info f, int user_id, acrobat_review id, test_data_folders td_folders, case_counter count )
            {
            test_application app = new test_application();
            using ( new user_context( user_id, id ) )
            using ( new request_response() )
                {
                request_controller.current.propfind( user_agent.ie, f );
                run_request( app );
                massert.AreEqual( 207, response_controller.current.status_code );
                massert.write_res_and_assert( new test_data_files( td_folders, count.next() + "u"+ user_id + "_prop_find.xml" ), read_and_format( app.Response.OutputStream) );
                massert.write_res_and_assert( new test_data_files( td_folders, count.next() + "u"+ user_id + "_acrobat_review.txt" ), user_context.current.acrobat_review );
                }
            }
        }
    }
... << RSDN@Home 1.2.0 alpha rev. 676>>
Re: Ваши последние 20 строк кода
От: Oich Россия  
Дата: 11.05.07 12:00
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют


/*###############################################################################################*/

Procedure GetProductsMovements(
aTemplateSerno PGL.Integer,
aTabIndicator Char,
aAccNumber Varchar2,
oProductsMovements Out Sys_Refcursor
)
Is

-- Author : *********
-- Created : 25/04/2007
-- Purpose : Return the list of the Allowed Products for the "Change Product" action
-- Version : 3.05.00.00

Begin

Open oProductsMovements For
Select
p.PSerno ProductSerno,
v.Value ProductName
From
mProfileValues v
Inner Join Products p On Trim(p.Name) = Trim(v.Value) And p.AppliesToAccount Is Not Null
Where
v.Item = 'product' And v.TabIndicator = 'A' And v.MProfileSerno = aTemplateSerno And
Iss_Account.Check_Number_Range(Trim(aAccNumber), p.PSerno) = 1;

Exception
When Others Then
UTIL_LOGGING.ADD_TO_ERRLOG('WEB_CUSTOMER_SERVICES', 'GetProductsMovements');
Raise;
End GetProductsMovements;

/*###############################################################################################*/
... << RSDN@Home 1.1.4 stable SR1 rev. 568>>
Re[2]: Ваши последние 20 строк кода
От: anidal  
Дата: 11.05.07 15:35
Оценка:
Здравствуйте, Oich, Вы писали:


static long MES_CHANGE_PAR_handler (void *This, void* data)
{
    ID10055_INTERFACE *pThis=*(ID10055_INTERFACE **)This;
    MESSAGE_QUERY_EL* pmes=(MESSAGE_QUERY_EL*)data;
    PARAM_NODE *pnode;
    fastmemcpy(&pnode,pmes->data,sizeof(PARAM_NODE *));
    /*Ишем по PNODE*/
    unsigned long j;
    PARAM_NODE *ppar;
    for (long i=0;i<MIN(pThis->params,ID10055_NUM_OF_ACT_PAR);i++){
        ppar=pThis->act_par.my_param[i];
        if (!ppar) break; //Дошли до конца
        if (pnode==ppar) {    //Нашли
            j=pThis->act_par.chanell[i];
            PARAMETER_DESCRIPTOR *pdesc=ParseParameter(pnode,NULL);
            AddParInINI(pThis,pdesc,&j);
        }
    }
    return 0;
}
Re: Ваши последние 20 строк кода
От: seafresh  
Дата: 11.05.07 15:52
Оценка:
Здравствуйте, Нахлобуч, Вы писали:

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют



#define MMX_ONE_PIXEL_STRING \
__asm sub REG_SOURCE_BUFFER, REG_STRIDE_BUFFERS \
__asm movq MMXREG_TEMP1, [ REG_SOURCE_BUFFER - 2 ] \
__asm add REG_SOURCE_BUFFER, REG_STRIDE_BUFFERS \
__asm pmaddwd MMXREG_TEMP1, MMXREG_STRING1_MASK \
__asm movq MMXREG_TEMP2, [ REG_SOURCE_BUFFER - 2 ] \
__asm pmaddwd MMXREG_TEMP2, MMXREG_STRING2_MASK \
__asm paddd MMXREG_TEMP1, MMXREG_TEMP2 \
__asm movq MMXREG_TEMP2, [ REG_SOURCE_BUFFER + REG_STRIDE_BUFFERS - 2 ] \
__asm pmaddwd MMXREG_TEMP2, MMXREG_STRING3_MASK \
__asm paddd MMXREG_TEMP1, MMXREG_TEMP2 \
__asm movq MMXREG_TEMP2, MMXREG_TEMP1 \
__asm psrlq MMXREG_TEMP2, 32 \
__asm paddd MMXREG_TEMP1, MMXREG_TEMP2 \
__asm packssdw MMXREG_TEMP1, MMXREG_TEMP1 \
__asm pmaddwd MMXREG_TEMP1, MMXREG_KOEFF_MULL_RES \
__asm psrad MMXREG_TEMP1, SHIFT_FOR_BASE_KOEFF_MULL_FOR_SVERTKA \
__asm packssdw MMXREG_TEMP1, MMXREG_TEMP1 \
__asm psllq MMXREG_TEMP1, 48 \
__asm psrlq MMXREG_TEMP4, 16 \
__asm por MMXREG_TEMP4, MMXREG_TEMP1 \
__asm add REG_SOURCE_BUFFER, 2

pxor MMXREG_TEMP4, MMXREG_TEMP4;

MMX_ONE_PIXEL_STRING;
MMX_ONE_PIXEL_STRING;
MMX_ONE_PIXEL_STRING;
MMX_ONE_PIXEL_STRING;
Государство должно защищать свободу и право, в этом его оправдание.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.