Цитата (Alexiski @ 2.9.2010, 22:34):

В защищенном режиме процессора таблица прерываний может содержать специальные дескрипторы, вызов по которым при влечет за собой нечто большее, чем просто передача управления. Именно они тут и используются

Вот спецификация:

Судя по команде


там как раз 11 параметров в стеке

Цитата:

Решите следующие задачи. Полагайте, что беззнаковые целые хранятся в 2 байтах, и
что начальный адрес массива находится в ячейке памяти 1002500.
a) Объявите массив values типа unsigned int с 5 элементами и присвойте элементам на-
чальные значения в виде четных чисел от 2 до 10. Полагайте, что определена символи-
ческая константа SIZE, равная 5.
b) Объявите указатель vPtr, который указывает на объект типа unsigned int.
c) Напечатайте элементы массива values, используя запись с индексом массива. Ис-
пользуйте структуру for и считайте, что целая управляющая переменная i уже была
объявлена.
d) Укажите два разных оператора, которые присваивают начальный адрес массива
address переменной указателю vPtr.
e) Напечатайте элементы массива values, используя запись указатель-смещение.
f) Напечатайте элементы массива values, используя запись указатель-смещение с име-
нем массива как указателем.
g) Напечатайте элементы массива values, используя индексацию указателя на массив.
h) Сошлитесь на элемент 5 массива values, используя запись с индексом массива, за-
пись с именем массива как указателем, запись с индексом указателя и запись указа-
тель-смещение.
i) На какой адрес ссылается выражение vPtr + 3? Какое значение хранится в этой
ячейке?
j) Предполагая, что vPtr указывает на values[4], укажите, на какой адрес ссылается
выражение vPtr *-= 4. Какое значение хранится в этой ячейке?

Код (cpp)

#include<iostream>
using namespace std;
#include<windows>

char* rt(char* str)
{
    char* buf = new char[strlen(str) + 1];
    CharToOemA(str, buf);
    return buf;
}

int main()
{
   const size = 5;
   unsigned int values[size] = {2, 4, 6, 8, 10};
   unsigned int *vPtr = values;
   int i;
   int adress[5];
   int *aPtr;
   int offset;
   unsigned int *sPtr;

   //печатаем массив values, используя запись с индексом массива
   cout << rt("Печать массива values, используя запись с индексом массива") << endl;
   for (i = 0; i < size; i++)
   {
      cout << "values[" << i << "] = " << values[i] << endl;
   }
   // ПУНКТ "d"
   //присваиваем адрес массива adress указателю vPtr
   aPtr = adress;
   aPtr = &adress[0];

   // ПУНКТ "e"
   //печатаем массив values, используя запись указатель-смещение
   cout << endl << rt("Печать массива values, используя запись указатель-смещение") << endl;
   for (offset = 0; offset < 5; offset++)
   {
      cout << "*(vPtr + " << offset << ") = "
           << *(vPtr + offset) << "\n";
   }

   // ПУНКТ "f"
   //печатаем массив values, используя запись указатель-смещение с именем массива как указатель
   cout << endl << rt("Печать массива values, используя запись указатель-смещение c именем массива как указатель") << endl;
   for (offset = 0; offset < 5; offset++)
   {
      cout << "*(values + " << offset << ") = "
           << *(values + offset) << "\n";
   }

   // ПУНКТ "g"
   //печатаем массив values, используя индексацию указателя на массив
   cout << endl << rt("Печать массива values, используя индексацию указателя на массив") << endl;
   for (i = 0; i < 5; i++)
      cout << "vPtr[" << i << "] = " << vPtr[i] << "\n";

   // ПУНКТ "h"
   //ссылаемся на values[5], используя запись с индексом массива
   cout << endl << rt("Ссылаемся на values[5], используя запись с индексом массива") << endl;
   cout << "values[5]: " << values[5] << endl;
   //ссылаемся на values[5], используя запись с именем массива как указателем
   cout << rt("Ссылаемся на values[5], используя запись с именем массива как указателем") << endl;
   cout << "values[5]: " << *(values + 5) << endl;
   //ссылаемся на values[5], используя запись с индексом указателя
   cout << rt("Ссылаемся на values[5], используя запись с индексом указателя") << endl;
   cout << "values[5]: " << vPtr[5] << endl;
   //ссылаемся на values[5], используя запись указатель-смещение
   cout << rt("Ссылаемся на values[5], используя запись указатель-смещение") << endl;
   cout << "values[5]: " << *(vPtr + 5) << endl;

   // ПУНКТ "i"
   cout << endl << "vPtr + 3: " << vPtr + 3 << endl << endl;

   // ПУНКТ "j"
   *vPtr = values[4];
   cout << "vPtr -= 4: " << (vPtr -= 4) << endl;
   //вроде по-другому как-то сделать надо, но я только на это додумался =)
   cout << rt("В (vPtr -= 4) хранится значение: ") << values[0] << endl;

   system("pause");
   return 0;
}

