VPF::Delphi >> C++ - Форум программистов

skyboy

Дата 2.12.2006, 09:31 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 1
Всего: 260

Цитата(MAKCim @ 1.12.2006, 16:35

)

то, что предложил nickless, прямо скажем несколько больше чем 9

речь шла о том, что мол, без static - полей нельзя реализовать столько полезный механизм, как singleton. Оказалось, что можно. Теперь начинаем цепляться к объему? smile

Ну и ну...

MAKCim

Дата 2.12.2006, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: 8
Всего: 207

Цитата

Теперь начинаем цепляться к объему? smile Ну и ну...

следи за логикой

Цитата

Сложно мне понять до конца, как там синглетон реализован (слава богу с Делфи давно не работал smile )
как то там все сложно
вот вполне безопасный для однопоточного использования синглетон из 9 строчек

[разве я тут начал цепляться к объему? пример привел просто для сравнения]

Цитата

что мешает мне сделать

Цитата

сделай
то, что предложил nickless, прямо скажем несколько больше чем 9

--------------------

Ах, у елі, ах, у ёлкі, ах, у елі злыя волкі ©

MAKCim

Дата 2.12.2006, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: 8
Всего: 207

чтобы не было непоняток, я признаю, что singleton на delphi реализовать можно, но не слишком приятно это делать smile

Этот вопрос закрыт
Пойдем дальше
Насколько я знаю, union-ов в Delphi тоже нет (или я не прав), register данных тоже
Прйдем по компиляторам (делфисты тоже могут использовать разные компиляторы, если поможет smile

)
Покажите мне реализацию на Pascal/ObjectPascal
- атрибутов (типа, переменной, функции)
- offsetof-а (офигенная вещь для реализации списков)
- typeof-а
- именованную инициализацию полей структур с обнулением неопределенных полей (есть в C99)

Код


static struct task {
    int    t_time;
    union {
        struct _range {
            long r_min;
            long r_max;
        } t_range;
        double t_number;
    };
} object = {
    .t_time = 12,
    .t_range = { .r_min = 0 }
};

- диапозоны значений в статически определенных массивах и индексированные значения

Код


int array[128] = { [0] = 100, [1] = 100, [2 ... 125] = 0, [126] = 100, [127] = 100 };

- TLS механизм (данные, специфичные для потока) (есть в С99 под видом __thread)
- неконстантные инициализаторы в статически определенных массивах

Код


void F(int a, int b) {
    int array[2] = {a, b};
}

- встроенный тип комплексных чисел (complex)

--------------------

Ах, у елі, ах, у ёлкі, ах, у елі злыя волкі ©

skyboy

Дата 2.12.2006, 12:10 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 1
Всего: 260

Цитата(MAKCim @ 2.12.2006, 10:59

)

Насколько я знаю, union-ов в Delphi тоже нет (или я не прав)

с жесткой типизацией - и union'ы? smile

нет. и я понимаю - почему smile

можно использовать указатели с присваиванием адреса - подход погибче, чем использование объединений в общем случае. При этом программист уже понимает, на что он идет smile

[offtopic] мы обсуждаем недостатки, как отсутствие необходимых нам механизмов или некое неудобство в реализации и использовании их?
[/offtopic]

Цитата(MAKCim @ 2.12.2006, 10:59

)

- атрибутов (типа, переменной, функции)
- offsetof-а (офигенная вещь для реализации списков)

Плиз, описывай функциональность: название мало что скажет, если нет полного аналога, а описать функциональный аналог помешает непонимание того, что же требуется(как в случае со "статическими полями класса" - полного аналога нет, но реализовать синглтон возможно).

Цитата(MAKCim @ 2.12.2006, 10:59

)

встроенный тип комплексных чисел (complex)

Кстати, странно для языка, в котором предусмотрена перегрузка операторов. Экземпляры комплексного типа - это ведь структура на "обычных" типах, да?
В Делфи такого нет. Реализовать несложно, правда, для оперирования надо будет пользовать функциями/процедурами - перегрузки операторов ведь нет.

