source: branches/stable/AISC_COM/C/aisc_extern.c

Last change on this file was 16763, checked in by westram, 7 years ago
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1#include <stdio.h>
2#include <string.h>
3#include <aisc.h>
4#include <server.h>
5#include "aisc_extern_privat.h"
6
7extern int aisc_d_flags[];
8
9dll_public *create_dll_public() {
10    return NULp;
11}
12
13int move_dll_header(const dll_header *sobj, dll_header *dobj) {
14    dobj->ident = strdup(sobj->ident);
15    return 0;
16}
17
18int get_COMMON_CNT(dll_header *THIS) {
19    int key = (int)(THIS->key) >> 16;
20    if (aisc_d_flags[key] == 0) return -1;
21    if (!((THIS->parent))) { return 0; }
22    return THIS->parent->cnt;
23}
24
25dllheader_ext *get_COMMON_PARENT(dll_header *THIS) {
26    int key = (int)(THIS->key) >> 16;
27    if (aisc_d_flags[key] == 0) return NULp;
28    if (!THIS->parent) { return NULp; }
29    return THIS->parent->parent;
30}
31
32dllheader_ext *get_COMMON_LAST(dll_header *THIS) {
33    int key = (int)(THIS->key) >> 16;
34    if (aisc_d_flags[key] == 0) return NULp;
35    if (!THIS->parent) { return NULp; }
36    return THIS->parent->last;
37}
38
39aisc_cstring aisc_get_keystring(int *obj) {
40    int i;
41    i = *obj>>16;
42    return aisc_get_object_names(i);
43}
44
45aisc_cstring aisc_get_keystring_dll_header(dll_header *x) {
46    return aisc_get_keystring((int*)x);
47}
Note: See TracBrowser for help on using the repository browser.