Цитата:

Печать массива values, используя запись с индексом массива
values[0] = 2
values[1] = 4
values[2] = 6
values[3] = 8
values[4] = 10

Печать массива values, используя запись указатель-смещение
*(vPtr + 0) = 2
*(vPtr + 1) = 4
*(vPtr + 2) = 6
*(vPtr + 3) = 8
*(vPtr + 4) = 10

Печать массива values, используя запись указатель-смещение c именем массива как
указатель
*(values + 0) = 2
*(values + 1) = 4
*(values + 2) = 6
*(values + 3) = 8
*(values + 4) = 10

Печать массива values, используя индексацию указателя на массив
vPtr[0] = 2
vPtr[1] = 4
vPtr[2] = 6
vPtr[3] = 8
vPtr[4] = 10

Ссылаемся на values[5], используя запись с индексом массива
values[5]: 4206644
Ссылаемся на values[5], используя запись с именем массива как указателем
values[5]: 4206644
Ссылаемся на values[5], используя запись с индексом указателя
values[5]: 4206644
Ссылаемся на values[5], используя запись указатель-смещение
values[5]: 4206644

vPtr + 3: 1245036

vPtr -= 4: 1245008
В (vPtr -= 4) хранится значение: 10

Код

get_cell_points :: Ptr () -> Int -> [Int]

get_point_cells :: Ptr () -> Int -> [Int]

Код

get_point_points :: Ptr () -> Int -> [Int]
get_point_points vtk_ptr point_id = toList $ fromList $ foldr (++) [] [get_cell_points vtk_ptr x | x <- (get_point_cells vtk_ptr point_id)]

Цитата (Matematic @ 2.9.2010, 21:46):

Я примерно понимаю, зачем нужна эта ntdll.dll. Она содержит для каждого существующего системного вызова ядра код обращения к каждой данной функции. Т. е. она по сути содержит "оболочки" системных вызовов. Если проводить параллель с системой Unix, то именно эта dll, а не WinAPI аналогична unistd. Правильно я понимаю суть?

Цитата (Matematic @ 2.9.2010, 21:46):

используется команда call:

Цитата (Matematic @ 2.9.2010, 21:46):

Или же параметры заранее помещаются в стек функцией, вызывающей ZwCreateFile, а оттуда извлекаются СВ ядра, которому ZwCreateFile передает управление?

Цитата:

The ZwCreateFile routine either causes a new file or directory to be created, or it opens an existing file, device, directory, or volume, giving the caller a handle for the file object.

Код

retn    2Ch

Код

HANDLE CreateFile(
  LPCTSTR  lpFileName,                         // имя файла
  DWORD  dwDesiredAccess,                      // режим доступа
  DWORD  dwShareMode,                          // совместный доступ
  LPSECURITY_ATTRIBUTES  lpSecurityAttributes, // SD (дескр. защиты)
  DWORD  dwCreationDisposition,                // как действовать
  DWORD  dwFlagsAndAttributes,                 // атрибуты файла
  HANDLE  hTemplateFile                        // дескр.шаблона файла
);

Цитата (Vladimir the Red Sunny @ 2.9.2010, 17:20):

Для одной и той же трехмерной модели, индекса ячейки и двух индексов точек выдается всегда один и тот же набор соседей. Достаточно ли этого, чтобы считаться pure?

Код

do xs <- get_cell_edge_neighbors ptr cell i0 i1
    ...

Цитата:

В си вроде как нет ссылок icon_upset.gif. Но, как я вижу, вы компилируете плюсовый код, а в этом случае действительно смысла в замене нет.

Цитата:

get_cell_edge_neighbors действительно pure?

Цитата (Vladimir the Red Sunny @ 2.9.2010, 15:33):

Да, об этом и вопрос - зачем менять тип для сишного исходника? Я верю, что надо, тем более раз вы говорите, но хотелось бы понять причину, всё-таки

Цитата (calabi-yau @ 2.9.2010, 20:45):

Это для сишного исходника.

Код