Добавлено @ 12:13

Цитата(MAKCim @ 2.12.2006, 10:59

)

typeof-а

ну, раз нет шаблонов и есть строгая типизация - на кой ляд определять тип? smile

Размер - ещё куда ни шло, а вот тип определять странно. Там где есть объекты(я имею в виду реализацию в Delphi), можно использовать механизм RTTI, что удобнее простого typeof, а в "обычном" Паскале нет необходимости определять тип.

MAKCim

Дата 2.12.2006, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Воін дZэна

Профиль
Группа: Экс. модератор
Сообщений: 5644
Регистрация: 10.12.2005
Где: Менск, РБ

Репутация: 8
Всего: 207

Цитата

Кстати, странно для языка, в котором предусмотрена перегрузка операторов. Экземпляры комплексного типа - это ведь структура на "обычных" типах, да?

это язык С, стандарт С99 (это не структура, а тип, такой же как int, long, ... , что, естественно влияет (в лучшую сторону) на скорость выполнения)

Цитата

с жесткой типизацией - и union'ы?

да, а что? очень удобно
могу привести пример, где оно удобно
в IA32 Protection Mode есть такая вещь, как дескриптор
Причем дескрипторы бывают разных типов и оттого меняется назначение отдельных байтов (всего их 8) и групп байтов

Код


struct i386_descriptor {
    __u16    d_byte01;
    __u16    d_byte23;
    __u8      d_byte4;
    __u8      d_byte5;
    union {
        __u8    d_byte6;
        __u8    d_byte7;
        __u16  d_byte67;
    };
};

теперь можно получать доступ как к словам, так и к отдельным байтам слов

Цитата

мы обсуждаем недостатки, как отсутствие необходимых нам механизмов или некое неудобство в реализации и использовании их?

и то, и то

Цитата

Плиз, описывай функциональность

OK
offsetof

Код


struct list_head {
    struct list_head *next, *prev;
};

#define list_entry(ptr, type, member) \
    return (type*)((char*)(ptr) - offsetof(type, member))

void __list_add(struct list_head* entry, struct list_head* prev,
        struct list_head* next) {
    next -> prev = entry;
    entry -> next = next;
    entry -> prev = prev;
    prev -> next = entry;
}

void list_add(struct list_head* entry, struct list_head* list) {
    __list_add(entry, list, list -> next);   
}

...

struct task {
    int     t_time;
    char  t_name[128];
    struct list_head t_list; 
};

static struct list_head list = {
    &list,
    &list
}; /* List of tasks */

int main() {
    int i;

    for (i = 0; i < 50; ++i) {
        struct task* task = malloc(sizeof(struct task));
        if (task != NULL)
            list_add(&task -> t_list, &list);
    }

    struct list_head* listp;
    struct task* taskp;
    for (listp = list.next; listp != &list; listp = listp -> next) {
        taskp = list_entry(listp, struct task, t_list);
        free(taskp);
    }
}

атрибуты к примеру

Код


/* выравнивание */
struct __attribute__((__aligned__(16))) A {
    char a[5];
    short b[2]
};
/* sizeof(struct A) = 16, а не 9 */

Код


/* обратное выравниванию */
struct __attribute__((__packed__)) A {
    char a[5];
    short b[2];
};

Код


struct B { int a; double b; };
union __attribute__((__transparent_union__)) _A {
    struct B b;
    char* c;
    double d;
} A;

void F(A a) {}

...
int main() {
    struct B a;
    char* b;
    double c;
    F(a); /* OK */
    F(b); /* OK */
    F(c); /* OK */
    return 0;
}

Это сообщение отредактировал(а) MAKCim - 2.12.2006, 12:56

--------------------

Ах, у елі, ах, у ёлкі, ах, у елі злыя волкі ©

nickless

Дата 2.12.2006, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Гентозавр

Профиль
Группа: Участник Клуба
Сообщений: 2976
Регистрация: 29.8.2005
Где: Germany

Репутация: 2
Всего: 181