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

        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,

> Просто ради интереса — кто чего делает. 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));
}

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

Н>Просто ради интереса — кто чего делает. 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(); 
            }
        }

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());
            }
        }
    }
}

Н>Просто ради интереса — кто чего делает. 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;
        };

Н>Просто ради интереса — кто чего делает. 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;
}

Н>Просто ради интереса — кто чего делает. 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; \
    }

Н>Просто ради интереса — кто чего делает. 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
        ]
    }

]@@

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;
        }

Н>Просто ради интереса — кто чего делает. 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);
}

Н>Просто ради интереса — кто чего делает. 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);

Н>Просто ради интереса — кто чего делает. 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;
}

    <!-- 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>

Н>Просто ради интереса — кто чего делает. 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;
    }

Н>Просто ради интереса — кто чего делает. 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
            }

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

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);

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;
}

Н>Просто ради интереса — кто чего делает. 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);
            }
        }
    }
}

Н>Просто ради интереса — кто чего делает. 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;
                }
            }
        }
    }

Н>Просто ради интереса — кто чего делает. 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 );
    }
  }
}

.........................................................................
        *   Позиция, с которйо начинается название бизнес-процесса
            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
.........................................................................

 ..........................
    /* 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; "
......................

Н>Просто ради интереса — кто чего делает. 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);

            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;

Н>Просто ради интереса — кто чего делает. 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));
}

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;
};

Н>Просто ради интереса — кто чего делает. 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;
    }

Н>Просто ради интереса — кто чего делает. 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";
};

Н>Просто ради интереса — кто чего делает. 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

Н>Просто ради интереса — кто чего делает. 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();
}

Н>Просто ради интереса — кто чего делает. 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;

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);
}

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>#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

Н>Просто ради интереса — кто чего делает. 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

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

Н>Просто ради интереса — кто чего делает. 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();
            }
        }

    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;

        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;
        }

Н>Просто ради интереса — кто чего делает. 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();