--_declspec (dllexport) void delete_array(void *ptr)

foreign import ccall "delete_array" c_delete_array :: Ptr a -> IO ()



--_declspec (dllexport) int get_cell_edge_neighbors(LPVOID pM, int cellID, int pID1, int pID2, int **result)

foreign import ccall "get_cell_edge_neighbors" vtk_gcen :: Ptr () -> CInt -> CInt -> CInt -> Ptr (Ptr a) -> IO CInt



get_cell_edge_neighbors :: Ptr () -> Int -> Int -> Int -> [Int]
get_cell_edge_neighbors vtk_ptr cell point1 point2 =
    unsafePerformIO $
    alloca $ \ptr -> do
      n_size <- vtk_gcen vtk_ptr (toEnum cell) (toEnum point1) (toEnum point2) ptr
      pptr <- peek ptr
      lst <-  peekArray (fromIntegral n_size) pptr
      c_delete_array pptr
      return lst

Цитата (Matematic @ 2.9.2010, 13:59):

все гораздо сложнее и для создания любого подобного объекта функция Win API выполняет кучу действий и целый ряд системных вызовов

Код

.text:7C90D0AE; Exported entry 123. NtCreateFile
.text:7C90D0AE; Exported entry 934. ZwCreateFile
.text:7C90D0AE; --------------- S U B R O U T I N E ---------------------------------------
.text:7C90D0AE                 public ZwCreateFile
.text:7C90D0AE ZwCreateFile    proc near
.text:7C90D0AE                 mov     eax, 25h       ; NtCreateFile
.text:7C90D0B3                 mov     edx, 7FFE0300h
.text:7C90D0B8                 call    dword ptr [edx]
.text:7C90D0BA                 retn    2Ch
.text:7C90D0BA ZwCreateFile    endp

Цитата (Vladimir the Red Sunny @ 1.9.2010, 19:36):

А что за синтаксис "&delete_array"?

Цитата:

Зачем менять тип последнего параметра с int *&result на int **result?

Цитата:

get_cell_edge_neighbors :: Ptr a -> CInt -> CInt -> CInt -> IO (ForeignPtr Ptr CInt, CInt)

Kind error: `ForeignPtr' is applied to too many type arguments
In the type `ForeignPtr Ptr CInt'
In the type `(ForeignPtr Ptr CInt, CInt)'
In the type `IO (ForeignPtr Ptr CInt, CInt)'

Код

get_cell_edge_neighbors :: Ptr a ->  CInt -> CInt -> CInt -> IO (ForeignPtr CInt, CInt)

Код

