File: aisc_extern.c

package info (click to toggle)
arb 6.0.6-8
  • links: PTS, VCS
  • area: non-free
  • in suites: sid, trixie
  • size: 66,204 kB
  • sloc: ansic: 394,911; cpp: 250,290; makefile: 19,644; sh: 15,879; perl: 10,473; fortran: 6,019; ruby: 683; xml: 503; python: 53; awk: 32
file content (47 lines) | stat: -rw-r--r-- 1,126 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#include <stdio.h>
#include <string.h>
#include <aisc.h>
#include <server.h>
#include "aisc_extern_privat.h"

extern int aisc_d_flags[];

dll_public *create_dll_public() {
    return 0;
}

int move_dll_header(const dll_header *sobj, dll_header *dobj) {
    dobj->ident = strdup(sobj->ident);
    return 0;
}

int get_COMMON_CNT(dll_header *THIS) {
    int key = (int)(THIS->key) >> 16;
    if (aisc_d_flags[key] == 0) return -1;
    if (!((THIS->parent))) { return 0; }
    return THIS->parent->cnt;
}

dllheader_ext *get_COMMON_PARENT(dll_header *THIS) {
    int key = (int)(THIS->key) >> 16;
    if (aisc_d_flags[key] == 0) return 0;
    if (!THIS->parent) { return 0; }
    return THIS->parent->parent;
}

dllheader_ext *get_COMMON_LAST(dll_header *THIS) {
    int key = (int)(THIS->key) >> 16;
    if (aisc_d_flags[key] == 0) return 0;
    if (!THIS->parent) { return 0; }
    return THIS->parent->last;
}

aisc_cstring aisc_get_keystring(int *obj) {
    int i;
    i = *obj>>16;
    return aisc_get_object_names(i);
}

aisc_cstring aisc_get_keystring_dll_header(dll_header *x) {
    return aisc_get_keystring((int*)x);
}