(DEFUN DROOG (LAMBDA NIL
  ; Dialogs;
      (PRINT 'Privet!)
      (SETQ FLAG NIL)
      (LOOP
         (SETQ S (READ))
         (COND
        ( (OR (MATCH '(Privet) S) (MATCH '(Hello) S))
                   (PRINT '(Kak tvoi dela?)) )

        ( (OR (MATCH '(Horosho) S) (MATCH '(Good) S))
                   (PRINT '(Eto horosho!)) )

        ( (MATCH '(*menya volnuet * L) S)
                   (PRINT (APPEND '(kak davno vas volnuet)
                                   L)) )

               ( (MATCH '(* let) S)
                   (SETQ FLAG T)
                   (PRINT (APPEND '(rasskazhi mne bolshe)
                                   L)) )
               ( (MATCH '(* rabota *) S)
                   (PRINT (APPEND '(rabotane ne napryagaet?)
                                   L)) )
               ( (OR (MATCH '(net) S) (MATCH '(da) S))
                   (PRINT '(ne bud kratkim)) )
               ( T (PRINT '(Do vstrechi!)) )
         )
      )
   ))
  ; ----------------------;

  (DEFUN MATCH (LAMBDA (P D)
      (COND  ( (AND (NULL P) (NULL D))  T  )
             ( (OR  (NULL P) (NULL D)) NIL )
             ( (OR (EQ (CAR P) '?) (EQ (CAR P) (CAR D)))
                 (MATCH (CDR P) (CDR D)) )
             ( (AND (ATOM (CAR P)) (EQ (ATOMCAR (CAR P)) '>)
                  (MATCH (CDR P) (CDR D)))
                 (SET (ATOMCDR (CAR P)) (CAR D)) T )
             ( (EQ (CAR P) '*)
                 (COND ( (MATCH (CDR P) (CDR D)) )
                       ( (MATCH P (CDR D))) ) )
             ( (AND (ATOM (CAR P)) (EQ (ATOMCAR (CAR P)) '*))
                 (COND ( (MATCH (CDR P) (CDR D))
                          (SET (ATOMCDR (CAR P))
                               (LIST (CAR D))) T)
                       ( (MATCH P (CDR D))
                          (SET (ATOMCDR (CAR P))
                               (CONS (CAR D)
                                   (EVAL (ATOMCDR (CAR P))))
                          ) T ) ) )
      )
   ))
  ; ----------------------;
   (DEFUN ATOMCAR (LAMBDA (X)
  ; Выделение первого символа имени литерного атома;
      (CAR (UNPACK X))
   ))
  ; ----------------------;
   (DEFUN ATOMCDR (LAMBDA (X)
  ; Выделение "хвоста" имени литерного атома;
      (PACK (CDR (UNPACK X)))
   ))
  ; -----------------------------;
   (DEFUN APPEND (LAMBDA (LST1 LST2)
  ; Функция APPEND возвpащает список, состоящий из  ;
  ; элементов списка LST1, добавленных к списку LST2;
      (COND ( (NULL LST1) LST2 )
            ( (NULL LST2) LST1 )
            (  T  (CONS (CAR LST1)
                        (APPEND (CDR LST1) LST2)) )
      )
   ))

Код (cpp)

unsigned int *vPtr = &values[0];

Код (cpp)

unsigned int *vPtr = values;

Цитата:

d) Напечатай элементы массива values, адресуя элементы через vPtr. Двумя способами.

Цитата:

Решите следующие задачи. Полагайте, что беззнаковые целые хранятся в 2 байтах, и
что начальный адрес массива находится в ячейке памяти 1002500.
a) Объявите массив values типа unsigned int с 5 элементами и присвойте элементам на-
чальные значения в виде четных чисел от 2 до 10. Полагайте, что определена символи-
ческая константа SIZE, равная 5.
b) Объявите указатель vPtr, который указывает на объект типа unsigned int.
c) Напечатайте элементы массива values, используя запись с индексом массива. Ис-
пользуйте структуру for и считайте, что целая управляющая переменная i уже была
объявлена.

Код (cpp)

#include<iostream>
using namespace std;
#include<windows>

int main()
{
   const size = 5;
   unsigned int values[size] = {2, 4, 6, 8, 10};
   unsigned int *vPtr = &values;
   int i;

   for (i = 0; i <= size; i++)
   {
      cout << "values[" << i << "] = " << values[i] << endl;
   }


   system("pause");
   return 0;
}

Цитата:

[C++ Error] N5_9_P405.cpp(10): E2034 Cannot convert 'unsigned int ( *)[5]' to 'unsigned int *'
[C++ Warning] N5_9_P405.cpp(21): W8004 'vPtr' is assigned a value that is never used

Код (cpp)

unsigned int *vPtr = &values;

Цитата:

b) Объявите указатель vPtr, который указывает на объект типа unsigned int.

Цитата (AD_ @ 1.9.2010, 8:59):

Кошмар, поздравляю! Желаю успехов, радости и взаимопонимания!

Цитата (Vladimir the Red Sunny @ 1.9.2010, 14:44):

Что не получилось? Что некорректно?

Цитата:

Возник вопрос: как обрабатывать (т. е., что писать на стороне Хаскеля) функции, возвращающие несколько значений? Которые в сишные функции передаются по ссылке и там модифицируются?

Код

foreign import ccall "fun" fun :: Ptr a -> IO Int

Цитата:

Так просто не получилось (и корректно ли?):

Цитата (Vladimir the Red Sunny @ 31.8.2010, 16:52):

Продолжаю время от времени ковыряться с байндингом. Возник вопрос: как обрабатывать (т. е., что писать на стороне Хаскеля) функции, возвращающие несколько значений? Которые в сишные функции передаются по ссылке и там модифицируются?

Пару раз выкурил вот эту главу, но пока далёк от понимания. Там, вроде, пишут, что можно garbage collector Хаскеля прикручивать к указателям на области памяти, выделенные в сишном коде.

Код

-- С функция, возвращает указатель на блок с данными
foreign import ccall "lib function" function :: CInt -> IO (Ptr a)

-- Допустим нам нужно не просто удалить память, но и еще произвети произвольное действие с данными
{- void finalizer (void* ptr) {
        free(ptr); printf("Kill'em all!");
}
-}
foreign import ccall "lib &finalizer" finalizer :: FunPtr (Ptr a -> IO ()) -- указатель на finalizer

--


-- Создаем обьект ForeignPtr, как только GC решит уничтожить указатель - применяет finalizer к данным ForeignPtr
make_foreign_ptr :: CInt -> ForeignPtr a
make_foreign_ptr val = do ptr <- function val; newForeignPtr finalizer ptr

test = do ptr_f <- make_foreign_ptr 42
          withForeignPtr ptr_f
            (\ptr -> do ... {-собственно работа, где ptr имеет простой тип (Ptr a)-})

Цитата:

Допустим, вот у меня есть функция, принимающая указатель на данные, три целых числа (номер ячейки и номера двух точек, задающих ребро) и указатель.

Код

-- _declspec (dllexport) int get_cell_edge_neighbors(LPVOID pM, int cellID, int pID1, int pID2, int **result)

foreign import ccall "get_cell_edge_neighbors" get_cell_edge_neighbors' :: Ptr a -> CInt -> CInt -> CInt -> Ptr (Ptr (CInt)) -> IO CInt


{- delete_array(void* ptr) { delete [] ptr; } -}


foreign import ccall "&delete_array" delete_array :: FunPtr (Ptr a -> IO ())


get_cell_edge_neighbors :: Ptr a ->  CInt -> CInt -> CInt -> IO (ForeignPtr CInt, CInt)
get_cell_edge_neighbors ptr a b c =
  alloca (\ptr_to_ptr -> do {
             n <- get_cell_edge_neighbors' ptr a b c ptr_to_ptr;
             ptr_f <- peek ptr_to_ptr >>= newForeignPtr delete_array;
             return (ptr_f, n);
             }
         )

-- тестим
test ptr cellId id0 id1 =
    do (f_ptr, size) <- get_cell_edge_neighbors ptr cellId id0 id1
       withForeignPtr f_ptr $ \ptr -> do list <- peekArray size ptr -- извлекаем из массива в лист, и печатаем
                                         print list

Цитата (Vladimir the Red Sunny @ 30.7.2010, 22:24):

Нет.

Цитата (bvnnet @ 1.9.2010, 6:38):

Спасибо за пример!
Правда в нем нет CustomControl (у меня их предполагается как мин. 3шт.), и прорисовка присходит непосредственно на форме. А именно связка CustomControl с DrawControl, которым является мой объект Карта, и есть для меня самое интересное и пока непонятное. Но думаю в процессе все прояснится. В Вашем примере появляется новое свойство

По описанию showListener в Хелпе слегка понятно, что оно проявляетя\появляется только в момент показа этого самого DrawControl, а можно поподробней о его предназначении (вроде для прорисовки есть onPaint : drawWindow::paintResponder), хотябы кратко.
И вот какая штука, ошибки линкования были связаны с тем, что мои дин.классы я писал на русском (домены здесь не причем, хотя за разъяснение по ним все равно спасибо), поменял на англ. названия и все, что могло - поехало.

Цитата (bvnnet @ 1.9.2010, 6:21):

ВАЖНО
Дорогие ПС! Если Вам вздумалось использовать в своем проекте объекты (и соответственно дин.классы) , помните - сапожник он же без сапог, поэтому упаси Вас Господи делать объявления дин.класса русскоязычными, если Вы забыли переключить раскладку или из чувства патриотизма сделаете объявление дин.класса типа

и далее попробуете создать объект типа

, получите ошибку линкования и кучу прочей лабуды. Если уж хочеться, то объявляйте как принято во всем цивилизованом мире (в Китае например) на английском, т.к. русский язык компилятор (написанный русскими программистами) не понимает.
P.S. За державу обидно уже дважды.

Код

CREATE PROCEDURE limitselect(limnum INT)
BEGIN
  DECLARE done INT DEFAULT 0;
  DECLARE a INT;

--  вариант 1, который не работает
--  DECLARE cur1 CURSOR FOR SELECT i FROM test LIMIT limnum;

-- вариант 2, который непонятно как оформить
-- SELECT @request = CONCAT("SELECT i FROM test LIMIT ', limnum);
-- PREPARE reqstatement FROM @request;
-- DECLARE cur1 CURSOR FOR EXECUTE reqstatement;

  DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = 1;

  OPEN cur1;

  REPEAT
    FETCH cur1 INTO a;
    IF NOT done THEN

-- тут операции с выбранным значением

    END IF;
  UNTIL done END REPEAT;

  CLOSE cur1;
END

Цитата (bvnnet @ 1.9.2010, 6:21):

ВАЖНО
Дорогие ПС! Если Вам вздумалось использовать в своем проекте объекты (и соответственно дин.классы) , помните - сапожник он же без сапог, поэтому упаси Вас Господи делать объявления дин.класса русскоязычными, если Вы забыли переключить раскладку или из чувства патриотизма сделаете объявление дин.класса типа

и далее попробуете создать объект типа

, получите ошибку линкования и кучу прочей лабуды. Если уж хочеться, то объявляйте как принято во всем цивилизованом мире (в Китае например) на английском, т.к. русский язык компилятор (написанный русскими программистами) не понимает.
P.S. За державу обидно уже дважды.

Цитата (Vladimir the Red Sunny @ 31.8.2010, 20:38):

Жена в интернет не пускала?

Цитата:

объекты должны моделировать реальность или соответствовать устоявшимся абстракциям.... Ради чего? Чтобы сэкономить на строках кода? Экономия на строках кода - обычное стремление в упражнениях для начинающих. В проектах целесообразность смещается в сторону прозрачности, модифицируемости, легкости отладки, простоты обнаружения ошибок...

Что общего между игроком и колодой? ... Сколько колод Вам потребуется в одной игре?

Код

predicates
    onShow : window::showListener.
clauses
    onShow(Source, _Data):-
        setSize(34,40),
        Source:setFont(vpi::fontCreateByName("Arial",60))

Код

class мойкласс : мойкласс

Код

..Мойобъект=мойкласс:new()...

Цитата:

Поэтому кратко поясню (хотя где-то в этом форуме уже объяснял это, искать не хочется).

1. Домены и предикаты, объявленные в имплементации класса, внутри этого класса используются (предикаты вызваются, а домены используются в объявлениях предикатов) явным, интуитивно понятным образом.
2. Домены и предикаты, объявленные в декларациях данного класса или интерфейса данного класса, внутри этого же класса используются явным, интуитивно понятным образом.
3. Предикаты, объявленные в интерфейсе наследуемого класса внутри наследующего класса используются явным, интуитивно понятным образом.
4. Домены и предикаты, объявленные в имплементациях других классов использоваться не могут.
5. Домены и предикаты, объявленные в декларациях других классов используются с указанием класса в качестве префикса в виде
Код Prolog
<классОбъявления>::Домен
<ВозвращаемыйПараметр (если_есть)>=<классОбъявления>::вызовПредиката(...)

6. Домены, объявленные в декларациях других интерфейсов используются с указанием интерфейса в качестве префикса в виде
Код Prolog

<интерфейсОбъявления>::Домен

7. Префикс класса или интерфейса может не использоваться, если имя этого класса (интерфейса) указано в списке декларации open

Если у Вас на компиляции вылезает ошибка типов, то возможен конфликт деклараций, поскольку Вы не используете префиксы, а перечисляете классы (интерфейсы) в списке декларации open

Моя рекомендация - использвать в списке open только классы и интерфейсы системы PFC (такие как core, VpiDomains и проч.), а свои домены и предикаты всегда использвоать с префиксами. Это является гарантией раннего обнаружения конфликтов. Не бойтесь много и длинно писать (префиксы, понятные имена доменов, предикатов, переменных, фактов). Это воздастся сторицей.
Программирование - нудный труд, где лучше не недеятья на человеческую память.

Цитата (Angel5a @ 31.8.2010, 20:02):

А кто тебе мешает удалить файл после его загрузки в имедж ?

Код (cpp)

_declspec (dllexport) int get_cell_edge_neighbors(LPVOID pM, int cellID, int pID1, int pID2, int *&result)
{
    //кухня
    grModel *d = (grModel*) pM;
    vtkIdList *idlist = vtkIdList::New();
    d->model->GetCellEdgeNeighbors(cellID, pID1, pID2, idlist); //библиотечной функцией заполняем idlist
    int n = idlist->GetNumberOfIds(); //полученное число элементов
    result = new int[n]; //выделяем память под результат (надо очищать в вызывающем коде - т. е., на стороне Хаскеля?)
    for(int i=0; i<n; i++)
    {
        result[i] = idlist->GetId(i); //загоняем индексы ячеек в result
    }
    idlist->Delete();

    return n; //возвращаем число ячеек
}

Цитата (Vladimir the Red Sunny @ 31.8.2010, 13:47):

В монастырь уходил?

Цитата:

неужели тут нет умных людей готовых помочь?

Код

(mapcar '(lambda (x) (< min x max)) lst)